Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
ASM86 VER 1.0 SOURCE: FORTH.A86 Fig <strong>Forth</strong> <strong>8086</strong>/88 Ver 1.0<br />
PBUF<br />
PBUF 1<br />
EJECT<br />
. **************<br />
; * UPDATE *<br />
. **************<br />
UPDAT<br />
84H<br />
'+BU '<br />
'F1+80a<br />
DSKERR-13<br />
DOCOL<br />
LIT, CO<br />
PLUS, DUP<br />
LIMIT, EQUAL<br />
ZBRAN<br />
OFFSET PBUF1-$<br />
DROP, FIRST<br />
DUP PREV<br />
AT, SUBB<br />
SEMIS<br />
86H<br />
'UPDAT '<br />
'E1+80H<br />
PBUF-7<br />
DOCOL, PREV<br />
AT, AT<br />
LIT, 8000H<br />
ORR<br />
PREV, AT<br />
STORE, SEMIS<br />
* .....................<br />
; * EMPTY-BUFFERS *<br />
. .....................<br />
MTBUF<br />
8DH<br />
'EMPTY-BUFFER'<br />
'S '+80H<br />
UPDAT-9<br />
DOCOL, FIRST<br />
LIMIT,OVER<br />
SUBB, ERASEE<br />
SEMIS<br />
PAGE 81