FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 182

5990 11541 0 10 13235 JST OQ00 OUTPUT ABSOLUTE 5991 11542 -0 01 11471 JMP* OB00 RETURN 5992 11543 0 02 11470 OB10 LDA T1OB 5993 11544 0 04 00025 STA AF 5994 11545 0 02 00043 LDA FTOP 5995 11546 0 10 13072 JST OR00 OUTPUT REL 5996 11547 -0 01 11471 JMP* OB00 RETURN 5997 11550 0 02 00043 OB15 LDA FTOP 5998 11551 140024 CHS 5999 11552 0 04 00043 STA FTOP 6000 11553 0 01 11543 JMP OB10 GO TO OB10 6001 11554 0 10 13531 OB20 JST FS00 OUTPUT COMMON REQUEST 6002 11555 0 02 11470 LDA T1OB PACK ADDRESS INTO BLOCK 6003 11556 0400 62 LRL 14 6004 11557 0 02 00043 LDA FTOP 6005 11560 0404 66 LGR 10 6006 11561 0 06 11673 ADD K150 6007 11562 0410 72 LLL 6 6008 11563 0 04 13650 STA OCI 6009 11564 0410 70 LLL 8 6010 11565 0 04 13651 STA OCI+1 6011 11566 0 15 11636 STX OBXS SAVE INDEX 6012 11567 0 10 03426 JST FL00 6013 11570 1 02 17402 LDA DP+2,1 6014 11571 0 04 13761 STA PRI+13 SET COMMON NAME INTO PRINT BUFFER 6015 11572 0412 70 LLR 8 6016 11573 0 04 13654 STA OCI+4 6017 11574 0410 70 LLL 8 6018 11575 1 02 17403 LDA DP+3,1 6019 11576 0 04 13760 STA PRI+12 SET COMMON NAME INTO PRINT BUFFER 6020 11577 0412 70 LLR 8 6021 11600 0 04 13653 STA OCI+3 6022 11601 0410 70 LLL 8 6023 11602 1 02 17404 LDA DP+4,1 6024 11603 0 03 00670 ANA K111 ='037777 6025 11604 0 11 11605 CAS *+1 LOOK FOR BLANK COMMON 6026 11605 020240 BLKC OCT 020240 6027 11606 0 05 00675 ERA K122 6028 11607 0 05 00703 ERA HBIT 6029 11610 0 04 13757 STA PRI+11 SET NAME INTO PRINT BUFFER 6030 11611 0412 70 LLR 8 6031 11612 0 04 13652 STA OCI+2 6032 11613 0410 70 LLL 8 6033 11614 0 02 13651 LDA OCI+1 6034 11615 0410 70 LLL 8 6035 11616 0 04 13651 STA OCI+1 6036 11617 0 02 00750 LDA K128 ='14 6037 11620 0 04 00063 STA OCNT 6038 11621 0 35 11636 LDX OBXS RESTORE INDEX 6039 11622 0 15 00625 STX A RESTORE A TO POINT AT NAME