8086-8088 V10 - Forth Interest Group

fig-FORTH 8086/8088 

ASSEMBLY SOURCE LISTING 

r 

io- R i 

~TEREST; 

G R O U P 

RELEASE 1.0 

WITH COMPILER SECURITY 

AND 

VARIABLE LENGTH WORDS 

MARCH 1981 

This public domain publication is provided through the courtesy 

of the FORTH Interest Group, PO Box 8231, San Jose, CA 95155. 

Further distribution must contain this notice.

ASY86 VER 1.0 SOURCE: PORTR.A86 Fig Forth 8086/88 Ver 1.0 PAGE 1 

TITLE 'Fig Forth 8086/88 Ver 1.0' 

PAGEXIDTH 75 

PAGESIZE 66 

*+* FIG-FORTH for the 8086/88 +** 

*** *** 

*rt* Version 1.0 rt*t 

*t* 2/15/81 trt* 

*** *** 

+*+ Contains interface for ++* 

trt+ CP/M-86 (version 1.0) *** 

***, *** 

*** *** 

*** . Implementation by **t 

t+* Thomas Kewman *** 

**t 27444 Berenda Way *** 

*** Hayward, Ca. 94544 +** 

* * * *** 

....................................... 

NOTE: This version only supports one 

memory segment of the 8036 (64k bytes). 

All publications of the Forth Interest Group 

are public domain. They may be further 

distributed by the inclusion of this credit 

notice: 

Tnis publication has been made available by the 

- -- -- -- - - - - - - 

INTEREST 

I 

P.O. Box 8231 

San Jose, CA 95155 

. ............................................... 

I 

, 

; Acknowledgements: 

I John Cassady 

I 

t 

Kim Harris 

George Flammer 

I Robt. D. Villwock

ASY86 VER 1.9 SOURCE: FORTH.A86 Fig Forth 8080/88 Ver 1.8 

EJECT 

................................................ 

I 

8 

I 

I 

FIGREL 

FIGREV 

USRVER 

I 

I 

t 

ABL 

ACR 

ADOT 

BELL 

BSIN 

BSOUT 

DLE 

LF 

FF 

I 

I 

EM 

NSCR 

KBSUF 

us 

RTS 

CO 

NBUF 

BUF 1 

INITR0 

INITSa 

RELEASE & VERSION NUMSERS 

EQU 

EQU 

EiZU 

ASCII CHARACTERS USED 

; FIG RELEASE # 

; FIG R EVISIJN #? 

; USER VERSIOK # 

; SPACE 

; CARRIAGE RETURN 

; P ERI9C 

; (-GI 

; INPUT DELETE CHAR 

; OUTPUT BACKSPACE (-H) 

: (--Dl 

; LINE FEED 

; FORM FEED (-L) 

4B0BH ; END OF MEMORY + 1 

1 ; NO. 1324 BYTE SCREENS 

128 ; DATA BYTES PER DISK 3LF 

4QH ; USER VARIABLES SPACE 

0AdH ; RETUgN STK & T5-XM aLF?. 

KBBCFt4 ; DISK 3UFFER +4 YYTSS 

NSCR*lZ24/KSBUF ; N3. OF 3LFFEXS 

EM-CO*NBUF ; F IZST DISK BUF 

BUF 1-LS ; (33) 

INITR3-ilTS ; (SO)

ASM86 VER 1.0 SOURCE: FORTH,A86 

EJECT 

ORIG DB 

JMP 

NOP 

JMP 

Fig Forth 8086/88 Ver 1.B PAGE 

908 

CLD 

WRM 

; 'NOP' INSTRUCTION 

; VECTOR TO COLD START 

: VECTOR TO WARM START 

FIGREL ; F IG RELEASE # 

FIGREV ; F IG REVISION # 

USRVER ; USER VERSION # 

OEH ; VERSION ATTRIBUTES 

TASK-7 ; TOP WORD IN FORTE VOC 

BSIN ; BKSPACE CHARACTER 

INITR0 ; I NIT (UP) 

; >> 

I 

; MUST BE IN SAME ORDER AS USER VARIABLES 

I 

DW INITS0 ; I NIT (S0) 

DW INITRB ; I NIT (RO) 

DW INITS0 ; I NIT (TIB) 

DW 3 2 ; I NIT (WIDTH) 

DW 0 ; I NIT (NARNING) 

DW INITDP ; I NIT (FENCE) 

DW INITDP ; I NIT (DP) 

DW FORTH+6 ; I NIT (VOC-LINK) 

I 

; 

; THE FOLLOWING IS THE CPU'S NAME (PRINTED DURING 

; "COLD" START). 

I 

; THE NAME IS 32 BITS IN BASE 32. 

I 

DW 5H, 0B326H ; " 8086" 

INITR0 ; USER AREA POINTER 

INITR0 ; RETURN STACK POINTER

SY86 VER 1.0 SOURCE: FORTH.A86 Fig Forth 8086/88 Ver 1.0 PAGE 4 

EJECT 

.----------------------------------------------- 

I 

; FORTH REGISTERS 

I 

; FORTH 8086 FORTH PRESERVATION RULES 

. ----- ---- ........................ 

I 

; I P INTERPRETER POINTER. 

I YUST BE PRESERVED 

I ACROSS FORTH WORDS. 

I 

W WORKING REGISTER. 

I JUMP TO 'DPUSH' WILL 

I PUSH CONTENTS ONTO TEE 

r PAMMETER STACK BEFORE 

I EXECUTING 'APUSH'. 

I 

; SF PARAMETER STACK POINTER. 

I MUST BE PRESERVED 

I ACROSS FORTH WORDS. 

I 

; RP RETURN STACK. 

1 MUST BE PRESERVED 

I ACROSS FORTE WORDS. 

I 

I GENERAL REGISTER. 

8 JUMP TO 'APUSH' WILL PUSH 

I CONTENTS ONTO TYE PAMMETER 

I STACK BEFORE EXECUTING 'NEXT' . 

I 

r GENERAL ?URPOSE REGISTER. 

I 

I GENERAL PURPOSE REGISTER. 

I 

I GENERAL PURPOSE REGISTER. 

I 

r SEGMENT REGISTER. MUST BE 

I PRESERVED ACROSS FORTH WORDS. 

I 

I DS 

I 

I SS 

I8 I1 IS 

I1 I I, 

I 

t ES TEMPORARY SEGMENT REGISTER 

I ONLY USED BY A FEW WORDS. 

I ..........................-.-............... 

1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l ) 1 1 1 1

ASM86 VER 1.0 SOURCE: FORTH.A86 

EJECT 

I 

; COMMENT CONVENTIONS: 

I - = MEANS 

;

SM86 VER 1.0 SOURCE: FORTH.A86 Fig Forth 8086j88 Ver 1.0 PAGE 6 

EJECT 

i ;""-'---"---'-'-------------------"'-------- 

I DEBUG SUPPORT 

I 

; THIS ROUTINE WILL ALLOW Y3U TO STEP THRU FORTH 

; PROGRAYS EVERY TIME 'NEXT' IS EXECUTED. 

I 

; I N ORDER TO USE THE STEP FEATURE, YOU MUST DO 

; THE FOLLOWING: 

I 

1 1. PATCH THE INSTRUCTIOX IN 'NEXT' 

t WITH A JUMP TO 'TNEXT'. 

I 

I 2. PATCH YOUR BREAKPOINT ROUTINE AT 

P 'BREAK' (USING 'DDT86' IN CP/M). 

I 

I 3. SET VARIABLES, 'BIP' & 'BIPE' TO THE 

I ADDRESSES YOU2 WAST TO STEP THROUGH. 

I 

I 

; THE CONTENTS OF THE TWO VARIAaLES 'BIPS' AND 

; ' BIPE' ARE INTERPRZTEC AS FOLLOwS: 

I 

; BIP BIPE DEBUG-CONDITION 

. ............................... 

I 

0 X 3FF 

; -1 X TXACE ALL 'NEXT' CALLS. 

; ADDRl 0 TRACE 'ADDR1' CNLY. 

; ADDRl ADDR2 TRACS 'ACD2.1' TO 'ACCP.1'. 

I 

; NOTE: THE ABOVE ADDRESSES CAN'T POiNT 

1 TO A 'CODE FIELD A3DRESS ' . 

1 'X' = DON'T CARE VAL3E. 

I - ................................ 

; BREAKPOINT START ADDR 

; BREAKPOINT END ADDR

ASM86 VER 1.0 SOURCE: FORTH. A86 Fig Forth 8086/88 Ver 1.0 

EJECT 

**it*********** 

. * 'TNEXT ' * 

. *************** 

t 

; THIS IS 'NEXT' WITH DEBUG SUPPORT ... 

I 

TNEXT: PUSHF 

PUSH 

MOV 

OR 

JZ 

CMP 

JZ 

CMP 

JZ 

JA 

MOV 

OR 

JZ 

CMP 

JB 

; PAUSE ON ADDRESS 

I 

TNEXTl: POP 

POPF 

AX 

AX,BIP 

AX, AX 

TNEXT2 

AXl-1 

TNEXTl 

AX,SI 

TNEXTl 

TNEXT 2 

AX,BIPE 

AX,AX 

TNEXT2 

AX,SI 

TNEXT2 

; SAVE REGS 

PAGE 

; BREAKPOINT START ADDR 

; ZERO? 

; NO BREAKPOINT 

; STEP ALL POINTS 

; I K BREAKPOINT RANGE? 

; STEP THIS LOCATION 

; NO 

; BREAKPOINT END ADDR 

; ZERO? 

; ONLY ONE LOCATION 

; I N RANGE STILL? 

; NO 

; RESTORE REG 

; ADD YOUR BREAKPOINT CALL HERE 

I 

BREAK: JMPS TNEXT3 ; CONTINUE WITH PROGRAM 

; NO BREAKPOINT PAUSE, RESTORE REGISTERS 

I 

TNEXT2: POP AX 

POPF 

TNEXT3: LODS AX 

MOV BX,AX 

JMPS NEXT1 

; AX

SOURCE: FORTB.A86 Fig Forth 8586/88 Ver 1.53 

EJECT 

. * * 

I 

; * NEXT * 

. * * 

; * DPUSH * . * * 

; * APUSH * 

; * 

* 

. ************* 

I 

; 

DPUSH: PUSH 

APUSH: PUSH 

I 

; PATCH THE NEXT 3 LOCATIONS 

; (USING A DEBUG MONITOR; I.E. DDT86) 

; WITH 'JMP TNEXT' FOR TiiACING THXOUGH 

; HIGH-LEVEL FORTH WORDS. 

I 

NEXT: LODS AX ; AX

ASM86 VER 1.0 SOURCE : FORTH. A86 Fig Forth 8086/88 Ver 1.0 PAGE 

EJECT 

. ............................................. 

; ****** DICTIONARY WORDS START HERE ****** 

. ............................................. 

; * LIT * 

. *********** 

I 

I 

DP0 DB 83H 

DB 'LI' 

DB 'T1+80H 

LIT 

DW 

DW$+2 

LODS 

0 

AX 

; START OF DICTIONARY 

; ( sl)

ASM86 VER 1.d SOURCE: PORTB,A86 

I NC 

INC 

JMP 

. **********ti** 

; * (LOOP) * 

. ************** 

DB 

DB 

DB 

DW 

XLOOP CW 

MOV 

XL001: ADD 

MOV 

SUB 

XOR 

JS 

Fig Forth 8a86/88 Vet 1.0 

SI 

SI 

NEXT 

; NO, CONTINUE... 

86H 

' (LOOP ' 

') '+80E 

ZBRAN-0AH 

$+2 

BX,l ; INCREMENT 

