|
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: 39676 (0x9afc)
Notes: pts_type(SC)
Names: »DRCD02.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRCD02.SC«
IDENT DRCD02 REL 11.0 81-04-06 870105041100 * * ********************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRCD02 = DRIVER FOR ONE/TWO DISC UNITS PTS 6877 * PTS 6961 OR PTS 6962 * * * * * * * ************************************************** * * * THIS DISC DRIVER HANDLES UP TO TWO DISC * UNITS 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 DRCD02 * * ********************* * * * ENTRIES * * * ********************* * ENTRY CDADR DRIVER ADDRESS BLOCK ENTRY CDON RECOVERY ROUTINE ENTRY IHCD INTERRUPT ROUTINE ENTRY DWCD01 DWT ADDRESS * EJECT DRCD02 * * ************* * 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 DRCD02 * * ************************** * * * CONDITIONAL ASSEMBLY * * * ************************** * * * THIS DRIVER CAN HANDLE TWO DISC UNITS * IF X:A := 2 * X:A EQU 1 NUNITS EQU X:A * * * 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 BE ADAPTED FOR EITHER SMD DRIVES * OR CMD DRIVES , THE CMD VERSION IS OBTAINED BY * SETTING X:C = 0 * X:C EQU 0 SMDIND EQU X:C * EJECT DRCD02 * * * IF CMD REQUIRED IT CAN BE ADAPTED FOR EITHER * 16+16 MB OR 16+80 MB * IF 16+80 MB IS CONNECTED AS 1ST DRIVE * SET X:D = 1 * IF 16+80 MB IS CONNECTED AS 2ND DRIVE SET * X:E = 1 * X:D EQU 0 CMDIX1 EQU X:D * X:E EQU 0 CMDIX2 EQU X:E * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * CPU852 EQU 1 * EJECT DRCD02 * ************************* * * * 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 MS80M1 EQU 8 MAXIMAL NUMBER 80 MB MS80M2 EQU /53C6 SPC80M EQU 115 MS16M1 EQU 1 16MB DISC PARAMETERS MS16M2 EQU /5D8E SPC16M EQU 23 INLACE EQU 5 INTERLACING FACTOR SEPRTR EQU 23 SECTORS PER TRACK * EJECT DRCD02 * * ************************ * DRIVE TYPE DEPENDENT * * CONSTANTS * ************************ * * IFT SMDIND=1 IF SMD DRIVE(S) IS CONNNECTED MXSE11 EQU MS80M1 MAX SCTOR NUMBER MXSE12 EQU MS80M2 MXSE21 EQU MS80M1 MXSE22 EQU MS80M2 MXSE31 EQU 0 MXSE32 EQU 0 MXSE41 EQU 0 MXSE42 EQU 0 SPCUN1 EQU SPC80M SECTORS PER CYLINDER SPCUN2 EQU SPC80M SPCUN3 EQU 0 SPCUN4 EQU 0 XIF IFT SMDIND=0 IF CMD DRIVE(S) IS CONNECTED MXSE11 EQU MS16M1 MAX SECTOR NUMBER MXSE12 EQU MS16M2 MXSE31 EQU MS16M1 MXSE32 EQU MS16M2 SPCUN1 EQU SPC16M SPCUN3 EQU SPC16M SECTORS PER CYLINDER IFT CMDIX1=0 16+16 CONNECTED MXSE21 EQU MS16M1 MXSE22 EQU MS16M2 SPCUN2 EQU SPC16M XIF IFT SMDIND+CMDIX2=0 16+16 CONNECTED MXSE41 EQU MS16M1 MXSE42 EQU MS16M2 SPCUN4 EQU SPC16M XIF IFT SMDIND=0 IFT CMDIX1=1 16+80 CONNECTED MXSE21 EQU MS80M1 MXSE22 EQU MS80M2 SPCUN2 EQU SPC80M XIF IFT SMDIND=0 IFT CMDIX2=1 16+80 CONNECTED MXSE41 EQU MS80M1 MXSE42 EQU MS80M2 SPCUN4 EQU SPC80M XIF * EJECT DRCD02 * * * 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 DRCD02 * * **************************** * * * 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 DRCD02 * * ********************* * * * 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 CF A15,INXDWT LD A4,DWTSPC,A4 SECTORS PER TRACK SUK A4,SPC16M RF(NE) TESE10 NOT 16MB DISC ORKL A1,/800 INDICATE 16MB DISC IN RC TESE10 EQU * RF DENDIO PERFORM ENDIO * EJECT DRCD02 * *************************************** * * * 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 DRCD02 * * ********************************* * * * 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 DRCD02 * * FOR:60 EQU * LDK A1,/EF RESET DEVICE NUMBER BIT ANS A1,DWTWHA,A4 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 A2,A4 SUR A2,A6 SRL A2,2 /4 MUK SEPRTR LC A1,DWTOR,A6 INDEX ANK A1,3 SLL A1,1 ADR A1,A6 CW A2,DWTSPC,A1 RB(L) FOR:60 NEXT HEAD LDKL A1,/800 INTERUPT BIT ORS A1,DWTWHA-4,A4 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 LD A3,DWTSMD,A6 RF(NZ) FOR:80 SMD DISC LC A4,DWTOR,A6 GET DISPLACEMENT ANK A4,2 ADR A4,A6 FOR:80 EQU * ST A2,DWTCYL,A4 CYLINDER NUMBER XIF RB DENDIO PERFORM ENDIO EJECT DRCD02 * * ******************************************** * * * INPUT ECB-PARAMETER CHECK * * * ******************************************** * * CD:000 EQU * LDK A7,5 INDICATE WRITE CD:010 EQU * LC A4,DWTOR,A6 ANK A4,3 SLL A4,2 *4 ADR A4,A6 ML 2,ECBCW1,A8 GET SECTOR NUMBER DS DWTSMX,A4 CHECK SECTOR NUMBER 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 DS DWTSMX,A4 RB(P) INCLEN INCORRECT REQUEST * EJECT DRCD02 * * * GET PHYSICAL SECTOR NUMBER * GET BUFFER ADDRESS * PREPARE SECTOR MASK * * MLR 2,A8 GET 18 BIT BUFFER ADDRESS SLC A1,4 MOST SIGNIFICANT BITS ANK A1,3 SRL A2,1 MS 2,DWTBA,A6 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 DRCD02 * * ******************************** * * * 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,/300 SUR A1,A3 DS DWTSEC,A6 SECTOR NUMBER RF(Z) WRI:30 CORRECT SECTORS IN DRIVER BUFFER * EJECT DRCD02 * * 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 DRCD02 * * WRI:50 EQU * IFT RAW=1 ML 4,DWTBA,A6 SAVE PARAMETERS FOR READ AFTER WRITE MS 4,DWTRAW,A6 LD A1,DWTSEC+2,A6 ST A1,DWTRAW+8,A6 LDK A3,7 ST A3,DWTMAS,A6 SECTOR MASK XIF 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 DRCD02 * * LD A2,DWTOR,A6 ANK A2,/10 RF(Z) WRI:70 BASIC WRITE ML 4,DWTRAW,A6 RESTORE PARAMETERS FOR VERIFY MS 4,DWTBA,A6 LD A1,DWTRAW+8,A6 ST A1,DWTSEC+2,A6 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 DRCD02 * * ******************************** * * * 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 DRCD02 * * ********************* * * * 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 DRCD02 * * * 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 DRCD02 * * 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 LDR A3,A1 RETURN CODE RTN A5 * EJECT DRCD02 * * ************************** * * * 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 DRCD02 * * **************************** * * * VERIFY SECTOR N * * * **************************** * VERIFY EQU * LDKL A3,VERCOM ORDER CODE FOR VERIFY ORS A3,DWTCOP,A6 RB READ00 * XIF EJECT DRCD02 * * * SEEK,SEEKZ,WRITE HOME ADDRESS AND CIO * * SEEK EQU * LDK A2,DWTSEK GET EFFECTIVE ADDRESS TO SEEK OP. RF SEEK00 * * SEEKZ EQU * LDK A2,DWTSEZ GET EFFECTIVE ADDRESS TO SEEK 0 OP. SEEK00 EQU * ADR A2,A6 RF EXCIO * * HOMEAD EQU * LDK A2,DWTWHA GET WRITE HOME ADDRESS OP. RF CIO00 * * CIO EQU * LDK A2,DWTCOP GET EFFECTIVE ADDRESS TO CIO OP. * CIO00 EQU * ADR A2,A6 LD A3,DWTSMD,A6 RF(NZ) CIO10 SMD LC A3,DWTOR,A6 INDEX ANK A3,1 UNIT NUMBER SLL A3,4 ORRS A3,A2 CIO10 EQU * EJECT DRCD02 * * EXCIO EQU * 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 LD A3,DWTSMD,A6 RF(NZ) CIO20 SMD DRIVE LC A4,DWTOR,A6 ANK A4,2 ADR A4,A6 ADDRESS IN DWT CIO20 EQU * 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 DRCD02 * * ***************************************** * * * 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-2 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 LDKL A1,/4000+LOSECL PREPARE PARTIAL LENGTH ST A1,6,A4 ST A1,12,A4 ST A1,18,A4 * EJECT DRCD02 * * CIOL10 EQU * LDK A1,0 ADK A4,6 IM DWTSAV,A6 COUNTER RF(Z) CIOL60 WORK AREA READY SLL A3,1 RF(NN) CIOL50 TO/FROM DRIVER BUFFER LD A2,DWTTRA,A6 TRANSFER INDICATOR RF(NZ) CIOL55 NO TRANSFER * LDR A2,A7 USER BUFFER POINTER DA DWTBA,A6 GET USER BUFFER ADDRESS SLL A2,1 IN POSITION ADK A7,LOSECL UPDATE USER BUFFER POINTER RF CIOL58 * EJECT DRCD02 * * CIOL50 EQU * LDR A2,A8 DRIVER BUFFER ADKL A8,/100 UPDATE DRIVER BUFFERPOINTER RF CIOL58 CIOL55 EQU * LDKL A1,/C000+LOSECL NO TRANSFER STR A1,A4 CIOL58 EQU * MS 2,2,A4 RB CIOL10 CIOL60 EQU * LDKL A1,/8000+LOSECL ANS A1,DWTCOP+16,A6 CLEAR BIT LDKL A1,PHSECL ST A1,DWTCOP+2,A6 CM DWTTRA,A6 CLEAR NO TRANSFER FLAG * EJECT DRCD02 * * ***************************************** * * * 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 * CF A15,INXDWT ML 2,DWTSEC,A6 PHYSICAL SECTOR NUMBER DV DWTSPC,A4 SECTORS PER CYLINDER * 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 SRC A3,1 RF(NN) CIOP10 EVEN CYLINDER NUMBE ADK A2,12 SKEW FACTOR * EJECT DRCD02 * * CIOP10 EQU * DVK SEPRTR GET INTERLACED AND SKEWED SECTOR NUMBER SLL A1,5 IN POSITION ORS A1,DWTCOP,A6 COP WORK AREA SLC A3,1 RESTORE CYLINDER NUMBER IN POSITION IFT NUNITS=2 LD A1,DWTSMD,A6 SMD FLAG RF(NZ) CIOP20 SMD DRIVE LC A4,DWTOR,A6 INDEX ANK A4,2 ADR A4,A6 CIOP20 EQU * 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 DRCD02 * * 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 DRCD02 * * ************************************* * * * 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,/300 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 DRCD02 * * LD A3,DWTLOS,A6 UPDATE DWTLOS SUR A3,A2 ST A3,DWTLOS,A6 SLL A2,7 UPDATE DWTBA LDR A3,A2 SAVE LENGTH DA DWTBA,A6 MS 2,DWTBA,A6 SLL A3,1 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 DRCD02 * * UPDA50 EQU * ADS A3,ECBEL,A8 UPDA60 EQU * * LDK A1,0 LDK A2,1 DA DWTSEC,A6 MS 2,DWTSEC,A6 * RTN A5 EJECT DRCD02 * * ******************************************* * * * 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 DRCD02 * * ************************* * * * 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 LD A3,DWTSMD,A6 RF(NZ) END:S1 SMD DRIVE LC A4,DWTOR,A6 ANK A4,2 ADR A4,A6 END:S1 EQU * 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 RB END:IO * EJECT DRCD02 * * ********************** * * * 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 ANS A1,DWTST,A6 CM DWTSMD,A6 INDICATE CMD DRIVE LD A1,INIFLG INITIALIZATION FLAG RF(NZ) CDON05 NOT POWER UP * EJECT DRCD02 * * IFT NUNITS=2 CM DWTOR,A6 1ST UNIT CF A5,SEEKZ TEST IF OPERABLE ANK A1,1 RF(NZ) CDON80 NOT OPERABLE LDK A1,2 SC A1,DWTOR,A6 2ND UNIT XIF CF A5,SEEKZ TEST IF OPERABLE ANK A1,1 RF(NZ) CDON80 NOT OPERABLE * EJECT DRCD02 * * CDON05 EQU * CM DWTOR,A6 1ST UNIT CF A5,VO:NAM LDK A1,1 2ND UNIT SC A1,DWTOR,A6 CF A5,VO:NAM IFT NUNITS=2 LDK A1,2 SC A1,DWTOR,A6 CF A5,VO:NAM 3RD VOLUME LDK A1,3 SC A1,DWTOR,A6 CF A5,VO:NAM 4TH VOLUME XIF * EJECT DRCD02 * * CDON30 EQU * 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 * CDON40 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 DRCD02 * * READY INTERRUPT * CDREDY LD A1,TIMER RF(Z) CDON95 NO TIMER ACTIVE * IFT NUNITS=1 CM* TIMER KILL TIMER RF CDON90 XIF * IFT NUNITS=2 RB T:DISP TIMER ACTIVE XIF * EJECT DRCD02 * * CDON80 EQU * LDKL A4,TIMER TIMER POINTER ADDRESS LDR* A3,A4 RF(Z) CDON85 NO TIMER ACTIVE LDKL A1,-TIME STR A1,A3 RESTART TIMER RB T:DISP * * CDON85 CF A15,SETIMP START TIMER DATA CDON90,TIME TIME OUT ADDRESS, TIME RB T:DISP * * TIME OUT * CDON90 LDKL A6,DWCD01 CM TIMER CDON95 EQU * LDKL A1,/7FFE SET UNIT BUSY AND RECOVERY ON ANS A1,DWTST,A6 LDKL A1,-1 ST A1,DWTSAV,A6 INDICATE RECOVERY LDK A5,DWTSB3 GET STACK BASE ADR A5,A6 RB CDON05 * EJECT DRCD02 * * *********************** * * * 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 DRCD02 * * 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 ABL(NZ) END:IO NOT OPERABLE IHCD70 EQU * LD A5,DWTA5,A6 GET STACK POINTER LD A4,DWTA4,A6 GET RETRY COUNTER RTN A5 * EJECT DRCD02 * ********** * VO:NAM * ********** * * VO:NAM EQU * CF A5,SEEKZ ANK A1,3 RF(NZ) VO:NA7 ERROR MLK 3 DATA /800,PHSECL,/4000+LOSECL+LOSECL MS 3,DWTCOP,A6 PREPARE CIO WORK AREA MLK 3 DATA 0,BUFFER,/8000+LOSECL MS 3,DWTCOP+6,A6 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,/300 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 DRCD02 * * 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 LD A2,DWTSMD,A6 RF(NZ) VO:NA9 SMD LC A4,DWTOR,A6 ANK A4,2 ADR A4,A6 VO:NA9 EQU * ST A3,DWTCYL,A4 XIF RTN A5 * * * TIMER POINTER * TIMER DATA 0 * EJECT DRCD02 * * ************************************* * * * 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 DRCD02 * * DATA 0 DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 1 DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 2 DATA /8000 UNIT 3 DATA /8000 UNIT 4 DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 1 DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 2 IFT NUNITS=2 DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 3 DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 4 XIF DWTBA EQU *-DWCD01 DATA 0,0 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 DWTSMD EQU *-DWCD01 DATA SMDIND FLAG INDICATING SMD DRIVE(S) * EJECT DRCD02 * * 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 DATA 0,0,0 DWTRE1 EQU *-DWCD01 GRAND TOTAL RETRY COUNTER DATA 0 DWTRE2 EQU *-DWCD01 TOTAL RETRY COUNTER DATA 0 * EJECT DRCD02 * * DWTCYL EQU *-DWCD01 PRESENT CYLINDER NUMBER DATA /FFFF UNIT 1 IFT NUNITS=2 DATA /FFFF 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 DATA 0 XIF IFT MMUPAG=1 ECBCD1 EQU * DATA 0,0,0,0,0,0,0 XIF DWTSMX EQU *-DWCD01 MAX SECTOR NUMBER DATA MXSE11,MXSE12 DATA MXSE21,MXSE22 IFT NUNITS=2 DATA MXSE31,MXSE32 DATA MXSE41,MXSE42 XIF DWTSPC EQU *-DWCD01 SECTORS PER CYLINDER DATA SPCUN1 DATA SPCUN2 IFT NUNITS=2 DATA SPCUN3 DATA SPCUN4 XIF * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRCD02 REL 11.0 81-04-06 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0088 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x0056}
0x0088…0092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00ba Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0096}
0x00ba…00c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00be}
0x00c4…0100 Head {h00=0x0038, h01=0x0050, text=»* DRCD02 = DRIVER FOR ONE/TWO DISC UNITS PTS 6877 «, t00=0x0000, t01=0x00c8}
0x0100…012a Head {h00=0x0026, h01=0x0050, text=»* PTS 6961 OR PTS 6962 «, t00=0x0000, t01=0x0104}
0x012a…0134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012e}
0x0134…013e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0138}
0x013e…0148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…0152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014c}
0x0152…015c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0156}
0x015c…0166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0160}
0x0166…0170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016a}
0x0170…01aa Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0174}
0x01aa…01b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001e}
0x01b4…01be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0028}
0x01be…01f2 Head {h00=0x0030, h01=0x0050, text=»* THIS DISC DRIVER HANDLES UP TO TWO DISC «, t00=0x0001, t01=0x0032}
0x01f2…0222 Head {h00=0x002c, h01=0x0050, text=»* UNITS PTS 6877 CONNECTED TO CPU VIA «, t00=0x0001, t01=0x0066}
0x0222…0242 Head {h00=0x001c, h01=0x0050, text=»* BUILT IN DMA CHANNEL«, t00=0x0001, t01=0x0096}
0x0242…024c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b6}
0x024c…0256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c0}
0x0256…0284 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED :«, t00=0x0001, t01=0x00ca}
0x0284…028e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f8}
0x028e…02ac Head {h00=0x001a, h01=0x0050, text=»* /00 TEST STATUS«, t00=0x0001, t01=0x0102}
0x02ac…02ca Head {h00=0x001a, h01=0x0050, text=»* /01 BASIC READ «, t00=0x0001, t01=0x0120}
0x02ca…02e8 Head {h00=0x001a, h01=0x0050, text=»* /05 BASIC WRITE«, t00=0x0001, t01=0x013e}
0x02e8…0308 Head {h00=0x001c, h01=0x0050, text=»* /11 PHYSICAL READ«, t00=0x0001, t01=0x015c}
0x0308…032a Head {h00=0x001e, h01=0x0050, text=»* /15 PHYSICAL WRITE «, t00=0x0001, t01=0x017c}
0x032a…034a Head {h00=0x001c, h01=0x0050, text=»* /1F FORMAT VOLUME«, t00=0x0002, t01=0x000e}
0x034a…0354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002e}
0x0354…036a Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0002, t01=0x0038}
0x036a…0374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004e}
0x0374…037e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0058}
0x037e…039c Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0002, t01=0x0062}
0x039c…03ba Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0002, t01=0x0080}
0x03ba…03d8 Head {h00=0x001a, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x009e}
0x03d8…03f6 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0002, t01=0x00bc}
0x03f6…0414 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0002, t01=0x00da}
0x0414…041e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f8}
0x041e…0448 Head {h00=0x0026, h01=0x0050, text=» ENTRY CDADR DRIVER ADDRESS BLOCK «, t00=0x0002, t01=0x0102}
0x0448…046c Head {h00=0x0020, h01=0x0050, text=» ENTRY CDON RECOVERY ROUTINE«, t00=0x0002, t01=0x012c}
0x046c…0492 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHCD INTERRUPT ROUTINE «, t00=0x0002, t01=0x0150}
0x0492…04b4 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWCD01 DWT ADDRESS «, t00=0x0002, t01=0x0176}
0x04b4…04be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0008}
0x04be…04d4 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0003, t01=0x0012}
0x04d4…04de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0028}
0x04de…04e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0032}
0x04e8…04fe Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x003c}
0x04fe…0514 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x0052}
0x0514…052a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0068}
0x052a…0534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007e}
0x0534…053e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0088}
0x053e…055e Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0003, t01=0x0092}
0x055e…057c Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0003, t01=0x00b2}
0x057c…05ae Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK«, t00=0x0003, t01=0x00d0}
0x05ae…05de Head {h00=0x002c, h01=0x0050, text=» EXTRN NVLCHK CHECK IF NEW VOLUME LOADED«, t00=0x0003, t01=0x0102}
0x05de…0612 Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET PUT VOLUME NAME IN DWT SET NVL«, t00=0x0003, t01=0x0132}
0x0612…064c Head {h00=0x0036, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME FROM DWT TO USER BUFFER «, t00=0x0003, t01=0x0166}
0x064c…067c Head {h00=0x002c, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAMES IN DWT «, t00=0x0004, t01=0x0010}
0x067c…06ae Head {h00=0x002e, h01=0x0050, text=» EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS «, t00=0x0004, t01=0x0040}
0x06ae…06d2 Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x0072}
0x06d2…06fc Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0004, t01=0x0096}
0x06fc…072a Head {h00=0x002a, h01=0x0050, text=» EXTRN PFPOST PWF POST PROCESSING FLAG«, t00=0x0004, t01=0x00c0}
0x072a…0758 Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0004, t01=0x00ee}
0x0758…0774 Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0004, t01=0x011c}
0x0774…078a Head {h00=0x0012, h01=0x0050, text=» EXTRN TTB:MT «, t00=0x0004, t01=0x0138}
0x078a…07a6 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0004, t01=0x014e}
0x07a6…07c8 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0004, t01=0x016a}
0x07c8…07f0 Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0004, t01=0x018c}
0x07f0…0812 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0005, t01=0x0024}
0x0812…0834 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0005, t01=0x0046}
0x0834…085e Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTORD SAVE AREA FOR ORDER «, t00=0x0005, t01=0x0068}
0x085e…0886 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0005, t01=0x0092}
0x0886…08b0 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0005, t01=0x00ba}
0x08b0…08da Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0005, t01=0x00e4}
0x08da…08fe Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0005, t01=0x010e}
0x08fe…092a Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBCW1 ECB 1:ST CONTROL WORD «, t00=0x0005, t01=0x0132}
0x092a…0956 Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBCW2 ECB 2:ND CONTROL WORD «, t00=0x0005, t01=0x015e}
0x0956…0960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018a}
0x0960…0976 (6, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0006, t01=0x0004}
0x0976…0980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001a}
0x0980…098a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0024}
0x098a…09ac Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0006, t01=0x002e}
0x09ac…09ce Head {h00=0x001e, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0050}
0x09ce…09f0 Head {h00=0x001e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0006, t01=0x0072}
0x09f0…0a12 Head {h00=0x001e, h01=0x0050, text=»* *«, t00=0x0006, t01=0x0094}
0x0a12…0a34 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0006, t01=0x00b6}
0x0a34…0a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d8}
0x0a3e…0a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e2}
0x0a48…0a7a Head {h00=0x002e, h01=0x0050, text=»* THIS DRIVER CAN HANDLE TWO DISC UNITS «, t00=0x0006, t01=0x00ec}
0x0a7a…0a92 Head {h00=0x0014, h01=0x0050, text=»* IF X:A := 2 «, t00=0x0006, t01=0x011e}
0x0a92…0a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0136}
0x0a9c…0aae Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0006, t01=0x0140}
0x0aae…0ac4 Head {h00=0x0012, h01=0x0050, text=»NUNITS EQU X:A«, t00=0x0006, t01=0x0152}
0x0ac4…0ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0168}
0x0ace…0ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0172}
0x0ad8…0b12 Head {h00=0x0036, h01=0x0050, text=»* READ AFTER WRITE MAY BE INCLUDED FOR ORDER /15«, t00=0x0006, t01=0x017c}
0x0b12…0b30 Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:B = 1«, t00=0x0007, t01=0x0026}
0x0b30…0b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0044}
0x0b3a…0b4c Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0007, t01=0x004e}
0x0b4c…0b60 Head {h00=0x0010, h01=0x0050, text=»RAW EQU X:B «, t00=0x0007, t01=0x0060}
0x0b60…0b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0074}
0x0b6a…0b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007e}
0x0b74…0bb0 Head {h00=0x0038, h01=0x0050, text=»* THIS DRIVER CAN BE ADAPTED FOR EITHER SMD DRIVES«, t00=0x0007, t01=0x0088}
0x0bb0…0bea Head {h00=0x0036, h01=0x0050, text=»* OR CMD DRIVES , THE CMD VERSION IS OBTAINED BY«, t00=0x0007, t01=0x00c4}
0x0bea…0c06 Head {h00=0x0018, h01=0x0050, text=»* SETTING X:C = 0 «, t00=0x0007, t01=0x00fe}
0x0c06…0c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011a}
0x0c10…0c22 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0007, t01=0x0124}
0x0c22…0c38 Head {h00=0x0012, h01=0x0050, text=»SMDIND EQU X:C«, t00=0x0007, t01=0x0136}
0x0c38…0c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014c}
0x0c42…0c58 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0007, t01=0x0156}
0x0c58…0c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016c}
0x0c62…0c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0176}
0x0c6c…0ca4 Head {h00=0x0034, h01=0x0050, text=»* IF CMD REQUIRED IT CAN BE ADAPTED FOR EITHER«, t00=0x0007, t01=0x0180}
0x0ca4…0cc4 Head {h00=0x001c, h01=0x0050, text=»* 16+16 MB OR 16+80 MB«, t00=0x0008, t01=0x0028}
0x0cc4…0cf6 Head {h00=0x002e, h01=0x0050, text=»* IF 16+80 MB IS CONNECTED AS 1ST DRIVE «, t00=0x0008, t01=0x0048}
0x0cf6…0d0e Head {h00=0x0014, h01=0x0050, text=»* SET X:D = 1 «, t00=0x0008, t01=0x007a}
0x0d0e…0d44 Head {h00=0x0032, h01=0x0050, text=»* IF 16+80 MB IS CONNECTED AS 2ND DRIVE SET «, t00=0x0008, t01=0x0092}
0x0d44…0d5c Head {h00=0x0014, h01=0x0050, text=»* X:E = 1 «, t00=0x0008, t01=0x00c8}
0x0d5c…0d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e0}
0x0d66…0d78 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0008, t01=0x00ea}
0x0d78…0d8e Head {h00=0x0012, h01=0x0050, text=»CMDIX1 EQU X:D«, t00=0x0008, t01=0x00fc}
0x0d8e…0d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0112}
0x0d98…0daa Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0008, t01=0x011c}
0x0daa…0dc0 Head {h00=0x0012, h01=0x0050, text=»CMDIX2 EQU X:E«, t00=0x0008, t01=0x012e}
0x0dc0…0df2 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x0144}
0x0df2…0e20 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x0176}
0x0e20…0e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0014}
0x0e2a…0e3e Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0009, t01=0x001e}
0x0e3e…0e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0032}
0x0e48…0e5c Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0009, t01=0x003c}
0x0e5c…0e66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0050}
0x0e66…0e7c Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0009, t01=0x005a}
0x0e7c…0e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0070}
0x0e86…0ea8 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0009, t01=0x007a}
0x0ea8…0eca Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x0009, t01=0x009c}
0x0eca…0eec Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS * «, t00=0x0009, t01=0x00be}
0x0eec…0f0e Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x0009, t01=0x00e0}
0x0f0e…0f30 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0009, t01=0x0102}
0x0f30…0f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0124}
0x0f3a…0f64 Head {h00=0x0026, h01=0x0050, text=»CUADR EQU /17 CONTROL UNIT ADDRESS«, t00=0x0009, t01=0x012e}
0x0f64…0f8a Head {h00=0x0022, h01=0x0050, text=»CUAD1 EQU CUADR ADDRESS UNIT 1«, t00=0x0009, t01=0x0158}
0x0f8a…0fb4 Head {h00=0x0026, h01=0x0050, text=»CUAD2 EQU CUADR+/20 ADDRESS UNIT 2«, t00=0x0009, t01=0x017e}
0x0fb4…0fd6 Head {h00=0x001e, h01=0x0050, text=»DEVIND EQU 10 DEVICE INDEX«, t00=0x000a, t01=0x0018}
0x0fd6…0ff2 Head {h00=0x0018, h01=0x0050, text=»RY3 EQU 3 3 RETRIES «, t00=0x000a, t01=0x003a}
0x0ff2…1020 Head {h00=0x002a, h01=0x0050, text=»PHSECL EQU /180 PHYSICAL SECTOR LENGTH«, t00=0x000a, t01=0x0056}
0x1020…104c Head {h00=0x0028, h01=0x0050, text=»LOSECL EQU /80 LOGICAL SECTOR LENGTH«, t00=0x000a, t01=0x0084}
0x104c…107c Head {h00=0x002c, h01=0x0050, text=»SEZCOM EQU /E800 SEEK ZERO COMMAND CODE «, t00=0x000a, t01=0x00b0}
0x107c…10a6 Head {h00=0x0026, h01=0x0050, text=»SEEKCO EQU /A800 SEEK COMMAND CODE«, t00=0x000a, t01=0x00e0}
0x10a6…10d0 Head {h00=0x0026, h01=0x0050, text=»REDCOM EQU /0800 READ COMMAND CODE«, t00=0x000a, t01=0x010a}
0x10d0…10fc Head {h00=0x0028, h01=0x0050, text=»VERCOM EQU /3800 VERIFY COMMAND CODE«, t00=0x000a, t01=0x0134}
0x10fc…1128 Head {h00=0x0028, h01=0x0050, text=»WRICOM EQU /1800 WRITE COMMAND CODE «, t00=0x000a, t01=0x0160}
0x1128…1160 Head {h00=0x0034, h01=0x0050, text=»WHACOM EQU /22C0 WRITE SECTOR MARKS COMMAND CODE«, t00=0x000a, t01=0x018c}
0x1160…1188 Head {h00=0x0024, h01=0x0050, text=»NOTRAN EQU /8000 NO TRANSFER BIT«, t00=0x000b, t01=0x0034}
0x1188…11ae Head {h00=0x0022, h01=0x0050, text=»TIME EQU 1000 1 MIN 40 SECONDS«, t00=0x000b, t01=0x005c}
0x11ae…11dc Head {h00=0x002a, h01=0x0050, text=»MAXCYL EQU 822 MAXIMAL CYLINDER NUMBER«, t00=0x000b, t01=0x0082}
0x11dc…1206 Head {h00=0x0026, h01=0x0050, text=»MS80M1 EQU 8 MAXIMAL NUMBER 80 MB «, t00=0x000b, t01=0x00b0}
0x1206…121e Head {h00=0x0014, h01=0x0050, text=»MS80M2 EQU /53C6«, t00=0x000b, t01=0x00da}
0x121e…1234 Head {h00=0x0012, h01=0x0050, text=»SPC80M EQU 115«, t00=0x000b, t01=0x00f2}
0x1234…125e Head {h00=0x0026, h01=0x0050, text=»MS16M1 EQU 1 16MB DISC PARAMETERS «, t00=0x000b, t01=0x0108}
0x125e…1276 Head {h00=0x0014, h01=0x0050, text=»MS16M2 EQU /5D8E«, t00=0x000b, t01=0x0132}
0x1276…128c Head {h00=0x0012, h01=0x0050, text=»SPC16M EQU 23 «, t00=0x000b, t01=0x014a}
0x128c…12b4 Head {h00=0x0024, h01=0x0050, text=»INLACE EQU 5 INTERLACING FACTOR «, t00=0x000b, t01=0x0160}
0x12b4…12dc Head {h00=0x0024, h01=0x0050, text=»SEPRTR EQU 23 SECTORS PER TRACK «, t00=0x000b, t01=0x0188}
0x12dc…12e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0020}
0x12e6…12fc Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x000c, t01=0x002a}
0x12fc…1306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0040}
0x1306…1310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004a}
0x1310…1330 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000c, t01=0x0054}
0x1330…1350 Head {h00=0x001c, h01=0x0050, text=»* DRIVE TYPE DEPENDENT *«, t00=0x000c, t01=0x0074}
0x1350…1370 Head {h00=0x001c, h01=0x0050, text=»* CONSTANTS *«, t00=0x000c, t01=0x0094}
0x1370…1390 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000c, t01=0x00b4}
0x1390…139a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d4}
0x139a…13a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00de}
0x13a4…13d8 Head {h00=0x0030, h01=0x0050, text=» IFT SMDIND=1 IF SMD DRIVE(S) IS CONNNECTED «, t00=0x000c, t01=0x00e8}
0x13d8…1402 Head {h00=0x0026, h01=0x0050, text=»MXSE11 EQU MS80M1 MAX SCTOR NUMBER«, t00=0x000c, t01=0x011c}
0x1402…141c Head {h00=0x0016, h01=0x0050, text=»MXSE12 EQU MS80M2 «, t00=0x000c, t01=0x0146}
0x141c…1436 Head {h00=0x0016, h01=0x0050, text=»MXSE21 EQU MS80M1 «, t00=0x000c, t01=0x0160}
0x1436…1450 Head {h00=0x0016, h01=0x0050, text=»MXSE22 EQU MS80M2 «, t00=0x000c, t01=0x017a}
0x1450…1464 (13, 0, 398) Head {h00=0x0010, h01=0x0050, text=»MXSE31 EQU 0«, t00=0x000d, t01=0x0004}
0x1464…1478 Head {h00=0x0010, h01=0x0050, text=»MXSE32 EQU 0«, t00=0x000d, t01=0x0018}
0x1478…148c Head {h00=0x0010, h01=0x0050, text=»MXSE41 EQU 0«, t00=0x000d, t01=0x002c}
0x148c…14a0 Head {h00=0x0010, h01=0x0050, text=»MXSE42 EQU 0«, t00=0x000d, t01=0x0040}
0x14a0…14ce Head {h00=0x002a, h01=0x0050, text=»SPCUN1 EQU SPC80M SECTORS PER CYLINDER«, t00=0x000d, t01=0x0054}
0x14ce…14e8 Head {h00=0x0016, h01=0x0050, text=»SPCUN2 EQU SPC80M «, t00=0x000d, t01=0x0082}
0x14e8…14fc Head {h00=0x0010, h01=0x0050, text=»SPCUN3 EQU 0«, t00=0x000d, t01=0x009c}
0x14fc…1510 Head {h00=0x0010, h01=0x0050, text=»SPCUN4 EQU 0«, t00=0x000d, t01=0x00b0}
0x1510…151c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00c4}
0x151c…154e Head {h00=0x002e, h01=0x0050, text=» IFT SMDIND=0 IF CMD DRIVE(S) IS CONNECTED«, t00=0x000d, t01=0x00d0}
0x154e…157a Head {h00=0x0028, h01=0x0050, text=»MXSE11 EQU MS16M1 MAX SECTOR NUMBER «, t00=0x000d, t01=0x0102}
0x157a…1594 Head {h00=0x0016, h01=0x0050, text=»MXSE12 EQU MS16M2 «, t00=0x000d, t01=0x012e}
0x1594…15ae Head {h00=0x0016, h01=0x0050, text=»MXSE31 EQU MS16M1 «, t00=0x000d, t01=0x0148}
0x15ae…15c8 Head {h00=0x0016, h01=0x0050, text=»MXSE32 EQU MS16M2 «, t00=0x000d, t01=0x0162}
0x15c8…15e2 Head {h00=0x0016, h01=0x0050, text=»SPCUN1 EQU SPC16M «, t00=0x000d, t01=0x017c}
0x15e2…1610 Head {h00=0x002a, h01=0x0050, text=»SPCUN3 EQU SPC16M SECTORS PER CYLINDER«, t00=0x000e, t01=0x0008}
0x1610…1636 Head {h00=0x0022, h01=0x0050, text=» IFT CMDIX1=0 16+16 CONNECTED «, t00=0x000e, t01=0x0036}
0x1636…1650 Head {h00=0x0016, h01=0x0050, text=»MXSE21 EQU MS16M1 «, t00=0x000e, t01=0x005c}
0x1650…166a Head {h00=0x0016, h01=0x0050, text=»MXSE22 EQU MS16M2 «, t00=0x000e, t01=0x0076}
0x166a…1684 Head {h00=0x0016, h01=0x0050, text=»SPCUN2 EQU SPC16M «, t00=0x000e, t01=0x0090}
0x1684…1690 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00aa}
0x1690…16bc Head {h00=0x0028, h01=0x0050, text=» IFT SMDIND+CMDIX2=0 16+16 CONNECTED«, t00=0x000e, t01=0x00b6}
0x16bc…16d6 Head {h00=0x0016, h01=0x0050, text=»MXSE41 EQU MS16M1 «, t00=0x000e, t01=0x00e2}
0x16d6…16f0 Head {h00=0x0016, h01=0x0050, text=»MXSE42 EQU MS16M2 «, t00=0x000e, t01=0x00fc}
0x16f0…170a Head {h00=0x0016, h01=0x0050, text=»SPCUN4 EQU SPC16M «, t00=0x000e, t01=0x0116}
0x170a…1716 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0130}
0x1716…172c Head {h00=0x0012, h01=0x0050, text=» IFT SMDIND=0 «, t00=0x000e, t01=0x013c}
0x172c…1752 Head {h00=0x0022, h01=0x0050, text=» IFT CMDIX1=1 16+80 CONNECTED «, t00=0x000e, t01=0x0152}
0x1752…176c Head {h00=0x0016, h01=0x0050, text=»MXSE21 EQU MS80M1 «, t00=0x000e, t01=0x0178}
0x176c…1786 (15, 0, 400) Head {h00=0x0016, h01=0x0050, text=»MXSE22 EQU MS80M2 «, t00=0x000f, t01=0x0004}
0x1786…17a0 Head {h00=0x0016, h01=0x0050, text=»SPCUN2 EQU SPC80M «, t00=0x000f, t01=0x001e}
0x17a0…17ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0038}
0x17ac…17c2 Head {h00=0x0012, h01=0x0050, text=» IFT SMDIND=0 «, t00=0x000f, t01=0x0044}
0x17c2…17e8 Head {h00=0x0022, h01=0x0050, text=» IFT CMDIX2=1 16+80 CONNECTED «, t00=0x000f, t01=0x005a}
0x17e8…1802 Head {h00=0x0016, h01=0x0050, text=»MXSE41 EQU MS80M1 «, t00=0x000f, t01=0x0080}
0x1802…181c Head {h00=0x0016, h01=0x0050, text=»MXSE42 EQU MS80M2 «, t00=0x000f, t01=0x009a}
0x181c…1836 Head {h00=0x0016, h01=0x0050, text=»SPCUN4 EQU SPC80M «, t00=0x000f, t01=0x00b4}
0x1836…1842 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00ce}
0x1842…184c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00da}
0x184c…1862 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x000f, t01=0x00e4}
0x1862…186c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fa}
0x186c…1876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0104}
0x1876…1896 Head {h00=0x001c, h01=0x0050, text=»* DRIVER ADDRESS BLOCK«, t00=0x000f, t01=0x010e}
0x1896…18a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012e}
0x18a0…18aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0138}
0x18aa…18d2 Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDICATES NO MMU BUFFER «, t00=0x000f, t01=0x0142}
0x18d2…18f8 Head {h00=0x0022, h01=0x0050, text=» DATA DEVIND DISC DEVICE INDEX«, t00=0x000f, t01=0x016a}
0x18f8…1922 Head {h00=0x0026, h01=0x0050, text=»CDADR DATA CDAD ACTIVATION ADDRESS«, t00=0x000f, t01=0x0190}
0x1922…1948 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0010, t01=0x002a}
0x1948…1952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0050}
0x1952…195c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005a}
0x195c…1966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0064}
0x1966…1980 Head {h00=0x0016, h01=0x0050, text=»* DRIVER BUFFER «, t00=0x0010, t01=0x006e}
0x1980…198a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0088}
0x198a…1994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0092}
0x1994…19a8 Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x0010, t01=0x009c}
0x19a8…19b8 Head {h00=0x000c, h01=0x0050, text=» RES 256«, t00=0x0010, t01=0x00b0}
0x19b8…19c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c0}
0x19c2…19d8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0010, t01=0x00ca}
0x19d8…19e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e0}
0x19e2…19ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ea}
0x19ec…1a10 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0010, t01=0x00f4}
0x1a10…1a34 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0118}
0x1a34…1a58 Head {h00=0x0020, h01=0x0050, text=»* ACTIVATION *«, t00=0x0010, t01=0x013c}
0x1a58…1a7c Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0160}
0x1a7c…1aa0 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0010, t01=0x0184}
0x1aa0…1aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0018}
0x1aaa…1abc Head {h00=0x000e, h01=0x0050, text=»CDAD EQU *«, t00=0x0011, t01=0x0022}
0x1abc…1ad2 Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB3«, t00=0x0011, t01=0x0034}
0x1ad2…1af4 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x0011, t01=0x004a}
0x1af4…1b28 Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTRE1,A6 GET GRAND TOTAL OF RETRIES «, t00=0x0011, t01=0x006c}
0x1b28…1b5c Head {h00=0x0030, h01=0x0050, text=» ST A4,DWTRE2,A6 PRESENT TOTAL RETRY COUNTER«, t00=0x0011, t01=0x00a0}
0x1b5c…1b8e Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x0011, t01=0x00d4}
0x1b8e…1bae Head {h00=0x001c, h01=0x0050, text=»* SAVE INDEX AND ORDER«, t00=0x0011, t01=0x0106}
0x1bae…1bc6 Head {h00=0x0014, h01=0x0050, text=» ADK A7,0 SET CR«, t00=0x0011, t01=0x0126}
0x1bc6…1bf2 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) CDA:00 NOT TEST STATUS ORDER«, t00=0x0011, t01=0x013e}
0x1bf2…1bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x016a}
0x1bfc…1c12 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0011, t01=0x0174}
0x1c12…1c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018a}
0x1c1c…1c26 (18, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0004}
0x1c26…1c44 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x000e}
0x1c44…1c62 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0012, t01=0x002c}
0x1c62…1c80 Head {h00=0x001a, h01=0x0050, text=»* TEST STATUS * «, t00=0x0012, t01=0x004a}
0x1c80…1c9e Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0012, t01=0x0068}
0x1c9e…1cbc Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x0086}
0x1cbc…1cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a4}
0x1cc6…1cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ae}
0x1cd0…1cf0 Head {h00=0x001c, h01=0x0050, text=» ORS A1,ECBRC,A8 NVL BIT«, t00=0x0012, t01=0x00b8}
0x1cf0…1d1a Head {h00=0x0026, h01=0x0050, text=» IM DWTSAV,A6 INDICATE TEST STATUS«, t00=0x0012, t01=0x00d8}
0x1d1a…1d40 Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x0012, t01=0x0102}
0x1d40…1d52 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0012, t01=0x0128}
0x1d52…1d76 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TESEND NOT OPERABLE «, t00=0x0012, t01=0x013a}
0x1d76…1d9a Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0012, t01=0x015e}
0x1d9a…1dd4 Head {h00=0x0036, h01=0x0050, text=» CF A15,VOLNAM TRANSFER VOLUME NAME TO USER BUFFER«, t00=0x0012, t01=0x0182}
0x1dd4…1df8 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0013, t01=0x002c}
0x1df8…1e0c Head {h00=0x0010, h01=0x0050, text=»TESEND EQU *«, t00=0x0013, t01=0x0050}
0x1e0c…1e32 Head {h00=0x0022, h01=0x0050, text=» CM DWTSAV,A6 TEST STATUS DONE«, t00=0x0013, t01=0x0064}
0x1e32…1e48 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0013, t01=0x008a}
0x1e48…1e72 Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTSPC,A4 SECTORS PER TRACK«, t00=0x0013, t01=0x00a0}
0x1e72…1e88 Head {h00=0x0012, h01=0x0050, text=» SUK A4,SPC16M«, t00=0x0013, t01=0x00ca}
0x1e88…1eac Head {h00=0x0020, h01=0x0050, text=» RF(NE) TESE10 NOT 16MB DISC«, t00=0x0013, t01=0x00e0}
0x1eac…1eda Head {h00=0x002a, h01=0x0050, text=» ORKL A1,/800 INDICATE 16MB DISC IN RC«, t00=0x0013, t01=0x0104}
0x1eda…1eee Head {h00=0x0010, h01=0x0050, text=»TESE10 EQU *«, t00=0x0013, t01=0x0132}
0x1eee…1f0e Head {h00=0x001c, h01=0x0050, text=» RF DENDIO PERFORM ENDIO«, t00=0x0013, t01=0x0146}
0x1f0e…1f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0166}
0x1f18…1f30 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCD02 «, t00=0x0013, t01=0x0170}
0x1f30…1f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0188}
0x1f3a…1f6a (20, 0, 400) Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0014, t01=0x0004}
0x1f6a…1f9a Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0014, t01=0x0034}
0x1f9a…1fca Head {h00=0x002c, h01=0x0050, text=»* NEW VOLUME LOADED CHECK * «, t00=0x0014, t01=0x0064}
0x1fca…1ffa Head {h00=0x002c, h01=0x0050, text=»* ORDER CODE CHECK * «, t00=0x0014, t01=0x0094}
0x1ffa…202a Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0014, t01=0x00c4}
0x202a…205a Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0014, t01=0x00f4}
0x205a…2064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0124}
0x2064…2096 Head {h00=0x002e, h01=0x0050, text=»* INPUT: A1=NVL RETURN CODE FROM NVLCHK «, t00=0x0014, t01=0x012e}
0x2096…20b6 Head {h00=0x001c, h01=0x0050, text=»* A7=ORDER CODE«, t00=0x0014, t01=0x0160}
0x20b6…20c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0180}
0x20c0…20ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x018a}
0x20ca…20de (21, 0, 400) Head {h00=0x0010, h01=0x0050, text=»CDA:00 EQU *«, t00=0x0015, t01=0x0004}
0x20de…210a Head {h00=0x0028, h01=0x0050, text=» ADK A1,0 CHECK IF NEW VOLUME LOADED«, t00=0x0015, t01=0x0018}
0x210a…212e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DENDIO PERFORM ENDIO«, t00=0x0015, t01=0x0044}
0x212e…2140 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0015, t01=0x0068}
0x2140…2160 Head {h00=0x001c, h01=0x0050, text=» RF(Z) CD:010 BASIC READ«, t00=0x0015, t01=0x007a}
0x2160…2172 Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0015, t01=0x009a}
0x2172…2194 Head {h00=0x001e, h01=0x0050, text=» RF(Z) CD:000 BASIC WRITE «, t00=0x0015, t01=0x00ac}
0x2194…21a8 Head {h00=0x0010, h01=0x0050, text=» SUK A7,12 «, t00=0x0015, t01=0x00ce}
0x21a8…21cc Head {h00=0x0020, h01=0x0050, text=» RF(Z) CD:010 PHYSICAL READ «, t00=0x0015, t01=0x00e2}
0x21cc…21de Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0015, t01=0x0106}
0x21de…2202 Head {h00=0x0020, h01=0x0050, text=» RF(Z) CD:000 PHYSICAL WRITE«, t00=0x0015, t01=0x0118}
0x2202…2214 Head {h00=0x000e, h01=0x0050, text=» SUK A7,10«, t00=0x0015, t01=0x013c}
0x2214…2238 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FORMAT FORMAT VOLUME «, t00=0x0015, t01=0x014e}
0x2238…2242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0172}
0x2242…2268 Head {h00=0x0022, h01=0x0050, text=»DUERR ABL DISIOE REQUEST ERROR«, t00=0x0015, t01=0x017c}
0x2268…2272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0012}
0x2272…229e Head {h00=0x0028, h01=0x0050, text=»INCLEN EQU * REQUESTED LENGTH ERROR «, t00=0x0016, t01=0x001c}
0x229e…22b4 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8008«, t00=0x0016, t01=0x0048}
0x22b4…22c8 Head {h00=0x0010, h01=0x0050, text=»DENDIO EQU *«, t00=0x0016, t01=0x005e}
0x22c8…22dc Head {h00=0x0010, h01=0x0050, text=» ABL END:IO «, t00=0x0016, t01=0x0072}
0x22dc…22e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0086}
0x22e6…22f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0090}
0x22f0…2306 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0016, t01=0x009a}
0x2306…2310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b0}
0x2310…231a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ba}
0x231a…2344 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0016, t01=0x00c4}
0x2344…236e Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x0016, t01=0x00ee}
0x236e…2398 Head {h00=0x0026, h01=0x0050, text=»* FORMAT VOLUME * «, t00=0x0016, t01=0x0118}
0x2398…23c2 Head {h00=0x0026, h01=0x0050, text=»* * «, t00=0x0016, t01=0x0142}
0x23c2…23ec Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0016, t01=0x016c}
0x23ec…23f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0008}
0x23f6…2400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0012}
0x2400…2414 Head {h00=0x0010, h01=0x0050, text=»FORMAT EQU *«, t00=0x0017, t01=0x001c}
0x2414…2440 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,SEEKCO SEEK OPERATION CODE «, t00=0x0017, t01=0x0030}
0x2440…2470 Head {h00=0x002c, h01=0x0050, text=» ST A1,DWTSEK,A6 TO SEEK OPERATION AREA «, t00=0x0017, t01=0x005c}
0x2470…2490 Head {h00=0x001c, h01=0x0050, text=» CF A5,SEEKZ CYLINDER 0 «, t00=0x0017, t01=0x008c}
0x2490…24a2 Head {h00=0x000e, h01=0x0050, text=» RF FOR:50«, t00=0x0017, t01=0x00ac}
0x24a2…24b6 Head {h00=0x0010, h01=0x0050, text=»FOR:10 EQU *«, t00=0x0017, t01=0x00be}
0x24b6…24ca Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEK «, t00=0x0017, t01=0x00d2}
0x24ca…24de Head {h00=0x0010, h01=0x0050, text=»FOR:50 EQU *«, t00=0x0017, t01=0x00e6}
0x24de…24ec Head {h00=0x000a, h01=0x0050, text=» MLK 3«, t00=0x0017, t01=0x00fa}
0x24ec…2500 Head {h00=0x0010, h01=0x0050, text=» DATA REDCOM«, t00=0x0017, t01=0x0108}
0x2500…2514 Head {h00=0x0010, h01=0x0050, text=» DATA LOSECL«, t00=0x0017, t01=0x011c}
0x2514…2530 Head {h00=0x0018, h01=0x0050, text=» DATA NOTRAN+LOSECL «, t00=0x0017, t01=0x0130}
0x2530…2558 Head {h00=0x0024, h01=0x0050, text=» MS 3,DWTCOP,A6 PREPARE FOR READ«, t00=0x0017, t01=0x014c}
0x2558…2576 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A6 WHA POINTER«, t00=0x0017, t01=0x0174}
0x2576…2580 (24, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0004}
0x2580…2596 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0018, t01=0x000e}
0x2596…25a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0024}
0x25a0…25aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x002e}
0x25aa…25be Head {h00=0x0010, h01=0x0050, text=»FOR:60 EQU *«, t00=0x0018, t01=0x0038}
0x25be…25ea Head {h00=0x0028, h01=0x0050, text=» LDK A1,/EF RESET DEVICE NUMBER BIT «, t00=0x0018, t01=0x004c}
0x25ea…2604 Head {h00=0x0016, h01=0x0050, text=» ANS A1,DWTWHA,A4 «, t00=0x0018, t01=0x0078}
0x2604…261c Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW1,A8«, t00=0x0018, t01=0x0092}
0x261c…264a Head {h00=0x002a, h01=0x0050, text=» RF(Z) FOR:70 NO BAD TRACK FLAG CHECK «, t00=0x0018, t01=0x00aa}
0x264a…2670 Head {h00=0x0022, h01=0x0050, text=» CF A5,CIO READ PART OF SECTOR«, t00=0x0018, t01=0x00d8}
0x2670…269a Head {h00=0x0026, h01=0x0050, text=» SRL A1,8 BAD TRACK FLAG INDICATOR«, t00=0x0018, t01=0x00fe}
0x269a…26ae Head {h00=0x0010, h01=0x0050, text=»FOR:70 EQU *«, t00=0x0018, t01=0x0128}
0x26ae…26ce Head {h00=0x001c, h01=0x0050, text=» ORK A1,/22 PREPARE WHA «, t00=0x0018, t01=0x013c}
0x26ce…26e6 Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTWHA,A4«, t00=0x0018, t01=0x015c}
0x26e6…2706 Head {h00=0x001c, h01=0x0050, text=» IM DWTCOP,A6 NEXT HEAD «, t00=0x0018, t01=0x0174}
0x2706…2718 (25, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x0019, t01=0x0004}
0x2718…272a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0019, t01=0x0016}
0x272a…273c Head {h00=0x000e, h01=0x0050, text=» SUR A2,A6«, t00=0x0019, t01=0x0028}
0x273c…2750 Head {h00=0x0010, h01=0x0050, text=» SRL A2,2 /4«, t00=0x0019, t01=0x003a}
0x2750…2764 Head {h00=0x0010, h01=0x0050, text=» MUK SEPRTR «, t00=0x0019, t01=0x004e}
0x2764…2782 Head {h00=0x001a, h01=0x0050, text=» LC A1,DWTOR,A6 INDEX «, t00=0x0019, t01=0x0062}
0x2782…2794 Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0019, t01=0x0080}
0x2794…27a6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0019, t01=0x0092}
0x27a6…27b8 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x0019, t01=0x00a4}
0x27b8…27d0 Head {h00=0x0014, h01=0x0050, text=» CW A2,DWTSPC,A1«, t00=0x0019, t01=0x00b6}
0x27d0…27f0 Head {h00=0x001c, h01=0x0050, text=» RB(L) FOR:60 NEXT HEAD «, t00=0x0019, t01=0x00ce}
0x27f0…2812 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/800 INTERUPT BIT«, t00=0x0019, t01=0x00ee}
0x2812…282e Head {h00=0x0018, h01=0x0050, text=» ORS A1,DWTWHA-4,A4 «, t00=0x0019, t01=0x0110}
0x282e…2856 Head {h00=0x0024, h01=0x0050, text=» CF A5,HOMEAD WRITE SECTOR MARKS«, t00=0x0019, t01=0x012c}
0x2856…287a Head {h00=0x0020, h01=0x0050, text=» IM DWTSEK,A6 NEXT CYLINDER «, t00=0x0019, t01=0x0154}
0x287a…2892 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTSEK,A6«, t00=0x0019, t01=0x0178}
0x2892…28d6 Head {h00=0x0040, h01=0x0050, text=» SUKL A1,SEEKCO+MAXCYL SEEK ORDER CODE + MAX CYLINDER NUMBER«, t00=0x0019, t01=0x0190}
0x28d6…28fa Head {h00=0x0020, h01=0x0050, text=» RB(NZ) FOR:10 NEXT CYLINDER«, t00=0x001a, t01=0x0044}
0x28fa…2918 Head {h00=0x001a, h01=0x0050, text=» LDKL A2,MAXCYL-1 821 «, t00=0x001a, t01=0x0068}
0x2918…292e Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x001a, t01=0x0086}
0x292e…2956 Head {h00=0x0024, h01=0x0050, text=» ST A2,DWTCYL,A6 CYLINDER NUMBER«, t00=0x001a, t01=0x009c}
0x2956…2962 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00c4}
0x2962…2978 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x001a, t01=0x00d0}
0x2978…298e Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x001a, t01=0x00e6}
0x298e…29a6 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTSMD,A6«, t00=0x001a, t01=0x00fc}
0x29a6…29c6 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FOR:80 SMD DISC «, t00=0x001a, t01=0x0114}
0x29c6…29ee Head {h00=0x0024, h01=0x0050, text=» LC A4,DWTOR,A6 GET DISPLACEMENT«, t00=0x001a, t01=0x0134}
0x29ee…2a00 Head {h00=0x000e, h01=0x0050, text=» ANK A4,2 «, t00=0x001a, t01=0x015c}
0x2a00…2a12 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x001a, t01=0x016e}
0x2a12…2a26 Head {h00=0x0010, h01=0x0050, text=»FOR:80 EQU *«, t00=0x001a, t01=0x0180}
0x2a26…2a4e (27, 0, 400) Head {h00=0x0024, h01=0x0050, text=» ST A2,DWTCYL,A4 CYLINDER NUMBER«, t00=0x001b, t01=0x0004}
0x2a4e…2a5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x002c}
0x2a5a…2a7a Head {h00=0x001c, h01=0x0050, text=» RB DENDIO PERFORM ENDIO«, t00=0x001b, t01=0x0038}
0x2a7a…2a90 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x001b, t01=0x0058}
0x2a90…2a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006e}
0x2a9a…2aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0078}
0x2aa4…2ad8 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x001b, t01=0x0082}
0x2ad8…2b0c Head {h00=0x0030, h01=0x0050, text=»* *«, t00=0x001b, t01=0x00b6}
0x2b0c…2b40 Head {h00=0x0030, h01=0x0050, text=»* INPUT ECB-PARAMETER CHECK *«, t00=0x001b, t01=0x00ea}
0x2b40…2b74 Head {h00=0x0030, h01=0x0050, text=»* *«, t00=0x001b, t01=0x011e}
0x2b74…2ba8 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x001b, t01=0x0152}
0x2ba8…2bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0186}
0x2bb2…2bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0190}
0x2bbc…2bd0 Head {h00=0x0010, h01=0x0050, text=»CD:000 EQU *«, t00=0x001c, t01=0x000a}
0x2bd0…2bf0 Head {h00=0x001c, h01=0x0050, text=» LDK A7,5 INDICATE WRITE«, t00=0x001c, t01=0x001e}
0x2bf0…2c04 Head {h00=0x0010, h01=0x0050, text=»CD:010 EQU *«, t00=0x001c, t01=0x003e}
0x2c04…2c1c Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTOR,A6 «, t00=0x001c, t01=0x0052}
0x2c1c…2c2e Head {h00=0x000e, h01=0x0050, text=» ANK A4,3 «, t00=0x001c, t01=0x006a}
0x2c2e…2c42 Head {h00=0x0010, h01=0x0050, text=» SLL A4,2 *4«, t00=0x001c, t01=0x007c}
0x2c42…2c54 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x001c, t01=0x0090}
0x2c54…2c7e Head {h00=0x0026, h01=0x0050, text=» ML 2,ECBCW1,A8 GET SECTOR NUMBER «, t00=0x001c, t01=0x00a2}
0x2c7e…2ca8 Head {h00=0x0026, h01=0x0050, text=» DS DWTSMX,A4 CHECK SECTOR NUMBER «, t00=0x001c, t01=0x00cc}
0x2ca8…2cbe Head {h00=0x0012, h01=0x0050, text=» RB(NN) DUERR «, t00=0x001c, t01=0x00f6}
0x2cbe…2cde Head {h00=0x001c, h01=0x0050, text=» LDK A2,0 CLEAR REGISTER«, t00=0x001c, t01=0x010c}
0x2cde…2d0a Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001c, t01=0x012c}
0x2d0a…2d32 Head {h00=0x0024, h01=0x0050, text=» RB(Z) INCLEN INCORRECT REQUEST «, t00=0x001c, t01=0x0158}
0x2d32…2d52 Head {h00=0x001c, h01=0x0050, text=» ECR A2,A1 DIVIDE BY 256«, t00=0x001c, t01=0x0180}
0x2d52…2d7a Head {h00=0x0024, h01=0x0050, text=» ANK A1,/FF REST AFTER DIVISION «, t00=0x001d, t01=0x0010}
0x2d7a…2da2 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) INCLEN INCORRECT REQUEST«, t00=0x001d, t01=0x0038}
0x2da2…2dda Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTLOS,A6 SAVE NUMBER OF LOGICAL SECTORS «, t00=0x001d, t01=0x0060}
0x2dda…2e06 Head {h00=0x0028, h01=0x0050, text=» DA ECBCW1,A8 LOGICAL SECTOR NUMBER «, t00=0x001d, t01=0x0098}
0x2e06…2e1c Head {h00=0x0012, h01=0x0050, text=» DS DWTSMX,A4 «, t00=0x001d, t01=0x00c4}
0x2e1c…2e44 Head {h00=0x0024, h01=0x0050, text=» RB(P) INCLEN INCORRECT REQUEST «, t00=0x001d, t01=0x00da}
0x2e44…2e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0102}
0x2e4e…2e64 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x001d, t01=0x010c}
0x2e64…2e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0122}
0x2e6e…2e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x012c}
0x2e78…2e9e Head {h00=0x0022, h01=0x0050, text=»* GET PHYSICAL SECTOR NUMBER«, t00=0x001d, t01=0x0136}
0x2e9e…2ebc Head {h00=0x001a, h01=0x0050, text=»* GET BUFFER ADDRESS«, t00=0x001d, t01=0x015c}
0x2ebc…2edc Head {h00=0x001c, h01=0x0050, text=»* PREPARE SECTOR MASK «, t00=0x001d, t01=0x017a}
0x2edc…2ee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000a}
0x2ee6…2ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0014}
0x2ef0…2f1c Head {h00=0x0028, h01=0x0050, text=» MLR 2,A8 GET 18 BIT BUFFER ADDRESS «, t00=0x001e, t01=0x001e}
0x2f1c…2f44 Head {h00=0x0024, h01=0x0050, text=» SLC A1,4 MOST SIGNIFICANT BITS «, t00=0x001e, t01=0x004a}
0x2f44…2f56 Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x001e, t01=0x0072}
0x2f56…2f68 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x001e, t01=0x0084}
0x2f68…2f7e Head {h00=0x0012, h01=0x0050, text=» MS 2,DWTBA,A6«, t00=0x001e, t01=0x0096}
0x2f7e…2fb0 Head {h00=0x002e, h01=0x0050, text=» ML 2,ECBCW1,A8 GET LOGICAL SECTOR NUMBER «, t00=0x001e, t01=0x00ac}
0x2fb0…2fdc Head {h00=0x0028, h01=0x0050, text=» LDK A3,0 DIVIDE MOST SIGN PART BY 3«, t00=0x001e, t01=0x00de}
0x2fdc…2ff0 Head {h00=0x0010, h01=0x0050, text=»CD:100 EQU *«, t00=0x001e, t01=0x010a}
0x2ff0…3002 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001e, t01=0x011e}
0x3002…3014 Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x001e, t01=0x0130}
0x3014…302a Head {h00=0x0012, h01=0x0050, text=» RB(NN) CD:100«, t00=0x001e, t01=0x0142}
0x302a…303c Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x001e, t01=0x0158}
0x303c…304e Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001e, t01=0x016a}
0x304e…307e Head {h00=0x002c, h01=0x0050, text=» ST A3,DWTSEC,A6 PHYSICAL SECTOR NUMBER «, t00=0x001e, t01=0x017c}
0x307e…3098 Head {h00=0x0016, h01=0x0050, text=» DVK 3 DIVIDE BY 3«, t00=0x001f, t01=0x001c}
0x3098…30ca Head {h00=0x002e, h01=0x0050, text=» ST A2,DWTSEC+2,A6 LEAST SIGNIFICANT PART «, t00=0x001f, t01=0x0036}
0x30ca…30f0 Head {h00=0x0022, h01=0x0050, text=» CF A5,MASKPR PREPARE IO MASK «, t00=0x001f, t01=0x0068}
0x30f0…310e Head {h00=0x001a, h01=0x0050, text=» ANK A7,4 ORDER CHECK «, t00=0x001f, t01=0x008e}
0x310e…312e Head {h00=0x001c, h01=0x0050, text=» RF(Z) REA:00 READ ORDER«, t00=0x001f, t01=0x00ac}
0x312e…3144 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x001f, t01=0x00cc}
0x3144…314e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e2}
0x314e…3158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ec}
0x3158…3180 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x001f, t01=0x00f6}
0x3180…31a8 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x001f, t01=0x011e}
0x31a8…31d0 Head {h00=0x0024, h01=0x0050, text=»* WRITE SECTORS *«, t00=0x001f, t01=0x0146}
0x31d0…31f8 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x001f, t01=0x016e}
0x31f8…3220 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0020, t01=0x0008}
0x3220…322a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0030}
0x322a…3234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x003a}
0x3234…3258 Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTMAS,A6 SECTOR MASK«, t00=0x0020, t01=0x0044}
0x3258…326a Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x0020, t01=0x0068}
0x326a…3296 Head {h00=0x0028, h01=0x0050, text=» RF(Z) WRI:50 TOTAL PHYSICAL SECTOR «, t00=0x0020, t01=0x007a}
0x3296…32aa Head {h00=0x0010, h01=0x0050, text=»WRI:10 EQU *«, t00=0x0020, t01=0x00a6}
0x32aa…32ea Head {h00=0x003c, h01=0x0050, text=» ML 3,DWTBSE,A6 GET IDENTITY OF SECTORS IN DRIVER BUFFER«, t00=0x0020, t01=0x00ba}
0x32ea…3312 Head {h00=0x0024, h01=0x0050, text=» OR A3,DWTMAS,A6 GET SECTOR MASK«, t00=0x0020, t01=0x00fa}
0x3312…3324 Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x0020, t01=0x0122}
0x3324…3358 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) WRI:20 NOT COMPLETE PHYSICAL SECTOR «, t00=0x0020, t01=0x0134}
0x3358…3380 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTOR,A6 GET UNIT NUMBER «, t00=0x0020, t01=0x0168}
0x3380…3396 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/300 «, t00=0x0020, t01=0x0190}
0x3396…33a8 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A3«, t00=0x0021, t01=0x0016}
0x33a8…33cc Head {h00=0x0020, h01=0x0050, text=» DS DWTSEC,A6 SECTOR NUMBER «, t00=0x0021, t01=0x0028}
0x33cc…3402 Head {h00=0x0032, h01=0x0050, text=» RF(Z) WRI:30 CORRECT SECTORS IN DRIVER BUFFER«, t00=0x0021, t01=0x004c}
0x3402…340c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0082}
0x340c…3422 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0021, t01=0x008c}
0x3422…342c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00a2}
0x342c…3436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ac}
0x3436…344a Head {h00=0x0010, h01=0x0050, text=»WRI:20 EQU *«, t00=0x0021, t01=0x00b6}
0x344a…3474 Head {h00=0x0026, h01=0x0050, text=» IM DWTTRA,A6 INDICATE NO TRANSFER«, t00=0x0021, t01=0x00ca}
0x3474…34a6 Head {h00=0x002e, h01=0x0050, text=» CF A5,READ READ SECTORS TO DRIVER BUFFER «, t00=0x0021, t01=0x00f4}
0x34a6…34b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0126}
0x34b0…34c4 Head {h00=0x0010, h01=0x0050, text=»WRI:30 EQU *«, t00=0x0021, t01=0x0130}
0x34c4…34f2 Head {h00=0x002a, h01=0x0050, text=» CF A5,WRITE WRITE ONE PHYSICAL SECTOR«, t00=0x0021, t01=0x0144}
0x34f2…3504 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0021, t01=0x0172}
0x3504…3526 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTOR,A6 GET ORDER «, t00=0x0021, t01=0x0184}
0x3526…353a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x0022, t01=0x0016}
0x353a…355c Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRI:35 BASIC WRITE «, t00=0x0022, t01=0x002a}
0x355c…358a Head {h00=0x002a, h01=0x0050, text=» CF A5,VERIFY VERIFY IF PHYSICAL WRITE«, t00=0x0022, t01=0x004c}
0x358a…359e Head {h00=0x0010, h01=0x0050, text=»WRI:35 EQU *«, t00=0x0022, t01=0x007a}
0x359e…35aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x008e}
0x35aa…35c0 Head {h00=0x0012, h01=0x0050, text=» CF A5,UPDATE «, t00=0x0022, t01=0x009a}
0x35c0…35f6 Head {h00=0x0032, h01=0x0050, text=» LD A1,DWTLOS,A6 GET NUMBER OF LOGICAL SECTORS«, t00=0x0022, t01=0x00b0}
0x35f6…361c Head {h00=0x0022, h01=0x0050, text=» RF(Z) REA:50 LAST SECTOR DONE«, t00=0x0022, t01=0x00e6}
0x361c…3646 Head {h00=0x0026, h01=0x0050, text=» CF A5,MASK00 PREPARE SECTOR MASK «, t00=0x0022, t01=0x010c}
0x3646…3668 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTMAS,A6 GET MASK «, t00=0x0022, t01=0x0136}
0x3668…367a Head {h00=0x000e, h01=0x0050, text=» SUK A1,7 «, t00=0x0022, t01=0x0158}
0x367a…36a6 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) WRI:10 LESS THAN 3 SECTOR IO«, t00=0x0022, t01=0x016a}
0x36a6…36b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0008}
0x36b0…36c6 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0023, t01=0x0012}
0x36c6…36d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0028}
0x36d0…36da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0032}
0x36da…36ee Head {h00=0x0010, h01=0x0050, text=»WRI:50 EQU *«, t00=0x0023, t01=0x003c}
0x36ee…3700 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0023, t01=0x0050}
0x3700…373c Head {h00=0x0038, h01=0x0050, text=» ML 4,DWTBA,A6 SAVE PARAMETERS FOR READ AFTER WRITE «, t00=0x0023, t01=0x0062}
0x373c…3754 Head {h00=0x0014, h01=0x0050, text=» MS 4,DWTRAW,A6 «, t00=0x0023, t01=0x009e}
0x3754…376e Head {h00=0x0016, h01=0x0050, text=» LD A1,DWTSEC+2,A6«, t00=0x0023, t01=0x00b6}
0x376e…3788 Head {h00=0x0016, h01=0x0050, text=» ST A1,DWTRAW+8,A6«, t00=0x0023, t01=0x00d0}
0x3788…379a Head {h00=0x000e, h01=0x0050, text=» LDK A3,7 «, t00=0x0023, t01=0x00ea}
0x379a…37be Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTMAS,A6 SECTOR MASK«, t00=0x0023, t01=0x00fc}
0x37be…37ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0120}
0x37ca…37de Head {h00=0x0010, h01=0x0050, text=»WRI:55 EQU *«, t00=0x0023, t01=0x012c}
0x37de…37f2 Head {h00=0x0010, h01=0x0050, text=» CF A5,WRITE«, t00=0x0023, t01=0x0140}
0x37f2…3804 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0023, t01=0x0154}
0x3804…3840 Head {h00=0x0038, h01=0x0050, text=» IM DWTTRA,A6 INDICATE NO UPDATE OF EFFECTIVE LENGTH«, t00=0x0023, t01=0x0166}
0x3840…384c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0012}
0x384c…3860 Head {h00=0x0010, h01=0x0050, text=» CF A5,UPDAT«, t00=0x0024, t01=0x001e}
0x3860…3872 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0024, t01=0x0032}
0x3872…3888 Head {h00=0x0012, h01=0x0050, text=» CM DWTTRA,A6 «, t00=0x0024, t01=0x0044}
0x3888…3894 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x005a}
0x3894…38c6 Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS«, t00=0x0024, t01=0x0066}
0x38c6…38d8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0024, t01=0x0098}
0x38d8…3904 Head {h00=0x0028, h01=0x0050, text=» RB(NN) WRI:55 NEXT PHYSICAL SECTOR «, t00=0x0024, t01=0x00aa}
0x3904…3916 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0024, t01=0x00d6}
0x3916…3920 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e8}
0x3920…3936 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0024, t01=0x00f2}
0x3936…3940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0108}
0x3940…394a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0112}
0x394a…3962 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A6 «, t00=0x0024, t01=0x011c}
0x3962…3976 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x0024, t01=0x0134}
0x3976…3998 Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRI:70 BASIC WRITE «, t00=0x0024, t01=0x0148}
0x3998…39ce Head {h00=0x0032, h01=0x0050, text=» ML 4,DWTRAW,A6 RESTORE PARAMETERS FOR VERIFY «, t00=0x0024, t01=0x016a}
0x39ce…39e4 Head {h00=0x0012, h01=0x0050, text=» MS 4,DWTBA,A6«, t00=0x0025, t01=0x0010}
0x39e4…39fe Head {h00=0x0016, h01=0x0050, text=» LD A1,DWTRAW+8,A6«, t00=0x0025, t01=0x0026}
0x39fe…3a18 Head {h00=0x0016, h01=0x0050, text=» ST A1,DWTSEC+2,A6«, t00=0x0025, t01=0x0040}
0x3a18…3a2c Head {h00=0x0010, h01=0x0050, text=»WRI:60 EQU *«, t00=0x0025, t01=0x005a}
0x3a2c…3a42 Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOLOD «, t00=0x0025, t01=0x006e}
0x3a42…3a58 Head {h00=0x0012, h01=0x0050, text=» CF A5,VERIFY «, t00=0x0025, t01=0x0084}
0x3a58…3a6c Head {h00=0x0010, h01=0x0050, text=» CF A5,UPDAT«, t00=0x0025, t01=0x009a}
0x3a6c…3a9e Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS«, t00=0x0025, t01=0x00ae}
0x3a9e…3ab0 Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0025, t01=0x00e0}
0x3ab0…3adc Head {h00=0x0028, h01=0x0050, text=» RB(NN) WRI:60 NEXT PHYSICAL SECTOR «, t00=0x0025, t01=0x00f2}
0x3adc…3ae8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x011e}
0x3ae8…3afc Head {h00=0x0010, h01=0x0050, text=»WRI:70 EQU *«, t00=0x0025, t01=0x012a}
0x3afc…3b0e Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0025, t01=0x013e}
0x3b0e…3b34 Head {h00=0x0022, h01=0x0050, text=» RF(Z) REA:50 LAST SECTOR DONE«, t00=0x0025, t01=0x0150}
0x3b34…3b5e Head {h00=0x0026, h01=0x0050, text=» CF A5,MASK00 PREPARE SECTOR MASK «, t00=0x0025, t01=0x0176}
0x3b5e…3b7e Head {h00=0x001c, h01=0x0050, text=» RB WRI:10 LAST SECTORS «, t00=0x0026, t01=0x0010}
0x3b7e…3b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0030}
0x3b88…3b9e Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0026, t01=0x003a}
0x3b9e…3ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0050}
0x3ba8…3bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005a}
0x3bb2…3bda Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0026, t01=0x0064}
0x3bda…3c02 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x0026, t01=0x008c}
0x3c02…3c2a Head {h00=0x0024, h01=0x0050, text=»* READ SECTORS *«, t00=0x0026, t01=0x00b4}
0x3c2a…3c52 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x0026, t01=0x00dc}
0x3c52…3c7a Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0026, t01=0x0104}
0x3c7a…3c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x012c}
0x3c84…3c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0136}
0x3c8e…3ca2 Head {h00=0x0010, h01=0x0050, text=»REA:00 EQU *«, t00=0x0026, t01=0x0140}
0x3ca2…3cc2 Head {h00=0x001c, h01=0x0050, text=» CF A5,READ PERFORM READ«, t00=0x0026, t01=0x0154}
0x3cc2…3cd8 Head {h00=0x0012, h01=0x0050, text=» CF A5,UPDATE «, t00=0x0026, t01=0x0174}
0x3cd8…3cea Head {h00=0x000e, h01=0x0050, text=» LDK A3,7 «, t00=0x0026, t01=0x018a}
0x3cea…3d0e Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTMAS,A6 SECTOR MASK«, t00=0x0027, t01=0x000c}
0x3d0e…3d40 Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS«, t00=0x0027, t01=0x0030}
0x3d40…3d5e Head {h00=0x001a, h01=0x0050, text=» RF(Z) REA:50 IO READY«, t00=0x0027, t01=0x0062}
0x3d5e…3d70 Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0027, t01=0x0080}
0x3d70…3da4 Head {h00=0x0030, h01=0x0050, text=» RB(NN) REA:00 AT LEAST ONE PHYSICAL SECTOR «, t00=0x0027, t01=0x0092}
0x3da4…3dba Head {h00=0x0012, h01=0x0050, text=» CF A5,MASK00 «, t00=0x0027, t01=0x00c6}
0x3dba…3dce Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x0027, t01=0x00dc}
0x3dce…3de4 Head {h00=0x0012, h01=0x0050, text=» CF A5,UPDATE «, t00=0x0027, t01=0x00f0}
0x3de4…3e08 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0027, t01=0x0106}
0x3e08…3e1c Head {h00=0x0010, h01=0x0050, text=»REA:50 EQU *«, t00=0x0027, t01=0x012a}
0x3e1c…3e36 Head {h00=0x0016, h01=0x0050, text=» ABL END:00 END IO«, t00=0x0027, t01=0x013e}
0x3e36…3e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0158}
0x3e40…3e56 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0027, t01=0x0162}
0x3e56…3e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0178}
0x3e60…3e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0182}
0x3e6a…3e88 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0027, t01=0x018c}
0x3e88…3ea6 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0028, t01=0x001a}
0x3ea6…3ec4 Head {h00=0x001a, h01=0x0050, text=»* READ SECTOR N * «, t00=0x0028, t01=0x0038}
0x3ec4…3ee2 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0028, t01=0x0056}
0x3ee2…3f00 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0028, t01=0x0074}
0x3f00…3f0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0092}
0x3f0a…3f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009c}
0x3f14…3f26 Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0028, t01=0x00a6}
0x3f26…3f3c Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOLOD «, t00=0x0028, t01=0x00b8}
0x3f3c…3f76 Head {h00=0x0036, h01=0x0050, text=» CM DWTBSE+4,A6 CLEAR BUFFER IND. IN CASE OF ERROR«, t00=0x0028, t01=0x00ce}
0x3f76…3fa4 Head {h00=0x002a, h01=0x0050, text=» LDKL A3,REDCOM GET READ COMMAND CODE «, t00=0x0028, t01=0x0108}
0x3fa4…3fd4 Head {h00=0x002c, h01=0x0050, text=» ORS A3,DWTCOP,A6 READ A RECORD COMMAND «, t00=0x0028, t01=0x0136}
0x3fd4…3fe8 Head {h00=0x0010, h01=0x0050, text=»READ00 EQU *«, t00=0x0028, t01=0x0166}
0x3fe8…4004 Head {h00=0x0018, h01=0x0050, text=» LDK A4,RY3 RETRIES «, t00=0x0028, t01=0x017a}
0x4004…402a Head {h00=0x0022, h01=0x0050, text=»READ10 CF A5,CIO EXECUTE READ «, t00=0x0029, t01=0x0008}
0x402a…403c Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0029, t01=0x002e}
0x403c…4064 Head {h00=0x0024, h01=0x0050, text=» RF(Z) RET34 OK. NO RETURN CODE «, t00=0x0029, t01=0x0040}
0x4064…406e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0068}
0x406e…408c Head {h00=0x001a, h01=0x0050, text=»* IO ERROR IN READING «, t00=0x0029, t01=0x0072}
0x408c…4096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0090}
0x4096…40ac Head {h00=0x0012, h01=0x0050, text=» IM DWTRE2,A6 «, t00=0x0029, t01=0x009a}
0x40ac…40d4 Head {h00=0x0024, h01=0x0050, text=» SUK A4,1 DECREMENT RETRYCOUNTER«, t00=0x0029, t01=0x00b0}
0x40d4…410c Head {h00=0x0034, h01=0x0050, text=» RB(P) READ10 3:RD RETRY IN THIS STATE NOT DONE «, t00=0x0029, t01=0x00d8}
0x410c…4134 Head {h00=0x0024, h01=0x0050, text=» LDK A4,RY3 REINIT RETRYCOUNTER «, t00=0x0029, t01=0x0110}
0x4134…413e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0138}
0x413e…4154 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0029, t01=0x0142}
0x4154…415e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0158}
0x415e…4168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0162}
0x4168…4186 Head {h00=0x001a, h01=0x0050, text=»* UPDATE READ-COMMAND «, t00=0x0029, t01=0x016c}
0x4186…4190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x018a}
0x4190…419a (42, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0004}
0x419a…41b2 Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTCOP,A6«, t00=0x002a, t01=0x000e}
0x41b2…41e6 Head {h00=0x0030, h01=0x0050, text=» ANK A2,/C0 LAST RETRY WITH EARLY- OR LATE- «, t00=0x002a, t01=0x0026}
0x41e6…420a Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RET31 DATA STROBE ? «, t00=0x002a, t01=0x005a}
0x420a…423e Head {h00=0x0030, h01=0x0050, text=» LDKL A3,/8000 PREPARE FOR EARLY DATA STROBE«, t00=0x002a, t01=0x007e}
0x423e…4258 Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTCOP,A6 «, t00=0x002a, t01=0x00b2}
0x4258…4290 Head {h00=0x0034, h01=0x0050, text=» RB READ10 RETRY 3 TIMES WITH EARLY DATA STROBE «, t00=0x002a, t01=0x00cc}
0x4290…42a4 Head {h00=0x0010, h01=0x0050, text=»RET31 EQU * «, t00=0x002a, t01=0x0104}
0x42a4…42b8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/80 «, t00=0x002a, t01=0x0118}
0x42b8…42f0 Head {h00=0x0034, h01=0x0050, text=» RF(Z) RET32 LAST RETRIES WERE LATE DATA STROBE «, t00=0x002a, t01=0x012c}
0x42f0…4306 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/C000«, t00=0x002a, t01=0x0164}
0x4306…4346 Head {h00=0x003c, h01=0x0050, text=» XRS A3,DWTCOP,A6 CHANGE FROM EARLY- TO LATE DATA STROBE«, t00=0x002a, t01=0x017a}
0x4346…437c Head {h00=0x0032, h01=0x0050, text=» RB READ10 RETRY 3 TIMES WITH LATE DATA STROBE«, t00=0x002b, t01=0x002a}
0x437c…4390 Head {h00=0x0010, h01=0x0050, text=»RET32 EQU * «, t00=0x002b, t01=0x0060}
0x4390…43a6 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/3FFF«, t00=0x002b, t01=0x0074}
0x43a6…43d6 Head {h00=0x002c, h01=0x0050, text=» ANS A3,DWTCOP,A6 RESET LATE DATA STROBE«, t00=0x002b, t01=0x008a}
0x43d6…43f0 Head {h00=0x0016, h01=0x0050, text=» LC A2,DWTCOP+2,A6«, t00=0x002b, t01=0x00ba}
0x43f0…4426 Head {h00=0x0032, h01=0x0050, text=» ANK A2,/C0 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x002b, t01=0x00d4}
0x4426…443c Head {h00=0x0012, h01=0x0050, text=» RF(NZ) RET33 «, t00=0x002b, t01=0x010a}
0x443c…4468 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,/8000 PREPARE FOR CARRIAGE+«, t00=0x002b, t01=0x0120}
0x4468…4484 Head {h00=0x0018, h01=0x0050, text=» ORS A3,DWTCOP+2,A6 «, t00=0x002b, t01=0x014c}
0x4484…44b4 Head {h00=0x002c, h01=0x0050, text=» RB READ10 RETRY 3 TIMES WITH CARRIAGE+ «, t00=0x002b, t01=0x0168}
0x44b4…44be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0008}
0x44be…44d4 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x002c, t01=0x0012}
0x44d4…44de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0028}
0x44de…44e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0032}
0x44e8…44fc Head {h00=0x0010, h01=0x0050, text=»RET33 EQU * «, t00=0x002c, t01=0x003c}
0x44fc…4510 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/80 «, t00=0x002c, t01=0x0050}
0x4510…4540 Head {h00=0x002c, h01=0x0050, text=» RF(Z) RET35 LAST RETRY WAS A CARRIAGE- «, t00=0x002c, t01=0x0064}
0x4540…4556 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/C000«, t00=0x002c, t01=0x0094}
0x4556…4594 Head {h00=0x003a, h01=0x0050, text=» XRS A3,DWTCOP+2,A6 CHANGE FROM CARRIAGE+TO CARRIAGE- «, t00=0x002c, t01=0x00aa}
0x4594…45c4 Head {h00=0x002c, h01=0x0050, text=» RB READ10 RETRY 3 TIMES WITH CARRIAGE- «, t00=0x002c, t01=0x00e8}
0x45c4…45d8 Head {h00=0x0010, h01=0x0050, text=»RET35 EQU * «, t00=0x002c, t01=0x0118}
0x45d8…45f0 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSAV,A6«, t00=0x002c, t01=0x012c}
0x45f0…4618 Head {h00=0x0024, h01=0x0050, text=» RB(Z) REA:50 NOT VO:NAM CALLING«, t00=0x002c, t01=0x0144}
0x4618…463c Head {h00=0x0020, h01=0x0050, text=»RET34 EQU * NO MORE RETRIES «, t00=0x002c, t01=0x016c}
0x463c…465a Head {h00=0x001a, h01=0x0050, text=» LDR A3,A1 RETURN CODE«, t00=0x002c, t01=0x0190}
0x465a…466a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x002d, t01=0x001e}
0x466a…4674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002e}
0x4674…468a Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x002d, t01=0x0038}
0x468a…4694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x004e}
0x4694…469e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0058}
0x469e…46c0 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x002d, t01=0x0062}
0x46c0…46e2 Head {h00=0x001e, h01=0x0050, text=»* *«, t00=0x002d, t01=0x0084}
0x46e2…4704 Head {h00=0x001e, h01=0x0050, text=»* WRITE SECTOR N *«, t00=0x002d, t01=0x00a6}
0x4704…4726 Head {h00=0x001e, h01=0x0050, text=»* *«, t00=0x002d, t01=0x00c8}
0x4726…4748 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x002d, t01=0x00ea}
0x4748…4752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x010c}
0x4752…4766 Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x002d, t01=0x0116}
0x4766…477c Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOLOD «, t00=0x002d, t01=0x012a}
0x477c…47a4 Head {h00=0x0024, h01=0x0050, text=» LDKL A3,WRICOM WRITE ORDER CODE«, t00=0x002d, t01=0x0140}
0x47a4…47be Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTCOP,A6 «, t00=0x002d, t01=0x0168}
0x47be…47ea Head {h00=0x0028, h01=0x0050, text=» LDK A4,RY3 RETRIES TO BE PERFORMED «, t00=0x002d, t01=0x0182}
0x47ea…47fe Head {h00=0x0010, h01=0x0050, text=»WRIT20 EQU *«, t00=0x002e, t01=0x001e}
0x47fe…4810 Head {h00=0x000e, h01=0x0050, text=» CF A5,CIO«, t00=0x002e, t01=0x0032}
0x4810…4822 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x002e, t01=0x0044}
0x4822…4840 Head {h00=0x001a, h01=0x0050, text=» RF(Z) WRIT50 WRITE OK«, t00=0x002e, t01=0x0056}
0x4840…4866 Head {h00=0x0022, h01=0x0050, text=» IM DWTRE2,A6 RETRY PERFORMED «, t00=0x002e, t01=0x0074}
0x4866…4878 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002e, t01=0x009a}
0x4878…4894 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) WRIT20 RETRY«, t00=0x002e, t01=0x00ac}
0x4894…48b6 Head {h00=0x001e, h01=0x0050, text=» RB REA:50 NO MORE RETRIES«, t00=0x002e, t01=0x00c8}
0x48b6…48ca Head {h00=0x0010, h01=0x0050, text=»WRIT50 EQU *«, t00=0x002e, t01=0x00ea}
0x48ca…48da Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x002e, t01=0x00fe}
0x48da…48e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x010e}
0x48e4…48f6 Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x002e, t01=0x0118}
0x48f6…490c Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x002e, t01=0x012a}
0x490c…4916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0140}
0x4916…4920 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014a}
0x4920…4944 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x002e, t01=0x0154}
0x4944…4968 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x002e, t01=0x0178}
0x4968…498c Head {h00=0x0020, h01=0x0050, text=»* VERIFY SECTOR N *«, t00=0x002f, t01=0x000c}
0x498c…49b0 Head {h00=0x0020, h01=0x0050, text=»* *«, t00=0x002f, t01=0x0030}
0x49b0…49d4 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x002f, t01=0x0054}
0x49d4…49de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0078}
0x49de…49f2 Head {h00=0x0010, h01=0x0050, text=»VERIFY EQU *«, t00=0x002f, t01=0x0082}
0x49f2…4a20 Head {h00=0x002a, h01=0x0050, text=» LDKL A3,VERCOM ORDER CODE FOR VERIFY «, t00=0x002f, t01=0x0096}
0x4a20…4a3a Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTCOP,A6 «, t00=0x002f, t01=0x00c4}
0x4a3a…4a4c Head {h00=0x000e, h01=0x0050, text=» RB READ00«, t00=0x002f, t01=0x00de}
0x4a4c…4a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00f0}
0x4a56…4a62 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00fa}
0x4a62…4a78 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x002f, t01=0x0106}
0x4a78…4a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x011c}
0x4a82…4a8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0126}
0x4a8c…4abe Head {h00=0x002e, h01=0x0050, text=»* SEEK,SEEKZ,WRITE HOME ADDRESS AND CIO «, t00=0x002f, t01=0x0130}
0x4abe…4ac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0162}
0x4ac8…4ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x016c}
0x4ad2…4ae4 Head {h00=0x000e, h01=0x0050, text=»SEEK EQU *«, t00=0x002f, t01=0x0176}
0x4ae4…4b1c Head {h00=0x0034, h01=0x0050, text=» LDK A2,DWTSEK GET EFFECTIVE ADDRESS TO SEEK OP.«, t00=0x002f, t01=0x0188}
0x4b1c…4b2e Head {h00=0x000e, h01=0x0050, text=» RF SEEK00«, t00=0x0030, t01=0x0030}
0x4b2e…4b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0042}
0x4b38…4b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x004c}
0x4b42…4b56 Head {h00=0x0010, h01=0x0050, text=»SEEKZ EQU * «, t00=0x0030, t01=0x0056}
0x4b56…4b90 Head {h00=0x0036, h01=0x0050, text=» LDK A2,DWTSEZ GET EFFECTIVE ADDRESS TO SEEK 0 OP.«, t00=0x0030, t01=0x006a}
0x4b90…4ba4 Head {h00=0x0010, h01=0x0050, text=»SEEK00 EQU *«, t00=0x0030, t01=0x00a4}
0x4ba4…4bb6 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0030, t01=0x00b8}
0x4bb6…4bc8 Head {h00=0x000e, h01=0x0050, text=» RF EXCIO «, t00=0x0030, t01=0x00ca}
0x4bc8…4bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00dc}
0x4bd2…4bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e6}
0x4bdc…4bf0 Head {h00=0x0010, h01=0x0050, text=»HOMEAD EQU *«, t00=0x0030, t01=0x00f0}
0x4bf0…4c22 Head {h00=0x002e, h01=0x0050, text=» LDK A2,DWTWHA GET WRITE HOME ADDRESS OP. «, t00=0x0030, t01=0x0104}
0x4c22…4c34 Head {h00=0x000e, h01=0x0050, text=» RF CIO00 «, t00=0x0030, t01=0x0136}
0x4c34…4c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0148}
0x4c3e…4c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0152}
0x4c48…4c5a Head {h00=0x000e, h01=0x0050, text=»CIO EQU * «, t00=0x0030, t01=0x015c}
0x4c5a…4c92 Head {h00=0x0034, h01=0x0050, text=» LDK A2,DWTCOP GET EFFECTIVE ADDRESS TO CIO OP. «, t00=0x0030, t01=0x016e}
0x4c92…4c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0016}
0x4c9c…4cb0 Head {h00=0x0010, h01=0x0050, text=»CIO00 EQU * «, t00=0x0031, t01=0x0020}
0x4cb0…4cc2 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0031, t01=0x0034}
0x4cc2…4cda Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTSMD,A6«, t00=0x0031, t01=0x0046}
0x4cda…4cf4 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CIO10 SMD «, t00=0x0031, t01=0x005e}
0x4cf4…4d12 Head {h00=0x001a, h01=0x0050, text=» LC A3,DWTOR,A6 INDEX «, t00=0x0031, t01=0x0078}
0x4d12…4d30 Head {h00=0x001a, h01=0x0050, text=» ANK A3,1 UNIT NUMBER «, t00=0x0031, t01=0x0096}
0x4d30…4d42 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0031, t01=0x00b4}
0x4d42…4d56 Head {h00=0x0010, h01=0x0050, text=» ORRS A3,A2 «, t00=0x0031, t01=0x00c6}
0x4d56…4d6a Head {h00=0x0010, h01=0x0050, text=»CIO10 EQU * «, t00=0x0031, t01=0x00da}
0x4d6a…4d80 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0031, t01=0x00ee}
0x4d80…4d8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0104}
0x4d8a…4d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x010e}
0x4d94…4da8 Head {h00=0x0010, h01=0x0050, text=»EXCIO EQU * «, t00=0x0031, t01=0x0118}
0x4da8…4dc8 Head {h00=0x001c, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE A4 «, t00=0x0031, t01=0x012c}
0x4dc8…4dde Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x0031, t01=0x014c}
0x4dde…4e0a Head {h00=0x0028, h01=0x0050, text=» RF(NZ) CIOAB PWF POST PROCESSING ON«, t00=0x0031, t01=0x0162}
0x4e0a…4e20 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0031, t01=0x018e}
0x4e20…4e54 Head {h00=0x0030, h01=0x0050, text=» CF A15,INXDWT GET INDEXED DWT DISPLACEMENT «, t00=0x0032, t01=0x0014}
0x4e54…4e6c Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTSMD,A6«, t00=0x0032, t01=0x0048}
0x4e6c…4e8c Head {h00=0x001c, h01=0x0050, text=» RF(NZ) CIO20 SMD DRIVE «, t00=0x0032, t01=0x0060}
0x4e8c…4ea4 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTOR,A6 «, t00=0x0032, t01=0x0080}
0x4ea4…4eb6 Head {h00=0x000e, h01=0x0050, text=» ANK A4,2 «, t00=0x0032, t01=0x0098}
0x4eb6…4ed8 Head {h00=0x001e, h01=0x0050, text=» ADR A4,A6 ADDRESS IN DWT «, t00=0x0032, t01=0x00aa}
0x4ed8…4eec Head {h00=0x0010, h01=0x0050, text=»CIO20 EQU * «, t00=0x0032, t01=0x00cc}
0x4eec…4f02 Head {h00=0x0012, h01=0x0050, text=» EX DWTCIO,A4 «, t00=0x0032, t01=0x00e0}
0x4f02…4f0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x00f6}
0x4f0e…4f24 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0032, t01=0x0102}
0x4f24…4f3a Head {h00=0x0012, h01=0x0050, text=» EX DWTCIO,A6 «, t00=0x0032, t01=0x0118}
0x4f3a…4f46 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x012e}
0x4f46…4f5c Head {h00=0x0012, h01=0x0050, text=» ABL(3) END:30«, t00=0x0032, t01=0x013a}
0x4f5c…4f70 Head {h00=0x0010, h01=0x0050, text=»CIOAB EQU * «, t00=0x0032, t01=0x0150}
0x4f70…4f96 Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTA5,A6 A5 «, t00=0x0032, t01=0x0164}
0x4f96…4fb8 Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GO TO DIPATCHER«, t00=0x0032, t01=0x018a}
0x4fb8…4fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x001c}
0x4fc2…4fd8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0033, t01=0x0026}
0x4fd8…4fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x003c}
0x4fe2…4fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0046}
0x4fec…501e Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0033, t01=0x0050}
0x501e…5050 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0033, t01=0x0082}
0x5050…5082 Head {h00=0x002e, h01=0x0050, text=»* SUBROUTINE CIOLOD * «, t00=0x0033, t01=0x00b4}
0x5082…50b4 Head {h00=0x002e, h01=0x0050, text=»* PREPARE CIO WORK AREA * «, t00=0x0033, t01=0x00e6}
0x50b4…50e6 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0033, t01=0x0118}
0x50e6…5118 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0033, t01=0x014a}
0x5118…5122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x017c}
0x5122…5142 Head {h00=0x001c, h01=0x0050, text=»* REGISTER DISPOSITION«, t00=0x0033, t01=0x0186}
0x5142…5160 Head {h00=0x001a, h01=0x0050, text=»* A1 = WORK REGISTER«, t00=0x0034, t01=0x0016}
0x5160…517e Head {h00=0x001a, h01=0x0050, text=»* A2 = WORK REGISTER«, t00=0x0034, t01=0x0034}
0x517e…5194 Head {h00=0x0012, h01=0x0050, text=»* A3 = MASK «, t00=0x0034, t01=0x0052}
0x5194…51ba Head {h00=0x0022, h01=0x0050, text=»* A4 = CIO WORK AREA POINTER«, t00=0x0034, t01=0x0068}
0x51ba…51de Head {h00=0x0020, h01=0x0050, text=»* A7 = USER BUFFER POINTER«, t00=0x0034, t01=0x008e}
0x51de…5204 Head {h00=0x0022, h01=0x0050, text=»* A8 = DRIVER BUFFER POINTER«, t00=0x0034, t01=0x00b2}
0x5204…520e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00d8}
0x520e…5236 Head {h00=0x0024, h01=0x0050, text=»* DWTTRA = TRANSFER INDICATOR «, t00=0x0034, t01=0x00e2}
0x5236…5276 Head {h00=0x003c, h01=0x0050, text=»* DWTMAS = MASK INDICATING SECTORS TO/FROM USER BUFFER«, t00=0x0034, t01=0x010a}
0x5276…529a Head {h00=0x0020, h01=0x0050, text=»* DWTBA = BUFFER POINTER «, t00=0x0034, t01=0x014a}
0x529a…52a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x016e}
0x52a4…52b8 Head {h00=0x0010, h01=0x0050, text=»CIOLOD EQU *«, t00=0x0034, t01=0x0178}
0x52b8…52cc Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-4 «, t00=0x0034, t01=0x018c}
0x52cc…52ec Head {h00=0x001c, h01=0x0050, text=» ST A4,DWTSAV,A6 COUNTER«, t00=0x0035, t01=0x0010}
0x52ec…530e Head {h00=0x001e, h01=0x0050, text=» LDR A4,A6 GET DWT ADDRESS«, t00=0x0035, t01=0x0030}
0x530e…533c Head {h00=0x002a, h01=0x0050, text=» ADK A4,DWTCOP-2 CIO WORK AREA ADDRESS«, t00=0x0035, t01=0x0052}
0x533c…536a Head {h00=0x002a, h01=0x0050, text=» LDKL A8,BUFFER DRIVER BUFFFER ADDRESS«, t00=0x0035, t01=0x0080}
0x536a…5392 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTMAS,A6 GET BUFFER MASK«, t00=0x0035, t01=0x00ae}
0x5392…53b4 Head {h00=0x001e, h01=0x0050, text=» SRC A3,4 MASK IN POSITION«, t00=0x0035, t01=0x00d6}
0x53b4…53da Head {h00=0x0022, h01=0x0050, text=» LDK A7,0 USER BUFFER POINTER «, t00=0x0035, t01=0x00f8}
0x53da…540e Head {h00=0x0030, h01=0x0050, text=» LDKL A1,/4000+LOSECL PREPARE PARTIAL LENGTH«, t00=0x0035, t01=0x011e}
0x540e…5422 Head {h00=0x0010, h01=0x0050, text=» ST A1,6,A4 «, t00=0x0035, t01=0x0152}
0x5422…5436 Head {h00=0x0010, h01=0x0050, text=» ST A1,12,A4«, t00=0x0035, t01=0x0166}
0x5436…544a Head {h00=0x0010, h01=0x0050, text=» ST A1,18,A4«, t00=0x0035, t01=0x017a}
0x544a…5454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x018e}
0x5454…546a Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0036, t01=0x0008}
0x546a…5474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x001e}
0x5474…547e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0028}
0x547e…5492 Head {h00=0x0010, h01=0x0050, text=»CIOL10 EQU *«, t00=0x0036, t01=0x0032}
0x5492…54a4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0036, t01=0x0046}
0x54a4…54b6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,6 «, t00=0x0036, t01=0x0058}
0x54b6…54d4 Head {h00=0x001a, h01=0x0050, text=» IM DWTSAV,A6 COUNTER «, t00=0x0036, t01=0x006a}
0x54d4…54fa Head {h00=0x0022, h01=0x0050, text=» RF(Z) CIOL60 WORK AREA READY «, t00=0x0036, t01=0x0088}
0x54fa…550c Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0036, t01=0x00ae}
0x550c…5538 Head {h00=0x0028, h01=0x0050, text=» RF(NN) CIOL50 TO/FROM DRIVER BUFFER«, t00=0x0036, t01=0x00c0}
0x5538…5564 Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTTRA,A6 TRANSFER INDICATOR «, t00=0x0036, t01=0x00ec}
0x5564…5586 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CIOL55 NO TRANSFER«, t00=0x0036, t01=0x0118}
0x5586…5590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x013a}
0x5590…55b6 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 USER BUFFER POINTER«, t00=0x0036, t01=0x0144}
0x55b6…55e2 Head {h00=0x0028, h01=0x0050, text=» DA DWTBA,A6 GET USER BUFFER ADDRESS«, t00=0x0036, t01=0x016a}
0x55e2…5600 Head {h00=0x001a, h01=0x0050, text=» SLL A2,1 IN POSITION «, t00=0x0037, t01=0x0008}
0x5600…5632 Head {h00=0x002e, h01=0x0050, text=» ADK A7,LOSECL UPDATE USER BUFFER POINTER «, t00=0x0037, t01=0x0026}
0x5632…5644 Head {h00=0x000e, h01=0x0050, text=» RF CIOL58«, t00=0x0037, t01=0x0058}
0x5644…564e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x006a}
0x564e…5664 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0037, t01=0x0074}
0x5664…566e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x008a}
0x566e…5678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0094}
0x5678…568c Head {h00=0x0010, h01=0x0050, text=»CIOL50 EQU *«, t00=0x0037, t01=0x009e}
0x568c…56ac Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 DRIVER BUFFER«, t00=0x0037, t01=0x00b2}
0x56ac…56de Head {h00=0x002e, h01=0x0050, text=» ADKL A8,/100 UPDATE DRIVER BUFFERPOINTER «, t00=0x0037, t01=0x00d2}
0x56de…56f0 Head {h00=0x000e, h01=0x0050, text=» RF CIOL58«, t00=0x0037, t01=0x0104}
0x56f0…5704 Head {h00=0x0010, h01=0x0050, text=»CIOL55 EQU *«, t00=0x0037, t01=0x0116}
0x5704…572e Head {h00=0x0026, h01=0x0050, text=» LDKL A1,/C000+LOSECL NO TRANSFER «, t00=0x0037, t01=0x012a}
0x572e…5740 Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x0037, t01=0x0154}
0x5740…5754 Head {h00=0x0010, h01=0x0050, text=»CIOL58 EQU *«, t00=0x0037, t01=0x0166}
0x5754…5766 Head {h00=0x000e, h01=0x0050, text=» MS 2,2,A4«, t00=0x0037, t01=0x017a}
0x5766…5778 Head {h00=0x000e, h01=0x0050, text=» RB CIOL10«, t00=0x0037, t01=0x018c}
0x5778…578c Head {h00=0x0010, h01=0x0050, text=»CIOL60 EQU *«, t00=0x0038, t01=0x000e}
0x578c…57aa Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/8000+LOSECL «, t00=0x0038, t01=0x0022}
0x57aa…57d0 Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTCOP+16,A6 CLEAR BIT«, t00=0x0038, t01=0x0040}
0x57d0…57e8 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,PHSECL «, t00=0x0038, t01=0x0066}
0x57e8…5802 Head {h00=0x0016, h01=0x0050, text=» ST A1,DWTCOP+2,A6«, t00=0x0038, t01=0x007e}
0x5802…582e Head {h00=0x0028, h01=0x0050, text=» CM DWTTRA,A6 CLEAR NO TRANSFER FLAG«, t00=0x0038, t01=0x0098}
0x582e…5838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00c4}
0x5838…584e Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0038, t01=0x00ce}
0x584e…5858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e4}
0x5858…5862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ee}
0x5862…5894 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0038, t01=0x00f8}
0x5894…58c6 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0038, t01=0x012a}
0x58c6…58f8 Head {h00=0x002e, h01=0x0050, text=»* PUT SECTOR NUMBER * «, t00=0x0038, t01=0x015c}
0x58f8…592a Head {h00=0x002e, h01=0x0050, text=»* AND HEAD NUMBER IN POS. * «, t00=0x0038, t01=0x018e}
0x592a…595c Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0039, t01=0x0030}
0x595c…598e Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0039, t01=0x0062}
0x598e…5998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0094}
0x5998…59c2 Head {h00=0x0026, h01=0x0050, text=»* INPUT: PHYSICAL SECTOR NUMBER«, t00=0x0039, t01=0x009e}
0x59c2…59fe Head {h00=0x0038, h01=0x0050, text=»* OUTPUT: INTERLACED SECTOR NUMBER AND HEAD NUMBER«, t00=0x0039, t01=0x00c8}
0x59fe…5a26 Head {h00=0x0024, h01=0x0050, text=»* IN POSITION FOR CIO «, t00=0x0039, t01=0x0104}
0x5a26…5a3e Head {h00=0x0014, h01=0x0050, text=»* PERFORM SEEK«, t00=0x0039, t01=0x012c}
0x5a3e…5a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0144}
0x5a48…5a5e Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0039, t01=0x014e}
0x5a5e…5a8c Head {h00=0x002a, h01=0x0050, text=» ML 2,DWTSEC,A6 PHYSICAL SECTOR NUMBER«, t00=0x0039, t01=0x0164}
0x5a8c…5ab6 (58, 0, 400) Head {h00=0x0026, h01=0x0050, text=» DV DWTSPC,A4 SECTORS PER CYLINDER«, t00=0x003a, t01=0x0004}
0x5ab6…5aea Head {h00=0x0030, h01=0x0050, text=»* A1 = REST = HEAD NUMBER * SECTOR NUMBER «, t00=0x003a, t01=0x002e}
0x5aea…5b16 Head {h00=0x0028, h01=0x0050, text=»* A2 = QUOTIENT = CYLINDER NUMBER «, t00=0x003a, t01=0x0062}
0x5b16…5b3e Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 SAVE CYLINDER NUMBER «, t00=0x003a, t01=0x008e}
0x5b3e…5b50 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x003a, t01=0x00b6}
0x5b50…5b62 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003a, t01=0x00c8}
0x5b62…5b72 Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x003a, t01=0x00da}
0x5b72…5b90 Head {h00=0x001a, h01=0x0050, text=»* A1 = SECTOR NUMBER«, t00=0x003a, t01=0x00ea}
0x5b90…5bac Head {h00=0x0018, h01=0x0050, text=»* A2 = HEAD NUMBER«, t00=0x003a, t01=0x0108}
0x5bac…5bce Head {h00=0x001e, h01=0x0050, text=» ORKL A2,/800 INTERUPT BIT«, t00=0x003a, t01=0x0124}
0x5bce…5bf4 Head {h00=0x0022, h01=0x0050, text=» ST A2,DWTCOP,A6 COP WORK AREA«, t00=0x003a, t01=0x0146}
0x5bf4…5c14 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 SECTOR NUMBER«, t00=0x003a, t01=0x016c}
0x5c14…5c34 Head {h00=0x001c, h01=0x0050, text=» MUK INLACE INTERLACING «, t00=0x003a, t01=0x018c}
0x5c34…5c46 Head {h00=0x000e, h01=0x0050, text=» SRC A3,1 «, t00=0x003b, t01=0x001c}
0x5c46…5c70 Head {h00=0x0026, h01=0x0050, text=» RF(NN) CIOP10 EVEN CYLINDER NUMBE«, t00=0x003b, t01=0x002e}
0x5c70…5c8e Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x003b, t01=0x0058}
0x5c8e…5c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0076}
0x5c98…5cae Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x003b, t01=0x0080}
0x5cae…5cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0096}
0x5cb8…5cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00a0}
0x5cc2…5cd6 Head {h00=0x0010, h01=0x0050, text=»CIOP10 EQU *«, t00=0x003b, t01=0x00aa}
0x5cd6…5d12 Head {h00=0x0038, h01=0x0050, text=» DVK SEPRTR GET INTERLACED AND SKEWED SECTOR NUMBER «, t00=0x003b, t01=0x00be}
0x5d12…5d30 Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x003b, t01=0x00fa}
0x5d30…5d58 Head {h00=0x0024, h01=0x0050, text=» ORS A1,DWTCOP,A6 COP WORK AREA «, t00=0x003b, t01=0x0118}
0x5d58…5d8e Head {h00=0x0032, h01=0x0050, text=» SLC A3,1 RESTORE CYLINDER NUMBER IN POSITION «, t00=0x003b, t01=0x0140}
0x5d8e…5da4 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003b, t01=0x0176}
0x5da4…5dc6 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTSMD,A6 SMD FLAG «, t00=0x003b, t01=0x018c}
0x5dc6…5de6 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) CIOP20 SMD DRIVE«, t00=0x003c, t01=0x001e}
0x5de6…5e04 Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTOR,A6 INDEX «, t00=0x003c, t01=0x003e}
0x5e04…5e16 Head {h00=0x000e, h01=0x0050, text=» ANK A4,2 «, t00=0x003c, t01=0x005c}
0x5e16…5e28 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x003c, t01=0x006e}
0x5e28…5e3c Head {h00=0x0010, h01=0x0050, text=»CIOP20 EQU *«, t00=0x003c, t01=0x0080}
0x5e3c…5e54 Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A4«, t00=0x003c, t01=0x0094}
0x5e54…5e78 Head {h00=0x0020, h01=0x0050, text=» RF(E) CIOP50 SAME CYLINDER «, t00=0x003c, t01=0x00ac}
0x5e78…5ea6 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A4 SAVE CYLINDER NUMBER «, t00=0x003c, t01=0x00d0}
0x5ea6…5eb2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x00fe}
0x5eb2…5ec8 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003c, t01=0x010a}
0x5ec8…5ee0 Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A6«, t00=0x003c, t01=0x0120}
0x5ee0…5f04 Head {h00=0x0020, h01=0x0050, text=» RF(E) CIOP50 SAME CYLINDER «, t00=0x003c, t01=0x0138}
0x5f04…5f32 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A6 SAVE CYLINDER NUMBER «, t00=0x003c, t01=0x015c}
0x5f32…5f3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x018a}
0x5f3e…5f60 Head {h00=0x001e, h01=0x0050, text=» ADKL A3,SEEKCO SEEK ORDER«, t00=0x003d, t01=0x0008}
0x5f60…5f88 Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTSEK,A6 SEEK WORK AREA «, t00=0x003d, t01=0x002a}
0x5f88…5f92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0052}
0x5f92…5fa8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x003d, t01=0x005c}
0x5fa8…5fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0072}
0x5fb2…5fcc Head {h00=0x0016, h01=0x0050, text=»* SEEK CYLINDER «, t00=0x003d, t01=0x007c}
0x5fcc…5fd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0096}
0x5fd6…5fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00a0}
0x5fe0…5ffc Head {h00=0x0018, h01=0x0050, text=» LDK A4,RY3 RETRIES «, t00=0x003d, t01=0x00aa}
0x5ffc…6010 Head {h00=0x0010, h01=0x0050, text=»SE:010 EQU *«, t00=0x003d, t01=0x00c6}
0x6010…6034 Head {h00=0x0020, h01=0x0050, text=» CF A5,SEEK SEEK CYLINDER N «, t00=0x003d, t01=0x00da}
0x6034…6046 Head {h00=0x000e, h01=0x0050, text=» ANK A1,2 «, t00=0x003d, t01=0x00fe}
0x6046…606e Head {h00=0x0024, h01=0x0050, text=» RF(Z) CIOP50 OK. SEEK COMPLETED«, t00=0x003d, t01=0x0110}
0x606e…6084 Head {h00=0x0012, h01=0x0050, text=» IM DWTRE2,A6 «, t00=0x003d, t01=0x0138}
0x6084…60ae Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY-COUNTER «, t00=0x003d, t01=0x014e}
0x60ae…60ce Head {h00=0x001c, h01=0x0050, text=» RF(Z) SE:020 LAST RETRY«, t00=0x003d, t01=0x0178}
0x60ce…60d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0008}
0x60d8…60fc Head {h00=0x0020, h01=0x0050, text=» CF A5,SEEKZ SEEK CYLINDER 0«, t00=0x003e, t01=0x0012}
0x60fc…610e Head {h00=0x000e, h01=0x0050, text=» ANK A1,2 «, t00=0x003e, t01=0x0036}
0x610e…6138 Head {h00=0x0026, h01=0x0050, text=» RB(Z) SE:010 CYLINDER ZERO FOUND «, t00=0x003e, t01=0x0048}
0x6138…6142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0072}
0x6142…6156 Head {h00=0x0010, h01=0x0050, text=»SE:020 EQU *«, t00=0x003e, t01=0x007c}
0x6156…617a Head {h00=0x0020, h01=0x0050, text=» RF END:SE SEEK ERROR END IO«, t00=0x003e, t01=0x0090}
0x617a…618e Head {h00=0x0010, h01=0x0050, text=»CIOP50 EQU *«, t00=0x003e, t01=0x00b4}
0x618e…619e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003e, t01=0x00c8}
0x619e…61a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00d8}
0x61a8…61be Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x003e, t01=0x00e2}
0x61be…61c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00f8}
0x61c8…61d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0102}
0x61d2…6200 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x003e, t01=0x010c}
0x6200…622e Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x003e, t01=0x013a}
0x622e…625c Head {h00=0x002a, h01=0x0050, text=»* SUBROUTINE UPDATE * «, t00=0x003e, t01=0x0168}
0x625c…628a Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x003f, t01=0x0008}
0x628a…62b8 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x003f, t01=0x0036}
0x62b8…62c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0064}
0x62c2…6302 Head {h00=0x003c, h01=0x0050, text=»* UPDATES : DWTBSE PRESENT SECTORS IN DRIVER BUFFER «, t00=0x003f, t01=0x006e}
0x6302…6346 Head {h00=0x0040, h01=0x0050, text=»* DWTLOS NUMBER OF LOGICAL SECTORS LEFT IN IO «, t00=0x003f, t01=0x00ae}
0x6346…6378 Head {h00=0x002e, h01=0x0050, text=»* DWTBA USER BUFFER POINTER«, t00=0x003f, t01=0x00f2}
0x6378…63ae Head {h00=0x0032, h01=0x0050, text=»* DWTSEC PHYSICAL SECTOR POINTER«, t00=0x003f, t01=0x0124}
0x63ae…63de Head {h00=0x002c, h01=0x0050, text=»* ECBEL EFFECTIVE LENGTH «, t00=0x003f, t01=0x015a}
0x63de…63e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x018a}
0x63e8…63fc (64, 0, 400) Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0040, t01=0x0004}
0x63fc…640e Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0040, t01=0x0018}
0x640e…6436 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTMAS,A6 GET SECTOR MASK«, t00=0x0040, t01=0x002a}
0x6436…6454 Head {h00=0x001a, h01=0x0050, text=» C1R A3,A3 COMPLIMENT «, t00=0x0040, t01=0x0052}
0x6454…646c Head {h00=0x0014, h01=0x0050, text=» ANK A3,7 3 BITS«, t00=0x0040, t01=0x0070}
0x646c…648e Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTOR,A6 GET INDEX «, t00=0x0040, t01=0x0088}
0x648e…64b0 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/300 UNIT NUMBER «, t00=0x0040, t01=0x00aa}
0x64b0…64d4 Head {h00=0x0020, h01=0x0050, text=» DA DWTSEC,A6 SECTOR NUMBER «, t00=0x0040, t01=0x00cc}
0x64d4…64f0 Head {h00=0x0018, h01=0x0050, text=» MS 3,DWTBSE,A6 SAVE«, t00=0x0040, t01=0x00f0}
0x64f0…6504 Head {h00=0x0010, h01=0x0050, text=»UPDAT EQU * «, t00=0x0040, t01=0x010c}
0x6504…652c Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTMAS,A6 GET SECTOR MASK«, t00=0x0040, t01=0x0120}
0x652c…653e Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0040, t01=0x0148}
0x653e…6550 Head {h00=0x000e, h01=0x0050, text=» SRC A1,3 «, t00=0x0040, t01=0x015a}
0x6550…6564 Head {h00=0x0010, h01=0x0050, text=»UPDA00 EQU *«, t00=0x0040, t01=0x016c}
0x6564…6594 Head {h00=0x002c, h01=0x0050, text=» RF(NN) UPDA10 IO TO/FROM DRIVER BUFFER «, t00=0x0040, t01=0x0180}
0x6594…65c2 Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 NUMBER OF SECTORS IN LAST IO«, t00=0x0041, t01=0x0020}
0x65c2…65d6 Head {h00=0x0010, h01=0x0050, text=»UPDA10 EQU *«, t00=0x0041, t01=0x004e}
0x65d6…65e8 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0041, t01=0x0062}
0x65e8…660c Head {h00=0x0020, h01=0x0050, text=» RB(NZ) UPDA00 MORE SECTORS «, t00=0x0041, t01=0x0074}
0x660c…6616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0098}
0x6616…662c Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0041, t01=0x00a2}
0x662c…6636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00b8}
0x6636…6640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00c2}
0x6640…6666 Head {h00=0x0022, h01=0x0050, text=» LD A3,DWTLOS,A6 UPDATE DWTLOS«, t00=0x0041, t01=0x00cc}
0x6666…6678 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A2«, t00=0x0041, t01=0x00f2}
0x6678…6690 Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTLOS,A6«, t00=0x0041, t01=0x0104}
0x6690…66ae Head {h00=0x001a, h01=0x0050, text=» SLL A2,7 UPDATE DWTBA«, t00=0x0041, t01=0x011c}
0x66ae…66cc Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 SAVE LENGTH«, t00=0x0041, t01=0x013a}
0x66cc…66e0 Head {h00=0x0010, h01=0x0050, text=» DA DWTBA,A6«, t00=0x0041, t01=0x0158}
0x66e0…66f6 Head {h00=0x0012, h01=0x0050, text=» MS 2,DWTBA,A6«, t00=0x0041, t01=0x016c}
0x66f6…6708 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0041, t01=0x0182}
0x6708…671a (66, 0, 400) Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0042, t01=0x0004}
0x671a…6732 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTTRA,A6«, t00=0x0042, t01=0x0016}
0x6732…6760 Head {h00=0x002a, h01=0x0050, text=» RF(Z) UPDA50 UPDATE EFFECTIVE LENGTH «, t00=0x0042, t01=0x002e}
0x6760…6782 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0042, t01=0x005c}
0x6782…6796 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x0042, t01=0x007e}
0x6796…67ac Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPDA60«, t00=0x0042, t01=0x0092}
0x67ac…67b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x00a8}
0x67b8…67c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00b4}
0x67c2…67d8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0042, t01=0x00be}
0x67d8…67e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00d4}
0x67e2…67ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00de}
0x67ec…6800 Head {h00=0x0010, h01=0x0050, text=»UPDA50 EQU *«, t00=0x0042, t01=0x00e8}
0x6800…6818 Head {h00=0x0014, h01=0x0050, text=» ADS A3,ECBEL,A8«, t00=0x0042, t01=0x00fc}
0x6818…682c Head {h00=0x0010, h01=0x0050, text=»UPDA60 EQU *«, t00=0x0042, t01=0x0114}
0x682c…6836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0128}
0x6836…6848 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0042, t01=0x0132}
0x6848…685a Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0042, t01=0x0144}
0x685a…6870 Head {h00=0x0012, h01=0x0050, text=» DA DWTSEC,A6 «, t00=0x0042, t01=0x0156}
0x6870…6888 Head {h00=0x0014, h01=0x0050, text=» MS 2,DWTSEC,A6 «, t00=0x0042, t01=0x016c}
0x6888…6892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0184}
0x6892…68a2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0042, t01=0x018e}
0x68a2…68b8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0043, t01=0x000e}
0x68b8…68c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0024}
0x68c2…68cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x002e}
0x68cc…6900 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0043, t01=0x0038}
0x6900…6934 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x0043, t01=0x006c}
0x6934…6968 Head {h00=0x0030, h01=0x0050, text=»* SUBROUTINE MASKPR * «, t00=0x0043, t01=0x00a0}
0x6968…699c Head {h00=0x0030, h01=0x0050, text=»* SET BITS FOR LOGICAL * «, t00=0x0043, t01=0x00d4}
0x699c…69d0 Head {h00=0x0030, h01=0x0050, text=»* SECTORS IN PHYSICAL * «, t00=0x0043, t01=0x0108}
0x69d0…6a04 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x0043, t01=0x013c}
0x6a04…6a38 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0043, t01=0x0170}
0x6a38…6a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0014}
0x6a42…6a66 Head {h00=0x0020, h01=0x0050, text=»* A1 = POSITION IN SECTOR «, t00=0x0044, t01=0x001e}
0x6a66…6a8c Head {h00=0x0022, h01=0x0050, text=»* DWTLOS = NUMBER OF SECTORS«, t00=0x0044, t01=0x0042}
0x6a8c…6a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0068}
0x6a96…6aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0072}
0x6aa0…6ab4 Head {h00=0x0010, h01=0x0050, text=»MASK00 EQU *«, t00=0x0044, t01=0x007c}
0x6ab4…6ac6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0044, t01=0x0090}
0x6ac6…6ada Head {h00=0x0010, h01=0x0050, text=»MASKPR EQU *«, t00=0x0044, t01=0x00a2}
0x6ada…6b04 Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTLOS,A6 NUMBER OF SECTORS«, t00=0x0044, t01=0x00b6}
0x6b04…6b16 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0044, t01=0x00e0}
0x6b16…6b30 Head {h00=0x0016, h01=0x0050, text=» LDK A3,4 1 0 0 «, t00=0x0044, t01=0x00f2}
0x6b30…6b5a Head {h00=0x0026, h01=0x0050, text=» RF(N) MASK10 1 SECTOR LEFT IN IO «, t00=0x0044, t01=0x010c}
0x6b5a…6b74 Head {h00=0x0016, h01=0x0050, text=» LDK A3,6 1 1 0 «, t00=0x0044, t01=0x0136}
0x6b74…6b9e Head {h00=0x0026, h01=0x0050, text=» RF(Z) MASK10 2 SECTORS LEFT IN IO«, t00=0x0044, t01=0x0150}
0x6b9e…6bb8 Head {h00=0x0016, h01=0x0050, text=» LDK A3,7 1 1 1 «, t00=0x0044, t01=0x017a}
0x6bb8…6bcc (69, 0, 400) Head {h00=0x0010, h01=0x0050, text=»MASK10 EQU *«, t00=0x0045, t01=0x0004}
0x6bcc…6bde Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0045, t01=0x0018}
0x6bde…6bfc Head {h00=0x001a, h01=0x0050, text=» RF(Z) MASK20 0 1 0 «, t00=0x0045, t01=0x002a}
0x6bfc…6c1a Head {h00=0x001a, h01=0x0050, text=» RF(N) MASK30 1 0 0 «, t00=0x0045, t01=0x0048}
0x6c1a…6c34 Head {h00=0x0016, h01=0x0050, text=» SRL A3,1 0 0 1 «, t00=0x0045, t01=0x0066}
0x6c34…6c48 Head {h00=0x0010, h01=0x0050, text=»MASK20 EQU *«, t00=0x0045, t01=0x0080}
0x6c48…6c5a Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0045, t01=0x0094}
0x6c5a…6c6e Head {h00=0x0010, h01=0x0050, text=»MASK30 EQU *«, t00=0x0045, t01=0x00a6}
0x6c6e…6c90 Head {h00=0x001e, h01=0x0050, text=» ST A3,DWTMAS,A6 SAVE MASK«, t00=0x0045, t01=0x00ba}
0x6c90…6ca0 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0045, t01=0x00dc}
0x6ca0…6caa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00ec}
0x6caa…6cc0 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0045, t01=0x00f6}
0x6cc0…6cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x010c}
0x6cca…6cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0116}
0x6cd4…6cf6 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0045, t01=0x0120}
0x6cf6…6d18 Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x0045, t01=0x0142}
0x6d18…6d3a Head {h00=0x001e, h01=0x0050, text=»* PERFORM END IO * «, t00=0x0045, t01=0x0164}
0x6d3a…6d5c Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x0045, t01=0x0186}
0x6d5c…6d7e Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0046, t01=0x0018}
0x6d7e…6d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x003a}
0x6d88…6da8 Head {h00=0x001c, h01=0x0050, text=»END:SE EQU * SEEK ERROR «, t00=0x0046, t01=0x0044}
0x6da8…6dbe Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0046, t01=0x0064}
0x6dbe…6dd4 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x0046, t01=0x007a}
0x6dd4…6e02 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A6 DUMMY CYLINDER NUMBER«, t00=0x0046, t01=0x0090}
0x6e02…6e0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x00be}
0x6e0e…6e24 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0046, t01=0x00ca}
0x6e24…6e3a Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0046, t01=0x00e0}
0x6e3a…6e52 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTSMD,A6«, t00=0x0046, t01=0x00f6}
0x6e52…6e72 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) END:S1 SMD DRIVE«, t00=0x0046, t01=0x010e}
0x6e72…6e8a Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTOR,A6 «, t00=0x0046, t01=0x012e}
0x6e8a…6e9c Head {h00=0x000e, h01=0x0050, text=» ANK A4,2 «, t00=0x0046, t01=0x0146}
0x6e9c…6eae Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0046, t01=0x0158}
0x6eae…6ec2 Head {h00=0x0010, h01=0x0050, text=»END:S1 EQU *«, t00=0x0046, t01=0x016a}
0x6ec2…6ed8 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x0046, t01=0x017e}
0x6ed8…6f06 (71, 0, 400) Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A4 DUMMY CYLINDER NUMBER«, t00=0x0047, t01=0x0004}
0x6f06…6f12 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0032}
0x6f12…6f26 Head {h00=0x0010, h01=0x0050, text=»END:00 EQU *«, t00=0x0047, t01=0x003e}
0x6f26…6f3e Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTRE2,A6«, t00=0x0047, t01=0x0052}
0x6f3e…6f56 Head {h00=0x0014, h01=0x0050, text=» CW A2,DWTRE1,A6«, t00=0x0047, t01=0x006a}
0x6f56…6f6c Head {h00=0x0012, h01=0x0050, text=» RF(E) END:IO «, t00=0x0047, t01=0x0082}
0x6f6c…6f9c Head {h00=0x002c, h01=0x0050, text=» ST A2,DWTRE1,A6 GRAND TOTAL OF RETRIES «, t00=0x0047, t01=0x0098}
0x6f9c…6fc4 Head {h00=0x0024, h01=0x0050, text=» ORKL A1,/100 RETRIES PERFORMED «, t00=0x0047, t01=0x00c8}
0x6fc4…6fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00f0}
0x6fce…6fe2 Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0047, t01=0x00fa}
0x6fe2…7008 Head {h00=0x0022, h01=0x0050, text=» CF A15,TENDIO PERFORM TENDIO «, t00=0x0047, t01=0x010e}
0x7008…701c Head {h00=0x0010, h01=0x0050, text=»T:DISP EQU *«, t00=0x0047, t01=0x0134}
0x701c…702e Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0047, t01=0x0148}
0x702e…7042 Head {h00=0x0010, h01=0x0050, text=»END:30 EQU *«, t00=0x0047, t01=0x015a}
0x7042…7054 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0047, t01=0x016e}
0x7054…7084 Head {h00=0x002c, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE RECOVERY DONE «, t00=0x0047, t01=0x0180}
0x7084…7096 Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0048, t01=0x0020}
0x7096…70a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0032}
0x70a0…70b6 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0048, t01=0x003c}
0x70b6…70c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0052}
0x70c0…70ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x005c}
0x70ca…70e8 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0048, t01=0x0066}
0x70e8…7106 Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x0048, t01=0x0084}
0x7106…7124 Head {h00=0x001a, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0048, t01=0x00a2}
0x7124…7142 Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x0048, t01=0x00c0}
0x7142…7160 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0048, t01=0x00de}
0x7160…716a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00fc}
0x716a…7174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0106}
0x7174…7186 Head {h00=0x000e, h01=0x0050, text=»CDON EQU *«, t00=0x0048, t01=0x0110}
0x7186…719c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0048, t01=0x0122}
0x719c…71c6 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0048, t01=0x0138}
0x71c6…71d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x0162}
0x71d2…71dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x016e}
0x71dc…71f2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0048, t01=0x0178}
0x71f2…7218 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0048, t01=0x018e}
0x7218…7224 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0024}
0x7224…722e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0030}
0x722e…7246 Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWCD01 «, t00=0x0049, t01=0x003a}
0x7246…726c Head {h00=0x0022, h01=0x0050, text=» LDK A5,DWTSB3 GET STACK BASE «, t00=0x0049, t01=0x0052}
0x726c…727e Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0049, t01=0x0078}
0x727e…7292 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0049, t01=0x008a}
0x7292…72bc Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTSAV,A6 INDICATE RECOVERY«, t00=0x0049, t01=0x009e}
0x72bc…72f0 Head {h00=0x0030, h01=0x0050, text=» LDKL A1,/7FFE SET UNIT BUSY AND RECOVERY ON«, t00=0x0049, t01=0x00c8}
0x72f0…730a Head {h00=0x0016, h01=0x0050, text=» ANS A1,DWTST,A6 «, t00=0x0049, t01=0x00fc}
0x730a…7332 Head {h00=0x0024, h01=0x0050, text=» CM DWTSMD,A6 INDICATE CMD DRIVE«, t00=0x0049, t01=0x0116}
0x7332…735c Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG INITIALIZATION FLAG «, t00=0x0049, t01=0x013e}
0x735c…7380 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) CDON05 NOT POWER UP «, t00=0x0049, t01=0x0168}
0x7380…738a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x018c}
0x738a…73a0 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x004a, t01=0x0008}
0x73a0…73aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x001e}
0x73aa…73b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0028}
0x73b4…73ca Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x004a, t01=0x0032}
0x73ca…73e8 Head {h00=0x001a, h01=0x0050, text=» CM DWTOR,A6 1ST UNIT «, t00=0x004a, t01=0x0048}
0x73e8…740e Head {h00=0x0022, h01=0x0050, text=» CF A5,SEEKZ TEST IF OPERABLE «, t00=0x004a, t01=0x0066}
0x740e…7420 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x004a, t01=0x008c}
0x7420…7444 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) CDON80 NOT OPERABLE «, t00=0x004a, t01=0x009e}
0x7444…7456 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x004a, t01=0x00c2}
0x7456…7476 Head {h00=0x001c, h01=0x0050, text=» SC A1,DWTOR,A6 2ND UNIT«, t00=0x004a, t01=0x00d4}
0x7476…7482 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x00f4}
0x7482…74a8 Head {h00=0x0022, h01=0x0050, text=» CF A5,SEEKZ TEST IF OPERABLE «, t00=0x004a, t01=0x0100}
0x74a8…74ba Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x004a, t01=0x0126}
0x74ba…74de Head {h00=0x0020, h01=0x0050, text=» RF(NZ) CDON80 NOT OPERABLE «, t00=0x004a, t01=0x0138}
0x74de…74e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x015c}
0x74e8…7500 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCD02 «, t00=0x004a, t01=0x0166}
0x7500…750a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x017e}
0x750a…7514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0188}
0x7514…7528 (75, 0, 398) Head {h00=0x0010, h01=0x0050, text=»CDON05 EQU *«, t00=0x004b, t01=0x0004}
0x7528…7546 Head {h00=0x001a, h01=0x0050, text=» CM DWTOR,A6 1ST UNIT «, t00=0x004b, t01=0x0018}
0x7546…755c Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x004b, t01=0x0036}
0x755c…7576 Head {h00=0x0016, h01=0x0050, text=» LDK A1,1 2ND UNIT«, t00=0x004b, t01=0x004c}
0x7576…758e Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x004b, t01=0x0066}
0x758e…75a4 Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x004b, t01=0x007e}
0x75a4…75ba Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x004b, t01=0x0094}
0x75ba…75cc Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x004b, t01=0x00aa}
0x75cc…75e4 Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x004b, t01=0x00bc}
0x75e4…7604 Head {h00=0x001c, h01=0x0050, text=» CF A5,VO:NAM 3RD VOLUME«, t00=0x004b, t01=0x00d4}
0x7604…7616 Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x004b, t01=0x00f4}
0x7616…762e Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x004b, t01=0x0106}
0x762e…764e Head {h00=0x001c, h01=0x0050, text=» CF A5,VO:NAM 4TH VOLUME«, t00=0x004b, t01=0x011e}
0x764e…765a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x013e}
0x765a…7664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x014a}
0x7664…767a Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x004b, t01=0x0154}
0x767a…7684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x016a}
0x7684…768e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0174}
0x768e…76a2 Head {h00=0x0010, h01=0x0050, text=»CDON30 EQU *«, t00=0x004b, t01=0x017e}
0x76a2…76d2 (76, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x004c, t01=0x0004}
0x76d2…76f6 Head {h00=0x0020, h01=0x0050, text=» CM DWTSAV,A6 RECOVERY DONE «, t00=0x004c, t01=0x0034}
0x76f6…7700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0058}
0x7700…7728 Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x004c, t01=0x0062}
0x7728…774c Head {h00=0x0020, h01=0x0050, text=» RB(Z) END:IO NO REQUEST ON «, t00=0x004c, t01=0x008a}
0x774c…7756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00ae}
0x7756…777e Head {h00=0x0024, h01=0x0050, text=»CDON40 LD A7,DWTORD,A6 GET ORDER«, t00=0x004c, t01=0x00b8}
0x777e…77ae Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x004c, t01=0x00e0}
0x77ae…77c2 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x004c, t01=0x0110}
0x77c2…77cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0124}
0x77cc…77f8 Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x004c, t01=0x012e}
0x77f8…7818 Head {h00=0x001c, h01=0x0050, text=» ABL CDAD REPEAT REQUEST«, t00=0x004c, t01=0x015a}
0x7818…7822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x017a}
0x7822…783a Head {h00=0x0014, h01=0x0050, text=» EJECT DRCD02 «, t00=0x004c, t01=0x0184}
0x783a…7844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x000c}
0x7844…7860 Head {h00=0x0018, h01=0x0050, text=»* READY INTERRUPT«, t00=0x004d, t01=0x0016}
0x7860…786a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0032}
0x786a…7884 Head {h00=0x0016, h01=0x0050, text=»CDREDY LD A1,TIMER«, t00=0x004d, t01=0x003c}
0x7884…78aa Head {h00=0x0022, h01=0x0050, text=» RF(Z) CDON95 NO TIMER ACTIVE «, t00=0x004d, t01=0x0056}
0x78aa…78b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x007c}
0x78b4…78ca Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x004d, t01=0x0086}
0x78ca…78e8 Head {h00=0x001a, h01=0x0050, text=» CM* TIMER KILL TIMER «, t00=0x004d, t01=0x009c}
0x78e8…78fa Head {h00=0x000e, h01=0x0050, text=» RF CDON90«, t00=0x004d, t01=0x00ba}
0x78fa…7906 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00cc}
0x7906…7910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00d8}
0x7910…7926 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x004d, t01=0x00e2}
0x7926…7946 Head {h00=0x001c, h01=0x0050, text=» RB T:DISP TIMER ACTIVE «, t00=0x004d, t01=0x00f8}
0x7946…7952 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x0118}
0x7952…795c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0124}
0x795c…7974 Head {h00=0x0014, h01=0x0050, text=» EJECT DRCD02 «, t00=0x004d, t01=0x012e}
0x7974…797e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0146}
0x797e…7988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0150}
0x7988…799c Head {h00=0x0010, h01=0x0050, text=»CDON80 EQU *«, t00=0x004d, t01=0x015a}
0x799c…79c8 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,TIMER TIMER POINTER ADDRESS«, t00=0x004d, t01=0x016e}
0x79c8…79dc Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x004e, t01=0x000a}
0x79dc…7a02 Head {h00=0x0022, h01=0x0050, text=» RF(Z) CDON85 NO TIMER ACTIVE «, t00=0x004e, t01=0x001e}
0x7a02…7a18 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,-TIME«, t00=0x004e, t01=0x0044}
0x7a18…7a38 Head {h00=0x001c, h01=0x0050, text=» STR A1,A3 RESTART TIMER«, t00=0x004e, t01=0x005a}
0x7a38…7a4a Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x004e, t01=0x007a}
0x7a4a…7a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x008c}
0x7a54…7a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0096}
0x7a5e…7a86 Head {h00=0x0024, h01=0x0050, text=»CDON85 CF A15,SETIMP START TIMER«, t00=0x004e, t01=0x00a0}
0x7a86…7ab6 Head {h00=0x002c, h01=0x0050, text=» DATA CDON90,TIME TIME OUT ADDRESS, TIME«, t00=0x004e, t01=0x00c8}
0x7ab6…7ac8 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x004e, t01=0x00f8}
0x7ac8…7ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x010a}
0x7ad2…7ae6 Head {h00=0x0010, h01=0x0050, text=»* TIME OUT«, t00=0x004e, t01=0x0114}
0x7ae6…7af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0128}
0x7af0…7b0e Head {h00=0x001a, h01=0x0050, text=»CDON90 LDKL A6,DWCD01 «, t00=0x004e, t01=0x0132}
0x7b0e…7b20 Head {h00=0x000e, h01=0x0050, text=» CM TIMER «, t00=0x004e, t01=0x0150}
0x7b20…7b34 Head {h00=0x0010, h01=0x0050, text=»CDON95 EQU *«, t00=0x004e, t01=0x0162}
0x7b34…7b68 Head {h00=0x0030, h01=0x0050, text=» LDKL A1,/7FFE SET UNIT BUSY AND RECOVERY ON«, t00=0x004e, t01=0x0176}
0x7b68…7b82 Head {h00=0x0016, h01=0x0050, text=» ANS A1,DWTST,A6 «, t00=0x004f, t01=0x001a}
0x7b82…7b96 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x004f, t01=0x0034}
0x7b96…7bc0 Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTSAV,A6 INDICATE RECOVERY«, t00=0x004f, t01=0x0048}
0x7bc0…7be6 Head {h00=0x0022, h01=0x0050, text=» LDK A5,DWTSB3 GET STACK BASE «, t00=0x004f, t01=0x0072}
0x7be6…7bf8 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x004f, t01=0x0098}
0x7bf8…7c0a Head {h00=0x000e, h01=0x0050, text=» RB CDON05«, t00=0x004f, t01=0x00aa}
0x7c0a…7c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00bc}
0x7c14…7c2a Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x004f, t01=0x00c6}
0x7c2a…7c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00dc}
0x7c34…7c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00e6}
0x7c3e…7c5e Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x004f, t01=0x00f0}
0x7c5e…7c7e Head {h00=0x001c, h01=0x0050, text=»* * «, t00=0x004f, t01=0x0110}
0x7c7e…7c9e Head {h00=0x001c, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x004f, t01=0x0130}
0x7c9e…7cbe Head {h00=0x001c, h01=0x0050, text=»* * «, t00=0x004f, t01=0x0150}
0x7cbe…7cde Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x004f, t01=0x0170}
0x7cde…7ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0190}
0x7ce8…7cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x000a}
0x7cf2…7d38 Head {h00=0x0042, h01=0x0050, text=»* OUTPUT BIT 1 12 13 14 15 «, t00=0x0050, t01=0x0014}
0x7d38…7d4e Head {h00=0x0012, h01=0x0050, text=»* INPUT BIT «, t00=0x0050, t01=0x005a}
0x7d4e…7d78 Head {h00=0x0026, h01=0x0050, text=»* 1 READY AFTER UNREADY «, t00=0x0050, t01=0x0070}
0x7d78…7db4 Head {h00=0x0038, h01=0x0050, text=»* 2 BAD TRACK FLAG X X«, t00=0x0050, t01=0x009a}
0x7db4…7df6 Head {h00=0x003e, h01=0x0050, text=»* 4 RECORD NOT FOUND X«, t00=0x0050, t01=0x00d6}
0x7df6…7e38 Head {h00=0x003e, h01=0x0050, text=»* 6 SEEK ERROR X«, t00=0x0050, t01=0x0118}
0x7e38…7e5a Head {h00=0x001e, h01=0x0050, text=»* 9 DRIVE NUMBER«, t00=0x0050, t01=0x015a}
0x7e5a…7e96 Head {h00=0x0038, h01=0x0050, text=»* 12 INCORRECT LENGTH X«, t00=0x0050, t01=0x017c}
0x7e96…7ed6 Head {h00=0x003c, h01=0x0050, text=»* 13 PARITY ERROR X «, t00=0x0051, t01=0x0028}
0x7ed6…7f18 Head {h00=0x003e, h01=0x0050, text=»* 14 THROUGHPUT ERROR X«, t00=0x0051, t01=0x0068}
0x7f18…7f5e Head {h00=0x0042, h01=0x0050, text=»* 15 NOT OPERABLE X «, t00=0x0051, t01=0x00aa}
0x7f5e…7f68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00f0}
0x7f68…7f7a Head {h00=0x000e, h01=0x0050, text=»IHCD EQU *«, t00=0x0051, t01=0x00fa}
0x7f7a…7fa2 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0051, t01=0x010c}
0x7fa2…7fcc Head {h00=0x0026, h01=0x0050, text=» MSR 8,A15 SAVE REGISTERS ON STACK«, t00=0x0051, t01=0x0134}
0x7fcc…7ff0 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWCD01 DWT ADDRESS «, t00=0x0051, t01=0x015e}
0x7ff0…8010 Head {h00=0x001c, h01=0x0050, text=» SST A1,CUADR GET STATUS«, t00=0x0051, t01=0x0182}
0x8010…8022 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0052, t01=0x0012}
0x8022…803e Head {h00=0x0018, h01=0x0050, text=» ANK A1,/F KEEP BITS«, t00=0x0052, t01=0x0024}
0x803e…8050 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0052, t01=0x0040}
0x8050…8076 Head {h00=0x0022, h01=0x0050, text=» RB(N) CDREDY READY INTERRUPT «, t00=0x0052, t01=0x0052}
0x8076…8088 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0052, t01=0x0078}
0x8088…80b2 Head {h00=0x0026, h01=0x0050, text=» RF(NN) IHCD40 NOT BAD TRACK FLAG «, t00=0x0052, t01=0x008a}
0x80b2…80e0 Head {h00=0x002a, h01=0x0050, text=» ORKL A1,/4004 INDICATE BAD TRACK FLAG«, t00=0x0052, t01=0x00b4}
0x80e0…80ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00e2}
0x80ea…8100 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0052, t01=0x00ec}
0x8100…810a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0102}
0x810a…8114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x010c}
0x8114…8128 Head {h00=0x0010, h01=0x0050, text=»IHCD40 EQU *«, t00=0x0052, t01=0x0116}
0x8128…813e Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/2800«, t00=0x0052, t01=0x012a}
0x813e…8154 Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHCD50 «, t00=0x0052, t01=0x0140}
0x8154…8166 Head {h00=0x000e, h01=0x0050, text=» ORK A1,2 «, t00=0x0052, t01=0x0156}
0x8166…817a Head {h00=0x0010, h01=0x0050, text=»IHCD50 EQU *«, t00=0x0052, t01=0x0168}
0x817a…81a2 Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0052, t01=0x017c}
0x81a2…81c0 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A1 RETURN CODE«, t00=0x0053, t01=0x0014}
0x81c0…81d8 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSAV,A6«, t00=0x0053, t01=0x0032}
0x81d8…81fe Head {h00=0x0022, h01=0x0050, text=» RF(NZ) IHCD70 VO:NAM CALLING «, t00=0x0053, t01=0x004a}
0x81fe…8210 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0053, t01=0x0070}
0x8210…8234 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) END:IO NOT OPERABLE«, t00=0x0053, t01=0x0082}
0x8234…8248 Head {h00=0x0010, h01=0x0050, text=»IHCD70 EQU *«, t00=0x0053, t01=0x00a6}
0x8248…8272 Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTA5,A6 GET STACK POINTER «, t00=0x0053, t01=0x00ba}
0x8272…829c Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTA4,A6 GET RETRY COUNTER «, t00=0x0053, t01=0x00e4}
0x829c…82ac Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0053, t01=0x010e}
0x82ac…82b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x011e}
0x82b6…82cc Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0053, t01=0x0128}
0x82cc…82d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x013e}
0x82d6…82e8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0053, t01=0x0148}
0x82e8…82fa Head {h00=0x000e, h01=0x0050, text=»* VO:NAM *«, t00=0x0053, t01=0x015a}
0x82fa…830c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0053, t01=0x016c}
0x830c…8316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x017e}
0x8316…8320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0188}
0x8320…8334 (84, 0, 400) Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0054, t01=0x0004}
0x8334…8348 Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEKZ«, t00=0x0054, t01=0x0018}
0x8348…835a Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0054, t01=0x002c}
0x835a…8376 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) VO:NA7 ERROR«, t00=0x0054, t01=0x003e}
0x8376…8384 Head {h00=0x000a, h01=0x0050, text=» MLK 3«, t00=0x0054, t01=0x005a}
0x8384…83b2 Head {h00=0x002a, h01=0x0050, text=» DATA /800,PHSECL,/4000+LOSECL+LOSECL «, t00=0x0054, t01=0x0068}
0x83b2…83e0 Head {h00=0x002a, h01=0x0050, text=» MS 3,DWTCOP,A6 PREPARE CIO WORK AREA «, t00=0x0054, t01=0x0096}
0x83e0…83ee Head {h00=0x000a, h01=0x0050, text=» MLK 3«, t00=0x0054, t01=0x00c4}
0x83ee…8412 Head {h00=0x0020, h01=0x0050, text=» DATA 0,BUFFER,/8000+LOSECL «, t00=0x0054, t01=0x00d2}
0x8412…842c Head {h00=0x0016, h01=0x0050, text=» MS 3,DWTCOP+6,A6 «, t00=0x0054, t01=0x00f6}
0x842c…8460 Head {h00=0x0030, h01=0x0050, text=» CF A5,READ00 READ SECTOR 0 TO DRIVER BUFFER«, t00=0x0054, t01=0x0110}
0x8460…848e Head {h00=0x002a, h01=0x0050, text=» CM DWTBSE+4,A6 CLEAR IN CASE OF ERROR«, t00=0x0054, t01=0x0144}
0x848e…84a0 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0054, t01=0x0172}
0x84a0…84bc Head {h00=0x0018, h01=0x0050, text=» RF(NZ) VO:NA7 ERROR«, t00=0x0054, t01=0x0184}
0x84bc…84d4 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x0055, t01=0x0010}
0x84d4…84f6 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/300 UNIT NUMBER «, t00=0x0055, t01=0x0028}
0x84f6…8508 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0055, t01=0x004a}
0x8508…851a Head {h00=0x000e, h01=0x0050, text=» LDK A3,6 «, t00=0x0055, t01=0x005c}
0x851a…8550 Head {h00=0x0032, h01=0x0050, text=» MS 3,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR«, t00=0x0055, t01=0x006e}
0x8550…8568 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x0055, t01=0x00a4}
0x8568…8586 Head {h00=0x001a, h01=0x0050, text=» LDK A3,/FC FILE CODE «, t00=0x0055, t01=0x00bc}
0x8586…859e Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTSAV,A6«, t00=0x0055, t01=0x00da}
0x859e…85b4 Head {h00=0x0012, h01=0x0050, text=» RF(N) VO:NA5 «, t00=0x0055, t01=0x00f2}
0x85b4…85e0 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,/80FC INDICATE TEST STATUS «, t00=0x0055, t01=0x0108}
0x85e0…85f4 Head {h00=0x0010, h01=0x0050, text=»VO:NA5 EQU *«, t00=0x0055, t01=0x0134}
0x85f4…861e Head {h00=0x0026, h01=0x0050, text=» CF A15,VOLGET VOLUME NAME TO DWT «, t00=0x0055, t01=0x0148}
0x861e…8628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0172}
0x8628…863e Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0055, t01=0x017c}
0x863e…8648 (86, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0004}
0x8648…8652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x000e}
0x8652…8676 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0056, t01=0x0018}
0x8676…8698 Head {h00=0x001e, h01=0x0050, text=» LDK A3,0 CYLINDER NUMBER «, t00=0x0056, t01=0x003c}
0x8698…86aa Head {h00=0x000e, h01=0x0050, text=» RF VO:NA8«, t00=0x0056, t01=0x005e}
0x86aa…86be Head {h00=0x0010, h01=0x0050, text=»VO:NA7 EQU *«, t00=0x0056, t01=0x0070}
0x86be…86e0 Head {h00=0x001e, h01=0x0050, text=» LDK A1,6 CLEAR SEX BYTES «, t00=0x0056, t01=0x0084}
0x86e0…86f6 Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLCLR«, t00=0x0056, t01=0x00a6}
0x86f6…8714 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 RETURN CODE«, t00=0x0056, t01=0x00bc}
0x8714…8740 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,/FFFF DUMMY CYLINDER NUMBER«, t00=0x0056, t01=0x00da}
0x8740…8754 Head {h00=0x0010, h01=0x0050, text=»VO:NA8 EQU *«, t00=0x0056, t01=0x0106}
0x8754…876a Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0056, t01=0x011a}
0x876a…8790 Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTCYL,A6 HEAD POSITION«, t00=0x0056, t01=0x0130}
0x8790…879c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x0156}
0x879c…87b2 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0056, t01=0x0162}
0x87b2…87c8 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0056, t01=0x0178}
0x87c8…87e0 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSMD,A6«, t00=0x0056, t01=0x018e}
0x87e0…87fa Head {h00=0x0016, h01=0x0050, text=» RF(NZ) VO:NA9 SMD«, t00=0x0057, t01=0x0016}
0x87fa…8812 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTOR,A6 «, t00=0x0057, t01=0x0030}
0x8812…8824 Head {h00=0x000e, h01=0x0050, text=» ANK A4,2 «, t00=0x0057, t01=0x0048}
0x8824…8836 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0057, t01=0x005a}
0x8836…884a Head {h00=0x0010, h01=0x0050, text=»VO:NA9 EQU *«, t00=0x0057, t01=0x006c}
0x884a…8862 Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTCYL,A4«, t00=0x0057, t01=0x0080}
0x8862…886e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0098}
0x886e…887e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0057, t01=0x00a4}
0x887e…8888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00b4}
0x8888…8892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00be}
0x8892…88ac Head {h00=0x0016, h01=0x0050, text=»* TIMER POINTER «, t00=0x0057, t01=0x00c8}
0x88ac…88b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00e2}
0x88b6…88ca Head {h00=0x0010, h01=0x0050, text=»TIMER DATA 0«, t00=0x0057, t01=0x00ec}
0x88ca…88d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0100}
0x88d4…88ea Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0057, t01=0x010a}
0x88ea…88f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0120}
0x88f4…88fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x012a}
0x88fe…892c Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0057, t01=0x0134}
0x892c…895a Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0057, t01=0x0162}
0x895a…8988 Head {h00=0x002a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0057, t01=0x0190}
0x8988…89b6 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0058, t01=0x002e}
0x89b6…89e4 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0058, t01=0x005c}
0x89e4…89ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x008a}
0x89ee…89f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0094}
0x89f8…8a0c Head {h00=0x0010, h01=0x0050, text=»DWCD01 EQU *«, t00=0x0058, t01=0x009e}
0x8a0c…8a1c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0058, t01=0x00b2}
0x8a1c…8a3a Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0058, t01=0x00c2}
0x8a3a…8a56 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0058, t01=0x00e0}
0x8a56…8a6c Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0058, t01=0x00fc}
0x8a6c…8a92 Head {h00=0x0022, h01=0x0050, text=» DATA CDADR ACTIVATION ADDRESS«, t00=0x0058, t01=0x0112}
0x8a92…8aae Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x0058, t01=0x0138}
0x8aae…8ad6 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0058, t01=0x0154}
0x8ad6…8af4 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0058, t01=0x017c}
0x8af4…8afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x000a}
0x8afe…8b14 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0059, t01=0x0014}
0x8b14…8b3e Head {h00=0x0026, h01=0x0050, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0059, t01=0x002a}
0x8b3e…8b62 Head {h00=0x0020, h01=0x0050, text=» DATA ECBCD1 MMU ECB ADDRESS«, t00=0x0059, t01=0x0054}
0x8b62…8b6e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0078}
0x8b6e…8b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0084}
0x8b78…8b94 Head {h00=0x0018, h01=0x0050, text=»DWTTRA EQU *-DWCD01 «, t00=0x0059, t01=0x008e}
0x8b94…8ba4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0059, t01=0x00aa}
0x8ba4…8bd0 Head {h00=0x0028, h01=0x0050, text=» DATA 0,0,0 SAVE AREA FOR REGISTERS «, t00=0x0059, t01=0x00ba}
0x8bd0…8c04 Head {h00=0x0030, h01=0x0050, text=»DWTBSE EQU *-DWCD01 DRIVER BUFFER INDICATOR «, t00=0x0059, t01=0x00e6}
0x8c04…8c18 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0059, t01=0x011a}
0x8c18…8c34 Head {h00=0x0018, h01=0x0050, text=»DWTSAV EQU *-DWCD01 «, t00=0x0059, t01=0x012e}
0x8c34…8c44 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0059, t01=0x014a}
0x8c44…8c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x015a}
0x8c4e…8c64 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x0059, t01=0x0164}
0x8c64…8c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x017a}
0x8c6e…8c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0184}
0x8c78…8c88 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0059, t01=0x018e}
0x8c88…8cbe Head {h00=0x0032, h01=0x0050, text=» DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 1«, t00=0x005a, t01=0x000e}
0x8cbe…8cf4 Head {h00=0x0032, h01=0x0050, text=» DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 2«, t00=0x005a, t01=0x0044}
0x8cf4…8d0e Head {h00=0x0016, h01=0x0050, text=» DATA /8000 UNIT 3«, t00=0x005a, t01=0x007a}
0x8d0e…8d28 Head {h00=0x0016, h01=0x0050, text=» DATA /8000 UNIT 4«, t00=0x005a, t01=0x0094}
0x8d28…8d5a Head {h00=0x002e, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 1«, t00=0x005a, t01=0x00ae}
0x8d5a…8d8c Head {h00=0x002e, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 2«, t00=0x005a, t01=0x00e0}
0x8d8c…8da2 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x005a, t01=0x0112}
0x8da2…8dd4 Head {h00=0x002e, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 3«, t00=0x005a, t01=0x0128}
0x8dd4…8e06 Head {h00=0x002e, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 4«, t00=0x005a, t01=0x015a}
0x8e06…8e12 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x018c}
0x8e12…8e2c Head {h00=0x0016, h01=0x0050, text=»DWTBA EQU *-DWCD01«, t00=0x005b, t01=0x0008}
0x8e2c…8e3e Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x005b, t01=0x0022}
0x8e3e…8e70 Head {h00=0x002e, h01=0x0050, text=»DWTLOS EQU *-DWCD01 LOGICAL SECTOR COUNTER«, t00=0x005b, t01=0x0034}
0x8e70…8e80 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x0066}
0x8e80…8eb2 Head {h00=0x002e, h01=0x0050, text=»DWTSEC EQU *-DWCD01 PHYSICAL SECTOR NUMBER«, t00=0x005b, t01=0x0076}
0x8eb2…8ec4 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x005b, t01=0x00a8}
0x8ec4…8ef4 Head {h00=0x002c, h01=0x0050, text=»DWTMAS EQU *-DWCD01 LOGICAL SECTOR MASK «, t00=0x005b, t01=0x00ba}
0x8ef4…8f04 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x00ea}
0x8f04…8f20 Head {h00=0x0018, h01=0x0050, text=»DWTSMD EQU *-DWCD01 «, t00=0x005b, t01=0x00fa}
0x8f20…8f52 Head {h00=0x002e, h01=0x0050, text=» DATA SMDIND FLAG INDICATING SMD DRIVE(S) «, t00=0x005b, t01=0x0116}
0x8f52…8f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0148}
0x8f5c…8f72 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x005b, t01=0x0152}
0x8f72…8f7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0168}
0x8f7c…8f96 Head {h00=0x0016, h01=0x0050, text=»* CIO WORK AREAS«, t00=0x005b, t01=0x0172}
0x8f96…8fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x018c}
0x8fa0…8fd0 Head {h00=0x002c, h01=0x0050, text=»DWTCIO EQU *-DWCD01 CIO INTRUCTIONS AREA«, t00=0x005c, t01=0x0008}
0x8fd0…8ff8 Head {h00=0x0024, h01=0x0050, text=» CIO A2,1,CUAD1 CIO ON 1ST UNIT «, t00=0x005c, t01=0x0038}
0x8ff8…900e Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x005c, t01=0x0060}
0x900e…9036 Head {h00=0x0024, h01=0x0050, text=» CIO A2,1,CUAD2 CIO ON 2ND UNIT «, t00=0x005c, t01=0x0076}
0x9036…9042 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x009e}
0x9042…9072 Head {h00=0x002c, h01=0x0050, text=»DWTSEK EQU *-DWCD01 SEEK OPERATION AREA «, t00=0x005c, t01=0x00aa}
0x9072…9086 Head {h00=0x0010, h01=0x0050, text=» DATA SEEKCO«, t00=0x005c, t01=0x00da}
0x9086…90be Head {h00=0x0034, h01=0x0050, text=»DWTSEZ EQU *-DWCD01 SEEK TO ZERO OPERATION AREA «, t00=0x005c, t01=0x00ee}
0x90be…90d2 Head {h00=0x0010, h01=0x0050, text=» DATA SEZCOM«, t00=0x005c, t01=0x0126}
0x90d2…9110 Head {h00=0x003a, h01=0x0050, text=»DWTWHA EQU *-DWCD01 WRITE HOME ADDRESS AND SECTOR MARK«, t00=0x005c, t01=0x013a}
0x9110…9124 Head {h00=0x0010, h01=0x0050, text=» DATA WHACOM«, t00=0x005c, t01=0x0178}
0x9124…9138 Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x005c, t01=0x018c}
0x9138…914e Head {h00=0x0012, h01=0x0050, text=» DATA WHACOM+1«, t00=0x005d, t01=0x0010}
0x914e…9162 Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x005d, t01=0x0026}
0x9162…9178 Head {h00=0x0012, h01=0x0050, text=» DATA WHACOM+2«, t00=0x005d, t01=0x003a}
0x9178…918c Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x005d, t01=0x0050}
0x918c…91a2 Head {h00=0x0012, h01=0x0050, text=» DATA WHACOM+3«, t00=0x005d, t01=0x0064}
0x91a2…91b6 Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x005d, t01=0x007a}
0x91b6…91e2 Head {h00=0x0028, h01=0x0050, text=» DATA WHACOM+/804 INTERRUPT BIT SET «, t00=0x005d, t01=0x008e}
0x91e2…91f6 Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x005d, t01=0x00ba}
0x91f6…9220 Head {h00=0x0026, h01=0x0050, text=»DWTCOP EQU *-DWCD01 CIO WORK AREA «, t00=0x005d, t01=0x00ce}
0x9220…9236 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005d, t01=0x00f8}
0x9236…924c Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005d, t01=0x010e}
0x924c…9260 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005d, t01=0x0124}
0x9260…9296 Head {h00=0x0032, h01=0x0050, text=»DWTRE1 EQU *-DWCD01 GRAND TOTAL RETRY COUNTER «, t00=0x005d, t01=0x0138}
0x9296…92a6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005d, t01=0x016e}
0x92a6…92d6 Head {h00=0x002c, h01=0x0050, text=»DWTRE2 EQU *-DWCD01 TOTAL RETRY COUNTER «, t00=0x005d, t01=0x017e}
0x92d6…92e6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005e, t01=0x001e}
0x92e6…92f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x002e}
0x92f0…9306 Head {h00=0x0012, h01=0x0050, text=» EJECT DRCD02«, t00=0x005e, t01=0x0038}
0x9306…9310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x004e}
0x9310…931a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0058}
0x931a…934e Head {h00=0x0030, h01=0x0050, text=»DWTCYL EQU *-DWCD01 PRESENT CYLINDER NUMBER «, t00=0x005e, t01=0x0062}
0x934e…9368 Head {h00=0x0016, h01=0x0050, text=» DATA /FFFF UNIT 1«, t00=0x005e, t01=0x0096}
0x9368…937e Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x005e, t01=0x00b0}
0x937e…9392 Head {h00=0x0010, h01=0x0050, text=» DATA /FFFF «, t00=0x005e, t01=0x00c6}
0x9392…939e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00da}
0x939e…93b0 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x005e, t01=0x00e6}
0x93b0…93c2 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x005e, t01=0x00f8}
0x93c2…93d4 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x005e, t01=0x010a}
0x93d4…93f8 Head {h00=0x0020, h01=0x0050, text=»DWTSB3 EQU *-DWCD01-2 STACK «, t00=0x005e, t01=0x011c}
0x93f8…940a Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x005e, t01=0x0140}
0x940a…9440 Head {h00=0x0032, h01=0x0050, text=»DWTRAW EQU *-DWCD01 READ AFTER WRITE SAVE AREA«, t00=0x005e, t01=0x0152}
0x9440…9456 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005e, t01=0x0188}
0x9456…9466 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005f, t01=0x000e}
0x9466…9472 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x001e}
0x9472…9488 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005f, t01=0x002a}
0x9488…949c Head {h00=0x0010, h01=0x0050, text=»ECBCD1 EQU *«, t00=0x005f, t01=0x0040}
0x949c…94b8 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x005f, t01=0x0054}
0x94b8…94c4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0070}
0x94c4…94f2 Head {h00=0x002a, h01=0x0050, text=»DWTSMX EQU *-DWCD01 MAX SECTOR NUMBER «, t00=0x005f, t01=0x007c}
0x94f2…950e Head {h00=0x0018, h01=0x0050, text=» DATA MXSE11,MXSE12 «, t00=0x005f, t01=0x00aa}
0x950e…952a Head {h00=0x0018, h01=0x0050, text=» DATA MXSE21,MXSE22 «, t00=0x005f, t01=0x00c6}
0x952a…9540 Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x005f, t01=0x00e2}
0x9540…955c Head {h00=0x0018, h01=0x0050, text=» DATA MXSE31,MXSE32 «, t00=0x005f, t01=0x00f8}
0x955c…9578 Head {h00=0x0018, h01=0x0050, text=» DATA MXSE41,MXSE42 «, t00=0x005f, t01=0x0114}
0x9578…9584 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0130}
0x9584…95b4 Head {h00=0x002c, h01=0x0050, text=»DWTSPC EQU *-DWCD01 SECTORS PER CYLINDER«, t00=0x005f, t01=0x013c}
0x95b4…95c8 Head {h00=0x0010, h01=0x0050, text=» DATA SPCUN1«, t00=0x005f, t01=0x016c}
0x95c8…95dc Head {h00=0x0010, h01=0x0050, text=» DATA SPCUN2«, t00=0x005f, t01=0x0180}
0x95dc…95f2 (96, 2, 104) Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0060, t01=0x0004}
0x95f2…9606 Head {h00=0x0010, h01=0x0050, text=» DATA SPCUN3«, t00=0x0060, t01=0x001a}
0x9606…961a Head {h00=0x0010, h01=0x0050, text=» DATA SPCUN4«, t00=0x0060, t01=0x002e}
0x961a…9626 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0042}
0x9626…9630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x004e}
0x9630…963c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0060, t01=0x0058}
0x963c…9640 Head {h00=0x4004, h01=0x0000}
0x9640…9644 00 60 00 64 ┆ ` d┆
0x9644…964c (97, 1, 8) 20 04 00 00 00 61 00 04 ┆ a ┆
0x964c…969c (98, 0, 400) 00 32 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 4e 45 57 20 56 4f 4c 55 4d 45 20 4c 4f 41 44 45 44 20 49 4e 44 49 43 41 54 4f 52 20 55 4e 49 54 20 31 00 5a 00 04 00 32 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 4e 45 57 20 56 4f 4c 55 4d 45 ┆ 2 P DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 1 Z 2 P DATA /8000 NEW VOLUME┆
0x969c…96ec 20 4c 4f 41 44 45 44 20 49 4e 44 49 43 41 54 4f 52 20 55 4e 49 54 20 32 00 5a 00 3a 00 16 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 55 4e 49 54 20 33 00 5a 00 70 00 16 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 55 4e 49 54 20 34 00 5a 00 8a ┆ LOADED INDICATOR UNIT 2 Z : P DATA /8000 UNIT 3 Z p P DATA /8000 UNIT 4 Z ┆
0x96ec…973c 00 2e 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 2c 2f 46 46 46 46 2c 2f 46 46 46 46 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 55 4e 49 54 20 31 00 5a 00 a4 00 2e 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 2c 2f 46 46 46 46 2c 2f 46 46 46 46 5c 56 4f ┆ . P DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 1 Z . P DATA /FFFF,/FFFF,/FFFF VO┆
0x973c…978c 4c 55 4d 45 20 4e 41 4d 45 20 55 4e 49 54 20 32 00 5a 00 d6 00 12 00 50 5c 49 46 54 5c 4e 55 4e 49 54 53 3d 32 20 00 5a 01 08 00 2e 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 2c 2f 46 46 46 46 2c 2f 46 46 46 46 5c 56 4f 4c 55 4d 45 20 4e 41 4d ┆LUME NAME UNIT 2 Z P IFT NUNITS=2 Z . P DATA /FFFF,/FFFF,/FFFF VOLUME NAM┆
0x978c…97dc 45 20 55 4e 49 54 20 33 00 5a 01 1e 00 2e 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 2c 2f 46 46 46 46 2c 2f 46 46 46 46 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 55 4e 49 54 20 34 00 5a 01 50 00 08 00 50 5c 58 49 46 00 5a 01 82 00 16 00 50 44 57 ┆E UNIT 3 Z . P DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 4 Z P P XIF Z PDW┆
0x97dc…982c (99, 0, 400) 54 42 41 5c 45 51 55 5c 2a 2d 44 57 43 44 30 31 00 5a 01 8e 00 0e 00 50 5c 44 41 54 41 5c 30 2c 30 20 00 5b 00 18 00 2e 00 50 44 57 54 4c 4f 53 5c 45 51 55 5c 2a 2d 44 57 43 44 30 31 5c 4c 4f 47 49 43 41 4c 20 53 45 43 54 4f 52 20 43 4f 55 ┆TBA EQU *-DWCD01 Z P DATA 0,0 [ . PDWTLOS EQU *-DWCD01 LOGICAL SECTOR COU┆
0x982c…987c 4e 54 45 52 00 5b 00 2a 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 5b 00 5c 00 2e 00 50 44 57 54 53 45 43 5c 45 51 55 5c 2a 2d 44 57 43 44 30 31 5c 50 48 59 53 49 43 41 4c 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 00 5b 00 6c 00 0e 00 50 5c 44 ┆NTER [ * P DATA 0 [ . PDWTSEC EQU *-DWCD01 PHYSICAL SECTOR NUMBER [ l P D┆
0x987c…98cc 41 54 41 5c 30 2c 30 20 00 5b 00 9e 00 2c 00 50 44 57 54 4d 41 53 5c 45 51 55 5c 2a 2d 44 57 43 44 30 31 5c 4c 4f 47 49 43 41 4c 20 53 45 43 54 4f 52 20 4d 41 53 4b 20 00 5b 00 b0 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 5b 00 e0 00 18 00 50 ┆ATA 0,0 [ , PDWTMAS EQU *-DWCD01 LOGICAL SECTOR MASK [ P DATA 0 [ P┆
0x98cc…991c 44 57 54 53 4d 44 5c 45 51 55 5c 2a 2d 44 57 43 44 30 31 20 00 5b 00 f0 00 2e 00 50 5c 44 41 54 41 5c 53 4d 44 49 4e 44 5c 46 4c 41 47 20 49 4e 44 49 43 41 54 49 4e 47 20 53 4d 44 20 44 52 49 56 45 28 53 29 20 00 5b 01 0c 00 06 00 50 2a 20 ┆DWTSMD EQU *-DWCD01 [ . P DATA SMDIND FLAG INDICATING SMD DRIVE(S) [ P* ┆
0x991c…996c 00 5b 01 3e 00 12 00 50 5c 45 4a 45 43 54 5c 5c 44 52 43 44 30 32 00 5b 01 48 00 06 00 50 2a 20 00 5b 01 5e 00 16 00 50 2a 20 20 20 43 49 4f 20 57 4f 52 4b 20 41 52 45 41 53 00 5b 01 68 00 06 00 50 2a 20 00 5b 01 82 00 2c 00 50 44 57 54 43 ┆ [ > P EJECT DRCD02 [ H P* [ ^ P* CIO WORK AREAS [ h P* [ , PDWTC┆
0x996c…99bc (100, 0, 400) 49 4f 5c 45 51 55 5c 2a 2d 44 57 43 44 30 31 5c 43 49 4f 20 49 4e 54 52 55 43 54 49 4f 4e 53 20 41 52 45 41 00 5b 01 8c 00 24 00 50 5c 43 49 4f 5c 41 32 2c 31 2c 43 55 41 44 31 5c 43 49 4f 20 4f 4e 20 31 53 54 20 55 4e 49 54 20 00 5c 00 2c ┆IO EQU *-DWCD01 CIO INTRUCTIONS AREA [ $ P CIO A2,1,CUAD1 CIO ON 1ST UNIT ,┆
0x99bc…9a0c 00 12 00 50 5c 49 46 54 5c 4e 55 4e 49 54 53 3d 32 20 00 5c 00 54 00 24 00 50 5c 43 49 4f 5c 41 32 2c 31 2c 43 55 41 44 32 5c 43 49 4f 20 4f 4e 20 32 4e 44 20 55 4e 49 54 20 00 5c 00 6a 00 08 00 50 5c 58 49 46 00 5c 00 92 00 2c 00 50 44 57 ┆ P IFT NUNITS=2 T $ P CIO A2,1,CUAD2 CIO ON 2ND UNIT j P XIF , PDW┆
0x9a0c…9a5c 54 53 45 4b 5c 45 51 55 5c 2a 2d 44 57 43 44 30 31 5c 53 45 45 4b 20 4f 50 45 52 41 54 49 4f 4e 20 41 52 45 41 20 00 5c 00 9e 00 10 00 50 5c 44 41 54 41 5c 53 45 45 4b 43 4f 00 5c 00 ce 00 34 00 50 44 57 54 53 45 5a 5c 45 51 55 5c 2a 2d 44 ┆TSEK EQU *-DWCD01 SEEK OPERATION AREA P DATA SEEKCO 4 PDWTSEZ EQU *-D┆
0x9a5c…9aac 57 43 44 30 31 5c 53 45 45 4b 20 54 4f 20 5a 45 52 4f 20 4f 50 45 52 41 54 49 4f 4e 20 41 52 45 41 20 00 5c 00 e2 00 10 00 50 5c 44 41 54 41 5c 53 45 5a 43 4f 4d 00 5c 01 1a 00 3a 00 50 44 57 54 57 48 41 5c 45 51 55 5c 2a 2d 44 57 43 44 30 ┆WCD01 SEEK TO ZERO OPERATION AREA P DATA SEZCOM : PDWTWHA EQU *-DWCD0┆
0x9aac…9afc 31 5c 57 52 49 54 45 20 48 4f 4d 45 20 41 44 44 52 45 53 53 20 41 4e 44 20 53 45 43 54 4f 52 20 4d 41 52 4b 00 5c 01 2e 00 10 00 50 5c 44 41 54 41 5c 57 48 41 43 4f 4d 00 5c 01 6c 00 10 00 50 5c 44 41 54 41 5c 50 48 53 45 43 4c 00 5c 01 80 ┆1 WRITE HOME ADDRESS AND SECTOR MARK . P DATA WHACOM l P DATA PHSECL ┆