FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 187

6234 12107 0 01 12114 JMP OT3A .GT. 6235 12110 0 02 13036 LDA OMJ4 .NE. =ALS 16 6236 12111 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 6237 12112 0 02 13040 LDA OMJ6 =ACA 6238 12113 0 01 12125 JMP OT3D 6239 12114 0 02 13041 OT3A LDA OMJ7 =TCA 6240 12115 0 01 12132 JMP OT3F 6241 12116 0 02 13042 OT3B LDA OMK1 =CMA 6242 12117 0 01 12132 JMP OT3F 6243 12120 0 02 13036 OT3C LDA OMJ4 = ALS 16 6244 12121 0 10 13235 JST OQ00 6245 12122 0 02 13043 LDA OMK2 =SSC 6246 12123 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 6247 12124 0 02 13044 LDA OMK3 =AOA 6248 12125 0 10 13235 OT3D JST OQ00 OUTPUT ABSOLUTE 6249 12126 0 01 12017 JMP OT22 6250 12127 0 02 13034 OT3E LDA OMJ2 =SNZ 6251 12130 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 6252 12131 0 02 13045 LDA OMK4 =SSM 6253 12132 0 10 13235 OT3F JST OQ00 OUTPUT ABSOLUTE 6254 12133 0 02 13037 OT3G LDA OMJ5 =LGR 15 6255 12134 0 01 12125 JMP OT3D 6256 12135 0 10 02615 OT3H JST ER00 ERROR 6257 12136 151303 BCI 1,RC COMPLEX VALUE IN RELATIONAL EXPESSION 6258 * 6259 12137 146260 K78 BCI 1,L0 6260 * 6261 12140 1 02 17401 OT35 LDA DP+1,1 6262 12141 0 04 00625 STA A 6263 12142 0 10 03317 JST FA00 6264 12143 0 02 00706 LDA IM NAME WILL BE FSL(IM) 6265 12144 0 06 12137 ADD K78 6266 12145 0 04 11700 STA T4OT 6267 12146 0 02 00625 LDA A 6268 12147 100400 SPL 6269 12150 0 10 03443 JST KT00 6270 12151 0 02 00030 LDA D0 6271 12152 100040 SZE SKIP IF UNKNOWN (ADJ. DIM. ARRAY) 6272 12153 0 01 12201 JMP OT37 6273 12154 0 02 00071 LDA X OUTPUT CODE TO COMPUTE SIZE 6274 12155 0 04 00625 STA A 6275 12156 0 02 12427 LDA K152 6276 12157 0 10 12247 JST OM00 (OUTPUT LOAD = DIMENSION N) 6277 12160 0 02 00076 LDA ND 6278 12161 0 04 00000 STA 0 6279 12162 0 07 00735 SUB K101 6280 12163 100400 SPL SKIP IF NOT THROUGH 6281 12164 0 01 12172 JMP OT36 6282 12165 0 04 00076 STA ND 6283 12166 1 02 00071 LDA X,1