Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-06-25 22:29:30 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-09 07:32:26 +00:00
parent e2b46aa776
commit 8954a748b6
5 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
defines_cbm.s
View File

@ -24,6 +24,7 @@ Z18 := $0007
LINNUM := $0008 LINNUM := $0008
TXPSV := $0008 TXPSV := $0008
INPUTBUFFER := $000A INPUTBUFFER := $000A
INPUTBUFFERX := $0000
TEMPPT := $0065 TEMPPT := $0065
LASTPT := $0066 LASTPT := $0066
TEMPST := $0068 TEMPST := $0068
@ -98,6 +99,7 @@ LINNUM := $0011;0008
TXPSV := $0048 TXPSV := $0048
GOGIVEAYF := $0008 GOGIVEAYF := $0008
INPUTBUFFER := $0200;00A INPUTBUFFER := $0200;00A
INPUTBUFFERX := $0200
Z03 := $000E;3 ; same Z03 := $000E;3 ; same
CHARAC := $005A-82-5 CHARAC := $005A-82-5
ENDCHR := $005B-82-5 ENDCHR := $005B-82-5

1
defines_kbd.s
View File

@ -13,6 +13,7 @@ Z18 := $06FD;$0010
LINNUM := $0013;11 LINNUM := $0013;11
TXPSV := $0049 TXPSV := $0049
INPUTBUFFER := $0700 INPUTBUFFER := $0700
INPUTBUFFERX := $0700
CHARAC := $0006;5B CHARAC := $0006;5B
ENDCHR := $0007;5C ENDCHR := $0007;5C
EOLPNTR := $0008;5D EOLPNTR := $0008;5D

1
defines_kim.s
View File

@ -22,6 +22,7 @@ Z18 := $0018
LINNUM := $0019 LINNUM := $0019
TXPSV := $0019 TXPSV := $0019
INPUTBUFFER := $001B INPUTBUFFER := $001B
INPUTBUFFERX := $0000
TEMPPT := $0063 TEMPPT := $0063
LASTPT := $0064 LASTPT := $0064
INDEX := $006F INDEX := $006F

1
defines_osi.s
View File

@ -13,6 +13,7 @@ Z18 := $0010
LINNUM := $0011 LINNUM := $0011
TXPSV := $0011 TXPSV := $0011
INPUTBUFFER := $0013 INPUTBUFFER := $0013
INPUTBUFFERX := $0000
CHARAC := $005B CHARAC := $005B
ENDCHR := $005C ENDCHR := $005C
EOLPNTR := $005D EOLPNTR := $005D

9
msbasic.s
View File

@ -809,10 +809,11 @@ LE39A:
RET3: RET3:
rts rts
.else .else
RET3:
.ifdef CBM2 .ifdef CBM2
RET3:
rts rts
.else .else
L2420:
.ifdef OSI .ifdef OSI
jsr OUTDO jsr OUTDO
.endif .endif
@ -842,7 +843,7 @@ INLIN2:
cmp #$40 cmp #$40
beq L2423 beq L2423
cmp #$5F cmp #$5F
beq RET3 beq L2420
L2443: L2443:
cpx #$47 cpx #$47
bcs L244C bcs L244C
@ -903,9 +904,9 @@ PARSE_INPUT_LINE:
sty DATAFLG sty DATAFLG
L246C: L246C:
.ifdef CBM2 .ifdef CBM2
lda $0200,x lda INPUTBUFFERX,x
.else .else
lda Z00,x lda INPUTBUFFERX,x
.endif .endif
.ifdef CBM .ifdef CBM
bpl LC49E bpl LC49E