FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 181

5940 * 5941 * 5942 * *********** 5943 * *OUTPUT OA* 5944 * *********** 5945 * GENERAL OUTPUT ROUTINE. MAKES CHECKS AGAINST 5946 * THE ASSIGNMENT TABLE ENTRY TO PROCESS DUMMY, 5947 * EXTERNAL, RELATIVE, ABSOLUTE OR STRING 5948 * REFERENCES PROPERLY. 5949 11470 0 00 00000 T1OB PZE 0 5950 11471 0 000000 OB00 DAC ** 5951 11472 0 04 00043 STA FTOP FTOP = (A) 5952 11473 000201 IAB 5953 11474 0 04 11470 STA T1OB 5954 11475 0 35 00625 LDX A 5955 11476 0 02 00625 LDA A 5956 11477 101040 SNZ IF A = 0 5957 11500 0 01 11540 JMP OB08 GO TO OB08 5958 11501 0 10 03317 JST FA00 FETCH ASSIGNS 5959 11502 0 02 00647 LDA SOF SPECIAL OUTPUT FLAT 5960 11503 100040 SZE 5961 11504 0 01 11660 JMP OB60 SUBSCQIPT CONSTANT DEFLECTION 5962 11505 0 02 00025 LDA AF 5963 11506 0 04 11470 STA T1OB T0 = AF 5964 11507 0 02 00026 LDA AT 5965 11510 0 07 00741 SUB K105 IF AT = 'DUM' 5966 11511 101040 SNZ 5967 11512 0 01 11550 JMP OB15 GO TO OB15 5968 11513 0 02 00710 LDA IU 5969 11514 0 07 00735 SUB K101 IF IU = 'SUB' 5970 11515 101040 SNZ 5971 11516 0 01 11653 JMP OB40 GO TO OB40 5972 11517 0 02 00026 OB06 LDA AT 5973 11520 0 11 00740 CAS K104 IF AT = 'COM' 5974 11521 0 01 11523 JMP *+2 5975 11522 0 01 11554 JMP OB20 GO TO OB20 5976 11523 0 11 00735 CAS K101 5977 11524 0 01 11526 JMP *+2 IF AT = 'REL' 5978 11525 0 01 11543 JMP OB10 GO TO OB10 5979 11526 0 02 00737 LDA K103 5980 11527 000201 IAB 5981 11530 0 02 00643 LDA RPL 5982 11531 0 10 03571 JST AF00 DEFINE AF AND AT 5983 11532 0 02 00026 LDA AT IF AT = 'STR-RE' 5984 11533 0 07 00737 SUB K103 5985 11534 101040 SNZ 5986 11535 0 01 11543 JMP OB10 GO TO OB10 5987 11536 140040 CRA 5988 11537 0 04 00025 STA AF AF = 0 5989 11540 0 02 00043 OB08 LDA FTOP