Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 64

2613 02251 0 002041 DAC DP 2614 02252 0 001546 DAC PSTR 2615 02253 0 001361 DAC SMIS 2616 * 2617 * **** , **** 2618 * ( N --- ) L0 2619 * STORE N INTO THE NEXT AVAILABLE DICTIONARY MEMORY CELL, ADVANCING 2620 * THE DICTIONARY POINTER. 2621 * HEAD FNUL,$,,COMA,DOCL 2622 002254 TLNK SET * 2623 02254 000454 VFD 1,0,1,FNUL,6,1,8,'054 2624 * =<FNUL,1>,',' 2625 02255 0 002244 DAC LINK 2626 002254 LINK SET TLNK 2627 02256 0 10 00130 COMA JST DOCL 2628 02257 0 002240 DAC HERE 2629 02260 0 001577 DAC STOR 2630 02261 0 001722 DAC ONE 2631 02262 0 002250 DAC ALOT 2632 02263 0 001361 DAC SMIS 2633 * 2634 * THIS SYSTEM DOES NOT USE 'C,' 2635 * 2636 * **** - **** 2637 * HEAD FNUL,-,SUB 2638 002264 TLNK SET * 2639 02264 000455 VFD 1,0,1,FNUL,6,1,8,'055 2640 * =<FNUL,1>,'-' 2641 02265 0 002254 DAC LINK 2642 002264 LINK SET TLNK 2643 002266 SUB EQU * 2644 02266 1 02 00002 LDA 2,1 2645 02267 1 07 00001 SUB 1,1 2646 02270 0 01 00124 JMP BINA 2647 * 2648 * **** = **** 2649 * HEAD FNUL,=,EQAL 2650 002271 TLNK SET * 2651 02271 000475 VFD 1,0,1,FNUL,6,1,8,'075 2652 * =<FNUL,1>,'=' 2653 02272 0 002264 DAC LINK 2654 002271 LINK SET TLNK 2655 002273 EQAL EQU * 2656 02273 1 02 00002 LDA 2,1 2657 02274 1 05 00001 ERA 1,1 2658 02275 100040 SZE EQUAL? 2659 02276 0 02 00715 LDA =-1 NO: -1=>0 2660 02277 141206 AOA YES: 0=>1 2661 02300 0 01 00124 JMP BINA 2662 *
  Previous Page Single Page Next Page