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

CONFIG_SMALL uses zero page now

Browse Source
This commit is contained in:
Michael Steil 2008-10-12 05:15:18 +00:00
parent 091f190852
commit c75db6a559
6 changed files with 148 additions and 292 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
defines_apple.s
View File

@ -23,64 +23,6 @@ LINNUM := $0053
TXPSV := $0053
INPUTBUFFER := $0200
INPUTBUFFERX := $0200
;TEMPPT := $0063-14
;LASTPT := $0064-14
;TEMPST := $58
;INDEX := $0061
;DEST := $0071-14
;RESULT := $0073-14
;RESULT_LAST := $0077-14
;TXTTAB := $0078-14
;VARTAB := $007A-14
;ARYTAB := $007C-14
;STREND := $007E-14
;FRETOP := $0080-14
;FRESPC := $0082-14
;MEMSIZ := $0084-14
;CURLIN := $0086-14
;OLDLIN := $0088-14
;OLDTEXT := $008A-14
;Z8C := $008C-14
;DATPTR := $008E-14
;INPTR := $0090-14
;VARNAM := $0092-14
;VARPNT := $0094-14
;FORPNT := $0096-14
;LASTOP := $0098-14
;CPRTYP := $009A-14
;FNCNAM := $009B-14
;TEMP3 := $009B-14 ; same
;DSCPTR := $009D-14
;DSCLEN := $00A0-14
;JMPADRS := $00A1-14
;Z52 := $00A2-14
;LENGTH := $00A2-14
;ARGEXTENSION := $00A3-14 ; overlap with JMPADRS! (same on c64)
;TEMP1 := $00A4-14
;HIGHDS := $00A5-14
;HIGHTR := $00A7-14
;TEMP2 := $00A9-14
;INDX := $00AA-14
;TMPEXP := $00AA-14 ; same
;EXPON := $00AB-14
;LOWTR := $00AC-14 ; $9D also EXPSGN
;LOWTRX := $00AC-14 ; $9D also EXPSGN
;EXPSGN := $00AD-14
;FAC := $00AE-14
;FAC_LAST := $00B2-14
;FACSIGN := $00B3-14
;SERLEN := $00B4-14
;SHIFTSIGNEXT := $00B5-14
;ARG := $00B6-14
;ARG_LAST := $00BA-14
;ARGSIGN := $00BB-14
;STRNG1 := $00BC-14 ; TODO: also SGNCPR
;FACEXTENSION := $00BD-14
;STRNG2 := $00BE-14
;CHRGET := $00C0-14
;CHRGOT := $00C6-14
;TXTPTR := $00C7-14
;RNDSEED := $00D8-14
L1800 := $1800
L1873 := $1873

59
defines_cbm.s
View File

@ -27,65 +27,6 @@ SUBFLG := $0061
INPUTFLG := $0062
CPRMASK := $0063
Z14 := $0064 ; Ctrl+O flag
;TEMPPT := $0065
;LASTPT := $0066
;TEMPST := $0068
;INDEX := $0071
;DEST := $0073
;RESULT := $0075
;RESULT_LAST := $0079
;TXTTAB := $007A
;VARTAB := $007C
;ARYTAB := $007E
;STREND := $0080
;FRETOP := $0082
;FRESPC := $0084
;MEMSIZ := $0086
;CURLIN := $0088
;OLDLIN := $008A
;OLDTEXT := $008C
;Z8C := $008E
;DATPTR := $0090
;INPTR := $0092
;VARNAM := $0094
;VARPNT := $0096
;FORPNT := $0098
;LASTOP := $009A
;CPRTYP := $009C
;FNCNAM := $009D
;TEMP3 := $009D; ; same
;DSCPTR := $009F
;DSCLEN := $00A2
;JMPADRS := $00A3
;Z52 := $00A4;
;LENGTH := $00A4
;ARGEXTENSION := $00A5 ; overlap with JMPADRS! (same on c64)
;TEMP1 := $00A6
;HIGHDS := $00A7
;HIGHTR := $00A9
;TEMP2 := $00AB
;INDX := $00AC
;TMPEXP := $00AC ; same
;EXPON := $00AD
;LOWTR := $00AE ; $9D also EXPSGN
;LOWTRX := $00AE ; $9D also EXPSGN
;EXPSGN := $00AF
;FAC := $00B0
;FAC_LAST := $00B4
;FACSIGN := $00B5
;SERLEN := $00B6
;SHIFTSIGNEXT := $00B7
;ARG := $00B8
;ARG_LAST := $00BC
;ARGSIGN := $00BD
;STRNG1 := $00BE ; TODO: also SGNCPR
;FACEXTENSION := $00BF
;STRNG2 := $00C0
;CHRGET := $00C2
;CHRGOT := $00C8
;TXTPTR := $00C9
;L00CF := $00CF
;RNDSEED := $00DA
Z96 := $020C
.else
USR := $0000

