Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-06-04 17:29:32 +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 ; extra ZP variables
CURDVC := $0003 CURDVC := $0003
TISTR := $0200
Z96 := $020C Z96 := $020C
USR := GORESTART USR := GORESTART

1
defines_cbm2.s
View File

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

12
microtan_loadsave.s
View File

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

24
misc1.s
View File

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

4
misc3.s
View File

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