Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
ASM86 VER 1.0 SOURCE: FORTH.A86 Fig <strong>Forth</strong> <strong>8086</strong>/88 Ver 1.0<br />
0EF1 C5<br />
0EF2 46 4F 52 54<br />
0EF6 C8<br />
0EF7 BC 0E<br />
0EF9 DF 09<br />
0EFE E9 0E<br />
QEFD 81 A0<br />
0EFF 00 1A<br />
OF01 00 00<br />
EJECT<br />
. *************<br />
; * FORTH *<br />
. *************<br />
I<br />
I<br />
; THE 'TASK-7' IS A COLD START VALUE<br />
; ONLY. ITS CHANGED EACH TIME A<br />
; DEFINITION IS APPENED TO THE<br />
; VOCABULARY.<br />
'FORTH'<br />
I<br />
FORTH<br />
DB<br />
DB<br />
DB<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
0C 5H<br />
' FORT '<br />
'Ht+80H<br />
VOCAB-0DH<br />
DODOE<br />
DOVOC<br />
0A081H<br />
TASK-7 ;<br />
0 I<br />
. *******************<br />
; * DEFINITIONS *<br />
. *******************<br />
OF03 8B<br />
0Fg4 44 45 46 49 4E 49<br />
54 49 4F 4E<br />
I<br />
DB<br />
D B<br />
8B H<br />
'DEFINITION '<br />
0E0E D3 DB 'S1+8@H<br />
0FQF El 0E DW FORTH-8<br />
OF11 20 05 DEFIN DW DOCOL<br />
OF13 A8 06 DW CONT<br />
OF15 B4 04 DW AT<br />
OF17 B6 06 DW CURR<br />
OF19 DF 04 DW STORE<br />
0FlB 9A 03 DW SEMIS<br />
I<br />
PAREN<br />
DB 0C 1H<br />
DB ' ('+80H<br />
DW DEFIN-0EH<br />
DW DOCOL<br />
DW LIT, ' ) '<br />
DW WORDS<br />
DW SEMIS<br />
PAGE 65<br />
COLD START VALUE ONLY<br />
END OF VOCABULARY LIST