-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathdata.asm.in
53 lines (41 loc) · 1 KB
/
data.asm.in
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
;;; -*- TI-Asm -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Builtin Data
;;;
workspaceAppVarName:
db AppVarObj, "logows", 0
workspaceTemplate:
rorg 0
db "LgWS", 0
;; Static data
dw 0 ; appvarStart
dw wst_userNodeStart-2 ; userNodeStartMinus2
dw workspaceTemplateSize; uninitNodeStart
dw workspaceTemplateSize; uninitNodeEnd
db 0 ; gcGenState
dw 0 ; freeNodeList
dw 0 ; freeNodePairList
dw 0 ; freeNodeQuadList
dw trueNode ; firstSymbol
dw GetChar_Console ; getCharFunc
dw GetS_Console ; getSFunc
dw 0 ; mainSP
dw 0 ; evalProcTop
dw voidNode ; evalList
dw voidNode ; evalRunningProc
;; Object area
;; Node table
wst_userNodeStart:
rorg $8002
emptyNode: NODE T_EMPTY, 0, 0
rorg $$
workspaceTemplateSize equ $ - workspaceTemplate
;;; Builtin nodes
builtinNodeStart:
rorg $8000
voidNode: NODE T_VOID, 0, 0
@XPRIM-SYM-NODES@
@XPRIM-SUBR-NODES@
rorg $$
@XPRIM-OBJECTS@