;
;	FIG-FORTH 1.1 VERSION A0
;
FIGREL	EQU 1
FIGREV	EQU 1
USRVER	EQU 0
;
;	ASCII CHARACTERS USED
;
ABL	EQU 20H
BELL	EQU 07H
ACR	EQU 0DH
ADOT	EQU 02EH
BSIN	EQU 7FH
BSOUT	EQU 08H
DLE	EQU 10H
LF	EQU 0AH
FF	EQU 0CH
;
;	MEMORY ALLOCATION
;
HBASE	EQU 4200H
EM	EQU HBASE+3000H
NSCR	EQU 1
KBBUF	EQU 128
US	EQU 40H
RTS	EQU 0A0H
;
CO	EQU KBBUF+4
NBUF	EQU NSCR*400H/KBBUF
BUF1	EQU EM-CO*NBUF
INITR0	EQU BUF1-US
INITS0	EQU INITR0-RTS
;
	ORG HBASE+100H
ORIG	NOP
	JMP CLD
	NOP
	JMP WRM
	DB FIGREL
	DB FIGREV
	DB USRVER
	DB 0EH
	DW TASK-7
	DW BSIN
	DW INITR0
;<<<<<	FOLLOWING USED BY COLD;
;	MUST BE IN SAME ORDER AS USER VARIABLES
	DW INITS0
	DW INITR0
	DW INITS0
	DW 1FH
	DW 0
	DW INITDP
	DW INITDP
	DW FORTH+8
;<<<<<<<END	DATA USED BY COLD
	DW 5H,0B320H
;
;FORTH	REGISTERS
;
UP	DW INITR0
RPP	DW INITR0
;
;	DEBUG SUPPORT
;
BIP	DW 0
;
TNEXT	LXI H,BIP
	MOV A,M
	CMP C
	JNZ TNEXT1
	INX H
	MOV A,M
	CMP B
	JNZ TNEXT1
BREAK	NOP
	NOP
	NOP
TNEXT1	LDAX B
	INX B
	MOV L,A
	JMP NEXT+3
;
;	FORTH ADDRESS INTERPRETER
;
DPUSH	PUSH D
HPUSH	PUSH H
NEXT	LDAX B
	INX B
	MOV L,A
	LDAX B
	INX B
	MOV H,A
NEXT1:	MOV E,M
	INX H
	MOV D,M
	XCHG 
	PCHL
;
;	FORTH DICTIONARY
;
DP0	DB 83H
	DB 'LI'
	DB 'T'+80H
	DW 0
LIT	DW $+2
	LDAX B
	INX B
	MOV L,A
	LDAX B
	INX B
	MOV H,A
	JMP HPUSH
;
	DB 87H
	DB 'EXECUT'
	DB 'E'+80H
	DW LIT-6
EXEC	DW $+2
	POP H
	JMP NEXT1
;
	DB 86H
	DB 'BRANC'
	DB 'H'+80H
	DW EXEC-0AH
BRAN	DW $+2
BRAN1	MOV H,B
	MOV L,C
	MOV E,M
	INX H
	MOV D,M
	DCX H
	DAD D
	MOV C,L
	MOV B,H
	JMP NEXT
;
	DB 87H
	DB '0BRANC'
	DB 'H'+80H
	DW BRAN-9
ZBRAN	DW $+2
	POP H
	MOV A,L
	ORA H
	JZ BRAN1
	INX B
	INX B
	JMP NEXT
;
	DB 86H
	DB '(LOOP'
	DB ')'+80H
	DW ZBRAN-0AH
XLOOP	DW $+2
	LXI D,1
XLOO1	LHLD RPP
	MOV A,M
	ADD E
	MOV M,A
	MOV E,A
	INX H
	MOV A,M
	ADC D
	MOV M,A
	INX H
	INR D
	DCR D
	MOV D,A
	JM XLOO2
	MOV A,E
	SUB M
	MOV A,D
	INX H
	SBB M
	JMP XLOO3
XLOO2	MOV A,M
	SUB E
	INX H
	MOV A,M
	SBB D
;
XLOO3	JM BRAN1
	INX H
	SHLD RPP
	INX B
	INX B
	JMP NEXT
;
	DB 87H
	DB '(+LOOP'
	DB ')'+80H
	DW XLOOP-9
XPLOO	DW $+2
	POP D
	JMP XLOO1
;
	DB 84H
	DB '(DO'
	DB ')'+80H
	DW XPLOO-0AH
XDO	DW $+2
	LHLD RPP 
	DCX H
	DCX H
	DCX H
	DCX H
	SHLD RPP
	POP D
	MOV M,E
	INX H
	MOV M,D
	POP D
	INX H
	MOV M,E
	INX H
	MOV M,D
	JMP NEXT
;
	DB 81H
	DB 'I'+80H
	DW XDO-7
IDO	DW $+2
	LHLD RPP 
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	JMP NEXT
;
	DB 85H
	DB 'DIGI'
	DB 'T'+80H
	DW IDO-4
DIGIT	DW $+2
	POP H
	POP D
	MOV A,E
	SUI 30H
	JM DIGI2
	CPI 0AH
	JM DIGI1
	SUI 7
	CPI 0AH
	JM DIGI2
;
DIGI1	CMP L
	JP DIGI2
	MOV E,A
	LXI H,1
	JMP DPUSH
;
DIGI2	MOV L,H
	JMP HPUSH
;
	DB 86H
	DB '(FIND'
	DB ')'+80H
	DW DIGIT-8
PFIND	DW $+2
	POP D
PFIN1	POP H
	PUSH H
	LDAX D
	XRA M
	ANI 3FH
	JNZ PFIN4
;
PFIN2	INX H
	INX D
	LDAX D
	XRA M
	ADD A
	JNZ PFIN3
	JNC PFIN2
	LXI H,5
	DAD D
	XTHL
;
PFIN6	DCX D
	LDAX D
	ORA A
	JP PFIN6
	MOV E,A
	MVI D,0
	LXI H,1
	JMP DPUSH
;
PFIN3	JC PFIN5
PFIN4	INX D
	LDAX D
	ORA A
	JP PFIN4
PFIN5	INX D
	XCHG
	MOV E,M
	INX H
	MOV D,M
	MOV A,D
	ORA E
	JNZ PFIN1
	POP H
	LXI H,0
	JMP HPUSH
;
	DB 87H
	DB 'ENCLOS'
	DB 'E'+80H
	DW PFIND-9
ENCL	DW $+2
	POP D
	POP H
	PUSH H
	MOV A,E
	MOV D,A
	MVI E,0FFH
	DCX H
;
ENCL1	INX H
	INR E
	CMP M
	JZ ENCL1
;
	MVI D,0
	PUSH D
	MOV D,A
	MOV A,M
	ANA A
	JNZ ENCL2
	MVI D,0
	INR E
	PUSH D
	DCR E
	PUSH D
	JMP NEXT
;
ENCL2	MOV A,D
	INX H
	INR E
	CMP M
	JZ ENCL4
	MOV A,M
	ANA A
	JNZ ENCL2
;
ENCL3	MVI D,0
	PUSH D
	PUSH D
	JMP NEXT
;
ENCL4	MVI D,0
	PUSH D
	INR E
	PUSH D
	JMP NEXT
;
	DB 84H
	DB 'EMI'
	DB 'T'+80H
	DW ENCL-0AH
EMIT	DW DOCOL
	DW PEMIT
	DW ONE,OUTT
	DW PSTOR,SEMIS
;
	DB 83H
	DB 'KE'
	DB 'Y'+80H
	DW EMIT-7
KEY	DW $+2
	JMP PKEY
;
	DB 89H
	DB '?TERMINA'
	DB 'L'+80H
	DW KEY-6
QTERM	DW $+2
	LXI H,0
	JMP PQTER
;
	DB 82H
	DB 'C'
	DB 'R'+80H
	DW QTERM-0CH
CR	DW $+2
	JMP PCR
;
	DB 85H
	DB 'CMOV'
	DB 'E'+80H
	DW CR-5
CMOVE	DW $+2
	MOV L,C
	MOV H,B
	POP B
	POP D
	XTHL
;
	JMP CMOV2
CMOV1	MOV A,M
	INX H
	STAX D
	INX D
	DCX B
CMOV2	MOV A,B
	ORA C
	JNZ CMOV1
	POP B
	JMP NEXT
;
	DB 82H
	DB 'U'
	DB '*'+80H
	DW CMOVE-8
USTAR	DW $+2
	POP D
	POP H
	PUSH B
	MOV B,H
	MOV A,L
	CALL MPYX
	PUSH H
	MOV H,A
	MOV A,B
	MOV B,H
	CALL MPYX
	POP D
	MOV C,D
	DAD B
	ACI 0
	MOV D,L
	MOV L,H
	MOV H,A
	POP B
	PUSH D
	JMP HPUSH
;
;	MULTIPLY PRIMITIVE
;
MPYX	LXI H,0
	MVI C,8
MPYX1	DAD H
	RAL 
	JNC MPYX2
	DAD D
	ACI 0
MPYX2	DCR C
	JNZ MPYX1
	RET
;
	DB 82H
	DB 'U'
	DB '/'+80H
	DW USTAR-5
USLAS	DW $+2
	LXI H,4
	DAD SP
	MOV E,M
	MOV M,C
	INX H
	MOV D,M
	MOV M,B
	POP B
	POP H
	MOV A,L
	SUB C
	MOV A,H
	SBB B
	JC USLA1
	LXI H,0FFFFH
	LXI D,0FFFFH
	JMP USLA7
USLA1	MVI A,16
USLA2	DAD H
	RAL 
	XCHG
	DAD H
	JNC USLA3
	INX D
	ANA A
USLA3	XCHG
	RAR
	PUSH PSW
	JNC USLA4
	MOV A,L
	SUB C
	MOV L,A
	MOV A,H
	SBB B
	MOV H,A
	JMP USLA5
