00010 * Include file for BIF 00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM) 00030 * 01000 FCC 'M*' 01010 FCB 2 01020 FCB MFORE 01030 FDB DO-CFAOFF 01040 FDB BIF+2 01050 FDB 0 01060 FDB MSLASH-CFAOFF 01070 MSTAR LDD ,U see fig-FORTH model 01080 EORA 2,U n bit 01090 PSHS D 01100 DOCOL 01110 FDB ABS 01120 FDB SWAP 01130 FDB ABS 01140 FDB USTAR 01150 FDB XMACH 01160 LDD ,S++ 01170 LBMI DMINUS 01180 NEXT 01190 * 01200 FCC 'M/' 01210 FCB 2 01220 FCB MFORE 01230 FDB MSTAR-CFAOFF 01240 FDB BIF+2 01250 FDB 0 01260 FDB 0 01270 MSLASH DOCOL see fig-FORTH model 01280 FDB OVER 01290 FDB TOR signs: dividend 01300 FDB TOR & divisor 01310 FDB DABS 01320 FDB R divisor 01330 FDB ABS 01340 FDB USLASH 01350 FDB RFROM divisor 01360 FDB R 01370 FDB XOR quotient sign 01380 FDB CHS 01390 FDB SWAP remainder 01400 FDB RFROM dividend sign 01410 FDB CHS 01420 FDB SWAP 01430 FDB SEMIS 01500 * 01510 FCC '*' 01520 FCB 1 01530 FCB MFORE 01540 FDB MSLASH-CFAOFF 01550 FDB BIF+2 01560 FDB PFIND-CFAOFF 01570 FDB SSMOD-CFAOFF 01580 STAR DOCOL see fig-FORTH model 01590 FDB USTAR 01600 FDB DROP 01610 FDB SEMIS 01700 * 01710 FCC '/MOD' 01720 FCB 4 01730 FCB MFORE 01740 FDB STAR-CFAOFF 01750 FDB BIF+2 01760 FDB 0 01770 FDB 0 01780 SLAMOD LDD ,U 01790 PSHU D 01800 LDD #-1 01810 TST 4,U sign extend 01820 BMI *+5 01830 ADDD #1 01840 STD 2,U 01850 LBRA MSLASH 01900 * 01910 FCC '/' 01920 FCB 1 01930 FCB MFORE 01940 FDB SLAMOD-CFAOFF 01950 FDB BIF+2 01960 FDB NEXSCR-CFAOFF 01970 FDB ADD1-CFAOFF 01980 SLASH DOCOL see fig-FORTH model 01990 FDB SLAMOD 02000 FDB SWAP 02010 FDB DROP 02020 FDB SEMIS 02100 * 02110 FCC 'MOD' 02120 FCB 3 02130 FCB MFORE 02140 FDB SLASH-CFAOFF 02150 FDB BIF+2 02160 FDB 0 02170 FDB 0 02180 MOD DOCOL see fig-FORTH model 02190 FDB SLAMOD 02210 FDB DROP 02220 FDB SEMIS 02300 * 02310 FCC '*/MOD' 02320 FCB 5 02330 FCB MFORE 02340 FDB MOD-CFAOFF 02350 FDB BIF+2 02360 FDB STARSL-CFAOFF 02370 FDB 0 02380 SSMOD DOCOL see fig-FORTH model 02390 FDB TOR 02400 FDB MSTAR 02410 FDB RFROM 02420 FDB MSLASH 02430 FDB SEMIS 02500 * 02510 FCC '*/' 02520 FCB 2 02530 FCB MFORE 02540 FDB SSMOD-CFAOFF 02550 FDB BIF+2 02560 FDB 0 02570 FDB 0 02580 STARSL DOCOL see fig-FORTH model 02590 FDB SSMOD 02600 FDB SWAP 02610 FDB DROP 02630 FDB SEMIS 02700 * 02710 FCC 'M/MOD' 02720 FCB 5 02730 FCB MFORE 02740 FDB STARSL-CFAOFF 02750 FDB BIF+2 02760 FDB MSTAR-CFAOFF 02770 FDB MESS-CFAOFF 02780 MSMOD DOCOL see fig-FORTH model 02790 FDB TOR 02800 FDB ZERO 02810 FDB R 02820 FDB USLASH ms word 02830 FDB RFROM 02840 FDB SWAP 02850 FDB TOR save high q 02860 FDB USLASH ls word 02870 FDB RFROM double q 02880 FDB SEMIS 02900 * 02910 FCC '+BUF' 02920 FCB 4 02930 FCB MFORE 02940 FDB MSMOD-CFAOFF 02950 FDB BIF+2 02960 FDB 0 02970 FDB 0 02980 ADDBUF LDX