Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
SOURCE: FORTH.A86 Fig <strong>Forth</strong> <strong>8086</strong>/88 Ver 1.0<br />
EJECT<br />
- **************<br />
; * (LINE) *<br />
. ********ti****<br />
I<br />
DB<br />
D a<br />
D a<br />
DW<br />
PLINE DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DX<br />
DK<br />
DW<br />
DW<br />
DW<br />
DW<br />
DM<br />
DLINE<br />
; ***************<br />
; * MESSAGE<br />
. ***************<br />
MESS<br />
86H<br />
' (LINE'<br />
') '+8aH<br />
MSMOD-8<br />
DOCOL<br />
TOR<br />
LIT, 64<br />
BBUF<br />
SSMOD<br />
FROMR<br />
BSCR<br />
STAT!<br />
PLUS<br />
BLOCK<br />
PLLiS<br />
LIT, 64<br />
SEMIS<br />
85H<br />
' . LIN '<br />
'E"t8gi-l<br />
PLI?JZ-9<br />
GCCOL<br />
PLI:iE<br />
DT.SA2<br />
TYPES<br />
SEMIS<br />
87H<br />
'MESSAG '<br />
'E'+88H<br />
DLINE-8<br />
DCCOL<br />
XARN<br />
AT<br />
ZBRAN ; IF'<br />
OFFSET MESS1-$<br />
DDUP<br />
ZBRAN ; IF<br />
OFFSET MESS2-$<br />
LIT, 4<br />
PACE 73