!to "irqtest.prg",cbm * = $0801 !byte $0c, $08, $00, $00, $9e, $32, $30, $36, $31, $00, $00, $00 * = $080d sei lda #$35 sta $01 lda #$7f sta $dc0d sta $dd0d lda #$01 sta $d01a lda #$80 sta $d012 lda #$1b sta $d011 lda #<irq ldx #>irq sta $fffe stx $ffff asl $d019 bit $dc0d bit $dd0d cli - lda #$02 ldx #$00 dex bne *-1 sta $d021 jmp - irq ; sta toA ; stx toX ; sty toY inc $d020 lda #$00 : pnt = *-1 tax tay inc pnt asl $d019 ; lda #0 : toA = *-1 ; ldx #0 : toX = *-1 ; ldy #0 : toY = *-1 rti