Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-05-28 19:41:31 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-18 07:19:59 +00:00
parent faec141bea
commit 2380fee2e8
3 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
TODO.txt
View File

@ -5,4 +5,7 @@
* add AppleSoft comments * add AppleSoft comments
* look for all " $", i.e. (zeropage) constants, replace them * look for all " $", i.e. (zeropage) constants, replace them
with symbols with symbols
* check all .ifdef OSI; they might be .ifdef CONFIG_SMALL * check all .ifdef OSI; they might be .ifdef CONFIG_SMALL
* check for KBD whether it's CONFIG_2 && CONFIG_SMALL (float
etc.)
* there must be no platform ifdefs in generic files

14
array.s
View File

@ -185,7 +185,7 @@ MAKE_NEW_ARRAY:
tay tay
sta STRNG2+1 sta STRNG2+1
ldx #BYTES_PER_ELEMENT ldx #BYTES_PER_ELEMENT
.ifdef OSI .if .def(CONFIG_SMALL) && (!.def(CONFIG_2))
stx STRNG2 stx STRNG2
.endif .endif
lda VARNAM lda VARNAM
@ -198,12 +198,12 @@ L3078:
iny iny
lda VARNAM+1 lda VARNAM+1
sta (LOWTR),y sta (LOWTR),y
.ifndef OSI .if (!.def(CONFIG_SMALL)) || .def(CONFIG_2)
bpl L3081 bpl L3081
dex dex
.ifndef KBD .if !(.def(CONFIG_SMALL) && .def(CONFIG_2))
dex dex
.endif .endif
L3081: L3081:
stx STRNG2 stx STRNG2
.endif .endif
@ -324,7 +324,7 @@ L3124:
stx STRNG2 stx STRNG2
dec EOLPNTR dec EOLPNTR
bne L30F6 bne L30F6
.ifdef OSI .if .def(CONFIG_SMALL) && (!.def(CONFIG_2))
asl STRNG2 asl STRNG2
rol a rol a
bcs GSE bcs GSE
@ -338,7 +338,7 @@ L3124:
sta STRNG2+1 sta STRNG2+1
.endif .endif
ldx #BYTES_FP ldx #BYTES_FP
.ifdef KBD .if .def(CONFIG_SMALL) && (.def(CONFIG_2))
lda VARNAM+1 lda VARNAM+1
.else .else
lda VARNAM lda VARNAM
@ -346,7 +346,7 @@ L3124:
bpl L3135 bpl L3135
dex dex
L3135: L3135:
.ifdef KBD .ifdef .def(CONFIG_SMALL) && (.def(CONFIG_2))
stx RESULT+1 stx RESULT+1
.else .else
lda VARNAM+1 lda VARNAM+1

7
input.s
View File

@ -256,12 +256,7 @@ PROCESS_INPUT_ITEM:
ldx #<(INPUTBUFFER-1) ldx #<(INPUTBUFFER-1)
ldy #>(INPUTBUFFER-1) ldy #>(INPUTBUFFER-1)
.endif .endif
.ifndef CONFIG_NO_INPUTBUFFER_ZP .if .def(CONFIG_2) && (!.def(CONFIG_NO_INPUTBUFFER_ZP))
.ifdef CONFIG_2
__BEQ = 1
.endif
.endif
.ifdef __BEQ
beq L2AF8 ; always beq L2AF8 ; always
.else .else
bne L2AF8 ; always bne L2AF8 ; always