-00010 * Include file for BIF\r00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)\r00030 *\r05010 FCC '?ERROR'\r05020 FCB 6\r05030 FCB MFORE\r05040 FDB RW-CFAOFF\r05050 FDB BIF+2\r05060 FDB 0\r05070 FDB 0\r05080 QERR PULU X\r05090 LDD ,U++\r05100 BNE *+4\r05110 NEXT\r05120 PSHU X\r05130 JMP ERROR\r05200 *\r05210 FCC '?COMP'\r05220 FCB 5\r05230 FCB MFORE\r05240 FDB QERR-CFAOFF\r05250 FDB BIF+2\r05260 FDB TOR-CFAOFF\r05270 FDB QEXEC-CFAOFF\r05280 QCOMP LDX <UP\r05290 LDB USTATE+1,X\r05300 ANDB #SCOMP\r05310 BNE QPAIRN\r05320 LDD #$11\r05330 BRA QPAIRE\r05400 *\r05410 FCC '?EXEC'\r05420 FCB 5\r05430 FCB MFORE\r05440 FDB QCOMP-CFAOFF\r05450 FDB BIF+2\r05460 FDB QCST-CFAOFF\r05470 FDB QPAIRS-CFAOFF\r05480 QEXEC LDX <UP\r05490 LDB USTATE+1,X\r05500 BEQ QPAIRN\r05510 LDD #$12\r05520 BRA QPAIRE\r05600 *\r05610 FCC '?PAIRS'\r05620 FCB 6\r05630 FCB MFORE\r05640 FDB QEXEC-CFAOFF\r05650 FDB BIF+2\r05660 FDB QLOAD-CFAOFF\r05670 FDB QTERM-CFAOFF\r05680 QPAIRS PULU D\r05690 SUBD ,U++\r05700 BEQ QPAIRN\r05710 LDD #$13\r05720 QPAIRE PSHU D robbed\r05730 JMP ERROR\r05740 QPAIRN NEXT robbed\r05800 *\r05810 FCC '?CSP'\r05820 FCB 4\r05830 FCB MFORE\r05840 FDB QPAIRS-CFAOFF\r05850 FDB BIF+2\r05860 FDB 0\r05870 FDB 0\r05880 QCSP LDX <UP\r05890 TFR U,D\r05900 SUBD UCSP,X\r05910 BEQ QPAIRN\r05920 LDD #$14\r05930 BRA QPAIRE\r06000 *\r06010 FCC '?LOADING'\r06020 FCB 8\r06030 FCB MFORE\r06040 FDB QCSP-CFAOFF\r06050 FDB BIF+2\r06060 FDB 0\r06070 FDB 0\r06080 QLOAD LDX <UP\r06090 LDD UBLK,X\r06100 BNE QPAIRN\r06110 LDD #$16\r06120 BRA QPAIRE\r06200 *\r06210 FCC 'COMPILE'\r06220 FCB 7\r06230 FCB MFORE\r06240 FDB QLOAD-CFAOFF\r06250 FDB BIF+2\r06260 FDB COLD-CFAOFF\r06270 FDB COMPO-CFAOFF\r06280 COMP DOCOL\r06290 FDB QCOMP\r06300 FDB XMACH\r06310 COMPIP LDD ,Y++ robbed by IP,\r06320 PSHU D\r06330 JMP COMMA\r06390 *\r06410 FCC 'LOOP'\r06420 FCB MIMM.OR.MCOMP.OR.4\r06430 FCB MFORE\r06440 FDB COMP-CFAOFF\r06450 FDB BIF+2\r06460 FDB KEY-CFAOFF\r06470 FDB NUMBER-CFAOFF\r06480 LOOP DOCOL see fig-FORTH model\r06490 FDB LIT\r06500 FDB ('D)*256+'O\r06510 FDB QPAIRS\r06520 FDB COMP\r06530 FDB XLOOP\r06540 FDB BACK\r06550 FDB SEMIS\r06590 *\r06610 FCC '+LOOP'\r06620 FCB MIMM.OR.MCOMP.OR.5\r06630 FCB MFORE\r06640 FDB LOOP-CFAOFF\r06650 FDB BIF+2\r06660 FDB CHS-CFAOFF\r06670 FDB COMMA-CFAOFF\r06680 PLOOP DOCOL see fig-FORTH model\r06690 FDB LIT\r06700 FDB ('D)*256+'O\r06710 FDB QPAIRS\r06720 FDB COMP\r06730 FDB XPLOOP\r06740 FDB BACK\r06750 FDB SEMIS\r06790 *\r06809 FCC 'LOAD'\r06820 FCB 4\r06830 FCB MFORE\r06840 FDB PLOOP-CFAOFF\r06850 FDB BIF+2\r06860 FDB 0\r06870 FDB 0\r06880 LOAD PSHS Y see fig-FORTH model\r06890 LDY <UP\r06900 LDD UIN,Y\r06910 LDX UBLK,Y\r06920 PSHS X,D\r06930 LDD #0\r06940 STD UIN,Y\r06950 DOCOL\r06960 FDB BPSCR\r06970 FDB STAR\r06980 FDB BLK\r06990 FDB STORE\r07000 FDB INTERP\r07010 FDB XMACH\r07020 PULS D,X\r07030 STD UIN,Y\r07040 STX UBLK,Y\r07050 PULS Y\r07060 NEXT\r07090 *\r07110 FCC '<BUILDS'\r07120 FCB MCOMP.OR.7\r07130 FCB MFORE\r07140 FDB LOAD-CFAOFF\r07150 FDB BIF+2\r07160 FDB 0\r07170 FDB 0\r07180 BUILDS DOCOL see fig-FORTH model\r07190 FDB ZERO\r07200 FDB CONST\r07210 FDB SEMIS\r07290 *\r07310 FCC 'DOES>'\r07320 FCB MCOMP.OR.5\r07330 FCB MFORE\r07340 FDB BUILDS-CFAOFF\r07350 FDB BIF+2\r07360 FDB 0\r07370 FDB 0\r07380 DOES LDX <UP\r07430 LDX UCURR,X\r07440 LDD ADOES,PCR\r07450 STD CFAOFF,X\r07460 STY PFAOFF,X\r07470 PULS Y\r07480 NEXT\r07490 ADOES JSR <XDOES\r07790 *\r07810 FCC ';CODE'\r07820 FCB MCOMP.OR.MIMM.OR.5\r07830 FCB MFORE\r07840 FDB DOES-CFAOFF\r07850 FDB BIF+2\r07860 FDB SEMI-CFAOFF\r07870 FDB SEMIS-CFAOFF\r07880 SCODE DOCOL not fig\r07890 FDB QCSP\r07900 FDB COMP\r07910 FDB XSCODE\r07915 FDB LBRAK\r07920 FDB ASMBLR\r07930 FDB STOCSP to check later\r07940 FDB SEMIS\r07950 * something else must SMUDGE\r07960 *\r
\ No newline at end of file
+00010 * Include file for BIF
+00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)
+00030 *
+05010 FCC '?ERROR'
+05020 FCB 6
+05030 FCB MFORE
+05040 FDB RW-CFAOFF
+05050 FDB BIF+2
+05060 FDB 0
+05070 FDB 0
+05080 QERR PULU X
+05090 LDD ,U++
+05100 BNE *+4
+05110 NEXT
+05120 PSHU X
+05130 JMP ERROR
+05200 *
+05210 FCC '?COMP'
+05220 FCB 5
+05230 FCB MFORE
+05240 FDB QERR-CFAOFF
+05250 FDB BIF+2
+05260 FDB TOR-CFAOFF
+05270 FDB QEXEC-CFAOFF
+05280 QCOMP LDX <UP
+05290 LDB USTATE+1,X
+05300 ANDB #SCOMP
+05310 BNE QPAIRN
+05320 LDD #$11
+05330 BRA QPAIRE
+05400 *
+05410 FCC '?EXEC'
+05420 FCB 5
+05430 FCB MFORE
+05440 FDB QCOMP-CFAOFF
+05450 FDB BIF+2
+05460 FDB QCST-CFAOFF
+05470 FDB QPAIRS-CFAOFF
+05480 QEXEC LDX <UP
+05490 LDB USTATE+1,X
+05500 BEQ QPAIRN
+05510 LDD #$12
+05520 BRA QPAIRE
+05600 *
+05610 FCC '?PAIRS'
+05620 FCB 6
+05630 FCB MFORE
+05640 FDB QEXEC-CFAOFF
+05650 FDB BIF+2
+05660 FDB QLOAD-CFAOFF
+05670 FDB QTERM-CFAOFF
+05680 QPAIRS PULU D
+05690 SUBD ,U++
+05700 BEQ QPAIRN
+05710 LDD #$13
+05720 QPAIRE PSHU D robbed
+05730 JMP ERROR
+05740 QPAIRN NEXT robbed
+05800 *
+05810 FCC '?CSP'
+05820 FCB 4
+05830 FCB MFORE
+05840 FDB QPAIRS-CFAOFF
+05850 FDB BIF+2
+05860 FDB 0
+05870 FDB 0
+05880 QCSP LDX <UP
+05890 TFR U,D
+05900 SUBD UCSP,X
+05910 BEQ QPAIRN
+05920 LDD #$14
+05930 BRA QPAIRE
+06000 *
+06010 FCC '?LOADING'
+06020 FCB 8
+06030 FCB MFORE
+06040 FDB QCSP-CFAOFF
+06050 FDB BIF+2
+06060 FDB 0
+06070 FDB 0
+06080 QLOAD LDX <UP
+06090 LDD UBLK,X
+06100 BNE QPAIRN
+06110 LDD #$16
+06120 BRA QPAIRE
+06200 *
+06210 FCC 'COMPILE'
+06220 FCB 7
+06230 FCB MFORE
+06240 FDB QLOAD-CFAOFF
+06250 FDB BIF+2
+06260 FDB COLD-CFAOFF
+06270 FDB COMPO-CFAOFF
+06280 COMP DOCOL
+06290 FDB QCOMP
+06300 FDB XMACH
+06310 COMPIP LDD ,Y++ robbed by IP,
+06320 PSHU D
+06330 JMP COMMA
+06390 *
+06410 FCC 'LOOP'
+06420 FCB MIMM.OR.MCOMP.OR.4
+06430 FCB MFORE
+06440 FDB COMP-CFAOFF
+06450 FDB BIF+2
+06460 FDB KEY-CFAOFF
+06470 FDB NUMBER-CFAOFF
+06480 LOOP DOCOL see fig-FORTH model
+06490 FDB LIT
+06500 FDB ('D)*256+'O
+06510 FDB QPAIRS
+06520 FDB COMP
+06530 FDB XLOOP
+06540 FDB BACK
+06550 FDB SEMIS
+06590 *
+06610 FCC '+LOOP'
+06620 FCB MIMM.OR.MCOMP.OR.5
+06630 FCB MFORE
+06640 FDB LOOP-CFAOFF
+06650 FDB BIF+2
+06660 FDB CHS-CFAOFF
+06670 FDB COMMA-CFAOFF
+06680 PLOOP DOCOL see fig-FORTH model
+06690 FDB LIT
+06700 FDB ('D)*256+'O
+06710 FDB QPAIRS
+06720 FDB COMP
+06730 FDB XPLOOP
+06740 FDB BACK
+06750 FDB SEMIS
+06790 *
+06809 FCC 'LOAD'
+06820 FCB 4
+06830 FCB MFORE
+06840 FDB PLOOP-CFAOFF
+06850 FDB BIF+2
+06860 FDB 0
+06870 FDB 0
+06880 LOAD PSHS Y see fig-FORTH model
+06890 LDY <UP
+06900 LDD UIN,Y
+06910 LDX UBLK,Y
+06920 PSHS X,D
+06930 LDD #0
+06940 STD UIN,Y
+06950 DOCOL
+06960 FDB BPSCR
+06970 FDB STAR
+06980 FDB BLK
+06990 FDB STORE
+07000 FDB INTERP
+07010 FDB XMACH
+07020 PULS D,X
+07030 STD UIN,Y
+07040 STX UBLK,Y
+07050 PULS Y
+07060 NEXT
+07090 *
+07110 FCC '<BUILDS'
+07120 FCB MCOMP.OR.7
+07130 FCB MFORE
+07140 FDB LOAD-CFAOFF
+07150 FDB BIF+2
+07160 FDB 0
+07170 FDB 0
+07180 BUILDS DOCOL see fig-FORTH model
+07190 FDB ZERO
+07200 FDB CONST
+07210 FDB SEMIS
+07290 *
+07310 FCC 'DOES>'
+07320 FCB MCOMP.OR.5
+07330 FCB MFORE
+07340 FDB BUILDS-CFAOFF
+07350 FDB BIF+2
+07360 FDB 0
+07370 FDB 0
+07380 DOES LDX <UP
+07430 LDX UCURR,X
+07440 LDD ADOES,PCR
+07450 STD CFAOFF,X
+07460 STY PFAOFF,X
+07470 PULS Y
+07480 NEXT
+07490 ADOES JSR <XDOES
+07790 *
+07810 FCC ';CODE'
+07820 FCB MCOMP.OR.MIMM.OR.5
+07830 FCB MFORE
+07840 FDB DOES-CFAOFF
+07850 FDB BIF+2
+07860 FDB SEMI-CFAOFF
+07870 FDB SEMIS-CFAOFF
+07880 SCODE DOCOL not fig
+07890 FDB QCSP
+07900 FDB COMP
+07910 FDB XSCODE
+07915 FDB LBRAK
+07920 FDB ASMBLR
+07930 FDB STOCSP to check later
+07940 FDB SEMIS
+07950 * something else must SMUDGE
+07960 *
OSDN Git Service
