Mercurial > hg > Members > kono > os9 > sbc09

comparison examples/ef09.asm @ 184:ef64e3f4e229 current

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 30 Jul 2022 18:22:06 +0900
parents 2088fd998865
children
comparison
equal deleted inserted replaced
183:0eb94a8e4d0d 184:ef64e3f4e229
107 107
108 ; COLD start moves the following to USER variables. 108 ; COLD start moves the following to USER variables.
109 ; MUST BE IN SAME ORDER AS USER VARIABLES. 109 ; MUST BE IN SAME ORDER AS USER VARIABLES.
110 110
111 111
112 UZERO RMB 8 ;reserved space in user area 112 UZERO FCB 0,0,0,0,0,0,0,0 ;reserved space in user area
113 FDB SPP ;SP0 113 FDB SPP ;SP0
114 FDB RPP ;RP0 114 FDB RPP ;RP0
115 FDB QRX ;'?KEY 115 FDB QRX ;'?KEY
116 FDB TXSTO ;'EMIT 116 FDB TXSTO ;'EMIT
117 FDB ACCEP ;'EXPECT 117 FDB ACCEP ;'EXPECT
128 FDB INTER ;'EVAL 128 FDB INTER ;'EVAL
129 FDB NUMBQ ;'NUMBER 129 FDB NUMBQ ;'NUMBER
130 FDB 0 ;HLD 130 FDB 0 ;HLD
131 FDB 0 ;HANDLER 131 FDB 0 ;HANDLER
132 FDB 0 ;CONTEXT pointer 132 FDB 0 ;CONTEXT pointer
133 RMB VOCSS*2 ;vocabulary stack 133 FDB 0,0,0,0,0,0,0,0 ;vocabulary stack (VOCSS*2 bytes)
134 FDB 0 ;CURRENT pointer 134 FDB 0 ;CURRENT pointer
135 FDB 0 ;vocabulary link pointer 135 FDB 0 ;vocabulary link pointer
136 FDB CTOP ;CP 136 FDB CTOP ;CP
137 FDB NTOP ;NP 137 FDB NTOP ;NP
138 FDB LASTN ;LAST 138 FDB LASTN ;LAST