X16-08T1

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

0661 01656 000000 HLT 0662 01657 -0 01 01635 JMP* EROR EXIT. 0663 * 0664 * ROUTINE WHICH CHANGES PROGRAM IF COMPUTER IS DDP-416, INSTEAD OF -516 0665 * 0666 01660 0 02 01673 P416 LDA J1 0667 01661 0 04 01212 STA 4OR5 0668 01662 0 02 01674 LDA J2 0669 01663 0 04 01234 STA 4O5 0670 01664 0 02 01675 LDA S1 0671 01665 0 04 01371 STA 4R5 0672 01666 0 02 01676 LDA J3 0673 01667 0 04 01523 STA 4RR5 0674 01670 0 02 01677 LDA S2 0675 01671 0 04 01560 STA 4N5 0676 01672 0 01 01205 JMP P085 0677 * 0678 * CONSTANTS 0679 * 0680 01673 0 01 01217 J1 JMP P091 0681 01674 0 01 01242 J2 JMP P100 0682 01675 -0 04 01733 S1 STA* TS7 0683 01676 0 01 01541 J3 JMP S19 0684 01677 -0 04 00000 S2 STA* 0 0685 01700 177777 ONES OCT 177777 0686 01701 0 002003 CJRA DAC CKJS 0687 01702 0 000766 SZRA DAC '766 0688 * 0689 * INDIRECT ADDRESS TABLE 0690 * 0691 01703 -0 001704 IAT DAC* *+1 INDIRECT ADDRESS TABLE, STEP 1. 0692 01704 -0 001705 DAC* *+1 STEP2 0693 01705 -0 001706 DAC* *+1 STEP3 0694 01706 -0 001707 DAC* *+1 STEP4 0695 01707 -0 001710 DAC* *+1 STEP5 0696 01710 -0 001711 DAC* *+1 STEP6 0697 01711 -0 001712 DAC* *+1 STEP7 0698 01712 -0 001713 DAC* *+1 STEP8 0699 01713 0 001714 DAC *+1 STEP9 0700 01714 000000 BSZ 1 FINAL LOCATION OF INDIRECT ADDRESS TARLE. 0701 * 0702 * CONSTANT AND TEMPORARY STORAGE 0703 * 0704 01715 000000 C1 BSZ 1 0705 01716 000000 T3 BSZ 1 0706 01717 000000 T4 BSZ 1 0707 01720 000000 T5 BSZ 1 0708 01721 000000 T6 BSZ 1 0709 01722 000000 T7 BSZ 1 0710 01723 000001 T8 OCT 1