X-Git-Url: http://git.osdn.net/view?p=bif-6809%2Fbif-6809.git;a=blobdiff_plain;f=cross_v%2FBIF4B.ASM;fp=cross_v%2FBIF4B.ASM;h=db480948ace3c5f02239a0ee58080bc9f308f603;hp=e3f73dee9e90dcd3bf98a043ac6675fe555a2a05;hb=6bfdb0795312adc928cdd0ee1187ba047a22a3e2;hpb=3122c5a7bf6af5205b706254bb9385a7927d411b

diff --git a/cross_v/BIF4B.ASM b/cross_v/BIF4B.ASM
index e3f73de..db48094 100644
--- a/cross_v/BIF4B.ASM
+++ b/cross_v/BIF4B.ASM
@@ -1 +1,204 @@
-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 *
\ 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 *