Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 61

2491 * 2492 * **** FLD **** 2493 * HEAD FNUL,FLD,FLD,DOUS 2494 002161 TLNK SET * 2495 02161 001706 VFD 1,0,1,FNUL,6,3,8,'306 2496 * =<FNUL,3>,'F' 2497 02162 146104 VFD 8,'314,8,'104 ='LD' 2498 02163 0 002154 DAC LINK 2499 002161 LINK SET TLNK 2500 02164 0 10 00146 FLD JST DOUS 2501 02165 000031 OCT 31 2502 * 2503 * **** CSP **** USED BY COMPILER TO HOLD CURRENT STACK POSITION, 2504 * FOR ERROR CHECKING. 2505 * HEAD FNUL,CSP,CSP,DOUS 2506 002166 TLNK SET * 2507 02166 001703 VFD 1,0,1,FNUL,6,3,8,'303 2508 * =<FNUL,3>,'C' 2509 02167 151520 VFD 8,'323,8,'120 ='SP' 2510 02170 0 002161 DAC LINK 2511 002166 LINK SET TLNK 2512 02171 0 10 00146 CSP JST DOUS 2513 02172 000032 OCT 32 2514 * 2515 * **** R# **** CURSOR POSITION (FOR SOME EDITORS). 2516 * HEAD FNUL,R#,RNUM,DOUS 2517 002173 TLNK SET * 2518 02173 001322 VFD 1,0,1,FNUL,6,2,8,'322 2519 * =<FNUL,2>,'R' 2520 02174 021400 VFD 8,'043 =' ' 2521 02175 0 002166 DAC LINK 2522 002173 LINK SET TLNK 2523 02176 0 10 00146 RNUM JST DOUS 2524 02177 000033 OCT 33 2525 * 2526 * **** HLD **** POINTS TO LAST CHARACTER HELD IN 'PAD' 2527 * HEAD FNUL,HLD,HLD,DOUS 2528 002200 TLNK SET * 2529 02200 001710 VFD 1,0,1,FNUL,6,3,8,'310 2530 * =<FNUL,3>,'H' 2531 02201 146104 VFD 8,'314,8,'104 ='LD' 2532 02202 0 002173 DAC LINK 2533 002200 LINK SET TLNK 2534 02203 0 10 00146 HLD JST DOUS 2535 02204 000034 OCT 34 2536 * 2537 * **** USE **** 2538 * HEAD FNUL,USE,USE,DOUS 2539 002205 TLNK SET * 2540 02205 001725 VFD 1,0,1,FNUL,6,3,8,'325
  Previous Page Single Page Next Page