FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 134

4323 06737 0 07 00736 SUB K102 4324 06740 0 04 00626 STA I I = I-2 4325 06741 0 01 06656 JMP EX62 ASSIGN INT CONSTANT 4326 06742 0 10 03612 EX67 JST AI00 4327 06743 0 35 00626 LDX I 4328 06744 0 02 00625 LDA A 4329 06745 1 04 17400 STA DP,1 A(I) = A 4330 06746 0 02 00735 LDA K101 4331 06747 0414 67 LGL 9 4332 06750 0 06 06221 ADD T3EX 4333 06751 0 06 00747 ADD K127 4334 06752 1 04 17401 STA DP+1,1 OI(I) = +, T3+11 4335 06753 0 10 07106 JST EX99 DATA POOL CHECK 4336 06754 0 01 06640 JMP EX60 4337 06755 0 02 00067 EX68 LDA TC IS TC 4338 06756 0 11 00737 CAS K103 = * 4339 06757 0 01 06761 JMP *+2 4340 06760 0 01 06762 JMP *+2 4341 06761 0 01 06620 JMP EX58 NO 4342 06762 0414 67 LGL 9 4343 06763 0 06 06221 ADD T3EX 4344 06764 0 06 00751 ADD K129 =13 4345 06765 1 04 17401 STA DP+1,1 OI(I) = *, T3+13 4346 06766 0 10 02260 JST IR00 INPUT INTEGER VAR/CON 4347 06767 0 01 06571 JMP EX59 4348 06770 140040 EX69 CRA SET LISTING FOR OCTAL ADDR 4349 06771 0 04 00625 STA A 4350 06772 0 02 13026 LDA OMI5 JMP 0 INSTRUCTION 4351 06773 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 4352 06774 0 02 00643 LDA RPL 4353 06775 0 04 00060 STA O2 4354 06776 0 02 00700 LDA K138 4355 06777 0 04 00061 STA P P = H 4356 07000 0 10 07470 JST ET00 ENTER TRIAD 4357 07001 0 10 06046 JST HS00 TRANSFER HOLLERITH STRING 4358 07002 0 02 00702 LDA CRET (A) = C/R 4359 07003 0 10 11444 JST OK00 OUTPUT PACK 4360 07004 140040 CRA 4361 07005 0 04 00000 STA 0 SET LISTING FOR OCTAL ADDR. 4362 07006 0 04 00625 STA A SET LISTING FOR OCTAL ADDR. 4363 07007 0 02 00060 LDA O2 4364 07010 0 07 00735 SUB K101 4365 07011 0 10 13257 JST OS00 OUTPUT STRING RPL-1 4366 07012 0 10 01157 JST CH00 INPUT CHARACTER 4367 07013 0 10 01307 JST FN00 4368 07014 0 35 00626 LDX I RESET INDEX 4369 07015 0 02 00627 LDA L 4370 07016 1 04 17400 STA DP,1 A(I) = L 4371 07017 0 01 07026 JMP EX76 4372 07020 0 02 00025 EX74 LDA AF