FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 188

6284 12167 0 04 00625 STA A 6285 12170 0 02 00737 LDA K103 (OUTPUT MULT = DIMENSION N-1) 6286 12171 0 01 12250 JMP OM01 REPEAT ABOVE TILL DONE 6287 12172 140040 OT36 CRA FORCE OCTAL LISTING FOR NEXT OUTPUT 6288 12173 0 04 00625 STA A 6289 12174 0 02 00643 LDA RPL OUTPUT 'STORE *+2' 6290 12175 0 06 00736 ADD K102 6291 12176 0 04 00025 STA AF 6292 12177 0 02 13031 LDA OMI8 6293 12200 0 10 13072 JST OR00 6294 12201 0 04 00774 OT37 STA ID 6295 12202 0 02 11700 LDA T4OT 6296 12203 0 04 00052 STA NAMF+1 6297 12204 0 10 02501 JST NF00 6298 12205 0 10 11332 JST OL00 OUTPUT OBJECT LINK 6299 12206 0 01 12011 JMP OT18 GO TO OT18 6300 12207 1 02 17400 OT40 LDA DP,1 6301 12210 0 06 00655 ADD DO 6302 12211 0 04 00626 STA I I = O2 (I) + DO 6303 12212 0 10 06155 JST DQ00 DO TERMINATION 6304 12213 0 02 11675 OT45 LDA T2OT 6305 12214 0 04 00626 STA I I = T2 6306 12215 0 01 12052 JMP OT28 6307 12216 1 02 17400 OT50 LDA DP,1 6308 12217 0 06 00655 ADD DO I=O2(1)+DO 6309 12220 0 04 00626 STA I IF I = DO 6310 12221 0 07 00655 SUB DO 6311 12222 100040 SZE GO TO OT45 6312 12223 0 10 06131 JST DS00 DO INITIALIZE 6313 12224 0 01 12213 JMP OT45 GO TO OT45 6314 12225 0 35 12231 OT60 LDX OTXS RESTORE INDEX 6315 12226 0 02 00113 LDA L0 RESET TRIAD TABLE 6316 12227 0 04 00627 STA L 6317 12230 -0 01 11701 JMP* OT00 6318 12231 OTXS BSS 1 TEMP STORAGE FOR INDEX 6319 * 6320 12232 0 02 11677 OT99 LDA T3OT 6321 12233 0 07 00753 SUB K153 CODE FOR = 6322 12234 100040 SZE 6323 12235 0 01 12061 JMP OT16 NOT SPECIAL LOAD 6324 12236 0 04 00630 STA MFL SPECIAL LOAD, SET MFL=0 6325 12237 0 01 12011 JMP OT18 OUTPUT A STORE 6326 12240 152244 K77 BCI 1,T$ T$ 6327 EJCT