mirror of https://github.com/mgcaret/of816.git
53 lines
1.7 KiB
PHP
53 lines
1.7 KiB
PHP
; *** Direct page equates ***
|
|
.pushseg
|
|
.zeropage
|
|
STACKBASE = $00 ; normally 0
|
|
ZR = $00 ; 0 four scratch cells
|
|
WR = ZR+4 ; 4
|
|
XR = WR+4 ; 8
|
|
YR = XR+4 ; c
|
|
IP = YR+4 ; 10 instruction pointer
|
|
STK_BTM = IP+4 ; 14 lowest bank 0 address usable for stack
|
|
STK_TOP = STK_BTM+2 ; 16 bank 0 address immediately after the upper stack cell
|
|
RSTK_TOP = STK_TOP+2 ; 18 return stack top
|
|
SYS_RSTK = RSTK_TOP+2 ; 1a system return stack pointer
|
|
DHERE = SYS_RSTK+2 ; 1c HERE system variable
|
|
MEM_BTM = DHERE+4 ; 20 System memory bottom
|
|
MEM_TOP = MEM_BTM+4 ; 24 System memory top
|
|
SYSVARS = MEM_TOP+4 ; 28 Pointer to system variables
|
|
RSTK_SAVE = SYSVARS+4 ; 2c return stack saved for current CATCH level
|
|
CATCHFLAG = RSTK_SAVE+2 ; 2e active catch counter
|
|
SYSIF = CATCHFLAG+2 ; 30 system interface vector, 4 bytes
|
|
DP_END = SYSIF+4 ; 34 must be last so platform libs can used DP
|
|
;TMP1 = SYSIF+4 ; 34 temp for ENTER
|
|
;DP_END = TMP1+2 ; 36 must be last so platform libs can use DP
|
|
.popseg
|
|
|
|
; *** system interface function codes ***
|
|
SI_PRE_INIT = $0000
|
|
SI_POST_INIT = $0001
|
|
SI_EMIT = $0002
|
|
SI_KEYQ = $0003
|
|
SI_KEY = $0004
|
|
SI_GET_FCODE = $0005
|
|
SI_RESET_ALL = $0006
|
|
|
|
; *** Constants ***
|
|
|
|
opJSL = $22
|
|
opJML = $5C
|
|
|
|
c_bell = $07
|
|
c_bs = $08
|
|
c_cr = $0D
|
|
c_lf = $0A
|
|
c_page = $0C
|
|
c_del = $7F
|
|
|
|
; *** Processor ***
|
|
|
|
RESETV = $FFFC
|
|
|
|
; *** System Info ***
|
|
.define VERSION "0.1"
|