-00010 * Include file for BIF\r00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)\r00030 *\r05030 FCC 'HERE'\r05040 FCB 4\r05050 FCB MFORE\r05060 FDB DROOT-CFAOFF\r05070 FDB BIF+2\r05080 FDB FOREMK-CFAOFF\r05090 FDB I-CFAOFF\r05100 HERE LDX <UP\r05110 LDD UDP,X\r05120 PSHU D\r05122 HERERR LDX <UP\r05124 CMPU UDP,X\r05128 BLS ALLERR\r05130 NEXT\r05132 ALLERR LDD #2\r05134 PSHU D\r05136 JMP ERROR\r05140 *\r05150 FCC 'ALLOT'\r05160 FCB 5\r05170 FCB MFORE\r05180 FDB HERE-CFAOFF\r05190 FDB BIF+2\r05200 FDB AGAIN-CFAOFF\r05210 FDB 0\r05220 ALLOT LDX <UP\r05222 LDD UDP,X\r05223 BMI ALLERR\r05224 ADDD ,U++\r05226 STD UDP,X\r05228 BRA HERERR\r05230 *\r05238 FCC ','\r05240 FCB 1\r05250 FCB MFORE\r05260 FDB ALLOT-CFAOFF\r05270 FDB BIF+2\r05280 FDB PORIG-CFAOFF\r05290 FDB SUB-CFAOFF\r05300 COMMA PULU D allocate and store\r05310 PSHS Y\r05320 LDY <UP\r05330 LDX UDP,Y\r05340 STD ,X++\r05350 COMSTO STX UDP,Y\r05360 PULS Y\r05375 BRA HERERR\r05380 *\r05390 FCC 'C,'\r05400 FCB 2\r05410 FCB MFORE\r05420 FDB COMMA-CFAOFF\r05430 FDB BIF+2\r05440 FDB CSTO-CFAOFF\r05450 FDB CPERL-CFAOFF\r05460 CCOMMA PULU D\r05470 PSHS Y\r05480 LDY <UP\r05490 LDX UDP,Y\r05500 STB ,X+\r05510 BRA COMSTO\r05520 *\r05530 FCC 'SPACE'\r05540 FCB 5\r05550 FCB MFORE\r05560 FDB CCOMMA-CFAOFF\r05570 FDB BIF+2\r05580 FDB SPFEH-CFAOFF\r05590 FDB STATE-CFAOFF\r05600 SPACE LDB BL+3,PCR\r05610 LBRA EMIT+2\r05620 *\r05630 FCC '-DUP'\r05640 FCB 4\r05650 FCB MFORE\r05660 FDB SPACE-CFAOFF\r05670 FDB BIF+2\r05680 FDB MONE-CFAOFF\r05690 FDB DTRAIL-CFAOFF\r05700 DDUP LDD ,U\r05710 BEQ *+4\r05720 PSHU D\r05730 NEXT\r05740 *\r05750 FCC '?CST'\r05760 FCB 4\r05770 FCB MFORE\r05780 FDB DDUP-CFAOFF\r05790 FDB BIF+2\r05800 FDB QCSP-CFAOFF\r05810 FDB QERR-CFAOFF\r05820 QCST LDX <UP\r05830 LDB USTATE+1,X\r05840 ANDB #SCOMP\r05850 CLRA\r05860 PSHU D\r05870 NEXT\r05890 *\r05900 FCC 'IF'\r05910 FCB MIMM.OR.MCOMP.OR.2\r05920 FCB MFORE\r05930 FDB QCST-CFAOFF\r05940 FDB BIF+2\r05950 FDB DO-CFAOFF\r05960 FDB QUERY-CFAOFF\r05965 * IF see fig-FORTH model\r05970 IF DOCOL\r05980 FDB COMP\r05990 FDB ZBR\r06000 FDB HERE adr\r06010 FDB ZERO\r06020 FDB COMMA\r06030 FDB LIT\r06040 FDB ('I)*256+'F\r06060 FDB SEMIS\r06090 *\r06100 FCC 'ELSE'\r06110 FCB MIMM.OR.MCOMP.OR.4\r06120 FCB MFORE\r06130 FDB IF-CFAOFF\r06140 FDB BIF+2\r06150 FDB EDITOR-CFAOFF\r06160 FDB 0\r06170 ELSE DOCOL\r06172 FDB DUP\r06173 FDB LIT\r06175 FDB ('I)*256+'F\r06178 FDB QPAIRS\r06180 FDB COMP\r06190 FDB BRANCH\r06200 FDB HERE adr\r06205 FDB ZERO\r06210 FDB COMMA\r06220 FDB ROT\r06230 FDB FILLIN IF adr\r06250 FDB SWAP for ENDIF\r06260 FDB SEMIS\r06290 *\r06300 FCC 'ENDIF'\r06310 FCB MIMM.OR.MCOMP.OR.5\r06320 FCB MFORE\r06330 FDB ELSE-CFAOFF\r06340 FDB BIF+2\r06350 FDB DROP-CFAOFF\r06360 FDB FIND-CFAOFF\r06370 ENDIF DOCOL\r06380 FDB QCOMP\r06390 FDB LIT\r06400 FDB ('I)*256+'F\r06410 FDB QPAIRS\r06420 FDB FILLIN\r06470 FDB SEMIS\r06490 *\r
\ No newline at end of file
+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 *
OSDN Git Service
