mirror of https://github.com/mist64/msbasic.git
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
|