You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
.ASu:?6 VEX l.d SOURCE: FORTH.Aa6 Fig <strong>Forth</strong> <strong>8086</strong>/88 Ver 1.Q<br />
EJECT<br />
; NO MATCH YET.<br />
POP S I<br />
POP CX<br />
POP BX<br />
DEC DX<br />
JNZ MAT1<br />
JMP MAT 4<br />
MATC HOK :<br />
NOMATCH:<br />
POP<br />
POP<br />
POP<br />
; RESTORE PGINTERS<br />
; BYTE LEFT COUNT -1<br />
; START OVER<br />
; EXIT.. .NO MATCH<br />
; ADJUST STACK<br />
; FOR EXIT.. .<br />
; EXIT HERE: DX = TRUE/FALSE FLAG (0-NO XATCH)<br />
I<br />
MAT4: MOV AXIS1 ; NEk CUaSOR ADDR<br />
POP S I ; GET STARTING ADDR<br />
SUB AXIS1 ; COMPUTE CURSaR OFFSET<br />
MOV SIIDI ; GET BACK IP<br />
JMP DPUSH ; BYS...BYE<br />
PAGE 112
Change language