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

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

6636 13605 0 01 13607 JMP OMB1 6637 13606 0 02 13736 OMA9 LDA OMI8 =STA INSTR, 6638 13607 0 06 13142 OMB1 ADD T1OM T(1) = T(1) + INSTR. 6639 13610 0 04 13142 STA T1OM 6640 13611 0 02 13143 OMB3 LDA T2OM SET A=T(2) 6641 13612 0 04 00040 STA A 6642 13613 0 02 13145 LDA T9OM OUTPUT INSTR. WITH T(1) AND T(9) 6643 13614 000201 IAB 6644 13615 0 02 13142 LDA T1OM 6645 13616 0 10 12467 JST OB00 OUTPUT OA 6646 13617 0 02 13144 LDA T8OM CHECK FOR T(8) = '=' 6647 13620 0 11 02702 CAS K153 ='16 6648 13621 -0 01 13147 JMP* OM00 6649 13622 0 01 13624 JMP *+2 6650 13623 -0 01 13147 JMP* OM00 EXIT 6651 13624 0 02 00066 LDA TRFA POINTER TO FIRST VARIABLE OR ARRAY 6652 13625 0 04 00040 STA A PROCESSED IN EXPRESSION 6653 13626 0 10 13663 JST TRSE OUTPUT TRACE COUPLING IF REQUIRED 6654 13627 -0 01 13147 JMP* OM00 EXIT OUTPUT ITEM 6655 * 6656 * 6657 13630 0 02 13141 OMC1 LDA T0OM 6658 13631 0 11 13140 CAS K152 CHECK FOR T(0) = 'F' 6659 13632 0 01 13634 JMP *+2 6660 13633 0 01 13604 JMP OMA8 OUTPUT A LDA INSTR. 6661 13634 0 11 02702 CAS K153 CHECK FOR T(0) = '=' 6662 13635 0 01 13637 JMP *+2 6663 13636 0 01 13606 JMP OMA9 OUTPUT A STA INSTR, 6664 13637 0 11 13522 CAS OM94 CHECK FOR T(0) = 'C' 6665 13640 0 01 13642 JMP *+2 6666 13641 0 01 13256 JMP OM30 OUTPUT COMPLEMENT CODING 6667 13642 0 11 00724 CAS K106 6668 13643 0 01 13645 JMP *+2 6669 13644 0 01 13651 JMP OMC5 OUTPUT AN ANA INSTR. 6670 13645 0 11 00725 CAS K107 6671 13646 0 01 13323 JMP OM46 ERROR 6672 13647 0 01 13256 JMP OM30 6673 13650 0 01 13323 JMP OM46 ERR0R 6674 13651 0 02 13737 OMC5 LDA OMI9 =ANA INSTR. 6675 13652 0 01 13607 JMP OMB1 6676 13653 0 12 13146 OMD1 IRS TXOM T0 = T0+1 6677 13654 0 01 13162 JMP OM05 6678 13655 140040 OME1 CRA 6679 13656 0 04 00640 STA DF DF = 0 6680 13657 0 10 14127 JST OA00 OUTPUT ABSOLUTE 6681 13660 140040 OME5 CRA 6682 13661 0 04 13146 STA TXOM T0 = 0 6683 13662 0 01 13162 JMP OM05 6684 * 6685 13663 0 000000 TRSE DAC 0 SUBROUTINE TO OUTPUT TRACE COUPLING