F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 65

2663 * **** < **** 2664 * HEAD FNUL,<,LESS 2665 002301 TLNK SET * 2666 02301 000474 VFD 1,0,1,FNUL,6,1,8,'074 2667 * =<FNUL,1>,'<' 2668 02302 0 002271 DAC LINK 2669 002301 LINK SET TLNK 2670 002303 LESS EQU * 2671 02303 1 02 00002 LDA 2,1 2672 02304 1 11 00001 CAS 1,1 2673 02305 0 01 02311 JMP LES2 2674 02306 0 01 02311 JMP LES2 2675 02307 0 02 00736 LES1 LDA =1 2676 02310 0 01 00124 JMP BINA 2677 02311 140040 LES2 CRA 2678 02312 0 01 00124 JMP BINA 2679 * 2680 * **** > **** 2681 * HEAD FNUL,>,GRTR 2682 002313 TLNK SET * 2683 02313 000476 VFD 1,0,1,FNUL,6,1,8,'076 2684 * =<FNUL,1>,'>' 2685 02314 0 002301 DAC LINK 2686 002313 LINK SET TLNK 2687 002315 GRTR EQU * 2688 02315 1 02 00002 LDA 2,1 2689 02316 1 11 00001 CAS 1,1 2690 02317 0 01 02307 JMP LES1 2691 02320 0 01 02311 JMP LES2 2692 02321 0 01 02311 JMP LES2 2693 * 2694 * **** ROT **** ( N1 N2 N3 --- N2 N3 N1 ) 2695 * HEAD FNUL,ROT,ROT 2696 002322 TLNK SET * 2697 02322 001722 VFD 1,0,1,FNUL,6,3,8,'322 2698 * =<FNUL,3>,'R' 2699 02323 147524 VFD 8,'317,8,'124 ='OT' 2700 02324 0 002313 DAC LINK 2701 002322 LINK SET TLNK 2702 002325 ROT EQU * 2703 02325 1 02 00001 LDA 1,1 N3 2704 02326 1 13 00002 IMA 2,1 STORE N3, GET N2 2705 02327 1 13 00003 IMA 3,1 STORE N2, GET N1 2706 02330 0 01 00125 JMP PUT 2707 * 2708 * **** SPACE **** TYPE ONE SPACE 2709 * HEAD FNUL,SPACE,SPCE,DOCL 2710 002331 TLNK SET * 2711 02331 002723 VFD 1,0,1,FNUL,6,5,8,'323 2712 * =<FNUL,5>,'S'