You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
2 . 6 3 1 SOURCE: FORTH.AB6<br />
ABS<br />
; * DABS *<br />
. ************<br />
t<br />
. ***********<br />
; * MIN *<br />
. ***********<br />
. ***********<br />
; * MAX *<br />
. ***********<br />
I<br />
MAX<br />
Fig <strong>Forth</strong> <strong>8086</strong>/38 Ver 1.a<br />
DPY-6<br />
DOCOL<br />
GUP<br />
?!'I<br />
SEMIS<br />
84H<br />
'DAB '<br />
'S1+80H<br />
ABS-6<br />
DOCOL<br />
DUP<br />
DPY<br />
SEFIIS<br />
833<br />
'YI '<br />
'N '+ad3<br />
DABS-7<br />
DOCOL,TGUP<br />
GZZAT<br />
ZSRAN ; IF<br />
3FFSET MIN1-$<br />
Sij A? ; ENDIF<br />
CRS?<br />
SEHIS<br />
83H<br />
'MA'<br />
'X '+80H<br />
MIN-6<br />
DOCOL,TDL'P<br />
LESS<br />
ZBRAN ; IF<br />
DFFSET MAX1-$<br />
SSAP ; ENCIF<br />
DROP<br />
SEYIS<br />
PAGE 7.2