WebSVN – Kolibri OS – Blame – /programs/develop/SPForth/amain.asm

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

Subversion Repositories Kolibri OS

(root)/programs/develop/SPForth/amain.asm @ 7134 – Rev 4867