msbasic/aim65_iscntc.s
Martin Hoffmann-Vetter 440442981d added AIM-65
2014-02-13 22:40:56 -08:00

18 lines
303 B
ArmAsm

.segment "CODE"
ISCNTC:
lda DRA2
pha
lda #$7f
sta DRA2
pha
pla
lda DRB2
rol a
pla
sta DRA2
bcs RET2
jsr GETKEY
lda #$03
cmp #$03
;!!! runs into "STOP"