msbasic/misc3.s

77 lines
1.4 KiB
ArmAsm
Raw Normal View History

2008-10-13 10:42:49 +00:00
; KBD specific patches
2008-10-13 02:14:07 +00:00
.segment "CODE"
.ifdef KBD
2008-10-13 10:42:49 +00:00
VARTAB_MINUS_2_TO_AY:
2008-10-13 02:14:07 +00:00
lda VARTAB
sec
sbc #$02
ldy VARTAB+1
bcs LF42C
dey
LF42C:
rts
2008-10-13 10:42:49 +00:00
; ----------------------------------------------------------------------------
GET_UPPER:
lda INPUTBUFFERX,x
2008-10-13 02:14:07 +00:00
LF430:
2008-10-13 10:42:49 +00:00
cmp #'a'
2008-10-13 02:14:07 +00:00
bcc LF43A
2008-10-13 10:42:49 +00:00
cmp #'z'+1
2008-10-13 02:14:07 +00:00
bcs LF43A
LF438:
sbc #$1F
LF43A:
rts
2008-10-13 10:42:49 +00:00
; ----------------------------------------------------------------------------
2008-10-16 07:42:48 +00:00
GETLN:
2008-10-13 02:14:07 +00:00
ldx #$5D
LF43D:
txa
and #$7F
cmp $0340
beq LF44D
sta $0340
lda #$03
jsr LDE48
LF44D:
jsr LDE7F
bne RTS4
cpx #$80
bcc LF44D
RTS4:
rts
2008-10-13 10:42:49 +00:00
; ----------------------------------------------------------------------------
2008-10-13 02:14:07 +00:00
LF457:
lda TXTTAB
ldx TXTTAB+1
LF45B:
sta JMPADRS+1
stx JMPADRS+2
ldy #$01
lda (JMPADRS+1),y
beq LF438
iny
iny
lda (JMPADRS+1),y
dey
cmp $14
bne LF472
lda (JMPADRS+1),y
cmp $13
LF472:
bcs LF43A
dey
lda (JMPADRS+1),y
tax
dey
lda (JMPADRS+1),y
bcc LF45B
LF47D:
jmp (JMPADRS+1)
.endif