msbasic/defines_cbm.s

.ifdef CBM1
USR				:= $0000
Z00             := $0000
L0001           := $0001
L0002           := $0002
GOWARM          := $0003
Z03				:= $0003 ; same
GOSTROUT        := $0006
GOGIVEAYF       := $0008
CHARAC          := $005A
ENDCHR          := $005B
EOLPNTR         := $005C
DIMFLG          := $005D
VALTYP          := $005E
DATAFLG         := $0060
SUBFLG          := $0061
INPUTFLG        := $0062
CPRMASK         := $0063
Z14             := $0064                        ; Ctrl+O flag
Z15             := $0004
Z16             := $0005
Z17             := $0006
Z18             := $0007
LINNUM          := $0008
TXPSV			:= $0008
INPUTBUFFER     := $000A
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
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
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
.else
USR				:= $0000
Z00             := $0000
L0001           := $0001
L0002           := $0002
GOWARM          := $0003
Z15             := $0004
Z16             := $00C6;05
Z17             := $0006
GOSTROUT        := $0006
Z18             := $0007
LINNUM          := $0011;0008
TXPSV			:= $0048
GOGIVEAYF       := $0008
INPUTBUFFER     := $0200;00A
Z03				:= $000E;3 ; same
CHARAC          := $005A-82-5
ENDCHR          := $005B-82-5
EOLPNTR         := $005C-82-5
DIMFLG          := $005D-82-5
VALTYP          := $005E-82-5
DATAFLG         := $0060-82-5
SUBFLG          := $0061-82-5
INPUTFLG        := $0062-82-5
CPRMASK         := $0063-82-5
Z14             := $0064-82-5                        ; Ctrl+O flag
TEMPPT          := $0065-82
LASTPT          := $0066-82
TEMPST			:= $0068-82
INDEX           := $0071-82
DEST            := $0073-82
RESULT          := $0075-82
RESULT_LAST     := $0079-82
TXTTAB          := $007A-82
VARTAB          := $007C-82
ARYTAB          := $007E-82
STREND          := $0080-82
FRETOP          := $0082-82
FRESPC          := $0084-82
MEMSIZ          := $0086-82
CURLIN          := $0088-82
OLDLIN          := $008A-82
OLDTEXT         := $008C-82
Z8C             := $008E-82
DATPTR          := $0090-82
INPTR           := $0092-82
VARNAM          := $0094-82
VARPNT          := $0096-82
FORPNT          := $0098-82
LASTOP          := $009A-82
CPRTYP          := $009C-82
FNCNAM          := $009D-82
TEMP3           := $009D-82 ; same
DSCPTR          := $009F-82
DSCLEN          := $00A2-82
JMPADRS         := $00A3-82
LENGTH			:= $00A4-82
ARGEXTENSION    := $00A5-82 ; overlap with JMPADRS! (same on c64)
TEMP1           := $00A6-82
HIGHDS          := $00A7-82
HIGHTR          := $00A9-82
TEMP2			:= $00AB-82
INDX            := $00AC-82
TMPEXP          := $00AC-82 ; same
EXPON           := $00AD-82
LOWTR           := $00AE-82                        ; $9D also EXPSGN
EXPSGN			:= $00AF-82
FAC             := $00B0-82
FAC_LAST        := $00B4-82
FACSIGN         := $00B5-82
SERLEN          := $00B6-82
SHIFTSIGNEXT    := $00B7-82
ARG             := $00B8-82
ARG_LAST        := $00BC-82
ARGSIGN         := $00BD-82
STRNG1          := $00BE-82                        ; TODO: also SGNCPR
FACEXTENSION	:= $00BF-82
STRNG2          := $00C0-82
CHRGET          := $00C2-82
CHRGOT          := $00C8-82
TXTPTR          := $00C9-82
L00CF			:= $00CF-82
RNDSEED			:= $00DA-82
.endif

BYTES_PER_FRAME := $12
.ifdef CBM1
SPACE_FOR_GOSUB := $36
.else
SPACE_FOR_GOSUB := $3E
.endif
FOR_STACK1		:= $0F
FOR_STACK2		:= $09
NUM_TOKENS		:= $23
NULL_MAX		:= $0A
BYTES_PER_ELEMENT := 5
BYTES_PER_VARIABLE := 7
BYTES_FP		:= 5
MANTISSA_BYTES	:= BYTES_FP-1

RAMSTART2		:= $0400
RAMSTART3		:= $0400

TOKEN_GOTO		:= $89
TOKEN_GOSUB		:= $8D
TOKEN_TAB		:= $A3
TOKEN_TO		:= $A4
TOKEN_FN		:= $A5
TOKEN_SPC		:= $A6
TOKEN_THEN		:= $A7
TOKEN_NOT		:= $A8
TOKEN_STEP		:= $A9
TOKEN_PLUS		:= $AA
TOKEN_MINUS		:= $AB
TOKEN_GREATER	:= $B1
TOKEN_EQUAL		:= $B2
TOKEN_SGN		:= $B4
TOKEN_LEFTSTR	:= $C8



OPEN	:= $FFC0
CLOSE	:= $FFC3
CHKIN	:= $FFC6
CHKOUT	:= $FFC9
CLRCH	:= $FFCC
CHRIN	:= $FFCF
CHROUT	:= $FFD2
LOAD	:= $FFD5
SAVE	:= $FFD8
VERIFY	:= $FFDB
SYS		:= $FFDE
ISCNTC	:= $FFE1
GETIN	:= $FFE4
CLALL	:= $FFE7

LE7F3	:= $E7F3

MONCOUT	:= CHROUT
MONRDKEY := GETIN


.ifdef CBM1
ENTROPY = $9044
.else
ENTROPY = $E844
.endif