FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 199

6828 13156 0 01 13161 JMP *+3 6829 13157 0 12 00000 IRS 0 6830 13160 0 01 13154 JMP *-4 6831 13161 1 02 14627 LDA OR92+NINS,1 6832 13162 0 04 13751 STA PRI+5 6833 13163 1 02 14674 LDA OR93+NINS,1 6834 13164 0 04 13752 STA PRI+6 6835 13165 0 35 13167 LDX ORXS RESTORE INDEX 6836 13166 -0 01 13133 JMP* OR23 RETURN 6837 13167 ORXS BSS 1 TEMP STORAGE FOR INDEX 6838 * 6839 13170 0 10 13133 OR20 JST OR23 ENTER SYMBOLIC OP IN LISTING 6840 13171 0 02 00625 LDA A 6841 13172 100040 SZE 6842 13173 0 01 13177 JMP OR30 6843 13174 0 02 00025 LDA AF 6844 13175 0 03 00670 ANA K111 MASK OUT HIGH BITS OF ADDRESS 6845 13176 0 01 13113 JMP OR13 6846 13177 0 35 00625 OR30 LDX A 6847 13200 1 02 17400 LDA DP,1 6848 13201 101400 SMI 6849 13202 0 01 13222 JMP OR40 6850 13203 0 02 13401 LDA K149 6851 13204 0 04 13754 STA PRI+8 SET =' INTO LISTING 6852 13205 1 02 17400 LDA DP,1 CHECK IM (A) 6853 13206 0414 74 LGL 4 6854 13207 100400 SPL SKIP IF NOT COMPLEX 6855 13210 0 01 13214 JMP *+4 6856 13211 0414 76 LGL 2 6857 13212 100400 SPL SKIP IF INTEGER OR LOGICAL 6858 13213 0 01 13216 JMP *+3 6859 13214 1 02 17402 LDA DP+2,1 6860 13215 0 01 13217 JMP *+2 LIST EXPONENT AND PART OF FRACTION 6861 13216 1 02 17404 LDA DP+4,1 LIST INTEGER VALUE 6862 13217 0 10 13272 JST OR80 CONVERT OCTAL 6863 13220 0 013755 DAC PRI+9 6864 13221 0 01 13115 JMP OR15 6865 13222 1 02 17404 OR40 LDA DP+4,1 CONVERT AND PACK INTO 6866 13223 0416 77 ALR 1 6867 13224 140500 SSM SYMBOLIC IMAGE 6868 13225 0406 77 ARR 1 6869 13226 140500 SSM 6870 13227 0 04 13754 STA PRI+8 6871 13230 1 02 17403 LDA DP+3,1 6872 13231 0 04 13755 STA PRI+9 6873 13232 1 02 17402 LDA DP+2,1 6874 13233 0 04 13756 STA PRI+10 6875 13234 0 01 13115 JMP OR15 6876 EJCT