Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
ASPI86 VER 1.0 SOURCE: FORTH.AE6<br />
EJECT<br />
. *************<br />
; * BLOCK *<br />
. *************<br />
;<br />
DB<br />
DB<br />
DB<br />
DW<br />
BLOCK DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
BLOC2 DW<br />
D W<br />
DW<br />
DW<br />
DW<br />
DW<br />
D W<br />
DW<br />
BLOC3 DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
BLOC1 DW<br />
DW<br />
Fig <strong>Forth</strong> <strong>8086</strong>/88 Ver 1.0<br />
85H<br />
'BLOC '<br />
'Kt+80H<br />
BUFFE-9<br />
DOCOL,OFSET<br />
AT, PLUS<br />
TOR, PREV<br />
AT, DUP<br />
AT, RR<br />
SUED<br />
DUP, PLUS<br />
ZBRAN<br />
OFFSET BLOC1-$<br />
TBUF , ZEQU<br />
ZBRAN<br />
OFFSET BLOC3-$<br />
DROP, RR<br />
BUFFZ, DL'P<br />
RR,ONE<br />
RS LW<br />
Two, SUBB<br />
DU?, AT<br />
RR, SUBB<br />
DUP, PLUS<br />
ZEQU<br />
ZBRAN<br />
OFFSET BLOC2-$<br />
DUP, PREV<br />
STORE<br />
FROMR, DROP<br />
TWOPISEMIS<br />
PAGE 84