|
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: 55778 (0xd9e2)
Notes: pts_type(SC)
Names: »DRFD01.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRFD01.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/DRFD01.SC«
IDENT DRFD01 REL 11.0 81-04-14 870105041100 =8, REL 11.0 81-02-27 =8, IBM ,MMU AND IO TO SYSTEM AREA NO CODE CONVERSION =7, REL 11.0 81-02-23 =7, CRN UPDATED EVEN IF ERROR FOR SEQUENTIAL READ =6, REL 11.0 81-02-23 =6, BIT INDICATING VOLUME NAMES READ NOT CORRECT =5, REL 11.0 81-02-23 =5, SAME AS 4, NOT CHANGED CORRRECT =4, REL 11.0 81-02-18 =4, IBM VOLUME NAME NOT READ TO DWT =3, REL 11.0 81-01-27 =3, IBM,LOAD ORDER, DATA SET SECTOR NBR IN ECBCW1 =2, REL 11.0 81-01-26 =2, NOT OP. GIVEN IF WRONGLY STRAPT CU =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY * ********************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRFD01 = DRIVER FOR FLEXIBLE DISK * * * * * * ********************************************* * * * THIS DISK DRIVER HANDLES UP TO FOUR DAISY * CHAINED FLEXIBLE DISK DRIVES PTS 6879, * CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON * MULTIPLEX OR PROGRAMMED CHANNEL * * EJECT DRFD01 * * ORDERS: * * /00 TEST STATUS * /01 PHYSICAL READ * /02 SEQUENTIAL READ -IBM DISC ONLY- * /05 BASIC WRITE * /06 SEQUENTIAL WRITE -IBM DISC ONLY- * /11 PHYSICAL READ * /15 PHYSICAL WRITE * /21 OPEN * /22 CLOSE * /24 WRITE DELETED DATA * /26 LOCK * /31 REWIND -IBM DISC ONLY- * /37 LOAD * /38 UNLOAD * * ENTRY PARAMETERS: * * A5 STACK BASE * A6 DWT-ADDRESS * A7 ORDER * A8 ECB-ADDRESS EJECT DRFD01 * *********** * * * ENTRIES * * * *********** * ENTRY FDADR ACTIVATION ADDRESS ENTRY IHFD INTERRUPT HANDLER ENTRY FDON RECOVERY ROUTINE ENTRY DWFD01 DWT-ADDRESS EJECT DRFD01 * ************* * * * EXTERNALS * * * ************* * EXTRN TDISP DISPATCHER EXTRN TENDIO ENDIO EXTRN DISIOE REQUEST ERROR EXTRN DISEND PERFORM TENDIO AND TDISP EXTRN VOLCLR CLEAR VOLUME NAME EXTRN VOLNAM VOLUME NAME ADDRESS EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED EXTRN DWTST STATUS EXTRN DWTECB ECB ADDRESS EXTRN DWTUEC USER ECB ADDRESS EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTORD ORDER/INDEX SAVE AREA EXTRN DWTTAB TTAB ADDRESS EXTRN DWTA2 SAVE AREA A2 EXTRN DWTSB2 STACK BASE 2 IN DWT EXTRN TTB:MT MMU TABLE EXTRN SAVE8 SAVE A1-A8 ON A15 STACK EXTRN SETIMP TIMER EXTRN INTSAV INTERRUPT SAVE AREA EXTRN PFPOST PWF POST PROC. FLAG EXTRN TASCII EBCDIC TO ASCII TAB EXTRN TEBCDIC ASCII TO EBCDIC TAB EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE EXTRN ECBBA ECB BUFFER ADDRESS EXTRN ECBRL ECB REQUESTED LENGTH EXTRN ECBEL ECB EFFECTIVE LENGTH EXTRN ECBCW1 ECB CONTROL WORD 1 EXTRN ECBCW2 ECB CONTROL WORD 2 EJECT DRFD01 * ************************ * * * CONDITIONAL ASSEMBLY * * * ************************ * * MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED * CHANNEL BY SETTING X:A = 0 * X:A EQU 1 CHAN EQU X:A * * A PROGRAM VERSION INCLUDING TOSS DISC FORMAT * IS OBTAINED BY SETTING TOSS EQU 1. * X:B EQU 0 TOSS EQU X:B * * A PROGRAM VERSION INCLUDING IBM DISC FORMAT * IS OBTAINED BY SETTING IBM EQU 1. * X:C EQU 0 IBM EQU X:C * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * EJECT DRFD01 * * * ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER * TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1 * X:D EQU 0 OPCLOS EQU X:D * EJECT DRFD01 * * * MMU BUFFER SIZE * * IFT MMUPAG=0 DVBLEN EQU 256 XIF * IFT MMUPAG=1 X:E EQU 256 DVBLEN EQU X:E 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 RF FORM70 END:IO XIF * IFT TOSS+IBM=0 ABL END:RC XIF * EJECT DRFD01 * ********************** * * * FORMAT VOLUME * * * ********************** * FORMAT EQU * CF A15,NVLCHK ADK A1,0 RF(NZ) DIS:EN ERROR: NEW VOLUME LOADED LDK A2,36 CLEAR VOLUME NAME FORM10 EQU * CM BUF,A2 SUK A2,2 RB(NN) FORM10 CF A15,VOLCLR CLEAR VOLUME NAME FROM DWT LDK A2,1 BIO LDK A3,36 LENGTH LDKL A4,BUF VOLUME LABEL ADDRESS LD A1,ECBCW1,A8 RF(NZ) FORM50 IBM DISC LDKL A1,'TO' WRITE TOSS IN VOLUME LABEL ST A1,BUF+32 LDKL A1,'SS' ST A1,BUF+34 IFT IBM=1 C1 A1,DWTA3,A6 INDICATE TOSS ANS A1,DWTLAB,A6 XIF RF FORM60 * EJECT DRFD01 * * FORM50 EQU * CF A5,FD:WRI WRITE SECTOR 0 LDKL A4,BUF BUFFER ADDRESS LDKL A1,/E5D6 VO IN EBCDIC STR A1,A4 LDKL A1,/D3F1 L1 IN EBCDIC ST A1,BUF+2 IFT IBM=1 LD A1,DWTA3,A6 INDICATE IBM ORS A1,DWTLAB,A6 XIF LDK A2,/31 BIO LDK A3,36 LENGTH FORM60 EQU * CF A5,FD:WRI FORM70 EQU * ABL END:RC * 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 * LD A1,DWTTP2,A6 TIMER POINTER RF(NZ) OPEN20 TIMER ACTIVE 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 OPEN20 EQU * 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,31 RB(Z) FORMAT FORMAT VOLUME SUK A3,7 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,25 RB(Z) FORMAT FORMAT VOLUME SUK A3,7 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 IFT MMUPAG+CHAN=2 LDKL A2,DVBLEN+DVBLEN CHECK MMU BUFFER SIZE CWK A2,512 RF(NL) INTES3 SUFFICIENT CWR A3,A2 RB(G) INCLEN MMU BUFFER TOO SMALL INTES3 EQU * XIF SRC A3,7 NUMBER OF PHYSICAL SECTORS RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL CWK A3,/01FF RB(G) INCLEN INCORRECT INPUT PARAMETER ECBRL LD A2,ECBCW2,A8 GET SECTOR NUMBER * IFT IBM+TOSS=2 LD A4,DWTFIB,A6 RF(NZ) INTES5 IBM-DISC XIF * IFT TOSS=1 LDR A4,A3 SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL SLL A2,1 TRANSFER TOSS-SEC. NO TOPHYSICAL SEC. NO * EJECT DRFD01 * * INTES5 EQU * XIF LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER RB(N) REQERR REQUEST ERROR SUKL A4,MAXSEC RB(NN) REQERR REQUEST ERROR ADR A4,A3 RB(P) INCLEN INCORRECT LENGTH ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC NO LD A2,ECBBA,A8 GET ECBBA ST A2,DWTBA,A6 SAVE ECB BUFFER ADDRESS * IFT MMUPAG=1 LCR A2,A8 ANK A2,/30 ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS XIF * EJECT DRFD01 * * MULTIPLE SECTOR IO ENTRY * FD:000 EQU * IFT MMUPAG=1 IFT CHAN=0 LD A2,DWT:BF,A6 ST A2,BUFFLG,A6 SET BUFFER FLAG XIF * LDKL A2,512 LDK A4,3 SUK A3,4 RF(NN) FD:005 FOUR PHYS. SEC. IO * FD:003 SUK A2,128 SUK A4,1 ADK A3,1 RB(NZ) FD:003 * FD:005 EQU * ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO ST A3,DWTNOS,A6 UPDATE NUMBER OF SECTORS * EJECT DRFD01 * * IFT MMUPAG=1 IFF CHAN+IBM=0 LD A2,DWTBA,A6 BUFFER ADDRESS LD A1,DWT:BF,A6 RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA LDR A3,A2 RF(NN) FD:009 AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED RF(N) FD:009 NO * EJECT DRFD01 * * FD:007 EQU * ECR A3,A2 ANK A3,/F0 SRL A3,2 SLL A1,2 ORR A1,A3 SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS ADK A1,/4 CREATE ONE MORE MMU ENTRY SC A1,DWT:PA+2,A6 ANKL A2,/FFF LDR A1,A2 ORK A1,1 INDICATE ADDRESS NOT ZERO * FD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS XIF * LDK A4,0 PREPARE FOR BIO LD A1,DWTOR,A6 ANK A1,/3F ORDER SUK A1,1 RF(Z) FD:060 BASIC READ SUK A1,4 RF(Z) FD:015 BASIC WRITE SUK A1,12 RF(Z) FD:060 PHYSICAL READ SUK A1,4 RF(Z) FD:013 PHYSICAL WRITE SUK A1,15 CHECK IF WRITE DELETED DATA * RQ:ERR EQU * RB(NZ) REQERR * EJECT DRFD01 * * WRITE DELETED DATA, PHYSICAL AND BASIC WRITE ORDERS * LDK A4,1 WRITE DELETED DATA ORDER FD:013 EQU * PHYSICAL WRITE ORDER ADK A4,4 FD:015 EQU * BASIC WRITE ORDER ADK A4,1 CF A5,BIO PREPARATION FOR CIO * IFT MMUPAG=1 IFT CHAN=0 IFT TOSS+IBM=2 LD A1,DWTFIB,A6 RF(Z) FD:018 NOT IBM XIF * IFT MMUPAG=1 IFF CHAN+IBM=0 LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS RF(Z) FD:019 BUFFER IN SYSTEM AREA LDR A7,A3 REQUESTED LENGTH LDR A8,A2 SAVE A2 LDKL A4,BUF DRIVER BUFFER ADDRESS LDR A2,A4 TS -30,A15 SAVE RUNNING TASK MMU TL DWT:PA,A6 LOAD PSEUDO MMU TABLE MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA TL -30,A15 RESTORE MMU FROM STACK LDR A2,A8 RESTORE A2 CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA FD:019 EQU * XIF * IFT TOSS+IBM=2 LD A1,DWTFIB,A6 RF(Z) FD:018 NOT IBM XIF * IFT IBM=1 LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED CF A5,EBCDIC FD:018 EQU * XIF * EJECT DRFD01 * * CF A5,FD:WRITE PERFORME WRITE ANKL A3,/200 CHECK IF WRITE PROTECTED RF(Z) FD:020 LDK A3,/40 INDICATE ERROR ORRS A3,A6 UPDATE TEMPORARY RETURN CODE FD:020 EQU * RF FD:100 GOTO FDMSIO * EJECT DRFD01 * ***************** * * * PHYSICAL READ * * * ***************** * FD:060 CF A5,BIO * IFT MMUPAG=1 IFT CHAN=0 IFT TOSS+IBM=2 LD A1,DWTFIB,A6 RF(Z) FD:070 TOSS DISC LDKL A4,BUF DRIVER BUFFER ADDRESS CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA XIF * FD:070 EQU * IFT MMUPAG=1 IFT CHAN=1 LD A1,DWT:LA,A6 RF(Z) FD:080 BUFFER IN SYSTEM AREA LDKL A4,BUF DRIVER BUFFER ADDRESS CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA XIF * IFT MMUPAG=1 IFT IBM=1 IFT TOSS+CHAN=0 LDKL A4,BUF DRIVER BUFFER ADDRESS CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA XIF * FD:080 EQU * CF A5,FD:REA PERFORM READ * IFT TOSS+IBM=2 LD A1,DWTFIB,A6 RF(Z) FD:090 NOT IBM XIF * IFT IBM=1 IFT MMUPAG=0 LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS XIF * IFT IBM=1 LD A7,DWTRL,A6 REQ. LEN IFT MMUPAG=1 =8 LD A4,DWT:LA,A6 LOGICAL ADDRESS =8 RF(NZ) FD:085 NOT SYSTEM AREA =8 LD A4,DWTBA,A6 BUFFER ADDRESS =8 CF A5,ASC:00 CONVERT EBCDIC-ASCII =8 RF FD:090 =8 FD:085 EQU * =8 XIF =8 IFT IBM=1 =8 CF A5,ASCII =8 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 NUMBER =3 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 =3 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 IFT MMUPAG+CHAN=2 CWK A3,DVBLEN+DVBLEN ABL(G) INCLEN MMU BUFFER TOO SMALL XIF IFT IBM=1 SUK A3,SECLEN ABL(NZ) INCLEN INCORRECT LENGTH ADK A1,43 RF(Z) SQWRITE SEQUENTIAL WRITE ADK A1,4 RF(NZ) FD:DIS ERROR IF NOT SEQUENTIAL READ * EJECT DRFD01 * ******************* * SEQUENTIAL READ * ******************* * ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN LDR* A3,A2 CRN ADK A3,1 CRN+1 ST A3,ECBCW2,A8 STORE CRN+1 IN ECB CWK A3,MAXIBM RF(P) FD:DIS REQUEST ERROR CWR A3,A7 RF(NL) SQR:10 END OF DATA LDK A4,0 BIO READ CF A5,BIOSQ CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 * IFT MMUPAG=0 LD A4,ECBBA,A8 USER BUFFER ADDRESS XIF * IFT IBM=1 LDK A7,SECLEN CF A5,ASCII TRANSFORM TO ASCII * EJECT DRFD01 * * IFT MMUPAG=1 TS -30,A15 SAVE RUNNING TASK'S MMU LD A7,DWTTAB,A6 TTAB ADDRESS TL TTB:MT,A7 LOAD MMU TABLE LDKL A1,BUF DRIVER BUFFER ADDRESS LD A2,DWTUEC,A6 USER ECB ADDRESS EL A2,ECBBA,A2 USER BUFFER ADDRESS LDK A7,SECLEN LENGTH MVSU A7 MOVE SECTOR TO USER BUFFER TL -30,A15 RESTORE MMU TABLE FROM STACK XIF * IFT IBM=1 LDK A1,DWTCRN CF A5,DSPAD ANK A3,1 NOT OPERABLE =7 RF SQW:10 UPDATE CRN * * END OF DATA * SQR:10 LDKL A1,/1000 RETURN CODE RF END:IO * EJECT DRFD01 * ******************* * SEQUENTIAL WRITE * ******************* * SQWRIT EQU * * * CHECK IF END OF EXTENT * LDK A1,DWTEOE CF A5,DSPAD EOE-NO ADDRESS TO A2 ST A7,ECBCW2,A8 STORE EOD IN ECB C. W. CWK A7,MAXIBM RF(P) FD:DIS REQUEST ERROR CWR* A7,A2 RF(G) ENDEOE END OF EXTENT * IFT MMUPAG=1 TS -30,A15 SAVE RUNNING TASK'S MMU LD A7,DWTTAB,A6 TTAB ADDRESS TL TTB:MT,A7 LOAD MMU TABLE LD A1,DWTUEC,A6 USER ECB ADDRESS EL A1,ECBBA,A1 USER BUFFER ADDRESS LDKL A2,BUF DRIVER BUFFER ADDRESS LDK A7,SECLEN LENGTH MVUS A7 MOVE SECTOR TO DRIVER BUFFER TL -30,A15 RESTORE MMU TABLE FROM STACK XIF * IFT IBM=1 LDK A4,5 BIO WRITE CF A5,BIOSQ LDK A7,SECLEN CF A5,EBCDIC TRANSFORM AND MOVE TO BUF * EJECT DRFD01 * * CF A5,FD:WRI SRL A1,3 IF BIT 6 SET THEN =7 ANK A1,/40 SET BIT 9 =7 ORRS A1,A6 UPDATE TEMPORARY RETURN CODE =7 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 ORS A1,DWTST,A6 RECOVERY DONE =1 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 LDKL A4,/7FFE SET UNIT BUSY AND RECOVERY ON =1 ANS A4,DWTST,A6 =1 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 XIF IM DWTST,A6 INDICATE VOLUME NAMES READ * 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 LDKL A3,/7FFE SET UNIT BUSY AND RECOVERY ON =1 ANS A3,DWTST,A6 =6 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 RF(A) IH:00 =2 CIO A3,0,CUADR =2 SST A3,CUADR =2 RB(NA) *-2 =2 LDK A3,1 NOT OPERABLE =2 IH:00 EQU * =2 XIF LD A8,DWTECB,A6 ECB ADDRESS LD A5,DWTA5,A6 STACK POINTER LDR A2,A3 STATUS SLL A2,1 RB(N) FDRE READY INTERRUPT LD A2,DWTRTY,A6 RETRY RF(Z) IH:10 NO CM DWTRTY,A6 RESET RETRY FLAG LDR A1,A3 ANK A1,5 DATA FAULT, NOT OPERABLE RF(Z) IH:10 RETURN CODE OK ORK A3,4 IH:10 EQU * * EJECT DRFD01 * * TRANSFORM RETURN CODE, CU - ECB * ANKL A3,/FF37 RF(Z) IH:80 LDR A1,A3 ANKL A3,/0A05 UNCHANGED BITS ECR A4,A3 ANK A4,8 CHECK IF NO DATA RF(Z) IH:70 NOT NO DATA ORK A3,4 SET BIT 13 ALSO IH:70 EQU * LDR A4,A1 ANKL A4,/0400 BIT 5 SLC A4,7 TO BIT 14 ORR A3,A4 * IFT TOSS+IBM=0 LDR A4,A1 ANKL A4,/2000 BIT 2 SLL A4,1 TO BIT 1 ORR A3,A4 XIF * LDR A4,A1 ANK A4,/20 BIT 10 SLL A4,3 TO BIT 7 ORR A3,A4 ANK A1,/10 BIT 11 SRC A1,5 TO BIT 0 ORR A3,A1 ORRS A3,A6 UPDATE TEMPORARY RETURN CODE ANKL A3,/F7FF IH:80 EQU * LDR A1,A3 RTN A5 * EJECT DRFD01 * ******************************************* * * * S U B R O U T I N E S * * * ******************************************* * ******* * * * BIO * * * ******* * * INPUT: A8 ECB ADDRESS * A4 ORDER * * OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START * A3 NO OF BYTES TO BE TRANSFERED * A4 BUFFER ADDRESS * BIO EQU * LD A1,DWTCW2,A6 GET SECTOR NUMBER SLL A1,3 PUT IN RIGHT BIO POSITION LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO SRC A2,2 ORR A2,A1 COMPLETE BIO ADR A2,A4 COMPLETE BIO WITH ORDER LD A4,DWTBA,A6 BUFFER ADDRESS LD A3,DWTRL,A6 GET REQ. LENGTH RTN A5 * EJECT DRFD01 * * ***************** * * * BIOSQ * * * ***************** * * INPUT: A8 ECB ADDRESS * A4 ORDER * * OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START * A3 NO OF BYTES TO BE TRANSFERED * A4 BUFFER ADDRESS * BIOSQ EQU * IFT IBM=1 LD A2,ECBCW2,A8 GET SECTOR NUMBER SLL A2,3 PUT IN RIGHT BIO POSITION ADR A2,A4 COMPLETE BIO WITH ORDER * IFT MMUPAG=0 LD A4,ECBBA,A8 GET BUFFER ADDRESS XIF * IFT IBM=1 IFT MMUPAG=1 LDKL A4,BUF DRIVER BUFFER ADDRESS XIF * IFT IBM=1 LDK A3,SECLEN REQUESTED LENGTH RTN A5 XIF * EJECT DRFD01 * ****************** * VO:NAM * ****************** * * VO:NAM EQU * IFT TOSS+IBM=2 LDK A3,36 LENGTH XIF * IFT TOSS=1 IFT IBM=0 LDK A3,6 VOLUME NAME LENGTH XIF * IFT TOSS=1 LDK A2,0 BIO LDKL A4,BUF READ TO BUFFER CF A5,FD:REA ANK A3,/17 FATAL ERROR RF(NZ) VOL:40 IFT IBM=1 LD A2,BUF+32 CWK A2,'TO' RF(NE) VOL:10 IBM DISC LD A2,BUF+34 GET NEXT WORD CWK A2,'SS' RF(NZ) VOL:10 IBM DISC VOL:05 EQU * 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+10 READ TO BUF+10FER CF A5,FD:REA ANK A3,/17 RF(NZ) VOL:40 IO ERROR =4 IFT TOSS=1 LD A2,BUF+10 CHECK IF IBM VOLUME LABEL CWK A2,/E5D6 VO RB(NE) VOL:05 NOT IBM LD A2,BUF+12 CWK A2,/D3F1 L1 RB(NE) VOL:05 NOT IBM DISC XIF IFT IBM=1 * =4 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,20 NBR OF CHARACTERS =5 LDKL A4,BUF VOLUME NAME ADDRESS =5 CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII LDKL A2,BUF+14 =5 XIF * EJECT DRFD01 * * VOL:20 EQU * IFF TOSS+IBM=0 LDK A3,/F8 FILE CODE LD A1,DWTST2,A6 RF(NZ) VOL:30 NOT TEST STATUS ORKL A3,/8000 INDICATE NO NEW NVL SET VOL:30 EQU * CF A15,VOLGET VOLUME NAME TO DWT SET NVL LD A8,DWTECB,A6 LDK A3,0 VOL:40 EQU * RTN A5 XIF * IFT IBM=1 EJECT DRFD01 * ********* * ASCII * ********* * * FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO * ASCII CODE * INPUT STRING ADDRESS IS BUF * INPUT: A7 NO OF CHARACTERS * A4 = BUFFER ADDRESS * OUTPUT: A1 CHANGED * A4 = BUFFER ADDRESS * A7 CHANGED * ASCII EQU * IFT MMUPAG=1 LDKL A4,BUF DRIVER BUFFER ADDRESS XIF * IFT IBM=1 ASC:00 EQU * =8 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 11.0 81-04-14 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=» =8, REL 11.0 81-02-27«, t00=0x0000, t01=0x0042}
0x005e…009e Head {h00=0x003c, h01=0x0050, text=» =8, IBM ,MMU AND IO TO SYSTEM AREA NO CODE CONVERSION«, t00=0x0000, t01=0x0062}
0x009e…00be Head {h00=0x001c, h01=0x0050, text=» =7, REL 11.0 81-02-23«, t00=0x0000, t01=0x00a2}
0x00be…00fa Head {h00=0x0038, h01=0x0050, text=» =7, CRN UPDATED EVEN IF ERROR FOR SEQUENTIAL READ«, t00=0x0000, t01=0x00c2}
0x00fa…011a Head {h00=0x001c, h01=0x0050, text=» =6, REL 11.0 81-02-23«, t00=0x0000, t01=0x00fe}
0x011a…0156 Head {h00=0x0038, h01=0x0050, text=» =6, BIT INDICATING VOLUME NAMES READ NOT CORRECT «, t00=0x0000, t01=0x011e}
0x0156…0176 Head {h00=0x001c, h01=0x0050, text=» =5, REL 11.0 81-02-23«, t00=0x0000, t01=0x015a}
0x0176…01a4 Head {h00=0x002a, h01=0x0050, text=» =5, SAME AS 4, NOT CHANGED CORRRECT«, t00=0x0000, t01=0x017a}
0x01a4…01c4 Head {h00=0x001c, h01=0x0050, text=» =4, REL 11.0 81-02-18«, t00=0x0001, t01=0x0018}
0x01c4…01f2 Head {h00=0x002a, h01=0x0050, text=» =4, IBM VOLUME NAME NOT READ TO DWT«, t00=0x0001, t01=0x0038}
0x01f2…0212 Head {h00=0x001c, h01=0x0050, text=» =3, REL 11.0 81-01-27«, t00=0x0001, t01=0x0066}
0x0212…024e Head {h00=0x0038, h01=0x0050, text=» =3, IBM,LOAD ORDER, DATA SET SECTOR NBR IN ECBCW1«, t00=0x0001, t01=0x0086}
0x024e…026e Head {h00=0x001c, h01=0x0050, text=» =2, REL 11.0 81-01-26«, t00=0x0001, t01=0x00c2}
0x026e…02a0 Head {h00=0x002e, h01=0x0050, text=» =2, NOT OP. GIVEN IF WRONGLY STRAPT CU «, t00=0x0001, t01=0x00e2}
0x02a0…02e0 Head {h00=0x003c, h01=0x0050, text=» =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY«, t00=0x0001, t01=0x0114}
0x02e0…02ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0154}
0x02ea…0320 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0001, t01=0x015e}
0x0320…032a (2, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x032a…0350 Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0002, t01=0x000e}
0x0350…035a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0034}
0x035a…0386 Head {h00=0x0028, h01=0x0050, text=»* DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0002, t01=0x003e}
0x0386…0390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006a}
0x0390…039a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x039a…03a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007e}
0x03a4…03ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0088}
0x03ae…03b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0092}
0x03b8…03c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009c}
0x03c2…03f8 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0002, t01=0x00a6}
0x03f8…0402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00dc}
0x0402…040c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e6}
0x040c…0440 Head {h00=0x0030, h01=0x0050, text=»* THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0002, t01=0x00f0}
0x0440…0472 Head {h00=0x002e, h01=0x0050, text=»* CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0002, t01=0x0124}
0x0472…04a6 Head {h00=0x0030, h01=0x0050, text=»* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0002, t01=0x0156}
0x04a6…04d0 Head {h00=0x0026, h01=0x0050, text=»* MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0002, t01=0x018a}
0x04d0…04da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04da…04e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002e}
0x04e4…04fc Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0003, t01=0x0038}
0x04fc…0506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0050}
0x0506…0518 Head {h00=0x000e, h01=0x0050, text=»* ORDERS:«, t00=0x0003, t01=0x005a}
0x0518…0522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006c}
0x0522…053e Head {h00=0x0018, h01=0x0050, text=»* /00 TEST STATUS«, t00=0x0003, t01=0x0076}
0x053e…055c Head {h00=0x001a, h01=0x0050, text=»* /01 PHYSICAL READ«, t00=0x0003, t01=0x0092}
0x055c…05a2 Head {h00=0x0042, h01=0x0050, text=»* /02 SEQUENTIAL READ -IBM DISC ONLY-«, t00=0x0003, t01=0x00b0}
0x05a2…05be Head {h00=0x0018, h01=0x0050, text=»* /05 BASIC WRITE«, t00=0x0003, t01=0x00f6}
0x05be…0606 Head {h00=0x0044, h01=0x0050, text=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- «, t00=0x0003, t01=0x0112}
0x0606…0624 Head {h00=0x001a, h01=0x0050, text=»* /11 PHYSICAL READ«, t00=0x0003, t01=0x015a}
0x0624…0644 Head {h00=0x001c, h01=0x0050, text=»* /15 PHYSICAL WRITE «, t00=0x0003, t01=0x0178}
0x0644…0658 Head {h00=0x0010, h01=0x0050, text=»* /21 OPEN «, t00=0x0004, t01=0x0008}
0x0658…066c Head {h00=0x0010, h01=0x0050, text=»* /22 CLOSE«, t00=0x0004, t01=0x001c}
0x066c…0690 Head {h00=0x0020, h01=0x0050, text=»* /24 WRITE DELETED DATA «, t00=0x0004, t01=0x0030}
0x0690…06a6 Head {h00=0x0012, h01=0x0050, text=»* /26 LOCK «, t00=0x0004, t01=0x0054}
0x06a6…06ee Head {h00=0x0044, h01=0x0050, text=»* /31 REWIND -IBM DISC ONLY- «, t00=0x0004, t01=0x006a}
0x06ee…0704 Head {h00=0x0012, h01=0x0050, text=»* /37 LOAD «, t00=0x0004, t01=0x00b2}
0x0704…071c Head {h00=0x0014, h01=0x0050, text=»* /38 UNLOAD «, t00=0x0004, t01=0x00c8}
0x071c…0726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e0}
0x0726…0742 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS:«, t00=0x0004, t01=0x00ea}
0x0742…074c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0106}
0x074c…0768 Head {h00=0x0018, h01=0x0050, text=»* A5 STACK BASE «, t00=0x0004, t01=0x0110}
0x0768…0784 Head {h00=0x0018, h01=0x0050, text=»* A6 DWT-ADDRESS«, t00=0x0004, t01=0x012c}
0x0784…079a Head {h00=0x0012, h01=0x0050, text=»* A7 ORDER«, t00=0x0004, t01=0x0148}
0x079a…07b6 Head {h00=0x0018, h01=0x0050, text=»* A8 ECB-ADDRESS«, t00=0x0004, t01=0x015e}
0x07b6…07ce Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0004, t01=0x017a}
0x07ce…07d8 (5, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07d8…07ec Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x000e}
0x07ec…0800 Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0005, t01=0x0022}
0x0800…0814 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0005, t01=0x0036}
0x0814…0828 Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0005, t01=0x004a}
0x0828…083c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x005e}
0x083c…0846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0072}
0x0846…086e Head {h00=0x0024, h01=0x0050, text=» ENTRY FDADR ACTIVATION ADDRESS«, t00=0x0005, t01=0x007c}
0x086e…0894 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0005, t01=0x00a4}
0x0894…08b8 Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0005, t01=0x00ca}
0x08b8…08da Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0005, t01=0x00ee}
0x08da…08f2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0005, t01=0x0110}
0x08f2…08fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0128}
0x08fc…0912 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0132}
0x0912…0928 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0005, t01=0x0148}
0x0928…093e Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x015e}
0x093e…0954 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0005, t01=0x0174}
0x0954…096a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x018a}
0x096a…0974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0010}
0x0974…0994 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0006, t01=0x001a}
0x0994…09b0 Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0006, t01=0x003a}
0x09b0…09d4 Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0006, t01=0x0056}
0x09d4…0a02 Head {h00=0x002a, h01=0x0050, text=» EXTRN DISEND PERFORM TENDIO AND TDISP«, t00=0x0006, t01=0x007a}
0x0a02…0a2a Head {h00=0x0024, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAME «, t00=0x0006, t01=0x00a8}
0x0a2a…0a54 Head {h00=0x0026, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME ADDRESS «, t00=0x0006, t01=0x00d0}
0x0a54…0a88 Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL«, t00=0x0006, t01=0x00fa}
0x0a88…0aba Head {h00=0x002e, h01=0x0050, text=» EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED «, t00=0x0006, t01=0x012e}
0x0aba…0ad6 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0006, t01=0x0160}
0x0ad6…0af8 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0006, t01=0x017c}
0x0af8…0b1e Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x0007, t01=0x000e}
0x0b1e…0b46 Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0007, t01=0x0034}
0x0b46…0b72 Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTORD ORDER/INDEX SAVE AREA «, t00=0x0007, t01=0x005c}
0x0b72…0b94 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0007, t01=0x0088}
0x0b94…0bb6 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0007, t01=0x00aa}
0x0bb6…0be0 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0007, t01=0x00cc}
0x0be0…0c00 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0007, t01=0x00f6}
0x0c00…0c2c Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0007, t01=0x0116}
0x0c2c…0c48 Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0007, t01=0x0142}
0x0c48…0c72 Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0007, t01=0x015e}
0x0c72…0c9c Head {h00=0x0026, h01=0x0050, text=» EXTRN PFPOST PWF POST PROC. FLAG «, t00=0x0007, t01=0x0188}
0x0c9c…0cc6 Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0008, t01=0x0022}
0x0cc6…0cf0 Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0008, t01=0x004c}
0x0cf0…0d24 Head {h00=0x0030, h01=0x0050, text=» EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE«, t00=0x0008, t01=0x0076}
0x0d24…0d4c Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0008, t01=0x00aa}
0x0d4c…0d76 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0008, t01=0x00d2}
0x0d76…0da0 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0008, t01=0x00fc}
0x0da0…0dc8 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW1 ECB CONTROL WORD 1«, t00=0x0008, t01=0x0126}
0x0dc8…0df0 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW2 ECB CONTROL WORD 2«, t00=0x0008, t01=0x014e}
0x0df0…0e08 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0008, t01=0x0176}
0x0e08…0e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018e}
0x0e12…0e32 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0008}
0x0e32…0e52 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0028}
0x0e52…0e72 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0009, t01=0x0048}
0x0e72…0e92 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0068}
0x0e92…0eb2 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0088}
0x0eb2…0ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a8}
0x0ebc…0eee Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0009, t01=0x00b2}
0x0eee…0f12 Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0009, t01=0x00e4}
0x0f12…0f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0108}
0x0f1c…0f2e Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0009, t01=0x0112}
0x0f2e…0f42 Head {h00=0x0010, h01=0x0050, text=»CHAN EQU X:A«, t00=0x0009, t01=0x0124}
0x0f42…0f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0138}
0x0f4c…0f82 Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0009, t01=0x0142}
0x0f82…0fae Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0009, t01=0x0178}
0x0fae…0fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0014}
0x0fb8…0fca Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000a, t01=0x001e}
0x0fca…0fde Head {h00=0x0010, h01=0x0050, text=»TOSS EQU X:B«, t00=0x000a, t01=0x0030}
0x0fde…0fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0044}
0x0fe8…101e Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x000a, t01=0x004e}
0x101e…104a Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x000a, t01=0x0084}
0x104a…1054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b0}
0x1054…1066 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000a, t01=0x00ba}
0x1066…107a Head {h00=0x0010, h01=0x0050, text=»IBM EQU X:C «, t00=0x000a, t01=0x00cc}
0x107a…1084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e0}
0x1084…10b6 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000a, t01=0x00ea}
0x10b6…10e4 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000a, t01=0x011c}
0x10e4…10ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014a}
0x10ee…1102 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000a, t01=0x0154}
0x1102…110c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0168}
0x110c…1116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0172}
0x1116…1150 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000a, t01=0x017c}
0x1150…1182 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000b, t01=0x0026}
0x1182…118c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0058}
0x118c…11a0 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000b, t01=0x0062}
0x11a0…11aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0076}
0x11aa…11c2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000b, t01=0x0080}
0x11c2…11cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0098}
0x11cc…11d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a2}
0x11d6…121a Head {h00=0x0040, h01=0x0050, text=»* ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER «, t00=0x000b, t01=0x00ac}
0x121a…1262 Head {h00=0x0044, h01=0x0050, text=»* TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1«, t00=0x000b, t01=0x00f0}
0x1262…126c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0138}
0x126c…127e Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000b, t01=0x0142}
0x127e…1294 Head {h00=0x0012, h01=0x0050, text=»OPCLOS EQU X:D«, t00=0x000b, t01=0x0154}
0x1294…129e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016a}
0x129e…12b6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000b, t01=0x0174}
0x12b6…12c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x018c}
0x12c0…12ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0008}
0x12ca…12e6 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000c, t01=0x0012}
0x12e6…12f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x002e}
0x12f0…12fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0038}
0x12fa…1310 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000c, t01=0x0042}
0x1310…1326 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 256«, t00=0x000c, t01=0x0058}
0x1326…1332 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x006e}
0x1332…133c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007a}
0x133c…1352 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000c, t01=0x0084}
0x1352…1368 Head {h00=0x0012, h01=0x0050, text=»X:E EQU 256 «, t00=0x000c, t01=0x009a}
0x1368…1380 Head {h00=0x0014, h01=0x0050, text=»DVBLEN EQU X:E «, t00=0x000c, t01=0x00b0}
0x1380…138c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00c8}
0x138c…1396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d4}
0x1396…13a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00de}
0x13a0…13bc Head {h00=0x0018, h01=0x0050, text=»* MMU DEVICE INDEX«, t00=0x000c, t01=0x00e8}
0x13bc…13c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0104}
0x13c6…13d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010e}
0x13d0…13e6 Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU 10 «, t00=0x000c, t01=0x0118}
0x13e6…13f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012e}
0x13f0…1408 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000c, t01=0x0138}
0x1408…1412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0150}
0x1412…1428 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000c, t01=0x015a}
0x1428…143e Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0170}
0x143e…1454 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000c, t01=0x0186}
0x1454…146a Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x000d, t01=0x000c}
0x146a…1480 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000d, t01=0x0022}
0x1480…148a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0038}
0x148a…14b4 Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000d, t01=0x0042}
0x14b4…14de Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000d, t01=0x006c}
0x14de…150a Head {h00=0x0028, h01=0x0050, text=»SOPDA EQU /2E S.O.P. DEVICE ADDRESS «, t00=0x000d, t01=0x0096}
0x150a…152e Head {h00=0x0020, h01=0x0050, text=»SECLEN EQU 128 SECTOR LENGTH«, t00=0x000d, t01=0x00c2}
0x152e…1558 Head {h00=0x0026, h01=0x0050, text=»MAXSEC EQU 2002 MAX SECTOR NUMBER «, t00=0x000d, t01=0x00e6}
0x1558…158a Head {h00=0x002e, h01=0x0050, text=»MAXIBM EQU 1923 MAX SECTOR NUMBER IBM DISC«, t00=0x000d, t01=0x0110}
0x158a…15b6 Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000d, t01=0x0142}
0x15b6…15e0 Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000d, t01=0x016e}
0x15e0…1608 Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000e, t01=0x0008}
0x1608…162c Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000e, t01=0x0030}
0x162c…1656 Head {h00=0x0026, h01=0x0050, text=»OPENTI EQU 10 DELAY AT OPEN ORDERS«, t00=0x000e, t01=0x0054}
0x1656…1660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007e}
0x1660…1688 Head {h00=0x0024, h01=0x0050, text=»DIXTAB EQU * DOUBLE INDEX TABLE «, t00=0x000e, t01=0x0088}
0x1688…169c Head {h00=0x0010, h01=0x0050, text=» DATA /0102 «, t00=0x000e, t01=0x00b0}
0x169c…16b0 Head {h00=0x0010, h01=0x0050, text=» DATA /0408 «, t00=0x000e, t01=0x00c4}
0x16b0…16ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d8}
0x16ba…16d2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000e, t01=0x00e2}
0x16d2…16dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00fa}
0x16dc…16ee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0104}
0x16ee…1700 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x000e, t01=0x0116}
0x1700…1712 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000e, t01=0x0128}
0x1712…1724 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x000e, t01=0x013a}
0x1724…1736 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x014c}
0x1736…1740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x015e}
0x1740…1758 Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x000e, t01=0x0168}
0x1758…1784 Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x000e, t01=0x0180}
0x1784…1790 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x001c}
0x1790…179a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0028}
0x179a…17ae Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000f, t01=0x0032}
0x17ae…17c0 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x000f, t01=0x0046}
0x17c0…17e6 Head {h00=0x0022, h01=0x0050, text=» DATA 0 INDICATE NO MMU BUFFER«, t00=0x000f, t01=0x0058}
0x17e6…17f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x007e}
0x17f2…17fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x008a}
0x17fc…181e Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000f, t01=0x0094}
0x181e…1848 Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000f, t01=0x00b6}
0x1848…186e Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000f, t01=0x00e0}
0x186e…1878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0106}
0x1878…1890 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x000f, t01=0x0110}
0x1890…189a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0128}
0x189a…18b2 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000f, t01=0x0132}
0x18b2…18ca Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000f, t01=0x014a}
0x18ca…18e2 Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x000f, t01=0x0162}
0x18e2…18fa Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000f, t01=0x017a}
0x18fa…1912 (16, 0, 400) Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0010, t01=0x0004}
0x1912…191c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001c}
0x191c…1930 Head {h00=0x0010, h01=0x0050, text=»TESTST EQU *«, t00=0x0010, t01=0x0026}
0x1930…1948 Head {h00=0x0014, h01=0x0050, text=» IFF IBM+TOSS=0 «, t00=0x0010, t01=0x003a}
0x1948…195e Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x0010, t01=0x0052}
0x195e…1984 Head {h00=0x0022, h01=0x0050, text=» STR A1,A6 SAVE NVL INDICATOR «, t00=0x0010, t01=0x0068}
0x1984…1990 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x008e}
0x1990…199a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009a}
0x199a…19ba Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x0010, t01=0x00a4}
0x19ba…19d0 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0010, t01=0x00c4}
0x19d0…19e2 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0010, t01=0x00da}
0x19e2…1a0a Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DIS:EN DISC NOT OPERABLE«, t00=0x0010, t01=0x00ec}
0x1a0a…1a38 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,/7FFF RESET REQUEST ERROR BIT«, t00=0x0010, t01=0x0114}
0x1a38…1a4c Head {h00=0x0010, h01=0x0050, text=» ANRS A2,A6 «, t00=0x0010, t01=0x0142}
0x1a4c…1a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0156}
0x1a56…1a6e Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0010, t01=0x0160}
0x1a6e…1a94 Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x0010, t01=0x0178}
0x1a94…1ac4 Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTORD,A6 RESTORE INDEX AND ORDER«, t00=0x0011, t01=0x000e}
0x1ac4…1adc Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTOR,A6 «, t00=0x0011, t01=0x003e}
0x1adc…1af2 Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLNAM«, t00=0x0011, t01=0x0056}
0x1af2…1b0c Head {h00=0x0016, h01=0x0050, text=» RF FORM70 END:IO «, t00=0x0011, t01=0x006c}
0x1b0c…1b18 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0086}
0x1b18…1b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0092}
0x1b22…1b3a Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0011, t01=0x009c}
0x1b3a…1b4e Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x0011, t01=0x00b4}
0x1b4e…1b5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00c8}
0x1b5a…1b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d4}
0x1b64…1b7a Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0011, t01=0x00de}
0x1b7a…1b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f4}
0x1b84…1ba2 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0011, t01=0x00fe}
0x1ba2…1bc0 Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x0011, t01=0x011c}
0x1bc0…1bde Head {h00=0x001a, h01=0x0050, text=»* FORMAT VOLUME *«, t00=0x0011, t01=0x013a}
0x1bde…1bfc Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0158}
0x1bfc…1c1a Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0011, t01=0x0176}
0x1c1a…1c24 (18, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0004}
0x1c24…1c38 Head {h00=0x0010, h01=0x0050, text=»FORMAT EQU *«, t00=0x0012, t01=0x000e}
0x1c38…1c4e Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x0012, t01=0x0022}
0x1c4e…1c60 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0012, t01=0x0038}
0x1c60…1c90 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) DIS:EN ERROR: NEW VOLUME LOADED «, t00=0x0012, t01=0x004a}
0x1c90…1cb4 Head {h00=0x0020, h01=0x0050, text=» LDK A2,36 CLEAR VOLUME NAME«, t00=0x0012, t01=0x007a}
0x1cb4…1cc8 Head {h00=0x0010, h01=0x0050, text=»FORM10 EQU *«, t00=0x0012, t01=0x009e}
0x1cc8…1cda Head {h00=0x000e, h01=0x0050, text=» CM BUF,A2«, t00=0x0012, t01=0x00b2}
0x1cda…1cec Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0012, t01=0x00c4}
0x1cec…1d02 Head {h00=0x0012, h01=0x0050, text=» RB(NN) FORM10«, t00=0x0012, t01=0x00d6}
0x1d02…1d34 Head {h00=0x002e, h01=0x0050, text=» CF A15,VOLCLR CLEAR VOLUME NAME FROM DWT «, t00=0x0012, t01=0x00ec}
0x1d34…1d4a Head {h00=0x0012, h01=0x0050, text=» LDK A2,1 BIO «, t00=0x0012, t01=0x011e}
0x1d4a…1d64 Head {h00=0x0016, h01=0x0050, text=» LDK A3,36 LENGTH «, t00=0x0012, t01=0x0134}
0x1d64…1d8e Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF VOLUME LABEL ADDRESS «, t00=0x0012, t01=0x014e}
0x1d8e…1da6 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW1,A8«, t00=0x0012, t01=0x0178}
0x1da6…1dc6 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FORM50 IBM DISC «, t00=0x0012, t01=0x0190}
0x1dc6…1df6 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,'TO' WRITE TOSS IN VOLUME LABEL«, t00=0x0013, t01=0x0020}
0x1df6…1e0c Head {h00=0x0012, h01=0x0050, text=» ST A1,BUF+32 «, t00=0x0013, t01=0x0050}
0x1e0c…1e22 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,'SS' «, t00=0x0013, t01=0x0066}
0x1e22…1e38 Head {h00=0x0012, h01=0x0050, text=» ST A1,BUF+34 «, t00=0x0013, t01=0x007c}
0x1e38…1e4a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0013, t01=0x0092}
0x1e4a…1e70 Head {h00=0x0022, h01=0x0050, text=» C1 A1,DWTA3,A6 INDICATE TOSS «, t00=0x0013, t01=0x00a4}
0x1e70…1e8a Head {h00=0x0016, h01=0x0050, text=» ANS A1,DWTLAB,A6 «, t00=0x0013, t01=0x00ca}
0x1e8a…1e96 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00e4}
0x1e96…1ea8 Head {h00=0x000e, h01=0x0050, text=» RF FORM60«, t00=0x0013, t01=0x00f0}
0x1ea8…1eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0102}
0x1eb2…1ec8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0013, t01=0x010c}
0x1ec8…1ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0122}
0x1ed2…1edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012c}
0x1edc…1ef0 Head {h00=0x0010, h01=0x0050, text=»FORM50 EQU *«, t00=0x0013, t01=0x0136}
0x1ef0…1f14 Head {h00=0x0020, h01=0x0050, text=» CF A5,FD:WRI WRITE SECTOR 0«, t00=0x0013, t01=0x014a}
0x1f14…1f38 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0013, t01=0x016e}
0x1f38…1f5c (20, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/E5D6 VO IN EBCDIC «, t00=0x0014, t01=0x0004}
0x1f5c…1f6e Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x0014, t01=0x0028}
0x1f6e…1f92 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/D3F1 L1 IN EBCDIC «, t00=0x0014, t01=0x003a}
0x1f92…1fa6 Head {h00=0x0010, h01=0x0050, text=» ST A1,BUF+2«, t00=0x0014, t01=0x005e}
0x1fa6…1fb8 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0014, t01=0x0072}
0x1fb8…1fdc Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTA3,A6 INDICATE IBM«, t00=0x0014, t01=0x0084}
0x1fdc…1ff6 Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTLAB,A6 «, t00=0x0014, t01=0x00a8}
0x1ff6…2002 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00c2}
0x2002…201a Head {h00=0x0014, h01=0x0050, text=» LDK A2,/31 BIO «, t00=0x0014, t01=0x00ce}
0x201a…2034 Head {h00=0x0016, h01=0x0050, text=» LDK A3,36 LENGTH «, t00=0x0014, t01=0x00e6}
0x2034…2048 Head {h00=0x0010, h01=0x0050, text=»FORM60 EQU *«, t00=0x0014, t01=0x0100}
0x2048…205e Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0014, t01=0x0114}
0x205e…2072 Head {h00=0x0010, h01=0x0050, text=»FORM70 EQU *«, t00=0x0014, t01=0x012a}
0x2072…2086 Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x0014, t01=0x013e}
0x2086…2090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0152}
0x2090…20a8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0014, t01=0x015c}
0x20a8…20b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0174}
0x20b2…20c8 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0014, t01=0x017e}
0x20c8…20de (21, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0004}
0x20de…20f4 Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x0015, t01=0x001a}
0x20f4…210a Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0030}
0x210a…2120 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0015, t01=0x0046}
0x2120…212a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005c}
0x212a…214e Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x0015, t01=0x0066}
0x214e…2164 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0015, t01=0x008a}
0x2164…2178 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0015, t01=0x00a0}
0x2178…218e Head {h00=0x0012, h01=0x0050, text=» CM BUFFLG,A6 «, t00=0x0015, t01=0x00b4}
0x218e…219a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00ca}
0x219a…21a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d6}
0x21a4…21cc Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOR,A6 INDEX AND ORDER «, t00=0x0015, t01=0x00e0}
0x21cc…2200 Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES «, t00=0x0015, t01=0x0108}
0x2200…222c Head {h00=0x0028, h01=0x0050, text=» CMR A6 RESET TEMPORARY RETURN CODE «, t00=0x0015, t01=0x013c}
0x222c…223e Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0015, t01=0x0168}
0x223e…2260 Head {h00=0x001e, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX «, t00=0x0015, t01=0x017a}
0x2260…226a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000c}
0x226a…2280 Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0016, t01=0x0016}
0x2280…228a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x002c}
0x228a…22b4 Head {h00=0x0026, h01=0x0050, text=»* CHECK IF OPEN OR CLOSE ORDER «, t00=0x0016, t01=0x0036}
0x22b4…22be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0060}
0x22be…22d6 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A7 ORDER«, t00=0x0016, t01=0x006a}
0x22d6…22ea Head {h00=0x0010, h01=0x0050, text=» SUK A1,/21 «, t00=0x0016, t01=0x0082}
0x22ea…2302 Head {h00=0x0014, h01=0x0050, text=» RF(Z) OPEN OPEN«, t00=0x0016, t01=0x0096}
0x2302…2314 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0016, t01=0x00ae}
0x2314…233a Head {h00=0x0022, h01=0x0050, text=» RF(NZ) FD:ORD NOT CLOSE ORDER«, t00=0x0016, t01=0x00c0}
0x233a…2344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e6}
0x2344…2352 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00f0}
0x2352…235c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fe}
0x235c…236e Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0016, t01=0x0108}
0x236e…2380 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0016, t01=0x011a}
0x2380…2392 Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x0016, t01=0x012c}
0x2392…23a4 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0016, t01=0x013e}
0x23a4…23b6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0016, t01=0x0150}
0x23b6…23c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0162}
0x23c0…23f8 Head {h00=0x0034, h01=0x0050, text=»* CLOSE IS PERFORMED BY WRITING A ONE TO BIT «, t00=0x0016, t01=0x016c}
0x23f8…242e Head {h00=0x0032, h01=0x0050, text=»* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER «, t00=0x0017, t01=0x0014}
0x242e…2438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004a}
0x2438…245e Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 MASK FOR BIT 0 «, t00=0x0017, t01=0x0054}
0x245e…2488 Head {h00=0x0026, h01=0x0050, text=» ORS A1,SPDLCI SET OPEN/CLOSE BIT «, t00=0x0017, t01=0x007a}
0x2488…249a Head {h00=0x000e, h01=0x0050, text=» RF OPEN10«, t00=0x0017, t01=0x00a4}
0x249a…24a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b6}
0x24a4…24b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00c0}
0x24b2…24bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ce}
0x24bc…24cc Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0017, t01=0x00d8}
0x24cc…24dc Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x00e8}
0x24dc…24ec Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0017, t01=0x00f8}
0x24ec…24fc Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0017, t01=0x0108}
0x24fc…250c Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0017, t01=0x0118}
0x250c…2516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0128}
0x2516…254e Head {h00=0x0034, h01=0x0050, text=»* OPEN IS PERFORMED BY WRITING A ZERO TO BIT «, t00=0x0017, t01=0x0132}
0x254e…2584 Head {h00=0x0032, h01=0x0050, text=»* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER.«, t00=0x0017, t01=0x016a}
0x2584…258e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0010}
0x258e…25a0 Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0018, t01=0x001a}
0x25a0…25c6 Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTTP2,A6 TIMER POINTER«, t00=0x0018, t01=0x002c}
0x25c6…25ea Head {h00=0x0020, h01=0x0050, text=» RF(NZ) OPEN20 TIMER ACTIVE «, t00=0x0018, t01=0x0052}
0x25ea…2610 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/7FFF MASK FOR BIT 0 «, t00=0x0018, t01=0x0076}
0x2610…263c Head {h00=0x0028, h01=0x0050, text=» ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT «, t00=0x0018, t01=0x009c}
0x263c…2646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c8}
0x2646…265a Head {h00=0x0010, h01=0x0050, text=»OPEN10 EQU *«, t00=0x0018, t01=0x00d2}
0x265a…268e Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0018, t01=0x00e6}
0x268e…26b4 Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA OPEN FD DRIVE «, t00=0x0018, t01=0x011a}
0x26b4…26be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0140}
0x26be…26ec Head {h00=0x002a, h01=0x0050, text=»* WAIT FOR DRIVE TO BECOME OPERABLE«, t00=0x0018, t01=0x014a}
0x26ec…26f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0178}
0x26f6…2722 Head {h00=0x0028, h01=0x0050, text=» LDK A4,DWTTP2 TIMER POINTER OFFSET «, t00=0x0018, t01=0x0182}
0x2722…274e Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 A4:=TIMER POINTER ADDRESS«, t00=0x0019, t01=0x001e}
0x274e…276e Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDR«, t00=0x0019, t01=0x004a}
0x276e…278a Head {h00=0x0018, h01=0x0050, text=» CF A15,SETIMP WAIT «, t00=0x0019, t01=0x006a}
0x278a…27bc Head {h00=0x002e, h01=0x0050, text=» DATA OPENRE,OPENTI START ADDR, WAIT TIME «, t00=0x0019, t01=0x0086}
0x27bc…27d0 Head {h00=0x0010, h01=0x0050, text=»OPEN20 EQU *«, t00=0x0019, t01=0x00b8}
0x27d0…27e8 Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x0019, t01=0x00cc}
0x27e8…27f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00e4}
0x27f2…2806 Head {h00=0x0010, h01=0x0050, text=»OPENRE EQU *«, t00=0x0019, t01=0x00ee}
0x2806…2826 Head {h00=0x001c, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDR «, t00=0x0019, t01=0x0102}
0x2826…2856 Head {h00=0x002c, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER RUNNING «, t00=0x0019, t01=0x0122}
0x2856…2874 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0019, t01=0x0152}
0x2874…28a0 Head {h00=0x0028, h01=0x0050, text=» RF DIS:EN PERFORM TENDIO AND TDISP «, t00=0x0019, t01=0x0170}
0x28a0…28ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x000c}
0x28ac…28b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0018}
0x28b6…28c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0022}
0x28c4…28ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0030}
0x28ce…28f8 Head {h00=0x0026, h01=0x0050, text=»* PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x001a, t01=0x003a}
0x28f8…2902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0064}
0x2902…2916 Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x001a, t01=0x006e}
0x2916…292e Head {h00=0x0014, h01=0x0050, text=» LC A2,DIXTAB,A3«, t00=0x001a, t01=0x0082}
0x292e…295e Head {h00=0x002c, h01=0x0050, text=» SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK «, t00=0x001a, t01=0x009a}
0x295e…2968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ca}
0x2968…2980 Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x001a, t01=0x00d4}
0x2980…2998 Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTLAB,A6«, t00=0x001a, t01=0x00ec}
0x2998…29c4 Head {h00=0x0028, h01=0x0050, text=» SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM«, t00=0x001a, t01=0x0104}
0x29c4…29d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0130}
0x29d0…29da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x013c}
0x29da…29fe Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x001a, t01=0x0146}
0x29fe…2a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x016a}
0x2a08…2a1e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x001a, t01=0x0174}
0x2a1e…2a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018a}
0x2a28…2a32 (27, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0004}
0x2a32…2a44 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x001b, t01=0x000e}
0x2a44…2a66 Head {h00=0x001e, h01=0x0050, text=» RB(Z) TESTST TEST STATUS «, t00=0x001b, t01=0x0020}
0x2a66…2a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0042}
0x2a70…2a82 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x001b, t01=0x004c}
0x2a82…2a94 Head {h00=0x000e, h01=0x0050, text=» SUK A3,31«, t00=0x001b, t01=0x005e}
0x2a94…2ab8 Head {h00=0x0020, h01=0x0050, text=» RB(Z) FORMAT FORMAT VOLUME «, t00=0x001b, t01=0x0070}
0x2ab8…2aca Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x001b, t01=0x0094}
0x2aca…2af0 Head {h00=0x0022, h01=0x0050, text=» RF(N) INTEST READ/WRITE ORDER«, t00=0x001b, t01=0x00a6}
0x2af0…2b02 Head {h00=0x000e, h01=0x0050, text=» SUK A3,18«, t00=0x001b, t01=0x00cc}
0x2b02…2b24 Head {h00=0x001e, h01=0x0050, text=» ABL(NP) LOAD LOAD/UNLOAD «, t00=0x001b, t01=0x00de}
0x2b24…2b30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0100}
0x2b30…2b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x010c}
0x2b3a…2b4c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001b, t01=0x0116}
0x2b4c…2b5e Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001b, t01=0x0128}
0x2b5e…2b7e Head {h00=0x001c, h01=0x0050, text=» RF(Z) INTEST BASIC READ«, t00=0x001b, t01=0x013a}
0x2b7e…2b90 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001b, t01=0x015a}
0x2b90…2bb6 Head {h00=0x0022, h01=0x0050, text=» RF(Z) IBMCHK SEQUENTIAL READ «, t00=0x001b, t01=0x016c}
0x2bb6…2bc8 (28, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x001c, t01=0x0004}
0x2bc8…2bea Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTEST BASIC WRITE «, t00=0x001c, t01=0x0016}
0x2bea…2bfc Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001c, t01=0x0038}
0x2bfc…2c22 Head {h00=0x0022, h01=0x0050, text=» RF(Z) IBMCHK SEQUENTIAL WRITE«, t00=0x001c, t01=0x004a}
0x2c22…2c34 Head {h00=0x000e, h01=0x0050, text=» SUK A3,25«, t00=0x001c, t01=0x0070}
0x2c34…2c58 Head {h00=0x0020, h01=0x0050, text=» RB(Z) FORMAT FORMAT VOLUME «, t00=0x001c, t01=0x0082}
0x2c58…2c6a Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x001c, t01=0x00a6}
0x2c6a…2c94 Head {h00=0x0026, h01=0x0050, text=» RF(N) INTEST PHYSICAL READ/WRITE «, t00=0x001c, t01=0x00b8}
0x2c94…2ca6 Head {h00=0x000e, h01=0x0050, text=» SUK A3,11«, t00=0x001c, t01=0x00e2}
0x2ca6…2cc2 Head {h00=0x0018, h01=0x0050, text=» RF(Z) IBMCHK REWIND«, t00=0x001c, t01=0x00f4}
0x2cc2…2cd4 Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x001c, t01=0x0110}
0x2cd4…2cf6 Head {h00=0x001e, h01=0x0050, text=» ABL(NP) LOAD LOAD/UNLOAD «, t00=0x001c, t01=0x0122}
0x2cf6…2d02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0144}
0x2d02…2d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0150}
0x2d0c…2d20 Head {h00=0x0010, h01=0x0050, text=»IBMCHK EQU *«, t00=0x001c, t01=0x015a}
0x2d20…2d38 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001c, t01=0x016e}
0x2d38…2d50 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFIB,A6«, t00=0x001c, t01=0x0186}
0x2d50…2d7a Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) IBMDSK IBM DISC HANDLING «, t00=0x001d, t01=0x000e}
0x2d7a…2d86 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0038}
0x2d86…2d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0044}
0x2d90…2da4 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=0 «, t00=0x001d, t01=0x004e}
0x2da4…2db6 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001d, t01=0x0062}
0x2db6…2ddc Head {h00=0x0022, h01=0x0050, text=» ABL IBMDSK IBM DISC HANDLING «, t00=0x001d, t01=0x0074}
0x2ddc…2de8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x009a}
0x2de8…2df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a6}
0x2df2…2e08 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x001d, t01=0x00b0}
0x2e08…2e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c6}
0x2e12…2e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d0}
0x2e1c…2e44 Head {h00=0x0024, h01=0x0050, text=»REQERR ABL DISIOE REQUEST ERROR «, t00=0x001d, t01=0x00da}
0x2e44…2e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0102}
0x2e4e…2e82 Head {h00=0x0030, h01=0x0050, text=»INCLEN EQU * INCORRECT REQUESTED LENGTH EXIT«, t00=0x001d, t01=0x010c}
0x2e82…2ea4 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8008 RETURN CODE«, t00=0x001d, t01=0x0140}
0x2ea4…2eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0162}
0x2eae…2ec2 Head {h00=0x0010, h01=0x0050, text=»DIS:EN EQU *«, t00=0x001d, t01=0x016c}
0x2ec2…2ef4 Head {h00=0x002e, h01=0x0050, text=» ABL DISEND PERFORM TENDIO AND GO TO TDISP«, t00=0x001d, t01=0x0180}
0x2ef4…2efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0022}
0x2efe…2f14 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x001e, t01=0x002c}
0x2f14…2f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0042}
0x2f1e…2f3e Head {h00=0x001c, h01=0x0050, text=»* INPUT PARAMETER CHECK «, t00=0x001e, t01=0x004c}
0x2f3e…2f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x006c}
0x2f48…2f5c Head {h00=0x0010, h01=0x0050, text=»INTEST EQU *«, t00=0x001e, t01=0x0076}
0x2f5c…2f74 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x001e, t01=0x008a}
0x2f74…2fa6 Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x001e, t01=0x00a2}
0x2fa6…2fb8 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x001e, t01=0x00d4}
0x2fb8…2fe0 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) DIS:EN NEW VOLUME LOADED«, t00=0x001e, t01=0x00e6}
0x2fe0…2fec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x010e}
0x2fec…2ff6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x011a}
0x2ff6…300e Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBRL,A8 «, t00=0x001e, t01=0x0124}
0x300e…3044 Head {h00=0x0032, h01=0x0050, text=» RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x001e, t01=0x013c}
0x3044…305e Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x001e, t01=0x0172}
0x305e…3092 Head {h00=0x0030, h01=0x0050, text=» LDKL A2,DVBLEN+DVBLEN CHECK MMU BUFFER SIZE«, t00=0x001e, t01=0x018c}
0x3092…30a6 Head {h00=0x0010, h01=0x0050, text=» CWK A2,512 «, t00=0x001f, t01=0x0030}
0x30a6…30c8 Head {h00=0x001e, h01=0x0050, text=» RF(NL) INTES3 SUFFICIENT «, t00=0x001f, t01=0x0044}
0x30c8…30da Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x001f, t01=0x0066}
0x30da…3104 Head {h00=0x0026, h01=0x0050, text=» RB(G) INCLEN MMU BUFFER TOO SMALL«, t00=0x001f, t01=0x0078}
0x3104…3118 Head {h00=0x0010, h01=0x0050, text=»INTES3 EQU *«, t00=0x001f, t01=0x00a2}
0x3118…3124 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00b6}
0x3124…3150 Head {h00=0x0028, h01=0x0050, text=» SRC A3,7 NUMBER OF PHYSICAL SECTORS«, t00=0x001f, t01=0x00c2}
0x3150…3186 Head {h00=0x0032, h01=0x0050, text=» RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x001f, t01=0x00ee}
0x3186…319c Head {h00=0x0012, h01=0x0050, text=» CWK A3,/01FF «, t00=0x001f, t01=0x0124}
0x319c…31d2 Head {h00=0x0032, h01=0x0050, text=» RB(G) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x001f, t01=0x013a}
0x31d2…31fc Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x001f, t01=0x0170}
0x31fc…3206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x000a}
0x3206…321e Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x0020, t01=0x0014}
0x321e…3236 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFIB,A6«, t00=0x0020, t01=0x002c}
0x3236…3256 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) INTES5 IBM-DISC «, t00=0x0020, t01=0x0044}
0x3256…3262 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0064}
0x3262…326c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0070}
0x326c…3280 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0020, t01=0x007a}
0x3280…3292 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0020, t01=0x008e}
0x3292…32cc Head {h00=0x0036, h01=0x0050, text=» SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS«, t00=0x0020, t01=0x00a0}
0x32cc…3302 Head {h00=0x0032, h01=0x0050, text=» RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0020, t01=0x00da}
0x3302…333c Head {h00=0x0036, h01=0x0050, text=» SLL A2,1 TRANSFER TOSS-SEC. NO TOPHYSICAL SEC. NO«, t00=0x0020, t01=0x0110}
0x333c…3346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x014a}
0x3346…335c Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0020, t01=0x0154}
0x335c…3366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016a}
0x3366…3370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0174}
0x3370…3384 Head {h00=0x0010, h01=0x0050, text=»INTES5 EQU *«, t00=0x0020, t01=0x017e}
0x3384…3390 (33, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0004}
0x3390…33be Head {h00=0x002a, h01=0x0050, text=» LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER«, t00=0x0021, t01=0x0010}
0x33be…33e2 Head {h00=0x0020, h01=0x0050, text=» RB(N) REQERR REQUEST ERROR «, t00=0x0021, t01=0x003e}
0x33e2…33fa Head {h00=0x0014, h01=0x0050, text=» SUKL A4,MAXSEC «, t00=0x0021, t01=0x0062}
0x33fa…341e Head {h00=0x0020, h01=0x0050, text=» RB(NN) REQERR REQUEST ERROR«, t00=0x0021, t01=0x007a}
0x341e…3430 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0021, t01=0x009e}
0x3430…3456 Head {h00=0x0022, h01=0x0050, text=» RB(P) INCLEN INCORRECT LENGTH«, t00=0x0021, t01=0x00b0}
0x3456…3486 Head {h00=0x002c, h01=0x0050, text=» ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS «, t00=0x0021, t01=0x00d6}
0x3486…34bc Head {h00=0x0032, h01=0x0050, text=» ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC NO«, t00=0x0021, t01=0x0106}
0x34bc…34de Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBBA,A8 GET ECBBA «, t00=0x0021, t01=0x013c}
0x34de…350e Head {h00=0x002c, h01=0x0050, text=» ST A2,DWTBA,A6 SAVE ECB BUFFER ADDRESS «, t00=0x0021, t01=0x015e}
0x350e…3518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x018e}
0x3518…352e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0022, t01=0x0008}
0x352e…3540 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A8«, t00=0x0022, t01=0x001e}
0x3540…3554 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x0022, t01=0x0030}
0x3554…358c Head {h00=0x0034, h01=0x0050, text=» ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS«, t00=0x0022, t01=0x0044}
0x358c…3598 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x007c}
0x3598…35a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0088}
0x35a2…35b8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0022, t01=0x0092}
0x35b8…35c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a8}
0x35c2…35e6 Head {h00=0x0020, h01=0x0050, text=»* MULTIPLE SECTOR IO ENTRY«, t00=0x0022, t01=0x00b2}
0x35e6…35f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d6}
0x35f0…3604 Head {h00=0x0010, h01=0x0050, text=»FD:000 EQU *«, t00=0x0022, t01=0x00e0}
0x3604…361a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0022, t01=0x00f4}
0x361a…362e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0022, t01=0x010a}
0x362e…3646 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWT:BF,A6«, t00=0x0022, t01=0x011e}
0x3646…366e Head {h00=0x0024, h01=0x0050, text=» ST A2,BUFFLG,A6 SET BUFFER FLAG«, t00=0x0022, t01=0x0136}
0x366e…367a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x015e}
0x367a…3684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x016a}
0x3684…3698 Head {h00=0x0010, h01=0x0050, text=» LDKL A2,512«, t00=0x0022, t01=0x0174}
0x3698…36aa Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0022, t01=0x0188}
0x36aa…36bc Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0023, t01=0x000a}
0x36bc…36e6 Head {h00=0x0026, h01=0x0050, text=» RF(NN) FD:005 FOUR PHYS. SEC. IO «, t00=0x0023, t01=0x001c}
0x36e6…36f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0046}
0x36f0…370a Head {h00=0x0016, h01=0x0050, text=»FD:003 SUK A2,128 «, t00=0x0023, t01=0x0050}
0x370a…371c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x006a}
0x371c…372e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0023, t01=0x007c}
0x372e…3744 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:003«, t00=0x0023, t01=0x008e}
0x3744…374e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a4}
0x374e…3762 Head {h00=0x0010, h01=0x0050, text=»FD:005 EQU *«, t00=0x0023, t01=0x00ae}
0x3762…3794 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC«, t00=0x0023, t01=0x00c2}
0x3794…37c0 Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO«, t00=0x0023, t01=0x00f4}
0x37c0…37f2 Head {h00=0x002e, h01=0x0050, text=» ST A3,DWTNOS,A6 UPDATE NUMBER OF SECTORS «, t00=0x0023, t01=0x0120}
0x37f2…37fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0152}
0x37fc…3814 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0023, t01=0x015c}
0x3814…381e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0174}
0x381e…3828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017e}
0x3828…383e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0023, t01=0x0188}
0x383e…3856 Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0024, t01=0x000e}
0x3856…387c Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTBA,A6 BUFFER ADDRESS«, t00=0x0024, t01=0x0026}
0x387c…3894 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWT:BF,A6«, t00=0x0024, t01=0x004c}
0x3894…38c4 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA«, t00=0x0024, t01=0x0064}
0x38c4…38d6 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0024, t01=0x0094}
0x38d6…38ec Head {h00=0x0012, h01=0x0050, text=» RF(NN) FD:009«, t00=0x0024, t01=0x00a6}
0x38ec…3926 Head {h00=0x0036, h01=0x0050, text=» AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED «, t00=0x0024, t01=0x00bc}
0x3926…393e Head {h00=0x0014, h01=0x0050, text=» RF(N) FD:009 NO«, t00=0x0024, t01=0x00f6}
0x393e…3948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x010e}
0x3948…395e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0024, t01=0x0118}
0x395e…3968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012e}
0x3968…3972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0138}
0x3972…3986 Head {h00=0x0010, h01=0x0050, text=»FD:007 EQU *«, t00=0x0024, t01=0x0142}
0x3986…3998 Head {h00=0x000e, h01=0x0050, text=» ECR A3,A2«, t00=0x0024, t01=0x0156}
0x3998…39ac Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x0024, t01=0x0168}
0x39ac…39be Head {h00=0x000e, h01=0x0050, text=» SRL A3,2 «, t00=0x0024, t01=0x017c}
0x39be…39d0 Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0024, t01=0x018e}
0x39d0…39e2 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A3«, t00=0x0025, t01=0x0010}
0x39e2…3a18 Head {h00=0x0032, h01=0x0050, text=» SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS«, t00=0x0025, t01=0x0022}
0x3a18…3a44 Head {h00=0x0028, h01=0x0050, text=» ADK A1,/4 CREATE ONE MORE MMU ENTRY«, t00=0x0025, t01=0x0058}
0x3a44…3a5e Head {h00=0x0016, h01=0x0050, text=» SC A1,DWT:PA+2,A6«, t00=0x0025, t01=0x0084}
0x3a5e…3a74 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/FFF «, t00=0x0025, t01=0x009e}
0x3a74…3a86 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0025, t01=0x00b4}
0x3a86…3ab2 Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x0025, t01=0x00c6}
0x3ab2…3abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f2}
0x3abc…3af8 Head {h00=0x0038, h01=0x0050, text=»FD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x0025, t01=0x00fc}
0x3af8…3b04 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0138}
0x3b04…3b0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0144}
0x3b0e…3b30 Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 PREPARE FOR BIO «, t00=0x0025, t01=0x014e}
0x3b30…3b48 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x0025, t01=0x0170}
0x3b48…3b62 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/3F ORDER «, t00=0x0025, t01=0x0188}
0x3b62…3b74 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0026, t01=0x0012}
0x3b74…3b94 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:060 BASIC READ«, t00=0x0026, t01=0x0024}
0x3b94…3ba6 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0026, t01=0x0044}
0x3ba6…3bc8 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:015 BASIC WRITE «, t00=0x0026, t01=0x0056}
0x3bc8…3bda Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0026, t01=0x0078}
0x3bda…3bfe Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:060 PHYSICAL READ «, t00=0x0026, t01=0x008a}
0x3bfe…3c10 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0026, t01=0x00ae}
0x3c10…3c34 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:013 PHYSICAL WRITE«, t00=0x0026, t01=0x00c0}
0x3c34…3c62 Head {h00=0x002a, h01=0x0050, text=» SUK A1,15 CHECK IF WRITE DELETED DATA«, t00=0x0026, t01=0x00e4}
0x3c62…3c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0112}
0x3c6c…3c80 Head {h00=0x0010, h01=0x0050, text=»RQ:ERR EQU *«, t00=0x0026, t01=0x011c}
0x3c80…3c96 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) REQERR«, t00=0x0026, t01=0x0130}
0x3c96…3ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0146}
0x3ca0…3cb8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0026, t01=0x0150}
0x3cb8…3cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0168}
0x3cc2…3d02 Head {h00=0x003c, h01=0x0050, text=»* WRITE DELETED DATA, PHYSICAL AND BASIC WRITE ORDERS «, t00=0x0026, t01=0x0172}
0x3d02…3d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0022}
0x3d0c…3d36 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 WRITE DELETED DATA ORDER«, t00=0x0027, t01=0x002c}
0x3d36…3d60 Head {h00=0x0026, h01=0x0050, text=»FD:013 EQU * PHYSICAL WRITE ORDER «, t00=0x0027, t01=0x0056}
0x3d60…3d72 Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x0027, t01=0x0080}
0x3d72…3d98 Head {h00=0x0022, h01=0x0050, text=»FD:015 EQU * BASIC WRITE ORDER«, t00=0x0027, t01=0x0092}
0x3d98…3daa Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0027, t01=0x00b8}
0x3daa…3dd0 Head {h00=0x0022, h01=0x0050, text=» CF A5,BIO PREPARATION FOR CIO«, t00=0x0027, t01=0x00ca}
0x3dd0…3dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f0}
0x3dda…3df0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0027, t01=0x00fa}
0x3df0…3e04 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0027, t01=0x0110}
0x3e04…3e1c Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0027, t01=0x0124}
0x3e1c…3e34 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0027, t01=0x013c}
0x3e34…3e52 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x0027, t01=0x0154}
0x3e52…3e5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0172}
0x3e5e…3e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x017e}
0x3e68…3e7e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0027, t01=0x0188}
0x3e7e…3e96 Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0028, t01=0x000e}
0x3e96…3ece Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0028, t01=0x0026}
0x3ece…3efa Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:019 BUFFER IN SYSTEM AREA «, t00=0x0028, t01=0x005e}
0x3efa…3f1e Head {h00=0x0020, h01=0x0050, text=» LDR A7,A3 REQUESTED LENGTH «, t00=0x0028, t01=0x008a}
0x3f1e…3f38 Head {h00=0x0016, h01=0x0050, text=» LDR A8,A2 SAVE A2«, t00=0x0028, t01=0x00ae}
0x3f38…3f62 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0028, t01=0x00c8}
0x3f62…3f74 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0028, t01=0x00f2}
0x3f74…3f9e Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0028, t01=0x0104}
0x3f9e…3fca Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0028, t01=0x012e}
0x3fca…4000 Head {h00=0x0032, h01=0x0050, text=» MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA «, t00=0x0028, t01=0x015a}
0x4000…402a Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0028, t01=0x0190}
0x402a…4048 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A8 RESTORE A2 «, t00=0x0029, t01=0x002a}
0x4048…407c Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0029, t01=0x0048}
0x407c…4090 Head {h00=0x0010, h01=0x0050, text=»FD:019 EQU *«, t00=0x0029, t01=0x007c}
0x4090…409c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0090}
0x409c…40a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x009c}
0x40a6…40be Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0029, t01=0x00a6}
0x40be…40d6 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0029, t01=0x00be}
0x40d6…40f4 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x0029, t01=0x00d6}
0x40f4…4100 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00f4}
0x4100…410a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0100}
0x410a…411c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0029, t01=0x010a}
0x411c…414c Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x0029, t01=0x011c}
0x414c…4162 Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x0029, t01=0x014c}
0x4162…4176 Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x0029, t01=0x0162}
0x4176…4182 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0176}
0x4182…418c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0182}
0x418c…41a4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0029, t01=0x018c}
0x41a4…41ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0014}
0x41ae…41b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x001e}
0x41b8…41de Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x002a, t01=0x0028}
0x41de…420c Head {h00=0x002a, h01=0x0050, text=» ANKL A3,/200 CHECK IF WRITE PROTECTED«, t00=0x002a, t01=0x004e}
0x420c…4222 Head {h00=0x0012, h01=0x0050, text=» RF(Z) FD:020 «, t00=0x002a, t01=0x007c}
0x4222…4244 Head {h00=0x001e, h01=0x0050, text=» LDK A3,/40 INDICATE ERROR«, t00=0x002a, t01=0x0092}
0x4244…4274 Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x002a, t01=0x00b4}
0x4274…4288 Head {h00=0x0010, h01=0x0050, text=»FD:020 EQU *«, t00=0x002a, t01=0x00e4}
0x4288…42a6 Head {h00=0x001a, h01=0x0050, text=» RF FD:100 GOTO FDMSIO«, t00=0x002a, t01=0x00f8}
0x42a6…42b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0116}
0x42b0…42c8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x002a, t01=0x0120}
0x42c8…42d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0138}
0x42d2…42ec Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x002a, t01=0x0142}
0x42ec…4306 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x002a, t01=0x015c}
0x4306…4320 Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x002a, t01=0x0176}
0x4320…433a Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x002a, t01=0x0190}
0x433a…4354 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x002b, t01=0x001a}
0x4354…435e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0034}
0x435e…4376 Head {h00=0x0014, h01=0x0050, text=»FD:060 CF A5,BIO«, t00=0x002b, t01=0x003e}
0x4376…4380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0056}
0x4380…4396 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002b, t01=0x0060}
0x4396…43aa Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002b, t01=0x0076}
0x43aa…43c2 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x002b, t01=0x008a}
0x43c2…43da Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x002b, t01=0x00a2}
0x43da…43fa Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:070 TOSS DISC «, t00=0x002b, t01=0x00ba}
0x43fa…4424 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x002b, t01=0x00da}
0x4424…4458 Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x002b, t01=0x0104}
0x4458…4464 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0138}
0x4464…446e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0144}
0x446e…4482 Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x002b, t01=0x014e}
0x4482…4498 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002b, t01=0x0162}
0x4498…44ac Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x002b, t01=0x0178}
0x44ac…44c4 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWT:LA,A6«, t00=0x002b, t01=0x018c}
0x44c4…44f0 Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:080 BUFFER IN SYSTEM AREA «, t00=0x002c, t01=0x0014}
0x44f0…451a Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x002c, t01=0x0040}
0x451a…454e Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x002c, t01=0x006a}
0x454e…455a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x009e}
0x455a…4564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00aa}
0x4564…457a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002c, t01=0x00b4}
0x457a…458c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002c, t01=0x00ca}
0x458c…45a4 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+CHAN=0«, t00=0x002c, t01=0x00dc}
0x45a4…45ce Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x002c, t01=0x00f4}
0x45ce…4602 Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x002c, t01=0x011e}
0x4602…460e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0152}
0x460e…4618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x015e}
0x4618…462c Head {h00=0x0010, h01=0x0050, text=»FD:080 EQU *«, t00=0x002c, t01=0x0168}
0x462c…464e Head {h00=0x001e, h01=0x0050, text=» CF A5,FD:REA PERFORM READ«, t00=0x002c, t01=0x017c}
0x464e…4658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x000e}
0x4658…4670 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x002d, t01=0x0018}
0x4670…4688 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x002d, t01=0x0030}
0x4688…46a6 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:090 NOT IBM «, t00=0x002d, t01=0x0048}
0x46a6…46b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0066}
0x46b2…46bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0072}
0x46bc…46ce Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002d, t01=0x007c}
0x46ce…46e4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x002d, t01=0x008e}
0x46e4…4710 Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS«, t00=0x002d, t01=0x00a4}
0x4710…471c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00d0}
0x471c…4726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00dc}
0x4726…4738 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002d, t01=0x00e6}
0x4738…4758 Head {h00=0x001c, h01=0x0050, text=» LD A7,DWTRL,A6 REQ. LEN«, t00=0x002d, t01=0x00f8}
0x4758…4772 Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG=1 =8 «, t00=0x002d, t01=0x0118}
0x4772…479e Head {h00=0x0028, h01=0x0050, text=» LD A4,DWT:LA,A6 LOGICAL ADDRESS =8 «, t00=0x002d, t01=0x0132}
0x479e…47c8 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FD:085 NOT SYSTEM AREA =8 «, t00=0x002d, t01=0x015e}
0x47c8…47f2 Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTBA,A6 BUFFER ADDRESS =8 «, t00=0x002d, t01=0x0188}
0x47f2…4820 Head {h00=0x002a, h01=0x0050, text=» CF A5,ASC:00 CONVERT EBCDIC-ASCII =8 «, t00=0x002e, t01=0x0022}
0x4820…4836 Head {h00=0x0012, h01=0x0050, text=» RF FD:090 =8«, t00=0x002e, t01=0x0050}
0x4836…484e Head {h00=0x0014, h01=0x0050, text=»FD:085 EQU * =8«, t00=0x002e, t01=0x0066}
0x484e…4860 Head {h00=0x000e, h01=0x0050, text=» XIF =8 «, t00=0x002e, t01=0x007e}
0x4860…4876 Head {h00=0x0012, h01=0x0050, text=» IFT IBM=1 =8«, t00=0x002e, t01=0x0090}
0x4876…488e Head {h00=0x0014, h01=0x0050, text=» CF A5,ASCII =8«, t00=0x002e, t01=0x00a6}
0x488e…48a2 Head {h00=0x0010, h01=0x0050, text=»FD:090 EQU *«, t00=0x002e, t01=0x00be}
0x48a2…48ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00d2}
0x48ae…48b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00de}
0x48b8…48d0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x002e, t01=0x00e8}
0x48d0…48da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0100}
0x48da…48e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x010a}
0x48e4…48fa Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002e, t01=0x0114}
0x48fa…490e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002e, t01=0x012a}
0x490e…4926 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x002e, t01=0x013e}
0x4926…493e Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x002e, t01=0x0156}
0x493e…495e Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:100 TOSS DISC «, t00=0x002e, t01=0x016e}
0x495e…496a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x018e}
0x496a…4974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x000a}
0x4974…498a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002f, t01=0x0014}
0x498a…49a2 Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x002f, t01=0x002a}
0x49a2…49da Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x002f, t01=0x0042}
0x49da…4a06 Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:100 BUFFER IN SYSTEM AREA «, t00=0x002f, t01=0x007a}
0x4a06…4a2e Head {h00=0x0024, h01=0x0050, text=» LD A7,DWTRL,A6 REQUESTED LENGTH«, t00=0x002f, t01=0x00a6}
0x4a2e…4a5a Head {h00=0x0028, h01=0x0050, text=» LDKL A1,BUF GET DWT BUFFER ADDRESS «, t00=0x002f, t01=0x00ce}
0x4a5a…4a84 Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x002f, t01=0x00fa}
0x4a84…4ab0 Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x002f, t01=0x0124}
0x4ab0…4ae6 Head {h00=0x0032, h01=0x0050, text=» MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA «, t00=0x002f, t01=0x0150}
0x4ae6…4b10 Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x002f, t01=0x0186}
0x4b10…4b1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0020}
0x4b1c…4b30 Head {h00=0x0010, h01=0x0050, text=»FD:100 EQU *«, t00=0x0030, t01=0x002c}
0x4b30…4b44 Head {h00=0x0010, h01=0x0050, text=» ABL FDMSIO «, t00=0x0030, t01=0x0040}
0x4b44…4b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0054}
0x4b4e…4b66 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0030, t01=0x005e}
0x4b66…4b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0076}
0x4b70…4b80 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0030, t01=0x0080}
0x4b80…4b90 Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0030, t01=0x0090}
0x4b90…4ba0 Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0030, t01=0x00a0}
0x4ba0…4bb0 Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0030, t01=0x00b0}
0x4bb0…4bc0 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0030, t01=0x00c0}
0x4bc0…4bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d0}
0x4bca…4bdc Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0030, t01=0x00da}
0x4bdc…4bfe Head {h00=0x001e, h01=0x0050, text=» ADK A3,0 CHECK ORDER CODE«, t00=0x0030, t01=0x00ec}
0x4bfe…4c20 Head {h00=0x001e, h01=0x0050, text=» RF(Z) UNLOAD UNLOAD ORDER«, t00=0x0030, t01=0x010e}
0x4c20…4c32 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0030, t01=0x0130}
0x4c32…4c52 Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOAD00 LOAD ORDER«, t00=0x0030, t01=0x0142}
0x4c52…4c64 Head {h00=0x000e, h01=0x0050, text=» ADK A3,17«, t00=0x0030, t01=0x0162}
0x4c64…4c8c Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RQ:ERR ERROR IF NOT LOCK«, t00=0x0030, t01=0x0174}
0x4c8c…4c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x000c}
0x4c96…4caa Head {h00=0x0010, h01=0x0050, text=»LOAD00 EQU *«, t00=0x0031, t01=0x0016}
0x4caa…4cc2 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0031, t01=0x002a}
0x4cc2…4cd8 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0031, t01=0x0042}
0x4cd8…4cea Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0031, t01=0x0058}
0x4cea…4d14 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) LOA:80 ENDIO NOT OPERABLE «, t00=0x0031, t01=0x006a}
0x4d14…4d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0094}
0x4d1e…4d36 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0031, t01=0x009e}
0x4d36…4d4e Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0031, t01=0x00b6}
0x4d4e…4d6e Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:70 TOSS DISC «, t00=0x0031, t01=0x00ce}
0x4d6e…4d7a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00ee}
0x4d7a…4d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00fa}
0x4d84…4d96 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0031, t01=0x0104}
0x4d96…4dba Head {h00=0x0020, h01=0x0050, text=» LC A3,DWTOR+1,A6 GET ORDER «, t00=0x0031, t01=0x0116}
0x4dba…4dce Head {h00=0x0010, h01=0x0050, text=» SUK A3,/26 «, t00=0x0031, t01=0x013a}
0x4dce…4dee Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:65 LOCK ORDER«, t00=0x0031, t01=0x014e}
0x4dee…4e04 Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0031, t01=0x016e}
0x4e04…4e2a Head {h00=0x0022, h01=0x0050, text=» CF A5,LD:RC CHECK RETURN CODE«, t00=0x0031, t01=0x0184}
0x4e2a…4e42 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0032, t01=0x001a}
0x4e42…4e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0032}
0x4e4c…4e6a Head {h00=0x001a, h01=0x0050, text=»* READ DATA SET LABEL«, t00=0x0032, t01=0x003c}
0x4e6a…4e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x005a}
0x4e74…4e9e Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW1,A8 SECTOR NUMBER =3 «, t00=0x0032, t01=0x0064}
0x4e9e…4eb0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x0032, t01=0x008e}
0x4eb0…4ed4 Head {h00=0x0020, h01=0x0050, text=» RF(N) LOA:85 REQUEST ERROR «, t00=0x0032, t01=0x00a0}
0x4ed4…4ee6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x0032, t01=0x00c4}
0x4ee6…4f0a Head {h00=0x0020, h01=0x0050, text=» RF(P) LOA:85 REQUEST ERROR «, t00=0x0032, t01=0x00d6}
0x4f0a…4f1c Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x0032, t01=0x00fa}
0x4f1c…4f32 Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x0032, t01=0x010c}
0x4f32…4f4c Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x0032, t01=0x0122}
0x4f4c…4f60 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0032, t01=0x013c}
0x4f60…4f76 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0032, t01=0x0150}
0x4f76…4f9a Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x0032, t01=0x0166}
0x4f9a…4fbc Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x0032, t01=0x018a}
0x4fbc…4ff0 Head {h00=0x0030, h01=0x0050, text=» ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL «, t00=0x0033, t01=0x001c}
0x4ff0…5004 Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x0033, t01=0x0050}
0x5004…5018 Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0033, t01=0x0064}
0x5018…5024 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0033, t01=0x0078}
0x5024…5056 Head {h00=0x002e, h01=0x0050, text=» LD A3,ECBCW1,A8 DATA SET LABEL SECTOR =3 «, t00=0x0033, t01=0x0084}
0x5056…506c Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x0033, t01=0x00b6}
0x506c…508c Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x0033, t01=0x00cc}
0x508c…50ac Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x0033, t01=0x00ec}
0x50ac…50de Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x0033, t01=0x010c}
0x50de…50f4 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x0033, t01=0x013e}
0x50f4…511c Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x0033, t01=0x0154}
0x511c…5132 Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x0033, t01=0x017c}
0x5132…5148 (52, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0034, t01=0x0004}
0x5148…515c Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x0034, t01=0x001a}
0x515c…5180 Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x0034, t01=0x002e}
0x5180…5196 Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x0034, t01=0x0052}
0x5196…51ac Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x0034, t01=0x0068}
0x51ac…51d4 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x0034, t01=0x007e}
0x51d4…51f8 Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x0034, t01=0x00a6}
0x51f8…520e Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x0034, t01=0x00ca}
0x520e…5258 Head {h00=0x0046, h01=0x0050, text=» INH INHIBIT INTERRUPTS INHIBIT «, t00=0x0034, t01=0x00e0}
0x5258…526e Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x0034, t01=0x012a}
0x526e…5296 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x0034, t01=0x0140}
0x5296…52a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0168}
0x52a0…52b4 Head {h00=0x0010, h01=0x0050, text=»LOA:65 EQU *«, t00=0x0034, t01=0x0172}
0x52b4…52ca Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/400 «, t00=0x0034, t01=0x0186}
0x52ca…52fa Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0035, t01=0x000c}
0x52fa…5304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x003c}
0x5304…5318 Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x0035, t01=0x0046}
0x5318…5324 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x005a}
0x5324…533c Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x0035, t01=0x0066}
0x533c…5362 Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x0035, t01=0x007e}
0x5362…5376 Head {h00=0x0010, h01=0x0050, text=»LOA:80 EQU *«, t00=0x0035, t01=0x00a4}
0x5376…538a Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x0035, t01=0x00b8}
0x538a…5394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00cc}
0x5394…53a6 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0035, t01=0x00d6}
0x53a6…53ba Head {h00=0x0010, h01=0x0050, text=»LOA:85 EQU *«, t00=0x0035, t01=0x00e8}
0x53ba…53dc Head {h00=0x001e, h01=0x0050, text=» LDK A1,/80 REQUEST ERROR «, t00=0x0035, t01=0x00fc}
0x53dc…540c Head {h00=0x002c, h01=0x0050, text=» SCR A1,A6 UPDATE TEMPORARY RETURN CODE «, t00=0x0035, t01=0x011e}
0x540c…5418 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x014e}
0x5418…5422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x015a}
0x5422…543a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0035, t01=0x0164}
0x543a…5444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x017c}
0x5444…544e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0186}
0x544e…5466 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0035, t01=0x0190}
0x5466…5470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0018}
0x5470…548a Head {h00=0x0016, h01=0x0050, text=»* ERROR , UNLOCK «, t00=0x0036, t01=0x0022}
0x548a…5494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x003c}
0x5494…54a8 Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x0036, t01=0x0046}
0x54a8…54ba Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x0036, t01=0x005a}
0x54ba…54dc Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x0036, t01=0x006c}
0x54dc…54f6 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0036, t01=0x008e}
0x54f6…550c Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0036, t01=0x00a8}
0x550c…551e Head {h00=0x000e, h01=0x0050, text=» RB LOA:80«, t00=0x0036, t01=0x00be}
0x551e…5528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00d0}
0x5528…5546 Head {h00=0x001a, h01=0x0050, text=»* LD:RC SUBROUTINE «, t00=0x0036, t01=0x00da}
0x5546…5550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00f8}
0x5550…5564 Head {h00=0x0010, h01=0x0050, text=»LD:RC EQU * «, t00=0x0036, t01=0x0102}
0x5564…5584 Head {h00=0x001c, h01=0x0050, text=» ANK A3,/17 FATAL ERROR «, t00=0x0036, t01=0x0116}
0x5584…559a Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x0036, t01=0x0136}
0x559a…55c4 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0036, t01=0x014c}
0x55c4…55d4 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0036, t01=0x0176}
0x55d4…55e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0186}
0x55e0…55ea (55, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0004}
0x55ea…5602 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0037, t01=0x000e}
0x5602…560c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0026}
0x560c…561e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x0030}
0x561e…5630 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0042}
0x5630…5642 Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0037, t01=0x0054}
0x5642…5654 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0066}
0x5654…5666 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x0078}
0x5666…5670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x008a}
0x5670…5684 Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0037, t01=0x0094}
0x5684…5696 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0037, t01=0x00a8}
0x5696…56a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ba}
0x56a0…56ba Head {h00=0x0016, h01=0x0050, text=»* DATA SET OPEN«, t00=0x0037, t01=0x00c4}
0x56ba…56c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00de}
0x56c4…56e6 Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0037, t01=0x00e8}
0x56e6…570a Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0037, t01=0x010a}
0x570a…5728 Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0037, t01=0x012e}
0x5728…5760 Head {h00=0x0034, h01=0x0050, text=» ST A7,12,A8 STORE EOD-NO IN CONTROL WORD OF ECB«, t00=0x0037, t01=0x014c}
0x5760…576a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0184}
0x576a…579a Head {h00=0x002c, h01=0x0050, text=»* READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0037, t01=0x018e}
0x579a…57a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x002e}
0x57a4…57c8 Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0038, t01=0x0038}
0x57c8…57f2 Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0038, t01=0x005c}
0x57f2…581a Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0038, t01=0x0086}
0x581a…5826 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0038, t01=0x00ae}
0x5826…5830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ba}
0x5830…5870 Head {h00=0x003c, h01=0x0050, text=»* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0038, t01=0x00c4}
0x5870…587a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0104}
0x587a…589c Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0038, t01=0x010e}
0x589c…58a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0130}
0x58a6…58c2 Head {h00=0x0018, h01=0x0050, text=»* DIVIDE EOD BY 26 «, t00=0x0038, t01=0x013a}
0x58c2…58cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0156}
0x58cc…58de Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0038, t01=0x0160}
0x58de…58f6 Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0038, t01=0x0172}
0x58f6…590c Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0038, t01=0x018a}
0x590c…591e Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0039, t01=0x0010}
0x591e…5930 Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0039, t01=0x0022}
0x5930…593a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0034}
0x593a…5952 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0039, t01=0x003e}
0x5952…595c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0056}
0x595c…5966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0060}
0x5966…597e Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0039, t01=0x006a}
0x597e…5988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0082}
0x5988…59a8 Head {h00=0x001c, h01=0x0050, text=»* A1 = BINARY TRACK NO«, t00=0x0039, t01=0x008c}
0x59a8…59d6 Head {h00=0x002a, h01=0x0050, text=»* A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0039, t01=0x00ac}
0x59d6…59e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00da}
0x59e0…5a0c Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0039, t01=0x00e4}
0x5a0c…5a38 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0039, t01=0x0110}
0x5a38…5a4a Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0039, t01=0x013c}
0x5a4a…5a5c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0039, t01=0x014e}
0x5a5c…5a78 Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0039, t01=0x0160}
0x5a78…5a9a Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0039, t01=0x017c}
0x5a9a…5ab2 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x003a, t01=0x000e}
0x5ab2…5ade Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x003a, t01=0x0026}
0x5ade…5af0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x003a, t01=0x0052}
0x5af0…5b12 Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x003a, t01=0x0064}
0x5b12…5b5c Head {h00=0x0046, h01=0x0050, text=» INH INHIBIT INTERRUPTS INHIBIT «, t00=0x003a, t01=0x0086}
0x5b5c…5b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d0}
0x5b66…5b86 Head {h00=0x001c, h01=0x0050, text=»* WRITE DATA SET LABEL «, t00=0x003a, t01=0x00da}
0x5b86…5b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00fa}
0x5b90…5bb4 Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x003a, t01=0x0104}
0x5bb4…5bd4 Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x003a, t01=0x0128}
0x5bd4…5c00 Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x003a, t01=0x0148}
0x5c00…5c28 Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x003a, t01=0x0174}
0x5c28…5c3e Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003b, t01=0x000c}
0x5c3e…5c60 Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x003b, t01=0x0022}
0x5c60…5c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0044}
0x5c6a…5c82 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x003b, t01=0x004e}
0x5c82…5c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0066}
0x5c8c…5ca0 Head {h00=0x0010, h01=0x0050, text=»* UNLOCK «, t00=0x003b, t01=0x0070}
0x5ca0…5caa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0084}
0x5caa…5cb6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x008e}
0x5cb6…5cca Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x003b, t01=0x009a}
0x5cca…5ce4 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x003b, t01=0x00ae}
0x5ce4…5cfa Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x003b, t01=0x00c8}
0x5cfa…5d0c Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x003b, t01=0x00de}
0x5d0c…5d30 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) LOA:80 NOT OPERABLE «, t00=0x003b, t01=0x00f0}
0x5d30…5d52 Head {h00=0x001e, h01=0x0050, text=» C1 A2,DWTA3,A6 INDEX MASK«, t00=0x003b, t01=0x0114}
0x5d52…5d82 Head {h00=0x002c, h01=0x0050, text=» ANS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x003b, t01=0x0136}
0x5d82…5d9c Head {h00=0x0016, h01=0x0050, text=» RB LOA:80 END:IO «, t00=0x003b, t01=0x0166}
0x5d9c…5da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0180}
0x5da6…5db8 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003b, t01=0x018a}
0x5db8…5dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x000c}
0x5dc2…5de6 Head {h00=0x0020, h01=0x0050, text=»* UNLOAD RETURN CODE CHECK«, t00=0x003c, t01=0x0016}
0x5de6…5df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x003a}
0x5df0…5e04 Head {h00=0x0010, h01=0x0050, text=»UNL:RC EQU *«, t00=0x003c, t01=0x0044}
0x5e04…5e1a Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/207 «, t00=0x003c, t01=0x0058}
0x5e1a…5e3e Head {h00=0x0020, h01=0x0050, text=» RF(Z) RTN:A5 NO RETURN CODE«, t00=0x003c, t01=0x006e}
0x5e3e…5e54 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/200 «, t00=0x003c, t01=0x0092}
0x5e54…5e7e Head {h00=0x0026, h01=0x0050, text=» RF(Z) RTN:A5 NOT WRITE PROTECTED «, t00=0x003c, t01=0x00a8}
0x5e7e…5e94 Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003c, t01=0x00d2}
0x5e94…5eb8 Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x003c, t01=0x00e8}
0x5eb8…5ed6 Head {h00=0x001a, h01=0x0050, text=» RF(Z) RTN:A5 NOT OPEN«, t00=0x003c, t01=0x010c}
0x5ed6…5eea Head {h00=0x0010, h01=0x0050, text=» LDK A3,/40 «, t00=0x003c, t01=0x012a}
0x5eea…5f1a Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x003c, t01=0x013e}
0x5f1a…5f2e Head {h00=0x0010, h01=0x0050, text=»RTN:A5 EQU *«, t00=0x003c, t01=0x016e}
0x5f2e…5f3e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003c, t01=0x0182}
0x5f3e…5f48 (61, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0004}
0x5f48…5f60 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x003d, t01=0x000e}
0x5f60…5f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0026}
0x5f6a…5f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0030}
0x5f74…5fa0 Head {h00=0x0028, h01=0x0050, text=»IBMDSK EQU * IBM DISK HANDLING ENTRY«, t00=0x003d, t01=0x003a}
0x5fa0…5fb2 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003d, t01=0x0066}
0x5fb2…5fe4 Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x003d, t01=0x0078}
0x5fe4…5ff6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x003d, t01=0x00aa}
0x5ff6…6020 Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) END:IO NEW VOLUME LOADED «, t00=0x003d, t01=0x00bc}
0x6020…603e Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x003d, t01=0x00e6}
0x603e…6062 Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x003d, t01=0x0104}
0x6062…6088 Head {h00=0x0022, h01=0x0050, text=» RF(Z) FD:DIS NOT OPEN, ERROR «, t00=0x003d, t01=0x0128}
0x6088…60ac Head {h00=0x0020, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER CODE«, t00=0x003d, t01=0x014e}
0x60ac…60be Head {h00=0x000e, h01=0x0050, text=» SUK A1,49«, t00=0x003d, t01=0x0172}
0x60be…60e0 Head {h00=0x001e, h01=0x0050, text=» RF(Z) REWIND REWIND FILE «, t00=0x003d, t01=0x0184}
0x60e0…610e Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBRL,A8 CHECK REQUESTED LENGTH«, t00=0x003e, t01=0x0016}
0x610e…6128 Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x003e, t01=0x0044}
0x6128…6146 Head {h00=0x001a, h01=0x0050, text=» CWK A3,DVBLEN+DVBLEN «, t00=0x003e, t01=0x005e}
0x6146…6172 Head {h00=0x0028, h01=0x0050, text=» ABL(G) INCLEN MMU BUFFER TOO SMALL «, t00=0x003e, t01=0x007c}
0x6172…617e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x00a8}
0x617e…6190 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003e, t01=0x00b4}
0x6190…61a6 Head {h00=0x0012, h01=0x0050, text=» SUK A3,SECLEN«, t00=0x003e, t01=0x00c6}
0x61a6…61ce Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) INCLEN INCORRECT LENGTH«, t00=0x003e, t01=0x00dc}
0x61ce…61e0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,43«, t00=0x003e, t01=0x0104}
0x61e0…6208 Head {h00=0x0024, h01=0x0050, text=» RF(Z) SQWRITE SEQUENTIAL WRITE «, t00=0x003e, t01=0x0116}
0x6208…621a Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x003e, t01=0x013e}
0x621a…624e Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FD:DIS ERROR IF NOT SEQUENTIAL READ «, t00=0x003e, t01=0x0150}
0x624e…6258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0184}
0x6258…6270 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x003e, t01=0x018e}
0x6270…627a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0016}
0x627a…6296 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x003f, t01=0x0020}
0x6296…62b2 Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x003f, t01=0x003c}
0x62b2…62ce Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x003f, t01=0x0058}
0x62ce…62d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0074}
0x62d8…630a Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x003f, t01=0x007e}
0x630a…6322 Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x003f, t01=0x00b0}
0x6322…633a Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x003f, t01=0x00c8}
0x633a…6366 Head {h00=0x0028, h01=0x0050, text=» ST A3,ECBCW2,A8 STORE CRN+1 IN ECB «, t00=0x003f, t01=0x00e0}
0x6366…637c Head {h00=0x0012, h01=0x0050, text=» CWK A3,MAXIBM«, t00=0x003f, t01=0x010c}
0x637c…63a0 Head {h00=0x0020, h01=0x0050, text=» RF(P) FD:DIS REQUEST ERROR «, t00=0x003f, t01=0x0122}
0x63a0…63b2 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x003f, t01=0x0146}
0x63b2…63d4 Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x003f, t01=0x0158}
0x63d4…63ee Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 BIO READ«, t00=0x003f, t01=0x017a}
0x63ee…6402 (64, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CF A5,BIOSQ«, t00=0x0040, t01=0x0004}
0x6402…6438 Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0040, t01=0x0018}
0x6438…6442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x004e}
0x6442…6458 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0040, t01=0x0058}
0x6458…6484 Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0040, t01=0x006e}
0x6484…6490 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x009a}
0x6490…649a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00a6}
0x649a…64ac Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0040, t01=0x00b0}
0x64ac…64c2 Head {h00=0x0012, h01=0x0050, text=» LDK A7,SECLEN«, t00=0x0040, t01=0x00c2}
0x64c2…64ea Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0040, t01=0x00d8}
0x64ea…64f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0100}
0x64f4…650c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0040, t01=0x010a}
0x650c…6516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0122}
0x6516…6520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x012c}
0x6520…6536 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0040, t01=0x0136}
0x6536…6562 Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x0040, t01=0x014c}
0x6562…6588 Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTTAB,A6 TTAB ADDRESS «, t00=0x0040, t01=0x0178}
0x6588…65ac Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x0041, t01=0x000e}
0x65ac…65d6 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,BUF DRIVER BUFFER ADDRESS«, t00=0x0041, t01=0x0032}
0x65d6…6600 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTUEC,A6 USER ECB ADDRESS «, t00=0x0041, t01=0x005c}
0x6600…662c Head {h00=0x0028, h01=0x0050, text=» EL A2,ECBBA,A2 USER BUFFER ADDRESS «, t00=0x0041, t01=0x0086}
0x662c…664a Head {h00=0x001a, h01=0x0050, text=» LDK A7,SECLEN LENGTH «, t00=0x0041, t01=0x00b2}
0x664a…6676 Head {h00=0x0028, h01=0x0050, text=» MVSU A7 MOVE SECTOR TO USER BUFFER «, t00=0x0041, t01=0x00d0}
0x6676…66a6 Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x0041, t01=0x00fc}
0x66a6…66b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x012c}
0x66b2…66bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0138}
0x66bc…66ce Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0041, t01=0x0142}
0x66ce…66e4 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0041, t01=0x0154}
0x66e4…66f8 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0041, t01=0x016a}
0x66f8…671a Head {h00=0x001e, h01=0x0050, text=» ANK A3,1 NOT OPERABLE =7 «, t00=0x0041, t01=0x017e}
0x671a…6738 Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x0042, t01=0x0010}
0x6738…6742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x002e}
0x6742…675a Head {h00=0x0014, h01=0x0050, text=»* END OF DATA«, t00=0x0042, t01=0x0038}
0x675a…6764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0050}
0x6764…678c Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x0042, t01=0x005a}
0x678c…679e Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0042, t01=0x0082}
0x679e…67a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0094}
0x67a8…67c0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0042, t01=0x009e}
0x67c0…67ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00b6}
0x67ca…67e6 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0042, t01=0x00c0}
0x67e6…6802 Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x0042, t01=0x00dc}
0x6802…681e Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0042, t01=0x00f8}
0x681e…6828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0114}
0x6828…683c Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x0042, t01=0x011e}
0x683c…6846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0132}
0x6846…6868 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF END OF EXTENT«, t00=0x0042, t01=0x013c}
0x6868…6872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x015e}
0x6872…6888 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x0042, t01=0x0168}
0x6888…68b2 Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x0042, t01=0x017e}
0x68b2…68e2 Head {h00=0x002c, h01=0x0050, text=» ST A7,ECBCW2,A8 STORE EOD IN ECB C. W. «, t00=0x0043, t01=0x0018}
0x68e2…68f8 Head {h00=0x0012, h01=0x0050, text=» CWK A7,MAXIBM«, t00=0x0043, t01=0x0048}
0x68f8…691c Head {h00=0x0020, h01=0x0050, text=» RF(P) FD:DIS REQUEST ERROR «, t00=0x0043, t01=0x005e}
0x691c…6930 Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x0043, t01=0x0082}
0x6930…6954 Head {h00=0x0020, h01=0x0050, text=» RF(G) ENDEOE END OF EXTENT «, t00=0x0043, t01=0x0096}
0x6954…695e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00ba}
0x695e…6974 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0043, t01=0x00c4}
0x6974…69a0 Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x0043, t01=0x00da}
0x69a0…69c6 Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTTAB,A6 TTAB ADDRESS «, t00=0x0043, t01=0x0106}
0x69c6…69ea Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x0043, t01=0x012c}
0x69ea…6a14 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUEC,A6 USER ECB ADDRESS «, t00=0x0043, t01=0x0150}
0x6a14…6a40 Head {h00=0x0028, h01=0x0050, text=» EL A1,ECBBA,A1 USER BUFFER ADDRESS «, t00=0x0043, t01=0x017a}
0x6a40…6a6a Head {h00=0x0026, h01=0x0050, text=» LDKL A2,BUF DRIVER BUFFER ADDRESS«, t00=0x0044, t01=0x0016}
0x6a6a…6a88 Head {h00=0x001a, h01=0x0050, text=» LDK A7,SECLEN LENGTH «, t00=0x0044, t01=0x0040}
0x6a88…6ab6 Head {h00=0x002a, h01=0x0050, text=» MVUS A7 MOVE SECTOR TO DRIVER BUFFER «, t00=0x0044, t01=0x005e}
0x6ab6…6ae6 Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x0044, t01=0x008c}
0x6ae6…6af2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x00bc}
0x6af2…6afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00c8}
0x6afc…6b0e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0044, t01=0x00d2}
0x6b0e…6b2a Head {h00=0x0018, h01=0x0050, text=» LDK A4,5 BIO WRITE «, t00=0x0044, t01=0x00e4}
0x6b2a…6b3e Head {h00=0x0010, h01=0x0050, text=» CF A5,BIOSQ«, t00=0x0044, t01=0x0100}
0x6b3e…6b54 Head {h00=0x0012, h01=0x0050, text=» LDK A7,SECLEN«, t00=0x0044, t01=0x0114}
0x6b54…6b84 Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x0044, t01=0x012a}
0x6b84…6b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x015a}
0x6b8e…6ba4 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0044, t01=0x0164}
0x6ba4…6bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x017a}
0x6bae…6bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0184}
0x6bb8…6bce Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0044, t01=0x018e}
0x6bce…6bf4 Head {h00=0x0022, h01=0x0050, text=» SRL A1,3 IF BIT 6 SET THEN =7«, t00=0x0045, t01=0x0014}
0x6bf4…6c14 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/40 SET BIT 9 =7«, t00=0x0045, t01=0x003a}
0x6c14…6c48 Head {h00=0x0030, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE =7 «, t00=0x0045, t01=0x005a}
0x6c48…6c5e Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0045, t01=0x008e}
0x6c5e…6c72 Head {h00=0x0010, h01=0x0050, text=»SQW:10 EQU *«, t00=0x0045, t01=0x00a4}
0x6c72…6ca8 Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE «, t00=0x0045, t01=0x00b8}
0x6ca8…6cbe Head {h00=0x0012, h01=0x0050, text=» RF(NZ) END:RC«, t00=0x0045, t01=0x00ee}
0x6cbe…6cec Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x0045, t01=0x0104}
0x6cec…6d02 Head {h00=0x0012, h01=0x0050, text=» LDK A2,SECLEN«, t00=0x0045, t01=0x0132}
0x6d02…6d32 Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBEL,A8 UPDATE EFFECTIVE LENGTH «, t00=0x0045, t01=0x0148}
0x6d32…6d44 Head {h00=0x000e, h01=0x0050, text=» RF END:RC«, t00=0x0045, t01=0x0178}
0x6d44…6d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x018a}
0x6d4e…6d62 (70, 0, 400) Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x0046, t01=0x0004}
0x6d62…6d84 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x0046, t01=0x0018}
0x6d84…6d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x003a}
0x6d8e…6da6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0046, t01=0x0044}
0x6da6…6db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x005c}
0x6db0…6dc2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x0066}
0x6dc2…6dd4 Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x0046, t01=0x0078}
0x6dd4…6de6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x008a}
0x6de6…6df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x009c}
0x6df0…6e04 Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x0046, t01=0x00a6}
0x6e04…6e28 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x0046, t01=0x00ba}
0x6e28…6e3e Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x0046, t01=0x00de}
0x6e3e…6e52 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0046, t01=0x00f4}
0x6e52…6e6a Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x0046, t01=0x0108}
0x6e6a…6e86 Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x0046, t01=0x0120}
0x6e86…6e9c Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0046, t01=0x013c}
0x6e9c…6eb0 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0046, t01=0x0152}
0x6eb0…6eca Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x0046, t01=0x0166}
0x6eca…6eea Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x0046, t01=0x0180}
0x6eea…6f08 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0047, t01=0x0010}
0x6f08…6f1a Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0047, t01=0x002e}
0x6f1a…6f26 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0040}
0x6f26…6f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x004c}
0x6f30…6f48 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0047, t01=0x0056}
0x6f48…6f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x006e}
0x6f52…6f6c Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0047, t01=0x0078}
0x6f6c…6f86 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0047, t01=0x0092}
0x6f86…6fa0 Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x0047, t01=0x00ac}
0x6fa0…6fba Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0047, t01=0x00c6}
0x6fba…6fd4 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0047, t01=0x00e0}
0x6fd4…6fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00fa}
0x6fde…6fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0104}
0x6fe8…700c Head {h00=0x0020, h01=0x0050, text=»* INPUT: A2 BIO CONTENTS «, t00=0x0047, t01=0x010e}
0x700c…7040 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x0047, t01=0x0132}
0x7040…7066 Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x0047, t01=0x0166}
0x7066…7070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x018c}
0x7070…7084 Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x0048, t01=0x0008}
0x7084…7098 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0048, t01=0x001c}
0x7098…70ba Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x0048, t01=0x0030}
0x70ba…70c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x0052}
0x70c6…70da Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0048, t01=0x005e}
0x70da…7100 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 INDICATOR WRITE MODE«, t00=0x0048, t01=0x0072}
0x7100…710c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x0098}
0x710c…711e Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x0048, t01=0x00a4}
0x711e…7128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00b6}
0x7128…713c Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x0048, t01=0x00c0}
0x713c…7150 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0048, t01=0x00d4}
0x7150…716c Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 READ MODE «, t00=0x0048, t01=0x00e8}
0x716c…7178 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x0104}
0x7178…718c Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0048, t01=0x0110}
0x718c…71ae Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS READ«, t00=0x0048, t01=0x0124}
0x71ae…71ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x0146}
0x71ba…71ce Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x0048, t01=0x0152}
0x71ce…71e2 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0048, t01=0x0166}
0x71e2…7208 Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x0048, t01=0x017a}
0x7208…7212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0010}
0x7212…722a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0049, t01=0x001a}
0x722a…7234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0032}
0x7234…723e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x003c}
0x723e…7254 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0049, t01=0x0046}
0x7254…728a Head {h00=0x0032, h01=0x0050, text=» LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO «, t00=0x0049, t01=0x005c}
0x728a…72b6 Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:810 BUFFER IN SYSTEM AREA «, t00=0x0049, t01=0x0092}
0x72b6…72ea Head {h00=0x0030, h01=0x0050, text=» LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS «, t00=0x0049, t01=0x00be}
0x72ea…72fc Head {h00=0x000e, h01=0x0050, text=» ECR A7,A7«, t00=0x0049, t01=0x00f2}
0x72fc…730e Head {h00=0x000e, h01=0x0050, text=» ORR A1,A7«, t00=0x0049, t01=0x0104}
0x730e…7322 Head {h00=0x0010, h01=0x0050, text=»FD:810 EQU *«, t00=0x0049, t01=0x0116}
0x7322…732e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x012a}
0x732e…7338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0136}
0x7338…734c Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0049, t01=0x0140}
0x734c…735e Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0049, t01=0x0154}
0x735e…7382 Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x0049, t01=0x0166}
0x7382…73aa Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x0049, t01=0x018a}
0x73aa…73b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x0022}
0x73b6…73ca Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x004a, t01=0x002e}
0x73ca…73d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0042}
0x73d4…73ec Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x004a, t01=0x004c}
0x73ec…73f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0064}
0x73f6…7428 Head {h00=0x002e, h01=0x0050, text=»* PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x004a, t01=0x006e}
0x7428…7432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00a0}
0x7432…7458 Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTRW,A6 INDICATE MODE «, t00=0x004a, t01=0x00aa}
0x7458…7470 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x004a, t01=0x00d0}
0x7470…7482 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x004a, t01=0x00e8}
0x7482…74a8 Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x004a, t01=0x00fa}
0x74a8…74b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x0120}
0x74b4…74de Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x004a, t01=0x012c}
0x74de…74f4 Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x004a, t01=0x0156}
0x74f4…7524 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) T:DISP POST PROCESSING FLAG SET «, t00=0x004a, t01=0x016c}
0x7524…7558 Head {h00=0x0030, h01=0x0050, text=»FD:CIO EQU * LABEL USED FOR CHANGE OF CUADR «, t00=0x004b, t01=0x000c}
0x7558…757a Head {h00=0x001e, h01=0x0050, text=» CIO A2,1,CUADR CIO START «, t00=0x004b, t01=0x0040}
0x757a…75a6 Head {h00=0x0028, h01=0x0050, text=» RF(3) END:30 DEVICE ADDRESS UNKNOWN«, t00=0x004b, t01=0x0062}
0x75a6…75b8 Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x004b, t01=0x008e}
0x75b8…75c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00a0}
0x75c2…75da Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x004b, t01=0x00aa}
0x75da…75e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00c2}
0x75e4…7612 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x004b, t01=0x00cc}
0x7612…761c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00fa}
0x761c…765c Head {h00=0x003c, h01=0x0050, text=»* FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO * «, t00=0x004b, t01=0x0104}
0x765c…768a Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x004b, t01=0x0144}
0x768a…76b8 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x004b, t01=0x0172}
0x76b8…76c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0010}
0x76c2…76d6 Head {h00=0x0010, h01=0x0050, text=»FDMSIO EQU *«, t00=0x004c, t01=0x001a}
0x76d6…7700 Head {h00=0x0026, h01=0x0050, text=» IM DWTCW2,A6 UPDATE SECTOR NUMBER«, t00=0x004c, t01=0x002e}
0x7700…7720 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 RETURN CODE «, t00=0x004c, t01=0x0058}
0x7720…774a Head {h00=0x0026, h01=0x0050, text=» ANK A1,/7F GET ERROR RETURN CODE «, t00=0x004c, t01=0x0078}
0x774a…7760 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) END:RC«, t00=0x004c, t01=0x00a2}
0x7760…7794 Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE «, t00=0x004c, t01=0x00b8}
0x7794…77bc Head {h00=0x0024, h01=0x0050, text=» ADS A2,DWTCW2,A6 UPDATE DWTCW2 «, t00=0x004c, t01=0x00ec}
0x77bc…77d4 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTRL,A6 «, t00=0x004c, t01=0x0114}
0x77d4…77fa Head {h00=0x0022, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE ECBEL «, t00=0x004c, t01=0x012c}
0x77fa…7812 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTNOS,A6«, t00=0x004c, t01=0x0152}
0x7812…783a Head {h00=0x0024, h01=0x0050, text=» RF(NP) END:RC LAST SECTOR DONE «, t00=0x004c, t01=0x016a}
0x783a…7850 (77, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004d, t01=0x0004}
0x7850…787a Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTBA,A6 GET BUFFER POINTER«, t00=0x004d, t01=0x001a}
0x787a…78a2 Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 UPDATE BUFFER POINTER«, t00=0x004d, t01=0x0044}
0x78a2…78ba Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTBA,A6 «, t00=0x004d, t01=0x006c}
0x78ba…78e4 Head {h00=0x0026, h01=0x0050, text=» RF(N) FDMSI1 NOT PASSED 64K LIMIT«, t00=0x004d, t01=0x0084}
0x78e4…78f6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x004d, t01=0x00ae}
0x78f6…7922 Head {h00=0x0028, h01=0x0050, text=» RF(NN) FDMSI1 NOT PASSED 64K LIMIT «, t00=0x004d, t01=0x00c0}
0x7922…7936 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/10 «, t00=0x004d, t01=0x00ec}
0x7936…7960 Head {h00=0x0026, h01=0x0050, text=» ADS A2,DWT:BF,A6 UPDATE BITS 0-1 «, t00=0x004d, t01=0x0100}
0x7960…7974 Head {h00=0x0010, h01=0x0050, text=»FDMSI1 EQU *«, t00=0x004d, t01=0x012a}
0x7974…7980 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x013e}
0x7980…798a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x014a}
0x798a…79a0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x004d, t01=0x0154}
0x79a0…79ce Head {h00=0x002a, h01=0x0050, text=» ADS A2,DWTBA,A6 UPDATE BUFFER POINTER«, t00=0x004d, t01=0x016a}
0x79ce…79da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0008}
0x79da…7a10 Head {h00=0x0032, h01=0x0050, text=» ABL FD:000 MORE SECTORS IN MULTIPLE SECTOR IO«, t00=0x004e, t01=0x0014}
0x7a10…7a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x004a}
0x7a1a…7a32 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x004e, t01=0x0054}
0x7a32…7a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x006c}
0x7a3c…7a4e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x0076}
0x7a4e…7a60 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x004e, t01=0x0088}
0x7a60…7a72 Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x004e, t01=0x009a}
0x7a72…7a84 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x004e, t01=0x00ac}
0x7a84…7a96 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x00be}
0x7a96…7aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00d0}
0x7aa0…7ab2 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x004e, t01=0x00da}
0x7ab2…7ada Head {h00=0x0024, h01=0x0050, text=»ENDEOE EQU * END OF EXTENT EXIT «, t00=0x004e, t01=0x00ec}
0x7ada…7afc Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/2000 RETURN CODE«, t00=0x004e, t01=0x0114}
0x7afc…7b0e Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x004e, t01=0x0136}
0x7b0e…7b1a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0148}
0x7b1a…7b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0154}
0x7b24…7b38 Head {h00=0x0010, h01=0x0050, text=»END:RC EQU *«, t00=0x004e, t01=0x015e}
0x7b38…7b58 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 RETURN CODE «, t00=0x004e, t01=0x0172}
0x7b58…7b6c (79, 0, 400) Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x004f, t01=0x0004}
0x7b6c…7b82 Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x004f, t01=0x0018}
0x7b82…7b9a Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x004f, t01=0x002e}
0x7b9a…7ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0046}
0x7ba4…7bcc Head {h00=0x0024, h01=0x0050, text=»END:30 EQU * CU ADDRESS UNKNOWN «, t00=0x004f, t01=0x0050}
0x7bcc…7bea Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x004f, t01=0x0078}
0x7bea…7c14 Head {h00=0x0026, h01=0x0050, text=» ORS A1,DWTST,A6 RECOVERY DONE =1 «, t00=0x004f, t01=0x0096}
0x7c14…7c26 Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x004f, t01=0x00c0}
0x7c26…7c3e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x004f, t01=0x00d2}
0x7c3e…7c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00ea}
0x7c48…7c64 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004f, t01=0x00f4}
0x7c64…7c80 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x004f, t01=0x0110}
0x7c80…7c9c Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x004f, t01=0x012c}
0x7c9c…7cb8 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x004f, t01=0x0148}
0x7cb8…7cd4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004f, t01=0x0164}
0x7cd4…7cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0180}
0x7cde…7cf0 Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x004f, t01=0x018a}
0x7cf0…7d06 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0050, t01=0x000c}
0x7d06…7d30 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0050, t01=0x0022}
0x7d30…7d3c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x004c}
0x7d3c…7d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0058}
0x7d46…7d5c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0050, t01=0x0062}
0x7d5c…7d82 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0050, t01=0x0078}
0x7d82…7d8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x009e}
0x7d8e…7d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00aa}
0x7d98…7dbc Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0050, t01=0x00b4}
0x7dbc…7df4 Head {h00=0x0034, h01=0x0050, text=» LDKL A4,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x0050, t01=0x00d8}
0x7df4…7e10 Head {h00=0x0018, h01=0x0050, text=» ANS A4,DWTST,A6 =1«, t00=0x0050, t01=0x0110}
0x7e10…7e32 Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0050, t01=0x012c}
0x7e32…7e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x014e}
0x7e3c…7e4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0158}
0x7e4a…7e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0166}
0x7e54…7e6a Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0050, t01=0x0170}
0x7e6a…7e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0186}
0x7e74…7e8c Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0050, t01=0x0190}
0x7e8c…7eae Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0051, t01=0x0018}
0x7eae…7ec4 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0051, t01=0x003a}
0x7ec4…7eea Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0051, t01=0x0050}
0x7eea…7efc Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0051, t01=0x0076}
0x7efc…7f18 Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x0051, t01=0x0088}
0x7f18…7f2a Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0051, t01=0x00a4}
0x7f2a…7f44 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x0051, t01=0x00b6}
0x7f44…7f5a Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0051, t01=0x00d0}
0x7f5a…7f74 Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x0051, t01=0x00e6}
0x7f74…7f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0100}
0x7f7e…7f92 Head {h00=0x0010, h01=0x0050, text=»F:DISP EQU *«, t00=0x0051, t01=0x010a}
0x7f92…7fa4 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0051, t01=0x011e}
0x7fa4…7fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0130}
0x7fae…7fca Head {h00=0x0018, h01=0x0050, text=»* TIME OUT ROUTINE«, t00=0x0051, t01=0x013a}
0x7fca…7fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0156}
0x7fd4…7fec Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x0051, t01=0x0160}
0x7fec…8000 Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0051, t01=0x0178}
0x8000…8018 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0051, t01=0x018c}
0x8018…803a Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x0052, t01=0x0014}
0x803a…8044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0036}
0x8044…807e Head {h00=0x0036, h01=0x0050, text=»FDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE«, t00=0x0052, t01=0x0040}
0x807e…8094 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0052, t01=0x007a}
0x8094…80a8 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0052, t01=0x0090}
0x80a8…80d0 Head {h00=0x0024, h01=0x0050, text=» CM BUFFLG,A6 RESET BUFFER FLAG «, t00=0x0052, t01=0x00a4}
0x80d0…80dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00cc}
0x80dc…80e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00d8}
0x80e6…80fe Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0052, t01=0x00e2}
0x80fe…8136 Head {h00=0x0034, h01=0x0050, text=» IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR «, t00=0x0052, t01=0x00fa}
0x8136…8152 Head {h00=0x0018, h01=0x0050, text=» LDK A3,3 4 VOLUMES «, t00=0x0052, t01=0x0132}
0x8152…815c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x014e}
0x815c…8172 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0052, t01=0x0158}
0x8172…817c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x016e}
0x817c…8186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0178}
0x8186…81a2 Head {h00=0x0018, h01=0x0050, text=»* READ VOLUME NAME «, t00=0x0052, t01=0x0182}
0x81a2…81ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x000e}
0x81ac…81c0 Head {h00=0x0010, h01=0x0050, text=»FDONLD EQU *«, t00=0x0053, t01=0x0018}
0x81c0…81e8 Head {h00=0x0024, h01=0x0050, text=» SC A3,DWTOR,A6 GET VOLUME NAME «, t00=0x0053, t01=0x002c}
0x81e8…8212 Head {h00=0x0026, h01=0x0050, text=» LC A4,DIXTAB,A3 DRIVE INDEX MASK «, t00=0x0053, t01=0x0054}
0x8212…8234 Head {h00=0x001e, h01=0x0050, text=» SC A4,DWTA3+1,A6 SAVE IT «, t00=0x0053, t01=0x007e}
0x8234…824a Head {h00=0x0012, h01=0x0050, text=» CF A5,SETCIO «, t00=0x0053, t01=0x00a0}
0x824a…825e Head {h00=0x0010, h01=0x0050, text=» LDK A2,/14 «, t00=0x0053, t01=0x00b6}
0x825e…8278 Head {h00=0x0016, h01=0x0050, text=» CF A5,FD:REA LOCK«, t00=0x0053, t01=0x00ca}
0x8278…828a Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0053, t01=0x00e4}
0x828a…82a8 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FDON19 OPERABLE«, t00=0x0053, t01=0x00f6}
0x82a8…82c6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,6 NOT OPERABLE«, t00=0x0053, t01=0x0114}
0x82c6…82ee Head {h00=0x0024, h01=0x0050, text=» CF A15,VOLCLR CLEAR VOLUME NAME«, t00=0x0053, t01=0x0132}
0x82ee…8318 Head {h00=0x0026, h01=0x0050, text=» RF FDON21 CONTINUE WITH NEXT DISC«, t00=0x0053, t01=0x015a}
0x8318…8322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0184}
0x8322…8336 Head {h00=0x0010, h01=0x0050, text=»FDON19 EQU *«, t00=0x0053, t01=0x018e}
0x8336…834c Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0054, t01=0x0012}
0x834c…8376 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/FBFF RESET IBM IND. BIT «, t00=0x0054, t01=0x0028}
0x8376…83a6 Head {h00=0x002c, h01=0x0050, text=» ANRS A2,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0054, t01=0x0052}
0x83a6…83ba Head {h00=0x0010, h01=0x0050, text=»FDON21 EQU *«, t00=0x0054, t01=0x0082}
0x83ba…83cc Head {h00=0x000e, h01=0x0050, text=» LDK A2,/C«, t00=0x0054, t01=0x0096}
0x83cc…83e8 Head {h00=0x0018, h01=0x0050, text=» CF A5,FD:REA UNLOCK«, t00=0x0054, t01=0x00a8}
0x83e8…83fa Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0054, t01=0x00c4}
0x83fa…842a Head {h00=0x002c, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. «, t00=0x0054, t01=0x00d6}
0x842a…843c Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0054, t01=0x0106}
0x843c…845e Head {h00=0x001e, h01=0x0050, text=» RB(NN) FDONLD NEXT VOLUME«, t00=0x0054, t01=0x0118}
0x845e…8472 Head {h00=0x0010, h01=0x0050, text=» CM DWTOR,A6«, t00=0x0054, t01=0x013a}
0x8472…849e Head {h00=0x0028, h01=0x0050, text=» CM DWTST2,A6 INDICATE VOLUMES READ «, t00=0x0054, t01=0x014e}
0x849e…84aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x017a}
0x84aa…84da Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x0054, t01=0x0186}
0x84da…84e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0026}
0x84e4…84fa Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0055, t01=0x0030}
0x84fa…8504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0046}
0x8504…8512 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0050}
0x8512…851c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x005e}
0x851c…855a Head {h00=0x003a, h01=0x0050, text=»* TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING «, t00=0x0055, t01=0x0068}
0x855a…8564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00a6}
0x8564…858a Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP2,A6 TIMER POINTER«, t00=0x0055, t01=0x00b0}
0x858a…85ac Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON09 NOT RUNNING «, t00=0x0055, t01=0x00d6}
0x85ac…85c6 Head {h00=0x0016, h01=0x0050, text=» CMR A4 STOP TIMER«, t00=0x0055, t01=0x00f8}
0x85c6…85ee Head {h00=0x0024, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER «, t00=0x0055, t01=0x0112}
0x85ee…8602 Head {h00=0x0010, h01=0x0050, text=»FDON09 EQU *«, t00=0x0055, t01=0x013a}
0x8602…860c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x014e}
0x860c…8646 Head {h00=0x0036, h01=0x0050, text=»* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE«, t00=0x0055, t01=0x0158}
0x8646…8650 (86, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0004}
0x8650…8686 Head {h00=0x0032, h01=0x0050, text=» LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS«, t00=0x0056, t01=0x000e}
0x8686…86b0 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/8000 OPEN/CLOSE BIT MASK«, t00=0x0056, t01=0x0044}
0x86b0…86d8 Head {h00=0x0024, h01=0x0050, text=» ANR* A2,A4 A2:=OPEN/CLOSE FLAG «, t00=0x0056, t01=0x006e}
0x86d8…86f6 Head {h00=0x001a, h01=0x0050, text=» ORS A2,DWTOCF,A6 SAVE«, t00=0x0056, t01=0x0096}
0x86f6…8722 Head {h00=0x0028, h01=0x0050, text=» XRRS A2,A4 SET STATUS WORD TO OPEN «, t00=0x0056, t01=0x00b4}
0x8722…8736 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0056, t01=0x00e0}
0x8736…8760 Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOPDA SET DRIVE TO OPEN «, t00=0x0056, t01=0x00f4}
0x8760…876a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x011e}
0x876a…877e Head {h00=0x0010, h01=0x0050, text=»FDON23 EQU *«, t00=0x0056, t01=0x0128}
0x877e…878a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x013c}
0x878a…8794 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0148}
0x8794…87a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0152}
0x87a2…87ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0160}
0x87ac…87c2 Head {h00=0x0012, h01=0x0050, text=»* LOCK DOORS «, t00=0x0056, t01=0x016a}
0x87c2…87cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0180}
0x87cc…87de Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0056, t01=0x018a}
0x87de…87f2 Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0057, t01=0x000c}
0x87f2…8818 Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x0057, t01=0x0020}
0x8818…882a Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x0057, t01=0x0046}
0x882a…884a Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x0057, t01=0x0058}
0x884a…8866 Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0057, t01=0x0078}
0x8866…8870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0094}
0x8870…887e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x009e}
0x887e…8888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00ac}
0x8888…88ac Head {h00=0x0020, h01=0x0050, text=»* PUT DRIVE NO IN CIO INSTR«, t00=0x0057, t01=0x00b6}
0x88ac…88b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00da}
0x88b6…88d8 Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0057, t01=0x00e4}
0x88d8…8906 Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0057, t01=0x0106}
0x8906…891e Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0057, t01=0x0134}
0x891e…8934 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0057, t01=0x014c}
0x8934…8956 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0057, t01=0x0162}
0x8956…8968 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0057, t01=0x0184}
0x8968…8980 Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0058, t01=0x0008}
0x8980…89a8 Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0058, t01=0x0020}
0x89a8…89bc Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x0058, t01=0x0048}
0x89bc…89ce Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0058, t01=0x005c}
0x89ce…89e4 Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x0058, t01=0x006e}
0x89e4…89fa Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x0058, t01=0x0084}
0x89fa…8a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x009a}
0x8a04…8a1a Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0058, t01=0x00a4}
0x8a1a…8a24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00ba}
0x8a24…8a6c Head {h00=0x0044, h01=0x0050, text=»* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF«, t00=0x0058, t01=0x00c4}
0x8a6c…8a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x010c}
0x8a76…8a9e Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOCF,A6 OPEN/CLOSE FLAG«, t00=0x0058, t01=0x0116}
0x8a9e…8ac4 Head {h00=0x0022, h01=0x0050, text=» ORS A2,SPDLCI TO STATUS WORD «, t00=0x0058, t01=0x013e}
0x8ac4…8ae4 Head {h00=0x001c, h01=0x0050, text=» CM DWTOCF,A6 CLEAR FLAG«, t00=0x0058, t01=0x0164}
0x8ae4…8b0c Head {h00=0x0024, h01=0x0050, text=» LD A2,SPDLCI OPEN/CLOSE STATUS «, t00=0x0058, t01=0x0184}
0x8b0c…8b40 Head {h00=0x0030, h01=0x0050, text=» OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED«, t00=0x0059, t01=0x001c}
0x8b40…8b4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0050}
0x8b4c…8b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x005c}
0x8b56…8b64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0066}
0x8b64…8b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0074}
0x8b6e…8b84 Head {h00=0x0012, h01=0x0050, text=»* ANY REQUEST«, t00=0x0059, t01=0x007e}
0x8b84…8b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0094}
0x8b8e…8bb2 Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x0059, t01=0x009e}
0x8bb2…8bc6 Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x0059, t01=0x00c2}
0x8bc6…8bde Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0059, t01=0x00d6}
0x8bde…8c12 Head {h00=0x0030, h01=0x0050, text=» ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO«, t00=0x0059, t01=0x00ee}
0x8c12…8c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0122}
0x8c1c…8c34 Head {h00=0x0014, h01=0x0050, text=»* RETRY REQUEST«, t00=0x0059, t01=0x012c}
0x8c34…8c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0144}
0x8c3e…8c62 Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0059, t01=0x014e}
0x8c62…8c7a Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTORD,A6«, t00=0x0059, t01=0x0172}
0x8c7a…8caa Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x0059, t01=0x018a}
0x8caa…8cd6 Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x005a, t01=0x002a}
0x8cd6…8cf0 Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x005a, t01=0x0056}
0x8cf0…8d0c Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x005a, t01=0x0070}
0x8d0c…8d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x008c}
0x8d16…8d2e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x005a, t01=0x0096}
0x8d2e…8d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00ae}
0x8d38…8d54 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005a, t01=0x00b8}
0x8d54…8d70 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x005a, t01=0x00d4}
0x8d70…8d8c Head {h00=0x0018, h01=0x0050, text=»* READY INTERRUPT *«, t00=0x005a, t01=0x00f0}
0x8d8c…8da8 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x005a, t01=0x010c}
0x8da8…8dc4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005a, t01=0x0128}
0x8dc4…8dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0144}
0x8dce…8de0 Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x005a, t01=0x014e}
0x8de0…8df8 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x005a, t01=0x0160}
0x8df8…8e26 Head {h00=0x002a, h01=0x0050, text=» RB(NZ) F:DISP POWER ON ROUTINE ACTIVE«, t00=0x005a, t01=0x0178}
0x8e26…8e3e Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x005b, t01=0x0016}
0x8e3e…8e5c Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x005b, t01=0x002e}
0x8e5c…8e66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x004c}
0x8e66…8e7e Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x005b, t01=0x0056}
0x8e7e…8e90 Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x005b, t01=0x006e}
0x8e90…8e9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0080}
0x8e9c…8ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x008c}
0x8ea6…8ebe Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x005b, t01=0x0096}
0x8ebe…8ef6 Head {h00=0x0034, h01=0x0050, text=» LDKL A3,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x005b, t01=0x00ae}
0x8ef6…8f12 Head {h00=0x0018, h01=0x0050, text=» ANS A3,DWTST,A6 =6«, t00=0x005b, t01=0x00e6}
0x8f12…8f36 Head {h00=0x0020, h01=0x0050, text=» RB FDONVL READ VOLUME NAMES«, t00=0x005b, t01=0x0102}
0x8f36…8f42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0126}
0x8f42…8f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0132}
0x8f4c…8f64 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x005b, t01=0x013c}
0x8f64…8f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0154}
0x8f6e…8f8c Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x005b, t01=0x015e}
0x8f8c…8faa Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x005b, t01=0x017c}
0x8faa…8fc8 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x005c, t01=0x000a}
0x8fc8…8fe6 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x005c, t01=0x0028}
0x8fe6…9004 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x005c, t01=0x0046}
0x9004…900e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0064}
0x900e…9020 Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x005c, t01=0x006e}
0x9020…9048 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x005c, t01=0x0080}
0x9048…905e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x005c, t01=0x00a8}
0x905e…908c Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x005c, t01=0x00be}
0x908c…9098 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x00ec}
0x9098…90a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00f8}
0x90a2…90b8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x005c, t01=0x0102}
0x90b8…90de Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x005c, t01=0x0118}
0x90de…90ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x013e}
0x90ea…90f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x014a}
0x90f4…9118 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x005c, t01=0x0154}
0x9118…912c Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x005c, t01=0x0178}
0x912c…9138 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x005c, t01=0x018c}
0x9138…9162 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUB,A6 GET BUFFER POINTER«, t00=0x005d, t01=0x0008}
0x9162…9188 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTUBE,A6 END OF BUFFER«, t00=0x005d, t01=0x0032}
0x9188…91a2 Head {h00=0x0016, h01=0x0050, text=» SUR A2,A1 LENGTH «, t00=0x005d, t01=0x0058}
0x91a2…91b6 Head {h00=0x0010, h01=0x0050, text=»IH005 EQU * «, t00=0x005d, t01=0x0072}
0x91b6…91d6 Head {h00=0x001c, h01=0x0050, text=» SST A3,CUADR GET STATUS«, t00=0x005d, t01=0x0086}
0x91d6…91fc Head {h00=0x0022, h01=0x0050, text=» RF(A) IH:000 READY INTERRUPT «, t00=0x005d, t01=0x00a6}
0x91fc…9212 Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x005d, t01=0x00cc}
0x9212…9242 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) IHDISP POST PROCESSING FLAG SET «, t00=0x005d, t01=0x00e2}
0x9242…926e Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTRW,A6 READ/WRITE INDICATOR«, t00=0x005d, t01=0x0112}
0x926e…9288 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH050 READ«, t00=0x005d, t01=0x013e}
0x9288…9292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0158}
0x9292…92a8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x005d, t01=0x0162}
0x92a8…92b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0178}
0x92b2…92bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0182}
0x92bc…92d0 Head {h00=0x0010, h01=0x0050, text=»IH010 EQU * «, t00=0x005d, t01=0x018c}
0x92d0…92f8 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A1 ONE WORD FROM BUFFER«, t00=0x005e, t01=0x0010}
0x92f8…9316 Head {h00=0x001a, h01=0x0050, text=» OTR A3,0,CUADR WRITE «, t00=0x005e, t01=0x0038}
0x9316…932c Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x005e, t01=0x0056}
0x932c…9354 Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x005e, t01=0x006c}
0x9354…9366 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x005e, t01=0x0094}
0x9366…937a Head {h00=0x0010, h01=0x0050, text=» RB(P) IH010«, t00=0x005e, t01=0x00a6}
0x937a…939a Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x005e, t01=0x00ba}
0x939a…93ae Head {h00=0x0010, h01=0x0050, text=»IHDISP EQU *«, t00=0x005e, t01=0x00da}
0x93ae…93d0 Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GOTO DISPATCHER«, t00=0x005e, t01=0x00ee}
0x93d0…93da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0110}
0x93da…93ee Head {h00=0x0010, h01=0x0050, text=»IH050 EQU * «, t00=0x005e, t01=0x011a}
0x93ee…940a Head {h00=0x0018, h01=0x0050, text=» INR A3,0,CUADR READ«, t00=0x005e, t01=0x012e}
0x940a…9420 Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x005e, t01=0x014a}
0x9420…9446 Head {h00=0x0022, h01=0x0050, text=» STR A3,A1 ONE WORD TO BUFFER «, t00=0x005e, t01=0x0160}
0x9446…946e Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x005e, t01=0x0186}
0x946e…9480 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x005f, t01=0x001e}
0x9480…9494 Head {h00=0x0010, h01=0x0050, text=» RB(P) IH050«, t00=0x005f, t01=0x0030}
0x9494…94b4 Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x005f, t01=0x0044}
0x94b4…94d0 Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x005f, t01=0x0064}
0x94d0…94e4 Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x005f, t01=0x0080}
0x94e4…94f8 Head {h00=0x0010, h01=0x0050, text=»IH:000 EQU *«, t00=0x005f, t01=0x0094}
0x94f8…9504 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x005f, t01=0x00a8}
0x9504…9510 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x00b4}
0x9510…951a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00c0}
0x951a…9532 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x005f, t01=0x00ca}
0x9532…953c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00e2}
0x953c…9546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00ec}
0x9546…955a Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x005f, t01=0x00f6}
0x955a…9576 Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x005f, t01=0x010a}
0x9576…958e Head {h00=0x0014, h01=0x0050, text=» RF(A) IH:00 =2«, t00=0x005f, t01=0x0126}
0x958e…95aa Head {h00=0x0018, h01=0x0050, text=» CIO A3,0,CUADR =2 «, t00=0x005f, t01=0x013e}
0x95aa…95c4 Head {h00=0x0016, h01=0x0050, text=» SST A3,CUADR =2 «, t00=0x005f, t01=0x015a}
0x95c4…95dc Head {h00=0x0014, h01=0x0050, text=» RB(NA) *-2 =2 «, t00=0x005f, t01=0x0174}
0x95dc…95fe Head {h00=0x001e, h01=0x0050, text=» LDK A3,1 NOT OPERABLE =2 «, t00=0x005f, t01=0x018c}
0x95fe…9616 Head {h00=0x0014, h01=0x0050, text=»IH:00 EQU * =2 «, t00=0x0060, t01=0x001e}
0x9616…9622 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0036}
0x9622…9646 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0060, t01=0x0042}
0x9646…966c Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0060, t01=0x0066}
0x966c…9686 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A3 STATUS «, t00=0x0060, t01=0x008c}
0x9686…9698 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0060, t01=0x00a6}
0x9698…96bc Head {h00=0x0020, h01=0x0050, text=» RB(N) FDRE READY INTERRUPT «, t00=0x0060, t01=0x00b8}
0x96bc…96da Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY«, t00=0x0060, t01=0x00dc}
0x96da…96f2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x0060, t01=0x00fa}
0x96f2…9718 Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0060, t01=0x0112}
0x9718…972a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0060, t01=0x0138}
0x972a…9754 Head {h00=0x0026, h01=0x0050, text=» ANK A1,5 DATA FAULT, NOT OPERABLE«, t00=0x0060, t01=0x014a}
0x9754…9778 Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x0060, t01=0x0174}
0x9778…978a Head {h00=0x000e, h01=0x0050, text=» ORK A3,4 «, t00=0x0061, t01=0x0008}
0x978a…979e Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x0061, t01=0x001a}
0x979e…97a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x002e}
0x97a8…97c0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0061, t01=0x0038}
0x97c0…97ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0050}
0x97ca…97f4 Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x0061, t01=0x005a}
0x97f4…97fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0084}
0x97fe…9814 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x0061, t01=0x008e}
0x9814…9828 Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x0061, t01=0x00a4}
0x9828…983a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0061, t01=0x00b8}
0x983a…9860 Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x0061, t01=0x00ca}
0x9860…9872 Head {h00=0x000e, h01=0x0050, text=» ECR A4,A3«, t00=0x0061, t01=0x00f0}
0x9872…9894 Head {h00=0x001e, h01=0x0050, text=» ANK A4,8 CHECK IF NO DATA«, t00=0x0061, t01=0x0102}
0x9894…98b4 Head {h00=0x001c, h01=0x0050, text=» RF(Z) IH:70 NOT NO DATA«, t00=0x0061, t01=0x0124}
0x98b4…98d6 Head {h00=0x001e, h01=0x0050, text=» ORK A3,4 SET BIT 13 ALSO «, t00=0x0061, t01=0x0144}
0x98d6…98ea Head {h00=0x0010, h01=0x0050, text=»IH:70 EQU * «, t00=0x0061, t01=0x0166}
0x98ea…98fc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0061, t01=0x017a}
0x98fc…9918 Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x0061, t01=0x018c}
0x9918…9934 Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x0062, t01=0x0018}
0x9934…9946 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0062, t01=0x0034}
0x9946…9950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0046}
0x9950…9968 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0062, t01=0x0050}
0x9968…997a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0062, t01=0x0068}
0x997a…9996 Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x0062, t01=0x007a}
0x9996…99b0 Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x0062, t01=0x0096}
0x99b0…99c2 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0062, t01=0x00b0}
0x99c2…99ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x00c2}
0x99ce…99d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00ce}
0x99d8…99ea Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0062, t01=0x00d8}
0x99ea…9a04 Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x0062, t01=0x00ea}
0x9a04…9a1e Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x0062, t01=0x0104}
0x9a1e…9a30 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0062, t01=0x011e}
0x9a30…9a4a Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x0062, t01=0x0130}
0x9a4a…9a64 Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x0062, t01=0x014a}
0x9a64…9a76 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0062, t01=0x0164}
0x9a76…9aa6 Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0062, t01=0x0176}
0x9aa6…9abc Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/F7FF«, t00=0x0063, t01=0x0016}
0x9abc…9ad0 Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x0063, t01=0x002c}
0x9ad0…9ae2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0063, t01=0x0040}
0x9ae2…9af2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0063, t01=0x0052}
0x9af2…9afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0062}
0x9afc…9b14 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0063, t01=0x006c}
0x9b14…9b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0084}
0x9b1e…9b52 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0063, t01=0x008e}
0x9b52…9b86 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x0063, t01=0x00c2}
0x9b86…9bba Head {h00=0x0030, h01=0x0050, text=»* S U B R O U T I N E S * «, t00=0x0063, t01=0x00f6}
0x9bba…9bee Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x0063, t01=0x012a}
0x9bee…9c22 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0063, t01=0x015e}
0x9c22…9c2c (100, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0004}
0x9c2c…9c3c Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0064, t01=0x000e}
0x9c3c…9c4c Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x0064, t01=0x001e}
0x9c4c…9c5c Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x0064, t01=0x002e}
0x9c5c…9c6c Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x0064, t01=0x003e}
0x9c6c…9c7c Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0064, t01=0x004e}
0x9c7c…9c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x005e}
0x9c86…9ca8 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A8 ECB ADDRESS«, t00=0x0064, t01=0x0068}
0x9ca8…9cc6 Head {h00=0x001a, h01=0x0050, text=»* A4 ORDER «, t00=0x0064, t01=0x008a}
0x9cc6…9cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00a8}
0x9cd0…9d12 Head {h00=0x003e, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x0064, t01=0x00b2}
0x9d12…9d46 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x0064, t01=0x00f4}
0x9d46…9d6c Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x0064, t01=0x0128}
0x9d6c…9d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x014e}
0x9d76…9d88 Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x0064, t01=0x0158}
0x9d88…9db2 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTCW2,A6 GET SECTOR NUMBER«, t00=0x0064, t01=0x016a}
0x9db2…9dde (101, 0, 400) Head {h00=0x0028, h01=0x0050, text=» SLL A1,3 PUT IN RIGHT BIO POSITION «, t00=0x0065, t01=0x0004}
0x9dde…9e18 Head {h00=0x0036, h01=0x0050, text=» LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO «, t00=0x0065, t01=0x0030}
0x9e18…9e2a Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x0065, t01=0x006a}
0x9e2a…9e4a Head {h00=0x001c, h01=0x0050, text=» ORR A2,A1 COMPLETE BIO «, t00=0x0065, t01=0x007c}
0x9e4a…9e74 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A4 COMPLETE BIO WITH ORDER«, t00=0x0065, t01=0x009c}
0x9e74…9e9a Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTBA,A6 BUFFER ADDRESS«, t00=0x0065, t01=0x00c6}
0x9e9a…9ec2 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTRL,A6 GET REQ. LENGTH «, t00=0x0065, t01=0x00ec}
0x9ec2…9ed2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0065, t01=0x0114}
0x9ed2…9edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0124}
0x9edc…9ef2 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0065, t01=0x012e}
0x9ef2…9efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0144}
0x9efc…9f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x014e}
0x9f06…9f20 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0065, t01=0x0158}
0x9f20…9f3a Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0065, t01=0x0172}
0x9f3a…9f54 Head {h00=0x0016, h01=0x0050, text=»* BIOSQ * «, t00=0x0065, t01=0x018c}
0x9f54…9f6e Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0066, t01=0x0016}
0x9f6e…9f88 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0066, t01=0x0030}
0x9f88…9f92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x004a}
0x9f92…9fb4 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A8 ECB ADDRESS«, t00=0x0066, t01=0x0054}
0x9fb4…9fd2 Head {h00=0x001a, h01=0x0050, text=»* A4 ORDER «, t00=0x0066, t01=0x0076}
0x9fd2…9fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0094}
0x9fdc…a01e Head {h00=0x003e, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x0066, t01=0x009e}
0xa01e…a052 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x0066, t01=0x00e0}
0xa052…a078 Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x0066, t01=0x0114}
0xa078…a082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x013a}
0xa082…a096 Head {h00=0x0010, h01=0x0050, text=»BIOSQ EQU * «, t00=0x0066, t01=0x0144}
0xa096…a0a8 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0066, t01=0x0158}
0xa0a8…a0d2 Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x0066, t01=0x016a}
0xa0d2…a0fe (103, 0, 400) Head {h00=0x0028, h01=0x0050, text=» SLL A2,3 PUT IN RIGHT BIO POSITION «, t00=0x0067, t01=0x0004}
0xa0fe…a128 Head {h00=0x0026, h01=0x0050, text=» ADR A2,A4 COMPLETE BIO WITH ORDER«, t00=0x0067, t01=0x0030}
0xa128…a132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x005a}
0xa132…a148 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0067, t01=0x0064}
0xa148…a172 Head {h00=0x0026, h01=0x0050, text=» LD A4,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0067, t01=0x007a}
0xa172…a17e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x00a4}
0xa17e…a188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00b0}
0xa188…a19a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0067, t01=0x00ba}
0xa19a…a1b0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0067, t01=0x00cc}
0xa1b0…a1da Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0067, t01=0x00e2}
0xa1da…a1e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x010c}
0xa1e6…a1f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0118}
0xa1f0…a202 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0067, t01=0x0122}
0xa202…a22a Head {h00=0x0024, h01=0x0050, text=» LDK A3,SECLEN REQUESTED LENGTH «, t00=0x0067, t01=0x0134}
0xa22a…a23a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0067, t01=0x015c}
0xa23a…a246 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x016c}
0xa246…a250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0178}
0xa250…a266 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0067, t01=0x0182}
0xa266…a270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0008}
0xa270…a28a Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0068, t01=0x0012}
0xa28a…a2a4 Head {h00=0x0016, h01=0x0050, text=»* VO:NAM *«, t00=0x0068, t01=0x002c}
0xa2a4…a2be Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0068, t01=0x0046}
0xa2be…a2c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0060}
0xa2c8…a2d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x006a}
0xa2d2…a2e6 Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0068, t01=0x0074}
0xa2e6…a2fe Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0068, t01=0x0088}
0xa2fe…a318 Head {h00=0x0016, h01=0x0050, text=» LDK A3,36 LENGTH «, t00=0x0068, t01=0x00a0}
0xa318…a324 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x00ba}
0xa324…a32e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00c6}
0xa32e…a342 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0068, t01=0x00d0}
0xa342…a354 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0068, t01=0x00e4}
0xa354…a378 Head {h00=0x0020, h01=0x0050, text=» LDK A3,6 VOLUME NAME LENGTH«, t00=0x0068, t01=0x00f6}
0xa378…a384 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x011a}
0xa384…a38e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0126}
0xa38e…a3a2 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0068, t01=0x0130}
0xa3a2…a3b8 Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0068, t01=0x0144}
0xa3b8…a3dc Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF READ TO BUFFER «, t00=0x0068, t01=0x015a}
0xa3dc…a3f2 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0068, t01=0x017e}
0xa3f2…a412 (105, 0, 398) Head {h00=0x001c, h01=0x0050, text=» ANK A3,/17 FATAL ERROR «, t00=0x0069, t01=0x0004}
0xa412…a428 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) VOL:40«, t00=0x0069, t01=0x0024}
0xa428…a43a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0069, t01=0x003a}
0xa43a…a450 Head {h00=0x0012, h01=0x0050, text=» LD A2,BUF+32 «, t00=0x0069, t01=0x004c}
0xa450…a464 Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0069, t01=0x0062}
0xa464…a484 Head {h00=0x001c, h01=0x0050, text=» RF(NE) VOL:10 IBM DISC «, t00=0x0069, t01=0x0076}
0xa484…a4a8 Head {h00=0x0020, h01=0x0050, text=» LD A2,BUF+34 GET NEXT WORD «, t00=0x0069, t01=0x0096}
0xa4a8…a4bc Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0069, t01=0x00ba}
0xa4bc…a4dc Head {h00=0x001c, h01=0x0050, text=» RF(NZ) VOL:10 IBM DISC «, t00=0x0069, t01=0x00ce}
0xa4dc…a4f0 Head {h00=0x0010, h01=0x0050, text=»VOL:05 EQU *«, t00=0x0069, t01=0x00ee}
0xa4f0…a516 Head {h00=0x0022, h01=0x0050, text=» C1 A1,DWTA3,A6 DRIVE BIT MASK«, t00=0x0069, t01=0x0102}
0xa516…a542 Head {h00=0x0028, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS DISC«, t00=0x0069, t01=0x0128}
0xa542…a54e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0154}
0xa54e…a558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0160}
0xa558…a570 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0069, t01=0x016a}
0xa570…a57a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0182}
0xa57a…a584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x018c}
0xa584…a598 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x006a, t01=0x0008}
0xa598…a5ac Head {h00=0x0010, h01=0x0050, text=» LDKL A2,BUF«, t00=0x006a, t01=0x001c}
0xa5ac…a5be Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006a, t01=0x0030}
0xa5be…a5d0 Head {h00=0x000e, h01=0x0050, text=» RF VOL:20«, t00=0x006a, t01=0x0042}
0xa5d0…a5dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x0054}
0xa5dc…a5e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0060}
0xa5e6…a5f8 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006a, t01=0x006a}
0xa5f8…a60c Head {h00=0x0010, h01=0x0050, text=»VOL:10 EQU *«, t00=0x006a, t01=0x007c}
0xa60c…a626 Head {h00=0x0016, h01=0x0050, text=» LDK A3,10 LENGTH «, t00=0x006a, t01=0x0090}
0xa626…a63e Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x006a, t01=0x00aa}
0xa63e…a668 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF+10 READ TO BUF+10FER «, t00=0x006a, t01=0x00c2}
0xa668…a67e Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x006a, t01=0x00ec}
0xa67e…a692 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/17 «, t00=0x006a, t01=0x0102}
0xa692…a6b4 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) VOL:40 IO ERROR =4«, t00=0x006a, t01=0x0116}
0xa6b4…a6c8 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x006a, t01=0x0138}
0xa6c8…a6f8 Head {h00=0x002c, h01=0x0050, text=» LD A2,BUF+10 CHECK IF IBM VOLUME LABEL «, t00=0x006a, t01=0x014c}
0xa6f8…a710 Head {h00=0x0014, h01=0x0050, text=» CWK A2,/E5D6 VO«, t00=0x006a, t01=0x017c}
0xa710…a72e (107, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RB(NE) VOL:05 NOT IBM«, t00=0x006b, t01=0x0004}
0xa72e…a744 Head {h00=0x0012, h01=0x0050, text=» LD A2,BUF+12 «, t00=0x006b, t01=0x0022}
0xa744…a75c Head {h00=0x0014, h01=0x0050, text=» CWK A2,/D3F1 L1«, t00=0x006b, t01=0x0038}
0xa75c…a780 Head {h00=0x0020, h01=0x0050, text=» RB(NE) VOL:05 NOT IBM DISC «, t00=0x006b, t01=0x0050}
0xa780…a78c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0074}
0xa78c…a79e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006b, t01=0x0080}
0xa79e…a7ae Head {h00=0x000c, h01=0x0050, text=»* =4 «, t00=0x006b, t01=0x0092}
0xa7ae…a7d8 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x006b, t01=0x00a2}
0xa7d8…a7fe Head {h00=0x0022, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM«, t00=0x006b, t01=0x00cc}
0xa7fe…a814 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/400 «, t00=0x006b, t01=0x00f2}
0xa814…a844 Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x006b, t01=0x0108}
0xa844…a86c Head {h00=0x0024, h01=0x0050, text=» LDK A7,20 NBR OF CHARACTERS =5 «, t00=0x006b, t01=0x0138}
0xa86c…a898 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF VOLUME NAME ADDRESS =5 «, t00=0x006b, t01=0x0160}
0xa898…a8ce Head {h00=0x0032, h01=0x0050, text=» CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII«, t00=0x006b, t01=0x018c}
0xa8ce…a8ea Head {h00=0x0018, h01=0x0050, text=» LDKL A2,BUF+14 =5 «, t00=0x006c, t01=0x0032}
0xa8ea…a8f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006c, t01=0x004e}
0xa8f6…a900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x005a}
0xa900…a918 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x006c, t01=0x0064}
0xa918…a922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x007c}
0xa922…a92c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0086}
0xa92c…a940 Head {h00=0x0010, h01=0x0050, text=»VOL:20 EQU *«, t00=0x006c, t01=0x0090}
0xa940…a958 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x006c, t01=0x00a4}
0xa958…a976 Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F8 FILE CODE «, t00=0x006c, t01=0x00bc}
0xa976…a98e Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST2,A6«, t00=0x006c, t01=0x00da}
0xa98e…a9b4 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) VOL:30 NOT TEST STATUS«, t00=0x006c, t01=0x00f2}
0xa9b4…a9e2 Head {h00=0x002a, h01=0x0050, text=» ORKL A3,/8000 INDICATE NO NEW NVL SET«, t00=0x006c, t01=0x0118}
0xa9e2…a9f6 Head {h00=0x0010, h01=0x0050, text=»VOL:30 EQU *«, t00=0x006c, t01=0x0146}
0xa9f6…aa28 Head {h00=0x002e, h01=0x0050, text=» CF A15,VOLGET VOLUME NAME TO DWT SET NVL «, t00=0x006c, t01=0x015a}
0xaa28…aa40 Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x006c, t01=0x018c}
0xaa40…aa52 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x006d, t01=0x0014}
0xaa52…aa66 Head {h00=0x0010, h01=0x0050, text=»VOL:40 EQU *«, t00=0x006d, t01=0x0026}
0xaa66…aa76 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006d, t01=0x003a}
0xaa76…aa82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x004a}
0xaa82…aa8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0056}
0xaa8c…aa9e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006d, t01=0x0060}
0xaa9e…aab6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x006d, t01=0x0072}
0xaab6…aac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x008a}
0xaac0…aad2 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006d, t01=0x0094}
0xaad2…aae4 Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x006d, t01=0x00a6}
0xaae4…aaf6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006d, t01=0x00b8}
0xaaf6…ab00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00ca}
0xab00…ab3e Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x006d, t01=0x00d4}
0xab3e…ab5e Head {h00=0x001c, h01=0x0050, text=»* ASCII CODE«, t00=0x006d, t01=0x0112}
0xab5e…ab90 Head {h00=0x002e, h01=0x0050, text=»* INPUT STRING ADDRESS IS BUF «, t00=0x006d, t01=0x0132}
0xab90…abba Head {h00=0x0026, h01=0x0050, text=»* INPUT: A7 NO OF CHARACTERS«, t00=0x006d, t01=0x0164}
0xabba…abdc Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x006d, t01=0x018e}
0xabdc…abfe Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x006e, t01=0x0020}
0xabfe…ac20 Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x006e, t01=0x0042}
0xac20…ac42 Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x006e, t01=0x0064}
0xac42…ac4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0086}
0xac4c…ac60 Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x006e, t01=0x0090}
0xac60…ac76 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x006e, t01=0x00a4}
0xac76…aca0 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x006e, t01=0x00ba}
0xaca0…acac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x00e4}
0xacac…acb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00f0}
0xacb6…acc8 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006e, t01=0x00fa}
0xacc8…ace0 Head {h00=0x0014, h01=0x0050, text=»ASC:00 EQU * =8«, t00=0x006e, t01=0x010c}
0xace0…acec Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x006e, t01=0x0124}
0xacec…acfe Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x006e, t01=0x0130}
0xacfe…ad12 Head {h00=0x0010, h01=0x0050, text=»ASC:10 EQU *«, t00=0x006e, t01=0x0142}
0xad12…ad24 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x006e, t01=0x0156}
0xad24…ad48 Head {h00=0x0020, h01=0x0050, text=» LCR A1,A4 EBCDIC CHARACTER «, t00=0x006e, t01=0x0168}
0xad48…ad5c Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x006e, t01=0x018c}
0xad5c…ad88 Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x006f, t01=0x0010}
0xad88…adbc Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x006f, t01=0x003c}
0xadbc…adce Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x006f, t01=0x0070}
0xadce…ade4 Head {h00=0x0012, h01=0x0050, text=» RB(P) ASC:10 «, t00=0x006f, t01=0x0082}
0xade4…adf6 Head {h00=0x000e, h01=0x0050, text=» RF EBC:90«, t00=0x006f, t01=0x0098}
0xadf6…ae00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00aa}
0xae00…ae18 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x006f, t01=0x00b4}
0xae18…ae22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00cc}
0xae22…ae34 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006f, t01=0x00d6}
0xae34…ae46 Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x006f, t01=0x00e8}
0xae46…ae58 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006f, t01=0x00fa}
0xae58…ae62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x010c}
0xae62…aea2 Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x006f, t01=0x0116}
0xaea2…aec4 Head {h00=0x001e, h01=0x0050, text=»* EBCDIC CODE «, t00=0x006f, t01=0x0156}
0xaec4…af00 Head {h00=0x0038, h01=0x0050, text=»* OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x006f, t01=0x0178}
0xaf00…af0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0024}
0xaf0a…af34 Head {h00=0x0026, h01=0x0050, text=»* INPUT: A7 NO OF CHARACTERS «, t00=0x0070, t01=0x002e}
0xaf34…af56 Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0070, t01=0x0058}
0xaf56…af60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x007a}
0xaf60…af82 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x0070, t01=0x0084}
0xaf82…afa4 Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0070, t01=0x00a6}
0xafa4…afc6 Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x0070, t01=0x00c8}
0xafc6…afda Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0070, t01=0x00ea}
0xafda…afe6 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0070, t01=0x00fe}
0xafe6…affc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0070, t01=0x010a}
0xaffc…b026 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0070, t01=0x0120}
0xb026…b032 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x014a}
0xb032…b03c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0156}
0xb03c…b04e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0070, t01=0x0160}
0xb04e…b060 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0070, t01=0x0172}
0xb060…b074 Head {h00=0x0010, h01=0x0050, text=»EBC:10 EQU *«, t00=0x0070, t01=0x0184}
0xb074…b086 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0071, t01=0x0008}
0xb086…b0a8 Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x0071, t01=0x001a}
0xb0a8…b0bc Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0071, t01=0x003c}
0xb0bc…b0d6 Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x0071, t01=0x0050}
0xb0d6…b0ee Head {h00=0x0014, h01=0x0050, text=» SC A1,BUF-1,A7 «, t00=0x0071, t01=0x006a}
0xb0ee…b100 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0071, t01=0x0082}
0xb100…b116 Head {h00=0x0012, h01=0x0050, text=» RB(P) EBC:10 «, t00=0x0071, t01=0x0094}
0xb116…b140 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0071, t01=0x00aa}
0xb140…b154 Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x0071, t01=0x00d4}
0xb154…b174 Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x0071, t01=0x00e8}
0xb174…b184 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0071, t01=0x0108}
0xb184…b18e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0118}
0xb18e…b1a6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0071, t01=0x0122}
0xb1a6…b1b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x013a}
0xb1b0…b1c2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0071, t01=0x0144}
0xb1c2…b1d4 Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x0071, t01=0x0156}
0xb1d4…b1e6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0071, t01=0x0168}
0xb1e6…b1f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x017a}
0xb1f0…b234 Head {h00=0x0040, h01=0x0050, text=»* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x0071, t01=0x0184}
0xb234…b264 Head {h00=0x002c, h01=0x0050, text=»* LOGICAL SECTOR (BINARY). «, t00=0x0072, t01=0x0038}
0xb264…b2a4 Head {h00=0x003c, h01=0x0050, text=»* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE)«, t00=0x0072, t01=0x0068}
0xb2a4…b2d2 Head {h00=0x002a, h01=0x0050, text=»* TT = TRACK, SS=SECTOR «, t00=0x0072, t01=0x00a8}
0xb2d2…b2dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00d6}
0xb2dc…b30c Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO PHYS. SECTOR«, t00=0x0072, t01=0x00e0}
0xb30c…b316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0110}
0xb316…b340 Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A3 BINARY SECTOR NO «, t00=0x0072, t01=0x011a}
0xb340…b372 Head {h00=0x002e, h01=0x0050, text=»* A4 ADDRESS TO PHYS. SEC. + 4«, t00=0x0072, t01=0x0144}
0xb372…b37c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0176}
0xb37c…b390 Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x0072, t01=0x0180}
0xb390…b3a6 (115, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0073, t01=0x0004}
0xb3a6…b3be Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x0073, t01=0x001a}
0xb3be…b3d0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0073, t01=0x0032}
0xb3d0…b3da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0044}
0xb3da…b3f4 Head {h00=0x0016, h01=0x0050, text=»* MULTIPLY BY 26 «, t00=0x0073, t01=0x004e}
0xb3f4…b3fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0068}
0xb3fe…b414 Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x0073, t01=0x0072}
0xb414…b426 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0073, t01=0x0088}
0xb426…b438 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0073, t01=0x009a}
0xb438…b44e Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x0073, t01=0x00ac}
0xb44e…b460 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0073, t01=0x00c2}
0xb460…b476 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x0073, t01=0x00d4}
0xb476…b48c Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0073, t01=0x00ea}
0xb48c…b49e Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0073, t01=0x0100}
0xb49e…b4b0 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0073, t01=0x0112}
0xb4b0…b4ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0124}
0xb4ba…b4d2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0073, t01=0x012e}
0xb4d2…b4dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0146}
0xb4dc…b4f6 Head {h00=0x0016, h01=0x0050, text=»* CHECK SECTOR NO«, t00=0x0073, t01=0x0150}
0xb4f6…b500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x016a}
0xb500…b512 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0073, t01=0x0174}
0xb512…b524 Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x0073, t01=0x0186}
0xb524…b53a Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x0074, t01=0x0008}
0xb53a…b558 Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD «, t00=0x0074, t01=0x001e}
0xb558…b572 Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x0074, t01=0x003c}
0xb572…b588 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x0074, t01=0x0056}
0xb588…b59a Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x0074, t01=0x006c}
0xb59a…b5a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x007e}
0xb5a4…b5ca Head {h00=0x0022, h01=0x0050, text=»* CHECK EOD LESS/EQUAL 74001 «, t00=0x0074, t01=0x0088}
0xb5ca…b5d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00ae}
0xb5d4…b5f0 Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x0074, t01=0x00b8}
0xb5f0…b604 Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x0074, t01=0x00d4}
0xb604…b62a Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x0074, t01=0x00e8}
0xb62a…b650 Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x0074, t01=0x010e}
0xb650…b660 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0074, t01=0x0134}
0xb660…b66a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0144}
0xb66a…b680 Head {h00=0x0012, h01=0x0050, text=»* FATAL ERROR«, t00=0x0074, t01=0x014e}
0xb680…b68a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0164}
0xb68a…b6b6 Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x0074, t01=0x016e}
0xb6b6…b6dc Head {h00=0x0022, h01=0x0050, text=»LOG:10 LDK A1,/10 RETURN CODE «, t00=0x0075, t01=0x000a}
0xb6dc…b70c Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0075, t01=0x0030}
0xb70c…b72c Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x0075, t01=0x0060}
0xb72c…b74e Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x0075, t01=0x0080}
0xb74e…b758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00a2}
0xb758…b770 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0075, t01=0x00ac}
0xb770…b77a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00c4}
0xb77a…b78c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0075, t01=0x00ce}
0xb78c…b79e Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x0075, t01=0x00e0}
0xb79e…b7b0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0075, t01=0x00f2}
0xb7b0…b7ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0104}
0xb7ba…b7fc Head {h00=0x003e, h01=0x0050, text=»* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x0075, t01=0x010e}
0xb7fc…b844 Head {h00=0x0044, h01=0x0050, text=»* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x0075, t01=0x0150}
0xb844…b874 Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO FIRST DIGIT«, t00=0x0076, t01=0x0008}
0xb874…b892 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A1 BINARY«, t00=0x0076, t01=0x0038}
0xb892…b8b2 Head {h00=0x001c, h01=0x0050, text=»* WORKING REG: A2,A7 «, t00=0x0076, t01=0x0056}
0xb8b2…b8bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0076}
0xb8bc…b8d4 Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x0076, t01=0x0080}
0xb8d4…b8e6 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0076, t01=0x0098}
0xb8e6…b904 Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x0076, t01=0x00aa}
0xb904…b918 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0076, t01=0x00c8}
0xb918…b92c Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0076, t01=0x00dc}
0xb92c…b942 Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x0076, t01=0x00f0}
0xb942…b954 Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0076, t01=0x0106}
0xb954…b974 Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x0076, t01=0x0118}
0xb974…b986 Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0076, t01=0x0138}
0xb986…b998 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0076, t01=0x014a}
0xb998…b9ae Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0076, t01=0x015c}
0xb9ae…b9d8 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x0076, t01=0x0172}
0xb9d8…b9f0 Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0077, t01=0x000c}
0xb9f0…ba10 Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0077, t01=0x0024}
0xba10…ba32 Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0077, t01=0x0044}
0xba32…ba44 Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0077, t01=0x0066}
0xba44…ba5c Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0077, t01=0x0078}
0xba5c…ba6c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0077, t01=0x0090}
0xba6c…ba78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x00a0}
0xba78…ba82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00ac}
0xba82…ba9a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0077, t01=0x00b6}
0xba9a…baa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00ce}
0xbaa4…bab6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0077, t01=0x00d8}
0xbab6…bac8 Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x0077, t01=0x00ea}
0xbac8…bada Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0077, t01=0x00fc}
0xbada…bae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x010e}
0xbae4…bb1a Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x0077, t01=0x0118}
0xbb1a…bb24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x014e}
0xbb24…bb60 Head {h00=0x0038, h01=0x0050, text=»* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x0077, t01=0x0158}
0xbb60…bb6a (120, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0004}
0xbb6a…bb88 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A3 CHANGED«, t00=0x0078, t01=0x000e}
0xbb88…bba6 Head {h00=0x001a, h01=0x0050, text=»* A4 CHANGED«, t00=0x0078, t01=0x002c}
0xbba6…bbb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x004a}
0xbbb0…bbcc Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x0078, t01=0x0054}
0xbbcc…bbe2 Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x0078, t01=0x0070}
0xbbe2…bbf4 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0078, t01=0x0086}
0xbbf4…bc0a Head {h00=0x0012, h01=0x0050, text=» ORS A3,FD:CIO«, t00=0x0078, t01=0x0098}
0xbc0a…bc1a Head {h00=0x000c, h01=0x0050, text=» RTN A5«, t00=0x0078, t01=0x00ae}
0xbc1a…bc2c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0078, t01=0x00be}
0xbc2c…bc36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00d0}
0xbc36…bc4e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0078, t01=0x00da}
0xbc4e…bc58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00f2}
0xbc58…bc6a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0078, t01=0x00fc}
0xbc6a…bc7c Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x0078, t01=0x010e}
0xbc7c…bc8e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0078, t01=0x0120}
0xbc8e…bc98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0132}
0xbc98…bcd6 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x0078, t01=0x013c}
0xbcd6…bd0a Head {h00=0x0030, h01=0x0050, text=»* EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x0078, t01=0x017a}
0xbd0a…bd14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x001e}
0xbd14…bd38 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A7 BINARY NUMBER«, t00=0x0079, t01=0x0028}
0xbd38…bd42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x004c}
0xbd42…bd74 Head {h00=0x002e, h01=0x0050, text=»* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS«, t00=0x0079, t01=0x0056}
0xbd74…bd92 Head {h00=0x001a, h01=0x0050, text=»* A7 CHANGED«, t00=0x0079, t01=0x0088}
0xbd92…bd9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00a6}
0xbd9c…bdb4 Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x0079, t01=0x00b0}
0xbdb4…bdcc Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x0079, t01=0x00c8}
0xbdcc…bde2 Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x0079, t01=0x00e0}
0xbde2…bdf4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0079, t01=0x00f6}
0xbdf4…be06 Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x0079, t01=0x0108}
0xbe06…be1e Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x0079, t01=0x011a}
0xbe1e…be30 Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x0079, t01=0x0132}
0xbe30…be5e Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x0079, t01=0x0144}
0xbe5e…be82 Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x0079, t01=0x0172}
0xbe82…be92 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x007a, t01=0x0008}
0xbe92…be9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0018}
0xbe9c…beb4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007a, t01=0x0022}
0xbeb4…bec6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x007a, t01=0x003a}
0xbec6…bed8 Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x007a, t01=0x004c}
0xbed8…beea Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x007a, t01=0x005e}
0xbeea…bef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0070}
0xbef4…bf2c Head {h00=0x0034, h01=0x0050, text=»* FUNCTION: PREPARE FOR READING DATA SET LABEL«, t00=0x007a, t01=0x007a}
0xbf2c…bf36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00b2}
0xbf36…bf58 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x007a, t01=0x00bc}
0xbf58…bf62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00de}
0xbf62…bfa0 Head {h00=0x003a, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x007a, t01=0x00e8}
0xbfa0…bfbc Head {h00=0x0018, h01=0x0050, text=»* A3 128 «, t00=0x007a, t01=0x0126}
0xbfbc…bfe8 Head {h00=0x0028, h01=0x0050, text=»* A4 DRIVER BUFFER ADDRESS«, t00=0x007a, t01=0x0142}
0xbfe8…c00a Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x007a, t01=0x016e}
0xc00a…c02c Head {h00=0x001e, h01=0x0050, text=»* A1 IS CHANGED «, t00=0x007a, t01=0x0190}
0xc02c…c036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0022}
0xc036…c052 Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x007b, t01=0x002c}
0xc052…c066 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x007b, t01=0x0048}
0xc066…c07a Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x007b, t01=0x005c}
0xc07a…c08c Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x007b, t01=0x0070}
0xc08c…c0a0 Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x007b, t01=0x0082}
0xc0a0…c0b4 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x007b, t01=0x0096}
0xc0b4…c0c4 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x007b, t01=0x00aa}
0xc0c4…c0ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00ba}
0xc0ce…c0e6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007b, t01=0x00c4}
0xc0e6…c0f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00dc}
0xc0f0…c102 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x007b, t01=0x00e6}
0xc102…c114 Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x007b, t01=0x00f8}
0xc114…c126 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x007b, t01=0x010a}
0xc126…c130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x011c}
0xc130…c16a Head {h00=0x0036, h01=0x0050, text=»* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x007b, t01=0x0126}
0xc16a…c174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0160}
0xc174…c196 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x007b, t01=0x016a}
0xc196…c1a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x018c}
0xc1a0…c1c2 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A2 EOD ADDRESS«, t00=0x007c, t01=0x0008}
0xc1c2…c1f2 Head {h00=0x002c, h01=0x0050, text=»* A7 EOD-NO (0=NOT OPEN) «, t00=0x007c, t01=0x002a}
0xc1f2…c210 Head {h00=0x001a, h01=0x0050, text=»* A1 CHANGED«, t00=0x007c, t01=0x005a}
0xc210…c22c Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x007c, t01=0x0078}
0xc22c…c240 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x007c, t01=0x0094}
0xc240…c25a Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x007c, t01=0x00a8}
0xc25a…c26a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x007c, t01=0x00c2}
0xc26a…c274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00d2}
0xc274…c28c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007c, t01=0x00dc}
0xc28c…c296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00f4}
0xc296…c2a8 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x007c, t01=0x00fe}
0xc2a8…c2ba Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x007c, t01=0x0110}
0xc2ba…c2cc Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x007c, t01=0x0122}
0xc2cc…c2d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0134}
0xc2d6…c30c Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x007c, t01=0x013e}
0xc30c…c346 Head {h00=0x0036, h01=0x0050, text=»* TYPE OF DATA FOR CORRESPONDING DRIVE «, t00=0x007c, t01=0x0174}
0xc346…c350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x001e}
0xc350…c372 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A1 DWT OFFSET «, t00=0x007d, t01=0x0028}
0xc372…c394 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x007d, t01=0x004a}
0xc394…c39e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x006c}
0xc39e…c3c4 Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A2 ADDRESS TO DATA«, t00=0x007d, t01=0x0076}
0xc3c4…c3e6 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x007d, t01=0x009c}
0xc3e6…c3f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00be}
0xc3f0…c416 Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x007d, t01=0x00c8}
0xc416…c428 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x007d, t01=0x00ee}
0xc428…c43a Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x007d, t01=0x0100}
0xc43a…c44c Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x007d, t01=0x0112}
0xc44c…c45e Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x007d, t01=0x0124}
0xc45e…c46e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x007d, t01=0x0136}
0xc46e…c478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0146}
0xc478…c490 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007d, t01=0x0150}
0xc490…c49a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0168}
0xc49a…c4ac Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x007d, t01=0x0172}
0xc4ac…c4be Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x007d, t01=0x0184}
0xc4be…c4d0 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x007e, t01=0x0008}
0xc4d0…c4da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x001a}
0xc4da…c518 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x007e, t01=0x0024}
0xc518…c536 Head {h00=0x001a, h01=0x0050, text=»* DRIVE NO «, t00=0x007e, t01=0x0062}
0xc536…c540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0080}
0xc540…c56c Head {h00=0x0028, h01=0x0050, text=»* INPUT: A1 OFFSET TO DWT AREA «, t00=0x007e, t01=0x008a}
0xc56c…c59e Head {h00=0x002e, h01=0x0050, text=»* A3 WORD TO BE STORED IN DWT «, t00=0x007e, t01=0x00b6}
0xc59e…c5c2 Head {h00=0x0020, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x007e, t01=0x00e8}
0xc5c2…c5cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x010c}
0xc5cc…c5ee Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 UNCHANGED«, t00=0x007e, t01=0x0116}
0xc5ee…c622 Head {h00=0x0030, h01=0x0050, text=»* A2 ADDRESS TO WORD IN DWT AREA«, t00=0x007e, t01=0x0138}
0xc622…c644 Head {h00=0x001e, h01=0x0050, text=»* A3 UNCHANGED«, t00=0x007e, t01=0x016c}
0xc644…c666 Head {h00=0x001e, h01=0x0050, text=»* A6 UNCHANGED«, t00=0x007e, t01=0x018e}
0xc666…c670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0020}
0xc670…c684 Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x007f, t01=0x002a}
0xc684…c698 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x007f, t01=0x003e}
0xc698…c6aa Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x007f, t01=0x0052}
0xc6aa…c6ba Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x007f, t01=0x0064}
0xc6ba…c6c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0074}
0xc6c6…c6d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0080}
0xc6d0…c6e8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x007f, t01=0x008a}
0xc6e8…c6f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00a2}
0xc6f2…c718 Head {h00=0x0022, h01=0x0050, text=»* D R I V E R B U F F E R«, t00=0x007f, t01=0x00ac}
0xc718…c722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00d2}
0xc722…c734 Head {h00=0x000e, h01=0x0050, text=»BUF EQU * «, t00=0x007f, t01=0x00dc}
0xc734…c746 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007f, t01=0x00ee}
0xc746…c75a Head {h00=0x0010, h01=0x0050, text=» RES DVBLEN «, t00=0x007f, t01=0x0100}
0xc75a…c766 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0114}
0xc766…c770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0120}
0xc770…c784 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x007f, t01=0x012a}
0xc784…c796 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x007f, t01=0x013e}
0xc796…c7bc Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME BUFFER«, t00=0x007f, t01=0x0150}
0xc7bc…c7d6 Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x007f, t01=0x0176}
0xc7d6…c7f6 Head {h00=0x001c, h01=0x0050, text=» RES DVBLEN-3 MMU BUFFER«, t00=0x007f, t01=0x0190}
0xc7f6…c802 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x0020}
0xc802…c80c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x002c}
0xc80c…c824 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0080, t01=0x0036}
0xc824…c83e Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x0080, t01=0x004e}
0xc83e…c85c Head {h00=0x001a, h01=0x0050, text=» RES DVBLEN MMU BUFFER«, t00=0x0080, t01=0x0068}
0xc85c…c868 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x0086}
0xc868…c872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0092}
0xc872…c88a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0080, t01=0x009c}
0xc88a…c894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00b4}
0xc894…c8b2 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0080, t01=0x00be}
0xc8b2…c8d0 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0080, t01=0x00dc}
0xc8d0…c8ee Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0080, t01=0x00fa}
0xc8ee…c90c Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0080, t01=0x0118}
0xc90c…c92a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0080, t01=0x0136}
0xc92a…c934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0154}
0xc934…c948 Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0080, t01=0x015e}
0xc948…c974 Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x0080, t01=0x0172}
0xc974…c984 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0081, t01=0x000e}
0xc984…c9a2 Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0081, t01=0x001e}
0xc9a2…c9be Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0081, t01=0x003c}
0xc9be…c9d4 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0081, t01=0x0058}
0xc9d4…c9fa Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0081, t01=0x006e}
0xc9fa…ca16 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0081, t01=0x0094}
0xca16…ca3e Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0081, t01=0x00b0}
0xca3e…ca5c Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0081, t01=0x00d8}
0xca5c…ca66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00f6}
0xca66…ca7c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0081, t01=0x0100}
0xca7c…caa6 Head {h00=0x0026, h01=0x0050, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0081, t01=0x0116}
0xcaa6…caca Head {h00=0x0020, h01=0x0050, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0081, t01=0x0140}
0xcaca…cad6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0164}
0xcad6…cae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0170}
0xcae0…cafa Head {h00=0x0016, h01=0x0050, text=»DWTA3 EQU *-DWFD01«, t00=0x0081, t01=0x017a}
0xcafa…cb0a (130, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0082, t01=0x0004}
0xcb0a…cb24 Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x0082, t01=0x0014}
0xcb24…cb34 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0082, t01=0x002e}
0xcb34…cb44 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0082, t01=0x003e}
0xcb44…cb6a Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0,0 STACK (3 LEVELS)«, t00=0x0082, t01=0x004e}
0xcb6a…cb8a Head {h00=0x001c, h01=0x0050, text=» DATA 0 ORDER SAVE AREA «, t00=0x0082, t01=0x0074}
0xcb8a…cb94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0094}
0xcb94…cbac Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0082, t01=0x009e}
0xcbac…cbb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00b6}
0xcbb6…cbc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00c0}
0xcbc0…cbd8 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0082, t01=0x00ca}
0xcbd8…cbfc Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 0 «, t00=0x0082, t01=0x00e2}
0xcbfc…cc20 Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 1 «, t00=0x0082, t01=0x0106}
0xcc20…cc44 Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 2 «, t00=0x0082, t01=0x012a}
0xcc44…cc68 Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 3 «, t00=0x0082, t01=0x014e}
0xcc68…cc94 Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x0082, t01=0x0172}
0xcc94…ccb4 Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0083, t01=0x000e}
0xccb4…cce0 Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x0083, t01=0x002e}
0xcce0…cd00 Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0083, t01=0x005a}
0xcd00…cd2c Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x0083, t01=0x007a}
0xcd2c…cd4c Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0083, t01=0x00a6}
0xcd4c…cd78 Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x0083, t01=0x00c6}
0xcd78…cd98 Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0083, t01=0x00f2}
0xcd98…cdc4 Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x0083, t01=0x0112}
0xcdc4…cdd4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0083, t01=0x013e}
0xcdd4…cde0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x014e}
0xcde0…cdfa Head {h00=0x0016, h01=0x0050, text=»DWTA5 EQU *-DWFD01«, t00=0x0083, t01=0x015a}
0xcdfa…ce0a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0083, t01=0x0174}
0xce0a…ce38 Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x0083, t01=0x0184}
0xce38…ce48 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0084, t01=0x0022}
0xce48…ce70 Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x0084, t01=0x0032}
0xce70…ce80 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0084, t01=0x005a}
0xce80…ce8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x006a}
0xce8a…cea2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0084, t01=0x0074}
0xcea2…ceac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x008c}
0xceac…ceb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0096}
0xceb6…cec8 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0084, t01=0x00a0}
0xcec8…cef8 Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x0084, t01=0x00b2}
0xcef8…cf08 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0084, t01=0x00e2}
0xcf08…cf14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x00f2}
0xcf14…cf1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00fe}
0xcf1e…cf4e Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x0084, t01=0x0108}
0xcf4e…cf5e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0084, t01=0x0138}
0xcf5e…cf68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0148}
0xcf68…cf7e Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0084, t01=0x0152}
0xcf7e…cfb0 Head {h00=0x002e, h01=0x0050, text=»DWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN«, t00=0x0084, t01=0x0168}
0xcfb0…cfc0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0085, t01=0x000a}
0xcfc0…cff8 Head {h00=0x0034, h01=0x0050, text=»DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON «, t00=0x0085, t01=0x001a}
0xcff8…d008 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0085, t01=0x0052}
0xd008…d014 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x0062}
0xd014…d01e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x006e}
0xd01e…d036 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0085, t01=0x0078}
0xd036…d040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0090}
0xd040…d04a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x009a}
0xd04a…d05e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0085, t01=0x00a4}
0xd05e…d098 Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x0085, t01=0x00b8}
0xd098…d0a8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0085, t01=0x00f2}
0xd0a8…d0d8 Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x0085, t01=0x0102}
0xd0d8…d0e8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0085, t01=0x0132}
0xd0e8…d118 Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x0085, t01=0x0142}
0xd118…d128 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0085, t01=0x0172}
0xd128…d134 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x0182}
0xd134…d13e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x018e}
0xd13e…d150 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0086, t01=0x0008}
0xd150…d180 Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x0086, t01=0x001a}
0xd180…d196 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0086, t01=0x004a}
0xd196…d1be Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x0086, t01=0x0060}
0xd1be…d1d4 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0086, t01=0x0088}
0xd1d4…d1fe Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x0086, t01=0x009e}
0xd1fe…d214 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0086, t01=0x00c8}
0xd214…d242 Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x0086, t01=0x00de}
0xd242…d258 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0086, t01=0x010c}
0xd258…d28a Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x0086, t01=0x0122}
0xd28a…d2a0 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0086, t01=0x0154}
0xd2a0…d2ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0086, t01=0x016a}
0xd2ac…d2b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0176}
0xd2b6…d2ce Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0086, t01=0x0180}
0xd2ce…d2d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0008}
0xd2d8…d2e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0012}
0xd2e2…d30c Head {h00=0x0026, h01=0x0050, text=»DWTBA EQU *-DWFD01 BUFFER POINTER «, t00=0x0087, t01=0x001c}
0xd30c…d31c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0087, t01=0x0046}
0xd31c…d348 Head {h00=0x0028, h01=0x0050, text=»DWTRL EQU *-DWFD01 LENGTH IN SUB IO «, t00=0x0087, t01=0x0056}
0xd348…d358 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0087, t01=0x0082}
0xd358…d382 Head {h00=0x0026, h01=0x0050, text=»DWTCW2 EQU *-DWFD01 SECTOR NUMBER «, t00=0x0087, t01=0x0092}
0xd382…d392 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0087, t01=0x00bc}
0xd392…d3c4 Head {h00=0x002e, h01=0x0050, text=»DWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER «, t00=0x0087, t01=0x00cc}
0xd3c4…d3d4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0087, t01=0x00fe}
0xd3d4…d40c Head {h00=0x0034, h01=0x0050, text=»DWTSIO EQU *-DWFD01 NUMBER OF SECTORS IN SUB IO «, t00=0x0087, t01=0x010e}
0xd40c…d41c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0087, t01=0x0146}
0xd41c…d426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0156}
0xd426…d43e Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x0087, t01=0x0160}
0xd43e…d468 Head {h00=0x0026, h01=0x0050, text=»DWTFIB EQU *-DWFD01 IBM INDICATOR «, t00=0x0087, t01=0x0178}
0xd468…d478 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0088, t01=0x0012}
0xd478…d484 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0088, t01=0x0022}
0xd484…d48e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x002e}
0xd48e…d4a6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0088, t01=0x0038}
0xd4a6…d4b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0050}
0xd4b0…d4ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x005a}
0xd4ba…d4d0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0088, t01=0x0064}
0xd4d0…d4ec Head {h00=0x0018, h01=0x0050, text=»DWT:BF EQU *-DWFD01 «, t00=0x0088, t01=0x007a}
0xd4ec…d514 Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x0088, t01=0x0096}
0xd514…d530 Head {h00=0x0018, h01=0x0050, text=»BUFFLG EQU *-DWFD01 «, t00=0x0088, t01=0x00be}
0xd530…d540 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0088, t01=0x00da}
0xd540…d54a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00ea}
0xd54a…d562 Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0088, t01=0x00f4}
0xd562…d57e Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWFD01 «, t00=0x0088, t01=0x010c}
0xd57e…d5ac Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x0088, t01=0x0128}
0xd5ac…d5cc Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x0088, t01=0x0156}
0xd5cc…d5d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0176}
0xd5d6…d5f2 Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWFD01 «, t00=0x0088, t01=0x0180}
0xd5f2…d620 Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0089, t01=0x000c}
0xd620…d62c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0089, t01=0x003a}
0xd62c…d636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0046}
0xd636…d64c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0089, t01=0x0050}
0xd64c…d660 Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0089, t01=0x0066}
0xd660…d67c Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0089, t01=0x007a}
0xd67c…d688 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0089, t01=0x0096}
0xd688…d692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00a2}
0xd692…d69c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00ac}
0xd69c…d6a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00b6}
0xd6a6…d6b2 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0089, t01=0x00c0}
0xd6b2…d6b6 Head {h00=0x4004, h01=0x0000}
0xd6b6…d6ba 00 89 00 cc ┆ ┆
0xd6ba…d6c2 (138, 1, 8) 20 04 00 00 00 8a 00 04 ┆ ┆
0xd6c2…d712 (139, 0, 400) 5c 41 31 34 01 62 01 8c 00 0a 00 50 5c 45 4a 45 43 54 01 63 00 0c 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ A14 b P EJECT c < P******************************************************┆
0xd712…d762 2a 2a 01 63 00 1a 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 63 00 5a 00 3c 00 50 2a 20 20 20 48 45 ┆** c < P* * c Z < P* HE┆
0xd762…d7b2 58 43 4e 56 20 20 43 4f 4e 56 45 52 54 53 20 41 20 48 45 58 41 44 45 43 49 4d 41 4c 20 44 49 47 49 54 20 49 4e 20 41 53 43 49 49 20 43 4f 44 45 20 2a 01 63 00 9a 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 54 4f 20 43 4f 52 52 45 53 50 ┆XCNV CONVERTS A HEXADECIMAL DIGIT IN ASCII CODE * c < P* TO CORRESP┆
0xd7b2…d802 4f 4e 44 49 4e 47 20 48 45 58 41 44 45 43 49 4d 41 4c 20 56 41 4c 55 45 20 20 20 20 20 20 20 20 20 2a 01 63 00 da 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 28 34 20 42 49 54 53 20 42 49 4e 41 52 59 20 43 4f 44 45 29 20 20 20 20 20 20 ┆ONDING HEXADECIMAL VALUE * c < P* (4 BITS BINARY CODE) ┆
0xd802…d852 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 63 01 1a 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * c < P* ┆
0xd852…d8a2 (140, 0, 400) 20 2a 01 63 01 5a 00 3c 00 50 2a 20 20 20 4f 4e 20 45 4e 54 52 59 3a 20 41 31 20 43 48 41 52 41 43 54 45 52 20 54 4f 20 43 4f 4e 56 45 52 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 64 00 0a 00 3c 00 50 2a 20 20 20 20 20 ┆ * c Z < P* ON ENTRY: A1 CHARACTER TO CONVERT * d < P* ┆
0xd8a2…d8f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 64 00 4a 00 3c 00 50 2a 20 20 20 4f 4e 20 45 58 49 54 3a 20 20 41 31 20 43 4f 4e 56 45 ┆ * d J < P* ON EXIT: A1 CONVE┆
0xd8f2…d942 52 54 45 44 20 43 41 52 41 43 54 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 64 00 8a 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RTED CARACTER * d < P* ┆
0xd942…d992 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 01 64 00 ca 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * d < P******************************************************┆
0xd992…d9e2 2a 2a 01 64 01 0a 00 08 00 50 5c 5c 5c 20 01 64 01 4a 00 08 00 50 5c 5c 5c 20 01 64 01 56 00 10 00 50 48 45 58 43 4e 56 5c 45 51 55 5c 2a 01 64 01 62 00 22 00 50 5c 41 4e 4b 5c 41 31 2c 2f 46 46 5c 49 53 4f 4c 41 54 45 20 43 48 41 52 41 43 ┆** d P d J P d V PHEXCNV EQU * d b " P ANK A1,/FF ISOLATE CHARAC┆