Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
ASY86 VER 1.3 SOURCE: FORTH.A86<br />
EJECT<br />
. ***********<br />
f<br />
; DISK READ/hRITE ROUTINE<br />
I<br />
Fig <strong>Forth</strong> <strong>8086</strong>/!38 Ver 1.0<br />
D B 8 3H<br />
DB 'R/'<br />
DB 'W1+80H<br />
DW SECWT-12<br />
DW DOCOL<br />
DW USE,AT<br />
DW TOR<br />
DW SWAP,SPBLK<br />
DW STAR, ROT<br />
Dw USE, STORE<br />
DW SPBLK, ZERO<br />
DW XDO<br />
RSLWl CW OV52, OVER<br />
DW TSCALC, SETIO<br />
DW ZBRAN<br />
DW OFFSET RSLX2-$<br />
DW SECRD<br />
DW BRAN<br />
DW OFFSET RSLW3-$<br />
RSLN2 DW SECijT<br />
RSLW3 DM ONE?<br />
DW LIT, 81JH<br />
DW JSE, PSTOR<br />
DW XLOOP<br />
DW OFFSET RSLbi1-$<br />
DM DRG?, DROP<br />
DW FROYR, USE<br />
DW STCRE, SEMIS