Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-06-24 10:29:27 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-12 20:17:43 +00:00
parent 309b714632
commit 24a4657e04
7 changed files with 34 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
defines_apple.s
View File

@ -40,18 +40,15 @@ TXPSV := $0053
INPUTBUFFER := $0200
INPUTBUFFERX := $0200
L1800 := $1800
L1873 := $1873
MONRDKEY := $FD0C
MONCOUT := $FDED
STACK_TOP := $F8
SPACE_FOR_GOSUB := $36
NUM_TOKENS := $1C
MAX_EXPON = 10
RAMSTART3 := $2A00
RAMSTART2 := $2A00
LF689 := $F689
LF800 := $F800
LF819 := $F819
@ -64,19 +61,7 @@ LFD6A := $FD6A
LFECD := $FECD
LFEFD := $FEFD
L0D28 := $AAAA
L000A := $000A
L123C := $AAAA
L2AAA := $AAAA
L2A52 := $AAAA
L2AA3 := $AAAA
L1008 := $AAAA
L2A6D := $AAAA
L2A68 := $AAAA
L0008 := $08
L0006 := $06
L1F20 := $AAAA
L000A := $0A
L00A4 := $A4
L1751 := $AAAA
L2198 := $AAAA
L13D7 := $AAAA

6
defines_cbm.s
View File

@ -94,13 +94,7 @@ STACK_TOP := $FC
SPACE_FOR_GOSUB := $3E
STACK_TOP := $FA
.endif
NUM_TOKENS := $23
NULL_MAX := $0A
.ifdef CBM1
MAX_EXPON = 12
.else
MAX_EXPON = 10
.endif
RAMSTART2 := $0400
RAMSTART3 := $0400

3
defines_kbd.s
View File

@ -52,9 +52,6 @@ SAVE := $FFF7
STACK_TOP := $FE
SPACE_FOR_GOSUB := $49
NUM_TOKENS := $1D
NULL_MAX := $0A
MAX_EXPON = 10
RAMSTART3 := $0300
CONST_MEMSIZ := $3FFF

2
defines_kim.s
View File

@ -45,7 +45,5 @@ MONCOUT := $1EA0
STACK_TOP := $FC
SPACE_FOR_GOSUB := $36
NUM_TOKENS := $1D
NULL_MAX := $F2 ; probably different in original version; the image I have seems to be modified; see PDF
MAX_EXPON = 10

3
defines_osi.s
View File

@ -40,7 +40,6 @@ RNDSEED := $00D4
L0207 := $0207
L020A := $020A
L2A13 := $2A0A
MONRDKEY := $FFEB
MONCOUT := $FFEE
MONISCNTC := $FFF1
@ -49,9 +48,7 @@ SAVE := $FFF7
STACK_TOP := $FC
SPACE_FOR_GOSUB := $33
NUM_TOKENS := $1C
NULL_MAX := $0A
MAX_EXPON = 10
RAMSTART3 := $0300
RAMSTART2 := $0300

6
macros.s
View File

@ -52,6 +52,12 @@ DUMMY_START:
keyword key, token
.endmacro
.macro count_tokens
.segment "DUMMY"
NUM_TOKENS := <(*-DUMMY_START)
.endmacro
;---------------------------------------------
; set the MSB of every byte of a string
.macro asc80 str

45
msbasic.s
View File

@ -4,38 +4,36 @@
.if .def(cbmbasic1)
CBM1 := 1
.include "defines_cbm.s" ; 6
.include "defines_cbm.s"
.elseif .def(osi)
OSI := 1
.include "defines_osi.s"; 2
.include "defines_osi.s"
.elseif .def(applesoft)
APPLE := 1
.include "defines_apple.s"; 10
.include "defines_apple.s"
.elseif .def(kb9)
KIM := 1
.include "defines_kim.s" ; 7
.include "defines_kim.s"
.elseif .def(cbmbasic2)
CBM2 := 1
.include "defines_cbm.s" ; 11
.include "defines_cbm.s"
.elseif .def(kbdbasic)
KBD := 1
.include "defines_kbd.s" ; 10
.include "defines_kbd.s"
.endif
.ifdef CONFIG_SMALL
BYTES_FP := 4
BYTES_PER_ELEMENT := 4
BYTES_PER_VARIABLE := 6
.else
BYTES_FP := 5
.ifdef APPLE
BYTES_PER_ELEMENT := 6 ; ??? should be 5 on Apple
.else
BYTES_PER_ELEMENT := 5
.endif
BYTES_PER_VARIABLE := 7
.endif
.ifdef APPLE
BYTES_PER_ELEMENT := 6 ; ???
.else
BYTES_PER_ELEMENT := BYTES_FP
.endif
MANTISSA_BYTES := BYTES_FP-1
@ -44,6 +42,13 @@ 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 "macros.s"
.include "zeropage.s"
@ -135,6 +140,8 @@ STACK := $0100
.endif
keyword_rts "NEW", NEW
count_tokens
keyword "TAB(", TOKEN_TAB
keyword "TO", TOKEN_TO
keyword "FN", TOKEN_FN
@ -7703,13 +7710,13 @@ L29E0:
jmp LFB40
.byte 0,0,0,0,0,0,0,0,0,0,0,0
L29F0:
pha ; 29F0 48 H
ldx #$01 ; 29F1 A2 01 ..
inc $B9 ; 29F3 E6 B9 ..
bne L29F9 ; 29F5 D0 02 ..
inc $BA ; 29F7 E6 BA ..
pha
ldx #$01
inc $B9
bne L29F9
inc $BA
L29F9:
jmp L291E ; 29F9 4C 1E 29 L.)
jmp L291E
.byte $00,$00,$00,$00,$41,$53,$21,$D2
.byte $02,$FA,$00
lda $12