111
defines_kbd.s
View File

@ -24,67 +24,66 @@ SUBFLG := $000C;61
INPUTFLG := $000D;62
CPRMASK := $000E;63
Z14 := $000F;64 ; Ctrl+O flag
TEMPPT := $0015;65
LASTPT := $0016;;66
TEMPST := $0018;68
INDEX := $0021;71
DEST := $0023;73
RESULT := $0025;75
RESULT_LAST := $0028;78
TXTTAB := $0029;79
VARTAB := $002B;7B
ARYTAB := $002D;7D
STREND := $002F;7F
FRETOP := $0031;81
FRESPC := $0033;83
MEMSIZ := $0035;;85
CURLIN := $0037;87
OLDLIN := $0039;89
OLDTEXT := $003B;8B
Z8C := $003D;8D
DATPTR := $003F;8F
INPTR := $0041;91
VARNAM := $0043;93
VARPNT := $0045;95
FORPNT := $0047;97
LASTOP := $0049;99
CPRTYP := $004B;9B
FNCNAM := $004C;9C
TEMP3 := $004C;;9C ; same
DSCPTR := $004E;9E
DSCLEN := $0050;A0
;TEMPPT := $0015;65
;LASTPT := $0016;;66
;TEMPST := $0018;68
;INDEX := $0021;71
;DEST := $0023;73
;RESULT := $0025;75
;RESULT_LAST := $0028;78
;TXTTAB := $0029;79
;VARTAB := $002B;7B
;ARYTAB := $002D;7D
;STREND := $002F;7F
;FRETOP := $0031;81
;FRESPC := $0033;83
;MEMSIZ := $0035;;85
;CURLIN := $0037;87
;OLDLIN := $0039;89
;OLDTEXT := $003B;8B
;Z8C := $003D;8D
;DATPTR := $003F;8F
;INPTR := $0041;91
;VARNAM := $0043;93
;VARPNT := $0045;95
;FORPNT := $0047;97
;LASTOP := $0049;99
;CPRTYP := $004B;9B
;FNCNAM := $004C;9C
;TEMP3 := $004C;;9C ; same
;DSCPTR := $004E;9E
;DSCLEN := $0050;A0
JMPADRS := $0093;A1
;
LENGTH := $0094
Z52 := $0052;
;Z52 := $0052;
TEMP1 := $0053;A3
ARGEXTENSION := $0053;;A3 ; same!
HIGHDS := $0054;A4
HIGHTR := $0056;A6
INDX := $0058;;A8
TEMP2 := $0058;;A8 ; same!
TMPEXP := $0058;;A8 ; same
EXPON := $0059;A9
LOWTR := $005A;AA ; $AB also EXPSGN?
;TEMP1 := $0053;A3
;ARGEXTENSION := $0053;;A3 ; same!
;HIGHDS := $0054;A4
;HIGHTR := $0056;A6
;INDX := $0058;;A8
;TEMP2 := $0058;;A8 ; same!
;TMPEXP := $0058;;A8 ; same
;EXPON := $0059;A9
;LOWTR := $005A;AA ; $AB also EXPSGN?
LOWTRX := $0094;AA ; $AB also EXPSGN?
EXPSGN := $005B;;AB
FAC := $005C;AC
FAC_LAST := $005F;;AF
FACSIGN := $0060;B0
SERLEN := $0061;B1
SHIFTSIGNEXT := $0062;B2
ARG := $0063;B3
ARG_LAST := $0066;;B6
ARGSIGN := $0067;B7
STRNG1 := $0068;B8 ; TODO: also SGNCPR
FACEXTENSION := $0069;;B9
STRNG2 := $006A;BA
CHRGET := $006C;BC
CHRGOT := $0072;C2
TXTPTR := $0073;C3
;EXPSGN := $005B;;AB
;FAC := $005C;AC
;FAC_LAST := $005F;;AF
;FACSIGN := $0060;B0
;SERLEN := $0061;B1
;SHIFTSIGNEXT := $0062;B2
;ARG := $0063;B3
;ARG_LAST := $0066;;B6
;ARGSIGN := $0067;B7
;STRNG1 := $0068;B8 ; TODO: also SGNCPR
;FACEXTENSION := $0069;;B9
;STRNG2 := $006A;BA
;CHRGET := $006C;BC
;CHRGOT := $0072;C2
;TXTPTR := $0073;C3
RNDSEED := $00D4

