00010 * Include file for BIF
00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)
00030 *
01000 	FCC 'CREATE'
01010 	FCB 6
01020 	FCB MFORE
01030 	FDB VLIST-CFAOFF
01040 	FDB BIF+2
01050 	FDB CR-CFAOFF
01060 	FDB CSP-CFAOFF
01070 CREATE	DOCOL
01080 	FDB DDFIND
01090 	FDB OVER
01100 	FDB ZBR
01110 	FDB CREATN-*-2
01120 	FDB SWAP nfa
01130 	FDB IDDOT
01135 	FDB SPACE
01140 	FDB LIT
01150 	FDB 4
01160 	FDB MESS
01170 	FDB SPACE
01190 	FDB NFA vocab
01200 	FDB IDDOT
01205 	FDB CR
01210 	FDB BRANCH
01220 	FDB 4
01230 CREATN	FDB DROP
01240 	FDB DROP
01250 	FDB NCOMMA
01260 	FDB CCOMMA length
01270 	FDB ZERO
01280 	FDB CCOMMA mode
01290 	FDB LATEST allocation link
01300 	FDB COMMA
01310 	FDB DUP nfa
01320 	FDB CURR
01330 	FDB STORE new LATEST
01340 	FDB ZERO vocab
01350 	FDB COMMA
01360 	FDB ZERO
01370 	FDB COMMA left
01380 	FDB ZERO
01390 	FDB COMMA right
01400 	FDB SMUDGE hide
01410 	FDB FOREMK
01420 	FDB DROOT
01430 	FDB FETCH
01440 	FDB PINSTA in vocab
01450 	FDB SEMIS
01490 *
01500 	FCC 'CONSTANT'
01510 	FCB 8
01520 	FCB MFORE
01530 	FDB CREATE-CFAOFF
01540 	FDB BIF+2
01550 	FDB CMOVE-CFAOFF
01560 	FDB CREATE-CFAOFF
01570 CONST	DOCOL
01580 	FDB CREATE
01590 	FDB IPCOM
01600 	DOCON
01610 	FDB COMMA
01620 	FDB SMUDGE visible
01630 	FDB SEMIS
01690 *
01700 	FCC 'VARIABLE'
01710 	FCB 8
01720 	FCB MFORE
01730 	FDB CONST-CFAOFF
01740 	FDB BIF+2
01750 	FDB USTAR-CFAOFF
01760 	FDB WORD-CFAOFF
01770 VAR	DOCOL
01780 	FDB CREATE
01790 	FDB IPCOM
01800 	DOVAR
01810 	FDB COMMA initial value
01820 	FDB SMUDGE visible
01830 	FDB SEMIS
01890 *
01900 	FCC 'USER'
01910 	FCB 4
01920 	FCB MFORE
01930 	FDB VAR-CFAOFF
01940 	FDB BIF+2
01950 	FDB USE-CFAOFF
01960 	FDB UTIL-CFAOFF
01970 USER	DOCOL
01980 	FDB CREATE
01990 	FDB IPCOM
02000 	DOUSER
02010 	FDB CCOMMA offset
02020 	FDB SMUDGE visible
02030 	FDB SEMIS
02080 *
02090 SCOMP	EQU MCOMP|MIMM
02100 	FCC ':'
02110 	FCB MIMM|1
02120 	FCB MFORE
02130 	FDB USER-CFAOFF
02140 	FDB BIF+2
02150 	FDB ADD-CFAOFF
02160 	FDB FETCH-CFAOFF
02170 COLON	DOCOL
02180 	FDB QEXEC
02190 	FDB STOCSP
02200 	FDB CREATE
02210 	FDB IPCOM
02220 	DOCOL
02230 	FDB RBRAK
02240 	FDB SEMIS
02290 *
02300 	FCC ';'
02310 	FCB MIMM|1
02320 	FCB MFORE
02330 	FDB COLON-CFAOFF
02340 	FDB BIF+2
02350 	FDB 0
02360 	FDB 0
02370 SEMI	DOCOL	see fig-FORTH model
02380 	FDB QCSP
02390 	FDB COMP
02400 	FDB SEMIS
02410 	FDB SMUDGE
02420 	FDB LBRAK
02430 	FDB SEMIS
02490 *
02500 	FCC '."'
02510 	FCB MIMM|2
02520 	FCB MFORE
02530 	FDB SEMI-CFAOFF
02540 	FDB BIF+2
02550 	FDB 0
02560 	FDB 0
02570 DOTQ	DOCOL
02572 	FDB ONE past delimiter
02574 	FDB IN
02576 	FDB ADDSTO
02580 	FDB LIT
02590 	FDB '"
02600 	FDB WORD
02610 	FDB WORDPD
02620 	FDB QCST
02630 	FDB ZBR
02640 	FDB DOTQT-*-2
02650 	FDB COMP
02660 	FDB XDOTQ
02670 	FDB HERE
02680 	FDB OVER
02690 	FDB CFEH count
02700 	FDB ADD1
02710 	FDB DUP
02720 	FDB ALLOT
02730 	FDB CMOVE
02732 	FDB ONE past end quote
02734 	FDB IN
02736 	FDB ADDSTO
02740 	FDB BRANCH
02750 	FDB 4
02760 DOTQT	FDB COUNT
02770 	FDB TYPE
02780 	FDB SEMIS
02790 *
02800 	FCC '[COMPILE]'
02810 	FCB MIMM|9
02820 	FCB MFORE
02830 	FDB DOTQ-CFAOFF
02840 	FDB BIF+2
02850 	FDB LBRAK-CFAOFF
02860 	FDB RBRAK-CFAOFF
02870 BCOMP	DOCOL
02880 	FDB DDFIND
02890 	FDB DROP vocab
02900 	FDB DUP
02910 	FDB ZEQ
02920 	FDB ZERO
02930 	FDB QERR
02940 	FDB CFA
02950 	FDB COMMA
02960 	FDB SEMIS
03180 *
03200 	FCC 'INTERPRET'
03210 	FCB 9
03220 	FCB MFORE
03230 	FDB BCOMP-CFAOFF
03240 	FDB BIF+2
03250 	FDB 0 * INDEX-CFAOFF
03260 	FDB J-CFAOFF
03270 INTERP	DOCOL
03280 	FDB DIFIND
03290 	FDB DROP
03300 	FDB DDUP
03310 	FDB ZBR
03320 	FDB INTERN-*-2
03330 	FDB DUP
03340 	FDB CFA
03350 	FDB SWAP
03360 	FDB CFEH length
03370 	FDB DUP
03380 	FDB NOT
03390 	FDB LIT
03400 	FDB MIMM
03410 	FDB AND
03420 	FDB QCST
03430 	FDB AND
03440 	FDB ZBR
03450 	FDB INTERX-*-2
03460 	FDB DROP length
03470 	FDB COMMA
03480 	FDB BRANCH
03490 	FDB INTERE-*-2
03500 INTERX	FDB LIT
03510 	FDB MCOMP
03520 	FDB AND
03530 	FDB QCST
03540 	FDB NOT
03550 	FDB AND
03560 	FDB LIT
03570 	FDB $11
03580 	FDB QERR
03590 	FDB EXEC
03600 	FDB BRANCH
03610 	FDB INTERE-*-2
03620 INTERN	FDB WORDPD
03630 	FDB NUMBER
03640 	FDB DPL
03645 	FDB FETCH
03650 	FDB ZLESS
03660 	FDB ZBR
03670 	FDB INTERE-*-4
03680 	FDB DROP
03690 	FDB LITER
03700 	FDB BRANCH
03710 	FDB INTERE-*-2
03720 	FDB DLITER
03730 INTERE	FDB QSTACK
03740 	FDB BRANCH
03750 	FDB INTERP-*
03790 *
04200 	FCC 'QUIT'
04210 	FCB 4
04220 	FCB MFORE
04230 	FDB INTERP-CFAOFF
04240 	FDB BIF+2
04250 	FDB 0
04260 	FDB 0
04270 QUIT	DOCOL	see fig-FORTH model
04280 	FDB ZERO
04290 	FDB BLK
04300 	FDB STORE
04310 	FDB LBRAK
04320 QUITL	FDB TNULL
04325 	FDB RPSTO
04330 	FDB CR
04340 	FDB QUERY
04350 	FDB INTERP
04360 	FDB QCST
04370 	FDB TBR
04380 	FDB QUITL-*-2
04390 	FDB XDOTQ
04400 	FCB 3
04410 	FCC ' OK'
04420 	FDB BRANCH
04430 	FDB QUITL-*-2
04490 *