USLA4	MOV A,L
	SUB C
	MOV L,A
	MOV A,H
	SBB B
	MOV H,A
	JNC USLA5
	DAD B
	DCX D
USLA5	INX D
USLA6	POP PSW
	DCR A
	JNZ USLA2
USLA7	POP B
	PUSH H
	PUSH D
	JMP NEXT
;
	DB 83H
	DB 'AN'
	DB 'D'+80H
	DW USLAS-5
ANDD	DW $+2
	POP D
	POP H
	MOV A,E
	ANA L
	MOV L,A
	MOV A,D
	ANA H
	MOV H,A
	JMP HPUSH
;
	DB 82H
	DB 'O'
	DB 'R'+80H
	DW ANDD-6
ORR	DW $+2
	POP D
	POP H
	MOV A,E
	ORA L
	MOV L,A
	MOV A,D
	ORA H
	MOV H,A
	JMP HPUSH
;
	DB 83H
	DB 'XO'
	DB 'R'+80H
	DW ORR-5
XORR	DW $+2
	POP D
	POP H
	MOV A,E
	XRA L
	MOV L,A
	MOV A,D
	XRA H
	MOV H,A
	JMP HPUSH
;
	DB 83H
	DB 'SP'
	DB '@'+80H
	DW XORR-6
SPAT	DW $+2
	LXI H,0
	DAD SP
	JMP HPUSH
;
	DB 83H
	DB 'SP'
	DB '!'+80H
	DW SPAT-6
SPSTO	DW $+2
	LHLD UP
	LXI D,6
	DAD D
	MOV E,M
	INX H
	MOV D,M
	XCHG
	SPHL
	JMP NEXT
;
	DB 83H
	DB 'RP'
	DB '@'+80H
	DW SPSTO-6
RPAT	DW $+2
	LHLD RPP
	JMP HPUSH
;
	DB 83H
	DB 'RP'
	DB '!'+80H
	DW RPAT-6
RPSTO	DW $+2
	LHLD UP
	LXI D,8
	DAD D
	MOV E,M
	INX H
	MOV D,M
	XCHG
	SHLD RPP
	JMP NEXT
;
	DB 82H
	DB ';'
	DB 'S'+80H
	DW RPSTO-6
SEMIS	DW $+2
	LHLD RPP
	MOV C,M
	INX H
	MOV B,M
	INX H
	SHLD RPP
	JMP NEXT
;
	DB 85H
	DB 'LEAV'
	DB 'E'+80H
	DW SEMIS-5
LEAVE	DW $+2
	LHLD RPP 
	MOV E,M
	INX H
	MOV D,M
	INX H
	MOV M,E
	INX H
	MOV M,D
	JMP NEXT
;
	DB 82H
	DB '>'
	DB 'R'+80H
	DW LEAVE-8
TOR	DW $+2
	POP D
	LHLD RPP
	DCX H
	DCX H
	SHLD RPP
	MOV M,E
	INX H
	MOV M,D
	JMP NEXT
;
	DB 82H
	DB 'R'
	DB '>'+80H
	DW TOR-5
FROMR	DW $+2
	LHLD RPP 
	MOV E,M
	INX H
	MOV D,M
	INX H
	SHLD RPP
	PUSH D
	JMP NEXT
;
	DB 81H
	DB 'R'+80H
	DW FROMR-5
RR	DW IDO+2
;
	DB 82H
	DB '0'
	DB '='+80H
	DW RR-4
ZEQU	DW $+2
	POP H
	MOV A,L
	ORA H
	LXI H,0
	JNZ ZEQU1
	INX H
ZEQU1	JMP HPUSH
;
	DB 82H
	DB '0'
	DB '<'+80H
	DW ZEQU-5
ZLESS	DW $+2
	POP H
	DAD H
	LXI H,0
	JNC ZLES1
	INX H
ZLES1	JMP HPUSH
;
	DB 81H
	DB '+'+80H
	DW ZLESS-5
PLUS	DW $+2
	POP D
	POP H
	DAD D
	JMP HPUSH
;
	DB 82H
	DB 'D'
	DB '+'+80H
	DW PLUS-4
DPLUS	DW $+2
	LXI H,6
	DAD SP
	MOV E,M
	MOV M,C
	INX H
	MOV D,M
	MOV M,B
	POP B
	POP H
	DAD D
	XCHG
	POP H
	MOV A,L
	ADC C
	MOV L,A
	MOV A,H
	ADC B
	MOV H,A
	POP B
	PUSH D
	JMP HPUSH
;
	DB 85H
	DB 'MINU'
	DB 'S'+80H
	DW DPLUS-5
MINUS	DW $+2
	POP H
	MOV A,L
	CMA
	MOV L,A
	MOV A,H
	CMA
	MOV H,A
	INX H
	JMP HPUSH
;
	DB 86H
	DB 'DMINU'
	DB 'S'+80H
	DW MINUS-8
DMINU	DW $+2
	POP H
	POP D
	SUB A
	SUB E
	MOV E,A
	MVI A,0
	SBB D
	MOV D,A
	MVI A,0
	SBB L
	MOV L,A
	MVI A,0
	SBB H
	MOV H,A
	PUSH D
	JMP HPUSH
;
	DB 84H
	DB 'OVE'
	DB 'R'+80H
	DW DMINU-9
OVER	DW $+2
	POP D
	POP H
	PUSH H
	JMP DPUSH
;
	DB 84H
	DB 'DRO'
	DB 'P'+80H
	DW OVER-7
DROP	DW $+2
	POP H
	JMP NEXT
;
	DB 84H
	DB 'SWA'
	DB 'P'+80H
	DW DROP-7
SWAP	DW $+2
	POP H
	XTHL
	JMP HPUSH
;
	DB 83H
	DB 'DU'
	DB 'P'+80H
	DW SWAP-7
DUP	DW $+2
	POP H
	PUSH H
	JMP HPUSH
;
	DB 84H
	DB '2DU'
	DB 'P'+80H
	DW DUP-6
TDUP	DW $+2
	POP H
	POP D
	PUSH D
	PUSH H
	JMP DPUSH
;
	DB 82H
	DB '+'
	DB '!'+80H
	DW TDUP-7
PSTOR	DW $+2
	POP H
	POP D
	MOV A,M
	ADD E
	MOV M,A
	INX H
	MOV A,M
	ADC D
	MOV M,A
	JMP NEXT
;
	DB 86H
	DB 'TOGGL'
	DB 'E'+80H
	DW PSTOR-5
TOGGL	DW $+2
	POP D
	POP H
	MOV A,M
	XRA E
	MOV M,A
	JMP NEXT
;
	DB 81H
	DB '@'+80H
	DW TOGGL-9
AT	DW $+2
	POP H
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	JMP NEXT
;
	DB 82H
	DB 'C'
	DB '@'+80H
	DW AT-4
CAT	DW $+2
	POP H
	MOV L,M
	MVI H,0
	JMP HPUSH
;
	DB 82H
	DB '2'
	DB '@'+80H
	DW CAT-5
TAT	DW $+2
	POP H
	LXI D,2
	DAD D
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	LXI D,-3
	DAD D
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	JMP NEXT
;
	DB 81H
	DB '!'+80H
	DW TAT-5
STORE	DW $+2
	POP H
	POP D
	MOV M,E
	INX H
	MOV M,D
	JMP NEXT
;
	DB 82H
	DB 'C'
	DB '!'+80H
	DW STORE-4
CSTOR	DW $+2
	POP H
	POP D
	MOV M,E
	JMP NEXT
;
	DB 82H
	DB '2'
	DB '!'+80H
	DW CSTOR-5
TSTOR	DW $+2
	POP H
	POP D
	MOV M,E
	INX H
	MOV M,D
	INX H
	POP D
	MOV M,E
	INX H
	MOV M,D
	JMP NEXT
;
	DB 0C1H ; :
	DB ':'+80H
	DW TSTOR-5
COLON	DW DOCOL
	DW QEXEC
	DW SCSP
	DW CURR
	DW AT
	DW CONT
	DW STORE
	DW CREAT
	DW RBRAC
	DW PSCOD
DOCOL	LHLD RPP
	DCX H
	MOV M,B
	DCX H
	MOV M,C
	SHLD RPP
	INX D
	MOV C,E
	MOV B,D
	JMP NEXT
;
	DB 0C1H ; ;
	DB ';'+80H
	DW COLON-4
SEMI	DW DOCOL
	DW QCSP
	DW COMP
	DW SEMIS
	DW SMUDG
	DW LBRAC
	DW SEMIS
;
	DB 84H
	DB 'NOO'
	DB 'P'+80H
	DW SEMI-4
NOOP	DW DOCOL
	DW SEMIS
;
	DB 88H
	DB 'CONSTAN'
	DB 'T'+80H
	DW NOOP-7
CON	DW DOCOL
	DW CREAT
	DW SMUDG
	DW COMMA 
	DW PSCOD
DOCON	INX D
	XCHG
	MOV E,M
	INX H
	MOV D,M
	PUSH D
	JMP NEXT
;
	DB 88H
	DB 'VARIABL'
	DB 'E'+80H
	DW CON-0BH
VAR	DW DOCOL
	DW CON
	DW PSCOD
DOVAR	INX D
	PUSH D
	JMP NEXT
;
	DB 84H
	DB 'USE'
	DB 'R'+80H
	DW VAR-0BH
USER	DW DOCOL
	DW CON
	DW PSCOD
DOUSE	INX D
	XCHG
	MOV E,M
	MVI D,0
	LHLD UP
	DAD D
	JMP HPUSH
;
	DB 81H
	DB '0'+80H
	DW USER-7
ZERO	DW DOCON
	DW 0
;
	DB 81H
	DB '1'+80H
	DW ZERO-4
ONE	DW DOCON
	DW 1
;
	DB 81H
	DB '2'+80H
	DW ONE-4
TWO	DW DOCON
	DW 2
;
	DB 81H
	DB '3'+80H
	DW TWO-4
