Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2025-05-13 17:38:12 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-16 07:12:27 +00:00
parent 453fef0e3a
commit 1cb253d099
9 changed files with 34 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
defines_apple.s
View File

@ -21,9 +21,9 @@ ZP_START = $55
JMPADRS = DSCLEN + 1 JMPADRS = DSCLEN + 1
LOWTRX = LOWTR LOWTRX = LOWTR
Z00 := $0000 GORESTART := $0000
L0001 := $000B L0001 := $000B
GOWARM := $0003 GOSTROUT := $0003
GOAYINT := $0006 GOAYINT := $0006
GOGIVEAYF := $0008 GOGIVEAYF := $0008

8
defines_cbm.s
View File

@ -40,11 +40,11 @@ JMPADRS = DSCLEN + 1
LOWTRX = LOWTR LOWTRX = LOWTR
USR := $0000 USR := $0000
Z00 := $0000 GORESTART := $0000
INPUTBUFFERX := $0000 INPUTBUFFERX := $0000
L0001 := $0001 L0001 := $0001
L0002 := $0002 L0002 := $0002
GOWARM := $0003 GOSTROUT := $0003
Z03 := $0003 ; same Z03 := $0003 ; same
GOAYINT := $0006 GOAYINT := $0006
GOGIVEAYF := $0008 GOGIVEAYF := $0008
@ -76,10 +76,10 @@ JMPADRS = DSCLEN + 1
LOWTRX = LOWTR LOWTRX = LOWTR
USR := $0000 USR := $0000
Z00 := $0000 GORESTART := $0000
L0001 := $0001 L0001 := $0001
L0002 := $0002 L0002 := $0002
GOWARM := $0003 GOSTROUT := $0003
Z15 := $0004 Z15 := $0004
CHARAC := $005A-82-5 CHARAC := $005A-82-5
ENDCHR := $005B-82-5 ENDCHR := $005B-82-5

3
defines_kbd.s
View File

@ -15,10 +15,9 @@ CRLF_2 := $0D
ZP_START = $15 ZP_START = $15
Z00 := $0700
L0001 := $0001 L0001 := $0001
L0002 := $0002 L0002 := $0002
GOWARM := $0003 GOSTROUT := $0003
GOAYINT := $0006 GOAYINT := $0006
GOGIVEAYF := $0008 GOGIVEAYF := $0008

4
defines_kim.s
View File

@ -17,10 +17,10 @@ ZP_START = $63
JMPADRS = DSCLEN + 1 JMPADRS = DSCLEN + 1
LOWTRX = LOWTR LOWTRX = LOWTR
Z00 := $0000 GORESTART := $0000
L0001 := $0001 L0001 := $0001
L0002 := $0002 L0002 := $0002
GOWARM := $0003 GOSTROUT := $0003
GOAYINT := $0006 GOAYINT := $0006
GOGIVEAYF := $0008 GOGIVEAYF := $0008

4
defines_microtan.s
View File

@ -23,10 +23,10 @@ ZP_START = $85
JMPADRS = DSCLEN + 1 JMPADRS = DSCLEN + 1
LOWTRX = LOWTR LOWTRX = LOWTR
Z00 := $0017 GORESTART := $0017
L0001 := $0001 L0001 := $0001
L0002 := $0002 L0002 := $0002
GOWARM := $001A GOSTROUT := $001A
GOAYINT := $001D GOAYINT := $001D
GOGIVEAYF := $001F GOGIVEAYF := $001F

4
defines_osi.s
View File

@ -13,10 +13,10 @@ ZP_START = $65
JMPADRS = DSCLEN + 1 JMPADRS = DSCLEN + 1
LOWTRX = LOWTR LOWTRX = LOWTR
Z00 := $0000 GORESTART := $0000
L0001 := $0001 L0001 := $0001
L0002 := $0002 L0002 := $0002
GOWARM := $0003 GOSTROUT := $0003
GOAYINT := $0006 GOAYINT := $0006
GOGIVEAYF := $0008 GOGIVEAYF := $0008

26
init.s
View File

@ -37,10 +37,10 @@ COLD_START2:
.ifndef CONFIG_CBM_ALL .ifndef CONFIG_CBM_ALL
lda #<COLD_START2 lda #<COLD_START2
ldy #>COLD_START2 ldy #>COLD_START2
sta Z00+1 sta GORESTART+1
sty Z00+2 sty GORESTART+2
sta GOWARM+1 sta GOSTROUT+1
sty GOWARM+2 sty GOSTROUT+2
lda #<AYINT lda #<AYINT
ldy #>AYINT ldy #>AYINT
sta GOAYINT sta GOAYINT
@ -53,10 +53,10 @@ COLD_START2:
lda #$4C lda #$4C
.ifdef CONFIG_CBM_ALL .ifdef CONFIG_CBM_ALL
sta JMPADRS sta JMPADRS
sta Z00 .endif
.else sta GORESTART
sta Z00 .ifndef CONFIG_CBM_ALL
sta GOWARM sta GOSTROUT
sta JMPADRS sta JMPADRS
.endif .endif
.ifdef APPLE .ifdef APPLE
@ -358,16 +358,16 @@ L4192:
.else .else
lda #<STROUT lda #<STROUT
ldy #>STROUT ldy #>STROUT
sta GOWARM+1 sta GOSTROUT+1
sty GOWARM+2 sty GOSTROUT+2
.if CONFIG_SCRTCH_ORDER = 3 .if CONFIG_SCRTCH_ORDER = 3
jsr SCRTCH jsr SCRTCH
.endif .endif
lda #<RESTART lda #<RESTART
ldy #>RESTART ldy #>RESTART
sta Z00+1 sta GORESTART+1
sty Z00+2 sty GORESTART+2
jmp (Z00+1) jmp (GORESTART+1)
.endif .endif
.if .def(KIM) || .def(OSI) .if .def(KIM) || .def(OSI)

2
kbd_extra.s
View File

@ -39,7 +39,7 @@ LFDDD:
sbc #$09 sbc #$09
bne LFDDD bne LFDDD
LFDEC: LFDEC:
sta Z00,y sta INPUTBUFFER,y
tax tax
bne LFDDC bne LFDDC
jsr LE882 jsr LE882

14
program.s
View File

@ -31,9 +31,9 @@ L2329:
jsr OUTDO jsr OUTDO
.ifdef CONFIG_SMALL .ifdef CONFIG_SMALL
lda ERROR_MESSAGES+1,x lda ERROR_MESSAGES+1,x
.ifdef KBD .ifdef KBD
and #$7F and #$7F
.endif .endif
jsr OUTDO jsr OUTDO
.else .else
inx inx
@ -73,11 +73,11 @@ LE28E:
lsr Z14 lsr Z14
lda #<QT_OK lda #<QT_OK
ldy #>QT_OK ldy #>QT_OK
.ifdef CONFIG_CBM_ALL .ifdef CONFIG_CBM_ALL
jsr STROUT jsr STROUT
.else .else
jsr GOWARM jsr GOSTROUT
.endif .endif
L2351: L2351:
jsr INLIN jsr INLIN
.endif .endif
@ -149,7 +149,7 @@ LE2EE:
LE2FD: LE2FD:
jsr SETPTRS jsr SETPTRS
jsr LE33D jsr LE33D
lda Z00 lda INPUTBUFFER
LE306: LE306:
beq LE28E beq LE28E
cmp #$A5 cmp #$A5