F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 55

2198 001734 LINK SET TLNK 2199 01737 0 10 00140 BL JST DOCN 2200 01740 000240 VFD 16,CSPC 2201 * 2202 * **** C/L **** # OF CHARACTERS PER LINE 2203 * HEAD FNUL,C/L,CL,DOCN 2204 001741 TLNK SET * 2205 01741 001703 VFD 1,0,1,FNUL,6,3,8,'303 2206 * =<FNUL,3>,'C' 2207 01742 127514 VFD 8,'257,8,'114 ='/L' 2208 01743 0 001734 DAC LINK 2209 001741 LINK SET TLNK 2210 01744 0 10 00140 CL JST DOCN 2211 01745 000100 OCT 100 2212 * 2213 * 'FIRST' AND 'LIMIT' MOVED TO USER AREA 2214 * 2215 * **** B/BUF **** BYTES PER DISK-BLOCK BUFFER. 2216 * HEAD FNUL,B/BUF,BBUF,DOCN 2217 001746 TLNK SET * 2218 01746 002702 VFD 1,0,1,FNUL,6,5,8,'302 2219 * =<FNUL,5>,'B' 2220 01747 127702 BCI 1,/B 2221 01750 152506 VFD 8,'325,8,'106 ='UF' 2222 01751 0 001741 DAC LINK 2223 001746 LINK SET TLNK 2224 01752 0 10 00140 BBUF JST DOCN 2225 01753 002000 DEC 1024 2226 * 2227 * **** B/SCR **** DISK BLOCKS PER FORTH SCREEN. 2228 * HEAD FNUL,B/SCR,BSCR,DOCN 2229 001754 TLNK SET * 2230 01754 002702 VFD 1,0,1,FNUL,6,5,8,'302 2231 * =<FNUL,5>,'B' 2232 01755 127723 BCI 1,/S 2233 01756 141522 VFD 8,'303,8,'122 ='CR' 2234 01757 0 001746 DAC LINK 2235 001754 LINK SET TLNK 2236 01760 0 10 00140 BSCR JST DOCN 2237 01761 000001 DEC 1 2238 * 2239 * **** +ORIGIN **** RETURNS ADDRESS, GIVEN OFFSET FROM ORIGIN. 2240 * HEAD FNUL,+ORIGIN,PORG,DOCL 2241 001762 TLNK SET * 2242 01762 003653 VFD 1,0,1,FNUL,6,7,8,'253 2243 * =<FNUL,7>,'+' 2244 01763 147722 BCI 2,ORIG 01764 144707 2245 01765 144516 VFD 8,'311,8,'116 ='IN' 2246 01766 0 001754 DAC LINK