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<br />
EJECT<br />
ORIG DB<br />
JMP<br />
NOP<br />
JMP<br />
Fig <strong>Forth</strong> <strong>8086</strong>/88 Ver 1.B PAGE<br />
908<br />
CLD<br />
WRM<br />
; 'NOP' INSTRUCTION<br />
; VECTOR TO COLD START<br />
: VECTOR TO WARM START<br />
FIGREL ; F IG RELEASE #<br />
FIGREV ; F IG REVISION #<br />
USRVER ; USER VERSION #<br />
OEH ; VERSION ATTRIBUTES<br />
TASK-7 ; TOP WORD IN FORTE VOC<br />
BSIN ; BKSPACE CHARACTER<br />
INITR0 ; I NIT (UP)<br />
; >><br />
I<br />
; MUST BE IN SAME ORDER AS USER VARIABLES<br />
I<br />
DW INITS0 ; I NIT (S0)<br />
DW INITRB ; I NIT (RO)<br />
DW INITS0 ; I NIT (TIB)<br />
DW 3 2 ; I NIT (WIDTH)<br />
DW 0 ; I NIT (NARNING)<br />
DW INITDP ; I NIT (FENCE)<br />
DW INITDP ; I NIT (DP)<br />
DW FORTH+6 ; I NIT (VOC-LINK)<br />
I<br />
; <br />
; THE FOLLOWING IS THE CPU'S NAME (PRINTED DURING<br />
; "COLD" START).<br />
I<br />
; THE NAME IS 32 BITS IN BASE 32.<br />
I<br />
DW 5H, 0B326H ; " <strong>8086</strong>"<br />
INITR0 ; USER AREA POINTER<br />
INITR0 ; RETURN STACK POINTER