THREE	DW DOCON
	DW 3
;
	DB 82H
	DB 'B'
	DB 'L'+80H
	DW THREE-4
BL	DW DOCON
	DW 20H
;
	DB 83H
	DB 'C/'
	DB 'L'+80H
	DW BL-5
CSLL	DW DOCON
	DW 64
;
	DB 85H
	DB 'FIRS'
	DB 'T'+80H
	DW CSLL-6
FIRST	DW DOCON
	DW BUF1
;
	DB 85H
	DB 'LIMI'
	DB 'T'+80H
	DW FIRST-8
LIMIT	DW DOCON
	DW EM
;
	DB 85H
	DB 'B/BU'
	DB 'F'+80H
	DW LIMIT-8
BBUF	DW DOCON
	DW KBBUF
;
	DB 85H
	DB 'B/SC'
	DB 'R'+80H
	DW BBUF-8
BSCR	DW DOCON
	DW 400H/KBBUF
;
	DB 87H
	DB '+ORIGI'
	DB 'N'+80H
	DW BSCR-8
PORIG	DW DOCOL
	DW LIT
	DW ORIG
	DW PLUS
	DW SEMIS
;
;	USER VARIABLES
;
	DB 82H
	DB 'S'
	DB '0'+80H
	DW PORIG-0AH
SZERO	DW DOUSE
	DW 6
;
	DB 82H
	DB 'R'
	DB '0'+80H
	DW SZERO-5
RZERO	DW DOUSE
	DW 8
;
	DB 83H
	DB 'TI'
	DB 'B'+80H
	DW RZERO-5
TIB	DW DOUSE
	DB 0AH
;
	DB 85H
	DB 'WIDT'
	DB 'H'+80H
	DW TIB-6
WIDTH	DW DOUSE
	DB 0CH
;
	DB 87H
	DB 'WARNIN'
	DB 'G'+80H
	DW WIDTH-8
WARN	DW DOUSE
	DB 0EH
;
	DB 85H
	DB 'FENC'
	DB 'E'+80H
	DW WARN-0AH
FENCE	DW DOUSE
	DB 10H
;
	DB 82H
	DB 'D'
	DB 'P'+80H
	DW FENCE-8
DP	DW DOUSE
	DB 12H
;
	DB 88H
	DB 'VOC-LIN'
	DB 'K'+80H
	DW DP-5
VOCL	DW DOUSE
	DW 14H
;
	DB 83H
	DB 'BL'
	DB 'K'+80H
	DW VOCL-0BH
BLK	DW DOUSE
	DB 16H
;
	DB 82H
	DB 'I'
	DB 'N'+80H
	DW BLK-6
INN	DW DOUSE
	DB 18H
;
	DB 83H
	DB 'OU'
	DB 'T'+80H
	DW INN-5
OUTT	DW DOUSE
	DB 1AH
;
	DB 83H
	DB 'SC'
	DB 'R'+80H
	DW OUTT-6
SCR	DW DOUSE
	DB 1CH
;
	DB 86H
	DB 'OFFSE'
	DB 'T'+80H
	DW SCR-6
OFSET	DW DOUSE
	DB 1EH
;
	DB 87H
	DB 'CONTEX'
	DB 'T'+80H
	DW OFSET-9
CONT	DW DOUSE
	DB 20H
;
	DB 87H
	DB 'CURREN'
	DB 'T'+80H
	DW CONT-0AH
CURR	DW DOUSE
	DB 22H
;
	DB 85H
	DB 'STAT'
	DB 'E'+80H
	DW CURR-0AH
STATE	DW DOUSE
	DB 24H
;
	DB 84H
	DB 'BAS'
	DB 'E'+80H
	DW STATE-8
BASE	DW DOUSE
	DB 26H
;
	DB 83H
	DB 'DP'
	DB 'L'+80H
	DW BASE-7
DPL	DW DOUSE
	DB 28H
;
	DB 83H
	DB 'FL'
	DB 'D'+80H
	DW DPL-6
FLD	DW DOUSE
	DB 2AH
;
	DB 83H
	DB 'CS'
	DB 'P'+80H
	DW FLD-6
CSPP	DW DOUSE
	DB 2CH
;
	DB 82H
	DB 'R'
	DB '#'+80H
	DW CSPP-6
RNUM	DW DOUSE
	DB 2EH
;
	DB 83H
	DB 'HL'
	DB 'D'+80H
	DW RNUM-5
HLD	DW DOUSE
	DW 30H
;
;	END OF USER VARIABLES
;
	DB 82H
	DB '1'
	DB '+'+80H
	DW HLD-6
ONEP	DW DOCOL
	DW ONE
	DW PLUS
	DW SEMIS
;
	DB 82H
	DB '2'
	DB '+'+80H
	DW ONEP-5
TWOP	DW DOCOL
	DW TWO
	DW PLUS
	DW SEMIS
;
	DB 84H
	DB 'HER'
	DB 'E'+80H
	DW TWOP-5
HERE	DW DOCOL
	DW DP
	DW AT
	DW SEMIS
;
	DB 85H
	DB 'ALLO'
	DB 'T'+80H
	DW HERE-7
ALLOT	DW DOCOL
	DW DP
	DW PSTOR
	DW SEMIS
;
	DB 81H
	DB ','+80H
	DW ALLOT-8
COMMA	DW DOCOL
	DW HERE
	DW STORE
	DW TWO
	DW ALLOT
	DW SEMIS
;
	DB 82H
	DB 'C'
	DB ','+80H
	DW COMMA-4
CCOMM	DW DOCOL
	DW HERE
	DW CSTOR
	DW ONE
	DW ALLOT
	DW SEMIS
;
;	SUBROUTINE USED BY - AND <
;
SSUB	MOV A,L
	SUB E
	MOV L,A
	MOV A,H
	SBB D
	MOV H,A
	RET
;
	DB 81H
	DB '-'+80H
	DW CCOMM-5
SUBB	DW $+2
	POP D
	POP H
	CALL SSUB
	JMP HPUSH
;
	DB 81H
	DB '='+80H
	DW SUBB-4
EQUAL	DW DOCOL
	DW SUBB
	DW ZEQU
	DW SEMIS
;
	DB 81H
	DB '<'+80H
	DW EQUAL-4
LESS	DW $+2
	POP D
	POP H
	MOV A,D
	XRA H
	JM LES1
	CALL SSUB
LES1	INR H
	DCR H
	JM LES2
	LXI H,0
	JMP HPUSH
LES2	LXI H,1
	JMP HPUSH
;
	DB 82H
	DB 'U'
	DB '<'+80H
	DW LESS-4
ULESS	DW DOCOL,TDUP
	DW XORR,ZLESS
	DW ZBRAN,ULES1-$
	DW DROP,ZLESS
	DW ZEQU
	DW BRAN,ULES2-$
ULES1	DW SUBB,ZLESS
ULES2	DW SEMIS
;
	DB 81H
	DB '>'+80H
	DW ULESS-5
GREAT	DW DOCOL
	DW SWAP
	DW LESS
	DW SEMIS
;
	DB 83H
	DB 'RO'
	DB 'T'+80H
	DW GREAT-4
ROT	DW $+2
	POP D
	POP H
	XTHL
	JMP DPUSH
;
	DB 85H
	DB 'SPAC'
	DB 'E'+80H
	DW ROT-6
SPACE	DW DOCOL
	DW BL
	DW EMIT
	DW SEMIS
;
	DB 84H
	DB '-DU'
	DB 'P'+80H
	DW SPACE-8
DDUP	DW DOCOL
	DW DUP
	DW ZBRAN
	DW DDUP1-$
	DW DUP
DDUP1	DW SEMIS
;
	DB 88H
	DB 'TRAVERS'
	DB 'E'+80H
	DW DDUP-7
TRAV	DW DOCOL
	DW SWAP
TRAV1	DW OVER
	DW PLUS
	DW LIT
	DW 7FH
	DW OVER
	DW CAT
	DW LESS
	DW ZBRAN
	DW TRAV1-$
	DW SWAP
	DW DROP
	DW SEMIS
;
	DB 86H
	DB 'LATES'
	DB 'T'+80H
	DW TRAV-0BH
LATES	DW DOCOL
	DW CURR
	DW AT
	DW AT
	DW SEMIS
;
	DB 83H
	DB 'LF'
	DB 'A'+80H
	DW LATES-9
LFA	DW DOCOL
	DW LIT
	DW 4
	DW SUBB
	DW SEMIS
;
	DB 83H
	DB 'CF'
	DB 'A'+80H
	DW LFA-6
CFA	DW DOCOL
	DW TWO
	DW SUBB
	DW SEMIS
;
	DB 83H
	DB 'NF'
	DB 'A'+80H
	DW CFA-6
NFA	DW DOCOL
	DW LIT
	DW 5
	DW SUBB
	DW LIT
	DW -1
	DW TRAV
	DW SEMIS
;
	DB 83H
	DB 'PF'
	DB 'A'+80H
	DW NFA-6
PFA	DW DOCOL
	DW ONE
	DW TRAV
	DW LIT
	DW 5
	DW PLUS
	DW SEMIS
;
	DB 84H
	DB '!CS'
	DB 'P'+80H
	DW PFA-6
SCSP	DW DOCOL
	DW SPAT
	DW CSPP
	DW STORE
	DW SEMIS
;
	DB 86H
	DB '?ERRO'
	DB 'R'+80H
	DW SCSP-7
QERR	DW DOCOL
	DW SWAP
	DW ZBRAN
	DW QERR1-$
	DW ERROR
	DW BRAN
	DW QERR2-$
QERR1	DW DROP
QERR2	DW SEMIS
;
	DB 85H
	DB '?COM'
	DB 'P'+80H
	DW QERR-9
QCOMP	DW DOCOL
	DW STATE
	DW AT
	DW ZEQU
	DW LIT
	DW 11H
	DW QERR
	DW SEMIS
