1 00010 * Include file for BIF
\r00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)
\r00030 *
\r04110 FCC 'TYPE'
\r04112 FCB 4
\r04114 FCB MFORE
\r04116 FDB XMACH-CFAOFF
\r04118 FDB BIF+2
\r04120 FDB 0
\r04122 FDB 0
\r04130 TYPE LDD ,U
\r04132 BEQ TYPEQ
\r04135 ADDD 2,U
\r04140 STD ,U for compare
\r04145 LDX 2,U
\r04150 TYPEL LDB ,X+
\r04155 STX 2,U
\r04160 CLRA
\r04165 PSHU D
\r04170 DOCOL
\r04175 FDB EMIT
\r04180 FDB XMACH
\r04185 LDX 2,U
\r04190 CMPX ,U
\r04195 BLO TYPEL
\r04197 TYPEQ LEAU 4,U
\r04200 NEXT
\r04205 *
\r04210 FCC '(.")'
\r04212 FCB MCOMP.OR.4
\r04214 FCB MFORE
\r04216 FDB TYPE-CFAOFF
\r04218 FDB BIF+2
\r04220 FDB XPLOOP-CFAOFF
\r04222 FDB XSCODE-CFAOFF
\r04230 XDOTQ LDB ,Y+ count
\r04235 CLRA
\r04240 TFR Y,X string
\r04245 LEAY D,Y past it
\r04250 PSHU D,X
\r04255 BRA TYPE
\r04300 *
\r04310 FCC 'ID.'
\r04312 FCB 3
\r04314 FCB MFORE
\r04316 FDB XDOTQ-CFAOFF
\r04318 FDB BIF+2
\r04320 FDB 0
\r04322 FDB 0
\r04330 IDDOT PULU X nfa
\r04335 LDB ,X
\r04340 ANDB #NLMASK
\r04350 NEGB
\r04360 LEAX B,X past it
\r04370 NEGB
\r04380 CLRA
\r04390 PSHU D,X
\r04400 BRA TYPE
\r04410 *
\r04510 FCC 'FILL-IN'
\r04512 FCB MCOMP.OR.7
\r04514 FCB MFORE
\r04516 FDB IDDOT-CFAOFF
\r04518 FDB BIF+2
\r04520 FDB 0
\r04522 FDB 0
\r04530 FILLIN LDX <UP
\r04540 LDD UDP,X
\r04550 SUBD ,U adr
\r04555 SUBD #2 past
\r04560 STD [,U++]
\r04570 NEXT
\r04590 *
\r04610 FCC 'BEGIN'
\r04612 FCB MCOMP.OR.MIMM.OR.5
\r04614 FCB MFORE
\r04616 FDB FILLIN-CFAOFF
\r04618 FDB BIF+2
\r04620 FDB BASE-CFAOFF
\r04622 FDB 0
\r04630 BEGIN DOCOL see fig-FORTH model
\r04640 FDB QCOMP
\r04650 FDB HERE target
\r04660 FDB LIT
\r04670 FDB ('B)*256+'E
\r04680 FDB SEMIS
\r04690 *
\r04710 FCC 'AGAIN'
\r04712 FCB MCOMP.OR.MIMM.OR.5
\r04714 FCB MFORE
\r04716 FDB BEGIN-CFAOFF
\r04718 FDB BIF+2
\r04720 FDB 0
\r04722 FDB 0
\r04730 AGAIN DOCOL see fig-FORTH model
\r04740 FDB LIT
\r04750 FDB ('B)*256+'E
\r04760 FDB QPAIRS
\r04765 FDB COMP
\r04770 FDB BRANCH
\r04775 FDB BACK
\r04780 FDB SEMIS
\r04790 *
\r04810 FCC 'UNTIL'
\r04812 FCB MCOMP.OR.MIMM.OR.5
\r04814 FCB MFORE
\r04816 FDB AGAIN-CFAOFF
\r04818 FDB BIF+2
\r04820 FDB USLASH-CFAOFF
\r04822 FDB 0
\r04830 UNTIL DOCOL see fig-FORTH model
\r04840 FDB LIT
\r04850 FDB ('B)*256+'E
\r04860 FDB QPAIRS
\r04865 FDB COMP
\r04870 FDB ZBR
\r04875 FDB BACK
\r04880 FDB SEMIS
\r04890 *
\r04910 FCC 'WHILE'
\r04912 FCB MCOMP.OR.MIMM.OR.5
\r04914 FCB MFORE
\r04916 FDB UNTIL-CFAOFF
\r04918 FDB BIF+2
\r04920 FDB WARM-CFAOFF
\r04922 FDB WORDPD-CFAOFF
\r04930 WHILE DOCOL
\r04940 FDB DUP
\r04950 FDB LIT
\r04960 FDB ('B)*256+'E
\r04970 FDB QPAIRS
\r04980 FDB COMP
\r04990 FDB ZBR
\r05000 FDB HERE adr
\r05010 FDB ZERO
\r05020 FDB COMMA
\r05030 FDB LIT
\r05040 FDB ('W)*256+'H
\r05050 FDB SEMIS
\r05090 *
\r05110 FCC 'REPEAT'
\r05112 FCB MCOMP.OR.MIMM.OR.6
\r05114 FCB MFORE
\r05116 FDB WHILE-CFAOFF
\r05118 FDB BIF+2
\r05120 FDB REPEAL-CFAOFF
\r05122 FDB ROOT-CFAOFF
\r05130 REPEAT DOCOL
\r05140 FDB LIT
\r05150 FDB ('W)*256+'H
\r05160 FDB QPAIRS
\r05170 FDB TOR
\r05180 FDB AGAIN
\r05190 FDB RFROM
\r05200 FDB FILLIN
\r05210 FDB SEMIS
\r05290 *
\r05310 FCC 'DO'
\r05312 FCB MCOMP.OR.MIMM.OR.2
\r05314 FCB MFORE
\r05316 FDB WHILE-CFAOFF
\r05318 FDB BIF+2
\r05320 FDB CFEH-CFAOFF
\r05322 FDB ENDIF-CFAOFF
\r05330 DO DOCOL see fig-FORTH model
\r05340 FDB COMP
\r05350 FDB XDO
\r05360 FDB HERE
\r05370 FDB LIT
\r05380 FDB ('D)*256+'O
\r05390 FDB SEMIS
\r05400 *
\r
OSDN Git Service
