mirror of
https://github.com/mist64/msbasic.git
synced 2024-06-28 11:29:38 +00:00
cleanup
This commit is contained in:
parent
babaa8be94
commit
4574fd1983
1
TODO.txt
1
TODO.txt
|
@ -1,4 +1,3 @@
|
||||||
* split into files
|
|
||||||
* use linker magic to compile files separately
|
* use linker magic to compile files separately
|
||||||
* convert messy init code into completely different
|
* convert messy init code into completely different
|
||||||
files without ifdefs (not much in common!)
|
files without ifdefs (not much in common!)
|
||||||
|
|
44
defines.s
Normal file
44
defines.s
Normal file
|
@ -0,0 +1,44 @@
|
||||||
|
.if .def(cbmbasic1)
|
||||||
|
CBM1 := 1
|
||||||
|
.include "defines_cbm.s"
|
||||||
|
.elseif .def(osi)
|
||||||
|
OSI := 1
|
||||||
|
.include "defines_osi.s"
|
||||||
|
.elseif .def(applesoft)
|
||||||
|
APPLE := 1
|
||||||
|
.include "defines_apple.s"
|
||||||
|
.elseif .def(kb9)
|
||||||
|
KIM := 1
|
||||||
|
.include "defines_kim.s"
|
||||||
|
.elseif .def(cbmbasic2)
|
||||||
|
CBM2 := 1
|
||||||
|
.include "defines_cbm.s"
|
||||||
|
.elseif .def(kbdbasic)
|
||||||
|
KBD := 1
|
||||||
|
.include "defines_kbd.s"
|
||||||
|
.endif
|
||||||
|
|
||||||
|
.ifdef CONFIG_SMALL
|
||||||
|
BYTES_FP := 4
|
||||||
|
.else
|
||||||
|
BYTES_FP := 5
|
||||||
|
.endif
|
||||||
|
|
||||||
|
.ifdef APPLE
|
||||||
|
BYTES_PER_ELEMENT := 6 ; ???
|
||||||
|
.else
|
||||||
|
BYTES_PER_ELEMENT := BYTES_FP
|
||||||
|
.endif
|
||||||
|
BYTES_PER_VARIABLE := BYTES_FP+2
|
||||||
|
MANTISSA_BYTES := BYTES_FP-1
|
||||||
|
BYTES_PER_FRAME := 2*BYTES_FP+8
|
||||||
|
FOR_STACK1 := 2*BYTES_FP+5
|
||||||
|
FOR_STACK2 := BYTES_FP+4
|
||||||
|
|
||||||
|
.ifdef CBM1
|
||||||
|
MAX_EXPON = 12
|
||||||
|
.else
|
||||||
|
MAX_EXPON = 10
|
||||||
|
.endif
|
||||||
|
|
||||||
|
STACK := $0100
|
5
header.s
Normal file
5
header.s
Normal file
|
@ -0,0 +1,5 @@
|
||||||
|
.segment "HEADER"
|
||||||
|
.ifdef KBD
|
||||||
|
jmp LE68C
|
||||||
|
.byte $00,$13,$56
|
||||||
|
.endif
|
78
msbasic.s
78
msbasic.s
|
@ -2,104 +2,34 @@
|
||||||
|
|
||||||
.debuginfo +
|
.debuginfo +
|
||||||
|
|
||||||
.if .def(cbmbasic1)
|
.setcpu "6502"
|
||||||
CBM1 := 1
|
.macpack longbranch
|
||||||
.include "defines_cbm.s"
|
|
||||||
.elseif .def(osi)
|
|
||||||
OSI := 1
|
|
||||||
.include "defines_osi.s"
|
|
||||||
.elseif .def(applesoft)
|
|
||||||
APPLE := 1
|
|
||||||
.include "defines_apple.s"
|
|
||||||
.elseif .def(kb9)
|
|
||||||
KIM := 1
|
|
||||||
.include "defines_kim.s"
|
|
||||||
.elseif .def(cbmbasic2)
|
|
||||||
CBM2 := 1
|
|
||||||
.include "defines_cbm.s"
|
|
||||||
.elseif .def(kbdbasic)
|
|
||||||
KBD := 1
|
|
||||||
.include "defines_kbd.s"
|
|
||||||
.endif
|
|
||||||
|
|
||||||
.ifdef CONFIG_SMALL
|
|
||||||
BYTES_FP := 4
|
|
||||||
.else
|
|
||||||
BYTES_FP := 5
|
|
||||||
.endif
|
|
||||||
|
|
||||||
.ifdef APPLE
|
|
||||||
BYTES_PER_ELEMENT := 6 ; ???
|
|
||||||
.else
|
|
||||||
BYTES_PER_ELEMENT := BYTES_FP
|
|
||||||
.endif
|
|
||||||
BYTES_PER_VARIABLE := BYTES_FP+2
|
|
||||||
MANTISSA_BYTES := BYTES_FP-1
|
|
||||||
BYTES_PER_FRAME := 2*BYTES_FP+8
|
|
||||||
FOR_STACK1 := 2*BYTES_FP+5
|
|
||||||
FOR_STACK2 := BYTES_FP+4
|
|
||||||
|
|
||||||
.ifdef CBM1
|
|
||||||
MAX_EXPON = 12
|
|
||||||
.else
|
|
||||||
MAX_EXPON = 10
|
|
||||||
.endif
|
|
||||||
|
|
||||||
|
|
||||||
|
.include "defines.s"
|
||||||
.include "macros.s"
|
.include "macros.s"
|
||||||
.include "zeropage.s"
|
.include "zeropage.s"
|
||||||
|
|
||||||
.setcpu "6502"
|
.include "header.s"
|
||||||
.macpack longbranch
|
|
||||||
|
|
||||||
STACK := $0100
|
|
||||||
|
|
||||||
.segment "HEADER"
|
|
||||||
.ifdef KBD
|
|
||||||
jmp LE68C
|
|
||||||
.byte $00,$13,$56
|
|
||||||
.endif
|
|
||||||
|
|
||||||
.include "token.s"
|
.include "token.s"
|
||||||
|
|
||||||
.include "error.s"
|
.include "error.s"
|
||||||
|
|
||||||
.include "message.s"
|
.include "message.s"
|
||||||
|
|
||||||
.include "memory.s"
|
.include "memory.s"
|
||||||
|
|
||||||
.include "program.s"
|
.include "program.s"
|
||||||
|
|
||||||
.include "flow.s"
|
.include "flow.s"
|
||||||
|
|
||||||
.include "misc1.s"
|
.include "misc1.s"
|
||||||
|
|
||||||
.include "print.s"
|
.include "print.s"
|
||||||
|
|
||||||
.include "input.s"
|
.include "input.s"
|
||||||
|
|
||||||
.include "eval.s"
|
.include "eval.s"
|
||||||
|
|
||||||
.include "var.s"
|
.include "var.s"
|
||||||
|
|
||||||
.include "array.s"
|
.include "array.s"
|
||||||
|
|
||||||
.include "misc2.s"
|
.include "misc2.s"
|
||||||
|
|
||||||
.include "string.s"
|
.include "string.s"
|
||||||
|
|
||||||
.include "misc3.s"
|
.include "misc3.s"
|
||||||
|
|
||||||
.ifndef KBD
|
.ifndef KBD
|
||||||
.include "poke.s"
|
.include "poke.s"
|
||||||
.endif
|
.endif
|
||||||
|
|
||||||
.include "float.s"
|
.include "float.s"
|
||||||
|
|
||||||
.include "chrget.s"
|
.include "chrget.s"
|
||||||
|
|
||||||
.include "rnd.s"
|
.include "rnd.s"
|
||||||
|
|
||||||
.include "trig.s"
|
.include "trig.s"
|
||||||
|
|
||||||
.include "init.s"
|
.include "init.s"
|
||||||
|
|
|
@ -118,3 +118,5 @@ TXTPTR = <(GENERIC_TXTPTR-GENERIC_CHRGET + CHRGET)
|
||||||
L00CF:
|
L00CF:
|
||||||
RNDSEED = <(GENERIC_RNDSEED-GENERIC_CHRGET + CHRGET)
|
RNDSEED = <(GENERIC_RNDSEED-GENERIC_CHRGET + CHRGET)
|
||||||
.endif
|
.endif
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user