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

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

6586 13525 126661 OM97 BCI 1,-1 6587 * 6588 13526 0 02 00653 OMA1 LDA IM CHECK FOR IM=LOGICAL 6589 13527 0 11 00721 CAS K103 6590 13530 0 01 13532 JMP *+2 6591 13531 0 01 13630 JMP OMC1 IM=LOGICAL 6592 13532 0 11 00717 CAS K101 CHECK FOR IM=INTEGER 6593 13533 0 01 13535 JMP *+2 6594 13534 0 01 13536 JMP OMA3 IM=INTEGER 6595 13535 0 01 13256 JMP OM30 6596 * 6597 13536 0 02 13141 OMA3 LDA T0OM CHECK FOR T,0) = '+' 6598 13537 0 11 00721 CAS K103 =3 6599 13540 0 01 13542 JMP *+2 6600 13541 0 01 13551 JMP OMA4 T(0)= '*' 6601 13542 0 11 13522 CAS OM94 T(0) = 'C 6602 13543 0 01 13545 JMP *+2 6603 13544 0 01 13567 JMP OMA6 OUTPUT 'TCA' 6604 13545 0 11 00717 CAS K101 6605 13546 0 01 13563 JMP OMA5 6606 13547 0 02 13732 LDA OMI4 =ADD INSTR. 6607 13550 0 01 13607 JMP OMB1 6608 13551 0 02 13143 OMA4 LDA T2OM VALUE OF A 6609 13552 0 07 00744 SUB K126 ='12 KNOWN LOCATION OF A FOR 2 6610 13553 100040 SZE SMP IF MULTIPLIER IS A CONSTANT OF 2 6611 13554 0 01 13256 JMP OM30 COUPLE TO THE MULTIPLY SUBROUTINE 6612 13555 0 04 00040 STA A SET A AND AF TO ZERO (FOR LISTING FLAGS) 6613 13556 0 04 00630 STA AF 6614 13557 0 02 13562 LDA *+3 ALS 1 INSTRUCTION 6615 13560 0 10 14127 JST OA00 OUTPUT ABSOLUTE 6616 13561 -0 01 13147 JMP* OM00 EXIT UUTPUT ITEM 6617 13562 0415 77 ALS 1 (INSTRUCTION TO BE OUTPUT) 6618 13563 0 11 00720 OMA5 CAS K102 CHECK FOR T(0) = '-' 6619 13564 0 01 13576 JMP OMA7 6620 13565 0 02 13734 LDA OMI6 =SUB INSTR, 6621 13566 0 01 13607 JMP OMB1 6622 13567 140040 OMA6 CRA 6623 13570 0 04 00040 STA A CAUSE OCTAL ADDR LISTING 6624 13571 0 04 00630 STA AF 6625 13572 0 02 13575 LDA *+3 TCA 6626 13573 0 10 14127 JST OA00 OUTPUT ABSOLUTE 6627 13574 -0 01 13147 JMP* OM00 EXIT 6628 13575 140407 TCA 6629 13576 0 11 02702 OMA7 CAS K153 CHECK FOR T(0) = '=' 6630 13577 0 01 13601 JMP *+2 6631 13600 0 01 13606 JMP OMA9 OUTPUT A STA INSTR, 6632 13601 0 07 13140 SUB K152 CHECK FOR T(0) = 'F' 6633 13602 100040 SZE 6634 13603 0 01 13256 JMP OM30 6635 13604 0 02 13735 OMA8 LDA OMI7 =LDA INSTR,