msbasic/defines.s

94 lines
1.4 KiB
ArmAsm
Raw Normal View History

2008-10-13 03:10:48 +00:00
.if .def(cbmbasic1)
CBM1 := 1
2008-10-18 21:14:22 +00:00
.include "defines_cbm1.s"
2008-10-13 03:10:48 +00:00
.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
2008-10-18 21:14:22 +00:00
.include "defines_cbm2.s"
2008-10-13 03:10:48 +00:00
.elseif .def(kbdbasic)
KBD := 1
.include "defines_kbd.s"
2008-10-13 20:26:42 +00:00
.elseif .def(microtan)
MICROTAN := 1
.include "defines_microtan.s"
2014-02-14 06:40:56 +00:00
.elseif .def(aim65)
AIM65 := 1
.include "defines_aim65.s"
2014-02-15 02:46:36 +00:00
.elseif .def(sym1)
SYM1 := 1
.include "defines_sym1.s"
2008-10-13 03:10:48 +00:00
.endif
2008-10-18 07:07:17 +00:00
.ifdef CONFIG_2C
CONFIG_2B := 1
.endif
.ifdef CONFIG_2B
CONFIG_2A := 1
.endif
.ifdef CONFIG_2A
CONFIG_2 := 1
.endif
.ifdef CONFIG_2
CONFIG_11A := 1
.endif
.ifdef CONFIG_11A
CONFIG_11 := 1
.endif
.ifdef CONFIG_11
CONFIG_10A := 1
.endif
2008-10-13 03:10:48 +00:00
.ifdef CONFIG_SMALL
BYTES_FP := 4
2014-02-14 06:40:56 +00:00
CONFIG_SMALL_ERROR := 1
2008-10-13 03:10:48 +00:00
.else
BYTES_FP := 5
.endif
2008-10-18 05:51:54 +00:00
.ifndef BYTES_PER_ELEMENT
2008-10-13 03:10:48 +00:00
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
2008-10-18 05:51:54 +00:00
.ifndef MAX_EXPON
2008-10-13 03:10:48 +00:00
MAX_EXPON = 10
.endif
STACK := $0100
2014-02-14 06:40:56 +00:00
.ifndef STACK2
STACK2 := STACK
.endif
2008-10-17 05:27:27 +00:00
2008-10-18 05:47:58 +00:00
.ifdef INPUTBUFFER
.if INPUTBUFFER >= $0100
CONFIG_NO_INPUTBUFFER_ZP := 1
.endif
.if INPUTBUFFER = $0200
CONFIG_INPUTBUFFER_0200 := 1
.endif
.endif
INPUTBUFFERX = INPUTBUFFER & $FF00
2008-10-17 05:27:27 +00:00
CR=13
LF=10
2008-10-18 05:47:58 +00:00
.ifndef CRLF_1
CRLF_1 := CR
CRLF_2 := LF
.endif