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 />
; * EXPECT *<br />
. **************<br />
I<br />
DS<br />
DB<br />
86H<br />
'EXPEC '<br />
DB 'T8+80H<br />
DW DOTQ-5<br />
EXPEC DW<br />
DW<br />
DW<br />
DOCOL<br />
OVE R<br />
PLUS<br />
DW OVER<br />
DW XDO<br />
EXPEl DW KEY<br />
DW<br />
DW<br />
DUP<br />
LIT, 0EH<br />
DW PORIG<br />
DW AT<br />
DW EQUAL<br />
DW ZBRAN ; IF DW OFFSET EXPE2-$<br />
DW DROP<br />
DW DUP<br />
DW ID0<br />
DW EQUAL<br />
DW DUP<br />
DW FROMR<br />
DW TWO<br />
DW SUB B<br />
DW PLUS<br />
DW<br />
DW<br />
TOR<br />
ZBRAN ; IF DW OFFSET EXPE6-$<br />
DW LIT<br />
DW BELL<br />
DW BRAN ; ELSE<br />
DW OFFSET EXPE7-$<br />
EXPE6 DW LIT<br />
DW BSOUT ; ENDIF<br />
EXPE7 DW BRAN ; ELSE<br />
DW OFFSET EXPE3-$<br />
EXPE2 DW DUP<br />
DW LIT, 0DH<br />
DW<br />
DW<br />
EQUAL<br />
ZBRAN ; IF<br />
DW OFFSET EXPE4-$<br />
DW LEAVE<br />
DW DROP<br />
DW BLS<br />
DW ZERO<br />
BRAN ; ELSE<br />
OFFSET EXPES-$<br />
DUP<br />
ID0<br />
CSTOR<br />
ZERO<br />
; ENDIF<br />
PAGE 5: