00010 * Include file for BIF
00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)
00030 *
01000 	FCC 'LATEST'
01010 	FCB 6
01020 	FCB MFORE
01030 	FDB ENDIF-CFAOFF
01040 	FDB BIF+2
01050 	FDB 0
01060 	FDB 0
01070 LATEST	DOUCON 	not ROOT!
01080 	FCB UCURR NFA
01110 *
01115 * convert NFA to LFA,CFA,GFA,PFA
01120 	FCC 'LFA'
01130 	FCB 3
01140 	FCB MFORE
01150 	FDB LATEST-CFAOFF
01160 	FDB BIF+2
01170 	FDB 0
01180 	FDB 0
01190 LFA	LDB #LFAOFF
01200 	BRA CFA+2
01210 *
01220 	FCC 'CFA'
01230 	FCB 3
01240 	FCB MFORE
01250 	FDB LFA-CFAOFF
01260 	FDB BIF+2
01270 	FDB 0
01280 	FDB 0
01290 CFA	LDB #CFAOFF
01292 	SEX
01294 	ADDD ,U
01296 	STD ,U
01300 	NEXT
01310 *
01320 	FCC 'GFA'
01330 	FCB 3
01340 	FCB MFORE
01350 	FDB CFA-CFAOFF
01360 	FDB BIF+2
01370 	FDB 0
01380 	FDB 0
01390 GFA	LDB #GFAOFF
01400 	BRA CFA+2
01410 *
01420 	FCC 'PFA'
01430 	FCB 3
01440 	FCB MFORE
01450 	FDB GFA-CFAOFF
01460 	FDB BIF+2
01470 	FDB PAD-CFAOFF
01480 	FDB PREV-CFAOFF
01490 PFA	LDB #PFAOFF
01500 	BRA CFA+2
01510 *
01515 * PFA to NFA
01520 	FCC 'NFA'
01530 	FCB 3
01540 	FCB MFORE
01550 	FDB PFA-CFAOFF
01560 	FDB BIF+2
01570 	FDB NCOMMA-CFAOFF
01580 	FDB NOT-CFAOFF
01590 NFA	LDB #-PFAOFF
01600 	BRA CFA+2
01610 *
01620 	FCC '!CSP'
01630 	FCB 4
01640 	FCB MFORE
01650 	FDB NFA-CFAOFF
01660 	FDB BIF+2
01670 	FDB 0
01680 	FDB HASH-CFAOFF
01690 STOCSP	LDX <UP
01700 	STU UCSP,X
01710 	NEXT
01720 *
01730 	FCC 'HEX'
01740 	FCB 3
01750 	FCB MFORE
01760 	FDB STOCSP-CFAOFF
01770 	FDB BIF+2
01780 	FDB 0
01790 	FDB 0
01800 HEX	LDB #16
01810 	CLRA
01820 	LDX <UP
01830 	STD UBASE,X
01840 	NEXT
01850 *
01860 	FCC 'DECIMAL'
01870 	FCB 7
01880 	FCB MFORE
01890 	FDB HEX-CFAOFF
01900 	FDB BIF+2
01910 	FDB DAD-CFAOFF
01920 	FDB DEFS-CFAOFF
01930 DEC	LDB #10
01940 	BRA HEX+2
01950 *
01960 	FCC 'OCTAL'
01970 	FCB 5
01980 	FCB MFORE
01990 	FDB DEC-CFAOFF
02000 	FDB BIF+2
02010 	FDB 0
02020 	FDB OFFSET-CFAOFF
02030 OCT	LDB #8
02040 	BRA HEX+2
02050 *
02060 	FCC 'FILL'
02070 	FCB 4
02080 	FCB MFORE
02090 	FDB OCT-CFAOFF
02100 	FDB BIF+2
02110 	FDB FENCE-CFAOFF
02120 	FDB FILLIN-CFAOFF
02130 FILL	PSHS Y
02140 	PULU D,X,Y
02150 	STB ,Y+
02160 	LEAX -1,X
02170 	BNE *-4
02180 	PULS Y
02190 	NEXT
02200 *
02210 	FCC 'ERASE'
02220 	FCB 5
02230 	FCB MFORE
02240 	FDB FILL-CFAOFF
02250 	FDB BIF+2
02260 	FDB 0
02270 	FDB 0
02280 ERASE	LDB #0
02290 	PSHU D
02300 	BRA FILL
02310 *
02320 	FCC 'BLANKS'
02330 	FCB 6
02340 	FCB MFORE
02350 	FDB ERASE-CFAOFF
02360 	FDB BIF+2
02370 	FDB BL-CFAOFF
02380 	FDB 0
02390 BLANKS	LDB #$20 ascii SP
02400 	PSHU D
02410 	BRA FILL
02420 *
02430 	FCC 'HOLD'
02440 	FCB 4
02450 	FCB MFORE
02460 	FDB BLANKS-CFAOFF
02470 	FDB BIF+2
02480 	FDB 0
02490 	FDB 0
02500 HOLD	PULU D CH
02510 	PSHS Y
02520 	LDY <UP
02530 	LDX UHLD,Y
02540 	STB ,-X
02550 	STX UHLD,Y
02555 	PULS Y
02560 	NEXT
02570 *
02580 	FCC 'PAD'
02590 	FCB 3
02600 	FCB MFORE
02610 	FDB HOLD-CFAOFF
02620 	FDB BIF+2
02630 	FDB 0
02640 	FDB 0
02650 PAD	DOUCON	moved!
02660 	FCB UPAD
02700 *
02710 	FCC 'S->D'
02720 	FCB 4
02730 	FCB MFORE
02740 	FDB PAD-CFAOFF
02750 	FDB BIF+2
02760 	FDB RPSTO-CFAOFF
02770 	FDB SIGN-CFAOFF
02780 STOD	LEAU -2,U
02790 	LDD 2,U
02795 	LBRA ZLESS+2
02800 *
02810 	FCC '+-'
02820 	FCB 2
02830 	FCB MFORE
02840 	FDB STOD-CFAOFF
02850 	FDB BIF+2
02860 	FDB ADDSTO-CFAOFF
02870 	FDB ADDBUF-CFAOFF
02880 CHS	LDD ,U++
02890 	LBMI MINUS
02895 	NEXT
02900 *
02910 	FCC 'D+-'
02920 	FCB 3
02930 	FCB MFORE
02940 	FDB STOD-CFAOFF
02950 	FDB BIF+2
02960 	FDB 0
02970 	FDB 0
02980 DCHS	LDD ,U++
02990 	LBMI DMINUS
02995 	NEXT
03000 *
03010 	FCC 'ABS'
03020 	FCB 3
03030 	FCB MFORE
03040 	FDB DCHS-CFAOFF
03050 	FDB BIF+2
03060 	FDB ABORT-CFAOFF
03070 	FDB ALLOT-CFAOFF
03080 ABS	LDD ,U
03090 	LBMI MINUS
03095 	NEXT
03100 *
03110 	FCC 'DABS'
03120 	FCB 4
03130 	FCB MFORE
03140 	FDB ABS-CFAOFF
03150 	FDB BIF+2
03160 	FDB DSUB-CFAOFF
03170 	FDB DIGIT-CFAOFF
03180 DABS	LDD ,U
03190 	LBMI DMINUS
03195 	NEXT
03200 *
03210 	FCC 'MIN'
03220 	FCB 3
03230 	FCB MFORE
03240 	FDB DABS-CFAOFF
03250 	FDB BIF+2
03260 	FDB MSMOD-CFAOFF
03270 	FDB MOVE-CFAOFF
03280 MIN	PULU D
03284 	CMPD ,U
03288 	BGE *+4
03290 	STD ,U
03295 	NEXT
03300 *
03310 	FCC 'MAX'
03320 	FCB 3
03330 	FCB MFORE
03340 	FDB MIN-CFAOFF
03350 	FDB BIF+2
03360 	FDB 0
03370 	FDB 0
03380 MAX	PULU D
03384 	CMPD ,U
03388 	BLE *+4
03390 	STD ,U
03395 	NEXT
03400 *
03410 	FCC '['
03412 	FCB MIMM.OR.1
03414 	FCB MFORE
03416 	FDB MAX-CFAOFF
03418 	FDB BIF+2
03420 	FDB XOR-CFAOFF
03422 	FDB 0
03430 LBRAK	LDB #.NOT.SCOMP
03435 	LDX <UP
03440 	ANDB USTATE+1,X
03445 	STB USTATE+1,X
03450 	NEXT
03500 *
03510 	FCC ']'
03512 	FCB 1
03514 	FCB MFORE
03516 	FDB LBRAK-CFAOFF
03518 	FDB BIF+2
03520 	FDB 0
03522 	FDB 0
03530 RBRAK	LDB #SCOMP
03535 	LDX <UP
03540 	ORB USTATE+1,X
03545 	STB USTATE+1,X
03550 	NEXT
03555 *
03560 	FCC 'IMMEDIATE'
03562 	FCB 9
03564 	FCB MFORE
03566 	FDB RBRAK-CFAOFF
03568 	FDB BIF+2
03570 	FDB 0
03572 	FDB 0
03580 IMMED	LDB #MIMM
03585 	BRA SMUDGE+2
03600 *
03610 	FCC 'SMUDGE'
03612 	FCB 6
03614 	FCB MFORE
03616 	FDB IMMED-CFAOFF
03618 	FDB BIF+2
03620 	FDB STOD-CFAOFF
03622 	FDB SPACE-CFAOFF
03630 SMUDGE	LDB #MHID
03635 	LDX <UP
03645 	EORB [UCURR,X]
03650 	STB [UCURR,X]
03655 	NEXT
03657 *
03660 	FCC 'COMPILE-ONLY'
03662 	FCB 12
03664 	FCB MFORE
03666 	FDB SMUDGE-CFAOFF
03668 	FDB BIF+2
03670 	FDB 0
03672 	FDB 0
03680 COMPO	LDB #MCOMP
03685 	BRA SMUDGE+2
03800 *
03810 	FCC 'COUNT'
03812 	FCB 5
03814 	FCB MFORE
03816 	FDB COMPO-CFAOFF
03818 	FDB BIF+2
03820 	FDB 0
03822 	FDB 0
03830 COUNT	LDX ,U CT OF STR
03835 	LDB ,X+
03840 	STX ,U STRING
03845 	CLRA
03850 	PSHU D COUNT
03855 	NEXT
03900 *
03910 	FCC '-TRAILING'
03912 	FCB 9
03914 	FCB MFORE
03916 	FDB COUNT-CFAOFF
03918 	FDB BIF+2
03920 	FDB DIFIND-CFAOFF
03922 	FDB 0
03930 DTRAIL	LDD ,U
03935 	LDX 2,U
03940 	LEAX D,X END
03945 	LDA #$20 ascii SP
03950 DTRAL	CMPA ,-X
03955 	BNE DTRAD
03960 	CMPX 2,U
03965 	BHS DTRAL
03970 DTRAD TFR X,D
03975 	SUBD 2,U
03980 	ADDD #1
03985 	STD ,U
03990 	NEXT
04000 *
04010 	FCC '(MACHINE)'
04012 	FCB MCOMP.OR.9
04014 	FCB MFORE
04016 	FDB DTRAIL-CFAOFF
04018 	FDB BIF+2
04020 	FDB XLINE-CFAOFF
04022 	FDB INUMB-CFAOFF
04030 XMACH	TFR Y,X
04040 	PULS Y UN-NEST
04050 	JMP ,X IN LINE MACHINE CODE
04100 *