|
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: 51472 (0xc910)
Notes: pts_type(SC)
Names: »DRFD01.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:DE10/DRFD01.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:DE10/DRFD01.SC«
IDENT DRFD01 REL 10.0 80-03-14 870105041000 * ********************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRFD01 = DRIVER FOR FLEXIBLE DISK * * * * * * ********************************************* * * * THIS DISK DRIVER HANDLES UP TO FOUR DAISY * CHAINED FLEXIBLE DISK DRIVES PTS 6879, * CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON * MULTIPLEX OR PROGRAMMED CHANNEL * * EJECT DRFD01 * * ORDERS: * * /00 TEST STATUS * /01 PHYSICAL READ * /02 SEQUENTIAL READ -IBM DISC ONLY- * /05 BASIC WRITE * /06 SEQUENTIAL WRITE -IBM DISC ONLY- * /11 PHYSICAL READ * /15 PHYSICAL WRITE * /21 OPEN * /22 CLOSE * /24 WRITE DELETED DATA * /26 LOCK * /31 REWIND -IBM DISC ONLY- * /37 LOAD * /38 UNLOAD * * ENTRY PARAMETERS: * * A5 STACK BASE * A6 DWT-ADDRESS * A7 ORDER * A8 ECB-ADDRESS EJECT DRFD01 * *********** * * * ENTRIES * * * *********** * ENTRY FDADR ACTIVATION ADDRESS ENTRY IHFD INTERRUPT HANDLER ENTRY FDON RECOVERY ROUTINE ENTRY DWFD01 DWT-ADDRESS EJECT DRFD01 * ************* * * * EXTERNALS * * * ************* * EXTRN TDISP DISPATCHER EXTRN TENDIO ENDIO EXTRN DISIOE REQUEST ERROR EXTRN DISEND PERFORM TENDIO AND TDISP EXTRN VOLCLR CLEAR VOLUME NAME EXTRN VOLNAM VOLUME NAME ADDRESS EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS EXTRN DWTUEC USER ECB ADDRESS EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTORD ORDER/INDEX SAVE AREA EXTRN DWTTAB TTAB ADDRESS EXTRN DWTA2 SAVE AREA A2 EXTRN DWTSB2 STACK BASE 2 IN DWT EXTRN TTB:MT MMU TABLE EXTRN SAVE8 SAVE A1-A8 ON A15 STACK EXTRN SETIMP TIMER EXTRN INTSAV INTERRUPT SAVE AREA EXTRN PFPOST PWF POST PROC. FLAG EXTRN TASCII EBCDIC TO ASCII TAB EXTRN TEBCDIC ASCII TO EBCDIC TAB EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE EXTRN ECBBA ECB BUFFER ADDRESS EXTRN ECBRL ECB REQUESTED LENGTH EXTRN ECBEL ECB EFFECTIVE LENGTH EXTRN ECBCW1 ECB CONTROL WORD 1 EXTRN ECBCW2 ECB CONTROL WORD 2 EJECT DRFD01 * ************************ * * * CONDITIONAL ASSEMBLY * * * ************************ * * MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED * CHANNEL BY SETTING X:A = 0 * X:A EQU 1 CHAN EQU 1 * * A PROGRAM VERSION INCLUDING TOSS DISC FORMAT * IS OBTAINED BY SETTING TOSS EQU 1. * X:B EQU 0 TOSS EQU 1 * * A PROGRAM VERSION INCLUDING IBM DISC FORMAT * IS OBTAINED BY SETTING IBM EQU 1. * X:C EQU 0 IBM EQU 0 * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * EJECT DRFD01 * * * ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER * TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1 * X:D EQU 0 OPCLOS EQU 1 * EJECT DRFD01 * * * MMU BUFFER SIZE * * IFT MMUPAG=0 DVBLEN EQU 256 XIF * IFT MMUPAG=1 X:E EQU 256 DVBLEN EQU 000 XIF * * * MMU DEVICE INDEX * * DEVIND EQU 10 * EJECT DRFD01 * ************* * * * CONSTANTS * * * ************* * CUADR EQU 09 CONTROL UNIT ADDRESS MUXADR EQU CUADR+CUADR MUX-ADDRESS SOPDA EQU /2E S.O.P. DEVICE ADDRESS SECLEN EQU 128 SECTOR LENGTH MAXSEC EQU 2002 MAX SECTOR NUMBER MAXIBM EQU 1923 MAX SECTOR NUMBER IBM DISC BOE EQU 28 BEGIN OF EXTENT POSITION EOE EQU 34 END OF EXTENT POSITION EOD EQU 74 END OF DATA POSITION TIME EQU 20 DELAY - POWER ON OPENTI EQU 10 DELAY AT OPEN ORDERS * DIXTAB EQU * DOUBLE INDEX TABLE DATA /0102 DATA /0408 * EJECT DRFD01 * ********** * * * TABLES * * * ********** * IFF CHAN+IBM=0 DATA DVBLEN+DVBLEN MMU BUFFER SIZE XIF * IFT CHAN=0 IFT IBM=0 DATA 0 INDICATE NO MMU BUFFER XIF * DATA DEVIND DEVICE INDEX FDADR DATA FDAD ACTIVATION ADDRESS DATA 0 ABORT ROUTINE ADDRESS * EJECT DRFD01 * *************** * * * TEST STATUS * * * *************** * TESTST EQU * IFF IBM+TOSS=0 CF A15,NVLCHK STR A1,A6 SAVE NVL INDICATOR XIF * LDKL A2,/FFF9 BIO DUMMY CF A5,FD:WRI ANK A1,1 RF(NZ) DIS:EN DISC NOT OPERABLE LDKL A2,/7FFF RESET REQUEST ERROR BIT ANRS A2,A6 * IFF TOSS+IBM=0 CF A5,VO:NAM GET VOLUME NAME LD A1,DWTORD,A6 RESTORE INDEX AND ORDER ST A1,DWTOR,A6 CF A15,VOLNAM ABL END:RC XIF * IFT TOSS+IBM=0 ABL END:RC XIF * EJECT DRFD01 * ************** * * * ACTIVATION * * * ************** * FDAD EQU * ACTIVATION ENTRY IFT MMUPAG=1 IFT CHAN=0 CM BUFFLG,A6 XIF * LD A2,DWTOR,A6 INDEX AND ORDER ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES CMR A6 RESET TEMPORARY RETURN CODE LDK A3,0 LC A3,DWTOR,A6 GET INDEX * IFT OPCLOS=1 * * CHECK IF OPEN OR CLOSE ORDER * LDR A1,A7 ORDER SUK A1,/21 RF(Z) OPEN OPEN SUK A1,1 RF(NZ) FD:ORD NOT CLOSE ORDER * EJECT * ********* * * * CLOSE * * * ********* * * CLOSE IS PERFORMED BY WRITING A ONE TO BIT * ZERO OF THE SOP LIGHTS EXTERNAL REGISTER * LDKL A1,/8000 MASK FOR BIT 0 ORS A1,SPDLCI SET OPEN/CLOSE BIT RF OPEN10 * EJECT * ******** * * * OPEN * * * ******** * * OPEN IS PERFORMED BY WRITING A ZERO TO BIT * ZERO OF THE SOP LIGHTS EXTERNAL REGISTER. * OPEN EQU * LDKL A1,/7FFF MASK FOR BIT 0 ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT * OPEN10 EQU * LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA OTR A1,0,SOPDA OPEN FD DRIVE * * WAIT FOR DRIVE TO BECOME OPERABLE * LDK A4,DWTTP2 TIMER POINTER OFFSET ADR A4,A6 A4:=TIMER POINTER ADDRESS LDR A1,A6 SAVE DWT-ADDR CF A15,SETIMP WAIT DATA OPENRE,OPENTI START ADDR, WAIT TIME ABL TDISP EXIT * OPENRE EQU * LDR A6,A1 GET DWT-ADDR CM DWTTP2,A6 INDICATE NO TIMER RUNNING LDK A1,0 RETURN CODE RF DIS:EN PERFORM TENDIO AND TDISP XIF * EJECT * * PUT DRIVE NO IN CIO-INSTRUCTION * FD:ORD EQU * LC A2,DIXTAB,A3 SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK * IFT IBM+TOSS=2 AN A2,DWTLAB,A6 SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM XIF * CF A5,SETCIO A3,A4 AFFECTED * EJECT DRFD01 * * LDR A3,A7 RB(Z) TESTST TEST STATUS * IFT IBM=0 SUK A3,38 RF(N) INTEST READ/WRITE ORDER SUK A3,18 ABL(NP) LOAD LOAD/UNLOAD XIF * IFT IBM=1 SUK A3,1 RF(Z) INTEST BASIC READ SUK A3,1 RF(Z) IBMCHK SEQUENTIAL READ SUK A3,3 RF(Z) INTEST BASIC WRITE SUK A3,1 RF(Z) IBMCHK SEQUENTIAL WRITE SUK A3,32 RF(N) INTEST PHYSICAL READ/WRITE SUK A3,11 RF(Z) IBMCHK REWIND SUK A3,7 ABL(NP) LOAD LOAD/UNLOAD XIF * IBMCHK EQU * IFT TOSS+IBM=2 LD A4,DWTFIB,A6 ABL(NZ) IBMDSK IBM DISC HANDLING XIF * IFT TOSS=0 IFT IBM=1 ABL IBMDSK IBM DISC HANDLING XIF * EJECT DRFD01 * * REQERR ABL DISIOE REQUEST ERROR * INCLEN EQU * INCORRECT REQUESTED LENGTH EXIT LDKL A1,/8008 RETURN CODE * DIS:EN EQU * ABL DISEND PERFORM TENDIO AND GO TO TDISP * EJECT DRFD01 * * INPUT PARAMETER CHECK * INTEST EQU * IFF TOSS+IBM=0 CF A15,NVLCHK CHECK IF NEW VOLUME LOADED ADK A1,0 RB(NZ) DIS:EN NEW VOLUME LOADED XIF * LD A3,ECBRL,A8 RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL SRC A3,7 NUMBER OF PHYSICAL SECTORS RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL CWK A3,/01FF RB(G) INCLEN INCORRECT INPUT PARAMETER ECBRL LD A2,ECBCW2,A8 GET SECTOR NUMBER * IFT IBM+TOSS=2 LD A4,DWTFIB,A6 RF(NZ) INTES5 IBM-DISC XIF * IFT TOSS=1 LDR A4,A3 SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL SLL A2,1 TRANSFER TOSS-SEC. NO TOPHYSICAL SEC. NO * EJECT DRFD01 * * INTES5 EQU * XIF LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER RB(N) REQERR REQUEST ERROR SUKL A4,MAXSEC RB(NN) REQERR REQUEST ERROR ADR A4,A3 RB(P) INCLEN INCORRECT LENGTH ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC NO LD A2,ECBBA,A8 GET ECBBA ST A2,DWTBA,A6 SAVE ECB BUFFER ADDRESS * IFT MMUPAG=1 LCR A2,A8 ANK A2,/30 ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS XIF * EJECT DRFD01 * * MULTIPLE SECTOR IO ENTRY * FD:000 EQU * IFT MMUPAG=1 IFT CHAN=0 LD A2,DWT:BF,A6 ST A2,BUFFLG,A6 SET BUFFER FLAG XIF * LDKL A2,512 LDK A4,3 SUK A3,4 RF(NN) FD:005 FOUR PHYS. SEC. IO * FD:003 SUK A2,128 SUK A4,1 ADK A3,1 RB(NZ) FD:003 * FD:005 EQU * ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO ST A3,DWTNOS,A6 UPDATE NUMBER OF SECTORS * EJECT DRFD01 * * IFT MMUPAG=1 IFF CHAN+IBM=0 LD A2,DWTBA,A6 BUFFER ADDRESS LD A1,DWT:BF,A6 RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA LDR A3,A2 RF(NN) FD:009 AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED RF(N) FD:009 NO * EJECT DRFD01 * * FD:007 EQU * ECR A3,A2 ANK A3,/F0 SRL A3,2 SLL A1,2 ORR A1,A3 SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS ADK A1,/4 CREATE ONE MORE MMU ENTRY SC A1,DWT:PA+2,A6 ANKL A2,/FFF LDR A1,A2 ORK A1,1 INDICATE ADDRESS NOT ZERO * FD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS XIF * LDK A4,0 PREPARE FOR BIO LD A1,DWTOR,A6 ANK A1,/3F ORDER SUK A1,1 RF(Z) FD:060 BASIC READ SUK A1,4 RF(Z) FD:015 BASIC WRITE SUK A1,12 RF(Z) FD:060 PHYSICAL READ SUK A1,4 RF(Z) FD:013 PHYSICAL WRITE SUK A1,15 CHECK IF WRITE DELETED DATA * RQ:ERR EQU * RB(NZ) REQERR * EJECT DRFD01 * * WRITE DELETED DATA, PHYSICAL AND BASIC WRITE ORDERS * LDK A4,1 WRITE DELETED DATA ORDER FD:013 EQU * PHYSICAL WRITE ORDER ADK A4,4 FD:015 EQU * BASIC WRITE ORDER ADK A4,1 CF A5,BIO PREPARATION FOR CIO * IFT MMUPAG=1 IFT CHAN=0 IFT TOSS+IBM=2 LD A1,DWTFIB,A6 RF(Z) FD:018 NOT IBM XIF * IFT MMUPAG=1 IFF CHAN+IBM=0 LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS RF(Z) FD:019 BUFFER IN SYSTEM AREA LDR A7,A3 REQUESTED LENGTH LDR A8,A2 SAVE A2 LDKL A4,BUF DRIVER BUFFER ADDRESS LDR A2,A4 TS -30,A15 SAVE RUNNING TASK MMU TL DWT:PA,A6 LOAD PSEUDO MMU TABLE MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA TL -30,A15 RESTORE MMU FROM STACK LDR A2,A8 RESTORE A2 CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA FD:019 EQU * XIF * IFT TOSS+IBM=2 LD A1,DWTFIB,A6 RF(Z) FD:018 NOT IBM XIF * IFT IBM=1 LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED CF A5,EBCDIC FD:018 EQU * XIF * EJECT DRFD01 * * CF A5,FD:WRITE PERFORME WRITE ANKL A3,/200 CHECK IF WRITE PROTECTED RF(Z) FD:020 LDK A3,/40 INDICATE ERROR ORRS A3,A6 UPDATE TEMPORARY RETURN CODE FD:020 EQU * RF FD:100 GOTO FDMSIO * EJECT DRFD01 * ***************** * * * PHYSICAL READ * * * ***************** * FD:060 CF A5,BIO * IFT MMUPAG=1 IFT CHAN=0 IFT TOSS+IBM=2 LD A1,DWTFIB,A6 RF(Z) FD:070 TOSS DISC LDKL A4,BUF DRIVER BUFFER ADDRESS CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA XIF * FD:070 EQU * IFT MMUPAG=1 IFT CHAN=1 LD A1,DWT:LA,A6 RF(Z) FD:080 BUFFER IN SYSTEM AREA LDKL A4,BUF DRIVER BUFFER ADDRESS CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA XIF * IFT MMUPAG=1 IFT IBM=1 IFT TOSS+CHAN=0 LDKL A4,BUF DRIVER BUFFER ADDRESS CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA XIF * FD:080 EQU * CF A5,FD:REA PERFORM READ * IFT TOSS+IBM=2 LD A1,DWTFIB,A6 RF(Z) FD:090 NOT IBM XIF * IFT IBM=1 IFT MMUPAG=0 LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS XIF * IFT IBM=1 LD A7,DWTRL,A6 REQ. LEN CF A5,ASCII FD:090 EQU * XIF * EJECT DRFD01 * * IFT MMUPAG=1 IFT CHAN=0 IFT TOSS+IBM=2 LD A1,DWTFIB,A6 RF(Z) FD:100 TOSS DISC XIF * IFT MMUPAG=1 IFF CHAN+IBM=0 LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS RF(Z) FD:100 BUFFER IN SYSTEM AREA LD A7,DWTRL,A6 REQUESTED LENGTH LDKL A1,BUF GET DWT BUFFER ADDRESS TS -30,A15 SAVE RUNNING TASK MMU TL DWT:PA,A6 LOAD PSEUDO MMU TABLE MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA TL -30,A15 RESTORE MMU FROM STACK XIF FD:100 EQU * ABL FDMSIO * EJECT DRFD01 * ******** * * * LOAD * * * ******** * LOAD EQU * ADK A3,0 CHECK ORDER CODE RF(Z) UNLOAD UNLOAD ORDER ADK A3,1 RF(Z) LOAD00 LOAD ORDER ADK A3,17 RB(NZ) RQ:ERR ERROR IF NOT LOCK * LOAD00 EQU * LDK A2,/14 LOCK CF A5,FD:REA ANK A3,1 RF(NZ) LOA:80 ENDIO NOT OPERABLE * IFT TOSS+IBM=2 LD A1,DWTFIB,A6 RF(Z) LOA:70 TOSS DISC XIF * IFT IBM=1 LC A3,DWTOR+1,A6 GET ORDER SUK A3,/26 RF(Z) LOA:65 LOCK ORDER CF A5,VO:NAM CF A5,LD:RC CHECK RETURN CODE EJECT DRFD01 * * READ DATA SET LABEL * LD A2,ECBCW2,A8 SECTOR NO SUK A2,7 RF(N) LOA:85 REQUEST ERROR SUK A2,18 RF(P) LOA:85 REQUEST ERROR ADK A2,25 SLL A2,3 BIO LDK A3,80 LENGTH LDKL A4,BUF CF A5,FD:REA SLL A1,4 CHECK NO DATA BIT RF(NN) LOA:60 NOT NO DATA ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL LOA:60 EQU * CF A5,LD:RC ENB LD A3,ECBCW2,A8 DATA SET LABEL SECTOR LDK A1,DWTDSS CF A5,STDWT SAVE IN DWT ADK A4,BOE BOE ADDRESS CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR LDK A1,DWTBOE CF A5,STDWT STORE BOE NO IN DWT SUK A3,1 CRN LDK A1,DWTCRN CF A5,STDWT ADK A4,EOE-BOE EOE ADDRESS CF A5,LOGSEC LDK A1,DWTEOE CF A5,STDWT STORE EOE NO IN DWT ADK A4,EOD-EOE EOD ADDRESS CF A5,LOGSEC INH INHIBIT INTERRUPTS INHIBIT LDK A1,DWTEOD CF A5,STDWT STORE EOD NO IN DWT * LOA:65 EQU * LDKL A3,/400 ORRS A3,A6 UPDATE TEMPORARY RETURN CODE * LOA:70 EQU * XIF LD A2,DWTA3,A6 ORS A2,DWTLC,A6 INDICATE LOCK LOA:80 EQU * ABL END:RC * IFT IBM=1 LOA:85 EQU * LDK A1,/80 REQUEST ERROR SCR A1,A6 UPDATE TEMPORARY RETURN CODE XIF * EJECT DRFD01 * * IFF TOSS+IBM=0 * * ERROR , UNLOCK * LOA:90 EQU * LDR A5,A6 ADKL A5,DWTSB2 STACK BASE LDK A2,/C UNLOCK CF A5,FD:REA RB LOA:80 * * LD:RC SUBROUTINE * LD:RC EQU * ANK A3,/17 FATAL ERROR RB(NZ) LOA:90 LDKL A4,BUF DRIVER BUFFER ADDRESS RTN A5 XIF * EJECT DRFD01 * ********** * * * UNLOAD * * * ********** * UNLOAD EQU * IFT IBM=1 * * DATA SET OPEN * CF A5,DSOPCH A1,AFFECTED ADK A7,0 SET CR (CHECK EOD) RF(Z) UNL:70 NOT OPEN ST A7,12,A8 STORE EOD-NO IN CONTROL WORD OF ECB * * READ DATA SET LABEL TO DRIVER BUFFER * CF A5,DSLIO PREPARE FOR I/O CF A5,FD:REA READ DATA SET LABEL CF A5,UNL:RC RETURN CODE CHECK ENB * * TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED) * CF A5,DSOPCH EOD-NO TO A7 * * DIVIDE EOD BY 26 * LDK A1,0 UNL:10 SUK A7,26 RF(N) UNL:20 ADK A1,1 RB UNL:10 * EJECT DRFD01 * * UNL:20 ADK A7,27 * * A1 = BINARY TRACK NO * A7 = SECTOR NO WITHIN TRACK (0-25) * CF A5,BINDEC TRANSFORM SEC.NO TO A3 LDKL A4,BUF+EOD+4 ADDRESS TO POS 79 SCR A3,A4 SUK A4,1 SRL A3,8 LEFT BYTE SCR A3,A4 STORE IN BUFFER LDR A7,A1 TRACK CF A5,BINDEC DEC EBCDIC-CODED IN A3 SUK A4,3 STR A3,A4 TRACK INTO BUF INH INHIBIT INTERRUPTS INHIBIT * * WRITE DATA SET LABEL * CF A5,DSLIO PREPARE FOR I/O ORK A2,5 PHYSICAL WRITE CF A5,FD:WRITE WRITE DATA SET LEBEL CF A5,UNL:RC CHECK RETURN CODE CF A5,DSOPCH CMR A2 INDICATE NOT OPEN * EJECT DRFD01 * * UNLOCK * XIF UNL:70 EQU * LDK A2,/C UNLOCK CF A5,FD:REA ANK A3,1 RB(NZ) LOA:80 NOT OPERABLE C1 A2,DWTA3,A6 INDEX MASK ANS A2,DWTLC,A6 INDICATE UNLOCK IN DWT RB LOA:80 END:IO * IFT IBM=1 * * UNLOAD RETURN CODE CHECK * UNL:RC EQU * ANKL A3,/207 RF(Z) RTN:A5 NO RETURN CODE ANKL A3,/200 RF(Z) RTN:A5 NOT WRITE PROTECTED CF A5,DSOPCH ADK A7,0 SET CR (CHECK EOD) RF(Z) RTN:A5 NOT OPEN LDK A3,/40 ORRS A3,A6 UPDATE TEMPORARY RETURN CODE RTN:A5 EQU * RTN A5 * EJECT DRFD01 * * IBMDSK EQU * IBM DISK HANDLING ENTRY IFT IBM=1 CF A15,NVLCHK CHECK IF NEW VOLUME LOADED ADK A1,0 ABL(NZ) END:IO NEW VOLUME LOADED CF A5,DSOPCH GET EOD ADK A7,0 SET CR (CHECK EOD) RF(Z) FD:DIS NOT OPEN, ERROR LC A1,DWTOR+1,A6 ORDER CODE SUK A1,49 RF(Z) REWIND REWIND FILE LD A3,ECBRL,A8 CHECK REQUESTED LENGTH SUK A3,SECLEN ABL(NZ) INCLEN INCORRECT LENGTH ADK A1,43 RF(Z) SQWRITE SEQUENTIAL WRITE ADK A1,4 RF(NZ) FD:DIS ERROR IF NOT SEQUENTIAL READ * EJECT DRFD01 * ******************* * SEQUENTIAL READ * ******************* * ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN LDR* A3,A2 CRN ADK A3,1 CRN+1 ST A3,ECBCW2,A8 STORE CRN+1 IN ECB CWK A3,MAXIBM RF(P) FD:DIS REQUEST ERROR CWR A3,A7 RF(NL) SQR:10 END OF DATA LDK A4,0 BIO READ CF A5,BIOSQ CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 * IFT MMUPAG=0 LD A4,ECBBA,A8 USER BUFFER ADDRESS XIF * IFT IBM=1 LDK A7,SECLEN CF A5,ASCII TRANSFORM TO ASCII * EJECT DRFD01 * * IFT MMUPAG=1 TS -30,A15 SAVE RUNNING TASK'S MMU LD A7,DWTTAB,A6 TTAB ADDRESS TL TTB:MT,A7 LOAD MMU TABLE LDKL A1,BUF DRIVER BUFFER ADDRESS LD A2,DWTUEC,A6 USER ECB ADDRESS EL A2,ECBBA,A2 USER BUFFER ADDRESS LDK A7,SECLEN LENGTH MVSU A7 MOVE SECTOR TO USER BUFFER TL -30,A15 RESTORE MMU TABLE FROM STACK XIF * IFT IBM=1 LDK A1,DWTCRN CF A5,DSPAD RF SQW:10 UPDATE CRN * * END OF DATA * SQR:10 LDKL A1,/1000 RETURN CODE RF END:IO * EJECT DRFD01 * ******************* * SEQUENTIAL WRITE * ******************* * SQWRIT EQU * * * CHECK IF END OF EXTENT * LDK A1,DWTEOE CF A5,DSPAD EOE-NO ADDRESS TO A2 ST A7,ECBCW2,A8 STORE EOD IN ECB C. W. CWK A7,MAXIBM RF(P) FD:DIS REQUEST ERROR CWR* A7,A2 RF(G) ENDEOE END OF EXTENT * IFT MMUPAG=1 TS -30,A15 SAVE RUNNING TASK'S MMU LD A7,DWTTAB,A6 TTAB ADDRESS TL TTB:MT,A7 LOAD MMU TABLE LD A1,DWTUEC,A6 USER ECB ADDRESS EL A1,ECBBA,A1 USER BUFFER ADDRESS LDKL A2,BUF DRIVER BUFFER ADDRESS LDK A7,SECLEN LENGTH MVUS A7 MOVE SECTOR TO DRIVER BUFFER TL -30,A15 RESTORE MMU TABLE FROM STACK XIF * IFT IBM=1 LDK A4,5 BIO WRITE CF A5,BIOSQ LDK A7,SECLEN CF A5,EBCDIC TRANSFORM AND MOVE TO BUF * EJECT DRFD01 * * CF A5,FD:WRI ANKL A1,/200 RF(Z) SQW:05 LDK A1,/40 WRITE PROTECTED ORRS A1,A6 UPDATE TEMPORARY RETURN CODE SQW:05 EQU * CF A5,DSOPCH SQW:10 EQU * ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE RF(NZ) END:RC IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT LDK A2,SECLEN ST A2,ECBEL,A8 UPDATE EFFECTIVE LENGTH RF END:RC * FD:DIS EQU * ABL DISIOE REQUEST ERROR * EJECT DRFD01 * ********** * REWIND * ********** * REWIND EQU * LDR A3,A2 SAVE EOD ADDRESS LDK A1,DWTBOE CF A5,DSPAD LDR* A4,A2 BOE STR A4,A3 EOD = BOE LDK A1,DWTCRN CF A5,DSPAD SUK A4,1 BOE - 1 STR A4,A2 CRN = BOE -1 LDK A1,0 RETURN CODE RF END:IO XIF * EJECT DRFD01 * ***************** * * * PERFORM ORDER * * * ***************** * * * INPUT: A2 BIO CONTENTS * A3 NO OF BYTES TO BE TRANSFERED * A4 BUFFER ADDRESS * FD:WRI EQU * IFT CHAN=0 LDKL A1,/C000 WORDS,WRITE XIF IFT CHAN=1 LDK A1,0 INDICATOR WRITE MODE XIF RF FD:800 * FD:REA EQU * IFT CHAN=1 LDK A1,1 READ MODE XIF IFT CHAN=0 LDKL A1,/8000 WORDS READ XIF FD:800 EQU * IFT CHAN=0 SRL A3,1 FROM BYTES TO WORDS * EJECT DRFD01 * * IFT MMUPAG=1 LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO RF(Z) FD:810 BUFFER IN SYSTEM AREA LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS ECR A7,A7 ORR A1,A7 FD:810 EQU * XIF * IFT CHAN=0 ORR A3,A1 WER1 WER A3,MUXADR FIRST WER WER2 WER A4,MUXADR+1 SECOND WER XIF IFT CHAN=1 * EJECT DRFD01 * * PUT BUFFER START AND END ADDRESS IN DWT * ST A1,DWTRW,A6 INDICATE MODE ST A4,DWTUB,A6 ADR A3,A4 ST A3,DWTUBE,A6 END ADDRESS+2 XIF ST A5,DWTA5,A6 SAVE STACK POINTER LD A3,PFPOST RF(NZ) T:DISP POST PROCESSING FLAG SET FD:CIO EQU * LABEL USED FOR CHANGE OF CUADR CIO A2,1,CUADR CIO START RF(3) END:30 DEVICE ADDRESS UNKNOWN RF T:DISP * EJECT DRFD01 * ************************************* * * FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO * * * ************************************* * FDMSIO EQU * IM DWTCW2,A6 UPDATE SECTOR NUMBER LDR* A1,A6 RETURN CODE ANK A1,/7F GET ERROR RETURN CODE RF(NZ) END:RC LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE ADS A2,DWTCW2,A6 UPDATE DWTCW2 LD A2,DWTRL,A6 ADS A2,ECBEL,A8 UPDATE ECBEL LD A3,DWTNOS,A6 RF(NP) END:RC LAST SECTOR DONE IFT MMUPAG=1 LD A4,DWTBA,A6 GET BUFFER POINTER ADR A2,A4 UPDATE BUFFER POINTER ST A2,DWTBA,A6 RF(N) FDMSI1 NOT PASSED 64K LIMIT ADK A4,0 RF(NN) FDMSI1 NOT PASSED 64K LIMIT LDK A2,/10 ADS A2,DWT:BF,A6 UPDATE BITS 0-1 FDMSI1 EQU * XIF * IFT MMUPAG=0 ADS A2,DWTBA,A6 UPDATE BUFFER POINTER XIF ABL FD:000 MORE SECTORS IN MULTIPLE SECTOR IO * EJECT DRFD01 * ********** * * * END:IO * * * ********** * IFT IBM=1 ENDEOE EQU * END OF EXTENT EXIT LDKL A1,/2000 RETURN CODE RF END:IO XIF * END:RC EQU * LDR* A1,A6 RETURN CODE END:IO EQU * CF A15,TENDIO T:DISP ABL TDISP * END:30 EQU * CU ADDRESS UNKNOWN LDK A1,1 NOT OPERABLE ST A1,DWTST,A6 INDICATE RECOVERY DONE RB END:IO EJECT DRFD01 * ******************** * * * RECOVERY ROUTINE * * * ******************** * FDON 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,DWFD01 DWT ADDRESS CM DWTST,A6 IM DWTA2,A6 SET FDON FLAG * EJECT * * DELAY 2 SEC * LD A4,DWTTP,A6 RF(Z) FDON10 NO TIMER SET LDKL A4,-TIME ST* A4,DWTTP,A6 RESTART TIMER RB T:DISP FDON10 LDK A4,DWTTP ADR A4,A6 LDR A1,A6 SAVE A6 CF A15,SETIMP DATA FDON20,TIME * F:DISP EQU * RB T:DISP * * TIME OUT ROUTINE * FDON20 LDR A6,A1 CM DWTTP,A6 LDKL A5,DWTSB2 ADR A5,A6 GET STACK BASE * FDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE IFT MMUPAG=1 IFT CHAN=0 CM BUFFLG,A6 RESET BUFFER FLAG XIF * IFF TOSS+IBM=0 IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR LDK A3,3 4 VOLUMES * EJECT DRFD01 * * * READ VOLUME NAME * FDONLD EQU * SC A3,DWTOR,A6 GET VOLUME NAME LC A4,DIXTAB,A3 DRIVE INDEX MASK SC A4,DWTA3+1,A6 SAVE IT CF A5,SETCIO LDK A2,/14 CF A5,FD:REA LOCK ANK A3,1 RF(Z) FDON19 OPERABLE LDK A1,6 NOT OPERABLE CF A15,VOLCLR CLEAR VOLUME NAME RF FDON21 CONTINUE WITH NEXT DISC * FDON19 EQU * CF A5,VO:NAM LDKL A2,/FBFF RESET IBM IND. BIT ANRS A2,A6 UPDATE TEMPORARY RETURN CODE FDON21 EQU * LDK A2,/C CF A5,FD:REA UNLOCK LDK A3,0 LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. SUK A3,1 RB(NN) FDONLD NEXT VOLUME CM DWTOR,A6 CM DWTST2,A6 INDICATE VOLUMES READ IM DWTST,A6 INDICATE VOLUME NAMES READ XIF * IFT OPCLOS=1 * EJECT * * TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING * LD A4,DWTTP2,A6 TIMER POINTER RF(Z) FDON09 NOT RUNNING CMR A4 STOP TIMER CM DWTTP2,A6 INDICATE NO TIMER FDON09 EQU * * * OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE * LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS LDKL A2,/8000 OPEN/CLOSE BIT MASK ANR* A2,A4 A2:=OPEN/CLOSE FLAG ORS A2,DWTOCF,A6 SAVE XRRS A2,A4 SET STATUS WORD TO OPEN LDR* A2,A4 OTR A2,0,SOPDA SET DRIVE TO OPEN * FDON23 EQU * XIF * EJECT * * LOCK DOORS * LDK A2,1 FDON25 EQU * LD A1,DWTLC,A6 LOCK INDICATOR ANR A1,A2 RF(Z) FDON30 NOT LOCKED ST A2,DWTA3,A6 SAVE * EJECT * * PUT DRIVE NO IN CIO INSTR * SRN A2,A3 DRIVE NO IN A3 CF A5,SETCIO PUT DRVE NO IN CIO-INSTR LDK A2,/14 LOCK CF A5,FD:REA LD A2,DWTA3,A6 DRIVE IND. ANK A3,1 RF(Z) FDON30 OK XRS A2,DWTLC,A6 INDICATE UNLOCK FDON30 EQU * SLL A2,1 CWK A2,/0010 RB(NE) FDON25 * IFT OPCLOS=1 * * RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF * LD A2,DWTOCF,A6 OPEN/CLOSE FLAG ORS A2,SPDLCI TO STATUS WORD CM DWTOCF,A6 CLEAR FLAG LD A2,SPDLCI OPEN/CLOSE STATUS OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED XIF * EJECT * * ANY REQUEST * CM DWTA2,A6 RESET FDON FLAG FDON60 EQU * LD A8,DWTECB,A6 ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO * * RETRY REQUEST * IM DWTRTY,A6 INDICATE RETRY LD A7,DWTORD,A6 ST A7,DWTOR,A6 RESTORE INDEX AND ORDER CM ECBEL,A8 RESET EFFECTIVE LENGTH ANK A7,/3F ORDER ABL FDAD REACTIVATE * EJECT DRFD01 * ******************** * * * READY INTERRUPT * * * ******************** * FDRE EQU * LD A2,DWTA2,A6 RB(NZ) F:DISP POWER ON ROUTINE ACTIVE LDKL A5,DWTSB2 ADR A5,A6 STACK BASE * IFT TOSS+IBM=0 RB FDON60 XIF * IFF TOSS+IBM=0 CM DWTST,A6 SET UNIT BUSY RB FDONVL READ VOLUME NAMES XIF * EJECT DRFD01 * ********************* * * * INTERRUPT HANDLER * * * ********************* * IHFD EQU * ST P,INTSAV SAVE LAST INTERRUPT IFT CPU852=1 CF A15,SAVE8 SAVE REGISTERS ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LDKL A6,DWFD01 DWT ADDRESS IFT CHAN=1 ENB LD A1,DWTUB,A6 GET BUFFER POINTER LD A2,DWTUBE,A6 END OF BUFFER SUR A2,A1 LENGTH IH005 EQU * SST A3,CUADR GET STATUS RF(A) IH:000 READY INTERRUPT LD A3,PFPOST RF(NZ) IHDISP POST PROCESSING FLAG SET LD A3,DWTRW,A6 READ/WRITE INDICATOR RF(NZ) IH050 READ * EJECT DRFD01 * * IH010 EQU * LDR* A3,A1 ONE WORD FROM BUFFER OTR A3,0,CUADR WRITE RB(NA) IH005 ADK A1,2 UPDATE BUFFER POINTER SUK A2,2 RB(P) IH010 CIO A2,0,CUADR CIO HALT IHDISP EQU * ABL TDISP GOTO DISPATCHER * IH050 EQU * INR A3,0,CUADR READ RB(NA) IH005 STR A3,A1 ONE WORD TO BUFFER ADK A1,2 UPDATE BUFFER POINTER SUK A2,2 RB(P) IH050 CIO A2,0,CUADR CIO HALT SST A3,CUADR STATUS RB(NA) *-2 IH:000 EQU * INH XIF * EJECT DRFD01 * * IFT CHAN=0 SST A3,CUADR STATUS XIF LD A8,DWTECB,A6 ECB ADDRESS LD A5,DWTA5,A6 STACK POINTER LDR A2,A3 STATUS SLL A2,1 RB(N) FDRE READY INTERRUPT LD A2,DWTRTY,A6 RETRY RF(Z) IH:10 NO CM DWTRTY,A6 RESET RETRY FLAG LDR A1,A3 ANK A1,5 DATA FAULT, NOT OPERABLE RF(Z) IH:10 RETURN CODE OK ORK A3,4 IH:10 EQU * * EJECT DRFD01 * * TRANSFORM RETURN CODE, CU - ECB * ANKL A3,/FF37 RF(Z) IH:80 LDR A1,A3 ANKL A3,/0A05 UNCHANGED BITS ECR A4,A3 ANK A4,8 CHECK IF NO DATA RF(Z) IH:70 NOT NO DATA ORK A3,4 SET BIT 13 ALSO IH:70 EQU * LDR A4,A1 ANKL A4,/0400 BIT 5 SLC A4,7 TO BIT 14 ORR A3,A4 * IFT TOSS+IBM=0 LDR A4,A1 ANKL A4,/2000 BIT 2 SLL A4,1 TO BIT 1 ORR A3,A4 XIF * LDR A4,A1 ANK A4,/20 BIT 10 SLL A4,3 TO BIT 7 ORR A3,A4 ANK A1,/10 BIT 11 SRC A1,5 TO BIT 0 ORR A3,A1 ORRS A3,A6 UPDATE TEMPORARY RETURN CODE ANKL A3,/F7FF IH:80 EQU * LDR A1,A3 RTN A5 * EJECT DRFD01 * ******************************************* * * * S U B R O U T I N E S * * * ******************************************* * ******* * * * BIO * * * ******* * * INPUT: A8 ECB ADDRESS * A4 ORDER * * OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START * A3 NO OF BYTES TO BE TRANSFERED * A4 BUFFER ADDRESS * BIO EQU * LD A1,DWTCW2,A6 GET SECTOR NUMBER SLL A1,3 PUT IN RIGHT BIO POSITION LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO SRC A2,2 ORR A2,A1 COMPLETE BIO ADR A2,A4 COMPLETE BIO WITH ORDER LD A4,DWTBA,A6 BUFFER ADDRESS LD A3,DWTRL,A6 GET REQ. LENGTH RTN A5 * EJECT DRFD01 * * ***************** * * * BIOSQ * * * ***************** * * INPUT: A8 ECB ADDRESS * A4 ORDER * * OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START * A3 NO OF BYTES TO BE TRANSFERED * A4 BUFFER ADDRESS * BIOSQ EQU * IFT IBM=1 LD A2,ECBCW2,A8 GET SECTOR NUMBER SLL A2,3 PUT IN RIGHT BIO POSITION ADR A2,A4 COMPLETE BIO WITH ORDER * IFT MMUPAG=0 LD A4,ECBBA,A8 GET BUFFER ADDRESS XIF * IFT IBM=1 IFT MMUPAG=1 LDKL A4,BUF DRIVER BUFFER ADDRESS XIF * IFT IBM=1 LDK A3,SECLEN REQUESTED LENGTH RTN A5 XIF * EJECT DRFD01 * ****************** * VO:NAM * ****************** * * VO:NAM EQU * IFT TOSS+IBM=2 LDK A3,36 LENGTH XIF * IFT TOSS=1 IFT IBM=0 LDK A3,6 VOLUME NAME LENGTH XIF * IFT TOSS=1 LDK A2,0 BIO LDKL A4,BUF READ TO BUFFER CF A5,FD:REA ANK A3,/17 FATAL ERROR RF(NZ) VOL:40 IFT IBM=1 LD A2,BUF+32 CWK A2,'TO' RF(NE) VOL:10 IBM DISC LD A2,BUF+34 GET NEXT WORD CWK A2,'SS' RF(NZ) VOL:10 IBM DISC C1 A1,DWTA3,A6 DRIVE BIT MASK ANS A1,DWTLAB,A6 INDICATE TOSS DISC XIF * EJECT DRFD01 * * IFT TOSS=1 LDKL A2,BUF IFT IBM=1 RF VOL:20 XIF * IFT IBM=1 VOL:10 EQU * LDK A3,10 LENGTH LDK A2,/30 BIO LDKL A4,BUF READ TO BUFFER CF A5,FD:REA CF A5,LD:RC LD A1,DWTA3,A6 DRIVE NO BIT MASK ORS A1,DWTLAB,A6 INDICATE IBM LDKL A1,/400 ORRS A1,A6 UPDATE TEMPORARY RETURN CODE LDK A7,10 NO OF CHARACTERS CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME XIF * EJECT DRFD01 * * VOL:20 EQU * IFF TOSS+IBM=0 LDK A3,/F8 FILE CODE LD A1,DWTST2,A6 RF(NZ) VOL:30 NOT TEST STATUS ORKL A3,/8000 INDICATE NO NEW NVL SET VOL:30 EQU * CF A15,VOLGET VOLUME NAME TO DWT SET NVL LD A8,DWTECB,A6 LDK A3,0 VOL:40 EQU * RTN A5 XIF * IFT IBM=1 EJECT DRFD01 * ********* * ASCII * ********* * * FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO * ASCII CODE * INPUT STRING ADDRESS IS BUF * INPUT: A7 NO OF CHARACTERS * A4 = BUFFER ADDRESS * OUTPUT: A1 CHANGED * A4 = BUFFER ADDRESS * A7 CHANGED * ASCII EQU * IFT MMUPAG=1 LDKL A4,BUF DRIVER BUFFER ADDRESS XIF * IFT IBM=1 ENB ADR A4,A7 ASC:10 EQU * SUK A4,1 LCR A1,A4 EBCDIC CHARACTER ANK A1,/FF LC A1,TASCII,A1 TRANSFORM TO ASCII SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER SUK A7,1 RB(P) ASC:10 RF EBC:90 * EJECT DRFD01 * ********** * EBCDIC * ********** * * FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO * EBCDIC CODE * OUTPUT STRING IS PUT IN DRIVER BUFFER * * INPUT: A7 NO OF CHARACTERS * A4 = BUFFER ADDRESS * * OUTPUT: A1 CHANGED * A4 = BUFFER ADDRESS * A7 CHANGED EBCDIC EQU * ENB IFT MMUPAG=1 LDKL A4,BUF DRIVER BUFFER ADDRESS XIF * IFT IBM=1 ADR A4,A7 EBC:10 EQU * SUK A4,1 LCR A1,A4 GET ASCII CHAR. ANK A1,/FF LC A1,TEBCDIC,A1 SC A1,BUF-1,A7 SUK A7,1 RB(P) EBC:10 LDKL A4,BUF DRIVER BUFFER ADDRESS EBC:90 EQU * INH INHIBIT INTERRUPTS RTN A5 * EJECT DRFD01 * ********** * LOGSEC * ********* * * FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD * LOGICAL SECTOR (BINARY). * FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) * TT = TRACK, SS=SECTOR * * INPUT: A4 ADDRESS TO PHYS. SECTOR * * OUTPUT: A3 BINARY SECTOR NO * A4 ADDRESS TO PHYS. SEC. + 4 * LOGSEC EQU * CF A5,DECBIN LDR A3,A1 SAVE ADK A4,2 * * MULTIPLY BY 26 * SLL A3,5 *32 LDR A2,A1 SLL A2,2 SUR A3,A2 *28 SLL A1,1 SUR A3,A1 *26 CF A5,DECBIN SUK A1,1 ADR A3,A1 * EJECT DRFD01 * * CHECK SECTOR NO * LDR A1,A3 SUK A1,25 RF(NP) LOG:10 CWK A4,BUF+EOD+4 EOD RF(E) LOG:02 YES! SUKL A1,1898 RF LOG:04 * * CHECK EOD LESS/EQUAL 74001 * LOG:02 SUKL A1,1899 LOG:04 EQU * RF(P) LOG:10 NOT ACC SEC. NO SUK A4,4 RESET BUFFER POINTER RTN A5 * * FATAL ERROR * LOG:05 ADK A5,4 ADJUST STACK POINTER LOG:10 LDK A1,/10 RETURN CODE ORRS A1,A6 UPDATE TEMPORARY RETURN CODE INH INHIBIT INTERRUPTS ABL LOA:90 ERROR ROUTINE * EJECT DRFD01 * ********** * DECBIN* ********** * * FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO * BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED * INPUT: A4 ADDRESS TO FIRST DIGIT * OUTPUT: A1 BINARY * WORKING REG: A2,A7 * DECBIN LDK A1,0 LDK A7,2 DEC:10 LCR A2,A4 DIGIT ANK A2,/FF SUK A2,/F0 RB(N) LOG:05 SUK A2,9 RB(P) LOG:05 NOT DIGIT ADK A2,9 SUK A7,1 RF(Z) DEC:30 ADK A4,1 ADDRESS TO SECOND DIGIT DEC:20 SUK A2,1 RB(N) DEC:10 NEXT DIGIT ADK A1,/A MULTIPLY BY 10 RB DEC:20 DEC:30 ADR A1,A2 RTN A5 XIF * EJECT DRFD01 * ********** * SETCIO * ********** * * FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION * * INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES * * OUTPUT: A3 CHANGED * A4 CHANGED * SETCIO LDKL A4,/FFCF ANS A4,FD:CIO SLL A3,4 ORS A3,FD:CIO RTN A5 IFT IBM=1 * EJECT DRFD01 * ********** * BINDEC * ********** * * FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO * EBCDIC-CODED DIGITS (DECIMAL) * * INPUT: A7 BINARY NUMBER * * OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS * A7 CHANGED * BINDEC LDK A3,0 BIN:10 SUK A7,10 RF(N) BIN:20 ADK A3,1 RB BIN:10 BIN:20 ADK A7,10 SLL A3,8 ORR A3,A7 DECIMAL CONVERTED NO IN A3 ORKL A3,/F0F0 EBCDIC CODED RTN A5 * EJECT DRFD01 ********* * DSLIO * ********* * * FUNCTION: PREPARE FOR READING DATA SET LABEL * * INPUT: A6 DWT ADDRESS * * OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES * A3 128 * A4 DRIVER BUFFER ADDRESS * A6 DWT ADDRESS * A1 IS CHANGED * DSLIO LDK A1,DWTDSS CF A5,DSPAD LDR* A2,A2 SLL A2,3 LDK A3,128 LDKL A4,BUF RTN A5 * EJECT DRFD01 * ********** * DSOPCH * ********** * * FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT * * INPUT: A6 DWT ADDRESS * * OUTPUT: A2 EOD ADDRESS * A7 EOD-NO (0=NOT OPEN) * A1 CHANGED DSOPCH LDK A1,DWTEOD CF A5,DSPAD LDR* A7,A2 EOD-NO RTN A5 * EJECT DRFD01 * ********* * DSPAD * ********* * * FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED * TYPE OF DATA FOR CORRESPONDING DRIVE * * INPUT: A1 DWT OFFSET * A6 DWT ADDRESS * * OUTPUT: A2 ADDRESS TO DATA * A6 DWT ADDRESS * DSPAD LC A2,DWTOR,A6 DRIVE NO ANK A2,/3 ADR A2,A2 ADR A2,A6 ADR A2,A1 RTN A5 * EJECT DRFD01 * ********* * STDWT * ********* * * FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF * DRIVE NO * * INPUT: A1 OFFSET TO DWT AREA * A3 WORD TO BE STORED IN DWT * A6 DWT ADDRESS * * OUTPUT: A1 UNCHANGED * A2 ADDRESS TO WORD IN DWT AREA * A3 UNCHANGED * A6 UNCHANGED * STDWT EQU * CF A5,DSPAD STR A3,A2 RTN A5 XIF * EJECT DRFD01 * * D R I V E R B U F F E R * BUF EQU * IFT IBM=1 RES DVBLEN XIF * IFT TOSS=1 IFT IBM=0 DATA 0,0,0 VOLUME NAME BUFFER IFT MMUPAG+CHAN=2 RES DVBLEN-3 MMU BUFFER XIF * IFT TOSS+IBM=0 IFT MMUPAG+CHAN=2 RES DVBLEN MMU BUFFER XIF * EJECT DRFD01 * ********************* * * * DEVICE WORK TABLE * * * ********************* * DWFD01 EQU * DWTRCW EQU *-DWFD01 TEMP RETURN CODE DATA 0 DATA /8000 DWT STATUS DATA 0 ECB ADDRESS DATA 0 ORDER DATA FDADR 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 DEVECB MMU ECB ADDRESS XIF * DWTA3 EQU *-DWFD01 DATA 0 DATA 0 SAVE AREA DATA 0 DATA 0 DATA 0,0,0,0 STACK (3 LEVELS) DATA 0 ORDER SAVE AREA * EJECT DRFD01 * * IFF TOSS+IBM=0 DATA /8000 NVL INDICATOR 0 DATA /8000 NVL INDICATOR 1 DATA /8000 NVL INDICATOR 2 DATA /8000 NVL INDICATOR 3 DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 DATA /FFFF,/FFFF,/FFFF DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 DATA /FFFF,/FFFF,/FFFF DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 DATA /FFFF,/FFFF,/FFFF DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 DATA /FFFF,/FFFF,/FFFF DWTST2 EQU *-DWFD01 SAVE STATUS WORD DATA 0 XIF DWTA5 EQU *-DWFD01 DATA 0 DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG DATA 0 DWTTP EQU *-DWFD01 TIMER POINTER DATA 0 * EJECT DRFD01 * * IFT IBM=1 DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR DATA 0 XIF * DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR DATA 0 * IFT OPCLOS=1 DWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN DATA 0 DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON DATA 0 XIF * EJECT DRFD01 * * IFT CHAN=1 DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER DATA 0 DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 DATA 0 DWTRW EQU *-DWFD01 READ/WRITE INDICATOR DATA 0 XIF * IFT IBM=1 DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT DATA 0,0,0,0 DWTEOD EQU *-DWFD01 END OF DATA DATA 0,0,0,0 DWTEOE EQU *-DWFD01 END OF EXTENT DATA 0,0,0,0 DWTCRN EQU *-DWFD01 CURRENT RECORD NO DATA 0,0,0,0 DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR DATA 0,0,0,0 XIF * EJECT DRFD01 * * DWTBA EQU *-DWFD01 BUFFER POINTER DATA 0 DWTRL EQU *-DWFD01 LENGTH IN SUB IO DATA 0 DWTCW2 EQU *-DWFD01 SECTOR NUMBER DATA 0 DWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER DATA 0 DWTSIO EQU *-DWFD01 NUMBER OF SECTORS IN SUB IO DATA 0 * IFT IBM+TOSS=2 DWTFIB EQU *-DWFD01 IBM INDICATOR DATA 0 XIF * EJECT DRFD01 * * IFT MMUPAG=1 DWT:BF EQU *-DWFD01 DATA 0 SAVE AREA BUFFER ADDRESS BUFFLG EQU *-DWFD01 DATA 0 * IFF CHAN+IBM=0 DWT:PA EQU *-DWFD01 DATA 0 6 BIT PHYSICAL BUFFER ADDRESS DATA 0 SECOND MMU ENTRY * DWT:LA EQU *-DWFD01 DATA 0 16 BIT LOGICAL BUFFER ADDRESS XIF * IFT MMUPAG=1 DEVECB EQU * DATA 0,0,0,0,0,0,0 XIF * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRFD01 REL 10.0 80-03-14 870105041000 «, 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…007e Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x004c}
0x007e…0088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0082}
0x0088…00ae Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x008c}
0x00ae…00b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b2}
0x00b8…00e4 Head {h00=0x0028, h01=0x0050, text=»* DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0000, t01=0x00bc}
0x00e4…00ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
0x00ee…00f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f2}
0x00f8…0102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…010c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x010c…0116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…0156 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0000, t01=0x0124}
0x0156…0160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…016a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x016a…019e Head {h00=0x0030, h01=0x0050, text=»* THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0000, t01=0x016e}
0x019e…01d0 Head {h00=0x002e, h01=0x0050, text=»* CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0001, t01=0x0012}
0x01d0…0204 Head {h00=0x0030, h01=0x0050, text=»* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0001, t01=0x0044}
0x0204…022e Head {h00=0x0026, h01=0x0050, text=»* MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0001, t01=0x0078}
0x022e…0238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a2}
0x0238…0242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ac}
0x0242…025a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0001, t01=0x00b6}
0x025a…0264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0264…0276 Head {h00=0x000e, h01=0x0050, text=»* ORDERS:«, t00=0x0001, t01=0x00d8}
0x0276…0280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ea}
0x0280…029c Head {h00=0x0018, h01=0x0050, text=»* /00 TEST STATUS«, t00=0x0001, t01=0x00f4}
0x029c…02ba Head {h00=0x001a, h01=0x0050, text=»* /01 PHYSICAL READ«, t00=0x0001, t01=0x0110}
0x02ba…0300 Head {h00=0x0042, h01=0x0050, text=»* /02 SEQUENTIAL READ -IBM DISC ONLY-«, t00=0x0001, t01=0x012e}
0x0300…031c Head {h00=0x0018, h01=0x0050, text=»* /05 BASIC WRITE«, t00=0x0001, t01=0x0174}
0x031c…0364 Head {h00=0x0044, h01=0x0050, text=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- «, t00=0x0001, t01=0x0190}
0x0364…0382 Head {h00=0x001a, h01=0x0050, text=»* /11 PHYSICAL READ«, t00=0x0002, t01=0x0048}
0x0382…03a2 Head {h00=0x001c, h01=0x0050, text=»* /15 PHYSICAL WRITE «, t00=0x0002, t01=0x0066}
0x03a2…03b6 Head {h00=0x0010, h01=0x0050, text=»* /21 OPEN «, t00=0x0002, t01=0x0086}
0x03b6…03ca Head {h00=0x0010, h01=0x0050, text=»* /22 CLOSE«, t00=0x0002, t01=0x009a}
0x03ca…03ee Head {h00=0x0020, h01=0x0050, text=»* /24 WRITE DELETED DATA «, t00=0x0002, t01=0x00ae}
0x03ee…0404 Head {h00=0x0012, h01=0x0050, text=»* /26 LOCK «, t00=0x0002, t01=0x00d2}
0x0404…044c Head {h00=0x0044, h01=0x0050, text=»* /31 REWIND -IBM DISC ONLY- «, t00=0x0002, t01=0x00e8}
0x044c…0462 Head {h00=0x0012, h01=0x0050, text=»* /37 LOAD «, t00=0x0002, t01=0x0130}
0x0462…047a Head {h00=0x0014, h01=0x0050, text=»* /38 UNLOAD «, t00=0x0002, t01=0x0146}
0x047a…0484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015e}
0x0484…04a0 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS:«, t00=0x0002, t01=0x0168}
0x04a0…04aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0184}
0x04aa…04c6 Head {h00=0x0018, h01=0x0050, text=»* A5 STACK BASE «, t00=0x0002, t01=0x018e}
0x04c6…04e2 Head {h00=0x0018, h01=0x0050, text=»* A6 DWT-ADDRESS«, t00=0x0003, t01=0x001a}
0x04e2…04f8 Head {h00=0x0012, h01=0x0050, text=»* A7 ORDER«, t00=0x0003, t01=0x0036}
0x04f8…0514 Head {h00=0x0018, h01=0x0050, text=»* A8 ECB-ADDRESS«, t00=0x0003, t01=0x004c}
0x0514…052c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0003, t01=0x0068}
0x052c…0536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0080}
0x0536…054a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x008a}
0x054a…055e Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0003, t01=0x009e}
0x055e…0572 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x00b2}
0x0572…0586 Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0003, t01=0x00c6}
0x0586…059a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00da}
0x059a…05a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ee}
0x05a4…05cc Head {h00=0x0024, h01=0x0050, text=» ENTRY FDADR ACTIVATION ADDRESS«, t00=0x0003, t01=0x00f8}
0x05cc…05f2 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0003, t01=0x0120}
0x05f2…0616 Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0003, t01=0x0146}
0x0616…0638 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0003, t01=0x016a}
0x0638…0650 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0003, t01=0x018c}
0x0650…065a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x065a…0670 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x001e}
0x0670…0686 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x0034}
0x0686…069c Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x004a}
0x069c…06b2 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x0060}
0x06b2…06c8 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0076}
0x06c8…06d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d2…06f2 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x0096}
0x06f2…070e Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0004, t01=0x00b6}
0x070e…0732 Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x00d2}
0x0732…0760 Head {h00=0x002a, h01=0x0050, text=» EXTRN DISEND PERFORM TENDIO AND TDISP«, t00=0x0004, t01=0x00f6}
0x0760…0788 Head {h00=0x0024, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAME «, t00=0x0004, t01=0x0124}
0x0788…07b2 Head {h00=0x0026, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME ADDRESS «, t00=0x0004, t01=0x014c}
0x07b2…07e6 Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL«, t00=0x0004, t01=0x0176}
0x07e6…0818 Head {h00=0x002e, h01=0x0050, text=» EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED «, t00=0x0005, t01=0x001a}
0x0818…0834 Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x004c}
0x0834…0856 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0005, t01=0x0068}
0x0856…087c Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x0005, t01=0x008a}
0x087c…08a4 Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0005, t01=0x00b0}
0x08a4…08d0 Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTORD ORDER/INDEX SAVE AREA «, t00=0x0005, t01=0x00d8}
0x08d0…08f2 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0005, t01=0x0104}
0x08f2…0914 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0005, t01=0x0126}
0x0914…093e Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0005, t01=0x0148}
0x093e…095e Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0005, t01=0x0172}
0x095e…098a (6, 0, 400) Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0006, t01=0x0004}
0x098a…09a6 Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0006, t01=0x0030}
0x09a6…09d0 Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0006, t01=0x004c}
0x09d0…09fa Head {h00=0x0026, h01=0x0050, text=» EXTRN PFPOST PWF POST PROC. FLAG «, t00=0x0006, t01=0x0076}
0x09fa…0a24 Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0006, t01=0x00a0}
0x0a24…0a4e Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0006, t01=0x00ca}
0x0a4e…0a82 Head {h00=0x0030, h01=0x0050, text=» EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE«, t00=0x0006, t01=0x00f4}
0x0a82…0aaa Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0006, t01=0x0128}
0x0aaa…0ad4 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0006, t01=0x0150}
0x0ad4…0afe Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0006, t01=0x017a}
0x0afe…0b26 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW1 ECB CONTROL WORD 1«, t00=0x0007, t01=0x0014}
0x0b26…0b4e Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW2 ECB CONTROL WORD 2«, t00=0x0007, t01=0x003c}
0x0b4e…0b66 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0007, t01=0x0064}
0x0b66…0b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b70…0b90 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x0086}
0x0b90…0bb0 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00a6}
0x0bb0…0bd0 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x00c6}
0x0bd0…0bf0 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00e6}
0x0bf0…0c10 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x0106}
0x0c10…0c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0126}
0x0c1a…0c4c Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0007, t01=0x0130}
0x0c4c…0c70 Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0007, t01=0x0162}
0x0c70…0c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0186}
0x0c7a…0c8c Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0007, t01=0x0190}
0x0c8c…0c9e Head {h00=0x000e, h01=0x0050, text=»CHAN EQU 1«, t00=0x0008, t01=0x0012}
0x0c9e…0ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0024}
0x0ca8…0cde Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0008, t01=0x002e}
0x0cde…0d0a Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0008, t01=0x0064}
0x0d0a…0d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0090}
0x0d14…0d26 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x009a}
0x0d26…0d38 Head {h00=0x000e, h01=0x0050, text=»TOSS EQU 1«, t00=0x0008, t01=0x00ac}
0x0d38…0d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00be}
0x0d42…0d78 Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x0008, t01=0x00c8}
0x0d78…0da4 Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x0008, t01=0x00fe}
0x0da4…0dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012a}
0x0dae…0dc0 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0008, t01=0x0134}
0x0dc0…0dd2 Head {h00=0x000e, h01=0x0050, text=»IBM EQU 0 «, t00=0x0008, t01=0x0146}
0x0dd2…0ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0158}
0x0ddc…0e0e Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x0162}
0x0e0e…0e3c (9, 0, 400) Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0009, t01=0x0004}
0x0e3c…0e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0032}
0x0e46…0e5a Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0009, t01=0x003c}
0x0e5a…0e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0050}
0x0e64…0e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x005a}
0x0e6e…0ea8 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0009, t01=0x0064}
0x0ea8…0eda Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x009e}
0x0eda…0ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d0}
0x0ee4…0ef8 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0009, t01=0x00da}
0x0ef8…0f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ee}
0x0f02…0f1a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0009, t01=0x00f8}
0x0f1a…0f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0110}
0x0f24…0f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011a}
0x0f2e…0f72 Head {h00=0x0040, h01=0x0050, text=»* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER «, t00=0x0009, t01=0x0124}
0x0f72…0fba Head {h00=0x0044, h01=0x0050, text=»* TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1«, t00=0x0009, t01=0x0168}
0x0fba…0fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0020}
0x0fc4…0fd6 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000a, t01=0x002a}
0x0fd6…0fea Head {h00=0x0010, h01=0x0050, text=»OPCLOS EQU 1«, t00=0x000a, t01=0x003c}
0x0fea…0ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0050}
0x0ff4…100c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000a, t01=0x005a}
0x100c…1016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0072}
0x1016…1020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007c}
0x1020…103c Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000a, t01=0x0086}
0x103c…1046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a2}
0x1046…1050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ac}
0x1050…1066 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000a, t01=0x00b6}
0x1066…107c Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 256«, t00=0x000a, t01=0x00cc}
0x107c…1088 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00e2}
0x1088…1092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ee}
0x1092…10a8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000a, t01=0x00f8}
0x10a8…10be Head {h00=0x0012, h01=0x0050, text=»X:E EQU 256 «, t00=0x000a, t01=0x010e}
0x10be…10d6 Head {h00=0x0014, h01=0x0050, text=»DVBLEN EQU 000 «, t00=0x000a, t01=0x0124}
0x10d6…10e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x013c}
0x10e2…10ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0148}
0x10ec…10f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0152}
0x10f6…1112 Head {h00=0x0018, h01=0x0050, text=»* MMU DEVICE INDEX«, t00=0x000a, t01=0x015c}
0x1112…111c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0178}
0x111c…1126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0182}
0x1126…113c Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU 10 «, t00=0x000a, t01=0x018c}
0x113c…1146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0012}
0x1146…115e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000b, t01=0x001c}
0x115e…1168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0034}
0x1168…117e Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x003e}
0x117e…1194 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0054}
0x1194…11aa Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x006a}
0x11aa…11c0 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0080}
0x11c0…11d6 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0096}
0x11d6…11e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ac}
0x11e0…120a Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000b, t01=0x00b6}
0x120a…1234 Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000b, t01=0x00e0}
0x1234…1260 Head {h00=0x0028, h01=0x0050, text=»SOPDA EQU /2E S.O.P. DEVICE ADDRESS «, t00=0x000b, t01=0x010a}
0x1260…1284 Head {h00=0x0020, h01=0x0050, text=»SECLEN EQU 128 SECTOR LENGTH«, t00=0x000b, t01=0x0136}
0x1284…12ae Head {h00=0x0026, h01=0x0050, text=»MAXSEC EQU 2002 MAX SECTOR NUMBER «, t00=0x000b, t01=0x015a}
0x12ae…12e0 Head {h00=0x002e, h01=0x0050, text=»MAXIBM EQU 1923 MAX SECTOR NUMBER IBM DISC«, t00=0x000b, t01=0x0184}
0x12e0…130c Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000c, t01=0x0026}
0x130c…1336 Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000c, t01=0x0052}
0x1336…135e Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000c, t01=0x007c}
0x135e…1382 Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000c, t01=0x00a4}
0x1382…13ac Head {h00=0x0026, h01=0x0050, text=»OPENTI EQU 10 DELAY AT OPEN ORDERS«, t00=0x000c, t01=0x00c8}
0x13ac…13b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f2}
0x13b6…13de Head {h00=0x0024, h01=0x0050, text=»DIXTAB EQU * DOUBLE INDEX TABLE «, t00=0x000c, t01=0x00fc}
0x13de…13f2 Head {h00=0x0010, h01=0x0050, text=» DATA /0102 «, t00=0x000c, t01=0x0124}
0x13f2…1406 Head {h00=0x0010, h01=0x0050, text=» DATA /0408 «, t00=0x000c, t01=0x0138}
0x1406…1410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x014c}
0x1410…1428 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000c, t01=0x0156}
0x1428…1432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016e}
0x1432…1444 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000c, t01=0x0178}
0x1444…1456 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x000c, t01=0x018a}
0x1456…1468 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000d, t01=0x000c}
0x1468…147a Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x000d, t01=0x001e}
0x147a…148c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x0030}
0x148c…1496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0042}
0x1496…14ae Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x000d, t01=0x004c}
0x14ae…14da Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x000d, t01=0x0064}
0x14da…14e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0090}
0x14e6…14f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009c}
0x14f0…1504 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000d, t01=0x00a6}
0x1504…1516 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x000d, t01=0x00ba}
0x1516…153c Head {h00=0x0022, h01=0x0050, text=» DATA 0 INDICATE NO MMU BUFFER«, t00=0x000d, t01=0x00cc}
0x153c…1548 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00f2}
0x1548…1552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fe}
0x1552…1574 Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000d, t01=0x0108}
0x1574…159e Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000d, t01=0x012a}
0x159e…15c4 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000d, t01=0x0154}
0x15c4…15ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017a}
0x15ce…15e6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000d, t01=0x0184}
0x15e6…15f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000c}
0x15f0…1608 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x0016}
0x1608…1620 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000e, t01=0x002e}
0x1620…1638 Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x000e, t01=0x0046}
0x1638…1650 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000e, t01=0x005e}
0x1650…1668 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x0076}
0x1668…1672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008e}
0x1672…1686 Head {h00=0x0010, h01=0x0050, text=»TESTST EQU *«, t00=0x000e, t01=0x0098}
0x1686…169e Head {h00=0x0014, h01=0x0050, text=» IFF IBM+TOSS=0 «, t00=0x000e, t01=0x00ac}
0x169e…16b4 Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x000e, t01=0x00c4}
0x16b4…16da Head {h00=0x0022, h01=0x0050, text=» STR A1,A6 SAVE NVL INDICATOR «, t00=0x000e, t01=0x00da}
0x16da…16e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0100}
0x16e6…16f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010c}
0x16f0…1710 Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x000e, t01=0x0116}
0x1710…1726 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x000e, t01=0x0136}
0x1726…1738 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x000e, t01=0x014c}
0x1738…1760 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DIS:EN DISC NOT OPERABLE«, t00=0x000e, t01=0x015e}
0x1760…178e Head {h00=0x002a, h01=0x0050, text=» LDKL A2,/7FFF RESET REQUEST ERROR BIT«, t00=0x000e, t01=0x0186}
0x178e…17a2 Head {h00=0x0010, h01=0x0050, text=» ANRS A2,A6 «, t00=0x000f, t01=0x0024}
0x17a2…17ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0038}
0x17ac…17c4 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x000f, t01=0x0042}
0x17c4…17ea Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x000f, t01=0x005a}
0x17ea…181a Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTORD,A6 RESTORE INDEX AND ORDER«, t00=0x000f, t01=0x0080}
0x181a…1832 Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTOR,A6 «, t00=0x000f, t01=0x00b0}
0x1832…1848 Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLNAM«, t00=0x000f, t01=0x00c8}
0x1848…185c Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x000f, t01=0x00de}
0x185c…1868 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00f2}
0x1868…1872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fe}
0x1872…188a Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x000f, t01=0x0108}
0x188a…189e Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x000f, t01=0x0120}
0x189e…18aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0134}
0x18aa…18b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0140}
0x18b4…18cc Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000f, t01=0x014a}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0162}
0x18d6…18ec Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x016c}
0x18ec…1902 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0182}
0x1902…1918 Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x0010, t01=0x0008}
0x1918…192e Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0010, t01=0x001e}
0x192e…1944 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0010, t01=0x0034}
0x1944…194e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004a}
0x194e…1972 Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x0010, t01=0x0054}
0x1972…1988 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0010, t01=0x0078}
0x1988…199c Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0010, t01=0x008e}
0x199c…19b2 Head {h00=0x0012, h01=0x0050, text=» CM BUFFLG,A6 «, t00=0x0010, t01=0x00a2}
0x19b2…19be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00b8}
0x19be…19c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c4}
0x19c8…19f0 Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOR,A6 INDEX AND ORDER «, t00=0x0010, t01=0x00ce}
0x19f0…1a24 Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES «, t00=0x0010, t01=0x00f6}
0x1a24…1a50 Head {h00=0x0028, h01=0x0050, text=» CMR A6 RESET TEMPORARY RETURN CODE «, t00=0x0010, t01=0x012a}
0x1a50…1a62 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0010, t01=0x0156}
0x1a62…1a84 Head {h00=0x001e, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX «, t00=0x0010, t01=0x0168}
0x1a84…1a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x018a}
0x1a8e…1aa4 (17, 0, 398) Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0011, t01=0x0004}
0x1aa4…1aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001a}
0x1aae…1ad8 Head {h00=0x0026, h01=0x0050, text=»* CHECK IF OPEN OR CLOSE ORDER «, t00=0x0011, t01=0x0024}
0x1ad8…1ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004e}
0x1ae2…1afa Head {h00=0x0014, h01=0x0050, text=» LDR A1,A7 ORDER«, t00=0x0011, t01=0x0058}
0x1afa…1b0e Head {h00=0x0010, h01=0x0050, text=» SUK A1,/21 «, t00=0x0011, t01=0x0070}
0x1b0e…1b26 Head {h00=0x0014, h01=0x0050, text=» RF(Z) OPEN OPEN«, t00=0x0011, t01=0x0084}
0x1b26…1b38 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0011, t01=0x009c}
0x1b38…1b5e Head {h00=0x0022, h01=0x0050, text=» RF(NZ) FD:ORD NOT CLOSE ORDER«, t00=0x0011, t01=0x00ae}
0x1b5e…1b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d4}
0x1b68…1b76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00de}
0x1b76…1b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ec}
0x1b80…1b92 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0011, t01=0x00f6}
0x1b92…1ba4 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0011, t01=0x0108}
0x1ba4…1bb6 Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x0011, t01=0x011a}
0x1bb6…1bc8 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0011, t01=0x012c}
0x1bc8…1bda Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0011, t01=0x013e}
0x1bda…1be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0150}
0x1be4…1c1c Head {h00=0x0034, h01=0x0050, text=»* CLOSE IS PERFORMED BY WRITING A ONE TO BIT «, t00=0x0011, t01=0x015a}
0x1c1c…1c52 (18, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER «, t00=0x0012, t01=0x0004}
0x1c52…1c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003a}
0x1c5c…1c82 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 MASK FOR BIT 0 «, t00=0x0012, t01=0x0044}
0x1c82…1cac Head {h00=0x0026, h01=0x0050, text=» ORS A1,SPDLCI SET OPEN/CLOSE BIT «, t00=0x0012, t01=0x006a}
0x1cac…1cbe Head {h00=0x000e, h01=0x0050, text=» RF OPEN10«, t00=0x0012, t01=0x0094}
0x1cbe…1cc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a6}
0x1cc8…1cd6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00b0}
0x1cd6…1ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00be}
0x1ce0…1cf0 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0012, t01=0x00c8}
0x1cf0…1d00 Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00d8}
0x1d00…1d10 Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0012, t01=0x00e8}
0x1d10…1d20 Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00f8}
0x1d20…1d30 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0012, t01=0x0108}
0x1d30…1d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0118}
0x1d3a…1d72 Head {h00=0x0034, h01=0x0050, text=»* OPEN IS PERFORMED BY WRITING A ZERO TO BIT «, t00=0x0012, t01=0x0122}
0x1d72…1da8 Head {h00=0x0032, h01=0x0050, text=»* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER.«, t00=0x0012, t01=0x015a}
0x1da8…1db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0190}
0x1db2…1dc4 Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0013, t01=0x000a}
0x1dc4…1dea Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/7FFF MASK FOR BIT 0 «, t00=0x0013, t01=0x001c}
0x1dea…1e16 Head {h00=0x0028, h01=0x0050, text=» ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT «, t00=0x0013, t01=0x0042}
0x1e16…1e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x006e}
0x1e20…1e34 Head {h00=0x0010, h01=0x0050, text=»OPEN10 EQU *«, t00=0x0013, t01=0x0078}
0x1e34…1e68 Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0013, t01=0x008c}
0x1e68…1e8e Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA OPEN FD DRIVE «, t00=0x0013, t01=0x00c0}
0x1e8e…1e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e6}
0x1e98…1ec6 Head {h00=0x002a, h01=0x0050, text=»* WAIT FOR DRIVE TO BECOME OPERABLE«, t00=0x0013, t01=0x00f0}
0x1ec6…1ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011e}
0x1ed0…1efc Head {h00=0x0028, h01=0x0050, text=» LDK A4,DWTTP2 TIMER POINTER OFFSET «, t00=0x0013, t01=0x0128}
0x1efc…1f28 Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 A4:=TIMER POINTER ADDRESS«, t00=0x0013, t01=0x0154}
0x1f28…1f48 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDR«, t00=0x0013, t01=0x0180}
0x1f48…1f64 Head {h00=0x0018, h01=0x0050, text=» CF A15,SETIMP WAIT «, t00=0x0014, t01=0x0010}
0x1f64…1f96 Head {h00=0x002e, h01=0x0050, text=» DATA OPENRE,OPENTI START ADDR, WAIT TIME «, t00=0x0014, t01=0x002c}
0x1f96…1fae Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x0014, t01=0x005e}
0x1fae…1fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0076}
0x1fb8…1fcc Head {h00=0x0010, h01=0x0050, text=»OPENRE EQU *«, t00=0x0014, t01=0x0080}
0x1fcc…1fec Head {h00=0x001c, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDR «, t00=0x0014, t01=0x0094}
0x1fec…201c Head {h00=0x002c, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER RUNNING «, t00=0x0014, t01=0x00b4}
0x201c…203a Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0014, t01=0x00e4}
0x203a…2066 Head {h00=0x0028, h01=0x0050, text=» RF DIS:EN PERFORM TENDIO AND TDISP «, t00=0x0014, t01=0x0102}
0x2066…2072 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x012e}
0x2072…207c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x013a}
0x207c…208a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0144}
0x208a…2094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0152}
0x2094…20be Head {h00=0x0026, h01=0x0050, text=»* PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x0014, t01=0x015c}
0x20be…20c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0186}
0x20c8…20dc Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x0014, t01=0x0190}
0x20dc…20f4 Head {h00=0x0014, h01=0x0050, text=» LC A2,DIXTAB,A3«, t00=0x0015, t01=0x0014}
0x20f4…2124 Head {h00=0x002c, h01=0x0050, text=» SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK «, t00=0x0015, t01=0x002c}
0x2124…212e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005c}
0x212e…2146 Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x0015, t01=0x0066}
0x2146…215e Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTLAB,A6«, t00=0x0015, t01=0x007e}
0x215e…218a Head {h00=0x0028, h01=0x0050, text=» SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM«, t00=0x0015, t01=0x0096}
0x218a…2196 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00c2}
0x2196…21a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ce}
0x21a0…21c4 Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x0015, t01=0x00d8}
0x21c4…21ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00fc}
0x21ce…21e4 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0015, t01=0x0106}
0x21e4…21ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x011c}
0x21ee…21f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0126}
0x21f8…220a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x0015, t01=0x0130}
0x220a…222c Head {h00=0x001e, h01=0x0050, text=» RB(Z) TESTST TEST STATUS «, t00=0x0015, t01=0x0142}
0x222c…2236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0164}
0x2236…2248 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0015, t01=0x016e}
0x2248…225a Head {h00=0x000e, h01=0x0050, text=» SUK A3,38«, t00=0x0015, t01=0x0180}
0x225a…2280 (22, 0, 400) Head {h00=0x0022, h01=0x0050, text=» RF(N) INTEST READ/WRITE ORDER«, t00=0x0016, t01=0x0004}
0x2280…2292 Head {h00=0x000e, h01=0x0050, text=» SUK A3,18«, t00=0x0016, t01=0x002a}
0x2292…22b4 Head {h00=0x001e, h01=0x0050, text=» ABL(NP) LOAD LOAD/UNLOAD «, t00=0x0016, t01=0x003c}
0x22b4…22c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x005e}
0x22c0…22ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x006a}
0x22ca…22dc Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0016, t01=0x0074}
0x22dc…22ee Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x0086}
0x22ee…230e Head {h00=0x001c, h01=0x0050, text=» RF(Z) INTEST BASIC READ«, t00=0x0016, t01=0x0098}
0x230e…2320 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x00b8}
0x2320…2346 Head {h00=0x0022, h01=0x0050, text=» RF(Z) IBMCHK SEQUENTIAL READ «, t00=0x0016, t01=0x00ca}
0x2346…2358 Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x0016, t01=0x00f0}
0x2358…237a Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTEST BASIC WRITE «, t00=0x0016, t01=0x0102}
0x237a…238c Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x0124}
0x238c…23b2 Head {h00=0x0022, h01=0x0050, text=» RF(Z) IBMCHK SEQUENTIAL WRITE«, t00=0x0016, t01=0x0136}
0x23b2…23c4 Head {h00=0x000e, h01=0x0050, text=» SUK A3,32«, t00=0x0016, t01=0x015c}
0x23c4…23ee Head {h00=0x0026, h01=0x0050, text=» RF(N) INTEST PHYSICAL READ/WRITE «, t00=0x0016, t01=0x016e}
0x23ee…2400 Head {h00=0x000e, h01=0x0050, text=» SUK A3,11«, t00=0x0017, t01=0x0008}
0x2400…241c Head {h00=0x0018, h01=0x0050, text=» RF(Z) IBMCHK REWIND«, t00=0x0017, t01=0x001a}
0x241c…242e Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x0017, t01=0x0036}
0x242e…2450 Head {h00=0x001e, h01=0x0050, text=» ABL(NP) LOAD LOAD/UNLOAD «, t00=0x0017, t01=0x0048}
0x2450…245c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x006a}
0x245c…2466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0076}
0x2466…247a Head {h00=0x0010, h01=0x0050, text=»IBMCHK EQU *«, t00=0x0017, t01=0x0080}
0x247a…2492 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0017, t01=0x0094}
0x2492…24aa Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFIB,A6«, t00=0x0017, t01=0x00ac}
0x24aa…24d4 Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) IBMDSK IBM DISC HANDLING «, t00=0x0017, t01=0x00c4}
0x24d4…24e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00ee}
0x24e0…24ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00fa}
0x24ea…24fe Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=0 «, t00=0x0017, t01=0x0104}
0x24fe…2510 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0017, t01=0x0118}
0x2510…2536 Head {h00=0x0022, h01=0x0050, text=» ABL IBMDSK IBM DISC HANDLING «, t00=0x0017, t01=0x012a}
0x2536…2542 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0150}
0x2542…254c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015c}
0x254c…2562 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0017, t01=0x0166}
0x2562…256c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x017c}
0x256c…2576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0186}
0x2576…259e Head {h00=0x0024, h01=0x0050, text=»REQERR ABL DISIOE REQUEST ERROR «, t00=0x0017, t01=0x0190}
0x259e…25a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0028}
0x25a8…25dc Head {h00=0x0030, h01=0x0050, text=»INCLEN EQU * INCORRECT REQUESTED LENGTH EXIT«, t00=0x0018, t01=0x0032}
0x25dc…25fe Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8008 RETURN CODE«, t00=0x0018, t01=0x0066}
0x25fe…2608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0088}
0x2608…261c Head {h00=0x0010, h01=0x0050, text=»DIS:EN EQU *«, t00=0x0018, t01=0x0092}
0x261c…264e Head {h00=0x002e, h01=0x0050, text=» ABL DISEND PERFORM TENDIO AND GO TO TDISP«, t00=0x0018, t01=0x00a6}
0x264e…2658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d8}
0x2658…266e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0018, t01=0x00e2}
0x266e…2678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00f8}
0x2678…2698 Head {h00=0x001c, h01=0x0050, text=»* INPUT PARAMETER CHECK «, t00=0x0018, t01=0x0102}
0x2698…26a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0122}
0x26a2…26b6 Head {h00=0x0010, h01=0x0050, text=»INTEST EQU *«, t00=0x0018, t01=0x012c}
0x26b6…26ce Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0018, t01=0x0140}
0x26ce…2700 Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x0018, t01=0x0158}
0x2700…2712 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0018, t01=0x018a}
0x2712…273a Head {h00=0x0024, h01=0x0050, text=» RB(NZ) DIS:EN NEW VOLUME LOADED«, t00=0x0019, t01=0x000c}
0x273a…2746 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0034}
0x2746…2750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0040}
0x2750…2768 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBRL,A8 «, t00=0x0019, t01=0x004a}
0x2768…279e Head {h00=0x0032, h01=0x0050, text=» RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0019, t01=0x0062}
0x279e…27ca Head {h00=0x0028, h01=0x0050, text=» SRC A3,7 NUMBER OF PHYSICAL SECTORS«, t00=0x0019, t01=0x0098}
0x27ca…2800 Head {h00=0x0032, h01=0x0050, text=» RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0019, t01=0x00c4}
0x2800…2816 Head {h00=0x0012, h01=0x0050, text=» CWK A3,/01FF «, t00=0x0019, t01=0x00fa}
0x2816…284c Head {h00=0x0032, h01=0x0050, text=» RB(G) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0019, t01=0x0110}
0x284c…2876 Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x0019, t01=0x0146}
0x2876…2880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0170}
0x2880…2898 Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x0019, t01=0x017a}
0x2898…28b0 (26, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFIB,A6«, t00=0x001a, t01=0x0004}
0x28b0…28d0 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) INTES5 IBM-DISC «, t00=0x001a, t01=0x001c}
0x28d0…28dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x003c}
0x28dc…28e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0048}
0x28e6…28fa Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x001a, t01=0x0052}
0x28fa…290c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x001a, t01=0x0066}
0x290c…2946 Head {h00=0x0036, h01=0x0050, text=» SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS«, t00=0x001a, t01=0x0078}
0x2946…297c Head {h00=0x0032, h01=0x0050, text=» RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x001a, t01=0x00b2}
0x297c…29b6 Head {h00=0x0036, h01=0x0050, text=» SLL A2,1 TRANSFER TOSS-SEC. NO TOPHYSICAL SEC. NO«, t00=0x001a, t01=0x00e8}
0x29b6…29c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0122}
0x29c0…29d6 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x001a, t01=0x012c}
0x29d6…29e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0142}
0x29e0…29ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x014c}
0x29ea…29fe Head {h00=0x0010, h01=0x0050, text=»INTES5 EQU *«, t00=0x001a, t01=0x0156}
0x29fe…2a0a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x016a}
0x2a0a…2a38 Head {h00=0x002a, h01=0x0050, text=» LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER«, t00=0x001a, t01=0x0176}
0x2a38…2a5c Head {h00=0x0020, h01=0x0050, text=» RB(N) REQERR REQUEST ERROR «, t00=0x001b, t01=0x0014}
0x2a5c…2a74 Head {h00=0x0014, h01=0x0050, text=» SUKL A4,MAXSEC «, t00=0x001b, t01=0x0038}
0x2a74…2a98 Head {h00=0x0020, h01=0x0050, text=» RB(NN) REQERR REQUEST ERROR«, t00=0x001b, t01=0x0050}
0x2a98…2aaa Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x001b, t01=0x0074}
0x2aaa…2ad0 Head {h00=0x0022, h01=0x0050, text=» RB(P) INCLEN INCORRECT LENGTH«, t00=0x001b, t01=0x0086}
0x2ad0…2b00 Head {h00=0x002c, h01=0x0050, text=» ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS «, t00=0x001b, t01=0x00ac}
0x2b00…2b36 Head {h00=0x0032, h01=0x0050, text=» ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC NO«, t00=0x001b, t01=0x00dc}
0x2b36…2b58 Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBBA,A8 GET ECBBA «, t00=0x001b, t01=0x0112}
0x2b58…2b88 Head {h00=0x002c, h01=0x0050, text=» ST A2,DWTBA,A6 SAVE ECB BUFFER ADDRESS «, t00=0x001b, t01=0x0134}
0x2b88…2b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0164}
0x2b92…2ba8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001b, t01=0x016e}
0x2ba8…2bba Head {h00=0x000e, h01=0x0050, text=» LCR A2,A8«, t00=0x001b, t01=0x0184}
0x2bba…2bce Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x001c, t01=0x0008}
0x2bce…2c06 Head {h00=0x0034, h01=0x0050, text=» ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS«, t00=0x001c, t01=0x001c}
0x2c06…2c12 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0054}
0x2c12…2c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0060}
0x2c1c…2c32 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x001c, t01=0x006a}
0x2c32…2c3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0080}
0x2c3c…2c60 Head {h00=0x0020, h01=0x0050, text=»* MULTIPLE SECTOR IO ENTRY«, t00=0x001c, t01=0x008a}
0x2c60…2c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ae}
0x2c6a…2c7e Head {h00=0x0010, h01=0x0050, text=»FD:000 EQU *«, t00=0x001c, t01=0x00b8}
0x2c7e…2c94 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001c, t01=0x00cc}
0x2c94…2ca8 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x001c, t01=0x00e2}
0x2ca8…2cc0 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWT:BF,A6«, t00=0x001c, t01=0x00f6}
0x2cc0…2ce8 Head {h00=0x0024, h01=0x0050, text=» ST A2,BUFFLG,A6 SET BUFFER FLAG«, t00=0x001c, t01=0x010e}
0x2ce8…2cf4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0136}
0x2cf4…2cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0142}
0x2cfe…2d12 Head {h00=0x0010, h01=0x0050, text=» LDKL A2,512«, t00=0x001c, t01=0x014c}
0x2d12…2d24 Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x001c, t01=0x0160}
0x2d24…2d36 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x001c, t01=0x0172}
0x2d36…2d60 Head {h00=0x0026, h01=0x0050, text=» RF(NN) FD:005 FOUR PHYS. SEC. IO «, t00=0x001c, t01=0x0184}
0x2d60…2d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x001e}
0x2d6a…2d84 Head {h00=0x0016, h01=0x0050, text=»FD:003 SUK A2,128 «, t00=0x001d, t01=0x0028}
0x2d84…2d96 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001d, t01=0x0042}
0x2d96…2da8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001d, t01=0x0054}
0x2da8…2dbe Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:003«, t00=0x001d, t01=0x0066}
0x2dbe…2dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x007c}
0x2dc8…2ddc Head {h00=0x0010, h01=0x0050, text=»FD:005 EQU *«, t00=0x001d, t01=0x0086}
0x2ddc…2e0e Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC«, t00=0x001d, t01=0x009a}
0x2e0e…2e3a Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO«, t00=0x001d, t01=0x00cc}
0x2e3a…2e6c Head {h00=0x002e, h01=0x0050, text=» ST A3,DWTNOS,A6 UPDATE NUMBER OF SECTORS «, t00=0x001d, t01=0x00f8}
0x2e6c…2e76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x012a}
0x2e76…2e8e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x001d, t01=0x0134}
0x2e8e…2e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x014c}
0x2e98…2ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0156}
0x2ea2…2eb8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001d, t01=0x0160}
0x2eb8…2ed0 Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x001d, t01=0x0176}
0x2ed0…2ef6 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTBA,A6 BUFFER ADDRESS«, t00=0x001d, t01=0x018e}
0x2ef6…2f0e Head {h00=0x0014, h01=0x0050, text=» LD A1,DWT:BF,A6«, t00=0x001e, t01=0x0024}
0x2f0e…2f3e Head {h00=0x002c, h01=0x0050, text=» RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA«, t00=0x001e, t01=0x003c}
0x2f3e…2f50 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x001e, t01=0x006c}
0x2f50…2f66 Head {h00=0x0012, h01=0x0050, text=» RF(NN) FD:009«, t00=0x001e, t01=0x007e}
0x2f66…2fa0 Head {h00=0x0036, h01=0x0050, text=» AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED «, t00=0x001e, t01=0x0094}
0x2fa0…2fb8 Head {h00=0x0014, h01=0x0050, text=» RF(N) FD:009 NO«, t00=0x001e, t01=0x00ce}
0x2fb8…2fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e6}
0x2fc2…2fd8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x001e, t01=0x00f0}
0x2fd8…2fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0106}
0x2fe2…2fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0110}
0x2fec…3000 Head {h00=0x0010, h01=0x0050, text=»FD:007 EQU *«, t00=0x001e, t01=0x011a}
0x3000…3012 Head {h00=0x000e, h01=0x0050, text=» ECR A3,A2«, t00=0x001e, t01=0x012e}
0x3012…3026 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x001e, t01=0x0140}
0x3026…3038 Head {h00=0x000e, h01=0x0050, text=» SRL A3,2 «, t00=0x001e, t01=0x0154}
0x3038…304a Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x001e, t01=0x0166}
0x304a…305c Head {h00=0x000e, h01=0x0050, text=» ORR A1,A3«, t00=0x001e, t01=0x0178}
0x305c…3092 Head {h00=0x0032, h01=0x0050, text=» SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS«, t00=0x001e, t01=0x018a}
0x3092…30be Head {h00=0x0028, h01=0x0050, text=» ADK A1,/4 CREATE ONE MORE MMU ENTRY«, t00=0x001f, t01=0x0030}
0x30be…30d8 Head {h00=0x0016, h01=0x0050, text=» SC A1,DWT:PA+2,A6«, t00=0x001f, t01=0x005c}
0x30d8…30ee Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/FFF «, t00=0x001f, t01=0x0076}
0x30ee…3100 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001f, t01=0x008c}
0x3100…312c Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x001f, t01=0x009e}
0x312c…3136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ca}
0x3136…3172 Head {h00=0x0038, h01=0x0050, text=»FD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x001f, t01=0x00d4}
0x3172…317e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0110}
0x317e…3188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x011c}
0x3188…31aa Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 PREPARE FOR BIO «, t00=0x001f, t01=0x0126}
0x31aa…31c2 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x001f, t01=0x0148}
0x31c2…31dc Head {h00=0x0016, h01=0x0050, text=» ANK A1,/3F ORDER «, t00=0x001f, t01=0x0160}
0x31dc…31ee Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001f, t01=0x017a}
0x31ee…320e Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:060 BASIC READ«, t00=0x001f, t01=0x018c}
0x320e…3220 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0020, t01=0x001c}
0x3220…3242 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:015 BASIC WRITE «, t00=0x0020, t01=0x002e}
0x3242…3254 Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0020, t01=0x0050}
0x3254…3278 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:060 PHYSICAL READ «, t00=0x0020, t01=0x0062}
0x3278…328a Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0020, t01=0x0086}
0x328a…32ae Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:013 PHYSICAL WRITE«, t00=0x0020, t01=0x0098}
0x32ae…32dc Head {h00=0x002a, h01=0x0050, text=» SUK A1,15 CHECK IF WRITE DELETED DATA«, t00=0x0020, t01=0x00bc}
0x32dc…32e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ea}
0x32e6…32fa Head {h00=0x0010, h01=0x0050, text=»RQ:ERR EQU *«, t00=0x0020, t01=0x00f4}
0x32fa…3310 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) REQERR«, t00=0x0020, t01=0x0108}
0x3310…331a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x011e}
0x331a…3332 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0020, t01=0x0128}
0x3332…333c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0140}
0x333c…337c Head {h00=0x003c, h01=0x0050, text=»* WRITE DELETED DATA, PHYSICAL AND BASIC WRITE ORDERS «, t00=0x0020, t01=0x014a}
0x337c…3386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x018a}
0x3386…33b0 (33, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 WRITE DELETED DATA ORDER«, t00=0x0021, t01=0x0004}
0x33b0…33da Head {h00=0x0026, h01=0x0050, text=»FD:013 EQU * PHYSICAL WRITE ORDER «, t00=0x0021, t01=0x002e}
0x33da…33ec Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x0021, t01=0x0058}
0x33ec…3412 Head {h00=0x0022, h01=0x0050, text=»FD:015 EQU * BASIC WRITE ORDER«, t00=0x0021, t01=0x006a}
0x3412…3424 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x0090}
0x3424…344a Head {h00=0x0022, h01=0x0050, text=» CF A5,BIO PREPARATION FOR CIO«, t00=0x0021, t01=0x00a2}
0x344a…3454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00c8}
0x3454…346a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x00d2}
0x346a…347e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0021, t01=0x00e8}
0x347e…3496 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0021, t01=0x00fc}
0x3496…34ae Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0021, t01=0x0114}
0x34ae…34cc Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x0021, t01=0x012c}
0x34cc…34d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x014a}
0x34d8…34e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0156}
0x34e2…34f8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x0160}
0x34f8…3510 Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0021, t01=0x0176}
0x3510…3548 Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0021, t01=0x018e}
0x3548…3574 Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:019 BUFFER IN SYSTEM AREA «, t00=0x0022, t01=0x0036}
0x3574…3598 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A3 REQUESTED LENGTH «, t00=0x0022, t01=0x0062}
0x3598…35b2 Head {h00=0x0016, h01=0x0050, text=» LDR A8,A2 SAVE A2«, t00=0x0022, t01=0x0086}
0x35b2…35dc Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0022, t01=0x00a0}
0x35dc…35ee Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0022, t01=0x00ca}
0x35ee…3618 Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0022, t01=0x00dc}
0x3618…3644 Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0022, t01=0x0106}
0x3644…367a Head {h00=0x0032, h01=0x0050, text=» MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA «, t00=0x0022, t01=0x0132}
0x367a…36a4 Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0022, t01=0x0168}
0x36a4…36c2 (35, 0, 398) Head {h00=0x001a, h01=0x0050, text=» LDR A2,A8 RESTORE A2 «, t00=0x0023, t01=0x0004}
0x36c2…36f6 Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0023, t01=0x0022}
0x36f6…370a Head {h00=0x0010, h01=0x0050, text=»FD:019 EQU *«, t00=0x0023, t01=0x0056}
0x370a…3716 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x006a}
0x3716…3720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0076}
0x3720…3738 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0023, t01=0x0080}
0x3738…3750 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0023, t01=0x0098}
0x3750…376e Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x0023, t01=0x00b0}
0x376e…377a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x00ce}
0x377a…3784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00da}
0x3784…3796 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0023, t01=0x00e4}
0x3796…37c6 Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x0023, t01=0x00f6}
0x37c6…37dc Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x0023, t01=0x0126}
0x37dc…37f0 Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x0023, t01=0x013c}
0x37f0…37fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0150}
0x37fc…3806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x015c}
0x3806…381e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0023, t01=0x0166}
0x381e…3828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017e}
0x3828…3832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0188}
0x3832…3858 (36, 0, 400) Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x0024, t01=0x0004}
0x3858…3886 Head {h00=0x002a, h01=0x0050, text=» ANKL A3,/200 CHECK IF WRITE PROTECTED«, t00=0x0024, t01=0x002a}
0x3886…389c Head {h00=0x0012, h01=0x0050, text=» RF(Z) FD:020 «, t00=0x0024, t01=0x0058}
0x389c…38be Head {h00=0x001e, h01=0x0050, text=» LDK A3,/40 INDICATE ERROR«, t00=0x0024, t01=0x006e}
0x38be…38ee Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0024, t01=0x0090}
0x38ee…3902 Head {h00=0x0010, h01=0x0050, text=»FD:020 EQU *«, t00=0x0024, t01=0x00c0}
0x3902…3920 Head {h00=0x001a, h01=0x0050, text=» RF FD:100 GOTO FDMSIO«, t00=0x0024, t01=0x00d4}
0x3920…392a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f2}
0x392a…3942 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0024, t01=0x00fc}
0x3942…394c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0114}
0x394c…3966 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0024, t01=0x011e}
0x3966…3980 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0138}
0x3980…399a Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x0024, t01=0x0152}
0x399a…39b4 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0024, t01=0x016c}
0x39b4…39ce Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0024, t01=0x0186}
0x39ce…39d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0010}
0x39d8…39f0 Head {h00=0x0014, h01=0x0050, text=»FD:060 CF A5,BIO«, t00=0x0025, t01=0x001a}
0x39f0…39fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0032}
0x39fa…3a10 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x003c}
0x3a10…3a24 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0025, t01=0x0052}
0x3a24…3a3c Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0025, t01=0x0066}
0x3a3c…3a54 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0025, t01=0x007e}
0x3a54…3a74 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:070 TOSS DISC «, t00=0x0025, t01=0x0096}
0x3a74…3a9e Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0025, t01=0x00b6}
0x3a9e…3ad2 Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0025, t01=0x00e0}
0x3ad2…3ade Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0114}
0x3ade…3ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0120}
0x3ae8…3afc Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0025, t01=0x012a}
0x3afc…3b12 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x013e}
0x3b12…3b26 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0025, t01=0x0154}
0x3b26…3b3e Head {h00=0x0014, h01=0x0050, text=» LD A1,DWT:LA,A6«, t00=0x0025, t01=0x0168}
0x3b3e…3b6a Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:080 BUFFER IN SYSTEM AREA «, t00=0x0025, t01=0x0180}
0x3b6a…3b94 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0026, t01=0x001c}
0x3b94…3bc8 Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0026, t01=0x0046}
0x3bc8…3bd4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x007a}
0x3bd4…3bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0086}
0x3bde…3bf4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0026, t01=0x0090}
0x3bf4…3c06 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0026, t01=0x00a6}
0x3c06…3c1e Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+CHAN=0«, t00=0x0026, t01=0x00b8}
0x3c1e…3c48 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0026, t01=0x00d0}
0x3c48…3c7c Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0026, t01=0x00fa}
0x3c7c…3c88 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x012e}
0x3c88…3c92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x013a}
0x3c92…3ca6 Head {h00=0x0010, h01=0x0050, text=»FD:080 EQU *«, t00=0x0026, t01=0x0144}
0x3ca6…3cc8 Head {h00=0x001e, h01=0x0050, text=» CF A5,FD:REA PERFORM READ«, t00=0x0026, t01=0x0158}
0x3cc8…3cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x017a}
0x3cd2…3cea Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0026, t01=0x0184}
0x3cea…3d02 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0027, t01=0x000c}
0x3d02…3d20 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:090 NOT IBM «, t00=0x0027, t01=0x0024}
0x3d20…3d2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0042}
0x3d2c…3d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x004e}
0x3d36…3d48 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0027, t01=0x0058}
0x3d48…3d5e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0027, t01=0x006a}
0x3d5e…3d8a Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS«, t00=0x0027, t01=0x0080}
0x3d8a…3d96 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00ac}
0x3d96…3da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b8}
0x3da0…3db2 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0027, t01=0x00c2}
0x3db2…3dd2 Head {h00=0x001c, h01=0x0050, text=» LD A7,DWTRL,A6 REQ. LEN«, t00=0x0027, t01=0x00d4}
0x3dd2…3de6 Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0027, t01=0x00f4}
0x3de6…3dfa Head {h00=0x0010, h01=0x0050, text=»FD:090 EQU *«, t00=0x0027, t01=0x0108}
0x3dfa…3e06 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x011c}
0x3e06…3e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0128}
0x3e10…3e28 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0027, t01=0x0132}
0x3e28…3e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x014a}
0x3e32…3e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0154}
0x3e3c…3e52 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0027, t01=0x015e}
0x3e52…3e66 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0027, t01=0x0174}
0x3e66…3e7e Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0027, t01=0x0188}
0x3e7e…3e96 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0028, t01=0x0010}
0x3e96…3eb6 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:100 TOSS DISC «, t00=0x0028, t01=0x0028}
0x3eb6…3ec2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0048}
0x3ec2…3ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0054}
0x3ecc…3ee2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0028, t01=0x005e}
0x3ee2…3efa Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0028, t01=0x0074}
0x3efa…3f32 Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0028, t01=0x008c}
0x3f32…3f5e Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:100 BUFFER IN SYSTEM AREA «, t00=0x0028, t01=0x00c4}
0x3f5e…3f86 Head {h00=0x0024, h01=0x0050, text=» LD A7,DWTRL,A6 REQUESTED LENGTH«, t00=0x0028, t01=0x00f0}
0x3f86…3fb2 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,BUF GET DWT BUFFER ADDRESS «, t00=0x0028, t01=0x0118}
0x3fb2…3fdc Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0028, t01=0x0144}
0x3fdc…4008 Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0028, t01=0x016e}
0x4008…403e Head {h00=0x0032, h01=0x0050, text=» MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA «, t00=0x0029, t01=0x000a}
0x403e…4068 Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0029, t01=0x0040}
0x4068…4074 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x006a}
0x4074…4088 Head {h00=0x0010, h01=0x0050, text=»FD:100 EQU *«, t00=0x0029, t01=0x0076}
0x4088…409c Head {h00=0x0010, h01=0x0050, text=» ABL FDMSIO «, t00=0x0029, t01=0x008a}
0x409c…40a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x009e}
0x40a6…40be Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0029, t01=0x00a8}
0x40be…40c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c0}
0x40c8…40d8 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0029, t01=0x00ca}
0x40d8…40e8 Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0029, t01=0x00da}
0x40e8…40f8 Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0029, t01=0x00ea}
0x40f8…4108 Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0029, t01=0x00fa}
0x4108…4118 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0029, t01=0x010a}
0x4118…4122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x011a}
0x4122…4134 Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0029, t01=0x0124}
0x4134…4156 Head {h00=0x001e, h01=0x0050, text=» ADK A3,0 CHECK ORDER CODE«, t00=0x0029, t01=0x0136}
0x4156…4178 Head {h00=0x001e, h01=0x0050, text=» RF(Z) UNLOAD UNLOAD ORDER«, t00=0x0029, t01=0x0158}
0x4178…418a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0029, t01=0x017a}
0x418a…41aa Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOAD00 LOAD ORDER«, t00=0x0029, t01=0x018c}
0x41aa…41bc Head {h00=0x000e, h01=0x0050, text=» ADK A3,17«, t00=0x002a, t01=0x001c}
0x41bc…41e4 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RQ:ERR ERROR IF NOT LOCK«, t00=0x002a, t01=0x002e}
0x41e4…41ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0056}
0x41ee…4202 Head {h00=0x0010, h01=0x0050, text=»LOAD00 EQU *«, t00=0x002a, t01=0x0060}
0x4202…421a Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x002a, t01=0x0074}
0x421a…4230 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002a, t01=0x008c}
0x4230…4242 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x002a, t01=0x00a2}
0x4242…426c Head {h00=0x0026, h01=0x0050, text=» RF(NZ) LOA:80 ENDIO NOT OPERABLE «, t00=0x002a, t01=0x00b4}
0x426c…4276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00de}
0x4276…428e Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x002a, t01=0x00e8}
0x428e…42a6 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x002a, t01=0x0100}
0x42a6…42c6 Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:70 TOSS DISC «, t00=0x002a, t01=0x0118}
0x42c6…42d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0138}
0x42d2…42dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0144}
0x42dc…42ee Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002a, t01=0x014e}
0x42ee…4312 Head {h00=0x0020, h01=0x0050, text=» LC A3,DWTOR+1,A6 GET ORDER «, t00=0x002a, t01=0x0160}
0x4312…4326 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/26 «, t00=0x002a, t01=0x0184}
0x4326…4346 Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:65 LOCK ORDER«, t00=0x002b, t01=0x0008}
0x4346…435c Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x002b, t01=0x0028}
0x435c…4382 Head {h00=0x0022, h01=0x0050, text=» CF A5,LD:RC CHECK RETURN CODE«, t00=0x002b, t01=0x003e}
0x4382…439a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x002b, t01=0x0064}
0x439a…43a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x007c}
0x43a4…43c2 Head {h00=0x001a, h01=0x0050, text=»* READ DATA SET LABEL«, t00=0x002b, t01=0x0086}
0x43c2…43cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00a4}
0x43cc…43ee Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW2,A8 SECTOR NO«, t00=0x002b, t01=0x00ae}
0x43ee…4400 Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x002b, t01=0x00d0}
0x4400…4424 Head {h00=0x0020, h01=0x0050, text=» RF(N) LOA:85 REQUEST ERROR «, t00=0x002b, t01=0x00e2}
0x4424…4436 Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x002b, t01=0x0106}
0x4436…445a Head {h00=0x0020, h01=0x0050, text=» RF(P) LOA:85 REQUEST ERROR «, t00=0x002b, t01=0x0118}
0x445a…446c Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x002b, t01=0x013c}
0x446c…4482 Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x002b, t01=0x014e}
0x4482…449c Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x002b, t01=0x0164}
0x449c…44b0 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x002b, t01=0x017e}
0x44b0…44c6 (44, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002c, t01=0x0004}
0x44c6…44ea Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x002c, t01=0x001a}
0x44ea…450c Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x002c, t01=0x003e}
0x450c…4540 Head {h00=0x0030, h01=0x0050, text=» ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL «, t00=0x002c, t01=0x0060}
0x4540…4554 Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x002c, t01=0x0094}
0x4554…4568 Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x002c, t01=0x00a8}
0x4568…4574 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002c, t01=0x00bc}
0x4574…45a2 Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBCW2,A8 DATA SET LABEL SECTOR«, t00=0x002c, t01=0x00c8}
0x45a2…45b8 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x002c, t01=0x00f6}
0x45b8…45d8 Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x002c, t01=0x010c}
0x45d8…45f8 Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x002c, t01=0x012c}
0x45f8…462a Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x002c, t01=0x014c}
0x462a…4640 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x002c, t01=0x017e}
0x4640…4668 (45, 0, 400) Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x002d, t01=0x0004}
0x4668…467e Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x002d, t01=0x002c}
0x467e…4694 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x002d, t01=0x0042}
0x4694…46a8 Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x002d, t01=0x0058}
0x46a8…46cc Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x002d, t01=0x006c}
0x46cc…46e2 Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002d, t01=0x0090}
0x46e2…46f8 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x002d, t01=0x00a6}
0x46f8…4720 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x002d, t01=0x00bc}
0x4720…4744 Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x002d, t01=0x00e4}
0x4744…475a Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002d, t01=0x0108}
0x475a…47a4 Head {h00=0x0046, h01=0x0050, text=» INH INHIBIT INTERRUPTS INHIBIT «, t00=0x002d, t01=0x011e}
0x47a4…47ba Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x002d, t01=0x0168}
0x47ba…47e2 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x002d, t01=0x017e}
0x47e2…47ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0016}
0x47ec…4800 Head {h00=0x0010, h01=0x0050, text=»LOA:65 EQU *«, t00=0x002e, t01=0x0020}
0x4800…4816 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/400 «, t00=0x002e, t01=0x0034}
0x4816…4846 Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x002e, t01=0x004a}
0x4846…4850 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x007a}
0x4850…4864 Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x002e, t01=0x0084}
0x4864…4870 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0098}
0x4870…4888 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x002e, t01=0x00a4}
0x4888…48ae Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x002e, t01=0x00bc}
0x48ae…48c2 Head {h00=0x0010, h01=0x0050, text=»LOA:80 EQU *«, t00=0x002e, t01=0x00e2}
0x48c2…48d6 Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x002e, t01=0x00f6}
0x48d6…48e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x010a}
0x48e0…48f2 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002e, t01=0x0114}
0x48f2…4906 Head {h00=0x0010, h01=0x0050, text=»LOA:85 EQU *«, t00=0x002e, t01=0x0126}
0x4906…4928 Head {h00=0x001e, h01=0x0050, text=» LDK A1,/80 REQUEST ERROR «, t00=0x002e, t01=0x013a}
0x4928…4958 Head {h00=0x002c, h01=0x0050, text=» SCR A1,A6 UPDATE TEMPORARY RETURN CODE «, t00=0x002e, t01=0x015c}
0x4958…4964 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x018c}
0x4964…496e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0008}
0x496e…4986 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x002f, t01=0x0012}
0x4986…4990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x002a}
0x4990…499a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0034}
0x499a…49b2 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002f, t01=0x003e}
0x49b2…49bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0056}
0x49bc…49d6 Head {h00=0x0016, h01=0x0050, text=»* ERROR , UNLOCK «, t00=0x002f, t01=0x0060}
0x49d6…49e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x007a}
0x49e0…49f4 Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x002f, t01=0x0084}
0x49f4…4a06 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x002f, t01=0x0098}
0x4a06…4a28 Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x002f, t01=0x00aa}
0x4a28…4a42 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x002f, t01=0x00cc}
0x4a42…4a58 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002f, t01=0x00e6}
0x4a58…4a6a Head {h00=0x000e, h01=0x0050, text=» RB LOA:80«, t00=0x002f, t01=0x00fc}
0x4a6a…4a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x010e}
0x4a74…4a92 Head {h00=0x001a, h01=0x0050, text=»* LD:RC SUBROUTINE «, t00=0x002f, t01=0x0118}
0x4a92…4a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0136}
0x4a9c…4ab0 Head {h00=0x0010, h01=0x0050, text=»LD:RC EQU * «, t00=0x002f, t01=0x0140}
0x4ab0…4ad0 Head {h00=0x001c, h01=0x0050, text=» ANK A3,/17 FATAL ERROR «, t00=0x002f, t01=0x0154}
0x4ad0…4ae6 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x002f, t01=0x0174}
0x4ae6…4b10 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x002f, t01=0x018a}
0x4b10…4b20 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0030, t01=0x0024}
0x4b20…4b2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0034}
0x4b2c…4b36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0040}
0x4b36…4b4e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0030, t01=0x004a}
0x4b4e…4b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0062}
0x4b58…4b6a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x006c}
0x4b6a…4b7c Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0030, t01=0x007e}
0x4b7c…4b8e Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0030, t01=0x0090}
0x4b8e…4ba0 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0030, t01=0x00a2}
0x4ba0…4bb2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00b4}
0x4bb2…4bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00c6}
0x4bbc…4bd0 Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0030, t01=0x00d0}
0x4bd0…4be2 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0030, t01=0x00e4}
0x4be2…4bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00f6}
0x4bec…4c06 Head {h00=0x0016, h01=0x0050, text=»* DATA SET OPEN«, t00=0x0030, t01=0x0100}
0x4c06…4c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x011a}
0x4c10…4c32 Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0030, t01=0x0124}
0x4c32…4c56 Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0030, t01=0x0146}
0x4c56…4c74 Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0030, t01=0x016a}
0x4c74…4cac Head {h00=0x0034, h01=0x0050, text=» ST A7,12,A8 STORE EOD-NO IN CONTROL WORD OF ECB«, t00=0x0030, t01=0x0188}
0x4cac…4cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0030}
0x4cb6…4ce6 Head {h00=0x002c, h01=0x0050, text=»* READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0031, t01=0x003a}
0x4ce6…4cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x006a}
0x4cf0…4d14 Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0031, t01=0x0074}
0x4d14…4d3e Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0031, t01=0x0098}
0x4d3e…4d66 Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0031, t01=0x00c2}
0x4d66…4d72 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0031, t01=0x00ea}
0x4d72…4d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00f6}
0x4d7c…4dbc Head {h00=0x003c, h01=0x0050, text=»* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0031, t01=0x0100}
0x4dbc…4dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0140}
0x4dc6…4de8 Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0031, t01=0x014a}
0x4de8…4df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x016c}
0x4df2…4e0e Head {h00=0x0018, h01=0x0050, text=»* DIVIDE EOD BY 26 «, t00=0x0031, t01=0x0176}
0x4e0e…4e18 (50, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0004}
0x4e18…4e2a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0032, t01=0x000e}
0x4e2a…4e42 Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0032, t01=0x0020}
0x4e42…4e58 Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0032, t01=0x0038}
0x4e58…4e6a Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0032, t01=0x004e}
0x4e6a…4e7c Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0032, t01=0x0060}
0x4e7c…4e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0072}
0x4e86…4e9e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0032, t01=0x007c}
0x4e9e…4ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0094}
0x4ea8…4eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x009e}
0x4eb2…4eca Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0032, t01=0x00a8}
0x4eca…4ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00c0}
0x4ed4…4ef4 Head {h00=0x001c, h01=0x0050, text=»* A1 = BINARY TRACK NO«, t00=0x0032, t01=0x00ca}
0x4ef4…4f22 Head {h00=0x002a, h01=0x0050, text=»* A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0032, t01=0x00ea}
0x4f22…4f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0118}
0x4f2c…4f58 Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0032, t01=0x0122}
0x4f58…4f84 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0032, t01=0x014e}
0x4f84…4f96 Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0032, t01=0x017a}
0x4f96…4fa8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0032, t01=0x018c}
0x4fa8…4fc4 Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0033, t01=0x000e}
0x4fc4…4fe6 Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0033, t01=0x002a}
0x4fe6…4ffe Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x0033, t01=0x004c}
0x4ffe…502a Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x0033, t01=0x0064}
0x502a…503c Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0033, t01=0x0090}
0x503c…505e Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x0033, t01=0x00a2}
0x505e…50a8 Head {h00=0x0046, h01=0x0050, text=» INH INHIBIT INTERRUPTS INHIBIT «, t00=0x0033, t01=0x00c4}
0x50a8…50b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x010e}
0x50b2…50d2 Head {h00=0x001c, h01=0x0050, text=»* WRITE DATA SET LABEL «, t00=0x0033, t01=0x0118}
0x50d2…50dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0138}
0x50dc…5100 Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0033, t01=0x0142}
0x5100…5120 Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x0033, t01=0x0166}
0x5120…514c Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x0033, t01=0x0186}
0x514c…5174 Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x0034, t01=0x0022}
0x5174…518a Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0034, t01=0x004a}
0x518a…51ac Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x0034, t01=0x0060}
0x51ac…51b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0082}
0x51b6…51ce Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0034, t01=0x008c}
0x51ce…51d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a4}
0x51d8…51ec Head {h00=0x0010, h01=0x0050, text=»* UNLOCK «, t00=0x0034, t01=0x00ae}
0x51ec…51f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00c2}
0x51f6…5202 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00cc}
0x5202…5216 Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x0034, t01=0x00d8}
0x5216…5230 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0034, t01=0x00ec}
0x5230…5246 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0034, t01=0x0106}
0x5246…5258 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0034, t01=0x011c}
0x5258…527c Head {h00=0x0020, h01=0x0050, text=» RB(NZ) LOA:80 NOT OPERABLE «, t00=0x0034, t01=0x012e}
0x527c…529e Head {h00=0x001e, h01=0x0050, text=» C1 A2,DWTA3,A6 INDEX MASK«, t00=0x0034, t01=0x0152}
0x529e…52ce Head {h00=0x002c, h01=0x0050, text=» ANS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x0034, t01=0x0174}
0x52ce…52e8 Head {h00=0x0016, h01=0x0050, text=» RB LOA:80 END:IO «, t00=0x0035, t01=0x0014}
0x52e8…52f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x002e}
0x52f2…5304 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0035, t01=0x0038}
0x5304…530e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x004a}
0x530e…5332 Head {h00=0x0020, h01=0x0050, text=»* UNLOAD RETURN CODE CHECK«, t00=0x0035, t01=0x0054}
0x5332…533c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0078}
0x533c…5350 Head {h00=0x0010, h01=0x0050, text=»UNL:RC EQU *«, t00=0x0035, t01=0x0082}
0x5350…5366 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/207 «, t00=0x0035, t01=0x0096}
0x5366…538a Head {h00=0x0020, h01=0x0050, text=» RF(Z) RTN:A5 NO RETURN CODE«, t00=0x0035, t01=0x00ac}
0x538a…53a0 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/200 «, t00=0x0035, t01=0x00d0}
0x53a0…53ca Head {h00=0x0026, h01=0x0050, text=» RF(Z) RTN:A5 NOT WRITE PROTECTED «, t00=0x0035, t01=0x00e6}
0x53ca…53e0 Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0035, t01=0x0110}
0x53e0…5404 Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0035, t01=0x0126}
0x5404…5422 Head {h00=0x001a, h01=0x0050, text=» RF(Z) RTN:A5 NOT OPEN«, t00=0x0035, t01=0x014a}
0x5422…5436 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/40 «, t00=0x0035, t01=0x0168}
0x5436…5466 Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0035, t01=0x017c}
0x5466…547a Head {h00=0x0010, h01=0x0050, text=»RTN:A5 EQU *«, t00=0x0036, t01=0x001c}
0x547a…548a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0036, t01=0x0030}
0x548a…5494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0040}
0x5494…54ac Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0036, t01=0x004a}
0x54ac…54b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0062}
0x54b6…54c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x006c}
0x54c0…54ec Head {h00=0x0028, h01=0x0050, text=»IBMDSK EQU * IBM DISK HANDLING ENTRY«, t00=0x0036, t01=0x0076}
0x54ec…54fe Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0036, t01=0x00a2}
0x54fe…5530 Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x0036, t01=0x00b4}
0x5530…5542 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0036, t01=0x00e6}
0x5542…556c Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) END:IO NEW VOLUME LOADED «, t00=0x0036, t01=0x00f8}
0x556c…558a Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x0036, t01=0x0122}
0x558a…55ae Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0036, t01=0x0140}
0x55ae…55d4 Head {h00=0x0022, h01=0x0050, text=» RF(Z) FD:DIS NOT OPEN, ERROR «, t00=0x0036, t01=0x0164}
0x55d4…55f8 Head {h00=0x0020, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER CODE«, t00=0x0036, t01=0x018a}
0x55f8…560a Head {h00=0x000e, h01=0x0050, text=» SUK A1,49«, t00=0x0037, t01=0x001e}
0x560a…562c Head {h00=0x001e, h01=0x0050, text=» RF(Z) REWIND REWIND FILE «, t00=0x0037, t01=0x0030}
0x562c…565a Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBRL,A8 CHECK REQUESTED LENGTH«, t00=0x0037, t01=0x0052}
0x565a…5670 Head {h00=0x0012, h01=0x0050, text=» SUK A3,SECLEN«, t00=0x0037, t01=0x0080}
0x5670…5698 Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) INCLEN INCORRECT LENGTH«, t00=0x0037, t01=0x0096}
0x5698…56aa Head {h00=0x000e, h01=0x0050, text=» ADK A1,43«, t00=0x0037, t01=0x00be}
0x56aa…56d2 Head {h00=0x0024, h01=0x0050, text=» RF(Z) SQWRITE SEQUENTIAL WRITE «, t00=0x0037, t01=0x00d0}
0x56d2…56e4 Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0037, t01=0x00f8}
0x56e4…5718 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FD:DIS ERROR IF NOT SEQUENTIAL READ «, t00=0x0037, t01=0x010a}
0x5718…5722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x013e}
0x5722…573a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0037, t01=0x0148}
0x573a…5744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0160}
0x5744…5760 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0037, t01=0x016a}
0x5760…577c Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x0037, t01=0x0186}
0x577c…5798 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x0012}
0x5798…57a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x002e}
0x57a2…57d4 Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x0038, t01=0x0038}
0x57d4…57ec Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x0038, t01=0x006a}
0x57ec…5804 Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0038, t01=0x0082}
0x5804…5830 Head {h00=0x0028, h01=0x0050, text=» ST A3,ECBCW2,A8 STORE CRN+1 IN ECB «, t00=0x0038, t01=0x009a}
0x5830…5846 Head {h00=0x0012, h01=0x0050, text=» CWK A3,MAXIBM«, t00=0x0038, t01=0x00c6}
0x5846…586a Head {h00=0x0020, h01=0x0050, text=» RF(P) FD:DIS REQUEST ERROR «, t00=0x0038, t01=0x00dc}
0x586a…587c Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0038, t01=0x0100}
0x587c…589e Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x0038, t01=0x0112}
0x589e…58b8 Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 BIO READ«, t00=0x0038, t01=0x0134}
0x58b8…58cc Head {h00=0x0010, h01=0x0050, text=» CF A5,BIOSQ«, t00=0x0038, t01=0x014e}
0x58cc…5902 Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0038, t01=0x0162}
0x5902…590c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0008}
0x590c…5922 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0039, t01=0x0012}
0x5922…594e Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0039, t01=0x0028}
0x594e…595a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0054}
0x595a…5964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0060}
0x5964…5976 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0039, t01=0x006a}
0x5976…598c Head {h00=0x0012, h01=0x0050, text=» LDK A7,SECLEN«, t00=0x0039, t01=0x007c}
0x598c…59b4 Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0039, t01=0x0092}
0x59b4…59be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ba}
0x59be…59d6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0039, t01=0x00c4}
0x59d6…59e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00dc}
0x59e0…59ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00e6}
0x59ea…5a00 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0039, t01=0x00f0}
0x5a00…5a2c Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x0039, t01=0x0106}
0x5a2c…5a52 Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTTAB,A6 TTAB ADDRESS «, t00=0x0039, t01=0x0132}
0x5a52…5a76 Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x0039, t01=0x0158}
0x5a76…5aa0 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,BUF DRIVER BUFFER ADDRESS«, t00=0x0039, t01=0x017c}
0x5aa0…5aca Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTUEC,A6 USER ECB ADDRESS «, t00=0x003a, t01=0x0016}
0x5aca…5af6 Head {h00=0x0028, h01=0x0050, text=» EL A2,ECBBA,A2 USER BUFFER ADDRESS «, t00=0x003a, t01=0x0040}
0x5af6…5b14 Head {h00=0x001a, h01=0x0050, text=» LDK A7,SECLEN LENGTH «, t00=0x003a, t01=0x006c}
0x5b14…5b40 Head {h00=0x0028, h01=0x0050, text=» MVSU A7 MOVE SECTOR TO USER BUFFER «, t00=0x003a, t01=0x008a}
0x5b40…5b70 Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x003a, t01=0x00b6}
0x5b70…5b7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00e6}
0x5b7c…5b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00f2}
0x5b86…5b98 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003a, t01=0x00fc}
0x5b98…5bae Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003a, t01=0x010e}
0x5bae…5bc2 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003a, t01=0x0124}
0x5bc2…5be0 Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x003a, t01=0x0138}
0x5be0…5bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0156}
0x5bea…5c02 Head {h00=0x0014, h01=0x0050, text=»* END OF DATA«, t00=0x003a, t01=0x0160}
0x5c02…5c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0178}
0x5c0c…5c34 Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x003a, t01=0x0182}
0x5c34…5c46 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003b, t01=0x001a}
0x5c46…5c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x002c}
0x5c50…5c68 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x003b, t01=0x0036}
0x5c68…5c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x004e}
0x5c72…5c8e Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x003b, t01=0x0058}
0x5c8e…5caa Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x003b, t01=0x0074}
0x5caa…5cc6 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x003b, t01=0x0090}
0x5cc6…5cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ac}
0x5cd0…5ce4 Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x003b, t01=0x00b6}
0x5ce4…5cee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ca}
0x5cee…5d10 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF END OF EXTENT«, t00=0x003b, t01=0x00d4}
0x5d10…5d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00f6}
0x5d1a…5d30 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x003b, t01=0x0100}
0x5d30…5d5a Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x003b, t01=0x0116}
0x5d5a…5d8a Head {h00=0x002c, h01=0x0050, text=» ST A7,ECBCW2,A8 STORE EOD IN ECB C. W. «, t00=0x003b, t01=0x0140}
0x5d8a…5da0 Head {h00=0x0012, h01=0x0050, text=» CWK A7,MAXIBM«, t00=0x003b, t01=0x0170}
0x5da0…5dc4 Head {h00=0x0020, h01=0x0050, text=» RF(P) FD:DIS REQUEST ERROR «, t00=0x003b, t01=0x0186}
0x5dc4…5dd8 Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x003c, t01=0x001a}
0x5dd8…5dfc Head {h00=0x0020, h01=0x0050, text=» RF(G) ENDEOE END OF EXTENT «, t00=0x003c, t01=0x002e}
0x5dfc…5e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0052}
0x5e06…5e1c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003c, t01=0x005c}
0x5e1c…5e48 Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x003c, t01=0x0072}
0x5e48…5e6e Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTTAB,A6 TTAB ADDRESS «, t00=0x003c, t01=0x009e}
0x5e6e…5e92 Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x003c, t01=0x00c4}
0x5e92…5ebc Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUEC,A6 USER ECB ADDRESS «, t00=0x003c, t01=0x00e8}
0x5ebc…5ee8 Head {h00=0x0028, h01=0x0050, text=» EL A1,ECBBA,A1 USER BUFFER ADDRESS «, t00=0x003c, t01=0x0112}
0x5ee8…5f12 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,BUF DRIVER BUFFER ADDRESS«, t00=0x003c, t01=0x013e}
0x5f12…5f30 Head {h00=0x001a, h01=0x0050, text=» LDK A7,SECLEN LENGTH «, t00=0x003c, t01=0x0168}
0x5f30…5f5e Head {h00=0x002a, h01=0x0050, text=» MVUS A7 MOVE SECTOR TO DRIVER BUFFER «, t00=0x003c, t01=0x0186}
0x5f5e…5f8e Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x003d, t01=0x0024}
0x5f8e…5f9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0054}
0x5f9a…5fa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0060}
0x5fa4…5fb6 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003d, t01=0x006a}
0x5fb6…5fd2 Head {h00=0x0018, h01=0x0050, text=» LDK A4,5 BIO WRITE «, t00=0x003d, t01=0x007c}
0x5fd2…5fe6 Head {h00=0x0010, h01=0x0050, text=» CF A5,BIOSQ«, t00=0x003d, t01=0x0098}
0x5fe6…5ffc Head {h00=0x0012, h01=0x0050, text=» LDK A7,SECLEN«, t00=0x003d, t01=0x00ac}
0x5ffc…602c Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x003d, t01=0x00c2}
0x602c…6036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f2}
0x6036…604c Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x003d, t01=0x00fc}
0x604c…6056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0112}
0x6056…6060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x011c}
0x6060…6076 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x003d, t01=0x0126}
0x6076…608c Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/200 «, t00=0x003d, t01=0x013c}
0x608c…60a2 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SQW:05 «, t00=0x003d, t01=0x0152}
0x60a2…60c6 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 WRITE PROTECTED «, t00=0x003d, t01=0x0168}
0x60c6…60f6 Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x003d, t01=0x018c}
0x60f6…610a Head {h00=0x0010, h01=0x0050, text=»SQW:05 EQU *«, t00=0x003e, t01=0x002c}
0x610a…6120 Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003e, t01=0x0040}
0x6120…6134 Head {h00=0x0010, h01=0x0050, text=»SQW:10 EQU *«, t00=0x003e, t01=0x0056}
0x6134…616a Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE «, t00=0x003e, t01=0x006a}
0x616a…6180 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) END:RC«, t00=0x003e, t01=0x00a0}
0x6180…61ae Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x003e, t01=0x00b6}
0x61ae…61c4 Head {h00=0x0012, h01=0x0050, text=» LDK A2,SECLEN«, t00=0x003e, t01=0x00e4}
0x61c4…61f4 Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBEL,A8 UPDATE EFFECTIVE LENGTH «, t00=0x003e, t01=0x00fa}
0x61f4…6206 Head {h00=0x000e, h01=0x0050, text=» RF END:RC«, t00=0x003e, t01=0x012a}
0x6206…6210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x013c}
0x6210…6224 Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x003e, t01=0x0146}
0x6224…6246 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x003e, t01=0x015a}
0x6246…6250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x017c}
0x6250…6268 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x003e, t01=0x0186}
0x6268…6272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x000e}
0x6272…6284 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x0018}
0x6284…6296 Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x003f, t01=0x002a}
0x6296…62a8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x003c}
0x62a8…62b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x004e}
0x62b2…62c6 Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x003f, t01=0x0058}
0x62c6…62ea Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x003f, t01=0x006c}
0x62ea…6300 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x003f, t01=0x0090}
0x6300…6314 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003f, t01=0x00a6}
0x6314…632c Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x003f, t01=0x00ba}
0x632c…6348 Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x003f, t01=0x00d2}
0x6348…635e Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003f, t01=0x00ee}
0x635e…6372 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003f, t01=0x0104}
0x6372…638c Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x003f, t01=0x0118}
0x638c…63ac Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x003f, t01=0x0132}
0x63ac…63ca Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003f, t01=0x0152}
0x63ca…63dc Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003f, t01=0x0170}
0x63dc…63e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0182}
0x63e8…63f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x018e}
0x63f2…640a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0040, t01=0x0008}
0x640a…6414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0020}
0x6414…642e Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0040, t01=0x002a}
0x642e…6448 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0040, t01=0x0044}
0x6448…6462 Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x0040, t01=0x005e}
0x6462…647c Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0040, t01=0x0078}
0x647c…6496 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0040, t01=0x0092}
0x6496…64a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ac}
0x64a0…64aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00b6}
0x64aa…64ce Head {h00=0x0020, h01=0x0050, text=»* INPUT: A2 BIO CONTENTS «, t00=0x0040, t01=0x00c0}
0x64ce…6502 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x0040, t01=0x00e4}
0x6502…6528 Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x0040, t01=0x0118}
0x6528…6532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x013e}
0x6532…6546 Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x0040, t01=0x0148}
0x6546…655a Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0040, t01=0x015c}
0x655a…657c Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x0040, t01=0x0170}
0x657c…6588 (65, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0004}
0x6588…659c Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0041, t01=0x0010}
0x659c…65c2 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 INDICATOR WRITE MODE«, t00=0x0041, t01=0x0024}
0x65c2…65ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x004a}
0x65ce…65e0 Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x0041, t01=0x0056}
0x65e0…65ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0068}
0x65ea…65fe Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x0041, t01=0x0072}
0x65fe…6612 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0041, t01=0x0086}
0x6612…662e Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 READ MODE «, t00=0x0041, t01=0x009a}
0x662e…663a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00b6}
0x663a…664e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0041, t01=0x00c2}
0x664e…6670 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS READ«, t00=0x0041, t01=0x00d6}
0x6670…667c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00f8}
0x667c…6690 Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x0041, t01=0x0104}
0x6690…66a4 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0041, t01=0x0118}
0x66a4…66ca Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x0041, t01=0x012c}
0x66ca…66d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0152}
0x66d4…66ec Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0041, t01=0x015c}
0x66ec…66f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0174}
0x66f6…6700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x017e}
0x6700…6716 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0041, t01=0x0188}
0x6716…674c Head {h00=0x0032, h01=0x0050, text=» LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO «, t00=0x0042, t01=0x000e}
0x674c…6778 Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:810 BUFFER IN SYSTEM AREA «, t00=0x0042, t01=0x0044}
0x6778…67ac Head {h00=0x0030, h01=0x0050, text=» LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS «, t00=0x0042, t01=0x0070}
0x67ac…67be Head {h00=0x000e, h01=0x0050, text=» ECR A7,A7«, t00=0x0042, t01=0x00a4}
0x67be…67d0 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A7«, t00=0x0042, t01=0x00b6}
0x67d0…67e4 Head {h00=0x0010, h01=0x0050, text=»FD:810 EQU *«, t00=0x0042, t01=0x00c8}
0x67e4…67f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x00dc}
0x67f0…67fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00e8}
0x67fa…680e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0042, t01=0x00f2}
0x680e…6820 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0042, t01=0x0106}
0x6820…6844 Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x0042, t01=0x0118}
0x6844…686c Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x0042, t01=0x013c}
0x686c…6878 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0164}
0x6878…688c Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0042, t01=0x0170}
0x688c…6896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0184}
0x6896…68ae Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0042, t01=0x018e}
0x68ae…68b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0016}
0x68b8…68ea Head {h00=0x002e, h01=0x0050, text=»* PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x0043, t01=0x0020}
0x68ea…68f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0052}
0x68f4…691a Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTRW,A6 INDICATE MODE «, t00=0x0043, t01=0x005c}
0x691a…6932 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x0043, t01=0x0082}
0x6932…6944 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0043, t01=0x009a}
0x6944…696a Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x0043, t01=0x00ac}
0x696a…6976 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x00d2}
0x6976…69a0 Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x0043, t01=0x00de}
0x69a0…69b6 Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x0043, t01=0x0108}
0x69b6…69e6 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) T:DISP POST PROCESSING FLAG SET «, t00=0x0043, t01=0x011e}
0x69e6…6a1a Head {h00=0x0030, h01=0x0050, text=»FD:CIO EQU * LABEL USED FOR CHANGE OF CUADR «, t00=0x0043, t01=0x014e}
0x6a1a…6a3c Head {h00=0x001e, h01=0x0050, text=» CIO A2,1,CUADR CIO START «, t00=0x0043, t01=0x0182}
0x6a3c…6a68 Head {h00=0x0028, h01=0x0050, text=» RF(3) END:30 DEVICE ADDRESS UNKNOWN«, t00=0x0044, t01=0x0014}
0x6a68…6a7a Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x0044, t01=0x0040}
0x6a7a…6a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0052}
0x6a84…6a9c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0044, t01=0x005c}
0x6a9c…6aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0074}
0x6aa6…6ad4 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0044, t01=0x007e}
0x6ad4…6ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00ac}
0x6ade…6b1e Head {h00=0x003c, h01=0x0050, text=»* FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO * «, t00=0x0044, t01=0x00b6}
0x6b1e…6b4c Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0044, t01=0x00f6}
0x6b4c…6b7a Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0044, t01=0x0124}
0x6b7a…6b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0152}
0x6b84…6b98 Head {h00=0x0010, h01=0x0050, text=»FDMSIO EQU *«, t00=0x0044, t01=0x015c}
0x6b98…6bc2 Head {h00=0x0026, h01=0x0050, text=» IM DWTCW2,A6 UPDATE SECTOR NUMBER«, t00=0x0044, t01=0x0170}
0x6bc2…6be2 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 RETURN CODE «, t00=0x0045, t01=0x000a}
0x6be2…6c0c Head {h00=0x0026, h01=0x0050, text=» ANK A1,/7F GET ERROR RETURN CODE «, t00=0x0045, t01=0x002a}
0x6c0c…6c22 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) END:RC«, t00=0x0045, t01=0x0054}
0x6c22…6c56 Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE «, t00=0x0045, t01=0x006a}
0x6c56…6c7e Head {h00=0x0024, h01=0x0050, text=» ADS A2,DWTCW2,A6 UPDATE DWTCW2 «, t00=0x0045, t01=0x009e}
0x6c7e…6c96 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTRL,A6 «, t00=0x0045, t01=0x00c6}
0x6c96…6cbc Head {h00=0x0022, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE ECBEL «, t00=0x0045, t01=0x00de}
0x6cbc…6cd4 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTNOS,A6«, t00=0x0045, t01=0x0104}
0x6cd4…6cfc Head {h00=0x0024, h01=0x0050, text=» RF(NP) END:RC LAST SECTOR DONE «, t00=0x0045, t01=0x011c}
0x6cfc…6d12 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0045, t01=0x0144}
0x6d12…6d3c Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTBA,A6 GET BUFFER POINTER«, t00=0x0045, t01=0x015a}
0x6d3c…6d64 Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 UPDATE BUFFER POINTER«, t00=0x0045, t01=0x0184}
0x6d64…6d7c Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTBA,A6 «, t00=0x0046, t01=0x001c}
0x6d7c…6da6 Head {h00=0x0026, h01=0x0050, text=» RF(N) FDMSI1 NOT PASSED 64K LIMIT«, t00=0x0046, t01=0x0034}
0x6da6…6db8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x0046, t01=0x005e}
0x6db8…6de4 Head {h00=0x0028, h01=0x0050, text=» RF(NN) FDMSI1 NOT PASSED 64K LIMIT «, t00=0x0046, t01=0x0070}
0x6de4…6df8 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/10 «, t00=0x0046, t01=0x009c}
0x6df8…6e22 Head {h00=0x0026, h01=0x0050, text=» ADS A2,DWT:BF,A6 UPDATE BITS 0-1 «, t00=0x0046, t01=0x00b0}
0x6e22…6e36 Head {h00=0x0010, h01=0x0050, text=»FDMSI1 EQU *«, t00=0x0046, t01=0x00da}
0x6e36…6e42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x00ee}
0x6e42…6e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00fa}
0x6e4c…6e62 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0046, t01=0x0104}
0x6e62…6e90 Head {h00=0x002a, h01=0x0050, text=» ADS A2,DWTBA,A6 UPDATE BUFFER POINTER«, t00=0x0046, t01=0x011a}
0x6e90…6e9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x0148}
0x6e9c…6ed2 Head {h00=0x0032, h01=0x0050, text=» ABL FD:000 MORE SECTORS IN MULTIPLE SECTOR IO«, t00=0x0046, t01=0x0154}
0x6ed2…6edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x018a}
0x6edc…6ef4 (71, 0, 400) Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0047, t01=0x0004}
0x6ef4…6efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x001c}
0x6efe…6f10 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0047, t01=0x0026}
0x6f10…6f22 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0047, t01=0x0038}
0x6f22…6f34 Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x0047, t01=0x004a}
0x6f34…6f46 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0047, t01=0x005c}
0x6f46…6f58 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0047, t01=0x006e}
0x6f58…6f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0080}
0x6f62…6f74 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0047, t01=0x008a}
0x6f74…6f9c Head {h00=0x0024, h01=0x0050, text=»ENDEOE EQU * END OF EXTENT EXIT «, t00=0x0047, t01=0x009c}
0x6f9c…6fbe Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/2000 RETURN CODE«, t00=0x0047, t01=0x00c4}
0x6fbe…6fd0 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0047, t01=0x00e6}
0x6fd0…6fdc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x00f8}
0x6fdc…6fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0104}
0x6fe6…6ffa Head {h00=0x0010, h01=0x0050, text=»END:RC EQU *«, t00=0x0047, t01=0x010e}
0x6ffa…701a Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 RETURN CODE «, t00=0x0047, t01=0x0122}
0x701a…702e Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0047, t01=0x0142}
0x702e…7044 Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0047, t01=0x0156}
0x7044…705c Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x0047, t01=0x016c}
0x705c…7066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0184}
0x7066…708e Head {h00=0x0024, h01=0x0050, text=»END:30 EQU * CU ADDRESS UNKNOWN «, t00=0x0047, t01=0x018e}
0x708e…70ac Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x0048, t01=0x0026}
0x70ac…70da Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTST,A6 INDICATE RECOVERY DONE«, t00=0x0048, t01=0x0044}
0x70da…70ec Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0048, t01=0x0072}
0x70ec…7104 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0048, t01=0x0084}
0x7104…710e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x009c}
0x710e…712a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x00a6}
0x712a…7146 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0048, t01=0x00c2}
0x7146…7162 Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0048, t01=0x00de}
0x7162…717e Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0048, t01=0x00fa}
0x717e…719a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x0116}
0x719a…71a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0132}
0x71a4…71b6 Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x0048, t01=0x013c}
0x71b6…71cc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0048, t01=0x014e}
0x71cc…71f6 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0048, t01=0x0164}
0x71f6…7202 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x018e}
0x7202…720c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x000a}
0x720c…7222 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0049, t01=0x0014}
0x7222…7248 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0049, t01=0x002a}
0x7248…7254 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0050}
0x7254…725e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x005c}
0x725e…7282 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0049, t01=0x0066}
0x7282…7296 Head {h00=0x0010, h01=0x0050, text=» CM DWTST,A6«, t00=0x0049, t01=0x008a}
0x7296…72b8 Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0049, t01=0x009e}
0x72b8…72c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00c0}
0x72c2…72d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x00ca}
0x72d0…72da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00d8}
0x72da…72f0 Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0049, t01=0x00e2}
0x72f0…72fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00f8}
0x72fa…7312 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0049, t01=0x0102}
0x7312…7334 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0049, t01=0x011a}
0x7334…734a Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0049, t01=0x013c}
0x734a…7370 Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0049, t01=0x0152}
0x7370…7382 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0049, t01=0x0178}
0x7382…739e Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x0049, t01=0x018a}
0x739e…73b0 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x004a, t01=0x0016}
0x73b0…73ca Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x004a, t01=0x0028}
0x73ca…73e0 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x004a, t01=0x0042}
0x73e0…73fa Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x004a, t01=0x0058}
0x73fa…7404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0072}
0x7404…7418 Head {h00=0x0010, h01=0x0050, text=»F:DISP EQU *«, t00=0x004a, t01=0x007c}
0x7418…742a Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x004a, t01=0x0090}
0x742a…7434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00a2}
0x7434…7450 Head {h00=0x0018, h01=0x0050, text=»* TIME OUT ROUTINE«, t00=0x004a, t01=0x00ac}
0x7450…745a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00c8}
0x745a…7472 Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x004a, t01=0x00d2}
0x7472…7486 Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x004a, t01=0x00ea}
0x7486…749e Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x004a, t01=0x00fe}
0x749e…74c0 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x004a, t01=0x0116}
0x74c0…74ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0138}
0x74ca…7504 Head {h00=0x0036, h01=0x0050, text=»FDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE«, t00=0x004a, t01=0x0142}
0x7504…751a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004a, t01=0x017c}
0x751a…752e (75, 0, 400) Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x004b, t01=0x0004}
0x752e…7556 Head {h00=0x0024, h01=0x0050, text=» CM BUFFLG,A6 RESET BUFFER FLAG «, t00=0x004b, t01=0x0018}
0x7556…7562 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x0040}
0x7562…756c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x004c}
0x756c…7584 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x004b, t01=0x0056}
0x7584…75bc Head {h00=0x0034, h01=0x0050, text=» IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR «, t00=0x004b, t01=0x006e}
0x75bc…75d8 Head {h00=0x0018, h01=0x0050, text=» LDK A3,3 4 VOLUMES «, t00=0x004b, t01=0x00a6}
0x75d8…75e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00c2}
0x75e2…75f8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x004b, t01=0x00cc}
0x75f8…7602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00e2}
0x7602…760c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00ec}
0x760c…7628 Head {h00=0x0018, h01=0x0050, text=»* READ VOLUME NAME «, t00=0x004b, t01=0x00f6}
0x7628…7632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0112}
0x7632…7646 Head {h00=0x0010, h01=0x0050, text=»FDONLD EQU *«, t00=0x004b, t01=0x011c}
0x7646…766e Head {h00=0x0024, h01=0x0050, text=» SC A3,DWTOR,A6 GET VOLUME NAME «, t00=0x004b, t01=0x0130}
0x766e…7698 Head {h00=0x0026, h01=0x0050, text=» LC A4,DIXTAB,A3 DRIVE INDEX MASK «, t00=0x004b, t01=0x0158}
0x7698…76ba Head {h00=0x001e, h01=0x0050, text=» SC A4,DWTA3+1,A6 SAVE IT «, t00=0x004b, t01=0x0182}
0x76ba…76d0 Head {h00=0x0012, h01=0x0050, text=» CF A5,SETCIO «, t00=0x004c, t01=0x0014}
0x76d0…76e4 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/14 «, t00=0x004c, t01=0x002a}
0x76e4…76fe Head {h00=0x0016, h01=0x0050, text=» CF A5,FD:REA LOCK«, t00=0x004c, t01=0x003e}
0x76fe…7710 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x004c, t01=0x0058}
0x7710…772e Head {h00=0x001a, h01=0x0050, text=» RF(Z) FDON19 OPERABLE«, t00=0x004c, t01=0x006a}
0x772e…774c Head {h00=0x001a, h01=0x0050, text=» LDK A1,6 NOT OPERABLE«, t00=0x004c, t01=0x0088}
0x774c…7774 Head {h00=0x0024, h01=0x0050, text=» CF A15,VOLCLR CLEAR VOLUME NAME«, t00=0x004c, t01=0x00a6}
0x7774…779e Head {h00=0x0026, h01=0x0050, text=» RF FDON21 CONTINUE WITH NEXT DISC«, t00=0x004c, t01=0x00ce}
0x779e…77a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00f8}
0x77a8…77bc Head {h00=0x0010, h01=0x0050, text=»FDON19 EQU *«, t00=0x004c, t01=0x0102}
0x77bc…77d2 Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x004c, t01=0x0116}
0x77d2…77fc Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/FBFF RESET IBM IND. BIT «, t00=0x004c, t01=0x012c}
0x77fc…782c Head {h00=0x002c, h01=0x0050, text=» ANRS A2,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x004c, t01=0x0156}
0x782c…7840 Head {h00=0x0010, h01=0x0050, text=»FDON21 EQU *«, t00=0x004c, t01=0x0186}
0x7840…7852 Head {h00=0x000e, h01=0x0050, text=» LDK A2,/C«, t00=0x004d, t01=0x000a}
0x7852…786e Head {h00=0x0018, h01=0x0050, text=» CF A5,FD:REA UNLOCK«, t00=0x004d, t01=0x001c}
0x786e…7880 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x004d, t01=0x0038}
0x7880…78b0 Head {h00=0x002c, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. «, t00=0x004d, t01=0x004a}
0x78b0…78c2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004d, t01=0x007a}
0x78c2…78e4 Head {h00=0x001e, h01=0x0050, text=» RB(NN) FDONLD NEXT VOLUME«, t00=0x004d, t01=0x008c}
0x78e4…78f8 Head {h00=0x0010, h01=0x0050, text=» CM DWTOR,A6«, t00=0x004d, t01=0x00ae}
0x78f8…7924 Head {h00=0x0028, h01=0x0050, text=» CM DWTST2,A6 INDICATE VOLUMES READ «, t00=0x004d, t01=0x00c2}
0x7924…7954 Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x004d, t01=0x00ee}
0x7954…7960 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x011e}
0x7960…796a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x012a}
0x796a…7980 Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x004d, t01=0x0134}
0x7980…798a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x014a}
0x798a…7998 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x0154}
0x7998…79a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0162}
0x79a2…79e0 Head {h00=0x003a, h01=0x0050, text=»* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING «, t00=0x004d, t01=0x016c}
0x79e0…79ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x001a}
0x79ea…7a10 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP2,A6 TIMER POINTER«, t00=0x004e, t01=0x0024}
0x7a10…7a32 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON09 NOT RUNNING «, t00=0x004e, t01=0x004a}
0x7a32…7a4c Head {h00=0x0016, h01=0x0050, text=» CMR A4 STOP TIMER«, t00=0x004e, t01=0x006c}
0x7a4c…7a74 Head {h00=0x0024, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER «, t00=0x004e, t01=0x0086}
0x7a74…7a88 Head {h00=0x0010, h01=0x0050, text=»FDON09 EQU *«, t00=0x004e, t01=0x00ae}
0x7a88…7a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00c2}
0x7a92…7acc Head {h00=0x0036, h01=0x0050, text=»* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE«, t00=0x004e, t01=0x00cc}
0x7acc…7ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0106}
0x7ad6…7b0c Head {h00=0x0032, h01=0x0050, text=» LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS«, t00=0x004e, t01=0x0110}
0x7b0c…7b36 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/8000 OPEN/CLOSE BIT MASK«, t00=0x004e, t01=0x0146}
0x7b36…7b5e Head {h00=0x0024, h01=0x0050, text=» ANR* A2,A4 A2:=OPEN/CLOSE FLAG «, t00=0x004e, t01=0x0170}
0x7b5e…7b7c Head {h00=0x001a, h01=0x0050, text=» ORS A2,DWTOCF,A6 SAVE«, t00=0x004f, t01=0x0008}
0x7b7c…7ba8 Head {h00=0x0028, h01=0x0050, text=» XRRS A2,A4 SET STATUS WORD TO OPEN «, t00=0x004f, t01=0x0026}
0x7ba8…7bbc Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x004f, t01=0x0052}
0x7bbc…7be6 Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOPDA SET DRIVE TO OPEN «, t00=0x004f, t01=0x0066}
0x7be6…7bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0090}
0x7bf0…7c04 Head {h00=0x0010, h01=0x0050, text=»FDON23 EQU *«, t00=0x004f, t01=0x009a}
0x7c04…7c10 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00ae}
0x7c10…7c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00ba}
0x7c1a…7c28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x00c4}
0x7c28…7c32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00d2}
0x7c32…7c48 Head {h00=0x0012, h01=0x0050, text=»* LOCK DOORS «, t00=0x004f, t01=0x00dc}
0x7c48…7c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00f2}
0x7c52…7c64 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x004f, t01=0x00fc}
0x7c64…7c78 Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x004f, t01=0x010e}
0x7c78…7c9e Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x004f, t01=0x0122}
0x7c9e…7cb0 Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x004f, t01=0x0148}
0x7cb0…7cd0 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x004f, t01=0x015a}
0x7cd0…7cec Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x004f, t01=0x017a}
0x7cec…7cf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0008}
0x7cf6…7d04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0012}
0x7d04…7d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0020}
0x7d0e…7d32 Head {h00=0x0020, h01=0x0050, text=»* PUT DRIVE NO IN CIO INSTR«, t00=0x0050, t01=0x002a}
0x7d32…7d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x004e}
0x7d3c…7d5e Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0050, t01=0x0058}
0x7d5e…7d8c Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0050, t01=0x007a}
0x7d8c…7da4 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0050, t01=0x00a8}
0x7da4…7dba Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0050, t01=0x00c0}
0x7dba…7ddc Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0050, t01=0x00d6}
0x7ddc…7dee Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0050, t01=0x00f8}
0x7dee…7e06 Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0050, t01=0x010a}
0x7e06…7e2e Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0050, t01=0x0122}
0x7e2e…7e42 Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x0050, t01=0x014a}
0x7e42…7e54 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0050, t01=0x015e}
0x7e54…7e6a Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x0050, t01=0x0170}
0x7e6a…7e80 Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x0050, t01=0x0186}
0x7e80…7e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x000c}
0x7e8a…7ea0 Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0051, t01=0x0016}
0x7ea0…7eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x002c}
0x7eaa…7ef2 Head {h00=0x0044, h01=0x0050, text=»* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF«, t00=0x0051, t01=0x0036}
0x7ef2…7efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x007e}
0x7efc…7f24 Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOCF,A6 OPEN/CLOSE FLAG«, t00=0x0051, t01=0x0088}
0x7f24…7f4a Head {h00=0x0022, h01=0x0050, text=» ORS A2,SPDLCI TO STATUS WORD «, t00=0x0051, t01=0x00b0}
0x7f4a…7f6a Head {h00=0x001c, h01=0x0050, text=» CM DWTOCF,A6 CLEAR FLAG«, t00=0x0051, t01=0x00d6}
0x7f6a…7f92 Head {h00=0x0024, h01=0x0050, text=» LD A2,SPDLCI OPEN/CLOSE STATUS «, t00=0x0051, t01=0x00f6}
0x7f92…7fc6 Head {h00=0x0030, h01=0x0050, text=» OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED«, t00=0x0051, t01=0x011e}
0x7fc6…7fd2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0152}
0x7fd2…7fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x015e}
0x7fdc…7fea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0168}
0x7fea…7ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0176}
0x7ff4…800a Head {h00=0x0012, h01=0x0050, text=»* ANY REQUEST«, t00=0x0051, t01=0x0180}
0x800a…8014 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0008}
0x8014…8038 Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x0052, t01=0x0012}
0x8038…804c Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x0052, t01=0x0036}
0x804c…8064 Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0052, t01=0x004a}
0x8064…8098 Head {h00=0x0030, h01=0x0050, text=» ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO«, t00=0x0052, t01=0x0062}
0x8098…80a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0096}
0x80a2…80ba Head {h00=0x0014, h01=0x0050, text=»* RETRY REQUEST«, t00=0x0052, t01=0x00a0}
0x80ba…80c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00b8}
0x80c4…80e8 Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0052, t01=0x00c2}
0x80e8…8100 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTORD,A6«, t00=0x0052, t01=0x00e6}
0x8100…8130 Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x0052, t01=0x00fe}
0x8130…815c Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x0052, t01=0x012e}
0x815c…8176 Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0052, t01=0x015a}
0x8176…8192 Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x0052, t01=0x0174}
0x8192…819c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0190}
0x819c…81b4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0053, t01=0x000a}
0x81b4…81be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0022}
0x81be…81da Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0053, t01=0x002c}
0x81da…81f6 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0053, t01=0x0048}
0x81f6…8212 Head {h00=0x0018, h01=0x0050, text=»* READY INTERRUPT *«, t00=0x0053, t01=0x0064}
0x8212…822e Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0053, t01=0x0080}
0x822e…824a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0053, t01=0x009c}
0x824a…8254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00b8}
0x8254…8266 Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x0053, t01=0x00c2}
0x8266…827e Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x0053, t01=0x00d4}
0x827e…82ac Head {h00=0x002a, h01=0x0050, text=» RB(NZ) F:DISP POWER ON ROUTINE ACTIVE«, t00=0x0053, t01=0x00ec}
0x82ac…82c4 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0053, t01=0x011a}
0x82c4…82e2 Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0053, t01=0x0132}
0x82e2…82ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0150}
0x82ec…8304 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0053, t01=0x015a}
0x8304…8316 Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x0053, t01=0x0172}
0x8316…8322 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0184}
0x8322…832c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0190}
0x832c…8344 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0054, t01=0x000a}
0x8344…8366 Head {h00=0x001e, h01=0x0050, text=» CM DWTST,A6 SET UNIT BUSY«, t00=0x0054, t01=0x0022}
0x8366…838a Head {h00=0x0020, h01=0x0050, text=» RB FDONVL READ VOLUME NAMES«, t00=0x0054, t01=0x0044}
0x838a…8396 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0068}
0x8396…83a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0074}
0x83a0…83b8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0054, t01=0x007e}
0x83b8…83c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0096}
0x83c2…83e0 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0054, t01=0x00a0}
0x83e0…83fe Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0054, t01=0x00be}
0x83fe…841c Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x0054, t01=0x00dc}
0x841c…843a Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0054, t01=0x00fa}
0x843a…8458 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0054, t01=0x0118}
0x8458…8462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0136}
0x8462…8474 Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x0054, t01=0x0140}
0x8474…849c Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0054, t01=0x0152}
0x849c…84b2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0054, t01=0x017a}
0x84b2…84e0 Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x0054, t01=0x0190}
0x84e0…84ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x002e}
0x84ec…84f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x003a}
0x84f6…850c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0055, t01=0x0044}
0x850c…8532 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0055, t01=0x005a}
0x8532…853e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x0080}
0x853e…8548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x008c}
0x8548…856c Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0055, t01=0x0096}
0x856c…8580 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0055, t01=0x00ba}
0x8580…858c Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0055, t01=0x00ce}
0x858c…85b6 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUB,A6 GET BUFFER POINTER«, t00=0x0055, t01=0x00da}
0x85b6…85dc Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTUBE,A6 END OF BUFFER«, t00=0x0055, t01=0x0104}
0x85dc…85f6 Head {h00=0x0016, h01=0x0050, text=» SUR A2,A1 LENGTH «, t00=0x0055, t01=0x012a}
0x85f6…860a Head {h00=0x0010, h01=0x0050, text=»IH005 EQU * «, t00=0x0055, t01=0x0144}
0x860a…862a Head {h00=0x001c, h01=0x0050, text=» SST A3,CUADR GET STATUS«, t00=0x0055, t01=0x0158}
0x862a…8650 Head {h00=0x0022, h01=0x0050, text=» RF(A) IH:000 READY INTERRUPT «, t00=0x0055, t01=0x0178}
0x8650…8666 Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x0056, t01=0x000e}
0x8666…8696 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) IHDISP POST PROCESSING FLAG SET «, t00=0x0056, t01=0x0024}
0x8696…86c2 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTRW,A6 READ/WRITE INDICATOR«, t00=0x0056, t01=0x0054}
0x86c2…86dc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH050 READ«, t00=0x0056, t01=0x0080}
0x86dc…86e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x009a}
0x86e6…86fc Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0056, t01=0x00a4}
0x86fc…8706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00ba}
0x8706…8710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00c4}
0x8710…8724 Head {h00=0x0010, h01=0x0050, text=»IH010 EQU * «, t00=0x0056, t01=0x00ce}
0x8724…874c Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A1 ONE WORD FROM BUFFER«, t00=0x0056, t01=0x00e2}
0x874c…876a Head {h00=0x001a, h01=0x0050, text=» OTR A3,0,CUADR WRITE «, t00=0x0056, t01=0x010a}
0x876a…8780 Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0056, t01=0x0128}
0x8780…87a8 Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0056, t01=0x013e}
0x87a8…87ba Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0056, t01=0x0166}
0x87ba…87ce Head {h00=0x0010, h01=0x0050, text=» RB(P) IH010«, t00=0x0056, t01=0x0178}
0x87ce…87ee Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0056, t01=0x018c}
0x87ee…8802 Head {h00=0x0010, h01=0x0050, text=»IHDISP EQU *«, t00=0x0057, t01=0x001c}
0x8802…8824 Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GOTO DISPATCHER«, t00=0x0057, t01=0x0030}
0x8824…882e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0052}
0x882e…8842 Head {h00=0x0010, h01=0x0050, text=»IH050 EQU * «, t00=0x0057, t01=0x005c}
0x8842…885e Head {h00=0x0018, h01=0x0050, text=» INR A3,0,CUADR READ«, t00=0x0057, t01=0x0070}
0x885e…8874 Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0057, t01=0x008c}
0x8874…889a Head {h00=0x0022, h01=0x0050, text=» STR A3,A1 ONE WORD TO BUFFER «, t00=0x0057, t01=0x00a2}
0x889a…88c2 Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0057, t01=0x00c8}
0x88c2…88d4 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0057, t01=0x00f0}
0x88d4…88e8 Head {h00=0x0010, h01=0x0050, text=» RB(P) IH050«, t00=0x0057, t01=0x0102}
0x88e8…8908 Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0057, t01=0x0116}
0x8908…8924 Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x0057, t01=0x0136}
0x8924…8938 Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x0057, t01=0x0152}
0x8938…894c Head {h00=0x0010, h01=0x0050, text=»IH:000 EQU *«, t00=0x0057, t01=0x0166}
0x894c…8958 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0057, t01=0x017a}
0x8958…8964 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0186}
0x8964…896e (88, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0004}
0x896e…8986 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0058, t01=0x000e}
0x8986…8990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0026}
0x8990…899a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0030}
0x899a…89ae Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0058, t01=0x003a}
0x89ae…89ca Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x0058, t01=0x004e}
0x89ca…89d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x006a}
0x89d6…89fa Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0058, t01=0x0076}
0x89fa…8a20 Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0058, t01=0x009a}
0x8a20…8a3a Head {h00=0x0016, h01=0x0050, text=» LDR A2,A3 STATUS «, t00=0x0058, t01=0x00c0}
0x8a3a…8a4c Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0058, t01=0x00da}
0x8a4c…8a70 Head {h00=0x0020, h01=0x0050, text=» RB(N) FDRE READY INTERRUPT «, t00=0x0058, t01=0x00ec}
0x8a70…8a8e Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY«, t00=0x0058, t01=0x0110}
0x8a8e…8aa6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x0058, t01=0x012e}
0x8aa6…8acc Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0058, t01=0x0146}
0x8acc…8ade Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0058, t01=0x016c}
0x8ade…8b08 Head {h00=0x0026, h01=0x0050, text=» ANK A1,5 DATA FAULT, NOT OPERABLE«, t00=0x0058, t01=0x017e}
0x8b08…8b2c Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x0059, t01=0x0018}
0x8b2c…8b3e Head {h00=0x000e, h01=0x0050, text=» ORK A3,4 «, t00=0x0059, t01=0x003c}
0x8b3e…8b52 Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x0059, t01=0x004e}
0x8b52…8b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0062}
0x8b5c…8b74 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0059, t01=0x006c}
0x8b74…8b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0084}
0x8b7e…8ba8 Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x0059, t01=0x008e}
0x8ba8…8bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00b8}
0x8bb2…8bc8 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x0059, t01=0x00c2}
0x8bc8…8bdc Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x0059, t01=0x00d8}
0x8bdc…8bee Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0059, t01=0x00ec}
0x8bee…8c14 Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x0059, t01=0x00fe}
0x8c14…8c26 Head {h00=0x000e, h01=0x0050, text=» ECR A4,A3«, t00=0x0059, t01=0x0124}
0x8c26…8c48 Head {h00=0x001e, h01=0x0050, text=» ANK A4,8 CHECK IF NO DATA«, t00=0x0059, t01=0x0136}
0x8c48…8c68 Head {h00=0x001c, h01=0x0050, text=» RF(Z) IH:70 NOT NO DATA«, t00=0x0059, t01=0x0158}
0x8c68…8c8a Head {h00=0x001e, h01=0x0050, text=» ORK A3,4 SET BIT 13 ALSO «, t00=0x0059, t01=0x0178}
0x8c8a…8c9e Head {h00=0x0010, h01=0x0050, text=»IH:70 EQU * «, t00=0x005a, t01=0x000a}
0x8c9e…8cb0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x005a, t01=0x001e}
0x8cb0…8ccc Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x005a, t01=0x0030}
0x8ccc…8ce8 Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x005a, t01=0x004c}
0x8ce8…8cfa Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x005a, t01=0x0068}
0x8cfa…8d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x007a}
0x8d04…8d1c Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x005a, t01=0x0084}
0x8d1c…8d2e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x005a, t01=0x009c}
0x8d2e…8d4a Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x005a, t01=0x00ae}
0x8d4a…8d64 Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x005a, t01=0x00ca}
0x8d64…8d76 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x005a, t01=0x00e4}
0x8d76…8d82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x00f6}
0x8d82…8d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0102}
0x8d8c…8d9e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x005a, t01=0x010c}
0x8d9e…8db8 Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x005a, t01=0x011e}
0x8db8…8dd2 Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x005a, t01=0x0138}
0x8dd2…8de4 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x005a, t01=0x0152}
0x8de4…8dfe Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x005a, t01=0x0164}
0x8dfe…8e18 Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x005a, t01=0x017e}
0x8e18…8e2a Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x005b, t01=0x0008}
0x8e2a…8e5a Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x005b, t01=0x001a}
0x8e5a…8e70 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/F7FF«, t00=0x005b, t01=0x004a}
0x8e70…8e84 Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x005b, t01=0x0060}
0x8e84…8e96 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x005b, t01=0x0074}
0x8e96…8ea6 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005b, t01=0x0086}
0x8ea6…8eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0096}
0x8eb0…8ec8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x005b, t01=0x00a0}
0x8ec8…8ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00b8}
0x8ed2…8f06 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x005b, t01=0x00c2}
0x8f06…8f3a Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x005b, t01=0x00f6}
0x8f3a…8f6e Head {h00=0x0030, h01=0x0050, text=»* S U B R O U T I N E S * «, t00=0x005b, t01=0x012a}
0x8f6e…8fa2 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x005b, t01=0x015e}
0x8fa2…8fd6 (92, 0, 400) Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x005c, t01=0x0004}
0x8fd6…8fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0038}
0x8fe0…8ff0 Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x005c, t01=0x0042}
0x8ff0…9000 Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x005c, t01=0x0052}
0x9000…9010 Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x005c, t01=0x0062}
0x9010…9020 Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x005c, t01=0x0072}
0x9020…9030 Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x005c, t01=0x0082}
0x9030…903a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0092}
0x903a…905c Head {h00=0x001e, h01=0x0050, text=»* INPUT: A8 ECB ADDRESS«, t00=0x005c, t01=0x009c}
0x905c…907a Head {h00=0x001a, h01=0x0050, text=»* A4 ORDER «, t00=0x005c, t01=0x00be}
0x907a…9084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00dc}
0x9084…90c6 Head {h00=0x003e, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x005c, t01=0x00e6}
0x90c6…90fa Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x005c, t01=0x0128}
0x90fa…9120 Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x005c, t01=0x015c}
0x9120…912a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0182}
0x912a…913c Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x005c, t01=0x018c}
0x913c…9166 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTCW2,A6 GET SECTOR NUMBER«, t00=0x005d, t01=0x000e}
0x9166…9192 Head {h00=0x0028, h01=0x0050, text=» SLL A1,3 PUT IN RIGHT BIO POSITION «, t00=0x005d, t01=0x0038}
0x9192…91cc Head {h00=0x0036, h01=0x0050, text=» LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO «, t00=0x005d, t01=0x0064}
0x91cc…91de Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x005d, t01=0x009e}
0x91de…91fe Head {h00=0x001c, h01=0x0050, text=» ORR A2,A1 COMPLETE BIO «, t00=0x005d, t01=0x00b0}
0x91fe…9228 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A4 COMPLETE BIO WITH ORDER«, t00=0x005d, t01=0x00d0}
0x9228…924e Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTBA,A6 BUFFER ADDRESS«, t00=0x005d, t01=0x00fa}
0x924e…9276 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTRL,A6 GET REQ. LENGTH «, t00=0x005d, t01=0x0120}
0x9276…9286 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005d, t01=0x0148}
0x9286…9290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0158}
0x9290…92a6 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x005d, t01=0x0162}
0x92a6…92b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0178}
0x92b0…92ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0182}
0x92ba…92d4 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x005d, t01=0x018c}
0x92d4…92ee Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x005e, t01=0x0016}
0x92ee…9308 Head {h00=0x0016, h01=0x0050, text=»* BIOSQ * «, t00=0x005e, t01=0x0030}
0x9308…9322 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x005e, t01=0x004a}
0x9322…933c Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x005e, t01=0x0064}
0x933c…9346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x007e}
0x9346…9368 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A8 ECB ADDRESS«, t00=0x005e, t01=0x0088}
0x9368…9386 Head {h00=0x001a, h01=0x0050, text=»* A4 ORDER «, t00=0x005e, t01=0x00aa}
0x9386…9390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00c8}
0x9390…93d2 Head {h00=0x003e, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x005e, t01=0x00d2}
0x93d2…9406 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x005e, t01=0x0114}
0x9406…942c Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x005e, t01=0x0148}
0x942c…9436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x016e}
0x9436…944a Head {h00=0x0010, h01=0x0050, text=»BIOSQ EQU * «, t00=0x005e, t01=0x0178}
0x944a…945c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005e, t01=0x018c}
0x945c…9486 Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x005f, t01=0x000e}
0x9486…94b2 Head {h00=0x0028, h01=0x0050, text=» SLL A2,3 PUT IN RIGHT BIO POSITION «, t00=0x005f, t01=0x0038}
0x94b2…94dc Head {h00=0x0026, h01=0x0050, text=» ADR A2,A4 COMPLETE BIO WITH ORDER«, t00=0x005f, t01=0x0064}
0x94dc…94e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x008e}
0x94e6…94fc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x005f, t01=0x0098}
0x94fc…9526 Head {h00=0x0026, h01=0x0050, text=» LD A4,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x005f, t01=0x00ae}
0x9526…9532 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x00d8}
0x9532…953c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00e4}
0x953c…954e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x00ee}
0x954e…9564 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005f, t01=0x0100}
0x9564…958e Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x005f, t01=0x0116}
0x958e…959a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0140}
0x959a…95a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x014c}
0x95a4…95b6 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x0156}
0x95b6…95de Head {h00=0x0024, h01=0x0050, text=» LDK A3,SECLEN REQUESTED LENGTH «, t00=0x005f, t01=0x0168}
0x95de…95ee Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005f, t01=0x0190}
0x95ee…95fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0010}
0x95fa…9604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x001c}
0x9604…961a Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0060, t01=0x0026}
0x961a…9624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x003c}
0x9624…963e Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0060, t01=0x0046}
0x963e…9658 Head {h00=0x0016, h01=0x0050, text=»* VO:NAM *«, t00=0x0060, t01=0x0060}
0x9658…9672 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0060, t01=0x007a}
0x9672…967c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0094}
0x967c…9686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x009e}
0x9686…969a Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0060, t01=0x00a8}
0x969a…96b2 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0060, t01=0x00bc}
0x96b2…96cc Head {h00=0x0016, h01=0x0050, text=» LDK A3,36 LENGTH «, t00=0x0060, t01=0x00d4}
0x96cc…96d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x00ee}
0x96d8…96e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00fa}
0x96e2…96f6 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0060, t01=0x0104}
0x96f6…9708 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0060, t01=0x0118}
0x9708…972c Head {h00=0x0020, h01=0x0050, text=» LDK A3,6 VOLUME NAME LENGTH«, t00=0x0060, t01=0x012a}
0x972c…9738 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x014e}
0x9738…9742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x015a}
0x9742…9756 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0060, t01=0x0164}
0x9756…976c Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0060, t01=0x0178}
0x976c…9790 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF READ TO BUFFER «, t00=0x0060, t01=0x018e}
0x9790…97a6 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0061, t01=0x0022}
0x97a6…97c6 Head {h00=0x001c, h01=0x0050, text=» ANK A3,/17 FATAL ERROR «, t00=0x0061, t01=0x0038}
0x97c6…97dc Head {h00=0x0012, h01=0x0050, text=» RF(NZ) VOL:40«, t00=0x0061, t01=0x0058}
0x97dc…97ee Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0061, t01=0x006e}
0x97ee…9804 Head {h00=0x0012, h01=0x0050, text=» LD A2,BUF+32 «, t00=0x0061, t01=0x0080}
0x9804…9818 Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0061, t01=0x0096}
0x9818…9838 Head {h00=0x001c, h01=0x0050, text=» RF(NE) VOL:10 IBM DISC «, t00=0x0061, t01=0x00aa}
0x9838…985c Head {h00=0x0020, h01=0x0050, text=» LD A2,BUF+34 GET NEXT WORD «, t00=0x0061, t01=0x00ca}
0x985c…9870 Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0061, t01=0x00ee}
0x9870…9890 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) VOL:10 IBM DISC «, t00=0x0061, t01=0x0102}
0x9890…98b6 Head {h00=0x0022, h01=0x0050, text=» C1 A1,DWTA3,A6 DRIVE BIT MASK«, t00=0x0061, t01=0x0122}
0x98b6…98e2 Head {h00=0x0028, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS DISC«, t00=0x0061, t01=0x0148}
0x98e2…98ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0174}
0x98ee…98f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0180}
0x98f8…9910 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0061, t01=0x018a}
0x9910…991a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0012}
0x991a…9924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x001c}
0x9924…9938 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0062, t01=0x0026}
0x9938…994c Head {h00=0x0010, h01=0x0050, text=» LDKL A2,BUF«, t00=0x0062, t01=0x003a}
0x994c…995e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0062, t01=0x004e}
0x995e…9970 Head {h00=0x000e, h01=0x0050, text=» RF VOL:20«, t00=0x0062, t01=0x0060}
0x9970…997c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x0072}
0x997c…9986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x007e}
0x9986…9998 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0062, t01=0x0088}
0x9998…99ac Head {h00=0x0010, h01=0x0050, text=»VOL:10 EQU *«, t00=0x0062, t01=0x009a}
0x99ac…99c6 Head {h00=0x0016, h01=0x0050, text=» LDK A3,10 LENGTH «, t00=0x0062, t01=0x00ae}
0x99c6…99de Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0062, t01=0x00c8}
0x99de…9a02 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF READ TO BUFFER «, t00=0x0062, t01=0x00e0}
0x9a02…9a18 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0062, t01=0x0104}
0x9a18…9a2c Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0062, t01=0x011a}
0x9a2c…9a56 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x0062, t01=0x012e}
0x9a56…9a7c Head {h00=0x0022, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM«, t00=0x0062, t01=0x0158}
0x9a7c…9a92 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/400 «, t00=0x0062, t01=0x017e}
0x9a92…9ac2 (99, 0, 400) Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0063, t01=0x0004}
0x9ac2…9ae6 Head {h00=0x0020, h01=0x0050, text=» LDK A7,10 NO OF CHARACTERS «, t00=0x0063, t01=0x0034}
0x9ae6…9b1c Head {h00=0x0032, h01=0x0050, text=» CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII«, t00=0x0063, t01=0x0058}
0x9b1c…9b50 Head {h00=0x0030, h01=0x0050, text=» LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME «, t00=0x0063, t01=0x008e}
0x9b50…9b5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00c2}
0x9b5c…9b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00ce}
0x9b66…9b7e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0063, t01=0x00d8}
0x9b7e…9b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00f0}
0x9b88…9b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00fa}
0x9b92…9ba6 Head {h00=0x0010, h01=0x0050, text=»VOL:20 EQU *«, t00=0x0063, t01=0x0104}
0x9ba6…9bbe Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0063, t01=0x0118}
0x9bbe…9bdc Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F8 FILE CODE «, t00=0x0063, t01=0x0130}
0x9bdc…9bf4 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST2,A6«, t00=0x0063, t01=0x014e}
0x9bf4…9c1a Head {h00=0x0022, h01=0x0050, text=» RF(NZ) VOL:30 NOT TEST STATUS«, t00=0x0063, t01=0x0166}
0x9c1a…9c48 Head {h00=0x002a, h01=0x0050, text=» ORKL A3,/8000 INDICATE NO NEW NVL SET«, t00=0x0063, t01=0x018c}
0x9c48…9c5c Head {h00=0x0010, h01=0x0050, text=»VOL:30 EQU *«, t00=0x0064, t01=0x002a}
0x9c5c…9c8e Head {h00=0x002e, h01=0x0050, text=» CF A15,VOLGET VOLUME NAME TO DWT SET NVL «, t00=0x0064, t01=0x003e}
0x9c8e…9ca6 Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0064, t01=0x0070}
0x9ca6…9cb8 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0064, t01=0x0088}
0x9cb8…9ccc Head {h00=0x0010, h01=0x0050, text=»VOL:40 EQU *«, t00=0x0064, t01=0x009a}
0x9ccc…9cdc Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0064, t01=0x00ae}
0x9cdc…9ce8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x00be}
0x9ce8…9cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00ca}
0x9cf2…9d04 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0064, t01=0x00d4}
0x9d04…9d1c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0064, t01=0x00e6}
0x9d1c…9d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00fe}
0x9d26…9d38 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0064, t01=0x0108}
0x9d38…9d4a Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x0064, t01=0x011a}
0x9d4a…9d5c Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0064, t01=0x012c}
0x9d5c…9d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x013e}
0x9d66…9da4 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x0064, t01=0x0148}
0x9da4…9dc4 Head {h00=0x001c, h01=0x0050, text=»* ASCII CODE«, t00=0x0064, t01=0x0186}
0x9dc4…9df6 Head {h00=0x002e, h01=0x0050, text=»* INPUT STRING ADDRESS IS BUF «, t00=0x0065, t01=0x0016}
0x9df6…9e20 Head {h00=0x0026, h01=0x0050, text=»* INPUT: A7 NO OF CHARACTERS«, t00=0x0065, t01=0x0048}
0x9e20…9e42 Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0065, t01=0x0072}
0x9e42…9e64 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x0065, t01=0x0094}
0x9e64…9e86 Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0065, t01=0x00b6}
0x9e86…9ea8 Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x0065, t01=0x00d8}
0x9ea8…9eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00fa}
0x9eb2…9ec6 Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0065, t01=0x0104}
0x9ec6…9edc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0065, t01=0x0118}
0x9edc…9f06 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0065, t01=0x012e}
0x9f06…9f12 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x0158}
0x9f12…9f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0164}
0x9f1c…9f2e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0065, t01=0x016e}
0x9f2e…9f3a Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0065, t01=0x0180}
0x9f3a…9f4c Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0065, t01=0x018c}
0x9f4c…9f60 Head {h00=0x0010, h01=0x0050, text=»ASC:10 EQU *«, t00=0x0066, t01=0x000e}
0x9f60…9f72 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0066, t01=0x0022}
0x9f72…9f96 Head {h00=0x0020, h01=0x0050, text=» LCR A1,A4 EBCDIC CHARACTER «, t00=0x0066, t01=0x0034}
0x9f96…9faa Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0066, t01=0x0058}
0x9faa…9fd6 Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0066, t01=0x006c}
0x9fd6…a00a Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0066, t01=0x0098}
0xa00a…a01c Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0066, t01=0x00cc}
0xa01c…a032 Head {h00=0x0012, h01=0x0050, text=» RB(P) ASC:10 «, t00=0x0066, t01=0x00de}
0xa032…a044 Head {h00=0x000e, h01=0x0050, text=» RF EBC:90«, t00=0x0066, t01=0x00f4}
0xa044…a04e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0106}
0xa04e…a066 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0066, t01=0x0110}
0xa066…a070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0128}
0xa070…a082 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0066, t01=0x0132}
0xa082…a094 Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0066, t01=0x0144}
0xa094…a0a6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0066, t01=0x0156}
0xa0a6…a0b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0168}
0xa0b0…a0f0 Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0066, t01=0x0172}
0xa0f0…a112 Head {h00=0x001e, h01=0x0050, text=»* EBCDIC CODE «, t00=0x0067, t01=0x0022}
0xa112…a14e Head {h00=0x0038, h01=0x0050, text=»* OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x0067, t01=0x0044}
0xa14e…a158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0080}
0xa158…a182 Head {h00=0x0026, h01=0x0050, text=»* INPUT: A7 NO OF CHARACTERS «, t00=0x0067, t01=0x008a}
0xa182…a1a4 Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0067, t01=0x00b4}
0xa1a4…a1ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00d6}
0xa1ae…a1d0 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x0067, t01=0x00e0}
0xa1d0…a1f2 Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0067, t01=0x0102}
0xa1f2…a214 Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x0067, t01=0x0124}
0xa214…a228 Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0067, t01=0x0146}
0xa228…a234 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0067, t01=0x015a}
0xa234…a24a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0067, t01=0x0166}
0xa24a…a274 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0067, t01=0x017c}
0xa274…a280 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x0016}
0xa280…a28a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0022}
0xa28a…a29c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0068, t01=0x002c}
0xa29c…a2ae Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0068, t01=0x003e}
0xa2ae…a2c2 Head {h00=0x0010, h01=0x0050, text=»EBC:10 EQU *«, t00=0x0068, t01=0x0050}
0xa2c2…a2d4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0068, t01=0x0064}
0xa2d4…a2f6 Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x0068, t01=0x0076}
0xa2f6…a30a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0068, t01=0x0098}
0xa30a…a324 Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x0068, t01=0x00ac}
0xa324…a33c Head {h00=0x0014, h01=0x0050, text=» SC A1,BUF-1,A7 «, t00=0x0068, t01=0x00c6}
0xa33c…a34e Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0068, t01=0x00de}
0xa34e…a364 Head {h00=0x0012, h01=0x0050, text=» RB(P) EBC:10 «, t00=0x0068, t01=0x00f0}
0xa364…a38e Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0068, t01=0x0106}
0xa38e…a3a2 Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x0068, t01=0x0130}
0xa3a2…a3c2 Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x0068, t01=0x0144}
0xa3c2…a3d2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0068, t01=0x0164}
0xa3d2…a3dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0174}
0xa3dc…a3f4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0068, t01=0x017e}
0xa3f4…a3fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0008}
0xa3fe…a410 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x0012}
0xa410…a422 Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x0069, t01=0x0024}
0xa422…a434 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0069, t01=0x0036}
0xa434…a43e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0048}
0xa43e…a482 Head {h00=0x0040, h01=0x0050, text=»* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x0069, t01=0x0052}
0xa482…a4b2 Head {h00=0x002c, h01=0x0050, text=»* LOGICAL SECTOR (BINARY). «, t00=0x0069, t01=0x0096}
0xa4b2…a4f2 Head {h00=0x003c, h01=0x0050, text=»* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE)«, t00=0x0069, t01=0x00c6}
0xa4f2…a520 Head {h00=0x002a, h01=0x0050, text=»* TT = TRACK, SS=SECTOR «, t00=0x0069, t01=0x0106}
0xa520…a52a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0134}
0xa52a…a55a Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO PHYS. SECTOR«, t00=0x0069, t01=0x013e}
0xa55a…a564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x016e}
0xa564…a58e Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A3 BINARY SECTOR NO «, t00=0x0069, t01=0x0178}
0xa58e…a5c0 Head {h00=0x002e, h01=0x0050, text=»* A4 ADDRESS TO PHYS. SEC. + 4«, t00=0x006a, t01=0x0012}
0xa5c0…a5ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0044}
0xa5ca…a5de Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x006a, t01=0x004e}
0xa5de…a5f4 Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x006a, t01=0x0062}
0xa5f4…a60c Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x006a, t01=0x0078}
0xa60c…a61e Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x006a, t01=0x0090}
0xa61e…a628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00a2}
0xa628…a642 Head {h00=0x0016, h01=0x0050, text=»* MULTIPLY BY 26 «, t00=0x006a, t01=0x00ac}
0xa642…a64c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00c6}
0xa64c…a662 Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x006a, t01=0x00d0}
0xa662…a674 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x006a, t01=0x00e6}
0xa674…a686 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x006a, t01=0x00f8}
0xa686…a69c Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x006a, t01=0x010a}
0xa69c…a6ae Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x006a, t01=0x0120}
0xa6ae…a6c4 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x006a, t01=0x0132}
0xa6c4…a6da Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x006a, t01=0x0148}
0xa6da…a6ec Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006a, t01=0x015e}
0xa6ec…a6fe Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x006a, t01=0x0170}
0xa6fe…a708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0182}
0xa708…a720 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x006a, t01=0x018c}
0xa720…a72a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0014}
0xa72a…a744 Head {h00=0x0016, h01=0x0050, text=»* CHECK SECTOR NO«, t00=0x006b, t01=0x001e}
0xa744…a74e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0038}
0xa74e…a760 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x006b, t01=0x0042}
0xa760…a772 Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x006b, t01=0x0054}
0xa772…a788 Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x006b, t01=0x0066}
0xa788…a7a6 Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD «, t00=0x006b, t01=0x007c}
0xa7a6…a7c0 Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x006b, t01=0x009a}
0xa7c0…a7d6 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x006b, t01=0x00b4}
0xa7d6…a7e8 Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x006b, t01=0x00ca}
0xa7e8…a7f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00dc}
0xa7f2…a818 Head {h00=0x0022, h01=0x0050, text=»* CHECK EOD LESS/EQUAL 74001 «, t00=0x006b, t01=0x00e6}
0xa818…a822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x010c}
0xa822…a83e Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x006b, t01=0x0116}
0xa83e…a852 Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x006b, t01=0x0132}
0xa852…a878 Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x006b, t01=0x0146}
0xa878…a89e Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x006b, t01=0x016c}
0xa89e…a8ae (108, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006c, t01=0x0004}
0xa8ae…a8b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0014}
0xa8b8…a8ce Head {h00=0x0012, h01=0x0050, text=»* FATAL ERROR«, t00=0x006c, t01=0x001e}
0xa8ce…a8d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0034}
0xa8d8…a904 Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x006c, t01=0x003e}
0xa904…a92a Head {h00=0x0022, h01=0x0050, text=»LOG:10 LDK A1,/10 RETURN CODE «, t00=0x006c, t01=0x006a}
0xa92a…a95a Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x006c, t01=0x0090}
0xa95a…a97a Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x006c, t01=0x00c0}
0xa97a…a99c Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x006c, t01=0x00e0}
0xa99c…a9a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0102}
0xa9a6…a9be Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x006c, t01=0x010c}
0xa9be…a9c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0124}
0xa9c8…a9da Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x012e}
0xa9da…a9ec Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x006c, t01=0x0140}
0xa9ec…a9fe Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x0152}
0xa9fe…aa08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0164}
0xaa08…aa4a Head {h00=0x003e, h01=0x0050, text=»* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x006c, t01=0x016e}
0xaa4a…aa92 Head {h00=0x0044, h01=0x0050, text=»* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x006d, t01=0x0020}
0xaa92…aac2 Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO FIRST DIGIT«, t00=0x006d, t01=0x0068}
0xaac2…aae0 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A1 BINARY«, t00=0x006d, t01=0x0098}
0xaae0…ab00 Head {h00=0x001c, h01=0x0050, text=»* WORKING REG: A2,A7 «, t00=0x006d, t01=0x00b6}
0xab00…ab0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00d6}
0xab0a…ab22 Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x006d, t01=0x00e0}
0xab22…ab34 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x006d, t01=0x00f8}
0xab34…ab52 Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x006d, t01=0x010a}
0xab52…ab66 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x006d, t01=0x0128}
0xab66…ab7a Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x006d, t01=0x013c}
0xab7a…ab90 Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x006d, t01=0x0150}
0xab90…aba2 Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x006d, t01=0x0166}
0xaba2…abc2 Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x006d, t01=0x0178}
0xabc2…abd4 Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x006e, t01=0x0008}
0xabd4…abe6 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x006e, t01=0x001a}
0xabe6…abfc Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x006e, t01=0x002c}
0xabfc…ac26 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x006e, t01=0x0042}
0xac26…ac3e Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x006e, t01=0x006c}
0xac3e…ac5e Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x006e, t01=0x0084}
0xac5e…ac80 Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x006e, t01=0x00a4}
0xac80…ac92 Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x006e, t01=0x00c6}
0xac92…acaa Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x006e, t01=0x00d8}
0xacaa…acba Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006e, t01=0x00f0}
0xacba…acc6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x0100}
0xacc6…acd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x010c}
0xacd0…ace8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x006e, t01=0x0116}
0xace8…acf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x012e}
0xacf2…ad04 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006e, t01=0x0138}
0xad04…ad16 Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x006e, t01=0x014a}
0xad16…ad28 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006e, t01=0x015c}
0xad28…ad32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x016e}
0xad32…ad68 Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x006e, t01=0x0178}
0xad68…ad72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x001e}
0xad72…adae Head {h00=0x0038, h01=0x0050, text=»* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x006f, t01=0x0028}
0xadae…adb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0064}
0xadb8…add6 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A3 CHANGED«, t00=0x006f, t01=0x006e}
0xadd6…adf4 Head {h00=0x001a, h01=0x0050, text=»* A4 CHANGED«, t00=0x006f, t01=0x008c}
0xadf4…adfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00aa}
0xadfe…ae1a Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x006f, t01=0x00b4}
0xae1a…ae30 Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x006f, t01=0x00d0}
0xae30…ae42 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x006f, t01=0x00e6}
0xae42…ae58 Head {h00=0x0012, h01=0x0050, text=» ORS A3,FD:CIO«, t00=0x006f, t01=0x00f8}
0xae58…ae68 Head {h00=0x000c, h01=0x0050, text=» RTN A5«, t00=0x006f, t01=0x010e}
0xae68…ae7a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006f, t01=0x011e}
0xae7a…ae84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0130}
0xae84…ae9c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x006f, t01=0x013a}
0xae9c…aea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0152}
0xaea6…aeb8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006f, t01=0x015c}
0xaeb8…aeca Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x006f, t01=0x016e}
0xaeca…aedc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006f, t01=0x0180}
0xaedc…aee6 (112, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0004}
0xaee6…af24 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x0070, t01=0x000e}
0xaf24…af58 Head {h00=0x0030, h01=0x0050, text=»* EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x0070, t01=0x004c}
0xaf58…af62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0080}
0xaf62…af86 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A7 BINARY NUMBER«, t00=0x0070, t01=0x008a}
0xaf86…af90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00ae}
0xaf90…afc2 Head {h00=0x002e, h01=0x0050, text=»* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS«, t00=0x0070, t01=0x00b8}
0xafc2…afe0 Head {h00=0x001a, h01=0x0050, text=»* A7 CHANGED«, t00=0x0070, t01=0x00ea}
0xafe0…afea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0108}
0xafea…b002 Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x0070, t01=0x0112}
0xb002…b01a Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x0070, t01=0x012a}
0xb01a…b030 Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x0070, t01=0x0142}
0xb030…b042 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0070, t01=0x0158}
0xb042…b054 Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x0070, t01=0x016a}
0xb054…b06c Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x0070, t01=0x017c}
0xb06c…b07e (113, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x0071, t01=0x0004}
0xb07e…b0ac Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x0071, t01=0x0016}
0xb0ac…b0d0 Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x0071, t01=0x0044}
0xb0d0…b0e0 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0071, t01=0x0068}
0xb0e0…b0ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0078}
0xb0ea…b102 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0071, t01=0x0082}
0xb102…b114 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0071, t01=0x009a}
0xb114…b126 Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x0071, t01=0x00ac}
0xb126…b138 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0071, t01=0x00be}
0xb138…b142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00d0}
0xb142…b17a Head {h00=0x0034, h01=0x0050, text=»* FUNCTION: PREPARE FOR READING DATA SET LABEL«, t00=0x0071, t01=0x00da}
0xb17a…b184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0112}
0xb184…b1a6 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0071, t01=0x011c}
0xb1a6…b1b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x013e}
0xb1b0…b1ee Head {h00=0x003a, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x0071, t01=0x0148}
0xb1ee…b20a Head {h00=0x0018, h01=0x0050, text=»* A3 128 «, t00=0x0071, t01=0x0186}
0xb20a…b236 Head {h00=0x0028, h01=0x0050, text=»* A4 DRIVER BUFFER ADDRESS«, t00=0x0072, t01=0x0012}
0xb236…b258 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0072, t01=0x003e}
0xb258…b27a Head {h00=0x001e, h01=0x0050, text=»* A1 IS CHANGED «, t00=0x0072, t01=0x0060}
0xb27a…b284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0082}
0xb284…b2a0 Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x0072, t01=0x008c}
0xb2a0…b2b4 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0072, t01=0x00a8}
0xb2b4…b2c8 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x0072, t01=0x00bc}
0xb2c8…b2da Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0072, t01=0x00d0}
0xb2da…b2ee Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x0072, t01=0x00e2}
0xb2ee…b302 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0072, t01=0x00f6}
0xb302…b312 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0072, t01=0x010a}
0xb312…b31c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x011a}
0xb31c…b334 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0072, t01=0x0124}
0xb334…b33e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x013c}
0xb33e…b350 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0072, t01=0x0146}
0xb350…b362 Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x0072, t01=0x0158}
0xb362…b374 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0072, t01=0x016a}
0xb374…b37e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x017c}
0xb37e…b3b8 Head {h00=0x0036, h01=0x0050, text=»* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x0072, t01=0x0186}
0xb3b8…b3c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0030}
0xb3c2…b3e4 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0073, t01=0x003a}
0xb3e4…b3ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x005c}
0xb3ee…b410 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A2 EOD ADDRESS«, t00=0x0073, t01=0x0066}
0xb410…b440 Head {h00=0x002c, h01=0x0050, text=»* A7 EOD-NO (0=NOT OPEN) «, t00=0x0073, t01=0x0088}
0xb440…b45e Head {h00=0x001a, h01=0x0050, text=»* A1 CHANGED«, t00=0x0073, t01=0x00b8}
0xb45e…b47a Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x0073, t01=0x00d6}
0xb47a…b48e Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0073, t01=0x00f2}
0xb48e…b4a8 Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x0073, t01=0x0106}
0xb4a8…b4b8 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0073, t01=0x0120}
0xb4b8…b4c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0130}
0xb4c2…b4da Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0073, t01=0x013a}
0xb4da…b4e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0152}
0xb4e4…b4f6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0073, t01=0x015c}
0xb4f6…b508 Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x0073, t01=0x016e}
0xb508…b51a Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0073, t01=0x0180}
0xb51a…b524 (116, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0004}
0xb524…b55a Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x0074, t01=0x000e}
0xb55a…b594 Head {h00=0x0036, h01=0x0050, text=»* TYPE OF DATA FOR CORRESPONDING DRIVE «, t00=0x0074, t01=0x0044}
0xb594…b59e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x007e}
0xb59e…b5c0 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A1 DWT OFFSET «, t00=0x0074, t01=0x0088}
0xb5c0…b5e2 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0074, t01=0x00aa}
0xb5e2…b5ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00cc}
0xb5ec…b612 Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A2 ADDRESS TO DATA«, t00=0x0074, t01=0x00d6}
0xb612…b634 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0074, t01=0x00fc}
0xb634…b63e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x011e}
0xb63e…b664 Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x0074, t01=0x0128}
0xb664…b676 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0074, t01=0x014e}
0xb676…b688 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0074, t01=0x0160}
0xb688…b69a Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0074, t01=0x0172}
0xb69a…b6ac Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x0074, t01=0x0184}
0xb6ac…b6bc Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0075, t01=0x0008}
0xb6bc…b6c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0018}
0xb6c6…b6de Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0075, t01=0x0022}
0xb6de…b6e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x003a}
0xb6e8…b6fa Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0075, t01=0x0044}
0xb6fa…b70c Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x0075, t01=0x0056}
0xb70c…b71e Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0075, t01=0x0068}
0xb71e…b728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x007a}
0xb728…b766 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x0075, t01=0x0084}
0xb766…b784 Head {h00=0x001a, h01=0x0050, text=»* DRIVE NO «, t00=0x0075, t01=0x00c2}
0xb784…b78e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00e0}
0xb78e…b7ba Head {h00=0x0028, h01=0x0050, text=»* INPUT: A1 OFFSET TO DWT AREA «, t00=0x0075, t01=0x00ea}
0xb7ba…b7ec Head {h00=0x002e, h01=0x0050, text=»* A3 WORD TO BE STORED IN DWT «, t00=0x0075, t01=0x0116}
0xb7ec…b810 Head {h00=0x0020, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0075, t01=0x0148}
0xb810…b81a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x016c}
0xb81a…b83c Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 UNCHANGED«, t00=0x0075, t01=0x0176}
0xb83c…b870 Head {h00=0x0030, h01=0x0050, text=»* A2 ADDRESS TO WORD IN DWT AREA«, t00=0x0076, t01=0x0008}
0xb870…b892 Head {h00=0x001e, h01=0x0050, text=»* A3 UNCHANGED«, t00=0x0076, t01=0x003c}
0xb892…b8b4 Head {h00=0x001e, h01=0x0050, text=»* A6 UNCHANGED«, t00=0x0076, t01=0x005e}
0xb8b4…b8be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0080}
0xb8be…b8d2 Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x0076, t01=0x008a}
0xb8d2…b8e6 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0076, t01=0x009e}
0xb8e6…b8f8 Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0076, t01=0x00b2}
0xb8f8…b908 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0076, t01=0x00c4}
0xb908…b914 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x00d4}
0xb914…b91e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00e0}
0xb91e…b936 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0076, t01=0x00ea}
0xb936…b940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0102}
0xb940…b966 Head {h00=0x0022, h01=0x0050, text=»* D R I V E R B U F F E R«, t00=0x0076, t01=0x010c}
0xb966…b970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0132}
0xb970…b982 Head {h00=0x000e, h01=0x0050, text=»BUF EQU * «, t00=0x0076, t01=0x013c}
0xb982…b994 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0076, t01=0x014e}
0xb994…b9a8 Head {h00=0x0010, h01=0x0050, text=» RES DVBLEN «, t00=0x0076, t01=0x0160}
0xb9a8…b9b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0174}
0xb9b4…b9be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0180}
0xb9be…b9d2 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0076, t01=0x018a}
0xb9d2…b9e4 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0077, t01=0x000e}
0xb9e4…ba0a Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME BUFFER«, t00=0x0077, t01=0x0020}
0xba0a…ba24 Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x0077, t01=0x0046}
0xba24…ba44 Head {h00=0x001c, h01=0x0050, text=» RES DVBLEN-3 MMU BUFFER«, t00=0x0077, t01=0x0060}
0xba44…ba50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x0080}
0xba50…ba5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x008c}
0xba5a…ba72 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0077, t01=0x0096}
0xba72…ba8c Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x0077, t01=0x00ae}
0xba8c…baaa Head {h00=0x001a, h01=0x0050, text=» RES DVBLEN MMU BUFFER«, t00=0x0077, t01=0x00c8}
0xbaaa…bab6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x00e6}
0xbab6…bac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00f2}
0xbac0…bad8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0077, t01=0x00fc}
0xbad8…bae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0114}
0xbae2…bb00 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0077, t01=0x011e}
0xbb00…bb1e Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0077, t01=0x013c}
0xbb1e…bb3c Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0077, t01=0x015a}
0xbb3c…bb5a Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0077, t01=0x0178}
0xbb5a…bb78 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0078, t01=0x0008}
0xbb78…bb82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0026}
0xbb82…bb96 Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0078, t01=0x0030}
0xbb96…bbc2 Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x0078, t01=0x0044}
0xbbc2…bbd2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0078, t01=0x0070}
0xbbd2…bbf0 Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0078, t01=0x0080}
0xbbf0…bc0c Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0078, t01=0x009e}
0xbc0c…bc22 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0078, t01=0x00ba}
0xbc22…bc48 Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0078, t01=0x00d0}
0xbc48…bc64 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0078, t01=0x00f6}
0xbc64…bc8c Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0078, t01=0x0112}
0xbc8c…bcaa Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0078, t01=0x013a}
0xbcaa…bcb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0158}
0xbcb4…bcca Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0078, t01=0x0162}
0xbcca…bcf4 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0078, t01=0x0178}
0xbcf4…bd18 Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0079, t01=0x0012}
0xbd18…bd24 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0079, t01=0x0036}
0xbd24…bd2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0042}
0xbd2e…bd48 Head {h00=0x0016, h01=0x0050, text=»DWTA3 EQU *-DWFD01«, t00=0x0079, t01=0x004c}
0xbd48…bd58 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0079, t01=0x0066}
0xbd58…bd72 Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x0079, t01=0x0076}
0xbd72…bd82 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0079, t01=0x0090}
0xbd82…bd92 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0079, t01=0x00a0}
0xbd92…bdb8 Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0,0 STACK (3 LEVELS)«, t00=0x0079, t01=0x00b0}
0xbdb8…bdd8 Head {h00=0x001c, h01=0x0050, text=» DATA 0 ORDER SAVE AREA «, t00=0x0079, t01=0x00d6}
0xbdd8…bde2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00f6}
0xbde2…bdfa Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0079, t01=0x0100}
0xbdfa…be04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0118}
0xbe04…be0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0122}
0xbe0e…be26 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0079, t01=0x012c}
0xbe26…be4a Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 0 «, t00=0x0079, t01=0x0144}
0xbe4a…be6e Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 1 «, t00=0x0079, t01=0x0168}
0xbe6e…be92 Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 2 «, t00=0x0079, t01=0x018c}
0xbe92…beb6 Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 3 «, t00=0x007a, t01=0x0020}
0xbeb6…bee2 Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x007a, t01=0x0044}
0xbee2…bf02 Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007a, t01=0x0070}
0xbf02…bf2e Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x007a, t01=0x0090}
0xbf2e…bf4e Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007a, t01=0x00bc}
0xbf4e…bf7a Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x007a, t01=0x00dc}
0xbf7a…bf9a Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007a, t01=0x0108}
0xbf9a…bfc6 Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x007a, t01=0x0128}
0xbfc6…bfe6 Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007a, t01=0x0154}
0xbfe6…c012 Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x007a, t01=0x0174}
0xc012…c022 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0010}
0xc022…c02e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x0020}
0xc02e…c048 Head {h00=0x0016, h01=0x0050, text=»DWTA5 EQU *-DWFD01«, t00=0x007b, t01=0x002c}
0xc048…c058 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0046}
0xc058…c086 Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x007b, t01=0x0056}
0xc086…c096 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0084}
0xc096…c0be Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x007b, t01=0x0094}
0xc0be…c0ce Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x00bc}
0xc0ce…c0d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00cc}
0xc0d8…c0f0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007b, t01=0x00d6}
0xc0f0…c0fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00ee}
0xc0fa…c104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00f8}
0xc104…c116 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007b, t01=0x0102}
0xc116…c146 Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x007b, t01=0x0114}
0xc146…c156 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0144}
0xc156…c162 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x0154}
0xc162…c16c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0160}
0xc16c…c19c Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x007b, t01=0x016a}
0xc19c…c1ac Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x000a}
0xc1ac…c1b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x001a}
0xc1b6…c1cc Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x007c, t01=0x0024}
0xc1cc…c1fe Head {h00=0x002e, h01=0x0050, text=»DWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN«, t00=0x007c, t01=0x003a}
0xc1fe…c20e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x006c}
0xc20e…c246 Head {h00=0x0034, h01=0x0050, text=»DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON «, t00=0x007c, t01=0x007c}
0xc246…c256 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x00b4}
0xc256…c262 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x00c4}
0xc262…c26c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00d0}
0xc26c…c284 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007c, t01=0x00da}
0xc284…c28e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00f2}
0xc28e…c298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00fc}
0xc298…c2ac Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x007c, t01=0x0106}
0xc2ac…c2e6 Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x007c, t01=0x011a}
0xc2e6…c2f6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0154}
0xc2f6…c326 Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x007c, t01=0x0164}
0xc326…c336 (125, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0004}
0xc336…c366 Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x007d, t01=0x0014}
0xc366…c376 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0044}
0xc376…c382 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x0054}
0xc382…c38c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0060}
0xc38c…c39e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007d, t01=0x006a}
0xc39e…c3ce Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x007d, t01=0x007c}
0xc3ce…c3e4 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007d, t01=0x00ac}
0xc3e4…c40c Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x007d, t01=0x00c2}
0xc40c…c422 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007d, t01=0x00ea}
0xc422…c44c Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x007d, t01=0x0100}
0xc44c…c462 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007d, t01=0x012a}
0xc462…c490 Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x007d, t01=0x0140}
0xc490…c4a6 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007d, t01=0x016e}
0xc4a6…c4d8 Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x007d, t01=0x0184}
0xc4d8…c4ee Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007e, t01=0x0026}
0xc4ee…c4fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x003c}
0xc4fa…c504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0048}
0xc504…c51c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007e, t01=0x0052}
0xc51c…c526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x006a}
0xc526…c530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0074}
0xc530…c55a Head {h00=0x0026, h01=0x0050, text=»DWTBA EQU *-DWFD01 BUFFER POINTER «, t00=0x007e, t01=0x007e}
0xc55a…c56a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007e, t01=0x00a8}
0xc56a…c596 Head {h00=0x0028, h01=0x0050, text=»DWTRL EQU *-DWFD01 LENGTH IN SUB IO «, t00=0x007e, t01=0x00b8}
0xc596…c5a6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007e, t01=0x00e4}
0xc5a6…c5d0 Head {h00=0x0026, h01=0x0050, text=»DWTCW2 EQU *-DWFD01 SECTOR NUMBER «, t00=0x007e, t01=0x00f4}
0xc5d0…c5e0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007e, t01=0x011e}
0xc5e0…c612 Head {h00=0x002e, h01=0x0050, text=»DWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER «, t00=0x007e, t01=0x012e}
0xc612…c622 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007e, t01=0x0160}
0xc622…c65a Head {h00=0x0034, h01=0x0050, text=»DWTSIO EQU *-DWFD01 NUMBER OF SECTORS IN SUB IO «, t00=0x007e, t01=0x0170}
0xc65a…c66a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x0018}
0xc66a…c674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0028}
0xc674…c68c Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x007f, t01=0x0032}
0xc68c…c6b6 Head {h00=0x0026, h01=0x0050, text=»DWTFIB EQU *-DWFD01 IBM INDICATOR «, t00=0x007f, t01=0x004a}
0xc6b6…c6c6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x0074}
0xc6c6…c6d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0084}
0xc6d2…c6dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0090}
0xc6dc…c6f4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007f, t01=0x009a}
0xc6f4…c6fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00b2}
0xc6fe…c708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00bc}
0xc708…c71e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007f, t01=0x00c6}
0xc71e…c73a Head {h00=0x0018, h01=0x0050, text=»DWT:BF EQU *-DWFD01 «, t00=0x007f, t01=0x00dc}
0xc73a…c762 Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x007f, t01=0x00f8}
0xc762…c77e Head {h00=0x0018, h01=0x0050, text=»BUFFLG EQU *-DWFD01 «, t00=0x007f, t01=0x0120}
0xc77e…c78e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x013c}
0xc78e…c798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x014c}
0xc798…c7b0 Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x007f, t01=0x0156}
0xc7b0…c7cc Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWFD01 «, t00=0x007f, t01=0x016e}
0xc7cc…c7fa Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x007f, t01=0x018a}
0xc7fa…c81a Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x0080, t01=0x0028}
0xc81a…c824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0048}
0xc824…c840 Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWFD01 «, t00=0x0080, t01=0x0052}
0xc840…c86e Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0080, t01=0x006e}
0xc86e…c87a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x009c}
0xc87a…c884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00a8}
0xc884…c89a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0080, t01=0x00b2}
0xc89a…c8ae Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0080, t01=0x00c8}
0xc8ae…c8ca Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0080, t01=0x00dc}
0xc8ca…c8d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x00f8}
0xc8d6…c8e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0104}
0xc8e0…c8ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x010e}
0xc8ea…c8f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0118}
0xc8f4…c900 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0080, t01=0x0122}
0xc900…c904 Head {h00=0x4004, h01=0x0000}
0xc904…c908 00 80 01 2e ┆ .┆
0xc908…c910 (129, 1, 8) 20 04 00 00 00 81 00 04 ┆ ┆