59
defines_kim.s
View File

@ -23,65 +23,6 @@ LINNUM := $0019
TXPSV := $0019
INPUTBUFFER := $001B
INPUTBUFFERX := $0000
;TEMPPT := $0063
;LASTPT := $0064
;TEMPST := $66
;INDEX := $006F
;DEST := $0071
;RESULT := $0073
;RESULT_LAST := $0077
;TXTTAB := $0078
;VARTAB := $007A
;ARYTAB := $007C
;STREND := $007E
;FRETOP := $0080
;FRESPC := $0082
;MEMSIZ := $0084
;CURLIN := $0086
;OLDLIN := $0088
;OLDTEXT := $008A
;Z8C := $008C
;DATPTR := $008E
;INPTR := $0090
;VARNAM := $0092
;VARPNT := $0094
;FORPNT := $0096
;LASTOP := $0098
;CPRTYP := $009A
;FNCNAM := $009B
;TEMP3 := $009B ; same
;DSCPTR := $009D
;DSCLEN := $00A0
;JMPADRS := $00A1
;Z52 := $00A2
;LENGTH := $00A2
;ARGEXTENSION := $00A3 ; overlap with JMPADRS! (same on c64)
;TEMP1 := $00A4
;HIGHDS := $00A5
;HIGHTR := $00A7
;TEMP2 := $00A9
;INDX := $00AA
;TMPEXP := $00AA ; same
;EXPON := $00AB
;LOWTR := $00AC ; $9D also EXPSGN
;LOWTRX := $00AC ; $9D also EXPSGN
;EXPSGN := $00AD
;FAC := $00AE
;FAC_LAST := $00B2
;FACSIGN := $00B3
;SERLEN := $00B4
;SHIFTSIGNEXT := $00B5
;ARG := $00B6
;ARG_LAST := $00BA
;ARGSIGN := $00BB
;STRNG1 := $00BC ; TODO: also SGNCPR
;FACEXTENSION := $00BD
;STRNG2 := $00BE
;CHRGET := $00C0
;CHRGOT := $00C6
;TXTPTR := $00C7
;RNDSEED := $00D8
L1800 := $1800
L1873 := $1873

114
defines_osi.s
View File