;
	DB 85H
	DB '?EXE'
	DB 'C'+80H
	DW QCOMP-8
QEXEC	DW DOCOL
	DW STATE
	DW AT
	DW LIT
	DW 12H
	DW QERR
	DW SEMIS
;
	DB 86H
	DB '?PAIR'
	DB 'S'+80H
	DW QEXEC-8
QPAIR	DW DOCOL
	DW SUBB
	DW LIT
	DW 13H
	DW QERR
	DW SEMIS
;
	DB 84H
	DB '?CS'
	DB 'P'+80H
	DW QPAIR-9
QCSP	DW DOCOL
	DW SPAT
	DW CSPP
	DW AT
	DW SUBB
	DW LIT
	DW 14H
	DW QERR
	DW SEMIS
;
	DB 88H
	DB '?LOADIN'
	DB 'G'+80H
	DW QCSP-7
QLOAD	DW DOCOL
	DW BLK
	DW AT
	DW ZEQU
	DW LIT
	DW 16H
	DW QERR
	DW SEMIS
;
	DB 87H
	DB 'COMPIL'
	DB 'E'+80H
	DW QLOAD-0BH
COMP	DW DOCOL
	DW QCOMP
	DW FROMR
	DW DUP
	DW TWOP
	DW TOR
	DW AT
	DW COMMA
	DW SEMIS
;
	DB 0C1H
	DB '['+80H
	DW COMP-0AH
LBRAC	DW DOCOL
	DW ZERO
	DW STATE
	DW STORE
	DW SEMIS
;
	DB 81H
	DB ']'+80H
	DW LBRAC-4
RBRAC	DW DOCOL
	DW LIT,0C0H
	DW STATE,STORE
	DW SEMIS
;
	DB 86H
	DB 'SMUDG'
	DB 'E'+80H
	DW RBRAC-4
SMUDG	DW DOCOL
	DW LATES
	DW LIT
	DW 20H
	DW TOGGL
	DW SEMIS
;
	DB 83H
	DB 'HE'
	DB 'X'+80H
	DW SMUDG-9
HEX	DW DOCOL
	DW LIT
	DW 10H
	DW BASE
	DW STORE
	DW SEMIS
;
	DB 87H
	DB 'DECIMA'
	DB 'L'+80H
	DW HEX-6
DEC	DW DOCOL
	DW LIT
	DW 0AH
	DW BASE
	DW STORE
	DW SEMIS
;
	DB 87H
	DB '(;CODE'
	DB ')'+80H
	DW DEC-0AH
PSCOD	DW DOCOL
	DW FROMR
	DW LATES
	DW PFA
	DW CFA
	DW STORE
	DW SEMIS
;
	DB 0C5H
	DB ';COD'
	DB 'E'+80H
	DW PSCOD-0AH
SEMIC	DW DOCOL
	DW QCSP
	DW COMP
	DW PSCOD
	DW LBRAC
SEMI1	DW NOOP
	DW SEMIS
;
	DB 87H
	DB '<BUILD'
	DB 'S'+80H
	DW SEMIC-8
BUILD	DW DOCOL
	DW ZERO
	DW CON
	DW SEMIS
;
	DB 85H
	DB 'DOES'
	DB '>'+80H
	DW BUILD-0AH
DOES	DW DOCOL
	DW FROMR
	DW LATES
	DW PFA
	DW STORE
	DW PSCOD
DODOE	LHLD RPP
	DCX H
	MOV M,B
	DCX H
	MOV M,C
	SHLD RPP
	INX D
	XCHG
	MOV C,M
	INX H
	MOV B,M
	INX H
	JMP HPUSH
;
	DB 85H
	DB 'COUN'
	DB 'T'+80H
	DW DOES-8
COUNT	DW DOCOL
	DW DUP
	DW ONEP
	DW SWAP
	DW CAT
	DW SEMIS
;
	DB 84H
	DB 'TYP'
	DB 'E'+80H
	DW COUNT-8
TYPE	DW DOCOL
	DW DDUP
	DW ZBRAN
	DW TYPE1-$
	DW OVER
	DW PLUS
	DW SWAP
	DW XDO
TYPE2	DW IDO
	DW CAT
	DW EMIT
	DW XLOOP
	DW TYPE2-$
	DW BRAN
	DW TYPE3-$
TYPE1	DW DROP
TYPE3	DW SEMIS
;
	DB 89H
	DB '-TRAILIN'
	DB 'G'+80H
	DW TYPE-7
DTRAI	DW DOCOL
	DW DUP
	DW ZERO
	DW XDO
DTRA1	DW OVER
	DW OVER
	DW PLUS
	DW ONE
	DW SUBB
	DW CAT
	DW BL
	DW SUBB
	DW ZBRAN
	DW DTRA2-$
	DW LEAVE
	DW BRAN
	DW DTRA3-$
DTRA2	DW ONE
	DW SUBB
DTRA3	DW XLOOP
	DW DTRA1-$
	DW SEMIS
;
	DB 84H
	DB '(."'
	DB ')'+80H
	DW DTRAI-0CH
PDOTQ	DW DOCOL
	DW RR
	DW COUNT
	DW DUP
	DW ONEP
	DW FROMR
	DW PLUS
	DW TOR
	DW TYPE
	DW SEMIS
;
	DB 0C2H
	DB '.'
	DB '"'+80H
	DW PDOTQ-7
DOTQ	DW DOCOL
	DW LIT
	DW 22H
	DW STATE
	DW AT
	DW ZBRAN
	DW DOTQ1-$
	DW COMP
	DW PDOTQ
	DW WORD
	DW HERE
	DW CAT
	DW ONEP
	DW ALLOT
	DW BRAN
	DW DOTQ2-$
DOTQ1	DW WORD
	DW HERE
	DW COUNT
	DW TYPE
DOTQ2	DW SEMIS
;
	DB 86H
	DB 'EXPEC'
	DB 'T'+80H
	DW DOTQ-5
EXPEC	DW DOCOL
	DW OVER
	DW PLUS
	DW OVER
	DW XDO
EXPE1	DW KEY
	DW DUP
	DW LIT
	DW 0EH
	DW PORIG
	DW AT
	DW EQUAL
	DW ZBRAN
	DW EXPE2-$
	DW DROP
	DW DUP
	DW IDO
	DW EQUAL
	DW DUP
	DW FROMR
	DW TWO
	DW SUBB
	DW PLUS
	DW TOR
	DW ZBRAN
	DW EXPE6-$
	DW LIT
	DW BELL
	DW BRAN
	DW EXPE7-$
EXPE6	DW LIT
	DW BSOUT
EXPE7	DW BRAN
	DW EXPE3-$
EXPE2	DW DUP
	DW LIT
	DW 0DH
	DW EQUAL
	DW ZBRAN
	DW EXPE4-$
	DW LEAVE
	DW DROP
	DW BL
	DW ZERO
	DW BRAN
	DW EXPE5-$
EXPE4	DW DUP
EXPE5	DW IDO
	DW CSTOR
	DW ZERO
	DW IDO
	DW ONEP
	DW STORE
EXPE3	DW EMIT
	DW XLOOP
	DW EXPE1-$
	DW DROP
	DW SEMIS
;
	DB 85H
	DB 'QUER'
	DB 'Y'+80H
	DW EXPEC-9
QUERY	DW DOCOL
	DW TIB
	DW AT
	DW LIT
	DW 50H
	DW EXPEC
	DW ZERO
	DW INN
	DW STORE
	DW SEMIS
;
	DB 0C1H
	DB 80H
	DW QUERY-8
NULL	DW DOCOL
	DW BLK
	DW AT
	DW ZBRAN
	DW NULL1-$
	DW ONE
	DW BLK
	DW PSTOR
	DW ZERO
	DW INN
	DW STORE
	DW BLK
	DW AT
	DW BSCR
	DW ONE
	DW SUBB
	DW ANDD
	DW ZEQU
	DW ZBRAN
	DW NULL2-$
	DW QEXEC
	DW FROMR
	DW DROP
NULL2	DW BRAN
	DW NULL3-$
NULL1	DW FROMR
	DW DROP
NULL3	DW SEMIS
;
	DB 84H
	DB 'FIL'
	DB 'L'+80H
	DW NULL-4
FILL	DW $+2
	MOV L,C
	MOV H,B
	POP D
	POP B
	XTHL
	XCHG
FILL1	MOV A,B
	ORA C
	JZ FILL2
	MOV A,L
	STAX D
	INX D
	DCX B
	JMP FILL1
FILL2	POP B
	JMP NEXT
;
	DB 85H
	DB 'ERAS'
	DB 'E'+80H
	DW FILL-7
ERASEE	DW DOCOL
	DW ZERO
	DW FILL
	DW SEMIS
;
	DB 86H
	DB 'BLANK'
	DB 'S'+80H
	DW ERASEE-8
BLANK	DW DOCOL
	DW BL
	DW FILL
	DW SEMIS
;
	DB 84H
	DB 'HOL'
	DB 'D'+80H
	DW BLANK-9
HOLD	DW DOCOL
	DW LIT
	DW -1
	DW HLD
	DW PSTOR
	DW HLD
	DW AT
	DW CSTOR
	DW SEMIS
;
	DB 83H
	DB 'PA'
	DB 'D'+80H
	DW HOLD-7
PAD	DW DOCOL
	DW HERE
	DW LIT
	DW 44H
	DW PLUS
	DW SEMIS
;
	DB 84H
	DB 'WOR'
	DB 'D'+80H
	DW PAD-6
WORD	DW DOCOL
	DW BLK
	DW AT
	DW ZBRAN
	DW WORD1-$
	DW BLK
	DW AT
	DW BLOCK
	DW BRAN
	DW WORD2-$
WORD1	DW TIB
	DW AT
