mirror of
https://github.com/mist64/msbasic.git
synced 2024-09-21 10:37:25 +00:00
cleanup
This commit is contained in:
parent
56fb87ea81
commit
c4d2e91ca4
@ -17,9 +17,8 @@ ZP_START2 = $55
|
|||||||
;extra ZP variables
|
;extra ZP variables
|
||||||
USR := $000A
|
USR := $000A
|
||||||
|
|
||||||
|
; inputbuffer
|
||||||
INPUTBUFFER := $0200
|
INPUTBUFFER := $0200
|
||||||
|
|
||||||
CONFIG_NO_INPUTBUFFER_ZP := 1
|
CONFIG_NO_INPUTBUFFER_ZP := 1
|
||||||
CONFIG_INPUTBUFFER_0200 := 1
|
CONFIG_INPUTBUFFER_0200 := 1
|
||||||
|
|
||||||
|
@ -34,11 +34,9 @@ ZP_START0A = $04
|
|||||||
ZP_START1 = $5A
|
ZP_START1 = $5A
|
||||||
ZP_START2 = $65
|
ZP_START2 = $65
|
||||||
|
|
||||||
;extra ZP variables
|
; extra ZP variables
|
||||||
Z03 := $0003
|
Z03 := $0003
|
||||||
Z96 := $020C
|
Z96 := $020C
|
||||||
|
|
||||||
; overlay ZP variables
|
|
||||||
USR := GORESTART
|
USR := GORESTART
|
||||||
|
|
||||||
.else
|
.else
|
||||||
@ -49,19 +47,15 @@ ZP_START0A = $0E
|
|||||||
ZP_START1 = $03
|
ZP_START1 = $03
|
||||||
ZP_START2 = $13
|
ZP_START2 = $13
|
||||||
|
|
||||||
;extra ZP variables
|
; extra/override ZP variables
|
||||||
Z03 := $000E
|
Z03 := $000E
|
||||||
Z96 := $0096
|
Z96 := $0096
|
||||||
|
POSX := $00C6
|
||||||
; overlay ZP variables
|
|
||||||
TXPSV := LASTOP
|
TXPSV := LASTOP
|
||||||
USR := GORESTART ; XXX
|
USR := GORESTART ; XXX
|
||||||
|
|
||||||
; override ZP variables
|
; inputbuffer
|
||||||
POSX := $00C6
|
|
||||||
|
|
||||||
INPUTBUFFER := $0200
|
INPUTBUFFER := $0200
|
||||||
|
|
||||||
CONFIG_NO_INPUTBUFFER_ZP := 1
|
CONFIG_NO_INPUTBUFFER_ZP := 1
|
||||||
CONFIG_INPUTBUFFER_0200 := 1
|
CONFIG_INPUTBUFFER_0200 := 1
|
||||||
|
|
||||||
@ -81,6 +75,12 @@ CRLF_2 := LF
|
|||||||
|
|
||||||
RAMSTART2 := $0400
|
RAMSTART2 := $0400
|
||||||
|
|
||||||
|
; magic memory locations
|
||||||
|
.ifdef CBM1
|
||||||
|
ENTROPY = $9044
|
||||||
|
.else
|
||||||
|
ENTROPY = $E844
|
||||||
|
.endif
|
||||||
|
|
||||||
; monitor functions
|
; monitor functions
|
||||||
OPEN := $FFC0
|
OPEN := $FFC0
|
||||||
@ -100,11 +100,3 @@ CLALL := $FFE7
|
|||||||
LE7F3 := $E7F3; for CBM1
|
LE7F3 := $E7F3; for CBM1
|
||||||
MONCOUT := CHROUT
|
MONCOUT := CHROUT
|
||||||
MONRDKEY := GETIN
|
MONRDKEY := GETIN
|
||||||
|
|
||||||
|
|
||||||
.ifdef CBM1
|
|
||||||
ENTROPY = $9044
|
|
||||||
.else
|
|
||||||
ENTROPY = $E844
|
|
||||||
.endif
|
|
||||||
|
|
||||||
|
@ -18,30 +18,28 @@ ZP_START0A = $0F
|
|||||||
ZP_START1 = $06
|
ZP_START1 = $06
|
||||||
ZP_START2 = $15
|
ZP_START2 = $15
|
||||||
|
|
||||||
;extra ZP variables
|
; extra/override ZP variables
|
||||||
TXPSV := $0049
|
TXPSV := $0049
|
||||||
JMPADRS := $0093
|
JMPADRS := $0093
|
||||||
LOWTRX := $0094 ; $AB also EXPSGN?
|
LOWTRX := $0094 ; $AB also EXPSGN?
|
||||||
Z96 := $0096
|
Z96 := $0096
|
||||||
|
|
||||||
; override ZP variables
|
|
||||||
Z17 := $06FC
|
Z17 := $06FC
|
||||||
Z18 := $06FD
|
Z18 := $06FD
|
||||||
|
|
||||||
|
; inputbuffer
|
||||||
INPUTBUFFER := $0700
|
INPUTBUFFER := $0700
|
||||||
|
|
||||||
CONFIG_NO_INPUTBUFFER_ZP := 1
|
CONFIG_NO_INPUTBUFFER_ZP := 1
|
||||||
|
|
||||||
; magic memory locations
|
|
||||||
L06FE := $06FE
|
|
||||||
L6874 := $6874
|
|
||||||
|
|
||||||
; constants
|
; constants
|
||||||
STACK_TOP := $FE
|
STACK_TOP := $FE
|
||||||
SPACE_FOR_GOSUB := $49
|
SPACE_FOR_GOSUB := $49
|
||||||
CRLF_1 := LF
|
CRLF_1 := LF
|
||||||
CRLF_2 := CR
|
CRLF_2 := CR
|
||||||
|
|
||||||
|
; magic memory locations
|
||||||
|
L06FE := $06FE
|
||||||
|
L6874 := $6874
|
||||||
|
|
||||||
; memory layout
|
; memory layout
|
||||||
RAMSTART2 := $0300
|
RAMSTART2 := $0300
|
||||||
CONST_MEMSIZ := $3FFF
|
CONST_MEMSIZ := $3FFF
|
||||||
|
@ -15,6 +15,13 @@ ZP_START0A = $15
|
|||||||
ZP_START1 = $0A
|
ZP_START1 = $0A
|
||||||
ZP_START2 = $63
|
ZP_START2 = $63
|
||||||
|
|
||||||
|
; constants
|
||||||
|
STACK_TOP := $FC
|
||||||
|
SPACE_FOR_GOSUB := $36
|
||||||
|
NULL_MAX := $F2 ; probably different in original version; the image I have seems to be modified; see PDF
|
||||||
|
CRLF_1 := CR
|
||||||
|
CRLF_2 := LF
|
||||||
|
|
||||||
; magic memory locations
|
; magic memory locations
|
||||||
L1800 := $1800
|
L1800 := $1800
|
||||||
L1873 := $1873
|
L1873 := $1873
|
||||||
@ -23,10 +30,3 @@ L1873 := $1873
|
|||||||
MONRDKEY := $1E5A
|
MONRDKEY := $1E5A
|
||||||
MONCOUT := $1EA0
|
MONCOUT := $1EA0
|
||||||
|
|
||||||
; constants
|
|
||||||
STACK_TOP := $FC
|
|
||||||
SPACE_FOR_GOSUB := $36
|
|
||||||
NULL_MAX := $F2 ; probably different in original version; the image I have seems to be modified; see PDF
|
|
||||||
CRLF_1 := CR
|
|
||||||
CRLF_2 := LF
|
|
||||||
|
|
||||||
|
26
zeropage.s
26
zeropage.s
@ -3,15 +3,6 @@
|
|||||||
INPUTBUFFERX = INPUTBUFFER & $FF00
|
INPUTBUFFERX = INPUTBUFFER & $FF00
|
||||||
|
|
||||||
; overlay ZP variables, can be overridden
|
; overlay ZP variables, can be overridden
|
||||||
.ifndef JMPADRS
|
|
||||||
JMPADRS := DSCLEN + 1
|
|
||||||
.endif
|
|
||||||
.ifndef LOWTRX
|
|
||||||
LOWTRX := LOWTR
|
|
||||||
.endif
|
|
||||||
.ifndef TXPSV
|
|
||||||
TXPSV := LINNUM
|
|
||||||
.endif
|
|
||||||
|
|
||||||
|
|
||||||
.feature org_per_seg
|
.feature org_per_seg
|
||||||
@ -31,21 +22,24 @@ GOGIVEAYF:
|
|||||||
.org ZP_START0A
|
.org ZP_START0A
|
||||||
Z15:
|
Z15:
|
||||||
.res 1
|
.res 1
|
||||||
.ifndef POSX
|
.ifndef POSX; allow override
|
||||||
POSX:
|
POSX:
|
||||||
.res 1
|
.res 1
|
||||||
.endif
|
.endif
|
||||||
.ifndef Z17
|
.ifndef Z17; allow override
|
||||||
Z17:
|
Z17:
|
||||||
.endif
|
.endif
|
||||||
.res 1
|
.res 1
|
||||||
.ifndef Z18
|
.ifndef Z18; allow override
|
||||||
Z18:
|
Z18:
|
||||||
.endif
|
.endif
|
||||||
.res 1
|
.res 1
|
||||||
LINNUM:
|
LINNUM:
|
||||||
|
.ifndef TXPSV; allow override
|
||||||
|
TXPSV:
|
||||||
|
.endif
|
||||||
.res 2
|
.res 2
|
||||||
.ifndef INPUTBUFFER
|
.ifndef INPUTBUFFER; allow override
|
||||||
INPUTBUFFER:
|
INPUTBUFFER:
|
||||||
.endif
|
.endif
|
||||||
|
|
||||||
@ -140,6 +134,9 @@ DSCPTR:
|
|||||||
.endif
|
.endif
|
||||||
DSCLEN:
|
DSCLEN:
|
||||||
.res 2
|
.res 2
|
||||||
|
.ifndef JMPADRS ; allow override
|
||||||
|
JMPADRS := DSCLEN + 1
|
||||||
|
.endif
|
||||||
Z52:
|
Z52:
|
||||||
.res 1
|
.res 1
|
||||||
ARGEXTENSION:
|
ARGEXTENSION:
|
||||||
@ -165,6 +162,9 @@ TEMP2:
|
|||||||
EXPON:
|
EXPON:
|
||||||
.res 1
|
.res 1
|
||||||
LOWTR:
|
LOWTR:
|
||||||
|
.ifndef LOWTRX ; allow override
|
||||||
|
LOWTRX:
|
||||||
|
.endif
|
||||||
.res 1
|
.res 1
|
||||||
EXPSGN:
|
EXPSGN:
|
||||||
.res 1
|
.res 1
|
||||||
|
Loading…
Reference in New Issue
Block a user