FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 198

6778 13075 0 04 00035 STA DF CODE = 2 6779 13076 0 04 00027 OR10 STA CODE 6780 13077 0 02 00643 LDA RPL LIST RPL 6781 13100 140100 SSP 6782 13101 0 10 13272 JST OR80 6783 13102 0 013744 DAC PRI 6784 13103 0 02 00035 LDA DF IF DF NOT ZERO 6785 13104 100040 SZE 6786 13105 0 01 13170 JMP OR20 GO TO OR20 6787 13106 0 02 13131 LDA OR18 ='147703 6788 13107 0 04 13751 STA PRI+5 6789 13110 0 02 13132 LDA OR19 SET 'OCT' INTO PRINT IMAGE 6790 13111 0 04 13752 STA PRI+6 6791 13112 0 02 00043 LDA FTOP 6792 13113 0 10 13272 OR13 JST OR80 6793 13114 0 013754 DAC PRI+8 6794 13115 0 02 00643 OR15 LDA RPL IF RPL PLUS 6795 13116 101400 SMI 6796 13117 0 10 13402 JST OW00 OUTPUT WORD 6797 13120 0 02 01060 LDA LIBF CHECK IO SEE IF BIT 3 IS SET 6798 13121 0 03 14677 ANA ='20000 6799 13122 0 05 14677 ERA ='20000 6800 13123 101040 C3R2 SNZ SKIP IF BIT 3 IS NOT SET 6801 13124 0 01 13127 JMP *+3 SURPRESS SYMBOLIC OUTPUT 6802 13125 0 10 00000 CALL F4$SYM LIST LINE 6803 13126 0 013744 DAC PRI 6804 13127 0 10 13321 JST PRSP SET PRINT BUFFER TO SPACES 6805 13130 -0 01 13072 JMP* OR00 RETURN 6806 13131 147703 OR18 OCT 147703 (O)(C) 6807 13132 152240 OR19 OCT 152240 (T)(SP) 6808 * SUBR TO ENTER SYMBOLIC OF IN LISTING 6809 13133 0 013133 OR23 DAC * 6810 13134 0 15 13167 STX ORXS SAVE INDEX 6811 13135 0 02 13320 LDA OR90 SEARCH OP-CODE LIST 6812 13136 140407 TCA 6813 13137 0 04 00000 STA 0 PUT BCI IN PRINT IMAGE 6814 13140 0 02 00043 LDA FTOP 6815 13141 140100 SSP 6816 13142 100040 SZE 6817 13143 0 01 13153 JMP OR24 6818 13144 0 02 00026 LDA AT 6819 13145 0 11 00737 CAS K103 6820 13146 0 07 00742 SUB K106 6821 13147 0 06 00736 ADD K102 6822 13150 140401 CMA 6823 13151 0 03 00743 ANA K107 6824 13152 0 04 00027 STA CODE 6825 13153 0 02 00043 OR24 LDA FTOP 6826 13154 1 11 13065 CAS OR91+NINS,1 6827 13155 0 01 13157 JMP *+2