WORD2	DW INN
	DW AT
	DW PLUS
	DW SWAP
	DW ENCL
	DW HERE
	DW LIT
	DW 22H
	DW BLANK
	DW INN
	DW PSTOR
	DW OVER
	DW SUBB
	DW TOR
	DW RR
	DW HERE
	DW CSTOR
	DW PLUS
	DW HERE
	DW ONEP
	DW FROMR
	DW CMOVE
	DW SEMIS
;
	DB 88H
	DB '(NUMBER'
	DB ')'+80H
	DW WORD-7
PNUMB	DW DOCOL
PNUM1	DW ONEP
	DW DUP
	DW TOR
	DW CAT
	DW BASE
	DW AT
	DW DIGIT
	DW ZBRAN
	DW PNUM2-$
	DW SWAP
	DW BASE
	DW AT
	DW USTAR
	DW DROP
	DW ROT
	DW BASE
	DW AT
	DW USTAR
	DW DPLUS
	DW DPL
	DW AT
	DW ONEP
	DW ZBRAN
	DW PNUM3-$
	DW ONE
	DW DPL
	DW PSTOR
PNUM3	DW FROMR
	DW BRAN
	DW PNUM1-$
PNUM2	DW FROMR
	DW SEMIS
;
	DB 86H
	DB 'NUMBE'
	DB 'R'+80H
	DW PNUMB-0BH
NUMB	DW DOCOL
	DW ZERO
	DW ZERO
	DW ROT
	DW DUP
	DW ONEP
	DW CAT
	DW LIT
	DW 2DH
	DW EQUAL
	DW DUP
	DW TOR
	DW PLUS
	DW LIT
	DW -1
NUMB1	DW DPL
	DW STORE
	DW PNUMB
	DW DUP
	DW CAT
	DW BL
	DW SUBB
	DW ZBRAN
	DW NUMB2-$
	DW DUP
	DW CAT
	DW LIT
	DW 2EH
	DW SUBB
	DW ZERO
	DW QERR
	DW ZERO
	DW BRAN
	DW NUMB1-$
NUMB2	DW DROP
	DW FROMR
	DW ZBRAN
	DW NUMB3-$
	DW DMINU
NUMB3	DW SEMIS
;
	DB 85H
	DB '-FIN'
	DB 'D'+80H
	DW NUMB-9
DFIND	DW DOCOL
	DW BL
	DW WORD
	DW HERE
	DW CONT
	DW AT
	DW AT
	DW PFIND
	DW DUP
	DW ZEQU 
	DW ZBRAN
	DW DFIN1-$
	DW DROP
	DW HERE
	DW LATES
	DW PFIND
DFIN1	DW SEMIS
;
	DB 87H
	DB '(ABORT'
	DB ')'+80H
	DW DFIND-8
PABOR	DW DOCOL
	DW ABORT
	DW SEMIS
;
	DB 85H
	DB 'ERRO'
	DB 'R'+80H
	DW PABOR-0AH
ERROR	DW DOCOL
	DW WARN
	DW AT
	DW ZLESS
	DW ZBRAN
	DW ERRO1-$
	DW PABOR
ERRO1	DW HERE
	DW COUNT
	DW TYPE
	DW PDOTQ
	DB 2
	DB '? '
	DW MESS
	DW SPSTO
;	CHANGE FROM FIG MODEL
;	DW INN,AT,BLK,AT
	DW BLK,AT
	DW DDUP
	DW ZBRAN,ERRO2-$
	DW INN,AT
	DW SWAP
ERRO2	DW QUIT
;
	DB 83H
	DB 'ID'
	DB '.'+80H
	DW ERROR-8
IDDOT	DW DOCOL
	DW PAD
	DW LIT
	DW 20H
	DW LIT
	DW 5FH
	DW FILL
	DW DUP
	DW PFA
	DW LFA
	DW OVER
	DW SUBB
	DW PAD
	DW SWAP
	DW CMOVE
	DW PAD
	DW COUNT
	DW LIT
	DW 1FH
	DW ANDD
	DW TYPE
	DW SPACE
	DW SEMIS
;
	DB 86H
	DB 'CREAT'
	DB 'E'+80H
	DW IDDOT-6
CREAT	DW DOCOL
	DW DFIND
	DW ZBRAN
	DW CREA1-$
	DW DROP
	DW NFA
	DW IDDOT
	DW LIT
	DW 4
	DW MESS
	DW SPACE
CREA1	DW HERE
	DW DUP
	DW CAT
	DW WIDTH
	DW AT
	DW MIN
	DW ONEP
	DW ALLOT
	DW DUP
	DW LIT
	DW 0A0H
	DW TOGGL
	DW HERE
	DW ONE
	DW SUBB
	DW LIT
	DW 80H
	DW TOGGL
	DW LATES
	DW COMMA
	DW CURR
	DW AT
	DW STORE
	DW HERE
	DW TWOP
	DW COMMA
	DW SEMIS
;
	DB 0C9H
	DB '[COMPILE'
	DB ']'+80H
	DW CREAT-9
BCOMP	DW DOCOL
	DW DFIND
	DW ZEQU
	DW ZERO
	DW QERR
	DW DROP
	DW CFA
	DW COMMA
	DW SEMIS
;
	DB 0C7H
	DB 'LITERA'
	DB 'L'+80H
	DW BCOMP-0CH
LITER	DW DOCOL
	DW STATE
	DW AT
	DW ZBRAN
	DW LITE1-$
	DW COMP
	DW LIT
	DW COMMA
LITE1	DW SEMIS
;
	DB 0C8H
	DB 'DLITERA'
	DB 'L'+80H
	DW LITER-0AH
DLITE	DW DOCOL
	DW STATE
	DW AT
	DW ZBRAN
	DW DLIT1-$
	DW SWAP
	DW LITER
	DW LITER
DLIT1	DW SEMIS
;
	DB 86H
	DB '?STAC'
	DB 'K'+80H
	DW DLITE-0BH
QSTAC	DW DOCOL
	DW SPAT
	DW SZERO
	DW AT
	DW SWAP
	DW ULESS
	DW ONE
	DW QERR
	DW SPAT
	DW HERE
	DW LIT
	DW 80H
	DW PLUS
	DW ULESS
	DW LIT
	DW 7
	DW QERR
	DW SEMIS
;
	DB 89H
	DB 'INTERPRE'
	DB 'T'+80H
	DW QSTAC-9
INTER	DW DOCOL
INTE1	DW DFIND
	DW ZBRAN
	DW INTE2-$
	DW STATE
	DW AT
	DW LESS
	DW ZBRAN
	DW INTE3-$
	DW CFA
	DW COMMA
	DW BRAN
	DW INTE4-$
INTE3	DW CFA
	DW EXEC
INTE4	DW QSTAC
	DW BRAN
	DW INTE5-$
INTE2	DW HERE
	DW NUMB
	DW DPL
	DW AT
	DW ONEP
	DW ZBRAN
	DW INTE6-$
	DW DLITE
	DW BRAN
	DW INTE7-$
INTE6	DW DROP
	DW LITER
INTE7	DW QSTAC
INTE5	DW BRAN
	DW INTE1-$
;
	DB 89H
	DB 'IMMEDIAT'
	DB 'E'+80H
	DW INTER-0CH
IMMED	DW DOCOL
	DW LATES
	DW LIT
	DW 40H
	DW TOGGL
	DW SEMIS
;
	DB 8AH
	DB 'VOCABULAR'
	DB 'Y'+80H
	DW IMMED-0CH
VOCAB	DW DOCOL
	DW BUILD
	DW LIT
	DW 0A081H
	DW COMMA
	DW CURR
	DW AT
	DW CFA
	DW COMMA
	DW HERE
	DW VOCL
	DW AT
	DW COMMA
	DW VOCL
	DW STORE
	DW DOES
DOVOC	DW TWOP
	DW CONT
	DW STORE
	DW SEMIS
;
	DB 0C5H
	DB 'FORT'
	DB 'H'+80H
	DW VOCAB-0DH
FORTH	DW DODOE
	DW DOVOC
	DW 0A081H
	DW TASK-7
;
	DW 0
;
	DB 8BH
	DB 'DEFINITION'
	DB 'S'+80H
	DW FORTH-8
DEFIN	DW DOCOL
	DW CONT
	DW AT
	DW CURR
	DW STORE
	DW SEMIS
;
	DB 0C1H
	DB '('+80H
	DW DEFIN-0EH
PAREN	DW DOCOL
	DW LIT
	DW 29H
	DW WORD
	DW SEMIS
;
	DB 84H
	DB 'QUI'
	DB 'T'+80H
	DW PAREN-4
QUIT	DW DOCOL
	DW ZERO
	DW BLK
	DW STORE
	DW LBRAC
QUIT1	DW RPSTO
	DW CR
	DW QUERY
	DW INTER
	DW STATE
	DW AT
	DW ZEQU
	DW ZBRAN
	DW QUIT2-$
	DW PDOTQ
	DB 2
	DB 'OK'
QUIT2	DW BRAN
	DW QUIT1-$
;
	DB 85H
	DB 'ABOR'
	DB 'T'+80H
	DW QUIT-7
ABORT	DW DOCOL
	DW SPSTO
	DW DEC
	DW QSTAC
	DW CR
	DW DOTCPU
	DW PDOTQ
	DB 0DH
	DB 'FIG-FORTH '
	DB FIGREL+30H,ADOT,FIGREV+30H
	DW FORTH
	DW DEFIN
	DW QUIT
;
;
WRM	LXI B,WRM1
	JMP NEXT
WRM1	DW WARM
;
	DB 84H
	DB 'WAR'
	DB 'M'+80H
	DW ABORT-8
WARM	DW DOCOL
	DW MTBUF
	DW ABORT
;
CLD	LXI B,CLD1
	LHLD ORIG+12H
	SPHL
	JMP NEXT
CLD1	DW COLD
;
	DB 84H
	DB 'COL'
	DB 'D'+80H
	DW WARM-7
