X16-08T1

* E510-091-H902 (X16-08T1) DRAWING NO. 41285222-001-01 PAGE 15

0611 * 0612 * TEST ECO 4763-11 IMPLEMENTATION 0613 * 0614 01605 0 10 01734 S29 JST JSTL 0615 01606 0 10 01607 JST *+1 0616 01607 0 00 00002 J21 PZE 2 0617 01610 0 02 01723 LDA T8 0618 01611 0 07 01751 SUB =3 0619 01612 100400 SPL 0620 01613 0 01 01633 JMP DONE 0621 01614 000011 DXA 0622 01615 0 01 01616 JMP *+1 0623 01616 0 02 01737 LDA ='42000 0624 01617 74 1320 SMK '1320 0625 01620 0 06 01702 ADD SZRA 0626 01621 0 04 01724 STA T9 0627 01622 0 02 01736 LDA ='76543 0628 01623 -0 04 01702 STA* SZRA 0629 01624 140040 CRA 0630 01625 74 1320 SMK '1320 0631 01626 000013 EXA 0632 01627 -0 02 01724 LDA* T9 0633 01630 0 05 01736 ERA ='76543 0634 01631 101040 SNZ 0635 01632 0 10 01635 JST EROR ECO 4763-11 IS NOT CORRECTLY IMPLEMENTED. 0636 * 0637 * END OF INTERRUPT TESTS 0638 * 0639 01633 -0 01 01701 DONE JMP* CJRA GO TO CHECK PROGRAM. 0640 * 0641 * ERROR HALT ROUTINE 0642 * 0643 01634 0 001635 ERAD DAC *+1 ADDRESS OF ERROR ROUTINE. 0644 01635 0 000000 EROR DAC ** ENTRY. 0645 01636 0 04 01720 STA T5 SAVE CONTENTS OF RA 0646 01637 0 02 00062 LDA '62 AND CONTENTS 0647 01640 0 04 01721 STA T6 OF LOC. '62. 0648 01641 0 02 01646 LDA L99 SET NEW LINK IN CASE ERROR 0649 01642 0 04 00062 STA '62 HALT CAUSES INTERRUPT. 0650 01643 0 02 01720 LDA T5 DISPLAY CONTENTS OF RA WHEN ERROR OCCURRED. 0651 01644 000000 HLT 1ST ERROR HLT. IF IT CAUSES RMVI,GO TO 2ND. 0652 01645 0 01 01651 JMP ER8 0653 01646 0 001647 L99 DAC *+1 LINK ADDRESS. 0654 01647 0 000000 DAC ** 0655 01650 000000 HLT 2ND ERROR HALT. 0656 01651 0 02 01635 ER8 LDA EROR DISPLAY CONTENTS OF EROR. 0657 01652 000000 HLT 0658 01653 0 02 01721 LDA T6 DISPLAY ORIGINAL CONTENTS OF LOC. '62. 0659 01654 000000 HLT 0660 01655 0 02 00062 LDA '62 DISPLAY PRESENT CONTENTS OF LOC. '62.