|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 36440 (0x8e58)
Notes: pts_type(SC)
Names: »DRCD01.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRCD01.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/DRCD01.SC«
IDENT DRCD01 REL 11.0 81-01-26 870105041100 =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY * * ********************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRCD01 = DRIVER FOR ONE/TWO DISC UNITS PTS 6877 * * * * * * * ************************************************** * * * THIS DISC DRIVER HANDLES UP TO TWO DISC * DRIVES PTS 6877 CONNECTED TO CPU VIA * BUILT IN DMA CHANNEL * * * THE FOLLOWING ORDERS ARE TREATED : * * /00 TEST STATUS * /01 BASIC READ * /05 BASIC WRITE * /11 PHYSICAL READ * /15 PHYSICAL WRITE * /1F FORMAT VOLUME * EJECT DRCD01 * * ********************* * * * ENTRIES * * * ********************* * ENTRY CDADR DRIVER ADDRESS BLOCK ENTRY CDON RECOVERY ROUTINE ENTRY IHCD INTERRUPT ROUTINE ENTRY DWCD01 DWT ADDRESS * EJECT DRCD01 * * ************* * EXTERNALS * ************* * * EXTRN TDISP DISPATCHER EXTRN TENDIO END I/O EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK EXTRN NVLCHK CHECK IF NEW VOLUME LOADED EXTRN VOLGET PUT VOLUME NAME IN DWT SET NVL EXTRN VOLNAM VOLUME NAME FROM DWT TO USER BUFFER EXTRN VOLCLR CLEAR VOLUME NAMES IN DWT EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS EXTRN DISIOE REQUEST ERROR EXTRN INIFLG INITIALIZATION FLAG EXTRN PFPOST PWF POST PROCESSING FLAG EXTRN INTSAV SAVE AREA LAST INTERRUPT EXTRN SETIMP TIMER EXTRN TTB:MT EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5 EXTRN DWTORD SAVE AREA FOR ORDER EXTRN ECBBA ECB BUFFER ADDRESS EXTRN ECBRL ECB REQUESTED LENGTH EXTRN ECBEL ECB EFFECTIVE LENGTH EXTRN ECBRC ECB RETURN CODE EXTRN ECBCW1 ECB 1:ST CONTROL WORD EXTRN ECBCW2 ECB 2:ND CONTROL WORD * EJECT DRCD01 * * ************************** * * * CONDITIONAL ASSEMBLY * * * ************************** * * * READ AFTER WRITE MAY BE INCLUDED FOR ORDER /15 * BY SETTING X:B = 1 * X:B EQU 0 RAW EQU X:B * * * THIS DRIVER CAN HANDLE TWO DISC UNITS * IF X:A := 2 * X:A EQU 1 NUNITS EQU X:A * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * CPU852 EQU 1 * EJECT DRCD01 * ************************* * * * CONSTANTS * * * ************************* * CUADR EQU /17 CONTROL UNIT ADDRESS CUAD1 EQU CUADR ADDRESS UNIT 1 CUAD2 EQU CUADR+/20 ADDRESS UNIT 2 DEVIND EQU 10 DEVICE INDEX RY3 EQU 3 3 RETRIES PHSECL EQU /180 PHYSICAL SECTOR LENGTH LOSECL EQU /80 LOGICAL SECTOR LENGTH SEZCOM EQU /E800 SEEK ZERO COMMAND CODE SEEKCO EQU /A800 SEEK COMMAND CODE REDCOM EQU /0800 READ COMMAND CODE VERCOM EQU /3800 VERIFY COMMAND CODE WRICOM EQU /1800 WRITE COMMAND CODE WHACOM EQU /22C0 WRITE SECTOR MARKS COMMAND CODE NOTRAN EQU /8000 NO TRANSFER BIT TIME EQU 1000 1 MIN 40 SECONDS MAXCYL EQU 822 MAXIMAL CYLINDER NUMBER MAXSE1 EQU 8 MAXIMAL NUMBER MAXSE2 EQU /53C6 OF SECTORS INLACE EQU 5 INTERLACING FACTOR * EJECT DRCD01 * * * DRIVER ADDRESS BLOCK * * DATA 0 INDICATES NO MMU BUFFER DATA DEVIND DISC DEVICE INDEX CDADR DATA CDAD ACTIVATION ADDRESS DATA 0 ABORT ROUTINE ADDRESS * * * * DRIVER BUFFER * * BUFFER EQU * RES 256 * EJECT DRCD01 * * **************************** * * * ACTIVATION * * * **************************** * CDAD EQU * LDK A5,DWTSB3 ADR A5,A6 GET STACK BASE LD A4,DWTRE1,A6 GET GRAND TOTAL OF RETRIES ST A4,DWTRE2,A6 PRESENT TOTAL RETRY COUNTER CF A15,NVLCHK CHECK IF NEW VOLUME LOADED * SAVE INDEX AND ORDER ADK A7,0 SET CR RF(NZ) CDA:00 NOT TEST STATUS ORDER * EJECT DRCD01 * * ********************* * * * TEST STATUS * * * ********************* * * ORS A1,ECBRC,A8 NVL BIT IM DWTSAV,A6 INDICATE TEST STATUS CF A5,VO:NAM READ VOLUME NAME ANK A1,1 RF(NZ) TESEND NOT OPERABLE LD A8,DWTECB,A6 ECB ADDRESS CF A15,VOLNAM TRANSFER VOLUME NAME TO USER BUFFER LDK A1,0 RESET RETURN CODE TESEND EQU * CM DWTSAV,A6 TEST STATUS DONE RF DENDIO PERFORM ENDIO * EJECT DRCD01 * *************************************** * * * NEW VOLUME LOADED CHECK * * ORDER CODE CHECK * * * *************************************** * * INPUT: A1=NVL RETURN CODE FROM NVLCHK * A7=ORDER CODE * * CDA:00 EQU * ADK A1,0 CHECK IF NEW VOLUME LOADED RF(NZ) DENDIO PERFORM ENDIO SUK A7,1 RF(Z) CD:010 BASIC READ SUK A7,4 RF(Z) CD:000 BASIC WRITE SUK A7,12 RF(Z) CD:010 PHYSICAL READ SUK A7,4 RF(Z) CD:000 PHYSICAL WRITE SUK A7,10 RF(Z) FORMAT FORMAT VOLUME * DUERR ABL DISIOE REQUEST ERROR * INCLEN EQU * REQUESTED LENGTH ERROR LDKL A1,/8008 DENDIO EQU * ABL END:IO * * EJECT DRCD01 * * ********************************* * * * FORMAT VOLUME * * * ********************************* * * FORMAT EQU * LDKL A1,SEEKCO SEEK OPERATION CODE ST A1,DWTSEK,A6 TO SEEK OPERATION AREA CF A5,SEEKZ CYLINDER 0 RF FOR:50 FOR:10 EQU * CF A5,SEEK FOR:50 EQU * MLK 3 DATA REDCOM DATA LOSECL DATA NOTRAN+LOSECL MS 3,DWTCOP,A6 PREPARE FOR READ LDR A4,A6 WHA POINTER * EJECT DRCD01 * * FOR:60 EQU * LD A1,ECBCW1,A8 RF(Z) FOR:70 NO BAD TRACK FLAG CHECK CF A5,CIO READ PART OF SECTOR SRL A1,8 BAD TRACK FLAG INDICATOR FOR:70 EQU * ORK A1,/22 PREPARE WHA SC A1,DWTWHA,A4 IM DWTCOP,A6 NEXT HEAD ADK A4,4 LDR A1,A4 SUR A1,A6 SUK A1,DWTCOP-DWTWHA RB(L) FOR:60 NEXT HEAD LDKL A1,/800 INTERUPT BIT ORS A1,DWTWHA+16,A6 CF A5,HOMEAD WRITE SECTOR MARKS IM DWTSEK,A6 NEXT CYLINDER LD A1,DWTSEK,A6 SUKL A1,SEEKCO+MAXCYL SEEK ORDER CODE + MAX CYLINDER NUMBER RB(NZ) FOR:10 NEXT CYLINDER LDKL A2,MAXCYL-1 821 IFT NUNITS=1 ST A2,DWTCYL,A6 CYLINDER NUMBER XIF IFT NUNITS=2 CF A15,INXDWT ST A2,DWTCYL,A4 CYLINDER NUMBER XIF RB DENDIO PERFORM ENDIO * EJECT DRCD01 * * ******************************************** * * * INPUT ECB-PARAMETER CHECK * * * ******************************************** * * CD:000 EQU * LDK A7,5 INDICATE WRITE CD:010 EQU * ML 2,ECBCW1,A8 GET SECTOR NUMBER DSK MAXSE1,MAXSE2 DECIMAL 283590 RB(NN) DUERR LDK A2,0 CLEAR REGISTER LD A1,ECBRL,A8 GET REQUESTED LENGTH RB(Z) INCLEN INCORRECT REQUEST ECR A2,A1 DIVIDE BY 256 ANK A1,/FF REST AFTER DIVISION RB(NZ) INCLEN INCORRECT REQUEST ST A2,DWTLOS,A6 SAVE NUMBER OF LOGICAL SECTORS DA ECBCW1,A8 LOGICAL SECTOR NUMBER DSK MAXSE1,MAXSE2 DECIMAL 283590 RB(P) INCLEN INCORRECT REQUEST * EJECT DRCD01 * * * GET PHYSICAL SECTOR NUMBER * GET BUFFER ADDRESS * PREPARE SECTOR MASK * * IFT MMUPAG=0 LD A2,ECBBA,A8 GET 16 BIT BUFFER ADDRESS ST A2,DWTBA,A6 XIF IFT MMUPAG=1 MLR 2,A8 GET 18 BIT BUFFER ADDRESS SLC A1,4 MOST SIGNIFICANT BITS ANK A1,3 SRL A2,1 MS 2,DWTBA,A6 XIF ML 2,ECBCW1,A8 GET LOGICAL SECTOR NUMBER LDK A3,0 DIVIDE MOST SIGN PART BY 3 CD:100 EQU * ADK A3,1 SUK A1,3 RB(NN) CD:100 ADK A1,3 SUK A3,1 ST A3,DWTSEC,A6 PHYSICAL SECTOR NUMBER DVK 3 DIVIDE BY 3 ST A2,DWTSEC+2,A6 LEAST SIGNIFICANT PART CF A5,MASKPR PREPARE IO MASK ANK A7,4 ORDER CHECK RF(Z) REA:00 READ ORDER EJECT DRCD01 * * ******************************** * * * WRITE SECTORS * * * ******************************** * * LD A3,DWTMAS,A6 SECTOR MASK SUK A3,7 RF(Z) WRI:50 TOTAL PHYSICAL SECTOR WRI:10 EQU * ML 3,DWTBSE,A6 GET IDENTITY OF SECTORS IN DRIVER BUFFER OR A3,DWTMAS,A6 GET SECTOR MASK SUK A3,7 RF(NZ) WRI:20 NOT COMPLETE PHYSICAL SECTOR LD A3,DWTOR,A6 GET UNIT NUMBER ANKL A3,/100 SUR A1,A3 DS DWTSEC,A6 SECTOR NUMBER RF(Z) WRI:30 CORRECT SECTORS IN DRIVER BUFFER * EJECT DRCD01 * * WRI:20 EQU * IM DWTTRA,A6 INDICATE NO TRANSFER CF A5,READ READ SECTORS TO DRIVER BUFFER * WRI:30 EQU * CF A5,WRITE WRITE ONE PHYSICAL SECTOR IFT RAW=1 LD A1,DWTOR,A6 GET ORDER ANK A1,/10 RF(Z) WRI:35 BASIC WRITE CF A5,VERIFY VERIFY IF PHYSICAL WRITE WRI:35 EQU * XIF CF A5,UPDATE LD A1,DWTLOS,A6 GET NUMBER OF LOGICAL SECTORS RF(Z) REA:50 LAST SECTOR DONE CF A5,MASK00 PREPARE SECTOR MASK LD A1,DWTMAS,A6 GET MASK SUK A1,7 RB(NZ) WRI:10 LESS THAN 3 SECTOR IO * EJECT DRCD01 * * WRI:50 EQU * IFT RAW=1 ML 4,DWTBA,A6 SAVE PARAMETERS FOR READ AFTER WRITE MS 4,DWTRAW,A6 IFT MMUPAG=1 LD A1,DWTSEC+2,A6 ST A1,DWTRAW+8,A6 XIF LDK A3,7 ST A3,DWTMAS,A6 SECTOR MASK WRI:55 EQU * CF A5,WRITE IFT RAW=1 IM DWTTRA,A6 INDICATE NO UPDATE OF EFFECTIVE LENGTH XIF CF A5,UPDAT IFT RAW=1 CM DWTTRA,A6 XIF LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS SUK A1,3 RB(NN) WRI:55 NEXT PHYSICAL SECTOR IFT RAW=1 * EJECT DRCD01 * * LD A2,DWTOR,A6 ANK A2,/10 RF(Z) WRI:70 BASIV WRITE ML 4,DWTRAW,A6 RESTORE PARAMETERS FOR VERIFY MS 4,DWTBA,A6 IFT MMUPAG=1 LD A1,DWTRAW+8,A6 ST A1,DWTSEC+2,A6 XIF IFT RAW=1 WRI:60 EQU * CF A5,CIOLOD CF A5,VERIFY CF A5,UPDAT LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS SUK A1,3 RB(NN) WRI:60 NEXT PHYSICAL SECTOR XIF WRI:70 EQU * ADK A1,3 RF(Z) REA:50 LAST SECTOR DONE CF A5,MASK00 PREPARE SECTOR MASK RB WRI:10 LAST SECTORS * EJECT DRCD01 * * ******************************** * * * READ SECTORS * * * ******************************** * * REA:00 EQU * CF A5,READ PERFORM READ CF A5,UPDATE LDK A3,7 ST A3,DWTMAS,A6 SECTOR MASK LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS RF(Z) REA:50 IO READY SUK A1,3 RB(NN) REA:00 AT LEAST ONE PHYSICAL SECTOR CF A5,MASK00 CF A5,READ CF A5,UPDATE LDK A1,0 RESET RETURN CODE REA:50 EQU * ABL END:00 END IO * EJECT DRCD01 * * ********************* * * * READ SECTOR N * * * ********************* * * READ EQU * CF A5,CIOLOD CM DWTBSE+4,A6 CLEAR BUFFER IND. IN CASE OF ERROR LDKL A3,REDCOM GET READ COMMAND CODE ORS A3,DWTCOP,A6 READ A RECORD COMMAND READ00 EQU * LDK A4,RY3 RETRIES READ10 CF A5,CIO EXECUTE READ ANK A1,/F RF(Z) RET34 OK. NO RETURN CODE * * IO ERROR IN READING * IM DWTRE2,A6 SUK A4,1 DECREMENT RETRYCOUNTER RB(P) READ10 3:RD RETRY IN THIS STATE NOT DONE LDK A4,RY3 REINIT RETRYCOUNTER * EJECT DRCD01 * * * UPDATE READ-COMMAND * * LC A2,DWTCOP,A6 ANK A2,/C0 LAST RETRY WITH EARLY- OR LATE- RF(NZ) RET31 DATA STROBE ? LDKL A3,/8000 PREPARE FOR EARLY DATA STROBE ORS A3,DWTCOP,A6 RB READ10 RETRY 3 TIMES WITH EARLY DATA STROBE RET31 EQU * ANK A2,/80 RF(Z) RET32 LAST RETRIES WERE LATE DATA STROBE LDKL A3,/C000 XRS A3,DWTCOP,A6 CHANGE FROM EARLY- TO LATE DATA STROBE RB READ10 RETRY 3 TIMES WITH LATE DATA STROBE RET32 EQU * LDKL A3,/3FFF ANS A3,DWTCOP,A6 RESET LATE DATA STROBE LC A2,DWTCOP+2,A6 ANK A2,/C0 LAST RETRY CARRIAGE+ OR CARRIAGE- RF(NZ) RET33 LDKL A3,/8000 PREPARE FOR CARRIAGE+ ORS A3,DWTCOP+2,A6 RB READ10 RETRY 3 TIMES WITH CARRIAGE+ * EJECT DRCD01 * * RET33 EQU * ANK A2,/80 RF(Z) RET35 LAST RETRY WAS A CARRIAGE- LDKL A3,/C000 XRS A3,DWTCOP+2,A6 CHANGE FROM CARRIAGE+TO CARRIAGE- RB READ10 RETRY 3 TIMES WITH CARRIAGE- RET35 EQU * LD A2,DWTSAV,A6 RB(Z) REA:50 NOT VO:NAM CALLING RET34 EQU * NO MORE RETRIES RTN A5 * EJECT DRCD01 * * ************************** * * * WRITE SECTOR N * * * ************************** * WRITE EQU * CF A5,CIOLOD LDKL A3,WRICOM WRITE ORDER CODE ORS A3,DWTCOP,A6 LDK A4,RY3 RETRIES TO BE PERFORMED WRIT20 EQU * CF A5,CIO ANK A1,/F RF(Z) WRIT50 WRITE OK IM DWTRE2,A6 RETRY PERFORMED SUK A4,1 RB(NZ) WRIT20 RETRY RB REA:50 NO MORE RETRIES WRIT50 EQU * RTN A5 * IFT RAW=1 EJECT DRCD01 * * **************************** * * * VERIFY SECTOR N * * * **************************** * VERIFY EQU * LDKL A3,VERCOM ORDER CODE FOR VERIFY ORS A3,DWTCOP,A6 RB READ00 * XIF EJECT DRCD01 * * * SEEK,SEEKZ,WRITE HOME ADDRESS AND CIO * * SEEK EQU * LDK A2,DWTSEK GET EFFECTIVE ADDRESS TO SEEK OP. RF EXCIO * * SEEKZ EQU * LDK A2,DWTSEZ GET EFFECTIVE ADDRESS TO SEEK 0 OP. RF EXCIO * * HOMEAD EQU * LDK A2,DWTWHA GET WRITE HOME ADDRESS OP. RF EXCIO * * CIO EQU * LDK A2,DWTCOP GET EFFECTIVE ADDRESS TO CIO OP. * EJECT DRCD01 * * EXCIO ADR A2,A6 ST A4,DWTA4,A6 SAVE A4 LD A3,PFPOST RF(NZ) CIOAB PWF POST PROCESSING ON IFT NUNITS=2 CF A15,INXDWT GET INDEXED DWT DISPLACEMENT EX DWTCIO,A4 XIF IFT NUNITS=1 EX DWTCIO,A6 XIF ABL(3) END:30 CIOAB EQU * ST A5,DWTA5,A6 A5 ABL TDISP GO TO DIPATCHER * EJECT DRCD01 * * ***************************************** * * * SUBROUTINE CIOLOD * * PREPARE CIO WORK AREA * * * ***************************************** * * REGISTER DISPOSITION * A1 = WORK REGISTER * A2 = WORK REGISTER * A3 = MASK * A4 = CIO WORK AREA POINTER * A7 = USER BUFFER POINTER * A8 = DRIVER BUFFER POINTER * * DWTTRA = TRANSFER INDICATOR * DWTMAS = MASK INDICATING SECTORS TO/FROM USER BUFFER * DWTBA = BUFFER POINTER * CIOLOD EQU * LDKL A4,-4 ST A4,DWTSAV,A6 COUNTER LDR A4,A6 GET DWT ADDRESS ADK A4,DWTCOP CIO WORK AREA ADDRESS LDKL A8,BUFFER DRIVER BUFFFER ADDRESS LD A3,DWTMAS,A6 GET BUFFER MASK SRC A3,4 MASK IN POSITION LDK A7,0 USER BUFFER POINTER * EJECT DRCD01 * * CIOL10 EQU * ADK A4,4 IM DWTSAV,A6 COUNTER RF(Z) CIOL60 WORK AREA READY SLL A3,1 RF(NN) CIOL50 LDKL A1,/C000+LOSECL NO TRANSFER ORDER LD A2,DWTTRA,A6 TRANSFER INDICATOR RF(NZ) CIOL55 NO TRANSFER * IFT MMUPAG=0 LDKL A1,/4080 LDR A2,A7 BUFFER ADDRESS POINTER AD A2,DWTBA,A6 BUFFER ADDRESS MSR 2,A4 CIO WORK AREA ADKL A7,/100 XIF IFT MMUPAG=1 LDR A2,A7 USER BUFFER POINTER LDKL A1,/804 SHIFTED DA DWTBA,A6 GET USER BUFFER ADDRESS SLL A2,1 IN POSITION SRC A1,4 IN POSITION MSR 2,A4 TO CIO WORK AREA ADK A7,LOSECL UPDATE USER BUFFER POINTER XIF RB CIOL10 * EJECT DRCD01 * * CIOL50 EQU * LDKL A1,/4000+LOSECL LDR A2,A8 DRIVER BUFFER ADKL A8,/100 UPDATE DRIVER BUFFERPOINTER CIOL55 EQU * MSR 2,A4 TO CIO WORK AREA RB CIOL10 CIOL60 EQU * LDKL A1,/B000+LOSECL ANS A1,DWTCOP+12,A6 CLEAR BIT LDKL A1,PHSECL ST A1,DWTCOP+2,A6 CM DWTTRA,A6 CLEAR NO TRANSFER FLAG * EJECT DRCD01 * * ***************************************** * * * PUT SECTOR NUMBER * * AND HEAD NUMBER IN POS. * * * ***************************************** * * INPUT: PHYSICAL SECTOR NUMBER * OUTPUT: INTERLACED SECTOR NUMBER AND HEAD NUMBER * IN POSITION FOR CIO * PERFORM SEEK * ML 2,DWTSEC,A6 PHYSICAL SECTOR NUMBER DVK 115 * A1 = REST = HEAD NUMBER * SECTOR NUMBER * A2 = QUOTIENT = CYLINDER NUMBER LDR A3,A2 SAVE CYLINDER NUMBER LDR A2,A1 LDK A1,0 DVK 23 * A1 = SECTOR NUMBER * A2 = HEAD NUMBER ORKL A2,/800 INTERUPT BIT ST A2,DWTCOP,A6 COP WORK AREA LDR A2,A1 SECTOR NUMBER MUK INLACE INTERLACING SLC A3,1 RF(NN) CIOP10 EVEN CYLINDER NUMBE ADK A2,12 SKEW FACTOR * EJECT DRCD01 * * CIOP10 EQU * DVK 23 GET INTERLACED AND SKEWED SECTOR NUMBER SLL A1,5 IN POSITION ORS A1,DWTCOP,A6 COP WORK AREA SRC A3,1 RESTORE CYLINDER NUMBER IN POSITION IFT NUNITS=2 CF A15,INXDWT CW A3,DWTCYL,A4 RF(E) CIOP50 SAME CYLINDER ST A3,DWTCYL,A4 SAVE CYLINDER NUMBER XIF IFT NUNITS=1 CW A3,DWTCYL,A6 RF(E) CIOP50 SAME CYLINDER ST A3,DWTCYL,A6 SAVE CYLINDER NUMBER XIF ADKL A3,SEEKCO SEEK ORDER ST A3,DWTSEK,A6 SEEK WORK AREA * EJECT DRCD01 * * SEEK CYLINDER * * LDK A4,RY3 RETRIES SE:010 EQU * CF A5,SEEK SEEK CYLINDER N ANK A1,2 RF(Z) CIOP50 OK. SEEK COMPLETED IM DWTRE2,A6 SUK A4,1 DECREMENT RETRY-COUNTER RF(Z) SE:020 LAST RETRY * CF A5,SEEKZ SEEK CYLINDER 0 ANK A1,2 RB(Z) SE:010 CYLINDER ZERO FOUND * SE:020 EQU * RF END:SE SEEK ERROR END IO CIOP50 EQU * RTN A5 * EJECT DRCD01 * * ************************************* * * * SUBROUTINE UPDATE * * * ************************************* * * UPDATES : DWTBSE PRESENT SECTORS IN DRIVER BUFFER * DWTLOS NUMBER OF LOGICAL SECTORS LEFT IN IO * DWTBA USER BUFFER POINTER * DWTSEC PHYSICAL SECTOR POINTER * ECBEL EFFECTIVE LENGTH * UPDATE EQU * LDK A2,0 LD A3,DWTMAS,A6 GET SECTOR MASK C1R A3,A3 COMPLIMENT ANK A3,7 3 BITS LD A1,DWTOR,A6 GET INDEX ANKL A1,/100 UNIT NUMBER DA DWTSEC,A6 SECTOR NUMBER MS 3,DWTBSE,A6 SAVE UPDAT EQU * LD A1,DWTMAS,A6 GET SECTOR MASK LDK A2,0 SRC A1,3 UPDA00 EQU * RF(NN) UPDA10 IO TO/FROM DRIVER BUFFER ADK A2,1 NUMBER OF SECTORS IN LAST IO UPDA10 EQU * SLL A1,1 RB(NZ) UPDA00 MORE SECTORS * EJECT DRCD01 * * LD A3,DWTLOS,A6 UPDATE DWTLOS SUR A3,A2 ST A3,DWTLOS,A6 * IFT MMUPAG=1 SLL A2,7 UPDATE DWTBA LDR A3,A2 SAVE LENGTH DA DWTBA,A6 MS 2,DWTBA,A6 SLL A3,1 XIF IFT MMUPAG=0 SLL A2,8 ADS A2,DWTBA,A6 UPDATE BUFFER POINTER XIF * IFT RAW=1 LD A1,DWTTRA,A6 RF(Z) UPDA50 UPDATE EFFECTIVE LENGTH LD A7,DWTOR,A6 GET ORDER ANK A7,/10 RF(NZ) UPDA60 XIF * EJECT DRCD01 * * UPDA50 EQU * IFT MMUPAG=1 ADS A3,ECBEL,A8 XIF IFT MMUPAG=0 ADS A2,ECBEL,A8 UPDATE EFFECTIVE LENGTH XIF UPDA60 EQU * * LDK A1,0 LDK A2,1 DA DWTSEC,A6 MS 2,DWTSEC,A6 * RTN A5 EJECT DRCD01 * * ******************************************* * * * SUBROUTINE MASKPR * * SET BITS FOR LOGICAL * * SECTORS IN PHYSICAL * * * ******************************************* * * A1 = POSITION IN SECTOR * DWTLOS = NUMBER OF SECTORS * * MASK00 EQU * LDK A1,0 MASKPR EQU * LD A3,DWTLOS,A6 NUMBER OF SECTORS SUK A3,2 LDK A3,4 1 0 0 RF(N) MASK10 1 SECTOR LEFT IN IO LDK A3,6 1 1 0 RF(Z) MASK10 2 SECTORS LEFT IN IO LDK A3,7 1 1 1 MASK10 EQU * SUK A1,1 RF(Z) MASK20 0 1 0 RF(N) MASK30 1 0 0 SRL A3,1 0 0 1 MASK20 EQU * SRL A3,1 MASK30 EQU * ST A3,DWTMAS,A6 SAVE MASK RTN A5 * EJECT DRCD01 * * ************************* * * * PERFORM END IO * * * ************************* * END:SE EQU * SEEK ERROR IFT NUNITS=1 LDKL A3,/FFFF ST A3,DWTCYL,A6 DUMMY CYLINDER NUMBER XIF IFT NUNITS=2 CF A15,INXDWT LDKL A3,/FFFF ST A3,DWTCYL,A4 DUMMY CYLINDER NUMBER XIF END:00 EQU * LD A2,DWTRE2,A6 CW A2,DWTRE1,A6 RF(E) END:IO ST A2,DWTRE1,A6 GRAND TOTAL OF RETRIES ORKL A1,/100 RETRIES PERFORMED * END:IO EQU * CF A15,TENDIO PERFORM TENDIO T:DISP EQU * ABL TDISP END:30 EQU * LDK A1,1 ORS A1,DWTST,A6 INDICATE RECOVERY DONE =1 RB END:IO * EJECT DRCD01 * * ********************** * * * RECOVERY ROUTINE * * * ********************** * * CDON EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LDKL A6,DWCD01 LDK A5,DWTSB3 GET STACK BASE ADR A5,A6 LDKL A1,-1 ST A1,DWTSAV,A6 INDICATE RECOVERY LDKL A1,/7FFE SET UNIT BUSY AND RECOVERY ON =1 ANS A1,DWTST,A6 =1 LD A1,INIFLG INITIALIZATION FLAG RF(NZ) CDON05 NOT POWER UP * EJECT DRCD01 * * IFT NUNITS=2 CM DWTOR,A6 1ST UNIT CF A5,SEEKZ TEST IF OPERABLE ANK A1,1 RF(NZ) CDON26 NOT OPERABLE LDK A1,1 SC A1,DWTOR,A6 2ND UNIT XIF CF A5,SEEKZ TEST IF OPERABLE ANK A1,1 RF(NZ) CDON26 NOT OPERABLE * EJECT DRCD01 * * CDON05 EQU * CM DWTOR,A6 1ST UNIT CF A5,VO:NAM IFT NUNITS=2 LDK A1,1 2ND UNIT SC A1,DWTOR,A6 CF A5,VO:NAM XIF IM DWTST,A6 INDICATE VOLUME NAMES READ CM DWTSAV,A6 RECOVERY DONE * LD A8,DWTECB,A6 GET ECB ADDRESS RB(Z) END:IO NO REQUEST ON * CDON10 LD A7,DWTORD,A6 GET ORDER ST A7,DWTOR,A6 RESTORE INDEX AND ORDER ANK A7,/3F * CM ECBEL,A8 RESET EFFECTIVE LENGTH ABL CDAD REPEAT REQUEST * EJECT DRCD01 * * READY INTERRUPT * CDREDY LD A1,TIMER RF(Z) CDON50 NO TIMER ACTIVE * IFT NUNITS=1 CM* TIMER KILL TIMER RF CDON40 XIF * IFT NUNITS=2 RB T:DISP TIMER ACTIVE XIF * EJECT DRCD01 * * CDON26 EQU * LDKL A4,TIMER TIMER POINTER ADDRESS LDR* A3,A4 RF(Z) CDON30 NO TIMER ACTIVE LDKL A1,-TIME STR A1,A3 RESTART TIMER RB T:DISP * * CDON30 CF A15,SETIMP START TIMER DATA CDON40,TIME TIME OUT ADDRESS, TIME RB T:DISP * * TIME OUT * CDON40 LDKL A6,DWCD01 CM TIMER CDON50 EQU * LDKL A1,/7FFE SET UNIT BUSY AND RECOVERY ON =1 ANS A1,DWTST,A6 =1 LDKL A1,-1 ST A1,DWTSAV,A6 INDICATE RECOVERY LDK A5,DWTSB3 GET STACK BASE ADR A5,A6 RB CDON05 * EJECT DRCD01 * * *********************** * * * INTERRUPT HANDLER * * * *********************** * * * OUTPUT BIT 1 12 13 14 15 * INPUT BIT * 1 READY AFTER UNREADY * 2 BAD TRACK FLAG X X * 4 RECORD NOT FOUND X * 6 SEEK ERROR X * 9 DRIVE NUMBER * 12 INCORRECT LENGTH X * 13 PARITY ERROR X * 14 THROUGHPUT ERROR X * 15 NOT OPERABLE X * IHCD EQU * ST P,INTSAV SAVE LAST INTERRUPT MSR 8,A15 SAVE REGISTERS ON STACK LDKL A6,DWCD01 DWT ADDRESS SST A1,CUADR GET STATUS LDR A2,A1 ANK A1,/F KEEP BITS SLL A2,1 RB(N) CDREDY READY INTERRUPT SLL A2,1 RF(NN) IHCD40 NOT BAD TRACK FLAG ORKL A1,/4004 INDICATE BAD TRACK FLAG * EJECT DRCD01 * * IHCD40 EQU * ANKL A2,/2800 RF(Z) IHCD50 ORK A1,2 IHCD50 EQU * LD A8,DWTECB,A6 GET ECB ADDRESS LDR A3,A1 RETURN CODE LD A2,DWTSAV,A6 RF(NZ) IHCD70 VO:NAM CALLING ANK A3,1 RB(NZ) END:IO NOT OPERABLE IHCD70 EQU * LD A5,DWTA5,A6 GET STACK POINTER LD A4,DWTA4,A6 GET RETRY COUNTER RTN A5 * EJECT DRCD01 * ********** * VO:NAM * ********** * * VO:NAM EQU * CF A5,SEEKZ ANK A1,3 RF(NZ) VO:NA7 ERROR LDR A7,A5 SAVE STACK POINTER MLK 5 DATA /800,PHSECL,/4000+LOSECL+LOSECL DATA BUFFER,/8000+LOSECL MS 5,DWTCOP,A6 LDR A5,A7 RESTORE STACK POINTER CF A5,READ00 READ SECTOR 0 TO DRIVER BUFFER CM DWTBSE+4,A6 CLEAR IN CASE OF ERROR ANK A1,/F RF(NZ) VO:NA7 ERROR LD A1,DWTOR,A6 ANKL A1,/100 UNIT NUMBER LDK A2,0 LDK A3,6 MS 3,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR LDKL A2,BUFFER LDK A3,/FC FILE CODE LD A1,DWTSAV,A6 RF(N) VO:NA5 LDKL A3,/80FC INDICATE TEST STATUS VO:NA5 EQU * CF A15,VOLGET VOLUME NAME TO DWT * EJECT DRCD01 * * LDK A1,0 RESET RETURN CODE LDK A3,0 CYLINDER NUMBER RF VO:NA8 VO:NA7 EQU * LDK A1,6 CLEAR SEX BYTES CF A15,VOLCLR LDR A1,A3 RETURN CODE LDKL A3,/FFFF DUMMY CYLINDER NUMBER VO:NA8 EQU * IFT NUNITS=1 ST A3,DWTCYL,A6 HEAD POSITION XIF IFT NUNITS=2 CF A15,INXDWT ST A3,DWTCYL,A4 XIF RTN A5 * * * TIMER POINTER * TIMER DATA 0 * EJECT DRCD01 * * ************************************* * * * DEVICE WORK TABLE * * * ************************************* * * DWCD01 EQU * DATA 0 DATA /8000 DWT STATUS DATA 0 ECB ADDRESS DATA 0 ORDER DATA CDADR ACTIVATION ADDRESS DATA 0 TTAB ADDRESS DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE * IFT MMUPAG=1 DATA 0 SAVE AREA USER ECB ADDRESS DATA ECBCD1 MMU ECB ADDRESS XIF * DWTTRA EQU *-DWCD01 DATA 0 DATA 0,0,0 SAVE AREA FOR REGISTERS DWTBSE EQU *-DWCD01 DRIVER BUFFER INDICATOR DATA 0,0,0 DWTSAV EQU *-DWCD01 DATA 0 * EJECT DRCD01 * * DATA 0 DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 1 DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 2 DWTRE1 EQU *-DWCD01 GRAND TOTAL RETRY COUNTER DATA 0 DWTRE2 EQU *-DWCD01 TOTAL RETRY COUNTER DATA 0 DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 1 IFT NUNITS=2 DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 2 XIF DWTBA EQU *-DWCD01 USER BUFFER POINTER DATA 0 IFT MMUPAG=1 DATA 0 XIF DWTLOS EQU *-DWCD01 LOGICAL SECTOR COUNTER DATA 0 DWTSEC EQU *-DWCD01 PHYSICAL SECTOR NUMBER DATA 0,0 DWTMAS EQU *-DWCD01 LOGICAL SECTOR MASK DATA 0 * EJECT DRCD01 * * CIO WORK AREAS * DWTCIO EQU *-DWCD01 CIO INTRUCTIONS AREA CIO A2,1,CUAD1 CIO ON 1ST UNIT IFT NUNITS=2 CIO A2,1,CUAD2 CIO ON 2ND UNIT XIF DWTSEK EQU *-DWCD01 SEEK OPERATION AREA DATA SEEKCO DWTSEZ EQU *-DWCD01 SEEK TO ZERO OPERATION AREA DATA SEZCOM DWTWHA EQU *-DWCD01 WRITE HOME ADDRESS AND SECTOR MARK DATA WHACOM DATA PHSECL DATA WHACOM+1 DATA PHSECL DATA WHACOM+2 DATA PHSECL DATA WHACOM+3 DATA PHSECL DATA WHACOM+/804 INTERRUPT BIT SET DATA PHSECL DWTCOP EQU *-DWCD01 CIO WORK AREA DATA 0,0,0,0 DATA 0,0,0,0 * EJECT DRCD01 * * DWTCYL EQU *-DWCD01 PRESENT CYLINDER NUMBER DATA /FFFF UNIT 1 IFT NUNITS=2 DATA /FFFF UNIT 2 XIF DATA 0,0 DATA 0,0 DATA 0,0 DWTSB3 EQU *-DWCD01-2 STACK IFT RAW=1 DWTRAW EQU *-DWCD01 READ AFTER WRITE SAVE AREA DATA 0,0,0,0 IFT MMUPAG=1 DATA 0 XIF IFT MMUPAG=1 ECBCD1 EQU * DATA 0,0,0,0,0,0,0 XIF * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRCD01 REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…007e Head {h00=0x003c, h01=0x0050, text=» =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY«, t00=0x0000, t01=0x0042}
0x007e…0088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0082}
0x0088…0092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00c8 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x0096}
0x00c8…00d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00cc}
0x00d2…00fa Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00d6}
0x00fa…0104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…0140 Head {h00=0x0038, h01=0x0050, text=»* DRCD01 = DRIVER FOR ONE/TWO DISC UNITS PTS 6877 «, t00=0x0000, t01=0x0108}
0x0140…014a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0144}
0x014a…0154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…015e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…0168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0162}
0x0168…0172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016c}
0x0172…017c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0176}
0x017c…0186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x0186…01c0 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x018a}
0x01c0…01ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0034}
0x01ca…01d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003e}
0x01d4…0208 Head {h00=0x0030, h01=0x0050, text=»* THIS DISC DRIVER HANDLES UP TO TWO DISC «, t00=0x0001, t01=0x0048}
0x0208…0238 Head {h00=0x002c, h01=0x0050, text=»* DRIVES PTS 6877 CONNECTED TO CPU VIA«, t00=0x0001, t01=0x007c}
0x0238…0258 Head {h00=0x001c, h01=0x0050, text=»* BUILT IN DMA CHANNEL«, t00=0x0001, t01=0x00ac}
0x0258…0262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00cc}
0x0262…026c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d6}
0x026c…029a Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED :«, t00=0x0001, t01=0x00e0}
0x029a…02a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010e}
0x02a4…02c2 Head {h00=0x001a, h01=0x0050, text=»* /00 TEST STATUS«, t00=0x0001, t01=0x0118}
0x02c2…02e0 Head {h00=0x001a, h01=0x0050, text=»* /01 BASIC READ «, t00=0x0001, t01=0x0136}
0x02e0…02fe Head {h00=0x001a, h01=0x0050, text=»* /05 BASIC WRITE«, t00=0x0001, t01=0x0154}
0x02fe…031e Head {h00=0x001c, h01=0x0050, text=»* /11 PHYSICAL READ«, t00=0x0001, t01=0x0172}
0x031e…0340 (2, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* /15 PHYSICAL WRITE «, t00=0x0002, t01=0x0004}
0x0340…0360 Head {h00=0x001c, h01=0x0050, text=»* /1F FORMAT VOLUME«, t00=0x0002, t01=0x0026}
0x0360…036a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0046}
0x036a…0380 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0002, t01=0x0050}
0x0380…038a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0066}
0x038a…0394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0070}
0x0394…03b2 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0002, t01=0x007a}
0x03b2…03d0 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0002, t01=0x0098}
0x03d0…03ee Head {h00=0x001a, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x00b6}
0x03ee…040c Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0002, t01=0x00d4}
0x040c…042a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0002, t01=0x00f2}
0x042a…0434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0110}
0x0434…045e Head {h00=0x0026, h01=0x0050, text=» ENTRY CDADR DRIVER ADDRESS BLOCK «, t00=0x0002, t01=0x011a}
0x045e…0482 Head {h00=0x0020, h01=0x0050, text=» ENTRY CDON RECOVERY ROUTINE«, t00=0x0002, t01=0x0144}
0x0482…04a8 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHCD INTERRUPT ROUTINE «, t00=0x0002, t01=0x0168}
0x04a8…04ca Head {h00=0x001e, h01=0x0050, text=» ENTRY DWCD01 DWT ADDRESS «, t00=0x0002, t01=0x018e}
0x04ca…04d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0020}
0x04d4…04ea Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0003, t01=0x002a}
0x04ea…04f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0040}
0x04f4…04fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004a}
0x04fe…0514 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0054}
0x0514…052a Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x006a}
0x052a…0540 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0080}
0x0540…054a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0096}
0x054a…0554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a0}
0x0554…0574 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0003, t01=0x00aa}
0x0574…0592 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0003, t01=0x00ca}
0x0592…05c4 Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK«, t00=0x0003, t01=0x00e8}
0x05c4…05f4 Head {h00=0x002c, h01=0x0050, text=» EXTRN NVLCHK CHECK IF NEW VOLUME LOADED«, t00=0x0003, t01=0x011a}
0x05f4…0628 Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET PUT VOLUME NAME IN DWT SET NVL«, t00=0x0003, t01=0x014a}
0x0628…0662 Head {h00=0x0036, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME FROM DWT TO USER BUFFER «, t00=0x0003, t01=0x017e}
0x0662…0692 Head {h00=0x002c, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAMES IN DWT «, t00=0x0004, t01=0x0028}
0x0692…06c4 Head {h00=0x002e, h01=0x0050, text=» EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS «, t00=0x0004, t01=0x0058}
0x06c4…06e8 Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x008a}
0x06e8…0712 Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0004, t01=0x00ae}
0x0712…0740 Head {h00=0x002a, h01=0x0050, text=» EXTRN PFPOST PWF POST PROCESSING FLAG«, t00=0x0004, t01=0x00d8}
0x0740…076e Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0004, t01=0x0106}
0x076e…078a Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0004, t01=0x0134}
0x078a…07a0 Head {h00=0x0012, h01=0x0050, text=» EXTRN TTB:MT «, t00=0x0004, t01=0x0150}
0x07a0…07bc Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0004, t01=0x0166}
0x07bc…07de Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0004, t01=0x0182}
0x07de…0806 Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0005, t01=0x0014}
0x0806…0828 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0005, t01=0x003c}
0x0828…084a Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0005, t01=0x005e}
0x084a…0874 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTORD SAVE AREA FOR ORDER «, t00=0x0005, t01=0x0080}
0x0874…089c Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0005, t01=0x00aa}
0x089c…08c6 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0005, t01=0x00d2}
0x08c6…08f0 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0005, t01=0x00fc}
0x08f0…0914 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0005, t01=0x0126}
0x0914…0940 Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBCW1 ECB 1:ST CONTROL WORD «, t00=0x0005, t01=0x014a}
0x0940…096c Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBCW2 ECB 2:ND CONTROL WORD «, t00=0x0005, t01=0x0176}
0x096c…0976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0012}
0x0976…098c Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0006, t01=0x001c}
0x098c…0996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0032}
0x0996…09a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003c}
0x09a0…09c2 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0006, t01=0x0046}
0x09c2…09e4 Head {h00=0x001e, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0068}
0x09e4…0a06 Head {h00=0x001e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0006, t01=0x008a}
0x0a06…0a28 Head {h00=0x001e, h01=0x0050, text=»* *«, t00=0x0006, t01=0x00ac}
0x0a28…0a4a Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0006, t01=0x00ce}
0x0a4a…0a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f0}
0x0a54…0a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fa}
0x0a5e…0a98 Head {h00=0x0036, h01=0x0050, text=»* READ AFTER WRITE MAY BE INCLUDED FOR ORDER /15«, t00=0x0006, t01=0x0104}
0x0a98…0ab6 Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:B = 1«, t00=0x0006, t01=0x013e}
0x0ab6…0ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015c}
0x0ac0…0ad2 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0006, t01=0x0166}
0x0ad2…0ae6 Head {h00=0x0010, h01=0x0050, text=»RAW EQU X:B «, t00=0x0006, t01=0x0178}
0x0ae6…0af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018c}
0x0af0…0afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afa…0b2c Head {h00=0x002e, h01=0x0050, text=»* THIS DRIVER CAN HANDLE TWO DISC UNITS «, t00=0x0007, t01=0x0012}
0x0b2c…0b44 Head {h00=0x0014, h01=0x0050, text=»* IF X:A := 2 «, t00=0x0007, t01=0x0044}
0x0b44…0b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005c}
0x0b4e…0b60 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0007, t01=0x0066}
0x0b60…0b76 Head {h00=0x0012, h01=0x0050, text=»NUNITS EQU X:A«, t00=0x0007, t01=0x0078}
0x0b76…0b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008e}
0x0b80…0b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0098}
0x0b8a…0bbc Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0007, t01=0x00a2}
0x0bbc…0bea Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0007, t01=0x00d4}
0x0bea…0bf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0102}
0x0bf4…0c08 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0007, t01=0x010c}
0x0c08…0c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0120}
0x0c12…0c26 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0007, t01=0x012a}
0x0c26…0c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013e}
0x0c30…0c46 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0007, t01=0x0148}
0x0c46…0c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015e}
0x0c50…0c72 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0007, t01=0x0168}
0x0c72…0c94 Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x0007, t01=0x018a}
0x0c94…0cb6 Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS * «, t00=0x0008, t01=0x001c}
0x0cb6…0cd8 Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x0008, t01=0x003e}
0x0cd8…0cfa Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0008, t01=0x0060}
0x0cfa…0d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0082}
0x0d04…0d2e Head {h00=0x0026, h01=0x0050, text=»CUADR EQU /17 CONTROL UNIT ADDRESS«, t00=0x0008, t01=0x008c}
0x0d2e…0d54 Head {h00=0x0022, h01=0x0050, text=»CUAD1 EQU CUADR ADDRESS UNIT 1«, t00=0x0008, t01=0x00b6}
0x0d54…0d7e Head {h00=0x0026, h01=0x0050, text=»CUAD2 EQU CUADR+/20 ADDRESS UNIT 2«, t00=0x0008, t01=0x00dc}
0x0d7e…0da0 Head {h00=0x001e, h01=0x0050, text=»DEVIND EQU 10 DEVICE INDEX«, t00=0x0008, t01=0x0106}
0x0da0…0dbc Head {h00=0x0018, h01=0x0050, text=»RY3 EQU 3 3 RETRIES «, t00=0x0008, t01=0x0128}
0x0dbc…0dea Head {h00=0x002a, h01=0x0050, text=»PHSECL EQU /180 PHYSICAL SECTOR LENGTH«, t00=0x0008, t01=0x0144}
0x0dea…0e16 Head {h00=0x0028, h01=0x0050, text=»LOSECL EQU /80 LOGICAL SECTOR LENGTH«, t00=0x0008, t01=0x0172}
0x0e16…0e46 Head {h00=0x002c, h01=0x0050, text=»SEZCOM EQU /E800 SEEK ZERO COMMAND CODE «, t00=0x0009, t01=0x000e}
0x0e46…0e70 Head {h00=0x0026, h01=0x0050, text=»SEEKCO EQU /A800 SEEK COMMAND CODE«, t00=0x0009, t01=0x003e}
0x0e70…0e9a Head {h00=0x0026, h01=0x0050, text=»REDCOM EQU /0800 READ COMMAND CODE«, t00=0x0009, t01=0x0068}
0x0e9a…0ec6 Head {h00=0x0028, h01=0x0050, text=»VERCOM EQU /3800 VERIFY COMMAND CODE«, t00=0x0009, t01=0x0092}
0x0ec6…0ef2 Head {h00=0x0028, h01=0x0050, text=»WRICOM EQU /1800 WRITE COMMAND CODE «, t00=0x0009, t01=0x00be}
0x0ef2…0f2a Head {h00=0x0034, h01=0x0050, text=»WHACOM EQU /22C0 WRITE SECTOR MARKS COMMAND CODE«, t00=0x0009, t01=0x00ea}
0x0f2a…0f52 Head {h00=0x0024, h01=0x0050, text=»NOTRAN EQU /8000 NO TRANSFER BIT«, t00=0x0009, t01=0x0122}
0x0f52…0f78 Head {h00=0x0022, h01=0x0050, text=»TIME EQU 1000 1 MIN 40 SECONDS«, t00=0x0009, t01=0x014a}
0x0f78…0fa6 Head {h00=0x002a, h01=0x0050, text=»MAXCYL EQU 822 MAXIMAL CYLINDER NUMBER«, t00=0x0009, t01=0x0170}
0x0fa6…0fca Head {h00=0x0020, h01=0x0050, text=»MAXSE1 EQU 8 MAXIMAL NUMBER «, t00=0x000a, t01=0x000e}
0x0fca…0fee Head {h00=0x0020, h01=0x0050, text=»MAXSE2 EQU /53C6 OF SECTORS «, t00=0x000a, t01=0x0032}
0x0fee…1016 Head {h00=0x0024, h01=0x0050, text=»INLACE EQU 5 INTERLACING FACTOR «, t00=0x000a, t01=0x0056}
0x1016…1020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007e}
0x1020…1036 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x000a, t01=0x0088}
0x1036…1040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009e}
0x1040…104a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a8}
0x104a…106a Head {h00=0x001c, h01=0x0050, text=»* DRIVER ADDRESS BLOCK«, t00=0x000a, t01=0x00b2}
0x106a…1074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d2}
0x1074…107e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00dc}
0x107e…10a6 Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDICATES NO MMU BUFFER «, t00=0x000a, t01=0x00e6}
0x10a6…10cc Head {h00=0x0022, h01=0x0050, text=» DATA DEVIND DISC DEVICE INDEX«, t00=0x000a, t01=0x010e}
0x10cc…10f6 Head {h00=0x0026, h01=0x0050, text=»CDADR DATA CDAD ACTIVATION ADDRESS«, t00=0x000a, t01=0x0134}
0x10f6…111c Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000a, t01=0x015e}
0x111c…1126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0184}
0x1126…1130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018e}
0x1130…113a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0008}
0x113a…1154 Head {h00=0x0016, h01=0x0050, text=»* DRIVER BUFFER «, t00=0x000b, t01=0x0012}
0x1154…115e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002c}
0x115e…1168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0036}
0x1168…117c Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x000b, t01=0x0040}
0x117c…118c Head {h00=0x000c, h01=0x0050, text=» RES 256«, t00=0x000b, t01=0x0054}
0x118c…1196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0064}
0x1196…11ac Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x000b, t01=0x006e}
0x11ac…11b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0084}
0x11b6…11c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x008e}
0x11c0…11e4 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x000b, t01=0x0098}
0x11e4…1208 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x000b, t01=0x00bc}
0x1208…122c Head {h00=0x0020, h01=0x0050, text=»* ACTIVATION *«, t00=0x000b, t01=0x00e0}
0x122c…1250 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x000b, t01=0x0104}
0x1250…1274 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x000b, t01=0x0128}
0x1274…127e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x014c}
0x127e…1290 Head {h00=0x000e, h01=0x0050, text=»CDAD EQU *«, t00=0x000b, t01=0x0156}
0x1290…12a6 Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB3«, t00=0x000b, t01=0x0168}
0x12a6…12c8 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x000b, t01=0x017e}
0x12c8…12fc Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTRE1,A6 GET GRAND TOTAL OF RETRIES «, t00=0x000c, t01=0x0010}
0x12fc…1330 Head {h00=0x0030, h01=0x0050, text=» ST A4,DWTRE2,A6 PRESENT TOTAL RETRY COUNTER«, t00=0x000c, t01=0x0044}
0x1330…1362 Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x000c, t01=0x0078}
0x1362…1382 Head {h00=0x001c, h01=0x0050, text=»* SAVE INDEX AND ORDER«, t00=0x000c, t01=0x00aa}
0x1382…139a Head {h00=0x0014, h01=0x0050, text=» ADK A7,0 SET CR«, t00=0x000c, t01=0x00ca}
0x139a…13c6 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) CDA:00 NOT TEST STATUS ORDER«, t00=0x000c, t01=0x00e2}
0x13c6…13d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010e}
0x13d0…13e6 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x000c, t01=0x0118}
0x13e6…13f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012e}
0x13f0…13fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0138}
0x13fa…1418 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000c, t01=0x0142}
0x1418…1436 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0160}
0x1436…1454 Head {h00=0x001a, h01=0x0050, text=»* TEST STATUS * «, t00=0x000c, t01=0x017e}
0x1454…1472 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x000d, t01=0x000c}
0x1472…1490 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000d, t01=0x002a}
0x1490…149a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0048}
0x149a…14a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0052}
0x14a4…14c4 Head {h00=0x001c, h01=0x0050, text=» ORS A1,ECBRC,A8 NVL BIT«, t00=0x000d, t01=0x005c}
0x14c4…14ee Head {h00=0x0026, h01=0x0050, text=» IM DWTSAV,A6 INDICATE TEST STATUS«, t00=0x000d, t01=0x007c}
0x14ee…1514 Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x000d, t01=0x00a6}
0x1514…1526 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x000d, t01=0x00cc}
0x1526…154a Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TESEND NOT OPERABLE «, t00=0x000d, t01=0x00de}
0x154a…156e Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x000d, t01=0x0102}
0x156e…15a8 Head {h00=0x0036, h01=0x0050, text=» CF A15,VOLNAM TRANSFER VOLUME NAME TO USER BUFFER«, t00=0x000d, t01=0x0126}
0x15a8…15cc Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x000d, t01=0x0160}
0x15cc…15e0 Head {h00=0x0010, h01=0x0050, text=»TESEND EQU *«, t00=0x000d, t01=0x0184}
0x15e0…1606 Head {h00=0x0022, h01=0x0050, text=» CM DWTSAV,A6 TEST STATUS DONE«, t00=0x000e, t01=0x0008}
0x1606…1626 Head {h00=0x001c, h01=0x0050, text=» RF DENDIO PERFORM ENDIO«, t00=0x000e, t01=0x002e}
0x1626…1630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004e}
0x1630…1648 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCD01 «, t00=0x000e, t01=0x0058}
0x1648…1652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0070}
0x1652…1682 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000e, t01=0x007a}
0x1682…16b2 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x000e, t01=0x00aa}
0x16b2…16e2 Head {h00=0x002c, h01=0x0050, text=»* NEW VOLUME LOADED CHECK * «, t00=0x000e, t01=0x00da}
0x16e2…1712 Head {h00=0x002c, h01=0x0050, text=»* ORDER CODE CHECK * «, t00=0x000e, t01=0x010a}
0x1712…1742 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x000e, t01=0x013a}
0x1742…1772 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000e, t01=0x016a}
0x1772…177c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000a}
0x177c…17ae Head {h00=0x002e, h01=0x0050, text=»* INPUT: A1=NVL RETURN CODE FROM NVLCHK «, t00=0x000f, t01=0x0014}
0x17ae…17ce Head {h00=0x001c, h01=0x0050, text=»* A7=ORDER CODE«, t00=0x000f, t01=0x0046}
0x17ce…17d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0066}
0x17d8…17e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0070}
0x17e2…17f6 Head {h00=0x0010, h01=0x0050, text=»CDA:00 EQU *«, t00=0x000f, t01=0x007a}
0x17f6…1822 Head {h00=0x0028, h01=0x0050, text=» ADK A1,0 CHECK IF NEW VOLUME LOADED«, t00=0x000f, t01=0x008e}
0x1822…1846 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DENDIO PERFORM ENDIO«, t00=0x000f, t01=0x00ba}
0x1846…1858 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x000f, t01=0x00de}
0x1858…1878 Head {h00=0x001c, h01=0x0050, text=» RF(Z) CD:010 BASIC READ«, t00=0x000f, t01=0x00f0}
0x1878…188a Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x000f, t01=0x0110}
0x188a…18ac Head {h00=0x001e, h01=0x0050, text=» RF(Z) CD:000 BASIC WRITE «, t00=0x000f, t01=0x0122}
0x18ac…18c0 Head {h00=0x0010, h01=0x0050, text=» SUK A7,12 «, t00=0x000f, t01=0x0144}
0x18c0…18e4 Head {h00=0x0020, h01=0x0050, text=» RF(Z) CD:010 PHYSICAL READ «, t00=0x000f, t01=0x0158}
0x18e4…18f6 Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x000f, t01=0x017c}
0x18f6…191a Head {h00=0x0020, h01=0x0050, text=» RF(Z) CD:000 PHYSICAL WRITE«, t00=0x000f, t01=0x018e}
0x191a…192c Head {h00=0x000e, h01=0x0050, text=» SUK A7,10«, t00=0x0010, t01=0x0022}
0x192c…1950 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FORMAT FORMAT VOLUME «, t00=0x0010, t01=0x0034}
0x1950…195a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0058}
0x195a…1980 Head {h00=0x0022, h01=0x0050, text=»DUERR ABL DISIOE REQUEST ERROR«, t00=0x0010, t01=0x0062}
0x1980…198a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0088}
0x198a…19b6 Head {h00=0x0028, h01=0x0050, text=»INCLEN EQU * REQUESTED LENGTH ERROR «, t00=0x0010, t01=0x0092}
0x19b6…19cc Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8008«, t00=0x0010, t01=0x00be}
0x19cc…19e0 Head {h00=0x0010, h01=0x0050, text=»DENDIO EQU *«, t00=0x0010, t01=0x00d4}
0x19e0…19f4 Head {h00=0x0010, h01=0x0050, text=» ABL END:IO «, t00=0x0010, t01=0x00e8}
0x19f4…19fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fc}
0x19fe…1a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0106}
0x1a08…1a1e Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0010, t01=0x0110}
0x1a1e…1a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0126}
0x1a28…1a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0130}
0x1a32…1a5c Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0010, t01=0x013a}
0x1a5c…1a86 Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x0010, t01=0x0164}
0x1a86…1ab0 Head {h00=0x0026, h01=0x0050, text=»* FORMAT VOLUME * «, t00=0x0010, t01=0x018e}
0x1ab0…1ada Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x0011, t01=0x0028}
0x1ada…1b04 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0011, t01=0x0052}
0x1b04…1b0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007c}
0x1b0e…1b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0086}
0x1b18…1b2c Head {h00=0x0010, h01=0x0050, text=»FORMAT EQU *«, t00=0x0011, t01=0x0090}
0x1b2c…1b58 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,SEEKCO SEEK OPERATION CODE «, t00=0x0011, t01=0x00a4}
0x1b58…1b88 Head {h00=0x002c, h01=0x0050, text=» ST A1,DWTSEK,A6 TO SEEK OPERATION AREA «, t00=0x0011, t01=0x00d0}
0x1b88…1ba8 Head {h00=0x001c, h01=0x0050, text=» CF A5,SEEKZ CYLINDER 0 «, t00=0x0011, t01=0x0100}
0x1ba8…1bba Head {h00=0x000e, h01=0x0050, text=» RF FOR:50«, t00=0x0011, t01=0x0120}
0x1bba…1bce Head {h00=0x0010, h01=0x0050, text=»FOR:10 EQU *«, t00=0x0011, t01=0x0132}
0x1bce…1be2 Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEK «, t00=0x0011, t01=0x0146}
0x1be2…1bf6 Head {h00=0x0010, h01=0x0050, text=»FOR:50 EQU *«, t00=0x0011, t01=0x015a}
0x1bf6…1c04 Head {h00=0x000a, h01=0x0050, text=» MLK 3«, t00=0x0011, t01=0x016e}
0x1c04…1c18 Head {h00=0x0010, h01=0x0050, text=» DATA REDCOM«, t00=0x0011, t01=0x017c}
0x1c18…1c2c Head {h00=0x0010, h01=0x0050, text=» DATA LOSECL«, t00=0x0011, t01=0x0190}
0x1c2c…1c48 Head {h00=0x0018, h01=0x0050, text=» DATA NOTRAN+LOSECL «, t00=0x0012, t01=0x0014}
0x1c48…1c70 Head {h00=0x0024, h01=0x0050, text=» MS 3,DWTCOP,A6 PREPARE FOR READ«, t00=0x0012, t01=0x0030}
0x1c70…1c8e Head {h00=0x001a, h01=0x0050, text=» LDR A4,A6 WHA POINTER«, t00=0x0012, t01=0x0058}
0x1c8e…1c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0076}
0x1c98…1cae Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0012, t01=0x0080}
0x1cae…1cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0096}
0x1cb8…1cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a0}
0x1cc2…1cd6 Head {h00=0x0010, h01=0x0050, text=»FOR:60 EQU *«, t00=0x0012, t01=0x00aa}
0x1cd6…1cee Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW1,A8«, t00=0x0012, t01=0x00be}
0x1cee…1d1c Head {h00=0x002a, h01=0x0050, text=» RF(Z) FOR:70 NO BAD TRACK FLAG CHECK «, t00=0x0012, t01=0x00d6}
0x1d1c…1d42 Head {h00=0x0022, h01=0x0050, text=» CF A5,CIO READ PART OF SECTOR«, t00=0x0012, t01=0x0104}
0x1d42…1d6c Head {h00=0x0026, h01=0x0050, text=» SRL A1,8 BAD TRACK FLAG INDICATOR«, t00=0x0012, t01=0x012a}
0x1d6c…1d80 Head {h00=0x0010, h01=0x0050, text=»FOR:70 EQU *«, t00=0x0012, t01=0x0154}
0x1d80…1da0 Head {h00=0x001c, h01=0x0050, text=» ORK A1,/22 PREPARE WHA «, t00=0x0012, t01=0x0168}
0x1da0…1db8 Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTWHA,A4«, t00=0x0012, t01=0x0188}
0x1db8…1dd8 Head {h00=0x001c, h01=0x0050, text=» IM DWTCOP,A6 NEXT HEAD «, t00=0x0013, t01=0x0010}
0x1dd8…1dea Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x0013, t01=0x0030}
0x1dea…1dfc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0013, t01=0x0042}
0x1dfc…1e0e Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0013, t01=0x0054}
0x1e0e…1e2c Head {h00=0x001a, h01=0x0050, text=» SUK A1,DWTCOP-DWTWHA «, t00=0x0013, t01=0x0066}
0x1e2c…1e4c Head {h00=0x001c, h01=0x0050, text=» RB(L) FOR:60 NEXT HEAD «, t00=0x0013, t01=0x0084}
0x1e4c…1e6e Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/800 INTERUPT BIT«, t00=0x0013, t01=0x00a4}
0x1e6e…1e8a Head {h00=0x0018, h01=0x0050, text=» ORS A1,DWTWHA+16,A6«, t00=0x0013, t01=0x00c6}
0x1e8a…1eb2 Head {h00=0x0024, h01=0x0050, text=» CF A5,HOMEAD WRITE SECTOR MARKS«, t00=0x0013, t01=0x00e2}
0x1eb2…1ed6 Head {h00=0x0020, h01=0x0050, text=» IM DWTSEK,A6 NEXT CYLINDER «, t00=0x0013, t01=0x010a}
0x1ed6…1eee Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTSEK,A6«, t00=0x0013, t01=0x012e}
0x1eee…1f32 Head {h00=0x0040, h01=0x0050, text=» SUKL A1,SEEKCO+MAXCYL SEEK ORDER CODE + MAX CYLINDER NUMBER«, t00=0x0013, t01=0x0146}
0x1f32…1f56 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) FOR:10 NEXT CYLINDER«, t00=0x0013, t01=0x018a}
0x1f56…1f74 Head {h00=0x001a, h01=0x0050, text=» LDKL A2,MAXCYL-1 821 «, t00=0x0014, t01=0x001e}
0x1f74…1f8a Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0014, t01=0x003c}
0x1f8a…1fb2 Head {h00=0x0024, h01=0x0050, text=» ST A2,DWTCYL,A6 CYLINDER NUMBER«, t00=0x0014, t01=0x0052}
0x1fb2…1fbe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x007a}
0x1fbe…1fd4 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0014, t01=0x0086}
0x1fd4…1fea Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0014, t01=0x009c}
0x1fea…2012 Head {h00=0x0024, h01=0x0050, text=» ST A2,DWTCYL,A4 CYLINDER NUMBER«, t00=0x0014, t01=0x00b2}
0x2012…201e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00da}
0x201e…203e Head {h00=0x001c, h01=0x0050, text=» RB DENDIO PERFORM ENDIO«, t00=0x0014, t01=0x00e6}
0x203e…2048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0106}
0x2048…205e Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0014, t01=0x0110}
0x205e…2068 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0126}
0x2068…2072 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0130}
0x2072…20a6 Head {h00=0x0030, h01=0x002c, text=»********************************************«, t00=0x0014, t01=0x013a}
0x20a6…20da Head {h00=0x0030, h01=0x002c, text=»* *«, t00=0x0014, t01=0x016e}
0x20da…210e Head {h00=0x0030, h01=0x002c, text=»* INPUT ECB-PARAMETER CHECK *«, t00=0x0015, t01=0x0012}
0x210e…2142 Head {h00=0x0030, h01=0x002c, text=»* *«, t00=0x0015, t01=0x0046}
0x2142…2176 Head {h00=0x0030, h01=0x002c, text=»********************************************«, t00=0x0015, t01=0x007a}
0x2176…2180 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00ae}
0x2180…218a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00b8}
0x218a…219e Head {h00=0x0010, h01=0x0050, text=»CD:000 EQU *«, t00=0x0015, t01=0x00c2}
0x219e…21be Head {h00=0x001c, h01=0x0050, text=» LDK A7,5 INDICATE WRITE«, t00=0x0015, t01=0x00d6}
0x21be…21d2 Head {h00=0x0010, h01=0x0050, text=»CD:010 EQU *«, t00=0x0015, t01=0x00f6}
0x21d2…21fc Head {h00=0x0026, h01=0x0050, text=» ML 2,ECBCW1,A8 GET SECTOR NUMBER «, t00=0x0015, t01=0x010a}
0x21fc…2226 Head {h00=0x0026, h01=0x0050, text=» DSK MAXSE1,MAXSE2 DECIMAL 283590 «, t00=0x0015, t01=0x0134}
0x2226…223c Head {h00=0x0012, h01=0x0050, text=» RB(NN) DUERR «, t00=0x0015, t01=0x015e}
0x223c…225c Head {h00=0x001c, h01=0x0018, text=» LDK A2,0 CLEAR REGISTER«, t00=0x0015, t01=0x0174}
0x225c…2288 (22, 0, 400) Head {h00=0x0028, h01=0x0024, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0016, t01=0x0004}
0x2288…22b0 Head {h00=0x0024, h01=0x0050, text=» RB(Z) INCLEN INCORRECT REQUEST «, t00=0x0016, t01=0x0030}
0x22b0…22d0 Head {h00=0x001c, h01=0x0018, text=» ECR A2,A1 DIVIDE BY 256«, t00=0x0016, t01=0x0058}
0x22d0…22f8 Head {h00=0x0024, h01=0x001f, text=» ANK A1,/FF REST AFTER DIVISION «, t00=0x0016, t01=0x0078}
0x22f8…2320 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) INCLEN INCORRECT REQUEST«, t00=0x0016, t01=0x00a0}
0x2320…2358 Head {h00=0x0034, h01=0x002f, text=» ST A2,DWTLOS,A6 SAVE NUMBER OF LOGICAL SECTORS «, t00=0x0016, t01=0x00c8}
0x2358…2384 Head {h00=0x0028, h01=0x0023, text=» DA ECBCW1,A8 LOGICAL SECTOR NUMBER «, t00=0x0016, t01=0x0100}
0x2384…23ae Head {h00=0x0026, h01=0x0050, text=» DSK MAXSE1,MAXSE2 DECIMAL 283590 «, t00=0x0016, t01=0x012c}
0x23ae…23d6 Head {h00=0x0024, h01=0x0050, text=» RB(P) INCLEN INCORRECT REQUEST «, t00=0x0016, t01=0x0156}
0x23d6…23e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x017e}
0x23e0…23f6 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0016, t01=0x0188}
0x23f6…2400 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x000e}
0x2400…240a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0018}
0x240a…2430 Head {h00=0x0022, h01=0x001e, text=»* GET PHYSICAL SECTOR NUMBER«, t00=0x0017, t01=0x0022}
0x2430…244e Head {h00=0x001a, h01=0x0050, text=»* GET BUFFER ADDRESS«, t00=0x0017, t01=0x0048}
0x244e…246e Head {h00=0x001c, h01=0x0050, text=»* PREPARE SECTOR MASK «, t00=0x0017, t01=0x0066}
0x246e…2478 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0086}
0x2478…2482 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0090}
0x2482…2498 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0017, t01=0x009a}
0x2498…24ca Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBBA,A8 GET 16 BIT BUFFER ADDRESS «, t00=0x0017, t01=0x00b0}
0x24ca…24e2 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTBA,A6 «, t00=0x0017, t01=0x00e2}
0x24e2…24ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00fa}
0x24ee…2504 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0017, t01=0x0106}
0x2504…2530 Head {h00=0x0028, h01=0x0050, text=» MLR 2,A8 GET 18 BIT BUFFER ADDRESS «, t00=0x0017, t01=0x011c}
0x2530…2558 Head {h00=0x0024, h01=0x0050, text=» SLC A1,4 MOST SIGNIFICANT BITS «, t00=0x0017, t01=0x0148}
0x2558…256a Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0017, t01=0x0170}
0x256a…257c Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0017, t01=0x0182}
0x257c…2592 (24, 0, 400) Head {h00=0x0012, h01=0x0050, text=» MS 2,DWTBA,A6«, t00=0x0018, t01=0x0004}
0x2592…259e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x001a}
0x259e…25d0 Head {h00=0x002e, h01=0x0029, text=» ML 2,ECBCW1,A8 GET LOGICAL SECTOR NUMBER «, t00=0x0018, t01=0x0026}
0x25d0…25fc Head {h00=0x0028, h01=0x0050, text=» LDK A3,0 DIVIDE MOST SIGN PART BY 3«, t00=0x0018, t01=0x0058}
0x25fc…2610 Head {h00=0x0010, h01=0x0050, text=»CD:100 EQU *«, t00=0x0018, t01=0x0084}
0x2610…2622 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0018, t01=0x0098}
0x2622…2634 Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0018, t01=0x00aa}
0x2634…264a Head {h00=0x0012, h01=0x0050, text=» RB(NN) CD:100«, t00=0x0018, t01=0x00bc}
0x264a…265c Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0018, t01=0x00d2}
0x265c…266e Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0018, t01=0x00e4}
0x266e…269e Head {h00=0x002c, h01=0x0050, text=» ST A3,DWTSEC,A6 PHYSICAL SECTOR NUMBER «, t00=0x0018, t01=0x00f6}
0x269e…26b8 Head {h00=0x0016, h01=0x0050, text=» DVK 3 DIVIDE BY 3«, t00=0x0018, t01=0x0126}
0x26b8…26ea Head {h00=0x002e, h01=0x0050, text=» ST A2,DWTSEC+2,A6 LEAST SIGNIFICANT PART «, t00=0x0018, t01=0x0140}
0x26ea…2710 Head {h00=0x0022, h01=0x0050, text=» CF A5,MASKPR PREPARE IO MASK «, t00=0x0018, t01=0x0172}
0x2710…272e Head {h00=0x001a, h01=0x0050, text=» ANK A7,4 ORDER CHECK «, t00=0x0019, t01=0x0008}
0x272e…274e Head {h00=0x001c, h01=0x0050, text=» RF(Z) REA:00 READ ORDER«, t00=0x0019, t01=0x0026}
0x274e…2764 Head {h00=0x0012, h01=0x000e, text=» EJECT DRCD01«, t00=0x0019, t01=0x0046}
0x2764…276e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x005c}
0x276e…2778 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0066}
0x2778…27a0 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0019, t01=0x0070}
0x27a0…27c8 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x0019, t01=0x0098}
0x27c8…27f0 Head {h00=0x0024, h01=0x0050, text=»* WRITE SECTORS *«, t00=0x0019, t01=0x00c0}
0x27f0…2818 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x0019, t01=0x00e8}
0x2818…2840 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0019, t01=0x0110}
0x2840…284a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0138}
0x284a…2854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0142}
0x2854…2878 Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTMAS,A6 SECTOR MASK«, t00=0x0019, t01=0x014c}
0x2878…288a Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x0019, t01=0x0170}
0x288a…28b6 Head {h00=0x0028, h01=0x0050, text=» RF(Z) WRI:50 TOTAL PHYSICAL SECTOR «, t00=0x0019, t01=0x0182}
0x28b6…28ca Head {h00=0x0010, h01=0x0050, text=»WRI:10 EQU *«, t00=0x001a, t01=0x001e}
0x28ca…290a Head {h00=0x003c, h01=0x0050, text=» ML 3,DWTBSE,A6 GET IDENTITY OF SECTORS IN DRIVER BUFFER«, t00=0x001a, t01=0x0032}
0x290a…2932 Head {h00=0x0024, h01=0x0050, text=» OR A3,DWTMAS,A6 GET SECTOR MASK«, t00=0x001a, t01=0x0072}
0x2932…2944 Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x001a, t01=0x009a}
0x2944…2978 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) WRI:20 NOT COMPLETE PHYSICAL SECTOR «, t00=0x001a, t01=0x00ac}
0x2978…29a0 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTOR,A6 GET UNIT NUMBER «, t00=0x001a, t01=0x00e0}
0x29a0…29b6 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/100 «, t00=0x001a, t01=0x0108}
0x29b6…29c8 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A3«, t00=0x001a, t01=0x011e}
0x29c8…29ec Head {h00=0x0020, h01=0x0050, text=» DS DWTSEC,A6 SECTOR NUMBER «, t00=0x001a, t01=0x0130}
0x29ec…2a22 Head {h00=0x0032, h01=0x0050, text=» RF(Z) WRI:30 CORRECT SECTORS IN DRIVER BUFFER«, t00=0x001a, t01=0x0154}
0x2a22…2a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018a}
0x2a2c…2a42 (27, 0, 398) Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x001b, t01=0x0004}
0x2a42…2a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x001a}
0x2a4c…2a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0024}
0x2a56…2a6a Head {h00=0x0010, h01=0x0050, text=»WRI:20 EQU *«, t00=0x001b, t01=0x002e}
0x2a6a…2a94 Head {h00=0x0026, h01=0x0050, text=» IM DWTTRA,A6 INDICATE NO TRANSFER«, t00=0x001b, t01=0x0042}
0x2a94…2ac6 Head {h00=0x002e, h01=0x0050, text=» CF A5,READ READ SECTORS TO DRIVER BUFFER «, t00=0x001b, t01=0x006c}
0x2ac6…2ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x009e}
0x2ad0…2ae4 Head {h00=0x0010, h01=0x0050, text=»WRI:30 EQU *«, t00=0x001b, t01=0x00a8}
0x2ae4…2b12 Head {h00=0x002a, h01=0x0050, text=» CF A5,WRITE WRITE ONE PHYSICAL SECTOR«, t00=0x001b, t01=0x00bc}
0x2b12…2b24 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001b, t01=0x00ea}
0x2b24…2b46 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTOR,A6 GET ORDER «, t00=0x001b, t01=0x00fc}
0x2b46…2b5a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x001b, t01=0x011e}
0x2b5a…2b7c Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRI:35 BASIC WRITE «, t00=0x001b, t01=0x0132}
0x2b7c…2baa Head {h00=0x002a, h01=0x0050, text=» CF A5,VERIFY VERIFY IF PHYSICAL WRITE«, t00=0x001b, t01=0x0154}
0x2baa…2bbe Head {h00=0x0010, h01=0x0050, text=»WRI:35 EQU *«, t00=0x001b, t01=0x0182}
0x2bbe…2bca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0008}
0x2bca…2be0 Head {h00=0x0012, h01=0x0050, text=» CF A5,UPDATE «, t00=0x001c, t01=0x0014}
0x2be0…2c16 Head {h00=0x0032, h01=0x0050, text=» LD A1,DWTLOS,A6 GET NUMBER OF LOGICAL SECTORS«, t00=0x001c, t01=0x002a}
0x2c16…2c3c Head {h00=0x0022, h01=0x0050, text=» RF(Z) REA:50 LAST SECTOR DONE«, t00=0x001c, t01=0x0060}
0x2c3c…2c66 Head {h00=0x0026, h01=0x0050, text=» CF A5,MASK00 PREPARE SECTOR MASK «, t00=0x001c, t01=0x0086}
0x2c66…2c88 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTMAS,A6 GET MASK «, t00=0x001c, t01=0x00b0}
0x2c88…2c9a Head {h00=0x000e, h01=0x0050, text=» SUK A1,7 «, t00=0x001c, t01=0x00d2}
0x2c9a…2cc6 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) WRI:10 LESS THAN 3 SECTOR IO«, t00=0x001c, t01=0x00e4}
0x2cc6…2cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0110}
0x2cd0…2ce6 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x001c, t01=0x011a}
0x2ce6…2cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0130}
0x2cf0…2cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x013a}
0x2cfa…2d0e Head {h00=0x0010, h01=0x0050, text=»WRI:50 EQU *«, t00=0x001c, t01=0x0144}
0x2d0e…2d20 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001c, t01=0x0158}
0x2d20…2d5c Head {h00=0x0038, h01=0x0050, text=» ML 4,DWTBA,A6 SAVE PARAMETERS FOR READ AFTER WRITE «, t00=0x001c, t01=0x016a}
0x2d5c…2d74 Head {h00=0x0014, h01=0x0050, text=» MS 4,DWTRAW,A6 «, t00=0x001d, t01=0x0016}
0x2d74…2d8a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001d, t01=0x002e}
0x2d8a…2da4 Head {h00=0x0016, h01=0x0050, text=» LD A1,DWTSEC+2,A6«, t00=0x001d, t01=0x0044}
0x2da4…2dbe Head {h00=0x0016, h01=0x0050, text=» ST A1,DWTRAW+8,A6«, t00=0x001d, t01=0x005e}
0x2dbe…2dca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0078}
0x2dca…2ddc Head {h00=0x000e, h01=0x0050, text=» LDK A3,7 «, t00=0x001d, t01=0x0084}
0x2ddc…2e00 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTMAS,A6 SECTOR MASK«, t00=0x001d, t01=0x0096}
0x2e00…2e14 Head {h00=0x0010, h01=0x0050, text=»WRI:55 EQU *«, t00=0x001d, t01=0x00ba}
0x2e14…2e28 Head {h00=0x0010, h01=0x0050, text=» CF A5,WRITE«, t00=0x001d, t01=0x00ce}
0x2e28…2e3a Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001d, t01=0x00e2}
0x2e3a…2e76 Head {h00=0x0038, h01=0x0050, text=» IM DWTTRA,A6 INDICATE NO UPDATE OF EFFECTIVE LENGTH«, t00=0x001d, t01=0x00f4}
0x2e76…2e82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0130}
0x2e82…2e96 Head {h00=0x0010, h01=0x0050, text=» CF A5,UPDAT«, t00=0x001d, t01=0x013c}
0x2e96…2ea8 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001d, t01=0x0150}
0x2ea8…2ebe Head {h00=0x0012, h01=0x0050, text=» CM DWTTRA,A6 «, t00=0x001d, t01=0x0162}
0x2ebe…2eca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0178}
0x2eca…2efc Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS«, t00=0x001d, t01=0x0184}
0x2efc…2f0e Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x001e, t01=0x0026}
0x2f0e…2f3a Head {h00=0x0028, h01=0x0050, text=» RB(NN) WRI:55 NEXT PHYSICAL SECTOR «, t00=0x001e, t01=0x0038}
0x2f3a…2f4c Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001e, t01=0x0064}
0x2f4c…2f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0076}
0x2f56…2f6c Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x001e, t01=0x0080}
0x2f6c…2f76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0096}
0x2f76…2f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a0}
0x2f80…2f98 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A6 «, t00=0x001e, t01=0x00aa}
0x2f98…2fac Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x001e, t01=0x00c2}
0x2fac…2fce Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRI:70 BASIV WRITE «, t00=0x001e, t01=0x00d6}
0x2fce…3004 Head {h00=0x0032, h01=0x0050, text=» ML 4,DWTRAW,A6 RESTORE PARAMETERS FOR VERIFY «, t00=0x001e, t01=0x00f8}
0x3004…301a Head {h00=0x0012, h01=0x0050, text=» MS 4,DWTBA,A6«, t00=0x001e, t01=0x012e}
0x301a…3030 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001e, t01=0x0144}
0x3030…304a Head {h00=0x0016, h01=0x0050, text=» LD A1,DWTRAW+8,A6«, t00=0x001e, t01=0x015a}
0x304a…3064 Head {h00=0x0016, h01=0x0050, text=» ST A1,DWTSEC+2,A6«, t00=0x001e, t01=0x0174}
0x3064…3070 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x018e}
0x3070…3082 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001f, t01=0x000a}
0x3082…3096 Head {h00=0x0010, h01=0x0050, text=»WRI:60 EQU *«, t00=0x001f, t01=0x001c}
0x3096…30ac Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOLOD «, t00=0x001f, t01=0x0030}
0x30ac…30c2 Head {h00=0x0012, h01=0x0050, text=» CF A5,VERIFY «, t00=0x001f, t01=0x0046}
0x30c2…30d6 Head {h00=0x0010, h01=0x0050, text=» CF A5,UPDAT«, t00=0x001f, t01=0x005c}
0x30d6…3108 Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS«, t00=0x001f, t01=0x0070}
0x3108…311a Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x001f, t01=0x00a2}
0x311a…3146 Head {h00=0x0028, h01=0x0050, text=» RB(NN) WRI:60 NEXT PHYSICAL SECTOR «, t00=0x001f, t01=0x00b4}
0x3146…3152 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00e0}
0x3152…3166 Head {h00=0x0010, h01=0x0050, text=»WRI:70 EQU *«, t00=0x001f, t01=0x00ec}
0x3166…3178 Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x001f, t01=0x0100}
0x3178…319e Head {h00=0x0022, h01=0x0050, text=» RF(Z) REA:50 LAST SECTOR DONE«, t00=0x001f, t01=0x0112}
0x319e…31c8 Head {h00=0x0026, h01=0x0050, text=» CF A5,MASK00 PREPARE SECTOR MASK «, t00=0x001f, t01=0x0138}
0x31c8…31e8 Head {h00=0x001c, h01=0x0050, text=» RB WRI:10 LAST SECTORS «, t00=0x001f, t01=0x0162}
0x31e8…31f2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0182}
0x31f2…3208 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x001f, t01=0x018c}
0x3208…3212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0012}
0x3212…321c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x001c}
0x321c…3244 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0020, t01=0x0026}
0x3244…326c Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x0020, t01=0x004e}
0x326c…3294 Head {h00=0x0024, h01=0x0050, text=»* READ SECTORS *«, t00=0x0020, t01=0x0076}
0x3294…32bc Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x0020, t01=0x009e}
0x32bc…32e4 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0020, t01=0x00c6}
0x32e4…32ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ee}
0x32ee…32f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00f8}
0x32f8…330c Head {h00=0x0010, h01=0x0050, text=»REA:00 EQU *«, t00=0x0020, t01=0x0102}
0x330c…332c Head {h00=0x001c, h01=0x0050, text=» CF A5,READ PERFORM READ«, t00=0x0020, t01=0x0116}
0x332c…3342 Head {h00=0x0012, h01=0x0050, text=» CF A5,UPDATE «, t00=0x0020, t01=0x0136}
0x3342…3354 Head {h00=0x000e, h01=0x0050, text=» LDK A3,7 «, t00=0x0020, t01=0x014c}
0x3354…3378 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTMAS,A6 SECTOR MASK«, t00=0x0020, t01=0x015e}
0x3378…33aa Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS«, t00=0x0020, t01=0x0182}
0x33aa…33c8 Head {h00=0x001a, h01=0x0050, text=» RF(Z) REA:50 IO READY«, t00=0x0021, t01=0x0024}
0x33c8…33da Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0021, t01=0x0042}
0x33da…340e Head {h00=0x0030, h01=0x0050, text=» RB(NN) REA:00 AT LEAST ONE PHYSICAL SECTOR «, t00=0x0021, t01=0x0054}
0x340e…3424 Head {h00=0x0012, h01=0x0050, text=» CF A5,MASK00 «, t00=0x0021, t01=0x0088}
0x3424…3438 Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x0021, t01=0x009e}
0x3438…344e Head {h00=0x0012, h01=0x0050, text=» CF A5,UPDATE «, t00=0x0021, t01=0x00b2}
0x344e…3472 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0021, t01=0x00c8}
0x3472…3486 Head {h00=0x0010, h01=0x0050, text=»REA:50 EQU *«, t00=0x0021, t01=0x00ec}
0x3486…34a0 Head {h00=0x0016, h01=0x0050, text=» ABL END:00 END IO«, t00=0x0021, t01=0x0100}
0x34a0…34aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x011a}
0x34aa…34c0 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0021, t01=0x0124}
0x34c0…34ca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x013a}
0x34ca…34d4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0144}
0x34d4…34f2 Head {h00=0x001a, h01=0x0015, text=»********************* «, t00=0x0021, t01=0x014e}
0x34f2…3510 Head {h00=0x001a, h01=0x0015, text=»* * «, t00=0x0021, t01=0x016c}
0x3510…352e Head {h00=0x001a, h01=0x0015, text=»* READ SECTOR N * «, t00=0x0021, t01=0x018a}
0x352e…354c Head {h00=0x001a, h01=0x0015, text=»* * «, t00=0x0022, t01=0x0018}
0x354c…356a Head {h00=0x001a, h01=0x0015, text=»********************* «, t00=0x0022, t01=0x0036}
0x356a…3574 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0054}
0x3574…357e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x005e}
0x357e…3590 Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0022, t01=0x0068}
0x3590…35a6 Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOLOD «, t00=0x0022, t01=0x007a}
0x35a6…35e0 Head {h00=0x0036, h01=0x0050, text=» CM DWTBSE+4,A6 CLEAR BUFFER IND. IN CASE OF ERROR«, t00=0x0022, t01=0x0090}
0x35e0…360e Head {h00=0x002a, h01=0x0025, text=» LDKL A3,REDCOM GET READ COMMAND CODE «, t00=0x0022, t01=0x00ca}
0x360e…363e Head {h00=0x002c, h01=0x0050, text=» ORS A3,DWTCOP,A6 READ A RECORD COMMAND «, t00=0x0022, t01=0x00f8}
0x363e…3652 Head {h00=0x0010, h01=0x0050, text=»READ00 EQU *«, t00=0x0022, t01=0x0128}
0x3652…366e Head {h00=0x0018, h01=0x0050, text=» LDK A4,RY3 RETRIES «, t00=0x0022, t01=0x013c}
0x366e…3694 Head {h00=0x0022, h01=0x001d, text=»READ10 CF A5,CIO EXECUTE READ «, t00=0x0022, t01=0x0158}
0x3694…36a6 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0022, t01=0x017e}
0x36a6…36ce Head {h00=0x0024, h01=0x001f, text=» RF(Z) RET34 OK. NO RETURN CODE «, t00=0x0022, t01=0x0190}
0x36ce…36d8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0028}
0x36d8…36f6 Head {h00=0x001a, h01=0x0015, text=»* IO ERROR IN READING «, t00=0x0023, t01=0x0032}
0x36f6…3700 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0050}
0x3700…3716 Head {h00=0x0012, h01=0x0050, text=» IM DWTRE2,A6 «, t00=0x0023, t01=0x005a}
0x3716…373e Head {h00=0x0024, h01=0x0020, text=» SUK A4,1 DECREMENT RETRYCOUNTER«, t00=0x0023, t01=0x0070}
0x373e…3776 Head {h00=0x0034, h01=0x0050, text=» RB(P) READ10 3:RD RETRY IN THIS STATE NOT DONE «, t00=0x0023, t01=0x0098}
0x3776…379e Head {h00=0x0024, h01=0x001f, text=» LDK A4,RY3 REINIT RETRYCOUNTER «, t00=0x0023, t01=0x00d0}
0x379e…37a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f8}
0x37a8…37be Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0023, t01=0x0102}
0x37be…37c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0118}
0x37c8…37d2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0122}
0x37d2…37f0 Head {h00=0x001a, h01=0x0015, text=»* UPDATE READ-COMMAND «, t00=0x0023, t01=0x012c}
0x37f0…37fa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x014a}
0x37fa…3804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0154}
0x3804…381c Head {h00=0x0014, h01=0x0010, text=» LC A2,DWTCOP,A6«, t00=0x0023, t01=0x015e}
0x381c…3850 Head {h00=0x0030, h01=0x002b, text=» ANK A2,/C0 LAST RETRY WITH EARLY- OR LATE- «, t00=0x0023, t01=0x0176}
0x3850…3874 Head {h00=0x0020, h01=0x001b, text=» RF(NZ) RET31 DATA STROBE ? «, t00=0x0024, t01=0x001a}
0x3874…38a8 Head {h00=0x0030, h01=0x002c, text=» LDKL A3,/8000 PREPARE FOR EARLY DATA STROBE«, t00=0x0024, t01=0x003e}
0x38a8…38c2 Head {h00=0x0016, h01=0x0011, text=» ORS A3,DWTCOP,A6 «, t00=0x0024, t01=0x0072}
0x38c2…38fa Head {h00=0x0034, h01=0x002f, text=» RB READ10 RETRY 3 TIMES WITH EARLY DATA STROBE «, t00=0x0024, t01=0x008c}
0x38fa…390e Head {h00=0x0010, h01=0x000b, text=»RET31 EQU * «, t00=0x0024, t01=0x00c4}
0x390e…3922 Head {h00=0x0010, h01=0x000b, text=» ANK A2,/80 «, t00=0x0024, t01=0x00d8}
0x3922…395a Head {h00=0x0034, h01=0x002f, text=» RF(Z) RET32 LAST RETRIES WERE LATE DATA STROBE «, t00=0x0024, t01=0x00ec}
0x395a…3970 Head {h00=0x0012, h01=0x000e, text=» LDKL A3,/C000«, t00=0x0024, t01=0x0124}
0x3970…39b0 Head {h00=0x003c, h01=0x0038, text=» XRS A3,DWTCOP,A6 CHANGE FROM EARLY- TO LATE DATA STROBE«, t00=0x0024, t01=0x013a}
0x39b0…39e6 Head {h00=0x0032, h01=0x002e, text=» RB READ10 RETRY 3 TIMES WITH LATE DATA STROBE«, t00=0x0024, t01=0x017a}
0x39e6…39fa Head {h00=0x0010, h01=0x000b, text=»RET32 EQU * «, t00=0x0025, t01=0x0020}
0x39fa…3a10 Head {h00=0x0012, h01=0x000e, text=» LDKL A3,/3FFF«, t00=0x0025, t01=0x0034}
0x3a10…3a40 Head {h00=0x002c, h01=0x0028, text=» ANS A3,DWTCOP,A6 RESET LATE DATA STROBE«, t00=0x0025, t01=0x004a}
0x3a40…3a5a Head {h00=0x0016, h01=0x0012, text=» LC A2,DWTCOP+2,A6«, t00=0x0025, t01=0x007a}
0x3a5a…3a90 Head {h00=0x0032, h01=0x002d, text=» ANK A2,/C0 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x0025, t01=0x0094}
0x3a90…3aa6 Head {h00=0x0012, h01=0x000d, text=» RF(NZ) RET33 «, t00=0x0025, t01=0x00ca}
0x3aa6…3ad2 Head {h00=0x0028, h01=0x0024, text=» LDKL A3,/8000 PREPARE FOR CARRIAGE+«, t00=0x0025, t01=0x00e0}
0x3ad2…3aee Head {h00=0x0018, h01=0x0013, text=» ORS A3,DWTCOP+2,A6 «, t00=0x0025, t01=0x010c}
0x3aee…3b1e Head {h00=0x002c, h01=0x0027, text=» RB READ10 RETRY 3 TIMES WITH CARRIAGE+ «, t00=0x0025, t01=0x0128}
0x3b1e…3b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0158}
0x3b28…3b3e Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0025, t01=0x0162}
0x3b3e…3b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0178}
0x3b48…3b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0182}
0x3b52…3b66 Head {h00=0x0010, h01=0x000b, text=»RET33 EQU * «, t00=0x0025, t01=0x018c}
0x3b66…3b7a Head {h00=0x0010, h01=0x000b, text=» ANK A2,/80 «, t00=0x0026, t01=0x0010}
0x3b7a…3baa Head {h00=0x002c, h01=0x0050, text=» RF(Z) RET35 LAST RETRY WAS A CARRIAGE- «, t00=0x0026, t01=0x0024}
0x3baa…3bc0 Head {h00=0x0012, h01=0x000e, text=» LDKL A3,/C000«, t00=0x0026, t01=0x0054}
0x3bc0…3bfe Head {h00=0x003a, h01=0x0035, text=» XRS A3,DWTCOP+2,A6 CHANGE FROM CARRIAGE+TO CARRIAGE- «, t00=0x0026, t01=0x006a}
0x3bfe…3c2e Head {h00=0x002c, h01=0x0027, text=» RB READ10 RETRY 3 TIMES WITH CARRIAGE- «, t00=0x0026, t01=0x00a8}
0x3c2e…3c42 Head {h00=0x0010, h01=0x0050, text=»RET35 EQU * «, t00=0x0026, t01=0x00d8}
0x3c42…3c5a Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSAV,A6«, t00=0x0026, t01=0x00ec}
0x3c5a…3c82 Head {h00=0x0024, h01=0x0050, text=» RB(Z) REA:50 NOT VO:NAM CALLING«, t00=0x0026, t01=0x0104}
0x3c82…3ca6 Head {h00=0x0020, h01=0x001b, text=»RET34 EQU * NO MORE RETRIES «, t00=0x0026, t01=0x012c}
0x3ca6…3cb6 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0026, t01=0x0150}
0x3cb6…3cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0160}
0x3cc0…3cd6 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0026, t01=0x016a}
0x3cd6…3ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0180}
0x3ce0…3cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x018a}
0x3cea…3d0c (39, 0, 400) Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0027, t01=0x0004}
0x3d0c…3d2e Head {h00=0x001e, h01=0x0050, text=»* *«, t00=0x0027, t01=0x0026}
0x3d2e…3d50 Head {h00=0x001e, h01=0x0050, text=»* WRITE SECTOR N *«, t00=0x0027, t01=0x0048}
0x3d50…3d72 Head {h00=0x001e, h01=0x0050, text=»* *«, t00=0x0027, t01=0x006a}
0x3d72…3d94 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0027, t01=0x008c}
0x3d94…3d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ae}
0x3d9e…3db2 Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0027, t01=0x00b8}
0x3db2…3dc8 Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOLOD «, t00=0x0027, t01=0x00cc}
0x3dc8…3df0 Head {h00=0x0024, h01=0x0050, text=» LDKL A3,WRICOM WRITE ORDER CODE«, t00=0x0027, t01=0x00e2}
0x3df0…3e0a Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTCOP,A6 «, t00=0x0027, t01=0x010a}
0x3e0a…3e36 Head {h00=0x0028, h01=0x0050, text=» LDK A4,RY3 RETRIES TO BE PERFORMED «, t00=0x0027, t01=0x0124}
0x3e36…3e4a Head {h00=0x0010, h01=0x0050, text=»WRIT20 EQU *«, t00=0x0027, t01=0x0150}
0x3e4a…3e5c Head {h00=0x000e, h01=0x0050, text=» CF A5,CIO«, t00=0x0027, t01=0x0164}
0x3e5c…3e6e Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0027, t01=0x0176}
0x3e6e…3e8c Head {h00=0x001a, h01=0x0050, text=» RF(Z) WRIT50 WRITE OK«, t00=0x0027, t01=0x0188}
0x3e8c…3eb2 Head {h00=0x0022, h01=0x0050, text=» IM DWTRE2,A6 RETRY PERFORMED «, t00=0x0028, t01=0x0016}
0x3eb2…3ec4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0028, t01=0x003c}
0x3ec4…3ee0 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) WRIT20 RETRY«, t00=0x0028, t01=0x004e}
0x3ee0…3f02 Head {h00=0x001e, h01=0x0050, text=» RB REA:50 NO MORE RETRIES«, t00=0x0028, t01=0x006a}
0x3f02…3f16 Head {h00=0x0010, h01=0x0050, text=»WRIT50 EQU *«, t00=0x0028, t01=0x008c}
0x3f16…3f26 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0028, t01=0x00a0}
0x3f26…3f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00b0}
0x3f30…3f42 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0028, t01=0x00ba}
0x3f42…3f58 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0028, t01=0x00cc}
0x3f58…3f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e2}
0x3f62…3f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ec}
0x3f6c…3f90 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0028, t01=0x00f6}
0x3f90…3fb4 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0028, t01=0x011a}
0x3fb4…3fd8 Head {h00=0x0020, h01=0x0050, text=»* VERIFY SECTOR N *«, t00=0x0028, t01=0x013e}
0x3fd8…3ffc Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0028, t01=0x0162}
0x3ffc…4020 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0028, t01=0x0186}
0x4020…402a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x001a}
0x402a…403e Head {h00=0x0010, h01=0x0050, text=»VERIFY EQU *«, t00=0x0029, t01=0x0024}
0x403e…406c Head {h00=0x002a, h01=0x0050, text=» LDKL A3,VERCOM ORDER CODE FOR VERIFY «, t00=0x0029, t01=0x0038}
0x406c…4086 Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTCOP,A6 «, t00=0x0029, t01=0x0066}
0x4086…4098 Head {h00=0x000e, h01=0x0050, text=» RB READ00«, t00=0x0029, t01=0x0080}
0x4098…40a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0092}
0x40a2…40ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x009c}
0x40ae…40c4 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0029, t01=0x00a8}
0x40c4…40ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00be}
0x40ce…40d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c8}
0x40d8…410a Head {h00=0x002e, h01=0x0050, text=»* SEEK,SEEKZ,WRITE HOME ADDRESS AND CIO «, t00=0x0029, t01=0x00d2}
0x410a…4114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0104}
0x4114…411e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x010e}
0x411e…4130 Head {h00=0x000e, h01=0x0050, text=»SEEK EQU *«, t00=0x0029, t01=0x0118}
0x4130…4168 Head {h00=0x0034, h01=0x0050, text=» LDK A2,DWTSEK GET EFFECTIVE ADDRESS TO SEEK OP.«, t00=0x0029, t01=0x012a}
0x4168…417a Head {h00=0x000e, h01=0x0050, text=» RF EXCIO «, t00=0x0029, t01=0x0162}
0x417a…4184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0174}
0x4184…418e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x017e}
0x418e…41a2 Head {h00=0x0010, h01=0x0050, text=»SEEKZ EQU * «, t00=0x0029, t01=0x0188}
0x41a2…41dc Head {h00=0x0036, h01=0x0050, text=» LDK A2,DWTSEZ GET EFFECTIVE ADDRESS TO SEEK 0 OP.«, t00=0x002a, t01=0x000c}
0x41dc…41ee Head {h00=0x000e, h01=0x0050, text=» RF EXCIO «, t00=0x002a, t01=0x0046}
0x41ee…41f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0058}
0x41f8…4202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0062}
0x4202…4216 Head {h00=0x0010, h01=0x0050, text=»HOMEAD EQU *«, t00=0x002a, t01=0x006c}
0x4216…4248 Head {h00=0x002e, h01=0x0050, text=» LDK A2,DWTWHA GET WRITE HOME ADDRESS OP. «, t00=0x002a, t01=0x0080}
0x4248…425a Head {h00=0x000e, h01=0x0050, text=» RF EXCIO «, t00=0x002a, t01=0x00b2}
0x425a…4264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c4}
0x4264…426e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ce}
0x426e…4280 Head {h00=0x000e, h01=0x0050, text=»CIO EQU * «, t00=0x002a, t01=0x00d8}
0x4280…42b8 Head {h00=0x0034, h01=0x0050, text=» LDK A2,DWTCOP GET EFFECTIVE ADDRESS TO CIO OP. «, t00=0x002a, t01=0x00ea}
0x42b8…42c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0122}
0x42c2…42d8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x002a, t01=0x012c}
0x42d8…42e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0142}
0x42e2…42ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x014c}
0x42ec…4304 Head {h00=0x0014, h01=0x0050, text=»EXCIO ADR A2,A6 «, t00=0x002a, t01=0x0156}
0x4304…4324 Head {h00=0x001c, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE A4 «, t00=0x002a, t01=0x016e}
0x4324…433a Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x002a, t01=0x018e}
0x433a…4366 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) CIOAB PWF POST PROCESSING ON«, t00=0x002b, t01=0x0014}
0x4366…437c Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x002b, t01=0x0040}
0x437c…43b0 Head {h00=0x0030, h01=0x0050, text=» CF A15,INXDWT GET INDEXED DWT DISPLACEMENT «, t00=0x002b, t01=0x0056}
0x43b0…43c6 Head {h00=0x0012, h01=0x0050, text=» EX DWTCIO,A4 «, t00=0x002b, t01=0x008a}
0x43c6…43d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00a0}
0x43d2…43e8 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x002b, t01=0x00ac}
0x43e8…43fe Head {h00=0x0012, h01=0x0050, text=» EX DWTCIO,A6 «, t00=0x002b, t01=0x00c2}
0x43fe…440a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00d8}
0x440a…4420 Head {h00=0x0012, h01=0x0050, text=» ABL(3) END:30«, t00=0x002b, t01=0x00e4}
0x4420…4434 Head {h00=0x0010, h01=0x0050, text=»CIOAB EQU * «, t00=0x002b, t01=0x00fa}
0x4434…445a Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTA5,A6 A5 «, t00=0x002b, t01=0x010e}
0x445a…447c Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GO TO DIPATCHER«, t00=0x002b, t01=0x0134}
0x447c…4486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0156}
0x4486…449c Head {h00=0x0012, h01=0x000e, text=» EJECT DRCD01«, t00=0x002b, t01=0x0160}
0x449c…44a6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x0176}
0x44a6…44b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x0180}
0x44b0…44e2 Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x002b, t01=0x018a}
0x44e2…4514 Head {h00=0x002e, h01=0x0029, text=»* * «, t00=0x002c, t01=0x002c}
0x4514…4546 Head {h00=0x002e, h01=0x0029, text=»* SUBROUTINE CIOLOD * «, t00=0x002c, t01=0x005e}
0x4546…4578 Head {h00=0x002e, h01=0x0029, text=»* PREPARE CIO WORK AREA * «, t00=0x002c, t01=0x0090}
0x4578…45aa Head {h00=0x002e, h01=0x0029, text=»* * «, t00=0x002c, t01=0x00c2}
0x45aa…45dc Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x002c, t01=0x00f4}
0x45dc…45e6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002c, t01=0x0126}
0x45e6…4606 Head {h00=0x001c, h01=0x0050, text=»* REGISTER DISPOSITION«, t00=0x002c, t01=0x0130}
0x4606…4624 Head {h00=0x001a, h01=0x0050, text=»* A1 = WORK REGISTER«, t00=0x002c, t01=0x0150}
0x4624…4642 Head {h00=0x001a, h01=0x0050, text=»* A2 = WORK REGISTER«, t00=0x002c, t01=0x016e}
0x4642…4658 Head {h00=0x0012, h01=0x0050, text=»* A3 = MASK «, t00=0x002c, t01=0x018c}
0x4658…467e Head {h00=0x0022, h01=0x0050, text=»* A4 = CIO WORK AREA POINTER«, t00=0x002d, t01=0x0012}
0x467e…46a2 Head {h00=0x0020, h01=0x0050, text=»* A7 = USER BUFFER POINTER«, t00=0x002d, t01=0x0038}
0x46a2…46c8 Head {h00=0x0022, h01=0x0050, text=»* A8 = DRIVER BUFFER POINTER«, t00=0x002d, t01=0x005c}
0x46c8…46d2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002d, t01=0x0082}
0x46d2…46fa Head {h00=0x0024, h01=0x0050, text=»* DWTTRA = TRANSFER INDICATOR «, t00=0x002d, t01=0x008c}
0x46fa…473a Head {h00=0x003c, h01=0x0050, text=»* DWTMAS = MASK INDICATING SECTORS TO/FROM USER BUFFER«, t00=0x002d, t01=0x00b4}
0x473a…475e Head {h00=0x0020, h01=0x0050, text=»* DWTBA = BUFFER POINTER «, t00=0x002d, t01=0x00f4}
0x475e…4768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0118}
0x4768…477c Head {h00=0x0010, h01=0x000c, text=»CIOLOD EQU *«, t00=0x002d, t01=0x0122}
0x477c…4790 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-4 «, t00=0x002d, t01=0x0136}
0x4790…47b0 Head {h00=0x001c, h01=0x0050, text=» ST A4,DWTSAV,A6 COUNTER«, t00=0x002d, t01=0x014a}
0x47b0…47d2 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A6 GET DWT ADDRESS«, t00=0x002d, t01=0x016a}
0x47d2…47fe Head {h00=0x0028, h01=0x0050, text=» ADK A4,DWTCOP CIO WORK AREA ADDRESS«, t00=0x002d, t01=0x018c}
0x47fe…482c Head {h00=0x002a, h01=0x0050, text=» LDKL A8,BUFFER DRIVER BUFFFER ADDRESS«, t00=0x002e, t01=0x0028}
0x482c…4854 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTMAS,A6 GET BUFFER MASK«, t00=0x002e, t01=0x0056}
0x4854…4876 Head {h00=0x001e, h01=0x0050, text=» SRC A3,4 MASK IN POSITION«, t00=0x002e, t01=0x007e}
0x4876…489c Head {h00=0x0022, h01=0x0050, text=» LDK A7,0 USER BUFFER POINTER «, t00=0x002e, t01=0x00a0}
0x489c…48a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00c6}
0x48a6…48bc Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x002e, t01=0x00d0}
0x48bc…48c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e6}
0x48c6…48d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f0}
0x48d0…48e4 Head {h00=0x0010, h01=0x0050, text=»CIOL10 EQU *«, t00=0x002e, t01=0x00fa}
0x48e4…48f6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x002e, t01=0x010e}
0x48f6…4914 Head {h00=0x001a, h01=0x0050, text=» IM DWTSAV,A6 COUNTER «, t00=0x002e, t01=0x0120}
0x4914…493a Head {h00=0x0022, h01=0x0050, text=» RF(Z) CIOL60 WORK AREA READY «, t00=0x002e, t01=0x013e}
0x493a…494c Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x002e, t01=0x0164}
0x494c…4962 Head {h00=0x0012, h01=0x0050, text=» RF(NN) CIOL50«, t00=0x002e, t01=0x0176}
0x4962…4992 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,/C000+LOSECL NO TRANSFER ORDER «, t00=0x002e, t01=0x018c}
0x4992…49be Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTTRA,A6 TRANSFER INDICATOR «, t00=0x002f, t01=0x002c}
0x49be…49e0 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CIOL55 NO TRANSFER«, t00=0x002f, t01=0x0058}
0x49e0…49ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x007a}
0x49ea…4a00 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x002f, t01=0x0084}
0x4a00…4a16 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/4080«, t00=0x002f, t01=0x009a}
0x4a16…4a40 Head {h00=0x0026, h01=0x0050, text=» LDR A2,A7 BUFFER ADDRESS POINTER «, t00=0x002f, t01=0x00b0}
0x4a40…4a66 Head {h00=0x0022, h01=0x0050, text=» AD A2,DWTBA,A6 BUFFER ADDRESS«, t00=0x002f, t01=0x00da}
0x4a66…4a86 Head {h00=0x001c, h01=0x0050, text=» MSR 2,A4 CIO WORK AREA «, t00=0x002f, t01=0x0100}
0x4a86…4a9c Head {h00=0x0012, h01=0x0050, text=» ADKL A7,/100 «, t00=0x002f, t01=0x0120}
0x4a9c…4aa8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0136}
0x4aa8…4abe Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002f, t01=0x0142}
0x4abe…4ae4 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 USER BUFFER POINTER«, t00=0x002f, t01=0x0158}
0x4ae4…4b02 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/804 SHIFTED «, t00=0x002f, t01=0x017e}
0x4b02…4b2e Head {h00=0x0028, h01=0x0050, text=» DA DWTBA,A6 GET USER BUFFER ADDRESS«, t00=0x0030, t01=0x000c}
0x4b2e…4b4c Head {h00=0x001a, h01=0x0050, text=» SLL A2,1 IN POSITION «, t00=0x0030, t01=0x0038}
0x4b4c…4b6a Head {h00=0x001a, h01=0x0050, text=» SRC A1,4 IN POSITION «, t00=0x0030, t01=0x0056}
0x4b6a…4b8c Head {h00=0x001e, h01=0x0050, text=» MSR 2,A4 TO CIO WORK AREA«, t00=0x0030, t01=0x0074}
0x4b8c…4bbe Head {h00=0x002e, h01=0x0050, text=» ADK A7,LOSECL UPDATE USER BUFFER POINTER «, t00=0x0030, t01=0x0096}
0x4bbe…4bca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00c8}
0x4bca…4bdc Head {h00=0x000e, h01=0x0050, text=» RB CIOL10«, t00=0x0030, t01=0x00d4}
0x4bdc…4be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e6}
0x4be6…4bfc Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0030, t01=0x00f0}
0x4bfc…4c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0106}
0x4c06…4c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0110}
0x4c10…4c24 Head {h00=0x0010, h01=0x0050, text=»CIOL50 EQU *«, t00=0x0030, t01=0x011a}
0x4c24…4c42 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/4000+LOSECL «, t00=0x0030, t01=0x012e}
0x4c42…4c62 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 DRIVER BUFFER«, t00=0x0030, t01=0x014c}
0x4c62…4c94 Head {h00=0x002e, h01=0x0050, text=» ADKL A8,/100 UPDATE DRIVER BUFFERPOINTER «, t00=0x0030, t01=0x016c}
0x4c94…4ca8 Head {h00=0x0010, h01=0x0050, text=»CIOL55 EQU *«, t00=0x0031, t01=0x000e}
0x4ca8…4cca Head {h00=0x001e, h01=0x0050, text=» MSR 2,A4 TO CIO WORK AREA«, t00=0x0031, t01=0x0022}
0x4cca…4cdc Head {h00=0x000e, h01=0x0050, text=» RB CIOL10«, t00=0x0031, t01=0x0044}
0x4cdc…4cf0 Head {h00=0x0010, h01=0x0050, text=»CIOL60 EQU *«, t00=0x0031, t01=0x0056}
0x4cf0…4d0e Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/B000+LOSECL «, t00=0x0031, t01=0x006a}
0x4d0e…4d34 Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTCOP+12,A6 CLEAR BIT«, t00=0x0031, t01=0x0088}
0x4d34…4d4c Head {h00=0x0014, h01=0x0050, text=» LDKL A1,PHSECL «, t00=0x0031, t01=0x00ae}
0x4d4c…4d66 Head {h00=0x0016, h01=0x0050, text=» ST A1,DWTCOP+2,A6«, t00=0x0031, t01=0x00c6}
0x4d66…4d92 Head {h00=0x0028, h01=0x0050, text=» CM DWTTRA,A6 CLEAR NO TRANSFER FLAG«, t00=0x0031, t01=0x00e0}
0x4d92…4d9c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0031, t01=0x010c}
0x4d9c…4db2 Head {h00=0x0012, h01=0x000e, text=» EJECT DRCD01«, t00=0x0031, t01=0x0116}
0x4db2…4dbc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0031, t01=0x012c}
0x4dbc…4dc6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0031, t01=0x0136}
0x4dc6…4df8 Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x0031, t01=0x0140}
0x4df8…4e2a Head {h00=0x002e, h01=0x0029, text=»* * «, t00=0x0031, t01=0x0172}
0x4e2a…4e5c Head {h00=0x002e, h01=0x0029, text=»* PUT SECTOR NUMBER * «, t00=0x0032, t01=0x0014}
0x4e5c…4e8e Head {h00=0x002e, h01=0x0029, text=»* AND HEAD NUMBER IN POS. * «, t00=0x0032, t01=0x0046}
0x4e8e…4ec0 Head {h00=0x002e, h01=0x0029, text=»* * «, t00=0x0032, t01=0x0078}
0x4ec0…4ef2 Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x0032, t01=0x00aa}
0x4ef2…4efc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x00dc}
0x4efc…4f26 Head {h00=0x0026, h01=0x0022, text=»* INPUT: PHYSICAL SECTOR NUMBER«, t00=0x0032, t01=0x00e6}
0x4f26…4f62 Head {h00=0x0038, h01=0x0034, text=»* OUTPUT: INTERLACED SECTOR NUMBER AND HEAD NUMBER«, t00=0x0032, t01=0x0110}
0x4f62…4f8a Head {h00=0x0024, h01=0x001f, text=»* IN POSITION FOR CIO «, t00=0x0032, t01=0x014c}
0x4f8a…4fa2 Head {h00=0x0014, h01=0x0010, text=»* PERFORM SEEK«, t00=0x0032, t01=0x0174}
0x4fa2…4fac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0032, t01=0x018c}
0x4fac…4fda Head {h00=0x002a, h01=0x0050, text=» ML 2,DWTSEC,A6 PHYSICAL SECTOR NUMBER«, t00=0x0033, t01=0x0008}
0x4fda…4fea Head {h00=0x000c, h01=0x0050, text=» DVK 115«, t00=0x0033, t01=0x0036}
0x4fea…501e Head {h00=0x0030, h01=0x0050, text=»* A1 = REST = HEAD NUMBER * SECTOR NUMBER «, t00=0x0033, t01=0x0046}
0x501e…504a Head {h00=0x0028, h01=0x0050, text=»* A2 = QUOTIENT = CYLINDER NUMBER «, t00=0x0033, t01=0x007a}
0x504a…5072 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 SAVE CYLINDER NUMBER «, t00=0x0033, t01=0x00a6}
0x5072…5084 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0033, t01=0x00ce}
0x5084…5096 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0033, t01=0x00e0}
0x5096…50a6 Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0033, t01=0x00f2}
0x50a6…50c4 Head {h00=0x001a, h01=0x0050, text=»* A1 = SECTOR NUMBER«, t00=0x0033, t01=0x0102}
0x50c4…50e0 Head {h00=0x0018, h01=0x0050, text=»* A2 = HEAD NUMBER«, t00=0x0033, t01=0x0120}
0x50e0…5102 Head {h00=0x001e, h01=0x0050, text=» ORKL A2,/800 INTERUPT BIT«, t00=0x0033, t01=0x013c}
0x5102…5128 Head {h00=0x0022, h01=0x0050, text=» ST A2,DWTCOP,A6 COP WORK AREA«, t00=0x0033, t01=0x015e}
0x5128…5148 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 SECTOR NUMBER«, t00=0x0033, t01=0x0184}
0x5148…5168 Head {h00=0x001c, h01=0x0050, text=» MUK INLACE INTERLACING «, t00=0x0034, t01=0x0014}
0x5168…517a Head {h00=0x000e, h01=0x0050, text=» SLC A3,1 «, t00=0x0034, t01=0x0034}
0x517a…51a4 Head {h00=0x0026, h01=0x0050, text=» RF(NN) CIOP10 EVEN CYLINDER NUMBE«, t00=0x0034, t01=0x0046}
0x51a4…51c2 Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x0034, t01=0x0070}
0x51c2…51cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x008e}
0x51cc…51e2 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0034, t01=0x0098}
0x51e2…51ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ae}
0x51ec…51f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00b8}
0x51f6…520a Head {h00=0x0010, h01=0x0050, text=»CIOP10 EQU *«, t00=0x0034, t01=0x00c2}
0x520a…5242 Head {h00=0x0034, h01=0x0050, text=» DVK 23 GET INTERLACED AND SKEWED SECTOR NUMBER «, t00=0x0034, t01=0x00d6}
0x5242…5260 Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x0034, t01=0x010e}
0x5260…5288 Head {h00=0x0024, h01=0x0050, text=» ORS A1,DWTCOP,A6 COP WORK AREA «, t00=0x0034, t01=0x012c}
0x5288…52be Head {h00=0x0032, h01=0x0050, text=» SRC A3,1 RESTORE CYLINDER NUMBER IN POSITION «, t00=0x0034, t01=0x0154}
0x52be…52d4 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0034, t01=0x018a}
0x52d4…52ea Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0035, t01=0x0010}
0x52ea…5302 Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A4«, t00=0x0035, t01=0x0026}
0x5302…5326 Head {h00=0x0020, h01=0x0050, text=» RF(E) CIOP50 SAME CYLINDER «, t00=0x0035, t01=0x003e}
0x5326…5354 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A4 SAVE CYLINDER NUMBER «, t00=0x0035, t01=0x0062}
0x5354…5360 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0090}
0x5360…5376 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0035, t01=0x009c}
0x5376…538e Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A6«, t00=0x0035, t01=0x00b2}
0x538e…53b2 Head {h00=0x0020, h01=0x0050, text=» RF(E) CIOP50 SAME CYLINDER «, t00=0x0035, t01=0x00ca}
0x53b2…53e0 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A6 SAVE CYLINDER NUMBER «, t00=0x0035, t01=0x00ee}
0x53e0…53ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x011c}
0x53ec…540e Head {h00=0x001e, h01=0x0050, text=» ADKL A3,SEEKCO SEEK ORDER«, t00=0x0035, t01=0x0128}
0x540e…5436 Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTSEK,A6 SEEK WORK AREA «, t00=0x0035, t01=0x014a}
0x5436…5440 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0035, t01=0x0172}
0x5440…5456 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0035, t01=0x017c}
0x5456…5460 (54, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0004}
0x5460…547a Head {h00=0x0016, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x0036, t01=0x000e}
0x547a…5484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0028}
0x5484…548e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0032}
0x548e…54aa Head {h00=0x0018, h01=0x0050, text=» LDK A4,RY3 RETRIES «, t00=0x0036, t01=0x003c}
0x54aa…54be Head {h00=0x0010, h01=0x0050, text=»SE:010 EQU *«, t00=0x0036, t01=0x0058}
0x54be…54e2 Head {h00=0x0020, h01=0x0050, text=» CF A5,SEEK SEEK CYLINDER N «, t00=0x0036, t01=0x006c}
0x54e2…54f4 Head {h00=0x000e, h01=0x0050, text=» ANK A1,2 «, t00=0x0036, t01=0x0090}
0x54f4…551c Head {h00=0x0024, h01=0x0050, text=» RF(Z) CIOP50 OK. SEEK COMPLETED«, t00=0x0036, t01=0x00a2}
0x551c…5532 Head {h00=0x0012, h01=0x0050, text=» IM DWTRE2,A6 «, t00=0x0036, t01=0x00ca}
0x5532…555c Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY-COUNTER «, t00=0x0036, t01=0x00e0}
0x555c…557c Head {h00=0x001c, h01=0x0050, text=» RF(Z) SE:020 LAST RETRY«, t00=0x0036, t01=0x010a}
0x557c…5586 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0036, t01=0x012a}
0x5586…55aa Head {h00=0x0020, h01=0x001c, text=» CF A5,SEEKZ SEEK CYLINDER 0«, t00=0x0036, t01=0x0134}
0x55aa…55bc Head {h00=0x000e, h01=0x0050, text=» ANK A1,2 «, t00=0x0036, t01=0x0158}
0x55bc…55e6 Head {h00=0x0026, h01=0x0050, text=» RB(Z) SE:010 CYLINDER ZERO FOUND «, t00=0x0036, t01=0x016a}
0x55e6…55f0 (55, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0037, t01=0x0004}
0x55f0…5604 Head {h00=0x0010, h01=0x0050, text=»SE:020 EQU *«, t00=0x0037, t01=0x000e}
0x5604…5628 Head {h00=0x0020, h01=0x0050, text=» RF END:SE SEEK ERROR END IO«, t00=0x0037, t01=0x0022}
0x5628…563c Head {h00=0x0010, h01=0x0050, text=»CIOP50 EQU *«, t00=0x0037, t01=0x0046}
0x563c…564c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0037, t01=0x005a}
0x564c…5656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x006a}
0x5656…566c Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0037, t01=0x0074}
0x566c…5676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x008a}
0x5676…5680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0094}
0x5680…56ae Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0037, t01=0x009e}
0x56ae…56dc Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0037, t01=0x00cc}
0x56dc…570a Head {h00=0x002a, h01=0x0050, text=»* SUBROUTINE UPDATE * «, t00=0x0037, t01=0x00fa}
0x570a…5738 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0037, t01=0x0128}
0x5738…5766 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0037, t01=0x0156}
0x5766…5770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0184}
0x5770…57b0 Head {h00=0x003c, h01=0x0050, text=»* UPDATES : DWTBSE PRESENT SECTORS IN DRIVER BUFFER «, t00=0x0037, t01=0x018e}
0x57b0…57f4 Head {h00=0x0040, h01=0x0050, text=»* DWTLOS NUMBER OF LOGICAL SECTORS LEFT IN IO «, t00=0x0038, t01=0x003e}
0x57f4…5826 Head {h00=0x002e, h01=0x0050, text=»* DWTBA USER BUFFER POINTER«, t00=0x0038, t01=0x0082}
0x5826…585c Head {h00=0x0032, h01=0x0050, text=»* DWTSEC PHYSICAL SECTOR POINTER«, t00=0x0038, t01=0x00b4}
0x585c…588c Head {h00=0x002c, h01=0x0050, text=»* ECBEL EFFECTIVE LENGTH «, t00=0x0038, t01=0x00ea}
0x588c…5896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x011a}
0x5896…58aa Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0038, t01=0x0124}
0x58aa…58bc Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0038, t01=0x0138}
0x58bc…58e4 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTMAS,A6 GET SECTOR MASK«, t00=0x0038, t01=0x014a}
0x58e4…5902 Head {h00=0x001a, h01=0x0050, text=» C1R A3,A3 COMPLIMENT «, t00=0x0038, t01=0x0172}
0x5902…591a Head {h00=0x0014, h01=0x0050, text=» ANK A3,7 3 BITS«, t00=0x0038, t01=0x0190}
0x591a…593c Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTOR,A6 GET INDEX «, t00=0x0039, t01=0x0018}
0x593c…595e Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/100 UNIT NUMBER «, t00=0x0039, t01=0x003a}
0x595e…5982 Head {h00=0x0020, h01=0x0050, text=» DA DWTSEC,A6 SECTOR NUMBER «, t00=0x0039, t01=0x005c}
0x5982…599e Head {h00=0x0018, h01=0x0050, text=» MS 3,DWTBSE,A6 SAVE«, t00=0x0039, t01=0x0080}
0x599e…59b2 Head {h00=0x0010, h01=0x0050, text=»UPDAT EQU * «, t00=0x0039, t01=0x009c}
0x59b2…59da Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTMAS,A6 GET SECTOR MASK«, t00=0x0039, t01=0x00b0}
0x59da…59ec Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0039, t01=0x00d8}
0x59ec…59fe Head {h00=0x000e, h01=0x0050, text=» SRC A1,3 «, t00=0x0039, t01=0x00ea}
0x59fe…5a12 Head {h00=0x0010, h01=0x0050, text=»UPDA00 EQU *«, t00=0x0039, t01=0x00fc}
0x5a12…5a42 Head {h00=0x002c, h01=0x0050, text=» RF(NN) UPDA10 IO TO/FROM DRIVER BUFFER «, t00=0x0039, t01=0x0110}
0x5a42…5a70 Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 NUMBER OF SECTORS IN LAST IO«, t00=0x0039, t01=0x0140}
0x5a70…5a84 Head {h00=0x0010, h01=0x0050, text=»UPDA10 EQU *«, t00=0x0039, t01=0x016e}
0x5a84…5a96 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0039, t01=0x0182}
0x5a96…5aba (58, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RB(NZ) UPDA00 MORE SECTORS «, t00=0x003a, t01=0x0004}
0x5aba…5ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0028}
0x5ac4…5ada Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x003a, t01=0x0032}
0x5ada…5ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0048}
0x5ae4…5aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0052}
0x5aee…5b14 Head {h00=0x0022, h01=0x0050, text=» LD A3,DWTLOS,A6 UPDATE DWTLOS«, t00=0x003a, t01=0x005c}
0x5b14…5b26 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A2«, t00=0x003a, t01=0x0082}
0x5b26…5b3e Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTLOS,A6«, t00=0x003a, t01=0x0094}
0x5b3e…5b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ac}
0x5b48…5b5e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003a, t01=0x00b6}
0x5b5e…5b7c Head {h00=0x001a, h01=0x0050, text=» SLL A2,7 UPDATE DWTBA«, t00=0x003a, t01=0x00cc}
0x5b7c…5b9a Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 SAVE LENGTH«, t00=0x003a, t01=0x00ea}
0x5b9a…5bae Head {h00=0x0010, h01=0x0050, text=» DA DWTBA,A6«, t00=0x003a, t01=0x0108}
0x5bae…5bc4 Head {h00=0x0012, h01=0x0050, text=» MS 2,DWTBA,A6«, t00=0x003a, t01=0x011c}
0x5bc4…5bd6 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x003a, t01=0x0132}
0x5bd6…5be2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0144}
0x5be2…5bf8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x003a, t01=0x0150}
0x5bf8…5c0a Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x003a, t01=0x0166}
0x5c0a…5c38 Head {h00=0x002a, h01=0x0050, text=» ADS A2,DWTBA,A6 UPDATE BUFFER POINTER«, t00=0x003a, t01=0x0178}
0x5c38…5c44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0016}
0x5c44…5c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0022}
0x5c4e…5c60 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x003b, t01=0x002c}
0x5c60…5c78 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTTRA,A6«, t00=0x003b, t01=0x003e}
0x5c78…5ca6 Head {h00=0x002a, h01=0x0050, text=» RF(Z) UPDA50 UPDATE EFFECTIVE LENGTH «, t00=0x003b, t01=0x0056}
0x5ca6…5cc8 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x003b, t01=0x0084}
0x5cc8…5cdc Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x003b, t01=0x00a6}
0x5cdc…5cf2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPDA60«, t00=0x003b, t01=0x00ba}
0x5cf2…5cfe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00d0}
0x5cfe…5d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00dc}
0x5d08…5d1e Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x003b, t01=0x00e6}
0x5d1e…5d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00fc}
0x5d28…5d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0106}
0x5d32…5d46 Head {h00=0x0010, h01=0x0050, text=»UPDA50 EQU *«, t00=0x003b, t01=0x0110}
0x5d46…5d5c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003b, t01=0x0124}
0x5d5c…5d74 Head {h00=0x0014, h01=0x0050, text=» ADS A3,ECBEL,A8«, t00=0x003b, t01=0x013a}
0x5d74…5d80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0152}
0x5d80…5d96 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x003b, t01=0x015e}
0x5d96…5dc6 Head {h00=0x002c, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE EFFECTIVE LENGTH«, t00=0x003b, t01=0x0174}
0x5dc6…5dd2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0014}
0x5dd2…5de6 Head {h00=0x0010, h01=0x0050, text=»UPDA60 EQU *«, t00=0x003c, t01=0x0020}
0x5de6…5df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0034}
0x5df0…5e02 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003c, t01=0x003e}
0x5e02…5e14 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x003c, t01=0x0050}
0x5e14…5e2a Head {h00=0x0012, h01=0x0050, text=» DA DWTSEC,A6 «, t00=0x003c, t01=0x0062}
0x5e2a…5e42 Head {h00=0x0014, h01=0x0050, text=» MS 2,DWTSEC,A6 «, t00=0x003c, t01=0x0078}
0x5e42…5e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0090}
0x5e4c…5e5c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003c, t01=0x009a}
0x5e5c…5e72 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x003c, t01=0x00aa}
0x5e72…5e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00c0}
0x5e7c…5e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ca}
0x5e86…5eba Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x003c, t01=0x00d4}
0x5eba…5eee Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x003c, t01=0x0108}
0x5eee…5f22 Head {h00=0x0030, h01=0x0050, text=»* SUBROUTINE MASKPR * «, t00=0x003c, t01=0x013c}
0x5f22…5f56 Head {h00=0x0030, h01=0x0050, text=»* SET BITS FOR LOGICAL * «, t00=0x003c, t01=0x0170}
0x5f56…5f8a Head {h00=0x0030, h01=0x0050, text=»* SECTORS IN PHYSICAL * «, t00=0x003d, t01=0x0014}
0x5f8a…5fbe Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x003d, t01=0x0048}
0x5fbe…5ff2 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x003d, t01=0x007c}
0x5ff2…5ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00b0}
0x5ffc…6020 Head {h00=0x0020, h01=0x0050, text=»* A1 = POSITION IN SECTOR «, t00=0x003d, t01=0x00ba}
0x6020…6046 Head {h00=0x0022, h01=0x0050, text=»* DWTLOS = NUMBER OF SECTORS«, t00=0x003d, t01=0x00de}
0x6046…6050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0104}
0x6050…605a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x010e}
0x605a…606e Head {h00=0x0010, h01=0x0050, text=»MASK00 EQU *«, t00=0x003d, t01=0x0118}
0x606e…6080 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003d, t01=0x012c}
0x6080…6094 Head {h00=0x0010, h01=0x0050, text=»MASKPR EQU *«, t00=0x003d, t01=0x013e}
0x6094…60be Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTLOS,A6 NUMBER OF SECTORS«, t00=0x003d, t01=0x0152}
0x60be…60d0 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x003d, t01=0x017c}
0x60d0…60ea Head {h00=0x0016, h01=0x0050, text=» LDK A3,4 1 0 0 «, t00=0x003d, t01=0x018e}
0x60ea…6114 Head {h00=0x0026, h01=0x0050, text=» RF(N) MASK10 1 SECTOR LEFT IN IO «, t00=0x003e, t01=0x0018}
0x6114…612e Head {h00=0x0016, h01=0x0050, text=» LDK A3,6 1 1 0 «, t00=0x003e, t01=0x0042}
0x612e…6158 Head {h00=0x0026, h01=0x0050, text=» RF(Z) MASK10 2 SECTORS LEFT IN IO«, t00=0x003e, t01=0x005c}
0x6158…6172 Head {h00=0x0016, h01=0x0050, text=» LDK A3,7 1 1 1 «, t00=0x003e, t01=0x0086}
0x6172…6186 Head {h00=0x0010, h01=0x0050, text=»MASK10 EQU *«, t00=0x003e, t01=0x00a0}
0x6186…6198 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003e, t01=0x00b4}
0x6198…61b6 Head {h00=0x001a, h01=0x0050, text=» RF(Z) MASK20 0 1 0 «, t00=0x003e, t01=0x00c6}
0x61b6…61d4 Head {h00=0x001a, h01=0x0050, text=» RF(N) MASK30 1 0 0 «, t00=0x003e, t01=0x00e4}
0x61d4…61ee Head {h00=0x0016, h01=0x0050, text=» SRL A3,1 0 0 1 «, t00=0x003e, t01=0x0102}
0x61ee…6202 Head {h00=0x0010, h01=0x0050, text=»MASK20 EQU *«, t00=0x003e, t01=0x011c}
0x6202…6214 Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x003e, t01=0x0130}
0x6214…6228 Head {h00=0x0010, h01=0x0050, text=»MASK30 EQU *«, t00=0x003e, t01=0x0142}
0x6228…624a Head {h00=0x001e, h01=0x0050, text=» ST A3,DWTMAS,A6 SAVE MASK«, t00=0x003e, t01=0x0156}
0x624a…625a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003e, t01=0x0178}
0x625a…6264 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003e, t01=0x0188}
0x6264…627a (63, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x003f, t01=0x0004}
0x627a…6284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x001a}
0x6284…628e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0024}
0x628e…62b0 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003f, t01=0x002e}
0x62b0…62d2 Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x003f, t01=0x0050}
0x62d2…62f4 Head {h00=0x001e, h01=0x0050, text=»* PERFORM END IO * «, t00=0x003f, t01=0x0072}
0x62f4…6316 Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x003f, t01=0x0094}
0x6316…6338 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003f, t01=0x00b6}
0x6338…6342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00d8}
0x6342…6362 Head {h00=0x001c, h01=0x0050, text=»END:SE EQU * SEEK ERROR «, t00=0x003f, t01=0x00e2}
0x6362…6378 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003f, t01=0x0102}
0x6378…638e Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x003f, t01=0x0118}
0x638e…63bc Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A6 DUMMY CYLINDER NUMBER«, t00=0x003f, t01=0x012e}
0x63bc…63c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x015c}
0x63c8…63de Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003f, t01=0x0168}
0x63de…63f4 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x003f, t01=0x017e}
0x63f4…640a (64, 0, 398) Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x0040, t01=0x0004}
0x640a…6438 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A4 DUMMY CYLINDER NUMBER«, t00=0x0040, t01=0x001a}
0x6438…6444 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0048}
0x6444…6458 Head {h00=0x0010, h01=0x0050, text=»END:00 EQU *«, t00=0x0040, t01=0x0054}
0x6458…6470 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTRE2,A6«, t00=0x0040, t01=0x0068}
0x6470…6488 Head {h00=0x0014, h01=0x0050, text=» CW A2,DWTRE1,A6«, t00=0x0040, t01=0x0080}
0x6488…649e Head {h00=0x0012, h01=0x0050, text=» RF(E) END:IO «, t00=0x0040, t01=0x0098}
0x649e…64ce Head {h00=0x002c, h01=0x0050, text=» ST A2,DWTRE1,A6 GRAND TOTAL OF RETRIES «, t00=0x0040, t01=0x00ae}
0x64ce…64f6 Head {h00=0x0024, h01=0x0050, text=» ORKL A1,/100 RETRIES PERFORMED «, t00=0x0040, t01=0x00de}
0x64f6…6500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0106}
0x6500…6514 Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0040, t01=0x0110}
0x6514…653a Head {h00=0x0022, h01=0x0050, text=» CF A15,TENDIO PERFORM TENDIO «, t00=0x0040, t01=0x0124}
0x653a…654e Head {h00=0x0010, h01=0x0050, text=»T:DISP EQU *«, t00=0x0040, t01=0x014a}
0x654e…6560 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0040, t01=0x015e}
0x6560…6574 Head {h00=0x0010, h01=0x0050, text=»END:30 EQU *«, t00=0x0040, t01=0x0170}
0x6574…6586 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0040, t01=0x0184}
0x6586…65b8 Head {h00=0x002e, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE RECOVERY DONE =1«, t00=0x0041, t01=0x0008}
0x65b8…65ca Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0041, t01=0x003a}
0x65ca…65d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x004c}
0x65d4…65ea Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0041, t01=0x0056}
0x65ea…65f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x006c}
0x65f4…65fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0076}
0x65fe…661c Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0041, t01=0x0080}
0x661c…663a Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x0041, t01=0x009e}
0x663a…6658 Head {h00=0x001a, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0041, t01=0x00bc}
0x6658…6676 Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x0041, t01=0x00da}
0x6676…6694 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0041, t01=0x00f8}
0x6694…669e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0116}
0x669e…66a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0120}
0x66a8…66ba Head {h00=0x000e, h01=0x0050, text=»CDON EQU *«, t00=0x0041, t01=0x012a}
0x66ba…66d0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0041, t01=0x013c}
0x66d0…66fa Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0041, t01=0x0152}
0x66fa…6706 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x017c}
0x6706…6710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0188}
0x6710…6726 (66, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0042, t01=0x0004}
0x6726…674c Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0042, t01=0x001a}
0x674c…6758 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0040}
0x6758…6762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x004c}
0x6762…677a Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWCD01 «, t00=0x0042, t01=0x0056}
0x677a…67a0 Head {h00=0x0022, h01=0x0050, text=» LDK A5,DWTSB3 GET STACK BASE «, t00=0x0042, t01=0x006e}
0x67a0…67b2 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0042, t01=0x0094}
0x67b2…67c6 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0042, t01=0x00a6}
0x67c6…67f0 Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTSAV,A6 INDICATE RECOVERY«, t00=0x0042, t01=0x00ba}
0x67f0…6828 Head {h00=0x0034, h01=0x0050, text=» LDKL A1,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x0042, t01=0x00e4}
0x6828…6844 Head {h00=0x0018, h01=0x0050, text=» ANS A1,DWTST,A6 =1«, t00=0x0042, t01=0x011c}
0x6844…686e Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG INITIALIZATION FLAG «, t00=0x0042, t01=0x0138}
0x686e…6892 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) CDON05 NOT POWER UP «, t00=0x0042, t01=0x0162}
0x6892…689c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0186}
0x689c…68b2 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0042, t01=0x0190}
0x68b2…68bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0016}
0x68bc…68c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0020}
0x68c6…68dc Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0043, t01=0x002a}
0x68dc…68fa Head {h00=0x001a, h01=0x0050, text=» CM DWTOR,A6 1ST UNIT «, t00=0x0043, t01=0x0040}
0x68fa…6920 Head {h00=0x0022, h01=0x0050, text=» CF A5,SEEKZ TEST IF OPERABLE «, t00=0x0043, t01=0x005e}
0x6920…6932 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0043, t01=0x0084}
0x6932…6956 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) CDON26 NOT OPERABLE «, t00=0x0043, t01=0x0096}
0x6956…6968 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0043, t01=0x00ba}
0x6968…6988 Head {h00=0x001c, h01=0x0050, text=» SC A1,DWTOR,A6 2ND UNIT«, t00=0x0043, t01=0x00cc}
0x6988…6994 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x00ec}
0x6994…69ba Head {h00=0x0022, h01=0x0050, text=» CF A5,SEEKZ TEST IF OPERABLE «, t00=0x0043, t01=0x00f8}
0x69ba…69cc Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0043, t01=0x011e}
0x69cc…69f0 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) CDON26 NOT OPERABLE «, t00=0x0043, t01=0x0130}
0x69f0…69fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0154}
0x69fa…6a12 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCD01 «, t00=0x0043, t01=0x015e}
0x6a12…6a1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0176}
0x6a1c…6a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0180}
0x6a26…6a3a Head {h00=0x0010, h01=0x0050, text=»CDON05 EQU *«, t00=0x0043, t01=0x018a}
0x6a3a…6a58 Head {h00=0x001a, h01=0x0050, text=» CM DWTOR,A6 1ST UNIT «, t00=0x0044, t01=0x000e}
0x6a58…6a6e Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0044, t01=0x002c}
0x6a6e…6a84 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0044, t01=0x0042}
0x6a84…6a9e Head {h00=0x0016, h01=0x0050, text=» LDK A1,1 2ND UNIT«, t00=0x0044, t01=0x0058}
0x6a9e…6ab6 Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x0044, t01=0x0072}
0x6ab6…6acc Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0044, t01=0x008a}
0x6acc…6ad8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x00a0}
0x6ad8…6b08 Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x0044, t01=0x00ac}
0x6b08…6b2c Head {h00=0x0020, h01=0x0050, text=» CM DWTSAV,A6 RECOVERY DONE «, t00=0x0044, t01=0x00dc}
0x6b2c…6b36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0100}
0x6b36…6b5e Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0044, t01=0x010a}
0x6b5e…6b82 Head {h00=0x0020, h01=0x0050, text=» RB(Z) END:IO NO REQUEST ON «, t00=0x0044, t01=0x0132}
0x6b82…6b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0156}
0x6b8c…6bb4 Head {h00=0x0024, h01=0x0050, text=»CDON10 LD A7,DWTORD,A6 GET ORDER«, t00=0x0044, t01=0x0160}
0x6bb4…6be4 Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x0044, t01=0x0188}
0x6be4…6bf8 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0045, t01=0x0028}
0x6bf8…6c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x003c}
0x6c02…6c2e Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x0045, t01=0x0046}
0x6c2e…6c4e Head {h00=0x001c, h01=0x0050, text=» ABL CDAD REPEAT REQUEST«, t00=0x0045, t01=0x0072}
0x6c4e…6c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0092}
0x6c58…6c70 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCD01 «, t00=0x0045, t01=0x009c}
0x6c70…6c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00b4}
0x6c7a…6c96 Head {h00=0x0018, h01=0x0050, text=»* READY INTERRUPT«, t00=0x0045, t01=0x00be}
0x6c96…6ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00da}
0x6ca0…6cba Head {h00=0x0016, h01=0x0050, text=»CDREDY LD A1,TIMER«, t00=0x0045, t01=0x00e4}
0x6cba…6ce0 Head {h00=0x0022, h01=0x0050, text=» RF(Z) CDON50 NO TIMER ACTIVE «, t00=0x0045, t01=0x00fe}
0x6ce0…6cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0124}
0x6cea…6d00 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0045, t01=0x012e}
0x6d00…6d1e Head {h00=0x001a, h01=0x0050, text=» CM* TIMER KILL TIMER «, t00=0x0045, t01=0x0144}
0x6d1e…6d30 Head {h00=0x000e, h01=0x0050, text=» RF CDON40«, t00=0x0045, t01=0x0162}
0x6d30…6d3c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0174}
0x6d3c…6d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0180}
0x6d46…6d5c Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0045, t01=0x018a}
0x6d5c…6d7c Head {h00=0x001c, h01=0x0050, text=» RB T:DISP TIMER ACTIVE «, t00=0x0046, t01=0x0010}
0x6d7c…6d88 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x0030}
0x6d88…6d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x003c}
0x6d92…6daa Head {h00=0x0014, h01=0x0050, text=» EJECT DRCD01 «, t00=0x0046, t01=0x0046}
0x6daa…6db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x005e}
0x6db4…6dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0068}
0x6dbe…6dd2 Head {h00=0x0010, h01=0x0050, text=»CDON26 EQU *«, t00=0x0046, t01=0x0072}
0x6dd2…6dfe Head {h00=0x0028, h01=0x0050, text=» LDKL A4,TIMER TIMER POINTER ADDRESS«, t00=0x0046, t01=0x0086}
0x6dfe…6e12 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0046, t01=0x00b2}
0x6e12…6e38 Head {h00=0x0022, h01=0x0050, text=» RF(Z) CDON30 NO TIMER ACTIVE «, t00=0x0046, t01=0x00c6}
0x6e38…6e4e Head {h00=0x0012, h01=0x0050, text=» LDKL A1,-TIME«, t00=0x0046, t01=0x00ec}
0x6e4e…6e6e Head {h00=0x001c, h01=0x0050, text=» STR A1,A3 RESTART TIMER«, t00=0x0046, t01=0x0102}
0x6e6e…6e80 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0046, t01=0x0122}
0x6e80…6e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0134}
0x6e8a…6e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x013e}
0x6e94…6ebc Head {h00=0x0024, h01=0x0050, text=»CDON30 CF A15,SETIMP START TIMER«, t00=0x0046, t01=0x0148}
0x6ebc…6eec Head {h00=0x002c, h01=0x0050, text=» DATA CDON40,TIME TIME OUT ADDRESS, TIME«, t00=0x0046, t01=0x0170}
0x6eec…6efe Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0047, t01=0x0010}
0x6efe…6f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0022}
0x6f08…6f1c Head {h00=0x0010, h01=0x0050, text=»* TIME OUT«, t00=0x0047, t01=0x002c}
0x6f1c…6f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0040}
0x6f26…6f44 Head {h00=0x001a, h01=0x0050, text=»CDON40 LDKL A6,DWCD01 «, t00=0x0047, t01=0x004a}
0x6f44…6f56 Head {h00=0x000e, h01=0x0050, text=» CM TIMER «, t00=0x0047, t01=0x0068}
0x6f56…6f6a Head {h00=0x0010, h01=0x0050, text=»CDON50 EQU *«, t00=0x0047, t01=0x007a}
0x6f6a…6fa2 Head {h00=0x0034, h01=0x0050, text=» LDKL A1,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x0047, t01=0x008e}
0x6fa2…6fbe Head {h00=0x0018, h01=0x0050, text=» ANS A1,DWTST,A6 =1«, t00=0x0047, t01=0x00c6}
0x6fbe…6fd2 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0047, t01=0x00e2}
0x6fd2…6ffc Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTSAV,A6 INDICATE RECOVERY«, t00=0x0047, t01=0x00f6}
0x6ffc…7022 Head {h00=0x0022, h01=0x0050, text=» LDK A5,DWTSB3 GET STACK BASE «, t00=0x0047, t01=0x0120}
0x7022…7034 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0047, t01=0x0146}
0x7034…7046 Head {h00=0x000e, h01=0x0050, text=» RB CDON05«, t00=0x0047, t01=0x0158}
0x7046…7050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x016a}
0x7050…7066 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0047, t01=0x0174}
0x7066…7070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x018a}
0x7070…707a (72, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0004}
0x707a…709a Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0048, t01=0x000e}
0x709a…70ba Head {h00=0x001c, h01=0x0050, text=»* * «, t00=0x0048, t01=0x002e}
0x70ba…70da Head {h00=0x001c, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x0048, t01=0x004e}
0x70da…70fa Head {h00=0x001c, h01=0x0050, text=»* * «, t00=0x0048, t01=0x006e}
0x70fa…711a Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0048, t01=0x008e}
0x711a…7124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ae}
0x7124…712e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00b8}
0x712e…7174 Head {h00=0x0042, h01=0x0050, text=»* OUTPUT BIT 1 12 13 14 15 «, t00=0x0048, t01=0x00c2}
0x7174…718a Head {h00=0x0012, h01=0x0050, text=»* INPUT BIT «, t00=0x0048, t01=0x0108}
0x718a…71b4 Head {h00=0x0026, h01=0x0050, text=»* 1 READY AFTER UNREADY «, t00=0x0048, t01=0x011e}
0x71b4…71f0 Head {h00=0x0038, h01=0x0050, text=»* 2 BAD TRACK FLAG X X«, t00=0x0048, t01=0x0148}
0x71f0…7232 Head {h00=0x003e, h01=0x0050, text=»* 4 RECORD NOT FOUND X«, t00=0x0048, t01=0x0184}
0x7232…7274 Head {h00=0x003e, h01=0x0050, text=»* 6 SEEK ERROR X«, t00=0x0049, t01=0x0036}
0x7274…7296 Head {h00=0x001e, h01=0x0050, text=»* 9 DRIVE NUMBER«, t00=0x0049, t01=0x0078}
0x7296…72d2 Head {h00=0x0038, h01=0x0050, text=»* 12 INCORRECT LENGTH X«, t00=0x0049, t01=0x009a}
0x72d2…7312 Head {h00=0x003c, h01=0x0050, text=»* 13 PARITY ERROR X «, t00=0x0049, t01=0x00d6}
0x7312…7354 Head {h00=0x003e, h01=0x0050, text=»* 14 THROUGHPUT ERROR X«, t00=0x0049, t01=0x0116}
0x7354…739a Head {h00=0x0042, h01=0x0050, text=»* 15 NOT OPERABLE X «, t00=0x0049, t01=0x0158}
0x739a…73a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x000e}
0x73a4…73b6 Head {h00=0x000e, h01=0x0050, text=»IHCD EQU *«, t00=0x004a, t01=0x0018}
0x73b6…73de Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x004a, t01=0x002a}
0x73de…7408 Head {h00=0x0026, h01=0x0050, text=» MSR 8,A15 SAVE REGISTERS ON STACK«, t00=0x004a, t01=0x0052}
0x7408…742c Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWCD01 DWT ADDRESS «, t00=0x004a, t01=0x007c}
0x742c…744c Head {h00=0x001c, h01=0x0050, text=» SST A1,CUADR GET STATUS«, t00=0x004a, t01=0x00a0}
0x744c…745e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x004a, t01=0x00c0}
0x745e…747a Head {h00=0x0018, h01=0x0050, text=» ANK A1,/F KEEP BITS«, t00=0x004a, t01=0x00d2}
0x747a…748c Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004a, t01=0x00ee}
0x748c…74b2 Head {h00=0x0022, h01=0x0050, text=» RB(N) CDREDY READY INTERRUPT «, t00=0x004a, t01=0x0100}
0x74b2…74c4 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004a, t01=0x0126}
0x74c4…74ee Head {h00=0x0026, h01=0x0050, text=» RF(NN) IHCD40 NOT BAD TRACK FLAG «, t00=0x004a, t01=0x0138}
0x74ee…751c Head {h00=0x002a, h01=0x0050, text=» ORKL A1,/4004 INDICATE BAD TRACK FLAG«, t00=0x004a, t01=0x0162}
0x751c…7526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0190}
0x7526…753c Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x004b, t01=0x000a}
0x753c…7546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0020}
0x7546…7550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x002a}
0x7550…7564 Head {h00=0x0010, h01=0x0050, text=»IHCD40 EQU *«, t00=0x004b, t01=0x0034}
0x7564…757a Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/2800«, t00=0x004b, t01=0x0048}
0x757a…7590 Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHCD50 «, t00=0x004b, t01=0x005e}
0x7590…75a2 Head {h00=0x000e, h01=0x0050, text=» ORK A1,2 «, t00=0x004b, t01=0x0074}
0x75a2…75b6 Head {h00=0x0010, h01=0x0050, text=»IHCD50 EQU *«, t00=0x004b, t01=0x0086}
0x75b6…75de Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x004b, t01=0x009a}
0x75de…75fc Head {h00=0x001a, h01=0x0050, text=» LDR A3,A1 RETURN CODE«, t00=0x004b, t01=0x00c2}
0x75fc…7614 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSAV,A6«, t00=0x004b, t01=0x00e0}
0x7614…763a Head {h00=0x0022, h01=0x0050, text=» RF(NZ) IHCD70 VO:NAM CALLING «, t00=0x004b, t01=0x00f8}
0x763a…764c Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x004b, t01=0x011e}
0x764c…7670 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) END:IO NOT OPERABLE «, t00=0x004b, t01=0x0130}
0x7670…7684 Head {h00=0x0010, h01=0x0050, text=»IHCD70 EQU *«, t00=0x004b, t01=0x0154}
0x7684…76ae Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTA5,A6 GET STACK POINTER «, t00=0x004b, t01=0x0168}
0x76ae…76d8 (76, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTA4,A6 GET RETRY COUNTER «, t00=0x004c, t01=0x0004}
0x76d8…76e8 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004c, t01=0x002e}
0x76e8…76f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x003e}
0x76f2…7708 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x004c, t01=0x0048}
0x7708…7712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x005e}
0x7712…7724 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004c, t01=0x0068}
0x7724…7736 Head {h00=0x000e, h01=0x0050, text=»* VO:NAM *«, t00=0x004c, t01=0x007a}
0x7736…7748 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004c, t01=0x008c}
0x7748…7752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x009e}
0x7752…775c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00a8}
0x775c…7770 Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x004c, t01=0x00b2}
0x7770…7784 Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEKZ«, t00=0x004c, t01=0x00c6}
0x7784…7796 Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x004c, t01=0x00da}
0x7796…77b2 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) VO:NA7 ERROR«, t00=0x004c, t01=0x00ec}
0x77b2…77d8 Head {h00=0x0022, h01=0x0050, text=» LDR A7,A5 SAVE STACK POINTER «, t00=0x004c, t01=0x0108}
0x77d8…77e6 Head {h00=0x000a, h01=0x0050, text=» MLK 5«, t00=0x004c, t01=0x012e}
0x77e6…7814 Head {h00=0x002a, h01=0x0050, text=» DATA /800,PHSECL,/4000+LOSECL+LOSECL «, t00=0x004c, t01=0x013c}
0x7814…7836 Head {h00=0x001e, h01=0x0050, text=» DATA BUFFER,/8000+LOSECL «, t00=0x004c, t01=0x016a}
0x7836…784e Head {h00=0x0014, h01=0x0050, text=» MS 5,DWTCOP,A6 «, t00=0x004c, t01=0x018c}
0x784e…7876 Head {h00=0x0024, h01=0x0050, text=» LDR A5,A7 RESTORE STACK POINTER«, t00=0x004d, t01=0x0014}
0x7876…78aa Head {h00=0x0030, h01=0x0050, text=» CF A5,READ00 READ SECTOR 0 TO DRIVER BUFFER«, t00=0x004d, t01=0x003c}
0x78aa…78d8 Head {h00=0x002a, h01=0x0050, text=» CM DWTBSE+4,A6 CLEAR IN CASE OF ERROR«, t00=0x004d, t01=0x0070}
0x78d8…78ea Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x004d, t01=0x009e}
0x78ea…7906 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) VO:NA7 ERROR«, t00=0x004d, t01=0x00b0}
0x7906…791e Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x004d, t01=0x00cc}
0x791e…7940 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/100 UNIT NUMBER «, t00=0x004d, t01=0x00e4}
0x7940…7952 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x004d, t01=0x0106}
0x7952…7964 Head {h00=0x000e, h01=0x0050, text=» LDK A3,6 «, t00=0x004d, t01=0x0118}
0x7964…799a Head {h00=0x0032, h01=0x0050, text=» MS 3,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR«, t00=0x004d, t01=0x012a}
0x799a…79b2 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x004d, t01=0x0160}
0x79b2…79d0 Head {h00=0x001a, h01=0x0050, text=» LDK A3,/FC FILE CODE «, t00=0x004d, t01=0x0178}
0x79d0…79e8 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTSAV,A6«, t00=0x004e, t01=0x0008}
0x79e8…79fe Head {h00=0x0012, h01=0x0050, text=» RF(N) VO:NA5 «, t00=0x004e, t01=0x0020}
0x79fe…7a2a Head {h00=0x0028, h01=0x0050, text=» LDKL A3,/80FC INDICATE TEST STATUS «, t00=0x004e, t01=0x0036}
0x7a2a…7a3e Head {h00=0x0010, h01=0x0050, text=»VO:NA5 EQU *«, t00=0x004e, t01=0x0062}
0x7a3e…7a68 Head {h00=0x0026, h01=0x0050, text=» CF A15,VOLGET VOLUME NAME TO DWT «, t00=0x004e, t01=0x0076}
0x7a68…7a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00a0}
0x7a72…7a88 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x004e, t01=0x00aa}
0x7a88…7a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00c0}
0x7a92…7a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00ca}
0x7a9c…7ac0 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x004e, t01=0x00d4}
0x7ac0…7ae2 Head {h00=0x001e, h01=0x0050, text=» LDK A3,0 CYLINDER NUMBER «, t00=0x004e, t01=0x00f8}
0x7ae2…7af4 Head {h00=0x000e, h01=0x0050, text=» RF VO:NA8«, t00=0x004e, t01=0x011a}
0x7af4…7b08 Head {h00=0x0010, h01=0x0050, text=»VO:NA7 EQU *«, t00=0x004e, t01=0x012c}
0x7b08…7b2a Head {h00=0x001e, h01=0x0050, text=» LDK A1,6 CLEAR SEX BYTES «, t00=0x004e, t01=0x0140}
0x7b2a…7b40 Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLCLR«, t00=0x004e, t01=0x0162}
0x7b40…7b5e Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 RETURN CODE«, t00=0x004e, t01=0x0178}
0x7b5e…7b8a Head {h00=0x0028, h01=0x0050, text=» LDKL A3,/FFFF DUMMY CYLINDER NUMBER«, t00=0x004f, t01=0x0008}
0x7b8a…7b9e Head {h00=0x0010, h01=0x0050, text=»VO:NA8 EQU *«, t00=0x004f, t01=0x0034}
0x7b9e…7bb4 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x004f, t01=0x0048}
0x7bb4…7bda Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTCYL,A6 HEAD POSITION«, t00=0x004f, t01=0x005e}
0x7bda…7be6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0084}
0x7be6…7bfc Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x004f, t01=0x0090}
0x7bfc…7c12 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x004f, t01=0x00a6}
0x7c12…7c2a Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTCYL,A4«, t00=0x004f, t01=0x00bc}
0x7c2a…7c36 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00d4}
0x7c36…7c46 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004f, t01=0x00e0}
0x7c46…7c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00f0}
0x7c50…7c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00fa}
0x7c5a…7c74 Head {h00=0x0016, h01=0x0050, text=»* TIMER POINTER «, t00=0x004f, t01=0x0104}
0x7c74…7c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x011e}
0x7c7e…7c92 Head {h00=0x0010, h01=0x0050, text=»TIMER DATA 0«, t00=0x004f, t01=0x0128}
0x7c92…7c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x013c}
0x7c9c…7cb2 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x004f, t01=0x0146}
0x7cb2…7cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x015c}
0x7cbc…7cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0166}
0x7cc6…7cf4 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x004f, t01=0x0170}
0x7cf4…7d22 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0050, t01=0x000e}
0x7d22…7d50 Head {h00=0x002a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0050, t01=0x003c}
0x7d50…7d7e Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0050, t01=0x006a}
0x7d7e…7dac Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0050, t01=0x0098}
0x7dac…7db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00c6}
0x7db6…7dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00d0}
0x7dc0…7dd4 Head {h00=0x0010, h01=0x0050, text=»DWCD01 EQU *«, t00=0x0050, t01=0x00da}
0x7dd4…7de4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0050, t01=0x00ee}
0x7de4…7e02 Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0050, t01=0x00fe}
0x7e02…7e1e Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0050, t01=0x011c}
0x7e1e…7e34 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0050, t01=0x0138}
0x7e34…7e5a Head {h00=0x0022, h01=0x0050, text=» DATA CDADR ACTIVATION ADDRESS«, t00=0x0050, t01=0x014e}
0x7e5a…7e76 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x0050, t01=0x0174}
0x7e76…7e9e Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0050, t01=0x0190}
0x7e9e…7ebc Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0051, t01=0x0028}
0x7ebc…7ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0046}
0x7ec6…7edc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0051, t01=0x0050}
0x7edc…7f06 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0051, t01=0x0066}
0x7f06…7f2a Head {h00=0x0020, h01=0x0050, text=» DATA ECBCD1 MMU ECB ADDRESS«, t00=0x0051, t01=0x0090}
0x7f2a…7f36 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0051, t01=0x00b4}
0x7f36…7f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00c0}
0x7f40…7f5c Head {h00=0x0018, h01=0x0050, text=»DWTTRA EQU *-DWCD01 «, t00=0x0051, t01=0x00ca}
0x7f5c…7f6c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0051, t01=0x00e6}
0x7f6c…7f98 Head {h00=0x0028, h01=0x0050, text=» DATA 0,0,0 SAVE AREA FOR REGISTERS «, t00=0x0051, t01=0x00f6}
0x7f98…7fcc Head {h00=0x0030, h01=0x0050, text=»DWTBSE EQU *-DWCD01 DRIVER BUFFER INDICATOR «, t00=0x0051, t01=0x0122}
0x7fcc…7fe0 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0051, t01=0x0156}
0x7fe0…7ffc Head {h00=0x0018, h01=0x0050, text=»DWTSAV EQU *-DWCD01 «, t00=0x0051, t01=0x016a}
0x7ffc…800c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0051, t01=0x0186}
0x800c…8016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0008}
0x8016…802c Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0052, t01=0x0012}
0x802c…8036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0028}
0x8036…8040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0032}
0x8040…8050 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0052, t01=0x003c}
0x8050…8086 Head {h00=0x0032, h01=0x0050, text=» DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 1«, t00=0x0052, t01=0x004c}
0x8086…80bc Head {h00=0x0032, h01=0x0050, text=» DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 2«, t00=0x0052, t01=0x0082}
0x80bc…80f2 Head {h00=0x0032, h01=0x0050, text=»DWTRE1 EQU *-DWCD01 GRAND TOTAL RETRY COUNTER «, t00=0x0052, t01=0x00b8}
0x80f2…8102 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0052, t01=0x00ee}
0x8102…8132 Head {h00=0x002c, h01=0x0050, text=»DWTRE2 EQU *-DWCD01 TOTAL RETRY COUNTER «, t00=0x0052, t01=0x00fe}
0x8132…8142 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0052, t01=0x012e}
0x8142…8174 Head {h00=0x002e, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 1«, t00=0x0052, t01=0x013e}
0x8174…818a Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0052, t01=0x0170}
0x818a…81bc Head {h00=0x002e, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 2«, t00=0x0052, t01=0x0186}
0x81bc…81c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0028}
0x81c8…81f6 Head {h00=0x002a, h01=0x0050, text=»DWTBA EQU *-DWCD01 USER BUFFER POINTER«, t00=0x0053, t01=0x0034}
0x81f6…8206 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0053, t01=0x0062}
0x8206…821c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0053, t01=0x0072}
0x821c…822c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0053, t01=0x0088}
0x822c…8238 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0098}
0x8238…826a Head {h00=0x002e, h01=0x0050, text=»DWTLOS EQU *-DWCD01 LOGICAL SECTOR COUNTER«, t00=0x0053, t01=0x00a4}
0x826a…827a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0053, t01=0x00d6}
0x827a…82ac Head {h00=0x002e, h01=0x0050, text=»DWTSEC EQU *-DWCD01 PHYSICAL SECTOR NUMBER«, t00=0x0053, t01=0x00e6}
0x82ac…82be Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0053, t01=0x0118}
0x82be…82ee Head {h00=0x002c, h01=0x0050, text=»DWTMAS EQU *-DWCD01 LOGICAL SECTOR MASK «, t00=0x0053, t01=0x012a}
0x82ee…82fe Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0053, t01=0x015a}
0x82fe…8308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x016a}
0x8308…831e Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0053, t01=0x0174}
0x831e…8328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x018a}
0x8328…8342 (84, 0, 400) Head {h00=0x0016, h01=0x0050, text=»* CIO WORK AREAS«, t00=0x0054, t01=0x0004}
0x8342…834c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x001e}
0x834c…837c Head {h00=0x002c, h01=0x0050, text=»DWTCIO EQU *-DWCD01 CIO INTRUCTIONS AREA«, t00=0x0054, t01=0x0028}
0x837c…83a4 Head {h00=0x0024, h01=0x0050, text=» CIO A2,1,CUAD1 CIO ON 1ST UNIT «, t00=0x0054, t01=0x0058}
0x83a4…83ba Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0054, t01=0x0080}
0x83ba…83e2 Head {h00=0x0024, h01=0x0050, text=» CIO A2,1,CUAD2 CIO ON 2ND UNIT «, t00=0x0054, t01=0x0096}
0x83e2…83ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x00be}
0x83ee…841e Head {h00=0x002c, h01=0x0050, text=»DWTSEK EQU *-DWCD01 SEEK OPERATION AREA «, t00=0x0054, t01=0x00ca}
0x841e…8432 Head {h00=0x0010, h01=0x0050, text=» DATA SEEKCO«, t00=0x0054, t01=0x00fa}
0x8432…846a Head {h00=0x0034, h01=0x0050, text=»DWTSEZ EQU *-DWCD01 SEEK TO ZERO OPERATION AREA «, t00=0x0054, t01=0x010e}
0x846a…847e Head {h00=0x0010, h01=0x0050, text=» DATA SEZCOM«, t00=0x0054, t01=0x0146}
0x847e…84bc Head {h00=0x003a, h01=0x0050, text=»DWTWHA EQU *-DWCD01 WRITE HOME ADDRESS AND SECTOR MARK«, t00=0x0054, t01=0x015a}
0x84bc…84d0 Head {h00=0x0010, h01=0x0050, text=» DATA WHACOM«, t00=0x0055, t01=0x0008}
0x84d0…84e4 Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x0055, t01=0x001c}
0x84e4…84fa Head {h00=0x0012, h01=0x0050, text=» DATA WHACOM+1«, t00=0x0055, t01=0x0030}
0x84fa…850e Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x0055, t01=0x0046}
0x850e…8524 Head {h00=0x0012, h01=0x0050, text=» DATA WHACOM+2«, t00=0x0055, t01=0x005a}
0x8524…8538 Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x0055, t01=0x0070}
0x8538…854e Head {h00=0x0012, h01=0x0050, text=» DATA WHACOM+3«, t00=0x0055, t01=0x0084}
0x854e…8562 Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x0055, t01=0x009a}
0x8562…858e Head {h00=0x0028, h01=0x0050, text=» DATA WHACOM+/804 INTERRUPT BIT SET «, t00=0x0055, t01=0x00ae}
0x858e…85a2 Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x0055, t01=0x00da}
0x85a2…85cc Head {h00=0x0026, h01=0x0050, text=»DWTCOP EQU *-DWCD01 CIO WORK AREA «, t00=0x0055, t01=0x00ee}
0x85cc…85e2 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0055, t01=0x0118}
0x85e2…85f8 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0055, t01=0x012e}
0x85f8…8602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0144}
0x8602…8618 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD01«, t00=0x0055, t01=0x014e}
0x8618…8622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0164}
0x8622…862c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x016e}
0x862c…8660 Head {h00=0x0030, h01=0x0050, text=»DWTCYL EQU *-DWCD01 PRESENT CYLINDER NUMBER «, t00=0x0055, t01=0x0178}
0x8660…867a Head {h00=0x0016, h01=0x0050, text=» DATA /FFFF UNIT 1«, t00=0x0056, t01=0x001c}
0x867a…8690 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0056, t01=0x0036}
0x8690…86aa Head {h00=0x0016, h01=0x0050, text=» DATA /FFFF UNIT 2«, t00=0x0056, t01=0x004c}
0x86aa…86b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x0066}
0x86b6…86c8 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0056, t01=0x0072}
0x86c8…86da Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0056, t01=0x0084}
0x86da…86ec Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0056, t01=0x0096}
0x86ec…8710 Head {h00=0x0020, h01=0x0050, text=»DWTSB3 EQU *-DWCD01-2 STACK «, t00=0x0056, t01=0x00a8}
0x8710…8722 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0056, t01=0x00cc}
0x8722…8758 Head {h00=0x0032, h01=0x0050, text=»DWTRAW EQU *-DWCD01 READ AFTER WRITE SAVE AREA«, t00=0x0056, t01=0x00de}
0x8758…876e Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0056, t01=0x0114}
0x876e…8784 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0056, t01=0x012a}
0x8784…8794 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0056, t01=0x0140}
0x8794…87a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x0150}
0x87a0…87b6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0056, t01=0x015c}
0x87b6…87ca Head {h00=0x0010, h01=0x0050, text=»ECBCD1 EQU *«, t00=0x0056, t01=0x0172}
0x87ca…87e6 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0056, t01=0x0186}
0x87e6…87f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0012}
0x87f2…87fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x001e}
0x87fc…8808 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0057, t01=0x0028}
0x8808…880c Head {h00=0x4004, h01=0x0000}
0x880c…8810 00 57 00 34 ┆ W 4┆
0x8810…8818 (88, 1, 8) 20 04 00 00 00 58 00 04 ┆ X ┆
0x8818…8868 (89, 0, 400) 34 2c 2f 46 00 18 01 8a 00 12 00 50 5c 52 46 28 5a 29 5c 54 41 42 30 32 30 20 00 19 00 0c 00 14 00 50 54 41 42 30 31 30 5c 41 44 4b 5c 41 32 2c 2f 41 00 19 00 22 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 31 20 00 19 00 3a 00 12 00 50 5c 52 42 28 ┆4,/F P RF(Z) TAB020 PTAB010 ADK A2,/A " P SUK A4,1 : P RB(┆
0x8868…88b8 4e 5a 29 5c 54 41 42 30 31 30 00 19 00 4c 00 06 00 50 2a 20 00 19 00 62 00 1a 00 50 54 41 42 30 32 30 5c 53 55 5c 41 32 2c 44 57 54 48 50 2c 41 36 5c 00 19 00 6c 00 34 00 50 5c 4c 43 5c 41 34 2c 44 57 54 42 43 2c 41 36 5c 47 45 54 20 4e 55 ┆NZ) TAB010 L P* b PTAB020 SU A2,DWTHP,A6 l 4 P LC A4,DWTBC,A6 GET NU┆
0x88b8…8908 4d 42 45 52 20 4f 46 20 4f 55 54 50 55 54 20 43 48 41 52 41 43 54 45 52 53 20 00 19 00 8a 00 2a 00 50 5c 53 55 52 5c 41 32 2c 41 34 5c 4e 55 4d 42 45 52 20 4f 46 20 53 50 41 43 45 53 20 54 4f 20 42 45 20 53 45 4e 54 00 19 00 c2 00 2c 00 50 ┆MBER OF OUTPUT CHARACTERS * P SUR A2,A4 NUMBER OF SPACES TO BE SENT , P┆
0x8908…8958 5c 52 42 28 4e 50 29 5c 57 52 54 30 35 30 5c 4e 4f 20 53 50 41 43 45 53 20 53 48 4f 55 4c 44 20 42 45 20 53 45 4e 54 20 00 19 00 f0 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 00 19 01 20 00 22 00 50 54 41 42 30 33 30 5c 4c 44 4b 5c 41 32 2c ┆ RB(NP) WRT050 NO SPACES SHOULD BE SENT P LDR A4,A2 " PTAB030 LDK A2,┆
0x8958…89a8 2f 32 30 5c 53 45 4e 44 20 42 41 4c 4e 4b 53 20 00 19 01 32 00 24 00 50 54 41 42 30 34 30 5c 43 46 5c 41 35 2c 4f 54 52 5c 53 45 4e 44 20 43 48 41 52 41 43 54 45 52 20 00 19 01 58 00 28 00 50 5c 49 4d 5c 44 57 54 53 54 2c 41 36 5c 49 4e 43 ┆/20 SEND BALNKS 2 $ PTAB040 CF A5,OTR SEND CHARACTER X ( P IM DWTST,A6 INC┆
0x89a8…89f8 (90, 0, 400) 52 45 4d 45 4e 54 20 42 59 54 45 20 43 4f 55 4e 54 45 52 20 00 19 01 80 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 31 20 00 1a 00 1c 00 26 00 50 5c 52 42 28 4e 5a 29 5c 54 41 42 30 33 30 5c 53 45 4e 44 20 41 4e 4f 54 48 45 52 20 53 50 41 43 45 20 ┆REMENT BYTE COUNTER P SUK A4,1 & P RB(NZ) TAB030 SEND ANOTHER SPACE ┆
0x89f8…8a48 00 1a 00 2e 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 33 00 1a 00 58 00 20 00 50 5c 52 42 28 4e 5a 29 5c 57 52 54 30 35 30 5c 4e 4f 54 20 52 45 43 4f 56 45 52 59 20 00 1a 00 6a 00 26 00 50 5c 53 43 5c 41 34 2c 44 57 54 42 43 2c 41 36 5c 52 45 ┆ . P LDR A3,A3 X P RB(NZ) WRT050 NOT RECOVERY j & P SC A4,DWTBC,A6 RE┆
0x8a48…8a98 53 45 54 20 42 59 54 45 20 43 4f 55 4e 54 45 52 00 1a 00 8e 00 22 00 50 5c 4c 44 4b 5c 41 33 2c 32 5c 50 52 45 53 45 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 20 00 1a 00 b8 00 22 00 50 5c 52 42 5c 57 52 54 30 35 30 5c 47 45 54 20 4e 45 58 ┆SET BYTE COUNTER " P LDK A3,2 PRESET BUFFER INDEX " P RB WRT050 GET NEX┆
0x8a98…8ae8 54 20 43 48 41 52 41 43 54 45 52 20 00 1a 00 de 00 0a 00 50 5c 45 4a 45 43 54 00 1a 01 04 00 06 00 50 2a 20 00 1a 01 12 00 06 00 50 2a 20 00 1a 01 1c 00 18 00 50 2a 20 20 20 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 00 1a 01 26 00 06 ┆T CHARACTER P EJECT P* P* P* RECOVERY ROUTINE & ┆
0x8ae8…8b38 00 50 2a 20 00 1a 01 42 00 06 00 50 2a 20 00 1a 01 4c 00 06 00 50 2a 20 00 1a 01 56 00 0e 00 50 54 57 4f 4e 5c 45 51 55 5c 2a 00 1a 01 60 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 1a 01 72 00 26 00 50 5c 43 46 5c 41 31 35 2c ┆ P* B P* L P* V PTWON EQU * ` P IFT CPU852=1 r & P CF A15,┆
0x8b38…8b88 (91, 0, 400) 53 41 56 45 38 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 20 00 1a 01 88 00 08 00 50 5c 58 49 46 00 1b 00 22 00 06 00 50 2a 20 00 1b 00 2e 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 1b 00 38 00 22 00 50 5c 4d ┆SAVE8 SAVE A1-A8 ON STACK P XIF " P* . P IFT CPU852=0 8 " P M┆
0x8b88…8bd8 53 52 5c 38 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 00 1b 00 4e 00 08 00 50 5c 58 49 46 00 1b 00 74 00 06 00 50 2a 20 00 1b 00 80 00 24 00 50 5c 4c 44 4b 4c 5c 41 36 2c 44 57 54 57 30 31 5c 47 45 54 20 44 57 ┆SR 8,A15 SAVE A1-A8 ON STACK N P XIF t P* $ P LDKL A6,DWTW01 GET DW┆
0x8bd8…8c28 54 2d 41 44 44 52 45 53 53 20 00 1b 00 8a 00 10 00 50 5c 49 46 54 5c 50 4f 57 55 50 3d 31 00 1b 00 b2 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 32 30 30 20 00 1b 00 c6 00 26 00 50 5c 4f 52 53 5c 41 31 2c 44 57 54 53 54 2c 41 36 5c 49 4e 44 ┆T-ADDRESS P IFT POWUP=1 P LDKL A1,/200 & P ORS A1,DWTST,A6 IND┆
0x8c28…8c78 49 43 41 54 45 20 50 4f 57 45 52 20 55 50 00 1b 00 dc 00 08 00 50 5c 58 49 46 00 1b 01 06 00 14 00 50 5c 4c 44 5c 41 31 2c 44 57 54 53 54 2c 41 36 20 00 1b 01 12 00 20 00 50 5c 52 46 28 4e 29 5c 45 58 49 54 5c 44 45 56 49 43 45 20 4e 4f 54 ┆ICATE POWER UP P XIF P LD A1,DWTST,A6 P RF(N) EXIT DEVICE NOT┆
0x8c78…8cc8 20 42 55 53 59 20 00 1b 01 2a 00 1a 00 50 54 57 4f 4e 31 30 5c 4c 44 5c 41 33 2c 44 57 54 41 33 2c 41 36 20 00 1b 01 4e 00 1e 00 50 5c 4c 44 5c 41 37 2c 44 57 54 4f 52 2c 41 36 5c 47 45 54 20 4f 52 44 45 52 20 00 1b 01 6c 00 10 00 50 5c 41 ┆ BUSY * PTWON10 LD A3,DWTA3,A6 N P LD A7,DWTOR,A6 GET ORDER l P A┆
0x8cc8…8d18 (92, 0, 400) 4e 4b 5c 41 37 2c 2f 46 46 20 00 1b 01 8e 00 20 00 50 5c 4c 44 5c 41 38 2c 44 57 54 45 43 42 2c 41 36 5c 45 43 42 2d 41 44 44 52 45 53 53 00 1c 00 12 00 14 00 50 5c 4c 44 4b 4c 5c 41 35 2c 44 57 54 53 42 32 20 00 1c 00 36 00 1e 00 50 5c 41 ┆NK A7,/FF P LD A8,DWTECB,A6 ECB-ADDRESS P LDKL A5,DWTSB2 6 P A┆
0x8d18…8d68 44 52 5c 41 35 2c 41 36 5c 47 45 54 20 53 54 41 43 4b 20 42 41 53 45 20 00 1c 00 4e 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 34 5c 00 1c 00 70 00 22 00 50 5c 41 42 4c 28 4e 29 5c 54 57 41 30 31 30 5c 4f 52 44 45 52 53 20 30 31 2c 30 32 2c 30 33 ┆DR A5,A6 GET STACK BASE N P SUK A7,4 p " P ABL(N) TWA010 ORDERS 01,02,03┆
0x8d68…8db8 00 1c 00 82 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 31 20 00 1c 00 a8 00 1a 00 50 5c 52 46 28 5a 29 5c 54 57 4f 4e 32 30 5c 4f 52 44 45 52 20 30 35 00 1c 00 ba 00 08 00 50 5c 49 4e 48 00 1c 00 d8 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 30 20 00 1c ┆ P SUK A7,1 P RF(Z) TWON20 ORDER 05 P INH P LDK A2,0 ┆
0x8db8…8e08 00 e4 00 24 00 50 5c 43 46 5c 41 35 2c 53 54 52 54 49 4f 5c 45 58 45 43 55 54 45 20 43 49 4f 2d 53 54 41 52 54 20 00 1c 00 f6 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 43 52 00 1c 01 1e 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 30 20 00 1c 01 30 00 14 ┆ $ P CF A5,STRTIO EXECUTE CIO-START P LDK A2,CR P LDK A3,0 0 ┆
0x8e08…8e58 00 50 5c 4c 44 5c 41 34 2c 44 57 54 48 50 2c 41 36 20 00 1c 01 42 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 31 20 00 1c 01 5a 00 24 00 50 5c 52 42 5c 54 41 42 30 34 30 5c 52 45 50 52 49 4e 54 20 4c 41 53 54 20 52 45 51 55 45 53 54 20 00 1c 01 6c ┆ P LD A4,DWTHP,A6 B P ADK A4,1 Z $ P RB TAB040 REPRINT LAST REQUEST l┆