You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
ASM86 VER 1.d SOURCE: PORTB,A86<br />
I NC<br />
INC<br />
JMP<br />
. **********ti**<br />
; * (LOOP) *<br />
. **************<br />
DB<br />
DB<br />
DB<br />
DW<br />
XLOOP CW<br />
MOV<br />
XL001: ADD<br />
MOV<br />
SUB<br />
XOR<br />
JS<br />
Fig <strong>Forth</strong> 8a86/88 Vet 1.0<br />
SI<br />
SI<br />
NEXT<br />
; NO, CONTINUE...<br />
86H<br />
' (LOOP '<br />
') '+80E<br />
ZBRAN-0AH<br />
$+2<br />
BX,l ; INCREMENT<br />
[BPI , BX ; INDEX=INDEX+INCR<br />
AX, [SP] ; GET NEW INGEX<br />
AX,2[a?] ; COM?ARE WITH LIYIT<br />
AX,BX ; TEST SIGN (BIT-16)<br />
BRAN1 ; KEEP LOOPIXG...<br />
; END OF 'DO' LOOP.<br />
ADD BP,4 ; ADJ. RETURN STK<br />
INC SI<br />
INC SI ; BYPASS SMNCH OFFSET<br />
JMP NEXT ; CONTINUE.. .<br />
DB<br />
DB<br />
D B<br />
DW<br />
XPLOO DW<br />
POP<br />
JMP<br />
#<br />
XDO<br />
DB<br />
DB<br />
D B<br />
DW<br />
DW<br />
POP<br />
POP<br />
XCHG<br />
PUSH<br />
PUS3<br />
XCHG<br />
JMP<br />
87H<br />
(+LOOPf<br />
') '+80H<br />
XLOOP-9<br />
S+2<br />
BX ; GET LOOP VALUE<br />
XLOOl<br />
84H<br />
' (DO'<br />
I ) '+80H<br />
XPLOO-BAH<br />
$+2<br />
DX ; I NITIAL INDEX VALUE<br />
AX ; LIMIT VALUE<br />
BP,SP ; GET RETURN STACK<br />
AX<br />
DX<br />
BP,SP ; GET PARAMETER STACK<br />
NEXT