COLD	DW DOCOL
	DW MTBUF
	DW ZERO,DENSTY
	DW STORE
	DW LIT,BUF1
	DW USE,STORE
	DW LIT,BUF1
	DW PREV,STORE
	DW DRZER
	DW LIT,0
	DW LIT,EPRINT
	DW STORE
;
	DW LIT
	DW ORIG+12H
	DW LIT
	DW UP
	DW AT
	DW LIT
	DW 6
	DW PLUS
	DW LIT
	DW 10H
	DW CMOVE
	DW LIT
	DW ORIG+0CH
	DW AT
	DW LIT
	DW FORTH+6
	DW STORE
	DW ABORT
;
	DB 84H
	DB 'S->'
	DB 'D'+80H
	DW COLD-7
STOD	DW $+2
	POP D
	LXI H,0
	MOV A,D
	ANI 80H
	JZ STOD1
	DCX H
STOD1	JMP DPUSH
;
	DB 82H
	DB '+'
	DB '-'+80H
	DW STOD-7
PM	DW DOCOL
	DW ZLESS
	DW ZBRAN
	DW PM1-$
	DW MINUS
PM1	DW SEMIS
;
	DB 83H
	DB 'D+'
	DB '-'+80H
	DW PM-5
DPM	DW DOCOL
	DW ZLESS
	DW ZBRAN
	DW DPM1-$
	DW DMINU
DPM1	DW SEMIS
;
	DB 83H
	DB 'AB'
	DB 'S'+80H
	DW DPM-6
ABS	DW DOCOL
	DW DUP
	DW PM
	DW SEMIS
;
	DB 84H
	DB 'DAB'
	DB 'S'+80H
	DW ABS-6
DABS	DW DOCOL
	DW DUP
	DW DPM
	DW SEMIS
;
	DB 83H
	DB 'MI'
	DB 'N'+80H
	DW DABS-7
MIN	DW DOCOL,TDUP
	DW GREAT
	DW ZBRAN
	DW MIN1-$
	DW SWAP
MIN1	DW DROP
	DW SEMIS
;
	DB 83H
	DB 'MA'
	DB 'X'+80H
	DW MIN-6
MAX	DW DOCOL,TDUP
	DW LESS
	DW ZBRAN
	DW MAX1-$
	DW SWAP
MAX1	DW DROP
	DW SEMIS
;
	DB 82H
	DB 'M'
	DB '*'+80H
	DW MAX-6
MSTAR	DW DOCOL,TDUP
	DW XORR
	DW TOR
	DW ABS
	DW SWAP
	DW ABS
	DW USTAR
	DW FROMR
	DW DPM
	DW SEMIS
;
	DB 82H
	DB 'M'
	DB '/'+80H
	DW MSTAR-5
MSLAS	DW DOCOL
	DW OVER
	DW TOR
	DW TOR
	DW DABS
	DW RR
	DW ABS
	DW USLAS
	DW FROMR
	DW RR
	DW XORR
	DW PM
	DW SWAP
	DW FROMR
	DW PM
	DW SWAP
	DW SEMIS
;
	DB 81H
	DB '*'+80H
	DW MSLAS-5
STAR	DW DOCOL
	DW MSTAR
	DW DROP
	DW SEMIS
;
	DB 84H
	DB '/MO'
	DB 'D'+80H
	DW STAR-4
SLMOD	DW DOCOL
	DW TOR
	DW STOD
	DW FROMR
	DW MSLAS
	DW SEMIS
;
	DB 81H
	DB '/'+80H
	DW SLMOD-7
SLASH	DW DOCOL
	DW SLMOD
	DW SWAP
	DW DROP
	DW SEMIS
;
	DB 83H
	DB 'MO'
	DB 'D'+80H
	DW SLASH-4
MODD	DW DOCOL
	DW SLMOD
	DW DROP
	DW SEMIS
;
	DB 85H
	DB '*/MO'
	DB 'D'+80H
	DW MODD-6
SSMOD	DW DOCOL
	DW TOR
	DW MSTAR
	DW FROMR
	DW MSLAS
	DW SEMIS
;
	DB 82H
	DB '*'
	DB '/'+80H
	DW SSMOD-8
SSLA	DW DOCOL
	DW SSMOD
	DW SWAP
	DW DROP
	DW SEMIS
;
	DB 85H
	DB 'M/MO'
	DB 'D'+80H
	DW SSLA-5
MSMOD	DW DOCOL
	DW TOR
	DW ZERO
	DW RR
	DW USLAS
	DW FROMR
	DW SWAP
	DW TOR
	DW USLAS
	DW FROMR
	DW SEMIS
;
;	BLOCK MOVED DOWN 2 PAGES
;
;
	DB 86H
	DB '(LINE'
	DB ')'+80H
	DW MSMOD-8
PLINE	DW DOCOL
	DW TOR
	DW LIT
	DW 40H
	DW BBUF
	DW SSMOD 
	DW FROMR
	DW BSCR
	DW STAR
	DW PLUS
	DW BLOCK
	DW PLUS
	DW LIT
	DW 40H
	DW SEMIS
;
	DB 85H
	DB '.LIN'
	DB 'E'+80H
	DW PLINE-9
DLINE	DW DOCOL
	DW PLINE
	DW DTRAI
	DW TYPE
	DW SEMIS
;
	DB 87H
	DB 'MESSAG'
	DB 'E'+80H
	DW DLINE-8
MESS	DW DOCOL
	DW WARN
	DW AT
	DW ZBRAN
	DW MESS1-$
	DW DDUP
	DW ZBRAN
	DW MESS2-$
	DW LIT
	DW 4
	DW OFSET
	DW AT
	DW BSCR
	DW SLASH
	DW SUBB
	DW DLINE
	DW SPACE
MESS2	DW BRAN
	DW MESS3-$
MESS1	DW PDOTQ
	DB 6
	DB 'MSG # '
	DW DOT
MESS3	DW SEMIS
;
;	8080 PORT FETCH AND STORE
;	( SELF MODIFYING CODE, NOT REENTRANT)
;
	DB 82H
	DB 'P'
	DB '@'+80H
	DW MESS-0AH
PTAT:	DW $+2
	POP D
	LXI H,$+5
	MOV M,E
	IN 0
	MOV L,A
	MVI H,0
	JMP HPUSH
;
	DB 82H
	DB 'P'
	DB '!'+80H
	DW PTAT-5
PTSTO:	DW $+2
	POP D
	LXI H,$+7
	MOV M,E
	POP H
	MOV A,L
	OUT 0
	JMP NEXT
;
;	CP/M DISK INTERFACE
;
;	CP/M BIOS CALLS USED
;
;	NOTE EQU'S ARE 3 LOWER THAN DOCUMENTED OFFSETS
;	BECAUSE BASE ADDR IS BIOS+3
;
RITSEC	EQU 39
RDSEC	EQU 36
SETDMA	EQU 33
SETSEC	EQU 30
SETTRK	EQU 27
SETDSK	EQU 24
;
;	DOUBLE DENSITY 8" CAPACITIES
SPT2	EQU 52
TRKS2	EQU 77
SPDRV2	EQU SPT2*TRKS2
;	SINGLE DENSITY 8" CAPACITIES
SPT1	EQU 20
TRKS1	EQU 40
SPDRV1	EQU SPT1*TRKS1
;
BPS	EQU 128
MXDRV	EQU 2
;
;	FORTH VARIABLES AND CONSTANTS USED IN DISK INTERFACE
;
	DB 85H
	DB 'DRIV'
	DB 'E'+80H
	DW PTSTO-5
DRIVE	DW DOVAR,0
;
	DB 83H
	DB 'SE'
	DB 'C'+80H
	DW DRIVE-8
SEC:	DW DOVAR
	DW 0
;
	DB 85H
	DB 'TRAC'
	DB 'K'+80H
	DW SEC-6
TRACK:	DW DOVAR,0
;
	DB 83H
	DB 'US'
	DB 'E'+80H
	DW TRACK-8
USE:	DW DOVAR
	DW BUF1
;
	DB 84H
	DB 'PRE'
	DB 'V'+80H
	DW USE-6
PREV	DW DOVAR
	DW BUF1
;
	DB 87H
	DB 'SEC/BL'
	DB 'K'+80H
	DW PREV-7
SPBLK	DW DOCON
	DW KBBUF/BPS
;
	DB 85H
	DB '#BUF'
	DB 'F'+80H
	DW SPBLK-10
NOBUF	DW DOCON,NBUF
;
	DB 87H
	DB 'DENSIT'
	DB 'Y'+80H
	DW NOBUF-8
DENSTY	DW DOVAR
	DW 0
;
	DB 8AH
	DB 'DISK-ERRO'
	DB 'R'+80H
	DW DENSTY-10
DSKERR	DW DOVAR,0
;
;	DISK INTERFACE HIGH LEVEL ROUTINES
;
	DB 84H
	DB '+BU'
	DB 'F'+80H
	DW DSKERR-13
PBUF	DW DOCOL
	DW LIT,CO
	DW PLUS,DUP
	DW LIMIT,EQUAL
	DW ZBRAN,PBUF1-$
	DW DROP,FIRST
PBUF1:	DW DUP,PREV
	DW AT,SUBB
	DW SEMIS
;
	DB 86H
	DB 'UPDAT'
	DB 'E'+80H
	DW PBUF-7
UPDAT	DW DOCOL,PREV
	DW AT,AT
	DW LIT,8000H
	DW ORR
	DW PREV,AT
	DW STORE,SEMIS
;
	DB 8DH
	DB 'EMPTY-BUFFER'
	DB 'S'+80H
	DW UPDAT-9
MTBUF	DW DOCOL,FIRST
	DW LIMIT,OVER
	DW SUBB,ERASEE
	DW SEMIS
;
	DB 83H
	DB 'DR'
	DB '0'+80H
	DW MTBUF-16
DRZER	DW DOCOL,ZERO
	DW OFSET,STORE
	DW SEMIS
;
	DB 83H
	DB 'DR'
	DB '1'+80H
	DW DRZER-6
DRONE	DW DOCOL
	DW DENSTY,AT
	DW ZBRAN,DRON1-$
	DW LIT,SPDRV2
	DW BRAN,DRON2-$
DRON1	DW LIT,SPDRV1
DRON2	DW OFSET,STORE
	DW SEMIS
;
	DB 86H
	DB 'BUFFE'
	DB 'R'+80H
	DW DRONE-6
BUFFE:	DW DOCOL,USE
	DW AT,DUP
	DW TOR
BUFF1	DW PBUF
	DW ZBRAN,BUFF1-$
	DW USE,STORE
	DW RR,AT
	DW ZLESS
	DW ZBRAN,BUFF2-$
	DW RR,TWOP
	DW RR,AT
	DW LIT,7FFFH
	DW ANDD,ZERO
	DW RSLW
BUFF2	DW RR,STORE
	DW RR,PREV
	DW STORE,FROMR
	DW TWOP,SEMIS
;
	DB 85H
	DB 'BLOC'
	DB 'K'+80H
	DW BUFFE-9
BLOCK	DW DOCOL,OFSET
	DW AT,PLUS
	DW TOR,PREV
	DW AT,DUP
	DW AT,RR
	DW SUBB
	DW DUP,PLUS
	DW ZBRAN,BLOC1-$
BLOC2	DW PBUF,ZEQU
	DW ZBRAN,BLOC3-$
	DW DROP,RR
	DW BUFFE,DUP
	DW RR,ONE
	DW RSLW
	DW TWO,SUBB
BLOC3	DW DUP,AT
	DW RR,SUBB
	DW DUP,PLUS
	DW ZEQU
	DW ZBRAN,BLOC2-$
	DW DUP,PREV
	DW STORE
BLOC1	DW FROMR,DROP
	DW TWOP,SEMIS
;
;
;	CP/M INTERFACE ROUTINES
;
;
IOS	LHLD HBASE+1
	DAD D
	PCHL
;
;
	DB 86H
;
	DB 'SET-I'
	DB 'O'+80H
	DW BLOCK-8
SETIO:	DW $+2
	PUSH B
	LHLD USE+2
	MOV B,H
	MOV C,L
	LXI D,SETDMA
	CALL IOS
;
	LHLD SEC+2
	MOV C,L
	LXI D,SETSEC
	CALL IOS
;
	LHLD TRACK+2
	MOV B,H
	MOV C,L
	LXI D,SETTRK
	CALL IOS
;
	POP B
	JMP NEXT
;
	DB 89H
	DB 'SET-DRIV'
	DB 'E'+80H
	DW SETIO-9
SETDRV:	DW $+2
	PUSH B
	LDA DRIVE+2
	MOV C,A
	LXI D,SETDSK
	CALL IOS
	POP B
	JMP NEXT
;
;	T&SCALC (CALCULATES DRIVE, TRACK, AND SECTOR)
;
;
	DB 87H
	DB 'T&SCAL'
	DB 'C'+80H
	DW SETDRV-12
TSCALC:	DW DOCOL,DENSTY
	DW AT
	DW ZBRAN,TSCALS-$
	DW LIT,SPDRV2
	DW SLMOD
	DW LIT,MXDRV
	DW MIN
	DW DUP,DRIVE
	DW AT,EQUAL
	DW ZBRAN,TSCAL1-$
	DW DROP
	DW BRAN,TSCAL2-$
TSCAL1	DW DRIVE,STORE
	DW SETDRV
TSCAL2	DW LIT,SPT2
	DW SLMOD,TRACK
	DW STORE,ONEP
	DW SEC,STORE
	DW SEMIS
;	SINGLE DENSITY
TSCALS	DW LIT,SPDRV1
	DW SLMOD
	DW LIT,MXDRV
	DW MIN
	DW DUP,DRIVE
	DW AT,EQUAL
	DW ZBRAN,TSCAL3-$
	DW DROP
	DW BRAN,TSCAL4-$
TSCAL3	DW DRIVE,STORE
	DW SETDRV
TSCAL4	DW LIT,SPT1
	DW SLMOD,TRACK
	DW STORE,ONEP
	DW SEC,STORE
	DW SEMIS
;
;	SEC-READ
;
	DB 88H
	DB 'SEC-REA'
	DB 'D'+80H
	DW TSCALC-10
SECRD	DW $+2
	PUSH B
	LXI D,RDSEC
	CALL IOS
	STA DSKERR+2
	POP B
	JMP NEXT
;
;	SEC-WRITE
;
	DB 89H
	DB 'SEC-WRIT'
	DB 'E'+80H
	DW SECRD-11
SECWT	DW $+2
	PUSH B
	LXI D,RITSEC
	CALL IOS
	STA DSKERR+2
	POP B
	JMP NEXT
;
	DB 83H
	DB 'R/'
	DB 'W'+80H
	DW SECWT-12
RSLW	DW DOCOL
	DW USE,AT
	DW TOR
	DW SWAP,SPBLK
	DW STAR,ROT
	DW USE,STORE
	DW SPBLK,ZERO
	DW XDO
RSLW1	DW OVER,OVER
	DW TSCALC,SETIO
	DW ZBRAN,RSLW2-$
	DW SECRD
	DW BRAN,RSLW3-$
RSLW2	DW SECWT
RSLW3	DW ONEP
	DW LIT,80H
	DW USE,PSTOR
	DW XLOOP,RSLW1-$
	DW DROP,DROP
	DW FROMR,USE
	DW STORE,SEMIS
;
	DB 85H
	DB 'FLUS'
	DB 'H'+80H
	DW RSLW-6
FLUSH	DW DOCOL
	DW NOBUF,ONEP
	DW ZERO,XDO
FLUS1	DW ZERO,BUFFE
	DW DROP
	DW XLOOP,FLUS1-$
	DW SEMIS
;
	DB 84H
	DB 'LOA'
	DB 'D'+80H
	DW FLUSH-8
LOAD	DW DOCOL,BLK
	DW AT,TOR
	DW INN,AT
	DW TOR,ZERO
	DW INN,STORE
	DW BSCR,STAR
	DW BLK,STORE
	DW INTER
	DW FROMR,INN
	DW STORE
	DW FROMR,BLK
	DW STORE
	DW SEMIS
;
	DB 0C3H
	DB '--'
	DB '>'+80H
	DW LOAD-7
ARROW	DW DOCOL
	DW QLOAD
	DW ZERO
	DW INN
	DW STORE
	DW BSCR
	DW BLK
	DW AT
	DW OVER
	DW MODD
	DW SUBB
	DW BLK
	DW PSTOR
	DW SEMIS
;
;
;	CP/M CONSOLE AND PRINTER INTERFACE
;
;
KCSTAT	EQU 3
KCIN	EQU 6
KCOUT	EQU 9
KPOUT	EQU 0CH
;
EPRINT	DW 0
;
;
CSTAT	PUSH B
	LXI D,KCSTAT
	CALL IOS
	POP B
	RET
;
;
CIN	PUSH B
	LXI D,KCIN
	CALL IOS
	POP B
	RET
;
COUT	PUSH H
	LXI D,KCOUT
	CALL IOS
	POP H
	RET
;
POUT	LXI D,KPOUT
	CALL IOS
	RET
;
CPOUT	CALL COUT
	XCHG
	LXI H,EPRINT
	MOV A,M
	ORA A
	JZ CPOU1
	MOV C,E
	CALL POUT
CPOU1	RET
;
;	FORTH TO CP/M SERIAL IO INTERFACE
;
PQTER	CALL CSTAT
	LXI H,0
	ORA A
	JZ PQTE1
	INR L
PQTE1	JMP HPUSH
;
PKEY	CALL CIN
	CPI DLE
	MOV E,A
	JNZ PKEY1
	LXI H,EPRINT
	MVI E,ABL
	MOV A,M
	XRI 1
	MOV M,A
PKEY1	MOV L,E
	MVI H,0
	JMP HPUSH
;
PEMIT	DW $+2
	POP H
	PUSH B
	MOV C,L
	CALL CPOUT
;
	POP B
	JMP NEXT
;
PCR	PUSH B
	MVI C,ACR
	MOV L,C
	CALL CPOUT
	MVI C,LF
	MOV L,C
	CALL CPOUT
	POP B
	JMP NEXT
;
	DB 0C1H
	DB 0A7H ;(')
	DW ARROW-6
TICK	DW DOCOL
	DW DFIND
	DW ZEQU
	DW ZERO
	DW QERR
	DW DROP
	DW LITER
	DW SEMIS
;
	DB 86H
	DB 'FORGE'
	DB 'T'+80H
	DW TICK-4
FORG	DW DOCOL
	DW CURR
	DW AT
	DW CONT
	DW AT
	DW SUBB
	DW LIT
	DW 18H
	DW QERR
	DW TICK
	DW DUP
	DW FENCE
	DW AT
	DW LESS
	DW LIT
	DW 15H
	DW QERR
	DW DUP
	DW NFA
	DW DP
	DW STORE
	DW LFA
	DW AT
	DW CONT
	DW AT
	DW STORE
	DW SEMIS
;
	DB 84H
	DB 'BAC'
	DB 'K'+80H
	DW FORG-9
BACK	DW DOCOL
	DW HERE
	DW SUBB
	DW COMMA
	DW SEMIS
;
	DB 0C5H
	DB 'BEGI'
	DB 'N'+80H
	DW BACK-7
BEGIN	DW DOCOL
	DW QCOMP
	DW HERE
	DW ONE
	DW SEMIS
;
	DB 0C5H
	DB 'ENDI'
	DB 'F'+80H
	DW BEGIN-8
ENDIFF	DW DOCOL
	DW QCOMP
	DW TWO
	DW QPAIR
	DW HERE
	DW OVER
	DW SUBB
	DW SWAP
	DW STORE
	DW SEMIS
;
	DB 0C4H
	DB 'THE'
	DB 'N'+80H
	DW ENDIFF-8
THEN	DW DOCOL
	DW ENDIFF
	DW SEMIS
;
	DB 0C2H
	DB 'D'
	DB 'O'+80H
	DW THEN-7
DO	DW DOCOL
	DW COMP
	DW XDO
	DW HERE
	DW THREE
	DW SEMIS
;
	DB 0C4H
	DB 'LOO'
	DB 'P'+80H
	DW DO-5
LOOP	DW DOCOL
	DW THREE
	DW QPAIR
	DW COMP
	DW XLOOP
	DW BACK
	DW SEMIS
;
	DB 0C5H
	DB '+LOO'
	DB 'P'+80H
	DW LOOP-7
PLOOP	DW DOCOL
	DW THREE
	DW QPAIR
	DW COMP
	DW XPLOO
	DW BACK
	DW SEMIS
;
	DB 0C5H
	DB 'UNTI'
	DB 'L'+80H
	DW PLOOP-8
UNTIL	DW DOCOL
	DW ONE
	DW QPAIR
	DW COMP 
	DW ZBRAN
	DW BACK
	DW SEMIS
;
	DB 0C3H
	DB 'EN'
	DB 'D'+80H
	DW UNTIL-8
ENDD	DW DOCOL
	DW UNTIL
	DW SEMIS
;
	DB 0C5H
	DB 'AGAI'
	DB 'N'+80H
	DW ENDD-6
AGAIN	DW DOCOL
	DW ONE
	DW QPAIR
	DW COMP
	DW BRAN
	DW BACK
	DW SEMIS
;
	DB 0C6H
	DB 'REPEA'
	DB 'T'+80H
	DW AGAIN-8
REPEA	DW DOCOL
	DW TOR
	DW TOR
	DW AGAIN
	DW FROMR
	DW FROMR
	DW TWO
	DW SUBB
	DW ENDIFF
	DW SEMIS
	DB 0C2H
	DB 'I'
	DB 'F'+80H
	DW REPEA-9
IFF	DW DOCOL
	DW COMP
	DW ZBRAN
	DW HERE
	DW ZERO
	DW COMMA
	DW TWO
	DW SEMIS
;
	DB 0C4H
	DB 'ELS'
	DB 'E'+80H
	DW IFF-5
ELSEE	DW DOCOL
	DW TWO
	DW QPAIR
	DW COMP
	DW BRAN
	DW HERE
	DW ZERO
	DW COMMA
	DW SWAP
	DW TWO
	DW ENDIFF
	DW TWO
	DW SEMIS
;
	DB 0C5H
	DB 'WHIL'
	DB 'E'+80H
	DW ELSEE-7
WHILE	DW DOCOL
	DW IFF
	DW TWOP
	DW SEMIS
;
	DB 86H
	DB 'SPACE'
	DB 'S'+80H
	DW WHILE-8
SPACS	DW DOCOL
	DW ZERO
	DW MAX
	DW DDUP
	DW ZBRAN
	DW SPAX1-$
	DW ZERO
	DW XDO
SPAX2	DW SPACE
	DW XLOOP
	DW SPAX2-$
SPAX1	DW SEMIS
;
	DB 82H
	DB '<'
	DB '#'+80H
	DW SPACS-9
BDIGS	DW DOCOL
	DW PAD
	DW HLD
	DW STORE
	DW SEMIS
;
	DB 82H
	DB '#'
	DB '>'+80H
	DW BDIGS-5
EDIGS	DW DOCOL
	DW DROP
	DW DROP
	DW HLD
	DW AT
	DW PAD
	DW OVER
	DW SUBB
	DW SEMIS
;
	DB 84H
	DB 'SIG'
	DB 'N'+80H
	DW EDIGS-5
SIGN	DW DOCOL
	DW ROT
	DW ZLESS
	DW ZBRAN
	DW SIGN1-$
	DW LIT
	DW 2DH
	DW HOLD
SIGN1	DW SEMIS
;
	DB 81H
	DB '#'+80H
	DW SIGN-7
DIG	DW DOCOL
	DW BASE
	DW AT
	DW MSMOD
	DW ROT
	DW LIT
	DW 9
	DW OVER
	DW LESS
	DW ZBRAN
	DW DIG1-$
	DW LIT
	DW 7
	DW PLUS
DIG1	DW LIT
	DW 30H
	DW PLUS
	DW HOLD
	DW SEMIS
;
	DB 82H
	DB '#'
	DB 'S'+80H
	DW DIG-4
DIGS	DW DOCOL
DIGS1	DW DIG
	DW OVER
	DW OVER
	DW ORR
	DW ZEQU
	DW ZBRAN
	DW DIGS1-$
	DW SEMIS
;
	DB 83H
	DB 'D.'
	DB 'R'+80H
	DW DIGS-5
DDOTR	DW DOCOL
	DW TOR
	DW SWAP
	DW OVER
	DW DABS
	DW BDIGS
	DW DIGS
	DW SIGN
	DW EDIGS
	DW FROMR
	DW OVER
	DW SUBB
	DW SPACS
	DW TYPE
	DW SEMIS
;
	DB 82H
	DB '.'
	DB 'R'+80H
	DW DDOTR-6
DOTR	DW DOCOL
	DW TOR
	DW STOD
	DW FROMR
	DW DDOTR
	DW SEMIS
;
	DB 82H
	DB 'D'
	DB '.'+80H
	DW DOTR-5
DDOT	DW DOCOL
	DW ZERO
	DW DDOTR
	DW SPACE
	DW SEMIS
;
	DB 81H
	DB '.'+80H
	DW DDOT-5
DOT	DW DOCOL
	DW STOD
	DW DDOT
	DW SEMIS
;
	DB 81H
	DB '?'+80H
	DW DOT-4
QUES	DW DOCOL
	DW AT
	DW DOT
	DW SEMIS
;
	DB 82H
	DB 'U'
	DB '.'+80H
	DW QUES-4
UDOT	DW DOCOL
	DW ZERO
	DW DDOT
	DW SEMIS
;
	DB 85H
	DB 'VLIS'
	DB 'T'+80H
	DW UDOT-5
VLIST	DW DOCOL
	DW LIT
	DW 80H
	DW OUTT
	DW STORE
	DW CONT
	DW AT
	DW AT
VLIS1	DW OUTT
	DW AT
	DW CSLL
	DW GREAT
	DW ZBRAN
	DW VLIS2-$
	DW CR
	DW ZERO
	DW OUTT
	DW STORE
VLIS2	DW DUP
	DW IDDOT
	DW SPACE
	DW SPACE
	DW PFA
	DW LFA
	DW AT
	DW DUP
	DW ZEQU
	DW QTERM
	DW ORR
	DW ZBRAN
	DW VLIS1-$
	DW DROP
	DW SEMIS
;
;------EXIT	CP/M------
;
	DB 83H
	DB 'BY'
	DB 'E'+80H
	DW VLIST-8
BYE	DW $+2
	JMP HBASE+0
;
	DB 84H
	DB 'LIS'
	DB 'T'+80H
	DW BYE-6
LIST	DW DOCOL,DEC
	DW CR,DUP
	DW SCR,STORE
	DW PDOTQ
	DB 6,'SCR # '
	DW DOT
	DW LIT,10H
	DW ZERO,XDO
LIST1	DW CR,IDO
	DW LIT,3
	DW DOTR,SPACE
	DW IDO,SCR
	DW AT,DLINE
	DW QTERM
	DW ZBRAN,LIST2-$
	DW LEAVE
LIST2	DW XLOOP,LIST1-$
	DW CR,SEMIS
;
	DB 85H
	DB 'INDE'
	DB 'X'+80H
	DW LIST-7
INDEX	DW DOCOL
	DW LIT,FF
	DW EMIT,CR
	DW ONEP,SWAP
	DW XDO
INDE1	DW CR,IDO
	DW LIT,3
	DW DOTR,SPACE
	DW ZERO,IDO
	DW DLINE,QTERM
	DW ZBRAN,INDE2-$
	DW LEAVE
INDE2	DW XLOOP,INDE1-$
	DW SEMIS
;
	DB 85H
	DB 'TRIA'
	DB 'D'+80H
	DW INDEX-8
TRIAD	DW DOCOL
	DW LIT,FF
	DW EMIT
	DW LIT,3
	DW SLASH
	DW LIT,3
	DW STAR
	DW LIT,3
	DW OVER,PLUS
	DW SWAP,XDO
TRIA1	DW CR,IDO
	DW LIST
	DW QTERM
	DW ZBRAN,TRIA2-$
	DW LEAVE
TRIA2	DW XLOOP,TRIA1-$
	DW CR
	DW LIT,15
	DW MESS,CR
	DW SEMIS
;
	DB 84H
	DB '.CP'
	DB 'U'+80H
	DW TRIAD-8
DOTCPU	DW DOCOL
	DW BASE,AT
	DW LIT,36
	DW BASE,STORE
	DW LIT,22H
	DW PORIG,TAT
	DW DDOT
	DW BASE,STORE
	DW SEMIS
;
	DB 84H
	DB 'TAS'
	DB 'K'+80H
	DW DOTCPU-7
TASK	DW DOCOL
	DW SEMIS
;
INITDP:	DS EM-$
;
;
;	MEMORY MAP
;
MCOLD	EQU ORIG
MWARM	EQU ORIG+4
MA2	EQU ORIG+8
MUP	EQU UP
MRP	EQU RPP
;
MBIP	EQU BIP
MDPUSH	EQU DPUSH
MHPUSH	EQU HPUSH
MNEXT	EQU NEXT
;
MDP0	EQU DP0
MDIO	EQU DRIVE
MCIO	EQU EPRINT
MIDP	EQU INITDP
;
MIS0	EQU INITS0
;
MIR0	EQU INITR0
;
MFIRST	EQU BUF1
;
MEND	EQU EM-1
MLIMIT	EQU EM
;
	END