retro/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-09-21 10:37:25 +00:00
Code Issues Packages 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 TXPSV := $0053
INPUTBUFFER := $0200 INPUTBUFFER := $0200
INPUTBUFFERX := $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 L1800 := $1800
L1873 := $1873 L1873 := $1873

59
defines_cbm.s
View File

@ -27,65 +27,6 @@ SUBFLG := $0061
INPUTFLG := $0062 INPUTFLG := $0062
CPRMASK := $0063 CPRMASK := $0063
Z14 := $0064 ; Ctrl+O flag 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 Z96 := $020C
.else .else
USR := $0000 USR := $0000

111
defines_kbd.s
View File

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

59
defines_kim.s
View File

@ -23,65 +23,6 @@ LINNUM := $0019
TXPSV := $0019 TXPSV := $0019
INPUTBUFFER := $001B INPUTBUFFER := $001B
INPUTBUFFERX := $0000 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 L1800 := $1800
L1873 := $1873 L1873 := $1873

114
defines_osi.s
View File

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

39
msbasic.s
View File

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