1 00010 * Include file for BIF
2 00020 * BIF Copyright 1989 Joel Matthew Rees (see BIF/ASM)
7 05190 FDB ADDSTO-CFAOFF
21 05330 FDB BUFFER-CFAOFF
45 05570 FDB RFROM-CFAOFF
46 05580 FDB SMUDGE-CFAOFF
54 05660 FCC 'BACK' back ref
59 05710 FDB BPBUF-CFAOFF
60 05720 FDB BEGIN-CFAOFF
86 06040 FDB HASHS-CFAOFF
88 06055 * ' see fig-FORTH model
102 07030 FDB TICK-CFAOFF
104 07050 FDB PLOOP-CFAOFF
106 07065 * --> see fig-FORTH model
116 07160 FDB MOD remaining in screen
119 07190 FDB ADDSTO to next
125 07330 FDB NEXSCR-CFAOFF
127 07350 FDB SUB1-CFAOFF
135 07420 CMPX #255 0<el-size<256
137 07440 ONEARE LDD #$0D
140 07470 ONEARW LDD 4,U swap
145 07520 BLT ONEARE real dimension?
146 07530 ADDD #1 element count
151 07580 FDB LIT overflow?
154 07610 FDB TOR byte count
156 07630 FDB COMMA width
157 07640 FDB CCOMMA element size
163 07700 FCC 'UTILITIES'
166 07730 FDB ONEARR-CFAOFF
171 07780 FDB DPFEH-CFAOFF
176 07930 FDB UTIL-CFAOFF
185 08000 FCC 'DCONSTANT'
188 08030 FDB DPFEH-CFAOFF
204 08330 FDB DCON-CFAOFF
207 08360 FDB SWAN-CFAOFF
210 08390 STA 1,U MS byte
216 08530 FDB SWAB-CFAOFF