FRTN

* NAME: FRTN DWG 70180463000 REV J PAGE 196

6678 12741 0 01 12355 JMP OM30 6679 12742 0 01 12421 JMP OM46 ERROR 6680 12743 0 02 13032 OMC5 LDA OMI9 =ANA INSTR. 6681 12744 0 01 12701 JMP OMB1 6682 12745 0 12 12246 OMD1 IRS TXOM T0 = T0+1 6683 12746 0 01 12262 JMP OM05 6684 12747 140040 OME1 CRA OUTPUT 'OCT OOOO' 6685 12750 0 10 13243 JST OC00 X 6686 12751 140040 OME5 CRA 6687 12752 0 04 12246 STA TXOM T0 = 0 6688 12753 0 01 12262 JMP OM05 6689 * 6690 12754 0 000000 TRSE DAC 0 SUBROUTINE TO OUTPUT TRACE COUPLING 6691 12755 0 35 00625 LDX A 6692 12756 0 02 00625 LDA A 6693 12757 100040 SZE 6694 12760 1 02 17404 LDA DP+4,1 CHECK STATUS OF TRACE TAG 6695 12761 100400 SPL 6696 12762 0 01 12773 JMP TRS7 6697 12763 0 02 01060 LDA LIBF CHECK TO SEE IF BIT 6 IS SET 6698 12764 0 03 14700 ANA ='2000 6699 12765 0 05 14700 ERA ='2000 6700 12766 101040 CSR4 SNZ SKIP IF BIT 5 IS NOT SET 6701 12767 0 01 12773 JMP TRS7 6702 12770 0 02 00645 LDA TRF CHECK STATUS OF TRACE FLAG 6703 12771 101040 SNZ 6704 12772 -0 01 12754 JMP* TRSE 6705 12773 0 10 02501 TRS7 JST NF00 SET LBUF TO 'F$', LBUF+2 TO SPACES 6706 12774 0 02 12617 LDA OM93 ='TR' 6707 12775 0 04 00052 STA NAMF+1 6708 12776 0 10 11363 JST CN00 OUTPUT.....CALL NAMF 6709 12777 0 35 00625 LDX A 6710 13000 1 02 17404 LDA DP+4,1 6711 13001 0 03 12621 ANA OM95 6712 13002 0 04 12242 STA T1OM 6713 13003 1 02 17403 LDA DP+3,1 6714 13004 0 04 12244 STA T8OM 6715 13005 1 02 17402 LDA DP+2,1 6716 13006 0 04 12245 STA T9OM 6717 13007 1 02 17400 LDA DP,1 MERGE IM W1TH ITEM NAME 6718 13010 0405 67 ARS 9 6719 13011 0414 63 LGL 13 6720 13012 0 05 12242 ERA T1OM 6721 13013 0 10 13243 JST OC00 OUTPUT ABSOLUTE (FIRST 2 CHAR.) 6722 13014 0 02 12244 LDA T8OM 6723 13015 0 10 13243 JST OC00 OUTPUT ABSOLUTE (NEXT 2 CHAR.) 6724 13016 0 02 12245 LDA T9OM 6725 13017 0 10 13243 JST OC00 OUTPUT ABSOLUTE (LAST 2 CHAR.) 6726 13020 -0 01 12754 JMP* TRSE 6727 *