F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 134

5857 05734 000215 KCCR VFD 16,CCR 5858 05735 000212 KCLF VFD 16,CLF 5859 ENDC 5860 * 5861 * **** ?TERMINAL **** 5862 05736 34 0104 PQTR SKS '104 SKIP IF NOT BUSY 5863 05737 0 01 05736 JMP *-1 5864 05740 14 0004 OCP '4 SELECT INPUT MODE 5865 05741 0 02 00736 LDA =1 5866 05742 34 0004 SKS '4 SKIP IF READY 5867 05743 140040 CRA 5868 05744 0 01 00116 JMP PUSH 5869 * 5870 * **** CR **** 5871 05745 0 10 05750 PCR JST CRLF 5872 * 5873 * NEXT 5874 05746 0 12 00100 IRS IP 5875 05747 -0 01 00100 JMP* IP 5876 * 5877 05750 0 000000 CRLF DAC ** 5878 05751 0 02 05754 LDA CRL1 5879 05752 0 10 05711 JST OUT2 5880 05753 -0 01 05750 JMP* CRLF 5881 05754 106612 CRL1 VFD 8,CCR,8,CLF 5882 * 5883 * PAPERTAPE ROUTINES 5884 * 5885 IFN PTW 5886 05755 14 0001 PPTC OCP '1 START READER 5887 05756 54 1001 INA '1001 INPUT 5888 05757 0 01 05756 JMP *-1 5889 05760 14 0101 OCP '101 STOP READER 5890 05761 0 01 00116 JMP PUSH 5891 ENDC 5892 * 5893 * 5894 * DEBUG 5895 * 5896 * 5897 IFN DBGW 5898 OCTC BSS 1 5899 * 5900 OCTL DAC ** 5901 IAB 5902 LDA =-6 5903 STA OCTC 5904 CRA 5905 LLR 1 MSB ROTATES INTO A 5906 *