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 />
EJECT<br />
. *****************<br />
; * [COMPILE] *<br />
. *****************<br />
BCOMP<br />
. ***************<br />
; * LITERAL *<br />
. ***************<br />
0C 9H<br />
' [COMPILE '<br />
'1 '+80H<br />
CREAT-9<br />
DOCOL<br />
DFIND<br />
ZEQU<br />
ZERO<br />
QERR<br />
DROP<br />
CF A<br />
COMYA<br />
SEMIS<br />
I<br />
0DF0 C7 DB 0C7H<br />
0DF1 4C 49 54 45 52 41 DB 'LITERA'<br />
0DF7 CC DB 'L8+80H<br />
0DF8 D2 OD DW BCOMP-0CH<br />
0DFA 20 05 LITER DW DOCOL<br />
ODFC C2 06 DW STATE<br />
0DFE B4 04 DW AT<br />
BE00 9A 01 DW ZBRAN ; I F<br />
0E02 08 00 DW OFFSET LITE1-$<br />
0E04 1E 09 DW COM P<br />
0E06 6A 01 DW LIT<br />
BE08 3F 07 DW COMMA ; ENDIF<br />
0E0A 9A 03 DW SEMIS<br />
PAGE 61