Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2026-01-24 01:16:14 +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
Download Patch File Download Diff File Expand all files Collapse all files

14
array.s
View File

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