C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 124

5986 12455 0 02 00741 LDA K123 PKF = - 1 5987 12456 0 04 12435 STA PKF 5988 12457 -0 01 12437 JMP* OK00 RETURN 5989 12460 0 02 12435 OK30 LDA PKF IF PKF = 0 5990 12461 101040 SNZ 5991 12462 -0 01 12437 JMP* OK00 RETURN 5992 12463 0 02 00673 LDA K8 ELSE (A) = SPACE, 5993 12464 0 04 12435 STA PKF 5994 12465 0 01 12445 JMP OK10 GO TO OK10 5995 * 5996 * 5997 * *********** 5998 * *OUTPUT OA* 5999 * *********** 6000 * GENERAL OUTPUT ROUTINE. MAKES CHECKS AGAINST 6001 * THE ASSIGNMENT TABLE ENTRY TO PROCESS DUMMY, 6002 * EXTERNAL, RELATIVE, ABSOLUTE OR STRING 6003 * REFERENCES PROPERLY. 6004 12466 0 00 00000 T1OB PZE 0 6005 12467 0 000000 OB00 DAC ** 6006 12470 0 04 00647 STA FTOP FTOP = (A) 6007 12471 000201 IAB 6008 12472 0 04 12466 STA T1OB 6009 12473 0 10 02672 JST STXA ESTABLISH A 6010 12474 101040 SNZ IF A = 0 6011 12475 0 01 12535 JMP OB08 GO TO OB08 6012 12476 0 10 03656 JST FA00 FETCH ASSIGNS 6013 12477 0 02 00067 LDA SOF SPECIAL OUTPUT FLAT 6014 12500 100040 SZE 6015 12501 0 01 12660 JMP OB60 SUBSCRIPT CONSTANT DEFLECTION 6016 12502 0 02 00630 LDA AF 6017 12503 0 04 12466 STA T1OB T0 = AF 6018 12504 0 02 00631 LDA AT 6019 12505 0 07 00723 SUB K105 IF AT = 'DUM' 6020 12506 101040 SNZ 6021 12507 0 01 12547 JMP OB15 GO TO OB15 6022 12510 0 02 00655 LDA IU 6023 12511 0 07 00717 SUB K101 IF IU = 'SUB' 6024 12512 101040 SNZ 6025 12513 0 01 12652 JMP OB40 GO TO OB40 6026 12514 0 02 00631 OB06 LDA AT 6027 12515 0 11 00722 CAS K104 IF AT = 'COM' 6028 12516 0 01 12520 JMP *+2 6029 12517 0 01 12553 JMP OB20 GO TO OB20 6030 12520 0 11 00717 CAS K101 6031 12521 0 01 12523 JMP *+2 IF AT = 'REL' 6032 12522 0 01 12542 JMP OB10 GO TO OB10 6033 12523 0 02 00721 LDA K103 6034 12524 000201 IAB 6035 12525 0 02 00060 LDA RPL