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 />
I<br />
; XLW XHW YLW YHW --> SLW SHW<br />
; S 4 53 S2 S1 S2 s1<br />
D S<br />
DB<br />
DB<br />
DW<br />
DPLUS DW<br />
POP<br />
POP<br />
POP<br />
POP<br />
ADD<br />
ADC<br />
JMP<br />
. *************<br />
I<br />
; * MINUS *<br />
. *************<br />
I<br />
I<br />
DB<br />
DB<br />
DB<br />
DW<br />
MINUS DW<br />
POP<br />
N EG<br />
JMP<br />
. **************<br />
; * DMINUS *<br />
. **************<br />
I<br />
8 2H<br />
'0 '<br />
'+'+80H<br />
PLUS-4<br />
$+2<br />
AX ; YHW<br />
DX ; YLW<br />
BX ; XHW<br />
CX ; XLW<br />
DX,CX ; SLW<br />
AXIBX ; SHW<br />
DPUSH<br />
85H<br />
'MINU'<br />
'S'+80H<br />
DPLUS-5<br />
$+2<br />
AX<br />
AX<br />
APUSH<br />
DB 86H<br />
DB 'DMINU'<br />
DB 'S '+80H<br />
DW MINUS-8<br />
DMINU DW $+2<br />
PG P BX<br />
POP CX<br />
SUB AX, AX<br />
MOV DX, AX<br />
SUB DX, CX<br />
SBB AXIBX<br />
JMP DPUSH<br />
; ZERO<br />
; MAKE 2's COMPLEMENT<br />
; HIGH WORD<br />
PAGE 2