Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
AS286 VER 1.0 SOURCE: FORTH. A86 Fig <strong>Forth</strong> <strong>8086</strong>/88 Ver 1.0 PAGE 1Q9<br />
EJECT<br />
***it********<br />
; * VLIST *<br />
. *************<br />
I<br />
DB<br />
DB<br />
85H<br />
'VLIS '<br />
VLIST<br />
DB<br />
DW<br />
DW<br />
'T1+80H<br />
UDOT-5<br />
DOCOL<br />
VLISl<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
LIT, 80H<br />
OUTT<br />
STORE<br />
CONT<br />
AT<br />
AT<br />
OUTT ; BEGIN<br />
AT<br />
CSLL<br />
GREAT<br />
ZBRAN ; IF<br />
OFFSET VLIS2-$<br />
CR<br />
ZERO<br />
DW OUTT<br />
DW STORE<br />
VLIS2 DW DLJP<br />
DW IDDOT<br />
DW SPACE<br />
Did SPACE<br />
DW PFA<br />
Dbi LF A<br />
DK AT<br />
DW DUP<br />
DW ZEQU<br />
Did QTERM<br />
D W ORR<br />
; * BYE *<br />
. ***********<br />
; ENDIF<br />
DW ZBRAN ; UNTIL<br />
DW OFFSET VLISI-$<br />
DW DROP<br />
DW SEMIS<br />
I<br />
; EXIT TO CP/M OR YOUR MONITOR<br />
,<br />
DB 8 3H ; 9YE<br />
D B 'BY'<br />
DB 'E1+80H<br />
BYE<br />
DW VLIST-8<br />
DW $+2<br />
JMP EXIT<br />
; BACK TO SYSTEM
Change language