|
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: 52576 (0xcd60)
Notes: pts_type(SC)
Names: »DRFDDE.SC«
└─⟦4358b8014⟧ Bits:30009669 Philips computer tape "600124"
└─⟦this⟧ »MON10/DRFDDE.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »MON10/DRFDDE.SC«
IDENT DRFD01 REL 10.0 80-04-29 870105041000 ASCII CONV, 81-04-18,DK1 ONLY VALID FOR DATA ENTRY,DK1 * ********************************************** * * 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 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 1 * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * 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 130 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,ECBCW1,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,ECBCW1,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,ECBCW1,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,ECBCW1,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,ASC:01 TRANSFORM TO ASCII DK1 * 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,ECBCW1,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,ECBCW1,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 ANK A3,/17 RF(NZ) VOL:40 IO ERROR 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,ASC:01 TRANSFER IBM VOL NAME TO ASCII DK1 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 * LD A1,DWT:LA,A6 GET LOGICAL BUFFER ADDRESS DK1 RF(NZ) ASC:01 BUFFER NOT IN SYSTEM AREA DK1 LD A4,DWTBA,A6 GET BUFFER ADDRESS DK1 RF ASC:02 DK1 ASC:01 EQU * DK1 IFT MMUPAG=1 LDKL A4,BUF DRIVER BUFFER ADDRESS XIF * ASC:02 EQU * DK1 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-04-29 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…005a Head {h00=0x0020, h01=0x0050, text=» ASCII CONV, 81-04-18,DK1 «, t00=0x0000, t01=0x003a}
0x005a…0082 Head {h00=0x0024, h01=0x0050, text=» ONLY VALID FOR DATA ENTRY,DK1«, t00=0x0000, t01=0x005e}
0x0082…008a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0086}
0x008a…0094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008e}
0x0094…00ca Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x0098}
0x00ca…00d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ce}
0x00d4…00fa Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00d8}
0x00fa…0104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…0130 Head {h00=0x0028, h01=0x0050, text=»* DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0000, t01=0x0108}
0x0130…013a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0134}
0x013a…0144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013e}
0x0144…014e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0148}
0x014e…0158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0152}
0x0158…0162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015c}
0x0162…016c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0166}
0x016c…01a2 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0000, t01=0x0170}
0x01a2…01ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0016}
0x01ac…01b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0020}
0x01b6…01ea Head {h00=0x0030, h01=0x0050, text=»* THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0001, t01=0x002a}
0x01ea…021c Head {h00=0x002e, h01=0x0050, text=»* CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0001, t01=0x005e}
0x021c…0250 Head {h00=0x0030, h01=0x0050, text=»* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0001, t01=0x0090}
0x0250…027a Head {h00=0x0026, h01=0x0050, text=»* MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0001, t01=0x00c4}
0x027a…0284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ee}
0x0284…028e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f8}
0x028e…02a6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0001, t01=0x0102}
0x02a6…02b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011a}
0x02b0…02c2 Head {h00=0x000e, h01=0x0050, text=»* ORDERS:«, t00=0x0001, t01=0x0124}
0x02c2…02cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0136}
0x02cc…02e8 Head {h00=0x0018, h01=0x0050, text=»* /00 TEST STATUS«, t00=0x0001, t01=0x0140}
0x02e8…0306 Head {h00=0x001a, h01=0x0050, text=»* /01 PHYSICAL READ«, t00=0x0001, t01=0x015c}
0x0306…034c Head {h00=0x0042, h01=0x0050, text=»* /02 SEQUENTIAL READ -IBM DISC ONLY-«, t00=0x0001, t01=0x017a}
0x034c…0368 Head {h00=0x0018, h01=0x0050, text=»* /05 BASIC WRITE«, t00=0x0002, t01=0x0030}
0x0368…03b0 Head {h00=0x0044, h01=0x0050, text=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- «, t00=0x0002, t01=0x004c}
0x03b0…03ce Head {h00=0x001a, h01=0x0050, text=»* /11 PHYSICAL READ«, t00=0x0002, t01=0x0094}
0x03ce…03ee Head {h00=0x001c, h01=0x0050, text=»* /15 PHYSICAL WRITE «, t00=0x0002, t01=0x00b2}
0x03ee…0402 Head {h00=0x0010, h01=0x0050, text=»* /21 OPEN «, t00=0x0002, t01=0x00d2}
0x0402…0416 Head {h00=0x0010, h01=0x0050, text=»* /22 CLOSE«, t00=0x0002, t01=0x00e6}
0x0416…043a Head {h00=0x0020, h01=0x0050, text=»* /24 WRITE DELETED DATA «, t00=0x0002, t01=0x00fa}
0x043a…0450 Head {h00=0x0012, h01=0x0050, text=»* /26 LOCK «, t00=0x0002, t01=0x011e}
0x0450…0498 Head {h00=0x0044, h01=0x0050, text=»* /31 REWIND -IBM DISC ONLY- «, t00=0x0002, t01=0x0134}
0x0498…04ae Head {h00=0x0012, h01=0x0050, text=»* /37 LOAD «, t00=0x0002, t01=0x017c}
0x04ae…04c6 (3, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* /38 UNLOAD «, t00=0x0003, t01=0x0004}
0x04c6…04d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001c}
0x04d0…04ec Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS:«, t00=0x0003, t01=0x0026}
0x04ec…04f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0042}
0x04f6…0512 Head {h00=0x0018, h01=0x0050, text=»* A5 STACK BASE «, t00=0x0003, t01=0x004c}
0x0512…052e Head {h00=0x0018, h01=0x0050, text=»* A6 DWT-ADDRESS«, t00=0x0003, t01=0x0068}
0x052e…0544 Head {h00=0x0012, h01=0x0050, text=»* A7 ORDER«, t00=0x0003, t01=0x0084}
0x0544…0560 Head {h00=0x0018, h01=0x0050, text=»* A8 ECB-ADDRESS«, t00=0x0003, t01=0x009a}
0x0560…0578 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0003, t01=0x00b6}
0x0578…0582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ce}
0x0582…0596 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00d8}
0x0596…05aa Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0003, t01=0x00ec}
0x05aa…05be Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x0100}
0x05be…05d2 Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0003, t01=0x0114}
0x05d2…05e6 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x0128}
0x05e6…05f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013c}
0x05f0…0618 Head {h00=0x0024, h01=0x0050, text=» ENTRY FDADR ACTIVATION ADDRESS«, t00=0x0003, t01=0x0146}
0x0618…063e Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0003, t01=0x016e}
0x063e…0662 (4, 0, 400) Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0004, t01=0x0004}
0x0662…0684 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0004, t01=0x0028}
0x0684…069c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0004, t01=0x004a}
0x069c…06a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0062}
0x06a6…06bc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x006c}
0x06bc…06d2 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x0082}
0x06d2…06e8 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0098}
0x06e8…06fe Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x00ae}
0x06fe…0714 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x00c4}
0x0714…071e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00da}
0x071e…073e Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x00e4}
0x073e…075a Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0004, t01=0x0104}
0x075a…077e Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x0120}
0x077e…07ac Head {h00=0x002a, h01=0x0050, text=» EXTRN DISEND PERFORM TENDIO AND TDISP«, t00=0x0004, t01=0x0144}
0x07ac…07d4 Head {h00=0x0024, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAME «, t00=0x0004, t01=0x0172}
0x07d4…07fe Head {h00=0x0026, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME ADDRESS «, t00=0x0005, t01=0x000a}
0x07fe…0832 Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL«, t00=0x0005, t01=0x0034}
0x0832…0864 Head {h00=0x002e, h01=0x0050, text=» EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED «, t00=0x0005, t01=0x0068}
0x0864…0880 Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x009a}
0x0880…08a2 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0005, t01=0x00b6}
0x08a2…08c8 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x0005, t01=0x00d8}
0x08c8…08f0 Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0005, t01=0x00fe}
0x08f0…091c Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTORD ORDER/INDEX SAVE AREA «, t00=0x0005, t01=0x0126}
0x091c…093e Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0005, t01=0x0152}
0x093e…0960 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0005, t01=0x0174}
0x0960…098a Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0006, t01=0x0008}
0x098a…09aa Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0006, t01=0x0032}
0x09aa…09d6 Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0006, t01=0x0052}
0x09d6…09f2 Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0006, t01=0x007e}
0x09f2…0a1c Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0006, t01=0x009a}
0x0a1c…0a46 Head {h00=0x0026, h01=0x0050, text=» EXTRN PFPOST PWF POST PROC. FLAG «, t00=0x0006, t01=0x00c4}
0x0a46…0a70 Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0006, t01=0x00ee}
0x0a70…0a9a Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0006, t01=0x0118}
0x0a9a…0ace Head {h00=0x0030, h01=0x0050, text=» EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE«, t00=0x0006, t01=0x0142}
0x0ace…0af6 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0006, t01=0x0176}
0x0af6…0b20 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0007, t01=0x000e}
0x0b20…0b4a Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0007, t01=0x0038}
0x0b4a…0b72 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW1 ECB CONTROL WORD 2«, t00=0x0007, t01=0x0062}
0x0b72…0b8a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0007, t01=0x008a}
0x0b8a…0b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a2}
0x0b94…0bb4 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x00ac}
0x0bb4…0bd4 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00cc}
0x0bd4…0bf4 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x00ec}
0x0bf4…0c14 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x010c}
0x0c14…0c34 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x012c}
0x0c34…0c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014c}
0x0c3e…0c70 Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0007, t01=0x0156}
0x0c70…0c94 Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0007, t01=0x0188}
0x0c94…0c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001c}
0x0c9e…0cb0 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0008, t01=0x0026}
0x0cb0…0cc2 Head {h00=0x000e, h01=0x0050, text=»CHAN EQU 1«, t00=0x0008, t01=0x0038}
0x0cc2…0ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004a}
0x0ccc…0d02 Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0008, t01=0x0054}
0x0d02…0d2e Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0008, t01=0x008a}
0x0d2e…0d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b6}
0x0d38…0d4a Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x00c0}
0x0d4a…0d5c Head {h00=0x000e, h01=0x0050, text=»TOSS EQU 1«, t00=0x0008, t01=0x00d2}
0x0d5c…0d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e4}
0x0d66…0d9c Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x0008, t01=0x00ee}
0x0d9c…0dc8 Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x0008, t01=0x0124}
0x0dc8…0dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0150}
0x0dd2…0de4 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0008, t01=0x015a}
0x0de4…0df6 Head {h00=0x000e, h01=0x0050, text=»IBM EQU 1 «, t00=0x0008, t01=0x016c}
0x0df6…0e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017e}
0x0e00…0e32 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x0188}
0x0e32…0e60 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0009, t01=0x002a}
0x0e60…0e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0058}
0x0e6a…0e7e Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0009, t01=0x0062}
0x0e7e…0e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0076}
0x0e88…0e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0080}
0x0e92…0ecc Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0009, t01=0x008a}
0x0ecc…0efe Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x00c4}
0x0efe…0f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f6}
0x0f08…0f1c Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0009, t01=0x0100}
0x0f1c…0f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0114}
0x0f26…0f3e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0009, t01=0x011e}
0x0f3e…0f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0136}
0x0f48…0f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0140}
0x0f52…0f96 Head {h00=0x0040, h01=0x0050, text=»* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER «, t00=0x0009, t01=0x014a}
0x0f96…0fde Head {h00=0x0044, h01=0x0050, text=»* TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1«, t00=0x0009, t01=0x018e}
0x0fde…0fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0046}
0x0fe8…0ffa Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000a, t01=0x0050}
0x0ffa…100e Head {h00=0x0010, h01=0x0050, text=»OPCLOS EQU 1«, t00=0x000a, t01=0x0062}
0x100e…1018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0076}
0x1018…1030 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000a, t01=0x0080}
0x1030…103a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0098}
0x103a…1044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a2}
0x1044…1060 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000a, t01=0x00ac}
0x1060…106a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c8}
0x106a…1074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d2}
0x1074…108a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000a, t01=0x00dc}
0x108a…10a0 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 256«, t00=0x000a, t01=0x00f2}
0x10a0…10ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0108}
0x10ac…10b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0114}
0x10b6…10cc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000a, t01=0x011e}
0x10cc…10e2 Head {h00=0x0012, h01=0x0050, text=»X:E EQU 256 «, t00=0x000a, t01=0x0134}
0x10e2…10fa Head {h00=0x0014, h01=0x0050, text=»DVBLEN EQU 130 «, t00=0x000a, t01=0x014a}
0x10fa…1106 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0162}
0x1106…1110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x016e}
0x1110…111a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0178}
0x111a…1136 Head {h00=0x0018, h01=0x0050, text=»* MMU DEVICE INDEX«, t00=0x000a, t01=0x0182}
0x1136…1140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000e}
0x1140…114a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0018}
0x114a…1160 Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU 10 «, t00=0x000b, t01=0x0022}
0x1160…116a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0038}
0x116a…1182 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000b, t01=0x0042}
0x1182…118c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x005a}
0x118c…11a2 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0064}
0x11a2…11b8 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x000b, t01=0x007a}
0x11b8…11ce Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x0090}
0x11ce…11e4 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x000b, t01=0x00a6}
0x11e4…11fa Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x00bc}
0x11fa…1204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d2}
0x1204…122e Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000b, t01=0x00dc}
0x122e…1258 Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000b, t01=0x0106}
0x1258…1284 Head {h00=0x0028, h01=0x0050, text=»SOPDA EQU /2E S.O.P. DEVICE ADDRESS «, t00=0x000b, t01=0x0130}
0x1284…12a8 Head {h00=0x0020, h01=0x0050, text=»SECLEN EQU 128 SECTOR LENGTH«, t00=0x000b, t01=0x015c}
0x12a8…12d2 Head {h00=0x0026, h01=0x0050, text=»MAXSEC EQU 2002 MAX SECTOR NUMBER «, t00=0x000b, t01=0x0180}
0x12d2…1304 Head {h00=0x002e, h01=0x0050, text=»MAXIBM EQU 1923 MAX SECTOR NUMBER IBM DISC«, t00=0x000c, t01=0x001a}
0x1304…1330 Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000c, t01=0x004c}
0x1330…135a Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000c, t01=0x0078}
0x135a…1382 Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000c, t01=0x00a2}
0x1382…13a6 Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000c, t01=0x00ca}
0x13a6…13d0 Head {h00=0x0026, h01=0x0050, text=»OPENTI EQU 10 DELAY AT OPEN ORDERS«, t00=0x000c, t01=0x00ee}
0x13d0…13da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0118}
0x13da…1402 Head {h00=0x0024, h01=0x0050, text=»DIXTAB EQU * DOUBLE INDEX TABLE «, t00=0x000c, t01=0x0122}
0x1402…1416 Head {h00=0x0010, h01=0x0050, text=» DATA /0102 «, t00=0x000c, t01=0x014a}
0x1416…142a Head {h00=0x0010, h01=0x0050, text=» DATA /0408 «, t00=0x000c, t01=0x015e}
0x142a…1434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0172}
0x1434…144c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000c, t01=0x017c}
0x144c…1456 (13, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0004}
0x1456…1468 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x000e}
0x1468…147a Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0020}
0x147a…148c Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000d, t01=0x0032}
0x148c…149e Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0044}
0x149e…14b0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x0056}
0x14b0…14ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0068}
0x14ba…14d2 Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x000d, t01=0x0072}
0x14d2…14fe Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x000d, t01=0x008a}
0x14fe…150a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00b6}
0x150a…1514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c2}
0x1514…1528 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000d, t01=0x00cc}
0x1528…153a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x000d, t01=0x00e0}
0x153a…1560 Head {h00=0x0022, h01=0x0050, text=» DATA 0 INDICATE NO MMU BUFFER«, t00=0x000d, t01=0x00f2}
0x1560…156c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0118}
0x156c…1576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0124}
0x1576…1598 Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000d, t01=0x012e}
0x1598…15c2 Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000d, t01=0x0150}
0x15c2…15e8 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000d, t01=0x017a}
0x15e8…15f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0010}
0x15f2…160a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000e, t01=0x001a}
0x160a…1614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0032}
0x1614…162c Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x003c}
0x162c…1644 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000e, t01=0x0054}
0x1644…165c Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x000e, t01=0x006c}
0x165c…1674 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000e, t01=0x0084}
0x1674…168c Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x009c}
0x168c…1696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b4}
0x1696…16aa Head {h00=0x0010, h01=0x0050, text=»TESTST EQU *«, t00=0x000e, t01=0x00be}
0x16aa…16c2 Head {h00=0x0014, h01=0x0050, text=» IFF IBM+TOSS=0 «, t00=0x000e, t01=0x00d2}
0x16c2…16d8 Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x000e, t01=0x00ea}
0x16d8…16fe Head {h00=0x0022, h01=0x0050, text=» STR A1,A6 SAVE NVL INDICATOR «, t00=0x000e, t01=0x0100}
0x16fe…170a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0126}
0x170a…1714 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0132}
0x1714…1734 Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x000e, t01=0x013c}
0x1734…174a Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x000e, t01=0x015c}
0x174a…175c Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x000e, t01=0x0172}
0x175c…1784 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DIS:EN DISC NOT OPERABLE«, t00=0x000e, t01=0x0184}
0x1784…17b2 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,/7FFF RESET REQUEST ERROR BIT«, t00=0x000f, t01=0x001c}
0x17b2…17c6 Head {h00=0x0010, h01=0x0050, text=» ANRS A2,A6 «, t00=0x000f, t01=0x004a}
0x17c6…17d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005e}
0x17d0…17e8 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x000f, t01=0x0068}
0x17e8…180e Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x000f, t01=0x0080}
0x180e…183e Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTORD,A6 RESTORE INDEX AND ORDER«, t00=0x000f, t01=0x00a6}
0x183e…1856 Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTOR,A6 «, t00=0x000f, t01=0x00d6}
0x1856…186c Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLNAM«, t00=0x000f, t01=0x00ee}
0x186c…1880 Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x000f, t01=0x0104}
0x1880…188c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0118}
0x188c…1896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0124}
0x1896…18ae Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x000f, t01=0x012e}
0x18ae…18c2 Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x000f, t01=0x0146}
0x18c2…18ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x015a}
0x18ce…18d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0166}
0x18d8…18f0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000f, t01=0x0170}
0x18f0…18fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0188}
0x18fa…1910 (16, 0, 400) Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0010, t01=0x0004}
0x1910…1926 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0010, t01=0x001a}
0x1926…193c Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x0010, t01=0x0030}
0x193c…1952 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0046}
0x1952…1968 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0010, t01=0x005c}
0x1968…1972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0072}
0x1972…1996 Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x0010, t01=0x007c}
0x1996…19ac Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0010, t01=0x00a0}
0x19ac…19c0 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0010, t01=0x00b6}
0x19c0…19d6 Head {h00=0x0012, h01=0x0050, text=» CM BUFFLG,A6 «, t00=0x0010, t01=0x00ca}
0x19d6…19e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00e0}
0x19e2…19ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ec}
0x19ec…1a14 Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOR,A6 INDEX AND ORDER «, t00=0x0010, t01=0x00f6}
0x1a14…1a48 Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES «, t00=0x0010, t01=0x011e}
0x1a48…1a74 Head {h00=0x0028, h01=0x0050, text=» CMR A6 RESET TEMPORARY RETURN CODE «, t00=0x0010, t01=0x0152}
0x1a74…1a86 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0010, t01=0x017e}
0x1a86…1aa8 Head {h00=0x001e, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX «, t00=0x0010, t01=0x0190}
0x1aa8…1ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0022}
0x1ab2…1ac8 Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0011, t01=0x002c}
0x1ac8…1ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0042}
0x1ad2…1afc Head {h00=0x0026, h01=0x0050, text=»* CHECK IF OPEN OR CLOSE ORDER «, t00=0x0011, t01=0x004c}
0x1afc…1b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0076}
0x1b06…1b1e Head {h00=0x0014, h01=0x0050, text=» LDR A1,A7 ORDER«, t00=0x0011, t01=0x0080}
0x1b1e…1b32 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/21 «, t00=0x0011, t01=0x0098}
0x1b32…1b4a Head {h00=0x0014, h01=0x0050, text=» RF(Z) OPEN OPEN«, t00=0x0011, t01=0x00ac}
0x1b4a…1b5c Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0011, t01=0x00c4}
0x1b5c…1b82 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) FD:ORD NOT CLOSE ORDER«, t00=0x0011, t01=0x00d6}
0x1b82…1b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00fc}
0x1b8c…1b9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0106}
0x1b9a…1ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0114}
0x1ba4…1bb6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0011, t01=0x011e}
0x1bb6…1bc8 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0011, t01=0x0130}
0x1bc8…1bda Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x0011, t01=0x0142}
0x1bda…1bec Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0011, t01=0x0154}
0x1bec…1bfe Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0011, t01=0x0166}
0x1bfe…1c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0178}
0x1c08…1c40 Head {h00=0x0034, h01=0x0050, text=»* CLOSE IS PERFORMED BY WRITING A ONE TO BIT «, t00=0x0011, t01=0x0182}
0x1c40…1c76 Head {h00=0x0032, h01=0x0050, text=»* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER «, t00=0x0012, t01=0x002a}
0x1c76…1c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0060}
0x1c80…1ca6 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 MASK FOR BIT 0 «, t00=0x0012, t01=0x006a}
0x1ca6…1cd0 Head {h00=0x0026, h01=0x0050, text=» ORS A1,SPDLCI SET OPEN/CLOSE BIT «, t00=0x0012, t01=0x0090}
0x1cd0…1ce2 Head {h00=0x000e, h01=0x0050, text=» RF OPEN10«, t00=0x0012, t01=0x00ba}
0x1ce2…1cec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00cc}
0x1cec…1cfa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00d6}
0x1cfa…1d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e4}
0x1d04…1d14 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0012, t01=0x00ee}
0x1d14…1d24 Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00fe}
0x1d24…1d34 Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0012, t01=0x010e}
0x1d34…1d44 Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x011e}
0x1d44…1d54 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0012, t01=0x012e}
0x1d54…1d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013e}
0x1d5e…1d96 Head {h00=0x0034, h01=0x0050, text=»* OPEN IS PERFORMED BY WRITING A ZERO TO BIT «, t00=0x0012, t01=0x0148}
0x1d96…1dcc Head {h00=0x0032, h01=0x0050, text=»* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER.«, t00=0x0012, t01=0x0180}
0x1dcc…1dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0026}
0x1dd6…1de8 Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0013, t01=0x0030}
0x1de8…1e0e Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/7FFF MASK FOR BIT 0 «, t00=0x0013, t01=0x0042}
0x1e0e…1e3a Head {h00=0x0028, h01=0x0050, text=» ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT «, t00=0x0013, t01=0x0068}
0x1e3a…1e44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0094}
0x1e44…1e58 Head {h00=0x0010, h01=0x0050, text=»OPEN10 EQU *«, t00=0x0013, t01=0x009e}
0x1e58…1e8c Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0013, t01=0x00b2}
0x1e8c…1eb2 Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA OPEN FD DRIVE «, t00=0x0013, t01=0x00e6}
0x1eb2…1ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x010c}
0x1ebc…1eea Head {h00=0x002a, h01=0x0050, text=»* WAIT FOR DRIVE TO BECOME OPERABLE«, t00=0x0013, t01=0x0116}
0x1eea…1ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0144}
0x1ef4…1f20 Head {h00=0x0028, h01=0x0050, text=» LDK A4,DWTTP2 TIMER POINTER OFFSET «, t00=0x0013, t01=0x014e}
0x1f20…1f4c Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 A4:=TIMER POINTER ADDRESS«, t00=0x0013, t01=0x017a}
0x1f4c…1f6c Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDR«, t00=0x0014, t01=0x0016}
0x1f6c…1f88 Head {h00=0x0018, h01=0x0050, text=» CF A15,SETIMP WAIT «, t00=0x0014, t01=0x0036}
0x1f88…1fba Head {h00=0x002e, h01=0x0050, text=» DATA OPENRE,OPENTI START ADDR, WAIT TIME «, t00=0x0014, t01=0x0052}
0x1fba…1fd2 Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x0014, t01=0x0084}
0x1fd2…1fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009c}
0x1fdc…1ff0 Head {h00=0x0010, h01=0x0050, text=»OPENRE EQU *«, t00=0x0014, t01=0x00a6}
0x1ff0…2010 Head {h00=0x001c, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDR «, t00=0x0014, t01=0x00ba}
0x2010…2040 Head {h00=0x002c, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER RUNNING «, t00=0x0014, t01=0x00da}
0x2040…205e Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0014, t01=0x010a}
0x205e…208a Head {h00=0x0028, h01=0x0050, text=» RF DIS:EN PERFORM TENDIO AND TDISP «, t00=0x0014, t01=0x0128}
0x208a…2096 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0154}
0x2096…20a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0160}
0x20a0…20ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x016a}
0x20ae…20b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0178}
0x20b8…20e2 Head {h00=0x0026, h01=0x0050, text=»* PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x0014, t01=0x0182}
0x20e2…20ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x001c}
0x20ec…2100 Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x0015, t01=0x0026}
0x2100…2118 Head {h00=0x0014, h01=0x0050, text=» LC A2,DIXTAB,A3«, t00=0x0015, t01=0x003a}
0x2118…2148 Head {h00=0x002c, h01=0x0050, text=» SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK «, t00=0x0015, t01=0x0052}
0x2148…2152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0082}
0x2152…216a Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x0015, t01=0x008c}
0x216a…2182 Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTLAB,A6«, t00=0x0015, t01=0x00a4}
0x2182…21ae Head {h00=0x0028, h01=0x0050, text=» SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM«, t00=0x0015, t01=0x00bc}
0x21ae…21ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00e8}
0x21ba…21c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f4}
0x21c4…21e8 Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x0015, t01=0x00fe}
0x21e8…21f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0122}
0x21f2…2208 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0015, t01=0x012c}
0x2208…2212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0142}
0x2212…221c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014c}
0x221c…222e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x0015, t01=0x0156}
0x222e…2250 Head {h00=0x001e, h01=0x0050, text=» RB(Z) TESTST TEST STATUS «, t00=0x0015, t01=0x0168}
0x2250…225a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018a}
0x225a…226c (22, 0, 398) Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0016, t01=0x0004}
0x226c…227e Head {h00=0x000e, h01=0x0050, text=» SUK A3,38«, t00=0x0016, t01=0x0016}
0x227e…22a4 Head {h00=0x0022, h01=0x0050, text=» RF(N) INTEST READ/WRITE ORDER«, t00=0x0016, t01=0x0028}
0x22a4…22b6 Head {h00=0x000e, h01=0x0050, text=» SUK A3,18«, t00=0x0016, t01=0x004e}
0x22b6…22d8 Head {h00=0x001e, h01=0x0050, text=» ABL(NP) LOAD LOAD/UNLOAD «, t00=0x0016, t01=0x0060}
0x22d8…22e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0082}
0x22e4…22ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x008e}
0x22ee…2300 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0016, t01=0x0098}
0x2300…2312 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x00aa}
0x2312…2332 Head {h00=0x001c, h01=0x0050, text=» RF(Z) INTEST BASIC READ«, t00=0x0016, t01=0x00bc}
0x2332…2344 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x00dc}
0x2344…236a Head {h00=0x0022, h01=0x0050, text=» RF(Z) IBMCHK SEQUENTIAL READ «, t00=0x0016, t01=0x00ee}
0x236a…237c Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x0016, t01=0x0114}
0x237c…239e Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTEST BASIC WRITE «, t00=0x0016, t01=0x0126}
0x239e…23b0 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x0148}
0x23b0…23d6 Head {h00=0x0022, h01=0x0050, text=» RF(Z) IBMCHK SEQUENTIAL WRITE«, t00=0x0016, t01=0x015a}
0x23d6…23e8 Head {h00=0x000e, h01=0x0050, text=» SUK A3,32«, t00=0x0016, t01=0x0180}
0x23e8…2412 (23, 0, 400) Head {h00=0x0026, h01=0x0050, text=» RF(N) INTEST PHYSICAL READ/WRITE «, t00=0x0017, t01=0x0004}
0x2412…2424 Head {h00=0x000e, h01=0x0050, text=» SUK A3,11«, t00=0x0017, t01=0x002e}
0x2424…2440 Head {h00=0x0018, h01=0x0050, text=» RF(Z) IBMCHK REWIND«, t00=0x0017, t01=0x0040}
0x2440…2452 Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x0017, t01=0x005c}
0x2452…2474 Head {h00=0x001e, h01=0x0050, text=» ABL(NP) LOAD LOAD/UNLOAD «, t00=0x0017, t01=0x006e}
0x2474…2480 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0090}
0x2480…248a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x009c}
0x248a…249e Head {h00=0x0010, h01=0x0050, text=»IBMCHK EQU *«, t00=0x0017, t01=0x00a6}
0x249e…24b6 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0017, t01=0x00ba}
0x24b6…24ce Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFIB,A6«, t00=0x0017, t01=0x00d2}
0x24ce…24f8 Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) IBMDSK IBM DISC HANDLING «, t00=0x0017, t01=0x00ea}
0x24f8…2504 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0114}
0x2504…250e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0120}
0x250e…2522 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=0 «, t00=0x0017, t01=0x012a}
0x2522…2534 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0017, t01=0x013e}
0x2534…255a Head {h00=0x0022, h01=0x0050, text=» ABL IBMDSK IBM DISC HANDLING «, t00=0x0017, t01=0x0150}
0x255a…2566 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0176}
0x2566…2570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0182}
0x2570…2586 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0017, t01=0x018c}
0x2586…2590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0012}
0x2590…259a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001c}
0x259a…25c2 Head {h00=0x0024, h01=0x0050, text=»REQERR ABL DISIOE REQUEST ERROR «, t00=0x0018, t01=0x0026}
0x25c2…25cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004e}
0x25cc…2600 Head {h00=0x0030, h01=0x0050, text=»INCLEN EQU * INCORRECT REQUESTED LENGTH EXIT«, t00=0x0018, t01=0x0058}
0x2600…2622 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8008 RETURN CODE«, t00=0x0018, t01=0x008c}
0x2622…262c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ae}
0x262c…2640 Head {h00=0x0010, h01=0x0050, text=»DIS:EN EQU *«, t00=0x0018, t01=0x00b8}
0x2640…2672 Head {h00=0x002e, h01=0x0050, text=» ABL DISEND PERFORM TENDIO AND GO TO TDISP«, t00=0x0018, t01=0x00cc}
0x2672…267c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00fe}
0x267c…2692 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0018, t01=0x0108}
0x2692…269c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x011e}
0x269c…26bc Head {h00=0x001c, h01=0x0050, text=»* INPUT PARAMETER CHECK «, t00=0x0018, t01=0x0128}
0x26bc…26c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0148}
0x26c6…26da Head {h00=0x0010, h01=0x0050, text=»INTEST EQU *«, t00=0x0018, t01=0x0152}
0x26da…26f2 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0018, t01=0x0166}
0x26f2…2724 Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x0018, t01=0x017e}
0x2724…2736 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0019, t01=0x0020}
0x2736…275e Head {h00=0x0024, h01=0x0050, text=» RB(NZ) DIS:EN NEW VOLUME LOADED«, t00=0x0019, t01=0x0032}
0x275e…276a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x005a}
0x276a…2774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0066}
0x2774…278c Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBRL,A8 «, t00=0x0019, t01=0x0070}
0x278c…27c2 Head {h00=0x0032, h01=0x0050, text=» RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0019, t01=0x0088}
0x27c2…27ee Head {h00=0x0028, h01=0x0050, text=» SRC A3,7 NUMBER OF PHYSICAL SECTORS«, t00=0x0019, t01=0x00be}
0x27ee…2824 Head {h00=0x0032, h01=0x0050, text=» RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0019, t01=0x00ea}
0x2824…283a Head {h00=0x0012, h01=0x0050, text=» CWK A3,/01FF «, t00=0x0019, t01=0x0120}
0x283a…2870 Head {h00=0x0032, h01=0x0050, text=» RB(G) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0019, t01=0x0136}
0x2870…289a Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW1,A8 GET SECTOR NUMBER«, t00=0x0019, t01=0x016c}
0x289a…28a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0008}
0x28a4…28bc Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x001a, t01=0x0012}
0x28bc…28d4 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFIB,A6«, t00=0x001a, t01=0x002a}
0x28d4…28f4 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) INTES5 IBM-DISC «, t00=0x001a, t01=0x0042}
0x28f4…2900 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0062}
0x2900…290a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006e}
0x290a…291e Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x001a, t01=0x0078}
0x291e…2930 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x001a, t01=0x008c}
0x2930…296a Head {h00=0x0036, h01=0x0050, text=» SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS«, t00=0x001a, t01=0x009e}
0x296a…29a0 Head {h00=0x0032, h01=0x0050, text=» RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x001a, t01=0x00d8}
0x29a0…29da Head {h00=0x0036, h01=0x0050, text=» SLL A2,1 TRANSFER TOSS-SEC. NO TOPHYSICAL SEC. NO«, t00=0x001a, t01=0x010e}
0x29da…29e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0148}
0x29e4…29fa Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x001a, t01=0x0152}
0x29fa…2a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0168}
0x2a04…2a0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0172}
0x2a0e…2a22 Head {h00=0x0010, h01=0x0050, text=»INTES5 EQU *«, t00=0x001a, t01=0x017c}
0x2a22…2a2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0190}
0x2a2e…2a5c Head {h00=0x002a, h01=0x0050, text=» LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER«, t00=0x001b, t01=0x000c}
0x2a5c…2a80 Head {h00=0x0020, h01=0x0050, text=» RB(N) REQERR REQUEST ERROR «, t00=0x001b, t01=0x003a}
0x2a80…2a98 Head {h00=0x0014, h01=0x0050, text=» SUKL A4,MAXSEC «, t00=0x001b, t01=0x005e}
0x2a98…2abc Head {h00=0x0020, h01=0x0050, text=» RB(NN) REQERR REQUEST ERROR«, t00=0x001b, t01=0x0076}
0x2abc…2ace Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x001b, t01=0x009a}
0x2ace…2af4 Head {h00=0x0022, h01=0x0050, text=» RB(P) INCLEN INCORRECT LENGTH«, t00=0x001b, t01=0x00ac}
0x2af4…2b24 Head {h00=0x002c, h01=0x0050, text=» ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS «, t00=0x001b, t01=0x00d2}
0x2b24…2b5a Head {h00=0x0032, h01=0x0050, text=» ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC NO«, t00=0x001b, t01=0x0102}
0x2b5a…2b7c Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBBA,A8 GET ECBBA «, t00=0x001b, t01=0x0138}
0x2b7c…2bac Head {h00=0x002c, h01=0x0050, text=» ST A2,DWTBA,A6 SAVE ECB BUFFER ADDRESS «, t00=0x001b, t01=0x015a}
0x2bac…2bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x018a}
0x2bb6…2bcc (28, 0, 398) Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001c, t01=0x0004}
0x2bcc…2bde Head {h00=0x000e, h01=0x0050, text=» LCR A2,A8«, t00=0x001c, t01=0x001a}
0x2bde…2bf2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x001c, t01=0x002c}
0x2bf2…2c2a Head {h00=0x0034, h01=0x0050, text=» ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS«, t00=0x001c, t01=0x0040}
0x2c2a…2c36 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0078}
0x2c36…2c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0084}
0x2c40…2c56 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x001c, t01=0x008e}
0x2c56…2c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a4}
0x2c60…2c84 Head {h00=0x0020, h01=0x0050, text=»* MULTIPLE SECTOR IO ENTRY«, t00=0x001c, t01=0x00ae}
0x2c84…2c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d2}
0x2c8e…2ca2 Head {h00=0x0010, h01=0x0050, text=»FD:000 EQU *«, t00=0x001c, t01=0x00dc}
0x2ca2…2cb8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001c, t01=0x00f0}
0x2cb8…2ccc Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x001c, t01=0x0106}
0x2ccc…2ce4 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWT:BF,A6«, t00=0x001c, t01=0x011a}
0x2ce4…2d0c Head {h00=0x0024, h01=0x0050, text=» ST A2,BUFFLG,A6 SET BUFFER FLAG«, t00=0x001c, t01=0x0132}
0x2d0c…2d18 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x015a}
0x2d18…2d22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0166}
0x2d22…2d36 Head {h00=0x0010, h01=0x0050, text=» LDKL A2,512«, t00=0x001c, t01=0x0170}
0x2d36…2d48 Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x001c, t01=0x0184}
0x2d48…2d5a Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x001d, t01=0x0008}
0x2d5a…2d84 Head {h00=0x0026, h01=0x0050, text=» RF(NN) FD:005 FOUR PHYS. SEC. IO «, t00=0x001d, t01=0x001a}
0x2d84…2d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0044}
0x2d8e…2da8 Head {h00=0x0016, h01=0x0050, text=»FD:003 SUK A2,128 «, t00=0x001d, t01=0x004e}
0x2da8…2dba Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001d, t01=0x0068}
0x2dba…2dcc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001d, t01=0x007a}
0x2dcc…2de2 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:003«, t00=0x001d, t01=0x008c}
0x2de2…2dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a2}
0x2dec…2e00 Head {h00=0x0010, h01=0x0050, text=»FD:005 EQU *«, t00=0x001d, t01=0x00ac}
0x2e00…2e32 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC«, t00=0x001d, t01=0x00c0}
0x2e32…2e5e Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO«, t00=0x001d, t01=0x00f2}
0x2e5e…2e90 Head {h00=0x002e, h01=0x0050, text=» ST A3,DWTNOS,A6 UPDATE NUMBER OF SECTORS «, t00=0x001d, t01=0x011e}
0x2e90…2e9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0150}
0x2e9a…2eb2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x001d, t01=0x015a}
0x2eb2…2ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0172}
0x2ebc…2ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x017c}
0x2ec6…2edc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001d, t01=0x0186}
0x2edc…2ef4 Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x001e, t01=0x000c}
0x2ef4…2f1a Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTBA,A6 BUFFER ADDRESS«, t00=0x001e, t01=0x0024}
0x2f1a…2f32 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWT:BF,A6«, t00=0x001e, t01=0x004a}
0x2f32…2f62 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA«, t00=0x001e, t01=0x0062}
0x2f62…2f74 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x001e, t01=0x0092}
0x2f74…2f8a Head {h00=0x0012, h01=0x0050, text=» RF(NN) FD:009«, t00=0x001e, t01=0x00a4}
0x2f8a…2fc4 Head {h00=0x0036, h01=0x0050, text=» AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED «, t00=0x001e, t01=0x00ba}
0x2fc4…2fdc Head {h00=0x0014, h01=0x0050, text=» RF(N) FD:009 NO«, t00=0x001e, t01=0x00f4}
0x2fdc…2fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x010c}
0x2fe6…2ffc Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x001e, t01=0x0116}
0x2ffc…3006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x012c}
0x3006…3010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0136}
0x3010…3024 Head {h00=0x0010, h01=0x0050, text=»FD:007 EQU *«, t00=0x001e, t01=0x0140}
0x3024…3036 Head {h00=0x000e, h01=0x0050, text=» ECR A3,A2«, t00=0x001e, t01=0x0154}
0x3036…304a Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x001e, t01=0x0166}
0x304a…305c Head {h00=0x000e, h01=0x0050, text=» SRL A3,2 «, t00=0x001e, t01=0x017a}
0x305c…306e Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x001e, t01=0x018c}
0x306e…3080 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A3«, t00=0x001f, t01=0x000e}
0x3080…30b6 Head {h00=0x0032, h01=0x0050, text=» SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS«, t00=0x001f, t01=0x0020}
0x30b6…30e2 Head {h00=0x0028, h01=0x0050, text=» ADK A1,/4 CREATE ONE MORE MMU ENTRY«, t00=0x001f, t01=0x0056}
0x30e2…30fc Head {h00=0x0016, h01=0x0050, text=» SC A1,DWT:PA+2,A6«, t00=0x001f, t01=0x0082}
0x30fc…3112 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/FFF «, t00=0x001f, t01=0x009c}
0x3112…3124 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001f, t01=0x00b2}
0x3124…3150 Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x001f, t01=0x00c4}
0x3150…315a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f0}
0x315a…3196 Head {h00=0x0038, h01=0x0050, text=»FD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x001f, t01=0x00fa}
0x3196…31a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0136}
0x31a2…31ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0142}
0x31ac…31ce Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 PREPARE FOR BIO «, t00=0x001f, t01=0x014c}
0x31ce…31e6 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x001f, t01=0x016e}
0x31e6…3200 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/3F ORDER «, t00=0x001f, t01=0x0186}
0x3200…3212 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0020, t01=0x0010}
0x3212…3232 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:060 BASIC READ«, t00=0x0020, t01=0x0022}
0x3232…3244 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0020, t01=0x0042}
0x3244…3266 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:015 BASIC WRITE «, t00=0x0020, t01=0x0054}
0x3266…3278 Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0020, t01=0x0076}
0x3278…329c Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:060 PHYSICAL READ «, t00=0x0020, t01=0x0088}
0x329c…32ae Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0020, t01=0x00ac}
0x32ae…32d2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:013 PHYSICAL WRITE«, t00=0x0020, t01=0x00be}
0x32d2…3300 Head {h00=0x002a, h01=0x0050, text=» SUK A1,15 CHECK IF WRITE DELETED DATA«, t00=0x0020, t01=0x00e2}
0x3300…330a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0110}
0x330a…331e Head {h00=0x0010, h01=0x0050, text=»RQ:ERR EQU *«, t00=0x0020, t01=0x011a}
0x331e…3334 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) REQERR«, t00=0x0020, t01=0x012e}
0x3334…333e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0144}
0x333e…3356 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0020, t01=0x014e}
0x3356…3360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0166}
0x3360…33a0 Head {h00=0x003c, h01=0x0050, text=»* WRITE DELETED DATA, PHYSICAL AND BASIC WRITE ORDERS «, t00=0x0020, t01=0x0170}
0x33a0…33aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0020}
0x33aa…33d4 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 WRITE DELETED DATA ORDER«, t00=0x0021, t01=0x002a}
0x33d4…33fe Head {h00=0x0026, h01=0x0050, text=»FD:013 EQU * PHYSICAL WRITE ORDER «, t00=0x0021, t01=0x0054}
0x33fe…3410 Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x0021, t01=0x007e}
0x3410…3436 Head {h00=0x0022, h01=0x0050, text=»FD:015 EQU * BASIC WRITE ORDER«, t00=0x0021, t01=0x0090}
0x3436…3448 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x00b6}
0x3448…346e Head {h00=0x0022, h01=0x0050, text=» CF A5,BIO PREPARATION FOR CIO«, t00=0x0021, t01=0x00c8}
0x346e…3478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ee}
0x3478…348e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x00f8}
0x348e…34a2 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0021, t01=0x010e}
0x34a2…34ba Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0021, t01=0x0122}
0x34ba…34d2 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0021, t01=0x013a}
0x34d2…34f0 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x0021, t01=0x0152}
0x34f0…34fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0170}
0x34fc…3506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x017c}
0x3506…351c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x0186}
0x351c…3534 Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0022, t01=0x000c}
0x3534…356c Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0022, t01=0x0024}
0x356c…3598 Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:019 BUFFER IN SYSTEM AREA «, t00=0x0022, t01=0x005c}
0x3598…35bc Head {h00=0x0020, h01=0x0050, text=» LDR A7,A3 REQUESTED LENGTH «, t00=0x0022, t01=0x0088}
0x35bc…35d6 Head {h00=0x0016, h01=0x0050, text=» LDR A8,A2 SAVE A2«, t00=0x0022, t01=0x00ac}
0x35d6…3600 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0022, t01=0x00c6}
0x3600…3612 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0022, t01=0x00f0}
0x3612…363c Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0022, t01=0x0102}
0x363c…3668 Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0022, t01=0x012c}
0x3668…369e Head {h00=0x0032, h01=0x0050, text=» MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA «, t00=0x0022, t01=0x0158}
0x369e…36c8 Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0022, t01=0x018e}
0x36c8…36e6 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A8 RESTORE A2 «, t00=0x0023, t01=0x0028}
0x36e6…371a Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0023, t01=0x0046}
0x371a…372e Head {h00=0x0010, h01=0x0050, text=»FD:019 EQU *«, t00=0x0023, t01=0x007a}
0x372e…373a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x008e}
0x373a…3744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x009a}
0x3744…375c Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0023, t01=0x00a4}
0x375c…3774 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0023, t01=0x00bc}
0x3774…3792 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x0023, t01=0x00d4}
0x3792…379e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x00f2}
0x379e…37a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00fe}
0x37a8…37ba Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0023, t01=0x0108}
0x37ba…37ea Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x0023, t01=0x011a}
0x37ea…3800 Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x0023, t01=0x014a}
0x3800…3814 Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x0023, t01=0x0160}
0x3814…3820 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0174}
0x3820…382a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0180}
0x382a…3842 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0023, t01=0x018a}
0x3842…384c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0012}
0x384c…3856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001c}
0x3856…387c Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x0024, t01=0x0026}
0x387c…38aa Head {h00=0x002a, h01=0x0050, text=» ANKL A3,/200 CHECK IF WRITE PROTECTED«, t00=0x0024, t01=0x004c}
0x38aa…38c0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) FD:020 «, t00=0x0024, t01=0x007a}
0x38c0…38e2 Head {h00=0x001e, h01=0x0050, text=» LDK A3,/40 INDICATE ERROR«, t00=0x0024, t01=0x0090}
0x38e2…3912 Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0024, t01=0x00b2}
0x3912…3926 Head {h00=0x0010, h01=0x0050, text=»FD:020 EQU *«, t00=0x0024, t01=0x00e2}
0x3926…3944 Head {h00=0x001a, h01=0x0050, text=» RF FD:100 GOTO FDMSIO«, t00=0x0024, t01=0x00f6}
0x3944…394e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0114}
0x394e…3966 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0024, t01=0x011e}
0x3966…3970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0136}
0x3970…398a Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0024, t01=0x0140}
0x398a…39a4 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0024, t01=0x015a}
0x39a4…39be Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x0024, t01=0x0174}
0x39be…39d8 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0024, t01=0x018e}
0x39d8…39f2 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0025, t01=0x0018}
0x39f2…39fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0032}
0x39fc…3a14 Head {h00=0x0014, h01=0x0050, text=»FD:060 CF A5,BIO«, t00=0x0025, t01=0x003c}
0x3a14…3a1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0054}
0x3a1e…3a34 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x005e}
0x3a34…3a48 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0025, t01=0x0074}
0x3a48…3a60 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0025, t01=0x0088}
0x3a60…3a78 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0025, t01=0x00a0}
0x3a78…3a98 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:070 TOSS DISC «, t00=0x0025, t01=0x00b8}
0x3a98…3ac2 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0025, t01=0x00d8}
0x3ac2…3af6 Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0025, t01=0x0102}
0x3af6…3b02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0136}
0x3b02…3b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0142}
0x3b0c…3b20 Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0025, t01=0x014c}
0x3b20…3b36 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x0160}
0x3b36…3b4a Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0025, t01=0x0176}
0x3b4a…3b62 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWT:LA,A6«, t00=0x0025, t01=0x018a}
0x3b62…3b8e Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:080 BUFFER IN SYSTEM AREA «, t00=0x0026, t01=0x0012}
0x3b8e…3bb8 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0026, t01=0x003e}
0x3bb8…3bec Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0026, t01=0x0068}
0x3bec…3bf8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x009c}
0x3bf8…3c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a8}
0x3c02…3c18 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0026, t01=0x00b2}
0x3c18…3c2a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0026, t01=0x00c8}
0x3c2a…3c42 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+CHAN=0«, t00=0x0026, t01=0x00da}
0x3c42…3c6c Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0026, t01=0x00f2}
0x3c6c…3ca0 Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0026, t01=0x011c}
0x3ca0…3cac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0150}
0x3cac…3cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x015c}
0x3cb6…3cca Head {h00=0x0010, h01=0x0050, text=»FD:080 EQU *«, t00=0x0026, t01=0x0166}
0x3cca…3cec Head {h00=0x001e, h01=0x0050, text=» CF A5,FD:REA PERFORM READ«, t00=0x0026, t01=0x017a}
0x3cec…3cf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x000c}
0x3cf6…3d0e Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0027, t01=0x0016}
0x3d0e…3d26 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0027, t01=0x002e}
0x3d26…3d44 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:090 NOT IBM «, t00=0x0027, t01=0x0046}
0x3d44…3d50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0064}
0x3d50…3d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0070}
0x3d5a…3d6c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0027, t01=0x007a}
0x3d6c…3d82 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0027, t01=0x008c}
0x3d82…3dae Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS«, t00=0x0027, t01=0x00a2}
0x3dae…3dba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00ce}
0x3dba…3dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00da}
0x3dc4…3dd6 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0027, t01=0x00e4}
0x3dd6…3df6 Head {h00=0x001c, h01=0x0050, text=» LD A7,DWTRL,A6 REQ. LEN«, t00=0x0027, t01=0x00f6}
0x3df6…3e0a Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0027, t01=0x0116}
0x3e0a…3e1e Head {h00=0x0010, h01=0x0050, text=»FD:090 EQU *«, t00=0x0027, t01=0x012a}
0x3e1e…3e2a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x013e}
0x3e2a…3e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x014a}
0x3e34…3e4c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0027, t01=0x0154}
0x3e4c…3e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x016c}
0x3e56…3e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0176}
0x3e60…3e76 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0027, t01=0x0180}
0x3e76…3e8a Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0028, t01=0x0008}
0x3e8a…3ea2 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0028, t01=0x001c}
0x3ea2…3eba Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0028, t01=0x0034}
0x3eba…3eda Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:100 TOSS DISC «, t00=0x0028, t01=0x004c}
0x3eda…3ee6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x006c}
0x3ee6…3ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0078}
0x3ef0…3f06 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0028, t01=0x0082}
0x3f06…3f1e Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0028, t01=0x0098}
0x3f1e…3f56 Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0028, t01=0x00b0}
0x3f56…3f82 Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:100 BUFFER IN SYSTEM AREA «, t00=0x0028, t01=0x00e8}
0x3f82…3faa Head {h00=0x0024, h01=0x0050, text=» LD A7,DWTRL,A6 REQUESTED LENGTH«, t00=0x0028, t01=0x0114}
0x3faa…3fd6 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,BUF GET DWT BUFFER ADDRESS «, t00=0x0028, t01=0x013c}
0x3fd6…4000 Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0028, t01=0x0168}
0x4000…402c (41, 0, 400) Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0029, t01=0x0004}
0x402c…4062 Head {h00=0x0032, h01=0x0050, text=» MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA «, t00=0x0029, t01=0x0030}
0x4062…408c Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0029, t01=0x0066}
0x408c…4098 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0090}
0x4098…40ac Head {h00=0x0010, h01=0x0050, text=»FD:100 EQU *«, t00=0x0029, t01=0x009c}
0x40ac…40c0 Head {h00=0x0010, h01=0x0050, text=» ABL FDMSIO «, t00=0x0029, t01=0x00b0}
0x40c0…40ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c4}
0x40ca…40e2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0029, t01=0x00ce}
0x40e2…40ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e6}
0x40ec…40fc Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0029, t01=0x00f0}
0x40fc…410c Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0029, t01=0x0100}
0x410c…411c Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0029, t01=0x0110}
0x411c…412c Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0029, t01=0x0120}
0x412c…413c Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0029, t01=0x0130}
0x413c…4146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0140}
0x4146…4158 Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0029, t01=0x014a}
0x4158…417a Head {h00=0x001e, h01=0x0050, text=» ADK A3,0 CHECK ORDER CODE«, t00=0x0029, t01=0x015c}
0x417a…419c Head {h00=0x001e, h01=0x0050, text=» RF(Z) UNLOAD UNLOAD ORDER«, t00=0x0029, t01=0x017e}
0x419c…41ae Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002a, t01=0x0010}
0x41ae…41ce Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOAD00 LOAD ORDER«, t00=0x002a, t01=0x0022}
0x41ce…41e0 Head {h00=0x000e, h01=0x0050, text=» ADK A3,17«, t00=0x002a, t01=0x0042}
0x41e0…4208 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RQ:ERR ERROR IF NOT LOCK«, t00=0x002a, t01=0x0054}
0x4208…4212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x007c}
0x4212…4226 Head {h00=0x0010, h01=0x0050, text=»LOAD00 EQU *«, t00=0x002a, t01=0x0086}
0x4226…423e Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x002a, t01=0x009a}
0x423e…4254 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002a, t01=0x00b2}
0x4254…4266 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x002a, t01=0x00c8}
0x4266…4290 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) LOA:80 ENDIO NOT OPERABLE «, t00=0x002a, t01=0x00da}
0x4290…429a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0104}
0x429a…42b2 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x002a, t01=0x010e}
0x42b2…42ca Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x002a, t01=0x0126}
0x42ca…42ea Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:70 TOSS DISC «, t00=0x002a, t01=0x013e}
0x42ea…42f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x015e}
0x42f6…4300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x016a}
0x4300…4312 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002a, t01=0x0174}
0x4312…4336 Head {h00=0x0020, h01=0x0050, text=» LC A3,DWTOR+1,A6 GET ORDER «, t00=0x002a, t01=0x0186}
0x4336…434a Head {h00=0x0010, h01=0x0050, text=» SUK A3,/26 «, t00=0x002b, t01=0x001a}
0x434a…436a Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:65 LOCK ORDER«, t00=0x002b, t01=0x002e}
0x436a…4380 Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x002b, t01=0x004e}
0x4380…43a6 Head {h00=0x0022, h01=0x0050, text=» CF A5,LD:RC CHECK RETURN CODE«, t00=0x002b, t01=0x0064}
0x43a6…43be Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x002b, t01=0x008a}
0x43be…43c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00a2}
0x43c8…43e6 Head {h00=0x001a, h01=0x0050, text=»* READ DATA SET LABEL«, t00=0x002b, t01=0x00ac}
0x43e6…43f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ca}
0x43f0…4412 Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW1,A8 SECTOR NO«, t00=0x002b, t01=0x00d4}
0x4412…4424 Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x002b, t01=0x00f6}
0x4424…4448 Head {h00=0x0020, h01=0x0050, text=» RF(N) LOA:85 REQUEST ERROR «, t00=0x002b, t01=0x0108}
0x4448…445a Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x002b, t01=0x012c}
0x445a…447e Head {h00=0x0020, h01=0x0050, text=» RF(P) LOA:85 REQUEST ERROR «, t00=0x002b, t01=0x013e}
0x447e…4490 Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x002b, t01=0x0162}
0x4490…44a6 Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x002b, t01=0x0174}
0x44a6…44c0 Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x002b, t01=0x018a}
0x44c0…44d4 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x002c, t01=0x0014}
0x44d4…44ea Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002c, t01=0x0028}
0x44ea…450e Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x002c, t01=0x003e}
0x450e…4530 Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x002c, t01=0x0062}
0x4530…4564 Head {h00=0x0030, h01=0x0050, text=» ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL «, t00=0x002c, t01=0x0084}
0x4564…4578 Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x002c, t01=0x00b8}
0x4578…458c Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x002c, t01=0x00cc}
0x458c…4598 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002c, t01=0x00e0}
0x4598…45c6 Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBCW1,A8 DATA SET LABEL SECTOR«, t00=0x002c, t01=0x00ec}
0x45c6…45dc Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x002c, t01=0x011a}
0x45dc…45fc Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x002c, t01=0x0130}
0x45fc…461c Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x002c, t01=0x0150}
0x461c…464e Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x002c, t01=0x0170}
0x464e…4664 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x002d, t01=0x0012}
0x4664…468c Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x002d, t01=0x0028}
0x468c…46a2 Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x002d, t01=0x0050}
0x46a2…46b8 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x002d, t01=0x0066}
0x46b8…46cc Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x002d, t01=0x007c}
0x46cc…46f0 Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x002d, t01=0x0090}
0x46f0…4706 Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002d, t01=0x00b4}
0x4706…471c Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x002d, t01=0x00ca}
0x471c…4744 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x002d, t01=0x00e0}
0x4744…4768 Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x002d, t01=0x0108}
0x4768…477e Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002d, t01=0x012c}
0x477e…47c8 Head {h00=0x0046, h01=0x0050, text=» INH INHIBIT INTERRUPTS INHIBIT «, t00=0x002d, t01=0x0142}
0x47c8…47de Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x002d, t01=0x018c}
0x47de…4806 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x002e, t01=0x0012}
0x4806…4810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x003a}
0x4810…4824 Head {h00=0x0010, h01=0x0050, text=»LOA:65 EQU *«, t00=0x002e, t01=0x0044}
0x4824…483a Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/400 «, t00=0x002e, t01=0x0058}
0x483a…486a Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x002e, t01=0x006e}
0x486a…4874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x009e}
0x4874…4888 Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x002e, t01=0x00a8}
0x4888…4894 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00bc}
0x4894…48ac Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x002e, t01=0x00c8}
0x48ac…48d2 Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x002e, t01=0x00e0}
0x48d2…48e6 Head {h00=0x0010, h01=0x0050, text=»LOA:80 EQU *«, t00=0x002e, t01=0x0106}
0x48e6…48fa Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x002e, t01=0x011a}
0x48fa…4904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012e}
0x4904…4916 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002e, t01=0x0138}
0x4916…492a Head {h00=0x0010, h01=0x0050, text=»LOA:85 EQU *«, t00=0x002e, t01=0x014a}
0x492a…494c Head {h00=0x001e, h01=0x0050, text=» LDK A1,/80 REQUEST ERROR «, t00=0x002e, t01=0x015e}
0x494c…497c Head {h00=0x002c, h01=0x0050, text=» SCR A1,A6 UPDATE TEMPORARY RETURN CODE «, t00=0x002e, t01=0x0180}
0x497c…4988 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0020}
0x4988…4992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x002c}
0x4992…49aa Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x002f, t01=0x0036}
0x49aa…49b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x004e}
0x49b4…49be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0058}
0x49be…49d6 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002f, t01=0x0062}
0x49d6…49e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x007a}
0x49e0…49fa Head {h00=0x0016, h01=0x0050, text=»* ERROR , UNLOCK «, t00=0x002f, t01=0x0084}
0x49fa…4a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x009e}
0x4a04…4a18 Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x002f, t01=0x00a8}
0x4a18…4a2a Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x002f, t01=0x00bc}
0x4a2a…4a4c Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x002f, t01=0x00ce}
0x4a4c…4a66 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x002f, t01=0x00f0}
0x4a66…4a7c Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002f, t01=0x010a}
0x4a7c…4a8e Head {h00=0x000e, h01=0x0050, text=» RB LOA:80«, t00=0x002f, t01=0x0120}
0x4a8e…4a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0132}
0x4a98…4ab6 Head {h00=0x001a, h01=0x0050, text=»* LD:RC SUBROUTINE «, t00=0x002f, t01=0x013c}
0x4ab6…4ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x015a}
0x4ac0…4ad4 Head {h00=0x0010, h01=0x0050, text=»LD:RC EQU * «, t00=0x002f, t01=0x0164}
0x4ad4…4af4 Head {h00=0x001c, h01=0x0050, text=» ANK A3,/17 FATAL ERROR «, t00=0x002f, t01=0x0178}
0x4af4…4b0a Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x0030, t01=0x0008}
0x4b0a…4b34 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0030, t01=0x001e}
0x4b34…4b44 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0030, t01=0x0048}
0x4b44…4b50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0058}
0x4b50…4b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0064}
0x4b5a…4b72 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0030, t01=0x006e}
0x4b72…4b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0086}
0x4b7c…4b8e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x0090}
0x4b8e…4ba0 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0030, t01=0x00a2}
0x4ba0…4bb2 Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0030, t01=0x00b4}
0x4bb2…4bc4 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0030, t01=0x00c6}
0x4bc4…4bd6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00d8}
0x4bd6…4be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ea}
0x4be0…4bf4 Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0030, t01=0x00f4}
0x4bf4…4c06 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0030, t01=0x0108}
0x4c06…4c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x011a}
0x4c10…4c2a Head {h00=0x0016, h01=0x0050, text=»* DATA SET OPEN«, t00=0x0030, t01=0x0124}
0x4c2a…4c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x013e}
0x4c34…4c56 Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0030, t01=0x0148}
0x4c56…4c7a Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0030, t01=0x016a}
0x4c7a…4c98 Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0030, t01=0x018e}
0x4c98…4cd0 Head {h00=0x0034, h01=0x0050, text=» ST A7,12,A8 STORE EOD-NO IN CONTROL WORD OF ECB«, t00=0x0031, t01=0x001c}
0x4cd0…4cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0054}
0x4cda…4d0a Head {h00=0x002c, h01=0x0050, text=»* READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0031, t01=0x005e}
0x4d0a…4d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x008e}
0x4d14…4d38 Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0031, t01=0x0098}
0x4d38…4d62 Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0031, t01=0x00bc}
0x4d62…4d8a Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0031, t01=0x00e6}
0x4d8a…4d96 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0031, t01=0x010e}
0x4d96…4da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x011a}
0x4da0…4de0 Head {h00=0x003c, h01=0x0050, text=»* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0031, t01=0x0124}
0x4de0…4dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0164}
0x4dea…4e0c Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0031, t01=0x016e}
0x4e0c…4e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0190}
0x4e16…4e32 Head {h00=0x0018, h01=0x0050, text=»* DIVIDE EOD BY 26 «, t00=0x0032, t01=0x000a}
0x4e32…4e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0026}
0x4e3c…4e4e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0032, t01=0x0030}
0x4e4e…4e66 Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0032, t01=0x0042}
0x4e66…4e7c Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0032, t01=0x005a}
0x4e7c…4e8e Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0032, t01=0x0070}
0x4e8e…4ea0 Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0032, t01=0x0082}
0x4ea0…4eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0094}
0x4eaa…4ec2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0032, t01=0x009e}
0x4ec2…4ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b6}
0x4ecc…4ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00c0}
0x4ed6…4eee Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0032, t01=0x00ca}
0x4eee…4ef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e2}
0x4ef8…4f18 Head {h00=0x001c, h01=0x0050, text=»* A1 = BINARY TRACK NO«, t00=0x0032, t01=0x00ec}
0x4f18…4f46 Head {h00=0x002a, h01=0x0050, text=»* A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0032, t01=0x010c}
0x4f46…4f50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x013a}
0x4f50…4f7c Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0032, t01=0x0144}
0x4f7c…4fa8 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0032, t01=0x0170}
0x4fa8…4fba Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0033, t01=0x000c}
0x4fba…4fcc Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x001e}
0x4fcc…4fe8 Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0033, t01=0x0030}
0x4fe8…500a Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0033, t01=0x004c}
0x500a…5022 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x0033, t01=0x006e}
0x5022…504e Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x0033, t01=0x0086}
0x504e…5060 Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0033, t01=0x00b2}
0x5060…5082 Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x0033, t01=0x00c4}
0x5082…50cc Head {h00=0x0046, h01=0x0050, text=» INH INHIBIT INTERRUPTS INHIBIT «, t00=0x0033, t01=0x00e6}
0x50cc…50d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0130}
0x50d6…50f6 Head {h00=0x001c, h01=0x0050, text=»* WRITE DATA SET LABEL «, t00=0x0033, t01=0x013a}
0x50f6…5100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x015a}
0x5100…5124 Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0033, t01=0x0164}
0x5124…5144 Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x0033, t01=0x0188}
0x5144…5170 Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x0034, t01=0x0018}
0x5170…5198 Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x0034, t01=0x0044}
0x5198…51ae Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0034, t01=0x006c}
0x51ae…51d0 Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x0034, t01=0x0082}
0x51d0…51da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a4}
0x51da…51f2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0034, t01=0x00ae}
0x51f2…51fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00c6}
0x51fc…5210 Head {h00=0x0010, h01=0x0050, text=»* UNLOCK «, t00=0x0034, t01=0x00d0}
0x5210…521a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e4}
0x521a…5226 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00ee}
0x5226…523a Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x0034, t01=0x00fa}
0x523a…5254 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0034, t01=0x010e}
0x5254…526a Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0034, t01=0x0128}
0x526a…527c Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0034, t01=0x013e}
0x527c…52a0 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) LOA:80 NOT OPERABLE «, t00=0x0034, t01=0x0150}
0x52a0…52c2 Head {h00=0x001e, h01=0x0050, text=» C1 A2,DWTA3,A6 INDEX MASK«, t00=0x0034, t01=0x0174}
0x52c2…52f2 Head {h00=0x002c, h01=0x0050, text=» ANS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x0035, t01=0x0008}
0x52f2…530c Head {h00=0x0016, h01=0x0050, text=» RB LOA:80 END:IO «, t00=0x0035, t01=0x0038}
0x530c…5316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0052}
0x5316…5328 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0035, t01=0x005c}
0x5328…5332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x006e}
0x5332…5356 Head {h00=0x0020, h01=0x0050, text=»* UNLOAD RETURN CODE CHECK«, t00=0x0035, t01=0x0078}
0x5356…5360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x009c}
0x5360…5374 Head {h00=0x0010, h01=0x0050, text=»UNL:RC EQU *«, t00=0x0035, t01=0x00a6}
0x5374…538a Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/207 «, t00=0x0035, t01=0x00ba}
0x538a…53ae Head {h00=0x0020, h01=0x0050, text=» RF(Z) RTN:A5 NO RETURN CODE«, t00=0x0035, t01=0x00d0}
0x53ae…53c4 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/200 «, t00=0x0035, t01=0x00f4}
0x53c4…53ee Head {h00=0x0026, h01=0x0050, text=» RF(Z) RTN:A5 NOT WRITE PROTECTED «, t00=0x0035, t01=0x010a}
0x53ee…5404 Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0035, t01=0x0134}
0x5404…5428 Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0035, t01=0x014a}
0x5428…5446 Head {h00=0x001a, h01=0x0050, text=» RF(Z) RTN:A5 NOT OPEN«, t00=0x0035, t01=0x016e}
0x5446…545a Head {h00=0x0010, h01=0x0050, text=» LDK A3,/40 «, t00=0x0035, t01=0x018c}
0x545a…548a Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0036, t01=0x0010}
0x548a…549e Head {h00=0x0010, h01=0x0050, text=»RTN:A5 EQU *«, t00=0x0036, t01=0x0040}
0x549e…54ae Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0036, t01=0x0054}
0x54ae…54b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0064}
0x54b8…54d0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0036, t01=0x006e}
0x54d0…54da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0086}
0x54da…54e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0090}
0x54e4…5510 Head {h00=0x0028, h01=0x0050, text=»IBMDSK EQU * IBM DISK HANDLING ENTRY«, t00=0x0036, t01=0x009a}
0x5510…5522 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0036, t01=0x00c6}
0x5522…5554 Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x0036, t01=0x00d8}
0x5554…5566 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0036, t01=0x010a}
0x5566…5590 Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) END:IO NEW VOLUME LOADED «, t00=0x0036, t01=0x011c}
0x5590…55ae Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x0036, t01=0x0146}
0x55ae…55d2 Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0036, t01=0x0164}
0x55d2…55f8 Head {h00=0x0022, h01=0x0050, text=» RF(Z) FD:DIS NOT OPEN, ERROR «, t00=0x0036, t01=0x0188}
0x55f8…561c Head {h00=0x0020, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER CODE«, t00=0x0037, t01=0x001e}
0x561c…562e Head {h00=0x000e, h01=0x0050, text=» SUK A1,49«, t00=0x0037, t01=0x0042}
0x562e…5650 Head {h00=0x001e, h01=0x0050, text=» RF(Z) REWIND REWIND FILE «, t00=0x0037, t01=0x0054}
0x5650…567e Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBRL,A8 CHECK REQUESTED LENGTH«, t00=0x0037, t01=0x0076}
0x567e…5694 Head {h00=0x0012, h01=0x0050, text=» SUK A3,SECLEN«, t00=0x0037, t01=0x00a4}
0x5694…56bc Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) INCLEN INCORRECT LENGTH«, t00=0x0037, t01=0x00ba}
0x56bc…56ce Head {h00=0x000e, h01=0x0050, text=» ADK A1,43«, t00=0x0037, t01=0x00e2}
0x56ce…56f6 Head {h00=0x0024, h01=0x0050, text=» RF(Z) SQWRITE SEQUENTIAL WRITE «, t00=0x0037, t01=0x00f4}
0x56f6…5708 Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0037, t01=0x011c}
0x5708…573c Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FD:DIS ERROR IF NOT SEQUENTIAL READ «, t00=0x0037, t01=0x012e}
0x573c…5746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0162}
0x5746…575e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0037, t01=0x016c}
0x575e…5768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0184}
0x5768…5784 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0037, t01=0x018e}
0x5784…57a0 Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x0038, t01=0x001a}
0x57a0…57bc Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x0036}
0x57bc…57c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0052}
0x57c6…57f8 Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x0038, t01=0x005c}
0x57f8…5810 Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x0038, t01=0x008e}
0x5810…5828 Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0038, t01=0x00a6}
0x5828…5854 Head {h00=0x0028, h01=0x0050, text=» ST A3,ECBCW1,A8 STORE CRN+1 IN ECB «, t00=0x0038, t01=0x00be}
0x5854…586a Head {h00=0x0012, h01=0x0050, text=» CWK A3,MAXIBM«, t00=0x0038, t01=0x00ea}
0x586a…588e Head {h00=0x0020, h01=0x0050, text=» RF(P) FD:DIS REQUEST ERROR «, t00=0x0038, t01=0x0100}
0x588e…58a0 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0038, t01=0x0124}
0x58a0…58c2 Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x0038, t01=0x0136}
0x58c2…58dc Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 BIO READ«, t00=0x0038, t01=0x0158}
0x58dc…58f0 Head {h00=0x0010, h01=0x0050, text=» CF A5,BIOSQ«, t00=0x0038, t01=0x0172}
0x58f0…5926 Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0038, t01=0x0186}
0x5926…5930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x002c}
0x5930…5946 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0039, t01=0x0036}
0x5946…5972 Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0039, t01=0x004c}
0x5972…597e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0078}
0x597e…5988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0084}
0x5988…599a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0039, t01=0x008e}
0x599a…59b0 Head {h00=0x0012, h01=0x0050, text=» LDK A7,SECLEN«, t00=0x0039, t01=0x00a0}
0x59b0…59dc Head {h00=0x0028, h01=0x0050, text=» CF A5,ASC:01 TRANSFORM TO ASCII DK1«, t00=0x0039, t01=0x00b6}
0x59dc…59e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00e2}
0x59e6…59fe Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0039, t01=0x00ec}
0x59fe…5a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0104}
0x5a08…5a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x010e}
0x5a12…5a28 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0039, t01=0x0118}
0x5a28…5a54 Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x0039, t01=0x012e}
0x5a54…5a7a Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTTAB,A6 TTAB ADDRESS «, t00=0x0039, t01=0x015a}
0x5a7a…5a9e Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x0039, t01=0x0180}
0x5a9e…5ac8 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,BUF DRIVER BUFFER ADDRESS«, t00=0x003a, t01=0x0014}
0x5ac8…5af2 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTUEC,A6 USER ECB ADDRESS «, t00=0x003a, t01=0x003e}
0x5af2…5b1e Head {h00=0x0028, h01=0x0050, text=» EL A2,ECBBA,A2 USER BUFFER ADDRESS «, t00=0x003a, t01=0x0068}
0x5b1e…5b3c Head {h00=0x001a, h01=0x0050, text=» LDK A7,SECLEN LENGTH «, t00=0x003a, t01=0x0094}
0x5b3c…5b68 Head {h00=0x0028, h01=0x0050, text=» MVSU A7 MOVE SECTOR TO USER BUFFER «, t00=0x003a, t01=0x00b2}
0x5b68…5b98 Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x003a, t01=0x00de}
0x5b98…5ba4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x010e}
0x5ba4…5bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x011a}
0x5bae…5bc0 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003a, t01=0x0124}
0x5bc0…5bd6 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003a, t01=0x0136}
0x5bd6…5bea Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003a, t01=0x014c}
0x5bea…5c08 Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x003a, t01=0x0160}
0x5c08…5c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x017e}
0x5c12…5c2a Head {h00=0x0014, h01=0x0050, text=»* END OF DATA«, t00=0x003a, t01=0x0188}
0x5c2a…5c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0010}
0x5c34…5c5c Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x003b, t01=0x001a}
0x5c5c…5c6e Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003b, t01=0x0042}
0x5c6e…5c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0054}
0x5c78…5c90 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x003b, t01=0x005e}
0x5c90…5c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0076}
0x5c9a…5cb6 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x003b, t01=0x0080}
0x5cb6…5cd2 Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x003b, t01=0x009c}
0x5cd2…5cee Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x003b, t01=0x00b8}
0x5cee…5cf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00d4}
0x5cf8…5d0c Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x003b, t01=0x00de}
0x5d0c…5d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00f2}
0x5d16…5d38 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF END OF EXTENT«, t00=0x003b, t01=0x00fc}
0x5d38…5d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x011e}
0x5d42…5d58 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x003b, t01=0x0128}
0x5d58…5d82 Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x003b, t01=0x013e}
0x5d82…5db2 Head {h00=0x002c, h01=0x0050, text=» ST A7,ECBCW1,A8 STORE EOD IN ECB C. W. «, t00=0x003b, t01=0x0168}
0x5db2…5dc8 Head {h00=0x0012, h01=0x0050, text=» CWK A7,MAXIBM«, t00=0x003c, t01=0x0008}
0x5dc8…5dec Head {h00=0x0020, h01=0x0050, text=» RF(P) FD:DIS REQUEST ERROR «, t00=0x003c, t01=0x001e}
0x5dec…5e00 Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x003c, t01=0x0042}
0x5e00…5e24 Head {h00=0x0020, h01=0x0050, text=» RF(G) ENDEOE END OF EXTENT «, t00=0x003c, t01=0x0056}
0x5e24…5e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x007a}
0x5e2e…5e44 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003c, t01=0x0084}
0x5e44…5e70 Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x003c, t01=0x009a}
0x5e70…5e96 Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTTAB,A6 TTAB ADDRESS «, t00=0x003c, t01=0x00c6}
0x5e96…5eba Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x003c, t01=0x00ec}
0x5eba…5ee4 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUEC,A6 USER ECB ADDRESS «, t00=0x003c, t01=0x0110}
0x5ee4…5f10 Head {h00=0x0028, h01=0x0050, text=» EL A1,ECBBA,A1 USER BUFFER ADDRESS «, t00=0x003c, t01=0x013a}
0x5f10…5f3a Head {h00=0x0026, h01=0x0050, text=» LDKL A2,BUF DRIVER BUFFER ADDRESS«, t00=0x003c, t01=0x0166}
0x5f3a…5f58 Head {h00=0x001a, h01=0x0050, text=» LDK A7,SECLEN LENGTH «, t00=0x003c, t01=0x0190}
0x5f58…5f86 Head {h00=0x002a, h01=0x0050, text=» MVUS A7 MOVE SECTOR TO DRIVER BUFFER «, t00=0x003d, t01=0x001e}
0x5f86…5fb6 Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x003d, t01=0x004c}
0x5fb6…5fc2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x007c}
0x5fc2…5fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0088}
0x5fcc…5fde Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003d, t01=0x0092}
0x5fde…5ffa Head {h00=0x0018, h01=0x0050, text=» LDK A4,5 BIO WRITE «, t00=0x003d, t01=0x00a4}
0x5ffa…600e Head {h00=0x0010, h01=0x0050, text=» CF A5,BIOSQ«, t00=0x003d, t01=0x00c0}
0x600e…6024 Head {h00=0x0012, h01=0x0050, text=» LDK A7,SECLEN«, t00=0x003d, t01=0x00d4}
0x6024…6054 Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x003d, t01=0x00ea}
0x6054…605e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x011a}
0x605e…6074 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x003d, t01=0x0124}
0x6074…607e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x013a}
0x607e…6088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0144}
0x6088…609e Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x003d, t01=0x014e}
0x609e…60b4 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/200 «, t00=0x003d, t01=0x0164}
0x60b4…60ca Head {h00=0x0012, h01=0x0050, text=» RF(Z) SQW:05 «, t00=0x003d, t01=0x017a}
0x60ca…60ee Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 WRITE PROTECTED «, t00=0x003d, t01=0x0190}
0x60ee…611e Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x003e, t01=0x0024}
0x611e…6132 Head {h00=0x0010, h01=0x0050, text=»SQW:05 EQU *«, t00=0x003e, t01=0x0054}
0x6132…6148 Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003e, t01=0x0068}
0x6148…615c Head {h00=0x0010, h01=0x0050, text=»SQW:10 EQU *«, t00=0x003e, t01=0x007e}
0x615c…6192 Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE «, t00=0x003e, t01=0x0092}
0x6192…61a8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) END:RC«, t00=0x003e, t01=0x00c8}
0x61a8…61d6 Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x003e, t01=0x00de}
0x61d6…61ec Head {h00=0x0012, h01=0x0050, text=» LDK A2,SECLEN«, t00=0x003e, t01=0x010c}
0x61ec…621c Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBEL,A8 UPDATE EFFECTIVE LENGTH «, t00=0x003e, t01=0x0122}
0x621c…622e Head {h00=0x000e, h01=0x0050, text=» RF END:RC«, t00=0x003e, t01=0x0152}
0x622e…6238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0164}
0x6238…624c Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x003e, t01=0x016e}
0x624c…626e Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x003e, t01=0x0182}
0x626e…6278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0014}
0x6278…6290 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x003f, t01=0x001e}
0x6290…629a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0036}
0x629a…62ac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x0040}
0x62ac…62be Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x003f, t01=0x0052}
0x62be…62d0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x0064}
0x62d0…62da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0076}
0x62da…62ee Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x003f, t01=0x0080}
0x62ee…6312 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x003f, t01=0x0094}
0x6312…6328 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x003f, t01=0x00b8}
0x6328…633c Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003f, t01=0x00ce}
0x633c…6354 Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x003f, t01=0x00e2}
0x6354…6370 Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x003f, t01=0x00fa}
0x6370…6386 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003f, t01=0x0116}
0x6386…639a Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003f, t01=0x012c}
0x639a…63b4 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x003f, t01=0x0140}
0x63b4…63d4 Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x003f, t01=0x015a}
0x63d4…63f2 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003f, t01=0x017a}
0x63f2…6404 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0040, t01=0x0008}
0x6404…6410 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x001a}
0x6410…641a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0026}
0x641a…6432 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0040, t01=0x0030}
0x6432…643c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0048}
0x643c…6456 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0040, t01=0x0052}
0x6456…6470 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0040, t01=0x006c}
0x6470…648a Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x0040, t01=0x0086}
0x648a…64a4 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0040, t01=0x00a0}
0x64a4…64be Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0040, t01=0x00ba}
0x64be…64c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d4}
0x64c8…64d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00de}
0x64d2…64f6 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A2 BIO CONTENTS «, t00=0x0040, t01=0x00e8}
0x64f6…652a Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x0040, t01=0x010c}
0x652a…6550 Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x0040, t01=0x0140}
0x6550…655a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0166}
0x655a…656e Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x0040, t01=0x0170}
0x656e…6582 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0040, t01=0x0184}
0x6582…65a4 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x0041, t01=0x0008}
0x65a4…65b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x002a}
0x65b0…65c4 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0041, t01=0x0036}
0x65c4…65ea Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 INDICATOR WRITE MODE«, t00=0x0041, t01=0x004a}
0x65ea…65f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0070}
0x65f6…6608 Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x0041, t01=0x007c}
0x6608…6612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x008e}
0x6612…6626 Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x0041, t01=0x0098}
0x6626…663a Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0041, t01=0x00ac}
0x663a…6656 Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 READ MODE «, t00=0x0041, t01=0x00c0}
0x6656…6662 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00dc}
0x6662…6676 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0041, t01=0x00e8}
0x6676…6698 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS READ«, t00=0x0041, t01=0x00fc}
0x6698…66a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x011e}
0x66a4…66b8 Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x0041, t01=0x012a}
0x66b8…66cc Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0041, t01=0x013e}
0x66cc…66f2 Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x0041, t01=0x0152}
0x66f2…66fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0178}
0x66fc…6714 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0041, t01=0x0182}
0x6714…671e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x000a}
0x671e…6728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0014}
0x6728…673e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0042, t01=0x001e}
0x673e…6774 Head {h00=0x0032, h01=0x0050, text=» LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO «, t00=0x0042, t01=0x0034}
0x6774…67a0 Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:810 BUFFER IN SYSTEM AREA «, t00=0x0042, t01=0x006a}
0x67a0…67d4 Head {h00=0x0030, h01=0x0050, text=» LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS «, t00=0x0042, t01=0x0096}
0x67d4…67e6 Head {h00=0x000e, h01=0x0050, text=» ECR A7,A7«, t00=0x0042, t01=0x00ca}
0x67e6…67f8 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A7«, t00=0x0042, t01=0x00dc}
0x67f8…680c Head {h00=0x0010, h01=0x0050, text=»FD:810 EQU *«, t00=0x0042, t01=0x00ee}
0x680c…6818 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0102}
0x6818…6822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x010e}
0x6822…6836 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0042, t01=0x0118}
0x6836…6848 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0042, t01=0x012c}
0x6848…686c Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x0042, t01=0x013e}
0x686c…6894 Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x0042, t01=0x0162}
0x6894…68a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x018a}
0x68a0…68b4 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0043, t01=0x0008}
0x68b4…68be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x001c}
0x68be…68d6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0043, t01=0x0026}
0x68d6…68e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x003e}
0x68e0…6912 Head {h00=0x002e, h01=0x0050, text=»* PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x0043, t01=0x0048}
0x6912…691c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x007a}
0x691c…6942 Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTRW,A6 INDICATE MODE «, t00=0x0043, t01=0x0084}
0x6942…695a Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x0043, t01=0x00aa}
0x695a…696c Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0043, t01=0x00c2}
0x696c…6992 Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x0043, t01=0x00d4}
0x6992…699e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x00fa}
0x699e…69c8 Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x0043, t01=0x0106}
0x69c8…69de Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x0043, t01=0x0130}
0x69de…6a0e Head {h00=0x002c, h01=0x0050, text=» RF(NZ) T:DISP POST PROCESSING FLAG SET «, t00=0x0043, t01=0x0146}
0x6a0e…6a42 Head {h00=0x0030, h01=0x0050, text=»FD:CIO EQU * LABEL USED FOR CHANGE OF CUADR «, t00=0x0043, t01=0x0176}
0x6a42…6a64 Head {h00=0x001e, h01=0x0050, text=» CIO A2,1,CUADR CIO START «, t00=0x0044, t01=0x001a}
0x6a64…6a90 Head {h00=0x0028, h01=0x0050, text=» RF(3) END:30 DEVICE ADDRESS UNKNOWN«, t00=0x0044, t01=0x003c}
0x6a90…6aa2 Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x0044, t01=0x0068}
0x6aa2…6aac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x007a}
0x6aac…6ac4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0044, t01=0x0084}
0x6ac4…6ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x009c}
0x6ace…6afc Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0044, t01=0x00a6}
0x6afc…6b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00d4}
0x6b06…6b46 Head {h00=0x003c, h01=0x0050, text=»* FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO * «, t00=0x0044, t01=0x00de}
0x6b46…6b74 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x0044, t01=0x011e}
0x6b74…6ba2 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0044, t01=0x014c}
0x6ba2…6bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x017a}
0x6bac…6bc0 Head {h00=0x0010, h01=0x0050, text=»FDMSIO EQU *«, t00=0x0044, t01=0x0184}
0x6bc0…6bea Head {h00=0x0026, h01=0x0050, text=» IM DWTCW2,A6 UPDATE SECTOR NUMBER«, t00=0x0045, t01=0x0008}
0x6bea…6c0a Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 RETURN CODE «, t00=0x0045, t01=0x0032}
0x6c0a…6c34 Head {h00=0x0026, h01=0x0050, text=» ANK A1,/7F GET ERROR RETURN CODE «, t00=0x0045, t01=0x0052}
0x6c34…6c4a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) END:RC«, t00=0x0045, t01=0x007c}
0x6c4a…6c7e Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE «, t00=0x0045, t01=0x0092}
0x6c7e…6ca6 Head {h00=0x0024, h01=0x0050, text=» ADS A2,DWTCW2,A6 UPDATE DWTCW2 «, t00=0x0045, t01=0x00c6}
0x6ca6…6cbe Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTRL,A6 «, t00=0x0045, t01=0x00ee}
0x6cbe…6ce4 Head {h00=0x0022, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE ECBEL «, t00=0x0045, t01=0x0106}
0x6ce4…6cfc Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTNOS,A6«, t00=0x0045, t01=0x012c}
0x6cfc…6d24 Head {h00=0x0024, h01=0x0050, text=» RF(NP) END:RC LAST SECTOR DONE «, t00=0x0045, t01=0x0144}
0x6d24…6d3a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0045, t01=0x016c}
0x6d3a…6d64 Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTBA,A6 GET BUFFER POINTER«, t00=0x0045, t01=0x0182}
0x6d64…6d8c Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 UPDATE BUFFER POINTER«, t00=0x0046, t01=0x001c}
0x6d8c…6da4 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTBA,A6 «, t00=0x0046, t01=0x0044}
0x6da4…6dce Head {h00=0x0026, h01=0x0050, text=» RF(N) FDMSI1 NOT PASSED 64K LIMIT«, t00=0x0046, t01=0x005c}
0x6dce…6de0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x0046, t01=0x0086}
0x6de0…6e0c Head {h00=0x0028, h01=0x0050, text=» RF(NN) FDMSI1 NOT PASSED 64K LIMIT «, t00=0x0046, t01=0x0098}
0x6e0c…6e20 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/10 «, t00=0x0046, t01=0x00c4}
0x6e20…6e4a Head {h00=0x0026, h01=0x0050, text=» ADS A2,DWT:BF,A6 UPDATE BITS 0-1 «, t00=0x0046, t01=0x00d8}
0x6e4a…6e5e Head {h00=0x0010, h01=0x0050, text=»FDMSI1 EQU *«, t00=0x0046, t01=0x0102}
0x6e5e…6e6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x0116}
0x6e6a…6e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0122}
0x6e74…6e8a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0046, t01=0x012c}
0x6e8a…6eb8 Head {h00=0x002a, h01=0x0050, text=» ADS A2,DWTBA,A6 UPDATE BUFFER POINTER«, t00=0x0046, t01=0x0142}
0x6eb8…6ec4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x0170}
0x6ec4…6efa Head {h00=0x0032, h01=0x0050, text=» ABL FD:000 MORE SECTORS IN MULTIPLE SECTOR IO«, t00=0x0046, t01=0x017c}
0x6efa…6f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0022}
0x6f04…6f1c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0047, t01=0x002c}
0x6f1c…6f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0044}
0x6f26…6f38 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0047, t01=0x004e}
0x6f38…6f4a Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0047, t01=0x0060}
0x6f4a…6f5c Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x0047, t01=0x0072}
0x6f5c…6f6e Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0047, t01=0x0084}
0x6f6e…6f80 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0047, t01=0x0096}
0x6f80…6f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00a8}
0x6f8a…6f9c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0047, t01=0x00b2}
0x6f9c…6fc4 Head {h00=0x0024, h01=0x0050, text=»ENDEOE EQU * END OF EXTENT EXIT «, t00=0x0047, t01=0x00c4}
0x6fc4…6fe6 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/2000 RETURN CODE«, t00=0x0047, t01=0x00ec}
0x6fe6…6ff8 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0047, t01=0x010e}
0x6ff8…7004 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0120}
0x7004…700e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x012c}
0x700e…7022 Head {h00=0x0010, h01=0x0050, text=»END:RC EQU *«, t00=0x0047, t01=0x0136}
0x7022…7042 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 RETURN CODE «, t00=0x0047, t01=0x014a}
0x7042…7056 Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0047, t01=0x016a}
0x7056…706c Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0047, t01=0x017e}
0x706c…7084 (72, 0, 400) Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x0048, t01=0x0004}
0x7084…708e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x001c}
0x708e…70b6 Head {h00=0x0024, h01=0x0050, text=»END:30 EQU * CU ADDRESS UNKNOWN «, t00=0x0048, t01=0x0026}
0x70b6…70d4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x0048, t01=0x004e}
0x70d4…7102 Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTST,A6 INDICATE RECOVERY DONE«, t00=0x0048, t01=0x006c}
0x7102…7114 Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0048, t01=0x009a}
0x7114…712c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0048, t01=0x00ac}
0x712c…7136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00c4}
0x7136…7152 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x00ce}
0x7152…716e Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0048, t01=0x00ea}
0x716e…718a Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0048, t01=0x0106}
0x718a…71a6 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0048, t01=0x0122}
0x71a6…71c2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x013e}
0x71c2…71cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x015a}
0x71cc…71de Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x0048, t01=0x0164}
0x71de…71f4 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0048, t01=0x0176}
0x71f4…721e Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0048, t01=0x018c}
0x721e…722a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0026}
0x722a…7234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0032}
0x7234…724a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0049, t01=0x003c}
0x724a…7270 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0049, t01=0x0052}
0x7270…727c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0078}
0x727c…7286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0084}
0x7286…72aa Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0049, t01=0x008e}
0x72aa…72be Head {h00=0x0010, h01=0x0050, text=» CM DWTST,A6«, t00=0x0049, t01=0x00b2}
0x72be…72e0 Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0049, t01=0x00c6}
0x72e0…72ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00e8}
0x72ea…72f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x00f2}
0x72f8…7302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0100}
0x7302…7318 Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0049, t01=0x010a}
0x7318…7322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0120}
0x7322…733a Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0049, t01=0x012a}
0x733a…735c Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0049, t01=0x0142}
0x735c…7372 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0049, t01=0x0164}
0x7372…7398 Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0049, t01=0x017a}
0x7398…73aa Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x004a, t01=0x0010}
0x73aa…73c6 Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x004a, t01=0x0022}
0x73c6…73d8 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x004a, t01=0x003e}
0x73d8…73f2 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x004a, t01=0x0050}
0x73f2…7408 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x004a, t01=0x006a}
0x7408…7422 Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x004a, t01=0x0080}
0x7422…742c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x009a}
0x742c…7440 Head {h00=0x0010, h01=0x0050, text=»F:DISP EQU *«, t00=0x004a, t01=0x00a4}
0x7440…7452 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x004a, t01=0x00b8}
0x7452…745c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ca}
0x745c…7478 Head {h00=0x0018, h01=0x0050, text=»* TIME OUT ROUTINE«, t00=0x004a, t01=0x00d4}
0x7478…7482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00f0}
0x7482…749a Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x004a, t01=0x00fa}
0x749a…74ae Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x004a, t01=0x0112}
0x74ae…74c6 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x004a, t01=0x0126}
0x74c6…74e8 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x004a, t01=0x013e}
0x74e8…74f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0160}
0x74f2…752c Head {h00=0x0036, h01=0x0050, text=»FDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE«, t00=0x004a, t01=0x016a}
0x752c…7542 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004b, t01=0x0014}
0x7542…7556 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x004b, t01=0x002a}
0x7556…757e Head {h00=0x0024, h01=0x0050, text=» CM BUFFLG,A6 RESET BUFFER FLAG «, t00=0x004b, t01=0x003e}
0x757e…758a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x0066}
0x758a…7594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0072}
0x7594…75ac Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x004b, t01=0x007c}
0x75ac…75e4 Head {h00=0x0034, h01=0x0050, text=» IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR «, t00=0x004b, t01=0x0094}
0x75e4…7600 Head {h00=0x0018, h01=0x0050, text=» LDK A3,3 4 VOLUMES «, t00=0x004b, t01=0x00cc}
0x7600…760a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00e8}
0x760a…7620 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x004b, t01=0x00f2}
0x7620…762a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0108}
0x762a…7634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0112}
0x7634…7650 Head {h00=0x0018, h01=0x0050, text=»* READ VOLUME NAME «, t00=0x004b, t01=0x011c}
0x7650…765a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0138}
0x765a…766e Head {h00=0x0010, h01=0x0050, text=»FDONLD EQU *«, t00=0x004b, t01=0x0142}
0x766e…7696 Head {h00=0x0024, h01=0x0050, text=» SC A3,DWTOR,A6 GET VOLUME NAME «, t00=0x004b, t01=0x0156}
0x7696…76c0 Head {h00=0x0026, h01=0x0050, text=» LC A4,DIXTAB,A3 DRIVE INDEX MASK «, t00=0x004b, t01=0x017e}
0x76c0…76e2 Head {h00=0x001e, h01=0x0050, text=» SC A4,DWTA3+1,A6 SAVE IT «, t00=0x004c, t01=0x0018}
0x76e2…76f8 Head {h00=0x0012, h01=0x0050, text=» CF A5,SETCIO «, t00=0x004c, t01=0x003a}
0x76f8…770c Head {h00=0x0010, h01=0x0050, text=» LDK A2,/14 «, t00=0x004c, t01=0x0050}
0x770c…7726 Head {h00=0x0016, h01=0x0050, text=» CF A5,FD:REA LOCK«, t00=0x004c, t01=0x0064}
0x7726…7738 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x004c, t01=0x007e}
0x7738…7756 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FDON19 OPERABLE«, t00=0x004c, t01=0x0090}
0x7756…7774 Head {h00=0x001a, h01=0x0050, text=» LDK A1,6 NOT OPERABLE«, t00=0x004c, t01=0x00ae}
0x7774…779c Head {h00=0x0024, h01=0x0050, text=» CF A15,VOLCLR CLEAR VOLUME NAME«, t00=0x004c, t01=0x00cc}
0x779c…77c6 Head {h00=0x0026, h01=0x0050, text=» RF FDON21 CONTINUE WITH NEXT DISC«, t00=0x004c, t01=0x00f4}
0x77c6…77d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x011e}
0x77d0…77e4 Head {h00=0x0010, h01=0x0050, text=»FDON19 EQU *«, t00=0x004c, t01=0x0128}
0x77e4…77fa Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x004c, t01=0x013c}
0x77fa…7824 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/FBFF RESET IBM IND. BIT «, t00=0x004c, t01=0x0152}
0x7824…7854 Head {h00=0x002c, h01=0x0050, text=» ANRS A2,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x004c, t01=0x017c}
0x7854…7868 Head {h00=0x0010, h01=0x0050, text=»FDON21 EQU *«, t00=0x004d, t01=0x001c}
0x7868…787a Head {h00=0x000e, h01=0x0050, text=» LDK A2,/C«, t00=0x004d, t01=0x0030}
0x787a…7896 Head {h00=0x0018, h01=0x0050, text=» CF A5,FD:REA UNLOCK«, t00=0x004d, t01=0x0042}
0x7896…78a8 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x004d, t01=0x005e}
0x78a8…78d8 Head {h00=0x002c, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. «, t00=0x004d, t01=0x0070}
0x78d8…78ea Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004d, t01=0x00a0}
0x78ea…790c Head {h00=0x001e, h01=0x0050, text=» RB(NN) FDONLD NEXT VOLUME«, t00=0x004d, t01=0x00b2}
0x790c…7920 Head {h00=0x0010, h01=0x0050, text=» CM DWTOR,A6«, t00=0x004d, t01=0x00d4}
0x7920…794c Head {h00=0x0028, h01=0x0050, text=» CM DWTST2,A6 INDICATE VOLUMES READ «, t00=0x004d, t01=0x00e8}
0x794c…797c Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x004d, t01=0x0114}
0x797c…7988 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x0144}
0x7988…7992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0150}
0x7992…79a8 Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x004d, t01=0x015a}
0x79a8…79b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0170}
0x79b2…79c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x017a}
0x79c0…79ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0188}
0x79ca…7a08 (78, 0, 400) Head {h00=0x003a, h01=0x0050, text=»* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING «, t00=0x004e, t01=0x0004}
0x7a08…7a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0042}
0x7a12…7a38 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP2,A6 TIMER POINTER«, t00=0x004e, t01=0x004c}
0x7a38…7a5a Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON09 NOT RUNNING «, t00=0x004e, t01=0x0072}
0x7a5a…7a74 Head {h00=0x0016, h01=0x0050, text=» CMR A4 STOP TIMER«, t00=0x004e, t01=0x0094}
0x7a74…7a9c Head {h00=0x0024, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER «, t00=0x004e, t01=0x00ae}
0x7a9c…7ab0 Head {h00=0x0010, h01=0x0050, text=»FDON09 EQU *«, t00=0x004e, t01=0x00d6}
0x7ab0…7aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00ea}
0x7aba…7af4 Head {h00=0x0036, h01=0x0050, text=»* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE«, t00=0x004e, t01=0x00f4}
0x7af4…7afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x012e}
0x7afe…7b34 Head {h00=0x0032, h01=0x0050, text=» LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS«, t00=0x004e, t01=0x0138}
0x7b34…7b5e Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/8000 OPEN/CLOSE BIT MASK«, t00=0x004e, t01=0x016e}
0x7b5e…7b86 Head {h00=0x0024, h01=0x0050, text=» ANR* A2,A4 A2:=OPEN/CLOSE FLAG «, t00=0x004f, t01=0x0008}
0x7b86…7ba4 Head {h00=0x001a, h01=0x0050, text=» ORS A2,DWTOCF,A6 SAVE«, t00=0x004f, t01=0x0030}
0x7ba4…7bd0 Head {h00=0x0028, h01=0x0050, text=» XRRS A2,A4 SET STATUS WORD TO OPEN «, t00=0x004f, t01=0x004e}
0x7bd0…7be4 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x004f, t01=0x007a}
0x7be4…7c0e Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOPDA SET DRIVE TO OPEN «, t00=0x004f, t01=0x008e}
0x7c0e…7c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00b8}
0x7c18…7c2c Head {h00=0x0010, h01=0x0050, text=»FDON23 EQU *«, t00=0x004f, t01=0x00c2}
0x7c2c…7c38 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00d6}
0x7c38…7c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00e2}
0x7c42…7c50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x00ec}
0x7c50…7c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00fa}
0x7c5a…7c70 Head {h00=0x0012, h01=0x0050, text=»* LOCK DOORS «, t00=0x004f, t01=0x0104}
0x7c70…7c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x011a}
0x7c7a…7c8c Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x004f, t01=0x0124}
0x7c8c…7ca0 Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x004f, t01=0x0136}
0x7ca0…7cc6 Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x004f, t01=0x014a}
0x7cc6…7cd8 Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x004f, t01=0x0170}
0x7cd8…7cf8 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x004f, t01=0x0182}
0x7cf8…7d14 Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0050, t01=0x0012}
0x7d14…7d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x002e}
0x7d1e…7d2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0038}
0x7d2c…7d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0046}
0x7d36…7d5a Head {h00=0x0020, h01=0x0050, text=»* PUT DRIVE NO IN CIO INSTR«, t00=0x0050, t01=0x0050}
0x7d5a…7d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0074}
0x7d64…7d86 Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0050, t01=0x007e}
0x7d86…7db4 Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0050, t01=0x00a0}
0x7db4…7dcc Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0050, t01=0x00ce}
0x7dcc…7de2 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0050, t01=0x00e6}
0x7de2…7e04 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0050, t01=0x00fc}
0x7e04…7e16 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0050, t01=0x011e}
0x7e16…7e2e Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0050, t01=0x0130}
0x7e2e…7e56 Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0050, t01=0x0148}
0x7e56…7e6a Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x0050, t01=0x0170}
0x7e6a…7e7c Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0050, t01=0x0184}
0x7e7c…7e92 Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x0051, t01=0x0008}
0x7e92…7ea8 Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x0051, t01=0x001e}
0x7ea8…7eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0034}
0x7eb2…7ec8 Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0051, t01=0x003e}
0x7ec8…7ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0054}
0x7ed2…7f1a Head {h00=0x0044, h01=0x0050, text=»* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF«, t00=0x0051, t01=0x005e}
0x7f1a…7f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00a6}
0x7f24…7f4c Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOCF,A6 OPEN/CLOSE FLAG«, t00=0x0051, t01=0x00b0}
0x7f4c…7f72 Head {h00=0x0022, h01=0x0050, text=» ORS A2,SPDLCI TO STATUS WORD «, t00=0x0051, t01=0x00d8}
0x7f72…7f92 Head {h00=0x001c, h01=0x0050, text=» CM DWTOCF,A6 CLEAR FLAG«, t00=0x0051, t01=0x00fe}
0x7f92…7fba Head {h00=0x0024, h01=0x0050, text=» LD A2,SPDLCI OPEN/CLOSE STATUS «, t00=0x0051, t01=0x011e}
0x7fba…7fee Head {h00=0x0030, h01=0x0050, text=» OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED«, t00=0x0051, t01=0x0146}
0x7fee…7ffa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x017a}
0x7ffa…8004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0186}
0x8004…8012 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0190}
0x8012…801c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x000e}
0x801c…8032 Head {h00=0x0012, h01=0x0050, text=»* ANY REQUEST«, t00=0x0052, t01=0x0018}
0x8032…803c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x002e}
0x803c…8060 Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x0052, t01=0x0038}
0x8060…8074 Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x0052, t01=0x005c}
0x8074…808c Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0052, t01=0x0070}
0x808c…80c0 Head {h00=0x0030, h01=0x0050, text=» ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO«, t00=0x0052, t01=0x0088}
0x80c0…80ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00bc}
0x80ca…80e2 Head {h00=0x0014, h01=0x0050, text=»* RETRY REQUEST«, t00=0x0052, t01=0x00c6}
0x80e2…80ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00de}
0x80ec…8110 Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0052, t01=0x00e8}
0x8110…8128 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTORD,A6«, t00=0x0052, t01=0x010c}
0x8128…8158 Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x0052, t01=0x0124}
0x8158…8184 Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x0052, t01=0x0154}
0x8184…819e Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0052, t01=0x0180}
0x819e…81ba Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x0053, t01=0x000a}
0x81ba…81c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0026}
0x81c4…81dc Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0053, t01=0x0030}
0x81dc…81e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0048}
0x81e6…8202 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0053, t01=0x0052}
0x8202…821e Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0053, t01=0x006e}
0x821e…823a Head {h00=0x0018, h01=0x0050, text=»* READY INTERRUPT *«, t00=0x0053, t01=0x008a}
0x823a…8256 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0053, t01=0x00a6}
0x8256…8272 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0053, t01=0x00c2}
0x8272…827c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00de}
0x827c…828e Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x0053, t01=0x00e8}
0x828e…82a6 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x0053, t01=0x00fa}
0x82a6…82d4 Head {h00=0x002a, h01=0x0050, text=» RB(NZ) F:DISP POWER ON ROUTINE ACTIVE«, t00=0x0053, t01=0x0112}
0x82d4…82ec Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0053, t01=0x0140}
0x82ec…830a Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0053, t01=0x0158}
0x830a…8314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0176}
0x8314…832c Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0053, t01=0x0180}
0x832c…833e Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x0054, t01=0x0008}
0x833e…834a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x001a}
0x834a…8354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0026}
0x8354…836c Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0054, t01=0x0030}
0x836c…838e Head {h00=0x001e, h01=0x0050, text=» CM DWTST,A6 SET UNIT BUSY«, t00=0x0054, t01=0x0048}
0x838e…83b2 Head {h00=0x0020, h01=0x0050, text=» RB FDONVL READ VOLUME NAMES«, t00=0x0054, t01=0x006a}
0x83b2…83be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x008e}
0x83be…83c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x009a}
0x83c8…83e0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0054, t01=0x00a4}
0x83e0…83ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00bc}
0x83ea…8408 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0054, t01=0x00c6}
0x8408…8426 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0054, t01=0x00e4}
0x8426…8444 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x0054, t01=0x0102}
0x8444…8462 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0054, t01=0x0120}
0x8462…8480 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0054, t01=0x013e}
0x8480…848a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x015c}
0x848a…849c Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x0054, t01=0x0166}
0x849c…84c4 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0054, t01=0x0178}
0x84c4…84da Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0055, t01=0x0010}
0x84da…8508 Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x0055, t01=0x0026}
0x8508…8514 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x0054}
0x8514…851e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0060}
0x851e…8534 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0055, t01=0x006a}
0x8534…855a Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0055, t01=0x0080}
0x855a…8566 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x00a6}
0x8566…8570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00b2}
0x8570…8594 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0055, t01=0x00bc}
0x8594…85a8 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0055, t01=0x00e0}
0x85a8…85b4 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0055, t01=0x00f4}
0x85b4…85de Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUB,A6 GET BUFFER POINTER«, t00=0x0055, t01=0x0100}
0x85de…8604 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTUBE,A6 END OF BUFFER«, t00=0x0055, t01=0x012a}
0x8604…861e Head {h00=0x0016, h01=0x0050, text=» SUR A2,A1 LENGTH «, t00=0x0055, t01=0x0150}
0x861e…8632 Head {h00=0x0010, h01=0x0050, text=»IH005 EQU * «, t00=0x0055, t01=0x016a}
0x8632…8652 Head {h00=0x001c, h01=0x0050, text=» SST A3,CUADR GET STATUS«, t00=0x0055, t01=0x017e}
0x8652…8678 Head {h00=0x0022, h01=0x0050, text=» RF(A) IH:000 READY INTERRUPT «, t00=0x0056, t01=0x000e}
0x8678…868e Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x0056, t01=0x0034}
0x868e…86be Head {h00=0x002c, h01=0x0050, text=» RF(NZ) IHDISP POST PROCESSING FLAG SET «, t00=0x0056, t01=0x004a}
0x86be…86ea Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTRW,A6 READ/WRITE INDICATOR«, t00=0x0056, t01=0x007a}
0x86ea…8704 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH050 READ«, t00=0x0056, t01=0x00a6}
0x8704…870e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00c0}
0x870e…8724 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0056, t01=0x00ca}
0x8724…872e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00e0}
0x872e…8738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00ea}
0x8738…874c Head {h00=0x0010, h01=0x0050, text=»IH010 EQU * «, t00=0x0056, t01=0x00f4}
0x874c…8774 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A1 ONE WORD FROM BUFFER«, t00=0x0056, t01=0x0108}
0x8774…8792 Head {h00=0x001a, h01=0x0050, text=» OTR A3,0,CUADR WRITE «, t00=0x0056, t01=0x0130}
0x8792…87a8 Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0056, t01=0x014e}
0x87a8…87d0 Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0056, t01=0x0164}
0x87d0…87e2 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0056, t01=0x018c}
0x87e2…87f6 Head {h00=0x0010, h01=0x0050, text=» RB(P) IH010«, t00=0x0057, t01=0x000e}
0x87f6…8816 Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0057, t01=0x0022}
0x8816…882a Head {h00=0x0010, h01=0x0050, text=»IHDISP EQU *«, t00=0x0057, t01=0x0042}
0x882a…884c Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GOTO DISPATCHER«, t00=0x0057, t01=0x0056}
0x884c…8856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0078}
0x8856…886a Head {h00=0x0010, h01=0x0050, text=»IH050 EQU * «, t00=0x0057, t01=0x0082}
0x886a…8886 Head {h00=0x0018, h01=0x0050, text=» INR A3,0,CUADR READ«, t00=0x0057, t01=0x0096}
0x8886…889c Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0057, t01=0x00b2}
0x889c…88c2 Head {h00=0x0022, h01=0x0050, text=» STR A3,A1 ONE WORD TO BUFFER «, t00=0x0057, t01=0x00c8}
0x88c2…88ea Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0057, t01=0x00ee}
0x88ea…88fc Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0057, t01=0x0116}
0x88fc…8910 Head {h00=0x0010, h01=0x0050, text=» RB(P) IH050«, t00=0x0057, t01=0x0128}
0x8910…8930 Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0057, t01=0x013c}
0x8930…894c Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x0057, t01=0x015c}
0x894c…8960 Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x0057, t01=0x0178}
0x8960…8974 Head {h00=0x0010, h01=0x0050, text=»IH:000 EQU *«, t00=0x0057, t01=0x018c}
0x8974…8980 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0058, t01=0x0010}
0x8980…898c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x001c}
0x898c…8996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0028}
0x8996…89ae Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0058, t01=0x0032}
0x89ae…89b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x004a}
0x89b8…89c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0054}
0x89c2…89d6 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0058, t01=0x005e}
0x89d6…89f2 Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x0058, t01=0x0072}
0x89f2…89fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x008e}
0x89fe…8a22 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0058, t01=0x009a}
0x8a22…8a48 Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0058, t01=0x00be}
0x8a48…8a62 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A3 STATUS «, t00=0x0058, t01=0x00e4}
0x8a62…8a74 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0058, t01=0x00fe}
0x8a74…8a98 Head {h00=0x0020, h01=0x0050, text=» RB(N) FDRE READY INTERRUPT «, t00=0x0058, t01=0x0110}
0x8a98…8ab6 Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY«, t00=0x0058, t01=0x0134}
0x8ab6…8ace Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x0058, t01=0x0152}
0x8ace…8af4 Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0058, t01=0x016a}
0x8af4…8b06 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0058, t01=0x0190}
0x8b06…8b30 Head {h00=0x0026, h01=0x0050, text=» ANK A1,5 DATA FAULT, NOT OPERABLE«, t00=0x0059, t01=0x0012}
0x8b30…8b54 Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x0059, t01=0x003c}
0x8b54…8b66 Head {h00=0x000e, h01=0x0050, text=» ORK A3,4 «, t00=0x0059, t01=0x0060}
0x8b66…8b7a Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x0059, t01=0x0072}
0x8b7a…8b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0086}
0x8b84…8b9c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0059, t01=0x0090}
0x8b9c…8ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00a8}
0x8ba6…8bd0 Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x0059, t01=0x00b2}
0x8bd0…8bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00dc}
0x8bda…8bf0 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x0059, t01=0x00e6}
0x8bf0…8c04 Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x0059, t01=0x00fc}
0x8c04…8c16 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0059, t01=0x0110}
0x8c16…8c3c Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x0059, t01=0x0122}
0x8c3c…8c4e Head {h00=0x000e, h01=0x0050, text=» ECR A4,A3«, t00=0x0059, t01=0x0148}
0x8c4e…8c70 Head {h00=0x001e, h01=0x0050, text=» ANK A4,8 CHECK IF NO DATA«, t00=0x0059, t01=0x015a}
0x8c70…8c90 Head {h00=0x001c, h01=0x0050, text=» RF(Z) IH:70 NOT NO DATA«, t00=0x0059, t01=0x017c}
0x8c90…8cb2 Head {h00=0x001e, h01=0x0050, text=» ORK A3,4 SET BIT 13 ALSO «, t00=0x005a, t01=0x000c}
0x8cb2…8cc6 Head {h00=0x0010, h01=0x0050, text=»IH:70 EQU * «, t00=0x005a, t01=0x002e}
0x8cc6…8cd8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x005a, t01=0x0042}
0x8cd8…8cf4 Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x005a, t01=0x0054}
0x8cf4…8d10 Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x005a, t01=0x0070}
0x8d10…8d22 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x005a, t01=0x008c}
0x8d22…8d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x009e}
0x8d2c…8d44 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x005a, t01=0x00a8}
0x8d44…8d56 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x005a, t01=0x00c0}
0x8d56…8d72 Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x005a, t01=0x00d2}
0x8d72…8d8c Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x005a, t01=0x00ee}
0x8d8c…8d9e Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x005a, t01=0x0108}
0x8d9e…8daa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x011a}
0x8daa…8db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0126}
0x8db4…8dc6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x005a, t01=0x0130}
0x8dc6…8de0 Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x005a, t01=0x0142}
0x8de0…8dfa Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x005a, t01=0x015c}
0x8dfa…8e0c Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x005a, t01=0x0176}
0x8e0c…8e26 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x005a, t01=0x0188}
0x8e26…8e40 Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x005b, t01=0x0012}
0x8e40…8e52 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x005b, t01=0x002c}
0x8e52…8e82 Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x005b, t01=0x003e}
0x8e82…8e98 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/F7FF«, t00=0x005b, t01=0x006e}
0x8e98…8eac Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x005b, t01=0x0084}
0x8eac…8ebe Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x005b, t01=0x0098}
0x8ebe…8ece Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005b, t01=0x00aa}
0x8ece…8ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00ba}
0x8ed8…8ef0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x005b, t01=0x00c4}
0x8ef0…8efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00dc}
0x8efa…8f2e Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x005b, t01=0x00e6}
0x8f2e…8f62 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x005b, t01=0x011a}
0x8f62…8f96 Head {h00=0x0030, h01=0x0050, text=»* S U B R O U T I N E S * «, t00=0x005b, t01=0x014e}
0x8f96…8fca Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x005b, t01=0x0182}
0x8fca…8ffe Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x005c, t01=0x0026}
0x8ffe…9008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x005a}
0x9008…9018 Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x005c, t01=0x0064}
0x9018…9028 Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x005c, t01=0x0074}
0x9028…9038 Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x005c, t01=0x0084}
0x9038…9048 Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x005c, t01=0x0094}
0x9048…9058 Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x005c, t01=0x00a4}
0x9058…9062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00b4}
0x9062…9084 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A8 ECB ADDRESS«, t00=0x005c, t01=0x00be}
0x9084…90a2 Head {h00=0x001a, h01=0x0050, text=»* A4 ORDER «, t00=0x005c, t01=0x00e0}
0x90a2…90ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00fe}
0x90ac…90ee Head {h00=0x003e, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x005c, t01=0x0108}
0x90ee…9122 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x005c, t01=0x014a}
0x9122…9148 Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x005c, t01=0x017e}
0x9148…9152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0014}
0x9152…9164 Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x005d, t01=0x001e}
0x9164…918e Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTCW2,A6 GET SECTOR NUMBER«, t00=0x005d, t01=0x0030}
0x918e…91ba Head {h00=0x0028, h01=0x0050, text=» SLL A1,3 PUT IN RIGHT BIO POSITION «, t00=0x005d, t01=0x005a}
0x91ba…91f4 Head {h00=0x0036, h01=0x0050, text=» LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO «, t00=0x005d, t01=0x0086}
0x91f4…9206 Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x005d, t01=0x00c0}
0x9206…9226 Head {h00=0x001c, h01=0x0050, text=» ORR A2,A1 COMPLETE BIO «, t00=0x005d, t01=0x00d2}
0x9226…9250 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A4 COMPLETE BIO WITH ORDER«, t00=0x005d, t01=0x00f2}
0x9250…9276 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTBA,A6 BUFFER ADDRESS«, t00=0x005d, t01=0x011c}
0x9276…929e Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTRL,A6 GET REQ. LENGTH «, t00=0x005d, t01=0x0142}
0x929e…92ae Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005d, t01=0x016a}
0x92ae…92b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x017a}
0x92b8…92ce Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x005d, t01=0x0184}
0x92ce…92d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x000a}
0x92d8…92e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0014}
0x92e2…92fc Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x005e, t01=0x001e}
0x92fc…9316 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x005e, t01=0x0038}
0x9316…9330 Head {h00=0x0016, h01=0x0050, text=»* BIOSQ * «, t00=0x005e, t01=0x0052}
0x9330…934a Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x005e, t01=0x006c}
0x934a…9364 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x005e, t01=0x0086}
0x9364…936e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00a0}
0x936e…9390 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A8 ECB ADDRESS«, t00=0x005e, t01=0x00aa}
0x9390…93ae Head {h00=0x001a, h01=0x0050, text=»* A4 ORDER «, t00=0x005e, t01=0x00cc}
0x93ae…93b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00ea}
0x93b8…93fa Head {h00=0x003e, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x005e, t01=0x00f4}
0x93fa…942e Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x005e, t01=0x0136}
0x942e…9454 Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x005e, t01=0x016a}
0x9454…945e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0190}
0x945e…9472 Head {h00=0x0010, h01=0x0050, text=»BIOSQ EQU * «, t00=0x005f, t01=0x000a}
0x9472…9484 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x001e}
0x9484…94ae Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW1,A8 GET SECTOR NUMBER«, t00=0x005f, t01=0x0030}
0x94ae…94da Head {h00=0x0028, h01=0x0050, text=» SLL A2,3 PUT IN RIGHT BIO POSITION «, t00=0x005f, t01=0x005a}
0x94da…9504 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A4 COMPLETE BIO WITH ORDER«, t00=0x005f, t01=0x0086}
0x9504…950e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00b0}
0x950e…9524 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x005f, t01=0x00ba}
0x9524…954e Head {h00=0x0026, h01=0x0050, text=» LD A4,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x005f, t01=0x00d0}
0x954e…955a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x00fa}
0x955a…9564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0106}
0x9564…9576 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x0110}
0x9576…958c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005f, t01=0x0122}
0x958c…95b6 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x005f, t01=0x0138}
0x95b6…95c2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0162}
0x95c2…95cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x016e}
0x95cc…95de Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x0178}
0x95de…9606 Head {h00=0x0024, h01=0x0050, text=» LDK A3,SECLEN REQUESTED LENGTH «, t00=0x005f, t01=0x018a}
0x9606…9616 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0060, t01=0x0022}
0x9616…9622 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0032}
0x9622…962c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x003e}
0x962c…9642 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0060, t01=0x0048}
0x9642…964c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x005e}
0x964c…9666 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0060, t01=0x0068}
0x9666…9680 Head {h00=0x0016, h01=0x0050, text=»* VO:NAM *«, t00=0x0060, t01=0x0082}
0x9680…969a Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0060, t01=0x009c}
0x969a…96a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00b6}
0x96a4…96ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00c0}
0x96ae…96c2 Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0060, t01=0x00ca}
0x96c2…96da Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0060, t01=0x00de}
0x96da…96f4 Head {h00=0x0016, h01=0x0050, text=» LDK A3,36 LENGTH «, t00=0x0060, t01=0x00f6}
0x96f4…9700 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0110}
0x9700…970a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x011c}
0x970a…971e Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0060, t01=0x0126}
0x971e…9730 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0060, t01=0x013a}
0x9730…9754 Head {h00=0x0020, h01=0x0050, text=» LDK A3,6 VOLUME NAME LENGTH«, t00=0x0060, t01=0x014c}
0x9754…9760 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0170}
0x9760…976a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x017c}
0x976a…977e Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0060, t01=0x0186}
0x977e…9794 Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0061, t01=0x000a}
0x9794…97b8 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF READ TO BUFFER «, t00=0x0061, t01=0x0020}
0x97b8…97ce Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0061, t01=0x0044}
0x97ce…97ee Head {h00=0x001c, h01=0x0050, text=» ANK A3,/17 FATAL ERROR «, t00=0x0061, t01=0x005a}
0x97ee…9804 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) VOL:40«, t00=0x0061, t01=0x007a}
0x9804…9816 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0061, t01=0x0090}
0x9816…982c Head {h00=0x0012, h01=0x0050, text=» LD A2,BUF+32 «, t00=0x0061, t01=0x00a2}
0x982c…9840 Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0061, t01=0x00b8}
0x9840…9860 Head {h00=0x001c, h01=0x0050, text=» RF(NE) VOL:10 IBM DISC «, t00=0x0061, t01=0x00cc}
0x9860…9884 Head {h00=0x0020, h01=0x0050, text=» LD A2,BUF+34 GET NEXT WORD «, t00=0x0061, t01=0x00ec}
0x9884…9898 Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0061, t01=0x0110}
0x9898…98b8 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) VOL:10 IBM DISC «, t00=0x0061, t01=0x0124}
0x98b8…98de Head {h00=0x0022, h01=0x0050, text=» C1 A1,DWTA3,A6 DRIVE BIT MASK«, t00=0x0061, t01=0x0144}
0x98de…990a Head {h00=0x0028, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS DISC«, t00=0x0061, t01=0x016a}
0x990a…9916 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x0008}
0x9916…9920 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0014}
0x9920…9938 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0062, t01=0x001e}
0x9938…9942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0036}
0x9942…994c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0040}
0x994c…9960 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0062, t01=0x004a}
0x9960…9974 Head {h00=0x0010, h01=0x0050, text=» LDKL A2,BUF«, t00=0x0062, t01=0x005e}
0x9974…9986 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0062, t01=0x0072}
0x9986…9998 Head {h00=0x000e, h01=0x0050, text=» RF VOL:20«, t00=0x0062, t01=0x0084}
0x9998…99a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x0096}
0x99a4…99ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00a2}
0x99ae…99c0 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0062, t01=0x00ac}
0x99c0…99d4 Head {h00=0x0010, h01=0x0050, text=»VOL:10 EQU *«, t00=0x0062, t01=0x00be}
0x99d4…99ee Head {h00=0x0016, h01=0x0050, text=» LDK A3,10 LENGTH «, t00=0x0062, t01=0x00d2}
0x99ee…9a06 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0062, t01=0x00ec}
0x9a06…9a2a Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF READ TO BUFFER «, t00=0x0062, t01=0x0104}
0x9a2a…9a40 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0062, t01=0x0128}
0x9a40…9a54 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/17 «, t00=0x0062, t01=0x013e}
0x9a54…9a74 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) VOL:40 IO ERROR «, t00=0x0062, t01=0x0152}
0x9a74…9a9e Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x0062, t01=0x0172}
0x9a9e…9ac4 Head {h00=0x0022, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM«, t00=0x0063, t01=0x000c}
0x9ac4…9ada Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/400 «, t00=0x0063, t01=0x0032}
0x9ada…9b0a Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0063, t01=0x0048}
0x9b0a…9b2e Head {h00=0x0020, h01=0x0050, text=» LDK A7,10 NO OF CHARACTERS «, t00=0x0063, t01=0x0078}
0x9b2e…9b66 Head {h00=0x0034, h01=0x0050, text=» CF A5,ASC:01 TRANSFER IBM VOL NAME TO ASCII DK1«, t00=0x0063, t01=0x009c}
0x9b66…9b9a Head {h00=0x0030, h01=0x0050, text=» LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME «, t00=0x0063, t01=0x00d4}
0x9b9a…9ba6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0108}
0x9ba6…9bb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0114}
0x9bb0…9bc8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0063, t01=0x011e}
0x9bc8…9bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0136}
0x9bd2…9bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0140}
0x9bdc…9bf0 Head {h00=0x0010, h01=0x0050, text=»VOL:20 EQU *«, t00=0x0063, t01=0x014a}
0x9bf0…9c08 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0063, t01=0x015e}
0x9c08…9c26 Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F8 FILE CODE «, t00=0x0063, t01=0x0176}
0x9c26…9c3e (100, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST2,A6«, t00=0x0064, t01=0x0004}
0x9c3e…9c64 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) VOL:30 NOT TEST STATUS«, t00=0x0064, t01=0x001c}
0x9c64…9c92 Head {h00=0x002a, h01=0x0050, text=» ORKL A3,/8000 INDICATE NO NEW NVL SET«, t00=0x0064, t01=0x0042}
0x9c92…9ca6 Head {h00=0x0010, h01=0x0050, text=»VOL:30 EQU *«, t00=0x0064, t01=0x0070}
0x9ca6…9cd8 Head {h00=0x002e, h01=0x0050, text=» CF A15,VOLGET VOLUME NAME TO DWT SET NVL «, t00=0x0064, t01=0x0084}
0x9cd8…9cf0 Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0064, t01=0x00b6}
0x9cf0…9d02 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0064, t01=0x00ce}
0x9d02…9d16 Head {h00=0x0010, h01=0x0050, text=»VOL:40 EQU *«, t00=0x0064, t01=0x00e0}
0x9d16…9d26 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0064, t01=0x00f4}
0x9d26…9d32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x0104}
0x9d32…9d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0110}
0x9d3c…9d4e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0064, t01=0x011a}
0x9d4e…9d66 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0064, t01=0x012c}
0x9d66…9d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0144}
0x9d70…9d82 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0064, t01=0x014e}
0x9d82…9d94 Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x0064, t01=0x0160}
0x9d94…9da6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0064, t01=0x0172}
0x9da6…9db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0184}
0x9db0…9dee Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x0064, t01=0x018e}
0x9dee…9e0e Head {h00=0x001c, h01=0x0050, text=»* ASCII CODE«, t00=0x0065, t01=0x003c}
0x9e0e…9e40 Head {h00=0x002e, h01=0x0050, text=»* INPUT STRING ADDRESS IS BUF «, t00=0x0065, t01=0x005c}
0x9e40…9e6a Head {h00=0x0026, h01=0x0050, text=»* INPUT: A7 NO OF CHARACTERS«, t00=0x0065, t01=0x008e}
0x9e6a…9e8c Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0065, t01=0x00b8}
0x9e8c…9eae Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x0065, t01=0x00da}
0x9eae…9ed0 Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0065, t01=0x00fc}
0x9ed0…9ef2 Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x0065, t01=0x011e}
0x9ef2…9efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0140}
0x9efc…9f10 Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0065, t01=0x014a}
0x9f10…9f48 Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET LOGICAL BUFFER ADDRESS DK1 «, t00=0x0065, t01=0x015e}
0x9f48…9f7c Head {h00=0x0030, h01=0x0050, text=» RF(NZ) ASC:01 BUFFER NOT IN SYSTEM AREA DK1«, t00=0x0066, t01=0x0008}
0x9f7c…9faa Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTBA,A6 GET BUFFER ADDRESS DK1«, t00=0x0066, t01=0x003c}
0x9faa…9fc2 Head {h00=0x0014, h01=0x0050, text=» RF ASC:02 DK1 «, t00=0x0066, t01=0x006a}
0x9fc2…9fdc Head {h00=0x0016, h01=0x0050, text=»ASC:01 EQU * DK1 «, t00=0x0066, t01=0x0082}
0x9fdc…9ff2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0066, t01=0x009c}
0x9ff2…a01c Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0066, t01=0x00b2}
0xa01c…a028 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x00dc}
0xa028…a032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00e8}
0xa032…a04c Head {h00=0x0016, h01=0x0050, text=»ASC:02 EQU * DK1 «, t00=0x0066, t01=0x00f2}
0xa04c…a05e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0066, t01=0x010c}
0xa05e…a06a Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0066, t01=0x011e}
0xa06a…a07c Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0066, t01=0x012a}
0xa07c…a090 Head {h00=0x0010, h01=0x0050, text=»ASC:10 EQU *«, t00=0x0066, t01=0x013c}
0xa090…a0a2 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0066, t01=0x0150}
0xa0a2…a0c6 Head {h00=0x0020, h01=0x0050, text=» LCR A1,A4 EBCDIC CHARACTER «, t00=0x0066, t01=0x0162}
0xa0c6…a0da Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0066, t01=0x0186}
0xa0da…a106 Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0067, t01=0x000a}
0xa106…a13a Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0067, t01=0x0036}
0xa13a…a14c Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0067, t01=0x006a}
0xa14c…a162 Head {h00=0x0012, h01=0x0050, text=» RB(P) ASC:10 «, t00=0x0067, t01=0x007c}
0xa162…a174 Head {h00=0x000e, h01=0x0050, text=» RF EBC:90«, t00=0x0067, t01=0x0092}
0xa174…a17e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00a4}
0xa17e…a196 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0067, t01=0x00ae}
0xa196…a1a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00c6}
0xa1a0…a1b2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x00d0}
0xa1b2…a1c4 Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0067, t01=0x00e2}
0xa1c4…a1d6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x00f4}
0xa1d6…a1e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0106}
0xa1e0…a220 Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0067, t01=0x0110}
0xa220…a242 Head {h00=0x001e, h01=0x0050, text=»* EBCDIC CODE «, t00=0x0067, t01=0x0150}
0xa242…a27e Head {h00=0x0038, h01=0x0050, text=»* OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x0067, t01=0x0172}
0xa27e…a288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x001e}
0xa288…a2b2 Head {h00=0x0026, h01=0x0050, text=»* INPUT: A7 NO OF CHARACTERS «, t00=0x0068, t01=0x0028}
0xa2b2…a2d4 Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0068, t01=0x0052}
0xa2d4…a2de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0074}
0xa2de…a300 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x0068, t01=0x007e}
0xa300…a322 Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0068, t01=0x00a0}
0xa322…a344 Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x0068, t01=0x00c2}
0xa344…a358 Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0068, t01=0x00e4}
0xa358…a364 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0068, t01=0x00f8}
0xa364…a37a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0068, t01=0x0104}
0xa37a…a3a4 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0068, t01=0x011a}
0xa3a4…a3b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x0144}
0xa3b0…a3ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0150}
0xa3ba…a3cc Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0068, t01=0x015a}
0xa3cc…a3de Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0068, t01=0x016c}
0xa3de…a3f2 Head {h00=0x0010, h01=0x0050, text=»EBC:10 EQU *«, t00=0x0068, t01=0x017e}
0xa3f2…a404 (105, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0069, t01=0x0004}
0xa404…a426 Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x0069, t01=0x0016}
0xa426…a43a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0069, t01=0x0038}
0xa43a…a454 Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x0069, t01=0x004c}
0xa454…a46c Head {h00=0x0014, h01=0x0050, text=» SC A1,BUF-1,A7 «, t00=0x0069, t01=0x0066}
0xa46c…a47e Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0069, t01=0x007e}
0xa47e…a494 Head {h00=0x0012, h01=0x0050, text=» RB(P) EBC:10 «, t00=0x0069, t01=0x0090}
0xa494…a4be Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0069, t01=0x00a6}
0xa4be…a4d2 Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x0069, t01=0x00d0}
0xa4d2…a4f2 Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x0069, t01=0x00e4}
0xa4f2…a502 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0069, t01=0x0104}
0xa502…a50c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0114}
0xa50c…a524 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0069, t01=0x011e}
0xa524…a52e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0136}
0xa52e…a540 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x0140}
0xa540…a552 Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x0069, t01=0x0152}
0xa552…a564 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0069, t01=0x0164}
0xa564…a56e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0176}
0xa56e…a5b2 Head {h00=0x0040, h01=0x0050, text=»* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x0069, t01=0x0180}
0xa5b2…a5e2 Head {h00=0x002c, h01=0x0050, text=»* LOGICAL SECTOR (BINARY). «, t00=0x006a, t01=0x0034}
0xa5e2…a622 Head {h00=0x003c, h01=0x0050, text=»* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE)«, t00=0x006a, t01=0x0064}
0xa622…a650 Head {h00=0x002a, h01=0x0050, text=»* TT = TRACK, SS=SECTOR «, t00=0x006a, t01=0x00a4}
0xa650…a65a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00d2}
0xa65a…a68a Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO PHYS. SECTOR«, t00=0x006a, t01=0x00dc}
0xa68a…a694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x010c}
0xa694…a6be Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A3 BINARY SECTOR NO «, t00=0x006a, t01=0x0116}
0xa6be…a6f0 Head {h00=0x002e, h01=0x0050, text=»* A4 ADDRESS TO PHYS. SEC. + 4«, t00=0x006a, t01=0x0140}
0xa6f0…a6fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0172}
0xa6fa…a70e Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x006a, t01=0x017c}
0xa70e…a724 Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x006a, t01=0x0190}
0xa724…a73c Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x006b, t01=0x0016}
0xa73c…a74e Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x006b, t01=0x002e}
0xa74e…a758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0040}
0xa758…a772 Head {h00=0x0016, h01=0x0050, text=»* MULTIPLY BY 26 «, t00=0x006b, t01=0x004a}
0xa772…a77c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0064}
0xa77c…a792 Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x006b, t01=0x006e}
0xa792…a7a4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x006b, t01=0x0084}
0xa7a4…a7b6 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x006b, t01=0x0096}
0xa7b6…a7cc Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x006b, t01=0x00a8}
0xa7cc…a7de Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x006b, t01=0x00be}
0xa7de…a7f4 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x006b, t01=0x00d0}
0xa7f4…a80a Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x006b, t01=0x00e6}
0xa80a…a81c Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006b, t01=0x00fc}
0xa81c…a82e Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x006b, t01=0x010e}
0xa82e…a838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0120}
0xa838…a850 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x006b, t01=0x012a}
0xa850…a85a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0142}
0xa85a…a874 Head {h00=0x0016, h01=0x0050, text=»* CHECK SECTOR NO«, t00=0x006b, t01=0x014c}
0xa874…a87e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0166}
0xa87e…a890 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x006b, t01=0x0170}
0xa890…a8a2 Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x006b, t01=0x0182}
0xa8a2…a8b8 (108, 0, 398) Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x006c, t01=0x0004}
0xa8b8…a8d6 Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD «, t00=0x006c, t01=0x001a}
0xa8d6…a8f0 Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x006c, t01=0x0038}
0xa8f0…a906 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x006c, t01=0x0052}
0xa906…a918 Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x006c, t01=0x0068}
0xa918…a922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x007a}
0xa922…a948 Head {h00=0x0022, h01=0x0050, text=»* CHECK EOD LESS/EQUAL 74001 «, t00=0x006c, t01=0x0084}
0xa948…a952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00aa}
0xa952…a96e Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x006c, t01=0x00b4}
0xa96e…a982 Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x006c, t01=0x00d0}
0xa982…a9a8 Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x006c, t01=0x00e4}
0xa9a8…a9ce Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x006c, t01=0x010a}
0xa9ce…a9de Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006c, t01=0x0130}
0xa9de…a9e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0140}
0xa9e8…a9fe Head {h00=0x0012, h01=0x0050, text=»* FATAL ERROR«, t00=0x006c, t01=0x014a}
0xa9fe…aa08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0160}
0xaa08…aa34 Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x006c, t01=0x016a}
0xaa34…aa5a Head {h00=0x0022, h01=0x0050, text=»LOG:10 LDK A1,/10 RETURN CODE «, t00=0x006d, t01=0x0008}
0xaa5a…aa8a Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x006d, t01=0x002e}
0xaa8a…aaaa Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x006d, t01=0x005e}
0xaaaa…aacc Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x006d, t01=0x007e}
0xaacc…aad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00a0}
0xaad6…aaee Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x006d, t01=0x00aa}
0xaaee…aaf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00c2}
0xaaf8…ab0a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006d, t01=0x00cc}
0xab0a…ab1c Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x006d, t01=0x00de}
0xab1c…ab2e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006d, t01=0x00f0}
0xab2e…ab38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0102}
0xab38…ab7a Head {h00=0x003e, h01=0x0050, text=»* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x006d, t01=0x010c}
0xab7a…abc2 Head {h00=0x0044, h01=0x0050, text=»* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x006d, t01=0x014e}
0xabc2…abf2 Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO FIRST DIGIT«, t00=0x006e, t01=0x0008}
0xabf2…ac10 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A1 BINARY«, t00=0x006e, t01=0x0038}
0xac10…ac30 Head {h00=0x001c, h01=0x0050, text=»* WORKING REG: A2,A7 «, t00=0x006e, t01=0x0056}
0xac30…ac3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0076}
0xac3a…ac52 Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x006e, t01=0x0080}
0xac52…ac64 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x006e, t01=0x0098}
0xac64…ac82 Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x006e, t01=0x00aa}
0xac82…ac96 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x006e, t01=0x00c8}
0xac96…acaa Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x006e, t01=0x00dc}
0xacaa…acc0 Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x006e, t01=0x00f0}
0xacc0…acd2 Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x006e, t01=0x0106}
0xacd2…acf2 Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x006e, t01=0x0118}
0xacf2…ad04 Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x006e, t01=0x0138}
0xad04…ad16 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x006e, t01=0x014a}
0xad16…ad2c Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x006e, t01=0x015c}
0xad2c…ad56 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x006e, t01=0x0172}
0xad56…ad6e Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x006f, t01=0x000c}
0xad6e…ad8e Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x006f, t01=0x0024}
0xad8e…adb0 Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x006f, t01=0x0044}
0xadb0…adc2 Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x006f, t01=0x0066}
0xadc2…adda Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x006f, t01=0x0078}
0xadda…adea Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006f, t01=0x0090}
0xadea…adf6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x00a0}
0xadf6…ae00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00ac}
0xae00…ae18 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x006f, t01=0x00b6}
0xae18…ae22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00ce}
0xae22…ae34 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006f, t01=0x00d8}
0xae34…ae46 Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x006f, t01=0x00ea}
0xae46…ae58 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006f, t01=0x00fc}
0xae58…ae62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x010e}
0xae62…ae98 Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x006f, t01=0x0118}
0xae98…aea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x014e}
0xaea2…aede Head {h00=0x0038, h01=0x0050, text=»* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x006f, t01=0x0158}
0xaede…aee8 (112, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0004}
0xaee8…af06 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A3 CHANGED«, t00=0x0070, t01=0x000e}
0xaf06…af24 Head {h00=0x001a, h01=0x0050, text=»* A4 CHANGED«, t00=0x0070, t01=0x002c}
0xaf24…af2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x004a}
0xaf2e…af4a Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x0070, t01=0x0054}
0xaf4a…af60 Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x0070, t01=0x0070}
0xaf60…af72 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0070, t01=0x0086}
0xaf72…af88 Head {h00=0x0012, h01=0x0050, text=» ORS A3,FD:CIO«, t00=0x0070, t01=0x0098}
0xaf88…af98 Head {h00=0x000c, h01=0x0050, text=» RTN A5«, t00=0x0070, t01=0x00ae}
0xaf98…afaa Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0070, t01=0x00be}
0xafaa…afb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00d0}
0xafb4…afcc Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0070, t01=0x00da}
0xafcc…afd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00f2}
0xafd6…afe8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0070, t01=0x00fc}
0xafe8…affa Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x0070, t01=0x010e}
0xaffa…b00c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0070, t01=0x0120}
0xb00c…b016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0132}
0xb016…b054 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x0070, t01=0x013c}
0xb054…b088 Head {h00=0x0030, h01=0x0050, text=»* EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x0070, t01=0x017a}
0xb088…b092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x001e}
0xb092…b0b6 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A7 BINARY NUMBER«, t00=0x0071, t01=0x0028}
0xb0b6…b0c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x004c}
0xb0c0…b0f2 Head {h00=0x002e, h01=0x0050, text=»* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS«, t00=0x0071, t01=0x0056}
0xb0f2…b110 Head {h00=0x001a, h01=0x0050, text=»* A7 CHANGED«, t00=0x0071, t01=0x0088}
0xb110…b11a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00a6}
0xb11a…b132 Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x0071, t01=0x00b0}
0xb132…b14a Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x0071, t01=0x00c8}
0xb14a…b160 Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x0071, t01=0x00e0}
0xb160…b172 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0071, t01=0x00f6}
0xb172…b184 Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x0071, t01=0x0108}
0xb184…b19c Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x0071, t01=0x011a}
0xb19c…b1ae Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x0071, t01=0x0132}
0xb1ae…b1dc Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x0071, t01=0x0144}
0xb1dc…b200 Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x0071, t01=0x0172}
0xb200…b210 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0072, t01=0x0008}
0xb210…b21a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0018}
0xb21a…b232 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0072, t01=0x0022}
0xb232…b244 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0072, t01=0x003a}
0xb244…b256 Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x0072, t01=0x004c}
0xb256…b268 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0072, t01=0x005e}
0xb268…b272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0070}
0xb272…b2aa Head {h00=0x0034, h01=0x0050, text=»* FUNCTION: PREPARE FOR READING DATA SET LABEL«, t00=0x0072, t01=0x007a}
0xb2aa…b2b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00b2}
0xb2b4…b2d6 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0072, t01=0x00bc}
0xb2d6…b2e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00de}
0xb2e0…b31e Head {h00=0x003a, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x0072, t01=0x00e8}
0xb31e…b33a Head {h00=0x0018, h01=0x0050, text=»* A3 128 «, t00=0x0072, t01=0x0126}
0xb33a…b366 Head {h00=0x0028, h01=0x0050, text=»* A4 DRIVER BUFFER ADDRESS«, t00=0x0072, t01=0x0142}
0xb366…b388 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0072, t01=0x016e}
0xb388…b3aa Head {h00=0x001e, h01=0x0050, text=»* A1 IS CHANGED «, t00=0x0072, t01=0x0190}
0xb3aa…b3b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0022}
0xb3b4…b3d0 Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x0073, t01=0x002c}
0xb3d0…b3e4 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0073, t01=0x0048}
0xb3e4…b3f8 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x0073, t01=0x005c}
0xb3f8…b40a Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0073, t01=0x0070}
0xb40a…b41e Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x0073, t01=0x0082}
0xb41e…b432 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0073, t01=0x0096}
0xb432…b442 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0073, t01=0x00aa}
0xb442…b44c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00ba}
0xb44c…b464 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0073, t01=0x00c4}
0xb464…b46e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00dc}
0xb46e…b480 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0073, t01=0x00e6}
0xb480…b492 Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x0073, t01=0x00f8}
0xb492…b4a4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0073, t01=0x010a}
0xb4a4…b4ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x011c}
0xb4ae…b4e8 Head {h00=0x0036, h01=0x0050, text=»* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x0073, t01=0x0126}
0xb4e8…b4f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0160}
0xb4f2…b514 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0073, t01=0x016a}
0xb514…b51e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x018c}
0xb51e…b540 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A2 EOD ADDRESS«, t00=0x0074, t01=0x0008}
0xb540…b570 Head {h00=0x002c, h01=0x0050, text=»* A7 EOD-NO (0=NOT OPEN) «, t00=0x0074, t01=0x002a}
0xb570…b58e Head {h00=0x001a, h01=0x0050, text=»* A1 CHANGED«, t00=0x0074, t01=0x005a}
0xb58e…b5aa Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x0074, t01=0x0078}
0xb5aa…b5be Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0074, t01=0x0094}
0xb5be…b5d8 Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x0074, t01=0x00a8}
0xb5d8…b5e8 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0074, t01=0x00c2}
0xb5e8…b5f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00d2}
0xb5f2…b60a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0074, t01=0x00dc}
0xb60a…b614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00f4}
0xb614…b626 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0074, t01=0x00fe}
0xb626…b638 Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x0074, t01=0x0110}
0xb638…b64a Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0074, t01=0x0122}
0xb64a…b654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0134}
0xb654…b68a Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x0074, t01=0x013e}
0xb68a…b6c4 Head {h00=0x0036, h01=0x0050, text=»* TYPE OF DATA FOR CORRESPONDING DRIVE «, t00=0x0074, t01=0x0174}
0xb6c4…b6ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x001e}
0xb6ce…b6f0 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A1 DWT OFFSET «, t00=0x0075, t01=0x0028}
0xb6f0…b712 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0075, t01=0x004a}
0xb712…b71c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x006c}
0xb71c…b742 Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A2 ADDRESS TO DATA«, t00=0x0075, t01=0x0076}
0xb742…b764 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0075, t01=0x009c}
0xb764…b76e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00be}
0xb76e…b794 Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x0075, t01=0x00c8}
0xb794…b7a6 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0075, t01=0x00ee}
0xb7a6…b7b8 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0075, t01=0x0100}
0xb7b8…b7ca Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0075, t01=0x0112}
0xb7ca…b7dc Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x0075, t01=0x0124}
0xb7dc…b7ec Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0075, t01=0x0136}
0xb7ec…b7f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0146}
0xb7f6…b80e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0075, t01=0x0150}
0xb80e…b818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0168}
0xb818…b82a Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0075, t01=0x0172}
0xb82a…b83c Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x0075, t01=0x0184}
0xb83c…b84e Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0076, t01=0x0008}
0xb84e…b858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x001a}
0xb858…b896 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x0076, t01=0x0024}
0xb896…b8b4 Head {h00=0x001a, h01=0x0050, text=»* DRIVE NO «, t00=0x0076, t01=0x0062}
0xb8b4…b8be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0080}
0xb8be…b8ea Head {h00=0x0028, h01=0x0050, text=»* INPUT: A1 OFFSET TO DWT AREA «, t00=0x0076, t01=0x008a}
0xb8ea…b91c Head {h00=0x002e, h01=0x0050, text=»* A3 WORD TO BE STORED IN DWT «, t00=0x0076, t01=0x00b6}
0xb91c…b940 Head {h00=0x0020, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0076, t01=0x00e8}
0xb940…b94a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x010c}
0xb94a…b96c Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 UNCHANGED«, t00=0x0076, t01=0x0116}
0xb96c…b9a0 Head {h00=0x0030, h01=0x0050, text=»* A2 ADDRESS TO WORD IN DWT AREA«, t00=0x0076, t01=0x0138}
0xb9a0…b9c2 Head {h00=0x001e, h01=0x0050, text=»* A3 UNCHANGED«, t00=0x0076, t01=0x016c}
0xb9c2…b9e4 Head {h00=0x001e, h01=0x0050, text=»* A6 UNCHANGED«, t00=0x0076, t01=0x018e}
0xb9e4…b9ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0020}
0xb9ee…ba02 Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x0077, t01=0x002a}
0xba02…ba16 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0077, t01=0x003e}
0xba16…ba28 Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0077, t01=0x0052}
0xba28…ba38 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0077, t01=0x0064}
0xba38…ba44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x0074}
0xba44…ba4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0080}
0xba4e…ba66 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0077, t01=0x008a}
0xba66…ba70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00a2}
0xba70…ba96 Head {h00=0x0022, h01=0x0050, text=»* D R I V E R B U F F E R«, t00=0x0077, t01=0x00ac}
0xba96…baa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00d2}
0xbaa0…bab2 Head {h00=0x000e, h01=0x0050, text=»BUF EQU * «, t00=0x0077, t01=0x00dc}
0xbab2…bac4 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0077, t01=0x00ee}
0xbac4…bad8 Head {h00=0x0010, h01=0x0050, text=» RES DVBLEN «, t00=0x0077, t01=0x0100}
0xbad8…bae4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x0114}
0xbae4…baee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0120}
0xbaee…bb02 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0077, t01=0x012a}
0xbb02…bb14 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0077, t01=0x013e}
0xbb14…bb3a Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME BUFFER«, t00=0x0077, t01=0x0150}
0xbb3a…bb54 Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x0077, t01=0x0176}
0xbb54…bb74 Head {h00=0x001c, h01=0x0050, text=» RES DVBLEN-3 MMU BUFFER«, t00=0x0077, t01=0x0190}
0xbb74…bb80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x0020}
0xbb80…bb8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x002c}
0xbb8a…bba2 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0078, t01=0x0036}
0xbba2…bbbc Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x0078, t01=0x004e}
0xbbbc…bbda Head {h00=0x001a, h01=0x0050, text=» RES DVBLEN MMU BUFFER«, t00=0x0078, t01=0x0068}
0xbbda…bbe6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x0086}
0xbbe6…bbf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0092}
0xbbf0…bc08 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0078, t01=0x009c}
0xbc08…bc12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00b4}
0xbc12…bc30 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0078, t01=0x00be}
0xbc30…bc4e Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0078, t01=0x00dc}
0xbc4e…bc6c Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0078, t01=0x00fa}
0xbc6c…bc8a Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0078, t01=0x0118}
0xbc8a…bca8 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0078, t01=0x0136}
0xbca8…bcb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0154}
0xbcb2…bcc6 Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0078, t01=0x015e}
0xbcc6…bcf2 Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x0078, t01=0x0172}
0xbcf2…bd02 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0079, t01=0x000e}
0xbd02…bd20 Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0079, t01=0x001e}
0xbd20…bd3c Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0079, t01=0x003c}
0xbd3c…bd52 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0079, t01=0x0058}
0xbd52…bd78 Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0079, t01=0x006e}
0xbd78…bd94 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0079, t01=0x0094}
0xbd94…bdbc Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0079, t01=0x00b0}
0xbdbc…bdda Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0079, t01=0x00d8}
0xbdda…bde4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00f6}
0xbde4…bdfa Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0079, t01=0x0100}
0xbdfa…be24 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0079, t01=0x0116}
0xbe24…be48 Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0079, t01=0x0140}
0xbe48…be54 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0079, t01=0x0164}
0xbe54…be5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0170}
0xbe5e…be78 Head {h00=0x0016, h01=0x0050, text=»DWTA3 EQU *-DWFD01«, t00=0x0079, t01=0x017a}
0xbe78…be88 (122, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007a, t01=0x0004}
0xbe88…bea2 Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x007a, t01=0x0014}
0xbea2…beb2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007a, t01=0x002e}
0xbeb2…bec2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007a, t01=0x003e}
0xbec2…bee8 Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0,0 STACK (3 LEVELS)«, t00=0x007a, t01=0x004e}
0xbee8…bf08 Head {h00=0x001c, h01=0x0050, text=» DATA 0 ORDER SAVE AREA «, t00=0x007a, t01=0x0074}
0xbf08…bf12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0094}
0xbf12…bf2a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007a, t01=0x009e}
0xbf2a…bf34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00b6}
0xbf34…bf3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00c0}
0xbf3e…bf56 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x007a, t01=0x00ca}
0xbf56…bf7a Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 0 «, t00=0x007a, t01=0x00e2}
0xbf7a…bf9e Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 1 «, t00=0x007a, t01=0x0106}
0xbf9e…bfc2 Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 2 «, t00=0x007a, t01=0x012a}
0xbfc2…bfe6 Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 3 «, t00=0x007a, t01=0x014e}
0xbfe6…c012 Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x007a, t01=0x0172}
0xc012…c032 Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007b, t01=0x000e}
0xc032…c05e Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x007b, t01=0x002e}
0xc05e…c07e Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007b, t01=0x005a}
0xc07e…c0aa Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x007b, t01=0x007a}
0xc0aa…c0ca Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007b, t01=0x00a6}
0xc0ca…c0f6 Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x007b, t01=0x00c6}
0xc0f6…c116 Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007b, t01=0x00f2}
0xc116…c142 Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x007b, t01=0x0112}
0xc142…c152 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x013e}
0xc152…c15e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x014e}
0xc15e…c178 Head {h00=0x0016, h01=0x0050, text=»DWTA5 EQU *-DWFD01«, t00=0x007b, t01=0x015a}
0xc178…c188 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0174}
0xc188…c1b6 Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x007b, t01=0x0184}
0xc1b6…c1c6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0022}
0xc1c6…c1ee Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x007c, t01=0x0032}
0xc1ee…c1fe Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x005a}
0xc1fe…c208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x006a}
0xc208…c220 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007c, t01=0x0074}
0xc220…c22a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x008c}
0xc22a…c234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0096}
0xc234…c246 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007c, t01=0x00a0}
0xc246…c276 Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x007c, t01=0x00b2}
0xc276…c286 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x00e2}
0xc286…c292 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x00f2}
0xc292…c29c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00fe}
0xc29c…c2cc Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x007c, t01=0x0108}
0xc2cc…c2dc Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0138}
0xc2dc…c2e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0148}
0xc2e6…c2fc Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x007c, t01=0x0152}
0xc2fc…c32e Head {h00=0x002e, h01=0x0050, text=»DWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN«, t00=0x007c, t01=0x0168}
0xc32e…c33e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x000a}
0xc33e…c376 Head {h00=0x0034, h01=0x0050, text=»DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON «, t00=0x007d, t01=0x001a}
0xc376…c386 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0052}
0xc386…c392 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x0062}
0xc392…c39c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x006e}
0xc39c…c3b4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007d, t01=0x0078}
0xc3b4…c3be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0090}
0xc3be…c3c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x009a}
0xc3c8…c3dc Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x007d, t01=0x00a4}
0xc3dc…c416 Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x007d, t01=0x00b8}
0xc416…c426 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x00f2}
0xc426…c456 Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x007d, t01=0x0102}
0xc456…c466 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0132}
0xc466…c496 Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x007d, t01=0x0142}
0xc496…c4a6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0172}
0xc4a6…c4b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x0182}
0xc4b2…c4bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x018e}
0xc4bc…c4ce Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007e, t01=0x0008}
0xc4ce…c4fe Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x007e, t01=0x001a}
0xc4fe…c514 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007e, t01=0x004a}
0xc514…c53c Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x007e, t01=0x0060}
0xc53c…c552 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007e, t01=0x0088}
0xc552…c57c Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x007e, t01=0x009e}
0xc57c…c592 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007e, t01=0x00c8}
0xc592…c5c0 Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x007e, t01=0x00de}
0xc5c0…c5d6 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007e, t01=0x010c}
0xc5d6…c608 Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x007e, t01=0x0122}
0xc608…c61e Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007e, t01=0x0154}
0xc61e…c62a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x016a}
0xc62a…c634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0176}
0xc634…c64c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007e, t01=0x0180}
0xc64c…c656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0008}
0xc656…c660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0012}
0xc660…c68a Head {h00=0x0026, h01=0x0050, text=»DWTBA EQU *-DWFD01 BUFFER POINTER «, t00=0x007f, t01=0x001c}
0xc68a…c69a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x0046}
0xc69a…c6c6 Head {h00=0x0028, h01=0x0050, text=»DWTRL EQU *-DWFD01 LENGTH IN SUB IO «, t00=0x007f, t01=0x0056}
0xc6c6…c6d6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x0082}
0xc6d6…c700 Head {h00=0x0026, h01=0x0050, text=»DWTCW2 EQU *-DWFD01 SECTOR NUMBER «, t00=0x007f, t01=0x0092}
0xc700…c710 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x00bc}
0xc710…c742 Head {h00=0x002e, h01=0x0050, text=»DWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER «, t00=0x007f, t01=0x00cc}
0xc742…c752 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x00fe}
0xc752…c78a Head {h00=0x0034, h01=0x0050, text=»DWTSIO EQU *-DWFD01 NUMBER OF SECTORS IN SUB IO «, t00=0x007f, t01=0x010e}
0xc78a…c79a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x0146}
0xc79a…c7a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0156}
0xc7a4…c7bc Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x007f, t01=0x0160}
0xc7bc…c7e6 Head {h00=0x0026, h01=0x0050, text=»DWTFIB EQU *-DWFD01 IBM INDICATOR «, t00=0x007f, t01=0x0178}
0xc7e6…c7f6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0080, t01=0x0012}
0xc7f6…c802 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x0022}
0xc802…c80c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x002e}
0xc80c…c824 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0080, t01=0x0038}
0xc824…c82e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0050}
0xc82e…c838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x005a}
0xc838…c84e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0080, t01=0x0064}
0xc84e…c86a Head {h00=0x0018, h01=0x0050, text=»DWT:BF EQU *-DWFD01 «, t00=0x0080, t01=0x007a}
0xc86a…c892 Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x0080, t01=0x0096}
0xc892…c8ae Head {h00=0x0018, h01=0x0050, text=»BUFFLG EQU *-DWFD01 «, t00=0x0080, t01=0x00be}
0xc8ae…c8be Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0080, t01=0x00da}
0xc8be…c8c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00ea}
0xc8c8…c8e0 Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0080, t01=0x00f4}
0xc8e0…c8fc Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWFD01 «, t00=0x0080, t01=0x010c}
0xc8fc…c92a Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x0080, t01=0x0128}
0xc92a…c94a Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x0080, t01=0x0156}
0xc94a…c954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0176}
0xc954…c970 Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWFD01 «, t00=0x0080, t01=0x0180}
0xc970…c99e Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0081, t01=0x000c}
0xc99e…c9aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x003a}
0xc9aa…c9b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0046}
0xc9b4…c9ca Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0081, t01=0x0050}
0xc9ca…c9de Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0081, t01=0x0066}
0xc9de…c9fa Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0081, t01=0x007a}
0xc9fa…ca06 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0096}
0xca06…ca10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00a2}
0xca10…ca1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00ac}
0xca1a…ca24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00b6}
0xca24…ca30 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0081, t01=0x00c0}
0xca30…ca34 Head {h00=0x4004, h01=0x0000}
0xca34…ca38 00 81 00 cc ┆ ┆
0xca38…ca40 (130, 1, 8) 20 04 00 00 00 82 00 04 ┆ ┆
0xca40…ca90 (131, 0, 400) 62 21 02 bd 21 00 e9 27 20 6a e9 27 21 21 00 62 04 e9 27 12 6a 00 62 21 5a 3d 02 e9 27 62 02 e9 27 21 41 67 5f d9 34 02 02 62 21 6a 63 21 21 00 62 00 98 63 00 60 20 6d 9b 60 1f 01 66 00 62 21 64 00 62 60 9b 20 04 60 21 02 8e 60 02 62 60 02 ┆b! ! ' j '!! b ' j b!Z= 'b '!Ag_ 4 b!jc!! b c ` m ` f b!d b` `! ` b` ┆
0xca90…cae0 bd 60 02 bd 21 48 67 04 02 e9 27 60 34 02 31 26 93 1a 50 0b 00 93 10 02 93 23 80 03 10 57 e6 00 92 21 30 35 13 92 20 5c 1b 00 ba 70 21 00 75 20 00 89 21 00 b0 22 20 00 b0 21 21 00 bc 20 00 77 20 6a 77 21 21 19 7b 31 6a bc 21 21 19 7b 32 04 ┆ ` !Hg '`4 1& P # W !05 p! u ! " !! w jw!! {1j !! {2 ┆
0xcae0…cb30 77 bc 80 04 00 64 12 03 b0 22 32 40 68 80 05 75 22 20 91 21 99 4b 68 11 02 89 21 40 6b 00 8f 20 01 7e 36 30 1a 6f 54 1c 01 9b 40 6a 7e 8f 23 9b 20 02 8f 23 00 b8 2d 8b 00 62 20 80 06 6f b8 2d 28 91 20 71 30 1a c6 54 46 00 62 20 00 be 20 00 ┆w d "2@h u" ! Kh !@k ~60 oT @j~ # # - b o -( q0 TF b ┆
0xcb30…cb80 b8 2c b8 21 02 b8 2c b8 22 02 b8 2c b8 23 01 9d 45 00 bd 20 68 9d bd 29 c6 62 23 54 22 02 bd 23 0a bd 23 10 b8 bd 20 1a 02 be b8 bd 80 06 c6 b8 bd 28 91 20 30 20 b8 2c be 05 00 62 be 5f 31 49 69 0e 80 07 21 22 64 11 26 25 28 91 20 17 5f 93 ┆ , ! , " , # E h ) b#T" # # ( 0 , b _1Ii !"d &%( _ ┆
0xcb80…cbd0 80 07 23 24 64 11 26 25 10 91 20 9f 57 07 31 26 93 1a 00 91 20 34 00 00 8e 8f 02 8e 01 02 24 8e 11 39 04 8e 11 04 01 02 8e 6a 7e 8f 01 02 00 62 49 69 0a 80 07 21 22 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 09 ┆ #$d &% W 1& 4 $ 9 j~ bIi !"d ┆
0xcbd0…cc20 (132, 0, 400) 11 26 25 57 08 80 07 23 24 64 11 26 25 28 91 20 41 02 62 01 02 00 01 02 8e 00 8f 20 01 7e 36 41 6b 5f 44 6a 7e 8f 01 02 00 62 02 8f 01 02 02 8f 23 2a 8f 11 1d 49 69 0a 80 07 21 22 64 11 26 25 57 08 80 07 23 24 64 11 26 25 00 8f 20 01 7e 36 ┆ &%W #$d &%( A b ~6Ak_Dj~ b #* Ii !"d &%W #$d &% ~6┆
0xcc20…cc70 41 6b 34 03 00 91 20 2b 02 03 13 31 26 93 20 00 50 02 57 11 03 b0 21 32 00 02 04 02 02 05 31 26 93 20 01 50 0b 00 93 10 02 93 23 80 03 10 57 06 02 02 21 00 91 20 34 06 40 6c 00 8f 23 68 51 8f 30 1b ba 00 21 30 16 36 8f 12 00 00 02 17 00 00 ┆Ak4 + 1& P W !2 1& P # W ! 4 @l #hQ 0 !0 6 ┆
0xcc70…ccc0 00 00 1c 12 46 00 4d 4d 4d 4d 4d 4d 3f 11 00 8e 20 02 00 21 6a 8e 21 21 1b ba 00 02 00 8e 02 00 21 5f 39 02 00 22 5f 3e 80 08 00 48 6a 1f 00 92 20 6a 92 21 21 19 7b 28 6a 19 7b 20 21 5c 25 00 7b 92 04 e9 24 21 80 04 30 0c 02 22 22 49 6c e4 ┆ F MMMMMM? !j !! !_9 "_> Hj j !! {(j { ! % { $! 0 ""Il ┆
0xccc0…cd10 5f 68 02 00 21 41 68 3f 12 41 6c 04 8f 2d 02 00 21 00 8e 20 6a 8e 21 21 1b ba 00 10 8e 21 63 00 b0 25 8e 00 b0 24 89 02 00 21 00 8e 20 36 8f 05 0e 02 18 0e 02 57 16 6a 8e 20 22 1b ba 00 02 00 22 57 0a 6a 8e 21 21 1b ba 00 02 00 21 00 b7 8e ┆_h !Ah? Al - ! j !! !c % $ ! 6 W j " "W j !! ! ┆
0xcd10…cd60 24 8f 23 11 00 8e 21 30 37 9d 16 68 9d 8e 29 51 20 21 02 00 8e 30 45 1b ba 00 90 8e 86 00 b0 26 86 00 b0 27 8e 49 69 46 01 b5 21 3c 48 95 0c 01 b5 21 38 24 8f 23 04 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆$ # !07 h )Q ! 0E & ' IiF !<H !8$ # ┆