You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
ASM86 VER 1.n SOURCE: FORTH.A86 Fig <strong>Forth</strong> 8886/88 Ver 1.0<br />
EJECT<br />
. ****************<br />
; * 0 (NULL) *<br />
. ****************<br />
NULL<br />
. *******it***<br />
; * FILL *<br />
. ************<br />
I<br />
FILL<br />
DB<br />
DB<br />
DB<br />
DW<br />
DW<br />
POP<br />
POP<br />
POP<br />
MOV<br />
MOV<br />
CLD<br />
REP<br />
JMP<br />
0C 1H ; A BINARY ZERO<br />
80H<br />
QUERY-8<br />
DOCOL<br />
BLK<br />
AT<br />
ZBRAN ; I F<br />
OFFSET NULL1-$<br />
ONE<br />
BLK<br />
PSTOR<br />
ZERO<br />
INN<br />
STORE<br />
BLK<br />
AT<br />
BSCR<br />
ONE<br />
SUBB<br />
ANDD<br />
ZEQU<br />
ZBRAN ; I F<br />
OFFSET NULL2-$<br />
QEXEC<br />
FROM R<br />
DRDP ; ENDIF<br />
BRAN ; ELSE<br />
OFFSET NULL3-$<br />
FROMR<br />
DROP ; ENDIF<br />
SEMIS<br />
84H<br />
'FIL'<br />
'L1+80H<br />
NULL-4<br />
$+2<br />
AX ; FILL CHAR<br />
CX ; FILL COUNT<br />
DI ; BEGIN ADR<br />
BX, DS<br />
ES,BX ; ES