Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
4867 | leency | 1 | |
2 | |||
3 | |||
4 | |||
5 | |||
6 | |||
7 | mov edi, main_task |
||
8 | call cfa_INIT |
||
9 | ret |
||
10 | |||
11 | TIB_SIZE EQU 1027 |
||
12 | |||
13 | |||
14 | include 'img.asm' |
||
15 | |||
16 | cfa_AHEADER 0,"BYE",_BYE |
||
17 | |||
18 | RET |
||
19 | |||
20 | |||
21 | |||
22 | |||
23 | MOV [EBP+4], EAX |
||
24 | POP EBX |
||
25 | MOVZX EAX, BYTE [EBX] |
||
26 | LEA EBX, [EBX+1] |
||
27 | MOV [EBP], EBX |
||
28 | LEA EBX, [EBX+EAX] |
||
29 | LEA EBX, [EBX+1] |
||
30 | JMP EBX |
||
31 | |||
32 | |||
33 | |||
34 | |||
35 | |||
36 | MOV [EBP],EAX |
||
37 | POP EAX |
||
38 | MOV EAX,[EAX] |
||
39 | RET |
||
40 | |||
41 | cfa_AHEADER 0,"_CREATE-CODE",_CREATEminusCODE |
||
42 | |||
43 | DB 089H ,045H ,0 |
||
44 | DB 058H |
||
45 | DB 0C3H |
||
46 | |||
47 | cfa_AHEADER 0,"_TOVALUE-CODE",_TOVALUEminusCODE |
||
48 | |||
49 | DB 08DH ,05BH ,0F7H |
||
50 | DB 089H ,03 |
||
51 | DB 08BH ,045H ,00 |
||
52 | DB 08DH ,06DH ,04 |
||
53 | DB 0C3H |
||
54 | |||
55 | cfa_AHEADER 0,"TOVALUE-CODE",TOVALUEminusCODE |
||
56 | |||
57 | DD cfa__TOVALUEminusCODE |
||
58 | call cfa__TOVALUEminusCODE |
||
59 | |||
60 | cfa_AHEADER 0,"VECT-CODE",VECTminusCODE |
||
61 | |||
62 | DD cfa__VECTminusCODE |
||
63 | call cfa__TOVALUEminusCODE |
||
64 | |||
65 | cfa_AHEADER 0,"_VECT-CODE",_VECTminusCODE |
||
66 | |||
67 | DB 0FFH ,023H |
||
68 | |||
69 | cfa_AHEADER 0,"_USER-VALUE-CODE", _USERminusVALUEminusCODE |
||
70 | |||
71 | MOV [EBP],EAX |
||
72 | POP EAX |
||
73 | MOV EAX,[EAX] |
||
74 | LEA EAX,[EDI+EAX] |
||
75 | MOV EAX,[EAX] |
||
76 | RET |
||
77 | |||
78 | cfa_AHEADER 0,"USER-VALUE-CODE",USERminusVALUEminusCODE |
||
79 | |||
80 | DD cfa__USERminusVALUEminusCODE |
||
81 | call cfa__TOVALUEminusCODE |
||
82 | |||
83 | cfa_AHEADER 0,"_TOUSER-VALUE-CODE",_TOUSERminusVALUEminusCODE |
||
84 | |||
85 | DB 083H ,0EBH ,09 |
||
86 | DB 08BH ,01BH |
||
87 | DB 03 ,0DFH |
||
88 | DB 089H ,03 |
||
89 | DB 08BH ,045H ,00 |
||
90 | DB 083H ,0C5H ,04 |
||
91 | DB 0C3H |
||
92 | |||
93 | cfa_AHEADER 0,"TOUSER-VALUE-CODE",TOUSERminusVALUEminusCODE |
||
94 | |||
95 | DD cfa__TOUSERminusVALUEminusCODE |
||
96 | call cfa__TOVALUEminusCODE |
||
97 | |||
98 | cfa_AHEADER 0,"_USER-CODE", _USERminusCODE |
||
99 | |||
100 | MOV [EBP],EAX |
||
101 | POP EAX |
||
102 | MOV EAX,[EAX] |
||
103 | LEA EAX,[EDI+EAX] |
||
104 | RET |
||
105 | |||
106 | cfa_AHEADER 0,"DOES>A",DOESgreatA |
||
107 | |||
108 | DD T_DOESgreatA-main_task |
||
109 | |||
110 | cfa_AHEADER 0,"USER-CODE",USERminusCODE |
||
111 | |||
112 | DD cfa__USERminusCODE |
||
113 | call cfa__TOVALUEminusCODE |
||
114 | |||
115 | cfa_AHEADER 0,"CREATE-CODE",CREATEminusCODE |
||
116 | |||
117 | DD cfa__CREATEminusCODE |
||
118 | call cfa__TOVALUEminusCODE |
||
119 | |||
120 | cfa_AHEADER 0,"CONSTANT-CODE",CONSTANTminusCODE |
||
121 | |||
122 | DD cfa__CONSTANTminusCODE |
||
123 | call cfa__TOVALUEminusCODE |
||
124 | |||
125 | cfa_AHEADER 0,"_CLITERAL-CODE",_CLITERALminusCODE |
||
126 | |||
127 | DB 089H ,045H ,00 |
||
128 | DB 058H |
||
129 | DB 0FH ,0B6H ,018H |
||
130 | DB 08DH ,05CH ,03 ,02 |
||
131 | DB 0FFH ,0E3H |
||
132 | |||
133 | cfa_AHEADER 0,"CLITERAL-CODE",CLITERALminusCODE |
||
134 | |||
135 | DD cfa__CLITERALminusCODE |
||
136 | call cfa__TOVALUEminusCODE |
||
137 | |||
138 | |||
139 | |||
140 | |||
141 | DD T_BASE-main_task |
||
142 | |||
143 | cfa_AHEADER 0,'PAD',PAD |
||
144 | |||
145 | DD T_PAD-main_task |
||
146 | |||
147 | cfa_AHEADER 0,'LAST',LAST |
||
148 | |||
149 | DD LastNFA |
||
150 | |||
151 | cfa_AHEADER 0,'DP',DP |
||
152 | |||
153 | DD CP_P ; DP_BUFF |
||
154 | |||
155 | cfa_AHEADER 0,'''DROP_V',ticDROP_V |
||
156 | |||
157 | DD cfa_DROP |
||
158 | call cfa__TOVALUEminusCODE+00H |
||
159 | |||
160 | cfa_AHEADER 0,'''DUP_V',ticDUP_V |
||
161 | |||
162 | call cfa__CONSTANTminusCODE |
||
163 | |||
164 | call cfa__TOVALUEminusCODE+00H |
||
165 | |||
166 | cfa_AHEADER 0,'CONTEXT',_CONTEXT |
||
167 | |||
168 | DD T_CONTEXT-main_task |
||
169 | call cfa__TOUSERminusVALUEminusCODE |
||
170 | |||
171 | cfa_AHEADER 0,'>IN',greatIN |
||
172 | |||
173 | DD T_greatIN-main_task |
||
174 | |||
175 | cfa_AHEADER 0,'>OUT',greatOUT |
||
176 | |||
177 | TO_OUT dd 0 |
||
178 | |||
179 | cfa_AHEADER 0,'CURFILE',CURFILE |
||
180 | |||
181 | DD T_CURFILE-main_task |
||
182 | |||
183 | cfa_AHEADER 0,'S0',S0 |
||
184 | |||
185 | DD T_S0-main_task |
||
186 | |||
187 | cfa_AHEADER 0,'R0',R0 |
||
188 | |||
189 | DD T_R0-main_task |
||
190 | |||
191 | cfa_AHEADER 0,'SOURCE-ID',SOURCEminusID |
||
192 | |||
193 | DD T_SOURCEminusID-main_task |
||
194 | call cfa__TOUSERminusVALUEminusCODE |
||
195 | |||
196 | cfa_AHEADER 0,'TIB',TIB |
||
197 | |||
198 | DD T_TIB-main_task |
||
199 | call cfa__TOUSERminusVALUEminusCODE |
||
200 | |||
201 | cfa_AHEADER 0,'#TIN',nTIB |
||
202 | |||
203 | DD T_nTIB-main_task |
||
204 | |||
205 | cfa_AHEADER 0,'CURSTR',CURSTR |
||
206 | |||
207 | DD T_CURSTR-main_task |
||
208 | |||
209 | cfa_AHEADER 0,'SLITERAL-CODE',SLITERALminusCODE |
||
210 | |||
211 | DD cfa__SLITERALminusCODE |
||
212 | call cfa__TOVALUEminusCODE |
||
213 | |||
214 | cfa_AHEADER 0,'USER-OFFS',USERminusOFFS |
||
215 | |||
216 | DD reserve+MUSEROFFS |
||
217 | |||
218 | cfa_AHEADER 0,'HANDLER',HANDLER |
||
219 | |||
220 | DD T_HANDLER-main_task |
||
221 | |||
222 | cfa_AHEADER 0,'STATE',STATE |
||
223 | |||
224 | DD T_STATE-main_task |
||
225 | |||
226 | cfa_AHEADER 0,'CURRENT',CURRENT |
||
227 | |||
228 | DD T_CURRENT-main_task |
||
229 | |||
230 | cfa_AHEADER 0,'W-CNT',WminusCNT |
||
231 | |||
232 | DD T_WminusCNT-main_task |
||
233 | |||
234 | cfa_AHEADER 0,'S-O',SminusO |
||
235 | |||
236 | DD T_SminusO-main_task |
||
237 | |||
238 | cfa_AHEADER 0,'ER-U',ERminusU |
||
239 | |||
240 | DD T_ERminusU-main_task |
||
241 | |||
242 | cfa_AHEADER 0,'ER-A',ERminusA |
||
243 | |||
244 | DD T_ERminusA-main_task |
||
245 | |||
246 | cfa_AHEADER 0,'FORTH-WORDLIST',FORTHminusWORDLIST |
||
247 | |||
248 | DD T_FORTH+4 |
||
249 | call cfa__TOVALUEminusCODE |
||
250 | |||
251 | cfa_AHEADER 0,'VOC-LIST',VOCminusLIST |
||
252 | |||
253 | DD T_FORTH |
||
254 | |||
255 | cfa_AHEADER 0,'WARNING',WARNING |
||
256 | |||
257 | DD T_WARNING-main_task |
||
258 | |||
259 | ;cfa_AHEADER 0,'LAST_KEY',LAST_KEY |
||
260 | |||
261 | ; DD last_key |
||
262 | |||
263 | cfa_AHEADER 0,"BLK",BLK |
||
264 | |||
265 | DD T_BLK-main_task |
||
266 | |||
267 | |||
268 | |||
269 | |||
270 | |||
271 | ; DD UZERO |
||
272 | |||
273 | cfa_AHEADER 0,"UPP",UPP_M |
||
274 | |||
275 | DD UPP |
||
276 | |||
277 | cfa_AHEADER 0,"ULAST",ULAST_M |
||
278 | |||
279 | DD ULAST |
||
280 | |||
281 | cfa_AHEADER 0,"SPP",SPP_M |
||
282 | |||
283 | DD SPP |
||
284 | cfa_AHEADER 0,"TIBB",TIBB_M |
||
285 | call cfa__CONSTANTminusCODE |
||
286 | DD TIBB |
||
287 | |||
288 | cfa_AHEADER 0,"#TIB",NTIB_M |
||
289 | |||
290 | DD NTIB_P |
||
291 | |||
292 | cfa_AHEADER 0,"sbuf",screen_buf_M |
||
293 | |||
294 | DD screen_buf |
||
295 | |||
296 | cfa_AHEADER 0,"cursor",cursor_M |
||
297 | |||
298 | DD cursor |
||
299 | |||
300 | cfa_AHEADER 0,"FINFO",FINFO |
||
301 | |||
302 | DD FINFO |
||
303 | |||
304 | cfa_AHEADER 0,"ROWH",ROWH |
||
305 | |||
306 | DD ROWH |
||
307 | call cfa__TOVALUEminusCODE |
||
308 | |||
309 | cfa_AHEADER 0,"ROWW",ROWW |
||
310 | |||
311 | DD 6 |
||
312 | call cfa__TOVALUEminusCODE |
||
313 | |||
314 | cfa_AHEADER 0,"MEMS",MEMS |
||
315 | |||
316 | DD MEMS |
||
317 | |||
318 | cfa_AHEADER 0,"draw_window",draw_window |
||
319 | |||
320 | CALL draw_window |
||
321 | POP EDI |
||
322 | RET |
||
323 | |||
324 | ; cfa_AHEADER 0,'MEBLK',MEBLK |
||
325 | |||
326 | ; DD BLK_P-main_task |
||
327 | |||
328 | main_task: |
||
329 | |||
330 | DD 0 |
||
331 | T_S0: |
||
332 | DD SPP ;STACK0 |
||
333 | T_WARNING: |
||
334 | DD -1 |
||
335 | T_STATE: |
||
336 | DD 0 |
||
337 | T_BLK: |
||
338 | DD 0 |
||
339 | T_CURFILE: |
||
340 | DD 0 |
||
341 | T_HANDLER: |
||
342 | DD 0 |
||
343 | T_HLD: |
||
344 | DD 5 |
||
345 | T_BASE: |
||
346 | DD 0AH |
||
347 | DD PAD_SIZE DUP (0) |
||
348 | T_PAD: |
||
349 | DD PAD_SIZE DUP (0) |
||
350 | T_ERminusA: |
||
351 | DD 0 |
||
352 | T_ERminusU: |
||
353 | DD 0 |
||
354 | T_DOESgreatA: |
||
355 | DD 0 |
||
356 | ;T_ALIGNminusBYTES: |
||
357 | DD 0 |
||
358 | T_nTIB: |
||
359 | DD 0 |
||
360 | T_greatIN: |
||
361 | DD 5 |
||
362 | T_TIB: |
||
363 | DD T_ATIB |
||
364 | T_ATIB: |
||
365 | DD TIB_SIZE DUP (0) |
||
366 | T_SOURCEminusID: |
||
367 | DD 0 |
||
368 | T_CURSTR: |
||
369 | DD 0 |
||
370 | T_WBWminusNFA: |
||
371 | DD 0 |
||
372 | T_WBWminusOFFS: |
||
373 | DD 0 |
||
374 | T_CURRENT: |
||
375 | DD T_FORTH+4 |
||
376 | T_SminusO: |
||
377 | DD T_FORTH+4,T_FORTH+4 |
||
378 | DD 16 DUP (0) |
||
379 | T_CONTEXT: |
||
380 | DD T_SminusO |
||
381 | T_greatOUT: |
||
382 | DD 0 |
||
383 | T_WminusCNT: |
||
384 | DD 0 |
||
385 | T_NNN: |
||
386 | DD 0 |
||
387 | Mreserve: |
||
388 | DD MUSEROFFS DUP (0) |
||
389 | UPP: |
||
390 | |||
391 | BASE_P DD BASEE |
||
392 | |||
393 | INN_P DD 0 |
||
394 | NTIB_P DD 0 |
||
395 | TIB_P DD TIBB |
||
396 | ;TEVAL_P DD INTER |
||
397 | HLD_P DD 0 |
||
398 | CNTXT_P DD 0 |
||
399 | CP_P DD CTOP |
||
400 | ;LAST_P DD LASTN ;LAST |
||
401 | EMIT_PROC_P DD -1 ; EMITPROC |
||
402 | reg_struc_P DD 0 |
||
403 | ; BLK_P DD FILE_B |
||
404 | ; fi_struc_P DD FINFO |
||
405 | workarea_P DD os_work |
||
406 | |||
407 | DD 1000 DUP (0) |
||
408 | |||
409 | T_FORTH: |
||
410 | |||
411 | DD LastNFA ; адрес последнего имени !!!!!!!! |
||
412 | DD 0 ; предок |
||
413 | DD 0 ; класс |
||
414 | |||
415 | ByeLevel DD 0 |
||
416 |