1 00010 * Include file for BIF
\r00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)
\r00030 *
\r01000 FCC 'CREATE'
\r01010 FCB 6
\r01020 FCB MFORE
\r01030 FDB VLIST-CFAOFF
\r01040 FDB BIF+2
\r01050 FDB CR-CFAOFF
\r01060 FDB CSP-CFAOFF
\r01070 CREATE DOCOL
\r01080 FDB DDFIND
\r01090 FDB OVER
\r01100 FDB ZBR
\r01110 FDB CREATN-*-2
\r01120 FDB SWAP nfa
\r01130 FDB IDDOT
\r01135 FDB SPACE
\r01140 FDB LIT
\r01150 FDB 4
\r01160 FDB MESS
\r01170 FDB SPACE
\r01190 FDB NFA vocab
\r01200 FDB IDDOT
\r01205 FDB CR
\r01210 FDB BRANCH
\r01220 FDB 4
\r01230 CREATN FDB DROP
\r01240 FDB DROP
\r01250 FDB NCOMMA
\r01260 FDB CCOMMA length
\r01270 FDB ZERO
\r01280 FDB CCOMMA mode
\r01290 FDB LATEST allocation link
\r01300 FDB COMMA
\r01310 FDB DUP nfa
\r01320 FDB CURR
\r01330 FDB STORE new LATEST
\r01340 FDB ZERO vocab
\r01350 FDB COMMA
\r01360 FDB ZERO
\r01370 FDB COMMA left
\r01380 FDB ZERO
\r01390 FDB COMMA right
\r01400 FDB SMUDGE hide
\r01410 FDB FOREMK
\r01420 FDB DROOT
\r01430 FDB FETCH
\r01440 FDB PINSTA in vocab
\r01450 FDB SEMIS
\r01490 *
\r01500 FCC 'CONSTANT'
\r01510 FCB 8
\r01520 FCB MFORE
\r01530 FDB CREATE-CFAOFF
\r01540 FDB BIF+2
\r01550 FDB CMOVE-CFAOFF
\r01560 FDB CREATE-CFAOFF
\r01570 CONST DOCOL
\r01580 FDB CREATE
\r01590 FDB IPCOM
\r01600 DOCON
\r01610 FDB COMMA
\r01620 FDB SMUDGE visible
\r01630 FDB SEMIS
\r01690 *
\r01700 FCC 'VARIABLE'
\r01710 FCB 8
\r01720 FCB MFORE
\r01730 FDB CONST-CFAOFF
\r01740 FDB BIF+2
\r01750 FDB USTAR-CFAOFF
\r01760 FDB WORD-CFAOFF
\r01770 VAR DOCOL
\r01780 FDB CREATE
\r01790 FDB IPCOM
\r01800 DOVAR
\r01810 FDB COMMA initial value
\r01820 FDB SMUDGE visible
\r01830 FDB SEMIS
\r01890 *
\r01900 FCC 'USER'
\r01910 FCB 4
\r01920 FCB MFORE
\r01930 FDB VAR-CFAOFF
\r01940 FDB BIF+2
\r01950 FDB USE-CFAOFF
\r01960 FDB UTIL-CFAOFF
\r01970 USER DOCOL
\r01980 FDB CREATE
\r01990 FDB IPCOM
\r02000 DOUSER
\r02010 FDB CCOMMA offset
\r02020 FDB SMUDGE visible
\r02030 FDB SEMIS
\r02080 *
\r02090 SCOMP EQU MCOMP.OR.MIMM
\r02100 FCC ':'
\r02110 FCB MIMM.OR.1
\r02120 FCB MFORE
\r02130 FDB USER-CFAOFF
\r02140 FDB BIF+2
\r02150 FDB ADD-CFAOFF
\r02160 FDB FETCH-CFAOFF
\r02170 COLON DOCOL
\r02180 FDB QEXEC
\r02190 FDB STOCSP
\r02200 FDB CREATE
\r02210 FDB IPCOM
\r02220 DOCOL
\r02230 FDB RBRAK
\r02240 FDB SEMIS
\r02290 *
\r02300 FCC ';'
\r02310 FCB MIMM.OR.1
\r02320 FCB MFORE
\r02330 FDB COLON-CFAOFF
\r02340 FDB BIF+2
\r02350 FDB 0
\r02360 FDB 0
\r02370 SEMI DOCOL see fig-FORTH model
\r02380 FDB QCSP
\r02390 FDB COMP
\r02400 FDB SEMIS
\r02410 FDB SMUDGE
\r02420 FDB LBRAK
\r02430 FDB SEMIS
\r02490 *
\r02500 FCC '."'
\r02510 FCB MIMM.OR.2
\r02520 FCB MFORE
\r02530 FDB SEMI-CFAOFF
\r02540 FDB BIF+2
\r02550 FDB 0
\r02560 FDB 0
\r02570 DOTQ DOCOL
\r02572 FDB ONE past delimiter
\r02574 FDB IN
\r02576 FDB ADDSTO
\r02580 FDB LIT
\r02590 FDB '"
\r02600 FDB WORD
\r02610 FDB WORDPD
\r02620 FDB QCST
\r02630 FDB ZBR
\r02640 FDB DOTQT-*-2
\r02650 FDB COMP
\r02660 FDB XDOTQ
\r02670 FDB HERE
\r02680 FDB OVER
\r02690 FDB CFEH count
\r02700 FDB ADD1
\r02710 FDB DUP
\r02720 FDB ALLOT
\r02730 FDB CMOVE
\r02732 FDB ONE past end quote
\r02734 FDB IN
\r02736 FDB ADDSTO
\r02740 FDB BRANCH
\r02750 FDB 4
\r02760 DOTQT FDB COUNT
\r02770 FDB TYPE
\r02780 FDB SEMIS
\r02790 *
\r02800 FCC '[COMPILE]'
\r02810 FCB MIMM.OR.9
\r02820 FCB MFORE
\r02830 FDB DOTQ-CFAOFF
\r02840 FDB BIF+2
\r02850 FDB LBRAK-CFAOFF
\r02860 FDB RBRAK-CFAOFF
\r02870 BCOMP DOCOL
\r02880 FDB DDFIND
\r02890 FDB DROP vocab
\r02900 FDB DUP
\r02910 FDB ZEQ
\r02920 FDB ZERO
\r02930 FDB QERR
\r02940 FDB CFA
\r02950 FDB COMMA
\r02960 FDB SEMIS
\r03180 *
\r03200 FCC 'INTERPRET'
\r03210 FCB 9
\r03220 FCB MFORE
\r03230 FDB BCOMP-CFAOFF
\r03240 FDB BIF+2
\r03250 FDB 0 * INDEX-CFAOFF
\r03260 FDB J-CFAOFF
\r03270 INTERP DOCOL
\r03280 FDB DIFIND
\r03290 FDB DROP
\r03300 FDB DDUP
\r03310 FDB ZBR
\r03320 FDB INTERN-*-2
\r03330 FDB DUP
\r03340 FDB CFA
\r03350 FDB SWAP
\r03360 FDB CFEH length
\r03370 FDB DUP
\r03380 FDB NOT
\r03390 FDB LIT
\r03400 FDB MIMM
\r03410 FDB AND
\r03420 FDB QCST
\r03430 FDB AND
\r03440 FDB ZBR
\r03450 FDB INTERX-*-2
\r03460 FDB DROP length
\r03470 FDB COMMA
\r03480 FDB BRANCH
\r03490 FDB INTERE-*-2
\r03500 INTERX FDB LIT
\r03510 FDB MCOMP
\r03520 FDB AND
\r03530 FDB QCST
\r03540 FDB NOT
\r03550 FDB AND
\r03560 FDB LIT
\r03570 FDB $11
\r03580 FDB QERR
\r03590 FDB EXEC
\r03600 FDB BRANCH
\r03610 FDB INTERE-*-2
\r03620 INTERN FDB WORDPD
\r03630 FDB NUMBER
\r03640 FDB DPL
\r03645 FDB FETCH
\r03650 FDB ZLESS
\r03660 FDB ZBR
\r03670 FDB INTERE-*-4
\r03680 FDB DROP
\r03690 FDB LITER
\r03700 FDB BRANCH
\r03710 FDB INTERE-*-2
\r03720 FDB DLITER
\r03730 INTERE FDB QSTACK
\r03740 FDB BRANCH
\r03750 FDB INTERP-*
\r03790 *
\r04200 FCC 'QUIT'
\r04210 FCB 4
\r04220 FCB MFORE
\r04230 FDB INTERP-CFAOFF
\r04240 FDB BIF+2
\r04250 FDB 0
\r04260 FDB 0
\r04270 QUIT DOCOL see fig-FORTH model
\r04280 FDB ZERO
\r04290 FDB BLK
\r04300 FDB STORE
\r04310 FDB LBRAK
\r04320 QUITL FDB TNULL
\r04325 FDB RPSTO
\r04330 FDB CR
\r04340 FDB QUERY
\r04350 FDB INTERP
\r04360 FDB QCST
\r04370 FDB TBR
\r04380 FDB QUITL-*-2
\r04390 FDB XDOTQ
\r04400 FCB 3
\r04410 FCC ' OK'
\r04420 FDB BRANCH
\r04430 FDB QUITL-*-2
\r04490 *
\r