X16-08T1

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

0561 01526 0 35 01744 LDX =2 GET A PATTERN. 0562 01527 001401 ERM ENTER RESTRICTED MODE. 0563 01530 0 35 01743 LDX =1 CAUSE INTERRUPT (SECTOR 0 IS PROTECTED). 0564 01531 0 10 01635 JST EROR GO TO ERROR IF NO INTERRUPT. 0565 01532 0 01 01520 JMP S18 TRY AGAIN IF NO INTERRUPT. 0566 01533 0 001534 L18 DAC *+1 LINK ADDRESS. 0567 01534 0 000000 DAC ** LOCKOUT VIOLATION INTERRUPT ENTRY. 0568 01535 0 02 00000 LDA 0 CHECK CONTENTS OF INDEX REGISTER 0569 01536 0 05 01744 ERA =2 TO MAKE SURE THAT PATTERN IS STILL THERE. 0570 01537 100040 SZE * 0571 01540 0 10 01635 JST EROR GO TO ERROR IF IT IS NOT. 0572 * 0573 * TEST SECTOR 0 RELOCATION 0574 * 0575 01541 0 10 01734 S19 JST JSTL 0576 01542 0 10 01543 JST *+1 0577 01543 0 00 00002 J20 PZE 2 0578 01544 0 02 01715 LDA C1 START 0579 01545 0 07 01743 SUB =1 WITH 0580 01546 0 04 00774 STA T0 SECTOR 1 THIS TIME. 0581 01547 0 02 01742 LDA ='767 SET 3RD TEST ADDRESS IN LOCATION 0. 0582 01550 0 04 00000 STA 0 AND ALSO INDEX REGISTER ON DDP-516. 0583 01551 0 02 01741 LDA ='1765 GET ADDRESS OF 1ST TEST LOCATION. 0584 01552 0 04 00775 STA T2 0585 01553 0 02 01746 LDA ='1000 GET CONSTANT 0586 01554 0 04 01716 P29 STA T3 WHICH IS ALSO USED AS MASK. 0587 01555 74 1320 SMK '1320 SET RELOCATION REGISTER. 0588 01556 0 04 00765 STA '765 TEST USING STANDARD STA. 0589 01557 -0 04 01702 STA* SZRA TEST USING INDIRECT STA. 0590 01560 1 04 00000 4N5 STA 0,1 (STA* 0 IF DDP-416) TEST USING INDEXER STA. 0591 01561 140040 CRA 0592 01562 74 1320 SMK '1320 RE-SET RELOCATION REGISTER. 0593 01563 0 02 01740 LDA =-3 CHECK 0594 01564 0 04 01722 STA T7 ALL 0595 01565 -0 02 00775 P30 LDA* T2 THREE 0596 01566 0 05 01716 ERA T3 LOCATIONS. 0597 01567 100040 SZE * 0598 01570 0 10 01635 JST EROR GO TO ERROR IF ANY INCORRECT. 0599 01571 -0 04 00775 STA* T2 CLEAR OUT TEST LOCATION. 0600 01572 0 12 00775 IRS T2 INCREMENT ADDRESS. 0601 01573 0 12 01722 IRS T7 INCREMENT COUNTER. 0602 01574 0 01 01565 JMP P30 GO BACK TWICE. 0603 01575 0 02 00775 LDA T2 SET UP FOR 0604 01576 0 06 01746 ADD ='1000 LOCATION 0605 01577 0 07 01751 SUB =3 XX765 0606 01600 0 04 00775 STA T2 IN NEXT SECTOR. 0607 01601 0 02 01716 LDA T3 GET NEW CONSTANT 0608 01602 0 06 01746 ADD ='1000 AND MASK. 0609 01603 0 12 00774 IRS T0 INCREMENT COUNTER. 0610 01604 0 01 01554 JMP P29 GO BACK UNTIL DONE.