PD1827 DCK/ I,H PP DEL/ 1 PP NAM D1827 DECK-ID C01 PERIPH. DRIVERS 1.3C SUMMARY-132 PP INS/ 208 PP ENT BUFR1 131*5239 PP DEL/ 310 PP SAN I121 CHANGE ZERO-WORD REQUEST 132*5330 PP INA 1 TO ONE WORD REQUEST 132*5330 PPI121 STA* WORDNO PLUG INTO INTERNAL REQUEST 132*5330 PP DEL/ 327 PP SAP I19 SKIP DOWN 132*5330 PPK1827 DCK/ I,H PPLPWAIT DCK/ I,H PPCKGINT DCK/ I,H PPEDIT DCK/ I,H PPDUMMY DCK/ I,H PPD1829 DCK/ I,H PP DEL/ 1 PP NAM D1829 DECK-ID C07 PERIPH. DRIVERS 1.3C SUMMARY-128 PPK1829 DCK/ I,H PP DEL/ 1 PP NAM K1829 DECK-ID C08 PERIPH. DRIVERS 1.3C SUMMARY-128 PPFORMT DCK/ I,H PP DEL/ 1 PP NAM FORMT DECK-ID C09 PERIPH. DRIVERS 1.3C SUMMARY-128 PP DEL/ 826 PP LDQ- BUFR+3,I OVERIDE SET, GET 4TH WORD OF BUFFER 128*5275 PPFAULTN DCK/ I,H PP DEL/ 1 PP NAM FAULTN DECK-ID C10 PERIPH. DRIVERS 1.3C SUMMARY-128 PRESTAT DCK/ I,H H&RPCRPRMS DCK/ I,H PPD1860 DCK/ I,H PP DEL/ 1 PP NAM D1860 DECK-ID C13 PERIPH. DRIVERS 1.0C SUMMARY-113 PR DEL/ 303,311 A&RP TRA Q 113*4209 PP LDA =XC1860 113*4209 PP SUB =XMASTAP 113*4209 PP AAQ A 113*4209 PP STA- 2,I STORE CONTINUATOR ADDRESS IN PDT 113*4209 PP LDA =XE1860 113*4209 PP SUB =XMASTAP 113*4209 PP AAQ A 113*4209 PP STA- 3,I STORE TIMEOUT ADDRESS IN PDT 113*4209 PP LDA =XREWCKL SET REWIND SCHEDULER ADDRESS 113*4209 PP SUB =XMASTAP 113*4209 PP AAQ A 113*4209 PP STA REWSCD 113*4209 PP DEL/ 368 PP SAZ INF10 NO, COMPLETE REQUEST 113*4087 PP DEL/ 370 PP SAN INF10 YES, COMPLETE REQUEST 113*4087 PP DEL/ 372,377 PP* 6 CARDS DELETED 113*4087 PPK1860 DCK/ I,H PP DEL/ 1 PP NAM K1860 DECK-ID C14 PERIPH. DRIVERS 1.0C SUMMARY-123 PP DEL/ 316 PP AND- ONEBIT+14 IS TAPE MARK SET 123*4880 PP DEL/ 340 PP AND- ONEBIT+14 IS TAPE MARK SET 123*4880 PPCKREQ DCK/ I,H PPREWCKL DCK/ I,H PPFORMIT DCK/ I,H PPWAIT DCK/ I,H PPXMOT DCK/ I,H PPXFER DCK/ I,H PP DEL/ 1 PP NAM XFER DECK-ID C20 PERIPH. DRIVERS 1.0C SUMMARY-116 PP INS/ 10 PP* 116*4363 PP* 116*4363 PP* MODIFIED FOR TIMESHARE 3.0 TO USE NON-EMULATOR AUTO 116*4363 PP* DATA TRANSFER ROUTINE IN MICRO MEMORY. 116*4363 PP* THE MICRO ROUTINES ARE LOADED BY THE MICRO MEMORY 116*4363 PP* LOADER ORDINAL 'MICLOD'. THE LOCATION OF THE MICRO 116*4363 PP* ROUTINES IS RECORDED IN SYSDAT. 116*4363 PP* 116*4363 PP INS/ 85 PP EXT MICSUB LOC CONTAINING ADDR OF MICRO ROUTINE 116*4363 PP INS/ 208 PR LR4+ MICSUB 116*4363 '&RP S4N ENB4-*-1 SKIP IF MICRO ROUTINES LOADED 116*4363 PP INS/ 211 PPENB4 XFA 1 1-REG = ADT TABLE LOCN 116*4363 PP ENA 8 CALL ADT SET UP ROUTINE 116*4363 PP EMS 4 RETURNS A=P/MA ADRES, BIT 15 SET 116*4363 PP ADQ- ONEBIT+15 SET ENABLE FLAG 116*4363 PP DMI DEFINE MICRO INTERRUPT 116*4363 PP JMP* (ENBMIC) 116*4363 PP JMP* (ENBMIC) 116*4363 PPNEXTIO DCK/ I,H PP DEL/ 1 PP NAM NEXTIO DECK-ID C21 PERIPH. DRIVERS 1.0C SUMMARY-113 PP INS/ 165 PP INA 1 FORM FWA+1 113*4087 PP DEL/ 172 PP* 1 CARD DELETED 113*4087 PPTK7DAT DCK/ I,H PPTK7 DCK/ I,H PPRECVRY DCK/ I,H PPD1810 DCK/ I,H PP DEL/ 1 PP NAM D1810 DECK-ID C25 PERIPH. DRIVERS 1.0C SUMMARY-132 PP INS/ 26 PP* NUM 0 19 FULL CHARACTER SET FLAG 132*5031 PP INS/ 53 PP EQU CHRFLG(19) FULL CHARACTER SET FLAG 132*5031 PP INS/ 68 PP EQU NZERO($12) 132*5031 PP INS/ 132 PP CLR A CLEAR PASS 132*5031 PP STA PASCNT COUNT CELL. 132*5031 PP DEL/ 196 PPGOMAN ENA 6 116*4326 PP OUT ERROR-* CLEAR INTERRUPT-SELECT INT DATA 116*4326 PP LDA- FLAG,I MI BEFORE 116*4326 PP DEL/ 198,199 PP* ** 2 CARDS DELETED ** 116*4326 PP DEL/ 204 PP* ** 1 CARDS DELETED ** 116*4326 PP INS/ 211 PPRELXIT RTJ RLAQ RELEASE A/Q 116*4326 PP STQ- I 116*4326 PP DEL/ 215,217 PP* ** 3 CARDS DELETED ** 116*4326 PP DEL/ 240,241 PP* **** 2 CARDS DELETED ***** 116*4326 PP DEL/ 279 PP JMP- (DISPAD) 116*4326 PP DEL/ 315,316 PP* **** 2 CARDS DELETED ***** 116*4326 PP INS/ 486 PP INA -8 IS IT CURSER LEFT ARROW (CRT) 132*5031 PP SAZ TOERAS YES, ERASE CHAR 132*5031 PP INA -$57 IS IT LEFT ARROW OR UNDERLINE 132*5031 PR SAN 1 (CRT OR TTY). 132*5031 C&RPTOERAS JMP* ERASE 132*5031 PP DEL/ 501 PP SAZ 2 132*5031 PP RAO* PASCNT A PASS, INCREMENT PASS COUNT 132*5031 PP DEL/ 503 PPZIFORM LDA- CHRFLG,I DO WE WANT FULL CHARACTER SET 132*5031 PP SAN ZIFORN-*-1 YES, BYPASS LOWER CASE CHECK 132*5031 PP TRQ A NO, CHECK AND CONVERT LOWER CASE 132*5031 PP INS/ 555 PP CLR A CLEAR PASS 132*5031 PP STA* PASCNT COUNT CELL. 132*5031 PP INS/ 573 PP* 132*5031 PP* 132*5031 PPPASCNT NUM 0 COUNT OF PASSED CHARACTERS 132*5031 PP* 132*5031 PP* 132*5031 PPERASE ENA 4 IS SWITCH 132*5031 PP AND- SWITCH,I SET. 132*5031 PP SAN ERAS0-*-1 YES, CANNOT BE AT ORIGIN 132*5031 PP LDA- COREIN,I ARE WE AT 132*5031 PP SUB- CORE,I START OF BUFFER. 132*5031 PP SAN ERAS0-*-1 NO 132*5031 PP JMP* ERASEX YES, DO NOTHING 132*5031 PPERAS0 LDA* PASCNT GET PASS COUNT 132*5031 PP SAZ ERAS1-*-1 NO PASS CHARACTERS 132*5031 PR INA -1 DECREMENT 132*5031 M&RP STA* PASCNT PASS COUNT. 132*5031 PP JMP* ERASEX 132*5031 PPERAS1 ENA 4 REVERSE THE 132*5031 PP EOR- SWITCH,I UPPER-LOWER 132*5031 PP STA- SWITCH,I SWITCH POSITION. 132*5031 PP AND- $25 ($4) IS SWITCH SET NOW 132*5031 PP LDQ- CORE,I GET LAST LOCATION 132*5031 PP SAN CLRLOW-*-1 SWITCH SET, CLEAR LOW 8 BITS 132*5031 PP SET A SWITCH NOT SET, SET 132*5031 PP JMP* ERAS2 COMPLETE WORD. 132*5031 PPCLRLOW INQ -1 DECREMENT 132*5031 PP STQ- CORE,I CORE LOCATION. 132*5031 PP LDA- (ZERO),Q GET WORD 132*5031 PP AND- NZERO+8 MASK OUT LOWER 8 BITS 132*5031 PP EOR- LPMSK+8 STORE ALL 1'S IN LOWER 8 BITS 132*5031 PPERAS2 STA- (ZERO),Q RESTORE WORD 132*5031 PPERASEX JMP EXIT 132*5031 PP* 132*5031 PP* 132*5031 PPQ1810 DCK/ I,H PPRCMRQ9 DCK/ I,H PPRCMLC9 DCK/ I,H PP DEL/ 1 PP NAM RCMLC9 DECK-ID C30 PERIPH. DRIVERS 1.0C SUMMARY-131 PP DEL/ 384,386 PP************************* 3 CARDS DELETED ********************* 118*4023 PP DEL/ 734,744 PP SAN EOF7TK YES, CHECK FOR 7-TRACK EOF DATA 131*5013 PP JMP* CL03 NO, CONTINUE ON 131*5013 PPEOF7TK LDA- MFLG,I IS THIS A MOTION REQUEST 131*5013 PP SAN 1 SKIP IF NON MOTION 131*5013 PP JMP* CL02 131*5013 PP LDQ- ABUFF,I GET FIRST DATA WORD 131*5013 PP LDA 0,Q IS IT A FILE MARK DATA WORD 131*5013 PP ARS 8 131*5013 PP EOR =N$000F 131*5013 PP SAN CL01 SKIP IF NOT A FILE MARK 131*5013 PP LDA =N$DFFF REMOVE POSSIBLE DATA ERROR 131*5013 PP AND- ESTAT2,I STATUS BIT FROM ESTAT2 AND 131*5013 PPABZLDL DCK/ I,H PPABZLDC DCK/ I,H PPD18325 DCK/ I,H PP DEL/ 1 PP NAM D18325 DECK-ID C33 PERIPH. DRIVERS 1.1C SUMMARY-132 PP DEL/ 323,325 PP* 2 CARDS DELETED 132*4376 PPK18325 DCK/ I,H PP DEL/ 1 PP NAM K18325 DECK-ID C34 PERIPH. DRIVERS 1.1C SUMMARY-132 PP DEL/ 362 PP* 1 CARD DELETED 132*4376 PPIOCAS DCK/ I,H PPFS2CAS DCK/ I,H PPMCAS DCK/ I,H PPNEXCAS DCK/ I,H PP DEL/ 1 PP NAM NEXCAS DECK-ID C38 PERIPH. DRIVERS 1.1C SUMMARY-132 PP INS/ 181 PP INA 1 * GET NEXT LOCATION FOR DATA 132*4376 PP DEL/ 190 PP* 1 CARD DELETED 132*4376 PPRECCAS DCK/ I,H PPXCAS DCK/ I,H PPVCAS DCK/ I,H PPWAITCS DCK/ I,H PPQMLCT7 DCK/ I,H PPQMLCT9 DCK/ I,H PPDTLCT7 DCK/ I,H PPDTLCT9 DCK/ I,H PPCP026 DCK/ I,H PPCP029 DCK/ I,H PPQCDDMY DCK/ I,H PPQMTDMY DCK/ I,H PPQPRDMY DCK/ I,H PPD18335 DCK/ I,H PRGFDD DCK/ I,H #&RPKFDD DCK/ I,H PPMFDD DCK/ I,H PP DEL/ 1 PP NAM MFDD DECK-ID C55 PERIPH. DRIVERS 1.1C SUMMARY-132 PP INS/ 327 PP ALS 1 BIT 1 IS THE WRITE PROTECT FLAG 132*4578 PPNFDD DCK/ I,H PP DEL/ 1 PP NAM NFDD DECK-ID C56 PERIPH. DRIVERS 1.1C SUMMARY-132 PP DEL/ 553 PP QLS 14 CHECK BIT 1 FOR WRITE PROTECT 132*4578 PP SQP N1320 NOT READ ONLY REQUEST 132*4578 PPXFDD DCK/ I,H PPAFDD DCK/ I,H PPOFDD DCK/ I,H PPQFDD DCK/ I,H PPUFDD DCK/ I,H PP DEL/ 1 PP NAM UFDD DECK-ID C61 PERIPH. DRIVERS 1.1C SUMMARY-132 PP DEL/ 381 PP ALS 14 CHECK BIT 1 FOR UNIT COMPARE 132*4578 PP SAP UF20 NO UNIT COMPARE 132*4578 PPLFDD DCK/ I,H PPWFDD DCK/ I,H PPVFDD DCK/ I,H PPPFDD DCK/ I,H PPBFDD DCK/ I,H PPHFDD DCK/ I,H PPLOGFDD DCK/ I,H PPJFDD DCK/ I,H PPDUFDD DCK/ I,H PPDSMD DCK/ I,H PPCSMD DCK/ I,H PPESMD DCK/ I,H PP DEL/ 1 PP NAM ESMD DECK-ID C73 PERIPH. DRIVERS 1.2C SUMMARY-128 PP INS/ 58 PP EXT B20 BSMD ENTRY TO INITIATE SEEK. 128*5274 PP DEL/ 368,369 PP JMP+ B20 GO REDO SEEK. 128*5274 PPBSMD DCK/ I,H PP DEL/ 1 PP NAM BSMD DECK-ID C74 PERIPH. DRIVERS 1.2C SUMMARY-128 PP INS/ 30 PP ENT B20 ENTRY FOR RESEEK LOGIC(USED BY ESMD). 128*5274 PPALMERR DCK/ I,H PP DEL/ 1 PP NAM ALMERR DECK-ID C75 PERIPH. DRIVERS 1.2C SUMMARY-131 PP DEL/ 326 PP SAZ ALM040 SENSE RECOVERY NOT ON 131*4962 PP INS/ 338 PP RTJ* CKCYAD CHECK CYLINDER ADDRESS 128*5304 PP JMP* ALM054 RETURN HERE IF GOOD 128*5304 PP LDA =N$F3 RETURN HERE IF BAD 128*5304 PP STA- RTZFLG,I SET RTZ IN PROGRESS 128*5304 PP ENQ ECRET6 128*5304 PP JMP+ XSMD GO REDO SEEK (WITH RTZ) 128*5304 PPALM054 EQU ALM054(*) 128*5304 PP DEL/ 343,346 PP SAZ ALM064 SENSE NOT LOST DATA ERROR 128*5299 PP JMP* ALM100 128*5299 PPALM064 LDA- CUSTAT,I =CU STATUS 128*5299 PP EOR- ONEBIT+2 128*5299 PP SAZ ALM070 SENSE ONLY ECC ERROR 128*5299 PP LDA- DSTAT1,I 128*5299 PP AND =N$FFE7 128*5299 PP SAN ALM100 SENSE MORE THAN SYNC BYTE NOT FOUND/ADDR. MRK. PP DEL/ 369 PPALM100 RTJ* CKCYAD CHECK CYLINDER ADDRESS 128*5304 PP JMP* ALM102 RETURN HERE IF GOOD 128*5304 PP ENA 10 RETURN HERE IF BAD 128*5304 PP JMP+ CLRINT GO TO ERROR LOGIC WITH MM ERROR = 10 128*5304 PPALM102 ENQ TSIZ SET MAX. ERROR SEARCH SIZE 128*4185 PP INS/ 391 PP SPC 1 128*5304 PP* CHECK CYLINDER ADDRESS SUBROUTINE 128*5304 PP* COMPARE LOWER 8 BITS OF CYLINDER ADDRESS WITH 128*5304 PP* DA FILE 3. 128*5304 PP* CALLING FORMAT- RTJ CKCYAD 128*5304 PP* (RETURN HERE IF COMPARE IS GOOD) 128*5304 PP* (RETURN HERE IF COMPERE IS BAD) 128*5304 PP SPC 1 128*5304 PPCKCYAD 0 0 128*5304 PP LDA- ESTAT2,I =DA STATUS 128*5304 PP AND* H4010 128*5304 PP EOR* H4010 128*5304 PP SAZ ALM200 SENSE ALARM + CU ERROR 128*5304 PP JMP* ALM230 128*5304 PPALM200 LDA- CUSTAT,I 128*5304 PP SAZ ALM220 SENSE CU STATUS = 0 128*5304 PP JMP* ALM230 128*5304 PPALM220 LDQ- EWES,I 128*5304 PP INQ DRCO14 128*5304 PP ENA 3 128*5304 PP OUT REJ-* SET-UP TO READ FILE 3 128*5304 PP INQ DRCO00-DRCO14 128*5304 PP INP REJ-* 128*5304 PP STA* F3SAV 128*5304 PP LDA- CYLADR,I 128*5304 PP AND- $A SAVE BITS 7-0 OF CYLINDER ADDRESS 128*5304 PP EOR* F3SAV 128*5304 PP SAZ ALM230 SENSE CYLINDER ADDRESS OK 128*5304 PP RAO* BCOUNT BUMP WRONG CYLINDER ADDRESS COUNTER 128*5304 PP RAO* CKCYAD RETURN P+1 FOR WRONG CYL. ADR. 128*5304 PPALM230 JMP* (CKCYAD) 128*5304 PP SPC 1 128*5304 PPREJ JMP* REJ1 INTERNAL REJECT 128*5304 PP ENA 6 EXTERNAL REJECT 128*5304 PP JMP* REJ2 128*5304 PPREJ1 ENA 5 128*5304 PPREJ2 JMP+ CLRINT 128*5304 PPF3SAV NUM 0 128*5304 PPBCOUNT NUM 0 COUNT OF WRONG CYL. ADDRS. 128*5304 PPH4010 NUM $4010 128*5304 PPXSMD DCK/ I,H PP DEL/ 1 PP NAM XSMD DECK-ID C76 PERIPH. DRIVERS 1.2C SUMMARY-131 PP INS/ 67 PP ENT SPL4 END-OF-CYLINDER W/O ECCOR CALC. 128*5299 PP INS/ 86 PP EXT DRICHK CHECK DRIVE AVAILABILITY SUBROUTINE 131*5326 PP EXT SMDGDR GET DRIVE ENTRY 131*5326 PP DEL/ 397 PPSPL4 RAO- CYLADR,I INCREMENT CYLINDER ADDRESS 128*5299 PP DEL/ 403 PP RTJ DRICHK CHECK DRIVE 131*5326 PP SAZ SLP5 SENSE DRIVE IS FREE 131*5326 PP JMP SMDGDR SET UP TO REQUEST DRIVE 131*5326 PPSLP5 RTJ* (CNDRAD) CONNECT TO DRIVE 131*5326 PP INS/ 787 PP LDQ- EWES,I 128*5304 PP INQ DRCO05 128*5304 PP LDA- CYLADR,I OUTPUT CYLINDER ADDRESS FOR 128*5304 PP EOR- ONEBIT+15 CYLINDER ADDRESS CHECK IN DA. 128*5304 PP OUT DEVERR-* 128*5304 PPSSMD DCK/ I,H PP DEL/ 1 PP NAM SSMD DECK-ID C77 PERIPH. DRIVERS 1.2C SUMMARY-128 PP DEL/ 454 PP SAM CONH SENSE UNIT READY 128*5273 PP DEL/ 457,463 PP********* ON CYLINDER CHECK DELETED HERE(7 CARDS) ************128*5273 PPLIKDUM DCK/ I,H PPECCALG DCK/ I,H PP DEL/ 1 PP NAM ECCALG DECK-ID C79 PERIPH. DRIVERS 1.2C SUMMARY-128 PP INS/ 48 PP EXT FILSMD 128*4977 PP EXT COMPV4 MAGNITUDE COMPARISON ROUTINE(INTRVEC) 128*5299 PP EXT SPL4 END-OF-CYL. LOGIC(XSMD) W/O ECCOR CALC128*5299 PP DEL/ 296,304 PP LDA- SINTER,I 128*5299 PP SAP ECC010 SENSE NOT ADDRESS FIELD(GAP A) 128*5299 PP DEL/ 310 PP JMP* ECX0 GO TO ECN PPECC010 LDA- CUSTAT,I 128*5299 PP ALS 9 128*5299 PP SAP ECC016 SENSE NOT DRIVE STATUS 1 ERROR 128*5299 PP* NOTE - DRIVE STATUS 1 ERRORS ALLOWED TO ATTEMPT 128*5299 PP* RECOVERY ARE SYNC BYTE NOT FOUND, AND ADDRESS 128*5299 PP* MARK NOT FOUND. 128*5299 PP DEL/ 321 PP JMP ECX GO TO EXIT LOGIC. 128*5299 PP DEL/ 357 PP JMP* ECXH GO TO EXIT LOGIC. 128*5299 PP DEL/ 388,399 PP STQ* AECCOR SAVE ADDR. OF CORRECTION. 128*5299 PP RTJ COMPV4 MAGNITUDE COMPARISION ROUTINE 128*5299 PP INA 0 128*5299 PP SAZ STO4 SENSE OUTSIDE REQUESTORS BUFFER. 128*5299 PP LDA* ECCORR RESTORE A REGISTER 128*5299 PP LDQ* AECCOR RESTORE Q REGISTER 128*5299 PP INS/ 405 PPAECCOR NUM 0 128*5299 PP DEL/ 517,518 PP ENA $73 WRITE WITH OFFSET ILLEGAL,EXIT RECOV'Y128*4975 PP RTJ* RDRCON CLEAR DRIVE STATUS 128*4975 PP JMP* ECX045 128*4975 PP DEL/ 556 PPECX010 ENQ 3 128*4977 PP RTJ+ FILSMD SAVE INFO FOR DIAGNOSTIC. 128*4977 PP JMP* ECX056 128*4977 PP DEL/ 593 PPECX045 ENA UNCECC UNCORRECTABLE ECC ERROR CODE 128*4975 PP DEL/ 603 PP SAP ECX060 SENSE NOT END-OF-XFER 128*5299 PP DEL/ 620,621 PP JMP+ SPL4 GO TO XSMD/SPLITT W/O ECCOR CALC. 128*5299 PPSMDNDR DCK/ I,H PPSMD2DA DCK/ I,H PPDILUSS DCK/ I,H PPDMYCP DCK/ I,H PPSMD1DA DCK/ I,H PPSMD1DR DCK/ I,H PPSMDCP DCK/ I,H PPNODIAS DCK/ I,H PPQ18331 DCK/ I,H PP DEL/ 1 PP NAM Q18331 DECK-ID C88 PERIPH. DRIVERS 1.2C SUMMARY-131 PP DEL/ 277,279 PP SAN GOON4 SENSE PART 1 TO LOAD 131*4928 PP JMP* ONGO 131*4928 PPGOON4 STA- I 131*4928 PP LDA* LPART1 PICK UP LENGTH OF PART 1 IMAGE 131*4928 PP SAM GOON1 SKIP IF GT 32K WORDS 131*4928 PP JMP* GOON3 131*4928 PPGOON1 LDA* PART1A PICK UP ADDRESS OF PART1 131*4928 PP LDQ* H7FE0 SET TO TRANSFER FIRST $7FE0 WORDS 131*4928 PP RTJ* QMASS DO TRANSFER 131*4928 PP SAN GOON2 SKIP IF NO ERROR 131*4928 PP JMP* GOON TRY AGAIN IF ERROR 131*4928 PPGOON2 LDA* LPART1 UPDATE LENGTH OF PART 1 131*4928 PP SUB* H7FE0 131*4928 PP STA* LPART1 131*4928 PP LDA* PART1A UPDATE STARTING ADDRESS 131*4928 PP ADD* H7FE0 131*4928 PP STA* PART1A 131*4928 PP LDA* PART01 UPDATE SECTOR ADDRESS 131*4928 PP ADD =N341 131*4928 PP STA* PART01 131*4928 PPGOON3 LDA* PART01 131*4928 PP STA- I SET START SECTOR 131*4928 PP LDA* PART1A PICK UP START ADDRESS 131*4928 PP DEL/ 283 PP JMP* GOON3 KEEP TRYING IF ERROR 131*4928 PP INS/ 285 PP SPC 1 PRH7FE0 NUM $7FE0 131*4928 <&RPB18331 DCK/ I,H PPDPSDSK DCK/ I,H PPSMDMPT DCK/ I,H PPSMDMPI DCK/ I,H PPSMDINT DCK/ I,H PPMDRSMD DCK/ I,H PPSMDTGS DCK/ I,H PPD18ECM DCK/ I,H PPBOOTC3 DCK/ I,H PPDMP827 DCK/ I,H PPQCARD DCK/ I,H PPQPTDMY DCK/ I,H PPQ1827 DCK/ I,H PPBOOTL7 DCK/ I,H PPBOOTL9 DCK/ I,H PPECM2KB DCK/ I,H PPECMDMP DCK/ I,H PP DEL/ 1 PP NAM ECMDMP DECK-ID D10 PERIPH. DRIVERS 1.1C SUMMARY-116 PP DEL/ 198 PP STA* HEXCTR 116*4357 PP DEL/ 205 PP ADD* HEXCTR GET ABSOLUTE HEXADECIMAL DIGIT 116*4357 PP DEL/ 207 PP EOR* HEXCTR GET RELATIVE HEXADECIMAL DIGIT 116*4357 PP INS/ 217 PP* 116*4357 PPHEXCTR NUM 0 HEX COLUMN COUNTER 116*4357 PP DEL/ 276,277 PP SAP CHKA 116*4357 PP INA $10 INCREMENT TO NEXT LINE 116*4357 PP SAM CHKB SKIP IF STILL IN UPPER BANK 116*4357 PP JMP* ALLDON JUST WRAPPED AROUND 116*4357 PPCHKA INA $10 116*4357 PPCHKB STA* CURADR 116*4357 PP DEL/ 358 PP* ONE CARD DELETED 116*4357 PP DEL/ 425 PP LDQ* CURADR 116*4357 PP DEL/ 428 PP RTJ* GETWD SET UP THE PAGE REGISTERS AND CONVERT 116*4357 PP DEL/ 430 PPLOG10 RTJ* LOGABS CONVERT LOGICAL ADDRESS TO PHYSICAL 116*4357 PPDSKCDR DCK/ I,H PPMON1 DCK/ I,H PPFDDUTY DCK/ I,H PPFUPROC DCK/ I,H PP DEL/ 2 PP 1 /DECK-ID C98 PERIPH. DRIVERS 1.1C SUMMARY-131 PP DEL/ 28 PPC INITIALIZE A FDD *I,UUU,NUM,A 131*5260 PP INS/ 31 PPC INITIALIZE ODS DIRECTORY *D,UUU 131*5260 PPC ODS BUILD,ADD,OR REPLACE *O,UUU 131*5260 PPC PROGRAM NAME SPEC. *,PGMNAM 131*5260 PPC PROGRAM BINARY ... 131*5260 PPC ADDITIONAL PROGRAM . 131*5260 PPC NAMES AND BINARIES . 131*5260 PPC TERMINATED BY AN *T *T 131*5260 PP INS/ 36 PPC A = B (OR BLANK), IF DISK IS TO BE131*5260 PPC INITIALIZED IN NORMAL DSA 131*5260 PPC FORMAT (SECTORS ASSIGNED 131*5260 PPC SEQUENTIALLY). 131*5260 PPC = I IF INTERLACING OF SECTORS 131*5260 PPC DESIRED (FOR FASTER A/Q 131*5260 PPC ACCESS.) 131*5260 PP INS/ 78 PPC ************************************************************* 131*5260 PP INTEGER IEOF PPC ************************************************************* 131*5260 PP INS/ 86 PPC ************************************************************* 131*5260 PP RELATIVE ODSBLD PPC ************************************************************* 131*5260 PP INS/ 88 PPC ************************************************************* 131*5260 PP DATA IEOF/$1300/ PPC ************************************************************* 131*5260 PP INS/ 122 PPC ************************************************************* 131*5260 PPC CHECK FOR *D - ODS DIRECT. INIT. PP IF (CTLBUF(1) .EQ.$2A44) GOTO 1100 PPC CHECK FOR *O - ODS EDITOR PP IF (CTLBUF(1) .EQ. $2A4F) GO TO 1200 PPC ************************************************************* 131*5260 PP INS/ 190 PPC ************************************************************* 131*5260 PP INTLAC=FALSE PP IF (AND(CTLBUF(6),$FF) .EQ. $49) INTLAC=TRUE PPC ************************************************************* 131*5260 PR DEL/ 193 Q&RPC ************************************************************* 131*5260 PP 510 CALL INIFDD (PGMBUF,PGMLMT,INTLAC,EQUVAR) PPC ************************************************************* 131*5260 PP DEL/ 245 *PSR PPC ************************************************************* 131*5260 PP SECADR=SECADR + (PGMPTR-1)/WRDSEC+1 PPC ************************************************************* 131*5260 PP INS/ 266 PPC ************************************************************* 131*5260 PPC CHECK FOR MAG TAPE EOF MARK PP IF (CTLBUF .NE. IEOF ) GO TO 1025 PP ISECT = SECADR + 1 PP CALL HEXASC (ISECT,CTLBUF(1),0) PP CTLBUF(1) = AND(CTLBUF(1),$FF) + $2000 PP CALL OUTLST (CTLBUF,2) PP I = 80 PPC CHECK FOR NO DATA IN BUFFER PP IF (J.EQ.0) GO TO 1050 PPC CHECK FOR LAST DATA CHARACTER PPC BEING AN UPPER CHARACTER PP IF (AND(J,1) .EQ. 1) J=J+1 PPC COMPUTE THE WORD INDEX PP PGMPTR = J/2 + 1 PPC CHECK FOR END OF THE BUFFER PP IF (PGMPTR .GT. WRDSEC) GO TO 1035 PPC MOVE BLANKS TO FILL THE BUFFER PP DO 1028 J = PGMPTR, WRDSEC PP PGMBUF(J) = $2020 PP 1028 CONTINUE PP GO TO 1035 PP 1025 CONTINUE PPC ************************************************************* 131*5260 PP INS/ 273 PPC ************************************************************* 131*5260 PPC CHANGE PLUS SIGN TO AT SIGN IF EVEN PARITY WAS SELECTED PP IF (IEVENP.EQ.TRUE.AND.ICHAR.EQ.$2B) ICHAR=$40 PPC ************************************************************* 131*5260 PP INS/ 280 PPC ************************************************************* 131*5260 PP IF (PGMPTR.EQ.WRDSEC.AND.IEVENP.EQ.TRUE) GO TO 1035 PPC ************************************************************* 131*5260 PP INS/ 284 PPC ************************************************************* 131*5260 PP 1035 CONTINUE PPC ************************************************************* 131*5260 PP INS/ 301 PPC ************************************************************* 131*5260 PP IF(IEVENP.EQ.TRUE) GO TO 1075 PP RWFLAG=1 PP CALL FDDIOC (PGMBUF,WRDSEC,EQUVAR) PP SECADR=SECADR+1 PP GO TO 920 PPC MOVE LAST CHARACTERS TO END OF PPC BUFFER PP 1075 K=WRDSEC PP DO 1080 I=K,1,-1 PP IF (PGMBUF(I).NE.$2020) GO TO 1081 PP 1080 CONTINUE PP 1081 PGMBUF(K)=PGMBUF(I) PP PGMBUF(I)=$2020 PP IF(AND(PGMBUF(K),$FF).EQ.$20) GO TO 1082 PP PGMBUF(I)=AND(PGMBUF(K),$FF00)+$20 PP PGMBUF(K)=AND((PGMBUF(K)*$100),$FF00)+$20 PP 1082 CONTINUE PPC ************************************************************* 131*5260 PP INS/ 304 PPC ************************************************************* 131*5260 PPC INITIALIZE ODS DIRECTORY PP 1100 CALL GETLU (CTLBUF(2), FDDLU) PP INIFLG=1 PP CALL ODSBLD (PGMBUF,PGMLMT,EQUVAR,INIFLG) PP GO TO 100 PPC PPC READ ABSOLUTE RECORD, COPY TO PPC DISKETTE AND BUILD ODS DIRECTORY PP 1200 CALL GETLU (CTLBUF(2),FDDLU) PP INIFLG=0 PP CALL ODSBLD (PGMBUF,PGMLMT,EQUVAR,INIFLG) PP GO TO 100 PPC PPC ************************************************************* 131*5260 PPABSPGS DCK/ I,H PP DEL/ 2 PP 1 /DECK-ID D02 PERIPH. DRIVERS 1.1C SUMMARY-131 PP DEL/ 205 PPC ************************************************************* 131*5260 PP SECADR = SECADR + (PGMPTR-1)/WRDSEC+1 PPC ************************************************************* 131*5260 PPDSRCVT DCK/ I,H PPFDDOEP DCK/ I,H PPINIFDD DCK/ I,H PP DEL/ 1,2 PP SUBROUTINE INIFDD (BUFFER,LBUF,INTLAC,EQUVAR) PP * /DECK-ID D13 PERIPH. DRIVERS 1.1C SUMMARY-131 PP DEL/ 115 PPC ************************************************************* 131*5260 PP ISECNO=ISEC PP IF(INTLAC.EQ.0) GO TO 31 PP ISECNO= (ISEC+1)/2 PP MSEC=(ISEC/2)*2 PP IF (MSEC.EQ.ISEC) ISECNO=ISECNO+((SECTRK+1)/2) PR 31 IBUF(IBYTE+9) = EOR ($FF00,ISECNO) Y&RPC ************************************************************* 131*5260 PPCRCGEN DCK/ I,H PPFDDIOC DCK/ I,H PPGETLU DCK/ I,H PPCVTNUM DCK/ I,H PPASCHEX DCK/ I,H PPHEXASC DCK/ I,H PPERRMSG DCK/ I,H PPMON2 DCK/ I,H PPFDDIO DCK/ I,H PPOPAUSE DCK/ I,H PPINPBIN DCK/ I,H PP DEL/ 1 PP NAM INPBIN DECK-ID D23 PERIPH. DRIVERS 1.1C SUMMARY-131 PP INS/ 11 PP EXT LOG1A LINK TO LOGICAL UNIT TABLE 131*5260 PP INS/ 15 PP EQU ESTAT2(12) PHYSTB HARDWARE STATUS 131*5260 PP DEL/ 55,58 PP LDA* LU ERROR CODE TO A 131*5260 PPINPCMP SAP SHORTR NO FATAL ERROR 131*5260 PP LDQ- $F9 131*5260 PP LDQ+ LOG1A,Q PICK UP ESTAT2 131*5260 PP LDA- ESTAT2,Q 131*5260 PP AND =N$0800 END OF FILE BIT 131*5260 PP SAN INPEXT EOF WAS SET. RETURN TO CALLER 131*5260 PPSHORTR ALS 1 131*5260 PP SAM INPEXT CHECK IF SHORT READ (SHOULD BE) 131*5260 PP DEL/ 67 PP* 1 CARD DELETED 131*5260 PPOUTLST DCK/ I,H PPPARFTN DCK/ I,H PPFDDUTL DCK/ I,H PPFDUTIL DCK/ I,H PPTSPD29 DCK/ I,H PP DEL/ 1 PP NAM CR0261 DECK-ID D29 PERIPH. DRIVERS 1.1C SUMMARY-116 PP INS/ 4 PP SPC 2 116*4416 PP* CARD READER HOLLERITH TO ASCII CONVERSION TABLE 116*4416 PP* 116*4416 PP ENT CDRDSM TABLE START 116*4416 PP* 116*4416 PPCDRDSM NUM $3120 116*4416 PP NUM $3332 116*4416 PP NUM $3534 116*4416 PP NUM $3736 116*4416 PP NUM $3938 116*4416 PP NUM $3D3A 116*4416 PP NUM $4022 116*4416 PP NUM $5B25 116*4416 PP NUM $2F30 116*4416 PP NUM $5453 116*4416 PP NUM $5655 116*4416 PP NUM $5857 116*4416 PP NUM $5A59 116*4416 PP NUM $2C5D 116*4416 PP NUM $2F28 116*4416 PP NUM $2623 116*4416 PP NUM $4A2D 116*4416 PP NUM $4C4B 116*4416 PP NUM $4E4D 116*4416 PR NUM $504F 116*4416 ;&RP NUM $5251 116*4416 PP NUM $2421 116*4416 PP NUM $272A 116*4416 PP NUM $3E3F 116*4416 PP NUM $412B 116*4416 PP NUM $4342 116*4416 PP NUM $4544 116*4416 PP NUM $4746 116*4416 PP NUM $4948 116*4416 PP NUM $2E3C 116*4416 PP NUM $5C29 116*4416 PP NUM $3B3C 116*4416 PPTSPD30 DCK/ I,H ODSBLD PP DEL/ 1,5 131*5260 PP SUBROUTINE ODSBLD (PGMBUF,PGMLMT,EQUVAR,INIFLG) PP * /DECK-ID D30 PERIPH. DRIVERS 1.3C SUMMARY-133 PPC (1) INITIALIZE ODS DIRECTORY, (2) COPY BINARY AND BUILD DIRECTORY PPC MASS STORAGE OPERATING SYSTEM VERSION 5.0 PPC DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA CA PPC COPYRIGHT CONTROL DATA CORPORATION 1978 PPC PPC PPC*** PPCE PPC PPC FUNCTION PPC -------- PPC PPC THIS SUBROUTINE PROVIDES ODS DIRECTORY BUILDING AND INITIALIZING PPC CAPABILITY FOR FDDUTY. PPC PPC GENERAL DESCRIPTION PPC ------- ----------- PPC PPC ODS INITIALIZE DIRECTORY PPC PPC THIS REQUEST SPECIFIES THAT THE ODS DIRECTORY AREA (SECTORS 9-10) PPC IS TO BE INITIALIZED TO -1. INITIALIZATION CAUSES A STARTING PPC SECTOR TO BE PLACED IN THE FIRST DIRECTORY. THE REQUEST FORMAT PPC IS: PPC PPC *D,LUN PPC PPC WHERE LUN IS THE LOGICAL UNIT OF THE DISKETTE TO BE INITIALIZED, PPC REPRESENTED AS 3 HEX DIGITS (POSITIONS 4-6) PPC PPC PPC PPC ODS COPY AND BUILD DIRECTORY REQUEST PPC PPC THIS REQUEST SPECIFIES A COPY AND COMPARE OF AN ABSOLUTIZED PPC ODS MONITOR OR TEST AND THE BUILDING OF AN ODS DIRECTORY. EACH PPC DIRECTORY ENTRY HAS THE FORM: PPC PPC WORD 1 - ASCII-CODED FIRST TWO CHARACTERS OF PROGRAM (TEST) PPC NAME ($4141) PPC WORD 2 - SECOND TWO CHARACTERS OF TEST NAME ($4141) PPC WORD 3 - LAST CHARACTER OF TEST NAME ($4120) PPC WORD 4 - SECTOR ADDRESS OF TEST (HEXADECIMAL) PPC WORD 5 - LENGTH OF TEST BINARY (HEXADECIMAL) PPC WORD 6 - NOT USED ($FFFE) PPC PPC REQUEST FORMAT: PPC PPC *O,LUN LUN=HEXADECIMAL LOGICAL UNIT OF DISKETTE PPC *,PGMNAM PPC PROGRAM BINARY PPC . AS MANY PAIRS AS NECESSARY. PPC . PPC . PPC *T TERMINATED BY *T PPC PPC PGMNAM IS THE 5-CHARACTER TEST NAME. IF A MONITOR IS BEING INPUT, PPC PGMNAM MUST BE MON FOLLOWED BY 3 SPACES. THE MONITOR MUST BE THE PPC FIRST PROGRAM LOADED ON A LEVEL II DISKETTE, IN ORDER TO INSURE PPC ITS PROPER PLACE IN THE DIRECTORY. PPC PPC ERROR MESSAGES (OTHER THAN REGULAR FDDUTY MESSAGES) PPC PPC 0250 - PROGRAM NAME SPECIFIED DOES NOT MATCH BINARY INPUT. PPC PPC THIS MESSAGE MAY ALSO IMPLY THAT AN ATTEMPT IS BEING MADE PPC TO LOAD A LEVEL I TEST ON A LEVEL II DISKETTE OR TO LOAD PPC A LEVEL II TEST ON A DISKETTE WHICH DOES NOT HAVE A LEVEL PPC II MONITOR AS ITS FIRST DIRECTORY ENTRY. PPC PPC 1011 - OPERATOR IS ATTEMPTING TO USE A DISKETTE FOR WHICH THE PPC ODS DIRECTORY HAS NOT BEEN INITIALIZED. THIS ERROR MAY PPC ALSO INDICATE THAT THE ODS DIRECTORY IS FULL (UNLIKELY). PPC PPC ODSCPY MAKES NO CHECKS FOR LOADING OF LDCHK. PPC PRC L&RPC PRC*** @&RP DIMENSION IDIR (6,32), INPBUF(60) PP INTEGER COMPFG,SECADR,SECTRK,WRDSEC,CMPIND,FDDLU,RWFLAG,EQUVAR(7) PP INTEGER ODSLVL,OLLGTH,PGMPTR,PGMLMT,PGMBUF(1),OLSECS PP INTEGER OUTBUF(30) PP EQUIVALENCE (EQUVAR(1),COMPFG) PP EQUIVALENCE (EQUVAR(2),FDDLU ) PP EQUIVALENCE (EQUVAR(3),SECADR) PP EQUIVALENCE (EQUVAR(4),RWFLAG) PP EQUIVALENCE (EQUVAR(5),SECTRK) PP EQUIVALENCE (EQUVAR(6),WRDSEC) PP EQUIVALENCE (EQUVAR(7),CMPIND) PP RELATIVE FDDIO,INPBIN,ERRMSG,FDDIOC,Q8PKUP,Q8PREP PP DATA (OUTBUF(I),I=1,30) /' START= LENGTH= NEX PP *T AVAIL. SECTOR= '/ PPC PPC PPC PPC PPC PPC INITIALIZE ODS DIRECTORY PPC *D,UUU PPC PPC CHECK IF COMMAND IS TO INITIALIZE DIRECTORY PRC CHECK IF COMMAND IS TO INITIALIZE DIRECTORY W&RPC PP IF (INIFLG.NE.1) GO TO 99 PP DO 20 I=1,6 PP DO 20 J=1,32 PP 20 IDIR(I,J)=$FFFE PP IDIR(4,1)=70 PPC PPC PPC PPC PPC PROGRAM TERMINATION. RETURN DIRECTORY TO DISKETTE AND EXIT PPC PP 400 RWFLAG=1 PP SECADR=9 PP ILENGT=192 PP CALL FDDIO (IDIR,ILENGT,EQUVAR) PP RETURN PPC PPC PPC PRC L&RPC ODS BINARY COPY ROUTINE PPC *O,UUU PPC PPC PPC PPC READ DIRECTORY FROM DISKETTE - ASSURE IT WAS ODS INITIALIZED PP 99 RWFLAG=0 PP SECADR=9 PP ILENGT=192 PR CALL FDDIO (IDIR,ILENGT,EQUVAR) *&RP IF (IDIR(1,32).NE.$FFFE) CALL ERRMSG ($1011) PPC PPC CHECK FOR PREVIOUS ODS PROGRAMS. SET LEVEL I UNLESS FIRST ENTRY PPC IS A MONITOR PPC PP ODSLVL=1 PP IF(IDIR(1,1).NE.$4D4F) GO TO 100 PP IF(AND(IDIR(2,1),$FF00).EQ.$4E00) ODSLVL=2 PPC PPC GET PROGRAM NAME RECORD PP 100 CALL INPBIN(INPBUF,60) PPC SKIP OVER EOF PP IF (INPBUF(1).EQ.$1300) GO TO 100 PP IF (INPBUF(1).EQ.$2020) GO TO 100 PPC IF *T, EXIT PROGRAM PP IF (INPBUF(1).EQ.$2A54) GO TO 400 PPC CHECK FOR LEGAL PROGRAM NAME CARD PP IF (INPBUF(1).NE.$2A2C) CALL ERRMSG ($0210) PPC PPC INPUT THE BINARY PROGRAM PP CALL INPBIN(PGMBUF,PGMLMT) PP PGMPTR=PGMBUF(PGMLMT) PPC PPC SEE IF PROGRAM NAME INDICATES A MONITOR. IF SO, SET LEVEL II. PPC IF MONITOR IS NOT FIRST PROGRAM IN DIRECTORY, LEVEL IS ASSUMED TO PPC BE I. PPC CONTINUE MONITOR BUILDING AT 200 PP IF (INPBUF(2).NE.$4D4F) GO TO 101 PP IF (AND(INPBUF(3),$FF00).NE.$4E00) GO TO 101 PP ODSLVL=2 PP GO TO 200 PPC PPC NOT A MONITOR. CHECK NAME OF PROGRAM AGAINST CARD INPUT PPC CHECK FOR LEVEL 1 OR 2 PP 101 IF(ODSLVL.EQ.2) GO TO 150 PPC LEVEL I DISK. CHECK NAME AGAINST BINARY INPUT PP IPTNAM=PGMBUF(3)+9 PP DO 125 I=2,4 PP J=IPTNAM+I PP IF (INPBUF(I).NE.PGMBUF(J))CALL ERRMSG ($0250) PP 125 CONTINUE PP GO TO 200 PPC LEVEL II DISK. CHECK NAME AGAINST BINARY PP 150 DO 175 I=2,4 PP IF (INPBUF(I).NE.PGMBUF(I+7))CALL ERRMSG ($0250) PP 175 CONTINUE PPC PPC FIND INDEX ESTABLISHED OR ESTABLISH NEW ONE PP 200 DO 210 ID=1,32 PP IF (IDIR(1,ID).EQ.$FFFE) GO TO 211 PP IF (IDIR(1,ID).NE.INPBUF(2)) GO TO 210 PP IF (IDIR(2,ID).NE.INPBUF(3)) GO TO 210 PP IF (IDIR(3,ID).NE.INPBUF(4)) GO TO 210 PPC INDEX TO DIRECTORY FOR THIS PROGRAM IS ID PP GO TO 213 PP 210 CONTINUE PPC PPC NEW INDEX. STUFF NAME IN DIRECTORY PP 211 DO 212 I=1,3 PP 212 IDIR(I,ID)=INPBUF(I+1) PPC PPC COMPUTE LAST INDEX PP 213 DO 214 I=1,32 PP IF(IDIR(5,I).EQ.$FFFE) GO TO 215 PP 214 CONTINUE PP 215 ILD=I PPC PPC COMPUTE OLD AND NEW PROGRAM LENGTH IN WORDS AND SECTORS PP OLLGTH = IDIR(5,ID) PP NULGTH = PGMPTR PP NUSECS = (NULGTH+WRDSEC-1)/WRDSEC PP OLSECS = (OLLGTH+WRDSEC-1)/WRDSEC PPC PPC BUILD OR MODIFY DIRECTORY AS NECESSARY PP IF (OLSECS.GE.NUSECS) GO TO 249 PPC GET NEXT AVAILABLE SECTOR PP IDIR(4,ID)=IDIR(4,ILD) PP IF (ID.EQ.ILD) ILD=ILD+1 PP IDIR(4,ILD)=IDIR(4,ID)+NUSECS PP 249 IDIR(5,ID)=NULGTH PPC OUTPUT BINARY TO FDD PP 250 SECADR=IDIR(4,ID) PR RWFLAG=1 O&RP CALL FDDIOC(PGMBUF,PGMPTR,EQUVAR) PPC CONVERT MESSAGE TO ASCII AND OUTPUT IT PP DO 301 I=1,3 PP 301 OUTBUF(I+1)=IDIR(I,ID) PP CALL HEXASC (IDIR(4,ID), OUTBUF(9), 0) PP CALL HEXASC (IDIR(5,ID), OUTBUF(16),0) PP CALL HEXASC (IDIR(4,ILD),OUTBUF(29),0) PP CALL OUTLST (OUTBUF,30) PP GO TO 100 PP END PPTSPD31 DCK/ I,H PPTSPD32 DCK/ I,H PPTSPD33 DCK/ I,H PPTSPD34 DCK/ I,H PPTSPD35 DCK/ I,H PPTSPD36 DCK/ I,H PPTSPD37 DCK/ I,H PPTSPD38 DCK/ I,H PPTSPD39 DCK/ I,H PPTSPD40 DCK/ I,H PPTSPD41 DCK/ I,H PPTSPD42 DCK/ I,H PPTSPD43 DCK/ I,H PPTSPD44 DCK/ I,H PPTSPD45 DCK/ I,H PPTSPD46 DCK/ I,H PPTSPD47 DCK/ I,H PPTSPD48 DCK/ I,H PPTSPD49 DCK/ I,H PPD18334 DCK/ I,H PP DEL/ 1 PP NAM D18334 DECK-ID D50 PERIPH. DRIVERS 1.2C SUMMARY-128 PP DEL/ 738 PP AND- NZERO+14 $C000 128*5250 PP INS/ 2110 PR STA- I 123*4884 V&RP DEL/ 2176,2180 PP DEL/ 2194 PP SAZ CKAD15 SKIP IF THE SAME 128*5250 PP INS/ 2196 PPCKAD15 ENA 0 128*5250 PP LRS 2 POSITION BANK BITS 128*5250 PP EOR- STAT3,I CHECK AGAINST CURRENT BANK 128*5250 PP SAZ CKAD20 SKIP IF THE SAME 128*5250 PP ENA CWAERR 128*5250 PP JMP* CKAD50 128*5250 PPD18326 DCK/ I,H PP DEL/ 1 PP NAM D18326 DECK-ID D51 PERIPH. DRIVERS 1.2C SUMMARY-132 PP DEL/ 104 PP EXT* KLCT2 DRIVER KERNEL ENTRY 132*5401 PP DEL/ 401 PP RTJ KLCT2 PROCEED WITH PRESENT REQUEST 132*5401 PPK18326 DCK/ I,H PP DEL/ 1 PP NAM K18326 DECK-ID D52 PERIPH. DRIVERS 1.2C SUMMARY-132 PP DEL/ 154 PP ENT KLCT2 132*5401 PP DEL/ 231 PPKLCT2 NUM 0 132*5401 PP DEL/ 238 PP JMP* (KLCT2) COMPLETE THE REQUEST 132*5401 PP DEL/ 260 PP JMP* (KLCT2) COMPLETE THE REQUEST 132*5401 PPB18326 DCK/ I,H PP DEL/ 1 PP NAM B18326 DECK-ID D53 PERIPH. DRIVERS 1.2C SUMMARY-132 PP DEL/ 111 PP ENT SELEC2 132*5401 PP DEL/ 220 PPSELEC2 ENQ 5 132*5401 PPT18326 DCK/ I,H PPV18326 DCK/ I,H PPN18326 DCK/ I,H PP DEL/ 1 PP NAM N18326 DECK-ID D56 PERIPH. DRIVERS 1.2C SUMMARY-132 PP DEL/ 422 PP ENT FWA2 CURRENT FIRST WORD ADDRESS 132*5401 PP DEL/ 565 PPFWA2 NUM 0 FIRST WORD ADDRESS 132*5401 PP DEL/ 722 PP ENA 0 PP JMP RTRN COMPLETE THE REQUEST 123*4881 PP DEL/ 839 PP LDA FWA2 FIRST WORD ADDRESS TO A 132*5401 PPL18326 DCK/ I,H PPW18326 DCK/ I,H PPR18326 DCK/ I,H PP DEL/ 1 PP NAM R18326 DECK-ID D59 PERIPH. DRIVERS 1.2C SUMMARY-132 PP DEL/ 259 PR EXT* FWA2 FIRST WORD ADDRESS WORD 132*5401 K&RP DEL/ 275 PP EXT* SELEC2 UNIT SELECT FUNCTION ENTRY 132*5401 PP DEL/ 354 PP LDA FWA2 PERFORM I/O ANEW 132*5401 PP DEL/ 418 PP JMP SELEC2 SELECT UNIT 132*5401 PPS18326 DCK/ I,H PPDMYCDD DCK/ I,H PPCDDCP DCK/ I,H PPCDDRVE DCK/ I,H PPQ8334I DCK/ I,H PP DEL/ 1 PP NAM Q8334I DECK-ID D64 PERIPH. DRIVERS 1.2C SUMMARY-132 PP DEL/ 202,204 PP SAN GOON4 SENSE PART 1 TO LOAD 132*5100 PP JMP* ONGO 132*5100 PPGOON4 STA- I 132*5100 PP LDA* LPART1 PICK UP LENGTH OF PART 1 IMAGE 132*5100 PP SAM GOON1 SKIP IF GT 32K WORDS 132*5100 PP JMP* GOON3 132*5100 PPGOON1 LDA* PART1A PICK UP ADDRESS OF PART 1 132*5100 PP LDQ* H7FE0 SET TO TRANSFER FIRST $7FE0 132*5100 PP RTJ* QMASS DO TRANSFER 132*5100 PP SAN GOON2 SKIP IF NO ERROR 132*5100 PP JMP* GOON TRY AGAIN IF ERROR 132*5100 PPGOON2 LDA* LPART1 UPDATE LENGTH OF PART 1 132*5100 PP SUB* H7FE0 132*5100 PP STA* LPART1 132*5100 PP LDA* PART1A UPDATE STARTING ADDRESS 132*5100 PP ADD* H7FE0 132*5100 PP STA* PART1A 132*5100 PP LDA* PART01 UPDATE SECTOR ADDRESS 132*5100 PR ADD =N341 132*5100 A&RP STA* PART01 132*5100 PPGOON3 LDA* PART01 132*5100 PP STA- I SET START SECTOR 132*5100 PP LDA* PART1A PICK UP START ADDRESS 132*5100 PP DEL/ 208 PP JMP* GOON3 KEEP TRYING IF ERROR 132*5100 PP INS/ 210 PP SPC 1 132*5100 PPH7FE0 NUM $7FE0 132*5100 PPQ18334 DCK/ I,H PP DEL/ 1 PP NAM Q18334 DECK-ID D65 PERIPH. DRIVERS 1.2C SUMMARY-132 PP INS/ 505 PP LDQ- I 132*5317 PP STQ* SAVEI SAVE I REGISTER 132*5317 PP INS/ 515 PP SPC 1 PPSAVEI NUM 0 132*5317 PP DEL/ 530,531 PP LDQ* SAVEI 132*5317 PP AND WATMSK,Q EXTRACT BITS TO WAIT ON 132*5317 PP EOR WATRSL,Q CHECK WITH THE EXPECTED RESULT 132*5317 PP INS/ 534 PP STQ- I RESTORE I WHEN DISK I/O IS ENDED 132*5317 PPB18334 DCK/ I,H PPBT8326 DCK/ I,H PP DEL/ 1 PP NAM BT8326 DECK-ID D67 PERIPH. DRIVERS 1.2C SUMMARY-131 PP INS/ 62 PP RTJ* OUTPUT SPACE FORWARD (INDEX=6) 131*4982 PP INS/ 116 PP NUM 1 SPACE FORWARD 131*4982 PP INS/ 124 PP NUM 1 SPACE FORWARD 131*4982 PP INS/ 132 PP NUM $1301 SPACE FORWARD 131*4982 PPDP8112 DCK/ I,H PP DEL/ 1 PP NAM DP8112 DECK-ID D68 PERIPH. DRIVERS 1.2C SUMMARY-127 PPRQ8112 DCK/ I,H PP DEL/ 1 PP NAM RQ8112 DECK-ID D69 PERIPH. DRIVERS 1.2C SUMMARY-127 PPDP8277 DCK/ I,H PP DEL/ 1 PP NAM DP8277 DECK-ID D70 PERIPH. DRIVERS 1.2C SUMMARY-123 PP INS/ 50 PP EJT 1 123*4891 PP INS/ 144 PP EJT 1 123*4891 PP INS/ 174 PP* I18277 - INITIATOR ENTRY POINT 123*4891 PP INS/ 191 PP EJT 1 123*4891 PP DEL/ 200 PP ENT I18277 INITIATOR ENTRY 123*4891 PP DEL/ 205 PP EXT C18277 DRIVER'S CONTINUATOR 123*4891 PP DEL/ 312 PP LDQ =XC18277 CALCULATE 123*4891 PP SBQ =XBEGIN THE 123*4891 PP INS/ 356 PPI18277 EQU I18277(*) INITIATOR ENTRY 123*4891 PPRQ8277 DCK/ I,H PP DEL/ 1 PP NAM RQ8277 DECK-ID D71 PERIPH. DRIVERS 1.2C SUMMARY-123 PP DEL/ 50,51 PP* N = NUMBER OF WORDS TO TRANSFER (WORD MODE) 123*4892 PP* NUMBER OF CHAR. TO TRANSFER (CHAR MODE) 123*4892 PP DEL/ 129 PP ENT C18277 PSEUDO CONTINUATOR ENTRY 123*4892 PP DEL/ 252,253 PPC18277 EQU C18277(*) PSEUDO CONTINUATOR ENTRY 123*4892 PPQ8331I DCK/ I,H PP DEL/ 1 PP NAM Q18331 DECK-ID D72 PERIPH. DRIVERS 1.2C SUMMARY-131 PP DEL/ 280,282 PP SAN GOON4 SENSE PART 1 TO LOAD 123*4918 PP JMP* ONGO 123*4918 PPGOON4 STA- I 123*4918 PP LDA* LPART1 PICK UP LENGTH OF PART 1 IMAGE 123*4918 PP SAM GOON1 SKIP IF GT 32K WORDS 123*4918 PP JMP* GOON3 123*4918 PPGOON1 LDA* PART1A PICK UP ADDRESS OF PART1 123*4918 PP LDQ* H7FE0 SET TO TRANSFER FIRST $7FE0 WORDS 123*4918 PP RTJ* QMASS DO TRANSFER 123*4918 PP SAN GOON2 SKIP IF NO ERROR 123*4918 PP JMP* GOON TRY AGAIN IF ERROR 123*4918 PPGOON2 LDA* LPART1 UPDATE LENGTH OF PART 1 123*4918 PP SUB* H7FE0 123*4918 PP STA* LPART1 123*4918 PP LDA* PART1A UPDATE STARTING ADDRESS 123*4918 PP ADD* H7FE0 123*4918 PP STA* PART1A 123*4918 PP LDA* PART01 UPDATE SECTOR ADDRESS 123*4918 PP ADD =N341 123*4918 PP STA* PART01 123*4918 PPGOON3 LDA* PART01 123*4918 PP STA- I SET START SECTOR 123*4918 PP LDA* PART1A PICK UP START ADDRESS 123*4918 PR DEL/ 286 ^&RP JMP* GOON3 KEEP TRYING IF ERROR 123*4918 PP INS/ 288 PP SPC 1 PPH7FE0 NUM $7FE0 123*4918 PP DEL/ 1495 PP INA -SERTCK+4 131*5164 PPTRMDVR DCK/ I,H PPTRMIOR DCK/ I,H PP DEL/ 1 PP NAM TRMIOR DECK-ID D74 PERIPH. DRIVERS 1.3C SUMMARY-127 PP INS/ 605 PP JMP* CHP90 127*4902 PPS1811T DCK/ I,H PPDCONSL DCK/ I,H PP DEL/ 1 PP NAM DCONSL DECK-ID D76 PERIPH. DRIVERS 1.3C SUMMARY-131 PP DEL/ 11 PP* 1 CARD DELETED 131*5264 PP DEL/ 32,69 PP* 38 CARDS DELETED 131*5264 PP DEL/ 77 PP JMP- (ADISP) EXIT TO DISPATCHER 131*5264 PP DEL/ 96,97 PP* 2 CARDS DELETED 131*5264 PPECMDMM DCK/ I,H PPQ18277 DCK/ I,H PPM18326 DCK/ I,H PP DEL/ 1 PP NAM M18326 DECK-ID D79 PERIPH. DRIVERS 1.2C SUMMARY-132 PP DEL/ 362,363 PP STQ PLCTT0+9 CLEAR ESTAT1 132*5423 PP STQ PLCTT0+16 AND FLTCOD (I-REGISTER NOT SET) 132*5423 PPQ18326 DCK/ I,H PP DEL/ 1 PP NAM Q18326 DECK-ID D80 PERIPH. DRIVERS 1.2C SUMMARY-131 PP DEL/ 406 PP SAP EXIT 131*4984 PP DEL/ 409,410 PP SAN EXIT SKIP IF EOF 131*4984 PP DEL/ 416,419 PPEXIT LDA* ISAVE 131*4984 PP DEL/ 421 PP ENA 1 NO ERROR INDICATOR 131*4984 PP DEL/ 443 PPEMTAPE ADC MTEWES 07 EWES 131*4984 PPQK8326 DCK/ I,H PPQB8326 DCK/ I,H PPQW8326 DCK/ I,H PPQV8326 DCK/ I,H PPQN8326 DCK/ I,H PPQL8326 DCK/ I,H PPQX8326 DCK/ I,H PPQR8326 DCK/ I,H PPQS8326 DCK/ I,H PPQCOMP DCK/ I,H PPDPP560 DCK/ I,H PPRQP560 DCK/ I,H PP DEL/ 1 PP NAM RQP560 DECK-ID D92 PERIPH. DRIVERS 1.3C SUMMARY-131 PP DEL/ 339 PPWES10 EQU WES10(*) 131*5321 PP INS/ 347 PP ADQ =XPLENTH INCREASE Q BY THE PORT LENGTH 131*5321 PPCR2629 DCK/ I,H P END/