forked from KolibriOS/kolibrios
418 lines
7.7 KiB
NASM
418 lines
7.7 KiB
NASM
|
|
|||
|
|
|
|||
|
|
reserve EQU Mreserve-main_task
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
amain:
|
|||
|
|
MOV [ByeLevel],ESP
|
|||
|
|
mov edi, main_task
|
|||
|
|
call cfa_INIT
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
TIB_SIZE EQU 1027
|
|||
|
|
PAD_SIZE EQU 1027
|
|||
|
|
|
|||
|
|
include 'img.asm'
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"BYE",_BYE
|
|||
|
|
MOV ESP,[ByeLevel]
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"_SLITERAL-CODE",_SLITERALminusCODE
|
|||
|
|
LEA EBP, [EBP-8]
|
|||
|
|
MOV [EBP+4], EAX
|
|||
|
|
POP EBX
|
|||
|
|
MOVZX EAX, BYTE [EBX]
|
|||
|
|
LEA EBX, [EBX+1]
|
|||
|
|
MOV [EBP], EBX
|
|||
|
|
LEA EBX, [EBX+EAX]
|
|||
|
|
LEA EBX, [EBX+1]
|
|||
|
|
JMP EBX
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"_CONSTANT-CODE",_CONSTANTminusCODE
|
|||
|
|
LEA EBP,[EBP-4]
|
|||
|
|
MOV [EBP],EAX
|
|||
|
|
POP EAX
|
|||
|
|
MOV EAX,[EAX]
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"_CREATE-CODE",_CREATEminusCODE
|
|||
|
|
DB 083H ,0EDH ,4
|
|||
|
|
DB 089H ,045H ,0
|
|||
|
|
DB 058H
|
|||
|
|
DB 0C3H
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"_TOVALUE-CODE",_TOVALUEminusCODE
|
|||
|
|
DB 05BH
|
|||
|
|
DB 08DH ,05BH ,0F7H
|
|||
|
|
DB 089H ,03
|
|||
|
|
DB 08BH ,045H ,00
|
|||
|
|
DB 08DH ,06DH ,04
|
|||
|
|
DB 0C3H
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"TOVALUE-CODE",TOVALUEminusCODE
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD cfa__TOVALUEminusCODE
|
|||
|
|
call cfa__TOVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"VECT-CODE",VECTminusCODE
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD cfa__VECTminusCODE
|
|||
|
|
call cfa__TOVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"_VECT-CODE",_VECTminusCODE
|
|||
|
|
DB 05BH
|
|||
|
|
DB 0FFH ,023H
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"_USER-VALUE-CODE", _USERminusVALUEminusCODE
|
|||
|
|
LEA EBP,[EBP-4]
|
|||
|
|
MOV [EBP],EAX
|
|||
|
|
POP EAX
|
|||
|
|
MOV EAX,[EAX]
|
|||
|
|
LEA EAX,[EDI+EAX]
|
|||
|
|
MOV EAX,[EAX]
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"USER-VALUE-CODE",USERminusVALUEminusCODE
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD cfa__USERminusVALUEminusCODE
|
|||
|
|
call cfa__TOVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"_TOUSER-VALUE-CODE",_TOUSERminusVALUEminusCODE
|
|||
|
|
DB 05BH
|
|||
|
|
DB 083H ,0EBH ,09
|
|||
|
|
DB 08BH ,01BH
|
|||
|
|
DB 03 ,0DFH
|
|||
|
|
DB 089H ,03
|
|||
|
|
DB 08BH ,045H ,00
|
|||
|
|
DB 083H ,0C5H ,04
|
|||
|
|
DB 0C3H
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"TOUSER-VALUE-CODE",TOUSERminusVALUEminusCODE
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD cfa__TOUSERminusVALUEminusCODE
|
|||
|
|
call cfa__TOVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"_USER-CODE", _USERminusCODE
|
|||
|
|
LEA EBP,[EBP-4]
|
|||
|
|
MOV [EBP],EAX
|
|||
|
|
POP EAX
|
|||
|
|
MOV EAX,[EAX]
|
|||
|
|
LEA EAX,[EDI+EAX]
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"DOES>A",DOESgreatA
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_DOESgreatA-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"USER-CODE",USERminusCODE
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD cfa__USERminusCODE
|
|||
|
|
call cfa__TOVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"CREATE-CODE",CREATEminusCODE
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD cfa__CREATEminusCODE
|
|||
|
|
call cfa__TOVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"CONSTANT-CODE",CONSTANTminusCODE
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD cfa__CONSTANTminusCODE
|
|||
|
|
call cfa__TOVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"_CLITERAL-CODE",_CLITERALminusCODE
|
|||
|
|
DB 083H ,0EDH ,04
|
|||
|
|
DB 089H ,045H ,00
|
|||
|
|
DB 058H
|
|||
|
|
DB 0FH ,0B6H ,018H
|
|||
|
|
DB 08DH ,05CH ,03 ,02
|
|||
|
|
DB 0FFH ,0E3H
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"CLITERAL-CODE",CLITERALminusCODE
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD cfa__CLITERALminusCODE
|
|||
|
|
call cfa__TOVALUEminusCODE
|
|||
|
|
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'BASE',BASE
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_BASE-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'PAD',PAD
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_PAD-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'LAST',LAST
|
|||
|
|
call cfa__CREATEminusCODE
|
|||
|
|
DD LastNFA
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'DP',DP
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD CP_P ; DP_BUFF
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'''DROP_V',ticDROP_V
|
|||
|
|
call cfa__CONSTANTminusCODE+00H
|
|||
|
|
DD cfa_DROP
|
|||
|
|
call cfa__TOVALUEminusCODE+00H
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'''DUP_V',ticDUP_V
|
|||
|
|
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD cfa_DUP
|
|||
|
|
call cfa__TOVALUEminusCODE+00H
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'CONTEXT',_CONTEXT
|
|||
|
|
call cfa__USERminusVALUEminusCODE
|
|||
|
|
DD T_CONTEXT-main_task
|
|||
|
|
call cfa__TOUSERminusVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'>IN',greatIN
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_greatIN-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'>OUT',greatOUT
|
|||
|
|
call cfa__CREATEminusCODE
|
|||
|
|
TO_OUT dd 0
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'CURFILE',CURFILE
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_CURFILE-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'S0',S0
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_S0-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'R0',R0
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_R0-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'SOURCE-ID',SOURCEminusID
|
|||
|
|
call cfa__USERminusVALUEminusCODE
|
|||
|
|
DD T_SOURCEminusID-main_task
|
|||
|
|
call cfa__TOUSERminusVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'TIB',TIB
|
|||
|
|
call cfa__USERminusVALUEminusCODE
|
|||
|
|
DD T_TIB-main_task
|
|||
|
|
call cfa__TOUSERminusVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'#TIN',nTIB
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_nTIB-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'CURSTR',CURSTR
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_CURSTR-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'SLITERAL-CODE',SLITERALminusCODE
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD cfa__SLITERALminusCODE
|
|||
|
|
call cfa__TOVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'USER-OFFS',USERminusOFFS
|
|||
|
|
call cfa__CREATEminusCODE
|
|||
|
|
DD reserve+MUSEROFFS
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'HANDLER',HANDLER
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_HANDLER-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'STATE',STATE
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_STATE-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'CURRENT',CURRENT
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_CURRENT-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'W-CNT',WminusCNT
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_WminusCNT-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'S-O',SminusO
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_SminusO-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'ER-U',ERminusU
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_ERminusU-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'ER-A',ERminusA
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_ERminusA-main_task
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'FORTH-WORDLIST',FORTHminusWORDLIST
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD T_FORTH+4
|
|||
|
|
call cfa__TOVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'VOC-LIST',VOCminusLIST
|
|||
|
|
call cfa__CREATEminusCODE
|
|||
|
|
DD T_FORTH
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,'WARNING',WARNING
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_WARNING-main_task
|
|||
|
|
|
|||
|
|
;cfa_AHEADER 0,'LAST_KEY',LAST_KEY
|
|||
|
|
; call cfa__CREATEminusCODE
|
|||
|
|
; DD last_key
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"BLK",BLK
|
|||
|
|
call cfa__USERminusCODE
|
|||
|
|
DD T_BLK-main_task
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
;cfa_AHEADER 0,"UZERO",UZERO_M
|
|||
|
|
; call cfa__CONSTANTminusCODE
|
|||
|
|
; DD UZERO
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"UPP",UPP_M
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD UPP
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"ULAST",ULAST_M
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD ULAST
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"SPP",SPP_M
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD SPP
|
|||
|
|
cfa_AHEADER 0,"TIBB",TIBB_M
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD TIBB
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"#TIB",NTIB_M
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD NTIB_P
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"sbuf",screen_buf_M
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD screen_buf
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"cursor",cursor_M
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD cursor
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"FINFO",FINFO
|
|||
|
|
call cfa__CREATEminusCODE
|
|||
|
|
DD FINFO
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"ROWH",ROWH
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD ROWH
|
|||
|
|
call cfa__TOVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"ROWW",ROWW
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD 6
|
|||
|
|
call cfa__TOVALUEminusCODE
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"MEMS",MEMS
|
|||
|
|
call cfa__CONSTANTminusCODE
|
|||
|
|
DD MEMS
|
|||
|
|
|
|||
|
|
cfa_AHEADER 0,"draw_window",draw_window
|
|||
|
|
PUSH EDI
|
|||
|
|
CALL draw_window
|
|||
|
|
POP EDI
|
|||
|
|
RET
|
|||
|
|
|
|||
|
|
; cfa_AHEADER 0,'MEBLK',MEBLK
|
|||
|
|
; call cfa__USERminusCODE
|
|||
|
|
; DD BLK_P-main_task
|
|||
|
|
|
|||
|
|
main_task:
|
|||
|
|
T_R0:
|
|||
|
|
DD 0
|
|||
|
|
T_S0:
|
|||
|
|
DD SPP ;STACK0
|
|||
|
|
T_WARNING:
|
|||
|
|
DD -1
|
|||
|
|
T_STATE:
|
|||
|
|
DD 0
|
|||
|
|
T_BLK:
|
|||
|
|
DD 0
|
|||
|
|
T_CURFILE:
|
|||
|
|
DD 0
|
|||
|
|
T_HANDLER:
|
|||
|
|
DD 0
|
|||
|
|
T_HLD:
|
|||
|
|
DD 5
|
|||
|
|
T_BASE:
|
|||
|
|
DD 0AH
|
|||
|
|
DD PAD_SIZE DUP (0)
|
|||
|
|
T_PAD:
|
|||
|
|
DD PAD_SIZE DUP (0)
|
|||
|
|
T_ERminusA:
|
|||
|
|
DD 0
|
|||
|
|
T_ERminusU:
|
|||
|
|
DD 0
|
|||
|
|
T_DOESgreatA:
|
|||
|
|
DD 0
|
|||
|
|
;T_ALIGNminusBYTES:
|
|||
|
|
DD 0
|
|||
|
|
T_nTIB:
|
|||
|
|
DD 0
|
|||
|
|
T_greatIN:
|
|||
|
|
DD 5
|
|||
|
|
T_TIB:
|
|||
|
|
DD T_ATIB
|
|||
|
|
T_ATIB:
|
|||
|
|
DD TIB_SIZE DUP (0)
|
|||
|
|
T_SOURCEminusID:
|
|||
|
|
DD 0
|
|||
|
|
T_CURSTR:
|
|||
|
|
DD 0
|
|||
|
|
T_WBWminusNFA:
|
|||
|
|
DD 0
|
|||
|
|
T_WBWminusOFFS:
|
|||
|
|
DD 0
|
|||
|
|
T_CURRENT:
|
|||
|
|
DD T_FORTH+4
|
|||
|
|
T_SminusO:
|
|||
|
|
DD T_FORTH+4,T_FORTH+4
|
|||
|
|
DD 16 DUP (0)
|
|||
|
|
T_CONTEXT:
|
|||
|
|
DD T_SminusO
|
|||
|
|
T_greatOUT:
|
|||
|
|
DD 0
|
|||
|
|
T_WminusCNT:
|
|||
|
|
DD 0
|
|||
|
|
T_NNN:
|
|||
|
|
DD 0
|
|||
|
|
Mreserve:
|
|||
|
|
DD MUSEROFFS DUP (0)
|
|||
|
|
UPP:
|
|||
|
|
|
|||
|
|
BASE_P DD BASEE
|
|||
|
|
TEMP_P DD 0
|
|||
|
|
INN_P DD 0
|
|||
|
|
NTIB_P DD 0
|
|||
|
|
TIB_P DD TIBB
|
|||
|
|
;TEVAL_P DD INTER
|
|||
|
|
HLD_P DD 0
|
|||
|
|
CNTXT_P DD 0
|
|||
|
|
CP_P DD CTOP
|
|||
|
|
;LAST_P DD LASTN ;LAST
|
|||
|
|
EMIT_PROC_P DD -1 ; EMITPROC
|
|||
|
|
reg_struc_P DD 0
|
|||
|
|
; BLK_P DD FILE_B
|
|||
|
|
; fi_struc_P DD FINFO
|
|||
|
|
workarea_P DD os_work
|
|||
|
|
|
|||
|
|
DD 1000 DUP (0)
|
|||
|
|
|
|||
|
|
T_FORTH:
|
|||
|
|
DD 0 ; <20><><EFBFBD> VOC-LIST
|
|||
|
|
DD LastNFA ; <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><E1ABA5><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> !!!!!!!!
|
|||
|
|
DD 0 ; <20>।<EFBFBD><E0A5A4>
|
|||
|
|
DD 0 ; <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
ByeLevel DD 0
|