[BPI , BX ; INDEX=INDEX+INCR 

AX, [SP] ; GET NEW INGEX 

AX,2[a?] ; COM?ARE WITH LIYIT 

AX,BX ; TEST SIGN (BIT-16) 

BRAN1 ; KEEP LOOPIXG... 

; END OF 'DO' LOOP. 

ADD BP,4 ; ADJ. RETURN STK 

INC SI 

INC SI ; BYPASS SMNCH OFFSET 

JMP NEXT ; CONTINUE.. . 

DB 

DB 

D B 

DW 

XPLOO DW 

POP 

JMP 

# 

XDO 

DB 

DB 

D B 

DW 

DW 

POP 

POP 

XCHG 

PUSH 

PUS3 

XCHG 

JMP 

87H 

(+LOOPf 

') '+80H 

XLOOP-9 

S+2 

BX ; GET LOOP VALUE 

XLOOl 

84H 

' (DO' 

I ) '+80H 

XPLOO-BAH 

$+2 

DX ; I NITIAL INDEX VALUE 

AX ; LIMIT VALUE 

BP,SP ; GET RETURN STACK 

AX 

DX 

BP,SP ; GET PARAMETER STACK 

NEXT


EJECT 

3 ********* 

; * I * 

. ********* 

I 

DB 

DB 

DW 

DW 

MOV 

JMP 

. ************* 

; * DIGIT * 

; ************* 

I 

DB 

DB 

DB 

DW 

DIGIT DW 

POP 

POP 

SUB 

JB 

CMP 

JBE 

SUB 

CMP 

JB 

I 

DIGI1: CMP 

JAE 

SUB 

MOV 

MOV 

JMP 

; NUMBER ERROR 

; 

DIGIZ: SUB 

JMP 

Fig Forth 8086/88 Ver 1.0 PAGE 11 

8 1 H 

'If+80H 

XDO-7 

$+2 ; ( Sl)

ASP486 VER 1.0 SOURCE: FORTH. A86 Fig Forth 3836/83 Ver 1.8 PAGE 12 

EJECT 

- ************** 

; * (FIND) * 

. ************** 

DB 

D B 

DB 

DW 

PFIND DM 

MOV 

MOV 

POP 

POP 

86H 

' ( FISD' 

') '+80H 

DIGIT-8 

$+2 

AX,CS 

ES, AX 

BX 

CX 

; ES = DS 

; NFA 

; STRING ADDR 

I 

; SEARCH LOOP 

PFIN1: MOV D1,CX ; GET ACDR 

YOV AL, [BX] ; GET WO2D LENGTH 

MOV CL,AL ; SAVE LZNGTB 

xo R AL, [DII 

AND AL,3FH ; CHECK LEIiGTSS 

JNZ PFIN5 ; LENCTBS DIFFE2 

I 

; LENGTH MATCH, CHECK EACH CSAXACTER IN L

ASM86 VER 1.0 SOURCE : FORTH. A86 Fig Forth 8086/88 Ver 1.0 PAGE 13 

EJECT 

. *************** 

; * ENCLOSE * 

. *************** 

I 

I 

DB 

DB 

DS 

DW 

ENCL D W 

POP 

POP 

PUSH 

MOV 

MGV 

DEC 

87H 

' ENCLOS ' 

'E1+80H 

PFIND-9 

$+2 

AX ; S1 - TERMINATOR CHAR. 

BX ; S2 - TEXT ADDR 

BX ; ADDR BACK TO STACK 

AH, 0 ; ZERO 

DX,-1 ; CHAR OFFSET COUNTER 

BX ; ADDR -1 

; SCAN TO FIRST NON-TERMINATOR CHAR 

I 

ENCL1: INC 

INC 

CMP 

J Z 

PUSH 

CMP 

JNZ 

BX ; ADDR +1 

DX ; COUNT +1 

AL, [BXI 

ENCLl ; WAIT FOR NON-TERMINATOR 

DX ; OFFSET TO 1ST TEXT CHR 

AH, [BX] ; NULL CHAR? 

ENCL2 ; NO 

; FOUND NULL BEFORE FIRST NON-TERMINATOR CHAR. 

MOV AX,DX ; COPY COUNTER 

INC DX ; +1 

JMP DPUSH 

; FOUND FIRST TEXT CHAR, COUNT THE CHARACTERS 

I 

ENCL2: INC BX ; ADDR+l 

INC DX ; COUNT +1 

CMP AL, [BX] ; TERMINATOR CHAR? 

JZ ENCL4 ; YES 

CMP AH, [BX] ; NULL CHAR 

JN Z ENCL2 ; NO, LOOP AGAIN 

; FOUND NULL AT END OF TEXT 

I 

ENCL3: MOV AX,DX ; COUNTERS ARE EQUAL 

JMP DPUSH 

; FOUND TERINATOR CHARACTER 

t 

ENCL4: MGV AX,DX 

INC AX ; COUNT +1 

JMP DPUSH

ASY96 VER 1.a SOLXCE: FORT3.A85 Fig Forth 8086/88 Ver 1.3 

EJECT 

. ************ 

; * EXIT * 

. ************ 

EMIT 

; * KEY * 

. *********** 

, 

I 

KEY 

D B 

DB 

DB 

DW 

DW 

JMP 

843 

'EM1 ' 

'T1+80H 

ENCL-OAii 

DOCOL 

PEMIT 

ONE, OCTT 

PSTCR, SEMIS 

83H 

'KE ' 

'Y '+3aH 

EXIT-7 

$ +2 

PKEY 

I 

a2c9 as DB 8 9fi 

02CA 3F 54 45 52 4D 49 D !3 '?TLIIMIbiA1 

3E 4i 

0202 CZ DB 'L1+80H 

02D3 B E 02 Dd KEY-6 

02D5 D7 02 DW $+2 

02D7 E9 75 12 JMP PQTSR 

DB 

DB 

DB 

DW 

DW 

JMP

ASM86 VER 1.0 SOURCE: FORTH,A86 Fig Forth 8086/88 Ver 1.0 

EJECT 

. ************* 

; * . CMOVE * 

. ************* 

I 

I 

CMGVE 

USTAR 

I 

USLAS 

DB 

DB 

DB 

DW 

DW 

CLD 

MOV 

POP 

POP 

POP 

MOV 

MOV 

REP 

MOV 

JMP 

DB 

DB 

DB 

DW 

DW 

POP 

POP 

MLJL 

XC HG 

JMP 

DB 

DB 

DB 

DW 

DW 

POP 

POP 

POP 

CMP 

JNB 

D IV 

JMP 

PAGE 15 

853 

'CMOV ' 

'E1+80H 

CR-5 

$+2 

BX,SI 

; INC DIRECTION 

; SAVE IP 

CX 

DI 

; COUNT 

; DEST. 

SI ; SOURCE 

AX,DS 

ES,AX ; ES

.ASM36 VER 1.8 SOURCE: FORTH.A86 

0329 83 

032A 41 4E 

032C C4 

032D 0E 03 

032P 31 03 

0331 58 

0332 SB 

0333 23 C3 

0335 E9 23 'FE 

, 

DZERO: MOV 

MOV 

JMP 

I 

DB 

€a 

DB 

DW 

DW 

POP 

POP 

AND 

JMP 

D B 

Di3 

DB 

DW 

Dw 

POP 

POP 

GI? 

JMP 

DB 

DB 

DB 

DW 

DW 

POP 

POP 

XO R 

JMP 

Fig Forth 8086/88 Ver 1.g 

AX,-1 

DX , AX 

DPUSH ; STORE QUOT/REM 

PAGE 15 

8 3H 

'AN ' 

'0'+80H 

USLAS-5 

$+2 ; (Sl)

ASM86 VER 1.0 SOURCE: FORTH.A86 Fig Forth 8086/88 Ver 1.0 

I 

SPAT 

I 

RPAT 

I 

EJECT 

DB 

DB 

DB 

DW 

DW 

MOV 

JMP 

DB 

DB 

DB 

DW 

DK 

MOV 

MOV 

JMP 

DB 

DB 

DB 

DW 

DW 

MOV 

JMP 

DB 

DB 

DB 

DW 

RPSTO DW 

MOV 

MOV 

JMP 

8 3 H 

'SP' 

'@'+80H 

XORR-6 

$+2 ; (Sl)

ASY85 VER 1.0 SOURCE: FORTH.A8S Fig Forth 8086/88 Ver 1.8 

EJECT 

. ********** 

********** 

. * ;S * 

I . 

I 

I 

; END OF SCREEN 

I 

DB 

DB 

DB 

DW 

SEMIS DW 

MOV 

I NC 

I NC 

JM? 

. ************* 

I 

; * LEAVE * 

. ************* 

I 

LEAVE 

DB 

DB 

DB 

DW 

DW 

YOV 

MOV 

JMP 

OR Rub-TIYE COLON WORD 

8 2H 

1.1 

IS '+8i3H 

RPSTO-6 

$+2 

SI, [BPI ; (I?)

ASM86 VER 1.0 SOURCE: FORTH.A86 Fig Forth 8086/88 Ver 1.0 PAGE 15 

I 

TOR 

I 

EJECT 

DB 

DB 

DB 

Db? 

DW 

POP 

DEC 

DEC 

MOV 

JMP 

DB 

DB 

LIB 

DW 

FROMR DW 

MOV 

INC 

INC 

JMP 

8 2H 

I > ' 

I R 1 + 8 0 H 

LEAVE-8 

$+2 ; (Rl) '+80H 

TOR-5 

$+2 ; (Sl)

ASY86 VER 1.0 SOURCE: Fig Forth 8J86/88 Ver 1.a 

I 

EJECT 

DS 

DB 

DB 

DW 

ZEQU DW 

POP 

OR 

MOV 

JZ 

DEC 

ZEQU1: JMP 

DB 

Da 

D a 

DW 

ZLESS DW 

POP 

OR 

MOV 

JS 

DEC 

ZLESS1: JMP 

. ********* 

I 

. * + * 

. ********* 

I 

I 

PLUS 

DB 

DB 

DM 

DW 

POP 

POP 

ADD 

JMP 

82H 

'a' 

'='+80H 

RR- 4 

$+2 

AX 

AX,AX ; D3 TEST 

AX,1 ; TRUE 

ZEQUl ; ITS ZERO 

AX ; FALSE 

APUSH 

82H 

'0' 

'


EJECT 

I 

; XLW XHW YLW YHW --> SLW SHW 

; S 4 53 S2 S1 S2 s1 

D S 

DB 

DB 

DW 

DPLUS DW 

POP 

POP 

POP 

POP 

ADD 

ADC 

JMP 

. ************* 

I 

; * MINUS * 

. ************* 

I 

I 

DB 

DB 

DB 

DW 

MINUS DW 

POP 

N EG 

JMP 

. ************** 

; * DMINUS * 

. ************** 

I 

8 2H 

'0 ' 

'+'+80H 

PLUS-4 

$+2 

AX ; YHW 

DX ; YLW 

BX ; XHW 

CX ; XLW 

DX,CX ; SLW 

AXIBX ; SHW 

DPUSH 

85H 

'MINU' 

'S'+80H 

DPLUS-5 

$+2 

AX 

AX 

APUSH 

DB 86H 

DB 'DMINU' 

DB 'S '+80H 

DW MINUS-8 

DMINU DW $+2 

PG P BX 

POP CX 

SUB AX, AX 

MOV DX, AX 

SUB DX, CX 

SBB AXIBX 

JMP DPUSH 

; ZERO 

; MAKE 2's COMPLEMENT 

; HIGH WORD 

PAGE 2

FORTH. A86 Fig Forth 8086/88 Ver 1.0 

EJECT 

. ************ 

; * OVER * 

. ************ 

I 

OVER 

DB 

DB 

DB 

DW 

DW 

POP 

POP 

PUSH 

JMP 

. ************ 

; * DROP * 

. ************ 

DROP 

DB 

D B 

D B 

DW 

DW 

PCP 

JXP 

; * SWAP * 

. ************ 

I 

SWAP 

DUP 

DB 

DB 

DB 

DW 

DW 

POP 

POP 

JMP 

DB 

D B 

D B 

DW 

DW 

POP 

PUSH 

JM P 

843 

'OVE ' 

'Rr+8CH 

DMINU-9 

$+2 

DX 

AX 

AX 

DPLJSH 

84H 

'DRO' 

'P'+80H 

OVER-7 

$+2 

AX 

NEXT 

84H 

'SWA' 

'Pt+80H 

DRO2-7 

$+2 

DX 

AX 

DPUSH 

83H 

'DU' 

'P1+80H 

SWAP-7 

$+2 

AX 

AX 

APUSH


I 

DB 

DB 

DB 

DW 

DW 

POP 

POP 

PUSH 

PUSH 

JMP 

DB 

DB 

DB 

DW 

PSTOR DW 

POP 

POP 

ADD 

JMP 

. ************** 

; * TOGGLE * 

. * ***********A* 

D B 

DB 

D B 

DW 

TOGGL DK 

POP 

POP 

XOR 

JMP 

DB 

DB 

DW 

D vJ 

POP 

MOV 

JMP 

84H 

' 2DL" 

'Pf+80H 

DUP-6 

$+2 

AX 

DX 

DX 

AX 

DPUSH 

82H 

'+I 

' ! '+80H 

TDUP-7 

$+2 ; ((Sl) 1

ASM86 VER 1.0 SOURCE: FORTH.AB6 

CAT 

I 

TAT 

# 

DB 

DB 

DB 

DW 

DW 

POP 

MOV 

SUB 

JMP 

DB 

DB 

DB 

DW 

DW 

POP 

MOV 

MOV 

JM? 

DB 

DB 

Di4 

STORE DW 

POP 

POP 

MOV 

JMP 

DB 

DB 

n DB 

DW 

CSTOR DW 

POP 

POP 

MGV 

JMP 

Fig Forth 8@86/88 Ver 1.0 

32H 

'C ' 

'@'+8@H 

AT-4 

$+2 

BX 

AL, [SXI 

AH, AH 

APL'SH 

8 2H 

'2' 

'@'+80H 

CAT-5 

$+2 

BX ; ADDR 

AX, [BX] ; MSW 

DX,2[3X]; LSW 

DPUSH 

81E 

' ! '+80H 

TAT-5 

$+2 ; ((Sl)

ASM86VER 1.0 SOURCE: FORTH.A86 

I 

DB 

DB 

t DB 

DW 

TSTOR DW 

POP 

POP 

MOV 

POP 

MOV 

JMP 

Fig Forth 8086/88 Ver 1.0 

8 2H 

'2' 

'! '+8aH 

CSTOR-5 

$+2 

BX ; ADOR 

AX ; DATA (HW) 

IBXI ,AX 

AX ; DATA (LW) 

2 [BX] ,AX 

NEXT 

PAGE 2

ASM66 VEX 1.0 SOURCE: FORTH.A86 Fig Fortn 8i286/88 Ver 1.0 

I 

EJECT 

DB 

D B 

DW 

COLON DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DOCOL: INC 

DEC 

DEC 

MOV 

MO'J 

JMP 

SEMI 

. ************ 

; * NOOP * 

. ************ 

NOOP 

0C 1H 

' : '+80H 

TSTOR-5 

DOCOL 

QEXEC 

SCSP 

CURR 

AT 

COlVT 

STORE 

CREAT 

RBRAC 

PSCOD 

DX 

BP 

BP 

[i3?] , S I 

S1,DX 

NEXT 

0C 1H 

' ; '+80H 

COLON-4 

DOCOL 

QC SP 

COMT 

SEMIS 

SMUDG 

LB RAC 

SEMIS 

Slil 

'NOO' 

'P1+80H 

SEMI-4 

DOCOL 

SEMIS 

; (RP)


84 

55 53 45 

D 2 

65 05 

20 05 

53 05 

95 09 

42 

8B DA 

8A 1F 

2A FF. 

2E 8B 3E.26 01 

8D 01 

E9 C 2 FB 

EJECT 

. **************** 

; * CONSTANT * 

. **************** 

I 

CON 

DB 

DW 

DW 

DW 

Did 

DW 

DW 

DOCON: INC 

MOV 

MOV 

JMP 

. **************** 

; * VARIABLE * 

- **************** 

DB 

DW 

VAR DW 

DW 

DW 

DOVAR: I NC 

PUSH 

JMP 

- ************ 

; * USER * 

. ************ 

I 

DB 

DB 

DB 

DW 

USER DW 

DW 

DW 

DOUSE: INC 

MOV 

MOV 

SUB 

MOV 

LEA 

JMP 


88H 

'CONSTAN ' 

'T1+80H 

NOOP-7 

DOCOL 

CREAT 

SMUDG 

COMMA 

PSCOD 

DX ; PFA 

BXIDX 

AX, [BX] ; GET DATA 

APUSH 

88H 

'VARIABL ' 

'E1+80H 

CON-0BH 

DOCOL 

CON 

PSCOD 

DX 

DX 

NEXT 

; (DE)

ZERO 

TWO 

DB 

DB 

DW 

THREE DW 

DW 

BLS 

EJECT 


81H 

'0 '+80H 

USER-7 

DOCON 

0 

81H 

'l1+80H 

ZERO-4 

DOCON 

1 

82H 

'a 

'L1+80H 

THREE-4 

DOCON 

20H 

PAGE 23

ASM86 VER 1.0 SOURCE: FORTH. A86 Fig Forth 8086/88 Ver 1.0 PAGE 29 

DB 

DB 

DB 

DW 

CSLL DW 

DW 

. ************* 

; * FIRST * 

; ************* 

DB 

DB 

DB 

DW 

FIRST DW 

DW 

. ************* 

; * LIMIT * 

. ************* 

DB 

DB 

DB 

DW 

LIMIT DW 

DW 

DB 

DB 

DB 

DW 

BBUF DW 

DW 

DB 

DB 

DB 

DW 

BSCR DW 

DW 

83H 

',/I 

'L8+80H 

BLS-5 

DOCON 

64 

85H 

'FIRS ' 

'T1+80H 

CSLL-6 

DOCON 

BUF 1 

85H 

'LIMI ' 

'T8+80H 

FIRST-8 

DOCON 

EM 

85H ; BYTES/BUFFER 

'B/BU ' 

'F1+80H 

LIMIT-8 

DOCON 

KBBUF 

858 : BUFFERS/SCREEN 

'B/SC ' 

'R '+80H 

BBUF-8 

DOCON 

400H/KBBUF

ASY86 VER 1.0 SOURCE: FORTH.A86 Fig Forth 8086/88 Ver f .O 

I 

DB 

DB 

D B 

DW 

PORIG DW 

DW 

DW 

DW 

Dtu' 

87H 

'+ORIGI ' 

IN '+80H 

BSCR-8 

DOCOL 

LIT 

ORIG 

PLUS 

SZMIS 

PAGE 12


EJECT 

. ---------- USER VARIAaLES ========== 

SZERO 

RZERO 

. *********** 

I 

; * TIB * 

. *********** 

************* 

; * WIDTH * 

. ************* 

I 

WIDTH 

8 2H 

'S ' 

'0 '+80H 

PGRIG-0AH 

DOUSE 

6 

8 2H 

'R' 

'0'+8aH 

SZERO-5 

DOUSE 

8 

8 3 H 

'TI ' 

'B '+80H 

RZERO-5 

DOUSE 

0AH 

DB 8 5H 

D B 'WIDT' 

DB 'H '+80H 

DW TIB-6 

DW DOUSE 

DW 0CH 

. *************** 

; * WARNING * 

. *************** 

I 

0638 87 D B 87H 

0639 57 4 1 52 4E 49 4E DB 'WARNIN ' 

PAGE 31

SOURCE: FORTH. A86 Fig Forth 8086/88 Ver 1.0 

. ************* 

; * FENCE: * 

. ************* 

F ENC E 

; * VOC-LINK * 

. kt********%***** 

. ******ti*** 

; * BLK 

. *********** 

BLK 

'G8+80H 

WIDTH-8 

DOOSE 

0EH 

85H 

'FENC ' 

'EV+8QH 

WARN-OAH 

DOUSE 

10H 

88H 

'VOC-LIN ' 

'Kt+80H 

DP-5 

DOUSE 

14H 

83H 

'3L ' 

'~'+80H 

VOCL-0BH 

DOUSE 

16H


INN 

EJECT 

. *********** 

; * OUT * 

. *********** 

OUTT 

. *********** 

; * SCR * 

. *********** 

SCR 

. ********ti**** 

; * OFFSET * 

. ************** 

DB 

DB 

DB 

DW 

OFSET DW 

DW 

8 2H 

'I' 

'N '+862 

BLK-6 

DOUSE 

18H 

8 3H 

'OU ' 

'Tt+80H 

INN-5 

DOUSE 

1AB 

83H 

'SC ' 

'R1+80H 

OUTT-6 

DOUSE 

1CH 

86H 

'OFFSE ' 

'T1+80H 

SCR-6 

DOUSE 

1EH 

. *************** 

; * CONTEXT * 

. *************** 

* 

069E 87 DB 87H 

069F 43 4F 4E 54 45 58 DB 'CONTEX ' 

06A5 D4 DB 'T'+80H 

06A6 91 06 DW OFSET-9 

PAGE 33

ASY86 VER 1.a SOURCE: FORTH.P.86 

CONT 

. *************** 

; * CURRENT * 

. *************** 

I 

CURR 

. ************* 

; * STATE * 

. it*********** 

I 

DB 

DB 

DB 

DW 

STATE DW 

DW 

. ************ 

; * BASE * 

. ************ 

BASE 

- *********** 

; * DPL * 

. *********** 

, 

DPL 

*********** 

; * FLD * 

. *********** 


87H 

'CURREN ' 

'T'+808 

CONT-0AH 

DOUSE 

2 2H 

85H 

'STAT' 

'E1+8i3H 

C'JRR-@AH 

DOUSE 

24H 

845 

la;is 

'E8+80H 

STATE-8 

DOUSE 

26H 

83H 

'DP' 

'Lt+80,4 

BASE-7 

DOUSE 

28H 

83H 

'FL' 

PAGE 2;

ASH86 VER 1.0 SOURCE: FORTH.A86 

FLD 

. *********** 

; * CSP * 

. *********** 

CSPP 

RNUM 

- *********** 

; * HLD * 

. *********** 

I 

HLD 


'D1+80H 

DPL-6 

DOUSE 

2A H 

83H 

'CS ' 

'P1+80H 

FLD-6 

DOUSE 

2CH 

8 2H 

'R' 

'#'+80H 

CSPP-6 

DOUSE 

2EH 

f?3H 

'HL' 

'D1+80H 

RNUM-5 

DOUSE 

3GH 

PAGE 35

ONEP 

TWOP 

HERE 

EJECT 

. ************* 

; * ALLOT * 

. ************* 

I 

DB 

DB 

DS 

DW 

ALLOT DW 

DW 

DW 

DL4 


8 2H 

'1' 

'+'+80H 

HLD-6 

DOCOL 

ONE 

PLUS 

SEMIS 

82H 

'2' 

'+'+80H 

ONE?-5 

DOCOL 

TdO 

PLUS 

SEMIS 

83H 

'HER' 

'E1+83i-1 

TWOP-5 

DOCOL 

DP 

AT 

SEMIS 

85H 

'ALLO' 

'Tt+80H 

HERE-7 

DOCOL 

DP 

PSTGR 

SEMIS 

PAGE 36


COMMA 

SUBB 

D B 

DB 

DW 

DW 

POP 

POP 

SUB 

JMP 


81H 

', '+80H 

ALLOT-8 

DOCOL 

HERE 

STORE 

TWO 

ALLOT 

SEMIS 

8 2H 

'C ' 

', '+80H 

COMMA-4 

DOCOL 

HERE 

CSTOR 

ONE 

ALLOT 

SEMIS 

81H 

'-'+80H 

CCOMM-5 

$+2 

DX ; S1 

AX ; S1 

AX,DX ; AX = S1 - S1 

APUSH 

PAGE 37

EJECT 

DB 

D B 

DW 

EQUAL DCV' 

DW 

DW 

DW 

D B 

D B 

DW 

LESS DW 

PO? 

POP 

MOV 

XOR 

JS 

SUB 

LES 1 : OR 

MCV 

JNS 

I NC 

LES2: JM? 

. ********** 

I 

; * U< 

. ********** 

I 

I 

DB 

DB 

DB 

DK 

ULESS DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

ULESl DW 

ULES2 DW 

Fig Forth 9086/88 Ver 1.a 

81H 

'='+80H 

SUBB-4 

DOCOL 

SUBB 

ZEQU 

SENIS 

81H 

'


DB 

DB 

DW 

GREAT DW 

DW 

DW 

DW 

EJECT 

. *********** 

I 

; * RGT * 

. *********** 

ROT 

DB 

DB 

DB 

DW 

DW 

POP 

POP 

POP 

PUSH 

JMP 

. ************* 

; * SPACE * 

. ************* 

I 

DB 

DB 

DB 

DW 

SPACE DW 

DW 

DW 

DW 

DDUP 

81H 

'> '+80H 

ULESS-5 

DOCOL 

SWAP 

LESS 

SEMIS 

83H 

'RO ' 

'Tt+80H 

GREAT-4 

$+2 

DX ; S1 

BX ; S2 

AX ; S3 

BX 

DPUSH 

85H 

'SPAC ' 

'E1+80H 

ROT-6 

DOCOL 

BLS 

EM IT 

SEMIS 

84H 

'-DU' 

'P8+80H 

SPACE-8 

DOCOL 

DGP 

ZBRAN ; I F 

OFFSET DDUP1-$ 

DUP ; ENDIF 

PAGE 35

35396 VEX 1.0 SOURCE: FORTH.AB6 Fig Forth 3586/88 Ver 1.0 PAGE 43 

SEMIS 

; * TRAVERSE * 

. *********if***** 

D B 

DW 

TRAV DW 

DW 

TRAVl DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

. ************** 

; LATEST * 

. ***ti********* 

DB 

DB 

DB 

DX 

LATES DL4 

DW 

DW 

DK 

DW 

88H 

'TRAVERS ' 

'ES+80H 

DDUP-7 

DCCOL 

SWAP 

OVER ; BEGIN 

PLUS 

LIT, 7FH 

OVER 

CAT 

LESS 

ZBRAN ; UNTIL 

OFFSET TRAV1-$ 

SWAP 

DROP 

SENIS 

869 

' LATES ' 

'T'+38H 

TRAV- 03ii 

DOCOL 

CUR2 

AT 

AT 

SEYIS 

83H 

'LF ' 

'A1+80H 

LATES-9 

DOCOL 

LIT, 4 

SiJBB 

SEMIS


EJECT 

. *********** 

; * CFA * 

. *********** 

CFA 

. *********** 

; * NFA * 

. *********** 

NFA 

. *********** 

; * PFA * 

. *********** 

PFA 

83H 

'CF ' 

'A1+80H 

LFA-6 

DOCOL 

TWO 

SUBB 

SEMIS 

8 3 H 

'NF ' 

'Ag+80H 

CFA-6 

DOCOL 

LITI 5 

SUBB 

LITI -1 

TRAV 

SEMIS 

8 3H 

'PF ' 

'A1+80H 

NFA-6 

DOCOL 

ONE 

TRAV 

LIT, 5 

PLUS 

SEMIS. 

PAGE 41

hSXd6 VE8 1.9 SCURCE: FGRTH.A86 Fig Forth 80i36/38 Ver 1.3 

SCSP 

EJECT 

84H 

'!CS' 

'P1+80E 

PFA-6 

EOCOL 

SPAT 

CSPP 

STOZE 

SEMIS 

863 

'?ERRS1 

'Rt+38H 

scsc-7 

DOCOL 

SWIi 

ZBRAN ; I F 

OFFSET 2EXR1-$ 

ERRZR 

BRAS ; ELSE 

DFFSET QE?.R2-$ 

32C ; ENCiF 

SEYIS 

85H 

' ?COM ' 

'P1+80H 

QERR-9 

DOCOL 

STATE 

AT 

ZEQU 

LIT, 11H 

QEXR 

SEYIS 

PAGS 32


QEXEC 

EJECT 

. ************** 

; * ?PAIRS * 

. ************** 

I 

QPAIR 

85H 

'?EXE1 

'C '+80H 

QCOMP-8 

DOCOL 

STATE 

AT 

LIT, 12H 

QERR 

SEMIS 

DB 86H 

D B '?PAIR1 

DB 'S1+80H 

DW QEXEC-8 

DW DOCOL 

DW SUBB 

DW LIT, 1 3H 

DW QE iiR 

DW SEMIS 

84H 

'?CS1 

'P1+80H 

QPAIR-9 

DOCOL 

SPAT 

CSPP 

AT 

SUBB 

LIT, 14H 

QERR 

SEMIS 

PAGE 43

SOURCE: FORTH.A86 

DB 

DW 

QLOAD DW 

DW 

DW 

DW 

DW 

DW 

DW 


'G1+9i3H 

QCSP-7 

DOCOL 

BLK 

AT 

ZEQU 

LIT, 16H 

QERR 

SEMIS 

PAGE 13


EJECT 

. *************** 

; * COMPILE * 

. *************** 

I 

0914 87 DB 87H 

0915 43 4F 4D 50 49 4C DB 'COMPIL' 

091B C5 DB 'E1+80H 

091C F9 08 DW QLOAD-0BH 

091E 20 05 COMP DW DOCOL 

0920 A5 08 DW QCOMP 

0922 CC 03 DW FROMR 

0924 79 04 DW DUP 

0926 14 07 DW TWOP 

0928 BC 03 DW TOR 

092A B4 04 DW AT 

092C 3F 07 DW COMMA 

092E 9A 03 DW SEMIS 

LB RAC 

RBRAC 

0C 1H 

' ['+80H 

COMP-0AH 

DOCOL 

ZERO 

STATE 

STORE 

SEMIS 

8 1 H 

'1 '+80H 

LBRAC-4 

DOCOL 

LIT, 0C0H 

STATE,STORE 

SEMIS 

PAGE 45

A3M86 VEX 1.0 Fig Forth 8a86/83 Ver 1.2 PAGE 46 

EJECT 

. ************** 

; * SMUDGE * 

. ************** 

I 

DB 

DB 

DB 

DW 

SMUDG DW 

DW 

DW 

DW 

DW 

HEX 

. * *******x****** 

I 

; * DECIYAL * 

. *************** 

I 

DB 

D B 

DB 

DW 

DECA DW 

DW 

DW 

DW 

DW 

8 6H 

' SMUCG ' 

'E8+8tIH 

RB RAC - 4 

DOCOL 

LATES 

LIT, 20H 

TOGGL 

SEYIS 

83H 

'HE ' 

'X'+iidH 

SMUDG-9 

DOCOL 

LIT, 16 

3ASE 

STGRZ 

SEYIS 

87H 

'DECIY.1A ' 

'L1+80H 

XEX-6 

DOCOL 

LIT, 10 

BASE 

STORE 

SEMIS


PSCOD 

I 

DB 

DB 

DB 

DW 

SEMIC DW 

DW 

DW 

DW 

DW 

SEMI1 DW 

DW 

I 

87 DB 

3C 42 55 49 4C 44 DB 

D3 DB 

A3 09 DW 

20 05 BUILD DW 

9D 05 DW 

53 05 DW 

9A 03 DW 

EJECT 

87H 

' (;CODE1 

') '+80H 

DECA-OAH 

DOCOL 

FROM R 

LATES 

PF A 

CFA 

STORE 

SEMIS 

0C 5H 

' ;COD1 

'E1+80H 

PSCOD-0AH 

DOCOL 

QCSP 

COM P 

PSCOD 

LB RAC 

NOOP ; ( ASSEMBLER ) 

SEMIS 

87H 

'

SOURCE: 

DOES Dk 

DW 

DW 

Dw 

DW 

DW 

DODOE: XCHG 

PUSH 

XCHG 

INC 

MOV 

MOV 

INC 

INC 

PUSH 

JMP 

. ************* 

; * COUNT * 

; ************* 

I 

DB 

DB 

DB 

DW 

COUNT 'Jbi 

Dji 

DW 

DW 

ski 

DW 

. ************ 

I 

; * TYPE * 

. ************ 

D 9 

DB 

D B 

DW 

TYPES DW 

DX 

DW 

DW 

DW 

DW 

Dw 

DW 

TYPE2 DW 

DW 

DW 

DW 

DW 

D w 

DW 

Fig Forth 8086/98 Ver 1.a PAGE 4E 

DOCOL 

FROMR 

LATES 

PFA 

STORE 

DSCOD 

BP,SP ; GET RETURN STACK 

S I ; (RP)


DB 

DW 

DTRAI DW 

DW 

DW 

DW 

DTRAl DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DTRA2 DW 

DW 

DTRA3 DW 

DW 

DW 

DROP 

SEMIS 

; ENDIF 

'G8+80H 

TYPES-7 

DOCOL 

DUP 

ZERO 

XD 0 

OVER 

OVER 

PLUS 

ONE 

SUBB 

CAT 

BLS 

SUBB 

ZBRAN ; IF 

OFFSET DTRA2-$ 

LEAVE 

B RAN ; ELSE 


ONE 

SUBB ; ENDIF 

XLOOP ; LOOP 


SEMIS 

PAGE 49

.43?86 VER 1.a S3LiXCE: FORTH.A86 Zig Forth 8886./98 Ver 1.0 

I 

Da 

DB 

DB 

DW 

PDOTQ DW 

DW 

DW 

DW 

DW 

DiJ 

DW 

DW 

DW 

3W 

EJECT 

84H 

(*I" 

') '+8aH 

DTRAI-6CH 

DOCOL 

RR 

COUNT 

DUP 

ONE? 

F ROY R 

PLUS 

TOR 

TYPES 

SEYIS 

ac 23 

I I 

fltl+8$:+ 

PDCTQ-7 

3OCOL 

LIT', 223 

STAT& 

AT 

ZSRAN ; I F 

aFFSET DOTa1-S 

COY? 

PDOTQ 

WORDS 

HE4E 

CAT 

ONE? 

ALLOT 

BRAN ; ELSE 

OFFSET DOTQ2-$ 

WORDS 

HERE 

COUNT 

TYPES 

SEEIS 

PAGE f:


EJECT 

- ************** 

; * EXPECT * 

. ************** 

I 

DS 

DB 

86H 

'EXPEC ' 

DB 'T8+80H 

DW DOTQ-5 

EXPEC DW 

DW 

DW 

DOCOL 

OVE R 

PLUS 

DW OVER 

DW XDO 

EXPEl DW KEY 

DW 

DW 

DUP 

LIT, 0EH 

DW PORIG 

DW AT 

DW EQUAL 

DW ZBRAN ; IF DW OFFSET EXPE2-$ 

DW DROP 

DW DUP 

DW ID0 

DW EQUAL 

DW DUP 

DW FROMR 

DW TWO 

DW SUB B 

DW PLUS 

DW 

DW 

TOR 

ZBRAN ; IF DW OFFSET EXPE6-$ 

DW LIT 

DW BELL 

DW BRAN ; ELSE 

DW OFFSET EXPE7-$ 

EXPE6 DW LIT 

DW BSOUT ; ENDIF 

EXPE7 DW BRAN ; ELSE 


EXPE2 DW DUP 

DW LIT, 0DH 

DW 

DW 

EQUAL 

ZBRAN ; IF 


DW LEAVE 

DW DROP 

DW BLS 

DW ZERO 

BRAN ; ELSE 

OFFSET EXPES-$ 

DUP 

ID0 

CSTOR 

ZERO 

; ENDIF 

PAGE 5:

. L5M86 - VER 1.0 SOGRCE: FOR'TH.A.86 Fig Forth 8086/88 Ver 1.0 

I DO 

ONE? 

STORE ; EXDIT 

EM1 T 

XLOOP ; LOOP 

9FFSET EXPE1-$ 

DROP 

SEiilIS 

85H 

'QCER' 

'Y '+BaH 

EXPEC-9 

, DOCOL 

TI5 

AT 

LIT, 5 BH 

EXPEC 

ZERO 

IS?j 

STORE 

SEMIS

ASM86 VER 1.n SOURCE: FORTH.A86 Fig Forth 8886/88 Ver 1.0 

EJECT 

. **************** 

; * 0 (NULL) * 

. **************** 

NULL 

. *******it*** 

; * FILL * 

. ************ 

I 

FILL 

DB 

DB 

DB 

DW 

DW 

POP 

POP 

POP 

MOV 

MOV 

CLD 

REP 

JMP 

0C 1H ; A BINARY ZERO 

80H 

QUERY-8 

DOCOL 

BLK 

AT 

ZBRAN ; I F 

OFFSET NULL1-$ 

ONE 

BLK 

PSTOR 

ZERO 

INN 

STORE 

BLK 

AT 

BSCR 

ONE 

SUBB 

ANDD 

ZEQU 

ZBRAN ; I F 


QEXEC 

FROM R 

DRDP ; ENDIF 

BRAN ; ELSE 


FROMR 

DROP ; ENDIF 

SEMIS 

84H 

'FIL' 

'L1+80H 

NULL-4 

$+2 

AX ; FILL CHAR 

CX ; FILL COUNT 

DI ; BEGIN ADR 

BX, DS 

ES,BX ; ES

:\5!-!35 :jE2 1.0 SOURCE: FCRTH.A86 Fig Forth 8086/88 Ver 1.d 

. ************* 

; * ERASE * 

. ************* 

; 

D B 

DB 

DB 

DW 

ERASEE Dw 

DW 

DW 

3% 

. ************** 

; * BLANKS * 

. ************** 

I 

DB 

DB 

DB 

DW 

BLANK DW 

DW 

DW 

DW 

. ************ 

; * HOLD * 

. ************ 

I 

I 

DB 

DB 

DS 

DW 

HOLD DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

; * PAD * 

. *********** 

I 

PAD 

85H 

'ERAS' 

'E1+88H 

FILL-7 

DOCOL 

ZERO 

FILL 

SENIS 

8 5tI 

'BLANK ' 

'S '+8OH 

ERASEE-8 

DGCOL 

BLS 

FILL 

SEXIS 

DGCOL 

LIT, -1 

HLD 

PSTOR 

HLD 

AT 

CSTOR 

SEMIS 

8 3H 

'PA' 

'Dt+80H 

HOLD-7 

DOCOL 

HERE 

LIT, 44H

ASM86 VER 1.0 SOURCE : FORTH. A86 Fig Forth 8086/88 Ver 1.0 PAGE 5 

. ************ 

; * WORD * 

; ************ 

* 

DB 

DB 

DB 

DW 

WORDS DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

WORD1 DW 

DW 

WORD2 DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

PLUS 

SEMIS 

84H 

'WOR' 

'D1+80H - 

PAD-6 

DOCOL 

BLK 

AT 

ZBRAN ; IF 

OFFSET WORD1-$ 

BLK 

AT 

BLOCK 

BRAN ; ELSE 

OFFSET WORD2-$ 

TIB 

AT ; ENDIF 

INN 

AT 

PLUS 

SWAP 

ENCL 

HERE 

LIT, 22H 

BLANK 

INN 

PS TOR 

OVER 

SUBB 

TOR 

RR 

HERE 

CSTOR 

PLUS 

HERE 

ONEP 

FROMR 

CMOVE 

SEMIS

.43?136 VER 1.0 SOURCE: FCRTH.A86 Fig Forth 8086/88 Ver 1.0 

0C32 88 

JC33 28 4E 55 4D 42 45 

52 

0C3A A9 

gC3B E5 0B 

0C3D 20 05 

0C3F 07 a7 

0C11 79 04 

0C43 BC 03 

0C45 C1 04 

0C47 CD 06 

0C49 B4 04 

OC~B 01 a2 

0C4D 9A 01 

0C4F 2C 00 

OC51 5C 04 

dC53 CD 06 

OC55 34 a4 

3C57 ad 03 

aC59 5F 04 

i3CS9 C3 07 

0C5D CD 06 

0C5F B4 04 

acfx 04 03 

dC63 14 84 

0C55 D7 05 0C67 34 i34 

OC69 87 07 

dC63 9A 01 

OC6D 08 00 

aC6F AS 05 

0C71 D7 06 

dC73 95 04 

3C75 CC 03 

0~77 89 a1 

0C79 C6 FF 

aC7B CC 03 

bC7D 9A 03 

EJECT 

. **********if**** 

; * (NUMBER) * 

. **************** 

I 

DB 

DW 

PNUMB DW 

PNLJlYl DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

CW 

D'w' 

DW 

DW 

DW 

Dw 

DEj 

DW 

DW 

PNUM3 DW 

DW 

DW 

?NUN2 DW 

DW 

88H 

' (NUMBER' 

' ) '+8flH 

WORDS-7 

DOCOL' 

ONEP ; BEGIN 

DUP 

T3R 

CAT 

BASE 

AT 

DIGIT 

ZBRAN ; WHILE 

OFFSET PNGM2-$ 

SWAP 

BASE 

AT 

USTAR 

DROP 

ROT 

BASE 

AT 

iTSTAR 

DPLCS 

DPL 

AT 

GNEP 

ZBRAN ; IF 

OFFSET PNUX3-S 

ONE 

GPL 

PSTOX ; ZNCIF 

FROMR 

B RAN ; REPEAT 

OFFSET PNYM1-$ 

FROMR 

SEMIS 

PAGE 56


EJECT 

. *********ti*** 

; * NUMBER * 

. ************** 

NUMB 

86H 

'NUMBE ' 

'R1+80H 

PNUMB-0BH 

DOCOL 

ZERO 

ZERO 

ROT 

DUP 

ONEP 

CAT 

LIT, 2DH 

EQUAL 

DUP 

TOR 

PLUS 

LIT, -1 

DPL ; BEGIN 

STORE 

PNUMB 

DUP 

CAT 

BLS 

SUB B 

ZBRAN ; WHILE 

OFFSET NUMB2-$ 

DUP 

CAT 

LIT, 2EH 

SUBB 

ZERO 

QE RR 

ZERO 

BRAN ; REPEAT 


DROP 

FROMR 

ZBRAN ; I F 


DMINU ; ENDIF 

SEMIS 

PAGE 57

ASZ86 VER 1.a SOURCE: FGRTH.A86 Fig Forth 8086/88 Ver 1.0 

I 

DB 

DB 

DB 

DW 

DFIND DW 

DW 

DW 

DW 

DW 

DW 

Diu' 

DW 

DK 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DFINl DW 

EJECT 

. *************** 

; * (ABORT) * 

. *************** 

DB 

DB 

DB 

DW 

PABOR DW 

DW 

DW 

. ************* 

; * ERROR * 

. ************* 

I 

DB 

DB 

DB 

Dh' 

ERROR DW 

DW 

DW 

DW 

DW 

DW 

DW 

ERR01 DW 

85H 

'-FINs 

'D4+8OH 

NUMB-9 

DOCOL 

BLS 

WOZDS 

HERE 

COIU'T 

AT 

AT 

PFIND 

DUE) 

ZEQU 

ZBRAN ; I F 

OFFSET DFINI-$ 

DROP 

HEXE 

LATES 

PFIND ; ENDIP 

SEMIS 

87H 

' (ABORT' 

') '+8gH 

DFIND-8 

DOC3L 

ABORT 

SEMIS 

8 5H 

'ERR0 ' 

'R1+80H 

PABOR-0AH 

DOCOL 

WARN 

AT 

ZLESS 

ZBRAN ; IF 

OFFSET ERRO1-$ 

PABOR ; ENDIF 

HERE 

PAGE 53


DW COUNT 

DW TYPES 

D W PDOTQ 

DB 2 

DB l? 1 

DW MESS 

DW SPSTG 

CHANGE FROM FIG MODEL 

DW INN, AT, BLK, AT 

DW ELK, AT 

DW DDUP 

DW ZBRAN ; IF 

DW OFFSET ERR02-$ 

DW INN, AT 

DW SWAP 

ERR02 DW QUIT 

; * ID. * 

. *********** 

DB 

DB 

DB 

DW 

IDDOT DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

83H 

'ID' 

' . '+80H 

ERROR-8 

DOCOL 

PAD 

LIT, 20H 

LIT, 5FH 

FILL 

DUP 

PFA 

LF A 

OVER 

SUBB 

PAD 

SWAP 

CMOVE 

PAD 

COUNT 

LIT, 1FH 

ANDD 

TYPES 

SPACE 

SEMIS 

PAGE 59

SOURCE: FORTH. A86 Fig Forth 9086/88 Ver 1.0 

EJECT 

. ************** 

; * CREATE * 

. ************** 

CREAT 

86H 

'CREAT' 

'EV+80H 

I DDOT-6 

DOCOL 

DFIND 

ZBRAN ; I F 

OFFSET CREA1-$ 

DROP 

NFA 

IDCOT 

LIT, 4 

MESS 

SPACE ; ENDIP 

HEXE 

DUP 

CAT 

WIDTIl 

AT 

MIN 

ONEP 

ALLOT 

DUP 

LIT, 0A3H 

TOGGL 

HERE 

ONE 

SU3 3 

LIT, 80H 

TOGGL 

LATES 

COK??.A 

CURR 

AT 

STORE 

HERE 

m o p 

COMMA 

SEMIS


EJECT 

. ***************** 

; * [COMPILE] * 

. ***************** 

BCOMP 

. *************** 

; * LITERAL * 

. *************** 

0C 9H 

' [COMPILE ' 

'1 '+80H 

CREAT-9 

DOCOL 

DFIND 

ZEQU 

ZERO 

QERR 

DROP 

CF A 

COMYA 

SEMIS 

I 

0DF0 C7 DB 0C7H 

0DF1 4C 49 54 45 52 41 DB 'LITERA' 

0DF7 CC DB 'L8+80H 

0DF8 D2 OD DW BCOMP-0CH 

0DFA 20 05 LITER DW DOCOL 

ODFC C2 06 DW STATE 

0DFE B4 04 DW AT 

BE00 9A 01 DW ZBRAN ; I F 

0E02 08 00 DW OFFSET LITE1-$ 

0E04 1E 09 DW COM P 

0E06 6A 01 DW LIT 

BE08 3F 07 DW COMMA ; ENDIF 

0E0A 9A 03 DW SEMIS 

PAGE 61

AS236 VEZ 1.0 SOURCE: FORTH.A86 Fig Forth 8086/98 Ver 1.8 

EJECT 

DB 

DW 

DLITE DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DLITl DW 

0C8H 

'DLITERA' 

'L1+80H 

LITER-0AH 

DOCOL 

STATE 

AT 

ZBRAX ; IF 

OFFSET DLIT1-$ 

SWA? 

LIT52 

LITER 

SEMIS 

863 

'?STAC' 

'R1+83H 

ELITE-0SH 

DOCOL 

SPAT 

SZE3.O 

AT 

S;V' A? 

ULESS 

OXE 

QE Rii 

SPAT 

HERE 

LIT, 80H 

PLUS 

ULESS 

LIT, 7 

QE RR 

SEMIS 

A G E 62


EJECT 

. ***************** 

; * INTERPRET * 

. ***************** 

I 

89 DB 89H 

49 4E 54 45 52 50 

52 45 

DB 'IIU'TERPRE' 

D4 DB 'T1+80H 

29 0E DW QSTAC-9 

20 05 

E0 0C 

9A 01 

INTER 

INTEl 

DW 

DW 

DW 

DOCOL 

DFIND 

ZERAN 

; BEGIN 

; IF 1E 00 DW OFFSET INTEZ-$ 

C2 06 DW STATE 

B4 04 DW AT 

79 07 

9A 01 

DW 

DW 

LESS 

ZBRAN ; IF 

0A 00 DW OFFSET INTE3-$ 

3F 08 DW CFA 

3F 07 DW COMMA 

89 01 DW BRAN ; ELSE 

06 00 

3F 08 INTE 3 

DW 

DW 

OFFSET INTE4-$ 

CFA 

7A 01 DW EXEC ; ENDIF 

32 0E INTE 4 DW QSTAC 

89 01 DW BRAN ; ELSE 

1C 00 DW OFFSET INTE5-$ 

23 07 DW HERE 

88 0C DW NUMB 

D7 06 DW DPL 

B4 04 DW AT 

07 07 

9A 01 

DW 

DW 

ONEP 

ZBRAN ; IF 

08 00 

17 0E 

89 01 

06 00 

DW 

DW 

DW 

DW 


DLITE 

BRAN ; ELSE 


5F 04 DW DROP 

FA 0D 

32 BE 

DW 

DW 

LITER 

QSTAC 

; ENDIF 

; ENDIF 

89 01 

C2 FF 

DW 

DW 

BRAN ; AGAIN 


PAGE 63

A5:436 YE2 1.3 SOURCE: FClRTH.A86 

05C6 

0Z27 

3EC9 

axs 

35f D 

k3SCr' 

gEz.1 

3 E 2 3 

acz5 

OED7 

a 5 ~ 9 

aEDB 

aEDG 

af EF 

aEE? 

0EE3 

0EE5 

0EE7 

QEE9 

3EEB 

BEED 

dEZF 

EJECT 

- ***************** 

; * IMMEDIATE * 

. ***************** 

DB 

DW 

IMMED DW 

DW 

DW 

DW 

DW 

. ****************** 

8 

; * VOCABULARY * 

. ****************** 

DB 

DW 

VOCAB DW 

DW 

DW 

DW 

Dbi 

DW 

DW 

DW 

3W 

DW 

DW 

DW 

DL4 

DW 

DW 

DW 

DCVOC D'd 

DW 

CW 

DW 


898 

'IMMEGIAT' 

'E1+80~ 

INTER-OCH 

DOCOL 

LATES 

LIT, 4BH 

TOGGL 

SEMiS 

'Y '+80H 

IMMED-OCH 

DOCOL 

BLILD 

LIT 

3A381H 

CSM?iA 

CCSR 

AT 

C F A. 

COMMA 

HERE 

VOCL 

AT 

COMMA 

VOCL 

STORE 

DOES 

?"do P 

CCNT 

STORE 

SEMIS


0EF1 C5 

0EF2 46 4F 52 54 

0EF6 C8 

0EF7 BC 0E 

0EF9 DF 09 

0EFE E9 0E 

QEFD 81 A0 

0EFF 00 1A 

OF01 00 00 

EJECT 

. ************* 

; * FORTH * 

. ************* 

I 

I 

; THE 'TASK-7' IS A COLD START VALUE 

; ONLY. ITS CHANGED EACH TIME A 

; DEFINITION IS APPENED TO THE 

; VOCABULARY. 

'FORTH' 

I 

FORTH 

DB 

DB 

DB 

DW 

DW 

DW 

DW 

DW 

DW 

0C 5H 

' FORT ' 

'Ht+80H 

VOCAB-0DH 

DODOE 

DOVOC 

0A081H 

TASK-7 ; 

0 I 

. ******************* 

; * DEFINITIONS * 

. ******************* 

OF03 8B 

0Fg4 44 45 46 49 4E 49 

54 49 4F 4E 

I 

DB 

D B 

8B H 

'DEFINITION ' 

0E0E D3 DB 'S1+8@H 

0FQF El 0E DW FORTH-8 

OF11 20 05 DEFIN DW DOCOL 

OF13 A8 06 DW CONT 

OF15 B4 04 DW AT 

OF17 B6 06 DW CURR 

OF19 DF 04 DW STORE 

0FlB 9A 03 DW SEMIS 

I 

PAREN 

DB 0C 1H 

DB ' ('+80H 

DW DEFIN-0EH 

DW DOCOL 

DW LIT, ' ) ' 

DW WORDS 

DW SEMIS 

PAGE 65 

COLD START VALUE ONLY 

END OF VOCABULARY LIST

~ 5 Y 8 6 VEX 1. i3 SOURCE: PoRTx-A~~ Fig Forth 8386/88 Ver 1.0 

EJECT 

; * QUIT * 

. ************ 

QUIT 

. ************* 

; * ABORT " 

. ************* 

I 

Dl3 

DB 

T) B 

DW 

ABORT DW 

DW 

DW 

DW 

DW 

DW 

DW 

DB 

DB 

84H 

'QUI ' 

'T1+S3il 

PAREN-4 

DOCOL 

ZERO 

BLK 

STORE 

5B .w. C 

RPSTO ; BEGIS 

CR 

QLTERY 

INTER 

STATE 

AT 

ZEQU 

ZBRAN ; IF 

OFFSET QUITZ-$ 

PDOTQ 

2 

'JK ' ; EXDIF 

BTiAN ; AGAIN 

DFFSET QUIT1-$ 

859 

'ABGR' 

'T1+80% 

QUIT-7 

DOCGL 

SPSTO 

DECA 

QS TAC 

CR 

DOTCPU 

PDOTQ 

OD H 

'Fig-Forth ' 

FIG2EL+30Hl ADD?', FIGRE7J+3aH 

FORTH 

DEFIN 

QUIT 

PAGE 66


EJECT 


; WARM START VECTOR COMES HERE 

I 

WRM : MOV S1,OFFSET WRMl 

JMP NEXT 

~ R M I DW WARM 

; ************ 

; * WARM * 

; ************ 

WARM 

848 ; WARM 

'WAR' 

'M1+80H 

ABORT-8 

DOCOL 

MTBUF 

ABORT 

; COLD START VECTOR COMES HERE 

PAGE 6 

I 

CLD: MO V S1,OFFSET CLDl ; ( IP)

Fig Forth 8086/88 Ver l.Q 

LIT 

ORIG+12H 

LIT, UP 

AT 

LIT, 6 

PLUS 

LIT, 10H 

CMOVE 

LIT, ORIG+QCH 

AT 

LIT, FORTH+6 

STORE 

ABORT 

PAGE 62

ASM86 VER 1.0 

BEFE 

OFF@ 

1002 

1003 

1005 

1007 

1008 

l0BA 

100C 

l00E 

l00F 

SOURCE: FORTH.A86 Fig Forth 8086/88 Ver 1.0 PAGE 69 

EJECT 

DB 

DB 

DB 

DW 

STOD D W 

POP 

SUB 

OR 

JNS 

DEC 

STOD1: JMP 

DPM 

; * ABS * 

. *********** 

84H 

IS-> ' 

'D1+80H 

COLD-7 

$+2 

DX 

AX, AX 

DX , DX 

STODl 

AX 

DPUSH 

8 2H 

'+ ' 

'-'+80H 

STOD-7 

DOCOL 

ZLESS 

ZBRAN ; IF 

OFFSET PM1-$ 

MINUS ; ENDIF 

SEMIS 

83H 

'D+ ' 

'-'+808 

PM-5 

DOCOL 

ZLESS 

ZBRAN ; IF 

OFFSET DPM1-$ 

DMINU ; ENDIF 

SEMIS 

83H 

'AB ' 

'S1+80H 

; S1 

;AX=0 

; SET FLAGS 

; POSITIVE NUMBER 

; NEGITIVE NUMBER

2 . 6 3 1 SOURCE: FORTH.AB6 

ABS 

; * DABS * 

. ************ 

t 

. *********** 

; * MIN * 

. *********** 

. *********** 

; * MAX * 

. *********** 

I 

MAX 

Fig Forth 8086/38 Ver 1.a 

DPY-6 

DOCOL 

GUP 

?!'I 

SEMIS 

84H 

'DAB ' 

'S1+80H 

ABS-6 

DOCOL 

DUP 

DPY 

SEFIIS 

833 

'YI ' 

'N '+ad3 

DABS-7 

DOCOL,TGUP 

GZZAT 

ZSRAN ; IF 

3FFSET MIN1-$ 

Sij A? ; ENDIF 

CRS? 

SEHIS 

83H 

'MA' 

'X '+80H 

MIN-6 

DOCOL,TDL'P 

LESS 

ZBRAN ; IF 

DFFSET MAX1-$ 

SSAP ; ENCIF 

DROP 

SEYIS 

PAGE 7.2


MSTAR 

MSLAS 

STAR 

EJECT 

82H 

'M' 

'*'+80H 

MAX-6 

DOCOL, TDUP 

XO RR 

TOR 

ABS 

SWAP 

AB S 

USTAR 

FROM R 

D PM 

SEMIS 

8 2H 

'M ' 

'/'+80H 

MSTAR-5 

DOCOL 

OVER 

TOR 

TOR 

DABS 

RR 

ABS 

US LAS 

FROMR 

RR 

XORR 

PM 

SWAP 

FROM R 

PM 

SWAP 

SEMIS 

81H 

'*'+80H 

MSLAS-5 

DOCOL 

MSTAR 

PAGE 71

A386 VER 1.0 SOURCE: FOXTH.A86 Fig Forth 8086/88 Ver 1.0 

DB 

DB 

DB 

DW 

SLMOD DW 

DW 

DW 

DW 

DW 

DW 

DB 

DB 

DW 

SLASH DW 

DW 

DW 

DW 

Dii 

. *********** 

; * MOD 

. *********** 

MODD 

************* 

; * *,/MOD * 

- ************* 

1 

OROP 

SEMIS 

84H 

'/MO ' 

'Dt+8aH 

STAR-4 

DOCOL 

TOR 

STOD 

FROMR 

MSLAS 

SEMIS 

81H 

'/'+80H 

SLMOD-7 

9OCOL 

SLMOD 

SWAP 

DROP 

SEMIS 

83H 

'MO ' 

'D'+8BH 

SLASH-4 

DOCOL 

SLMOD 

DROP 

SEXIS 

DB 8513 

DB ' */MO ' 

DB 'D4+80H 

DW MODD-6 

SSMOD DW DOCOL 

DW TOR 

PAGE 72


SSLA 

DB 

DB 

DB 

DW 

MSMOD DW 

DW 

CW 

DEj 

DW 

DW 

DW 

DW 

DW 

DW 

DW 


MSTAR 

FROMR 

MSLAS 

SEMIS 

8 2H 

I t 1 

',11+80H 

SSMOD-8 

DOCOL 

SSMOD 

SWAP 

DROP 

SEMIS 

85H 

'M/MO ' 

'D1+80H 

SSLA-5 

DOCOL 

TOR 

ZERO 

RR 

USLAS 

FROMR 

SWAP 

TOR 

USLAS 

FROMR 

SEMIS 

PAGE 73

SOURCE: FORTH.A86 Fig Forth 8086/88 Ver 1.0 

EJECT 

- ************** 

; * (LINE) * 

. ********ti**** 

I 

DB 

D a 

D a 

DW 

PLINE DW 

DW 

DW 

DW 

DW 

DW 

DX 

DK 

DW 

DW 

DW 

DW 

DM 

DLINE 

; *************** 

; * MESSAGE 

. *************** 

MESS 

86H 

' (LINE' 

') '+8aH 

MSMOD-8 

DOCOL 

TOR 

LIT, 64 

BBUF 

SSMOD 

FROMR 

BSCR 

STAT! 

PLUS 

BLOCK 

PLLiS 

LIT, 64 

SEMIS 

85H 

' . LIN ' 

'E"t8gi-l 

PLI?JZ-9 

GCCOL 

PLI:iE 

DT.SA2 

TYPES 

SEMIS 

87H 

'MESSAG ' 

'E'+88H 

DLINE-8 

DCCOL 

XARN 

AT 

ZBRAN ; IF' 

OFFSET MESS1-$ 

DDUP 

ZBRAN ; IF 


LIT, 4 

PACE 73


OFSET 

AT 

BSCR 

SLASH 

SUBB 

DLINE 

SPACE ; ENDIF 

BRAN ; ELSE 


PDOTQ 

6 

'MSG # ' 

DOT ; ENDIF 

SEMIS 

PAGE 75

C4 

r: a;@& 

0 0 > hl 

p: P1mN 

Irr ...... 

- n: 

W x 4 

E-c m m 

- 

E-4 w 0 

3 00 I x z z 

m - + rn a 4 m 

XU- rncJ - .s 

m a ( w u + ~ c l z ~ 4 

n; a- - xmad:rl4 

W 

E-1 

* * * 

* * 

* * 3 m m ~ ~ 3 0 2 * 3 * ~ 

* * 3 (4 

* w * u aaaaafi~rn- 

* U* 

*I&* x 

* * u 

* * h 

* * W 

*** C4 

N m rn woo rl: m (J b1 

mmmmmrnmmm 

4 4 ri ?i 4 r+ -I 7-4 ?I 

F l r l d 8 + 4 4 d d r - i 

C * C 

C C 

C * 

C -.C 

C U C 

C 

C 

PC* 

* 

C * 

C * 

* * * 

GI 3: W 

E 4 I 

> w f3 4 

m - - +4 4h 

XU- UN -X 

m&-.E-r + XXXW 

d a- - &ma


I 

; STORE WORD AT PORT. 

PTSTO 

DB 

DB 

DB 

DW 

DW 

POP 

POP 

OUT 

JMP 

8 2H 

IP 

' ! ' i80H 

PTAT-5 

$+2 

DX ; PORT ADDR 

AX ; DATA 

DX,AX ; WORD OUTPUT 

NEXT 

PAGE 77

ASH86 VER 1.0 SOURCE: FORTH.A86 Fig Forth 8086/88 Ver 1.0 PAGE 78 

EJECT 

.----------------------------------------------- 

I 

t 

; DISK INTERFACE WORDS 

I 

; DOUBLE DENSITY 8" FLOPPY CAPACITIES 

# 

SPT2 EQU 52 ; SECTORS PER TRACK 

TRKS 2 EQU 77 ; NUMBER OF TiLICKS 

SPDRV2 EQLl SPT2*TRKS 2 ; SECTC?.S/DRIVE 

I 

; SINGLE DENSITY 8" FLOPPY CAPACITIZS 

I 

SPTl EQU 26 ; SECTCRS/TRACK 

TRKSl EQU 77 ; # TRACKS 

SPDRVl EQU SPTl *TRKS 1 ; SECTORS/DRIVG 

I 

BPS EQU 126 ; BYTES PER SECTOR 

MXDRV EQU 2 ; MAX 4 DRIVES 

I 

I 

; FORTH VARIABLES AND CONSTANTS 

; USED IN THE DISK INTERFACE. 

I 

. ************* 

; * DRIVE * 

. ************* 

8 

; CURRENT DRIVE NUKBER 

I 

D B 85H 

DB 'DRIV' 

D B 'Et+8BH 

DW PTSTO-5 

DRIVE DW DOVAR, 0 

. *********** 

; * SEC * 

. *********** 

I 

; CURRENT SECTOR NUMBER 

SEC 

83ti 

'SE' 

'C '+80H 

DRIVE-8 

DOVAR 

0


EJECT 

; ************* 

; * TRACK * 

. ************* 

t 

; CURRENT TRACK NUMBER 

I 

DB 85H 

DB 'TRAC ' 

DB 'Kg+80H 

DW SEC-6 

TRACK DW DOVAR, 0 

. *********** 

; * USE * 

. *********** 

I 

; ADDRESS OF NEXT BUFFER TO USE 

I 

USE 

; ************ 

; * PREV * 

. ************ 

DB 838 

DB 'US ' 

DB 'Et+80H 

DW TRACK- 8 

DW DOVAR 

D W BUF 1 

I 

; ADDRESS OF PREVIOUSLY USED BUFFER 

I 

DB 84H 

DB 'PRE' 

DB 'V1+80H 

DW USE-6 

PREV DW DOVAR 

DW BUF 1 

I 

; NUMBER OF SECTORS PER BLOCK 

i 

121F 87 DB 87H 

1220 53 45 43 2F 42 4C DB 'SEC/BL ' 

1226 CB DB 'K8+80H 

1227 14 12 DW PREV-7 

1229 5D 05 SPBLK DW DOCON 

122B 01 00 DW KBBUF/BPS 

PAGE 79

-4SM86 VER 1.B SOURCE: FORTd.A86 Fig Forth 8086/88 Ver 1.8 

EJECT 

I 

; NUMBER OF BUFFERS 

I 

DB 

DB 

DB 

DW 

NOBUF DW 

; * DENSITY * 

. *************** 

I 

; 0 = SINGLE, 1 = DOUBLE 

I 

1239 87 D E 87H 

123A 44 45 4E 53 49 54 DB 'DENS IT ' 

124a D9 DB 'Y1+8aH 

1241 2D 12 DW NGBUF-8 

1243 76 05 DESSTY DW DG'JA2 

1245 00 00 Dw 0 

I 

; DISK ERROR STATUS 

I 

1247 8A DB 8A3 

1248 44 49 53 43 2D 45 D B 'DISK-EXRO' 

52 52 4F 

DSKERR DW DOVAR, 0 

PAGE Pil


PBUF 

PBUF 1 

EJECT 

. ************** 

; * UPDATE * 

. ************** 

UPDAT 

84H 

'+BU ' 

'F1+80a 

DSKERR-13 

DOCOL 

LIT, CO 

PLUS, DUP 

LIMIT, EQUAL 

ZBRAN 

OFFSET PBUF1-$ 

DROP, FIRST 

DUP PREV 

AT, SUBB 

SEMIS 

86H 

'UPDAT ' 

'E1+80H 

PBUF-7 

DOCOL, PREV 

AT, AT 

LIT, 8000H 

ORR 

PREV, AT 

STORE, SEMIS 

* ..................... 

; * EMPTY-BUFFERS * 

. ..................... 

MTBUF 

8DH 

'EMPTY-BUFFER' 

'S '+80H 

UPDAT-9 

DOCOL, FIRST 

LIMIT,OVER 

SUBB, ERASEE 

SEMIS 

PAGE 81

ASX86 VER 1.0 SOURCE: FORTH.A86 Fig Forth 8086/88 Ver 1.0 

EJECT 

. *********** 

; * DRB * 

. *********** 

I 

D B 

DB 

DB 

DW 

DRZER DW 

DW 

DW 

I 

3B 

DB 

DB 

DW 

DRONE DW 

3K 

DW 

DW 

DW 

DW 

DK 

DRONl DEi 

DRON2 DW 

Di4 

83H 

'DR ' 

'0'+80fI 

MTBUF-16 

DOCOL, ZERO 

OFSET,STORE 

SEMIS 

83H 

'DR' 

'1 '+888 

DRZER-6 

30COL 

DENSTY ,AT 

Z B RAN 

OFFSET DRGN1-$ 

LIT,SPDRV2 

EWN 

OFFSET DRONZ-$ 

LIT, SPi3ilV1 

OFSET, STGRE 

SZYIS 

PAGE 82


EJECT 

. ************** 

; * BUFFER * 

. ************** 


I 

; NOTE: THIS WORD WON'T WORK IF ONLY 

; USING SINGLE BUFFER. 

; 

DB 

DB 

86H 

'BUFFE' 

DB 'Rf+80H 

DW DRONE-6 

BUFFE DW DOCOL, USE 

DW AT, DUP 

DW TOR 

BUFF1 Dw PBUF 

DW ZBRAN 

DW OFFSET BUFF1-$ 

DW 

DW 

DW 

DW 

USE, STORE 

RR , AT 

ZLESS 

Z B RAN 

DW OFFSET BUFF2-$ 

DW RR, TWOP 

DW RR, AT 

DW LIT, 7FFFH 

DW ANDD, ZERO 

DW 

DW 

RSLW 

RR, STORE 

DW RR, PREV 

DW STORE, FROMR 

DW TWOPISEMIS 

PAGE 83

ASPI86 VER 1.0 SOURCE: FORTH.AE6 

EJECT 

. ************* 

; * BLOCK * 

. ************* 

; 

DB 

DB 

DB 

DW 

BLOCK DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

BLOC2 DW 

D W 

DW 

DW 

DW 

DW 

D W 

DW 

BLOC3 DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

BLOC1 DW 

DW 


85H 

'BLOC ' 

'Kt+80H 

BUFFE-9 

DOCOL,OFSET 

AT, PLUS 

TOR, PREV 

AT, DUP 

AT, RR 

SUED 

DUP, PLUS 

ZBRAN 

OFFSET BLOC1-$ 

TBUF , ZEQU 

ZBRAN 


DROP, RR 

BUFFZ, DL'P 

RR,ONE 

RS LW 

Two, SUBB 

DU?, AT 

RR, SUBB 

DUP, PLUS 

ZEQU 

ZBRAN 


DUP, PREV 

STORE 

FROMR, DROP 

TWOPISEMIS 

PAGE 84


EJECT 

I 

; SETS: DMA OFFSET, DMA SEGMEhT 

i TRACK AND SECTOR. 

I 

DB 86H 

DB 'SET-I ' 

DB '01+80H 

DW BLOCK-8 

DW $+2 

MOV CX, USE+2 

CALL SDMAO 

MOV CX,CS 

CALL SDMAS 

MOV CX,SEC+2 

CALL SSEC 

MOV CX,TRACK+2 

CALL STRK 

JMP NEXT 

; * SET-DRIVE * 

. ***************** 

DB 

DW 

SETDRV DW 

MOV 

CALL 

JMP 

89H 

'SET-DRIV ' 

'E1+80H 

SETIO-9 

$+2 

CX,DRIVE+2 

SDSK ; SELECT DISK 

NEXT 

; DMA OFFSET 

; SET IT 

; GET SEGMENT 

; SET IT 

; SECToR # 

; SET IT 

; TRACK # 

; SET IT 

PAGE 85

AS'486 'JER 1.0 SOURCE: FORTII.A86 Fig Forth 8086/88 Ver 1.0 PAGE 86 

EJECT 

I 

; (CALCULATES DRIVE#, TRACK*, & SECTORB ) 

; STACK: SECTOR-DISPLACEMENT = BLKP * SEC/BLK 

; OUTPUT: VARIABLES DRIVE, TRACK, & SEC 

I 

DB 

DB 

DB 

DW 

TSCALC DW 

DW 

DW 

DW 

DW 

DW 

DW 

D'rS 

DX 

DW 

DW 

DW 

DW 

DK 

TSCALl DW 

Dd 

TSCAL2 DW 

DW 

DW 

Dd 

DW 

SINGLE DENSITY 

87H 

'T&SCAL ' 

'C '+80H 

SETDRV-12 

DOCOL, DEXSTY 

AT 

ZBRAN 

OFFSET TSCALS-$ 

LIT, SPDR'J2 

SLY00 

LIT,MX2RVtYIN 

DL'?, DRIVE 

AT, EQL'AL 

ZBMN 

OFFSET TSCAL1-$ 

DROP 

SRAN 


DXIVE,STOi7E 

SETCRV 

LIT,S?T2 

SLMOD, TXACK 

~rn- LJRE OKZP 

SEZ, STSRE 

SEMIS 

LIT,SPDRVl 

SLMGD 

LIT,!dXDRV,XIN 

DUP, DRIVE 

AT, EQUAL 

Z BRAN 


DROP 

B i?AN 

OFFSET TSCAL4-S 

DRIV5,STORE 

SETGRV 

LIT, STT1 

SLMOD, TRACK 

STORE, ONEP 

SEC, STORE 

SEMIS


EJECT 

; **************** 

; * SEC-READ * 

; **************** 

READ A SECTOR 

SECRD 

DB 

DW 

DW 

CAL 

MOV 

MOV 

JMP 

; * SEC-WRITE * 

. ***************** 

I 

; WRITE A SECTOR 

SECWT 

DB 

DW 

DW 

CALL 

MOV 

MOV 

JMP 

88H 

'SEC-REA ' 

PAGE 87 

'D '+80H 

TSCALC-10 

$+2 

GS EC ; GET (READ) SECTOR 

AH, 0 

DSKERR+2,AX ; SAVE ERROR STATUS 

NEXT 

89H 

'SEC-WRIT' 

'E '+80H 

SECRD-11 

$+2 

PS EC ; PUT (WRITE) SECTOR 

AH, 0 

DSKERR+2,AX ; SAVE ERROR STATUS 

NEXT

ASY86 VER 1.3 SOURCE: FORTH.A86 

EJECT 

. *********** 

f 

; DISK READ/hRITE ROUTINE 

I 

Fig Forth 8086/!38 Ver 1.0 

D B 8 3H 

DB 'R/' 

DB 'W1+80H 

DW SECWT-12 

DW DOCOL 

DW USE,AT 

DW TOR 

DW SWAP,SPBLK 

DW STAR, ROT 

Dw USE, STORE 

DW SPBLK, ZERO 

DW XDO 

RSLWl CW OV52, OVER 

DW TSCALC, SETIO 

DW ZBRAN 

DW OFFSET RSLX2-$ 

DW SECRD 

DW BRAN 

DW OFFSET RSLW3-$ 

RSLN2 DW SECijT 

RSLW3 DM ONE? 

DW LIT, 81JH 

DW JSE, PSTOR 

DW XLOOP 

DW OFFSET RSLbi1-$ 

DM DRG?, DROP 

DW FROYR, USE 

DW STCRE, SEMIS


EJECT 

. ************* 

; * FLUSH * 

. ************* 

I 

DB 

D B 

DB 

DW 

FLUSH DW 

DW 

DW 

FLUS1 DW 

DW 

DW 

DW 

DW 

; ************ 

; * LOAD * 

. ************ 

LOAD 

SCREEN 

DB 

DB 

DB 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

85H 

'FLUS ' 

'H1+80H 

RSLW-6 

DOCOL 

NOBUF , ONEP 

ZERO, XDO 

ZERO, BUFFE 

DROP 

XLOOP 

OFFSET FLUS1-$ 

SEMIS 

84H 

'LOA' 

'D8+80H 

FLUSH-8 

DOCOL, BLK 

AT, TOR 

INN, AT 

TOR, ZERO 

INN, STORE 

BSCR, STAR 

BLK, STORE 

INTER 

FROMR, INN 

STORE 

FROMR, BLK 

STORE 

SEMIS 

PAGE 89 

; BLK

ASX86 VEX 1.0 SOURCE: FORTF.A86 Fig Forth 8086/88 Ver 1.0 

ARROW 

EJECT 

0C 3H 

'--I 

' > '+80H 

LOAD-7 

DOCOL 

QLOAD 

ZERO 

INN 

STORE 

BSCR 

BLK 

AT 

OVER 

??ODD 

SUBB 

BLK 

PSTOR 

SEMIS 

PAGE 9s


EJECT 

; ...................................... 

; * QUERY KEYBOARD FOR KEY PRESSED * 

; ...................................... 

I 

; (TRUE = CHAR READY, FALSE = NO CHAR) 

I 

; CALLED FROM "?TERMINALw. 

I 

; USE 'KEY' TO GET KEY VALUE. 

I 

PQTER: CALL CSTAT ; TEST FOR KEY 

OR ALIAL ; ANY KEY 

JZ PQTERl ; NO 

MOV AL,1 ; TRUE = CHAR FOUND 

PQTER1: MOV AH, 0 ; MAKE 16-BITS 

JMP APUSH ; SAVE STATUS 

. ............................. 

; * CONSOLE INPUT ROUTINE * 

. ............................. 

i 

; WAITS FOR A KEYBOARD CHARACTER. 

I 

; CONTROL-P KEY WILL TOGGLE PRINTER 

; ECHO FLAG. 

I 

; CALLED FROM "KEY". 

I 

155D E8 4F 00 PKEY: CALL CI ; CONSOLE INPUT 

1560 3C 10 CMP AL,DLE ; PRINTER TOGGLE? 

1562 75 09 JNE PKEYl ; NO 

1564 2E 80 36 97 15 01 XOR EPRINT,l ; TOGGLE ECHO 

156A E9 F0 FF JMP PKEY ; GET ANaTHER KEY 

156D B4 00 KEY^: MOV AH, 0 ; MAKE 16-BITS 

156F E9 E9 EB JMP APUSH : SAVE KEY VALUE 

; * CONSOLE/PRINTER CHARACTER OUTPUT * 

; ........................................ 

; 

; CALLED FROM "EMIT". 

; 

PEMIT DW $+2 

POP .AX 

CALL POUT 

JMP NEXT 

; (EMIT) ORPHAN 

; GET CHAR 

; CHAR OUTPUT 

PAGE 91



EJECT 

. ............................... 

; * CRLF T3 CONSOLE/?RINTEX 

; ............................... 

* 

I 

; CALLED FROM 'CR' 

MGV 

CALL 

MCV 

CALL 

JMP 

AL,ACR 

PG iJT 

AL , LF 

POUT 

NEXT 

; CHAR OUTPUT 

. * * 

; * TRUE CONSOLE/?RINTEX OUTPUT ROUTINE * 

. * * 

. ........................................... 

1 

PCL'T: CALL CHO 

TEST EPRIST, 1 

JZ PC)UTl 

CALL LO 

POUT1: RET 

; PRINTER ECHO FLAG 

I 

; VALGE: O = OFF, 1 = 3N 

I 

EPRINT DB 0, @ 

; CONSCLEOOUT 

; PRINTER ECHO? 

; OFF 

; L IST OUTPUT

ASM86 VER 1.0 SOURCE: FORTH. A86 Fig Forth 8886/88 Ver 1.0 PAGE 93 

EJECT 

.......................................... ... 

a * . 

1 1 1 

1 1 1 . . . CP/M-86 INTERFACE ROUTINES ... 1 1 1 

I l l 

... 

1 1 1 ;;; 

.......................................... 

I 

; ALL LOW LEVEL CONSOLE AND DISK 1/0 START 

; HERE. 

I 

; THE 

0 

I 

I 

I 

; 

I 

I 

1 

I 

1 

I 

I 

I 

FOLLOWING 1/0 ROUTINES ARE SUPPORTED: 

CONSOLE INPUT (CSTAT) . 

CONSOLE OUTPUT (CEO) . 

LIST OUTPUT (LO). 

SELECT DISK (SDSK). 

SET TRACK (STRK) . 

SET SECTOR (SSEC). 

SET DMA OFFSET (SDMAO). 

SET DMA SEGMENT (SDMAS) . 

GET SECTOR (GSEC) . 

PUT SECTOR (PSEC) . 

; * BDOS FUNCTION CALL * 

. .......................... 

I 

; ENTRY TO CP/M-86 BDOS IS THROUGH SOFTWARE 

; INTERRUPT #224. 

I 

; ENTRY: 

I 

1 

; EXIT: 

I 

I 

BDOSFUNC : 

PUSHF 

PUSH 

PUSH 

INT 

POP 

POP 

POPF 

RET 

REG CL = FUNCTION CODE. 

" DX = PARAMETER (S) . 

REGS. AX, BX AND ES CONTAIN 

RETURNED PARAMETERS. 

REGS. SI, BP, FLAGS ARE SAVED. 

ALL SEGMENT REGISTERS SAVED 

EXCEPT ES. 

; SAVL FLAGS 

; SAVE "IP" 

; AND "RPP" 

; SOFT'rJARE INTERRUPT

ASH86 VER 1.0 SOURCE: FORTH.A86 Fig Forth 8286/38 Ver 1.0 

EJECT 

. ............................ 

I 

; * EXIT BACK TO C?/X-85 * 

. ............................ 

I 

EXIT: MOV DL, 4 ; STAriDARD ABORT 

M3V CL,a ; RESET FUNCTION # 

JMP BDOSFUNC 

. **kt*********************** 

; * GET KEYBOARD STATSS * 

. ........................... 

I 

; RETURNS KEYBOARD STATLIS 

I 

; *** USES CI3ECT CALL TO "3IOS" *** 

8 (THROUGH THE " BDOS" ) 

I 

; EXIT: REG AX = 0 IF NO KEY PRESSZD 

1 RZG AX = NON-ZEXO IF KEY PRESSED 

I 

CSTAT: MOV AL, 2 ; 'CONST' FUNCTION 

CALL DCBIOS ; DIRECT 510s CALL 

RET 

; * CONSOLE INPYT * 

. ..................... 

I 

; KAITS FOR KEY FROY KEYBGARD 

I 

; *** USES DIRECT CALL TO "9IOS" *** 

I (THROUGH THE "EDOS" ) 

I 

CI: MOV 

CALL 

RET 

AL, 3 ; 'CONIN' FUIGC 

DCBIOS ; CALL SIOS 

PAGE 94


EJECT 

; * CONSOLE OUTPUT * 

. ...................... 

I 

; OUTPUTS CHARACTER IN REG AL 

; TO CONSOLE. 

I 

; EXIT: REG AL = CHARACTER 

I 

CHO: PUSH AX ; SAVE CHAR 

MOV DL, AL 

MOV CL,6 ; BDOS FUNCTION # 

CALL BDOSFUNC 

POP AX 

RET 

. ******************* 

; * LIST OUTPUT * 

. ******************* 

I 

; OUTPUTS CHARACTER IN REG AL 

; TO LIST DEVICE (PRINTER). 

f 

; EXIT: REG AL = CHARACTER 

I 

LO: PUSH AX ; SAVE 

MOV DL, AL 

MOV CL, 5 ; BDOS 

CALL BDOSFUNC 

POP AX 

RET 

CHAR 

FUNCTION # 

PAGE 95

ASY86 VER 1.0 SOURCE: FORT9.A86 Fig Forth 8066/83 Ver 1.0 

. * 

EJECT 

* * * * * * * * * * * * * * * * * * * * * * * r * * * * * * * * * * * 

. * 

. * 

I . ................................. 

; * DIRECT BIOS CALL FUNCTION * 

I 

I 

; ALLOWS DIRECT CALLS (THROUGR 'BDOS' ) 

; TO THE 'BIOS' PROGRAM. 

I 

; ENTER: REG AL = BIDS FUNCTION NO. 

; " CX = PARA?lETGR 1 

; " DX = PAilAXETGR 2 

I 

; NOTE: THE ABOVE PAMXETERS ARE OPTIONAL 

I DEPEKDING UPON THE FUNCTION CALLED. 

I 

GCBIGS: MOV BX,OFFSET 313SIA.X 

MOTJ [BX] ,AL ; FSSC # 

PAGE 96 

MOV 1 [EX] ,CX ; PA?A. 1 

MOV 3 [BX] ,DX ; PAXSI. 2 

MOV DX,BX ; P.4X.Y. POINTER 

YOV CL, 50 ; 313ECT CALL 

JMP BDOSFUNC ; ... GO-IT... 

; THE FOLLDWING IS A SCRATCH AZEA FOR 

; STORING THE FUNCTION # AND 2AilAXETERS 

; DURING A DIRECT 913s CALL. 

. ******************* 

I 

; * SELECT DISK * 

. ******************* 

I 

I 

; ENTER DISK NUMBER I N 3EG CL. 

I 

SDSK: MOV. AL19 ; BIOS FUNCTION NO. 

JMP DCBIOS 

; * SETTRACK * 

. ***************** 

8 

; ENTER TRACK NUMBER IN 3EG CL. 

I 

STRK: MOV 

JMP 

AL,lB ; 319s FUNC # 

DCBIOS


EJECT 

; ****************** 

; * SET SECTOR * 

. ****************** 

I 

SSEC: MOV 

JMP 

. ...................... 

; * SET DMA OFFSET * 

. ...................... 

AL,11 ; BIOS FUNC. I 

DCBIOS 

I 

; ENTER DMA OFFSET IN REG CX 

I 

SDMAO: MOV AL,12 ; BIOS FUNC. # 

JMP DCBIOS 

. ....................... 

; * SET DMA SEGMENT * 

. ....................... 

I 

; ENTER DMA SEGMENT IN REG CX 

I 

SDMAS: MOV AL,17 ; BIOS FUNC. C 

JMP DCBIOS 

; ......................... 

; * GET (READ) SECTOR * 

. ......................... 

I 

; EXITS WITH STATUS IN REG AL 

I 

GSEC: MOV AL,13 ; BIOS FUNC. # 

JMP DCBIOS 

; .......................... 

; * PUT (WRITE) SECTOR * 

; .......................... 

; 

; EXITS WITH STATUS IN REG AL 

I 

PSEC: MOV AL,14 ; BIOS FUNC. # 

JMP DCBIOS 

........................................ 

I I 

I END OF CP/M-86 1/0 INTFRFACE 8 

PAGE 97

ASM86 VER i . O SOURCE: FORTH.A86 Fig Forth 8086/88 Ver 1.0 

TICK 

EJECT 

. *************r 

; * FORGET * 

. ************** 

FORG 

0C 1H 

0A7H 

ARROW-6 

DOCOL 

DF IND 

ZEQU 

ZERO 

QE RR 

DROP 

LITER 

SEMIS 

86H 

' FORGE ' 

'T1+9aH 

TICK-4 

DOCOL 

CL??.R 

AT 

COXT 

.4 T 

SL'38 

LIT, 1SH 

QEiiR 

TICK 

DUP 

FENCE 

AT 

LESS 

LIT, 15H 

QE RR 

DUP 

NFA 

DP 

STORE 

LF A 

AT 

CONT 

AT 

STORE 

SEMIS 

PAGE 99


EJECT 

; * BACK * 

; ************ 

BACK 

; * BEGIN * 

f ************* 

. ************* 

BEGIN 

; * ENDIF * . ************* 

84H 

'BAC ' 

'Kf+80H 

FORG-9 

DOCOL 

HERE 

SUBB 

COMMA 

SEMIS 

0C 5H 

'BEG1 ' 

'Nt+80H 

BACK-7 

DOCOL 

QCOMP 

HERE 

ONE 

SEMIS 

0C 58 

'END1 ' 

'F1+80H 

BEGIN-8 

DOCOL 

QC OM P 

TWO 

QPA I R 

HERE 

OVER 

SUBB 

SWAP 

STORE 

SEMIS 

PAGE 99

EJECT 

; * THEN * 

. ************ 

THEN 

. ************ 

; * LOOP * 

. ************ 

DS 

DB 

DB 

DW 

LOOPC DLi 

DW 

DW 

DW 

DW 

DW 

DW 


OC 4H 

'THE' 

'N1+86Y 

ENDIFF-8 

DOCOL 

ENDIFF 

SEMIS 

0C 2H 

'9' 

'i)'+80H 

THE?i-7 

DCCOL 

COMP 

XDO 

HERE 

THREE 

SEMIS 

0C 4H 

' LOO ' 

'Pt+8C!H 

DO-5 

DOCOL 

THREE 

QPAIR 

COM P 

XLOOP 

BACK 

SEMIS


PLOOP 

EJECT 

; ************* 

; * UNTIL * 

. ************* 

UNTIL 

; * END * . *********** 

ENDD 

0C 5H 

'+LOO1 

'P '+80H 

LOOPC-7 

DOCOL 

THREE 

QPAIR 

COMP 

XPLOO 

BACK 

SEMIS 

0C 5H 

'UNTI ' 

'L1+80H 

PLOOP-8 

DOCOL 

ONE 

QPAIR 

COMP 

Z B RAN 

BACK 

SEMIS 

0C 3H 

'EN' 

'D1+80H 

UNTIL-8 

DOCOL 

UNTIL 

SENIS 

PAGE 101


EJECT 

; ************* 

; * AGAIN * 

. ****ti******* 

AGAIN 

. ************** 

I 

; * REPEAT * 

. ************** 

REPEA 

IFF 

0C5A 

'AGAI ' 

'N '+80i-l 

ENDD-6 

DOCOL 

ONE 

QPAIR 

COMP 

BRAN 

BACK 

SEMIS 

aC 6H 

'REPEA' 

'T1+60H 

AGAIN-8 

DOCOL 

TOR 

TGR 

AGAIN 

FRGMX 

FRZMR 

TL. 0 

sma 

ENDIFF 

SEMIS 

0C 2H 

'I' 

'F8+80E 

RETEA-9 

DOCOL 

COM? 

Z BRAN 

HERE 

ZERO 

COMMA 

Ti0 

SEMIS 

PAGE 182


EJECT 

; ************ 

; * ELSE * 

; ************ 

I 

DB 

DB 

DB 

DW 

ELSEE DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

. ************* 

; * WHILE * 

. ************* 

DS 

DB 

DB 

DW 

WHILE DW 

DW 

DW 

DW 

0C 4H 

'ELS ' 

'E8+80H 

IFF-5 

DOCOL 

Td 0 

QPAIR 

COMP 

BRAN 

HERE 

ZERO 

COMMA 

SWAP 

TWO 

ENDIFF 

TWO 

SEMIS 

0C 5H 

'WHIL' 

'E1+80H 

ELSEE-7 

DOCOL 

IFF 

mop 

SEMIS 

PAGE 1C1Z


EJECT 

. ************** 

; * SPACES * 

. ************** 

SPACS 

BDIGS 

ECIGS 

86H 

'SPACE ' 

'Sr+80H 

WHILE-8 

DOCOL 

ZERO 

MAX 

DDUP 

ZBRAN ; IF 

OFFSET SPAXI-$ 

ZERO 

XD 0 ; DO 

SPACE 

XLOGP ; LOOP ENCIF 

OFFSET SPAX2-$ 

SEMIS 

8 2H 

'


EJECT 

. ************ 

; * SIGN * 

. ************ 

I 

I 

DB 

DB 

DB 

DW 

SIGN DW 

DW 

DW 

DW 

DW 

Di4 

DW 

SIGN1 DW 

DIG 

; 

DB 

DB 

DB 

DW 

DIGS DW 

DIGS1 DW 

DW 

DW 

DW 

84H 

'SIG' 

'N1+80H 

EDIGS-5 

DOCOL 

ROT 

ZLESS 

ZBRAN ; I F 

OFFSET SIGN1-$ 

LIT, 2DH 

HOLD ; ENDIF 

SEMIS 

81H 

'#'+80H 

SIGN-7 

DOCOL 

BASE 

AT 

MSMOD 

ROT 

LIT, 9 

OVER 

LESS 

ZBRAN ; I F 

OFFSET DIG1-$ 

LIT, 7 

PLUS ; EYLIF 

LIT, 30H 

PLUS 

HOLD 

SEMIS 

8 2H 

'#I 

'S '+80H 

DIG-4 

DOCOL 

DIG 

OVER 

OVER 

ORR 

; BEGIN 

PAGE 185

ASYE6 :JE? 1.8 SOURCE: FORTH.A86 Fig Forth 8086/88 Ver 1.0 

DDOTR 

DOTR 

ZEQU 

ZBMN ; UNTIL 

OFFSET DIGS1-$ 

SEMIS 

83H 

'D. ' 

'R1+809 

DIGS-5 

DOCOL 

TOR 

SWAP 

OVER 

DASS 

BDIGS 

DIGS 

SIGN 

EDIGS 

FROMR 

SVE R 

SL'SB 

SPACS 

TYPES 

SEYIS 

DDOTR-6 

DOCOL 

TOR 

STOD 

FROM R 

DDOTR 

SEMIS 

PAGE 1ZF


DDOT 

DGT 

QUES 

UDOT 

EJECT 

8 2H 

'D ' 

' . '+80H 

DOTR-5 

DOCOL 

ZERO 

DDOTR 

SPACE 

SEMIS 

8 1 H 

I. '+80H 

DDOT-5 

DOCOL 

STOD 

DDOT 

SEMIS 

81H 

'?'+80H 

DOT-4 

DOCOL 

AT 

DOT 

SEMIS 

8 2H 

'U' 

' . '+80H 

QUES-4 

DOCOL 

ZERO 

DDOT 

SEMIS 

PAGE 107

AS286 VER 1.0 SOURCE: FORTH. A86 Fig Forth 8086/88 Ver 1.0 PAGE 1Q9 

EJECT 

***it******** 

; * VLIST * 

. ************* 

I 

DB 

DB 

85H 

'VLIS ' 

VLIST 

DB 

DW 

DW 

'T1+80H 

UDOT-5 

DOCOL 

VLISl 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

LIT, 80H 

OUTT 

STORE 

CONT 

AT 

AT 

OUTT ; BEGIN 

AT 

CSLL 

GREAT 

ZBRAN ; IF 

OFFSET VLIS2-$ 

CR 

ZERO 

DW OUTT 

DW STORE 

VLIS2 DW DLJP 

DW IDDOT 

DW SPACE 

Did SPACE 

DW PFA 

Dbi LF A 

DK AT 

DW DUP 

DW ZEQU 

Did QTERM 

D W ORR 

; * BYE * 

. *********** 

; ENDIF 

DW ZBRAN ; UNTIL 

DW OFFSET VLISI-$ 

DW DROP 

DW SEMIS 

I 

; EXIT TO CP/M OR YOUR MONITOR 

, 

DB 8 3H ; 9YE 

D B 'BY' 

DB 'E1+80H 

BYE 

DW VLIST-8 

DW $+2 

JMP EXIT 

; BACK TO SYSTEM

ASM86 VER 1.0 SOURCE: FORTH. A86 Fig Forth 8086/88 Ver 1.0 PAGE 109 

EJECT 

; * LIST * 

. ************ 

DB 

DB 

DB 

DW 

LISTC DW 

DW 

DW 

DW 

DB 

. ************* 

; * INDEX * 

. ************* 

I 

D B 

DB 

DB 

DW 

INDEX DW 

Did 

DW 

DW 

DW 

INDEl DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

INDE2 DW 

DW 

DW 

84H 

'LIS' 

'T1+80H 

BYE-6 

DOCOL, DECA 

CR, DUP 

SCR, STORE 

PDOTQ 

6,'SCR # ' 

DOT 

LIT, 10H 

ZERO, XDO 

CR, ID0 

LIT, 3 

DOTR, SPACE 

IDO, SCR 

AT, DLINE 

QTERM 

ZBRAN 

OFFSET LIST2-$ 

LEAVE 

XLOOP 

OFFSET LIST1-$ 

CR, SEMIS 

85H 

' INDE ' 

'X1+80H 

LISTC-7 

DOCOL 

LIT, FF 

EMIT, CR 

ONEP, SWAP 

XDO 

CR, ID0 

LIT, 3 

DOTR, SPACE 

ZERO, ID0 

DLINE I QTERM 

ZBRAN 

OFFSET INDE2-$ 

LEAVE 

XLOOP 

OFFSET INDE1-$ 

SEMIS 

; IF 

; LEAVE 

; ENDIF

ASM86 VEX 1.0 SOURCE: FORTH.A86 

EJECT 

. ************* 

I 

; * TRIAD * 

. ************* 

1 

DB 

DB 

DB 

DW 

TRIAD DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

D W 

TRIA1 DW 

DW 

DW 

DW 

DW 

DW 

TRIA2 DW 

DW 

DW 

Dw 

DTv' 

DW 

I 

; PRINT CPU TYPE (8086) 

I 


DB 84ii 

DB '.CP1 

DB 'U1+8BH 

DW TRIAD-8 

DOTCPL' DW DOCOL 

DW BASE,AT 

DW LIT, 36 

DW BASE, STORE 

DW LIT, 22H 

DW PORIG,TAT 

DW DDOT 

DW SASE,STORE 

DW SEMIS 

85H 

' TRIA ' 

'D8+80H 

INDEX-8 

DOCOL 

LIT, FF 

EM I T 

LIT, 3 

SLASH 

LIT, 3 

STAR 

LIT, 3 

OVER, PLUS 

SWAP , XDO 

CR, ID0 

LISTC 

QTERM ; ?TERMINAL 

ZBRAN 

CFFSET TRIA2-$ ; I F 

LEAVE ; LEAVE 

XLOOP ; ENDIF 

OFFSET TRIA1-$ 

CR 

LIT,15 

MESS, CR 

SEMIS 

PAGE 110


EJECT 

. ......................................... 

. * * 

. * CODE LEVEL "MATCH" DEFINITION * 

. * * 

. ......................................... 

, 

; STACK PARAMETERS: 

I 

I --- flag new:cursor:offset) 

; ( cursor:addr byte:left str:addr str:len 

I 

; T his version of MATCH will handle string length 

S 

; up to 65335 bytes in length. 

I 

MATCH 

DB 85H ; MATCH 

DB ' MATC 

DB 'Ht+80H 

DW DOTCPU-7 

DW $+2 

MOV D1,SI ; SAVE IP 

POP CX ; STRING COUNT 

POP BX ; STRING ADDR 

POP DX ; BYTES LEFT TO SEARCH 

POP SI ; CURSOR ADDR 

PUSH S I ; SAVE COPY 

LODS 

CMP 

JNZ 

PUSH 

PUSH 

PUSH 

AL ; GET FIRST BYTE 

AL, [BX] ; MATCB? 

MAT3 ; NO 

BX ; SAVE STRING ADDR 

CX ; & STRING COUNT 

SI ; & CURSOR ADDR 

; TRY TO MATCH REMAINNING CHARACTERS IN STRING 

DEC 

J Z 

DEC 

J Z 

I NC 

LODS 

CMP 

J Z 

CX I 

MATCHOK ; 

DX I 

NOMATCH ; 

BX I 

AL a 

ALr [BXI ; 

MAT2 I 

STR COUNT -1 

EXIT ... MATCH FOUND 

BYTES LEFT -1 

EXIT. . .NO MATCH 

NEXT STR CHAR ADDR 

GET NEXT BYTE 

MATCH? 

YES, GET MORE

.ASu:?6 VEX l.d SOURCE: FORTH.Aa6 Fig Forth 8086/88 Ver 1.Q 

EJECT 

; NO MATCH YET. 

POP S I 

POP CX 

POP BX 

DEC DX 

JNZ MAT1 

JMP MAT 4 

MATC HOK : 

NOMATCH: 

POP 

POP 

POP 

; RESTORE PGINTERS 

; BYTE LEFT COUNT -1 

; START OVER 

; EXIT.. .NO MATCH 

; ADJUST STACK 

; FOR EXIT.. . 

; EXIT HERE: DX = TRUE/FALSE FLAG (0-NO XATCH) 

I 

MAT4: MOV AXIS1 ; NEk CUaSOR ADDR 

POP S I ; GET STARTING ADDR 

SUB AXIS1 ; COMPUTE CURSaR OFFSET 

MOV SIIDI ; GET BACK IP 

JMP DPUSH ; BYS...BYE 

PAGE 112


EJECT 

- ................................ 

- * * 

. LAST DICTIONARY WORD 2; 

. * * 

. * "TASK" * 

. * * 

. ................................ 

DB 

DB 

DB 

DW 

TASK DW 

DW 

I 

INITDP EQU 

84H 

'TAS ' 

'K8+80H 

MATCH-8 

DOCOL 

SEMIS 

; TASK 

; SHOW END OF DICT. 

; THE REMAINNING MEMORY (UP TO 'EM') IS 

; USED FOR: 

I 

I 1. EXTENSION DICTIOKARY 

I 2. PARAMETER STACK 

I 3. TERMINAL INPUT BUFFER 

r 4. RETURN STACK 

I 5. USER VARIABLE AREA 

1 6. DISK BUFFERS 

I 

I 

; THE FOLLOWING ZERO BYTE IS NEEDED 

; I N CP/M-86 TO TELL THE 'GENCMD' 

; ROUTINE THE MAXIMUM AMOUNT OF 

; MEMORY NEEDED IN THIS PROGRAM. 

ORG 

DB 

END 

END OF ASSEMBLY. NUMBER OF ERRORS: 0 

EM-1 ; LAST MEMORY ADDR-I 

0 ; LAST LOCATION 

PAGE 113

Page 1 ---------- 8086 Fig-Forth Symbols ---------- 

059D ZERO 

109E MSLAS 

06C2 STATE 

0EF9 FORTH 

13A0 SET10 

1480 SECWT 

05D4 FIRST 

0714 TWOP 

034C XORR 

0683 OUTT 

097F DECA 

l5DB BIOSPAR 

01AF XLOOP 

135D BLOC2 

082F LFA 

17DD DIG 

0BD9 PAD 

0B3 3 QUERY 

1243 DENSTY 

13CE SETDRV 

llE0 PTSTO 

01F1 ID0 

llC7 PTCSTO 

05EC BBUF 

0553 CON 

05BE 3LS 

027.4 ENCL 

1990 TRIA2 

03DA RR 

0E80 INTE4 

017A EXEC 

0CE0 DFIND 

0E9A INTE6 

0BC1 HOLD 

068D SCR 

016A LIT 

0AA4 DOTQl 

179F BDIGS 

OD47 ERR02 

0899 QERRl 

1449 TSCAL4 

07D4 SPACE 

1681 ENDIFF 

0B79 NULL2 

1798 SPAXl 

07FE TRAVl 

1792 SPAX2 

OD86 CREAT 

0 0 0 0 VARIABLES 

0634 WIDTH 

1126 MSMOD 

06F4 RNUM 

OF32 QUIT 

03E1 ZEQU 

1083 MSTAR 

0A6B PDOTQ 

083F CFA 

04ED CSTOR 

0795 ULESS 

1021 PM1 

03F4 ZLESS 

01D3 XPLOO 

1597 EPRINT 

1377 BLOC3 

02DF CR 

1064 MINl 

103B ABS 

0388 RPSTO 

180A DIGS1 

012A BIP 

04FB TSTOR 

07ED DDUPl 

0628 TIB 

06D7 DPL 

064E FENCE 

05.45 ONE 

0189 BRAN 

0723 HERE 

1058 MIX 

0679 INN 

0EA0 INTE5 

OF11 DEFIN 

0E9E INTEJ 

OAF3 EXPEG 

02C4 KEY 

OAF7 EXPE7 

05F8 BSCR 

llAl MESS2 

09D3 DOES 

14EE FLUS1 

089B QERR2 

17AE EDIGS 

0C00 WORD1 

18FE LIST1 

0B81 NULL3 

191A LIST2 

169C THEN 

08A5 QCOMP 

039A SEMIS 

0C3D PNUM3 

0164 DP0 

17F9 DIG1 

12C2 DRZER 

1494 RSLW 

0DlA ERROR 

1254 DSKERR 

0D9C CREAl 

0304 USTAR 

138F BLOC1 

061E RZERO 

188B VLIST 

16A7 DO 

0434 AT 

1327 BUFF2 

032F ANDD 

0495 PSTOR 

0368 SPSTO 

06CD BASE 

0A40 DTRAl 

gA5E DTRA3 

09B5 SEMI1 

1501 LOAD 

0E64 INTEl 

0E86 INTE2 

0AC1 EXPEl 

0934 LBRAC 

10F3 MODD 

0969 HEX 

12E8 DRON2 

106E MAX 

OF87 WRMl 

0BB2 BLANK 

0479 DUP 

OD28 ERR01 

07AB ULESl 

1443 TSCAL3 

0EC9 VOCAB 

1607 TICK 

0B7D NULL1 

03AC LEAVE 

1210 USE 

19CD MATCH 

0C04 WORD2 

02B2 EMIT 

189B VLISl 

0957 SMtlDG 

0606 PORIG 

0E62 INTER 

0406 PLUS 

03CC FROMR 

0313 USLAS 

02D5 QTERM 

1425 TSCALS 

1533 ARROW 

16E6 UNTIL 

0BEC WORDS 

165D BACK 

OD00 DFINl 

1954 INDE2 

0657 DP 

084D NFA 

1738 IFF 

0863 PFA 

04C1 CAT 

0670 BLK 

llFA SEC 

0A5A DTRA2 

BE27 DLITl 

0E0A LITEl 

1708 AGAIN 

1029 DPY 

0FB8 COLD 

0CA6 NUMB1 

0AFB EXPi2 

12E4 DRZPZ1 

0B21 EXPE3 

166F BEGIN 

0B15 EXPE5 

1808 DIGS 

12F7 BUFFE 

04D0 TAT 

llA5 MESS1 

0942 RBRAC 

01E0 XDO 

1lB0 MESS3 

1854 DDOT 

@EBB IMMED 

073F COMMA 

125F PBUF 

052F SEMI 

1620 FORG 

0750 CCOMM 

09C3 BUILD 

LITER 

OFSET 

FLUSH 

CLDl 

SSMOD 

DPLUS 

COUNT 

PLOOP 

MINUS 

STORE 

DOTCPU 

INDEl 

DPMl 

SZERO 

BUFF1 

TYPES 

FLD 

MAX1 

HLD 

DABS 

ENDD 

PM 

PBUFl 

BI PE 

BYE 

TRIAl 

SIGN1 

INTE3 

NUMB2 

UP 

NUMB3 

EXPE 4 

FILL 

DOT 

TSCALl 

VAR 

TSCAL2 

DOTQ2 

ULES 2 

BLOCK 

SUBB 

DLINE 

DDUP 

REPEA 

CSLL 

ELSEE 

COMP 

VLIS2

Jl32 OFtIG 

J,f 33 'SL'."ll 

J-37 ONE? 

2-ZJ GREAT 

a666 VCICL 

8C4F IDCOT 

37C3 ROT 

1206 TLACK 

0779 LESS 

0642 WARN 

117F MESS 

0995 PSCOD 

02EC CMOVE 

lir'3 DRIVE 

d46C SXAP 

---------- 5086 Fig-Forth Symbols 

0201 DIGIT 

0DDE BCOM? 

0c7a PNUM? 

0A28 TY?El 

06A8 CONT 

0F3C QUIT1 

0A2A TYPE3 

06EB CSPP 

08E7 QCSP 

076D EQUAL 

12D2 DRONE 

llD4 PTAT 

0SAD Ti0 

1235 NOBUF 

05BC COLON 

0450 OVER 

llB8 PTCAT 

a487 TDUP 

1 6 a ~ LOOPC 

0582 USER 

14C2 RSLW3 

a ~ 3 2 QSTAC 

033A DMIKU 

1213 PREV 

1962 QUES 

laDF LISTC 

............... 0080 NUMBERS 

0588 DOGS5 

3321 DZERO 

i5S3 POVT 

a213 DIGII 

1936 MAT1 

d2AO ENCL3 

19F6 MAT4 

d25A EFIN5 

156D PKEYl 

B15F NEXT1 

15EF SDMAG 

155D PKEY 

015C NEXT 

0FA4 SPDRV2 

0020 ABL 

001a DLE 

002E ADOT 

0088 NBUF 

e04D TRKS2 

0155 APUSR 

15E5 STRK 

lA03 INITDP 

0220 DIG12 

018B BRAN1 

0785 LESl 

15B5 CHO 

15F9 GSEC 

09DF DODOE 

a520 DOCOL 

15E0 SDSK 

1596 POUT1 

15A9 CSTAT 

022E ?FIND 

1466 SECRD 

0C88 NTJYB 

0C75 PNUM3 

0A1A TYPE2 

1962 TRIAD 

0AB7 EXPEC 

08BD QEXEC 

OF90 WARM 

0A84 DOTQ 

192A INDEX 

14AE RSLWl 

088B QERR 

13E5 TSCALC 

0B42 NULL 

0544 NOOP 

1229 SPBLK 

04A7 TOGGL 

1820 DDOTR 

05E0 LIMIT 

0904 QLOAD 

17C7 SIGN 

0E17 DLITE 

1114 SSLA 

0A38 DTRAI 

03BC TOR 

0BA1 ERAS55 

OF21 PAiiEN 

035B SPAT 

0Z5F ABORT 

081F LATES 

1771 WHILE 

1095 ST3D 

14CQ RSLK2 

DEE9 DOVOC 

0626 CC'R~ 

1878 UEOT 

07FA TRAV 

1288 L'PXT 

10D3 SL:.!.i3D 

0000 FIGREV 003C F'F 

0002 MXDRV 000A LF 

OOOD ACR 0007 BELL 

0040 US 001.4 SPTl 

005F BSIY 0543 TRKSl 

3300 I!JITSB 0031 r'I13iiEL 

03FF ZLESSl 

a153 TNEXT2 

19F3 NOMATCH 

a12E TNEXT 

0296 ENCL2 

19ED MAT3 

15BF LO 

0264 PFIN6 

l00F STODl 

a134 XLOOl 

03EC ZEQUl 

15A2 EXIT 

TNEXTl 

TNEXT3 

PCf ziz 

E?IC L 1 

BCGSFS'LU'C 

ENCL4 

?FIN1 

BXEAK 

PS EC 

DOCON 

WRM 

DOVAX 

09AB SZYIC 

0i28 iiP1 

033D OR2 

1Aa7 TASK 

0D0C PAEGR 

045F DROP 

OF53 QUIT2 

037B RPAT 

0535 THREE 

1145 PLINE 

a878 SCSP 

1333 DOTR 

lac4 STAR 

1782 SPACS 

laE3 SLASH 

0733 ALLGT 

019A ZBRAN 

O8C4 GPAIR 

12AE XTBUF 

1572 PEMIT 

BSGUT 

4003 E!4 

eG80 BPS 

0034 SPT2 

3D8l NSCR 

2013 x ~ s 

015A 3PESH 

19F3 MATCBOK 

15AF' CI 

dF96 CLD 

19DE MAT2 

d78D LES2 

a242 PFIN2 

1573 PCR 

15EA SSEC 

15C9 DCBIOS 

15F4 SDNAS 

1558 PQTEiil

Fig-Forth 8086/88 Version 1.0 Notes Page 1 

Fig-Forth for the 8086/88 

Version 1.0 

Thomas Newman 

This document will briefly describe Forth-86 and how it differs 

from the Fig model. It is assumed that the reader is familiar 

with the 8086/88 CPU and Fig Forth's installation manual. 

This version of 8086 Forth was derived from 8080 Fig Forth 

(version 1.1). The extra registers and extended addressing modes 

of the 8086 were used to optimize the code portion of Forth-86 

(refer to the source listing for 8086 register usage). 

IMPLEMENTATION 

-------------- 

Forth was implemented and tested on an 8088 CPU running Digital 

Research's CP/M-86 (version 1.0). 

All console, printer and disk drivers call tneir res?ected 

routines in the "BIOS" through the "BDOS" function #50. These 

calls are all located in a common program area and can be easily 

modified to call your own 1/0 routines (if your're not using 

CP/M) . 

The following are notes about loading and executing Forth: 

o The source program was assembled using CP/M's ASM86. The 

mnemonics should be compatible with Intel's assembler 

(except for the far CALLS and JMPs which are not used in 

this version of forth). 

o The forth program can be loaded into any free portion of 

memory that is large enough to hold the forth kernel, 

dictionary and buffers (from "ORIG" thru "EM"). 

o The program is executed at the offset address 10B hex with 

the Code Segment (CS) equal to the base address (this is the 

way CP/M executes "CND" type files). 

o The "COLD" entry routine in forth will set all other segment 

registers to the value of the CS register. This version of 

forth assumes all data, code and stack offset addresses are

- - 

in the current code segment. This limits forth's asaresain; 

range to 64k bytes (this snould be c5an2ed in f;:t-ir? 

versions). 

FORTH'S YEM04Y YAP 

------------------ 

Uses the standari Fig-Forth memory ma? described In &hr- C .I = 

inscallation manual. 

MODIFIED FORTH WORDS 

.................... 

Saxe as tne flg model except retdrns a -1 for ootn t-3 ~~ati??' 

and renalnder (u2 and u3) when tnl a~vlszr is ztr3 (23:). 

3 rdn-cine portion of thrs word "!L25FIu was xod:f;?d ta 

conforin to Forth-79 standarcis wn?n dealing wltn an "ird5ex" tazt 

T' 

1s less than zero (nqatlve). n 1 1 3~22 k~nen t:e 

"iildsx" 1s less than tne "ilaltl' (tne flq ma551 will st=? wnen 

less than or equal to). 

ENCLOSE ( addri c --- a2irl n l n2 23 ! 

Yo2ified to ret2rn 16-bi: offset valxes fcr nl, ?r,~ ~ j . TX L 

Fig model only returns 5-bit offsets wnizh cozld I:-i: the r2rLcjl 

of wor3 searches in blocks larger than 256 Syzss. 

ADCED FORTH WORDS 

----------------- 

-1 - - 

These are words that are not found In tne Fig-?art2 model 

of these words are In ad80 Forth 1.1). 

- .. , 

(some 

Leaves a true flag if "ul" is less tnan "32"; ather.+ils~ leaves a 

false flag. (Thls is an unsigned cornparlsan,. 

I?? ( portt --- n 1 

Fetches (inputs) a 16-bit value "n" from che i/O port.

Fig-Forth 8086/88 Version 1.0 Notes 

P! ( n port# --- 1 

Stores (outputs) a 16-bit number "n" at the 1/0 port. 

PC @ ( port# --- C 1 

Fetches (inputs) an 8-bit value "c" from tne 1/0 port. 

PC! ( c port# --- .I 

Stores (outputs) an 8-bit number "c" at the 1/0 port. 

DRIVE ( --- addr ) 

A variable that contains the current disk drive number. 

SEC ( --- addr ) 

A variable that contains the current sector number. 

TRACK ( --- adds ) 

A variable that contains the current track number. 

Page 3 

A constant that returns the number of disk buffers in the currznt 

For tn system. 

DENSITY 

( --- addr ) 

A variable that contains the current disk density. Zero = single 

density (26 sectors/track). Non-zero = double density (52 

sectors/track). Sector size is 128 bytes in both densities. 

In CP/M the "BIOS" program must be modified 

to handle double density formats. 

DISK-ERROR ( --- addr ) 

A variable that contains disk error status (non-zero indicates a 

disk error). The disk status is saved after each sector 

read/write but error trappi~g has not been im~lemented (the error 

status could be tested in "R/WH).

? -Fortn 8386/3S Version 1.8 Notes 

Sets up the disk controller with Sector number, Track number and 

DMA address. 

SET-DRIVE ( --- 1 

Sends the disk controller the new disk drive number. 

Calculates: Drive, Track and Sector values from 3 sector 

displacement number "n" . The results are stored in the 

appropriate variables. 

The basic sector read routine (assumes SET-I9 and SET-DRIVE have 

been executed). Called from "R/wW. 

The basic sector write routine (assazes SET-IC! and SET-DEIVS have 

been execut2d). Called fron "i?/Wn. 

Exits Forth and returns to CP/M. 

(Change Sack to your CP/X boo= d l s ~ Sefars tyslnq ck1s word. ) 

Prints the type of CPU (8086) on the console. This routine is 

called from "CCLD". The CPU type is coded as 32-bits in base 36 

and is located at "ORIGIN" + 22 hex. 

MATCH ( cursor:addr bytes:left str:lsngth 

--- flag new:cursor:offset ) 

This word is used by the Fig-Forth editor for finding and 

deleting text within Forth source blocks. The word has been 

included to ease the implementation of the Forth model editor.

8086-8088 V10 - Forth Interest Group

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?