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 PAGE 109<br />
EJECT<br />
; * LIST *<br />
. ************<br />
DB<br />
DB<br />
DB<br />
DW<br />
LISTC DW<br />
DW<br />
DW<br />
DW<br />
DB<br />
. *************<br />
; * INDEX *<br />
. *************<br />
I<br />
D B<br />
DB<br />
DB<br />
DW<br />
INDEX DW<br />
Did<br />
DW<br />
DW<br />
DW<br />
INDEl DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
INDE2 DW<br />
DW<br />
DW<br />
84H<br />
'LIS'<br />
'T1+80H<br />
BYE-6<br />
DOCOL, DECA<br />
CR, DUP<br />
SCR, STORE<br />
PDOTQ<br />
6,'SCR # '<br />
DOT<br />
LIT, 10H<br />
ZERO, XDO<br />
CR, ID0<br />
LIT, 3<br />
DOTR, SPACE<br />
IDO, SCR<br />
AT, DLINE<br />
QTERM<br />
ZBRAN<br />
OFFSET LIST2-$<br />
LEAVE<br />
XLOOP<br />
OFFSET LIST1-$<br />
CR, SEMIS<br />
85H<br />
' INDE '<br />
'X1+80H<br />
LISTC-7<br />
DOCOL<br />
LIT, FF<br />
EMIT, CR<br />
ONEP, SWAP<br />
XDO<br />
CR, ID0<br />
LIT, 3<br />
DOTR, SPACE<br />
ZERO, ID0<br />
DLINE I QTERM<br />
ZBRAN<br />
OFFSET INDE2-$<br />
LEAVE<br />
XLOOP<br />
OFFSET INDE1-$<br />
SEMIS<br />
; IF<br />
; LEAVE<br />
; ENDIF