|
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: 52736 (0xce00)
Notes: pts_type(SC)
Names: »DRFD02.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/DRFD02.SC«
IDENT DRFD02 REL 11.0 81-02-27 870105041100 =4, REL 11.0 81-02-18 =4, CRN UPDATED FOR SEQ READ IF ERROR =3, REL 11.0 81-01-27 =3, DATA SET NBR IN ECBCW1 =2, REL 11.0 81-01-26 =2, NOT OP. IF WRONG CH. UNIT =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY AND =1, NOT IBM NOT WORKING * ********************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRFD02 = DRIVER FOR FLEXIBLE DISK * * * * * * ********************************************* * * * THIS DISK DRIVER HANDLES UP TO FOUR DAISY * CHAINED FLEXIBLE DISK DRIVES PTS 6879 OR PTS 6791 * CONNECTED TO CPU VIA CHANNEL UNIT F1MZ/B ON * MULTIPLEX CHANNEL * * EJECT DRFD02 * * 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 * /1F FORMAT VOLUME * /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 DRFD02 * *********** * * * ENTRIES * * * *********** * ENTRY FDADR ACTIVATION ADDRESS ENTRY IHFD INTERRUPT HANDLER ENTRY FDON RECOVERY ROUTINE ENTRY DWFD01 DWT-ADDRESS EJECT DRFD02 * ************* * * * EXTERNALS * * * ************* * EXTRN INXDWT INDEXED DISPLACEMENT IN DWT 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 DWTOR DWT INDEX AND ORDER EXTRN DWTORD ORDER/INDEX SAVE AREA EXTRN DWTSB2 STACK BASE 2 IN DWT EXTRN SAVE8 SAVE A1-A8 ON A15 STACK EXTRN SETIMP TIMER EXTRN PFPOST PWF POST PROC. FLAG EXTRN TASCII EBCDIC TO ASCII TAB EXTRN TEBCDIC ASCII TO EBCDIC TAB 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 DRFD02 * ************************ * * * CONDITIONAL ASSEMBLY * * * ************************ * * * A PROGRAM VERSION INCLUDING TOSS DISC FORMAT * IS OBTAINED BY SETTING TOSS EQU 1. * X:A EQU 1 TOSS EQU X:A * * A PROGRAM VERSION INCLUDING IBM DISC FORMAT * IS OBTAINED BY SETTING IBM EQU 1. * X:B EQU 0 IBM EQU X:B * * A PROGRAM VERSION LEAVING OUT THE CODE CONVERSION * ASCII-EBCDIC IS OBTAINED BY SETTING ASCEBC EQU 0 * X:C EQU 1 ASCEBC EQU X:C * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * EJECT DRFD02 * * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * ANTI ASCEBC CONDITIONAL ASSEMBLY * IFT ASCEBC=1 EBCASC EQU 0 XIF IFT ASCEBC=0 EBCASC EQU 1 XIF * EJECT DRFD02 * ************* * * * CONSTANTS * * * ************* * DEVIND EQU 10 DEVICE INDEX CUADR EQU 09 CONTROL UNIT ADDRESS MUXADR EQU CUADR+CUADR MUX-ADDRESS 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 * * * ORDERS * OR:TES EQU 0 TEST STATUS OR:BAR EQU /01 BASIC READ OR:SER EQU /02 SEQUENTIAL READ OR:BAW EQU /05 BASIC WRITE OR:SEW EQU /06 SEQUENTIAL WRITE OR:PHR EQU /11 PHYSICAL READ OR:PHW EQU /15 PHYSICAL WRITE OR:FOV EQU /1F FORMAT VOLUME OR:DDW EQU /24 WRITE DELETED DATA OR:LCK EQU /26 LOCK OR:REW EQU /31 REWIND OR:LOD EQU /37 LOAD OR:ULD EQU /38 UNLOAD * EJECT DRFD02 * * * RETURN CODES * * RC:RET EQU /100 RETRIES PERFORMED RC:NOD EQU /804 NO DATA RC:NOP EQU 1 NOT OPERABLE RC:ILE EQU /8008 ILLEGAL LENGTH RC:REQ EQU /8000 REQUEST ERROR RC:IBM EQU /400 IBM DISC RC:EOD EQU /1000 END OF DATA RC:EOE EQU /2000 END OF EXTENT RC:WRP EQU /240 WRITE PROTECTED RC:FOR EQU /800 FORMAT RC:IDS EQU /10 ILLEGAL DATA SET LABEL MS:128 EQU 2002 MAX SECTOR NUMBER FORMAT (128-1) MS:256 EQU 4004 MAX SECTOR NUMBER FORMAT (256-2D) IN:WE1 EQU /8080 1ST WER INSTRUCTION IN:LCK EQU /4 LOCK BIT INDICATOR IN:ULC EQU /FB UNLOCK INDICATOR IN:IBM EQU /1 IBM INDICATOR IN:TOS EQU /FE TOSS INDICATOR EBC:VO EQU /E5D6 EBCDIC FOR 'VO' EBC:L1 EQU /D3F1 EBCDIC FOR 'L1' EJECT DRFD02 * ********** * * * TABLES * * * ********** * DATA 0 DATA DEVIND DEVICE INDEX FDADR DATA FDAD ACTIVATION ADDRESS DATA 0 ABORT ROUTINE ADDRESS * EJECT DRFD02 * ********** * TESTST * ********** * * TEST STATUS ORDER * * TESTST EQU * CF A15,NVLCHK ORS A1,DWTRC,A6 NVL INDICATOR CM DWTSEC,A6 READ SECTOR 0 CF A5,REAPRB PREPARE FOR READ TO BUFFER CF A5,CIOI00 READ CF A5,WRIPRE PREPARE CIO WRITE TO BUFFER CF A5,CIOI00 ANKL A1,/200 ORS A1,DWTRC,A6 WRITE PROTECTED LDK A1,/80 INDICATE TEST STATUS SC A1,DWT:FC,A6 CF A5,VO:NAM GET VOLUME NAME AND STATUS ORS A1,DWTRC,A6 FORMAT TO RC ANK A1,/7 RF(NZ) TEST50 ERROR CF A15,VOLNAM VOLUME NAME TO BUFFER IF REQUESTED LDK A1,0 RESET RETURN CODE TEST50 EQU * ABL END:IO END REQUEST * EJECT DRFD02 * ************** * * * ACTIVATION * * * ************** * FDAD EQU * ACTIVATION ENTRY CM DWTRC,A6 CLEAR RC ACCUMELATOR CF A5,GETPAR GET DEVICE DEPENDENT PARAMETERS IFT MMUPAG=1 MLR 2,A8 BUFFER ADDRESS SLC A1,4 ANK A1,/3 SRL A2,1 WORD MODE MS 2,DWTBA,A6 18 BIT BUFFER ADDRESS XIF IFT MMUPAG=0 LD A1,ECBBA,A8 BUFFER ADDRESS ST A1,DWTBA,A6 XIF LD A2,DWTOR,A6 SAVE INDEX AND ORDER ST A2,DWTORD,A6 LDKL A1,IN:WE1-/80 1ST WER INSTRUCTION * EJECT DRFD02 * * LDR A3,A7 ORDER RB(Z) TESTST TEST STATUS IFT TOSS=1 IFT IBM=0 SUK A3,OR:BAR-OR:TES RF(Z) READ BASIC READ SUK A3,OR:BAW-OR:BAR RF(Z) WRITE BASIC WRITE SUK A3,OR:PHR-OR:BAW RF(Z) READ PHYSICAL READ SUK A3,OR:PHW-OR:PHR RF(Z) WRITE PHYSICAL WRITE SUK A3,OR:FOV-OR:PHW ABL(Z) FORMAT FORMAT VOLUME SUK A3,OR:DDW-OR:FOV RF(Z) DDWRIT WRITE DELETED DATA SUK A3,OR:LCK-OR:DDW ABL(Z) LOCKDO LOCK SUK A3,OR:LOD-OR:LCK ABL(Z) LOAD LOAD SUK A3,OR:ULD-OR:LOD ABL(Z) UNLOAD UNLOCK XIF * IFT IBM=1 SUK A3,OR:BAR-OR:TES RF(Z) READ BASIC READ SUK A3,OR:SER-OR:BAR ABL(Z) SQREAD SEQUENTIAL READ SUK A3,OR:BAW-OR:SER RF(Z) WRITE BASIC WRITE SUK A3,OR:SEW-OR:BAW ABL(Z) SQWRIT SEQUENTIAL WRITE SUK A3,OR:PHR-OR:SEW RF(Z) READ PHYSICAL READ SUK A3,OR:PHW-OR:PHR RF(Z) WRITE PHYSICAL WRITE SUK A3,OR:FOV-OR:PHW ABL(Z) FORMAT FORMAT VOLUME SUK A3,OR:DDW-OR:FOV RF(Z) DDWRIT WRITE DELETED DATA SUK A3,OR:LCK-OR:DDW ABL(Z) LOCKDO LOCKDO SUK A3,OR:REW-OR:LCK ABL(Z) REWIND REWIND SUK A3,OR:LOD-OR:REW ABL(Z) LOAD LOAD SUK A3,OR:ULD-OR:LOD ABL(Z) UNLOAD UNLOAD XIF * EJECT DRFD02 * * REQERR EQU * ABL DISIOE REQUEST ERROR ER:ILE EQU * LDKL A1,RC:ILE ABL DISEND * EJECT DRFD02 * * ********** * DDWRIT * * WRITE * * READ * ********** * * WRITE DELETED DATA , WRITE AND READ * * DDWRIT EQU * LDKL A3,/800 CIO REGISTER WRITE EQU * ADK A3,/1 CIO REGISTER ADKL A1,/4000 1ST WER REGISTER READ EQU * CF A5,CIOPRE PREPARE FOR CIO CF A15,NVLCHK CHECK IF NEW VOLUME LOADED ADK A1,0 RB(NZ) TEST50 NEW VOLUME LOADED : END IO * EJECT DRFD02 * * LD A4,DWTFOR,A6 FORMAT LD A1,ECBRL,A8 REQUESTED LENGTH RB(Z) ER:ILE ILLEGAL LENGTH LD A2,ECBCW2,A8 START SECTOR RB(N) REQERR ILLEGAL SECTOR NUMBER CWK A2,MS:256-13 MAX TOSS SECTOR NUMBER RB(NL) REQERR ILLEGAL SECTOR NUMBER ST A1,DWTRL,A6 SAVE LENGTH LDR A3,A1 SRL A3,7 NUMBER OF 128 SECTORS SRC A4,2 FORMAT RF(N) TRA500 FORM: (256-2D) IFT TOSS+IBM=2 SLC A4,1 RF(N) TRA300 IBM FORMATED XIF IFT TOSS=1 SLL A2,1 START SECTOR XIF IFT TOSS+IBM=2 CWK A2,MS:128 MAX SECTOR NUMBER RB(NL) REQERR ILLEGAL SECTOR NUMBER RF TRA400 TRA300 EQU * XIF IFT IBM=1 SLL A1,1 ADK A3,78 SPARE TRACK SECTORS CWK A2,MS:128-78 MAX IBM SECTOR NUMBER RB(NL) REQERR ILLEGAL SECTOR NUMBER TRA400 EQU * XIF ADKL A3,MS:256-MS:128 ADJUST SECTOR NUMBER RF TRA590 CHECK VALUE * EJECT DRFD02 * * TRA500 EQU * IFT TOSS+IBM=2 SLC A4,1 RF(N) TRA525 IBM FORMATTED XIF IFT TOSS=1 CWK A2,13 RF(NL) TRA550 NOT TRACK ZERO SLL A2,1 PHYSICAL SECTOR NUMBER RF TRA600 TRA525 EQU * XIF IFT IBM=1 CWK A2,MS:256-104 MAX IBM SECTOR NUMBER RB(NL) REQERR ILLEGAL SECTOR NUMBER CWK A2,26 RF(NL) TRA530 SLL A1,1 ADR A3,A2 END OF BUFFER SECTOR SUK A3,26 RF(N) TRA600 TRACK ZERO ANK A3,1 ODD OR EVEN RB(NZ) ER:ILE ILLEGAL LENGTH TRA530 EQU * SRL A3,1 NUMBER OF 256 SECTORS ADK A3,104 SPARE SECTORS RF TRA590 XIF IFT TOSS=1 TRA550 EQU * ADK A2,13 SRL A3,1 XIF * EJECT DRFD02 * * TRA590 EQU * ADR A3,A2 LAST SECTOR NUMBER CWK A3,MS:256 MAX SECTOR NUMBER RB(G) ER:ILE INCORRECT LENGTH TRA600 EQU * ANK A1,/FF RB(NZ) ER:ILE ILLEGAL LENGTH IFT CPU852=0 DVK 26 A1,A2 PHYSICAL SECTOR NUMBER XIF IFT CPU852=1 LDR A1,A2 LDK A2,0 LDKL A3,/D00 26 SHIFTED DVK26A EQU * SLL A2,1 SUR A1,A3 RF(NN) DVK26B ADR A1,A3 RF DVK26C DVK26B EQU * ADK A2,1 DVK26C EQU * SRC A3,1 CWK A3,26 RB(NL) DVK26A XIF IFT TOSS+IBM=2 SRC A4,1 FORMAT XIF IFF TOSS+IBM=2 ADK A4,0 XIF RF(N) IOR100 (256-2D) SLL A2,1 * EJECT DRFD02 * * IOR100 EQU * ST A1,DWTSEC,A6 SECTOR NUMBER ON CYLINDER SC A2,DWTSEC,A6 CYLINDER NUMBER IOR200 EQU * IFT TOSS+IBM=2 IFT ASCEBC=1 LD A4,DWTFOR,A6 FORMAT SRC A4,1 RF(NN) IOR250 TOSS DISC XIF IFT IBM+ASCEBC=2 LD A3,DWTIOR,A6 GET IO ORDER RF(NZ) IOR220 WRITE ORDER CF A5,CIOI00 PERFORM READ LDR A3,A1 SAVE RETURN CODE CF A5,ASCMOV TRANSFORM AND MOVE TO USER LDR A1,A3 GET RETURN CODE RF(NZ) ENDIOR READ ERROR RF IOR230 UPDATE PARAMETERS IOR220 EQU * WRITE IBM SECTOR CF A5,EBCDIC MOVE FROM USER AND TRANSFORM CF A5,CIOI00 WRITE ON DISC RF(NZ) ENDIOR ERROR LC A1,DWTOR+1,A6 GET ORDER SUK A1,/15 RF(NE) IOR230 NOT READ AFTER WRITE CF A5,CIOIVF VERIFY RF(NZ) END:IO ERROR IOR230 EQU * CF A5,GETLEN GET LENGTH OF IO CF A5,INCSEC INCREMENT SECTOR NUMBER LDR A2,A7 LENGTH OF IO IFT TOSS=1 =1 RF IOR400 =1 XIF IFF TOSS+EBCASC=0 * EJECT DRFD02 * * IOR250 EQU * TOSS DISC LD A3,DWTSEC,A6 START SECTOR NUMBER ECR A2,A3 ANK A3,/FF SECTOR NUMBER NGR A3,A3 26-A3 ADK A3,26 ANK A2,/FF CYLINDER AND HEAD NUMBER RF(Z) IOR260 1ST TRACK LD A4,DWTFOR,A6 FORMAT SRC A4,2 RF(NN) IOR260 (128-1) SLL A3,1 LENGTH LEFT ON TRACK IOR260 EQU * SLL A3,6 WORD MODE LD A4,DWTRL,A6 REST OF IO SRL A4,1 WORD MODE CWR A3,A4 RF(L) IOR275 LDR A3,A4 REST OF TRACK IN ONE IO IOR275 EQU * LDKL A4,/F000 ANS A4,DWTWE1,A6 RESET LENGTH IN 1ST WER ORS A3,DWTWE1,A6 LENGTH TO 1ST WER CF A5,CIO:WR PERFORM READ/WRITE RF(NZ) END:IO READ/WRITE ERROR LC A1,DWTOR+1,A6 GET ORDER SUK A1,/15 RF(NE) IOR300 NOT READ AFTER WRITE CF A5,CIO:VF PERFORM VERIFY RF(NZ) END:IO VERIFY ERROR * EJECT DRFD02 * * IOR300 EQU * CF A5,INCCYL NEXT HEAD AD A2,DWTSEC,A6 NEXT TRACK ANKL A2,/FF00 SECTOR 0 ST A2,DWTSEC,A6 SECTOR ID LD A2,DWTWE1,A6 GET LENGTH OF PERFORMED IO SLL A2,4 SRL A2,3 CHARACTERS IOR400 EQU * XIF ADS A2,ECBEL,A8 UPDATE ECBEL NGR A3,A2 IFT MMUPAG=1 LDK A1,0 SRL A2,1 DA DWTBA,A6 ANK A1,/3 MS 2,DWTBA,A6 XIF IFT MMUPAG=0 ADS A2,DWTBA,A6 XIF ADS A3,DWTRL,A6 RB(NZ) IOR200 NEXT TRACK/SECTOR LDK A1,0 RESET RETURN CODE ENDIOR EQU * RF END:IO REQUEST READY * EJECT DRFD02 * ********** * FORMAT * ********** * * FORMAT EQU * CF A15,NVLCHK ADK A1,0 RF(NZ) END:IO ERROR: NEW VOLUME LOADED CF A5,WRIPRE PREPARE FOR WRITE LDK A2,36 FORM10 EQU * CM FD:BUF,A2 CLEAR BUFFER SUK A2,2 RB(NN) FORM10 CF A15,VOLCLR CLEAR VOLUME NAME IN DWT LDKL A1,'TO' LDKL A2,'SS' LDKL A4,FD:BUF+32 TOSS INDICATION ADDRESS LDK A3,IN:TOS INDICATE TOSS DISC ANS A3,DWTFOR,A6 LD A3,ECBCW1,A8 TOSS/IBM INDICATOR RF(Z) FORM40 TOSS CM DWTSEC,A6 WRITE SECTOR 0 CF A5,CIOI00 LDK A3,IN:IBM INDICATE IBM DISC ORS A3,DWTFOR,A6 LDKL A1,EBC:VO 'VO' LDKL A2,EBC:L1 'L1' LDK A3,6 WRITE SECTOR 6 LDKL A4,FD:BUF IBM INDICATION ADDRESS FORM40 EQU * STR A1,A4 INDICATE TOSS/IBM ST A2,2,A4 ST A3,DWTSEC,A6 CF A5,CIOI00 WRITE SECTOR * EJECT DRFD02 * * ********** * END:IO * ********** * * * END:IO EQU * CF A5,SETPAR SET DISC DEPENDENT PARAMETERS OR A1,DWTRC,A6 GET COLLECTED RC CF A15,TENDIO T:DISP EQU * ABL TDISP END:30 EQU * LDK A1,1 NOT OPERABLE ORS A1,DWTST,A6 RECOVERY DONE =1 RB END:IO * EJECT DRFD02 * ********** * LOCKDO * ********** * * LOCK ORDER * LOCKDO EQU * CF A5,LOCK LOCK DOOR RB(NZ) END:IO NOT OPERABLE LDK A2,IN:LCK ORS A2,DWTFOR,A6 INDICATE LOCKED IFT IBM=1 LD A1,DWTFOR,A6 GET FORMAT ANK A1,1 SRC A1,6 INDICATE TOSS/IBM XIF RB END:IO * EJECT DRFD02 * ********** * LOAD * ********** * * LOAD ORDER * * INPUT : A4 = DOUBLED INDEX + A6 LOAD EQU * CF A5,LOCK LOCK DOORS RF(NZ) END:UL ERROR LDK A2,IN:LCK ORS A2,DWTFOR,A6 INDICATE DOOR LOCKED CF A5,VO:NAM GET VOLUME NAME ANK A1,/F RF(NZ) END:UL ERROR UNLOCK DOOR IFT TOSS+IBM=2 LD A2,DWTFOR,A6 SRC A2,1 RB(NN) END:IO TOSS DISC XIF IFT IBM=0 RB END:IO XIF IFT IBM=1 * EJECT DRFD02 * * LD A4,ECBCW1,A8 DATA SET NUMBER =3 LDR A3,A4 SAVE NUMBER SUK A4,7 RF(N) LOA:85 ILLEGAL DATA SET NUMBER IFT TOSS=1 SRC A2,1 XIF IFT TOSS=0 LD A2,DWTFOR,A6 GET FORMAT SRC A2,2 XIF IFT IBM=1 RF(NN) LOA:10 (128-1) SUK A4,77-25 CWK A3,25 RF(NG) LOA:10 HEAD 0 SUK A3,26 DATA SET NUMBER ON TRACK 1 SRC A3,1 SECTOR NUMBER IN RIGHT BYTE ORKL A3,/100 HEAD 1 LOA:10 EQU * SUK A4,25-7 RF(P) LOA:85 ILLEGAL DATA SET NUMBER CF A15,INXDWT ST A3,DWTDSS,A4 SAVE DATA SET NUMBER CF A5,REAPDS PREPARE READ DATA SET CF A5,CIOI00 READ LDR A3,A1 GET RETURN CODE SRL A3,7 ORR A1,A3 RF(NZ) END:UL ERROR UNLOAD * EJECT DRFD02 * * LDKL A7,FD:BUF+BOE ADDRESS TO BOE LD A4,DWTDSS,A4 GET DATA SET NUMBER RF(NN) LOA:20 1ST DATA SET IN BUFFER ADK A7,/80 2ND DATA SET IN BUFFER LOA:20 EQU * CF A5,IBMTRA TRANSFORM TO BINARY ST A3,DWTBOE,A4 SAVE BEGINNING OF EXTENT CF A5,DECBOE CURRENT RECORD NUMBER=BOE-1 ADK A7,EOE-BOE-5 ADDRESS TO EOE CF A5,IBMTRA ST A3,DWTEOE,A4 END OF EXTENT ADK A7,EOD-EOE-5 ADDRESS TO EOD CF A5,IBMTRA ST A3,DWTEOD,A4 END OF DATA LDKL A1,RC:IBM INDICATE IBM DISC RB END:IO END REQUEST LOA:85 EQU * LDKL A1,RC:REQ REQUEST ERROR RF END:UL UNLOAD * XIF EJECT DRFD02 * ********** * UNLOAD * ********** * * UNLOAD ORDER * IFT IBM=1 UNLOAD EQU * IFT TOSS+IBM=2 LD A1,DWTFOR,A6 GET FORMAT SRC A1,1 RF(NN) UNL:50 TOSS DISC XIF IFT IBM=1 LD A3,DWTEOD,A4 END OF DATA RF(Z) UNL:50 NOT OPENED CF A5,SECBIN CONVERT TO BINARY ST A3,ECBCW2,A8 EOD TO ECB LD A3,DWTDSS,A4 DATA SET SECTOR ID CF A5,REAPDS PREPARE READ DATA SET CF A5,CIOI00 READ RF(NZ) END:UL READ ERROR LDKL A1,FD:BUF+EOD EOD ADDRESS LD A3,DWTDSS,A4 DATA SET NUMBER RF(NN) UNL:20 1ST DATA SET IN SECTOR ADK A1,/80 2ND DATA SET IN SECTOR * EJECT DRFD02 * * UNL:20 EQU * LC A7,DWTEOD,A4 END OF DATA LDR A2,A7 SAVE END OF DATA ANK A2,1 ORK A2,/F0 HEAD NUMBER SC A2,2,A1 HEAD NUMBER TO BUFFER SRL A7,1 CF A5,BINDEC EBCDIC CODE STR A3,A1 TRACK NUMBER TO BUFFER LD A7,DWTEOD,A4 GET SECTOR NUMBER ADK A7,1 IBM SECTOR NUMBER CF A5,BINDEC A3=SECTOR NUMBER IN EBCDIC SC A3,4,A1 SECTOR NUMBER TO BUFFER ECR A3,A3 SC A3,3,A1 CF A5,WRIPRE PREPARE FOR WRITE CF A5,CIOI00 RF(NZ) END:UL WRITE ERROR CM DWTEOD,A4 INDICATE NOT OPENED XIF END:UL EQU * ORS A1,DWTRC,A6 SAVE RETURN CODE IFT IBM=0 UNLOAD EQU * XIF UNL:50 EQU * CF A5,UNLOCK UNLOCK DOORS RF(NZ) ENDIO LDK A2,IN:ULC INDICATE UNLOCKED DRIVE ANS A2,DWTFOR,A6 UNLOCKED DOOR ENDIO EQU * ABL END:IO * IFT IBM=1 EJECT DRFD02 * ********** * SQREAD * ********** * * SEQUENTIAL READ * SQREAD EQU * CF A5,REAPRE PREPARE FOR READ CF A5,IBMCHK CHECK IBM PARAMETERS LD A3,DWTCRN,A4 GET CRN CF A5,INCSE0 CRN+1 ECR A3,A3 LEFT BYTE CC A3,DWTEOD,A4 END OF DATA ECR A3,A3 RIGHT BYTE RF(NE) SQR:10 LEFT BYTES NOT EQUAL CC A3,DWTEOD+1,A4 EOD SQR:10 EQU * RF(NL) ENDEOD ERROR : END OF DATA CF A5,SECBIN SECTOR ID IN BINARY ST A3,ECBCW2,A8 CRN TO ECB IFT ASCEBC=1 CF A5,CIOI00 READ SECTOR ANK A1,1 JUST NOT OPERABLE =4 RB(NZ) ENDIO READ ERROR CF A5,ASCMOV TRANSFORM AND MOVE LD A3,DWTSEC,A6 GET CRN+1 ADK A4,DWTCRN CRN ADDRESS RF SQW:90 END REQUEST XIF IFT IBM=1 IFT ASCEBC=0 CF A5,CIO:WR READ ANK A1,1 JUST NOT OPERABLE =4 RB(NZ) ENDIO ERROR LD A3,DWTSEC,A6 CURRENT RECORD NUMBER ADK A4,DWTCRN ADDRESS RF SQW:90 XIF IFT IBM=1 * EJECT DRFD02 * * ENDEOD EQU * LDKL A1,RC:EOD END OF DATA RB ENDIO * EJECT DRFD02 * ********** * SQWRIT * ********** * * SEQUENTIAL WRITE * SQWRIT EQU * CF A5,WRIPRE PREPARE FOR WRITE CF A5,IBMCHK CHECK IBM PARAMETERS LD A3,DWTEOD,A4 EOD ECR A3,A3 LEFT BYTE CC A3,DWTEOE,A4 LEFT CHARACTERS ECR A3,A3 RF(NE) SQW:10 CC A3,DWTEOE+1,A4 RIGTH CHARACTERS SQW:10 EQU * RF(G) ENDEOE ERROR: END OF EXTENT ST A3,DWTSEC,A6 END OF DATA CF A5,SECBIN CONVERT TO BINARY ST A3,ECBCW2,A8 EOD TO ECB IFT ASCEBC=1 CF A5,EBCDIC CF A5,CIOI00 WRITE SECTOR RB(NZ) ENDIO ERROR XIF IFT ASCEBC=0 IFT IBM=1 CF A5,CIO:WR PERFORM IO RB(NZ) ENDIO ERROR XIF IFT IBM=1 CF A5,INCSEC DWTSEC+1 ADK A4,DWTEOD ADDRESS TO EOD * EJECT DRFD02 * * SQW:90 EQU * STR A3,A4 UPDATED POINTER LD A3,ECBRL,A8 REQUESTED LENGTH ST A3,ECBEL,A8 EFFECTIVE LENGTH RB ENDIO ENDEOE EQU * LDKL A1,RC:EOE END OF EXTENT RB ENDIO * EJECT DRFD02 * ********** * REWIND * ********** * REWIND EQU * CF A5,IBMCH5 CHECK IF IBM DISK LD A3,DWTBOE,A4 ST A3,DWTEOD,A4 EOD=BOE CF A5,DECBOE GET CRN RB ENDIO * XIF EJECT DRFD02 * ******************** * * * RECOVERY ROUTINE * * * ******************** * FDON EQU * CF A15,SAVE8 SAVE A1-A8 ON STACK LDKL A6,DWFD01 DWT ADDRESS LDKL A4,/7FFE SET UNIT BUSY AND RECOVERY ON =1 ANS A4,DWTST,A6 =1 * EJECT DRFD02 * * DELAY 2 SEC * LD A4,DWTTP,A6 RF(Z) FDON10 NO TIMER SET LDKL A4,-TIME ST* A4,DWTTP,A6 RESTART TIMER RF F:DISP FDON10 EQU * LDK A4,DWTTP ADR A4,A6 LDR A1,A6 SAVE A6 CF A15,SETIMP DATA FDON20,TIME * F:DISP EQU * ABL T:DISP * * TIME OUT ROUTINE * FDON20 EQU * LDR A6,A1 CM DWTTP,A6 FDRE00 EQU * LDKL A5,/7FFE SET UNIT BUSY AND RECOVERY ON =1 ANS A5,DWTST,A6 =1 LDKL A5,DWTSB2 ADR A5,A6 GET STACK BASE LDK A3,/F8 FILE CODE ST A3,DWT:FC,A6 LDK A3,3 4 VOLUMES * EJECT DRFD01 * * * READ VOLUME NAME * FDONLD EQU * SC A3,DWTOR,A6 GET VOLUME NAME CF A5,LOCK LOCK DOOR RF(NZ) FDON19 OPERABLE CF A5,GETPAR GET DEVICE DEPENDENT PARAMETERS CF A5,VO:NAM CF A5,SETPAR SET DEVICE DEPENDENT PARAMETERS ANK A1,/F RF(Z) FDON21 NO ERROR FDON19 EQU * LDK A1,6 NOT OPERABLE CF A15,VOLCLR CLEAR VOLUME NAME RF FDON24 FDON21 EQU * LD A4,DWTFOR,A6 GET FORMAT PARAMETERS ANK A4,IN:LCK RF(NZ) FDON25 FDON24 EQU * CF A5,UNLOCK FDON25 EQU * LDK A3,0 LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. SUK A3,1 RB(NN) FDONLD NEXT VOLUME EJECT DRFD02 * * RESTART IO * IM DWTST,A6 INDICATE RECOVERY OVER LD A8,DWTECB,A6 ECB ADDRESS ABL(Z) END:IO NO REQUEST ON LD A7,DWTORD,A6 GET INDEX AND ORDER ST A7,DWTOR,A6 CM ECBEL,A8 RESET EFFECTIVE LENGTH ANK A7,/3F ORDER ABL FDAD * EJECT DRFD02 * ********************* * * * INTERRUPT HANDLER * * * ********************* * * INPUT FROM CU : * BIT 1 : READY INTERRUPT * BIT 4 : DELETED DATA ADDRESS MARK * BIT 5 : SECTOR NOT FOUND * BIT 6 : SEEK ERROR * BIT 7 : WRITE PROTECT * BIT8,9: DRIVE NUMBER * BIT 10: RETRY * BIT 11: PROGRAM ERROR * BIT 12: FULL TRACK PROCESSED * BIT 13: DATA FAULT * BIT 14: THROUGHPUT ERROR * BIT 15: NOT OPERABLE * * OUTPUT REGISTER A1: * BIT 4 : NO DATA * BIT6,9: WRITE PROTECTED * BIT 7 : RETRIES PERFPRMED (IN DWTRC) * BIT 11: FORMAT * BIT 13: CRC ERROR * BIT 14: SEEK ERROR / THROUGHPUT ERROR * BIT 15: NOT OPERABLE * * A5 = STACK POINTER * A6 = DWT ADDRESS * A8 = ECB ADDRESS * EJECT DRFD02 * * IHFD EQU * CF A15,SAVE8 SAVE REGISTERS ON STACK SST A1,CUADR GET STATUS RF(A) IHFD00 CORRECT CH. UNIT =2 CIO A1,0,CUADR =2 SST A1,CUADR =2 RB(NA) *-2 =2 LDK A1,1 SET RETURN CODE =2 IHFD00 EQU * =2 LDR A2,A1 LDKL A6,DWFD01 DWT ADDRESS LD A8,DWTECB,A6 ECB ADDRESS SLL A2,1 RB(N) FDRE00 READY INTERRUPT ANK A1,/17 SLL A2,3 BIT4 RF(NN) IHFD10 NOT SET ORKL A1,RC:NOD NO DATA IHFD10 EQU * SLC A2,3 BIT7 RF(NN) IHFD20 NOT SET ORKL A1,RC:WRP WRITE PROTECTED IHFD20 EQU * SLL A2,3 BIT10 RF(NN) IHFD30 NOT SET LDKL A3,RC:RET RETRIES PERFORMED ORS A3,DWTRC,A6 SAVE RC IHFD30 EQU * * EJECT DRFD02 * * SRL A2,2 BIT5 , BIT6 ANK A2,/6 SECTOR NOT FOUND,SEEK ERROR RF(Z) IHFD50 NO SEEK ERROR ORR A1,A2 LDK A2,/FF DUMMY CYLINDER NUMBER ST A2,DWTCYN,A6 IHFD50 EQU * CF A15,INXDWT LD A5,DWTA5,A6 STACK POINTER RTN:CR EQU * SET CR ACCORDING TO A1 ADK A5,4 UPDATE STACK POINTER ADK A1,0 SET CR ABR* A5 RETURN * EJECT DRFD02 * ******************************************* * * * S U B R O U T I N E S * * * ******************************************* * * ********** * GETPAR * ********** * * GET DEVICE DEPENDENT PARAMETERS * * INPUT : A6 = DWT ADDRESS * * OUTPUT* * A4 = DOUBLED INDEX + A6 * GETPAR EQU * CF A15,INXDWT LD A1,DWTPAR,A4 GET DEVICE DEPENDENT PARAMETERS SC A1,DWTFOR+1,A6 FORMAT PARAMETER ECR A1,A1 SC A1,DWTCYN+1,A6 PRESENT CYLINDER NUMBER RTN A5 * EJECT DRFD02 * * ********** * SETPAR * ********** * * SET DEVICE DEPENDENT PARAMETERS * SETPAR EQU * LD A2,DWTCYN,A6 PRESENT HEAD POSITION ECR A2,A2 LC A2,DWTFOR+1,A6 PRESENT FORMAT PARAMETERS CF A15,INXDWT ST A2,DWTPAR,A4 SAVE DRIVE DEPENDENT PARAMETERS RTN A5 * EJECT DRFD02 * ********** * VO:NAM * ********** * * VO:NAM EQU * LDK A3,IN:LCK RESET ALL BUT LOCK/UNLOCK INDICATOR ANS A3,DWTFOR,A6 LDK A3,0 CYLINDER 0 CF A5,SEEKA3 SEEK RF(NZ) VOL900 RETURN IFT TOSS=1 LDK A3,0 READ ORDER CF A5,CIOVOL RF(NZ) VOL900 ERROR IFT CPU852+IBM=2 LD A2,FD:BUF+32 CWK A2,'TO' RF(NE) VOL200 NO TOSS DISC LD A2,FD:BUF+34 CWK A2,'SS' RF(NE) VOL200 XIF IFT TOSS+IBM=2 IFT CPU852=0 ML 2,FD:BUF+32 DSK 'TO','SS' RF(NE) VOL200 NO TOSS DISC XIF IFT TOSS=1 VOL100 EQU * TOSS FORMATED LDKL A2,FD:BUF ADDRESS TO VOLUME NAME IFT IBM=1 LDK A1,0 INDICATE TOSS RF VOL500 XIF IFT IBM=1 * EJECT DRFD02 * * VOL200 EQU * CHECK IF IBM DISC LDKL A2,FD:BUF+40 DONT OVERLAP TOSSS LABEL LDK A3,/18 READ SECTOR 6 CF A5,CIOVO1 RF(NZ) VOL900 ERROR IFT TOSS=1 LD A2,FD:BUF+40 CWK A2,EBC:VO EBCDIC FOR 'VO' RB(NE) VOL100 TOSS DISC LD A2,FD:BUF+42 CWK A2,EBC:L1 EBCDIC FOR 'L1' RB(NE) VOL100 TOSS DISC XIF IFT IBM=1 LDKL A2,FD:BUF+44 VOLUME NAME ADDRESS IFT ASCEBC=1 LDR A4,A2 LDK A7,10 CF A5,ASCII TRANSFORM TO ASCII XIF IFT IBM=1 LDK A1,IN:IBM INDICATE IBM DISC * XIF EJECT DRFD02 * * VOL500 EQU * ORS A1,DWTFOR,A6 INDICATE TOSS/IBM SRC A1,6 RC: TOSS/IBM ORS A1,DWTRC,A6 LD A3,DWT:FC,A6 FILE CODE AND TEST STATUS INDICATOR CF A15,VOLGET VOLUME NAME TO DWT LD A8,DWTECB,A6 ECB ADDRESS TO A8 LDKL A3,/4000 READ SECTOR 0 HEAD 1 CF A5,CIOVOL SRL A1,3 ANK A1,2 FORMAT (256-2D) OR (128-1) XRK A1,2 ORS A1,DWTFOR,A6 INDICATE FORMAT SRC A1,6 RC:FORMAT VOL900 EQU * RTN A5 * EJECT DRFD02 * ********** * GETLEN * * GETLE0 * ********** * * GET LENGTH ACCORDING TO FORMAT * GETLEN EQU * LC A7,DWTSEC,A6 SECTOR ID ANK A7,/7F CYLINDER AND HEAD NO RF(Z) GETL05 TRACK 0 GETLE0 EQU * LD A7,DWTFOR,A6 FORMAT ANK A7,2 RF(NZ) GETL10 (256-2D) GETL05 EQU * LDK A7,1 GETL10 EQU * SLL A7,7 *128 RTN A5 * IFT IBM+MMUPAG=2 EJECT DRFD02 * ********** * GETPAG * ********** * * GET PAGE ID * GETPAG EQU * ML 2,DWTBA,A6 BUFFER ADDRESS RB(Z) RTN:CR SET CR DLA 4 GET PAGE SRC A1,6 ST A1,DWTPAG,A6 ADKL A1,/400 NEXT PAGE ST A1,DWTPAG+2,A6 SRL A2,3 LOGICAL ADDRESS RB RTN:CR * XIF IFT IBM+ASCEBC=2 EJECT DRFD02 * ********** * ASCII * ********** * * TRANSFORM EBCDIC TO ASCII CODE * * INPUT : A4 =BUFFER ADDRESS * A7 =LENGTH * * OUTPUT: A1,A4,A7 CHANGED * ASCII EQU * 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 INH RTN A5 * EJECT DRFD02 * ********** * ASCMOV * ********** * * FUNCTION: TRANSFORMS A STRING FROM EBCDIC TO * ASCII CODE AND MOVES IT FROM FD:BUF TO USER BUFFER * INPUT STRING ADDRESS IS BUF * OUTPUT: A1,A2, CHANGED * A4 = INDEXED DWT ADDRESS * A7 CHANGED * ASCMOV EQU * CF A5,GETLEN IFT MMUPAG=0 LD A4,DWTBA,A6 BUFFER ADDRESS CF A5,ASCII XIF IFT IBM+ASCEBC=2 IFT MMUPAG=1 LDKL A4,FD:BUF DRIVER BUFFER ADDRESS ENB CF A5,ASCII CF A5,GETLEN CF A5,GETPAG GET PAGE IDENTITY TS -30,A15 SAVE RUNNING TASK'S MMU TL DWTPAG,A6 LOAD MMUTABLE LDR A1,A4 DRIVER BUFFER ADDRESS MVSU A7 MOVE SECTOR TO USER BUFFER TL -30,A15 RESTORE MMU TABLE FROM STACK XIF IFT IBM+ASCEBC=2 LDK A1,0 RESET RC RF IBMT60 * EJECT DRFD02 * ********** * EBCDIC * ********** * * FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO * EBCDIC CODE * OUTPUT STRING IS PUT IN DRIVER BUFFER * * OUTPUT: A1 CHANGED * A4 = BUFFER ADDRESS * A7 CHANGED EBCDIC EQU * IFT IBM+MMUPAG=2 IFT ASCEBC=1 LDKL A4,FD:BUF BUFFER ADDRESS CF A5,GETLEN CF A5,GETPAG RF(Z) EBC:05 SYSTEM AREA LDR A1,A2 LOGICAL ADDRESS SOURCE TS -30,A15 SAVE RUNNING TASK'S MMU TL DWTPAG,A6 LOAD MMU TABLE LDR A2,A4 DESTINATION ADDRESS MVUS A7 MOVE SECTOR TO DRIVER BUFFER TL -30,A15 RESTORE MMU TABLE FROM STACK RF EBC:07 EBC:05 EQU * LDR A4,A2 BUFFER ADDRESS SLL A4,1 EBC:07 EQU * * EJECT DRFD02 * * XIF IFT ASCEBC+IBM=2 ENB IFT MMUPAG=0 IFT IBM+ASCEBC=2 LD A4,DWTBA,A6 BUFFER ADDRESS XIF IFT IBM+ASCEBC=2 CF A5,GETLEN ADR A4,A7 EBC:10 EQU * SUK A4,1 LCR A1,A4 GET ASCII CHAR. ANK A1,/FF LC A1,TEBCDIC,A1 SC A1,FD:BUF-1,A7 SUK A7,1 RB(P) EBC:10 INH INHIBIT INTERRUPTS RTN A5 XIF IFT IBM=1 * EJECT DRFD02 * ********** * 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 EQU * LDKL A3,/EFF0 EBCDIC CHARACTERS ANK A7,/7F BIN:10 EQU * ADKL A3,/100 ADD 10 IN EBCDIC SUK A7,10 RB(NN) BIN:10 ADK A7,10 NUMBER 0-9 ORR A3,A7 RTN A5 * EJECT DRFD02 * ********** * IBMTRA * ********** * * TRANSFORM SECTOR IDENTIFIER FROM EBCDIC CODE * TO BINARY CODE * * FORMAT : TTHSS (EBCDIC CODE) * TT=TRACK,H=HEAD,SS=SECTOR * * INPUT : A7 = ADDRESS TO TTHSS * * OUTPUT : A3 = TTH IN LEFT BYTE AND SS IN RIGHT BYTE * A7 = ADDRESS TO TTHSS + 5 * = A6+DOUBLE INDEX * IBMTRA EQU * CF A5,EBCBI2 TRANSFER EBCDIC - BIN LDR A3,A1 SAVE TRACK NUMBER SLL A3,1 IN POSITION LDK A4,1 TRANSFER HEAD NUMBER CF A5,EBCBIN EBCDIC-BINARY ORR A3,A1 HEAD NUMBER IN POSITION LD A2,DWTFOR,A6 GET FORMAT SRC A2,2 RF(NN) IBMT05 (128-1) SUK A1,1 HEAD NUMBER IBMT05 EQU * SUK A1,1 RF(NN) IBMT70 HEAD NUMBER TOO HIGH CF A5,EBCBI2 EBCDIC-BINARY ECR A3,A3 TRACK AND HEAD NO TO LEFT BYTE SUK A1,1 PHYSICAL SECTOR NUMBER ORR A3,A1 SECTOR NUMBER TO RIGHT BYTE * EJECT DRFD02 * * ECR A4,A3 ANK A4,/FF CYL NO AND HEAD NO SUK A4,1 RF(NP) IBMT70 TRACK 0: ERROR LD A2,DWTFOR,A6 GET FORMAT SRC A2,2 RF(NN) IBMT10 (128-1) SUK A4,2 DECREMENT TRACK NO IBMT10 EQU * CWK A4,FD:BUF+EOD+5 RF(E) IBMT15 EOD CWK A4,FD:BUF+EOD+/45 RF(NE) IBMT20 BOE OR EOE IBMT15 EQU * SUK A4,147 2*74-1 RF(G) IBMT70 INCORRECT TRACK NUMBER RF(L) IBMT40 TRACK OK RETURN SUK A1,0 CHECK SECTOR NUMBER IF LAST TRACK RF IBMT50 IBMT20 EQU * EOD ADK A2,0 FORMAT RF(NN) IBMT30 (128-1) SUK A4,1 IBMT30 EQU * SUK A4,145 2*73-1 RF(P) IBMT70 INCORRECT TRACK,HEAD IBMT40 EQU * SUK A1,25 IBMT50 EQU * CHECK SECTOR NUMBER RF(G) IBMT70 INCORRECT SECTOR NUMBER IBMT60 EQU * CF A15,INXDWT RTN A5 * EJECT DRFD02 * * IBMT70 EQU * ERROR LDK A1,RC:IDS RC: ERROR ABL END:UL * EJECT DRFD02 * * ********** * SECBIN * ********** * * CONVERT SECTOR IDENTIFIER TO BINARY CODE * * SECBIN EQU * LDR A1,A3 LD A2,DWTFOR,A6 FORMAT ANK A2,/2 RF(NZ) SECB05 (256-2D) SRL A3,1 SECB05 EQU * SRL A3,8 TRACK AND HEAD LDR A2,A3 SLL A3,5 *32 SLL A2,2 *4 SUR A3,A2 *28 SRL A2,1 *2 SUR A3,A2 *26 ANK A1,/FF ADR A3,A1 LOGICAL SECTOR NUMBER RTN A5 * EJECT DRFD01 * ********** * EBCBIN * ********** * * EBCBIN TRANSFORM EBCDIC CODED DIGITS TO * BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED * INPUT: A4 ADDRESS TO FIRST DIGIT * A7 = NUMBER OF DIGITS * OUTPUT: A1 BINARY * A4 = A4 + A7 * WORKING REG: A2,A7 * EBCBI2 EQU * LDK A4,2 TWO DIGITS EBCBIN EQU * LDK A1,0 DEC:10 LCR A2,A7 DIGIT ANK A2,/FF SUK A2,/F0 RB(N) IBMT70 SUK A2,9 RB(P) IBMT70 NOT DIGIT ADK A2,9 ADK A7,1 ADDRESS TO NEXT DIGIT SUK A4,1 RF(Z) DEC:30 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 * EJECT DRFD02 * * ********** * IBMCHK * * IBMCH5 * ********** * * IBM CHECK OF PARAMETERS * * INPUT : A4=INDEXED DWT ADDRESS * OUTPUT : A4 UNCHANGED * IBMCHK EQU * LD A1,DWTFOR,A6 GET FORMAT LD A2,ECBRL,A8 REQUESTED LENGTH SRC A1,2 RF(NN) IBMC10 (128-1) SUK A2,128 IBMC10 EQU * SUK A2,128 ABL(NZ) ER:ILE ILLEGAL LENGTH IBMCH5 EQU * LD A2,DWTEOD,A4 END OF DATA RF(Z) REQERO NOT OPENED DATA SET IFT ASCEBC=0 CF A5,GETLE0 GET LENGTH SRL A7,1 ORS A7,DWTWE1,A6 XIF IFT IBM=1 CF A15,NVLCHK ADK A1,0 ABL(NZ) END:IO NEW VOLUME LOADED IFT TOSS=1 LD A2,DWTFOR,A6 GET FORMAT SRC A2,1 RB(N) IBMT60 IBM DISC XIF IFT TOSS=0 RB IBMT60 XIF IFT IBM=1 REQERO EQU * REQUEST ERROR ABL DISIOE * EJECT DRFD02 * ********** * INCSEC * ********** * * INCREMENT SECTOR IDENTIFIER * * OUTPUT: A3 = SECTOR ID * INCSEC EQU * LD A3,DWTSEC,A6 SECTOR ID INCSE0 EQU * ADK A3,1 CCK A3,/1A00 SECTOR 26 RF(L) INCS10 SAME TRACK CF A5,INCCYL NEXT TRACK ADR A3,A2 SUK A3,26 SECTOR 0 INCS10 EQU * ST A3,DWTSEC,A6 INCREMENTED SECTOR ID RTN A5 * EJECT DRFD02 * ********** * DECBOE * ********** * * CRN = A3-1 * DECBOE EQU * CCK A3,0 RF(NZ) DECS10 CF A5,INCCYL NEXT TRACK SUR A3,A2 ORK A3,26 DECS10 EQU * SUK A3,1 ST A3,DWTCRN,A4 CURRENT RECORD NUMBER RTN A5 * XIF EJECT DRFD02 * * ********** * INCCYL * ********** * * NEXT TRACK OF SECTOR ID * * INCCYL EQU * LD A2,DWTFOR,A6 C1R A2,A2 ANK A2,2 (128-1)/(256-2D) INDICATOR ADK A2,2 NEXT TRACK SLL A2,7 IN POSITION RTN A5 * EJECT DRFD02 * ********** * REAPRE * * WRIPRB * * WRIPRE * * CIOPRE * ********** * * PREPARE FOR CIO START * IFT IBM=1 REAPDS EQU * ANKL 3,/7FFF ST A3,DWTSEC,A6 SECTOR IDENTIFIER XIF REAPRB EQU * IFT MMUPAG=0 LDKL A1,FD:BUF BUFFER ADDRESS ST A1,DWTBA,A6 BUFFER ADDRESS SAVE AREA XIF * REAPRE EQU * READ LDKL A1,IN:WE1-/80 1ST WER LDK A3,0 CIO REGISTER RF CIOPRE * WRIPRE EQU * WRITE LDKL A1,IN:WE1+/4000-/80 LDK A3,1 * CIOPRE EQU * GENERAL ST A1,DWTWE1,A6 ST A3,DWTIOR,A6 RTN A5 * EJECT DRFD02 * * ********** * LOCK * * UNLOCK * * SEEK * * CIO:WR * * CIO:VF * ********** * * * LOCK EQU * LDKL A3,/0400 RF CIO:00 UNLOCK EQU * LDKL A3,/0C00 RF CIO:00 SEEK EQU * LD A3,DWTSEC,A6 GET CYLINDER NUMBER SRL A3,9 CW A3,DWTCYN,A6 PRESENT CYLINDER NUMBER RF(E) CIORTN RETURN WITHOUT SEEK SEEKA3 EQU * ST A3,DWTCYN,A6 SLL A3,2 IN POSITION ORK A3,3 ORDER CODE RF CIO:00 * EJECT DRFD02 * * CIOIVF EQU * LDKL A3,/400 VERIFY RF CIOI03 CIOI00 EQU * IBM IO ROUTINE CF A5,SEEK ANK A1,/F RF(NZ) CIOERR SEEK ERROR LDK A3,0 WRITE/READ CIOI03 EQU * CF A5,GETLEN GET LENGTH LDR A1,A7 SRL A1,1 OR A1,DWTWE1,A6 1ST WER LDKL A2,FD:BUF BUFFER OR A3,DWTIOR,A6 IFT MMUPAG=0 RF(NZ) CIOWE2 WRITE ORDER LD A2,DWTBA,A6 BUFFER ADDRESS XIF RF CIOWE2 * CIOVOL EQU * LDKL A2,FD:BUF CIOVO1 EQU * LDKL A1,/8020 RF PERCIO * IFF TOSS+EBCASC=0 EJECT DRFD02 * * CIO:VF EQU * LDKL A3,/400 VERIFY RF CIOWER CIO:WR EQU * CF A5,SEEK ANK A1,/F RF(NZ) CIOERR SEEK ERROR LDK A3,0 READ/WRITE CIOWER EQU * IFT MMUPAG=0 LD A1,DWTWE1,A6 LD A2,DWTBA,A6 2ND WER OR A3,DWTIOR,A6 IO REGISTER XIF IFF TOSS+EBCASC=0 IFT MMUPAG=1 ML 2,DWTBA,A6 GET 18 BIT BUFFER ADDRESS SRC A1,4 OR A1,DWTWE1,A6 1ST WER SLL A2,1 2ND WER OR A3,DWTIOR,A6 IO REGISTER XIF CIOWE2 EQU * LD A4,DWTSEC,A6 SECTOR NUMBER ANK A4,/FF SLL A4,2 IN POSITION ORR A3,A4 IN ORDER WORD LC A4,DWTSEC,A6 TRACK NUMBER ANK A4,1 HEAD NUMBER SRC A4,2 IN POSITION ORR A3,A4 IN ORDER WORD * EJECT DRFD02 * * PERCIO EQU * WER A1,MUXADR WER A2,MUXADR+1 CIO:00 EQU * LD A2,PFPOST RF(NZ) CIO:AB POWER FAILURE POST PROCESSING ON CF A15,INXDWT EX DWTCIO,A4 EXECUTE CIO LDK A1,RC:NOP ABL(3) END:30 CU ADDRESS UNKNOWN CIO:AB EQU * ST A5,DWTA5,A6 SAVE STACK POINTER ABL T:DISP DISPATCH CIORTN EQU * LDK A1,0 RESET RC CIOERR EQU * RTN A5 * EJECT DRFD02 * * ********** * FD:BUF * ********** * * FLEXIBLE DISK BUFFER * FD:BUF EQU * RES 64 IFT IBM=1 RES 64 XIF * EJECT DRFD02 * ********************* * * * DEVICE WORK TABLE * * * ********************* * DWFD01 EQU * 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 * DWTA5 EQU *-DWFD01 DATA 0 DWTRC EQU *-DWFD01 RETURN CODE SAVE AREA DATA 0 DATA 0 DATA 0 DATA 0,0,0,0 STACK (3 LEVELS) DATA 0 ORDER SAVE AREA * EJECT DRFD02 * * 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 DWTTP EQU *-DWFD01 TIMER POINTER DATA 0 DWTCIO EQU *-DWFD01 CIO START CIO A3,1,CUADR UNIT 0 CIO A3,1,CUADR+/10 UNIT 1 CIO A3,1,CUADR+/20 UNIT 2 CIO A3,1,CUADR+/30 UNIT 3 * EJECT DRFD02 * * 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 * IFT IBM+MMUPAG=2 DWTPAG EQU *-DWFD01 PAGE ADDRESS TO USER BUFFER DATA 0,0 XIF EJECT DRFD02 * * DWT:FC EQU *-DWFD01 FILE CODE DATA /F8 DWTPAR EQU *-DWFD01 DEVICE DEPENDENT PARAMETERS DATA /FF00,/FF00,/FF00,/FF00 HEAD POS,LOCK/UNLOCK,2D/1S,TOSS/IBM DWTFOR EQU *-DWFD01 PRESENT FORMAT PARAMETER DATA 0 DWTCYN EQU *-DWFD01 PRESENT CYLINDER NUMBER DATA /FFFF DWTSEC EQU *-DWFD01 SECTOR NUMBER ON CYLINDER DATA 0 DWTWE1 EQU *-DWFD01 1ST WER REGISTER DATA 0 DWTRL EQU *-DWFD01 LENGTH OF IO DATA 0 DWTBA EQU *-DWFD01 BUFFER ADDRESS IFT MMUPAG=1 DATA 0,0 XIF IFT MMUPAG=0 DATA 0 XIF DWTIOR EQU *-DWFD01 CIO REGISTER DATA 0 * 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 DRFD02 REL 11.0 81-02-27 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=» =4, REL 11.0 81-02-18«, t00=0x0000, t01=0x0042}
0x005e…008e Head {h00=0x002c, h01=0x0050, text=» =4, CRN UPDATED FOR SEQ READ IF ERROR«, t00=0x0000, t01=0x0062}
0x008e…00ae Head {h00=0x001c, h01=0x0050, text=» =3, REL 11.0 81-01-27«, t00=0x0000, t01=0x0092}
0x00ae…00d4 Head {h00=0x0022, h01=0x0050, text=» =3, DATA SET NBR IN ECBCW1 «, t00=0x0000, t01=0x00b2}
0x00d4…00f4 Head {h00=0x001c, h01=0x0050, text=» =2, REL 11.0 81-01-26«, t00=0x0000, t01=0x00d8}
0x00f4…011c Head {h00=0x0024, h01=0x0050, text=» =2, NOT OP. IF WRONG CH. UNIT«, t00=0x0000, t01=0x00f8}
0x011c…0160 Head {h00=0x0040, h01=0x0050, text=» =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY AND«, t00=0x0000, t01=0x0120}
0x0160…0182 Head {h00=0x001e, h01=0x0050, text=» =1, NOT IBM NOT WORKING«, t00=0x0000, t01=0x0164}
0x0182…018c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0186}
0x018c…01c2 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x0190}
0x01c2…01cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0036}
0x01cc…01f2 Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0001, t01=0x0040}
0x01f2…01fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0066}
0x01fc…0228 Head {h00=0x0028, h01=0x0050, text=»* DRFD02 = DRIVER FOR FLEXIBLE DISK«, t00=0x0001, t01=0x0070}
0x0228…0232 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x009c}
0x0232…023c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a6}
0x023c…0246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b0}
0x0246…0250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ba}
0x0250…025a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c4}
0x025a…0264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0264…029a Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x00d8}
0x029a…02a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010e}
0x02a4…02ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0118}
0x02ae…02e2 Head {h00=0x0030, h01=0x0050, text=»* THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0001, t01=0x0122}
0x02e2…031e Head {h00=0x0038, h01=0x0050, text=»* CHAINED FLEXIBLE DISK DRIVES PTS 6879 OR PTS 6791«, t00=0x0001, t01=0x0156}
0x031e…0356 (2, 0, 400) Head {h00=0x0034, h01=0x0050, text=»* CONNECTED TO CPU VIA CHANNEL UNIT F1MZ/B ON«, t00=0x0002, t01=0x0004}
0x0356…0372 Head {h00=0x0018, h01=0x0050, text=»* MULTIPLEX CHANNEL«, t00=0x0002, t01=0x003c}
0x0372…037c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0058}
0x037c…0386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0062}
0x0386…039e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0002, t01=0x006c}
0x039e…03a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0084}
0x03a8…03ba Head {h00=0x000e, h01=0x0050, text=»* ORDERS:«, t00=0x0002, t01=0x008e}
0x03ba…03c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a0}
0x03c4…03e0 Head {h00=0x0018, h01=0x0050, text=»* /00 TEST STATUS«, t00=0x0002, t01=0x00aa}
0x03e0…03fe Head {h00=0x001a, h01=0x0050, text=»* /01 PHYSICAL READ«, t00=0x0002, t01=0x00c6}
0x03fe…0444 Head {h00=0x0042, h01=0x0050, text=»* /02 SEQUENTIAL READ -IBM DISC ONLY-«, t00=0x0002, t01=0x00e4}
0x0444…0460 Head {h00=0x0018, h01=0x0050, text=»* /05 BASIC WRITE«, t00=0x0002, t01=0x012a}
0x0460…04a8 Head {h00=0x0044, h01=0x0050, text=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- «, t00=0x0002, t01=0x0146}
0x04a8…04c6 Head {h00=0x001a, h01=0x0050, text=»* /11 PHYSICAL READ«, t00=0x0002, t01=0x018e}
0x04c6…04e6 Head {h00=0x001c, h01=0x0050, text=»* /15 PHYSICAL WRITE «, t00=0x0003, t01=0x001c}
0x04e6…0502 Head {h00=0x0018, h01=0x0050, text=»* /1F FORMAT VOLUME«, t00=0x0003, t01=0x003c}
0x0502…0526 Head {h00=0x0020, h01=0x0050, text=»* /24 WRITE DELETED DATA «, t00=0x0003, t01=0x0058}
0x0526…053c Head {h00=0x0012, h01=0x0050, text=»* /26 LOCK «, t00=0x0003, t01=0x007c}
0x053c…0584 Head {h00=0x0044, h01=0x0050, text=»* /31 REWIND -IBM DISC ONLY- «, t00=0x0003, t01=0x0092}
0x0584…059a Head {h00=0x0012, h01=0x0050, text=»* /37 LOAD «, t00=0x0003, t01=0x00da}
0x059a…05b2 Head {h00=0x0014, h01=0x0050, text=»* /38 UNLOAD «, t00=0x0003, t01=0x00f0}
0x05b2…05bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0108}
0x05bc…05d8 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS:«, t00=0x0003, t01=0x0112}
0x05d8…05e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012e}
0x05e2…05fe Head {h00=0x0018, h01=0x0050, text=»* A5 STACK BASE «, t00=0x0003, t01=0x0138}
0x05fe…061a Head {h00=0x0018, h01=0x0050, text=»* A6 DWT-ADDRESS«, t00=0x0003, t01=0x0154}
0x061a…0630 Head {h00=0x0012, h01=0x0050, text=»* A7 ORDER«, t00=0x0003, t01=0x0170}
0x0630…064c Head {h00=0x0018, h01=0x0050, text=»* A8 ECB-ADDRESS«, t00=0x0003, t01=0x0186}
0x064c…0664 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0004, t01=0x0012}
0x0664…066e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002a}
0x066e…0682 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0004, t01=0x0034}
0x0682…0696 Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0004, t01=0x0048}
0x0696…06aa Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0004, t01=0x005c}
0x06aa…06be Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0004, t01=0x0070}
0x06be…06d2 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0004, t01=0x0084}
0x06d2…06dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0098}
0x06dc…0704 Head {h00=0x0024, h01=0x0050, text=» ENTRY FDADR ACTIVATION ADDRESS«, t00=0x0004, t01=0x00a2}
0x0704…072a Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0004, t01=0x00ca}
0x072a…074e Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0004, t01=0x00f0}
0x074e…0770 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0004, t01=0x0114}
0x0770…0788 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0004, t01=0x0136}
0x0788…0792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014e}
0x0792…07a8 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0158}
0x07a8…07be Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x016e}
0x07be…07d4 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0184}
0x07d4…07ea Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0005, t01=0x000a}
0x07ea…0800 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0020}
0x0800…080a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0036}
0x080a…083c Head {h00=0x002e, h01=0x0050, text=» EXTRN INXDWT INDEXED DISPLACEMENT IN DWT «, t00=0x0005, t01=0x0040}
0x083c…085c Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0005, t01=0x0072}
0x085c…0878 Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0005, t01=0x0092}
0x0878…089c Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0005, t01=0x00ae}
0x089c…08ca Head {h00=0x002a, h01=0x0050, text=» EXTRN DISEND PERFORM TENDIO AND TDISP«, t00=0x0005, t01=0x00d2}
0x08ca…08f2 Head {h00=0x0024, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAME «, t00=0x0005, t01=0x0100}
0x08f2…091c Head {h00=0x0026, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME ADDRESS «, t00=0x0005, t01=0x0128}
0x091c…0950 Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL«, t00=0x0005, t01=0x0152}
0x0950…0982 Head {h00=0x002e, h01=0x0050, text=» EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED «, t00=0x0005, t01=0x0186}
0x0982…099e Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0006, t01=0x0028}
0x099e…09c0 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0006, t01=0x0044}
0x09c0…09e8 Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0006, t01=0x0066}
0x09e8…0a14 Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTORD ORDER/INDEX SAVE AREA «, t00=0x0006, t01=0x008e}
0x0a14…0a3e Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0006, t01=0x00ba}
0x0a3e…0a6a Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0006, t01=0x00e4}
0x0a6a…0a86 Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0006, t01=0x0110}
0x0a86…0ab0 Head {h00=0x0026, h01=0x0050, text=» EXTRN PFPOST PWF POST PROC. FLAG «, t00=0x0006, t01=0x012c}
0x0ab0…0ada Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0006, t01=0x0156}
0x0ada…0b04 Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0006, t01=0x0180}
0x0b04…0b2c Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0007, t01=0x001a}
0x0b2c…0b56 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0007, t01=0x0042}
0x0b56…0b80 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0007, t01=0x006c}
0x0b80…0ba8 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW1 ECB CONTROL WORD 1«, t00=0x0007, t01=0x0096}
0x0ba8…0bd0 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW2 ECB CONTROL WORD 2«, t00=0x0007, t01=0x00be}
0x0bd0…0be8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0007, t01=0x00e6}
0x0be8…0bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fe}
0x0bf2…0c12 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x0108}
0x0c12…0c32 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0128}
0x0c32…0c52 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x0148}
0x0c52…0c72 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0168}
0x0c72…0c92 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x0188}
0x0c92…0c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0018}
0x0c9c…0ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0022}
0x0ca6…0cdc Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0008, t01=0x002c}
0x0cdc…0d08 Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0008, t01=0x0062}
0x0d08…0d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x008e}
0x0d12…0d24 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0008, t01=0x0098}
0x0d24…0d38 Head {h00=0x0010, h01=0x0050, text=»TOSS EQU X:A«, t00=0x0008, t01=0x00aa}
0x0d38…0d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00be}
0x0d42…0d78 Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x0008, t01=0x00c8}
0x0d78…0da4 Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x0008, t01=0x00fe}
0x0da4…0dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012a}
0x0dae…0dc0 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x0134}
0x0dc0…0dd4 Head {h00=0x0010, h01=0x0050, text=»IBM EQU X:B «, t00=0x0008, t01=0x0146}
0x0dd4…0dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015a}
0x0dde…0e20 Head {h00=0x003e, h01=0x0050, text=»* A PROGRAM VERSION LEAVING OUT THE CODE CONVERSION«, t00=0x0008, t01=0x0164}
0x0e20…0e62 Head {h00=0x003e, h01=0x0050, text=»* ASCII-EBCDIC IS OBTAINED BY SETTING ASCEBC EQU 0 «, t00=0x0009, t01=0x0016}
0x0e62…0e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0058}
0x0e6c…0e7e Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x0009, t01=0x0062}
0x0e7e…0e94 Head {h00=0x0012, h01=0x0050, text=»ASCEBC EQU X:C«, t00=0x0009, t01=0x0074}
0x0e94…0e9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x008a}
0x0e9e…0ed0 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0009, t01=0x0094}
0x0ed0…0efe Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0009, t01=0x00c6}
0x0efe…0f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f4}
0x0f08…0f1c Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0009, t01=0x00fe}
0x0f1c…0f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0112}
0x0f26…0f3c Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0009, t01=0x011c}
0x0f3c…0f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0132}
0x0f46…0f50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x013c}
0x0f50…0f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0146}
0x0f5a…0f94 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0009, t01=0x0150}
0x0f94…0fc6 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x018a}
0x0fc6…0fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002c}
0x0fd0…0fe4 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000a, t01=0x0036}
0x0fe4…0fee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004a}
0x0fee…0ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0054}
0x0ff8…1024 Head {h00=0x0028, h01=0x0050, text=»* ANTI ASCEBC CONDITIONAL ASSEMBLY«, t00=0x000a, t01=0x005e}
0x1024…102e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008a}
0x102e…1044 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=1 «, t00=0x000a, t01=0x0094}
0x1044…1058 Head {h00=0x0010, h01=0x0050, text=»EBCASC EQU 0«, t00=0x000a, t01=0x00aa}
0x1058…1064 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00be}
0x1064…107a Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=0 «, t00=0x000a, t01=0x00ca}
0x107a…108e Head {h00=0x0010, h01=0x0050, text=»EBCASC EQU 1«, t00=0x000a, t01=0x00e0}
0x108e…109a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00f4}
0x109a…10a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0100}
0x10a4…10bc Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x000a, t01=0x010a}
0x10bc…10c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0122}
0x10c6…10dc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x012c}
0x10dc…10f2 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0142}
0x10f2…1108 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x0158}
0x1108…111e Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x000a, t01=0x016e}
0x111e…1134 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0184}
0x1134…113e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000a}
0x113e…1160 Head {h00=0x001e, h01=0x0050, text=»DEVIND EQU 10 DEVICE INDEX«, t00=0x000b, t01=0x0014}
0x1160…118a Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000b, t01=0x0036}
0x118a…11b4 Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000b, t01=0x0060}
0x11b4…11e0 Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000b, t01=0x008a}
0x11e0…120a Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000b, t01=0x00b6}
0x120a…1232 Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000b, t01=0x00e0}
0x1232…1256 Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000b, t01=0x0108}
0x1256…1260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012c}
0x1260…126a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0136}
0x126a…127c Head {h00=0x000e, h01=0x0050, text=»* ORDERS«, t00=0x000b, t01=0x0140}
0x127c…1286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0152}
0x1286…12a6 Head {h00=0x001c, h01=0x0050, text=»OR:TES EQU 0 TEST STATUS«, t00=0x000b, t01=0x015c}
0x12a6…12c8 Head {h00=0x001e, h01=0x0050, text=»OR:BAR EQU /01 BASIC READ «, t00=0x000b, t01=0x017c}
0x12c8…12ee Head {h00=0x0022, h01=0x0050, text=»OR:SER EQU /02 SEQUENTIAL READ«, t00=0x000c, t01=0x000e}
0x12ee…1310 Head {h00=0x001e, h01=0x0050, text=»OR:BAW EQU /05 BASIC WRITE«, t00=0x000c, t01=0x0034}
0x1310…1338 Head {h00=0x0024, h01=0x0050, text=»OR:SEW EQU /06 SEQUENTIAL WRITE «, t00=0x000c, t01=0x0056}
0x1338…135c Head {h00=0x0020, h01=0x0050, text=»OR:PHR EQU /11 PHYSICAL READ«, t00=0x000c, t01=0x007e}
0x135c…1382 Head {h00=0x0022, h01=0x0050, text=»OR:PHW EQU /15 PHYSICAL WRITE «, t00=0x000c, t01=0x00a2}
0x1382…13a6 Head {h00=0x0020, h01=0x0050, text=»OR:FOV EQU /1F FORMAT VOLUME«, t00=0x000c, t01=0x00c8}
0x13a6…13d0 Head {h00=0x0026, h01=0x0050, text=»OR:DDW EQU /24 WRITE DELETED DATA «, t00=0x000c, t01=0x00ec}
0x13d0…13ec Head {h00=0x0018, h01=0x0050, text=»OR:LCK EQU /26 LOCK «, t00=0x000c, t01=0x0116}
0x13ec…140a Head {h00=0x001a, h01=0x0050, text=»OR:REW EQU /31 REWIND «, t00=0x000c, t01=0x0132}
0x140a…1426 Head {h00=0x0018, h01=0x0050, text=»OR:LOD EQU /37 LOAD «, t00=0x000c, t01=0x0150}
0x1426…1444 Head {h00=0x001a, h01=0x0050, text=»OR:ULD EQU /38 UNLOAD «, t00=0x000c, t01=0x016c}
0x1444…144e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018a}
0x144e…1464 (13, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x000d, t01=0x0004}
0x1464…146e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001a}
0x146e…1478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0024}
0x1478…1490 Head {h00=0x0014, h01=0x0050, text=»* RETURN CODES«, t00=0x000d, t01=0x002e}
0x1490…149a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0046}
0x149a…14a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0050}
0x14a4…14ce Head {h00=0x0026, h01=0x0050, text=»RC:RET EQU /100 RETRIES PERFORMED «, t00=0x000d, t01=0x005a}
0x14ce…14ee Head {h00=0x001c, h01=0x0050, text=»RC:NOD EQU /804 NO DATA «, t00=0x000d, t01=0x0084}
0x14ee…1510 Head {h00=0x001e, h01=0x0050, text=»RC:NOP EQU 1 NOT OPERABLE «, t00=0x000d, t01=0x00a4}
0x1510…1538 Head {h00=0x0024, h01=0x0050, text=»RC:ILE EQU /8008 ILLEGAL LENGTH «, t00=0x000d, t01=0x00c6}
0x1538…155e Head {h00=0x0022, h01=0x0050, text=»RC:REQ EQU /8000 REQUEST ERROR«, t00=0x000d, t01=0x00ee}
0x155e…157e Head {h00=0x001c, h01=0x0050, text=»RC:IBM EQU /400 IBM DISC«, t00=0x000d, t01=0x0114}
0x157e…15a2 Head {h00=0x0020, h01=0x0050, text=»RC:EOD EQU /1000 END OF DATA«, t00=0x000d, t01=0x0134}
0x15a2…15c8 Head {h00=0x0022, h01=0x0050, text=»RC:EOE EQU /2000 END OF EXTENT«, t00=0x000d, t01=0x0158}
0x15c8…15f0 Head {h00=0x0024, h01=0x0050, text=»RC:WRP EQU /240 WRITE PROTECTED «, t00=0x000d, t01=0x017e}
0x15f0…160e Head {h00=0x001a, h01=0x0050, text=»RC:FOR EQU /800 FORMAT«, t00=0x000e, t01=0x0016}
0x160e…163c Head {h00=0x002a, h01=0x0050, text=»RC:IDS EQU /10 ILLEGAL DATA SET LABEL «, t00=0x000e, t01=0x0034}
0x163c…1674 Head {h00=0x0034, h01=0x0050, text=»MS:128 EQU 2002 MAX SECTOR NUMBER FORMAT (128-1)«, t00=0x000e, t01=0x0062}
0x1674…16ae Head {h00=0x0036, h01=0x0050, text=»MS:256 EQU 4004 MAX SECTOR NUMBER FORMAT (256-2D) «, t00=0x000e, t01=0x009a}
0x16ae…16da Head {h00=0x0028, h01=0x0050, text=»IN:WE1 EQU /8080 1ST WER INSTRUCTION«, t00=0x000e, t01=0x00d4}
0x16da…1702 Head {h00=0x0024, h01=0x0050, text=»IN:LCK EQU /4 LOCK BIT INDICATOR«, t00=0x000e, t01=0x0100}
0x1702…172a Head {h00=0x0024, h01=0x0050, text=»IN:ULC EQU /FB UNLOCK INDICATOR «, t00=0x000e, t01=0x0128}
0x172a…174e Head {h00=0x0020, h01=0x0050, text=»IN:IBM EQU /1 IBM INDICATOR «, t00=0x000e, t01=0x0150}
0x174e…1774 Head {h00=0x0022, h01=0x0050, text=»IN:TOS EQU /FE TOSS INDICATOR «, t00=0x000e, t01=0x0174}
0x1774…179c Head {h00=0x0024, h01=0x0050, text=»EBC:VO EQU /E5D6 EBCDIC FOR 'VO'«, t00=0x000f, t01=0x000a}
0x179c…17c4 Head {h00=0x0024, h01=0x0050, text=»EBC:L1 EQU /D3F1 EBCDIC FOR 'L1'«, t00=0x000f, t01=0x0032}
0x17c4…17dc Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x000f, t01=0x005a}
0x17dc…17e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0072}
0x17e6…17f8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x007c}
0x17f8…180a Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x000f, t01=0x008e}
0x180a…181c Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000f, t01=0x00a0}
0x181c…182e Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x000f, t01=0x00b2}
0x182e…1840 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x00c4}
0x1840…184a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d6}
0x184a…185a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000f, t01=0x00e0}
0x185a…187c Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000f, t01=0x00f0}
0x187c…18a6 Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000f, t01=0x0112}
0x18a6…18cc Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000f, t01=0x013c}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0162}
0x18d6…18ee Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x000f, t01=0x016c}
0x18ee…18f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0184}
0x18f8…190a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x018e}
0x190a…191c Head {h00=0x000e, h01=0x0050, text=»* TESTST *«, t00=0x0010, t01=0x0010}
0x191c…192e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x0022}
0x192e…1938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0034}
0x1938…1956 Head {h00=0x001a, h01=0x0050, text=»* TEST STATUS ORDER «, t00=0x0010, t01=0x003e}
0x1956…1960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005c}
0x1960…196a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0066}
0x196a…197e Head {h00=0x0010, h01=0x0050, text=»TESTST EQU *«, t00=0x0010, t01=0x0070}
0x197e…1994 Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x0010, t01=0x0084}
0x1994…19ba Head {h00=0x0022, h01=0x0050, text=» ORS A1,DWTRC,A6 NVL INDICATOR«, t00=0x0010, t01=0x009a}
0x19ba…19de Head {h00=0x0020, h01=0x0050, text=» CM DWTSEC,A6 READ SECTOR 0 «, t00=0x0010, t01=0x00c0}
0x19de…1a0e Head {h00=0x002c, h01=0x0050, text=» CF A5,REAPRB PREPARE FOR READ TO BUFFER«, t00=0x0010, t01=0x00e4}
0x1a0e…1a28 Head {h00=0x0016, h01=0x0050, text=» CF A5,CIOI00 READ«, t00=0x0010, t01=0x0114}
0x1a28…1a5a Head {h00=0x002e, h01=0x0050, text=» CF A5,WRIPRE PREPARE CIO WRITE TO BUFFER «, t00=0x0010, t01=0x012e}
0x1a5a…1a70 Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOI00 «, t00=0x0010, t01=0x0160}
0x1a70…1a86 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/200 «, t00=0x0010, t01=0x0176}
0x1a86…1aae Head {h00=0x0024, h01=0x0050, text=» ORS A1,DWTRC,A6 WRITE PROTECTED«, t00=0x0010, t01=0x018c}
0x1aae…1ad6 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/80 INDICATE TEST STATUS«, t00=0x0011, t01=0x0024}
0x1ad6…1aee Head {h00=0x0014, h01=0x0050, text=» SC A1,DWT:FC,A6«, t00=0x0011, t01=0x004c}
0x1aee…1b1e Head {h00=0x002c, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME AND STATUS«, t00=0x0011, t01=0x0064}
0x1b1e…1b44 Head {h00=0x0022, h01=0x0050, text=» ORS A1,DWTRC,A6 FORMAT TO RC «, t00=0x0011, t01=0x0094}
0x1b44…1b56 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/7«, t00=0x0011, t01=0x00ba}
0x1b56…1b72 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) TEST50 ERROR«, t00=0x0011, t01=0x00cc}
0x1b72…1bac Head {h00=0x0036, h01=0x0050, text=» CF A15,VOLNAM VOLUME NAME TO BUFFER IF REQUESTED «, t00=0x0011, t01=0x00e8}
0x1bac…1bd0 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0011, t01=0x0122}
0x1bd0…1be4 Head {h00=0x0010, h01=0x0050, text=»TEST50 EQU *«, t00=0x0011, t01=0x0146}
0x1be4…1c04 Head {h00=0x001c, h01=0x0050, text=» ABL END:IO END REQUEST «, t00=0x0011, t01=0x015a}
0x1c04…1c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017a}
0x1c0e…1c26 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0011, t01=0x0184}
0x1c26…1c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x000c}
0x1c30…1c46 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0012, t01=0x0016}
0x1c46…1c5c Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0012, t01=0x002c}
0x1c5c…1c72 Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x0012, t01=0x0042}
0x1c72…1c88 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0058}
0x1c88…1c9e Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0012, t01=0x006e}
0x1c9e…1ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0084}
0x1ca8…1ccc Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x0012, t01=0x008e}
0x1ccc…1cf6 Head {h00=0x0026, h01=0x0050, text=» CM DWTRC,A6 CLEAR RC ACCUMELATOR «, t00=0x0012, t01=0x00b2}
0x1cf6…1d2c Head {h00=0x0032, h01=0x0050, text=» CF A5,GETPAR GET DEVICE DEPENDENT PARAMETERS «, t00=0x0012, t01=0x00dc}
0x1d2c…1d42 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x0112}
0x1d42…1d62 Head {h00=0x001c, h01=0x0050, text=» MLR 2,A8 BUFFER ADDRESS«, t00=0x0012, t01=0x0128}
0x1d62…1d74 Head {h00=0x000e, h01=0x0050, text=» SLC A1,4 «, t00=0x0012, t01=0x0148}
0x1d74…1d86 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/3«, t00=0x0012, t01=0x015a}
0x1d86…1da2 Head {h00=0x0018, h01=0x0050, text=» SRL A2,1 WORD MODE «, t00=0x0012, t01=0x016c}
0x1da2…1dce Head {h00=0x0028, h01=0x0050, text=» MS 2,DWTBA,A6 18 BIT BUFFER ADDRESS«, t00=0x0012, t01=0x0188}
0x1dce…1dda Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0024}
0x1dda…1df0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x0030}
0x1df0…1e16 Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADDRESS«, t00=0x0013, t01=0x0046}
0x1e16…1e2e Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTBA,A6 «, t00=0x0013, t01=0x006c}
0x1e2e…1e3a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0084}
0x1e3a…1e66 Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTOR,A6 SAVE INDEX AND ORDER«, t00=0x0013, t01=0x0090}
0x1e66…1e7e Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTORD,A6«, t00=0x0013, t01=0x00bc}
0x1e7e…1eae Head {h00=0x002c, h01=0x0050, text=» LDKL A1,IN:WE1-/80 1ST WER INSTRUCTION «, t00=0x0013, t01=0x00d4}
0x1eae…1eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0104}
0x1eb8…1ece Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0013, t01=0x010e}
0x1ece…1ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0124}
0x1ed8…1ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012e}
0x1ee2…1efa Head {h00=0x0014, h01=0x0050, text=» LDR A3,A7 ORDER«, t00=0x0013, t01=0x0138}
0x1efa…1f1c Head {h00=0x001e, h01=0x0050, text=» RB(Z) TESTST TEST STATUS «, t00=0x0013, t01=0x0150}
0x1f1c…1f30 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0013, t01=0x0172}
0x1f30…1f42 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0013, t01=0x0186}
0x1f42…1f60 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:BAR-OR:TES «, t00=0x0014, t01=0x0008}
0x1f60…1f7e Head {h00=0x001a, h01=0x0050, text=» RF(Z) READ BASIC READ«, t00=0x0014, t01=0x0026}
0x1f7e…1f9c Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:BAW-OR:BAR «, t00=0x0014, t01=0x0044}
0x1f9c…1fbc Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRITE BASIC WRITE«, t00=0x0014, t01=0x0062}
0x1fbc…1fda Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:PHR-OR:BAW «, t00=0x0014, t01=0x0082}
0x1fda…1ffc Head {h00=0x001e, h01=0x0050, text=» RF(Z) READ PHYSICAL READ «, t00=0x0014, t01=0x00a0}
0x1ffc…201a Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:PHW-OR:PHR «, t00=0x0014, t01=0x00c2}
0x201a…203e Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRITE PHYSICAL WRITE «, t00=0x0014, t01=0x00e0}
0x203e…205c Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:FOV-OR:PHW «, t00=0x0014, t01=0x0104}
0x205c…2080 Head {h00=0x0020, h01=0x0050, text=» ABL(Z) FORMAT FORMAT VOLUME«, t00=0x0014, t01=0x0122}
0x2080…209e Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:DDW-OR:FOV «, t00=0x0014, t01=0x0146}
0x209e…20c6 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DDWRIT WRITE DELETED DATA«, t00=0x0014, t01=0x0164}
0x20c6…20e4 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:LCK-OR:DDW «, t00=0x0014, t01=0x018c}
0x20e4…2100 Head {h00=0x0018, h01=0x0050, text=» ABL(Z) LOCKDO LOCK «, t00=0x0015, t01=0x001a}
0x2100…211e Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:LOD-OR:LCK «, t00=0x0015, t01=0x0036}
0x211e…2138 Head {h00=0x0016, h01=0x0050, text=» ABL(Z) LOAD LOAD «, t00=0x0015, t01=0x0054}
0x2138…2156 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:ULD-OR:LOD «, t00=0x0015, t01=0x006e}
0x2156…2174 Head {h00=0x001a, h01=0x0050, text=» ABL(Z) UNLOAD UNLOCK «, t00=0x0015, t01=0x008c}
0x2174…2180 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00aa}
0x2180…218a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b6}
0x218a…219c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0015, t01=0x00c0}
0x219c…21ba Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:BAR-OR:TES «, t00=0x0015, t01=0x00d2}
0x21ba…21d8 Head {h00=0x001a, h01=0x0050, text=» RF(Z) READ BASIC READ«, t00=0x0015, t01=0x00f0}
0x21d8…21f6 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:SER-OR:BAR «, t00=0x0015, t01=0x010e}
0x21f6…221c Head {h00=0x0022, h01=0x0050, text=» ABL(Z) SQREAD SEQUENTIAL READ«, t00=0x0015, t01=0x012c}
0x221c…223a Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:BAW-OR:SER «, t00=0x0015, t01=0x0152}
0x223a…225a Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRITE BASIC WRITE«, t00=0x0015, t01=0x0170}
0x225a…2278 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:SEW-OR:BAW «, t00=0x0015, t01=0x0190}
0x2278…22a0 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) SQWRIT SEQUENTIAL WRITE «, t00=0x0016, t01=0x001e}
0x22a0…22be Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:PHR-OR:SEW «, t00=0x0016, t01=0x0046}
0x22be…22e0 Head {h00=0x001e, h01=0x0050, text=» RF(Z) READ PHYSICAL READ «, t00=0x0016, t01=0x0064}
0x22e0…22fe Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:PHW-OR:PHR «, t00=0x0016, t01=0x0086}
0x22fe…2322 Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRITE PHYSICAL WRITE «, t00=0x0016, t01=0x00a4}
0x2322…2340 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:FOV-OR:PHW «, t00=0x0016, t01=0x00c8}
0x2340…2364 Head {h00=0x0020, h01=0x0050, text=» ABL(Z) FORMAT FORMAT VOLUME«, t00=0x0016, t01=0x00e6}
0x2364…2382 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:DDW-OR:FOV «, t00=0x0016, t01=0x010a}
0x2382…23aa Head {h00=0x0024, h01=0x0050, text=» RF(Z) DDWRIT WRITE DELETED DATA«, t00=0x0016, t01=0x0128}
0x23aa…23c8 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:LCK-OR:DDW «, t00=0x0016, t01=0x0150}
0x23c8…23e6 Head {h00=0x001a, h01=0x0050, text=» ABL(Z) LOCKDO LOCKDO «, t00=0x0016, t01=0x016e}
0x23e6…2404 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:REW-OR:LCK «, t00=0x0016, t01=0x018c}
0x2404…2422 Head {h00=0x001a, h01=0x0050, text=» ABL(Z) REWIND REWIND «, t00=0x0017, t01=0x001a}
0x2422…2440 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:LOD-OR:REW «, t00=0x0017, t01=0x0038}
0x2440…245a Head {h00=0x0016, h01=0x0050, text=» ABL(Z) LOAD LOAD «, t00=0x0017, t01=0x0056}
0x245a…2478 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:ULD-OR:LOD «, t00=0x0017, t01=0x0070}
0x2478…2496 Head {h00=0x001a, h01=0x0050, text=» ABL(Z) UNLOAD UNLOAD «, t00=0x0017, t01=0x008e}
0x2496…24a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00ac}
0x24a2…24ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b8}
0x24ac…24c2 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0017, t01=0x00c2}
0x24c2…24cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d8}
0x24cc…24d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e2}
0x24d6…24ea Head {h00=0x0010, h01=0x0050, text=»REQERR EQU *«, t00=0x0017, t01=0x00ec}
0x24ea…250c Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x0017, t01=0x0100}
0x250c…2520 Head {h00=0x0010, h01=0x0050, text=»ER:ILE EQU *«, t00=0x0017, t01=0x0122}
0x2520…2538 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,RC:ILE «, t00=0x0017, t01=0x0136}
0x2538…254c Head {h00=0x0010, h01=0x0050, text=» ABL DISEND «, t00=0x0017, t01=0x014e}
0x254c…2556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0162}
0x2556…256e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0017, t01=0x016c}
0x256e…2578 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0184}
0x2578…2582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x018e}
0x2582…2594 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0018, t01=0x0008}
0x2594…25a6 Head {h00=0x000e, h01=0x0050, text=»* DDWRIT *«, t00=0x0018, t01=0x001a}
0x25a6…25b8 Head {h00=0x000e, h01=0x0050, text=»* WRITE *«, t00=0x0018, t01=0x002c}
0x25b8…25ca Head {h00=0x000e, h01=0x0050, text=»* READ *«, t00=0x0018, t01=0x003e}
0x25ca…25dc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0018, t01=0x0050}
0x25dc…25e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0062}
0x25e6…2614 Head {h00=0x002a, h01=0x0050, text=»* WRITE DELETED DATA , WRITE AND READ«, t00=0x0018, t01=0x006c}
0x2614…261e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x009a}
0x261e…2628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a4}
0x2628…263c Head {h00=0x0010, h01=0x0050, text=»DDWRIT EQU *«, t00=0x0018, t01=0x00ae}
0x263c…265e Head {h00=0x001e, h01=0x0050, text=» LDKL A3,/800 CIO REGISTER«, t00=0x0018, t01=0x00c2}
0x265e…2672 Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0018, t01=0x00e4}
0x2672…2692 Head {h00=0x001c, h01=0x0050, text=» ADK A3,/1 CIO REGISTER «, t00=0x0018, t01=0x00f8}
0x2692…26ba Head {h00=0x0024, h01=0x0050, text=» ADKL A1,/4000 1ST WER REGISTER «, t00=0x0018, t01=0x0118}
0x26ba…26cc Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0018, t01=0x0140}
0x26cc…26f2 Head {h00=0x0022, h01=0x0050, text=» CF A5,CIOPRE PREPARE FOR CIO «, t00=0x0018, t01=0x0152}
0x26f2…2724 Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x0018, t01=0x0178}
0x2724…2736 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0019, t01=0x001a}
0x2736…2768 Head {h00=0x002e, h01=0x0050, text=» RB(NZ) TEST50 NEW VOLUME LOADED : END IO «, t00=0x0019, t01=0x002c}
0x2768…2772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x005e}
0x2772…2788 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0019, t01=0x0068}
0x2788…2792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x007e}
0x2792…279c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0088}
0x279c…27bc Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTFOR,A6 FORMAT «, t00=0x0019, t01=0x0092}
0x27bc…27e4 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRL,A8 REQUESTED LENGTH«, t00=0x0019, t01=0x00b2}
0x27e4…2808 Head {h00=0x0020, h01=0x0050, text=» RB(Z) ER:ILE ILLEGAL LENGTH«, t00=0x0019, t01=0x00da}
0x2808…282e Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBCW2,A8 START SECTOR «, t00=0x0019, t01=0x00fe}
0x282e…285a Head {h00=0x0028, h01=0x0050, text=» RB(N) REQERR ILLEGAL SECTOR NUMBER «, t00=0x0019, t01=0x0124}
0x285a…288a Head {h00=0x002c, h01=0x0050, text=» CWK A2,MS:256-13 MAX TOSS SECTOR NUMBER«, t00=0x0019, t01=0x0150}
0x288a…28b6 Head {h00=0x0028, h01=0x0050, text=» RB(NL) REQERR ILLEGAL SECTOR NUMBER«, t00=0x0019, t01=0x0180}
0x28b6…28da Head {h00=0x0020, h01=0x0050, text=» ST A1,DWTRL,A6 SAVE LENGTH «, t00=0x001a, t01=0x001c}
0x28da…28ec Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x001a, t01=0x0040}
0x28ec…2914 Head {h00=0x0024, h01=0x0050, text=» SRL A3,7 NUMBER OF 128 SECTORS «, t00=0x001a, t01=0x0052}
0x2914…292c Head {h00=0x0014, h01=0x0050, text=» SRC A4,2 FORMAT«, t00=0x001a, t01=0x007a}
0x292c…2950 Head {h00=0x0020, h01=0x0050, text=» RF(N) TRA500 FORM: (256-2D)«, t00=0x001a, t01=0x0092}
0x2950…2968 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001a, t01=0x00b6}
0x2968…297a Head {h00=0x000e, h01=0x0050, text=» SLC A4,1 «, t00=0x001a, t01=0x00ce}
0x297a…299c Head {h00=0x001e, h01=0x0050, text=» RF(N) TRA300 IBM FORMATED«, t00=0x001a, t01=0x00e0}
0x299c…29a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0102}
0x29a8…29bc Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x001a, t01=0x010e}
0x29bc…29da Head {h00=0x001a, h01=0x0050, text=» SLL A2,1 START SECTOR«, t00=0x001a, t01=0x0122}
0x29da…29e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0140}
0x29e6…29fe Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001a, t01=0x014c}
0x29fe…2a26 Head {h00=0x0024, h01=0x0050, text=» CWK A2,MS:128 MAX SECTOR NUMBER«, t00=0x001a, t01=0x0164}
0x2a26…2a52 Head {h00=0x0028, h01=0x0050, text=» RB(NL) REQERR ILLEGAL SECTOR NUMBER«, t00=0x001a, t01=0x018c}
0x2a52…2a64 Head {h00=0x000e, h01=0x0050, text=» RF TRA400«, t00=0x001b, t01=0x0028}
0x2a64…2a78 Head {h00=0x0010, h01=0x0050, text=»TRA300 EQU *«, t00=0x001b, t01=0x003a}
0x2a78…2a84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x004e}
0x2a84…2a96 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001b, t01=0x005a}
0x2a96…2aa8 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x001b, t01=0x006c}
0x2aa8…2ace Head {h00=0x0022, h01=0x0050, text=» ADK A3,78 SPARE TRACK SECTORS«, t00=0x001b, t01=0x007e}
0x2ace…2afe Head {h00=0x002c, h01=0x0050, text=» CWK A2,MS:128-78 MAX IBM SECTOR NUMBER «, t00=0x001b, t01=0x00a4}
0x2afe…2b2a Head {h00=0x0028, h01=0x0050, text=» RB(NL) REQERR ILLEGAL SECTOR NUMBER«, t00=0x001b, t01=0x00d4}
0x2b2a…2b3e Head {h00=0x0010, h01=0x0050, text=»TRA400 EQU *«, t00=0x001b, t01=0x0100}
0x2b3e…2b4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0114}
0x2b4a…2b7e Head {h00=0x0030, h01=0x0050, text=» ADKL A3,MS:256-MS:128 ADJUST SECTOR NUMBER «, t00=0x001b, t01=0x0120}
0x2b7e…2b9c Head {h00=0x001a, h01=0x0050, text=» RF TRA590 CHECK VALUE«, t00=0x001b, t01=0x0154}
0x2b9c…2ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0172}
0x2ba6…2bbc Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x001b, t01=0x017c}
0x2bbc…2bc6 (28, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0004}
0x2bc6…2bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x000e}
0x2bd0…2be4 Head {h00=0x0010, h01=0x0050, text=»TRA500 EQU *«, t00=0x001c, t01=0x0018}
0x2be4…2bfc Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001c, t01=0x002c}
0x2bfc…2c0e Head {h00=0x000e, h01=0x0050, text=» SLC A4,1 «, t00=0x001c, t01=0x0044}
0x2c0e…2c32 Head {h00=0x0020, h01=0x0050, text=» RF(N) TRA525 IBM FORMATTED «, t00=0x001c, t01=0x0056}
0x2c32…2c3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x007a}
0x2c3e…2c52 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x001c, t01=0x0086}
0x2c52…2c64 Head {h00=0x000e, h01=0x0050, text=» CWK A2,13«, t00=0x001c, t01=0x009a}
0x2c64…2c8a Head {h00=0x0022, h01=0x0050, text=» RF(NL) TRA550 NOT TRACK ZERO «, t00=0x001c, t01=0x00ac}
0x2c8a…2cb2 Head {h00=0x0024, h01=0x0050, text=» SLL A2,1 PHYSICAL SECTOR NUMBER«, t00=0x001c, t01=0x00d2}
0x2cb2…2cc4 Head {h00=0x000e, h01=0x0050, text=» RF TRA600«, t00=0x001c, t01=0x00fa}
0x2cc4…2cd8 Head {h00=0x0010, h01=0x0050, text=»TRA525 EQU *«, t00=0x001c, t01=0x010c}
0x2cd8…2ce4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0120}
0x2ce4…2cf6 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001c, t01=0x012c}
0x2cf6…2d26 Head {h00=0x002c, h01=0x0050, text=» CWK A2,MS:256-104 MAX IBM SECTOR NUMBER«, t00=0x001c, t01=0x013e}
0x2d26…2d52 Head {h00=0x0028, h01=0x0050, text=» RB(NL) REQERR ILLEGAL SECTOR NUMBER«, t00=0x001c, t01=0x016e}
0x2d52…2d64 Head {h00=0x000e, h01=0x0050, text=» CWK A2,26«, t00=0x001d, t01=0x000a}
0x2d64…2d7a Head {h00=0x0012, h01=0x0050, text=» RF(NL) TRA530«, t00=0x001d, t01=0x001c}
0x2d7a…2d8c Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x001d, t01=0x0032}
0x2d8c…2db4 Head {h00=0x0024, h01=0x0050, text=» ADR A3,A2 END OF BUFFER SECTOR «, t00=0x001d, t01=0x0044}
0x2db4…2dc6 Head {h00=0x000e, h01=0x0050, text=» SUK A3,26«, t00=0x001d, t01=0x006c}
0x2dc6…2de6 Head {h00=0x001c, h01=0x0050, text=» RF(N) TRA600 TRACK ZERO«, t00=0x001d, t01=0x007e}
0x2de6…2e04 Head {h00=0x001a, h01=0x0050, text=» ANK A3,1 ODD OR EVEN «, t00=0x001d, t01=0x009e}
0x2e04…2e2a Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ER:ILE ILLEGAL LENGTH «, t00=0x001d, t01=0x00bc}
0x2e2a…2e3e Head {h00=0x0010, h01=0x0050, text=»TRA530 EQU *«, t00=0x001d, t01=0x00e2}
0x2e3e…2e66 Head {h00=0x0024, h01=0x0050, text=» SRL A3,1 NUMBER OF 256 SECTORS «, t00=0x001d, t01=0x00f6}
0x2e66…2e88 Head {h00=0x001e, h01=0x0050, text=» ADK A3,104 SPARE SECTORS «, t00=0x001d, t01=0x011e}
0x2e88…2e9a Head {h00=0x000e, h01=0x0050, text=» RF TRA590«, t00=0x001d, t01=0x0140}
0x2e9a…2ea6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0152}
0x2ea6…2eba Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x001d, t01=0x015e}
0x2eba…2ece Head {h00=0x0010, h01=0x0050, text=»TRA550 EQU *«, t00=0x001d, t01=0x0172}
0x2ece…2ee0 Head {h00=0x000e, h01=0x0050, text=» ADK A2,13«, t00=0x001d, t01=0x0186}
0x2ee0…2ef2 Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x001e, t01=0x0008}
0x2ef2…2efe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x001a}
0x2efe…2f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0026}
0x2f08…2f1e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x001e, t01=0x0030}
0x2f1e…2f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0046}
0x2f28…2f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0050}
0x2f32…2f46 Head {h00=0x0010, h01=0x0050, text=»TRA590 EQU *«, t00=0x001e, t01=0x005a}
0x2f46…2f6c Head {h00=0x0022, h01=0x0050, text=» ADR A3,A2 LAST SECTOR NUMBER «, t00=0x001e, t01=0x006e}
0x2f6c…2f94 Head {h00=0x0024, h01=0x0050, text=» CWK A3,MS:256 MAX SECTOR NUMBER«, t00=0x001e, t01=0x0094}
0x2f94…2fba Head {h00=0x0022, h01=0x0050, text=» RB(G) ER:ILE INCORRECT LENGTH«, t00=0x001e, t01=0x00bc}
0x2fba…2fce Head {h00=0x0010, h01=0x0050, text=»TRA600 EQU *«, t00=0x001e, t01=0x00e2}
0x2fce…2fe2 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001e, t01=0x00f6}
0x2fe2…3008 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ER:ILE ILLEGAL LENGTH «, t00=0x001e, t01=0x010a}
0x3008…301e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001e, t01=0x0130}
0x301e…304a Head {h00=0x0028, h01=0x0050, text=» DVK 26 A1,A2 PHYSICAL SECTOR NUMBER«, t00=0x001e, t01=0x0146}
0x304a…3056 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0172}
0x3056…306c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001e, t01=0x017e}
0x306c…307e (31, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001f, t01=0x0004}
0x307e…3090 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001f, t01=0x0016}
0x3090…30b0 Head {h00=0x001c, h01=0x0050, text=» LDKL A3,/D00 26 SHIFTED«, t00=0x001f, t01=0x0028}
0x30b0…30c4 Head {h00=0x0010, h01=0x0050, text=»DVK26A EQU *«, t00=0x001f, t01=0x0048}
0x30c4…30d6 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x001f, t01=0x005c}
0x30d6…30e8 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A3«, t00=0x001f, t01=0x006e}
0x30e8…30fe Head {h00=0x0012, h01=0x0050, text=» RF(NN) DVK26B«, t00=0x001f, t01=0x0080}
0x30fe…3110 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x001f, t01=0x0096}
0x3110…3122 Head {h00=0x000e, h01=0x0050, text=» RF DVK26C«, t00=0x001f, t01=0x00a8}
0x3122…3136 Head {h00=0x0010, h01=0x0050, text=»DVK26B EQU *«, t00=0x001f, t01=0x00ba}
0x3136…3148 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x001f, t01=0x00ce}
0x3148…315c Head {h00=0x0010, h01=0x0050, text=»DVK26C EQU *«, t00=0x001f, t01=0x00e0}
0x315c…316e Head {h00=0x000e, h01=0x0050, text=» SRC A3,1 «, t00=0x001f, t01=0x00f4}
0x316e…3180 Head {h00=0x000e, h01=0x0050, text=» CWK A3,26«, t00=0x001f, t01=0x0106}
0x3180…3196 Head {h00=0x0012, h01=0x0050, text=» RB(NL) DVK26A«, t00=0x001f, t01=0x0118}
0x3196…31a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x012e}
0x31a2…31ba Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001f, t01=0x013a}
0x31ba…31d2 Head {h00=0x0014, h01=0x0050, text=» SRC A4,1 FORMAT«, t00=0x001f, t01=0x0152}
0x31d2…31de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x016a}
0x31de…31f6 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=2 «, t00=0x001f, t01=0x0176}
0x31f6…3208 Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x001f, t01=0x018e}
0x3208…3214 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0010}
0x3214…3232 Head {h00=0x001a, h01=0x0050, text=» RF(N) IOR100 (256-2D)«, t00=0x0020, t01=0x001c}
0x3232…3244 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0020, t01=0x003a}
0x3244…324e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x004c}
0x324e…3264 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0020, t01=0x0056}
0x3264…326e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x006c}
0x326e…3278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0076}
0x3278…328c Head {h00=0x0010, h01=0x0050, text=»IOR100 EQU *«, t00=0x0020, t01=0x0080}
0x328c…32be Head {h00=0x002e, h01=0x0050, text=» ST A1,DWTSEC,A6 SECTOR NUMBER ON CYLINDER«, t00=0x0020, t01=0x0094}
0x32be…32e6 Head {h00=0x0024, h01=0x0050, text=» SC A2,DWTSEC,A6 CYLINDER NUMBER«, t00=0x0020, t01=0x00c6}
0x32e6…32fa Head {h00=0x0010, h01=0x0050, text=»IOR200 EQU *«, t00=0x0020, t01=0x00ee}
0x32fa…3312 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0020, t01=0x0102}
0x3312…3328 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=1 «, t00=0x0020, t01=0x011a}
0x3328…3348 Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTFOR,A6 FORMAT «, t00=0x0020, t01=0x0130}
0x3348…335a Head {h00=0x000e, h01=0x0050, text=» SRC A4,1 «, t00=0x0020, t01=0x0150}
0x335a…337a Head {h00=0x001c, h01=0x0050, text=» RF(NN) IOR250 TOSS DISC«, t00=0x0020, t01=0x0162}
0x337a…3386 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0182}
0x3386…33a0 Head {h00=0x0016, h01=0x0050, text=» IFT IBM+ASCEBC=2 «, t00=0x0020, t01=0x018e}
0x33a0…33c6 Head {h00=0x0022, h01=0x0050, text=» LD A3,DWTIOR,A6 GET IO ORDER «, t00=0x0021, t01=0x0018}
0x33c6…33e8 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) IOR220 WRITE ORDER«, t00=0x0021, t01=0x003e}
0x33e8…340a Head {h00=0x001e, h01=0x0050, text=» CF A5,CIOI00 PERFORM READ«, t00=0x0021, t01=0x0060}
0x340a…342e Head {h00=0x0020, h01=0x0050, text=» LDR A3,A1 SAVE RETURN CODE «, t00=0x0021, t01=0x0082}
0x342e…345e Head {h00=0x002c, h01=0x0050, text=» CF A5,ASCMOV TRANSFORM AND MOVE TO USER«, t00=0x0021, t01=0x00a6}
0x345e…3480 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 GET RETURN CODE«, t00=0x0021, t01=0x00d6}
0x3480…34a2 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ENDIOR READ ERROR «, t00=0x0021, t01=0x00f8}
0x34a2…34c6 Head {h00=0x0020, h01=0x0050, text=» RF IOR230 UPDATE PARAMETERS«, t00=0x0021, t01=0x011a}
0x34c6…34ec Head {h00=0x0022, h01=0x0050, text=»IOR220 EQU * WRITE IBM SECTOR «, t00=0x0021, t01=0x013e}
0x34ec…351e Head {h00=0x002e, h01=0x0050, text=» CF A5,EBCDIC MOVE FROM USER AND TRANSFORM«, t00=0x0021, t01=0x0164}
0x351e…3542 Head {h00=0x0020, h01=0x0050, text=» CF A5,CIOI00 WRITE ON DISC «, t00=0x0022, t01=0x0008}
0x3542…355e Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ENDIOR ERROR«, t00=0x0022, t01=0x002c}
0x355e…3582 Head {h00=0x0020, h01=0x0050, text=» LC A1,DWTOR+1,A6 GET ORDER «, t00=0x0022, t01=0x0048}
0x3582…3596 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/15 «, t00=0x0022, t01=0x006c}
0x3596…35c2 Head {h00=0x0028, h01=0x0050, text=» RF(NE) IOR230 NOT READ AFTER WRITE «, t00=0x0022, t01=0x0080}
0x35c2…35de Head {h00=0x0018, h01=0x0050, text=» CF A5,CIOIVF VERIFY«, t00=0x0022, t01=0x00ac}
0x35de…35fa Head {h00=0x0018, h01=0x0050, text=» RF(NZ) END:IO ERROR«, t00=0x0022, t01=0x00c8}
0x35fa…360e Head {h00=0x0010, h01=0x0050, text=»IOR230 EQU *«, t00=0x0022, t01=0x00e4}
0x360e…3634 Head {h00=0x0022, h01=0x0050, text=» CF A5,GETLEN GET LENGTH OF IO«, t00=0x0022, t01=0x00f8}
0x3634…3662 Head {h00=0x002a, h01=0x0050, text=» CF A5,INCSEC INCREMENT SECTOR NUMBER «, t00=0x0022, t01=0x011e}
0x3662…3682 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A7 LENGTH OF IO «, t00=0x0022, t01=0x014c}
0x3682…369a Head {h00=0x0014, h01=0x0050, text=» IFT TOSS=1 =1 «, t00=0x0022, t01=0x016c}
0x369a…36b0 Head {h00=0x0012, h01=0x0050, text=» RF IOR400 =1«, t00=0x0022, t01=0x0184}
0x36b0…36bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x000a}
0x36bc…36d6 Head {h00=0x0016, h01=0x0050, text=» IFF TOSS+EBCASC=0«, t00=0x0023, t01=0x0016}
0x36d6…36e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0030}
0x36e0…36f6 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0023, t01=0x003a}
0x36f6…3700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0050}
0x3700…370a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x005a}
0x370a…3728 Head {h00=0x001a, h01=0x0050, text=»IOR250 EQU * TOSS DISC«, t00=0x0023, t01=0x0064}
0x3728…3754 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTSEC,A6 START SECTOR NUMBER«, t00=0x0023, t01=0x0082}
0x3754…3766 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A3«, t00=0x0023, t01=0x00ae}
0x3766…3788 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/FF SECTOR NUMBER «, t00=0x0023, t01=0x00c0}
0x3788…37a0 Head {h00=0x0014, h01=0x0050, text=» NGR A3,A3 26-A3«, t00=0x0023, t01=0x00e2}
0x37a0…37b2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,26«, t00=0x0023, t01=0x00fa}
0x37b2…37de Head {h00=0x0028, h01=0x0050, text=» ANK A2,/FF CYLINDER AND HEAD NUMBER«, t00=0x0023, t01=0x010c}
0x37de…37fe Head {h00=0x001c, h01=0x0050, text=» RF(Z) IOR260 1ST TRACK «, t00=0x0023, t01=0x0138}
0x37fe…381e Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTFOR,A6 FORMAT «, t00=0x0023, t01=0x0158}
0x381e…3830 Head {h00=0x000e, h01=0x0050, text=» SRC A4,2 «, t00=0x0023, t01=0x0178}
0x3830…384e Head {h00=0x001a, h01=0x0050, text=» RF(NN) IOR260 (128-1)«, t00=0x0023, t01=0x018a}
0x384e…3874 Head {h00=0x0022, h01=0x0050, text=» SLL A3,1 LENGTH LEFT ON TRACK«, t00=0x0024, t01=0x0018}
0x3874…3888 Head {h00=0x0010, h01=0x0050, text=»IOR260 EQU *«, t00=0x0024, t01=0x003e}
0x3888…38a4 Head {h00=0x0018, h01=0x0050, text=» SLL A3,6 WORD MODE «, t00=0x0024, t01=0x0052}
0x38a4…38c6 Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTRL,A6 REST OF IO«, t00=0x0024, t01=0x006e}
0x38c6…38e2 Head {h00=0x0018, h01=0x0050, text=» SRL A4,1 WORD MODE «, t00=0x0024, t01=0x0090}
0x38e2…38f4 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A4«, t00=0x0024, t01=0x00ac}
0x38f4…390a Head {h00=0x0012, h01=0x0050, text=» RF(L) IOR275 «, t00=0x0024, t01=0x00be}
0x390a…3934 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A4 REST OF TRACK IN ONE IO«, t00=0x0024, t01=0x00d4}
0x3934…3948 Head {h00=0x0010, h01=0x0050, text=»IOR275 EQU *«, t00=0x0024, t01=0x00fe}
0x3948…395e Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/F000«, t00=0x0024, t01=0x0112}
0x395e…3990 Head {h00=0x002e, h01=0x0050, text=» ANS A4,DWTWE1,A6 RESET LENGTH IN 1ST WER «, t00=0x0024, t01=0x0128}
0x3990…39bc Head {h00=0x0028, h01=0x0050, text=» ORS A3,DWTWE1,A6 LENGTH TO 1ST WER «, t00=0x0024, t01=0x015a}
0x39bc…39e4 Head {h00=0x0024, h01=0x0050, text=» CF A5,CIO:WR PERFORM READ/WRITE«, t00=0x0024, t01=0x0186}
0x39e4…3a0c Head {h00=0x0024, h01=0x0050, text=» RF(NZ) END:IO READ/WRITE ERROR «, t00=0x0025, t01=0x001e}
0x3a0c…3a30 Head {h00=0x0020, h01=0x0050, text=» LC A1,DWTOR+1,A6 GET ORDER «, t00=0x0025, t01=0x0046}
0x3a30…3a44 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/15 «, t00=0x0025, t01=0x006a}
0x3a44…3a70 Head {h00=0x0028, h01=0x0050, text=» RF(NE) IOR300 NOT READ AFTER WRITE «, t00=0x0025, t01=0x007e}
0x3a70…3a94 Head {h00=0x0020, h01=0x0050, text=» CF A5,CIO:VF PERFORM VERIFY«, t00=0x0025, t01=0x00aa}
0x3a94…3ab8 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) END:IO VERIFY ERROR «, t00=0x0025, t01=0x00ce}
0x3ab8…3ac2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f2}
0x3ac2…3ad8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0025, t01=0x00fc}
0x3ad8…3ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0112}
0x3ae2…3aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x011c}
0x3aec…3b00 Head {h00=0x0010, h01=0x0050, text=»IOR300 EQU *«, t00=0x0025, t01=0x0126}
0x3b00…3b20 Head {h00=0x001c, h01=0x0050, text=» CF A5,INCCYL NEXT HEAD «, t00=0x0025, t01=0x013a}
0x3b20…3b44 Head {h00=0x0020, h01=0x0050, text=» AD A2,DWTSEC,A6 NEXT TRACK «, t00=0x0025, t01=0x015a}
0x3b44…3b64 Head {h00=0x001c, h01=0x0050, text=» ANKL A2,/FF00 SECTOR 0 «, t00=0x0025, t01=0x017e}
0x3b64…3b86 Head {h00=0x001e, h01=0x0050, text=» ST A2,DWTSEC,A6 SECTOR ID«, t00=0x0026, t01=0x000e}
0x3b86…3bba Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTWE1,A6 GET LENGTH OF PERFORMED IO «, t00=0x0026, t01=0x0030}
0x3bba…3bcc Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0026, t01=0x0064}
0x3bcc…3be8 Head {h00=0x0018, h01=0x0050, text=» SRL A2,3 CHARACTERS«, t00=0x0026, t01=0x0076}
0x3be8…3bfc Head {h00=0x0010, h01=0x0050, text=»IOR400 EQU *«, t00=0x0026, t01=0x0092}
0x3bfc…3c08 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00a6}
0x3c08…3c10 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x00b2}
0x3c10…3c36 Head {h00=0x0022, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE ECBEL «, t00=0x0026, t01=0x00ba}
0x3c36…3c48 Head {h00=0x000e, h01=0x0050, text=» NGR A3,A2«, t00=0x0026, t01=0x00e0}
0x3c48…3c5e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0026, t01=0x00f2}
0x3c5e…3c70 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0026, t01=0x0108}
0x3c70…3c82 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0026, t01=0x011a}
0x3c82…3c96 Head {h00=0x0010, h01=0x0050, text=» DA DWTBA,A6«, t00=0x0026, t01=0x012c}
0x3c96…3ca8 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/3«, t00=0x0026, t01=0x0140}
0x3ca8…3cbe Head {h00=0x0012, h01=0x0050, text=» MS 2,DWTBA,A6«, t00=0x0026, t01=0x0152}
0x3cbe…3cca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0168}
0x3cca…3ce0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0026, t01=0x0174}
0x3ce0…3cf8 Head {h00=0x0014, h01=0x0050, text=» ADS A2,DWTBA,A6«, t00=0x0026, t01=0x018a}
0x3cf8…3d04 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0012}
0x3d04…3d1c Head {h00=0x0014, h01=0x0050, text=» ADS A3,DWTRL,A6«, t00=0x0027, t01=0x001e}
0x3d1c…3d44 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) IOR200 NEXT TRACK/SECTOR«, t00=0x0027, t01=0x0036}
0x3d44…3d68 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0027, t01=0x005e}
0x3d68…3d7c Head {h00=0x0010, h01=0x0050, text=»ENDIOR EQU *«, t00=0x0027, t01=0x0082}
0x3d7c…3d9c Head {h00=0x001c, h01=0x0050, text=» RF END:IO REQUEST READY«, t00=0x0027, t01=0x0096}
0x3d9c…3da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b6}
0x3da6…3dbc Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0027, t01=0x00c0}
0x3dbc…3dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00d6}
0x3dc6…3dd8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0027, t01=0x00e0}
0x3dd8…3dea Head {h00=0x000e, h01=0x0050, text=»* FORMAT *«, t00=0x0027, t01=0x00f2}
0x3dea…3dfc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0027, t01=0x0104}
0x3dfc…3e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0116}
0x3e06…3e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0120}
0x3e10…3e24 Head {h00=0x0010, h01=0x0050, text=»FORMAT EQU *«, t00=0x0027, t01=0x012a}
0x3e24…3e3a Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x0027, t01=0x013e}
0x3e3a…3e4c Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0027, t01=0x0154}
0x3e4c…3e7c Head {h00=0x002c, h01=0x0050, text=» RF(NZ) END:IO ERROR: NEW VOLUME LOADED «, t00=0x0027, t01=0x0166}
0x3e7c…3ea4 Head {h00=0x0024, h01=0x0050, text=» CF A5,WRIPRE PREPARE FOR WRITE «, t00=0x0028, t01=0x0008}
0x3ea4…3eb6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,36«, t00=0x0028, t01=0x0030}
0x3eb6…3eca Head {h00=0x0010, h01=0x0050, text=»FORM10 EQU *«, t00=0x0028, t01=0x0042}
0x3eca…3eec Head {h00=0x001e, h01=0x0050, text=» CM FD:BUF,A2 CLEAR BUFFER«, t00=0x0028, t01=0x0056}
0x3eec…3efe Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0028, t01=0x0078}
0x3efe…3f14 Head {h00=0x0012, h01=0x0050, text=» RB(NN) FORM10«, t00=0x0028, t01=0x008a}
0x3f14…3f44 Head {h00=0x002c, h01=0x0050, text=» CF A15,VOLCLR CLEAR VOLUME NAME IN DWT «, t00=0x0028, t01=0x00a0}
0x3f44…3f5a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,'TO' «, t00=0x0028, t01=0x00d0}
0x3f5a…3f70 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,'SS' «, t00=0x0028, t01=0x00e6}
0x3f70…3fa2 Head {h00=0x002e, h01=0x0050, text=» LDKL A4,FD:BUF+32 TOSS INDICATION ADDRESS«, t00=0x0028, t01=0x00fc}
0x3fa2…3fcc Head {h00=0x0026, h01=0x0050, text=» LDK A3,IN:TOS INDICATE TOSS DISC «, t00=0x0028, t01=0x012e}
0x3fcc…3fe6 Head {h00=0x0016, h01=0x0050, text=» ANS A3,DWTFOR,A6 «, t00=0x0028, t01=0x0158}
0x3fe6…4012 Head {h00=0x0028, h01=0x0050, text=» LD A3,ECBCW1,A8 TOSS/IBM INDICATOR «, t00=0x0028, t01=0x0172}
0x4012…402c Head {h00=0x0016, h01=0x0050, text=» RF(Z) FORM40 TOSS«, t00=0x0029, t01=0x000e}
0x402c…4050 Head {h00=0x0020, h01=0x0050, text=» CM DWTSEC,A6 WRITE SECTOR 0«, t00=0x0029, t01=0x0028}
0x4050…4066 Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOI00 «, t00=0x0029, t01=0x004c}
0x4066…408e Head {h00=0x0024, h01=0x0050, text=» LDK A3,IN:IBM INDICATE IBM DISC«, t00=0x0029, t01=0x0062}
0x408e…40a8 Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTFOR,A6 «, t00=0x0029, t01=0x008a}
0x40a8…40c4 Head {h00=0x0018, h01=0x0050, text=» LDKL A1,EBC:VO 'VO'«, t00=0x0029, t01=0x00a4}
0x40c4…40e0 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,EBC:L1 'L1'«, t00=0x0029, t01=0x00c0}
0x40e0…4100 Head {h00=0x001c, h01=0x0050, text=» LDK A3,6 WRITE SECTOR 6«, t00=0x0029, t01=0x00dc}
0x4100…412e Head {h00=0x002a, h01=0x0050, text=» LDKL A4,FD:BUF IBM INDICATION ADDRESS«, t00=0x0029, t01=0x00fc}
0x412e…4142 Head {h00=0x0010, h01=0x0050, text=»FORM40 EQU *«, t00=0x0029, t01=0x012a}
0x4142…4166 Head {h00=0x0020, h01=0x0050, text=» STR A1,A4 INDICATE TOSS/IBM«, t00=0x0029, t01=0x013e}
0x4166…417a Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A4 «, t00=0x0029, t01=0x0162}
0x417a…4192 Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTSEC,A6«, t00=0x0029, t01=0x0176}
0x4192…41b4 Head {h00=0x001e, h01=0x0050, text=» CF A5,CIOI00 WRITE SECTOR«, t00=0x0029, t01=0x018e}
0x41b4…41be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0020}
0x41be…41d4 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x002a, t01=0x002a}
0x41d4…41de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0040}
0x41de…41e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x004a}
0x41e8…41fa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x0054}
0x41fa…420c Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x002a, t01=0x0066}
0x420c…421e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x0078}
0x421e…4228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x008a}
0x4228…4232 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0094}
0x4232…423c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x009e}
0x423c…4250 Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x002a, t01=0x00a8}
0x4250…4284 Head {h00=0x0030, h01=0x0050, text=» CF A5,SETPAR SET DISC DEPENDENT PARAMETERS «, t00=0x002a, t01=0x00bc}
0x4284…42ac Head {h00=0x0024, h01=0x0050, text=» OR A1,DWTRC,A6 GET COLLECTED RC«, t00=0x002a, t01=0x00f0}
0x42ac…42c2 Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x002a, t01=0x0118}
0x42c2…42d6 Head {h00=0x0010, h01=0x0050, text=»T:DISP EQU *«, t00=0x002a, t01=0x012e}
0x42d6…42e8 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x002a, t01=0x0142}
0x42e8…42fc Head {h00=0x0010, h01=0x0050, text=»END:30 EQU *«, t00=0x002a, t01=0x0154}
0x42fc…431a Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x002a, t01=0x0168}
0x431a…4344 Head {h00=0x0026, h01=0x0050, text=» ORS A1,DWTST,A6 RECOVERY DONE =1 «, t00=0x002a, t01=0x0186}
0x4344…4356 Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x002b, t01=0x0020}
0x4356…4360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0032}
0x4360…4376 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x002b, t01=0x003c}
0x4376…4380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0052}
0x4380…4392 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x005c}
0x4392…43a4 Head {h00=0x000e, h01=0x0050, text=»* LOCKDO *«, t00=0x002b, t01=0x006e}
0x43a4…43b6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x0080}
0x43b6…43c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0092}
0x43c0…43d6 Head {h00=0x0012, h01=0x0050, text=»* LOCK ORDER«, t00=0x002b, t01=0x009c}
0x43d6…43e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b2}
0x43e0…43f4 Head {h00=0x0010, h01=0x0050, text=»LOCKDO EQU *«, t00=0x002b, t01=0x00bc}
0x43f4…4412 Head {h00=0x001a, h01=0x0050, text=» CF A5,LOCK LOCK DOOR «, t00=0x002b, t01=0x00d0}
0x4412…4436 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) END:IO NOT OPERABLE «, t00=0x002b, t01=0x00ee}
0x4436…444c Head {h00=0x0012, h01=0x0050, text=» LDK A2,IN:LCK«, t00=0x002b, t01=0x0112}
0x444c…4476 Head {h00=0x0026, h01=0x0050, text=» ORS A2,DWTFOR,A6 INDICATE LOCKED «, t00=0x002b, t01=0x0128}
0x4476…4488 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002b, t01=0x0152}
0x4488…44ac Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTFOR,A6 GET FORMAT «, t00=0x002b, t01=0x0164}
0x44ac…44be Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x002b, t01=0x0188}
0x44be…44e2 Head {h00=0x0020, h01=0x0050, text=» SRC A1,6 INDICATE TOSS/IBM «, t00=0x002c, t01=0x000a}
0x44e2…44ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x002e}
0x44ee…4500 Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x002c, t01=0x003a}
0x4500…450a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x004c}
0x450a…4522 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x002c, t01=0x0056}
0x4522…452c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x006e}
0x452c…453e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x0078}
0x453e…4550 Head {h00=0x000e, h01=0x0050, text=»* LOAD *«, t00=0x002c, t01=0x008a}
0x4550…4562 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x009c}
0x4562…456c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ae}
0x456c…4582 Head {h00=0x0012, h01=0x0050, text=»* LOAD ORDER«, t00=0x002c, t01=0x00b8}
0x4582…458c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ce}
0x458c…45b8 Head {h00=0x0028, h01=0x0050, text=»* INPUT : A4 = DOUBLED INDEX + A6 «, t00=0x002c, t01=0x00d8}
0x45b8…45ca Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x002c, t01=0x0104}
0x45ca…45e8 Head {h00=0x001a, h01=0x0050, text=» CF A5,LOCK LOCK DOORS«, t00=0x002c, t01=0x0116}
0x45e8…4604 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) END:UL ERROR«, t00=0x002c, t01=0x0134}
0x4604…461a Head {h00=0x0012, h01=0x0050, text=» LDK A2,IN:LCK«, t00=0x002c, t01=0x0150}
0x461a…4648 Head {h00=0x002a, h01=0x0050, text=» ORS A2,DWTFOR,A6 INDICATE DOOR LOCKED«, t00=0x002c, t01=0x0166}
0x4648…466e (45, 0, 398) Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x002d, t01=0x0004}
0x466e…4680 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x002d, t01=0x002a}
0x4680…46a8 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) END:UL ERROR UNLOCK DOOR«, t00=0x002d, t01=0x003c}
0x46a8…46c0 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x002d, t01=0x0064}
0x46c0…46d8 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFOR,A6«, t00=0x002d, t01=0x007c}
0x46d8…46ea Head {h00=0x000e, h01=0x0050, text=» SRC A2,1 «, t00=0x002d, t01=0x0094}
0x46ea…470a Head {h00=0x001c, h01=0x0050, text=» RB(NN) END:IO TOSS DISC«, t00=0x002d, t01=0x00a6}
0x470a…4716 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00c6}
0x4716…4728 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x002d, t01=0x00d2}
0x4728…473a Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x002d, t01=0x00e4}
0x473a…4746 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00f6}
0x4746…4758 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002d, t01=0x0102}
0x4758…4762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0114}
0x4762…4778 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x002d, t01=0x011e}
0x4778…4782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0134}
0x4782…478c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x013e}
0x478c…47b8 Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBCW1,A8 DATA SET NUMBER =3 «, t00=0x002d, t01=0x0148}
0x47b8…47d6 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A4 SAVE NUMBER«, t00=0x002d, t01=0x0174}
0x47d6…47e8 (46, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A4,7 «, t00=0x002e, t01=0x0004}
0x47e8…4816 Head {h00=0x002a, h01=0x0050, text=» RF(N) LOA:85 ILLEGAL DATA SET NUMBER «, t00=0x002e, t01=0x0016}
0x4816…482a Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x002e, t01=0x0044}
0x482a…483c Head {h00=0x000e, h01=0x0050, text=» SRC A2,1 «, t00=0x002e, t01=0x0058}
0x483c…4848 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x006a}
0x4848…485c Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=0 «, t00=0x002e, t01=0x0076}
0x485c…4880 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTFOR,A6 GET FORMAT «, t00=0x002e, t01=0x008a}
0x4880…4892 Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x002e, t01=0x00ae}
0x4892…489e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00c0}
0x489e…48b0 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002e, t01=0x00cc}
0x48b0…48ce Head {h00=0x001a, h01=0x0050, text=» RF(NN) LOA:10 (128-1)«, t00=0x002e, t01=0x00de}
0x48ce…48e4 Head {h00=0x0012, h01=0x0050, text=» SUK A4,77-25 «, t00=0x002e, t01=0x00fc}
0x48e4…48f6 Head {h00=0x000e, h01=0x0050, text=» CWK A3,25«, t00=0x002e, t01=0x0112}
0x48f6…4914 Head {h00=0x001a, h01=0x0050, text=» RF(NG) LOA:10 HEAD 0 «, t00=0x002e, t01=0x0124}
0x4914…4942 Head {h00=0x002a, h01=0x0050, text=» SUK A3,26 DATA SET NUMBER ON TRACK 1 «, t00=0x002e, t01=0x0142}
0x4942…4970 Head {h00=0x002a, h01=0x0050, text=» SRC A3,1 SECTOR NUMBER IN RIGHT BYTE «, t00=0x002e, t01=0x0170}
0x4970…498c Head {h00=0x0018, h01=0x0050, text=» ORKL A3,/100 HEAD 1«, t00=0x002f, t01=0x000e}
0x498c…49a0 Head {h00=0x0010, h01=0x0050, text=»LOA:10 EQU *«, t00=0x002f, t01=0x002a}
0x49a0…49b4 Head {h00=0x0010, h01=0x0050, text=» SUK A4,25-7«, t00=0x002f, t01=0x003e}
0x49b4…49e2 Head {h00=0x002a, h01=0x0050, text=» RF(P) LOA:85 ILLEGAL DATA SET NUMBER «, t00=0x002f, t01=0x0052}
0x49e2…49f8 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x002f, t01=0x0080}
0x49f8…4a26 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTDSS,A4 SAVE DATA SET NUMBER «, t00=0x002f, t01=0x0096}
0x4a26…4a52 Head {h00=0x0028, h01=0x0050, text=» CF A5,REAPDS PREPARE READ DATA SET «, t00=0x002f, t01=0x00c4}
0x4a52…4a6c Head {h00=0x0016, h01=0x0050, text=» CF A5,CIOI00 READ«, t00=0x002f, t01=0x00f0}
0x4a6c…4a8e Head {h00=0x001e, h01=0x0050, text=» LDR A3,A1 GET RETURN CODE«, t00=0x002f, t01=0x010a}
0x4a8e…4aa0 Head {h00=0x000e, h01=0x0050, text=» SRL A3,7 «, t00=0x002f, t01=0x012c}
0x4aa0…4ab2 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A3«, t00=0x002f, t01=0x013e}
0x4ab2…4ad6 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) END:UL ERROR UNLOAD «, t00=0x002f, t01=0x0150}
0x4ad6…4ae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0174}
0x4ae0…4af6 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x002f, t01=0x017e}
0x4af6…4b00 (48, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0004}
0x4b00…4b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x000e}
0x4b0a…4b34 Head {h00=0x0026, h01=0x0050, text=» LDKL A7,FD:BUF+BOE ADDRESS TO BOE«, t00=0x0030, t01=0x0018}
0x4b34…4b60 Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTDSS,A4 GET DATA SET NUMBER«, t00=0x0030, t01=0x0042}
0x4b60…4b8e Head {h00=0x002a, h01=0x0050, text=» RF(NN) LOA:20 1ST DATA SET IN BUFFER «, t00=0x0030, t01=0x006e}
0x4b8e…4bb8 Head {h00=0x0026, h01=0x0050, text=» ADK A7,/80 2ND DATA SET IN BUFFER«, t00=0x0030, t01=0x009c}
0x4bb8…4bcc Head {h00=0x0010, h01=0x0050, text=»LOA:20 EQU *«, t00=0x0030, t01=0x00c6}
0x4bcc…4bf6 Head {h00=0x0026, h01=0x0050, text=» CF A5,IBMTRA TRANSFORM TO BINARY «, t00=0x0030, t01=0x00da}
0x4bf6…4c28 Head {h00=0x002e, h01=0x0050, text=» ST A3,DWTBOE,A4 SAVE BEGINNING OF EXTENT «, t00=0x0030, t01=0x0104}
0x4c28…4c5a Head {h00=0x002e, h01=0x0050, text=» CF A5,DECBOE CURRENT RECORD NUMBER=BOE-1 «, t00=0x0030, t01=0x0136}
0x4c5a…4c82 Head {h00=0x0024, h01=0x0050, text=» ADK A7,EOE-BOE-5 ADDRESS TO EOE«, t00=0x0030, t01=0x0168}
0x4c82…4c98 Head {h00=0x0012, h01=0x0050, text=» CF A5,IBMTRA «, t00=0x0030, t01=0x0190}
0x4c98…4cbe Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTEOE,A4 END OF EXTENT«, t00=0x0031, t01=0x0016}
0x4cbe…4ce6 Head {h00=0x0024, h01=0x0050, text=» ADK A7,EOD-EOE-5 ADDRESS TO EOD«, t00=0x0031, t01=0x003c}
0x4ce6…4cfc Head {h00=0x0012, h01=0x0050, text=» CF A5,IBMTRA «, t00=0x0031, t01=0x0064}
0x4cfc…4d20 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTEOD,A4 END OF DATA«, t00=0x0031, t01=0x007a}
0x4d20…4d4a Head {h00=0x0026, h01=0x0050, text=» LDKL A1,RC:IBM INDICATE IBM DISC «, t00=0x0031, t01=0x009e}
0x4d4a…4d68 Head {h00=0x001a, h01=0x0050, text=» RB END:IO END REQUEST«, t00=0x0031, t01=0x00c8}
0x4d68…4d7c Head {h00=0x0010, h01=0x0050, text=»LOA:85 EQU *«, t00=0x0031, t01=0x00e6}
0x4d7c…4da2 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,RC:REQ REQUEST ERROR «, t00=0x0031, t01=0x00fa}
0x4da2…4dbc Head {h00=0x0016, h01=0x0050, text=» RF END:UL UNLOAD «, t00=0x0031, t01=0x0120}
0x4dbc…4dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x013a}
0x4dc6…4dd2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0144}
0x4dd2…4dea Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0031, t01=0x0150}
0x4dea…4df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0168}
0x4df4…4e06 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x0172}
0x4e06…4e18 Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0031, t01=0x0184}
0x4e18…4e2a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0032, t01=0x0008}
0x4e2a…4e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x001a}
0x4e34…4e4c Head {h00=0x0014, h01=0x0050, text=»* UNLOAD ORDER«, t00=0x0032, t01=0x0024}
0x4e4c…4e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x003c}
0x4e56…4e68 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0032, t01=0x0046}
0x4e68…4e7c Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0032, t01=0x0058}
0x4e7c…4e94 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0032, t01=0x006c}
0x4e94…4eb8 Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTFOR,A6 GET FORMAT «, t00=0x0032, t01=0x0084}
0x4eb8…4eca Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x0032, t01=0x00a8}
0x4eca…4eea Head {h00=0x001c, h01=0x0050, text=» RF(NN) UNL:50 TOSS DISC«, t00=0x0032, t01=0x00ba}
0x4eea…4ef6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x00da}
0x4ef6…4f08 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0032, t01=0x00e6}
0x4f08…4f2c Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTEOD,A4 END OF DATA«, t00=0x0032, t01=0x00f8}
0x4f2c…4f4c Head {h00=0x001c, h01=0x0050, text=» RF(Z) UNL:50 NOT OPENED«, t00=0x0032, t01=0x011c}
0x4f4c…4f74 Head {h00=0x0024, h01=0x0050, text=» CF A5,SECBIN CONVERT TO BINARY «, t00=0x0032, t01=0x013c}
0x4f74…4f98 Head {h00=0x0020, h01=0x0050, text=» ST A3,ECBCW2,A8 EOD TO ECB «, t00=0x0032, t01=0x0164}
0x4f98…4fc4 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTDSS,A4 DATA SET SECTOR ID «, t00=0x0032, t01=0x0188}
0x4fc4…4ff0 Head {h00=0x0028, h01=0x0050, text=» CF A5,REAPDS PREPARE READ DATA SET «, t00=0x0033, t01=0x0024}
0x4ff0…500a Head {h00=0x0016, h01=0x0050, text=» CF A5,CIOI00 READ«, t00=0x0033, t01=0x0050}
0x500a…502c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) END:UL READ ERROR «, t00=0x0033, t01=0x006a}
0x502c…5054 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,FD:BUF+EOD EOD ADDRESS «, t00=0x0033, t01=0x008c}
0x5054…507c Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTDSS,A4 DATA SET NUMBER«, t00=0x0033, t01=0x00b4}
0x507c…50aa Head {h00=0x002a, h01=0x0050, text=» RF(NN) UNL:20 1ST DATA SET IN SECTOR «, t00=0x0033, t01=0x00dc}
0x50aa…50d4 Head {h00=0x0026, h01=0x0050, text=» ADK A1,/80 2ND DATA SET IN SECTOR«, t00=0x0033, t01=0x010a}
0x50d4…50de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0134}
0x50de…50f4 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0033, t01=0x013e}
0x50f4…50fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0154}
0x50fe…5108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x015e}
0x5108…511c Head {h00=0x0010, h01=0x0050, text=»UNL:20 EQU *«, t00=0x0033, t01=0x0168}
0x511c…5140 Head {h00=0x0020, h01=0x0050, text=» LC A7,DWTEOD,A4 END OF DATA«, t00=0x0033, t01=0x017c}
0x5140…5164 Head {h00=0x0020, h01=0x0050, text=» LDR A2,A7 SAVE END OF DATA «, t00=0x0034, t01=0x0010}
0x5164…5176 Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0034, t01=0x0034}
0x5176…5196 Head {h00=0x001c, h01=0x0050, text=» ORK A2,/F0 HEAD NUMBER «, t00=0x0034, t01=0x0046}
0x5196…51c0 Head {h00=0x0026, h01=0x0050, text=» SC A2,2,A1 HEAD NUMBER TO BUFFER «, t00=0x0034, t01=0x0066}
0x51c0…51d2 Head {h00=0x000e, h01=0x0050, text=» SRL A7,1 «, t00=0x0034, t01=0x0090}
0x51d2…51f4 Head {h00=0x001e, h01=0x0050, text=» CF A5,BINDEC EBCDIC CODE «, t00=0x0034, t01=0x00a2}
0x51f4…521e Head {h00=0x0026, h01=0x0050, text=» STR A3,A1 TRACK NUMBER TO BUFFER «, t00=0x0034, t01=0x00c4}
0x521e…5248 Head {h00=0x0026, h01=0x0050, text=» LD A7,DWTEOD,A4 GET SECTOR NUMBER«, t00=0x0034, t01=0x00ee}
0x5248…526c Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 IBM SECTOR NUMBER «, t00=0x0034, t01=0x0118}
0x526c…529c Head {h00=0x002c, h01=0x0050, text=» CF A5,BINDEC A3=SECTOR NUMBER IN EBCDIC«, t00=0x0034, t01=0x013c}
0x529c…52c8 Head {h00=0x0028, h01=0x0050, text=» SC A3,4,A1 SECTOR NUMBER TO BUFFER «, t00=0x0034, t01=0x016c}
0x52c8…52da Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x0035, t01=0x0008}
0x52da…52ee Head {h00=0x0010, h01=0x0050, text=» SC A3,3,A1 «, t00=0x0035, t01=0x001a}
0x52ee…5316 Head {h00=0x0024, h01=0x0050, text=» CF A5,WRIPRE PREPARE FOR WRITE «, t00=0x0035, t01=0x002e}
0x5316…532c Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOI00 «, t00=0x0035, t01=0x0056}
0x532c…534e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) END:UL WRITE ERROR«, t00=0x0035, t01=0x006c}
0x534e…5378 Head {h00=0x0026, h01=0x0050, text=» CM DWTEOD,A4 INDICATE NOT OPENED «, t00=0x0035, t01=0x008e}
0x5378…5384 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x00b8}
0x5384…5398 Head {h00=0x0010, h01=0x0050, text=»END:UL EQU *«, t00=0x0035, t01=0x00c4}
0x5398…53c2 Head {h00=0x0026, h01=0x0050, text=» ORS A1,DWTRC,A6 SAVE RETURN CODE «, t00=0x0035, t01=0x00d8}
0x53c2…53d4 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0035, t01=0x0102}
0x53d4…53e8 Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0035, t01=0x0114}
0x53e8…53f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0128}
0x53f4…5408 Head {h00=0x0010, h01=0x0050, text=»UNL:50 EQU *«, t00=0x0035, t01=0x0134}
0x5408…542a Head {h00=0x001e, h01=0x0050, text=» CF A5,UNLOCK UNLOCK DOORS«, t00=0x0035, t01=0x0148}
0x542a…5440 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ENDIO «, t00=0x0035, t01=0x016a}
0x5440…546e Head {h00=0x002a, h01=0x0050, text=» LDK A2,IN:ULC INDICATE UNLOCKED DRIVE«, t00=0x0035, t01=0x0180}
0x546e…5496 Head {h00=0x0024, h01=0x0050, text=» ANS A2,DWTFOR,A6 UNLOCKED DOOR «, t00=0x0036, t01=0x001e}
0x5496…54aa Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0036, t01=0x0046}
0x54aa…54be Head {h00=0x0010, h01=0x0050, text=» ABL END:IO «, t00=0x0036, t01=0x005a}
0x54be…54c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x006e}
0x54c8…54da Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0036, t01=0x0078}
0x54da…54f2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0036, t01=0x008a}
0x54f2…54fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00a2}
0x54fc…550e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x00ac}
0x550e…5520 Head {h00=0x000e, h01=0x0050, text=»* SQREAD *«, t00=0x0036, t01=0x00be}
0x5520…5532 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x00d0}
0x5532…553c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00e2}
0x553c…5558 Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ «, t00=0x0036, t01=0x00ec}
0x5558…5562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0108}
0x5562…5576 Head {h00=0x0010, h01=0x0050, text=»SQREAD EQU *«, t00=0x0036, t01=0x0112}
0x5576…559c Head {h00=0x0022, h01=0x0050, text=» CF A5,REAPRE PREPARE FOR READ«, t00=0x0036, t01=0x0126}
0x559c…55c6 Head {h00=0x0026, h01=0x0050, text=» CF A5,IBMCHK CHECK IBM PARAMETERS«, t00=0x0036, t01=0x014c}
0x55c6…55e6 Head {h00=0x001c, h01=0x0050, text=» LD A3,DWTCRN,A4 GET CRN«, t00=0x0036, t01=0x0176}
0x55e6…5602 Head {h00=0x0018, h01=0x0050, text=» CF A5,INCSE0 CRN+1 «, t00=0x0037, t01=0x0008}
0x5602…561e Head {h00=0x0018, h01=0x0050, text=» ECR A3,A3 LEFT BYTE«, t00=0x0037, t01=0x0024}
0x561e…5642 Head {h00=0x0020, h01=0x0050, text=» CC A3,DWTEOD,A4 END OF DATA«, t00=0x0037, t01=0x0040}
0x5642…5660 Head {h00=0x001a, h01=0x0050, text=» ECR A3,A3 RIGHT BYTE «, t00=0x0037, t01=0x0064}
0x5660…568c Head {h00=0x0028, h01=0x0050, text=» RF(NE) SQR:10 LEFT BYTES NOT EQUAL «, t00=0x0037, t01=0x0082}
0x568c…56aa Head {h00=0x001a, h01=0x0050, text=» CC A3,DWTEOD+1,A4 EOD«, t00=0x0037, t01=0x00ae}
0x56aa…56be Head {h00=0x0010, h01=0x0050, text=»SQR:10 EQU *«, t00=0x0037, t01=0x00cc}
0x56be…56e8 Head {h00=0x0026, h01=0x0050, text=» RF(NL) ENDEOD ERROR : END OF DATA«, t00=0x0037, t01=0x00e0}
0x56e8…5712 Head {h00=0x0026, h01=0x0050, text=» CF A5,SECBIN SECTOR ID IN BINARY «, t00=0x0037, t01=0x010a}
0x5712…5736 Head {h00=0x0020, h01=0x0050, text=» ST A3,ECBCW2,A8 CRN TO ECB «, t00=0x0037, t01=0x0134}
0x5736…574c Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=1 «, t00=0x0037, t01=0x0158}
0x574c…576e Head {h00=0x001e, h01=0x0050, text=» CF A5,CIOI00 READ SECTOR «, t00=0x0037, t01=0x016e}
0x576e…5794 Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 JUST NOT OPERABLE =4«, t00=0x0037, t01=0x0190}
0x5794…57b4 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ENDIO READ ERROR«, t00=0x0038, t01=0x0026}
0x57b4…57dc Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCMOV TRANSFORM AND MOVE«, t00=0x0038, t01=0x0046}
0x57dc…57fe Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTSEC,A6 GET CRN+1«, t00=0x0038, t01=0x006e}
0x57fe…5820 Head {h00=0x001e, h01=0x0050, text=» ADK A4,DWTCRN CRN ADDRESS«, t00=0x0038, t01=0x0090}
0x5820…583e Head {h00=0x001a, h01=0x0050, text=» RF SQW:90 END REQUEST«, t00=0x0038, t01=0x00b2}
0x583e…584a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00d0}
0x584a…585c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0038, t01=0x00dc}
0x585c…5872 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=0 «, t00=0x0038, t01=0x00ee}
0x5872…588c Head {h00=0x0016, h01=0x0050, text=» CF A5,CIO:WR READ«, t00=0x0038, t01=0x0104}
0x588c…58b2 Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 JUST NOT OPERABLE =4«, t00=0x0038, t01=0x011e}
0x58b2…58ce Head {h00=0x0018, h01=0x0050, text=» RB(NZ) ENDIO ERROR «, t00=0x0038, t01=0x0144}
0x58ce…58fc Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTSEC,A6 CURRENT RECORD NUMBER«, t00=0x0038, t01=0x0160}
0x58fc…591a Head {h00=0x001a, h01=0x0050, text=» ADK A4,DWTCRN ADDRESS«, t00=0x0038, t01=0x018e}
0x591a…592c Head {h00=0x000e, h01=0x0050, text=» RF SQW:90«, t00=0x0039, t01=0x001c}
0x592c…5938 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x002e}
0x5938…594a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0039, t01=0x003a}
0x594a…5954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x004c}
0x5954…596a Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0039, t01=0x0056}
0x596a…5974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x006c}
0x5974…597e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0076}
0x597e…5992 Head {h00=0x0010, h01=0x0050, text=»ENDEOD EQU *«, t00=0x0039, t01=0x0080}
0x5992…59b6 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,RC:EOD END OF DATA «, t00=0x0039, t01=0x0094}
0x59b6…59c8 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x0039, t01=0x00b8}
0x59c8…59d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ca}
0x59d2…59ea Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0039, t01=0x00d4}
0x59ea…59f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ec}
0x59f4…5a06 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x00f6}
0x5a06…5a18 Head {h00=0x000e, h01=0x0050, text=»* SQWRIT *«, t00=0x0039, t01=0x0108}
0x5a18…5a2a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x011a}
0x5a2a…5a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x012c}
0x5a34…5a50 Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE«, t00=0x0039, t01=0x0136}
0x5a50…5a5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0152}
0x5a5a…5a6e Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x0039, t01=0x015c}
0x5a6e…5a96 Head {h00=0x0024, h01=0x0050, text=» CF A5,WRIPRE PREPARE FOR WRITE «, t00=0x0039, t01=0x0170}
0x5a96…5ac0 Head {h00=0x0026, h01=0x0050, text=» CF A5,IBMCHK CHECK IBM PARAMETERS«, t00=0x003a, t01=0x0008}
0x5ac0…5adc Head {h00=0x0018, h01=0x0050, text=» LD A3,DWTEOD,A4 EOD«, t00=0x003a, t01=0x0032}
0x5adc…5af8 Head {h00=0x0018, h01=0x0050, text=» ECR A3,A3 LEFT BYTE«, t00=0x003a, t01=0x004e}
0x5af8…5b20 Head {h00=0x0024, h01=0x0050, text=» CC A3,DWTEOE,A4 LEFT CHARACTERS«, t00=0x003a, t01=0x006a}
0x5b20…5b32 Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x003a, t01=0x0092}
0x5b32…5b48 Head {h00=0x0012, h01=0x0050, text=» RF(NE) SQW:10«, t00=0x003a, t01=0x00a4}
0x5b48…5b74 Head {h00=0x0028, h01=0x0050, text=» CC A3,DWTEOE+1,A4 RIGTH CHARACTERS «, t00=0x003a, t01=0x00ba}
0x5b74…5b88 Head {h00=0x0010, h01=0x0050, text=»SQW:10 EQU *«, t00=0x003a, t01=0x00e6}
0x5b88…5bb2 Head {h00=0x0026, h01=0x0050, text=» RF(G) ENDEOE ERROR: END OF EXTENT«, t00=0x003a, t01=0x00fa}
0x5bb2…5bd6 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTSEC,A6 END OF DATA«, t00=0x003a, t01=0x0124}
0x5bd6…5bfe Head {h00=0x0024, h01=0x0050, text=» CF A5,SECBIN CONVERT TO BINARY «, t00=0x003a, t01=0x0148}
0x5bfe…5c22 Head {h00=0x0020, h01=0x0050, text=» ST A3,ECBCW2,A8 EOD TO ECB «, t00=0x003a, t01=0x0170}
0x5c22…5c38 (59, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=1 «, t00=0x003b, t01=0x0004}
0x5c38…5c4e Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x003b, t01=0x001a}
0x5c4e…5c70 Head {h00=0x001e, h01=0x0050, text=» CF A5,CIOI00 WRITE SECTOR«, t00=0x003b, t01=0x0030}
0x5c70…5c8c Head {h00=0x0018, h01=0x0050, text=» RB(NZ) ENDIO ERROR «, t00=0x003b, t01=0x0052}
0x5c8c…5c98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x006e}
0x5c98…5cae Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=0 «, t00=0x003b, t01=0x007a}
0x5cae…5cc0 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003b, t01=0x0090}
0x5cc0…5ce0 Head {h00=0x001c, h01=0x0050, text=» CF A5,CIO:WR PERFORM IO«, t00=0x003b, t01=0x00a2}
0x5ce0…5cfc Head {h00=0x0018, h01=0x0050, text=» RB(NZ) ENDIO ERROR «, t00=0x003b, t01=0x00c2}
0x5cfc…5d08 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00de}
0x5d08…5d1a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003b, t01=0x00ea}
0x5d1a…5d38 Head {h00=0x001a, h01=0x0050, text=» CF A5,INCSEC DWTSEC+1«, t00=0x003b, t01=0x00fc}
0x5d38…5d5e Head {h00=0x0022, h01=0x0050, text=» ADK A4,DWTEOD ADDRESS TO EOD «, t00=0x003b, t01=0x011a}
0x5d5e…5d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0140}
0x5d68…5d7e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x003b, t01=0x014a}
0x5d7e…5d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0160}
0x5d88…5d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x016a}
0x5d92…5da6 Head {h00=0x0010, h01=0x0050, text=»SQW:90 EQU *«, t00=0x003b, t01=0x0174}
0x5da6…5dc8 Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 UPDATED POINTER«, t00=0x003b, t01=0x0188}
0x5dc8…5df0 Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBRL,A8 REQUESTED LENGTH«, t00=0x003c, t01=0x001a}
0x5df0…5e18 Head {h00=0x0024, h01=0x0050, text=» ST A3,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x003c, t01=0x0042}
0x5e18…5e2a Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x003c, t01=0x006a}
0x5e2a…5e3e Head {h00=0x0010, h01=0x0050, text=»ENDEOE EQU *«, t00=0x003c, t01=0x007c}
0x5e3e…5e64 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,RC:EOE END OF EXTENT «, t00=0x003c, t01=0x0090}
0x5e64…5e76 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x003c, t01=0x00b6}
0x5e76…5e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00c8}
0x5e80…5e98 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x003c, t01=0x00d2}
0x5e98…5ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ea}
0x5ea2…5eb4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003c, t01=0x00f4}
0x5eb4…5ec6 Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x003c, t01=0x0106}
0x5ec6…5ed8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003c, t01=0x0118}
0x5ed8…5ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x012a}
0x5ee2…5ef6 Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x003c, t01=0x0134}
0x5ef6…5f1e Head {h00=0x0024, h01=0x0050, text=» CF A5,IBMCH5 CHECK IF IBM DISK «, t00=0x003c, t01=0x0148}
0x5f1e…5f36 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTBOE,A4«, t00=0x003c, t01=0x0170}
0x5f36…5f56 Head {h00=0x001c, h01=0x0050, text=» ST A3,DWTEOD,A4 EOD=BOE«, t00=0x003c, t01=0x0188}
0x5f56…5f74 Head {h00=0x001a, h01=0x0050, text=» CF A5,DECBOE GET CRN «, t00=0x003d, t01=0x0018}
0x5f74…5f86 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x003d, t01=0x0036}
0x5f86…5f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0048}
0x5f90…5f9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0052}
0x5f9c…5fb4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x003d, t01=0x005e}
0x5fb4…5fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0076}
0x5fbe…5fda Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003d, t01=0x0080}
0x5fda…5ff6 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x003d, t01=0x009c}
0x5ff6…6012 Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x003d, t01=0x00b8}
0x6012…602e Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x003d, t01=0x00d4}
0x602e…604a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003d, t01=0x00f0}
0x604a…6054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x010c}
0x6054…6066 Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x003d, t01=0x0116}
0x6066…6090 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x003d, t01=0x0128}
0x6090…60b4 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x003d, t01=0x0152}
0x60b4…60ec Head {h00=0x0034, h01=0x0050, text=» LDKL A4,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x003d, t01=0x0176}
0x60ec…6108 Head {h00=0x0018, h01=0x0050, text=» ANS A4,DWTST,A6 =1«, t00=0x003e, t01=0x001e}
0x6108…6112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x003a}
0x6112…6128 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x003e, t01=0x0044}
0x6128…6132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x005a}
0x6132…6148 Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x003e, t01=0x0064}
0x6148…6152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x007a}
0x6152…616a Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x003e, t01=0x0084}
0x616a…618c Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x003e, t01=0x009c}
0x618c…61a2 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x003e, t01=0x00be}
0x61a2…61c8 Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x003e, t01=0x00d4}
0x61c8…61da Head {h00=0x000e, h01=0x0050, text=» RF F:DISP«, t00=0x003e, t01=0x00fa}
0x61da…61ee Head {h00=0x0010, h01=0x0050, text=»FDON10 EQU *«, t00=0x003e, t01=0x010c}
0x61ee…6204 Head {h00=0x0012, h01=0x0050, text=» LDK A4,DWTTP «, t00=0x003e, t01=0x0120}
0x6204…6216 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x003e, t01=0x0136}
0x6216…6230 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x003e, t01=0x0148}
0x6230…6246 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x003e, t01=0x0162}
0x6246…6260 Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x003e, t01=0x0178}
0x6260…626a (63, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0004}
0x626a…627e Head {h00=0x0010, h01=0x0050, text=»F:DISP EQU *«, t00=0x003f, t01=0x000e}
0x627e…6292 Head {h00=0x0010, h01=0x0050, text=» ABL T:DISP «, t00=0x003f, t01=0x0022}
0x6292…629c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0036}
0x629c…62b8 Head {h00=0x0018, h01=0x0050, text=»* TIME OUT ROUTINE«, t00=0x003f, t01=0x0040}
0x62b8…62c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x005c}
0x62c2…62d6 Head {h00=0x0010, h01=0x0050, text=»FDON20 EQU *«, t00=0x003f, t01=0x0066}
0x62d6…62e8 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x003f, t01=0x007a}
0x62e8…62fc Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x003f, t01=0x008c}
0x62fc…6310 Head {h00=0x0010, h01=0x0050, text=»FDRE00 EQU *«, t00=0x003f, t01=0x00a0}
0x6310…6348 Head {h00=0x0034, h01=0x0050, text=» LDKL A5,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x003f, t01=0x00b4}
0x6348…6364 Head {h00=0x0018, h01=0x0050, text=» ANS A5,DWTST,A6 =1«, t00=0x003f, t01=0x00ec}
0x6364…637c Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x003f, t01=0x0108}
0x637c…639e Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x003f, t01=0x0120}
0x639e…63bc Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F8 FILE CODE «, t00=0x003f, t01=0x0142}
0x63bc…63d4 Head {h00=0x0014, h01=0x0050, text=» ST A3,DWT:FC,A6«, t00=0x003f, t01=0x0160}
0x63d4…63f0 Head {h00=0x0018, h01=0x0050, text=» LDK A3,3 4 VOLUMES «, t00=0x003f, t01=0x0178}
0x63f0…63fa (64, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0004}
0x63fa…6410 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0040, t01=0x000e}
0x6410…641a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0024}
0x641a…6424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x002e}
0x6424…6440 Head {h00=0x0018, h01=0x0050, text=»* READ VOLUME NAME «, t00=0x0040, t01=0x0038}
0x6440…644a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0054}
0x644a…645e Head {h00=0x0010, h01=0x0050, text=»FDONLD EQU *«, t00=0x0040, t01=0x005e}
0x645e…6486 Head {h00=0x0024, h01=0x0050, text=» SC A3,DWTOR,A6 GET VOLUME NAME «, t00=0x0040, t01=0x0072}
0x6486…64a4 Head {h00=0x001a, h01=0x0050, text=» CF A5,LOCK LOCK DOOR «, t00=0x0040, t01=0x009a}
0x64a4…64c4 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FDON19 OPERABLE «, t00=0x0040, t01=0x00b8}
0x64c4…64fa Head {h00=0x0032, h01=0x0050, text=» CF A5,GETPAR GET DEVICE DEPENDENT PARAMETERS «, t00=0x0040, t01=0x00d8}
0x64fa…6510 Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0040, t01=0x010e}
0x6510…6546 Head {h00=0x0032, h01=0x0050, text=» CF A5,SETPAR SET DEVICE DEPENDENT PARAMETERS «, t00=0x0040, t01=0x0124}
0x6546…6558 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0040, t01=0x015a}
0x6558…6576 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FDON21 NO ERROR«, t00=0x0040, t01=0x016c}
0x6576…658a Head {h00=0x0010, h01=0x0050, text=»FDON19 EQU *«, t00=0x0040, t01=0x018a}
0x658a…65a8 Head {h00=0x001a, h01=0x0050, text=» LDK A1,6 NOT OPERABLE«, t00=0x0041, t01=0x000e}
0x65a8…65d0 Head {h00=0x0024, h01=0x0050, text=» CF A15,VOLCLR CLEAR VOLUME NAME«, t00=0x0041, t01=0x002c}
0x65d0…65e2 Head {h00=0x000e, h01=0x0050, text=» RF FDON24«, t00=0x0041, t01=0x0054}
0x65e2…65f6 Head {h00=0x0010, h01=0x0050, text=»FDON21 EQU *«, t00=0x0041, t01=0x0066}
0x65f6…6624 Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTFOR,A6 GET FORMAT PARAMETERS«, t00=0x0041, t01=0x007a}
0x6624…663a Head {h00=0x0012, h01=0x0050, text=» ANK A4,IN:LCK«, t00=0x0041, t01=0x00a8}
0x663a…6650 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) FDON25«, t00=0x0041, t01=0x00be}
0x6650…6664 Head {h00=0x0010, h01=0x0050, text=»FDON24 EQU *«, t00=0x0041, t01=0x00d4}
0x6664…667a Head {h00=0x0012, h01=0x0050, text=» CF A5,UNLOCK «, t00=0x0041, t01=0x00e8}
0x667a…668e Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0041, t01=0x00fe}
0x668e…66a0 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0041, t01=0x0112}
0x66a0…66d0 Head {h00=0x002c, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. «, t00=0x0041, t01=0x0124}
0x66d0…66e2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0041, t01=0x0154}
0x66e2…6704 Head {h00=0x001e, h01=0x0050, text=» RB(NN) FDONLD NEXT VOLUME«, t00=0x0041, t01=0x0166}
0x6704…671c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0041, t01=0x0188}
0x671c…6726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0010}
0x6726…673c Head {h00=0x0012, h01=0x0050, text=»* RESTART IO«, t00=0x0042, t01=0x001a}
0x673c…6746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0030}
0x6746…6772 Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 INDICATE RECOVERY OVER «, t00=0x0042, t01=0x003a}
0x6772…6796 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0042, t01=0x0066}
0x6796…67ba Head {h00=0x0020, h01=0x0050, text=» ABL(Z) END:IO NO REQUEST ON«, t00=0x0042, t01=0x008a}
0x67ba…67e6 Head {h00=0x0028, h01=0x0050, text=» LD A7,DWTORD,A6 GET INDEX AND ORDER«, t00=0x0042, t01=0x00ae}
0x67e6…67fe Head {h00=0x0014, h01=0x0050, text=» ST A7,DWTOR,A6 «, t00=0x0042, t01=0x00da}
0x67fe…682a Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x0042, t01=0x00f2}
0x682a…6844 Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0042, t01=0x011e}
0x6844…6856 Head {h00=0x000e, h01=0x0050, text=» ABL FDAD «, t00=0x0042, t01=0x0138}
0x6856…6860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x014a}
0x6860…6878 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0042, t01=0x0154}
0x6878…6882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x016c}
0x6882…68a0 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0042, t01=0x0176}
0x68a0…68be (67, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0043, t01=0x0004}
0x68be…68dc Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x0043, t01=0x0022}
0x68dc…68fa Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0043, t01=0x0040}
0x68fa…6918 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0043, t01=0x005e}
0x6918…6922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x007c}
0x6922…693e Head {h00=0x0018, h01=0x0050, text=»* INPUT FROM CU : «, t00=0x0043, t01=0x0086}
0x693e…696a Head {h00=0x0028, h01=0x0050, text=»* BIT 1 : READY INTERRUPT «, t00=0x0043, t01=0x00a2}
0x696a…69a0 Head {h00=0x0032, h01=0x0050, text=»* BIT 4 : DELETED DATA ADDRESS MARK «, t00=0x0043, t01=0x00ce}
0x69a0…69cc Head {h00=0x0028, h01=0x0050, text=»* BIT 5 : SECTOR NOT FOUND«, t00=0x0043, t01=0x0104}
0x69cc…69f2 Head {h00=0x0022, h01=0x0050, text=»* BIT 6 : SEEK ERROR«, t00=0x0043, t01=0x0130}
0x69f2…6a1c Head {h00=0x0026, h01=0x0050, text=»* BIT 7 : WRITE PROTECT «, t00=0x0043, t01=0x0156}
0x6a1c…6a44 Head {h00=0x0024, h01=0x0050, text=»* BIT8,9: DRIVE NUMBER«, t00=0x0043, t01=0x0180}
0x6a44…6a66 Head {h00=0x001e, h01=0x0050, text=»* BIT 10: RETRY «, t00=0x0044, t01=0x0018}
0x6a66…6a90 Head {h00=0x0026, h01=0x0050, text=»* BIT 11: PROGRAM ERROR «, t00=0x0044, t01=0x003a}
0x6a90…6ac0 Head {h00=0x002c, h01=0x0050, text=»* BIT 12: FULL TRACK PROCESSED«, t00=0x0044, t01=0x0064}
0x6ac0…6ae6 Head {h00=0x0022, h01=0x0050, text=»* BIT 13: DATA FAULT«, t00=0x0044, t01=0x0094}
0x6ae6…6b12 Head {h00=0x0028, h01=0x0050, text=»* BIT 14: THROUGHPUT ERROR«, t00=0x0044, t01=0x00ba}
0x6b12…6b3a Head {h00=0x0024, h01=0x0050, text=»* BIT 15: NOT OPERABLE«, t00=0x0044, t01=0x00e6}
0x6b3a…6b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x010e}
0x6b44…6b64 Head {h00=0x001c, h01=0x0050, text=»* OUTPUT REGISTER A1: «, t00=0x0044, t01=0x0118}
0x6b64…6b88 Head {h00=0x0020, h01=0x0050, text=»* BIT 4 : NO DATA «, t00=0x0044, t01=0x0138}
0x6b88…6bb4 Head {h00=0x0028, h01=0x0050, text=»* BIT6,9: WRITE PROTECTED «, t00=0x0044, t01=0x015c}
0x6bb4…6bec Head {h00=0x0034, h01=0x0050, text=»* BIT 7 : RETRIES PERFPRMED (IN DWTRC)«, t00=0x0044, t01=0x0188}
0x6bec…6c0e Head {h00=0x001e, h01=0x0050, text=»* BIT 11: FORMAT«, t00=0x0045, t01=0x0030}
0x6c0e…6c34 Head {h00=0x0022, h01=0x0050, text=»* BIT 13: CRC ERROR «, t00=0x0045, t01=0x0052}
0x6c34…6c6e Head {h00=0x0036, h01=0x0050, text=»* BIT 14: SEEK ERROR / THROUGHPUT ERROR «, t00=0x0045, t01=0x0078}
0x6c6e…6c96 Head {h00=0x0024, h01=0x0050, text=»* BIT 15: NOT OPERABLE«, t00=0x0045, t01=0x00b2}
0x6c96…6ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00da}
0x6ca0…6cc6 Head {h00=0x0022, h01=0x0050, text=»* A5 = STACK POINTER«, t00=0x0045, t01=0x00e4}
0x6cc6…6cea Head {h00=0x0020, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0045, t01=0x010a}
0x6cea…6d0e Head {h00=0x0020, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0045, t01=0x012e}
0x6d0e…6d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0152}
0x6d18…6d2e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0045, t01=0x015c}
0x6d2e…6d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0172}
0x6d38…6d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x017c}
0x6d42…6d54 Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x0045, t01=0x0186}
0x6d54…6d82 Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x0046, t01=0x0008}
0x6d82…6da2 Head {h00=0x001c, h01=0x0050, text=» SST A1,CUADR GET STATUS«, t00=0x0046, t01=0x0036}
0x6da2…6dcc Head {h00=0x0026, h01=0x0050, text=» RF(A) IHFD00 CORRECT CH. UNIT =2 «, t00=0x0046, t01=0x0056}
0x6dcc…6de8 Head {h00=0x0018, h01=0x0050, text=» CIO A1,0,CUADR =2 «, t00=0x0046, t01=0x0080}
0x6de8…6e02 Head {h00=0x0016, h01=0x0050, text=» SST A1,CUADR =2 «, t00=0x0046, t01=0x009c}
0x6e02…6e1a Head {h00=0x0014, h01=0x0050, text=» RB(NA) *-2 =2 «, t00=0x0046, t01=0x00b6}
0x6e1a…6e3e Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 SET RETURN CODE =2«, t00=0x0046, t01=0x00ce}
0x6e3e…6e56 Head {h00=0x0014, h01=0x0050, text=»IHFD00 EQU * =2«, t00=0x0046, t01=0x00f2}
0x6e56…6e68 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0046, t01=0x010a}
0x6e68…6e8c Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0046, t01=0x011c}
0x6e8c…6eb0 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0046, t01=0x0140}
0x6eb0…6ec2 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0046, t01=0x0164}
0x6ec2…6ee8 Head {h00=0x0022, h01=0x0050, text=» RB(N) FDRE00 READY INTERRUPT «, t00=0x0046, t01=0x0176}
0x6ee8…6efc Head {h00=0x0010, h01=0x0050, text=» ANK A1,/17 «, t00=0x0047, t01=0x000c}
0x6efc…6f12 Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIT4«, t00=0x0047, t01=0x0020}
0x6f12…6f30 Head {h00=0x001a, h01=0x0050, text=» RF(NN) IHFD10 NOT SET«, t00=0x0047, t01=0x0036}
0x6f30…6f50 Head {h00=0x001c, h01=0x0050, text=» ORKL A1,RC:NOD NO DATA «, t00=0x0047, t01=0x0054}
0x6f50…6f64 Head {h00=0x0010, h01=0x0050, text=»IHFD10 EQU *«, t00=0x0047, t01=0x0074}
0x6f64…6f7a Head {h00=0x0012, h01=0x0050, text=» SLC A2,3 BIT7«, t00=0x0047, t01=0x0088}
0x6f7a…6f98 Head {h00=0x001a, h01=0x0050, text=» RF(NN) IHFD20 NOT SET«, t00=0x0047, t01=0x009e}
0x6f98…6fc0 Head {h00=0x0024, h01=0x0050, text=» ORKL A1,RC:WRP WRITE PROTECTED «, t00=0x0047, t01=0x00bc}
0x6fc0…6fd4 Head {h00=0x0010, h01=0x0050, text=»IHFD20 EQU *«, t00=0x0047, t01=0x00e4}
0x6fd4…6fec Head {h00=0x0014, h01=0x0050, text=» SLL A2,3 BIT10 «, t00=0x0047, t01=0x00f8}
0x6fec…700a Head {h00=0x001a, h01=0x0050, text=» RF(NN) IHFD30 NOT SET«, t00=0x0047, t01=0x0110}
0x700a…7034 Head {h00=0x0026, h01=0x0050, text=» LDKL A3,RC:RET RETRIES PERFORMED «, t00=0x0047, t01=0x012e}
0x7034…7054 Head {h00=0x001c, h01=0x0050, text=» ORS A3,DWTRC,A6 SAVE RC«, t00=0x0047, t01=0x0158}
0x7054…7068 Head {h00=0x0010, h01=0x0050, text=»IHFD30 EQU *«, t00=0x0047, t01=0x0178}
0x7068…7072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x018c}
0x7072…7088 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0048, t01=0x0008}
0x7088…7092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x001e}
0x7092…709c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0028}
0x709c…70ba Head {h00=0x001a, h01=0x0050, text=» SRL A2,2 BIT5 , BIT6 «, t00=0x0048, t01=0x0032}
0x70ba…70e8 Head {h00=0x002a, h01=0x0050, text=» ANK A2,/6 SECTOR NOT FOUND,SEEK ERROR«, t00=0x0048, t01=0x0050}
0x70e8…710c Head {h00=0x0020, h01=0x0050, text=» RF(Z) IHFD50 NO SEEK ERROR «, t00=0x0048, t01=0x007e}
0x710c…711e Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0048, t01=0x00a2}
0x711e…7148 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/FF DUMMY CYLINDER NUMBER «, t00=0x0048, t01=0x00b4}
0x7148…7160 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTCYN,A6«, t00=0x0048, t01=0x00de}
0x7160…7174 Head {h00=0x0010, h01=0x0050, text=»IHFD50 EQU *«, t00=0x0048, t01=0x00f6}
0x7174…718a Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0048, t01=0x010a}
0x718a…71b0 Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0048, t01=0x0120}
0x71b0…71dc Head {h00=0x0028, h01=0x0050, text=»RTN:CR EQU * SET CR ACCORDING TO A1 «, t00=0x0048, t01=0x0146}
0x71dc…7202 Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 UPDATE STACK POINTER«, t00=0x0048, t01=0x0172}
0x7202…721a Head {h00=0x0014, h01=0x0050, text=» ADK A1,0 SET CR«, t00=0x0049, t01=0x0008}
0x721a…7232 Head {h00=0x0014, h01=0x0050, text=» ABR* A5 RETURN «, t00=0x0049, t01=0x0020}
0x7232…723c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0038}
0x723c…7254 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0049, t01=0x0042}
0x7254…725e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x005a}
0x725e…7292 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0049, t01=0x0064}
0x7292…72c6 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x0049, t01=0x0098}
0x72c6…72fa Head {h00=0x0030, h01=0x0050, text=»* S U B R O U T I N E S * «, t00=0x0049, t01=0x00cc}
0x72fa…732e Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x0049, t01=0x0100}
0x732e…7362 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0049, t01=0x0134}
0x7362…736c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0168}
0x736c…7376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0172}
0x7376…7388 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x017c}
0x7388…739a Head {h00=0x000e, h01=0x0050, text=»* GETPAR *«, t00=0x0049, t01=0x018e}
0x739a…73ac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x0010}
0x73ac…73b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0022}
0x73b6…73e2 Head {h00=0x0028, h01=0x0050, text=»* GET DEVICE DEPENDENT PARAMETERS «, t00=0x004a, t01=0x002c}
0x73e2…73ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0058}
0x73ec…7412 Head {h00=0x0022, h01=0x0050, text=»* INPUT : A6 = DWT ADDRESS «, t00=0x004a, t01=0x0062}
0x7412…741c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0088}
0x741c…7430 Head {h00=0x0010, h01=0x0050, text=»* OUTPUT* «, t00=0x004a, t01=0x0092}
0x7430…7454 Head {h00=0x0020, h01=0x0050, text=»* A4 = DOUBLED INDEX + A6 «, t00=0x004a, t01=0x00a6}
0x7454…745e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ca}
0x745e…7472 Head {h00=0x0010, h01=0x0050, text=»GETPAR EQU *«, t00=0x004a, t01=0x00d4}
0x7472…7488 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x004a, t01=0x00e8}
0x7488…74c0 Head {h00=0x0034, h01=0x0050, text=» LD A1,DWTPAR,A4 GET DEVICE DEPENDENT PARAMETERS«, t00=0x004a, t01=0x00fe}
0x74c0…74ec Head {h00=0x0028, h01=0x0050, text=» SC A1,DWTFOR+1,A6 FORMAT PARAMETER «, t00=0x004a, t01=0x0136}
0x74ec…74fe Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x004a, t01=0x0162}
0x74fe…7530 Head {h00=0x002e, h01=0x0050, text=» SC A1,DWTCYN+1,A6 PRESENT CYLINDER NUMBER«, t00=0x004a, t01=0x0174}
0x7530…7540 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x0016}
0x7540…754a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0026}
0x754a…7560 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x004b, t01=0x0030}
0x7560…756a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0046}
0x756a…7574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0050}
0x7574…7586 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x005a}
0x7586…7598 Head {h00=0x000e, h01=0x0050, text=»* SETPAR *«, t00=0x004b, t01=0x006c}
0x7598…75aa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x007e}
0x75aa…75b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0090}
0x75b4…75e0 Head {h00=0x0028, h01=0x0050, text=»* SET DEVICE DEPENDENT PARAMETERS «, t00=0x004b, t01=0x009a}
0x75e0…75ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00c6}
0x75ea…75fe Head {h00=0x0010, h01=0x0050, text=»SETPAR EQU *«, t00=0x004b, t01=0x00d0}
0x75fe…762c Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTCYN,A6 PRESENT HEAD POSITION«, t00=0x004b, t01=0x00e4}
0x762c…763e Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x004b, t01=0x0112}
0x763e…7672 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTFOR+1,A6 PRESENT FORMAT PARAMETERS«, t00=0x004b, t01=0x0124}
0x7672…7688 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x004b, t01=0x0158}
0x7688…76c0 Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTPAR,A4 SAVE DRIVE DEPENDENT PARAMETERS«, t00=0x004b, t01=0x016e}
0x76c0…76d0 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004c, t01=0x0016}
0x76d0…76da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0026}
0x76da…76f0 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x004c, t01=0x0030}
0x76f0…76fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0046}
0x76fa…770c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004c, t01=0x0050}
0x770c…771e Head {h00=0x000e, h01=0x0050, text=»* VO:NAM *«, t00=0x004c, t01=0x0062}
0x771e…7730 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004c, t01=0x0074}
0x7730…773a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0086}
0x773a…7744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0090}
0x7744…7758 Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x004c, t01=0x009a}
0x7758…7792 Head {h00=0x0036, h01=0x0050, text=» LDK A3,IN:LCK RESET ALL BUT LOCK/UNLOCK INDICATOR«, t00=0x004c, t01=0x00ae}
0x7792…77ac Head {h00=0x0016, h01=0x0050, text=» ANS A3,DWTFOR,A6 «, t00=0x004c, t01=0x00e8}
0x77ac…77c8 Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 CYLINDER 0«, t00=0x004c, t01=0x0102}
0x77c8…77e2 Head {h00=0x0016, h01=0x0050, text=» CF A5,SEEKA3 SEEK«, t00=0x004c, t01=0x011e}
0x77e2…7800 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VOL900 RETURN «, t00=0x004c, t01=0x0138}
0x7800…7814 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x004c, t01=0x0156}
0x7814…7830 Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 READ ORDER«, t00=0x004c, t01=0x016a}
0x7830…7846 Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOVOL «, t00=0x004c, t01=0x0186}
0x7846…7862 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) VOL900 ERROR«, t00=0x004d, t01=0x000c}
0x7862…787c Head {h00=0x0016, h01=0x0050, text=» IFT CPU852+IBM=2 «, t00=0x004d, t01=0x0028}
0x787c…7894 Head {h00=0x0014, h01=0x0050, text=» LD A2,FD:BUF+32«, t00=0x004d, t01=0x0042}
0x7894…78a8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x004d, t01=0x005a}
0x78a8…78cc Head {h00=0x0020, h01=0x0050, text=» RF(NE) VOL200 NO TOSS DISC «, t00=0x004d, t01=0x006e}
0x78cc…78e4 Head {h00=0x0014, h01=0x0050, text=» LD A2,FD:BUF+34«, t00=0x004d, t01=0x0092}
0x78e4…78f8 Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x004d, t01=0x00aa}
0x78f8…790e Head {h00=0x0012, h01=0x0050, text=» RF(NE) VOL200«, t00=0x004d, t01=0x00be}
0x790e…791a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00d4}
0x791a…7932 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x004d, t01=0x00e0}
0x7932…7948 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x004d, t01=0x00f8}
0x7948…7960 Head {h00=0x0014, h01=0x0050, text=» ML 2,FD:BUF+32 «, t00=0x004d, t01=0x010e}
0x7960…7976 Head {h00=0x0012, h01=0x0050, text=» DSK 'TO','SS'«, t00=0x004d, t01=0x0126}
0x7976…799a Head {h00=0x0020, h01=0x0050, text=» RF(NE) VOL200 NO TOSS DISC «, t00=0x004d, t01=0x013c}
0x799a…79a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x0160}
0x79a6…79ba Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x004d, t01=0x016c}
0x79ba…79dc Head {h00=0x001e, h01=0x0050, text=»VOL100 EQU * TOSS FORMATED«, t00=0x004d, t01=0x0180}
0x79dc…7a0a Head {h00=0x002a, h01=0x0050, text=» LDKL A2,FD:BUF ADDRESS TO VOLUME NAME«, t00=0x004e, t01=0x0012}
0x7a0a…7a1c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x004e, t01=0x0040}
0x7a1c…7a3c Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 INDICATE TOSS «, t00=0x004e, t01=0x0052}
0x7a3c…7a4e Head {h00=0x000e, h01=0x0050, text=» RF VOL500«, t00=0x004e, t01=0x0072}
0x7a4e…7a5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0084}
0x7a5a…7a6c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x004e, t01=0x0090}
0x7a6c…7a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00a2}
0x7a76…7a8c Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x004e, t01=0x00ac}
0x7a8c…7a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00c2}
0x7a96…7aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00cc}
0x7aa0…7ac6 Head {h00=0x0022, h01=0x0050, text=»VOL200 EQU * CHECK IF IBM DISC«, t00=0x004e, t01=0x00d6}
0x7ac6…7afa Head {h00=0x0030, h01=0x0050, text=» LDKL A2,FD:BUF+40 DONT OVERLAP TOSSS LABEL «, t00=0x004e, t01=0x00fc}
0x7afa…7b1c Head {h00=0x001e, h01=0x0050, text=» LDK A3,/18 READ SECTOR 6 «, t00=0x004e, t01=0x0130}
0x7b1c…7b32 Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOVO1 «, t00=0x004e, t01=0x0152}
0x7b32…7b4e Head {h00=0x0018, h01=0x0050, text=» RF(NZ) VOL900 ERROR«, t00=0x004e, t01=0x0168}
0x7b4e…7b62 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x004e, t01=0x0184}
0x7b62…7b7a Head {h00=0x0014, h01=0x0050, text=» LD A2,FD:BUF+40«, t00=0x004f, t01=0x0008}
0x7b7a…7ba0 Head {h00=0x0022, h01=0x0050, text=» CWK A2,EBC:VO EBCDIC FOR 'VO'«, t00=0x004f, t01=0x0020}
0x7ba0…7bc0 Head {h00=0x001c, h01=0x0050, text=» RB(NE) VOL100 TOSS DISC«, t00=0x004f, t01=0x0046}
0x7bc0…7bd8 Head {h00=0x0014, h01=0x0050, text=» LD A2,FD:BUF+42«, t00=0x004f, t01=0x0066}
0x7bd8…7bfe Head {h00=0x0022, h01=0x0050, text=» CWK A2,EBC:L1 EBCDIC FOR 'L1'«, t00=0x004f, t01=0x007e}
0x7bfe…7c1e Head {h00=0x001c, h01=0x0050, text=» RB(NE) VOL100 TOSS DISC«, t00=0x004f, t01=0x00a4}
0x7c1e…7c2a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00c4}
0x7c2a…7c3c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x004f, t01=0x00d0}
0x7c3c…7c6a Head {h00=0x002a, h01=0x0050, text=» LDKL A2,FD:BUF+44 VOLUME NAME ADDRESS«, t00=0x004f, t01=0x00e2}
0x7c6a…7c80 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=1 «, t00=0x004f, t01=0x0110}
0x7c80…7c92 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x004f, t01=0x0126}
0x7c92…7ca4 Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x004f, t01=0x0138}
0x7ca4…7ccc Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x004f, t01=0x014a}
0x7ccc…7cd8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0172}
0x7cd8…7cea Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x004f, t01=0x017e}
0x7cea…7d12 Head {h00=0x0024, h01=0x0050, text=» LDK A1,IN:IBM INDICATE IBM DISC«, t00=0x004f, t01=0x0190}
0x7d12…7d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0028}
0x7d1c…7d28 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0032}
0x7d28…7d3e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0050, t01=0x003e}
0x7d3e…7d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0054}
0x7d48…7d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x005e}
0x7d52…7d66 Head {h00=0x0010, h01=0x0050, text=»VOL500 EQU *«, t00=0x0050, t01=0x0068}
0x7d66…7d92 Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTFOR,A6 INDICATE TOSS/IBM «, t00=0x0050, t01=0x007c}
0x7d92…7db0 Head {h00=0x001a, h01=0x0050, text=» SRC A1,6 RC: TOSS/IBM«, t00=0x0050, t01=0x00a8}
0x7db0…7dc8 Head {h00=0x0014, h01=0x0050, text=» ORS A1,DWTRC,A6«, t00=0x0050, t01=0x00c6}
0x7dc8…7e04 Head {h00=0x0038, h01=0x0050, text=» LD A3,DWT:FC,A6 FILE CODE AND TEST STATUS INDICATOR«, t00=0x0050, t01=0x00de}
0x7e04…7e2e Head {h00=0x0026, h01=0x0050, text=» CF A15,VOLGET VOLUME NAME TO DWT «, t00=0x0050, t01=0x011a}
0x7e2e…7e58 Head {h00=0x0026, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS TO A8«, t00=0x0050, t01=0x0144}
0x7e58…7e84 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,/4000 READ SECTOR 0 HEAD 1 «, t00=0x0050, t01=0x016e}
0x7e84…7e9a Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOVOL «, t00=0x0051, t01=0x000a}
0x7e9a…7eac Head {h00=0x000e, h01=0x0050, text=» SRL A1,3 «, t00=0x0051, t01=0x0020}
0x7eac…7ed8 Head {h00=0x0028, h01=0x0050, text=» ANK A1,2 FORMAT (256-2D) OR (128-1)«, t00=0x0051, t01=0x0032}
0x7ed8…7eea Head {h00=0x000e, h01=0x0050, text=» XRK A1,2 «, t00=0x0051, t01=0x005e}
0x7eea…7f14 Head {h00=0x0026, h01=0x0050, text=» ORS A1,DWTFOR,A6 INDICATE FORMAT «, t00=0x0051, t01=0x0070}
0x7f14…7f30 Head {h00=0x0018, h01=0x0050, text=» SRC A1,6 RC:FORMAT «, t00=0x0051, t01=0x009a}
0x7f30…7f44 Head {h00=0x0010, h01=0x0050, text=»VOL900 EQU *«, t00=0x0051, t01=0x00b6}
0x7f44…7f54 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0051, t01=0x00ca}
0x7f54…7f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00da}
0x7f5e…7f74 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0051, t01=0x00e4}
0x7f74…7f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00fa}
0x7f7e…7f90 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x0104}
0x7f90…7fa2 Head {h00=0x000e, h01=0x0050, text=»* GETLEN *«, t00=0x0051, t01=0x0116}
0x7fa2…7fb4 Head {h00=0x000e, h01=0x0050, text=»* GETLE0 *«, t00=0x0051, t01=0x0128}
0x7fb4…7fc6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x013a}
0x7fc6…7fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x014c}
0x7fd0…7ffa Head {h00=0x0026, h01=0x0050, text=»* GET LENGTH ACCORDING TO FORMAT«, t00=0x0051, t01=0x0156}
0x7ffa…8004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0180}
0x8004…8018 Head {h00=0x0010, h01=0x0050, text=»GETLEN EQU *«, t00=0x0051, t01=0x018a}
0x8018…803a Head {h00=0x001e, h01=0x0050, text=» LC A7,DWTSEC,A6 SECTOR ID«, t00=0x0052, t01=0x000e}
0x803a…8062 Head {h00=0x0024, h01=0x0050, text=» ANK A7,/7F CYLINDER AND HEAD NO«, t00=0x0052, t01=0x0030}
0x8062…8080 Head {h00=0x001a, h01=0x0050, text=» RF(Z) GETL05 TRACK 0 «, t00=0x0052, t01=0x0058}
0x8080…8094 Head {h00=0x0010, h01=0x0050, text=»GETLE0 EQU *«, t00=0x0052, t01=0x0076}
0x8094…80b4 Head {h00=0x001c, h01=0x0050, text=» LD A7,DWTFOR,A6 FORMAT «, t00=0x0052, t01=0x008a}
0x80b4…80c6 Head {h00=0x000e, h01=0x0050, text=» ANK A7,2 «, t00=0x0052, t01=0x00aa}
0x80c6…80e6 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GETL10 (256-2D) «, t00=0x0052, t01=0x00bc}
0x80e6…80fa Head {h00=0x0010, h01=0x0050, text=»GETL05 EQU *«, t00=0x0052, t01=0x00dc}
0x80fa…810c Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0052, t01=0x00f0}
0x810c…8120 Head {h00=0x0010, h01=0x0050, text=»GETL10 EQU *«, t00=0x0052, t01=0x0102}
0x8120…8136 Head {h00=0x0012, h01=0x0050, text=» SLL A7,7 *128«, t00=0x0052, t01=0x0116}
0x8136…8146 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0052, t01=0x012c}
0x8146…8150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x013c}
0x8150…816a Head {h00=0x0016, h01=0x0050, text=» IFT IBM+MMUPAG=2 «, t00=0x0052, t01=0x0146}
0x816a…8180 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0052, t01=0x0160}
0x8180…818a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0176}
0x818a…819c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0052, t01=0x0180}
0x819c…81ae (83, 0, 400) Head {h00=0x000e, h01=0x0050, text=»* GETPAG *«, t00=0x0053, t01=0x0004}
0x81ae…81c0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0053, t01=0x0016}
0x81c0…81ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0028}
0x81ca…81e2 Head {h00=0x0014, h01=0x0050, text=»* GET PAGE ID «, t00=0x0053, t01=0x0032}
0x81e2…81ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x004a}
0x81ec…8200 Head {h00=0x0010, h01=0x0050, text=»GETPAG EQU *«, t00=0x0053, t01=0x0054}
0x8200…8226 Head {h00=0x0022, h01=0x0050, text=» ML 2,DWTBA,A6 BUFFER ADDRESS «, t00=0x0053, t01=0x0068}
0x8226…8242 Head {h00=0x0018, h01=0x0050, text=» RB(Z) RTN:CR SET CR«, t00=0x0053, t01=0x008e}
0x8242…825a Head {h00=0x0014, h01=0x0050, text=» DLA 4 GET PAGE «, t00=0x0053, t01=0x00aa}
0x825a…826c Head {h00=0x000e, h01=0x0050, text=» SRC A1,6 «, t00=0x0053, t01=0x00c2}
0x826c…8284 Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTPAG,A6«, t00=0x0053, t01=0x00d4}
0x8284…82a4 Head {h00=0x001c, h01=0x0050, text=» ADKL A1,/400 NEXT PAGE «, t00=0x0053, t01=0x00ec}
0x82a4…82be Head {h00=0x0016, h01=0x0050, text=» ST A1,DWTPAG+2,A6«, t00=0x0053, t01=0x010c}
0x82be…82e0 Head {h00=0x001e, h01=0x0050, text=» SRL A2,3 LOGICAL ADDRESS «, t00=0x0053, t01=0x0126}
0x82e0…82f2 Head {h00=0x000e, h01=0x0050, text=» RB RTN:CR«, t00=0x0053, t01=0x0148}
0x82f2…82fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x015a}
0x82fc…8308 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0164}
0x8308…8322 Head {h00=0x0016, h01=0x0050, text=» IFT IBM+ASCEBC=2 «, t00=0x0053, t01=0x0170}
0x8322…8338 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0053, t01=0x018a}
0x8338…8342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0010}
0x8342…8354 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0054, t01=0x001a}
0x8354…8366 Head {h00=0x000e, h01=0x0050, text=»* ASCII *«, t00=0x0054, t01=0x002c}
0x8366…8378 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0054, t01=0x003e}
0x8378…8382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0050}
0x8382…83ac Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM EBCDIC TO ASCII CODE«, t00=0x0054, t01=0x005a}
0x83ac…83b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0084}
0x83b6…83de Head {h00=0x0024, h01=0x0050, text=»* INPUT : A4 =BUFFER ADDRESS «, t00=0x0054, t01=0x008e}
0x83de…83fe Head {h00=0x001c, h01=0x0050, text=»* A7 =LENGTH «, t00=0x0054, t01=0x00b6}
0x83fe…8408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00d6}
0x8408…842e Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A1,A4,A7 CHANGED «, t00=0x0054, t01=0x00e0}
0x842e…8438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0106}
0x8438…844c Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0054, t01=0x0110}
0x844c…8458 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0054, t01=0x0124}
0x8458…846a Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0054, t01=0x0130}
0x846a…847e Head {h00=0x0010, h01=0x0050, text=»ASC:10 EQU *«, t00=0x0054, t01=0x0142}
0x847e…8490 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0054, t01=0x0156}
0x8490…84b4 Head {h00=0x0020, h01=0x0050, text=» LCR A1,A4 EBCDIC CHARACTER «, t00=0x0054, t01=0x0168}
0x84b4…84c8 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0054, t01=0x018c}
0x84c8…84f4 Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0055, t01=0x0010}
0x84f4…8528 Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0055, t01=0x003c}
0x8528…853a Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0055, t01=0x0070}
0x853a…8550 Head {h00=0x0012, h01=0x0050, text=» RB(P) ASC:10 «, t00=0x0055, t01=0x0082}
0x8550…855c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0055, t01=0x0098}
0x855c…856c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0055, t01=0x00a4}
0x856c…8576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00b4}
0x8576…858e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0055, t01=0x00be}
0x858e…8598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00d6}
0x8598…85aa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x00e0}
0x85aa…85bc Head {h00=0x000e, h01=0x0050, text=»* ASCMOV *«, t00=0x0055, t01=0x00f2}
0x85bc…85ce Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x0104}
0x85ce…85d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0116}
0x85d8…8612 Head {h00=0x0036, h01=0x0050, text=»* FUNCTION: TRANSFORMS A STRING FROM EBCDIC TO «, t00=0x0055, t01=0x0120}
0x8612…865a Head {h00=0x0044, h01=0x0050, text=»* ASCII CODE AND MOVES IT FROM FD:BUF TO USER BUFFER«, t00=0x0055, t01=0x015a}
0x865a…868c Head {h00=0x002e, h01=0x0050, text=»* INPUT STRING ADDRESS IS BUF «, t00=0x0056, t01=0x0012}
0x868c…86b0 Head {h00=0x0020, h01=0x0050, text=»* OUTPUT: A1,A2, CHANGED«, t00=0x0056, t01=0x0044}
0x86b0…86e0 Head {h00=0x002c, h01=0x0050, text=»* A4 = INDEXED DWT ADDRESS«, t00=0x0056, t01=0x0068}
0x86e0…8702 Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x0056, t01=0x0098}
0x8702…870c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00ba}
0x870c…8720 Head {h00=0x0010, h01=0x0050, text=»ASCMOV EQU *«, t00=0x0056, t01=0x00c4}
0x8720…8736 Head {h00=0x0012, h01=0x0050, text=» CF A5,GETLEN «, t00=0x0056, t01=0x00d8}
0x8736…874c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0056, t01=0x00ee}
0x874c…8772 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTBA,A6 BUFFER ADDRESS«, t00=0x0056, t01=0x0104}
0x8772…8786 Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0056, t01=0x012a}
0x8786…8792 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x013e}
0x8792…87ac Head {h00=0x0016, h01=0x0050, text=» IFT IBM+ASCEBC=2 «, t00=0x0056, t01=0x014a}
0x87ac…87c2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0056, t01=0x0164}
0x87c2…87f0 Head {h00=0x002a, h01=0x0050, text=» LDKL A4,FD:BUF DRIVER BUFFER ADDRESS «, t00=0x0056, t01=0x017a}
0x87f0…87fc Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0057, t01=0x0018}
0x87fc…8810 Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0057, t01=0x0024}
0x8810…8826 Head {h00=0x0012, h01=0x0050, text=» CF A5,GETLEN «, t00=0x0057, t01=0x0038}
0x8826…884e Head {h00=0x0024, h01=0x0050, text=» CF A5,GETPAG GET PAGE IDENTITY «, t00=0x0057, t01=0x004e}
0x884e…887a Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x0057, t01=0x0076}
0x887a…889e Head {h00=0x0020, h01=0x0050, text=» TL DWTPAG,A6 LOAD MMUTABLE «, t00=0x0057, t01=0x00a2}
0x889e…88c6 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 DRIVER BUFFER ADDRESS«, t00=0x0057, t01=0x00c6}
0x88c6…88f2 Head {h00=0x0028, h01=0x0050, text=» MVSU A7 MOVE SECTOR TO USER BUFFER «, t00=0x0057, t01=0x00ee}
0x88f2…8922 Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x0057, t01=0x011a}
0x8922…892e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x014a}
0x892e…8948 Head {h00=0x0016, h01=0x0050, text=» IFT IBM+ASCEBC=2 «, t00=0x0057, t01=0x0156}
0x8948…8962 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 RESET RC«, t00=0x0057, t01=0x0170}
0x8962…8974 Head {h00=0x000e, h01=0x0050, text=» RF IBMT60«, t00=0x0057, t01=0x018a}
0x8974…897e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x000c}
0x897e…8996 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0058, t01=0x0016}
0x8996…89a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x002e}
0x89a0…89b2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x0038}
0x89b2…89c4 Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0058, t01=0x004a}
0x89c4…89d6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x005c}
0x89d6…89e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x006e}
0x89e0…8a20 Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0058, t01=0x0078}
0x8a20…8a42 Head {h00=0x001e, h01=0x0050, text=»* EBCDIC CODE «, t00=0x0058, t01=0x00b8}
0x8a42…8a7e Head {h00=0x0038, h01=0x0050, text=»* OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x0058, t01=0x00da}
0x8a7e…8a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0116}
0x8a88…8aaa Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x0058, t01=0x0120}
0x8aaa…8acc Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0058, t01=0x0142}
0x8acc…8aee Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x0058, t01=0x0164}
0x8aee…8b02 Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0058, t01=0x0186}
0x8b02…8b1c Head {h00=0x0016, h01=0x0050, text=» IFT IBM+MMUPAG=2 «, t00=0x0059, t01=0x000a}
0x8b1c…8b32 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=1 «, t00=0x0059, t01=0x0024}
0x8b32…8b58 Head {h00=0x0022, h01=0x0050, text=» LDKL A4,FD:BUF BUFFER ADDRESS«, t00=0x0059, t01=0x003a}
0x8b58…8b6e Head {h00=0x0012, h01=0x0050, text=» CF A5,GETLEN «, t00=0x0059, t01=0x0060}
0x8b6e…8b84 Head {h00=0x0012, h01=0x0050, text=» CF A5,GETPAG «, t00=0x0059, t01=0x0076}
0x8b84…8ba6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) EBC:05 SYSTEM AREA «, t00=0x0059, t01=0x008c}
0x8ba6…8bd0 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A2 LOGICAL ADDRESS SOURCE «, t00=0x0059, t01=0x00ae}
0x8bd0…8bfc Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x0059, t01=0x00d8}
0x8bfc…8c20 Head {h00=0x0020, h01=0x0050, text=» TL DWTPAG,A6 LOAD MMU TABLE«, t00=0x0059, t01=0x0104}
0x8c20…8c46 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A4 DESTINATION ADDRESS«, t00=0x0059, t01=0x0128}
0x8c46…8c74 Head {h00=0x002a, h01=0x0050, text=» MVUS A7 MOVE SECTOR TO DRIVER BUFFER «, t00=0x0059, t01=0x014e}
0x8c74…8ca4 Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x0059, t01=0x017c}
0x8ca4…8cb6 Head {h00=0x000e, h01=0x0050, text=» RF EBC:07«, t00=0x005a, t01=0x001c}
0x8cb6…8cca Head {h00=0x0010, h01=0x0050, text=»EBC:05 EQU *«, t00=0x005a, t01=0x002e}
0x8cca…8cec Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 BUFFER ADDRESS «, t00=0x005a, t01=0x0042}
0x8cec…8cfe Head {h00=0x000e, h01=0x0050, text=» SLL A4,1 «, t00=0x005a, t01=0x0064}
0x8cfe…8d12 Head {h00=0x0010, h01=0x0050, text=»EBC:07 EQU *«, t00=0x005a, t01=0x0076}
0x8d12…8d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x008a}
0x8d1c…8d32 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x005a, t01=0x0094}
0x8d32…8d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00aa}
0x8d3c…8d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00b4}
0x8d46…8d52 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x00be}
0x8d52…8d6c Head {h00=0x0016, h01=0x0050, text=» IFT ASCEBC+IBM=2 «, t00=0x005a, t01=0x00ca}
0x8d6c…8d78 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x005a, t01=0x00e4}
0x8d78…8d8e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x005a, t01=0x00f0}
0x8d8e…8da8 Head {h00=0x0016, h01=0x0050, text=» IFT IBM+ASCEBC=2 «, t00=0x005a, t01=0x0106}
0x8da8…8dce Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTBA,A6 BUFFER ADDRESS«, t00=0x005a, t01=0x0120}
0x8dce…8dda Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0146}
0x8dda…8df4 Head {h00=0x0016, h01=0x0050, text=» IFT IBM+ASCEBC=2 «, t00=0x005a, t01=0x0152}
0x8df4…8e0a Head {h00=0x0012, h01=0x0050, text=» CF A5,GETLEN «, t00=0x005a, t01=0x016c}
0x8e0a…8e1c Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x005a, t01=0x0182}
0x8e1c…8e30 (91, 0, 400) Head {h00=0x0010, h01=0x0050, text=»EBC:10 EQU *«, t00=0x005b, t01=0x0004}
0x8e30…8e42 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x005b, t01=0x0018}
0x8e42…8e64 Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x005b, t01=0x002a}
0x8e64…8e78 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x005b, t01=0x004c}
0x8e78…8e92 Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x005b, t01=0x0060}
0x8e92…8eac Head {h00=0x0016, h01=0x0050, text=» SC A1,FD:BUF-1,A7«, t00=0x005b, t01=0x007a}
0x8eac…8ebe Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x005b, t01=0x0094}
0x8ebe…8ed4 Head {h00=0x0012, h01=0x0050, text=» RB(P) EBC:10 «, t00=0x005b, t01=0x00a6}
0x8ed4…8ef4 Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x005b, t01=0x00bc}
0x8ef4…8f04 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005b, t01=0x00dc}
0x8f04…8f10 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x00ec}
0x8f10…8f22 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005b, t01=0x00f8}
0x8f22…8f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x010a}
0x8f2c…8f44 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x005b, t01=0x0114}
0x8f44…8f4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x012c}
0x8f4e…8f60 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005b, t01=0x0136}
0x8f60…8f72 Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x005b, t01=0x0148}
0x8f72…8f84 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005b, t01=0x015a}
0x8f84…8f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x016c}
0x8f8e…8fcc Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x005b, t01=0x0176}
0x8fcc…9000 Head {h00=0x0030, h01=0x0050, text=»* EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x005c, t01=0x0024}
0x9000…900a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0058}
0x900a…902e Head {h00=0x0020, h01=0x0050, text=»* INPUT: A7 BINARY NUMBER«, t00=0x005c, t01=0x0062}
0x902e…9038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0086}
0x9038…906a Head {h00=0x002e, h01=0x0050, text=»* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS«, t00=0x005c, t01=0x0090}
0x906a…9088 Head {h00=0x001a, h01=0x0050, text=»* A7 CHANGED«, t00=0x005c, t01=0x00c2}
0x9088…9092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00e0}
0x9092…90a6 Head {h00=0x0010, h01=0x0050, text=»BINDEC EQU *«, t00=0x005c, t01=0x00ea}
0x90a6…90ce Head {h00=0x0024, h01=0x0050, text=» LDKL A3,/EFF0 EBCDIC CHARACTERS«, t00=0x005c, t01=0x00fe}
0x90ce…90e2 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/7F «, t00=0x005c, t01=0x0126}
0x90e2…90f6 Head {h00=0x0010, h01=0x0050, text=»BIN:10 EQU *«, t00=0x005c, t01=0x013a}
0x90f6…911c Head {h00=0x0022, h01=0x0050, text=» ADKL A3,/100 ADD 10 IN EBCDIC«, t00=0x005c, t01=0x014e}
0x911c…912e Head {h00=0x000e, h01=0x0050, text=» SUK A7,10«, t00=0x005c, t01=0x0174}
0x912e…9144 Head {h00=0x0012, h01=0x0050, text=» RB(NN) BIN:10«, t00=0x005c, t01=0x0186}
0x9144…9162 Head {h00=0x001a, h01=0x0050, text=» ADK A7,10 NUMBER 0-9 «, t00=0x005d, t01=0x000c}
0x9162…9174 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A7«, t00=0x005d, t01=0x002a}
0x9174…9184 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005d, t01=0x003c}
0x9184…918e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x004c}
0x918e…91a4 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x005d, t01=0x0056}
0x91a4…91ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x006c}
0x91ae…91c0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005d, t01=0x0076}
0x91c0…91d2 Head {h00=0x000e, h01=0x0050, text=»* IBMTRA *«, t00=0x005d, t01=0x0088}
0x91d2…91e4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005d, t01=0x009a}
0x91e4…91ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00ac}
0x91ee…9226 Head {h00=0x0034, h01=0x0050, text=»* TRANSFORM SECTOR IDENTIFIER FROM EBCDIC CODE«, t00=0x005d, t01=0x00b6}
0x9226…9240 Head {h00=0x0016, h01=0x0050, text=»* TO BINARY CODE«, t00=0x005d, t01=0x00ee}
0x9240…924a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0108}
0x924a…9272 Head {h00=0x0024, h01=0x0050, text=»* FORMAT : TTHSS (EBCDIC CODE)«, t00=0x005d, t01=0x0112}
0x9272…92a0 Head {h00=0x002a, h01=0x0050, text=»* TT=TRACK,H=HEAD,SS=SECTOR«, t00=0x005d, t01=0x013a}
0x92a0…92aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0168}
0x92aa…92d6 Head {h00=0x0028, h01=0x0050, text=»* INPUT : A7 = ADDRESS TO TTHSS «, t00=0x005d, t01=0x0172}
0x92d6…92e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x000e}
0x92e0…9320 Head {h00=0x003c, h01=0x0050, text=»* OUTPUT : A3 = TTH IN LEFT BYTE AND SS IN RIGHT BYTE«, t00=0x005e, t01=0x0018}
0x9320…9350 Head {h00=0x002c, h01=0x0050, text=»* A7 = ADDRESS TO TTHSS + 5 «, t00=0x005e, t01=0x0058}
0x9350…9378 Head {h00=0x0024, h01=0x0050, text=»* = A6+DOUBLE INDEX«, t00=0x005e, t01=0x0088}
0x9378…9382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00b0}
0x9382…9396 Head {h00=0x0010, h01=0x0050, text=»IBMTRA EQU *«, t00=0x005e, t01=0x00ba}
0x9396…93c2 Head {h00=0x0028, h01=0x0050, text=» CF A5,EBCBI2 TRANSFER EBCDIC - BIN «, t00=0x005e, t01=0x00ce}
0x93c2…93e6 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A1 SAVE TRACK NUMBER«, t00=0x005e, t01=0x00fa}
0x93e6…9404 Head {h00=0x001a, h01=0x0050, text=» SLL A3,1 IN POSITION «, t00=0x005e, t01=0x011e}
0x9404…942a Head {h00=0x0022, h01=0x0050, text=» LDK A4,1 TRANSFER HEAD NUMBER«, t00=0x005e, t01=0x013c}
0x942a…944e Head {h00=0x0020, h01=0x0050, text=» CF A5,EBCBIN EBCDIC-BINARY «, t00=0x005e, t01=0x0162}
0x944e…9478 Head {h00=0x0026, h01=0x0050, text=» ORR A3,A1 HEAD NUMBER IN POSITION«, t00=0x005e, t01=0x0186}
0x9478…949c Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTFOR,A6 GET FORMAT «, t00=0x005f, t01=0x0020}
0x949c…94ae Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x005f, t01=0x0044}
0x94ae…94cc Head {h00=0x001a, h01=0x0050, text=» RF(NN) IBMT05 (128-1)«, t00=0x005f, t01=0x0056}
0x94cc…94ea Head {h00=0x001a, h01=0x0050, text=» SUK A1,1 HEAD NUMBER «, t00=0x005f, t01=0x0074}
0x94ea…94fe Head {h00=0x0010, h01=0x0050, text=»IBMT05 EQU *«, t00=0x005f, t01=0x0092}
0x94fe…9510 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x005f, t01=0x00a6}
0x9510…953c Head {h00=0x0028, h01=0x0050, text=» RF(NN) IBMT70 HEAD NUMBER TOO HIGH «, t00=0x005f, t01=0x00b8}
0x953c…9560 Head {h00=0x0020, h01=0x0050, text=» CF A5,EBCBI2 EBCDIC-BINARY «, t00=0x005f, t01=0x00e4}
0x9560…9592 Head {h00=0x002e, h01=0x0050, text=» ECR A3,A3 TRACK AND HEAD NO TO LEFT BYTE «, t00=0x005f, t01=0x0108}
0x9592…95ba Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 PHYSICAL SECTOR NUMBER«, t00=0x005f, t01=0x013a}
0x95ba…95e8 Head {h00=0x002a, h01=0x0050, text=» ORR A3,A1 SECTOR NUMBER TO RIGHT BYTE«, t00=0x005f, t01=0x0162}
0x95e8…95f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0190}
0x95f2…9608 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0060, t01=0x000a}
0x9608…9612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0020}
0x9612…961c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x002a}
0x961c…962e Head {h00=0x000e, h01=0x0050, text=» ECR A4,A3«, t00=0x0060, t01=0x0034}
0x962e…9654 Head {h00=0x0022, h01=0x0050, text=» ANK A4,/FF CYL NO AND HEAD NO«, t00=0x0060, t01=0x0046}
0x9654…9666 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0060, t01=0x006c}
0x9666…968c Head {h00=0x0022, h01=0x0050, text=» RF(NP) IBMT70 TRACK 0: ERROR «, t00=0x0060, t01=0x007e}
0x968c…96b0 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTFOR,A6 GET FORMAT «, t00=0x0060, t01=0x00a4}
0x96b0…96c2 Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x0060, t01=0x00c8}
0x96c2…96e0 Head {h00=0x001a, h01=0x0050, text=» RF(NN) IBMT10 (128-1)«, t00=0x0060, t01=0x00da}
0x96e0…9704 Head {h00=0x0020, h01=0x0050, text=» SUK A4,2 DECREMENT TRACK NO«, t00=0x0060, t01=0x00f8}
0x9704…9718 Head {h00=0x0010, h01=0x0050, text=»IBMT10 EQU *«, t00=0x0060, t01=0x011c}
0x9718…9734 Head {h00=0x0018, h01=0x0050, text=» CWK A4,FD:BUF+EOD+5«, t00=0x0060, t01=0x0130}
0x9734…974e Head {h00=0x0016, h01=0x0050, text=» RF(E) IBMT15 EOD «, t00=0x0060, t01=0x014c}
0x974e…976c Head {h00=0x001a, h01=0x0050, text=» CWK A4,FD:BUF+EOD+/45«, t00=0x0060, t01=0x0166}
0x976c…978e Head {h00=0x001e, h01=0x0050, text=» RF(NE) IBMT20 BOE OR EOE «, t00=0x0060, t01=0x0184}
0x978e…97a2 Head {h00=0x0010, h01=0x0050, text=»IBMT15 EQU *«, t00=0x0061, t01=0x0016}
0x97a2…97bc Head {h00=0x0016, h01=0x0050, text=» SUK A4,147 2*74-1«, t00=0x0061, t01=0x002a}
0x97bc…97e8 Head {h00=0x0028, h01=0x0050, text=» RF(G) IBMT70 INCORRECT TRACK NUMBER«, t00=0x0061, t01=0x0044}
0x97e8…980e Head {h00=0x0022, h01=0x0050, text=» RF(L) IBMT40 TRACK OK RETURN «, t00=0x0061, t01=0x0070}
0x980e…9842 Head {h00=0x0030, h01=0x0050, text=» SUK A1,0 CHECK SECTOR NUMBER IF LAST TRACK «, t00=0x0061, t01=0x0096}
0x9842…9854 Head {h00=0x000e, h01=0x0050, text=» RF IBMT50«, t00=0x0061, t01=0x00ca}
0x9854…986c Head {h00=0x0014, h01=0x0050, text=»IBMT20 EQU * EOD«, t00=0x0061, t01=0x00dc}
0x986c…9884 Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 FORMAT«, t00=0x0061, t01=0x00f4}
0x9884…98a2 Head {h00=0x001a, h01=0x0050, text=» RF(NN) IBMT30 (128-1)«, t00=0x0061, t01=0x010c}
0x98a2…98b4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0061, t01=0x012a}
0x98b4…98c8 Head {h00=0x0010, h01=0x0050, text=»IBMT30 EQU *«, t00=0x0061, t01=0x013c}
0x98c8…98e2 Head {h00=0x0016, h01=0x0050, text=» SUK A4,145 2*73-1«, t00=0x0061, t01=0x0150}
0x98e2…990c Head {h00=0x0026, h01=0x0050, text=» RF(P) IBMT70 INCORRECT TRACK,HEAD«, t00=0x0061, t01=0x016a}
0x990c…9920 (98, 0, 398) Head {h00=0x0010, h01=0x0050, text=»IBMT40 EQU *«, t00=0x0062, t01=0x0004}
0x9920…9934 Head {h00=0x0010, h01=0x0050, text=» SUK A1,25 «, t00=0x0062, t01=0x0018}
0x9934…995c Head {h00=0x0024, h01=0x0050, text=»IBMT50 EQU * CHECK SECTOR NUMBER«, t00=0x0062, t01=0x002c}
0x995c…998a Head {h00=0x002a, h01=0x0050, text=» RF(G) IBMT70 INCORRECT SECTOR NUMBER «, t00=0x0062, t01=0x0054}
0x998a…999e Head {h00=0x0010, h01=0x0050, text=»IBMT60 EQU *«, t00=0x0062, t01=0x0082}
0x999e…99b4 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0062, t01=0x0096}
0x99b4…99c4 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0062, t01=0x00ac}
0x99c4…99ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00bc}
0x99ce…99e4 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0062, t01=0x00c6}
0x99e4…99ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00dc}
0x99ee…99f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00e6}
0x99f8…9a12 Head {h00=0x0016, h01=0x0050, text=»IBMT70 EQU * ERROR«, t00=0x0062, t01=0x00f0}
0x9a12…9a32 Head {h00=0x001c, h01=0x0050, text=» LDK A1,RC:IDS RC: ERROR«, t00=0x0062, t01=0x010a}
0x9a32…9a46 Head {h00=0x0010, h01=0x0050, text=» ABL END:UL «, t00=0x0062, t01=0x012a}
0x9a46…9a50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x013e}
0x9a50…9a66 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0062, t01=0x0148}
0x9a66…9a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x015e}
0x9a70…9a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0168}
0x9a7a…9a8c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0062, t01=0x0172}
0x9a8c…9a9e Head {h00=0x000e, h01=0x0050, text=»* SECBIN *«, t00=0x0062, t01=0x0184}
0x9a9e…9ab0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0063, t01=0x0008}
0x9ab0…9aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x001a}
0x9aba…9aee Head {h00=0x0030, h01=0x0050, text=»* CONVERT SECTOR IDENTIFIER TO BINARY CODE«, t00=0x0063, t01=0x0024}
0x9aee…9af8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0058}
0x9af8…9b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0062}
0x9b02…9b16 Head {h00=0x0010, h01=0x0050, text=»SECBIN EQU *«, t00=0x0063, t01=0x006c}
0x9b16…9b28 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0063, t01=0x0080}
0x9b28…9b48 Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTFOR,A6 FORMAT «, t00=0x0063, t01=0x0092}
0x9b48…9b5a Head {h00=0x000e, h01=0x0050, text=» ANK A2,/2«, t00=0x0063, t01=0x00b2}
0x9b5a…9b7a Head {h00=0x001c, h01=0x0050, text=» RF(NZ) SECB05 (256-2D) «, t00=0x0063, t01=0x00c4}
0x9b7a…9b8c Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0063, t01=0x00e4}
0x9b8c…9ba0 Head {h00=0x0010, h01=0x0050, text=»SECB05 EQU *«, t00=0x0063, t01=0x00f6}
0x9ba0…9bc0 Head {h00=0x001c, h01=0x0050, text=» SRL A3,8 TRACK AND HEAD«, t00=0x0063, t01=0x010a}
0x9bc0…9bd2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0063, t01=0x012a}
0x9bd2…9be8 Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x0063, t01=0x013c}
0x9be8…9bfc Head {h00=0x0010, h01=0x0050, text=» SLL A2,2 *4«, t00=0x0063, t01=0x0152}
0x9bfc…9c12 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x0063, t01=0x0166}
0x9c12…9c26 Head {h00=0x0010, h01=0x0050, text=» SRL A2,1 *2«, t00=0x0063, t01=0x017c}
0x9c26…9c3c Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *26«, t00=0x0063, t01=0x0190}
0x9c3c…9c50 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0064, t01=0x0016}
0x9c50…9c78 Head {h00=0x0024, h01=0x0050, text=» ADR A3,A1 LOGICAL SECTOR NUMBER«, t00=0x0064, t01=0x002a}
0x9c78…9c88 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0064, t01=0x0052}
0x9c88…9c92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0062}
0x9c92…9caa Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0064, t01=0x006c}
0x9caa…9cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0084}
0x9cb4…9cc6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0064, t01=0x008e}
0x9cc6…9cd8 Head {h00=0x000e, h01=0x0050, text=»* EBCBIN *«, t00=0x0064, t01=0x00a0}
0x9cd8…9cea Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0064, t01=0x00b2}
0x9cea…9cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00c4}
0x9cf4…9d28 Head {h00=0x0030, h01=0x0050, text=»* EBCBIN TRANSFORM EBCDIC CODED DIGITS TO «, t00=0x0064, t01=0x00ce}
0x9d28…9d70 Head {h00=0x0044, h01=0x0050, text=»* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x0064, t01=0x0102}
0x9d70…9da0 Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO FIRST DIGIT«, t00=0x0064, t01=0x014a}
0x9da0…9dcc Head {h00=0x0028, h01=0x0050, text=»* A7 = NUMBER OF DIGITS«, t00=0x0064, t01=0x017a}
0x9dcc…9dea Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A1 BINARY«, t00=0x0065, t01=0x0016}
0x9dea…9e0a Head {h00=0x001c, h01=0x0050, text=»* A4 = A4 + A7«, t00=0x0065, t01=0x0034}
0x9e0a…9e2a Head {h00=0x001c, h01=0x0050, text=»* WORKING REG: A2,A7 «, t00=0x0065, t01=0x0054}
0x9e2a…9e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0074}
0x9e34…9e48 Head {h00=0x0010, h01=0x0050, text=»EBCBI2 EQU *«, t00=0x0065, t01=0x007e}
0x9e48…9e64 Head {h00=0x0018, h01=0x0050, text=» LDK A4,2 TWO DIGITS«, t00=0x0065, t01=0x0092}
0x9e64…9e78 Head {h00=0x0010, h01=0x0050, text=»EBCBIN EQU *«, t00=0x0065, t01=0x00ae}
0x9e78…9e8a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0065, t01=0x00c2}
0x9e8a…9ea8 Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A7 DIGIT«, t00=0x0065, t01=0x00d4}
0x9ea8…9ebc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0065, t01=0x00f2}
0x9ebc…9ed0 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0065, t01=0x0106}
0x9ed0…9ee6 Head {h00=0x0012, h01=0x0050, text=» RB(N) IBMT70 «, t00=0x0065, t01=0x011a}
0x9ee6…9ef8 Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0065, t01=0x0130}
0x9ef8…9f18 Head {h00=0x001c, h01=0x0050, text=» RB(P) IBMT70 NOT DIGIT «, t00=0x0065, t01=0x0142}
0x9f18…9f2a Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0065, t01=0x0162}
0x9f2a…9f52 Head {h00=0x0024, h01=0x0050, text=» ADK A7,1 ADDRESS TO NEXT DIGIT «, t00=0x0065, t01=0x0174}
0x9f52…9f64 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0066, t01=0x000c}
0x9f64…9f7a Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0066, t01=0x001e}
0x9f7a…9f92 Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0066, t01=0x0034}
0x9f92…9fb2 Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0066, t01=0x004c}
0x9fb2…9fd4 Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0066, t01=0x006c}
0x9fd4…9fe6 Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0066, t01=0x008e}
0x9fe6…9ffe Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0066, t01=0x00a0}
0x9ffe…a00e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0066, t01=0x00b8}
0xa00e…a018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00c8}
0xa018…a02e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0066, t01=0x00d2}
0xa02e…a038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00e8}
0xa038…a042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00f2}
0xa042…a054 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0066, t01=0x00fc}
0xa054…a066 Head {h00=0x000e, h01=0x0050, text=»* IBMCHK *«, t00=0x0066, t01=0x010e}
0xa066…a078 Head {h00=0x000e, h01=0x0050, text=»* IBMCH5 *«, t00=0x0066, t01=0x0120}
0xa078…a08a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0066, t01=0x0132}
0xa08a…a094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0144}
0xa094…a0b8 Head {h00=0x0020, h01=0x0050, text=»* IBM CHECK OF PARAMETERS «, t00=0x0066, t01=0x014e}
0xa0b8…a0c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0172}
0xa0c2…a0ee Head {h00=0x0028, h01=0x0050, text=»* INPUT : A4=INDEXED DWT ADDRESS«, t00=0x0066, t01=0x017c}
0xa0ee…a110 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT : A4 UNCHANGED«, t00=0x0067, t01=0x0018}
0xa110…a11a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x003a}
0xa11a…a12e Head {h00=0x0010, h01=0x0050, text=»IBMCHK EQU *«, t00=0x0067, t01=0x0044}
0xa12e…a152 Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTFOR,A6 GET FORMAT «, t00=0x0067, t01=0x0058}
0xa152…a17a Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBRL,A8 REQUESTED LENGTH«, t00=0x0067, t01=0x007c}
0xa17a…a18c Head {h00=0x000e, h01=0x0050, text=» SRC A1,2 «, t00=0x0067, t01=0x00a4}
0xa18c…a1aa Head {h00=0x001a, h01=0x0050, text=» RF(NN) IBMC10 (128-1)«, t00=0x0067, t01=0x00b6}
0xa1aa…a1be Head {h00=0x0010, h01=0x0050, text=» SUK A2,128 «, t00=0x0067, t01=0x00d4}
0xa1be…a1d2 Head {h00=0x0010, h01=0x0050, text=»IBMC10 EQU *«, t00=0x0067, t01=0x00e8}
0xa1d2…a1e6 Head {h00=0x0010, h01=0x0050, text=» SUK A2,128 «, t00=0x0067, t01=0x00fc}
0xa1e6…a20c Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) ER:ILE ILLEGAL LENGTH«, t00=0x0067, t01=0x0110}
0xa20c…a220 Head {h00=0x0010, h01=0x0050, text=»IBMCH5 EQU *«, t00=0x0067, t01=0x0136}
0xa220…a244 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTEOD,A4 END OF DATA«, t00=0x0067, t01=0x014a}
0xa244…a26e Head {h00=0x0026, h01=0x0050, text=» RF(Z) REQERO NOT OPENED DATA SET «, t00=0x0067, t01=0x016e}
0xa26e…a284 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=0 «, t00=0x0068, t01=0x0008}
0xa284…a2a4 Head {h00=0x001c, h01=0x0050, text=» CF A5,GETLE0 GET LENGTH«, t00=0x0068, t01=0x001e}
0xa2a4…a2b6 Head {h00=0x000e, h01=0x0050, text=» SRL A7,1 «, t00=0x0068, t01=0x003e}
0xa2b6…a2d0 Head {h00=0x0016, h01=0x0050, text=» ORS A7,DWTWE1,A6 «, t00=0x0068, t01=0x0050}
0xa2d0…a2dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x006a}
0xa2dc…a2ee Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0068, t01=0x0076}
0xa2ee…a304 Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x0068, t01=0x0088}
0xa304…a316 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0068, t01=0x009e}
0xa316…a340 Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) END:IO NEW VOLUME LOADED «, t00=0x0068, t01=0x00b0}
0xa340…a354 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0068, t01=0x00da}
0xa354…a378 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTFOR,A6 GET FORMAT «, t00=0x0068, t01=0x00ee}
0xa378…a38a Head {h00=0x000e, h01=0x0050, text=» SRC A2,1 «, t00=0x0068, t01=0x0112}
0xa38a…a3a8 Head {h00=0x001a, h01=0x0050, text=» RB(N) IBMT60 IBM DISC«, t00=0x0068, t01=0x0124}
0xa3a8…a3b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x0142}
0xa3b4…a3c8 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=0 «, t00=0x0068, t01=0x014e}
0xa3c8…a3da Head {h00=0x000e, h01=0x0050, text=» RB IBMT60«, t00=0x0068, t01=0x0162}
0xa3da…a3e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x0174}
0xa3e6…a3f8 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0068, t01=0x0180}
0xa3f8…a41a (105, 0, 400) Head {h00=0x001e, h01=0x0050, text=»REQERO EQU * REQUEST ERROR«, t00=0x0069, t01=0x0004}
0xa41a…a42e Head {h00=0x0010, h01=0x0050, text=» ABL DISIOE «, t00=0x0069, t01=0x0026}
0xa42e…a438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x003a}
0xa438…a44e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0069, t01=0x0044}
0xa44e…a458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x005a}
0xa458…a46a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x0064}
0xa46a…a47c Head {h00=0x000e, h01=0x0050, text=»* INCSEC *«, t00=0x0069, t01=0x0076}
0xa47c…a48e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x0088}
0xa48e…a498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x009a}
0xa498…a4c0 Head {h00=0x0024, h01=0x0050, text=»* INCREMENT SECTOR IDENTIFIER «, t00=0x0069, t01=0x00a4}
0xa4c0…a4ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00cc}
0xa4ca…a4ee Head {h00=0x0020, h01=0x0050, text=»* OUTPUT: A3 = SECTOR ID «, t00=0x0069, t01=0x00d6}
0xa4ee…a4f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00fa}
0xa4f8…a50c Head {h00=0x0010, h01=0x0050, text=»INCSEC EQU *«, t00=0x0069, t01=0x0104}
0xa50c…a52e Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTSEC,A6 SECTOR ID«, t00=0x0069, t01=0x0118}
0xa52e…a542 Head {h00=0x0010, h01=0x0050, text=»INCSE0 EQU *«, t00=0x0069, t01=0x013a}
0xa542…a554 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0069, t01=0x014e}
0xa554…a574 Head {h00=0x001c, h01=0x0050, text=» CCK A3,/1A00 SECTOR 26 «, t00=0x0069, t01=0x0160}
0xa574…a594 Head {h00=0x001c, h01=0x0050, text=» RF(L) INCS10 SAME TRACK«, t00=0x0069, t01=0x0180}
0xa594…a5b4 Head {h00=0x001c, h01=0x0050, text=» CF A5,INCCYL NEXT TRACK«, t00=0x006a, t01=0x0010}
0xa5b4…a5c6 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x006a, t01=0x0030}
0xa5c6…a5e2 Head {h00=0x0018, h01=0x0050, text=» SUK A3,26 SECTOR 0 «, t00=0x006a, t01=0x0042}
0xa5e2…a5f6 Head {h00=0x0010, h01=0x0050, text=»INCS10 EQU *«, t00=0x006a, t01=0x005e}
0xa5f6…a624 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTSEC,A6 INCREMENTED SECTOR ID«, t00=0x006a, t01=0x0072}
0xa624…a634 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006a, t01=0x00a0}
0xa634…a63e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00b0}
0xa63e…a654 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x006a, t01=0x00ba}
0xa654…a65e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00d0}
0xa65e…a670 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006a, t01=0x00da}
0xa670…a682 Head {h00=0x000e, h01=0x0050, text=»* DECBOE *«, t00=0x006a, t01=0x00ec}
0xa682…a694 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006a, t01=0x00fe}
0xa694…a69e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0110}
0xa69e…a6b4 Head {h00=0x0012, h01=0x0050, text=»* CRN = A3-1«, t00=0x006a, t01=0x011a}
0xa6b4…a6be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0130}
0xa6be…a6d2 Head {h00=0x0010, h01=0x0050, text=»DECBOE EQU *«, t00=0x006a, t01=0x013a}
0xa6d2…a6e4 Head {h00=0x000e, h01=0x0050, text=» CCK A3,0 «, t00=0x006a, t01=0x014e}
0xa6e4…a6fa Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DECS10«, t00=0x006a, t01=0x0160}
0xa6fa…a71a Head {h00=0x001c, h01=0x0050, text=» CF A5,INCCYL NEXT TRACK«, t00=0x006a, t01=0x0176}
0xa71a…a72c Head {h00=0x000e, h01=0x0050, text=» SUR A3,A2«, t00=0x006b, t01=0x0008}
0xa72c…a73e Head {h00=0x000e, h01=0x0050, text=» ORK A3,26«, t00=0x006b, t01=0x001a}
0xa73e…a752 Head {h00=0x0010, h01=0x0050, text=»DECS10 EQU *«, t00=0x006b, t01=0x002c}
0xa752…a764 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x006b, t01=0x0040}
0xa764…a792 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCRN,A4 CURRENT RECORD NUMBER«, t00=0x006b, t01=0x0052}
0xa792…a7a2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006b, t01=0x0080}
0xa7a2…a7ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0090}
0xa7ac…a7b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x009a}
0xa7b8…a7ce Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x006b, t01=0x00a6}
0xa7ce…a7d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00bc}
0xa7d8…a7e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00c6}
0xa7e2…a7f4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006b, t01=0x00d0}
0xa7f4…a806 Head {h00=0x000e, h01=0x0050, text=»* INCCYL *«, t00=0x006b, t01=0x00e2}
0xa806…a818 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006b, t01=0x00f4}
0xa818…a822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0106}
0xa822…a846 Head {h00=0x0020, h01=0x0050, text=»* NEXT TRACK OF SECTOR ID «, t00=0x006b, t01=0x0110}
0xa846…a850 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0134}
0xa850…a85a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x013e}
0xa85a…a86e Head {h00=0x0010, h01=0x0050, text=»INCCYL EQU *«, t00=0x006b, t01=0x0148}
0xa86e…a886 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFOR,A6«, t00=0x006b, t01=0x015c}
0xa886…a898 Head {h00=0x000e, h01=0x0050, text=» C1R A2,A2«, t00=0x006b, t01=0x0174}
0xa898…a8c4 Head {h00=0x0028, h01=0x0050, text=» ANK A2,2 (128-1)/(256-2D) INDICATOR«, t00=0x006b, t01=0x0186}
0xa8c4…a8e0 Head {h00=0x0018, h01=0x0050, text=» ADK A2,2 NEXT TRACK«, t00=0x006c, t01=0x0022}
0xa8e0…a8fe Head {h00=0x001a, h01=0x0050, text=» SLL A2,7 IN POSITION «, t00=0x006c, t01=0x003e}
0xa8fe…a90e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006c, t01=0x005c}
0xa90e…a918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x006c}
0xa918…a92e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x006c, t01=0x0076}
0xa92e…a938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x008c}
0xa938…a94a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x0096}
0xa94a…a95c Head {h00=0x000e, h01=0x0050, text=»* REAPRE *«, t00=0x006c, t01=0x00a8}
0xa95c…a96e Head {h00=0x000e, h01=0x0050, text=»* WRIPRB *«, t00=0x006c, t01=0x00ba}
0xa96e…a980 Head {h00=0x000e, h01=0x0050, text=»* WRIPRE *«, t00=0x006c, t01=0x00cc}
0xa980…a992 Head {h00=0x000e, h01=0x0050, text=»* CIOPRE *«, t00=0x006c, t01=0x00de}
0xa992…a9a4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x00f0}
0xa9a4…a9ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0102}
0xa9ae…a9d0 Head {h00=0x001e, h01=0x0050, text=»* PREPARE FOR CIO START «, t00=0x006c, t01=0x010c}
0xa9d0…a9da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x012e}
0xa9da…a9ec Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006c, t01=0x0138}
0xa9ec…aa00 Head {h00=0x0010, h01=0x0050, text=»REAPDS EQU *«, t00=0x006c, t01=0x014a}
0xaa00…aa16 Head {h00=0x0012, h01=0x0050, text=» ANKL 3,/7FFF «, t00=0x006c, t01=0x015e}
0xaa16…aa40 Head {h00=0x0026, h01=0x0050, text=» ST A3,DWTSEC,A6 SECTOR IDENTIFIER«, t00=0x006c, t01=0x0174}
0xaa40…aa4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x000e}
0xaa4c…aa60 Head {h00=0x0010, h01=0x0050, text=»REAPRB EQU *«, t00=0x006d, t01=0x001a}
0xaa60…aa76 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x006d, t01=0x002e}
0xaa76…aa9c Head {h00=0x0022, h01=0x0050, text=» LDKL A1,FD:BUF BUFFER ADDRESS«, t00=0x006d, t01=0x0044}
0xaa9c…aacc Head {h00=0x002c, h01=0x0050, text=» ST A1,DWTBA,A6 BUFFER ADDRESS SAVE AREA«, t00=0x006d, t01=0x006a}
0xaacc…aad8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x009a}
0xaad8…aae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00a6}
0xaae2…aafc Head {h00=0x0016, h01=0x0050, text=»REAPRE EQU * READ «, t00=0x006d, t01=0x00b0}
0xaafc…ab20 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,IN:WE1-/80 1ST WER «, t00=0x006d, t01=0x00ca}
0xab20…ab3e Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 CIO REGISTER«, t00=0x006d, t01=0x00ee}
0xab3e…ab50 Head {h00=0x000e, h01=0x0050, text=» RF CIOPRE«, t00=0x006d, t01=0x010c}
0xab50…ab5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x011e}
0xab5a…ab74 Head {h00=0x0016, h01=0x0050, text=»WRIPRE EQU * WRITE«, t00=0x006d, t01=0x0128}
0xab74…ab96 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,IN:WE1+/4000-/80 «, t00=0x006d, t01=0x0142}
0xab96…aba8 Head {h00=0x000e, h01=0x0050, text=» LDK A3,1 «, t00=0x006d, t01=0x0164}
0xaba8…abb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0176}
0xabb2…abce Head {h00=0x0018, h01=0x0050, text=»CIOPRE EQU * GENERAL«, t00=0x006d, t01=0x0180}
0xabce…abe6 Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTWE1,A6«, t00=0x006e, t01=0x000c}
0xabe6…abfe Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTIOR,A6«, t00=0x006e, t01=0x0024}
0xabfe…ac0e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006e, t01=0x003c}
0xac0e…ac18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x004c}
0xac18…ac2e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x006e, t01=0x0056}
0xac2e…ac38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x006c}
0xac38…ac42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0076}
0xac42…ac54 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006e, t01=0x0080}
0xac54…ac66 Head {h00=0x000e, h01=0x0050, text=»* LOCK *«, t00=0x006e, t01=0x0092}
0xac66…ac78 Head {h00=0x000e, h01=0x0050, text=»* UNLOCK *«, t00=0x006e, t01=0x00a4}
0xac78…ac8a Head {h00=0x000e, h01=0x0050, text=»* SEEK *«, t00=0x006e, t01=0x00b6}
0xac8a…ac9c Head {h00=0x000e, h01=0x0050, text=»* CIO:WR *«, t00=0x006e, t01=0x00c8}
0xac9c…acae Head {h00=0x000e, h01=0x0050, text=»* CIO:VF *«, t00=0x006e, t01=0x00da}
0xacae…acc0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006e, t01=0x00ec}
0xacc0…acca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00fe}
0xacca…acd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0108}
0xacd4…acde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0112}
0xacde…acf0 Head {h00=0x000e, h01=0x0050, text=»LOCK EQU *«, t00=0x006e, t01=0x011c}
0xacf0…ad06 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/0400«, t00=0x006e, t01=0x012e}
0xad06…ad18 Head {h00=0x000e, h01=0x0050, text=» RF CIO:00«, t00=0x006e, t01=0x0144}
0xad18…ad2c Head {h00=0x0010, h01=0x0050, text=»UNLOCK EQU *«, t00=0x006e, t01=0x0156}
0xad2c…ad42 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/0C00«, t00=0x006e, t01=0x016a}
0xad42…ad54 Head {h00=0x000e, h01=0x0050, text=» RF CIO:00«, t00=0x006e, t01=0x0180}
0xad54…ad66 (111, 0, 400) Head {h00=0x000e, h01=0x0050, text=»SEEK EQU *«, t00=0x006f, t01=0x0004}
0xad66…ad92 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTSEC,A6 GET CYLINDER NUMBER«, t00=0x006f, t01=0x0016}
0xad92…ada4 Head {h00=0x000e, h01=0x0050, text=» SRL A3,9 «, t00=0x006f, t01=0x0042}
0xada4…add4 Head {h00=0x002c, h01=0x0050, text=» CW A3,DWTCYN,A6 PRESENT CYLINDER NUMBER«, t00=0x006f, t01=0x0054}
0xadd4…adfe Head {h00=0x0026, h01=0x0050, text=» RF(E) CIORTN RETURN WITHOUT SEEK «, t00=0x006f, t01=0x0084}
0xadfe…ae12 Head {h00=0x0010, h01=0x0050, text=»SEEKA3 EQU *«, t00=0x006f, t01=0x00ae}
0xae12…ae2a Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTCYN,A6«, t00=0x006f, t01=0x00c2}
0xae2a…ae48 Head {h00=0x001a, h01=0x0050, text=» SLL A3,2 IN POSITION «, t00=0x006f, t01=0x00da}
0xae48…ae64 Head {h00=0x0018, h01=0x0050, text=» ORK A3,3 ORDER CODE«, t00=0x006f, t01=0x00f8}
0xae64…ae76 Head {h00=0x000e, h01=0x0050, text=» RF CIO:00«, t00=0x006f, t01=0x0114}
0xae76…ae80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0126}
0xae80…ae96 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x006f, t01=0x0130}
0xae96…aea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0146}
0xaea0…aeaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0150}
0xaeaa…aebe Head {h00=0x0010, h01=0x0050, text=»CIOIVF EQU *«, t00=0x006f, t01=0x015a}
0xaebe…aeda Head {h00=0x0018, h01=0x0050, text=» LDKL A3,/400 VERIFY«, t00=0x006f, t01=0x016e}
0xaeda…aeec Head {h00=0x000e, h01=0x0050, text=» RF CIOI03«, t00=0x006f, t01=0x018a}
0xaeec…af10 Head {h00=0x0020, h01=0x0050, text=»CIOI00 EQU * IBM IO ROUTINE «, t00=0x0070, t01=0x000c}
0xaf10…af24 Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEK «, t00=0x0070, t01=0x0030}
0xaf24…af36 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0070, t01=0x0044}
0xaf36…af58 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CIOERR SEEK ERROR «, t00=0x0070, t01=0x0056}
0xaf58…af74 Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 WRITE/READ«, t00=0x0070, t01=0x0078}
0xaf74…af88 Head {h00=0x0010, h01=0x0050, text=»CIOI03 EQU *«, t00=0x0070, t01=0x0094}
0xaf88…afa8 Head {h00=0x001c, h01=0x0050, text=» CF A5,GETLEN GET LENGTH«, t00=0x0070, t01=0x00a8}
0xafa8…afba Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0070, t01=0x00c8}
0xafba…afcc Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x0070, t01=0x00da}
0xafcc…afec Head {h00=0x001c, h01=0x0050, text=» OR A1,DWTWE1,A6 1ST WER«, t00=0x0070, t01=0x00ec}
0xafec…b00a Head {h00=0x001a, h01=0x0050, text=» LDKL A2,FD:BUF BUFFER«, t00=0x0070, t01=0x010c}
0xb00a…b022 Head {h00=0x0014, h01=0x0050, text=» OR A3,DWTIOR,A6«, t00=0x0070, t01=0x012a}
0xb022…b038 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0070, t01=0x0142}
0xb038…b05a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CIOWE2 WRITE ORDER«, t00=0x0070, t01=0x0158}
0xb05a…b080 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTBA,A6 BUFFER ADDRESS«, t00=0x0070, t01=0x017a}
0xb080…b08c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x0010}
0xb08c…b09e Head {h00=0x000e, h01=0x0050, text=» RF CIOWE2«, t00=0x0071, t01=0x001c}
0xb09e…b0a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x002e}
0xb0a8…b0bc Head {h00=0x0010, h01=0x0050, text=»CIOVOL EQU *«, t00=0x0071, t01=0x0038}
0xb0bc…b0d4 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,FD:BUF «, t00=0x0071, t01=0x004c}
0xb0d4…b0e8 Head {h00=0x0010, h01=0x0050, text=»CIOVO1 EQU *«, t00=0x0071, t01=0x0064}
0xb0e8…b0fe Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8020«, t00=0x0071, t01=0x0078}
0xb0fe…b110 Head {h00=0x000e, h01=0x0050, text=» RF PERCIO«, t00=0x0071, t01=0x008e}
0xb110…b11a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00a0}
0xb11a…b134 Head {h00=0x0016, h01=0x0050, text=» IFF TOSS+EBCASC=0«, t00=0x0071, t01=0x00aa}
0xb134…b14a Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0071, t01=0x00c4}
0xb14a…b154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00da}
0xb154…b15e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00e4}
0xb15e…b172 Head {h00=0x0010, h01=0x0050, text=»CIO:VF EQU *«, t00=0x0071, t01=0x00ee}
0xb172…b18e Head {h00=0x0018, h01=0x0050, text=» LDKL A3,/400 VERIFY«, t00=0x0071, t01=0x0102}
0xb18e…b1a0 Head {h00=0x000e, h01=0x0050, text=» RF CIOWER«, t00=0x0071, t01=0x011e}
0xb1a0…b1b4 Head {h00=0x0010, h01=0x0050, text=»CIO:WR EQU *«, t00=0x0071, t01=0x0130}
0xb1b4…b1c8 Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEK «, t00=0x0071, t01=0x0144}
0xb1c8…b1da Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0071, t01=0x0158}
0xb1da…b1fc Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CIOERR SEEK ERROR «, t00=0x0071, t01=0x016a}
0xb1fc…b218 Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 READ/WRITE«, t00=0x0071, t01=0x018c}
0xb218…b22c Head {h00=0x0010, h01=0x0050, text=»CIOWER EQU *«, t00=0x0072, t01=0x0018}
0xb22c…b242 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0072, t01=0x002c}
0xb242…b25a Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTWE1,A6«, t00=0x0072, t01=0x0042}
0xb25a…b27a Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTBA,A6 2ND WER «, t00=0x0072, t01=0x005a}
0xb27a…b29e Head {h00=0x0020, h01=0x0050, text=» OR A3,DWTIOR,A6 IO REGISTER«, t00=0x0072, t01=0x007a}
0xb29e…b2aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x009e}
0xb2aa…b2c4 Head {h00=0x0016, h01=0x0050, text=» IFF TOSS+EBCASC=0«, t00=0x0072, t01=0x00aa}
0xb2c4…b2da Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0072, t01=0x00c4}
0xb2da…b30a Head {h00=0x002c, h01=0x0050, text=» ML 2,DWTBA,A6 GET 18 BIT BUFFER ADDRESS«, t00=0x0072, t01=0x00da}
0xb30a…b31c Head {h00=0x000e, h01=0x0050, text=» SRC A1,4 «, t00=0x0072, t01=0x010a}
0xb31c…b33c Head {h00=0x001c, h01=0x0050, text=» OR A1,DWTWE1,A6 1ST WER«, t00=0x0072, t01=0x011c}
0xb33c…b356 Head {h00=0x0016, h01=0x0050, text=» SLL A2,1 2ND WER «, t00=0x0072, t01=0x013c}
0xb356…b37a Head {h00=0x0020, h01=0x0050, text=» OR A3,DWTIOR,A6 IO REGISTER«, t00=0x0072, t01=0x0156}
0xb37a…b386 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x017a}
0xb386…b39a Head {h00=0x0010, h01=0x0050, text=»CIOWE2 EQU *«, t00=0x0072, t01=0x0186}
0xb39a…b3c0 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTSEC,A6 SECTOR NUMBER«, t00=0x0073, t01=0x000a}
0xb3c0…b3d4 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0073, t01=0x0030}
0xb3d4…b3f2 Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 IN POSITION «, t00=0x0073, t01=0x0044}
0xb3f2…b412 Head {h00=0x001c, h01=0x0050, text=» ORR A3,A4 IN ORDER WORD«, t00=0x0073, t01=0x0062}
0xb412…b438 Head {h00=0x0022, h01=0x0050, text=» LC A4,DWTSEC,A6 TRACK NUMBER «, t00=0x0073, t01=0x0082}
0xb438…b456 Head {h00=0x001a, h01=0x0050, text=» ANK A4,1 HEAD NUMBER «, t00=0x0073, t01=0x00a8}
0xb456…b474 Head {h00=0x001a, h01=0x0050, text=» SRC A4,2 IN POSITION «, t00=0x0073, t01=0x00c6}
0xb474…b494 Head {h00=0x001c, h01=0x0050, text=» ORR A3,A4 IN ORDER WORD«, t00=0x0073, t01=0x00e4}
0xb494…b49e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0104}
0xb49e…b4b4 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0073, t01=0x010e}
0xb4b4…b4be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0124}
0xb4be…b4c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x012e}
0xb4c8…b4dc Head {h00=0x0010, h01=0x0050, text=»PERCIO EQU *«, t00=0x0073, t01=0x0138}
0xb4dc…b4f2 Head {h00=0x0012, h01=0x0050, text=» WER A1,MUXADR«, t00=0x0073, t01=0x014c}
0xb4f2…b50a Head {h00=0x0014, h01=0x0050, text=» WER A2,MUXADR+1«, t00=0x0073, t01=0x0162}
0xb50a…b51e Head {h00=0x0010, h01=0x0050, text=»CIO:00 EQU *«, t00=0x0073, t01=0x017a}
0xb51e…b534 Head {h00=0x0012, h01=0x0050, text=» LD A2,PFPOST «, t00=0x0073, t01=0x018e}
0xb534…b56c Head {h00=0x0034, h01=0x0050, text=» RF(NZ) CIO:AB POWER FAILURE POST PROCESSING ON «, t00=0x0074, t01=0x0014}
0xb56c…b582 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0074, t01=0x004c}
0xb582…b5a4 Head {h00=0x001e, h01=0x0050, text=» EX DWTCIO,A4 EXECUTE CIO «, t00=0x0074, t01=0x0062}
0xb5a4…b5ba Head {h00=0x0012, h01=0x0050, text=» LDK A1,RC:NOP«, t00=0x0074, t01=0x0084}
0xb5ba…b5e4 Head {h00=0x0026, h01=0x0050, text=» ABL(3) END:30 CU ADDRESS UNKNOWN «, t00=0x0074, t01=0x009a}
0xb5e4…b5f8 Head {h00=0x0010, h01=0x0050, text=»CIO:AB EQU *«, t00=0x0074, t01=0x00c4}
0xb5f8…b622 Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x0074, t01=0x00d8}
0xb622…b63e Head {h00=0x0018, h01=0x0050, text=» ABL T:DISP DISPATCH«, t00=0x0074, t01=0x0102}
0xb63e…b652 Head {h00=0x0010, h01=0x0050, text=»CIORTN EQU *«, t00=0x0074, t01=0x011e}
0xb652…b66c Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 RESET RC«, t00=0x0074, t01=0x0132}
0xb66c…b680 Head {h00=0x0010, h01=0x0050, text=»CIOERR EQU *«, t00=0x0074, t01=0x014c}
0xb680…b690 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0074, t01=0x0160}
0xb690…b69a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0170}
0xb69a…b6b0 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0074, t01=0x017a}
0xb6b0…b6ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0190}
0xb6ba…b6c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x000a}
0xb6c4…b6d6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0075, t01=0x0014}
0xb6d6…b6e8 Head {h00=0x000e, h01=0x0050, text=»* FD:BUF *«, t00=0x0075, t01=0x0026}
0xb6e8…b6fa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0075, t01=0x0038}
0xb6fa…b704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x004a}
0xb704…b724 Head {h00=0x001c, h01=0x0050, text=»* FLEXIBLE DISK BUFFER«, t00=0x0075, t01=0x0054}
0xb724…b72e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0074}
0xb72e…b742 Head {h00=0x0010, h01=0x0050, text=»FD:BUF EQU *«, t00=0x0075, t01=0x007e}
0xb742…b752 Head {h00=0x000c, h01=0x0050, text=» RES 64 «, t00=0x0075, t01=0x0092}
0xb752…b764 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0075, t01=0x00a2}
0xb764…b774 Head {h00=0x000c, h01=0x0050, text=» RES 64 «, t00=0x0075, t01=0x00b4}
0xb774…b780 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x00c4}
0xb780…b78a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00d0}
0xb78a…b7a2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0075, t01=0x00da}
0xb7a2…b7ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00f2}
0xb7ac…b7ca Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0075, t01=0x00fc}
0xb7ca…b7e8 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0075, t01=0x011a}
0xb7e8…b806 Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0075, t01=0x0138}
0xb806…b824 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0075, t01=0x0156}
0xb824…b842 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0075, t01=0x0174}
0xb842…b84c (118, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0004}
0xb84c…b860 Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0076, t01=0x000e}
0xb860…b870 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x0022}
0xb870…b88e Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0076, t01=0x0032}
0xb88e…b8aa Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0076, t01=0x0050}
0xb8aa…b8c0 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0076, t01=0x006c}
0xb8c0…b8e6 Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0076, t01=0x0082}
0xb8e6…b902 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0076, t01=0x00a8}
0xb902…b92a Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0076, t01=0x00c4}
0xb92a…b948 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0076, t01=0x00ec}
0xb948…b952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x010a}
0xb952…b968 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0076, t01=0x0114}
0xb968…b992 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0076, t01=0x012a}
0xb992…b9b6 Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0076, t01=0x0154}
0xb9b6…b9c2 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0076, t01=0x0178}
0xb9c2…b9cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0184}
0xb9cc…b9e6 Head {h00=0x0016, h01=0x0050, text=»DWTA5 EQU *-DWFD01«, t00=0x0076, t01=0x018e}
0xb9e6…b9f6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0077, t01=0x0018}
0xb9f6…ba26 Head {h00=0x002c, h01=0x0050, text=»DWTRC EQU *-DWFD01 RETURN CODE SAVE AREA«, t00=0x0077, t01=0x0028}
0xba26…ba36 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0077, t01=0x0058}
0xba36…ba46 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0077, t01=0x0068}
0xba46…ba56 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0077, t01=0x0078}
0xba56…ba7c Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0,0 STACK (3 LEVELS)«, t00=0x0077, t01=0x0088}
0xba7c…ba9c Head {h00=0x001c, h01=0x0050, text=» DATA 0 ORDER SAVE AREA «, t00=0x0077, t01=0x00ae}
0xba9c…baa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00ce}
0xbaa6…babe Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0077, t01=0x00d8}
0xbabe…bac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00f0}
0xbac8…bad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00fa}
0xbad2…baf6 Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 0 «, t00=0x0077, t01=0x0104}
0xbaf6…bb1a Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 1 «, t00=0x0077, t01=0x0128}
0xbb1a…bb3e Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 2 «, t00=0x0077, t01=0x014c}
0xbb3e…bb62 Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 3 «, t00=0x0077, t01=0x0170}
0xbb62…bb8e (120, 0, 398) Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x0078, t01=0x0004}
0xbb8e…bbae Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0078, t01=0x0030}
0xbbae…bbda Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x0078, t01=0x0050}
0xbbda…bbfa Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0078, t01=0x007c}
0xbbfa…bc26 Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x0078, t01=0x009c}
0xbc26…bc46 Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0078, t01=0x00c8}
0xbc46…bc72 Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x0078, t01=0x00e8}
0xbc72…bc92 Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0078, t01=0x0114}
0xbc92…bcba Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x0078, t01=0x0134}
0xbcba…bcca Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0078, t01=0x015c}
0xbcca…bcf0 Head {h00=0x0022, h01=0x0050, text=»DWTCIO EQU *-DWFD01 CIO START «, t00=0x0078, t01=0x016c}
0xbcf0…bd0e (121, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CIO A3,1,CUADR UNIT 0«, t00=0x0079, t01=0x0004}
0xbd0e…bd30 Head {h00=0x001e, h01=0x0050, text=» CIO A3,1,CUADR+/10 UNIT 1«, t00=0x0079, t01=0x0022}
0xbd30…bd52 Head {h00=0x001e, h01=0x0050, text=» CIO A3,1,CUADR+/20 UNIT 2«, t00=0x0079, t01=0x0044}
0xbd52…bd74 Head {h00=0x001e, h01=0x0050, text=» CIO A3,1,CUADR+/30 UNIT 3«, t00=0x0079, t01=0x0066}
0xbd74…bd7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0088}
0xbd7e…bd96 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0079, t01=0x0092}
0xbd96…bda0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00aa}
0xbda0…bdaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00b4}
0xbdaa…bdbc Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0079, t01=0x00be}
0xbdbc…bdec Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x0079, t01=0x00d0}
0xbdec…be02 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0079, t01=0x0100}
0xbe02…be2a Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x0079, t01=0x0116}
0xbe2a…be40 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0079, t01=0x013e}
0xbe40…be6a Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x0079, t01=0x0154}
0xbe6a…be80 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0079, t01=0x017e}
0xbe80…beae (122, 0, 400) Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x007a, t01=0x0004}
0xbeae…bec4 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007a, t01=0x0032}
0xbec4…bef6 Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x007a, t01=0x0048}
0xbef6…bf0c Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007a, t01=0x007a}
0xbf0c…bf16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0090}
0xbf16…bf30 Head {h00=0x0016, h01=0x0050, text=» IFT IBM+MMUPAG=2 «, t00=0x007a, t01=0x009a}
0xbf30…bf68 Head {h00=0x0034, h01=0x0050, text=»DWTPAG EQU *-DWFD01 PAGE ADDRESS TO USER BUFFER «, t00=0x007a, t01=0x00b4}
0xbf68…bf7a Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x007a, t01=0x00ec}
0xbf7a…bf86 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007a, t01=0x00fe}
0xbf86…bf9e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x007a, t01=0x010a}
0xbf9e…bfa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0122}
0xbfa8…bfb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x012c}
0xbfb2…bfd8 Head {h00=0x0022, h01=0x0050, text=»DWT:FC EQU *-DWFD01 FILE CODE «, t00=0x007a, t01=0x0136}
0xbfd8…bfea Head {h00=0x000e, h01=0x0050, text=» DATA /F8 «, t00=0x007a, t01=0x015c}
0xbfea…c022 Head {h00=0x0034, h01=0x0050, text=»DWTPAR EQU *-DWFD01 DEVICE DEPENDENT PARAMETERS «, t00=0x007a, t01=0x016e}
0xc022…c06c Head {h00=0x0046, h01=0x0050, text=» DATA /FF00,/FF00,/FF00,/FF00 HEAD POS,LOCK/UNLOCK,2D/1S,TOSS/IBM «, t00=0x007b, t01=0x0016}
0xc06c…c0a0 Head {h00=0x0030, h01=0x0050, text=»DWTFOR EQU *-DWFD01 PRESENT FORMAT PARAMETER«, t00=0x007b, t01=0x0060}
0xc0a0…c0b0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0094}
0xc0b0…c0e4 Head {h00=0x0030, h01=0x0050, text=»DWTCYN EQU *-DWFD01 PRESENT CYLINDER NUMBER «, t00=0x007b, t01=0x00a4}
0xc0e4…c0f8 Head {h00=0x0010, h01=0x0050, text=» DATA /FFFF «, t00=0x007b, t01=0x00d8}
0xc0f8…c12e Head {h00=0x0032, h01=0x0050, text=»DWTSEC EQU *-DWFD01 SECTOR NUMBER ON CYLINDER «, t00=0x007b, t01=0x00ec}
0xc12e…c13e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0122}
0xc13e…c16a Head {h00=0x0028, h01=0x0050, text=»DWTWE1 EQU *-DWFD01 1ST WER REGISTER«, t00=0x007b, t01=0x0132}
0xc16a…c17a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x015e}
0xc17a…c1a2 Head {h00=0x0024, h01=0x0050, text=»DWTRL EQU *-DWFD01 LENGTH OF IO «, t00=0x007b, t01=0x016e}
0xc1a2…c1b2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0008}
0xc1b2…c1dc Head {h00=0x0026, h01=0x0050, text=»DWTBA EQU *-DWFD01 BUFFER ADDRESS «, t00=0x007c, t01=0x0018}
0xc1dc…c1f2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007c, t01=0x0042}
0xc1f2…c204 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x007c, t01=0x0058}
0xc204…c210 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x006a}
0xc210…c226 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x007c, t01=0x0076}
0xc226…c236 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x008c}
0xc236…c242 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x009c}
0xc242…c26a Head {h00=0x0024, h01=0x0050, text=»DWTIOR EQU *-DWFD01 CIO REGISTER«, t00=0x007c, t01=0x00a8}
0xc26a…c27a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x00d0}
0xc27a…c284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00e0}
0xc284…c29a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007c, t01=0x00ea}
0xc29a…c2ae Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x007c, t01=0x0100}
0xc2ae…c2ca Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x007c, t01=0x0114}
0xc2ca…c2d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x0130}
0xc2d6…c2e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x013c}
0xc2e0…c2ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0146}
0xc2ea…c2f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0150}
0xc2f4…c300 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x007c, t01=0x015a}
0xc300…c304 Head {h00=0x4004, h01=0x0000}
0xc304…c308 00 7c 01 66 ┆ | f┆
0xc308…c310 (125, 1, 8) 20 04 00 00 00 7d 00 04 ┆ } ┆
0xc310…c360 (126, 0, 400) 35 20 00 7d 01 8a 00 08 00 50 5c 58 49 46 00 7e 00 0a 00 06 00 50 2a 20 00 7e 00 16 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 7e 00 20 00 06 00 50 2a 20 00 7e 00 38 00 22 00 50 2a 20 20 20 20 44 20 52 20 49 20 56 20 45 ┆5 } P XIF ~ P* ~ P EJECT DRFD01 ~ P* ~ 8 " P* D R I V E┆
0xc360…c3b0 20 52 20 20 20 42 20 55 20 46 20 46 20 45 20 52 00 7e 00 42 00 06 00 50 2a 20 00 7e 00 68 00 0e 00 50 42 55 46 5c 45 51 55 5c 2a 20 00 7e 00 72 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 7e 00 84 00 10 00 50 5c 52 45 53 5c 44 56 42 4c 45 ┆ R B U F F E R ~ B P* ~ h PBUF EQU * ~ r P IFT IBM=1 ~ P RES DVBLE┆
0xc3b0…c400 4e 20 00 7e 00 96 00 08 00 50 5c 58 49 46 00 7e 00 aa 00 06 00 50 2a 20 00 7e 00 b6 00 10 00 50 5c 49 46 54 5c 54 4f 53 53 3d 31 20 00 7e 00 c0 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 30 00 7e 00 d4 00 22 00 50 5c 44 41 54 41 5c 30 2c 30 2c ┆N ~ P XIF ~ P* ~ P IFT TOSS=1 ~ P IFT IBM=0 ~ " P DATA 0,0,┆
0xc400…c450 30 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 42 55 46 46 45 52 00 7e 00 e6 00 16 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 2b 43 48 41 4e 3d 32 00 7e 01 0c 00 1c 00 50 5c 52 45 53 5c 44 56 42 4c 45 4e 2d 33 5c 4d 4d 55 20 42 55 46 46 45 52 00 7e ┆0 VOLUME NAME BUFFER ~ P IFT MMUPAG+CHAN=2 ~ P RES DVBLEN-3 MMU BUFFER ~┆
0xc450…c4a0 01 26 00 08 00 50 5c 58 49 46 00 7e 01 46 00 06 00 50 2a 20 00 7e 01 52 00 14 00 50 5c 49 46 54 5c 54 4f 53 53 2b 49 42 4d 3d 30 20 00 7e 01 5c 00 16 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 2b 43 48 41 4e 3d 32 00 7e 01 74 00 1a 00 50 5c 52 ┆ & P XIF ~ F P* ~ R P IFT TOSS+IBM=0 ~ P IFT MMUPAG+CHAN=2 ~ t P R┆
0xc4a0…c4f0 (127, 0, 400) 45 53 5c 44 56 42 4c 45 4e 5c 4d 4d 55 20 42 55 46 46 45 52 00 7e 01 8e 00 08 00 50 5c 58 49 46 00 7f 00 1c 00 06 00 50 2a 20 00 7f 00 28 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 7f 00 32 00 06 00 50 2a 20 00 7f 00 4a ┆ES DVBLEN MMU BUFFER ~ P XIF P* ( P EJECT DRFD01 2 P* J┆
0xc4f0…c540 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 7f 00 54 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 7f 00 72 00 1a 00 50 2a 20 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 ┆ P********************* T P* * r P* DEVICE WORK TA┆
0xc540…c590 42 4c 45 20 2a 20 00 7f 00 90 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 7f 00 ae 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 7f 00 cc 00 06 00 50 2a 20 00 7f 00 ea ┆BLE * P* * P********************* P* ┆
0xc590…c5e0 00 10 00 50 44 57 46 44 30 31 5c 45 51 55 5c 2a 00 7f 00 f4 00 28 00 50 44 57 54 52 43 57 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 54 45 4d 50 20 52 45 54 55 52 4e 20 43 4f 44 45 00 7f 01 08 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 7f 01 34 ┆ PDWFD01 EQU * ( PDWTRCW EQU *-DWFD01 TEMP RETURN CODE P DATA 0 4┆
0xc5e0…c630 00 1a 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 44 57 54 20 53 54 41 54 55 53 00 7f 01 44 00 18 00 50 5c 44 41 54 41 5c 30 5c 45 43 42 20 41 44 44 52 45 53 53 20 00 7f 01 62 00 12 00 50 5c 44 41 54 41 5c 30 5c 4f 52 44 45 52 20 00 7f 01 7e ┆ P DATA /8000 DWT STATUS D P DATA 0 ECB ADDRESS b P DATA 0 ORDER ~┆
0xc630…c680 (128, 0, 400) 00 22 00 50 5c 44 41 54 41 5c 46 44 41 44 52 5c 41 43 54 49 56 41 54 49 4f 4e 20 41 44 44 52 45 53 53 00 80 00 04 00 18 00 50 5c 44 41 54 41 5c 30 5c 54 54 41 42 2d 41 44 44 52 45 53 53 00 80 00 2a 00 24 00 50 5c 44 41 54 41 5c 30 5c 57 41 ┆ " P DATA FDADR ACTIVATION ADDRESS P DATA 0 TTAB-ADDRESS * $ P DATA 0 WA┆
0xc680…c6d0 49 54 2f 41 43 54 49 56 41 54 45 20 49 4e 44 49 43 41 54 4f 52 20 00 80 00 46 00 1a 00 50 5c 44 41 54 41 5c 30 5c 54 45 52 4d 49 4e 41 4c 20 51 55 45 55 45 00 80 00 6e 00 06 00 50 2a 20 00 80 00 8c 00 12 00 0d 5c 49 46 54 5c 4d 4d 55 50 41 ┆IT/ACTIVATE INDICATOR F P DATA 0 TERMINAL QUEUE n P* IFT MMUPA┆
0xc6d0…c720 47 3d 31 20 00 80 00 96 00 26 00 22 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 55 53 45 52 20 45 43 42 20 41 44 44 52 45 53 53 00 80 00 ac 00 20 00 1c 5c 44 41 54 41 5c 44 45 56 45 43 42 5c 4d 4d 55 20 45 43 42 20 41 44 44 52 45 ┆G=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRE┆
0xc720…c770 53 53 00 80 00 d6 00 08 00 04 5c 58 49 46 00 80 00 fa 00 06 00 50 2a 20 00 80 01 06 00 16 00 50 44 57 54 41 33 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 00 80 01 10 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 80 01 2a 00 16 00 50 5c 44 41 54 41 5c ┆SS XIF P* PDWTA3 EQU *-DWFD01 P DATA 0 * P DATA ┆
0xc770…c7c0 30 5c 53 41 56 45 20 41 52 45 41 20 00 80 01 3a 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 80 01 54 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 80 01 64 00 22 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 5c 53 54 41 43 4b 20 28 33 20 4c 45 56 45 4c ┆0 SAVE AREA : P DATA 0 T P DATA 0 d " P DATA 0,0,0,0 STACK (3 LEVEL┆
0xc7c0…c810 (129, 0, 400) 53 29 00 80 01 74 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4f 52 44 45 52 20 53 41 56 45 20 41 52 45 41 20 00 81 00 0a 00 06 00 50 2a 20 00 81 00 2a 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 81 00 34 00 06 00 50 2a 20 00 81 ┆S) t P DATA 0 ORDER SAVE AREA P* * P EJECT DRFD01 4 P* ┆
0xc810…c860 00 4c 00 06 00 50 2a 20 00 81 00 56 00 14 00 50 5c 49 46 46 5c 54 4f 53 53 2b 49 42 4d 3d 30 20 00 81 00 60 00 20 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 4e 56 4c 20 49 4e 44 49 43 41 54 4f 52 20 30 20 00 81 00 78 00 20 00 50 5c 44 41 54 ┆ L P* V P IFF TOSS+IBM=0 ` P DATA /8000 NVL INDICATOR 0 x P DAT┆
0xc860…c8b0 41 5c 2f 38 30 30 30 5c 4e 56 4c 20 49 4e 44 49 43 41 54 4f 52 20 31 20 00 81 00 9c 00 20 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 4e 56 4c 20 49 4e 44 49 43 41 54 4f 52 20 32 20 00 81 00 c0 00 20 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c ┆A /8000 NVL INDICATOR 1 P DATA /8000 NVL INDICATOR 2 P DATA /8000 ┆
0xc8b0…c900 4e 56 4c 20 49 4e 44 49 43 41 54 4f 52 20 33 20 00 81 00 e4 00 28 00 50 44 57 54 56 4f 30 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 4e 4f 20 30 00 81 01 08 00 1c 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 2c ┆NVL INDICATOR 3 ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 P DATA /FFFF,┆
0xc900…c950 2f 46 46 46 46 2c 2f 46 46 46 46 20 00 81 01 34 00 28 00 50 44 57 54 56 4f 31 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 4e 4f 20 31 00 81 01 54 00 1c 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 2c 2f 46 46 46 ┆/FFFF,/FFFF 4 ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 T P DATA /FFFF,/FFF┆
0xc950…c9a0 (130, 0, 400) 46 2c 2f 46 46 46 46 20 00 81 01 80 00 28 00 50 44 57 54 56 4f 32 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 4e 4f 20 32 00 82 00 10 00 1c 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 2c 2f 46 46 46 46 2c 2f 46 ┆F,/FFFF ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 P DATA /FFFF,/FFFF,/F┆
0xc9a0…c9f0 46 46 46 20 00 82 00 3c 00 28 00 50 44 57 54 56 4f 33 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 4e 4f 20 33 00 82 00 5c 00 1c 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 2c 2f 46 46 46 46 2c 2f 46 46 46 46 20 ┆FFF < ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 P DATA /FFFF,/FFFF,/FFFF ┆
0xc9f0…ca40 00 82 00 88 00 28 00 50 44 57 54 53 54 32 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 53 41 56 45 20 53 54 41 54 55 53 20 57 4f 52 44 00 82 00 a8 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 82 00 d4 00 08 00 50 5c 58 49 46 00 82 00 e4 00 16 00 50 ┆ ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD P DATA 0 P XIF P┆
0xca40…ca90 44 57 54 41 35 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 00 82 00 f0 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 82 01 0a 00 2a 00 50 44 57 54 52 54 59 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 52 45 54 52 59 20 52 45 51 55 45 53 54 20 46 4c 41 47 ┆DWTA5 EQU *-DWFD01 P DATA 0 * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG┆
0xca90…cae0 00 82 01 1a 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 82 01 48 00 24 00 50 44 57 54 54 50 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 00 82 01 58 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 82 01 80 00 06 00 50 ┆ P DATA 0 H $ PDWTTP EQU *-DWFD01 TIMER POINTER X P DATA 0 P┆
0xcae0…cb30 (131, 0, 400) 2a 20 00 82 01 90 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 83 00 0a 00 06 00 50 2a 20 00 83 00 22 00 06 00 50 2a 20 00 83 00 2c 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 83 00 36 00 2c 00 50 44 57 54 4c 41 42 5c 45 ┆* P EJECT DRFD01 P* " P* , P IFT IBM=1 6 , PDWTLAB E┆
0xcb30…cb80 51 55 5c 2a 2d 44 57 46 44 30 31 5c 44 49 53 43 20 4c 41 42 45 4c 20 49 4e 44 49 43 41 54 4f 52 00 83 00 48 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 83 00 78 00 08 00 50 5c 58 49 46 00 83 00 88 00 06 00 50 2a 20 00 83 00 94 00 2c 00 50 44 57 ┆QU *-DWFD01 DISC LABEL INDICATOR H P DATA 0 x P XIF P* , PDW┆
0xcb80…cbd0 54 4c 43 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 44 52 49 56 45 20 4c 4f 43 4b 20 49 4e 44 49 43 41 54 4f 52 20 00 83 00 9e 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 83 00 ce 00 06 00 50 2a 20 00 83 00 de 00 12 00 50 5c 49 46 54 5c 4f 50 43 ┆TLC EQU *-DWFD01 DRIVE LOCK INDICATOR P DATA 0 P* P IFT OPC┆
0xcbd0…cc20 4c 4f 53 3d 31 20 00 83 00 e8 00 2e 00 50 44 57 54 54 50 32 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 46 4f 52 20 4f 50 45 4e 00 83 00 fe 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 83 01 30 00 34 00 50 ┆LOS=1 . PDWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN P DATA 0 0 4 P┆
0xcc20…cc70 44 57 54 4f 43 46 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 4f 50 45 4e 2f 43 4c 4f 53 45 20 46 4c 41 47 20 41 54 20 50 4f 57 45 52 20 4f 4e 20 00 83 01 40 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 83 01 78 00 08 00 50 5c 58 49 46 00 83 01 88 ┆DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON @ P DATA 0 x P XIF ┆
0xcc70…ccc0 (132, 0, 400) 00 06 00 50 2a 20 00 84 00 04 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 84 00 0e 00 06 00 50 2a 20 00 84 00 26 00 06 00 50 2a 20 00 84 00 30 00 10 00 50 5c 49 46 54 5c 43 48 41 4e 3d 31 20 00 84 00 3a 00 36 00 50 44 57 ┆ P* P EJECT DRFD01 P* & P* 0 P IFT CHAN=1 : 6 PDW┆
0xccc0…cd10 54 55 42 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 50 4f 49 4e 54 45 52 20 41 54 20 4e 45 58 54 20 57 4f 52 44 20 49 4e 20 42 55 46 46 45 52 20 00 84 00 4e 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 84 00 88 00 2c 00 50 44 57 54 55 42 45 5c 45 ┆TUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER N P DATA 0 , PDWTUBE E┆
0xcd10…cd60 51 55 5c 2a 2d 44 57 46 44 30 31 5c 42 55 46 46 45 52 20 45 4e 44 20 41 44 44 52 45 53 53 2b 32 00 84 00 98 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 84 00 c8 00 2c 00 50 44 57 54 52 57 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 52 45 41 44 2f ┆QU *-DWFD01 BUFFER END ADDRESS+2 P DATA 0 , PDWTRW EQU *-DWFD01 READ/┆
0xcd60…cdb0 57 52 49 54 45 20 49 4e 44 49 43 41 54 4f 52 20 00 84 00 d8 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 84 01 08 00 08 00 50 5c 58 49 46 00 84 01 18 00 06 00 50 2a 20 00 84 01 24 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 84 01 2e 00 2c 00 50 ┆WRITE INDICATOR P DATA 0 P XIF P* $ P IFT IBM=1 . , P┆
0xcdb0…ce00 44 57 54 42 4f 45 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 42 45 47 49 4e 4e 49 4e 47 20 4f 46 20 45 58 54 45 4e 54 20 00 84 01 40 00 12 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 20 00 84 01 70 00 24 00 50 44 57 54 45 4f 44 5c 45 51 55 ┆DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT @ P DATA 0,0,0,0 p $ PDWTEOD EQU┆