forked from KolibriOS/kolibrios
115 lines
2.0 KiB
FortranFixed
115 lines
2.0 KiB
FortranFixed
|
( <20><><EFBFBD>楤<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>६<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>믮<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> CONSTANT, VARIABLE, etc.
|
|||
|
|
<20><>-<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᨬ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>.
|
|||
|
|
Copyright [C] 1992-1999 A.Cherezov ac@forth.org
|
|||
|
|
<20>८<EFBFBD>ࠧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> 16-ࠧ<EFBFBD>來<EFBFBD><EFBFBD><EFBFBD> <EFBFBD> 32-ࠧ<EFBFBD>來<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> - 1995-96<EFBFBD><EFBFBD>
|
|||
|
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - ᥭ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1999
|
|||
|
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>.<EFBFBD>.
|
|||
|
|
email:mak@mail.rtc.neva.ru
|
|||
|
|
http://informer.rtc.neva.ru/
|
|||
|
|
<20> <20> {812}105-92-03
|
|||
|
|
<20> <20> {812}552-47-64
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
Code _CREATE-CODE
|
|||
|
|
SUB EBP, 4
|
|||
|
|
MOV [EBP] , EAX
|
|||
|
|
POP EAX
|
|||
|
|
RET
|
|||
|
|
EndCode
|
|||
|
|
|
|||
|
|
Code _CONSTANT-CODE
|
|||
|
|
SUB EBP , 4
|
|||
|
|
MOV [EBP] , EAX
|
|||
|
|
POP EAX
|
|||
|
|
MOV EAX, [EAX]
|
|||
|
|
RET
|
|||
|
|
EndCode
|
|||
|
|
|
|||
|
|
Code _USER-CODE
|
|||
|
|
SUB EBP, 4
|
|||
|
|
MOV [EBP], EAX
|
|||
|
|
POP EAX
|
|||
|
|
MOV EAX, [EAX]
|
|||
|
|
ADD EAX, EDI
|
|||
|
|
RET
|
|||
|
|
EndCode
|
|||
|
|
|
|||
|
|
Code USER+ ;( offs -- addr )
|
|||
|
|
ADD EAX, EDI
|
|||
|
|
RET
|
|||
|
|
EndCode
|
|||
|
|
|
|||
|
|
Code _USER-VALUE-CODE
|
|||
|
|
SUB EBP , 4
|
|||
|
|
MOV [EBP] , EAX
|
|||
|
|
POP EAX
|
|||
|
|
MOV EAX, [EAX]
|
|||
|
|
ADD EAX, EDI
|
|||
|
|
MOV EAX, [EAX]
|
|||
|
|
RET
|
|||
|
|
EndCode
|
|||
|
|
|
|||
|
|
|
|||
|
|
Code _USER-VECT-CODE
|
|||
|
|
POP EBX
|
|||
|
|
MOV EBX, [EBX]
|
|||
|
|
LEA EBX, [EDI+EBX]
|
|||
|
|
MOV EBX, [EBX]
|
|||
|
|
JMP EBX
|
|||
|
|
RET
|
|||
|
|
EndCode
|
|||
|
|
|
|||
|
|
Code _VECT-CODE
|
|||
|
|
POP EBX
|
|||
|
|
JMP [EBX]
|
|||
|
|
EndCode
|
|||
|
|
|
|||
|
|
Code _TOVALUE-CODE
|
|||
|
|
POP EBX
|
|||
|
|
SUB EBX, 9
|
|||
|
|
MOV [EBX] , EAX
|
|||
|
|
MOV EAX, [EBP]
|
|||
|
|
ADD EBP, 4
|
|||
|
|
RET
|
|||
|
|
EndCode
|
|||
|
|
|
|||
|
|
Code _TOUSER-VALUE-CODE
|
|||
|
|
POP EBX
|
|||
|
|
SUB EBX, 9
|
|||
|
|
MOV EBX, [EBX] ; ᬥ饭<EFBFBD><EFBFBD> user-<EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
ADD EBX, EDI
|
|||
|
|
MOV [EBX] , EAX
|
|||
|
|
MOV EAX, [EBP]
|
|||
|
|
ADD EBP, 4
|
|||
|
|
RET
|
|||
|
|
EndCode
|
|||
|
|
|
|||
|
|
|
|||
|
|
Code _SLITERAL-CODE
|
|||
|
|
SUB EBP, 8
|
|||
|
|
MOV [EBP+4], EAX
|
|||
|
|
POP EBX
|
|||
|
|
MOVZX EAX, BYTE PTR [EBX]
|
|||
|
|
INC EBX
|
|||
|
|
MOV [EBP], EBX
|
|||
|
|
ADD EBX, EAX
|
|||
|
|
; INC EBX
|
|||
|
|
JMP EBX
|
|||
|
|
EndCode
|
|||
|
|
|
|||
|
|
Code _CLITERAL-CODE
|
|||
|
|
SUB EBP, 4
|
|||
|
|
MOV [EBP] , EAX
|
|||
|
|
POP EAX
|
|||
|
|
MOVZX EBX, BYTE PTR [EAX]
|
|||
|
|
LEA EBX, [EAX+EBX+1]
|
|||
|
|
JMP EBX
|
|||
|
|
EndCode
|
|||
|
|
|
|||
|
|
\EOF
|
|||
|
|
' _CLITERAL-CODE VALUE CLITERAL-CODE
|
|||
|
|
' _CREATE-CODE VALUE CREATE-CODE
|
|||
|
|
' _USER-CODE VALUE USER-CODE
|
|||
|
|
' _CONSTANT-CODE VALUE CONSTANT-CODE
|
|||
|
|
' _TOVALUE-CODE VALUE TOVALUE-CODE
|