00010 * Include file for BIF
00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)
00030 *
05030 	FCC 'HERE'
05040 	FCB 4
05050 	FCB MFORE
05060 	FDB DROOT-CFAOFF
05070 	FDB BIF+2
05080 	FDB FOREMK-CFAOFF
05090 	FDB I-CFAOFF
05100 HERE	LDX <UP
05110 	LDD UDP,X
05120 	PSHU D
05122 HERERR	LDX <UP
05124 	CMPU UDP,X
05128 	BLS ALLERR
05130 	NEXT
05132 ALLERR	LDD #2
05134 	PSHU D
05136 	JMP ERROR
05140 *
05150 	FCC 'ALLOT'
05160 	FCB 5
05170 	FCB MFORE
05180 	FDB HERE-CFAOFF
05190 	FDB BIF+2
05200 	FDB AGAIN-CFAOFF
05210 	FDB 0
05220 ALLOT	LDX <UP
05222 	LDD UDP,X
05223 	BMI ALLERR
05224 	ADDD ,U++
05226 	STD UDP,X
05228 	BRA HERERR
05230 *
05238 	FCC ','
05240 	FCB 1
05250 	FCB MFORE
05260 	FDB ALLOT-CFAOFF
05270 	FDB BIF+2
05280 	FDB PORIG-CFAOFF
05290 	FDB SUB-CFAOFF
05300 COMMA	PULU D allocate and store
05310 	PSHS Y
05320 	LDY <UP
05330 	LDX UDP,Y
05340 	STD ,X++
05350 COMSTO	STX UDP,Y
05360 	PULS Y
05375 	BRA HERERR
05380 *
05390 	FCC 'C,'
05400 	FCB 2
05410 	FCB MFORE
05420 	FDB COMMA-CFAOFF
05430 	FDB BIF+2
05440 	FDB CSTO-CFAOFF
05450 	FDB CPERL-CFAOFF
05460 CCOMMA	PULU D
05470 	PSHS Y
05480 	LDY <UP
05490 	LDX UDP,Y
05500 	STB ,X+
05510 	BRA COMSTO
05520 *
05530 	FCC 'SPACE'
05540 	FCB 5
05550 	FCB MFORE
05560 	FDB CCOMMA-CFAOFF
05570 	FDB BIF+2
05580 	FDB SPFEH-CFAOFF
05590 	FDB STATE-CFAOFF
05600 SPACE	LDB BL+3,PCR
05610 	LBRA EMIT+2
05620 *
05630 	FCC '-DUP'
05640 	FCB 4
05650 	FCB MFORE
05660 	FDB SPACE-CFAOFF
05670 	FDB BIF+2
05680 	FDB MONE-CFAOFF
05690 	FDB DTRAIL-CFAOFF
05700 DDUP	LDD ,U
05710 	BEQ *+4
05720 	PSHU D
05730 	NEXT
05740 *
05750 	FCC '?CST'
05760 	FCB 4
05770 	FCB MFORE
05780 	FDB DDUP-CFAOFF
05790 	FDB BIF+2
05800 	FDB QCSP-CFAOFF
05810 	FDB QERR-CFAOFF
05820 QCST	LDX <UP
05830 	LDB USTATE+1,X
05840 	ANDB #SCOMP
05850 	CLRA
05860 	PSHU D
05870 	NEXT
05890 *
05900 	FCC 'IF'
05910 	FCB MIMM.OR.MCOMP.OR.2
05920 	FCB MFORE
05930 	FDB QCST-CFAOFF
05940 	FDB BIF+2
05950 	FDB DO-CFAOFF
05960 	FDB QUERY-CFAOFF
05965 * IF see fig-FORTH model
05970 IF	DOCOL
05980 	FDB COMP
05990 	FDB ZBR
06000 	FDB HERE adr
06010 	FDB ZERO
06020 	FDB COMMA
06030 	FDB LIT
06040 	FDB ('I)*256+'F
06060 	FDB SEMIS
06090 *
06100 	FCC 'ELSE'
06110 	FCB MIMM.OR.MCOMP.OR.4
06120 	FCB MFORE
06130 	FDB IF-CFAOFF
06140 	FDB BIF+2
06150 	FDB EDITOR-CFAOFF
06160 	FDB 0
06170 ELSE	DOCOL
06172 	FDB DUP
06173 	FDB LIT
06175 	FDB ('I)*256+'F
06178 	FDB QPAIRS
06180 	FDB COMP
06190 	FDB BRANCH
06200 	FDB HERE adr
06205 	FDB ZERO
06210 	FDB COMMA
06220 	FDB ROT
06230 	FDB FILLIN IF adr
06250 	FDB SWAP for ENDIF
06260 	FDB SEMIS
06290 *
06300 	FCC 'ENDIF'
06310 	FCB MIMM.OR.MCOMP.OR.5
06320 	FCB MFORE
06330 	FDB ELSE-CFAOFF
06340 	FDB BIF+2
06350 	FDB DROP-CFAOFF
06360 	FDB FIND-CFAOFF
06370 ENDIF	DOCOL
06380 	FDB QCOMP
06390 	FDB LIT
06400 	FDB ('I)*256+'F
06410 	FDB QPAIRS
06420 	FDB FILLIN
06470 	FDB SEMIS
06490 *