-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
\ No newline at end of file
+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.OR.MIMM
+02100 FCC ':'
+02110 FCB MIMM.OR.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.OR.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.OR.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.OR.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 *
OSDN Git Service
