Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-06-04 02:29:28 +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
LOWTRX = LOWTR
Z00 := $0000
GORESTART := $0000
L0001 := $000B
GOWARM := $0003
GOSTROUT := $0003
GOAYINT := $0006
GOGIVEAYF := $0008

8
defines_cbm.s
View File

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

3
defines_kbd.s
View File

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

4
defines_kim.s
View File

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

4
defines_microtan.s
View File

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

4
defines_osi.s
View File

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

26
init.s
View File

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

2
kbd_extra.s
View File

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

14
program.s
View File

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