PABSADR DCK/ I,H PPABZLDC DCK/ I,H PPABZLD7 DCK/ I,H PPABZLD9 DCK/ I,H PPATOSAN DCK/ I,H PPBOOTC1 DCK/ I,H PPBOOTM1 DCK/ I,H PPBOOTM2 DCK/ I,H PPBOOTP DCK/ I,H PPBUFEXC DCK/ I,H PPB17332 DCK/ I,H PPCNTTBL DCK/ I,H PPCP026 DCK/ I,H PPCP029 DCK/ I,H PPCR026 DCK/ I,H PPCR029 DCK/ I,H PPDMP42X DCK/ I,H PPD1501A DCK/ I,H PPD1536 DCK/ I,H PPD1544A DCK/ I,H PPD1547A DCK/ I,H PPD1553A DCK/ I,H PPD1555A DCK/ I,H PPD1566A DCK/ I,H PPD1590 DCK/ I,H PPD1595 DCK/ I,H PP DEL/ 1 PP NAM D1595 DECK-ID B26 PERIPH. DRIVERS 1.0B SUMMARY-116 PP INS/ 195 PP EQU NULLS(5) 5 NULLS NEEDED TO ALLOW TIME FOR 116*4394 PP* HARD COPY UNIT TO CARRIAGE RETURN 116*4394 PP INS/ 396 PP ALS 1 IF OPERATION IS IN PROGRESS 116*4396 PP SAM I0040 ENTRY IS FROM ADEV 116*4396 PP INS/ 405 PP ENA 0 116*4394 PP STA- ERRCOD,I CLEAR THE NULL COUNTER 116*4394 PP DEL/ 475,477 PPLOGREJ JMP* I0115 INTERNAL REJECT 116*4394 PP ENQ EXTREJ EXTERNAL REJECT 116*4394 PP JMP* I0120 116*4394 PPI0115 ENQ INTREJ 116*4394 PP INS/ 496 PP ENA -1 116*4394 PP STA- EDCLK,I SET THE DIAGNOSTIC TIMER TO MINUS 116*4394 PP DEL/ 517 PPE0010 AND- LPMSK+15 STRIP THE IN PROGRESS BIT 116*4396 PP STA- EREQST,I 116*4396 PP LDA- DIAGLU,I CHECK FOR DIAG LU 116*4396 PP DEL/ 593 PP LDA- ERRCOD,I CHECK IF NULLS ARE TO BE SENT? 116*4394 PP SAP C00406 POS. MEANS NO NULLS TO BE SENT 116*4394 PP EOR- ONEBIT+15 REMOVE BIT 15 NULL FLAG 116*4394 PP INA -NULLS-1 DECREMENT BY NUM OF NULLS NEEDED 116*4394 PP SAZ C00403 ZERO MEANS ENOUGH NULLS SENT 116*4394 PP RAO- ERRCOD,I INDICATE THAT A NULL HAS BEEN.SENT 116*4394 PP CLR Q 116*4394 PP JMP W0110 SEND THE NULL 116*4394 PPC00403 STA- ERRCOD,I CLEAR THE NULL COUNTER 116*4394 PPC00406 ENA $40 IS THE COMPLETE FLAG SET ? 116*4394 PP INS/ 624 PP SAM 1 116*4394 PP DEL/ 680,686 PP SAP C0085 SKIP IF NOT T/S 116*4394 PP JMP* C0105 IT WAS T/S 116*4394 PPC0085 JMP I0110 GHOST INTERRUPT 116*4394 PP INS/ 798 PP LDA- ZROBIT+6 $FFBF 116*4394 PP AND- ESTAT1,I INSURE COMPLETION FLAG I0 RESET 116*4394 PP STA- ESTAT1,I 116*4394 PP DEL/ 858 PP SQN W0010 116*4394 PP JMP* W0030 CONTINUE IF UNFORMATTED 116*4394 PPW0010 ENA 1 INDICATE THAT 116*4394 PP EOR- ONEBIT+15 NULLS ARE 116*4394 PP STA- ERRCOD,I TO BE SENT 116*4394 PP INS/ 885 PP ENA 1 INDICATE THAT 116*4394 PP EOR- ONEBIT+15 NULLS ARE 116*4394 PP STA- ERRCOD,I TO BE SENT 116*4394 PP DEL/ 889 PP ENA $20 SET LINE FEED FLAG 116*4395 PP DEL/ 892 PP JMP* W0090 116*4395 PP INS/ 914 PP TRQ A RESTORE THE CHARACTER 116*4394 PP INA -$D CHECK FOR A CR 116*4394 PP SAZ W0110 SKIP IF IT IS A CR 116*4394 PP ENA 4 ALLOW THE LAST CHARACTER 116*4394 PP EOR- ONEBIT+15 TO BE OUTPUT 116*4394 PP STA- ERRCOD,I IN PEACE 116*4394 PPD1711 DCK/ I,H PPD1720P DCK/ I,H PPD1720R DCK/ I,H PPD1725 DCK/ I,H PPD17293 DCK/ I,H PP DEL/ 1 PP NAM D17293 DECK-ID B31 PERIPH. DRIVERS 1.0B SUMMARY-113 PP DEL/ 225 PP SQN CHKP 108*3962 PP JMP* NOHLER 108*3962 PPCHKP LDQ- BUFFAD,I 108*3962 PP LDA- (ZERO),Q PICK UP COLUMN 108*3962 PP ALS 8 SHIFT TO CHECK FOR 12-0 AND 11-0 108*3962 PP INA -6 CHECK FOR 11 - 0 PUNCH 108*3962 PP SAN CKP0 108*3962 PP ENA $7D 11 - 0 PUNCH IS ASCII $7D 108*3962 PP JMP* SETUP 108*3962 PPCKP0 INA -4 CHECK FOR 12 - 0 PUNCH 108*3962 PP SAN CKEOF 108*3962 PP ENA $7B 12 - 0 PUNCH IS ASCII $7B 108*3962 PP JMP* SETUP 108*3962 PPCKEOF EQU CKEOF(*) 108*3962 PP DEL/ 698 PPASCII4 CLR A CLEAR SEQUENCE SO FORMATTED BINARY 113*4254 PP STA- SEQ,I W/ IMBEDDED ASCII CD. GETS ERROR 113*4254 PP JMP* DONE YES, FINISHED 113*4254 PPD17322 DCK/ I,H PP DEL/ 1 PP NAM D17322 DECK-ID B32 PERIPH. DRIVERS 1.0B SUMMARY-114 PP DEL/ 29 PP EQU UNTMOD(16) REC. OPT., UNIT AND SELECT MODE 112*4178 PP INS/ 356 PP AND =N$9FFF MASK OFF RECOVERY OPTIONS BITS 112*4178 PP INS/ 621 PP LDA- UNTMOD,I TEST FOR RECOVERY 112*4178 PP AND- BITMSK+13 112*4178 PP SAN NORCVR NO RECOVERY DESIRED 112*4178 PP INS/ 624 PPNORCVR EQU NORCVR(*) 112*4178 PP DEL/ 678 PP RTJ CALAD 112*4178 PP DEL/ 696 PPCKSMOK LDA =N$D554 RESET 112*4178 PP INS/ 698 PP LDA- UNTMOD,I TEST FOR SNR RECOVERY 112*4178 PP AND- BITMSK+14 112*4178 PP SAN WRTEOF NO NOISE RECORDS DESIRED 112*4178 PP INS/ 716 PP LDA- UNTMOD,I TEST FOR SNR RECOVERY 112*4178 PP AND- BITMSK+14 112*4178 PP SAN ADVRCV NO NOISE RECORDS DESIRED 112*4178 PP DEL/ 758 PPCKBK1 LDA NBRBSP 112*4178 PP INS/ 827 PPRSTADR NOP 0 114*4306 PP LDA TEMLWA ORIGINAL LWA 114*4306 PP STA LWA RESTORED TO LWA 114*4306 PP JMP* (RSTADR) 114*4306 PP DEL/ 833,835 PPRRCVR LDA- STOLSW 114*4306 PP INS/ 840 PP RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP INS/ 856 PP RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP INS/ 860 PP RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP INS/ 871 PP RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP DEL/ 873,874 PPRELRD2 RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP RTJ* CALAD 114*4306 PPRELRD1 RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP RTJ* CALAD 114*4306 PP DEL/ 1030 PP QLS 5 LOAD POINT TO BIT 15 112*4195 PPD17323 DCK/ I,H PP DEL/ 1 PP NAM D17323 DECK-ID B33 PERIPH. DRIVERS 1.0B SUMMARY-114 PP DEL/ 29 PP EQU UNTMOD(16) REC. OPT., UNIT AND SELECT MODE 112*4178 PP INS/ 354 PP AND =N$9FFF MASK OFF RECOVERY OPTIONS BITS 112*4178 PP INS/ 616 PP LDA- UNTMOD,I TEST FOR RECOVERY 112*4178 PP AND- BITMSK+13 112*4178 PP SAN NORCVR NO RECOVERY DESIRED 112*4178 PP INS/ 619 PPNORCVR EQU NORCVR(*) 112*4178 PP DEL/ 671 PP RTJ CALAD 112*4178 PP DEL/ 689 PPCKSMOK LDA =N$D554 RESET 112*4178 PP INS/ 691 PP LDA- UNTMOD,I TEST FOR SNR RECOVERY 112*4178 PP AND- BITMSK+14 112*4178 PP SAN WRTEOF NO NOISE RECORDS DESIRED 112*4178 PP INS/ 709 PP LDA- UNTMOD,I TEST FOR SNR RECOVERY 112*4178 PP AND- BITMSK+14 112*4178 PP SAN ADVRCV NO NOISE RECORDS DESIRED 112*4178 PP DEL/ 751 PPCKBK1 LDA NBRBSP 112*4178 PP INS/ 818 PPRSTADR NOP 0 114*4306 PP LDA TEMLWA ORIGINAL LWA 114*4306 PP STA LWA RESTORED TO LWA 114*4306 PP JMP* (RSTADR) 114*4306 PP DEL/ 824,826 PPRRCVR LDA- STOLSW 114*4306 PP INS/ 831 PP RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP INS/ 847 PP RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP INS/ 851 PP RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP INS/ 862 PP RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP DEL/ 864,865 PPRELRD2 RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP RTJ* CALAD 114*4306 PPRELRD1 RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP RTJ* CALAD 114*4306 PPD17332 DCK/ I,H PP DEL/ 1 PP NAM D17332 DECK-ID B34 PERIPH. DRIVERS 1.0B SUMMARY-119 PP DEL/ 121 PP* NUM $5BFB 24 FIRST SECTOR ADDRESS ON DISK 1 118*4233 PP DEL/ 125 PP* NUM 1 28 MASK FOR THIS UNITS SEEK COMPLETE 118*4233 PP DEL/ 152 PPDK1A LDA DATFLG DATA TRANSFER FLAG 118*4233 PP SAZ DK SKIP IF NO DATA TRANSFER IN PROGRESS 118*4233 PP LDA- RQST,I SET "WANT IN" BIT 118*4233 PP AND- ZROBIT+2 IN 118*4233 PP EOR- ONEBIT+2 THIS UNIT'S 118*4233 PP STA- RQST,I PHYSTB 118*4233 PP JMP- (ADISP) 118*4233 PP DEL/ 160 PP INA 0 LWD.LE.FWD 119*4528 PP DEL/ 239,242 PP JMP* DK GO INITIATE REQUEST 118*4233 PP DEL/ 312 PP JMP* SEEKOP PERFORM TRANSFER 118*4233 PP DEL/ 316 PP JMP* SEEKOP PERFORM TRANSF R 118*4233 PP DEL/ 322,328 PP JMP* SEEKOP BEGIN TRANSFER 118*4233 PPD17432 DCK/ I,H PP DEL/ 1 PP NAM D17432 DECK-ID B35 PERIPH. DRIVERS 1.0B SUMMARY-115 PP INS/ 143 PP EJT 115*4320 PP* 115*4320 PP* WORD 20 OF THE PHYSYCAL DEVICE TABLE HAS THE FOLLOWING 115*4320 PP* BIT ASSIGNMENTS 115*4320 PP* 115*4320 PP* BIT 15 0 - HALF DUPLEX -- DO NOT ECHO-PLEX INPUT CHAR.115*4320 PP* 1 - FULL DUPLEX -- ECHO-PLEX INPUT CHARACTER 115*4320 PP* BIT 14 RESERVED FOR 970-480 115*4320 PP* BIT 13 RESERVED FOR 970-480 115*4320 PP* BIT 12 RESERVED FOR 970-480 115*4320 PP* BIT 11 RESERVED FOR 970-480 115*4320 PP* BIT 10 RESERVED FOR CENTRONICS 115*4320 PP* BIT 9 RESERVED FOR CENTRONICS 115*4320 PP* BIT 4 0 - HALF DUPLEX -- CHANNEL ENABLED (WRITE) 115*4320 PP* 1 - HALF DUPLEX -- CHANNEL DISABLED (READ) 115*4320 PP* BIT 3 0 - FULL DUPLEX -- CHANNEL ALWAYS ENABLED 115*4320 PP* 1 - HALF DUPLEX -- CHANNEL DISABLED DURING READ115*4320 PP* BIT 2 RESERVED FOR 970-25/26 115*4320 PP* BIT 1 RESERVED FOR CENTRONICS 115*4320 PP* BIT 0 RESERVED FOR 970-480 115*4320 PP* 115*4320 PP* BITS 5-8 UNUSED 115*4320 PP* 115*4320 PP* BIT 4 SET AND RESET BY THE DRIVER AND IS 115*4320 PP* INITIALLY SET TO 0 IN PHYS. TAB. 115*4320 PP* 115*4320 PP* IF BIT 3 IS SET FOR HALF DUPLEX OPERATION, BIT 15 MUST 115*4320 PP* BE A 0 115*4320 PP INS/ 271 PP EXT P74300 FIRST PHYS. TAB. ADDR. FOR CONTROLLER 115*4320 PP* 0 WHICH IS USED FOR THE POLLING 115*4320 PP* INTERRUPT 115*4320 PP DEL/ 280 PP* ONE CARD DELETED 115*4320 PP DEL/ 318 PPSETRD ENA 8 DO NOT SEND BELL 115*4320 PP AND- TYPE,I IF HALF DUPLEX 115*4320 PP SAN HDPX OPERATION 115*4320 PP ENA 7 115*4320 PP DEL/ 321 PPHDPX LDA- TSFLAG,I IS THIS A TIMESHARE TERMINAL 115*4320 PP INS/ 329 PP SAZ CMPRQ1 IF TIME IS NOT ZERO 115*4320 PP DEL/ 331 PPCMPRQ1 RTJ- (COMPRQ) COMPLETE REQUEST 115*4320 PP DEL/ 351 PPBASE ADC P74300 115*4320 PP DEL/ 364 PP* ONE CARD DELETED 115*4320 PP DEL/ 380 PP LDQ* BASE 115*4320 PP LDQ- CALL,Q 115*4320 PP DEL/ 399 PPJPMAKQ LDA- ERRTAB,I CLEAR OPERATION IN PROGRESS 115*4320 PP AND- LPMSK+15 FLAG 115*4320 PP STA- ERRTAB,I 115*4320 PP LDA- (I) 115*4320 PP DEL/ 415 PP* ONE CARD DELETED 115*4320 PP DEL/ 421 PP ENA 8 IS THIS A HALF DUPLEX 115*4320 PP AND- TYPE,I CHANNEL 115*4320 PP SAZ CONT1 NO, SKIP 115*4320 PP ENA 1 YES, IS THERE A READ IN PROGRESS 115*4320 PP AND- SWITCH,I 115*4320 PP SAZ CONT2 YES, SKIP 115*4320 PP LDA- TYPE,I NO, RESET THE READ IN PROGRESS 115*4320 PP AND- ZROBIT+4 FLAG 115*4320 PP STA- TYPE,I 115*4320 PPCONT1 JMP* CONT4 115*4320 PPCONT2 ENA $10 READ REQUEST PENDING, IS THE READ IN 115*4320 PP AND- TYPE,I PROGRESS FLAG SET 115*4320 PP SAZ CONT3 NO, SKIP 115*4320 PP INQ 2 YES, SET BIT IN Q-REGISTER TO DISABLE 115*4320 PP JMP* CONT4 CHANNER TO ALLOW DATA INPUT 115*4320 PPCONT3 LDA- TYPE,I FLAG NOT SET, SET FLAG AND WAIT 115*4320 PP INA $10 ONE CYCLE TO ALLOW WRITE TO 115*4320 PP STA- TYPE,I COMPLETE IF NECESSARY 115*4320 PPCONT4 INP REJECT-* INPUT DATA/STATUS WORD 115*4320 PP DEL/ 463 PPNOREQQ RTJ TSSET 115*4320 PP INS/ 545 PP ENA 8 DO NOT SEND BLOB IF HALF DUPLEX 115*4320 PP AND- TYPE,I OPERATION 115*4320 PP SAN NOBLOB 115*4320 PP DEL/ 550 PPNOBLOB LDA- LU,I CHECK FOR DIAGNOSTIC LU 115*4320 PP INS/ 647 PP SAZ CPM IF TIME IS NOT ZERO 115*4320 PP DEL/ 649 PPCPM JMP NEXT GET NEXT CHANNELS PHYS TAB 115*4320 PP INS/ 783 PP SAZ CPM1 115*4320 PP DEL/ 785 PPCPM1 JMP NEXT GET NEXT CHANNELS PHYS TAB 115*4320 PPD327TR DCK/ I,H PPD42312 DCK/ I,H PP DEL/ 1 PP NAM D42312 DECK-ID B37 PERIPH. DRIVERS 1.0B SUMMARY-132 PP DEL/ 405 PPFTN RTJ NXTCHR GET FIRST CHARACTER 132*5433 PP INS/ 438 PP SAM GO1 132*5433 PP INS/ 463 PP SAM PMRSET SKIP IF RETURN FROM PAPER MOTION INT. 132*5433 PP DEL/ 465 PP SAZ PMRSET SKIP IF SUPPRESS PAPER MOTION 132*5433 PP ENA -1 132*5433 PP STA- SAVE,I SET PAPER MOTION INTERRUPT FLAG 132*5433 PP LDQ- CALL,I 132*5433 PP ENA $1C 132*5433 PP OUT TOREJ-* ENABLE INTERRUPTS 132*5433 PP ENA INTVAL 132*5433 PP STA- TIME,I 132*5433 PP JMP- (ADISP) 132*5433 PPPMRSET ENA 1 132*5433 PPD7323L DCK/ I,H PP DEL/ 1 PP NAM D7323L DECK-ID B38 PERIPH. DRIVERS 1.0B SUMMARY-114 PP DEL/ 32 PP EQU UNTMOD(16) REC. OPT., UNIT AND SELECT MODE 112*4178 PP INS/ 321 PP AND =N$9FFF MASK OFF RECOVERY OPTIONS BITS 112*4178 PP INS/ 571 PP LDA- UNTMOD,I TEST FOR RECOVERY 112*4178 PP AND- BITMSK+13 112*4178 PP SAN NORCVR NO RECOVERY DESIRED 112*4178 PP INS/ 574 PPNORCVR EQU NORCVR(*) 112*4178 PP DEL/ 626 PP RTJ CALAD 112*4178 PP DEL/ 644 PPCKSMOK LDA =N$D554 RESET 112*4178 PP INS/ 646 PP LDA- UNTMOD,I TEST FOR SNR RECOVERY 112*4178 PP AND- BITMSK+14 112*4178 PP SAN WRTEOF NO NOISE RECORDS DESIRED 112*4178 PP INS/ 664 PP LDA- UNTMOD,I TEST FOR SNR RECOVERY 112*4178 PP AND- BITMSK+14 112*4178 PP SAN ADVRCV NO NOISE RECORDS DESIRED 112*4178 PP DEL/ 706 PPCKBK1 LDA NBRBSP 112*4178 PP INS/ 777 PPRSTADR NOP 0 114*4306 PP LDA TEMLWA ORIGINAL LWA 114*4306 PP STA LWA RESTORED TO LWA 114*4306 PP JMP* (RSTADR) 114*4306 PP DEL/ 783,785 PPRRCVR LDA- STOLSW 114*4306 PP INS/ 790 PP RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP INS/ 806 PP RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP INS/ 810 PP RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP INS/ 821 PP RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP DEL/ 823,824 PPRELRD2 RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP RTJ* CALAD 114*4306 PPRELRD1 RTJ* RSTADR GO RESET LWA BEFORE DATA XFER 114*4306 PP RTJ* CALAD 114*4306 PP DEL/ 838 PP STA ERRNO 114*4306 PPDSKCDR DCK/ I,H PPDSKDHX DCK/ I,H PPDSKMMD DCK/ I,H PP DEL/ 1 PP NAM DSKMMD DECK-ID B41 PERIPH. DRIVERS 1.0B SUMMARY-113 PP DEL/ 77,78 113*4237 PP STA* N N (REJECT COUNT) 113*4237 PPMDR91 LDA* NR SEEK FUNCTION 113*4237 PP DEL/ 83,84 PP JMP* MDR110 DEVICE REJECT (INTERNAL) 113*4237 PP RAO* N DEVICE REJECT (EXTERNAL) 113*4237 PP LDA* N 113*4237 PP INA -10 113*4237 PP SAP MDR101 113*4237 PP JMP* MDR91 113*4237 PP DEL/ 97 PP CLR Q ZERO IN 113*4237 PP STQ* N N 113*4237 PPMDR102 LDQ* GENFC 113*4237 PP DEL/ 101 PPMDR101 JMP* MDR110 DEVICE REJECT (INTERNAL) 113*4237 PP RAO* N 113*4237 PP LDA* N 113*4237 PP INA -10 113*4237 PP SAP MDR110 113*4237 PP JMP* MDR102 113*4237 PP DEL/ 120 113*4237 PP JMP* MDR115 113*4237 PP INS/ 123 PP* 113*4237 PPMDR115 LDA* T 113*4237 PP STA* (FWD) RESTORE FWD-1 113*4237 PP CLR A 113*4237 PP LDQ* DIRSTA PICK UP STATUS 113*4237 PP JMP* (MDRIVE) 113*4237 PP* 113*4237 PP INS/ 139 PPN ADC 0 REJECT COUNT 113*4237 PP DEL/ 149 PPMDR140 JMP* MDR115 113*4237 PP INS/ 160 PP CLR Q ZERO TO 113*4237 PP STQ* N N 113*4237 PP DEL/ 166,167 PP JMP* MDR110 DEVICE REJECT (INTERNAL) 113*4237 PP RAO* N DEVICE REJECT(EXTERNAL) 113*4237 PP LDA* N 113*4237 PP INA -10 113*4237 PP SAP MDR171 113*4237 PP JMP* MDR180 113*4237 PPMDR171 JMP* MDR110 ERROR EXIT 113*4237 PP DEL/ 174 PP JMP* MDR115 NO COMPARE ERROR 113*4237 PP DEL/ 182 PP JMP* MDR115 113*4237 PP DEL/ 194,195 PP NOP 0 113*4237 PP JMP* MDR110 113*4237 PPDSKMTI DCK/ I,H PPDSKMTO DCK/ I,H PPFINDCR DCK/ I,H PPL15721 DCK/ I,H PPMDRV56 DCK/ I,H PP DEL/ 1 PP NAM MDRV56 DECK-ID B46 PERIPH. DRIVERS 1.0B SUMMARY-113 PP DEL/ 40 PP STA FWD SAVE FIRST WORD ADDRESS 113*4237 PP INS/ 63 PP NOP 0 113*4237 PP INS/ 65 PP NOP 0 113*4237 PP DEL/ 70,72 PP SAM MSTATA MINUS MEANS READY 113*4237 PP LLS 1 113*4237 PP JMP EXE NOT READY - FATAL ERROR 113*4237 PPMSTATA LRS 15 113*4237 PP DEL/ 142 PP JMP* MDR110 DEVICE REJECT(INTERNAL) 113*4237 PP DEL/ 155 PP JMP* EXE ERROR EXIT 113*4237 PP INS/ 158 PP NOP 0 113*4237 PP DEL/ 202 PP JMP* MDR110 INTERNAL REJECT 113*4237 PP DEL/ 215 PPEXE CLR A 113*4237 PP DEL/ 220 PP JMP* EXE YES 113*4237 PP DEL/ 233 PP JMP* MDR110 DEVICE REJECT(INTERNAL) 113*4237 PP DEL/ 242 PP JMP* EXE YES 113*4237 PP DEL/ 271,272 PP NOP 0 DEVICE REJECT(INTERNAL) 113*4237 PP TRA Q 113*4237 PP JMP* EXE DEVICE REJECT 113*4237 PP INS/ 290 PP LDQ* DIRSTA PICK UP STATUS 113*4237 PPQCARD DCK/ I,H PPQCDDMY DCK/ I,H PPQDKDMY DCK/ I,H PPQDMDMY DCK/ I,H PPQMTDMY DCK/ I,H PPQMT7TK DCK/ I,H PPQMT9TK DCK/ I,H PPQPRDMY DCK/ I,H PPQPTAP1 DCK/ I,H PPQPTDMY DCK/ I,H PPQ1711 DCK/ I,H PPQ17332 DCK/ I,H PP DEL/ 1 PP NAM Q17332 DECK-ID B58 PERIPH. DRIVERS 1.0B SUMMARY-132 PP INS/ 42 PP EQU MAXSEC($5BF0) 113*4253 PP ENT MAXSEC LARGEST SECTOR AVAILABE TO INIT. 113*4253 PP INS/ 55 PP ENA 1 SET AUTOLOAD-IN-OPERATION FLAG 132*5053 PP STA* AUTLOD 132*5053 PP INS/ 85 PPAUTLOD NUM 0 AUTOLOAD-IN-OPERATION FLAG (NON-ZERO 132*5053 PP* DURING AUTOLOAD) 132*5053 PP DEL/ 94 PPQDISK2 LDA* AUTLOD GET AUTOLOAD-IN-OPERATION FLAG 132*5053 PP SAZ NOTALD IS AUTOLOAD IN OPERATION 132*5053 PP CLR A SET READ/WRITE FLAG TO READ EVEN 132*5053 PP STA* RDWEFG THOUGH NUMBER WORDS MAY EXCEED 32K. 132*5053 PP JMP* SETWC 132*5053 PPNOTALD STQ* RDWEFG +(READ)/-(WRITE) FLAG 132*5053 PPQ42312 DCK/ I,H PPSCMAD1 DCK/ I,H PP DEL/ 1 PP NAM SCMAD1 DECK-ID B60 PERIPH. DRIVERS 1.0B SUMMARY-118 PP DEL/ 143 PP NUM $118 UPDATE NEW PSR LEVEL 118*4496 PP INS/ 1065 PP RAO* RUNCTR UPDATE RUN COUNT 118*4496 PP DEL/ 1071 PP* ONE CARD DELETED 118*4496 PPSCMAD2 DCK/ I,H PP DEL/ 1 PP NAM SCMAD2 DECK-ID B61 PERIPH. DRIVERS 1.0B SUMMARY-118 PP DEL/ 151 PP NUM $118 UPDATE NEW PSR LEVEL 118*4496 PP INS/ 1159 PP RAO* RUNCTR UPDATE RUN COUNT 118*4496 PP DEL/ 1165 PP* ONE CARD DELETED 118*4496 PPSCMCD1 DCK/ I,H PP DEL/ 1 PP NAM SCMCD1 DECK-ID B62 PERIPH. DRIVERS 1.0B SUMMARY-117 PP DEL/ 88 PP NUM $117 UPDATE NEW PSR LEVEL 117*4452 PP DEL/ 119 PP RAO INPERR INCREMENT INPUT ERROR COUNTER 117*4452 PP RTJ* (MESAGE) BAD CHARACTER ENTERED IN INPUT 117*4452 PPMES NUM $8244 117*4452 PP ADC (START-MES) 117*4452 PP NUM 3 117*4452 PP ADC MSGB-MES 117*4452 PP ADC MSGE-MSGB 117*4452 PP LDA INPERR 117*4452 PP INA -3 117*4452 PP SAZ INPTGF 117*4452 PP JMP* ENTER1 117*4452 PPINPTGF JMP ENDMSG 117*4452 PP DEL/ 128 PPINI3 STA BUFF+3 117*4452 PP DEL/ 204 PP STA LSBSAV 117*4452 PP INS/ 208 PP INA 1 117*4452 PP DEL/ 225 PPINI9G SAN INI9H 117*4452 PP INQ -1 117*4452 PPINI9H INA -1 117*4452 PP STA* MAXLSB 117*4452 PP DEL/ 584 PP RTJ COMPAR CELL CONTENTS 117*4452 PP DEL/ 616 PP SAN T6STUP 117*4452 PP INS/ 617 PP EQU LPMASK(2) 117*4452 PPMSKMSB NUM 0 117*4452 PPMSKLSB NUM 0 117*4452 PPT6STUP LDA MAXMSB 117*4452 PP CLR Q 117*4452 PPT6STA SAZ STMSKM 117*4452 PP INQ 1 117*4452 PP ARS 1 117*4452 PP JMP* T6STA 117*4452 PPSTMSKM LDA- LPMASK,Q 117*4452 PP STA* MSKMSB 117*4452 PP SAN TEST6 117*4452 PP LDA MAXLSB 117*4452 PP CLR Q 117*4452 PP SAP T6STB 117*4452 PP LDQ =N16 117*4452 PP JMP* STMSKL 117*4452 PPT6STB SAZ STMSKL 117*4452 PP INQ 1 117*4452 PP ARS 1 117*4452 PP JMP* T6STB 117*4452 PPSTMSKL LDA- LPMASK,Q 117*4452 PP STA* MSKLSB 117*4452 PP INS/ 635 PP LDA* MSKMSB 117*4452 PP SAN GETMSB 117*4452 PP STA MSB 117*4452 PP LDA LSB 117*4452 PP AND* MSKLSB 117*4452 PP STA LSB 117*4452 PP JMP* TESTB 117*4452 PPGETMSB LRS 16 117*4452 PP AND* MSKMSB 117*4452 PP STA MSB 117*4452 PP* TEST IF RANDOM SECTOR ADDRESS IS 117*4452 PPTESTB SUB MSBSAV ABOVE BEGINNING OF TEST AREA 117*4452 PP SAZ MAYBOK 117*4452 PP SAP OKTOP 117*4452 PP JMP* T67 TO HERE OUT OF BOUNDS 117*4452 PPMAYBOK LDA LSB 117*4452 PP SUB LSBSAV 117*4452 PP SAP OKTOP 117*4452 PP JMP* T67 TO HERE OUT OF BOUNDS 117*4452 PPOKTOP EQU OKTOP(*) 117*4452 PP DEL/ 638 PP JMP* T67A TO HERE OUT OF BOUNDS 117*4452 PP INS/ 640 PP ENA 0 117*4452 PP STA* T6OBCT CLEAR OUT OF BOUNDS COUNTER 117*4452 PP INS/ 658 PPT67A LDA* RNWRKG REDUCE RANDOM NUMBER SIZE 117*4452 PP AND =N$003F 117*4452 PP ADD =N$0016 117*4452 PP STA* RNWRKG 117*4452 PPT67 RAO* T6OBCT 117*4452 PP LDA* T6OBCT 117*4452 PP SUB =N1000 CK FOR 1000 SEQUENTIAL BOUNDRY FAILURES 117*4452 PP SAZ MESOB 117*4452 PP JMP* T63 TRY ANOTHER SECTOR ADDRESS 117*4452 PPMESOB RTJ (MESAGE) NO ADDRESS FOUND WITHIN BOUNDS 117*4452 PPMES20 NUM $8244 117*4452 PP ADC (START-MES20) 117*4452 PP NUM 3 117*4452 PP ADC MSG20B-MES20 117*4452 PP ADC MSG20E-MSG20B 117*4452 PP JMP ENDMSG 117*4452 PPT6OBCT NUM 0 117*4452 PP DEL/ 729 PP* ONE CARD DELETED 117*4452 PP INS/ 785 PP RAO* COUNT 117*4452 PP DEL/ 790 PPCMP3 EQU CMP3(*) 117*4452 PP INS/ 855 PP RTJ (RHXASC) CONVERT STATUS TO ASCII 117*4452 PP ADC (HXSTAT-*) SAVE IT 117*4452 PP DEL/ 892 PPMES6 NUM $0644 117*4452 PP INS/ 898 PP ADC MSG0B-MES6 117*4452 PP ADC MSG0E-MSG0B 117*4452 PP DEL/ 957 PPENDTST RAO PASSES 117*4452 PP INS/ 995 PPMSGB ALF 19, ILLEGAL CHARACTER PRESENT IN REQUEST 117*4452 PP EQU MSGE(*) 117*4452 PPMSG0B ALF 2, ( 117*4452 PPHXSTAT NUM 0,0 117*4452 PP ALF 1,) 117*4452 PP EQU MSG0E(*) 117*4452 PP INS/ 1054 PPMSG20B ALF 14, NO RANDOM SECTOR ADDRESS:R 117*4452 PP ALF 13,CREATED WAS WITHIN BOUNDS 117*4452 PP EQU MSG20E(*) 117*4452 PPSCMCD2 DCK/ I,H PP DEL/ 1 PP NAM SCMCD2 DECK-ID B63 PERIPH. DRIVERS 1.0B SUMMARY-117 PP DEL/ 88 PP NUM $117 UPDATE NEW PSR LEVEL 117*4452 PP DEL/ 119 PP RAO INPERR INCREMENT INPUT ERROR COUNTER 117*4452 PP RTJ* (MESAGE) BAD CHARACTER ENTERED IN INPUT 117*4452 PPMES NUM $8244 117*4452 PP ADC (START-MES) 117*4452 PP NUM 3 117*4452 PP ADC MSGB-MES 117*4452 PP ADC MSGE-MSGB 117*4452 PP LDA INPERR 117*4452 PP INA -3 117*4452 PP SAZ INPTGF 117*4452 PP JMP* ENTER1 117*4452 PPINPTGF JMP ENDMSG 117*4452 PP DEL/ 128 PPINI3 STA BUFF+3 117*4452 PP DEL/ 204 PP STA LSBSAV 117*4452 PP INS/ 208 PP INA 1 117*4452 PP DEL/ 225 PPINI9G SAN INI9H 117*4452 PP INQ -1 117*4452 PPINI9H INA -1 117*4452 PP STA* MAXLSB 117*4452 PP DEL/ 584 PP RTJ COMPAR CELL CONTENTS 117*4452 PP DEL/ 616 PP SAN T6STUP 117*4452 PP INS/ 617 PP EQU LPMASK(2) 117*4452 PPMSKMSB NUM 0 117*4452 PPMSKLSB NUM 0 117*4452 PPT6STUP LDA MAXMSB 117*4452 PP CLR Q 117*4452 PPT6STA SAZ STMSKM 117*4452 PP INQ 1 117*4452 PP ARS 1 117*4452 PP JMP* T6STA 117*4452 PPSTMSKM LDA- LPMASK,Q 117*4452 PP STA* MSKMSB 117*4452 PP SAN TEST6 117*4452 PP LDA MAXLSB 117*4452 PP CLR Q 117*4452 PP SAP T6STB 117*4452 PP LDQ =N16 117*4452 PP JMP* STMSKL 117*4452 PPT6STB SAZ STMSKL 117*4452 PP INQ 1 117*4452 PP ARS 1 117*4452 PP JMP* T6STB 117*4452 PPSTMSKL LDA- LPMASK,Q 117*4452 PP STA* MSKLSB 117*4452 PP INS/ 635 PP LDA* MSKMSB 117*4452 PP SAN GETMSB 117*4452 PP STA MSB 117*4452 PP LDA LSB 117*4452 PP AND* MSKLSB 117*4452 PP STA LSB 117*4452 PP JMP* TESTB 117*4452 PPGETMSB LRS 16 117*4452 PP AND* MSKMSB 117*4452 PP STA MSB 117*4452 PP* TEST IF RANDOM SECTOR ADDRESS IS 117*4452 PPTESTB SUB MSBSAV ABOVE BEGINNING OF TEST AREA 117*4452 PP SAZ MAYBOK 117*4452 PP SAP OKTOP 117*4452 PP JMP* T67 TO HERE OUT OF BOUNDS 117*4452 PPMAYBOK LDA LSB 117*4452 PP SUB LSBSAV 117*4452 PP SAP OKTOP 117*4452 PP JMP* T67 TO HERE OUT OF BOUNDS 117*4452 PPOKTOP EQU OKTOP(*) 117*4452 PP DEL/ 638 PP JMP* T67A TO HERE OUT OF BOUNDS 117*4452 PP INS/ 640 PP ENA 0 117*4452 PP STA* T6OBCT CLEAR OUT OF BOUNDS COUNTER 117*4452 PP INS/ 658 PPT67A LDA* RNWRKG REDUCE RANDOM NUMBER SIZE 117*4452 PP AND =N$003F 117*4452 PP ADD =N$0016 117*4452 PP STA* RNWRKG 117*4452 PPT67 RAO* T6OBCT 117*4452 PP LDA* T6OBCT 117*4452 PP SUB =N1000 CK FOR 1000 SEQUENTIAL BOUNDRY FAILURES 117*4452 PP SAZ MESOB 117*4452 PP JMP* T63 TRY ANOTHER SECTOR ADDRESS 117*4452 PPMESOB RTJ (MESAGE) NO ADDRESS FOUND WITHIN BOUNDS 117*4452 PPMES20 NUM $8244 117*4452 PP ADC (START-MES20) 117*4452 PP NUM 3 117*4452 PP ADC MSG20B-MES20 117*4452 PP ADC MSG20E-MSG20B 117*4452 PP JMP ENDMSG 117*4452 PPT6OBCT NUM 0 117*4452 PP DEL/ 729 PP* ONE CARD DELETED 117*4452 PP INS/ 785 PP RAO* COUNT 117*4452 PP DEL/ 790 PPCMP3 EQU CMP3(*) 117*4452 PP INS/ 855 PP RTJ (RHXASC) CONVERT STATUS TO ASCII 117*4452 PP ADC (HXSTAT-*) SAVE IT 117*4452 PP DEL/ 892 PPMES6 NUM $0644 117*4452 PP INS/ 898 PP ADC MSG0B-MES6 117*4452 PP ADC MSG0E-MSG0B 117*4452 PP DEL/ 957 PPENDTST RAO PASSES 117*4452 PP INS/ 995 PPMSGB ALF 19, ILLEGAL CHARACTER PRESENT IN REQUEST 117*4452 PP EQU MSGE(*) 117*4452 PPMSG0B ALF 2, ( 117*4452 PPHXSTAT NUM 0,0 117*4452 PP ALF 1,) 117*4452 PP EQU MSG0E(*) 117*4452 PP INS/ 1054 PPMSG20B ALF 14, NO RANDOM SECTOR ADDRESS:R 117*4452 PP ALF 13,CREATED WAS WITHIN BOUNDS 117*4452 PP EQU MSG20E(*) 117*4452 PPSCMCRD DCK/ I,H PPSCMCTR DCK/ I,H PPSCMDAC DCK/ I,H PPSCMLLV DCK/ I,H PPSCMMTT DCK/ I,H PP DEL/ 1 PP NAM SCMMTT DECK-ID B68 PERIPH. DRIVERS 1.0B SUMMARY-117 PP DEL/ 81 PP NUM $117 UPDATE NEW PSR LEVEL 117*4452 PP DEL/ 111 PP RAO INPERR INCREMENT INPUT ERROR COUNTER 117*4452 PP RTJ* (MESAGE) BAD CHARACTER ENTERED IN INPUT 117*4452 PPMES NUM $8244 117*4452 PP ADC (START-MES) 117*4452 PP NUM 3 117*4452 PP ADC MSGB-MES 117*4452 PP ADC MSGE-MSGB 117*4452 PP LDA INPERR 117*4452 PP INA -3 117*4452 PP SAZ INPTGF 117*4452 PP JMP* ENTER 117*4452 PPINPTGF JMP ENDMSG 117*4452 PP INS/ 681 PP LDQ POINTR 117*4452 PP RAO ERRCTR,Q INCREMENT PROPER ERROR COUNTER 117*4452 PP DEL/ 687 PP* ONE CARD DELETED 117*4452 PP INS/ 1114 PP SPC 4 117*4452 PPMSGB ALF 19, ILLEGAL CHARACTER PRESENT IN REQUEST 117*4452 PP EQU MSGE(*) 117*4452 PPSCMPP1 DCK/ I,H PPSCMPRT DCK/ I,H PPSCMPR1 DCK/ I,H PPSCMRLY DCK/ I,H PPSCMSAU DCK/ I,H PPSCMSTU DCK/ I,H PP DEL/ 1 PP NAM SCMSTU DECK-ID B74 PERIPH. DRIVERS 1.0B SUMMARY-118 PP DEL/ 8 PP* M A S S M E M O R Y R E S I D E N T 118*4495 PP DEL/ 116 PP NUM $118 UPDATE NEW PSR LEVEL 118*4495 PP DEL/ 139,162 PPENTER EQU ENTER(*) 118*4495 PP DEL/ 1069,1070 PP* TWO RECORDS DELETED 118*4495 PPSCMTTY DCK/ I,H PPS15721 DCK/ I,H PPT5954 DCK/ I,H PP DEL/ 1 PP NAM T5954 DECK-ID B77 PERIPH. DRIVERS 1.0B SUMMARY-112 PP INS/ 6 PP ENT TRAIN 112*4174 PPREWCK DCK/ I,H PPSCMHFP DCK/ I,H PP DEL/ 1 PP NAM SCMHFP DECK-ID B79 PERIPH. DRIVERS 1.0B SUMMARY-113 PP DEL/ 77 PP NUM $113 UPDATE NEW PSR LEVEL 113*4180 PP DEL/ 265 PPEXIT LDQ E17811 1781-1 EQUIPMENT CODE 113*4180 PP DEL/ 693 PP SQZ AE 113*4180 PP DEL/ 841 PP SQZ AF 113*4180 PP DEL/ 996,997 PP LDQ* (EQ1781) 1781-1 EQUIPMENT CODE 113*4180 PP DEL/ 1019 PP LDQ* (EQ1781) 1781-1 EQUIPMENT CODE 113*4180 PP DEL/ 1037 PPEQ1781 ADC E17811 1781-1 EQUIPMENT CODE 113*4180 PP SPC 3 113*4180 PPHDWRS3 LDQ* (EQ1781) 1781-1 EQUIPMENT CODE 113*4180 PP DEL/ 1096 PP LDQ* (EQ1781) 1781-1 EQUIPMENT CODE 113*4180 PP DEL/ 1699,1700 PP LDQ* (E1781Q) 1781-1 EQUIPMENT CODE 113*4180 PP DEL/ 1722 PPRCHK40 LDQ* (E1781Q) 1781-1 EQUIPMENT CODE 113*4180 PP INS/ 1729 PPE1781Q ADC E17811 1781-1 EQUIPMENT CODE 113*4180 PP DEL/ 1737 PP ADQ* (E1781Q) EQUIPMENT CODE PLUS STATION 113*4180 PPSFLOAT DCK/ I,H PP END P