Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-12-26 05:32:25 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-18 06:38:54 +00:00
parent 19e6867e20
commit a5f2c9ddcc
3 changed files with 50 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
kbd_loadsave.s Normal file
View File

@ -0,0 +1,37 @@
.segment "CODE"
SLOD:
ldx #$01
.byte $2C
PLOD:
ldx #$00
ldy CURLIN+1
iny
sty JMPADRS
jsr LFFD3
jsr VARTAB_MINUS_2_TO_AY
ldx #$02
jsr LFF64
ldx #$6F
ldy #$00
jsr LE39A
jsr LE33D
jmp CLEARC
.byte $FF,$FF,$FF
; ----------------------------------------------------------------------------
VER:
lda #$13
ldx FAC
beq LE397
lda $DFF9
LE397:
jmp FLOAT
LE39A:
lda VARTAB,x
clc
adc $051B,y
sta VARTAB,y
lda VARTAB+1,x
adc $051C,y
sta VARTAB+1,y
; !!! next instruction is an RTS!

4
message.s
View File

@ -50,12 +50,10 @@ QT_BREAK:
.byte CR,LF," Brk"
.byte 0
.byte $54,$D0 ; ???
.else
.ifdef MICROTAN
.elseif .def(MICROTAN)
.byte CR,LF," BREAK"
.byte 0
.else
.byte CR,LF,"BREAK"
.byte 0
.endif
.endif

56
program.s
View File

@ -1,3 +1,5 @@
; MICROTAN has some nonstandard extension to LIST here
.segment "CODE"
MEMERR:
@ -298,49 +300,16 @@ L2405:
; ----------------------------------------------------------------------------
.ifdef KBD
SLOD:
ldx #$01
.byte $2C
PLOD:
ldx #$00
ldy CURLIN+1
iny
sty JMPADRS
jsr LFFD3
jsr VARTAB_MINUS_2_TO_AY
ldx #$02
jsr LFF64
ldx #$6F
ldy #$00
jsr LE39A
jsr LE33D
jmp CLEARC
.byte $FF,$FF,$FF
; ----------------------------------------------------------------------------
VER:
lda #$13
ldx FAC
beq LE397
lda $DFF9
LE397:
jmp FLOAT
LE39A:
lda VARTAB,x
clc
adc $051B,y
sta VARTAB,y
lda VARTAB+1,x
adc $051C,y
sta VARTAB+1,y
.include "kbd_loadsave.s"
.endif
.ifdef CONFIG_2
; !!! kbd_loadsave.s requires an RTS here!
RET3:
rts
.endif
.if .def(CBM1) || .def(OSI) || .def(KIM) || .def(MICROTAN)
.ifndef CONFIG_NO_INPUTBUFFER_ZP
L2420:
.ifdef OSI
jsr OUTDO
@ -386,7 +355,7 @@ INLIN2:
cmp #$0D
beq L2453
.ifndef CONFIG_NO_LINE_EDITING
cmp #$20 ; line editing
cmp #$20
bcc INLIN2
.ifdef MICROTAN
cmp #$80
@ -397,7 +366,7 @@ INLIN2:
cmp #$40 ; @
beq L2423
.ifdef MICROTAN
cmp #$7F ; _
cmp #$7F ; DEL
.else
cmp #$5F ; _
.endif
@ -413,13 +382,13 @@ L2443:
sta INPUTBUFFER,x
inx
.ifdef OSI
.byte $2C
.byte $2C; XXX
.else
bne INLIN2
.endif
L244C:
.ifndef CONFIG_NO_LINE_EDITING
lda #$07
lda #$07 ; BEL
jsr OUTDO
bne INLIN2
.endif
@ -808,7 +777,7 @@ L25A6:
.else
.ifdef MICROTAN
php
jmp LE21C
jmp LE21C ; patch
LC57E:
.else
bcc L2581
@ -821,7 +790,7 @@ L2581:
jsr FNDLIN
.ifdef MICROTAN
plp
beq LC598
beq L2598
.endif
jsr CHRGOT
.ifdef MICROTAN
@ -833,11 +802,10 @@ L2581:
bne L2520
jsr CHRGET
.ifdef MICROTAN
beq LC598
beq L2598
jsr LINGET
beq L25A6
rts
LC598:
.else
jsr LINGET
bne L2520