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

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-09 08:23:42 +00:00
parent 8954a748b6
commit 44dc9e7879
5 changed files with 21 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
defines_cbm.s
View File

@ -175,8 +175,10 @@ RNDSEED := $00DA-82
BYTES_PER_FRAME := $12 BYTES_PER_FRAME := $12
.ifdef CBM1 .ifdef CBM1
SPACE_FOR_GOSUB := $36 SPACE_FOR_GOSUB := $36
STACK_TOP := $FC
.else .else
SPACE_FOR_GOSUB := $3E SPACE_FOR_GOSUB := $3E
STACK_TOP := $FA
.endif .endif
FOR_STACK1 := $0F FOR_STACK1 := $0F
FOR_STACK2 := $09 FOR_STACK2 := $09
@ -192,6 +194,8 @@ RAMSTART3 := $0400
TOKEN_GOTO := $89 TOKEN_GOTO := $89
TOKEN_GOSUB := $8D TOKEN_GOSUB := $8D
TOKEN_REM := $8F
TOKEN_PRINT := $99
TOKEN_TAB := $A3 TOKEN_TAB := $A3
TOKEN_TO := $A4 TOKEN_TO := $A4
TOKEN_FN := $A5 TOKEN_FN := $A5

3
defines_kbd.s
View File

@ -98,6 +98,7 @@ MONISCNTC := $FFF1
LOAD := $FFF4 LOAD := $FFF4
SAVE := $FFF7 SAVE := $FFF7
STACK_TOP := $FE
BYTES_PER_FRAME := $10 BYTES_PER_FRAME := $10
SPACE_FOR_GOSUB := $49 SPACE_FOR_GOSUB := $49
FOR_STACK1 := $0D FOR_STACK1 := $0D
@ -114,6 +115,8 @@ CONST_MEMSIZ := $3FFF
TOKEN_GOTO := $88 TOKEN_GOTO := $88
TOKEN_GOSUB := $8C TOKEN_GOSUB := $8C
TOKEN_REM := $8E
TOKEN_PRINT := $97
TOKEN_TAB := $9D TOKEN_TAB := $9D
TOKEN_TO := $9E TOKEN_TO := $9E
TOKEN_FN := $9F TOKEN_FN := $9F

3
defines_kim.s
View File

@ -88,6 +88,7 @@ L1873 := $1873
MONRDKEY := $1E5A MONRDKEY := $1E5A
MONCOUT := $1EA0 MONCOUT := $1EA0
STACK_TOP := $FC
BYTES_PER_FRAME := $12 BYTES_PER_FRAME := $12
SPACE_FOR_GOSUB := $36 SPACE_FOR_GOSUB := $36
TEMPST := $66 TEMPST := $66
@ -102,6 +103,8 @@ MANTISSA_BYTES := BYTES_FP-1
TOKEN_GOTO := $88 TOKEN_GOTO := $88
TOKEN_GOSUB := $8C TOKEN_GOSUB := $8C
TOKEN_REM := $8E
TOKEN_PRINT := $97
TOKEN_TAB := $9D TOKEN_TAB := $9D
TOKEN_TO := $9E TOKEN_TO := $9E
TOKEN_FN := $9F TOKEN_FN := $9F

3
defines_osi.s
View File

@ -94,6 +94,7 @@ MONISCNTC := $FFF1
LOAD := $FFF4 LOAD := $FFF4
SAVE := $FFF7 SAVE := $FFF7
STACK_TOP := $FC
BYTES_PER_FRAME := $10 BYTES_PER_FRAME := $10
SPACE_FOR_GOSUB := $33 SPACE_FOR_GOSUB := $33
TEMPST := $68 TEMPST := $68
@ -110,6 +111,8 @@ RAMSTART3 := $0300
TOKEN_GOTO := $88 TOKEN_GOTO := $88
TOKEN_GOSUB := $8C TOKEN_GOSUB := $8C
TOKEN_REM := $8E
TOKEN_PRINT := $97
TOKEN_TAB := $9C TOKEN_TAB := $9C
TOKEN_TO := $9D TOKEN_TO := $9D
TOKEN_FN := $9E TOKEN_FN := $9E

48
msbasic.s
View File

@ -903,11 +903,7 @@ PARSE_INPUT_LINE:
ldy #$04 ldy #$04
sty DATAFLG sty DATAFLG
L246C: L246C:
.ifdef CBM2
lda INPUTBUFFERX,x lda INPUTBUFFERX,x
.else
lda INPUTBUFFERX,x
.endif
.ifdef CBM .ifdef CBM
bpl LC49E bpl LC49E
cmp #$FF cmp #$FF
@ -925,11 +921,7 @@ LC49E:
bvs L24AC bvs L24AC
cmp #$3F cmp #$3F
bne L2484 bne L2484
.ifdef CBM lda #TOKEN_PRINT
lda #$99
.else
lda #$97
.endif
bne L24AC bne L24AC
L2484: L2484:
cmp #$30 cmp #$30
@ -951,10 +943,8 @@ L2498:
.ifdef KBD .ifdef KBD
jsr LF42D jsr LF42D
.else .else
.ifdef CBM2 lda INPUTBUFFERX,x
lda $0200,x .ifndef CBM2
.else
lda Z00,x
cmp #$20 cmp #$20
beq L2497 beq L2497
.endif .endif
@ -982,19 +972,11 @@ L24BF:
sta DATAFLG sta DATAFLG
L24C1: L24C1:
sec sec
.ifdef CBM sbc #TOKEN_REM-':'
sbc #$55
.else
sbc #$54
.endif
bne L246C bne L246C
sta ENDCHR sta ENDCHR
L24C8: L24C8:
.ifdef CBM2 lda INPUTBUFFERX,x
lda $0200,x
.else
lda Z00,x
.endif
beq L24AC beq L24AC
cmp ENDCHR cmp ENDCHR
beq L24AC beq L24AC
@ -1012,20 +994,14 @@ L24DB:
bpl L24DB bpl L24DB
lda TOKEN_NAME_TABLE,y lda TOKEN_NAME_TABLE,y
bne L2498 bne L2498
.ifdef CBM2 lda INPUTBUFFERX,x
lda $0200,x
.else
lda Z00,x
.endif
bpl L24AA bpl L24AA
L24EA: L24EA:
sta INPUTBUFFER-3,y sta INPUTBUFFER-3,y
.ifdef CBM2_KBD .ifdef CBM2_KBD
dec TXTPTR+1 dec TXTPTR+1
lda #$FF
.else
lda #INPUTBUFFER-1
.endif .endif
lda #<INPUTBUFFER-1
sta TXTPTR sta TXTPTR
rts rts
FNDLIN: FNDLIN:
@ -1146,15 +1122,7 @@ STKINI:
.ifndef CBM2_KBD .ifndef CBM2_KBD
sta STACK+254 sta STACK+254
.endif .endif
.ifdef KBD ldx #STACK_TOP
ldx #$FE
.else
.ifdef CBM2
ldx #$FA
.else
ldx #$FC
.endif
.endif
txs txs
.ifdef CBM2_KBD .ifdef CBM2_KBD
pha pha