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 />
EJECT<br />
**it***********<br />
. * 'TNEXT ' *<br />
. ***************<br />
t<br />
; THIS IS 'NEXT' WITH DEBUG SUPPORT ...<br />
I<br />
TNEXT: PUSHF<br />
PUSH<br />
MOV<br />
OR<br />
JZ<br />
CMP<br />
JZ<br />
CMP<br />
JZ<br />
JA<br />
MOV<br />
OR<br />
JZ<br />
CMP<br />
JB<br />
; PAUSE ON ADDRESS<br />
I<br />
TNEXTl: POP<br />
POPF<br />
AX<br />
AX,BIP<br />
AX, AX<br />
TNEXT2<br />
AXl-1<br />
TNEXTl<br />
AX,SI<br />
TNEXTl<br />
TNEXT 2<br />
AX,BIPE<br />
AX,AX<br />
TNEXT2<br />
AX,SI<br />
TNEXT2<br />
; SAVE REGS<br />
PAGE<br />
; BREAKPOINT START ADDR<br />
; ZERO?<br />
; NO BREAKPOINT<br />
; STEP ALL POINTS<br />
; I K BREAKPOINT RANGE?<br />
; STEP THIS LOCATION<br />
; NO<br />
; BREAKPOINT END ADDR<br />
; ZERO?<br />
; ONLY ONE LOCATION<br />
; I N RANGE STILL?<br />
; NO<br />
; RESTORE REG<br />
; ADD YOUR BREAKPOINT CALL HERE<br />
I<br />
BREAK: JMPS TNEXT3 ; CONTINUE WITH PROGRAM<br />
; NO BREAKPOINT PAUSE, RESTORE REGISTERS<br />
I<br />
TNEXT2: POP AX<br />
POPF<br />
TNEXT3: LODS AX<br />
MOV BX,AX<br />
JMPS NEXT1<br />
; AX