Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-12-21 01:30:42 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-19 06:20:10 +00:00
parent 82c75e263f
commit 7940f2612e
5 changed files with 19 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
defines_cbm1.s
View File

@ -42,6 +42,7 @@ ZP_START4 = $65
; extra ZP variables
CURDVC := $0003
TISTR := $0200
Z96 := $020C
USR := GORESTART

1
defines_cbm2.s
View File

@ -20,6 +20,7 @@ ZP_START4 = $13
; extra/override ZP variables
CURDVC := $000E
TISTR := $008D
Z96 := $0096
POSX := $00C6
TXPSV := LASTOP

12
microtan_loadsave.s
View File

@ -14,8 +14,8 @@ LC74F:
bpl LC74F
ldx #$03
LC757:
lda $9A,x
sta $1C,x
lda TXTTAB,x
sta GOSTROUT+2,x
dex
bpl LC757
jmp LE219
@ -49,9 +49,9 @@ LOAD:
lda #$4B
jsr LFE75
jsr LFE73
lda $9C
lda VARTAB
tax
ldy $9D
ldy VARTAB+1
jmp FIX_LINKS
nop
LC7A5:
@ -70,6 +70,6 @@ LC7AD:
pla
rts
inc $8A17
stx $9C
sty $9D
stx VARTAB
sty VARTAB+1
jmp FIX_LINKS

24
misc1.s
View File

@ -102,21 +102,19 @@ LETSTRING:
PUTSTR:
.ifdef CONFIG_CBM_ALL
ldy FORPNT+1
.ifdef CBM1
cpy #$D0
.else
.ifdef CBM1
cpy #$D0 ; TI$
.else
cpy #$DE
.endif
.endif
bne LC92B
jsr FREFAC
cmp #$06
.ifdef CBM2
.ifdef CBM2
bne IQERR1
.else
beq LC8E2
jmp IQERR
LC8E2:
.endif
.else
jne IQERR
.endif
ldy #$00
sty FAC
sty FACSIGN
@ -144,11 +142,7 @@ LC902:
sei
LC912:
lda FAC+2,x
.ifdef CBM2
sta $8D,x
.else
sta $0200,x
.endif
sta TISTR,x
dex
bpl LC912
cli

4
misc3.s
View File

@ -59,10 +59,10 @@ LF45B:
iny
lda (JMPADRS+1),y
dey
cmp $14
cmp LINNUM+1
bne LF472
lda (JMPADRS+1),y
cmp $13
cmp LINNUM
LF472:
bcs LF43A
dey