F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 133

5807 05665 1 02 00001 PEMT LDA 1,1 5808 05666 0 03 00733 ANA ='177 LOSE TOP BIT 5809 05667 0 11 00712 CAS ='40 5810 05670 0 01 05675 JMP EMT2 >'40 5811 05671 0 01 05675 JMP EMT2 ='40 5812 * IS A CONTROL CHARACTER 5813 05672 1 02 00001 EMT1 LDA 1,1 GET WHOLE CHARACTER BACK 5814 05673 0 10 05702 JST OUT1 5815 05674 0 01 00113 JMP POP 5816 * 5817 * INCREMENT 'OUT', UNLESS A CONTROL CHARACTER BEING OUTPUT. 5818 05675 0 02 00103 EMT2 LDA UP 5819 05676 0 06 00711 ADD ='21 5820 05677 0 04 00104 STA T1 5821 05700 -0 12 00104 IRS* T1 5822 05701 0 01 05672 JMP EMT1 5823 * 5824 05702 0 000000 OUT1 DAC ** 5825 05703 34 0104 SKS '104 5826 05704 0 01 05703 JMP *-1 5827 05705 14 0104 OCP '104 5828 05706 74 0004 OTA '4 5829 05707 0 01 05706 JMP *-1 5830 05710 -0 01 05702 JMP* OUT1 5831 * 5832 05711 0 000000 OUT2 DAC ** 5833 05712 0406 70 ARR 8 5834 05713 0 10 05702 JST OUT1 5835 05714 0416 70 ALR 8 5836 05715 0 10 05702 JST OUT1 5837 05716 -0 01 05711 JMP* OUT2 5838 * 5839 * **** KEY **** 5840 05717 34 0104 PKEY SKS '104 SKIP IF NOT BUSY 5841 05720 0 01 05717 JMP *-1 5842 05721 14 0004 OCP '4 SELECT INPUT MODE 5843 05722 54 1004 INA '1004 INPUT 5844 05723 0 01 05722 JMP *-1 5845 IFZ ECLF 5846 JMP PUSH 5847 ELSE 5848 05724 0 11 05734 CAS KCCR 5849 05725 0 01 00116 JMP PUSH 5850 05726 100000 SKP 5851 05727 0 01 00116 JMP PUSH 5852 05730 0 02 05735 LDA KCLF 5853 05731 0 10 05702 JST OUT1 5854 05732 0 02 05734 LDA KCCR 5855 05733 0 01 00116 JMP PUSH 5856 *