@ -24,63 +24,62 @@ SUBFLG := $0061
INPUTFLG := $0062
CPRMASK := $0063
Z14 := $0064 ; Ctrl+O flag
TEMPPT := $0065
LASTPT := $0066
INDEX := $0071
DEST := $0073
RESULT := $0075
RESULT_LAST := $0078
TXTTAB := $0079
VARTAB := $007B
ARYTAB := $007D
STREND := $007F
FRETOP := $0081
FRESPC := $0083
MEMSIZ := $0085
CURLIN := $0087
OLDLIN := $0089
OLDTEXT := $008B
Z8C := $008D
DATPTR := $008F
INPTR := $0091
VARNAM := $0093
VARPNT := $0095
FORPNT := $0097
LASTOP := $0099
CPRTYP := $009B
FNCNAM := $009C
TEMP3 := $009C ; same
DSCPTR := $009E
DSCLEN := $00A0
JMPADRS := $00A1
Z52 := $00A2
TEMP1 := $00A3
ARGEXTENSION := $00A3 ; same!
HIGHDS := $00A4
HIGHTR := $00A6
INDX := $00A8
TEMP2 := $00A8 ; same!
TMPEXP := $00A8 ; same
EXPON := $00A9
LOWTR := $00AA ; $AB also EXPSGN?
LOWTRX := $00AA ; $AB also EXPSGN?
EXPSGN := $00AB
FAC := $00AC
FAC_LAST := $00AF
FACSIGN := $00B0
SERLEN := $00B1
SHIFTSIGNEXT := $00B2
ARG := $00B3
ARG_LAST := $00B6
ARGSIGN := $00B7
STRNG1 := $00B8 ; TODO: also SGNCPR
FACEXTENSION := $00B9
STRNG2 := $00BA
CHRGET := $00BC
CHRGOT := $00C2
TXTPTR := $00C3
;TEMPPT := $0065
;LASTPT := $0066
;TEMPST := $68
;INDEX := $0071
;DEST := $0073
;RESULT := $0075
;RESULT_LAST := $0078
;TXTTAB := $0079
;VARTAB := $007B
;ARYTAB := $007D
;STREND := $007F
;FRETOP := $0081
;FRESPC := $0083
;MEMSIZ := $0085
;CURLIN := $0087
;OLDLIN := $0089
;OLDTEXT := $008B
;Z8C := $008D
;DATPTR := $008F
;INPTR := $0091
;VARNAM := $0093
;VARPNT := $0095
;FORPNT := $0097
;LASTOP := $0099
;CPRTYP := $009B
;FNCNAM := $009C
;TEMP3 := $009C ; same
;DSCPTR := $009E
;DSCLEN := $00A0
;JMPADRS := $00A1
;Z52 := $00A2
;TEMP1 := $00A3
;ARGEXTENSION := $00A3 ; same!
;HIGHDS := $00A4
;HIGHTR := $00A6
;INDX := $00A8
;TEMP2 := $00A8 ; same!
;TMPEXP := $00A8 ; same
;EXPON := $00A9
;LOWTR := $00AA ; $AB also EXPSGN?
;LOWTRX := $00AA ; $AB also EXPSGN?
;EXPSGN := $00AB
;FAC := $00AC
;FAC_LAST := $00AF
;FACSIGN := $00B0
;SERLEN := $00B1
;SHIFTSIGNEXT := $00B2
;ARG := $00B3
;ARG_LAST := $00B6
;ARGSIGN := $00B7
;STRNG1 := $00B8 ; TODO: also SGNCPR
;FACEXTENSION := $00B9
;STRNG2 := $00BA
;CHRGET := $00BC
;CHRGOT := $00C2
;TXTPTR := $00C3
RNDSEED := $00D4
@ -96,7 +95,6 @@ SAVE := $FFF7
STACK_TOP := $FC
BYTES_PER_FRAME := $10
SPACE_FOR_GOSUB := $33
TEMPST := $68
FOR_STACK1 := $0D
FOR_STACK2 := $08
NUM_TOKENS := $1C

39
msbasic.s
View File

@ -82,7 +82,6 @@ CONFIG_SAFE_NAMENOTFOUND := 1
.zeropage
.ifndef CONFIG_SMALL
.ifdef CBM1
.res $65
.endif
@ -95,6 +94,12 @@ CONFIG_SAFE_NAMENOTFOUND := 1
.ifdef APPLE
.res $55
.endif
.ifdef OSI
.res $65
.endif
.ifdef KBD
.res $15
.endif
TEMPPT:
.res 1
LASTPT:
@ -106,7 +111,11 @@ INDEX:
DEST:
.res 2
RESULT:
.ifdef CONFIG_SMALL
.res 3
.else
.res 4
.endif
RESULT_LAST:
.res 1
TXTTAB:
@ -149,36 +158,57 @@ FNCNAM:
TEMP3:
.res 2
DSCPTR:
.res 3
.ifdef CONFIG_SMALL
.res 2
.else
.res 3
.endif
DSCLEN:
.res 1
.ifndef KBD
JMPADRS:
.endif
.res 1
.ifndef CONFIG_SMALL
LENGTH:
.endif
Z52:
.res 1
ARGEXTENSION:
.ifndef CONFIG_SMALL
.res 1
.endif
TEMP1:
.res 1
HIGHDS:
.res 2
HIGHTR:
.res 2
.ifndef CONFIG_SMALL
TEMP2:
.res 1
.endif
INDX:
TMPEXP:
.ifdef CONFIG_SMALL
TEMP2:
.endif
.res 1
EXPON:
.res 1
LOWTR:
.ifndef KBD
LOWTRX:
.endif
.res 1
EXPSGN:
.res 1
FAC:
.ifdef CONFIG_SMALL
.res 3
.else
.res 4
.endif
FAC_LAST:
.res 1
FACSIGN:
@ -188,7 +218,11 @@ SERLEN:
SHIFTSIGNEXT:
.res 1
ARG:
.ifdef CONFIG_SMALL
.res 3
.else
.res 4
.endif
ARG_LAST:
.res 1
ARGSIGN:
@ -205,6 +239,7 @@ CHRGOT:
.res 1
TXTPTR:
.res 6
.ifndef CONFIG_SMALL
L00CF:
.res 11
RNDSEED: