00010 * Include file for BIF
00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)
00030 *
04500 	FCC 'BIF'
04510 	FCB MIMM.OR.3
04520 	FCB MFORE
04530 	FDB QUIT-CFAOFF
04540 	FDB BIF+2 (PFA)
04550 	FDB COLON-CFAOFF
04560 	FDB IF-CFAOFF
04570 BIF	DOVOC
04580 	FDB BIF-CFAOFF (NFA)
04590 *
04600 	FCC 'ASSEMBLER'
04610 	FCB MIMM.OR.9 immediate?
04620 	FCB MFORE
04630 	FDB BIF-CFAOFF
04640 	FDB BIF+2 parent voc
04650 	FDB 0
04660 	FDB 0
04670 ASMBLR	DOVOC
04680 	FDB 0 (NFA)
04690 *
04700 	FCC 'DEFINITIONS'
04710 	FCB 11
04720 	FCB MFORE
04730 	FDB ASMBLR-CFAOFF
04740 	FDB BIF+2
04750 	FDB 0
04760 	FDB 0
04770 DEFS	LDX <UP
04780 	LDD UROOT,X
04790 	STD UDROOT,X
04800 	NEXT
04890 *
04900 	FCC 'ABORT'
04910 	FCB 5
04920 	FCB MFORE
04930 	FDB DEFS-CFAOFF
04940 	FDB BIF+2
04950 	FDB 0
04960 	FDB 0
04970 ABORT	DOCOL	see fig-FORTH model
04975 	FDB INULL
04980 	FDB SPSTO
04990 	FDB DEC
05000 	FDB ZERO
05010 	FDB DRIVE
05020 	FDB CR
05030 	FDB XDOTQ
05040 	FCB 13
05050 	FCC '6809 BIF V1.0'
05060 	FDB BIF
05070 	FDB DEFS
05080 	FDB QUIT
05090 *
05100 	FCC 'VOCABULARY'
05110 	FCB 10
05120 	FCB MFORE
05130 	FDB ABORT-CFAOFF
05140 	FDB BIF+2
05150 	FDB 0
05160 	FDB 0
05170 VOCAB	DOCOL
05180 	FDB CREATE
05190 	FDB IPCOM
05200 	DOVOC
05210 	FDB ZERO
05220 	FDB COMMA local
05255 	FDB SMUDGE
05260 	FDB SEMIS
05290 *
05300 	FCC '('
05301 	FCB MIMM.OR.1
05302 	FCB 0
05303 	FDB VOCAB-CFAOFF
05304 	FDB BIF+2
05305 	FDB ENDHSH-CFAOFF
05306 	FDB STAR-CFAOFF
05310 PAREN	PSHS Y
05320 	LDY <UP
05330 PARENL	LDD #')
05340 	PSHU D
05350 	DOCOL
05360 	FDB WORD
05370 	FDB XMACH
05380 	LDX UBLK,Y
05390 	BNE *+6
05400 	LDX UTIB,Y
05401 	BRA *+12
05403 	PSHU X
05405 	DOCOL
05406 	FDB BLOCK get adr
05408 	FDB XMACH
05409 	PULU X
05410 	LDD UIN,Y
05420 	LDA D,X
05425 	BEQ PARENE NUL?
05430 	CMPA #')
05440 	BNE PARENL
05450 	INCB	bump
05453 	BNE *+5 UIN>15
05456 	INC UIN,Y carry
05460 	STB UIN+1,Y
05470 PARENE	PULS Y
05480 	NEXT
05490 *
05500 	FCC 'DAD'
05510 	FCB 3
05520 	FCB MFORE
05530 	FDB PAREN-CFAOFF
05540 	FDB BIF+2
05550 	FDB 0
05560 	FDB DCON-CFAOFF
05570 DAD	PSHS Y
05580 	PULU Y nfa
05590 	LDB ,Y
05600 	ANDB #NLMASK
05610 	TFR B,A
05620 	NEGA
05630 	LEAX A,Y name
05640 	DECA for NUL
05650 	LEAS A,S allocate
05660 	CLRA
05670 	STA B,S NUL
05680 	PSHU X
05690 	PSHU D,S
05700 	PSHS B,X mark
05710 	DOCOL
05720 	FDB CMOVE for (REFIND)
05730 	FDB XMACH
05740 	LEAX 3,S name
05750 	PSHU X
05760 	LDX GFAOFF,Y
05770 	PSHU X
05780 DADL	DOCOL
05790 	FDB PREF
05800 	FDB XMACH
05810 	LDX [2,U]
05820 	BNE DADC
05830 	LDD #$19 not found
05840 	PSHU D
05850 	JMP ERROR
05860 DADC	CMPY [2,U] this node?
05870 	BEQ DADR
05880 	LEAX RTOFF,X deeper
05890 	LEAU 2,U
05900 	STX ,U
05910 	BRA DADL
05920 DADR	PULS B,X
05930 	STX 4,U
05950 	INCB for NUL
05960 	LEAS B,S drop name
05970 	PULS Y
05980 	NEXT
05990 *
20500 	FCC 'REPEAL'
20510 	FCB 6
20520 	FCB MFORE
20530 	FDB DAD-CFAOFF
20540 	FDB BIF+2
20550 	FDB 0
20560 	FDB 0
20570 REPEAL	PSHS Y
20580 	LDX <UP
20590 	LDY UCURR,X
20592 	CMPY UFENCE,X
20594 	BLS REPELX
20600 	LDD LFAOFF,Y
20610 	STD UCURR,X update
20620 	LDD GFAOFF,Y  stash
20625 	PSHU Y
20630 	LEAY PFAOFF,Y
20640 	CMPY UROOT,X
20650 	BNE REPELD
20660 	STD UROOT,X
20670 REPELD	CMPY UDROOT,X
20680 	BNE REPELF
20690 	STD UDROOT,X
20700 REPELF	LDY ,U
20710 	LDD #0
20720 	CMPY UFORE,X end?
20730 	BNE REPELA
20740 	STD UFORE,X
20750 REPELA	DOCOL
20760 	FDB DAD
20760 	FDB XMACH
20770 	LEAU 2,U
20960 	LDD #0
20970 	STD [,U++] ground parent
20980 	PULU D
20990 	LDX <UP
21000 	STD UDP,X
21010 REPELX	PULS Y
21020 	NEXT
21090 *
21100 	FCC 'FORGET'
21110 	FCB 6
21120 	FCB MFORE
21130 	FDB REPEAL-CFAOFF
21140 	FDB BIF+2
21150 	FDB FORE-CFAOFF
21160 	FDB GFA-CFAOFF
21170 FORGET	DOCOL
21180 	FDB DDFIND
21190 	FDB XMACH
21200 	PSHS Y
21210 	LEAU 2,U
21220 	LDY ,U++
21230 	BNE FORGEF found?
21240 	LDD #0
21250 	PSHU D
21260 	JMP ERROR
21270 FORGEF	LDX <UP
21280 	CMPY UFENCE,X
21290 	BHI FORGER
21300 	LDD #$15
21310 	BRA FORGEF-5
21320 FORGER	LDB MFAOFF,Y
21330 	ANDB #MFORE
21370 	BEQ FORGEL
21380 	LDD #$1A
21390 	BRA FORGEF-5
21400 FORGEL	LDX <UP
21410 	CMPY UCURR,X
21420 	BHS FORGEO
21430 	DOCOL
21440 	FDB REPEAL
21450 	FDB XMACH
21460 	BRA FORGEL
21470 FORGEO	BEQ FORGEN
21480 	LDD #$1B
21490 	BRA FORGEF-5
21500 FORGEN	PULS Y
21510 	JMP REPEAL
21520 FOLLOW	EQU *
21530 * FORGET should be the last definition in the pre-assembled kernel
21540 *