mirror of
https://github.com/mist64/msbasic.git
synced 2025-01-18 09:30:14 +00:00
52 lines
788 B
ArmAsm
52 lines
788 B
ArmAsm
|
.segment "CODE"
|
||
|
|
|
||
|
|
SAVE:
|
||
|
|
pha
|
||
|
|
jsr WHEREO
|
||
|
|
jsr OUTSP
|
||
|
|
lda #$ff
|
||
|
|
jmp LB4BF
|
||
|
|
|
||
|
|
MONRDKEY:
|
||
|
|
lda INFLG
|
||
|
|
jsr COUT5
|
||
|
|
bne LOAD2
|
||
|
|
jmp INALL
|
||
|
|
LOAD2:
|
||
|
|
jmp CUREAD
|
||
|
|
|
||
|
|
MONCOUT:
|
||
|
|
pha
|
||
|
|
lda OUTFLG
|
||
|
|
jsr COUT5
|
||
|
|
bne COUT3
|
||
|
|
pla
|
||
|
|
jmp OUTALL
|
||
|
|
|
||
|
|
COUT3:
|
||
|
|
pla
|
||
|
|
cmp #LF
|
||
|
|
beq COUT6
|
||
|
|
cmp #CR
|
||
|
|
beq COUT4
|
||
|
|
jmp OUTPUT
|
||
|
|
COUT4:
|
||
|
|
jsr CRCK
|
||
|
|
lda #CR
|
||
|
|
rts
|
||
|
|
|
||
|
|
COUT5:
|
||
|
|
cmp #$54
|
||
|
|
beq COUT6
|
||
|
|
cmp #$55
|
||
|
|
beq COUT6
|
||
|
|
cmp #$4C
|
||
|
|
COUT6:
|
||
|
|
rts
|
||
|
|
|
||
|
|
MONRDKEY2:
|
||
|
|
jsr ROONEK
|
||
|
|
tya
|
||
|
|
beq COUT5
|
||
|
|
jmp GETKY
|