F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 58

2344 02047 045400 VFD 8,'113 ='K' 2345 02050 0 002036 DAC LINK 2346 002043 LINK SET TLNK 2347 02051 0 10 00146 VOCL JST DOUS 2348 02052 000012 OCT 12 2349 * 2350 * **** FIRST **** ADDRESS OF BEGINNING OF DISK BUFFER. 2351 * HEAD FNUL,FIRST,FRST,DOUS 2352 002053 TLNK SET * 2353 02053 002706 VFD 1,0,1,FNUL,6,5,8,'306 2354 * =<FNUL,5>,'F' 2355 02054 144722 BCI 1,IR 2356 02055 151524 VFD 8,'323,8,'124 ='ST' 2357 02056 0 002043 DAC LINK 2358 002053 LINK SET TLNK 2359 02057 0 10 00146 FRST JST DOUS 2360 02060 000013 OCT 13 2361 * 2362 * **** LIMIT **** ADDRESS JUST BEYOND END OF DISK BUFFERS. 2363 * HEAD FNUL,LIMIT,LIMT,DOUS 2364 002061 TLNK SET * 2365 02061 002714 VFD 1,0,1,FNUL,6,5,8,'314 2366 * =<FNUL,5>,'L' 2367 02062 144715 BCI 1,IM 2368 02063 144524 VFD 8,'311,8,'124 ='IT' 2369 02064 0 002053 DAC LINK 2370 002061 LINK SET TLNK 2371 02065 0 10 00146 LIMT JST DOUS 2372 02066 000014 OCT 14 2373 * 2374 * POSITIONS '15 AND '16 ARE AVAILABLE FOR EXPANSION. 2375 * THEY ARE INITIALIZED FROM BOOT-UP TABLE, AT COLD START. 2376 * 2377 * **** BLK **** CURRENT DISK BLOCK BEING LOADED (0=TERMINAL) 2378 * HEAD FNUL,BLK,BLK,DOUS 2379 002067 TLNK SET * 2380 02067 001702 VFD 1,0,1,FNUL,6,3,8,'302 2381 * =<FNUL,3>,'B' 2382 02070 146113 VFD 8,'314,8,'113 ='LK' 2383 02071 0 002061 DAC LINK 2384 002067 LINK SET TLNK 2385 02072 0 10 00146 BLK JST DOUS 2386 02073 000017 OCT 17 2387 * 2388 * **** IN **** OFFSET IN TERMINAL INPUT BUFFER. 2389 * HEAD FNUL,IN,IN,DOUS 2390 002074 TLNK SET * 2391 02074 001311 VFD 1,0,1,FNUL,6,2,8,'311 2392 * =<FNUL,2>,'I' 2393 02075 047000 VFD 8,'116 ='N'