Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
ASM86 VEX 1.0 SOURCE: FORTH.A86<br />
EJECT<br />
. *************<br />
I<br />
; * TRIAD *<br />
. *************<br />
1<br />
DB<br />
DB<br />
DB<br />
DW<br />
TRIAD DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
D W<br />
TRIA1 DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
TRIA2 DW<br />
DW<br />
DW<br />
Dw<br />
DTv'<br />
DW<br />
I<br />
; PRINT CPU TYPE (<strong>8086</strong>)<br />
I<br />
Fig <strong>Forth</strong> <strong>8086</strong>/88 Ver 1.0<br />
DB 84ii<br />
DB '.CP1<br />
DB 'U1+8BH<br />
DW TRIAD-8<br />
DOTCPL' DW DOCOL<br />
DW BASE,AT<br />
DW LIT, 36<br />
DW BASE, STORE<br />
DW LIT, 22H<br />
DW PORIG,TAT<br />
DW DDOT<br />
DW SASE,STORE<br />
DW SEMIS<br />
85H<br />
' TRIA '<br />
'D8+80H<br />
INDEX-8<br />
DOCOL<br />
LIT, FF<br />
EM I T<br />
LIT, 3<br />
SLASH<br />
LIT, 3<br />
STAR<br />
LIT, 3<br />
OVER, PLUS<br />
SWAP , XDO<br />
CR, ID0<br />
LISTC<br />
QTERM ; ?TERMINAL<br />
ZBRAN<br />
CFFSET TRIA2-$ ; I F<br />
LEAVE ; LEAVE<br />
XLOOP ; ENDIF<br />
OFFSET TRIA1-$<br />
CR<br />
LIT,15<br />
MESS, CR<br />
SEMIS<br />
PAGE 110