|
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: 52550 (0xcd46)
Notes: pts_type(SC)
Names: »DRFD02.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRFD02.SC«
IDENT DRFD02 REL 11.0 81-08-24 870105041100 =5, REL 11.0 81-02-27 =5, DON'T HANDLE READY INTERRUPT =5, UNTIL TIMEOUT ROUTINE IS READY =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 * LD A5,DWTTP,A6 =5 RB(NZ) F:DISP TIMER SET =5 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 * NOT OPERABLE =5 LDK A1,6 NBR OF BYTES TO CLEAR =5 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-08-24 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=» =5, REL 11.0 81-02-27«, t00=0x0000, t01=0x0042}
0x005e…008a Head {h00=0x0028, h01=0x0050, text=» =5, DON'T HANDLE READY INTERRUPT «, t00=0x0000, t01=0x0062}
0x008a…00b8 Head {h00=0x002a, h01=0x0050, text=» =5, UNTIL TIMEOUT ROUTINE IS READY «, t00=0x0000, t01=0x008e}
0x00b8…00d8 Head {h00=0x001c, h01=0x0050, text=» =4, REL 11.0 81-02-18«, t00=0x0000, t01=0x00bc}
0x00d8…0108 Head {h00=0x002c, h01=0x0050, text=» =4, CRN UPDATED FOR SEQ READ IF ERROR«, t00=0x0000, t01=0x00dc}
0x0108…0128 Head {h00=0x001c, h01=0x0050, text=» =3, REL 11.0 81-01-27«, t00=0x0000, t01=0x010c}
0x0128…014e Head {h00=0x0022, h01=0x0050, text=» =3, DATA SET NBR IN ECBCW1 «, t00=0x0000, t01=0x012c}
0x014e…016e Head {h00=0x001c, h01=0x0050, text=» =2, REL 11.0 81-01-26«, t00=0x0000, t01=0x0152}
0x016e…0196 Head {h00=0x0024, h01=0x0050, text=» =2, NOT OP. IF WRONG CH. UNIT«, t00=0x0000, t01=0x0172}
0x0196…01da Head {h00=0x0040, h01=0x0050, text=» =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY AND«, t00=0x0001, t01=0x000a}
0x01da…01fc Head {h00=0x001e, h01=0x0050, text=» =1, NOT IBM NOT WORKING«, t00=0x0001, t01=0x004e}
0x01fc…0206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0070}
0x0206…023c Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0001, t01=0x007a}
0x023c…0246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b0}
0x0246…026c Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0001, t01=0x00ba}
0x026c…0276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e0}
0x0276…02a2 Head {h00=0x0028, h01=0x0050, text=»* DRFD02 = DRIVER FOR FLEXIBLE DISK«, t00=0x0001, t01=0x00ea}
0x02a2…02ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0116}
0x02ac…02b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0120}
0x02b6…02c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012a}
0x02c0…02ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x02ca…02d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d4…02de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0148}
0x02de…0314 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x0152}
0x0314…031e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0188}
0x031e…0328 (2, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x0328…035c Head {h00=0x0030, h01=0x0050, text=»* THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0002, t01=0x000e}
0x035c…0398 Head {h00=0x0038, h01=0x0050, text=»* CHAINED FLEXIBLE DISK DRIVES PTS 6879 OR PTS 6791«, t00=0x0002, t01=0x0042}
0x0398…03d0 Head {h00=0x0034, h01=0x0050, text=»* CONNECTED TO CPU VIA CHANNEL UNIT F1MZ/B ON«, t00=0x0002, t01=0x007e}
0x03d0…03ec Head {h00=0x0018, h01=0x0050, text=»* MULTIPLEX CHANNEL«, t00=0x0002, t01=0x00b6}
0x03ec…03f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d2}
0x03f6…0400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00dc}
0x0400…0418 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0002, t01=0x00e6}
0x0418…0422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fe}
0x0422…0434 Head {h00=0x000e, h01=0x0050, text=»* ORDERS:«, t00=0x0002, t01=0x0108}
0x0434…043e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x011a}
0x043e…045a Head {h00=0x0018, h01=0x0050, text=»* /00 TEST STATUS«, t00=0x0002, t01=0x0124}
0x045a…0478 Head {h00=0x001a, h01=0x0050, text=»* /01 PHYSICAL READ«, t00=0x0002, t01=0x0140}
0x0478…04be Head {h00=0x0042, h01=0x0050, text=»* /02 SEQUENTIAL READ -IBM DISC ONLY-«, t00=0x0002, t01=0x015e}
0x04be…04da Head {h00=0x0018, h01=0x0050, text=»* /05 BASIC WRITE«, t00=0x0003, t01=0x0014}
0x04da…0522 Head {h00=0x0044, h01=0x0050, text=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- «, t00=0x0003, t01=0x0030}
0x0522…0540 Head {h00=0x001a, h01=0x0050, text=»* /11 PHYSICAL READ«, t00=0x0003, t01=0x0078}
0x0540…0560 Head {h00=0x001c, h01=0x0050, text=»* /15 PHYSICAL WRITE «, t00=0x0003, t01=0x0096}
0x0560…057c Head {h00=0x0018, h01=0x0050, text=»* /1F FORMAT VOLUME«, t00=0x0003, t01=0x00b6}
0x057c…05a0 Head {h00=0x0020, h01=0x0050, text=»* /24 WRITE DELETED DATA «, t00=0x0003, t01=0x00d2}
0x05a0…05b6 Head {h00=0x0012, h01=0x0050, text=»* /26 LOCK «, t00=0x0003, t01=0x00f6}
0x05b6…05fe Head {h00=0x0044, h01=0x0050, text=»* /31 REWIND -IBM DISC ONLY- «, t00=0x0003, t01=0x010c}
0x05fe…0614 Head {h00=0x0012, h01=0x0050, text=»* /37 LOAD «, t00=0x0003, t01=0x0154}
0x0614…062c Head {h00=0x0014, h01=0x0050, text=»* /38 UNLOAD «, t00=0x0003, t01=0x016a}
0x062c…0636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0182}
0x0636…0652 Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS:«, t00=0x0003, t01=0x018c}
0x0652…065c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0018}
0x065c…0678 Head {h00=0x0018, h01=0x0050, text=»* A5 STACK BASE «, t00=0x0004, t01=0x0022}
0x0678…0694 Head {h00=0x0018, h01=0x0050, text=»* A6 DWT-ADDRESS«, t00=0x0004, t01=0x003e}
0x0694…06aa Head {h00=0x0012, h01=0x0050, text=»* A7 ORDER«, t00=0x0004, t01=0x005a}
0x06aa…06c6 Head {h00=0x0018, h01=0x0050, text=»* A8 ECB-ADDRESS«, t00=0x0004, t01=0x0070}
0x06c6…06de Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0004, t01=0x008c}
0x06de…06e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a4}
0x06e8…06fc Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0004, t01=0x00ae}
0x06fc…0710 Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0004, t01=0x00c2}
0x0710…0724 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0004, t01=0x00d6}
0x0724…0738 Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0004, t01=0x00ea}
0x0738…074c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0004, t01=0x00fe}
0x074c…0756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0112}
0x0756…077e Head {h00=0x0024, h01=0x0050, text=» ENTRY FDADR ACTIVATION ADDRESS«, t00=0x0004, t01=0x011c}
0x077e…07a4 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0004, t01=0x0144}
0x07a4…07c8 Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0004, t01=0x016a}
0x07c8…07ea Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0004, t01=0x018e}
0x07ea…0802 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0005, t01=0x0020}
0x0802…080c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0038}
0x080c…0822 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0042}
0x0822…0838 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0005, t01=0x0058}
0x0838…084e Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x006e}
0x084e…0864 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0005, t01=0x0084}
0x0864…087a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x009a}
0x087a…0884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b0}
0x0884…08b6 Head {h00=0x002e, h01=0x0050, text=» EXTRN INXDWT INDEXED DISPLACEMENT IN DWT «, t00=0x0005, t01=0x00ba}
0x08b6…08d6 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0005, t01=0x00ec}
0x08d6…08f2 Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0005, t01=0x010c}
0x08f2…0916 Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0005, t01=0x0128}
0x0916…0944 Head {h00=0x002a, h01=0x0050, text=» EXTRN DISEND PERFORM TENDIO AND TDISP«, t00=0x0005, t01=0x014c}
0x0944…096c Head {h00=0x0024, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAME «, t00=0x0005, t01=0x017a}
0x096c…0996 Head {h00=0x0026, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME ADDRESS «, t00=0x0006, t01=0x0012}
0x0996…09ca Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL«, t00=0x0006, t01=0x003c}
0x09ca…09fc Head {h00=0x002e, h01=0x0050, text=» EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED «, t00=0x0006, t01=0x0070}
0x09fc…0a18 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0006, t01=0x00a2}
0x0a18…0a3a Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0006, t01=0x00be}
0x0a3a…0a62 Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0006, t01=0x00e0}
0x0a62…0a8e Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTORD ORDER/INDEX SAVE AREA «, t00=0x0006, t01=0x0108}
0x0a8e…0ab8 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0006, t01=0x0134}
0x0ab8…0ae4 Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0006, t01=0x015e}
0x0ae4…0b00 Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0006, t01=0x018a}
0x0b00…0b2a Head {h00=0x0026, h01=0x0050, text=» EXTRN PFPOST PWF POST PROC. FLAG «, t00=0x0007, t01=0x0016}
0x0b2a…0b54 Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0007, t01=0x0040}
0x0b54…0b7e Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0007, t01=0x006a}
0x0b7e…0ba6 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0007, t01=0x0094}
0x0ba6…0bd0 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0007, t01=0x00bc}
0x0bd0…0bfa Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0007, t01=0x00e6}
0x0bfa…0c22 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW1 ECB CONTROL WORD 1«, t00=0x0007, t01=0x0110}
0x0c22…0c4a Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW2 ECB CONTROL WORD 2«, t00=0x0007, t01=0x0138}
0x0c4a…0c62 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0007, t01=0x0160}
0x0c62…0c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0178}
0x0c6c…0c8c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x0182}
0x0c8c…0cac Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x0012}
0x0cac…0ccc Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0008, t01=0x0032}
0x0ccc…0cec Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0008, t01=0x0052}
0x0cec…0d0c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0072}
0x0d0c…0d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0092}
0x0d16…0d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009c}
0x0d20…0d56 Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0008, t01=0x00a6}
0x0d56…0d82 Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0008, t01=0x00dc}
0x0d82…0d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0108}
0x0d8c…0d9e Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0008, t01=0x0112}
0x0d9e…0db2 Head {h00=0x0010, h01=0x0050, text=»TOSS EQU X:A«, t00=0x0008, t01=0x0124}
0x0db2…0dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0138}
0x0dbc…0df2 Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x0008, t01=0x0142}
0x0df2…0e1e Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x0008, t01=0x0178}
0x0e1e…0e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0014}
0x0e28…0e3a Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0009, t01=0x001e}
0x0e3a…0e4e Head {h00=0x0010, h01=0x0050, text=»IBM EQU X:B «, t00=0x0009, t01=0x0030}
0x0e4e…0e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0044}
0x0e58…0e9a Head {h00=0x003e, h01=0x0050, text=»* A PROGRAM VERSION LEAVING OUT THE CODE CONVERSION«, t00=0x0009, t01=0x004e}
0x0e9a…0edc Head {h00=0x003e, h01=0x0050, text=»* ASCII-EBCDIC IS OBTAINED BY SETTING ASCEBC EQU 0 «, t00=0x0009, t01=0x0090}
0x0edc…0ee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d2}
0x0ee6…0ef8 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x0009, t01=0x00dc}
0x0ef8…0f0e Head {h00=0x0012, h01=0x0050, text=»ASCEBC EQU X:C«, t00=0x0009, t01=0x00ee}
0x0f0e…0f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0104}
0x0f18…0f4a Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0009, t01=0x010e}
0x0f4a…0f78 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0009, t01=0x0140}
0x0f78…0f82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x016e}
0x0f82…0f96 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0009, t01=0x0178}
0x0f96…0fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x018c}
0x0fa0…0fb6 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x000a, t01=0x0008}
0x0fb6…0fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x001e}
0x0fc0…0fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0028}
0x0fca…0fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0032}
0x0fd4…100e Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000a, t01=0x003c}
0x100e…1040 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000a, t01=0x0076}
0x1040…104a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a8}
0x104a…105e Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000a, t01=0x00b2}
0x105e…1068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c6}
0x1068…1072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d0}
0x1072…109e Head {h00=0x0028, h01=0x0050, text=»* ANTI ASCEBC CONDITIONAL ASSEMBLY«, t00=0x000a, t01=0x00da}
0x109e…10a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0106}
0x10a8…10be Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=1 «, t00=0x000a, t01=0x0110}
0x10be…10d2 Head {h00=0x0010, h01=0x0050, text=»EBCASC EQU 0«, t00=0x000a, t01=0x0126}
0x10d2…10de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x013a}
0x10de…10f4 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=0 «, t00=0x000a, t01=0x0146}
0x10f4…1108 Head {h00=0x0010, h01=0x0050, text=»EBCASC EQU 1«, t00=0x000a, t01=0x015c}
0x1108…1114 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0170}
0x1114…111e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017c}
0x111e…1136 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x000a, t01=0x0186}
0x1136…1140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000e}
0x1140…1156 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0018}
0x1156…116c Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x000b, t01=0x002e}
0x116c…1182 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x0044}
0x1182…1198 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x000b, t01=0x005a}
0x1198…11ae Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0070}
0x11ae…11b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0086}
0x11b8…11da Head {h00=0x001e, h01=0x0050, text=»DEVIND EQU 10 DEVICE INDEX«, t00=0x000b, t01=0x0090}
0x11da…1204 Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000b, t01=0x00b2}
0x1204…122e Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000b, t01=0x00dc}
0x122e…125a Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000b, t01=0x0106}
0x125a…1284 Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000b, t01=0x0132}
0x1284…12ac Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000b, t01=0x015c}
0x12ac…12d0 Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000b, t01=0x0184}
0x12d0…12da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0018}
0x12da…12e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0022}
0x12e4…12f6 Head {h00=0x000e, h01=0x0050, text=»* ORDERS«, t00=0x000c, t01=0x002c}
0x12f6…1300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003e}
0x1300…1320 Head {h00=0x001c, h01=0x0050, text=»OR:TES EQU 0 TEST STATUS«, t00=0x000c, t01=0x0048}
0x1320…1342 Head {h00=0x001e, h01=0x0050, text=»OR:BAR EQU /01 BASIC READ «, t00=0x000c, t01=0x0068}
0x1342…1368 Head {h00=0x0022, h01=0x0050, text=»OR:SER EQU /02 SEQUENTIAL READ«, t00=0x000c, t01=0x008a}
0x1368…138a Head {h00=0x001e, h01=0x0050, text=»OR:BAW EQU /05 BASIC WRITE«, t00=0x000c, t01=0x00b0}
0x138a…13b2 Head {h00=0x0024, h01=0x0050, text=»OR:SEW EQU /06 SEQUENTIAL WRITE «, t00=0x000c, t01=0x00d2}
0x13b2…13d6 Head {h00=0x0020, h01=0x0050, text=»OR:PHR EQU /11 PHYSICAL READ«, t00=0x000c, t01=0x00fa}
0x13d6…13fc Head {h00=0x0022, h01=0x0050, text=»OR:PHW EQU /15 PHYSICAL WRITE «, t00=0x000c, t01=0x011e}
0x13fc…1420 Head {h00=0x0020, h01=0x0050, text=»OR:FOV EQU /1F FORMAT VOLUME«, t00=0x000c, t01=0x0144}
0x1420…144a Head {h00=0x0026, h01=0x0050, text=»OR:DDW EQU /24 WRITE DELETED DATA «, t00=0x000c, t01=0x0168}
0x144a…1466 (13, 0, 398) Head {h00=0x0018, h01=0x0050, text=»OR:LCK EQU /26 LOCK «, t00=0x000d, t01=0x0004}
0x1466…1484 Head {h00=0x001a, h01=0x0050, text=»OR:REW EQU /31 REWIND «, t00=0x000d, t01=0x0020}
0x1484…14a0 Head {h00=0x0018, h01=0x0050, text=»OR:LOD EQU /37 LOAD «, t00=0x000d, t01=0x003e}
0x14a0…14be Head {h00=0x001a, h01=0x0050, text=»OR:ULD EQU /38 UNLOAD «, t00=0x000d, t01=0x005a}
0x14be…14c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0078}
0x14c8…14de Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x000d, t01=0x0082}
0x14de…14e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0098}
0x14e8…14f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a2}
0x14f2…150a Head {h00=0x0014, h01=0x0050, text=»* RETURN CODES«, t00=0x000d, t01=0x00ac}
0x150a…1514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c4}
0x1514…151e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ce}
0x151e…1548 Head {h00=0x0026, h01=0x0050, text=»RC:RET EQU /100 RETRIES PERFORMED «, t00=0x000d, t01=0x00d8}
0x1548…1568 Head {h00=0x001c, h01=0x0050, text=»RC:NOD EQU /804 NO DATA «, t00=0x000d, t01=0x0102}
0x1568…158a Head {h00=0x001e, h01=0x0050, text=»RC:NOP EQU 1 NOT OPERABLE «, t00=0x000d, t01=0x0122}
0x158a…15b2 Head {h00=0x0024, h01=0x0050, text=»RC:ILE EQU /8008 ILLEGAL LENGTH «, t00=0x000d, t01=0x0144}
0x15b2…15d8 Head {h00=0x0022, h01=0x0050, text=»RC:REQ EQU /8000 REQUEST ERROR«, t00=0x000d, t01=0x016c}
0x15d8…15f8 (14, 0, 400) Head {h00=0x001c, h01=0x0050, text=»RC:IBM EQU /400 IBM DISC«, t00=0x000e, t01=0x0004}
0x15f8…161c Head {h00=0x0020, h01=0x0050, text=»RC:EOD EQU /1000 END OF DATA«, t00=0x000e, t01=0x0024}
0x161c…1642 Head {h00=0x0022, h01=0x0050, text=»RC:EOE EQU /2000 END OF EXTENT«, t00=0x000e, t01=0x0048}
0x1642…166a Head {h00=0x0024, h01=0x0050, text=»RC:WRP EQU /240 WRITE PROTECTED «, t00=0x000e, t01=0x006e}
0x166a…1688 Head {h00=0x001a, h01=0x0050, text=»RC:FOR EQU /800 FORMAT«, t00=0x000e, t01=0x0096}
0x1688…16b6 Head {h00=0x002a, h01=0x0050, text=»RC:IDS EQU /10 ILLEGAL DATA SET LABEL «, t00=0x000e, t01=0x00b4}
0x16b6…16ee Head {h00=0x0034, h01=0x0050, text=»MS:128 EQU 2002 MAX SECTOR NUMBER FORMAT (128-1)«, t00=0x000e, t01=0x00e2}
0x16ee…1728 Head {h00=0x0036, h01=0x0050, text=»MS:256 EQU 4004 MAX SECTOR NUMBER FORMAT (256-2D) «, t00=0x000e, t01=0x011a}
0x1728…1754 Head {h00=0x0028, h01=0x0050, text=»IN:WE1 EQU /8080 1ST WER INSTRUCTION«, t00=0x000e, t01=0x0154}
0x1754…177c Head {h00=0x0024, h01=0x0050, text=»IN:LCK EQU /4 LOCK BIT INDICATOR«, t00=0x000e, t01=0x0180}
0x177c…17a4 Head {h00=0x0024, h01=0x0050, text=»IN:ULC EQU /FB UNLOCK INDICATOR «, t00=0x000f, t01=0x0018}
0x17a4…17c8 Head {h00=0x0020, h01=0x0050, text=»IN:IBM EQU /1 IBM INDICATOR «, t00=0x000f, t01=0x0040}
0x17c8…17ee Head {h00=0x0022, h01=0x0050, text=»IN:TOS EQU /FE TOSS INDICATOR «, t00=0x000f, t01=0x0064}
0x17ee…1816 Head {h00=0x0024, h01=0x0050, text=»EBC:VO EQU /E5D6 EBCDIC FOR 'VO'«, t00=0x000f, t01=0x008a}
0x1816…183e Head {h00=0x0024, h01=0x0050, text=»EBC:L1 EQU /D3F1 EBCDIC FOR 'L1'«, t00=0x000f, t01=0x00b2}
0x183e…1856 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x000f, t01=0x00da}
0x1856…1860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f2}
0x1860…1872 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x00fc}
0x1872…1884 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x000f, t01=0x010e}
0x1884…1896 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000f, t01=0x0120}
0x1896…18a8 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0132}
0x18a8…18ba Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x0144}
0x18ba…18c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0156}
0x18c4…18d4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000f, t01=0x0160}
0x18d4…18f6 Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000f, t01=0x0170}
0x18f6…1920 (16, 0, 398) Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x0010, t01=0x0004}
0x1920…1946 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0010, t01=0x002e}
0x1946…1950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0054}
0x1950…1968 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0010, t01=0x005e}
0x1968…1972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0076}
0x1972…1984 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x0080}
0x1984…1996 Head {h00=0x000e, h01=0x0050, text=»* TESTST *«, t00=0x0010, t01=0x0092}
0x1996…19a8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x00a4}
0x19a8…19b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b6}
0x19b2…19d0 Head {h00=0x001a, h01=0x0050, text=»* TEST STATUS ORDER «, t00=0x0010, t01=0x00c0}
0x19d0…19da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00de}
0x19da…19e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e8}
0x19e4…19f8 Head {h00=0x0010, h01=0x0050, text=»TESTST EQU *«, t00=0x0010, t01=0x00f2}
0x19f8…1a0e Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x0010, t01=0x0106}
0x1a0e…1a34 Head {h00=0x0022, h01=0x0050, text=» ORS A1,DWTRC,A6 NVL INDICATOR«, t00=0x0010, t01=0x011c}
0x1a34…1a58 Head {h00=0x0020, h01=0x0050, text=» CM DWTSEC,A6 READ SECTOR 0 «, t00=0x0010, t01=0x0142}
0x1a58…1a88 Head {h00=0x002c, h01=0x0050, text=» CF A5,REAPRB PREPARE FOR READ TO BUFFER«, t00=0x0010, t01=0x0166}
0x1a88…1aa2 Head {h00=0x0016, h01=0x0050, text=» CF A5,CIOI00 READ«, t00=0x0011, t01=0x0008}
0x1aa2…1ad4 Head {h00=0x002e, h01=0x0050, text=» CF A5,WRIPRE PREPARE CIO WRITE TO BUFFER «, t00=0x0011, t01=0x0022}
0x1ad4…1aea Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOI00 «, t00=0x0011, t01=0x0054}
0x1aea…1b00 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/200 «, t00=0x0011, t01=0x006a}
0x1b00…1b28 Head {h00=0x0024, h01=0x0050, text=» ORS A1,DWTRC,A6 WRITE PROTECTED«, t00=0x0011, t01=0x0080}
0x1b28…1b50 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/80 INDICATE TEST STATUS«, t00=0x0011, t01=0x00a8}
0x1b50…1b68 Head {h00=0x0014, h01=0x0050, text=» SC A1,DWT:FC,A6«, t00=0x0011, t01=0x00d0}
0x1b68…1b98 Head {h00=0x002c, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME AND STATUS«, t00=0x0011, t01=0x00e8}
0x1b98…1bbe Head {h00=0x0022, h01=0x0050, text=» ORS A1,DWTRC,A6 FORMAT TO RC «, t00=0x0011, t01=0x0118}
0x1bbe…1bd0 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/7«, t00=0x0011, t01=0x013e}
0x1bd0…1bec Head {h00=0x0018, h01=0x0050, text=» RF(NZ) TEST50 ERROR«, t00=0x0011, t01=0x0150}
0x1bec…1c26 Head {h00=0x0036, h01=0x0050, text=» CF A15,VOLNAM VOLUME NAME TO BUFFER IF REQUESTED «, t00=0x0011, t01=0x016c}
0x1c26…1c4a Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0012, t01=0x0016}
0x1c4a…1c5e Head {h00=0x0010, h01=0x0050, text=»TEST50 EQU *«, t00=0x0012, t01=0x003a}
0x1c5e…1c7e Head {h00=0x001c, h01=0x0050, text=» ABL END:IO END REQUEST «, t00=0x0012, t01=0x004e}
0x1c7e…1c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x006e}
0x1c88…1ca0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0012, t01=0x0078}
0x1ca0…1caa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0090}
0x1caa…1cc0 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0012, t01=0x009a}
0x1cc0…1cd6 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00b0}
0x1cd6…1cec Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x0012, t01=0x00c6}
0x1cec…1d02 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00dc}
0x1d02…1d18 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0012, t01=0x00f2}
0x1d18…1d22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0108}
0x1d22…1d46 Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x0012, t01=0x0112}
0x1d46…1d70 Head {h00=0x0026, h01=0x0050, text=» CM DWTRC,A6 CLEAR RC ACCUMELATOR «, t00=0x0012, t01=0x0136}
0x1d70…1da6 Head {h00=0x0032, h01=0x0050, text=» CF A5,GETPAR GET DEVICE DEPENDENT PARAMETERS «, t00=0x0012, t01=0x0160}
0x1da6…1dbc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x0008}
0x1dbc…1ddc Head {h00=0x001c, h01=0x0050, text=» MLR 2,A8 BUFFER ADDRESS«, t00=0x0013, t01=0x001e}
0x1ddc…1dee Head {h00=0x000e, h01=0x0050, text=» SLC A1,4 «, t00=0x0013, t01=0x003e}
0x1dee…1e00 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/3«, t00=0x0013, t01=0x0050}
0x1e00…1e1c Head {h00=0x0018, h01=0x0050, text=» SRL A2,1 WORD MODE «, t00=0x0013, t01=0x0062}
0x1e1c…1e48 Head {h00=0x0028, h01=0x0050, text=» MS 2,DWTBA,A6 18 BIT BUFFER ADDRESS«, t00=0x0013, t01=0x007e}
0x1e48…1e54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00aa}
0x1e54…1e6a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x00b6}
0x1e6a…1e90 Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADDRESS«, t00=0x0013, t01=0x00cc}
0x1e90…1ea8 Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTBA,A6 «, t00=0x0013, t01=0x00f2}
0x1ea8…1eb4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x010a}
0x1eb4…1ee0 Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTOR,A6 SAVE INDEX AND ORDER«, t00=0x0013, t01=0x0116}
0x1ee0…1ef8 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTORD,A6«, t00=0x0013, t01=0x0142}
0x1ef8…1f28 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,IN:WE1-/80 1ST WER INSTRUCTION «, t00=0x0013, t01=0x015a}
0x1f28…1f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018a}
0x1f32…1f48 (20, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0014, t01=0x0004}
0x1f48…1f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001a}
0x1f52…1f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0024}
0x1f5c…1f74 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A7 ORDER«, t00=0x0014, t01=0x002e}
0x1f74…1f96 Head {h00=0x001e, h01=0x0050, text=» RB(Z) TESTST TEST STATUS «, t00=0x0014, t01=0x0046}
0x1f96…1faa Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0014, t01=0x0068}
0x1faa…1fbc Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0014, t01=0x007c}
0x1fbc…1fda Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:BAR-OR:TES «, t00=0x0014, t01=0x008e}
0x1fda…1ff8 Head {h00=0x001a, h01=0x0050, text=» RF(Z) READ BASIC READ«, t00=0x0014, t01=0x00ac}
0x1ff8…2016 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:BAW-OR:BAR «, t00=0x0014, t01=0x00ca}
0x2016…2036 Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRITE BASIC WRITE«, t00=0x0014, t01=0x00e8}
0x2036…2054 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:PHR-OR:BAW «, t00=0x0014, t01=0x0108}
0x2054…2076 Head {h00=0x001e, h01=0x0050, text=» RF(Z) READ PHYSICAL READ «, t00=0x0014, t01=0x0126}
0x2076…2094 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:PHW-OR:PHR «, t00=0x0014, t01=0x0148}
0x2094…20b8 Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRITE PHYSICAL WRITE «, t00=0x0014, t01=0x0166}
0x20b8…20d6 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:FOV-OR:PHW «, t00=0x0014, t01=0x018a}
0x20d6…20fa Head {h00=0x0020, h01=0x0050, text=» ABL(Z) FORMAT FORMAT VOLUME«, t00=0x0015, t01=0x0018}
0x20fa…2118 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:DDW-OR:FOV «, t00=0x0015, t01=0x003c}
0x2118…2140 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DDWRIT WRITE DELETED DATA«, t00=0x0015, t01=0x005a}
0x2140…215e Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:LCK-OR:DDW «, t00=0x0015, t01=0x0082}
0x215e…217a Head {h00=0x0018, h01=0x0050, text=» ABL(Z) LOCKDO LOCK «, t00=0x0015, t01=0x00a0}
0x217a…2198 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:LOD-OR:LCK «, t00=0x0015, t01=0x00bc}
0x2198…21b2 Head {h00=0x0016, h01=0x0050, text=» ABL(Z) LOAD LOAD «, t00=0x0015, t01=0x00da}
0x21b2…21d0 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:ULD-OR:LOD «, t00=0x0015, t01=0x00f4}
0x21d0…21ee Head {h00=0x001a, h01=0x0050, text=» ABL(Z) UNLOAD UNLOCK «, t00=0x0015, t01=0x0112}
0x21ee…21fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0130}
0x21fa…2204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013c}
0x2204…2216 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0015, t01=0x0146}
0x2216…2234 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:BAR-OR:TES «, t00=0x0015, t01=0x0158}
0x2234…2252 Head {h00=0x001a, h01=0x0050, text=» RF(Z) READ BASIC READ«, t00=0x0015, t01=0x0176}
0x2252…2270 (22, 0, 400) Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:SER-OR:BAR «, t00=0x0016, t01=0x0004}
0x2270…2296 Head {h00=0x0022, h01=0x0050, text=» ABL(Z) SQREAD SEQUENTIAL READ«, t00=0x0016, t01=0x0022}
0x2296…22b4 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:BAW-OR:SER «, t00=0x0016, t01=0x0048}
0x22b4…22d4 Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRITE BASIC WRITE«, t00=0x0016, t01=0x0066}
0x22d4…22f2 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:SEW-OR:BAW «, t00=0x0016, t01=0x0086}
0x22f2…231a Head {h00=0x0024, h01=0x0050, text=» ABL(Z) SQWRIT SEQUENTIAL WRITE «, t00=0x0016, t01=0x00a4}
0x231a…2338 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:PHR-OR:SEW «, t00=0x0016, t01=0x00cc}
0x2338…235a Head {h00=0x001e, h01=0x0050, text=» RF(Z) READ PHYSICAL READ «, t00=0x0016, t01=0x00ea}
0x235a…2378 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:PHW-OR:PHR «, t00=0x0016, t01=0x010c}
0x2378…239c Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRITE PHYSICAL WRITE «, t00=0x0016, t01=0x012a}
0x239c…23ba Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:FOV-OR:PHW «, t00=0x0016, t01=0x014e}
0x23ba…23de Head {h00=0x0020, h01=0x0050, text=» ABL(Z) FORMAT FORMAT VOLUME«, t00=0x0016, t01=0x016c}
0x23de…23fc Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:DDW-OR:FOV «, t00=0x0016, t01=0x0190}
0x23fc…2424 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DDWRIT WRITE DELETED DATA«, t00=0x0017, t01=0x001e}
0x2424…2442 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:LCK-OR:DDW «, t00=0x0017, t01=0x0046}
0x2442…2460 Head {h00=0x001a, h01=0x0050, text=» ABL(Z) LOCKDO LOCKDO «, t00=0x0017, t01=0x0064}
0x2460…247e Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:REW-OR:LCK «, t00=0x0017, t01=0x0082}
0x247e…249c Head {h00=0x001a, h01=0x0050, text=» ABL(Z) REWIND REWIND «, t00=0x0017, t01=0x00a0}
0x249c…24ba Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:LOD-OR:REW «, t00=0x0017, t01=0x00be}
0x24ba…24d4 Head {h00=0x0016, h01=0x0050, text=» ABL(Z) LOAD LOAD «, t00=0x0017, t01=0x00dc}
0x24d4…24f2 Head {h00=0x001a, h01=0x0050, text=» SUK A3,OR:ULD-OR:LOD «, t00=0x0017, t01=0x00f6}
0x24f2…2510 Head {h00=0x001a, h01=0x0050, text=» ABL(Z) UNLOAD UNLOAD «, t00=0x0017, t01=0x0114}
0x2510…251c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0132}
0x251c…2526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x013e}
0x2526…253c Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0017, t01=0x0148}
0x253c…2546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015e}
0x2546…2550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0168}
0x2550…2564 Head {h00=0x0010, h01=0x0050, text=»REQERR EQU *«, t00=0x0017, t01=0x0172}
0x2564…2586 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x0017, t01=0x0186}
0x2586…259a Head {h00=0x0010, h01=0x0050, text=»ER:ILE EQU *«, t00=0x0018, t01=0x0018}
0x259a…25b2 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,RC:ILE «, t00=0x0018, t01=0x002c}
0x25b2…25c6 Head {h00=0x0010, h01=0x0050, text=» ABL DISEND «, t00=0x0018, t01=0x0044}
0x25c6…25d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0058}
0x25d0…25e8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0018, t01=0x0062}
0x25e8…25f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x007a}
0x25f2…25fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0084}
0x25fc…260e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0018, t01=0x008e}
0x260e…2620 Head {h00=0x000e, h01=0x0050, text=»* DDWRIT *«, t00=0x0018, t01=0x00a0}
0x2620…2632 Head {h00=0x000e, h01=0x0050, text=»* WRITE *«, t00=0x0018, t01=0x00b2}
0x2632…2644 Head {h00=0x000e, h01=0x0050, text=»* READ *«, t00=0x0018, t01=0x00c4}
0x2644…2656 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0018, t01=0x00d6}
0x2656…2660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e8}
0x2660…268e Head {h00=0x002a, h01=0x0050, text=»* WRITE DELETED DATA , WRITE AND READ«, t00=0x0018, t01=0x00f2}
0x268e…2698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0120}
0x2698…26a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x012a}
0x26a2…26b6 Head {h00=0x0010, h01=0x0050, text=»DDWRIT EQU *«, t00=0x0018, t01=0x0134}
0x26b6…26d8 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,/800 CIO REGISTER«, t00=0x0018, t01=0x0148}
0x26d8…26ec Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0018, t01=0x016a}
0x26ec…270c Head {h00=0x001c, h01=0x0050, text=» ADK A3,/1 CIO REGISTER «, t00=0x0018, t01=0x017e}
0x270c…2734 Head {h00=0x0024, h01=0x0050, text=» ADKL A1,/4000 1ST WER REGISTER «, t00=0x0019, t01=0x000e}
0x2734…2746 Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0019, t01=0x0036}
0x2746…276c Head {h00=0x0022, h01=0x0050, text=» CF A5,CIOPRE PREPARE FOR CIO «, t00=0x0019, t01=0x0048}
0x276c…279e Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x0019, t01=0x006e}
0x279e…27b0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0019, t01=0x00a0}
0x27b0…27e2 Head {h00=0x002e, h01=0x0050, text=» RB(NZ) TEST50 NEW VOLUME LOADED : END IO «, t00=0x0019, t01=0x00b2}
0x27e2…27ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00e4}
0x27ec…2802 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0019, t01=0x00ee}
0x2802…280c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0104}
0x280c…2816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x010e}
0x2816…2836 Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTFOR,A6 FORMAT «, t00=0x0019, t01=0x0118}
0x2836…285e Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRL,A8 REQUESTED LENGTH«, t00=0x0019, t01=0x0138}
0x285e…2882 Head {h00=0x0020, h01=0x0050, text=» RB(Z) ER:ILE ILLEGAL LENGTH«, t00=0x0019, t01=0x0160}
0x2882…28a8 Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBCW2,A8 START SECTOR «, t00=0x0019, t01=0x0184}
0x28a8…28d4 Head {h00=0x0028, h01=0x0050, text=» RB(N) REQERR ILLEGAL SECTOR NUMBER «, t00=0x001a, t01=0x001a}
0x28d4…2904 Head {h00=0x002c, h01=0x0050, text=» CWK A2,MS:256-13 MAX TOSS SECTOR NUMBER«, t00=0x001a, t01=0x0046}
0x2904…2930 Head {h00=0x0028, h01=0x0050, text=» RB(NL) REQERR ILLEGAL SECTOR NUMBER«, t00=0x001a, t01=0x0076}
0x2930…2954 Head {h00=0x0020, h01=0x0050, text=» ST A1,DWTRL,A6 SAVE LENGTH «, t00=0x001a, t01=0x00a2}
0x2954…2966 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x001a, t01=0x00c6}
0x2966…298e Head {h00=0x0024, h01=0x0050, text=» SRL A3,7 NUMBER OF 128 SECTORS «, t00=0x001a, t01=0x00d8}
0x298e…29a6 Head {h00=0x0014, h01=0x0050, text=» SRC A4,2 FORMAT«, t00=0x001a, t01=0x0100}
0x29a6…29ca Head {h00=0x0020, h01=0x0050, text=» RF(N) TRA500 FORM: (256-2D)«, t00=0x001a, t01=0x0118}
0x29ca…29e2 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001a, t01=0x013c}
0x29e2…29f4 Head {h00=0x000e, h01=0x0050, text=» SLC A4,1 «, t00=0x001a, t01=0x0154}
0x29f4…2a16 Head {h00=0x001e, h01=0x0050, text=» RF(N) TRA300 IBM FORMATED«, t00=0x001a, t01=0x0166}
0x2a16…2a22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0188}
0x2a22…2a36 (27, 0, 400) Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x001b, t01=0x0004}
0x2a36…2a54 Head {h00=0x001a, h01=0x0050, text=» SLL A2,1 START SECTOR«, t00=0x001b, t01=0x0018}
0x2a54…2a60 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0036}
0x2a60…2a78 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001b, t01=0x0042}
0x2a78…2aa0 Head {h00=0x0024, h01=0x0050, text=» CWK A2,MS:128 MAX SECTOR NUMBER«, t00=0x001b, t01=0x005a}
0x2aa0…2acc Head {h00=0x0028, h01=0x0050, text=» RB(NL) REQERR ILLEGAL SECTOR NUMBER«, t00=0x001b, t01=0x0082}
0x2acc…2ade Head {h00=0x000e, h01=0x0050, text=» RF TRA400«, t00=0x001b, t01=0x00ae}
0x2ade…2af2 Head {h00=0x0010, h01=0x0050, text=»TRA300 EQU *«, t00=0x001b, t01=0x00c0}
0x2af2…2afe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00d4}
0x2afe…2b10 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001b, t01=0x00e0}
0x2b10…2b22 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x001b, t01=0x00f2}
0x2b22…2b48 Head {h00=0x0022, h01=0x0050, text=» ADK A3,78 SPARE TRACK SECTORS«, t00=0x001b, t01=0x0104}
0x2b48…2b78 Head {h00=0x002c, h01=0x0050, text=» CWK A2,MS:128-78 MAX IBM SECTOR NUMBER «, t00=0x001b, t01=0x012a}
0x2b78…2ba4 Head {h00=0x0028, h01=0x0050, text=» RB(NL) REQERR ILLEGAL SECTOR NUMBER«, t00=0x001b, t01=0x015a}
0x2ba4…2bb8 Head {h00=0x0010, h01=0x0050, text=»TRA400 EQU *«, t00=0x001b, t01=0x0186}
0x2bb8…2bc4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x000a}
0x2bc4…2bf8 Head {h00=0x0030, h01=0x0050, text=» ADKL A3,MS:256-MS:128 ADJUST SECTOR NUMBER «, t00=0x001c, t01=0x0016}
0x2bf8…2c16 Head {h00=0x001a, h01=0x0050, text=» RF TRA590 CHECK VALUE«, t00=0x001c, t01=0x004a}
0x2c16…2c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0068}
0x2c20…2c36 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x001c, t01=0x0072}
0x2c36…2c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0088}
0x2c40…2c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0092}
0x2c4a…2c5e Head {h00=0x0010, h01=0x0050, text=»TRA500 EQU *«, t00=0x001c, t01=0x009c}
0x2c5e…2c76 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001c, t01=0x00b0}
0x2c76…2c88 Head {h00=0x000e, h01=0x0050, text=» SLC A4,1 «, t00=0x001c, t01=0x00c8}
0x2c88…2cac Head {h00=0x0020, h01=0x0050, text=» RF(N) TRA525 IBM FORMATTED «, t00=0x001c, t01=0x00da}
0x2cac…2cb8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00fe}
0x2cb8…2ccc Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x001c, t01=0x010a}
0x2ccc…2cde Head {h00=0x000e, h01=0x0050, text=» CWK A2,13«, t00=0x001c, t01=0x011e}
0x2cde…2d04 Head {h00=0x0022, h01=0x0050, text=» RF(NL) TRA550 NOT TRACK ZERO «, t00=0x001c, t01=0x0130}
0x2d04…2d2c Head {h00=0x0024, h01=0x0050, text=» SLL A2,1 PHYSICAL SECTOR NUMBER«, t00=0x001c, t01=0x0156}
0x2d2c…2d3e Head {h00=0x000e, h01=0x0050, text=» RF TRA600«, t00=0x001c, t01=0x017e}
0x2d3e…2d52 Head {h00=0x0010, h01=0x0050, text=»TRA525 EQU *«, t00=0x001c, t01=0x0190}
0x2d52…2d5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0014}
0x2d5e…2d70 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001d, t01=0x0020}
0x2d70…2da0 Head {h00=0x002c, h01=0x0050, text=» CWK A2,MS:256-104 MAX IBM SECTOR NUMBER«, t00=0x001d, t01=0x0032}
0x2da0…2dcc Head {h00=0x0028, h01=0x0050, text=» RB(NL) REQERR ILLEGAL SECTOR NUMBER«, t00=0x001d, t01=0x0062}
0x2dcc…2dde Head {h00=0x000e, h01=0x0050, text=» CWK A2,26«, t00=0x001d, t01=0x008e}
0x2dde…2df4 Head {h00=0x0012, h01=0x0050, text=» RF(NL) TRA530«, t00=0x001d, t01=0x00a0}
0x2df4…2e06 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x001d, t01=0x00b6}
0x2e06…2e2e Head {h00=0x0024, h01=0x0050, text=» ADR A3,A2 END OF BUFFER SECTOR «, t00=0x001d, t01=0x00c8}
0x2e2e…2e40 Head {h00=0x000e, h01=0x0050, text=» SUK A3,26«, t00=0x001d, t01=0x00f0}
0x2e40…2e60 Head {h00=0x001c, h01=0x0050, text=» RF(N) TRA600 TRACK ZERO«, t00=0x001d, t01=0x0102}
0x2e60…2e7e Head {h00=0x001a, h01=0x0050, text=» ANK A3,1 ODD OR EVEN «, t00=0x001d, t01=0x0122}
0x2e7e…2ea4 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ER:ILE ILLEGAL LENGTH «, t00=0x001d, t01=0x0140}
0x2ea4…2eb8 Head {h00=0x0010, h01=0x0050, text=»TRA530 EQU *«, t00=0x001d, t01=0x0166}
0x2eb8…2ee0 Head {h00=0x0024, h01=0x0050, text=» SRL A3,1 NUMBER OF 256 SECTORS «, t00=0x001d, t01=0x017a}
0x2ee0…2f02 Head {h00=0x001e, h01=0x0050, text=» ADK A3,104 SPARE SECTORS «, t00=0x001e, t01=0x0012}
0x2f02…2f14 Head {h00=0x000e, h01=0x0050, text=» RF TRA590«, t00=0x001e, t01=0x0034}
0x2f14…2f20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0046}
0x2f20…2f34 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x001e, t01=0x0052}
0x2f34…2f48 Head {h00=0x0010, h01=0x0050, text=»TRA550 EQU *«, t00=0x001e, t01=0x0066}
0x2f48…2f5a Head {h00=0x000e, h01=0x0050, text=» ADK A2,13«, t00=0x001e, t01=0x007a}
0x2f5a…2f6c Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x001e, t01=0x008c}
0x2f6c…2f78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x009e}
0x2f78…2f82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00aa}
0x2f82…2f98 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x001e, t01=0x00b4}
0x2f98…2fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ca}
0x2fa2…2fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d4}
0x2fac…2fc0 Head {h00=0x0010, h01=0x0050, text=»TRA590 EQU *«, t00=0x001e, t01=0x00de}
0x2fc0…2fe6 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A2 LAST SECTOR NUMBER «, t00=0x001e, t01=0x00f2}
0x2fe6…300e Head {h00=0x0024, h01=0x0050, text=» CWK A3,MS:256 MAX SECTOR NUMBER«, t00=0x001e, t01=0x0118}
0x300e…3034 Head {h00=0x0022, h01=0x0050, text=» RB(G) ER:ILE INCORRECT LENGTH«, t00=0x001e, t01=0x0140}
0x3034…3048 Head {h00=0x0010, h01=0x0050, text=»TRA600 EQU *«, t00=0x001e, t01=0x0166}
0x3048…305c Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x001e, t01=0x017a}
0x305c…3082 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ER:ILE ILLEGAL LENGTH «, t00=0x001e, t01=0x018e}
0x3082…3098 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001f, t01=0x0024}
0x3098…30c4 Head {h00=0x0028, h01=0x0050, text=» DVK 26 A1,A2 PHYSICAL SECTOR NUMBER«, t00=0x001f, t01=0x003a}
0x30c4…30d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0066}
0x30d0…30e6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001f, t01=0x0072}
0x30e6…30f8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001f, t01=0x0088}
0x30f8…310a Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001f, t01=0x009a}
0x310a…312a Head {h00=0x001c, h01=0x0050, text=» LDKL A3,/D00 26 SHIFTED«, t00=0x001f, t01=0x00ac}
0x312a…313e Head {h00=0x0010, h01=0x0050, text=»DVK26A EQU *«, t00=0x001f, t01=0x00cc}
0x313e…3150 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x001f, t01=0x00e0}
0x3150…3162 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A3«, t00=0x001f, t01=0x00f2}
0x3162…3178 Head {h00=0x0012, h01=0x0050, text=» RF(NN) DVK26B«, t00=0x001f, t01=0x0104}
0x3178…318a Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x001f, t01=0x011a}
0x318a…319c Head {h00=0x000e, h01=0x0050, text=» RF DVK26C«, t00=0x001f, t01=0x012c}
0x319c…31b0 Head {h00=0x0010, h01=0x0050, text=»DVK26B EQU *«, t00=0x001f, t01=0x013e}
0x31b0…31c2 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x001f, t01=0x0152}
0x31c2…31d6 Head {h00=0x0010, h01=0x0050, text=»DVK26C EQU *«, t00=0x001f, t01=0x0164}
0x31d6…31e8 Head {h00=0x000e, h01=0x0050, text=» SRC A3,1 «, t00=0x001f, t01=0x0178}
0x31e8…31fa Head {h00=0x000e, h01=0x0050, text=» CWK A3,26«, t00=0x001f, t01=0x018a}
0x31fa…3210 Head {h00=0x0012, h01=0x0050, text=» RB(NL) DVK26A«, t00=0x0020, t01=0x000c}
0x3210…321c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0022}
0x321c…3234 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0020, t01=0x002e}
0x3234…324c Head {h00=0x0014, h01=0x0050, text=» SRC A4,1 FORMAT«, t00=0x0020, t01=0x0046}
0x324c…3258 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x005e}
0x3258…3270 Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=2 «, t00=0x0020, t01=0x006a}
0x3270…3282 Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x0020, t01=0x0082}
0x3282…328e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0094}
0x328e…32ac Head {h00=0x001a, h01=0x0050, text=» RF(N) IOR100 (256-2D)«, t00=0x0020, t01=0x00a0}
0x32ac…32be Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0020, t01=0x00be}
0x32be…32c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d0}
0x32c8…32de Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0020, t01=0x00da}
0x32de…32e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00f0}
0x32e8…32f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00fa}
0x32f2…3306 Head {h00=0x0010, h01=0x0050, text=»IOR100 EQU *«, t00=0x0020, t01=0x0104}
0x3306…3338 Head {h00=0x002e, h01=0x0050, text=» ST A1,DWTSEC,A6 SECTOR NUMBER ON CYLINDER«, t00=0x0020, t01=0x0118}
0x3338…3360 Head {h00=0x0024, h01=0x0050, text=» SC A2,DWTSEC,A6 CYLINDER NUMBER«, t00=0x0020, t01=0x014a}
0x3360…3374 Head {h00=0x0010, h01=0x0050, text=»IOR200 EQU *«, t00=0x0020, t01=0x0172}
0x3374…338c Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0020, t01=0x0186}
0x338c…33a2 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=1 «, t00=0x0021, t01=0x000e}
0x33a2…33c2 Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTFOR,A6 FORMAT «, t00=0x0021, t01=0x0024}
0x33c2…33d4 Head {h00=0x000e, h01=0x0050, text=» SRC A4,1 «, t00=0x0021, t01=0x0044}
0x33d4…33f4 Head {h00=0x001c, h01=0x0050, text=» RF(NN) IOR250 TOSS DISC«, t00=0x0021, t01=0x0056}
0x33f4…3400 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0076}
0x3400…341a Head {h00=0x0016, h01=0x0050, text=» IFT IBM+ASCEBC=2 «, t00=0x0021, t01=0x0082}
0x341a…3440 Head {h00=0x0022, h01=0x0050, text=» LD A3,DWTIOR,A6 GET IO ORDER «, t00=0x0021, t01=0x009c}
0x3440…3462 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) IOR220 WRITE ORDER«, t00=0x0021, t01=0x00c2}
0x3462…3484 Head {h00=0x001e, h01=0x0050, text=» CF A5,CIOI00 PERFORM READ«, t00=0x0021, t01=0x00e4}
0x3484…34a8 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A1 SAVE RETURN CODE «, t00=0x0021, t01=0x0106}
0x34a8…34d8 Head {h00=0x002c, h01=0x0050, text=» CF A5,ASCMOV TRANSFORM AND MOVE TO USER«, t00=0x0021, t01=0x012a}
0x34d8…34fa Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 GET RETURN CODE«, t00=0x0021, t01=0x015a}
0x34fa…351c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ENDIOR READ ERROR «, t00=0x0021, t01=0x017c}
0x351c…3540 Head {h00=0x0020, h01=0x0050, text=» RF IOR230 UPDATE PARAMETERS«, t00=0x0022, t01=0x000e}
0x3540…3566 Head {h00=0x0022, h01=0x0050, text=»IOR220 EQU * WRITE IBM SECTOR «, t00=0x0022, t01=0x0032}
0x3566…3598 Head {h00=0x002e, h01=0x0050, text=» CF A5,EBCDIC MOVE FROM USER AND TRANSFORM«, t00=0x0022, t01=0x0058}
0x3598…35bc Head {h00=0x0020, h01=0x0050, text=» CF A5,CIOI00 WRITE ON DISC «, t00=0x0022, t01=0x008a}
0x35bc…35d8 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ENDIOR ERROR«, t00=0x0022, t01=0x00ae}
0x35d8…35fc Head {h00=0x0020, h01=0x0050, text=» LC A1,DWTOR+1,A6 GET ORDER «, t00=0x0022, t01=0x00ca}
0x35fc…3610 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/15 «, t00=0x0022, t01=0x00ee}
0x3610…363c Head {h00=0x0028, h01=0x0050, text=» RF(NE) IOR230 NOT READ AFTER WRITE «, t00=0x0022, t01=0x0102}
0x363c…3658 Head {h00=0x0018, h01=0x0050, text=» CF A5,CIOIVF VERIFY«, t00=0x0022, t01=0x012e}
0x3658…3674 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) END:IO ERROR«, t00=0x0022, t01=0x014a}
0x3674…3688 Head {h00=0x0010, h01=0x0050, text=»IOR230 EQU *«, t00=0x0022, t01=0x0166}
0x3688…36ae Head {h00=0x0022, h01=0x0050, text=» CF A5,GETLEN GET LENGTH OF IO«, t00=0x0022, t01=0x017a}
0x36ae…36dc Head {h00=0x002a, h01=0x0050, text=» CF A5,INCSEC INCREMENT SECTOR NUMBER «, t00=0x0023, t01=0x0010}
0x36dc…36fc Head {h00=0x001c, h01=0x0050, text=» LDR A2,A7 LENGTH OF IO «, t00=0x0023, t01=0x003e}
0x36fc…3714 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS=1 =1 «, t00=0x0023, t01=0x005e}
0x3714…372a Head {h00=0x0012, h01=0x0050, text=» RF IOR400 =1«, t00=0x0023, t01=0x0076}
0x372a…3736 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x008c}
0x3736…3750 Head {h00=0x0016, h01=0x0050, text=» IFF TOSS+EBCASC=0«, t00=0x0023, t01=0x0098}
0x3750…375a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b2}
0x375a…3770 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0023, t01=0x00bc}
0x3770…377a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d2}
0x377a…3784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00dc}
0x3784…37a2 Head {h00=0x001a, h01=0x0050, text=»IOR250 EQU * TOSS DISC«, t00=0x0023, t01=0x00e6}
0x37a2…37ce Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTSEC,A6 START SECTOR NUMBER«, t00=0x0023, t01=0x0104}
0x37ce…37e0 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A3«, t00=0x0023, t01=0x0130}
0x37e0…3802 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/FF SECTOR NUMBER «, t00=0x0023, t01=0x0142}
0x3802…381a Head {h00=0x0014, h01=0x0050, text=» NGR A3,A3 26-A3«, t00=0x0023, t01=0x0164}
0x381a…382c Head {h00=0x000e, h01=0x0050, text=» ADK A3,26«, t00=0x0023, t01=0x017c}
0x382c…3858 Head {h00=0x0028, h01=0x0050, text=» ANK A2,/FF CYLINDER AND HEAD NUMBER«, t00=0x0023, t01=0x018e}
0x3858…3878 Head {h00=0x001c, h01=0x0050, text=» RF(Z) IOR260 1ST TRACK «, t00=0x0024, t01=0x002a}
0x3878…3898 Head {h00=0x001c, h01=0x0050, text=» LD A4,DWTFOR,A6 FORMAT «, t00=0x0024, t01=0x004a}
0x3898…38aa Head {h00=0x000e, h01=0x0050, text=» SRC A4,2 «, t00=0x0024, t01=0x006a}
0x38aa…38c8 Head {h00=0x001a, h01=0x0050, text=» RF(NN) IOR260 (128-1)«, t00=0x0024, t01=0x007c}
0x38c8…38ee Head {h00=0x0022, h01=0x0050, text=» SLL A3,1 LENGTH LEFT ON TRACK«, t00=0x0024, t01=0x009a}
0x38ee…3902 Head {h00=0x0010, h01=0x0050, text=»IOR260 EQU *«, t00=0x0024, t01=0x00c0}
0x3902…391e Head {h00=0x0018, h01=0x0050, text=» SLL A3,6 WORD MODE «, t00=0x0024, t01=0x00d4}
0x391e…3940 Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTRL,A6 REST OF IO«, t00=0x0024, t01=0x00f0}
0x3940…395c Head {h00=0x0018, h01=0x0050, text=» SRL A4,1 WORD MODE «, t00=0x0024, t01=0x0112}
0x395c…396e Head {h00=0x000e, h01=0x0050, text=» CWR A3,A4«, t00=0x0024, t01=0x012e}
0x396e…3984 Head {h00=0x0012, h01=0x0050, text=» RF(L) IOR275 «, t00=0x0024, t01=0x0140}
0x3984…39ae Head {h00=0x0026, h01=0x0050, text=» LDR A3,A4 REST OF TRACK IN ONE IO«, t00=0x0024, t01=0x0156}
0x39ae…39c2 Head {h00=0x0010, h01=0x0050, text=»IOR275 EQU *«, t00=0x0024, t01=0x0180}
0x39c2…39d8 (37, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/F000«, t00=0x0025, t01=0x0004}
0x39d8…3a0a Head {h00=0x002e, h01=0x0050, text=» ANS A4,DWTWE1,A6 RESET LENGTH IN 1ST WER «, t00=0x0025, t01=0x001a}
0x3a0a…3a36 Head {h00=0x0028, h01=0x0050, text=» ORS A3,DWTWE1,A6 LENGTH TO 1ST WER «, t00=0x0025, t01=0x004c}
0x3a36…3a5e Head {h00=0x0024, h01=0x0050, text=» CF A5,CIO:WR PERFORM READ/WRITE«, t00=0x0025, t01=0x0078}
0x3a5e…3a86 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) END:IO READ/WRITE ERROR «, t00=0x0025, t01=0x00a0}
0x3a86…3aaa Head {h00=0x0020, h01=0x0050, text=» LC A1,DWTOR+1,A6 GET ORDER «, t00=0x0025, t01=0x00c8}
0x3aaa…3abe Head {h00=0x0010, h01=0x0050, text=» SUK A1,/15 «, t00=0x0025, t01=0x00ec}
0x3abe…3aea Head {h00=0x0028, h01=0x0050, text=» RF(NE) IOR300 NOT READ AFTER WRITE «, t00=0x0025, t01=0x0100}
0x3aea…3b0e Head {h00=0x0020, h01=0x0050, text=» CF A5,CIO:VF PERFORM VERIFY«, t00=0x0025, t01=0x012c}
0x3b0e…3b32 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) END:IO VERIFY ERROR «, t00=0x0025, t01=0x0150}
0x3b32…3b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0174}
0x3b3c…3b52 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0025, t01=0x017e}
0x3b52…3b5c (38, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0004}
0x3b5c…3b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x000e}
0x3b66…3b7a Head {h00=0x0010, h01=0x0050, text=»IOR300 EQU *«, t00=0x0026, t01=0x0018}
0x3b7a…3b9a Head {h00=0x001c, h01=0x0050, text=» CF A5,INCCYL NEXT HEAD «, t00=0x0026, t01=0x002c}
0x3b9a…3bbe Head {h00=0x0020, h01=0x0050, text=» AD A2,DWTSEC,A6 NEXT TRACK «, t00=0x0026, t01=0x004c}
0x3bbe…3bde Head {h00=0x001c, h01=0x0050, text=» ANKL A2,/FF00 SECTOR 0 «, t00=0x0026, t01=0x0070}
0x3bde…3c00 Head {h00=0x001e, h01=0x0050, text=» ST A2,DWTSEC,A6 SECTOR ID«, t00=0x0026, t01=0x0090}
0x3c00…3c34 Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTWE1,A6 GET LENGTH OF PERFORMED IO «, t00=0x0026, t01=0x00b2}
0x3c34…3c46 Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0026, t01=0x00e6}
0x3c46…3c62 Head {h00=0x0018, h01=0x0050, text=» SRL A2,3 CHARACTERS«, t00=0x0026, t01=0x00f8}
0x3c62…3c76 Head {h00=0x0010, h01=0x0050, text=»IOR400 EQU *«, t00=0x0026, t01=0x0114}
0x3c76…3c82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0128}
0x3c82…3c8a Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0134}
0x3c8a…3cb0 Head {h00=0x0022, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE ECBEL «, t00=0x0026, t01=0x013c}
0x3cb0…3cc2 Head {h00=0x000e, h01=0x0050, text=» NGR A3,A2«, t00=0x0026, t01=0x0162}
0x3cc2…3cd8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0026, t01=0x0174}
0x3cd8…3cea Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0026, t01=0x018a}
0x3cea…3cfc Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0027, t01=0x000c}
0x3cfc…3d10 Head {h00=0x0010, h01=0x0050, text=» DA DWTBA,A6«, t00=0x0027, t01=0x001e}
0x3d10…3d22 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/3«, t00=0x0027, t01=0x0032}
0x3d22…3d38 Head {h00=0x0012, h01=0x0050, text=» MS 2,DWTBA,A6«, t00=0x0027, t01=0x0044}
0x3d38…3d44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x005a}
0x3d44…3d5a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0027, t01=0x0066}
0x3d5a…3d72 Head {h00=0x0014, h01=0x0050, text=» ADS A2,DWTBA,A6«, t00=0x0027, t01=0x007c}
0x3d72…3d7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0094}
0x3d7e…3d96 Head {h00=0x0014, h01=0x0050, text=» ADS A3,DWTRL,A6«, t00=0x0027, t01=0x00a0}
0x3d96…3dbe Head {h00=0x0024, h01=0x0050, text=» RB(NZ) IOR200 NEXT TRACK/SECTOR«, t00=0x0027, t01=0x00b8}
0x3dbe…3de2 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0027, t01=0x00e0}
0x3de2…3df6 Head {h00=0x0010, h01=0x0050, text=»ENDIOR EQU *«, t00=0x0027, t01=0x0104}
0x3df6…3e16 Head {h00=0x001c, h01=0x0050, text=» RF END:IO REQUEST READY«, t00=0x0027, t01=0x0118}
0x3e16…3e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0138}
0x3e20…3e36 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0027, t01=0x0142}
0x3e36…3e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0158}
0x3e40…3e52 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0027, t01=0x0162}
0x3e52…3e64 Head {h00=0x000e, h01=0x0050, text=»* FORMAT *«, t00=0x0027, t01=0x0174}
0x3e64…3e76 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0027, t01=0x0186}
0x3e76…3e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0008}
0x3e80…3e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0012}
0x3e8a…3e9e Head {h00=0x0010, h01=0x0050, text=»FORMAT EQU *«, t00=0x0028, t01=0x001c}
0x3e9e…3eb4 Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x0028, t01=0x0030}
0x3eb4…3ec6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0028, t01=0x0046}
0x3ec6…3ef6 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) END:IO ERROR: NEW VOLUME LOADED «, t00=0x0028, t01=0x0058}
0x3ef6…3f1e Head {h00=0x0024, h01=0x0050, text=» CF A5,WRIPRE PREPARE FOR WRITE «, t00=0x0028, t01=0x0088}
0x3f1e…3f30 Head {h00=0x000e, h01=0x0050, text=» LDK A2,36«, t00=0x0028, t01=0x00b0}
0x3f30…3f44 Head {h00=0x0010, h01=0x0050, text=»FORM10 EQU *«, t00=0x0028, t01=0x00c2}
0x3f44…3f66 Head {h00=0x001e, h01=0x0050, text=» CM FD:BUF,A2 CLEAR BUFFER«, t00=0x0028, t01=0x00d6}
0x3f66…3f78 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0028, t01=0x00f8}
0x3f78…3f8e Head {h00=0x0012, h01=0x0050, text=» RB(NN) FORM10«, t00=0x0028, t01=0x010a}
0x3f8e…3fbe Head {h00=0x002c, h01=0x0050, text=» CF A15,VOLCLR CLEAR VOLUME NAME IN DWT «, t00=0x0028, t01=0x0120}
0x3fbe…3fd4 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,'TO' «, t00=0x0028, t01=0x0150}
0x3fd4…3fea Head {h00=0x0012, h01=0x0050, text=» LDKL A2,'SS' «, t00=0x0028, t01=0x0166}
0x3fea…401c Head {h00=0x002e, h01=0x0050, text=» LDKL A4,FD:BUF+32 TOSS INDICATION ADDRESS«, t00=0x0028, t01=0x017c}
0x401c…4046 Head {h00=0x0026, h01=0x0050, text=» LDK A3,IN:TOS INDICATE TOSS DISC «, t00=0x0029, t01=0x001e}
0x4046…4060 Head {h00=0x0016, h01=0x0050, text=» ANS A3,DWTFOR,A6 «, t00=0x0029, t01=0x0048}
0x4060…408c Head {h00=0x0028, h01=0x0050, text=» LD A3,ECBCW1,A8 TOSS/IBM INDICATOR «, t00=0x0029, t01=0x0062}
0x408c…40a6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FORM40 TOSS«, t00=0x0029, t01=0x008e}
0x40a6…40ca Head {h00=0x0020, h01=0x0050, text=» CM DWTSEC,A6 WRITE SECTOR 0«, t00=0x0029, t01=0x00a8}
0x40ca…40e0 Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOI00 «, t00=0x0029, t01=0x00cc}
0x40e0…4108 Head {h00=0x0024, h01=0x0050, text=» LDK A3,IN:IBM INDICATE IBM DISC«, t00=0x0029, t01=0x00e2}
0x4108…4122 Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTFOR,A6 «, t00=0x0029, t01=0x010a}
0x4122…413e Head {h00=0x0018, h01=0x0050, text=» LDKL A1,EBC:VO 'VO'«, t00=0x0029, t01=0x0124}
0x413e…415a Head {h00=0x0018, h01=0x0050, text=» LDKL A2,EBC:L1 'L1'«, t00=0x0029, t01=0x0140}
0x415a…417a Head {h00=0x001c, h01=0x0050, text=» LDK A3,6 WRITE SECTOR 6«, t00=0x0029, t01=0x015c}
0x417a…41a8 Head {h00=0x002a, h01=0x0050, text=» LDKL A4,FD:BUF IBM INDICATION ADDRESS«, t00=0x0029, t01=0x017c}
0x41a8…41bc Head {h00=0x0010, h01=0x0050, text=»FORM40 EQU *«, t00=0x002a, t01=0x001a}
0x41bc…41e0 Head {h00=0x0020, h01=0x0050, text=» STR A1,A4 INDICATE TOSS/IBM«, t00=0x002a, t01=0x002e}
0x41e0…41f4 Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A4 «, t00=0x002a, t01=0x0052}
0x41f4…420c Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTSEC,A6«, t00=0x002a, t01=0x0066}
0x420c…422e Head {h00=0x001e, h01=0x0050, text=» CF A5,CIOI00 WRITE SECTOR«, t00=0x002a, t01=0x007e}
0x422e…4238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00a0}
0x4238…424e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x002a, t01=0x00aa}
0x424e…4258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c0}
0x4258…4262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ca}
0x4262…4274 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x00d4}
0x4274…4286 Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x002a, t01=0x00e6}
0x4286…4298 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x00f8}
0x4298…42a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x010a}
0x42a2…42ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0114}
0x42ac…42b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x011e}
0x42b6…42ca Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x002a, t01=0x0128}
0x42ca…42fe Head {h00=0x0030, h01=0x0050, text=» CF A5,SETPAR SET DISC DEPENDENT PARAMETERS «, t00=0x002a, t01=0x013c}
0x42fe…4326 Head {h00=0x0024, h01=0x0050, text=» OR A1,DWTRC,A6 GET COLLECTED RC«, t00=0x002a, t01=0x0170}
0x4326…433c Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x002b, t01=0x0008}
0x433c…4350 Head {h00=0x0010, h01=0x0050, text=»T:DISP EQU *«, t00=0x002b, t01=0x001e}
0x4350…4362 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x002b, t01=0x0032}
0x4362…4376 Head {h00=0x0010, h01=0x0050, text=»END:30 EQU *«, t00=0x002b, t01=0x0044}
0x4376…4394 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x002b, t01=0x0058}
0x4394…43be Head {h00=0x0026, h01=0x0050, text=» ORS A1,DWTST,A6 RECOVERY DONE =1 «, t00=0x002b, t01=0x0076}
0x43be…43d0 Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x002b, t01=0x00a0}
0x43d0…43da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b2}
0x43da…43f0 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x002b, t01=0x00bc}
0x43f0…43fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d2}
0x43fa…440c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x00dc}
0x440c…441e Head {h00=0x000e, h01=0x0050, text=»* LOCKDO *«, t00=0x002b, t01=0x00ee}
0x441e…4430 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x0100}
0x4430…443a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0112}
0x443a…4450 Head {h00=0x0012, h01=0x0050, text=»* LOCK ORDER«, t00=0x002b, t01=0x011c}
0x4450…445a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0132}
0x445a…446e Head {h00=0x0010, h01=0x0050, text=»LOCKDO EQU *«, t00=0x002b, t01=0x013c}
0x446e…448c Head {h00=0x001a, h01=0x0050, text=» CF A5,LOCK LOCK DOOR «, t00=0x002b, t01=0x0150}
0x448c…44b0 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) END:IO NOT OPERABLE «, t00=0x002b, t01=0x016e}
0x44b0…44c6 (44, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDK A2,IN:LCK«, t00=0x002c, t01=0x0004}
0x44c6…44f0 Head {h00=0x0026, h01=0x0050, text=» ORS A2,DWTFOR,A6 INDICATE LOCKED «, t00=0x002c, t01=0x001a}
0x44f0…4502 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002c, t01=0x0044}
0x4502…4526 Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTFOR,A6 GET FORMAT «, t00=0x002c, t01=0x0056}
0x4526…4538 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x002c, t01=0x007a}
0x4538…455c Head {h00=0x0020, h01=0x0050, text=» SRC A1,6 INDICATE TOSS/IBM «, t00=0x002c, t01=0x008c}
0x455c…4568 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00b0}
0x4568…457a Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x002c, t01=0x00bc}
0x457a…4584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ce}
0x4584…459c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x002c, t01=0x00d8}
0x459c…45a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f0}
0x45a6…45b8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x00fa}
0x45b8…45ca Head {h00=0x000e, h01=0x0050, text=»* LOAD *«, t00=0x002c, t01=0x010c}
0x45ca…45dc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x011e}
0x45dc…45e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0130}
0x45e6…45fc Head {h00=0x0012, h01=0x0050, text=»* LOAD ORDER«, t00=0x002c, t01=0x013a}
0x45fc…4606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0150}
0x4606…4632 Head {h00=0x0028, h01=0x0050, text=»* INPUT : A4 = DOUBLED INDEX + A6 «, t00=0x002c, t01=0x015a}
0x4632…4644 Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x002c, t01=0x0186}
0x4644…4662 Head {h00=0x001a, h01=0x0050, text=» CF A5,LOCK LOCK DOORS«, t00=0x002d, t01=0x0008}
0x4662…467e Head {h00=0x0018, h01=0x0050, text=» RF(NZ) END:UL ERROR«, t00=0x002d, t01=0x0026}
0x467e…4694 Head {h00=0x0012, h01=0x0050, text=» LDK A2,IN:LCK«, t00=0x002d, t01=0x0042}
0x4694…46c2 Head {h00=0x002a, h01=0x0050, text=» ORS A2,DWTFOR,A6 INDICATE DOOR LOCKED«, t00=0x002d, t01=0x0058}
0x46c2…46e8 Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x002d, t01=0x0086}
0x46e8…46fa Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x002d, t01=0x00ac}
0x46fa…4722 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) END:UL ERROR UNLOCK DOOR«, t00=0x002d, t01=0x00be}
0x4722…473a Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x002d, t01=0x00e6}
0x473a…4752 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFOR,A6«, t00=0x002d, t01=0x00fe}
0x4752…4764 Head {h00=0x000e, h01=0x0050, text=» SRC A2,1 «, t00=0x002d, t01=0x0116}
0x4764…4784 Head {h00=0x001c, h01=0x0050, text=» RB(NN) END:IO TOSS DISC«, t00=0x002d, t01=0x0128}
0x4784…4790 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0148}
0x4790…47a2 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x002d, t01=0x0154}
0x47a2…47b4 Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x002d, t01=0x0166}
0x47b4…47c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0178}
0x47c0…47d2 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002d, t01=0x0184}
0x47d2…47dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0008}
0x47dc…47f2 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x002e, t01=0x0012}
0x47f2…47fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0028}
0x47fc…4806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0032}
0x4806…4832 Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBCW1,A8 DATA SET NUMBER =3 «, t00=0x002e, t01=0x003c}
0x4832…4850 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A4 SAVE NUMBER«, t00=0x002e, t01=0x0068}
0x4850…4862 Head {h00=0x000e, h01=0x0050, text=» SUK A4,7 «, t00=0x002e, t01=0x0086}
0x4862…4890 Head {h00=0x002a, h01=0x0050, text=» RF(N) LOA:85 ILLEGAL DATA SET NUMBER «, t00=0x002e, t01=0x0098}
0x4890…48a4 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x002e, t01=0x00c6}
0x48a4…48b6 Head {h00=0x000e, h01=0x0050, text=» SRC A2,1 «, t00=0x002e, t01=0x00da}
0x48b6…48c2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00ec}
0x48c2…48d6 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=0 «, t00=0x002e, t01=0x00f8}
0x48d6…48fa Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTFOR,A6 GET FORMAT «, t00=0x002e, t01=0x010c}
0x48fa…490c Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x002e, t01=0x0130}
0x490c…4918 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0142}
0x4918…492a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002e, t01=0x014e}
0x492a…4948 Head {h00=0x001a, h01=0x0050, text=» RF(NN) LOA:10 (128-1)«, t00=0x002e, t01=0x0160}
0x4948…495e Head {h00=0x0012, h01=0x0050, text=» SUK A4,77-25 «, t00=0x002e, t01=0x017e}
0x495e…4970 (47, 0, 400) Head {h00=0x000e, h01=0x0050, text=» CWK A3,25«, t00=0x002f, t01=0x0004}
0x4970…498e Head {h00=0x001a, h01=0x0050, text=» RF(NG) LOA:10 HEAD 0 «, t00=0x002f, t01=0x0016}
0x498e…49bc Head {h00=0x002a, h01=0x0050, text=» SUK A3,26 DATA SET NUMBER ON TRACK 1 «, t00=0x002f, t01=0x0034}
0x49bc…49ea Head {h00=0x002a, h01=0x0050, text=» SRC A3,1 SECTOR NUMBER IN RIGHT BYTE «, t00=0x002f, t01=0x0062}
0x49ea…4a06 Head {h00=0x0018, h01=0x0050, text=» ORKL A3,/100 HEAD 1«, t00=0x002f, t01=0x0090}
0x4a06…4a1a Head {h00=0x0010, h01=0x0050, text=»LOA:10 EQU *«, t00=0x002f, t01=0x00ac}
0x4a1a…4a2e Head {h00=0x0010, h01=0x0050, text=» SUK A4,25-7«, t00=0x002f, t01=0x00c0}
0x4a2e…4a5c Head {h00=0x002a, h01=0x0050, text=» RF(P) LOA:85 ILLEGAL DATA SET NUMBER «, t00=0x002f, t01=0x00d4}
0x4a5c…4a72 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x002f, t01=0x0102}
0x4a72…4aa0 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTDSS,A4 SAVE DATA SET NUMBER «, t00=0x002f, t01=0x0118}
0x4aa0…4acc Head {h00=0x0028, h01=0x0050, text=» CF A5,REAPDS PREPARE READ DATA SET «, t00=0x002f, t01=0x0146}
0x4acc…4ae6 Head {h00=0x0016, h01=0x0050, text=» CF A5,CIOI00 READ«, t00=0x002f, t01=0x0172}
0x4ae6…4b08 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A1 GET RETURN CODE«, t00=0x002f, t01=0x018c}
0x4b08…4b1a Head {h00=0x000e, h01=0x0050, text=» SRL A3,7 «, t00=0x0030, t01=0x001e}
0x4b1a…4b2c Head {h00=0x000e, h01=0x0050, text=» ORR A1,A3«, t00=0x0030, t01=0x0030}
0x4b2c…4b50 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) END:UL ERROR UNLOAD «, t00=0x0030, t01=0x0042}
0x4b50…4b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0066}
0x4b5a…4b70 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0030, t01=0x0070}
0x4b70…4b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0086}
0x4b7a…4b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0090}
0x4b84…4bae Head {h00=0x0026, h01=0x0050, text=» LDKL A7,FD:BUF+BOE ADDRESS TO BOE«, t00=0x0030, t01=0x009a}
0x4bae…4bda Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTDSS,A4 GET DATA SET NUMBER«, t00=0x0030, t01=0x00c4}
0x4bda…4c08 Head {h00=0x002a, h01=0x0050, text=» RF(NN) LOA:20 1ST DATA SET IN BUFFER «, t00=0x0030, t01=0x00f0}
0x4c08…4c32 Head {h00=0x0026, h01=0x0050, text=» ADK A7,/80 2ND DATA SET IN BUFFER«, t00=0x0030, t01=0x011e}
0x4c32…4c46 Head {h00=0x0010, h01=0x0050, text=»LOA:20 EQU *«, t00=0x0030, t01=0x0148}
0x4c46…4c70 Head {h00=0x0026, h01=0x0050, text=» CF A5,IBMTRA TRANSFORM TO BINARY «, t00=0x0030, t01=0x015c}
0x4c70…4ca2 Head {h00=0x002e, h01=0x0050, text=» ST A3,DWTBOE,A4 SAVE BEGINNING OF EXTENT «, t00=0x0030, t01=0x0186}
0x4ca2…4cd4 Head {h00=0x002e, h01=0x0050, text=» CF A5,DECBOE CURRENT RECORD NUMBER=BOE-1 «, t00=0x0031, t01=0x0028}
0x4cd4…4cfc Head {h00=0x0024, h01=0x0050, text=» ADK A7,EOE-BOE-5 ADDRESS TO EOE«, t00=0x0031, t01=0x005a}
0x4cfc…4d12 Head {h00=0x0012, h01=0x0050, text=» CF A5,IBMTRA «, t00=0x0031, t01=0x0082}
0x4d12…4d38 Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTEOE,A4 END OF EXTENT«, t00=0x0031, t01=0x0098}
0x4d38…4d60 Head {h00=0x0024, h01=0x0050, text=» ADK A7,EOD-EOE-5 ADDRESS TO EOD«, t00=0x0031, t01=0x00be}
0x4d60…4d76 Head {h00=0x0012, h01=0x0050, text=» CF A5,IBMTRA «, t00=0x0031, t01=0x00e6}
0x4d76…4d9a Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTEOD,A4 END OF DATA«, t00=0x0031, t01=0x00fc}
0x4d9a…4dc4 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,RC:IBM INDICATE IBM DISC «, t00=0x0031, t01=0x0120}
0x4dc4…4de2 Head {h00=0x001a, h01=0x0050, text=» RB END:IO END REQUEST«, t00=0x0031, t01=0x014a}
0x4de2…4df6 Head {h00=0x0010, h01=0x0050, text=»LOA:85 EQU *«, t00=0x0031, t01=0x0168}
0x4df6…4e1c Head {h00=0x0022, h01=0x0050, text=» LDKL A1,RC:REQ REQUEST ERROR «, t00=0x0031, t01=0x017c}
0x4e1c…4e36 Head {h00=0x0016, h01=0x0050, text=» RF END:UL UNLOAD «, t00=0x0032, t01=0x0012}
0x4e36…4e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x002c}
0x4e40…4e4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0036}
0x4e4c…4e64 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0032, t01=0x0042}
0x4e64…4e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x005a}
0x4e6e…4e80 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0032, t01=0x0064}
0x4e80…4e92 Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0032, t01=0x0076}
0x4e92…4ea4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0032, t01=0x0088}
0x4ea4…4eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x009a}
0x4eae…4ec6 Head {h00=0x0014, h01=0x0050, text=»* UNLOAD ORDER«, t00=0x0032, t01=0x00a4}
0x4ec6…4ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00bc}
0x4ed0…4ee2 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0032, t01=0x00c6}
0x4ee2…4ef6 Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0032, t01=0x00d8}
0x4ef6…4f0e Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0032, t01=0x00ec}
0x4f0e…4f32 Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTFOR,A6 GET FORMAT «, t00=0x0032, t01=0x0104}
0x4f32…4f44 Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x0032, t01=0x0128}
0x4f44…4f64 Head {h00=0x001c, h01=0x0050, text=» RF(NN) UNL:50 TOSS DISC«, t00=0x0032, t01=0x013a}
0x4f64…4f70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x015a}
0x4f70…4f82 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0032, t01=0x0166}
0x4f82…4fa6 Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTEOD,A4 END OF DATA«, t00=0x0032, t01=0x0178}
0x4fa6…4fc6 Head {h00=0x001c, h01=0x0050, text=» RF(Z) UNL:50 NOT OPENED«, t00=0x0033, t01=0x000c}
0x4fc6…4fee Head {h00=0x0024, h01=0x0050, text=» CF A5,SECBIN CONVERT TO BINARY «, t00=0x0033, t01=0x002c}
0x4fee…5012 Head {h00=0x0020, h01=0x0050, text=» ST A3,ECBCW2,A8 EOD TO ECB «, t00=0x0033, t01=0x0054}
0x5012…503e Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTDSS,A4 DATA SET SECTOR ID «, t00=0x0033, t01=0x0078}
0x503e…506a Head {h00=0x0028, h01=0x0050, text=» CF A5,REAPDS PREPARE READ DATA SET «, t00=0x0033, t01=0x00a4}
0x506a…5084 Head {h00=0x0016, h01=0x0050, text=» CF A5,CIOI00 READ«, t00=0x0033, t01=0x00d0}
0x5084…50a6 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) END:UL READ ERROR «, t00=0x0033, t01=0x00ea}
0x50a6…50ce Head {h00=0x0024, h01=0x0050, text=» LDKL A1,FD:BUF+EOD EOD ADDRESS «, t00=0x0033, t01=0x010c}
0x50ce…50f6 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTDSS,A4 DATA SET NUMBER«, t00=0x0033, t01=0x0134}
0x50f6…5124 Head {h00=0x002a, h01=0x0050, text=» RF(NN) UNL:20 1ST DATA SET IN SECTOR «, t00=0x0033, t01=0x015c}
0x5124…514e Head {h00=0x0026, h01=0x0050, text=» ADK A1,/80 2ND DATA SET IN SECTOR«, t00=0x0033, t01=0x018a}
0x514e…5158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0024}
0x5158…516e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0034, t01=0x002e}
0x516e…5178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0044}
0x5178…5182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x004e}
0x5182…5196 Head {h00=0x0010, h01=0x0050, text=»UNL:20 EQU *«, t00=0x0034, t01=0x0058}
0x5196…51ba Head {h00=0x0020, h01=0x0050, text=» LC A7,DWTEOD,A4 END OF DATA«, t00=0x0034, t01=0x006c}
0x51ba…51de Head {h00=0x0020, h01=0x0050, text=» LDR A2,A7 SAVE END OF DATA «, t00=0x0034, t01=0x0090}
0x51de…51f0 Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0034, t01=0x00b4}
0x51f0…5210 Head {h00=0x001c, h01=0x0050, text=» ORK A2,/F0 HEAD NUMBER «, t00=0x0034, t01=0x00c6}
0x5210…523a Head {h00=0x0026, h01=0x0050, text=» SC A2,2,A1 HEAD NUMBER TO BUFFER «, t00=0x0034, t01=0x00e6}
0x523a…524c Head {h00=0x000e, h01=0x0050, text=» SRL A7,1 «, t00=0x0034, t01=0x0110}
0x524c…526e Head {h00=0x001e, h01=0x0050, text=» CF A5,BINDEC EBCDIC CODE «, t00=0x0034, t01=0x0122}
0x526e…5298 Head {h00=0x0026, h01=0x0050, text=» STR A3,A1 TRACK NUMBER TO BUFFER «, t00=0x0034, t01=0x0144}
0x5298…52c2 Head {h00=0x0026, h01=0x0050, text=» LD A7,DWTEOD,A4 GET SECTOR NUMBER«, t00=0x0034, t01=0x016e}
0x52c2…52e6 Head {h00=0x0020, h01=0x0050, text=» ADK A7,1 IBM SECTOR NUMBER «, t00=0x0035, t01=0x0008}
0x52e6…5316 Head {h00=0x002c, h01=0x0050, text=» CF A5,BINDEC A3=SECTOR NUMBER IN EBCDIC«, t00=0x0035, t01=0x002c}
0x5316…5342 Head {h00=0x0028, h01=0x0050, text=» SC A3,4,A1 SECTOR NUMBER TO BUFFER «, t00=0x0035, t01=0x005c}
0x5342…5354 Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x0035, t01=0x0088}
0x5354…5368 Head {h00=0x0010, h01=0x0050, text=» SC A3,3,A1 «, t00=0x0035, t01=0x009a}
0x5368…5390 Head {h00=0x0024, h01=0x0050, text=» CF A5,WRIPRE PREPARE FOR WRITE «, t00=0x0035, t01=0x00ae}
0x5390…53a6 Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOI00 «, t00=0x0035, t01=0x00d6}
0x53a6…53c8 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) END:UL WRITE ERROR«, t00=0x0035, t01=0x00ec}
0x53c8…53f2 Head {h00=0x0026, h01=0x0050, text=» CM DWTEOD,A4 INDICATE NOT OPENED «, t00=0x0035, t01=0x010e}
0x53f2…53fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0138}
0x53fe…5412 Head {h00=0x0010, h01=0x0050, text=»END:UL EQU *«, t00=0x0035, t01=0x0144}
0x5412…543c Head {h00=0x0026, h01=0x0050, text=» ORS A1,DWTRC,A6 SAVE RETURN CODE «, t00=0x0035, t01=0x0158}
0x543c…544e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0035, t01=0x0182}
0x544e…5462 (54, 0, 398) Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0036, t01=0x0004}
0x5462…546e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0018}
0x546e…5482 Head {h00=0x0010, h01=0x0050, text=»UNL:50 EQU *«, t00=0x0036, t01=0x0024}
0x5482…54a4 Head {h00=0x001e, h01=0x0050, text=» CF A5,UNLOCK UNLOCK DOORS«, t00=0x0036, t01=0x0038}
0x54a4…54ba Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ENDIO «, t00=0x0036, t01=0x005a}
0x54ba…54e8 Head {h00=0x002a, h01=0x0050, text=» LDK A2,IN:ULC INDICATE UNLOCKED DRIVE«, t00=0x0036, t01=0x0070}
0x54e8…5510 Head {h00=0x0024, h01=0x0050, text=» ANS A2,DWTFOR,A6 UNLOCKED DOOR «, t00=0x0036, t01=0x009e}
0x5510…5524 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0036, t01=0x00c6}
0x5524…5538 Head {h00=0x0010, h01=0x0050, text=» ABL END:IO «, t00=0x0036, t01=0x00da}
0x5538…5542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00ee}
0x5542…5554 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0036, t01=0x00f8}
0x5554…556c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0036, t01=0x010a}
0x556c…5576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0122}
0x5576…5588 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x012c}
0x5588…559a Head {h00=0x000e, h01=0x0050, text=»* SQREAD *«, t00=0x0036, t01=0x013e}
0x559a…55ac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x0150}
0x55ac…55b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0162}
0x55b6…55d2 Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ «, t00=0x0036, t01=0x016c}
0x55d2…55dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0188}
0x55dc…55f0 (55, 0, 400) Head {h00=0x0010, h01=0x0050, text=»SQREAD EQU *«, t00=0x0037, t01=0x0004}
0x55f0…5616 Head {h00=0x0022, h01=0x0050, text=» CF A5,REAPRE PREPARE FOR READ«, t00=0x0037, t01=0x0018}
0x5616…5640 Head {h00=0x0026, h01=0x0050, text=» CF A5,IBMCHK CHECK IBM PARAMETERS«, t00=0x0037, t01=0x003e}
0x5640…5660 Head {h00=0x001c, h01=0x0050, text=» LD A3,DWTCRN,A4 GET CRN«, t00=0x0037, t01=0x0068}
0x5660…567c Head {h00=0x0018, h01=0x0050, text=» CF A5,INCSE0 CRN+1 «, t00=0x0037, t01=0x0088}
0x567c…5698 Head {h00=0x0018, h01=0x0050, text=» ECR A3,A3 LEFT BYTE«, t00=0x0037, t01=0x00a4}
0x5698…56bc Head {h00=0x0020, h01=0x0050, text=» CC A3,DWTEOD,A4 END OF DATA«, t00=0x0037, t01=0x00c0}
0x56bc…56da Head {h00=0x001a, h01=0x0050, text=» ECR A3,A3 RIGHT BYTE «, t00=0x0037, t01=0x00e4}
0x56da…5706 Head {h00=0x0028, h01=0x0050, text=» RF(NE) SQR:10 LEFT BYTES NOT EQUAL «, t00=0x0037, t01=0x0102}
0x5706…5724 Head {h00=0x001a, h01=0x0050, text=» CC A3,DWTEOD+1,A4 EOD«, t00=0x0037, t01=0x012e}
0x5724…5738 Head {h00=0x0010, h01=0x0050, text=»SQR:10 EQU *«, t00=0x0037, t01=0x014c}
0x5738…5762 Head {h00=0x0026, h01=0x0050, text=» RF(NL) ENDEOD ERROR : END OF DATA«, t00=0x0037, t01=0x0160}
0x5762…578c Head {h00=0x0026, h01=0x0050, text=» CF A5,SECBIN SECTOR ID IN BINARY «, t00=0x0037, t01=0x018a}
0x578c…57b0 Head {h00=0x0020, h01=0x0050, text=» ST A3,ECBCW2,A8 CRN TO ECB «, t00=0x0038, t01=0x0024}
0x57b0…57c6 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=1 «, t00=0x0038, t01=0x0048}
0x57c6…57e8 Head {h00=0x001e, h01=0x0050, text=» CF A5,CIOI00 READ SECTOR «, t00=0x0038, t01=0x005e}
0x57e8…580e Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 JUST NOT OPERABLE =4«, t00=0x0038, t01=0x0080}
0x580e…582e Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ENDIO READ ERROR«, t00=0x0038, t01=0x00a6}
0x582e…5856 Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCMOV TRANSFORM AND MOVE«, t00=0x0038, t01=0x00c6}
0x5856…5878 Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTSEC,A6 GET CRN+1«, t00=0x0038, t01=0x00ee}
0x5878…589a Head {h00=0x001e, h01=0x0050, text=» ADK A4,DWTCRN CRN ADDRESS«, t00=0x0038, t01=0x0110}
0x589a…58b8 Head {h00=0x001a, h01=0x0050, text=» RF SQW:90 END REQUEST«, t00=0x0038, t01=0x0132}
0x58b8…58c4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0150}
0x58c4…58d6 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0038, t01=0x015c}
0x58d6…58ec Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=0 «, t00=0x0038, t01=0x016e}
0x58ec…5906 Head {h00=0x0016, h01=0x0050, text=» CF A5,CIO:WR READ«, t00=0x0038, t01=0x0184}
0x5906…592c Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 JUST NOT OPERABLE =4«, t00=0x0039, t01=0x000e}
0x592c…5948 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) ENDIO ERROR «, t00=0x0039, t01=0x0034}
0x5948…5976 Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTSEC,A6 CURRENT RECORD NUMBER«, t00=0x0039, t01=0x0050}
0x5976…5994 Head {h00=0x001a, h01=0x0050, text=» ADK A4,DWTCRN ADDRESS«, t00=0x0039, t01=0x007e}
0x5994…59a6 Head {h00=0x000e, h01=0x0050, text=» RF SQW:90«, t00=0x0039, t01=0x009c}
0x59a6…59b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x00ae}
0x59b2…59c4 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0039, t01=0x00ba}
0x59c4…59ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00cc}
0x59ce…59e4 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0039, t01=0x00d6}
0x59e4…59ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ec}
0x59ee…59f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f6}
0x59f8…5a0c Head {h00=0x0010, h01=0x0050, text=»ENDEOD EQU *«, t00=0x0039, t01=0x0100}
0x5a0c…5a30 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,RC:EOD END OF DATA «, t00=0x0039, t01=0x0114}
0x5a30…5a42 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x0039, t01=0x0138}
0x5a42…5a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x014a}
0x5a4c…5a64 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0039, t01=0x0154}
0x5a64…5a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x016c}
0x5a6e…5a80 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x0176}
0x5a80…5a92 Head {h00=0x000e, h01=0x0050, text=»* SQWRIT *«, t00=0x0039, t01=0x0188}
0x5a92…5aa4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x000a}
0x5aa4…5aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x001c}
0x5aae…5aca Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE«, t00=0x003a, t01=0x0026}
0x5aca…5ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0042}
0x5ad4…5ae8 Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x003a, t01=0x004c}
0x5ae8…5b10 Head {h00=0x0024, h01=0x0050, text=» CF A5,WRIPRE PREPARE FOR WRITE «, t00=0x003a, t01=0x0060}
0x5b10…5b3a Head {h00=0x0026, h01=0x0050, text=» CF A5,IBMCHK CHECK IBM PARAMETERS«, t00=0x003a, t01=0x0088}
0x5b3a…5b56 Head {h00=0x0018, h01=0x0050, text=» LD A3,DWTEOD,A4 EOD«, t00=0x003a, t01=0x00b2}
0x5b56…5b72 Head {h00=0x0018, h01=0x0050, text=» ECR A3,A3 LEFT BYTE«, t00=0x003a, t01=0x00ce}
0x5b72…5b9a Head {h00=0x0024, h01=0x0050, text=» CC A3,DWTEOE,A4 LEFT CHARACTERS«, t00=0x003a, t01=0x00ea}
0x5b9a…5bac Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x003a, t01=0x0112}
0x5bac…5bc2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) SQW:10«, t00=0x003a, t01=0x0124}
0x5bc2…5bee Head {h00=0x0028, h01=0x0050, text=» CC A3,DWTEOE+1,A4 RIGTH CHARACTERS «, t00=0x003a, t01=0x013a}
0x5bee…5c02 Head {h00=0x0010, h01=0x0050, text=»SQW:10 EQU *«, t00=0x003a, t01=0x0166}
0x5c02…5c2c Head {h00=0x0026, h01=0x0050, text=» RF(G) ENDEOE ERROR: END OF EXTENT«, t00=0x003a, t01=0x017a}
0x5c2c…5c50 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTSEC,A6 END OF DATA«, t00=0x003b, t01=0x0014}
0x5c50…5c78 Head {h00=0x0024, h01=0x0050, text=» CF A5,SECBIN CONVERT TO BINARY «, t00=0x003b, t01=0x0038}
0x5c78…5c9c Head {h00=0x0020, h01=0x0050, text=» ST A3,ECBCW2,A8 EOD TO ECB «, t00=0x003b, t01=0x0060}
0x5c9c…5cb2 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=1 «, t00=0x003b, t01=0x0084}
0x5cb2…5cc8 Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x003b, t01=0x009a}
0x5cc8…5cea Head {h00=0x001e, h01=0x0050, text=» CF A5,CIOI00 WRITE SECTOR«, t00=0x003b, t01=0x00b0}
0x5cea…5d06 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) ENDIO ERROR «, t00=0x003b, t01=0x00d2}
0x5d06…5d12 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00ee}
0x5d12…5d28 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=0 «, t00=0x003b, t01=0x00fa}
0x5d28…5d3a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003b, t01=0x0110}
0x5d3a…5d5a Head {h00=0x001c, h01=0x0050, text=» CF A5,CIO:WR PERFORM IO«, t00=0x003b, t01=0x0122}
0x5d5a…5d76 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) ENDIO ERROR «, t00=0x003b, t01=0x0142}
0x5d76…5d82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x015e}
0x5d82…5d94 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003b, t01=0x016a}
0x5d94…5db2 Head {h00=0x001a, h01=0x0050, text=» CF A5,INCSEC DWTSEC+1«, t00=0x003b, t01=0x017c}
0x5db2…5dd8 Head {h00=0x0022, h01=0x0050, text=» ADK A4,DWTEOD ADDRESS TO EOD «, t00=0x003c, t01=0x000a}
0x5dd8…5de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0030}
0x5de2…5df8 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x003c, t01=0x003a}
0x5df8…5e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0050}
0x5e02…5e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x005a}
0x5e0c…5e20 Head {h00=0x0010, h01=0x0050, text=»SQW:90 EQU *«, t00=0x003c, t01=0x0064}
0x5e20…5e42 Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 UPDATED POINTER«, t00=0x003c, t01=0x0078}
0x5e42…5e6a Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBRL,A8 REQUESTED LENGTH«, t00=0x003c, t01=0x009a}
0x5e6a…5e92 Head {h00=0x0024, h01=0x0050, text=» ST A3,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x003c, t01=0x00c2}
0x5e92…5ea4 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x003c, t01=0x00ea}
0x5ea4…5eb8 Head {h00=0x0010, h01=0x0050, text=»ENDEOE EQU *«, t00=0x003c, t01=0x00fc}
0x5eb8…5ede Head {h00=0x0022, h01=0x0050, text=» LDKL A1,RC:EOE END OF EXTENT «, t00=0x003c, t01=0x0110}
0x5ede…5ef0 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x003c, t01=0x0136}
0x5ef0…5efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0148}
0x5efa…5f12 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x003c, t01=0x0152}
0x5f12…5f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x016a}
0x5f1c…5f2e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003c, t01=0x0174}
0x5f2e…5f40 Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x003c, t01=0x0186}
0x5f40…5f52 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x0008}
0x5f52…5f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x001a}
0x5f5c…5f70 Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x003d, t01=0x0024}
0x5f70…5f98 Head {h00=0x0024, h01=0x0050, text=» CF A5,IBMCH5 CHECK IF IBM DISK «, t00=0x003d, t01=0x0038}
0x5f98…5fb0 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTBOE,A4«, t00=0x003d, t01=0x0060}
0x5fb0…5fd0 Head {h00=0x001c, h01=0x0050, text=» ST A3,DWTEOD,A4 EOD=BOE«, t00=0x003d, t01=0x0078}
0x5fd0…5fee Head {h00=0x001a, h01=0x0050, text=» CF A5,DECBOE GET CRN «, t00=0x003d, t01=0x0098}
0x5fee…6000 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x003d, t01=0x00b6}
0x6000…600a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00c8}
0x600a…6016 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x00d2}
0x6016…602e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x003d, t01=0x00de}
0x602e…6038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f6}
0x6038…6054 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003d, t01=0x0100}
0x6054…6070 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x003d, t01=0x011c}
0x6070…608c Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x003d, t01=0x0138}
0x608c…60a8 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x003d, t01=0x0154}
0x60a8…60c4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003d, t01=0x0170}
0x60c4…60ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x018c}
0x60ce…60e0 Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x003e, t01=0x0008}
0x60e0…610a Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x003e, t01=0x001a}
0x610a…612e Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x003e, t01=0x0044}
0x612e…6166 Head {h00=0x0034, h01=0x0050, text=» LDKL A4,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x003e, t01=0x0068}
0x6166…6182 Head {h00=0x0018, h01=0x0050, text=» ANS A4,DWTST,A6 =1«, t00=0x003e, t01=0x00a0}
0x6182…618c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00bc}
0x618c…61a2 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x003e, t01=0x00c6}
0x61a2…61ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00dc}
0x61ac…61c2 Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x003e, t01=0x00e6}
0x61c2…61cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00fc}
0x61cc…61e4 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x003e, t01=0x0106}
0x61e4…6206 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x003e, t01=0x011e}
0x6206…621c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x003e, t01=0x0140}
0x621c…6242 Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x003e, t01=0x0156}
0x6242…6254 Head {h00=0x000e, h01=0x0050, text=» RF F:DISP«, t00=0x003e, t01=0x017c}
0x6254…6268 Head {h00=0x0010, h01=0x0050, text=»FDON10 EQU *«, t00=0x003e, t01=0x018e}
0x6268…627e Head {h00=0x0012, h01=0x0050, text=» LDK A4,DWTTP «, t00=0x003f, t01=0x0012}
0x627e…6290 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x003f, t01=0x0028}
0x6290…62aa Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x003f, t01=0x003a}
0x62aa…62c0 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x003f, t01=0x0054}
0x62c0…62da Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x003f, t01=0x006a}
0x62da…62e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0084}
0x62e4…62f8 Head {h00=0x0010, h01=0x0050, text=»F:DISP EQU *«, t00=0x003f, t01=0x008e}
0x62f8…630c Head {h00=0x0010, h01=0x0050, text=» ABL T:DISP «, t00=0x003f, t01=0x00a2}
0x630c…6316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00b6}
0x6316…6332 Head {h00=0x0018, h01=0x0050, text=»* TIME OUT ROUTINE«, t00=0x003f, t01=0x00c0}
0x6332…633c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00dc}
0x633c…6350 Head {h00=0x0010, h01=0x0050, text=»FDON20 EQU *«, t00=0x003f, t01=0x00e6}
0x6350…6362 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x003f, t01=0x00fa}
0x6362…6376 Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x003f, t01=0x010c}
0x6376…638a Head {h00=0x0010, h01=0x0050, text=»FDRE00 EQU *«, t00=0x003f, t01=0x0120}
0x638a…63a6 Head {h00=0x0018, h01=0x0050, text=» LD A5,DWTTP,A6 =5 «, t00=0x003f, t01=0x0134}
0x63a6…63ca Head {h00=0x0020, h01=0x0050, text=» RB(NZ) F:DISP TIMER SET =5 «, t00=0x003f, t01=0x0150}
0x63ca…6402 Head {h00=0x0034, h01=0x0050, text=» LDKL A5,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x003f, t01=0x0174}
0x6402…641e Head {h00=0x0018, h01=0x0050, text=» ANS A5,DWTST,A6 =1«, t00=0x0040, t01=0x001c}
0x641e…6436 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0040, t01=0x0038}
0x6436…6458 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x0040, t01=0x0050}
0x6458…6476 Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F8 FILE CODE «, t00=0x0040, t01=0x0072}
0x6476…648e Head {h00=0x0014, h01=0x0050, text=» ST A3,DWT:FC,A6«, t00=0x0040, t01=0x0090}
0x648e…64aa Head {h00=0x0018, h01=0x0050, text=» LDK A3,3 4 VOLUMES «, t00=0x0040, t01=0x00a8}
0x64aa…64b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00c4}
0x64b4…64ca Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD01«, t00=0x0040, t01=0x00ce}
0x64ca…64d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00e4}
0x64d4…64de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ee}
0x64de…64fa Head {h00=0x0018, h01=0x0050, text=»* READ VOLUME NAME «, t00=0x0040, t01=0x00f8}
0x64fa…6504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0114}
0x6504…6518 Head {h00=0x0010, h01=0x0050, text=»FDONLD EQU *«, t00=0x0040, t01=0x011e}
0x6518…6540 Head {h00=0x0024, h01=0x0050, text=» SC A3,DWTOR,A6 GET VOLUME NAME «, t00=0x0040, t01=0x0132}
0x6540…655e Head {h00=0x001a, h01=0x0050, text=» CF A5,LOCK LOCK DOOR «, t00=0x0040, t01=0x015a}
0x655e…657e Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FDON19 OPERABLE «, t00=0x0040, t01=0x0178}
0x657e…65b4 Head {h00=0x0032, h01=0x0050, text=» CF A5,GETPAR GET DEVICE DEPENDENT PARAMETERS «, t00=0x0041, t01=0x0008}
0x65b4…65ca Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0041, t01=0x003e}
0x65ca…6600 Head {h00=0x0032, h01=0x0050, text=» CF A5,SETPAR SET DEVICE DEPENDENT PARAMETERS «, t00=0x0041, t01=0x0054}
0x6600…6612 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0041, t01=0x008a}
0x6612…6630 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FDON21 NO ERROR«, t00=0x0041, t01=0x009c}
0x6630…6654 Head {h00=0x0020, h01=0x0050, text=»FDON19 EQU * NOT OPERABLE =5«, t00=0x0041, t01=0x00ba}
0x6654…667e Head {h00=0x0026, h01=0x0050, text=» LDK A1,6 NBR OF BYTES TO CLEAR =5«, t00=0x0041, t01=0x00de}
0x667e…66a6 Head {h00=0x0024, h01=0x0050, text=» CF A15,VOLCLR CLEAR VOLUME NAME«, t00=0x0041, t01=0x0108}
0x66a6…66b8 Head {h00=0x000e, h01=0x0050, text=» RF FDON24«, t00=0x0041, t01=0x0130}
0x66b8…66cc Head {h00=0x0010, h01=0x0050, text=»FDON21 EQU *«, t00=0x0041, t01=0x0142}
0x66cc…66fa Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTFOR,A6 GET FORMAT PARAMETERS«, t00=0x0041, t01=0x0156}
0x66fa…6710 Head {h00=0x0012, h01=0x0050, text=» ANK A4,IN:LCK«, t00=0x0041, t01=0x0184}
0x6710…6726 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) FDON25«, t00=0x0042, t01=0x000a}
0x6726…673a Head {h00=0x0010, h01=0x0050, text=»FDON24 EQU *«, t00=0x0042, t01=0x0020}
0x673a…6750 Head {h00=0x0012, h01=0x0050, text=» CF A5,UNLOCK «, t00=0x0042, t01=0x0034}
0x6750…6764 Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0042, t01=0x004a}
0x6764…6776 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0042, t01=0x005e}
0x6776…67a6 Head {h00=0x002c, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. «, t00=0x0042, t01=0x0070}
0x67a6…67b8 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0042, t01=0x00a0}
0x67b8…67da Head {h00=0x001e, h01=0x0050, text=» RB(NN) FDONLD NEXT VOLUME«, t00=0x0042, t01=0x00b2}
0x67da…67f2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0042, t01=0x00d4}
0x67f2…67fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ec}
0x67fc…6812 Head {h00=0x0012, h01=0x0050, text=»* RESTART IO«, t00=0x0042, t01=0x00f6}
0x6812…681c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x010c}
0x681c…6848 Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 INDICATE RECOVERY OVER «, t00=0x0042, t01=0x0116}
0x6848…686c Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0042, t01=0x0142}
0x686c…6890 Head {h00=0x0020, h01=0x0050, text=» ABL(Z) END:IO NO REQUEST ON«, t00=0x0042, t01=0x0166}
0x6890…68bc Head {h00=0x0028, h01=0x0050, text=» LD A7,DWTORD,A6 GET INDEX AND ORDER«, t00=0x0042, t01=0x018a}
0x68bc…68d4 Head {h00=0x0014, h01=0x0050, text=» ST A7,DWTOR,A6 «, t00=0x0043, t01=0x0026}
0x68d4…6900 Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x0043, t01=0x003e}
0x6900…691a Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0043, t01=0x006a}
0x691a…692c Head {h00=0x000e, h01=0x0050, text=» ABL FDAD «, t00=0x0043, t01=0x0084}
0x692c…6936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0096}
0x6936…694e Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0043, t01=0x00a0}
0x694e…6958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00b8}
0x6958…6976 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0043, t01=0x00c2}
0x6976…6994 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0043, t01=0x00e0}
0x6994…69b2 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x0043, t01=0x00fe}
0x69b2…69d0 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0043, t01=0x011c}
0x69d0…69ee Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0043, t01=0x013a}
0x69ee…69f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0158}
0x69f8…6a14 Head {h00=0x0018, h01=0x0050, text=»* INPUT FROM CU : «, t00=0x0043, t01=0x0162}
0x6a14…6a40 Head {h00=0x0028, h01=0x0050, text=»* BIT 1 : READY INTERRUPT «, t00=0x0043, t01=0x017e}
0x6a40…6a76 Head {h00=0x0032, h01=0x0050, text=»* BIT 4 : DELETED DATA ADDRESS MARK «, t00=0x0044, t01=0x001a}
0x6a76…6aa2 Head {h00=0x0028, h01=0x0050, text=»* BIT 5 : SECTOR NOT FOUND«, t00=0x0044, t01=0x0050}
0x6aa2…6ac8 Head {h00=0x0022, h01=0x0050, text=»* BIT 6 : SEEK ERROR«, t00=0x0044, t01=0x007c}
0x6ac8…6af2 Head {h00=0x0026, h01=0x0050, text=»* BIT 7 : WRITE PROTECT «, t00=0x0044, t01=0x00a2}
0x6af2…6b1a Head {h00=0x0024, h01=0x0050, text=»* BIT8,9: DRIVE NUMBER«, t00=0x0044, t01=0x00cc}
0x6b1a…6b3c Head {h00=0x001e, h01=0x0050, text=»* BIT 10: RETRY «, t00=0x0044, t01=0x00f4}
0x6b3c…6b66 Head {h00=0x0026, h01=0x0050, text=»* BIT 11: PROGRAM ERROR «, t00=0x0044, t01=0x0116}
0x6b66…6b96 Head {h00=0x002c, h01=0x0050, text=»* BIT 12: FULL TRACK PROCESSED«, t00=0x0044, t01=0x0140}
0x6b96…6bbc Head {h00=0x0022, h01=0x0050, text=»* BIT 13: DATA FAULT«, t00=0x0044, t01=0x0170}
0x6bbc…6be8 Head {h00=0x0028, h01=0x0050, text=»* BIT 14: THROUGHPUT ERROR«, t00=0x0045, t01=0x0008}
0x6be8…6c10 Head {h00=0x0024, h01=0x0050, text=»* BIT 15: NOT OPERABLE«, t00=0x0045, t01=0x0034}
0x6c10…6c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x005c}
0x6c1a…6c3a Head {h00=0x001c, h01=0x0050, text=»* OUTPUT REGISTER A1: «, t00=0x0045, t01=0x0066}
0x6c3a…6c5e Head {h00=0x0020, h01=0x0050, text=»* BIT 4 : NO DATA «, t00=0x0045, t01=0x0086}
0x6c5e…6c8a Head {h00=0x0028, h01=0x0050, text=»* BIT6,9: WRITE PROTECTED «, t00=0x0045, t01=0x00aa}
0x6c8a…6cc2 Head {h00=0x0034, h01=0x0050, text=»* BIT 7 : RETRIES PERFPRMED (IN DWTRC)«, t00=0x0045, t01=0x00d6}
0x6cc2…6ce4 Head {h00=0x001e, h01=0x0050, text=»* BIT 11: FORMAT«, t00=0x0045, t01=0x010e}
0x6ce4…6d0a Head {h00=0x0022, h01=0x0050, text=»* BIT 13: CRC ERROR «, t00=0x0045, t01=0x0130}
0x6d0a…6d44 Head {h00=0x0036, h01=0x0050, text=»* BIT 14: SEEK ERROR / THROUGHPUT ERROR «, t00=0x0045, t01=0x0156}
0x6d44…6d6c Head {h00=0x0024, h01=0x0050, text=»* BIT 15: NOT OPERABLE«, t00=0x0045, t01=0x0190}
0x6d6c…6d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0028}
0x6d76…6d9c Head {h00=0x0022, h01=0x0050, text=»* A5 = STACK POINTER«, t00=0x0046, t01=0x0032}
0x6d9c…6dc0 Head {h00=0x0020, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0046, t01=0x0058}
0x6dc0…6de4 Head {h00=0x0020, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0046, t01=0x007c}
0x6de4…6dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00a0}
0x6dee…6e04 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0046, t01=0x00aa}
0x6e04…6e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00c0}
0x6e0e…6e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00ca}
0x6e18…6e2a Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x0046, t01=0x00d4}
0x6e2a…6e58 Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x0046, t01=0x00e6}
0x6e58…6e78 Head {h00=0x001c, h01=0x0050, text=» SST A1,CUADR GET STATUS«, t00=0x0046, t01=0x0114}
0x6e78…6ea2 Head {h00=0x0026, h01=0x0050, text=» RF(A) IHFD00 CORRECT CH. UNIT =2 «, t00=0x0046, t01=0x0134}
0x6ea2…6ebe Head {h00=0x0018, h01=0x0050, text=» CIO A1,0,CUADR =2 «, t00=0x0046, t01=0x015e}
0x6ebe…6ed8 Head {h00=0x0016, h01=0x0050, text=» SST A1,CUADR =2 «, t00=0x0046, t01=0x017a}
0x6ed8…6ef0 (71, 0, 400) Head {h00=0x0014, h01=0x0050, text=» RB(NA) *-2 =2 «, t00=0x0047, t01=0x0004}
0x6ef0…6f14 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 SET RETURN CODE =2«, t00=0x0047, t01=0x001c}
0x6f14…6f2c Head {h00=0x0014, h01=0x0050, text=»IHFD00 EQU * =2«, t00=0x0047, t01=0x0040}
0x6f2c…6f3e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0047, t01=0x0058}
0x6f3e…6f62 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0047, t01=0x006a}
0x6f62…6f86 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0047, t01=0x008e}
0x6f86…6f98 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0047, t01=0x00b2}
0x6f98…6fbe Head {h00=0x0022, h01=0x0050, text=» RB(N) FDRE00 READY INTERRUPT «, t00=0x0047, t01=0x00c4}
0x6fbe…6fd2 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/17 «, t00=0x0047, t01=0x00ea}
0x6fd2…6fe8 Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIT4«, t00=0x0047, t01=0x00fe}
0x6fe8…7006 Head {h00=0x001a, h01=0x0050, text=» RF(NN) IHFD10 NOT SET«, t00=0x0047, t01=0x0114}
0x7006…7026 Head {h00=0x001c, h01=0x0050, text=» ORKL A1,RC:NOD NO DATA «, t00=0x0047, t01=0x0132}
0x7026…703a Head {h00=0x0010, h01=0x0050, text=»IHFD10 EQU *«, t00=0x0047, t01=0x0152}
0x703a…7050 Head {h00=0x0012, h01=0x0050, text=» SLC A2,3 BIT7«, t00=0x0047, t01=0x0166}
0x7050…706e Head {h00=0x001a, h01=0x0050, text=» RF(NN) IHFD20 NOT SET«, t00=0x0047, t01=0x017c}
0x706e…7096 Head {h00=0x0024, h01=0x0050, text=» ORKL A1,RC:WRP WRITE PROTECTED «, t00=0x0048, t01=0x000a}
0x7096…70aa Head {h00=0x0010, h01=0x0050, text=»IHFD20 EQU *«, t00=0x0048, t01=0x0032}
0x70aa…70c2 Head {h00=0x0014, h01=0x0050, text=» SLL A2,3 BIT10 «, t00=0x0048, t01=0x0046}
0x70c2…70e0 Head {h00=0x001a, h01=0x0050, text=» RF(NN) IHFD30 NOT SET«, t00=0x0048, t01=0x005e}
0x70e0…710a Head {h00=0x0026, h01=0x0050, text=» LDKL A3,RC:RET RETRIES PERFORMED «, t00=0x0048, t01=0x007c}
0x710a…712a Head {h00=0x001c, h01=0x0050, text=» ORS A3,DWTRC,A6 SAVE RC«, t00=0x0048, t01=0x00a6}
0x712a…713e Head {h00=0x0010, h01=0x0050, text=»IHFD30 EQU *«, t00=0x0048, t01=0x00c6}
0x713e…7148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00da}
0x7148…715e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0048, t01=0x00e4}
0x715e…7168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00fa}
0x7168…7172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0104}
0x7172…7190 Head {h00=0x001a, h01=0x0050, text=» SRL A2,2 BIT5 , BIT6 «, t00=0x0048, t01=0x010e}
0x7190…71be Head {h00=0x002a, h01=0x0050, text=» ANK A2,/6 SECTOR NOT FOUND,SEEK ERROR«, t00=0x0048, t01=0x012c}
0x71be…71e2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) IHFD50 NO SEEK ERROR «, t00=0x0048, t01=0x015a}
0x71e2…71f4 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0048, t01=0x017e}
0x71f4…721e Head {h00=0x0026, h01=0x0050, text=» LDK A2,/FF DUMMY CYLINDER NUMBER «, t00=0x0048, t01=0x0190}
0x721e…7236 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTCYN,A6«, t00=0x0049, t01=0x002a}
0x7236…724a Head {h00=0x0010, h01=0x0050, text=»IHFD50 EQU *«, t00=0x0049, t01=0x0042}
0x724a…7260 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0049, t01=0x0056}
0x7260…7286 Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0049, t01=0x006c}
0x7286…72b2 Head {h00=0x0028, h01=0x0050, text=»RTN:CR EQU * SET CR ACCORDING TO A1 «, t00=0x0049, t01=0x0092}
0x72b2…72d8 Head {h00=0x0022, h01=0x0050, text=» ADK A5,4 UPDATE STACK POINTER«, t00=0x0049, t01=0x00be}
0x72d8…72f0 Head {h00=0x0014, h01=0x0050, text=» ADK A1,0 SET CR«, t00=0x0049, t01=0x00e4}
0x72f0…7308 Head {h00=0x0014, h01=0x0050, text=» ABR* A5 RETURN «, t00=0x0049, t01=0x00fc}
0x7308…7312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0114}
0x7312…732a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0049, t01=0x011e}
0x732a…7334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0136}
0x7334…7368 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0049, t01=0x0140}
0x7368…739c Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x0049, t01=0x0174}
0x739c…73d0 Head {h00=0x0030, h01=0x0050, text=»* S U B R O U T I N E S * «, t00=0x004a, t01=0x0018}
0x73d0…7404 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x004a, t01=0x004c}
0x7404…7438 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x004a, t01=0x0080}
0x7438…7442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00b4}
0x7442…744c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00be}
0x744c…745e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x00c8}
0x745e…7470 Head {h00=0x000e, h01=0x0050, text=»* GETPAR *«, t00=0x004a, t01=0x00da}
0x7470…7482 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004a, t01=0x00ec}
0x7482…748c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00fe}
0x748c…74b8 Head {h00=0x0028, h01=0x0050, text=»* GET DEVICE DEPENDENT PARAMETERS «, t00=0x004a, t01=0x0108}
0x74b8…74c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0134}
0x74c2…74e8 Head {h00=0x0022, h01=0x0050, text=»* INPUT : A6 = DWT ADDRESS «, t00=0x004a, t01=0x013e}
0x74e8…74f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0164}
0x74f2…7506 Head {h00=0x0010, h01=0x0050, text=»* OUTPUT* «, t00=0x004a, t01=0x016e}
0x7506…752a Head {h00=0x0020, h01=0x0050, text=»* A4 = DOUBLED INDEX + A6 «, t00=0x004a, t01=0x0182}
0x752a…7534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0016}
0x7534…7548 Head {h00=0x0010, h01=0x0050, text=»GETPAR EQU *«, t00=0x004b, t01=0x0020}
0x7548…755e Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x004b, t01=0x0034}
0x755e…7596 Head {h00=0x0034, h01=0x0050, text=» LD A1,DWTPAR,A4 GET DEVICE DEPENDENT PARAMETERS«, t00=0x004b, t01=0x004a}
0x7596…75c2 Head {h00=0x0028, h01=0x0050, text=» SC A1,DWTFOR+1,A6 FORMAT PARAMETER «, t00=0x004b, t01=0x0082}
0x75c2…75d4 Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x004b, t01=0x00ae}
0x75d4…7606 Head {h00=0x002e, h01=0x0050, text=» SC A1,DWTCYN+1,A6 PRESENT CYLINDER NUMBER«, t00=0x004b, t01=0x00c0}
0x7606…7616 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x00f2}
0x7616…7620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0102}
0x7620…7636 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x004b, t01=0x010c}
0x7636…7640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0122}
0x7640…764a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x012c}
0x764a…765c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x0136}
0x765c…766e Head {h00=0x000e, h01=0x0050, text=»* SETPAR *«, t00=0x004b, t01=0x0148}
0x766e…7680 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x015a}
0x7680…768a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x016c}
0x768a…76b6 Head {h00=0x0028, h01=0x0050, text=»* SET DEVICE DEPENDENT PARAMETERS «, t00=0x004b, t01=0x0176}
0x76b6…76c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0012}
0x76c0…76d4 Head {h00=0x0010, h01=0x0050, text=»SETPAR EQU *«, t00=0x004c, t01=0x001c}
0x76d4…7702 Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTCYN,A6 PRESENT HEAD POSITION«, t00=0x004c, t01=0x0030}
0x7702…7714 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x004c, t01=0x005e}
0x7714…7748 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTFOR+1,A6 PRESENT FORMAT PARAMETERS«, t00=0x004c, t01=0x0070}
0x7748…775e Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x004c, t01=0x00a4}
0x775e…7796 Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTPAR,A4 SAVE DRIVE DEPENDENT PARAMETERS«, t00=0x004c, t01=0x00ba}
0x7796…77a6 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004c, t01=0x00f2}
0x77a6…77b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0102}
0x77b0…77c6 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x004c, t01=0x010c}
0x77c6…77d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0122}
0x77d0…77e2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004c, t01=0x012c}
0x77e2…77f4 Head {h00=0x000e, h01=0x0050, text=»* VO:NAM *«, t00=0x004c, t01=0x013e}
0x77f4…7806 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004c, t01=0x0150}
0x7806…7810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0162}
0x7810…781a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x016c}
0x781a…782e Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x004c, t01=0x0176}
0x782e…7868 Head {h00=0x0036, h01=0x0050, text=» LDK A3,IN:LCK RESET ALL BUT LOCK/UNLOCK INDICATOR«, t00=0x004c, t01=0x018a}
0x7868…7882 Head {h00=0x0016, h01=0x0050, text=» ANS A3,DWTFOR,A6 «, t00=0x004d, t01=0x0034}
0x7882…789e Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 CYLINDER 0«, t00=0x004d, t01=0x004e}
0x789e…78b8 Head {h00=0x0016, h01=0x0050, text=» CF A5,SEEKA3 SEEK«, t00=0x004d, t01=0x006a}
0x78b8…78d6 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) VOL900 RETURN «, t00=0x004d, t01=0x0084}
0x78d6…78ea Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x004d, t01=0x00a2}
0x78ea…7906 Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 READ ORDER«, t00=0x004d, t01=0x00b6}
0x7906…791c Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOVOL «, t00=0x004d, t01=0x00d2}
0x791c…7938 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) VOL900 ERROR«, t00=0x004d, t01=0x00e8}
0x7938…7952 Head {h00=0x0016, h01=0x0050, text=» IFT CPU852+IBM=2 «, t00=0x004d, t01=0x0104}
0x7952…796a Head {h00=0x0014, h01=0x0050, text=» LD A2,FD:BUF+32«, t00=0x004d, t01=0x011e}
0x796a…797e Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x004d, t01=0x0136}
0x797e…79a2 Head {h00=0x0020, h01=0x0050, text=» RF(NE) VOL200 NO TOSS DISC «, t00=0x004d, t01=0x014a}
0x79a2…79ba Head {h00=0x0014, h01=0x0050, text=» LD A2,FD:BUF+34«, t00=0x004d, t01=0x016e}
0x79ba…79ce Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x004d, t01=0x0186}
0x79ce…79e4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) VOL200«, t00=0x004e, t01=0x000a}
0x79e4…79f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0020}
0x79f0…7a08 Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x004e, t01=0x002c}
0x7a08…7a1e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x004e, t01=0x0044}
0x7a1e…7a36 Head {h00=0x0014, h01=0x0050, text=» ML 2,FD:BUF+32 «, t00=0x004e, t01=0x005a}
0x7a36…7a4c Head {h00=0x0012, h01=0x0050, text=» DSK 'TO','SS'«, t00=0x004e, t01=0x0072}
0x7a4c…7a70 Head {h00=0x0020, h01=0x0050, text=» RF(NE) VOL200 NO TOSS DISC «, t00=0x004e, t01=0x0088}
0x7a70…7a7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x00ac}
0x7a7c…7a90 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x004e, t01=0x00b8}
0x7a90…7ab2 Head {h00=0x001e, h01=0x0050, text=»VOL100 EQU * TOSS FORMATED«, t00=0x004e, t01=0x00cc}
0x7ab2…7ae0 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,FD:BUF ADDRESS TO VOLUME NAME«, t00=0x004e, t01=0x00ee}
0x7ae0…7af2 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x004e, t01=0x011c}
0x7af2…7b12 Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 INDICATE TOSS «, t00=0x004e, t01=0x012e}
0x7b12…7b24 Head {h00=0x000e, h01=0x0050, text=» RF VOL500«, t00=0x004e, t01=0x014e}
0x7b24…7b30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0160}
0x7b30…7b42 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x004e, t01=0x016c}
0x7b42…7b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x017e}
0x7b4c…7b62 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x004e, t01=0x0188}
0x7b62…7b6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x000e}
0x7b6c…7b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0018}
0x7b76…7b9c Head {h00=0x0022, h01=0x0050, text=»VOL200 EQU * CHECK IF IBM DISC«, t00=0x004f, t01=0x0022}
0x7b9c…7bd0 Head {h00=0x0030, h01=0x0050, text=» LDKL A2,FD:BUF+40 DONT OVERLAP TOSSS LABEL «, t00=0x004f, t01=0x0048}
0x7bd0…7bf2 Head {h00=0x001e, h01=0x0050, text=» LDK A3,/18 READ SECTOR 6 «, t00=0x004f, t01=0x007c}
0x7bf2…7c08 Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOVO1 «, t00=0x004f, t01=0x009e}
0x7c08…7c24 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) VOL900 ERROR«, t00=0x004f, t01=0x00b4}
0x7c24…7c38 Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x004f, t01=0x00d0}
0x7c38…7c50 Head {h00=0x0014, h01=0x0050, text=» LD A2,FD:BUF+40«, t00=0x004f, t01=0x00e4}
0x7c50…7c76 Head {h00=0x0022, h01=0x0050, text=» CWK A2,EBC:VO EBCDIC FOR 'VO'«, t00=0x004f, t01=0x00fc}
0x7c76…7c96 Head {h00=0x001c, h01=0x0050, text=» RB(NE) VOL100 TOSS DISC«, t00=0x004f, t01=0x0122}
0x7c96…7cae Head {h00=0x0014, h01=0x0050, text=» LD A2,FD:BUF+42«, t00=0x004f, t01=0x0142}
0x7cae…7cd4 Head {h00=0x0022, h01=0x0050, text=» CWK A2,EBC:L1 EBCDIC FOR 'L1'«, t00=0x004f, t01=0x015a}
0x7cd4…7cf4 Head {h00=0x001c, h01=0x0050, text=» RB(NE) VOL100 TOSS DISC«, t00=0x004f, t01=0x0180}
0x7cf4…7d00 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0010}
0x7d00…7d12 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0050, t01=0x001c}
0x7d12…7d40 Head {h00=0x002a, h01=0x0050, text=» LDKL A2,FD:BUF+44 VOLUME NAME ADDRESS«, t00=0x0050, t01=0x002e}
0x7d40…7d56 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=1 «, t00=0x0050, t01=0x005c}
0x7d56…7d68 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0050, t01=0x0072}
0x7d68…7d7a Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x0050, t01=0x0084}
0x7d7a…7da2 Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0050, t01=0x0096}
0x7da2…7dae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x00be}
0x7dae…7dc0 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0050, t01=0x00ca}
0x7dc0…7de8 Head {h00=0x0024, h01=0x0050, text=» LDK A1,IN:IBM INDICATE IBM DISC«, t00=0x0050, t01=0x00dc}
0x7de8…7df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0104}
0x7df2…7dfe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x010e}
0x7dfe…7e14 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0050, t01=0x011a}
0x7e14…7e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0130}
0x7e1e…7e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x013a}
0x7e28…7e3c Head {h00=0x0010, h01=0x0050, text=»VOL500 EQU *«, t00=0x0050, t01=0x0144}
0x7e3c…7e68 Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTFOR,A6 INDICATE TOSS/IBM «, t00=0x0050, t01=0x0158}
0x7e68…7e86 Head {h00=0x001a, h01=0x0050, text=» SRC A1,6 RC: TOSS/IBM«, t00=0x0050, t01=0x0184}
0x7e86…7e9e Head {h00=0x0014, h01=0x0050, text=» ORS A1,DWTRC,A6«, t00=0x0051, t01=0x0012}
0x7e9e…7eda Head {h00=0x0038, h01=0x0050, text=» LD A3,DWT:FC,A6 FILE CODE AND TEST STATUS INDICATOR«, t00=0x0051, t01=0x002a}
0x7eda…7f04 Head {h00=0x0026, h01=0x0050, text=» CF A15,VOLGET VOLUME NAME TO DWT «, t00=0x0051, t01=0x0066}
0x7f04…7f2e Head {h00=0x0026, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS TO A8«, t00=0x0051, t01=0x0090}
0x7f2e…7f5a Head {h00=0x0028, h01=0x0050, text=» LDKL A3,/4000 READ SECTOR 0 HEAD 1 «, t00=0x0051, t01=0x00ba}
0x7f5a…7f70 Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOVOL «, t00=0x0051, t01=0x00e6}
0x7f70…7f82 Head {h00=0x000e, h01=0x0050, text=» SRL A1,3 «, t00=0x0051, t01=0x00fc}
0x7f82…7fae Head {h00=0x0028, h01=0x0050, text=» ANK A1,2 FORMAT (256-2D) OR (128-1)«, t00=0x0051, t01=0x010e}
0x7fae…7fc0 Head {h00=0x000e, h01=0x0050, text=» XRK A1,2 «, t00=0x0051, t01=0x013a}
0x7fc0…7fea Head {h00=0x0026, h01=0x0050, text=» ORS A1,DWTFOR,A6 INDICATE FORMAT «, t00=0x0051, t01=0x014c}
0x7fea…8006 Head {h00=0x0018, h01=0x0050, text=» SRC A1,6 RC:FORMAT «, t00=0x0051, t01=0x0176}
0x8006…801a (82, 0, 400) Head {h00=0x0010, h01=0x0050, text=»VOL900 EQU *«, t00=0x0052, t01=0x0004}
0x801a…802a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0052, t01=0x0018}
0x802a…8034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0028}
0x8034…804a Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0052, t01=0x0032}
0x804a…8054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0048}
0x8054…8066 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0052, t01=0x0052}
0x8066…8078 Head {h00=0x000e, h01=0x0050, text=»* GETLEN *«, t00=0x0052, t01=0x0064}
0x8078…808a Head {h00=0x000e, h01=0x0050, text=»* GETLE0 *«, t00=0x0052, t01=0x0076}
0x808a…809c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0052, t01=0x0088}
0x809c…80a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x009a}
0x80a6…80d0 Head {h00=0x0026, h01=0x0050, text=»* GET LENGTH ACCORDING TO FORMAT«, t00=0x0052, t01=0x00a4}
0x80d0…80da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00ce}
0x80da…80ee Head {h00=0x0010, h01=0x0050, text=»GETLEN EQU *«, t00=0x0052, t01=0x00d8}
0x80ee…8110 Head {h00=0x001e, h01=0x0050, text=» LC A7,DWTSEC,A6 SECTOR ID«, t00=0x0052, t01=0x00ec}
0x8110…8138 Head {h00=0x0024, h01=0x0050, text=» ANK A7,/7F CYLINDER AND HEAD NO«, t00=0x0052, t01=0x010e}
0x8138…8156 Head {h00=0x001a, h01=0x0050, text=» RF(Z) GETL05 TRACK 0 «, t00=0x0052, t01=0x0136}
0x8156…816a Head {h00=0x0010, h01=0x0050, text=»GETLE0 EQU *«, t00=0x0052, t01=0x0154}
0x816a…818a Head {h00=0x001c, h01=0x0050, text=» LD A7,DWTFOR,A6 FORMAT «, t00=0x0052, t01=0x0168}
0x818a…819c Head {h00=0x000e, h01=0x0050, text=» ANK A7,2 «, t00=0x0052, t01=0x0188}
0x819c…81bc Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GETL10 (256-2D) «, t00=0x0053, t01=0x000a}
0x81bc…81d0 Head {h00=0x0010, h01=0x0050, text=»GETL05 EQU *«, t00=0x0053, t01=0x002a}
0x81d0…81e2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0053, t01=0x003e}
0x81e2…81f6 Head {h00=0x0010, h01=0x0050, text=»GETL10 EQU *«, t00=0x0053, t01=0x0050}
0x81f6…820c Head {h00=0x0012, h01=0x0050, text=» SLL A7,7 *128«, t00=0x0053, t01=0x0064}
0x820c…821c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0053, t01=0x007a}
0x821c…8226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x008a}
0x8226…8240 Head {h00=0x0016, h01=0x0050, text=» IFT IBM+MMUPAG=2 «, t00=0x0053, t01=0x0094}
0x8240…8256 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0053, t01=0x00ae}
0x8256…8260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00c4}
0x8260…8272 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0053, t01=0x00ce}
0x8272…8284 Head {h00=0x000e, h01=0x0050, text=»* GETPAG *«, t00=0x0053, t01=0x00e0}
0x8284…8296 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0053, t01=0x00f2}
0x8296…82a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0104}
0x82a0…82b8 Head {h00=0x0014, h01=0x0050, text=»* GET PAGE ID «, t00=0x0053, t01=0x010e}
0x82b8…82c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0126}
0x82c2…82d6 Head {h00=0x0010, h01=0x0050, text=»GETPAG EQU *«, t00=0x0053, t01=0x0130}
0x82d6…82fc Head {h00=0x0022, h01=0x0050, text=» ML 2,DWTBA,A6 BUFFER ADDRESS «, t00=0x0053, t01=0x0144}
0x82fc…8318 Head {h00=0x0018, h01=0x0050, text=» RB(Z) RTN:CR SET CR«, t00=0x0053, t01=0x016a}
0x8318…8330 Head {h00=0x0014, h01=0x0050, text=» DLA 4 GET PAGE «, t00=0x0053, t01=0x0186}
0x8330…8342 Head {h00=0x000e, h01=0x0050, text=» SRC A1,6 «, t00=0x0054, t01=0x000e}
0x8342…835a Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTPAG,A6«, t00=0x0054, t01=0x0020}
0x835a…837a Head {h00=0x001c, h01=0x0050, text=» ADKL A1,/400 NEXT PAGE «, t00=0x0054, t01=0x0038}
0x837a…8394 Head {h00=0x0016, h01=0x0050, text=» ST A1,DWTPAG+2,A6«, t00=0x0054, t01=0x0058}
0x8394…83b6 Head {h00=0x001e, h01=0x0050, text=» SRL A2,3 LOGICAL ADDRESS «, t00=0x0054, t01=0x0072}
0x83b6…83c8 Head {h00=0x000e, h01=0x0050, text=» RB RTN:CR«, t00=0x0054, t01=0x0094}
0x83c8…83d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00a6}
0x83d2…83de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x00b0}
0x83de…83f8 Head {h00=0x0016, h01=0x0050, text=» IFT IBM+ASCEBC=2 «, t00=0x0054, t01=0x00bc}
0x83f8…840e Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0054, t01=0x00d6}
0x840e…8418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00ec}
0x8418…842a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0054, t01=0x00f6}
0x842a…843c Head {h00=0x000e, h01=0x0050, text=»* ASCII *«, t00=0x0054, t01=0x0108}
0x843c…844e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0054, t01=0x011a}
0x844e…8458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x012c}
0x8458…8482 Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM EBCDIC TO ASCII CODE«, t00=0x0054, t01=0x0136}
0x8482…848c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0160}
0x848c…84b4 Head {h00=0x0024, h01=0x0050, text=»* INPUT : A4 =BUFFER ADDRESS «, t00=0x0054, t01=0x016a}
0x84b4…84d4 (85, 0, 398) Head {h00=0x001c, h01=0x0050, text=»* A7 =LENGTH «, t00=0x0055, t01=0x0004}
0x84d4…84de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0024}
0x84de…8504 Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A1,A4,A7 CHANGED «, t00=0x0055, t01=0x002e}
0x8504…850e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0054}
0x850e…8522 Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0055, t01=0x005e}
0x8522…852e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0055, t01=0x0072}
0x852e…8540 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0055, t01=0x007e}
0x8540…8554 Head {h00=0x0010, h01=0x0050, text=»ASC:10 EQU *«, t00=0x0055, t01=0x0090}
0x8554…8566 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0055, t01=0x00a4}
0x8566…858a Head {h00=0x0020, h01=0x0050, text=» LCR A1,A4 EBCDIC CHARACTER «, t00=0x0055, t01=0x00b6}
0x858a…859e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0055, t01=0x00da}
0x859e…85ca Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0055, t01=0x00ee}
0x85ca…85fe Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0055, t01=0x011a}
0x85fe…8610 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0055, t01=0x014e}
0x8610…8626 Head {h00=0x0012, h01=0x0050, text=» RB(P) ASC:10 «, t00=0x0055, t01=0x0160}
0x8626…8632 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0055, t01=0x0176}
0x8632…8642 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0055, t01=0x0182}
0x8642…864c (86, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0004}
0x864c…8664 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0056, t01=0x000e}
0x8664…866e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0026}
0x866e…8680 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0056, t01=0x0030}
0x8680…8692 Head {h00=0x000e, h01=0x0050, text=»* ASCMOV *«, t00=0x0056, t01=0x0042}
0x8692…86a4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0056, t01=0x0054}
0x86a4…86ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0066}
0x86ae…86e8 Head {h00=0x0036, h01=0x0050, text=»* FUNCTION: TRANSFORMS A STRING FROM EBCDIC TO «, t00=0x0056, t01=0x0070}
0x86e8…8730 Head {h00=0x0044, h01=0x0050, text=»* ASCII CODE AND MOVES IT FROM FD:BUF TO USER BUFFER«, t00=0x0056, t01=0x00aa}
0x8730…8762 Head {h00=0x002e, h01=0x0050, text=»* INPUT STRING ADDRESS IS BUF «, t00=0x0056, t01=0x00f2}
0x8762…8786 Head {h00=0x0020, h01=0x0050, text=»* OUTPUT: A1,A2, CHANGED«, t00=0x0056, t01=0x0124}
0x8786…87b6 Head {h00=0x002c, h01=0x0050, text=»* A4 = INDEXED DWT ADDRESS«, t00=0x0056, t01=0x0148}
0x87b6…87d8 Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x0056, t01=0x0178}
0x87d8…87e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x000a}
0x87e2…87f6 Head {h00=0x0010, h01=0x0050, text=»ASCMOV EQU *«, t00=0x0057, t01=0x0014}
0x87f6…880c Head {h00=0x0012, h01=0x0050, text=» CF A5,GETLEN «, t00=0x0057, t01=0x0028}
0x880c…8822 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0057, t01=0x003e}
0x8822…8848 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTBA,A6 BUFFER ADDRESS«, t00=0x0057, t01=0x0054}
0x8848…885c Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0057, t01=0x007a}
0x885c…8868 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x008e}
0x8868…8882 Head {h00=0x0016, h01=0x0050, text=» IFT IBM+ASCEBC=2 «, t00=0x0057, t01=0x009a}
0x8882…8898 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0057, t01=0x00b4}
0x8898…88c6 Head {h00=0x002a, h01=0x0050, text=» LDKL A4,FD:BUF DRIVER BUFFER ADDRESS «, t00=0x0057, t01=0x00ca}
0x88c6…88d2 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0057, t01=0x00f8}
0x88d2…88e6 Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0057, t01=0x0104}
0x88e6…88fc Head {h00=0x0012, h01=0x0050, text=» CF A5,GETLEN «, t00=0x0057, t01=0x0118}
0x88fc…8924 Head {h00=0x0024, h01=0x0050, text=» CF A5,GETPAG GET PAGE IDENTITY «, t00=0x0057, t01=0x012e}
0x8924…8950 Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x0057, t01=0x0156}
0x8950…8974 Head {h00=0x0020, h01=0x0050, text=» TL DWTPAG,A6 LOAD MMUTABLE «, t00=0x0057, t01=0x0182}
0x8974…899c Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 DRIVER BUFFER ADDRESS«, t00=0x0058, t01=0x0016}
0x899c…89c8 Head {h00=0x0028, h01=0x0050, text=» MVSU A7 MOVE SECTOR TO USER BUFFER «, t00=0x0058, t01=0x003e}
0x89c8…89f8 Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x0058, t01=0x006a}
0x89f8…8a04 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x009a}
0x8a04…8a1e Head {h00=0x0016, h01=0x0050, text=» IFT IBM+ASCEBC=2 «, t00=0x0058, t01=0x00a6}
0x8a1e…8a38 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 RESET RC«, t00=0x0058, t01=0x00c0}
0x8a38…8a4a Head {h00=0x000e, h01=0x0050, text=» RF IBMT60«, t00=0x0058, t01=0x00da}
0x8a4a…8a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00ec}
0x8a54…8a6c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0058, t01=0x00f6}
0x8a6c…8a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x010e}
0x8a76…8a88 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x0118}
0x8a88…8a9a Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0058, t01=0x012a}
0x8a9a…8aac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x013c}
0x8aac…8ab6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x014e}
0x8ab6…8af6 Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0058, t01=0x0158}
0x8af6…8b18 Head {h00=0x001e, h01=0x0050, text=»* EBCDIC CODE «, t00=0x0059, t01=0x0008}
0x8b18…8b54 Head {h00=0x0038, h01=0x0050, text=»* OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x0059, t01=0x002a}
0x8b54…8b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0066}
0x8b5e…8b80 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x0059, t01=0x0070}
0x8b80…8ba2 Head {h00=0x001e, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0059, t01=0x0092}
0x8ba2…8bc4 Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x0059, t01=0x00b4}
0x8bc4…8bd8 Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0059, t01=0x00d6}
0x8bd8…8bf2 Head {h00=0x0016, h01=0x0050, text=» IFT IBM+MMUPAG=2 «, t00=0x0059, t01=0x00ea}
0x8bf2…8c08 Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=1 «, t00=0x0059, t01=0x0104}
0x8c08…8c2e Head {h00=0x0022, h01=0x0050, text=» LDKL A4,FD:BUF BUFFER ADDRESS«, t00=0x0059, t01=0x011a}
0x8c2e…8c44 Head {h00=0x0012, h01=0x0050, text=» CF A5,GETLEN «, t00=0x0059, t01=0x0140}
0x8c44…8c5a Head {h00=0x0012, h01=0x0050, text=» CF A5,GETPAG «, t00=0x0059, t01=0x0156}
0x8c5a…8c7c Head {h00=0x001e, h01=0x0050, text=» RF(Z) EBC:05 SYSTEM AREA «, t00=0x0059, t01=0x016c}
0x8c7c…8ca6 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A2 LOGICAL ADDRESS SOURCE «, t00=0x0059, t01=0x018e}
0x8ca6…8cd2 Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x005a, t01=0x0028}
0x8cd2…8cf6 Head {h00=0x0020, h01=0x0050, text=» TL DWTPAG,A6 LOAD MMU TABLE«, t00=0x005a, t01=0x0054}
0x8cf6…8d1c Head {h00=0x0022, h01=0x0050, text=» LDR A2,A4 DESTINATION ADDRESS«, t00=0x005a, t01=0x0078}
0x8d1c…8d4a Head {h00=0x002a, h01=0x0050, text=» MVUS A7 MOVE SECTOR TO DRIVER BUFFER «, t00=0x005a, t01=0x009e}
0x8d4a…8d7a Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x005a, t01=0x00cc}
0x8d7a…8d8c Head {h00=0x000e, h01=0x0050, text=» RF EBC:07«, t00=0x005a, t01=0x00fc}
0x8d8c…8da0 Head {h00=0x0010, h01=0x0050, text=»EBC:05 EQU *«, t00=0x005a, t01=0x010e}
0x8da0…8dc2 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 BUFFER ADDRESS «, t00=0x005a, t01=0x0122}
0x8dc2…8dd4 Head {h00=0x000e, h01=0x0050, text=» SLL A4,1 «, t00=0x005a, t01=0x0144}
0x8dd4…8de8 Head {h00=0x0010, h01=0x0050, text=»EBC:07 EQU *«, t00=0x005a, t01=0x0156}
0x8de8…8df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x016a}
0x8df2…8e08 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x005a, t01=0x0174}
0x8e08…8e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x018a}
0x8e12…8e1c (91, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0004}
0x8e1c…8e28 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x000e}
0x8e28…8e42 Head {h00=0x0016, h01=0x0050, text=» IFT ASCEBC+IBM=2 «, t00=0x005b, t01=0x001a}
0x8e42…8e4e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x005b, t01=0x0034}
0x8e4e…8e64 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x005b, t01=0x0040}
0x8e64…8e7e Head {h00=0x0016, h01=0x0050, text=» IFT IBM+ASCEBC=2 «, t00=0x005b, t01=0x0056}
0x8e7e…8ea4 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTBA,A6 BUFFER ADDRESS«, t00=0x005b, t01=0x0070}
0x8ea4…8eb0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0096}
0x8eb0…8eca Head {h00=0x0016, h01=0x0050, text=» IFT IBM+ASCEBC=2 «, t00=0x005b, t01=0x00a2}
0x8eca…8ee0 Head {h00=0x0012, h01=0x0050, text=» CF A5,GETLEN «, t00=0x005b, t01=0x00bc}
0x8ee0…8ef2 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x005b, t01=0x00d2}
0x8ef2…8f06 Head {h00=0x0010, h01=0x0050, text=»EBC:10 EQU *«, t00=0x005b, t01=0x00e4}
0x8f06…8f18 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x005b, t01=0x00f8}
0x8f18…8f3a Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x005b, t01=0x010a}
0x8f3a…8f4e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x005b, t01=0x012c}
0x8f4e…8f68 Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x005b, t01=0x0140}
0x8f68…8f82 Head {h00=0x0016, h01=0x0050, text=» SC A1,FD:BUF-1,A7«, t00=0x005b, t01=0x015a}
0x8f82…8f94 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x005b, t01=0x0174}
0x8f94…8faa Head {h00=0x0012, h01=0x0050, text=» RB(P) EBC:10 «, t00=0x005b, t01=0x0186}
0x8faa…8fca Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x005c, t01=0x000c}
0x8fca…8fda Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005c, t01=0x002c}
0x8fda…8fe6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x003c}
0x8fe6…8ff8 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005c, t01=0x0048}
0x8ff8…9002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x005a}
0x9002…901a Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x005c, t01=0x0064}
0x901a…9024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x007c}
0x9024…9036 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005c, t01=0x0086}
0x9036…9048 Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x005c, t01=0x0098}
0x9048…905a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005c, t01=0x00aa}
0x905a…9064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00bc}
0x9064…90a2 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x005c, t01=0x00c6}
0x90a2…90d6 Head {h00=0x0030, h01=0x0050, text=»* EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x005c, t01=0x0104}
0x90d6…90e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0138}
0x90e0…9104 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A7 BINARY NUMBER«, t00=0x005c, t01=0x0142}
0x9104…910e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0166}
0x910e…9140 Head {h00=0x002e, h01=0x0050, text=»* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS«, t00=0x005c, t01=0x0170}
0x9140…915e Head {h00=0x001a, h01=0x0050, text=»* A7 CHANGED«, t00=0x005d, t01=0x0012}
0x915e…9168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0030}
0x9168…917c Head {h00=0x0010, h01=0x0050, text=»BINDEC EQU *«, t00=0x005d, t01=0x003a}
0x917c…91a4 Head {h00=0x0024, h01=0x0050, text=» LDKL A3,/EFF0 EBCDIC CHARACTERS«, t00=0x005d, t01=0x004e}
0x91a4…91b8 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/7F «, t00=0x005d, t01=0x0076}
0x91b8…91cc Head {h00=0x0010, h01=0x0050, text=»BIN:10 EQU *«, t00=0x005d, t01=0x008a}
0x91cc…91f2 Head {h00=0x0022, h01=0x0050, text=» ADKL A3,/100 ADD 10 IN EBCDIC«, t00=0x005d, t01=0x009e}
0x91f2…9204 Head {h00=0x000e, h01=0x0050, text=» SUK A7,10«, t00=0x005d, t01=0x00c4}
0x9204…921a Head {h00=0x0012, h01=0x0050, text=» RB(NN) BIN:10«, t00=0x005d, t01=0x00d6}
0x921a…9238 Head {h00=0x001a, h01=0x0050, text=» ADK A7,10 NUMBER 0-9 «, t00=0x005d, t01=0x00ec}
0x9238…924a Head {h00=0x000e, h01=0x0050, text=» ORR A3,A7«, t00=0x005d, t01=0x010a}
0x924a…925a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005d, t01=0x011c}
0x925a…9264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x012c}
0x9264…927a Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x005d, t01=0x0136}
0x927a…9284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x014c}
0x9284…9296 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005d, t01=0x0156}
0x9296…92a8 Head {h00=0x000e, h01=0x0050, text=»* IBMTRA *«, t00=0x005d, t01=0x0168}
0x92a8…92ba Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005d, t01=0x017a}
0x92ba…92c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x018c}
0x92c4…92fc Head {h00=0x0034, h01=0x0050, text=»* TRANSFORM SECTOR IDENTIFIER FROM EBCDIC CODE«, t00=0x005e, t01=0x0008}
0x92fc…9316 Head {h00=0x0016, h01=0x0050, text=»* TO BINARY CODE«, t00=0x005e, t01=0x0040}
0x9316…9320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x005a}
0x9320…9348 Head {h00=0x0024, h01=0x0050, text=»* FORMAT : TTHSS (EBCDIC CODE)«, t00=0x005e, t01=0x0064}
0x9348…9376 Head {h00=0x002a, h01=0x0050, text=»* TT=TRACK,H=HEAD,SS=SECTOR«, t00=0x005e, t01=0x008c}
0x9376…9380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00ba}
0x9380…93ac Head {h00=0x0028, h01=0x0050, text=»* INPUT : A7 = ADDRESS TO TTHSS «, t00=0x005e, t01=0x00c4}
0x93ac…93b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00f0}
0x93b6…93f6 Head {h00=0x003c, h01=0x0050, text=»* OUTPUT : A3 = TTH IN LEFT BYTE AND SS IN RIGHT BYTE«, t00=0x005e, t01=0x00fa}
0x93f6…9426 Head {h00=0x002c, h01=0x0050, text=»* A7 = ADDRESS TO TTHSS + 5 «, t00=0x005e, t01=0x013a}
0x9426…944e Head {h00=0x0024, h01=0x0050, text=»* = A6+DOUBLE INDEX«, t00=0x005e, t01=0x016a}
0x944e…9458 (95, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0004}
0x9458…946c Head {h00=0x0010, h01=0x0050, text=»IBMTRA EQU *«, t00=0x005f, t01=0x000e}
0x946c…9498 Head {h00=0x0028, h01=0x0050, text=» CF A5,EBCBI2 TRANSFER EBCDIC - BIN «, t00=0x005f, t01=0x0022}
0x9498…94bc Head {h00=0x0020, h01=0x0050, text=» LDR A3,A1 SAVE TRACK NUMBER«, t00=0x005f, t01=0x004e}
0x94bc…94da Head {h00=0x001a, h01=0x0050, text=» SLL A3,1 IN POSITION «, t00=0x005f, t01=0x0072}
0x94da…9500 Head {h00=0x0022, h01=0x0050, text=» LDK A4,1 TRANSFER HEAD NUMBER«, t00=0x005f, t01=0x0090}
0x9500…9524 Head {h00=0x0020, h01=0x0050, text=» CF A5,EBCBIN EBCDIC-BINARY «, t00=0x005f, t01=0x00b6}
0x9524…954e Head {h00=0x0026, h01=0x0050, text=» ORR A3,A1 HEAD NUMBER IN POSITION«, t00=0x005f, t01=0x00da}
0x954e…9572 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTFOR,A6 GET FORMAT «, t00=0x005f, t01=0x0104}
0x9572…9584 Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x005f, t01=0x0128}
0x9584…95a2 Head {h00=0x001a, h01=0x0050, text=» RF(NN) IBMT05 (128-1)«, t00=0x005f, t01=0x013a}
0x95a2…95c0 Head {h00=0x001a, h01=0x0050, text=» SUK A1,1 HEAD NUMBER «, t00=0x005f, t01=0x0158}
0x95c0…95d4 Head {h00=0x0010, h01=0x0050, text=»IBMT05 EQU *«, t00=0x005f, t01=0x0176}
0x95d4…95e6 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x005f, t01=0x018a}
0x95e6…9612 Head {h00=0x0028, h01=0x0050, text=» RF(NN) IBMT70 HEAD NUMBER TOO HIGH «, t00=0x0060, t01=0x000c}
0x9612…9636 Head {h00=0x0020, h01=0x0050, text=» CF A5,EBCBI2 EBCDIC-BINARY «, t00=0x0060, t01=0x0038}
0x9636…9668 Head {h00=0x002e, h01=0x0050, text=» ECR A3,A3 TRACK AND HEAD NO TO LEFT BYTE «, t00=0x0060, t01=0x005c}
0x9668…9690 Head {h00=0x0024, h01=0x0050, text=» SUK A1,1 PHYSICAL SECTOR NUMBER«, t00=0x0060, t01=0x008e}
0x9690…96be Head {h00=0x002a, h01=0x0050, text=» ORR A3,A1 SECTOR NUMBER TO RIGHT BYTE«, t00=0x0060, t01=0x00b6}
0x96be…96c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00e4}
0x96c8…96de Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0060, t01=0x00ee}
0x96de…96e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0104}
0x96e8…96f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x010e}
0x96f2…9704 Head {h00=0x000e, h01=0x0050, text=» ECR A4,A3«, t00=0x0060, t01=0x0118}
0x9704…972a Head {h00=0x0022, h01=0x0050, text=» ANK A4,/FF CYL NO AND HEAD NO«, t00=0x0060, t01=0x012a}
0x972a…973c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0060, t01=0x0150}
0x973c…9762 Head {h00=0x0022, h01=0x0050, text=» RF(NP) IBMT70 TRACK 0: ERROR «, t00=0x0060, t01=0x0162}
0x9762…9786 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTFOR,A6 GET FORMAT «, t00=0x0060, t01=0x0188}
0x9786…9798 Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x0061, t01=0x001c}
0x9798…97b6 Head {h00=0x001a, h01=0x0050, text=» RF(NN) IBMT10 (128-1)«, t00=0x0061, t01=0x002e}
0x97b6…97da Head {h00=0x0020, h01=0x0050, text=» SUK A4,2 DECREMENT TRACK NO«, t00=0x0061, t01=0x004c}
0x97da…97ee Head {h00=0x0010, h01=0x0050, text=»IBMT10 EQU *«, t00=0x0061, t01=0x0070}
0x97ee…980a Head {h00=0x0018, h01=0x0050, text=» CWK A4,FD:BUF+EOD+5«, t00=0x0061, t01=0x0084}
0x980a…9824 Head {h00=0x0016, h01=0x0050, text=» RF(E) IBMT15 EOD «, t00=0x0061, t01=0x00a0}
0x9824…9842 Head {h00=0x001a, h01=0x0050, text=» CWK A4,FD:BUF+EOD+/45«, t00=0x0061, t01=0x00ba}
0x9842…9864 Head {h00=0x001e, h01=0x0050, text=» RF(NE) IBMT20 BOE OR EOE «, t00=0x0061, t01=0x00d8}
0x9864…9878 Head {h00=0x0010, h01=0x0050, text=»IBMT15 EQU *«, t00=0x0061, t01=0x00fa}
0x9878…9892 Head {h00=0x0016, h01=0x0050, text=» SUK A4,147 2*74-1«, t00=0x0061, t01=0x010e}
0x9892…98be Head {h00=0x0028, h01=0x0050, text=» RF(G) IBMT70 INCORRECT TRACK NUMBER«, t00=0x0061, t01=0x0128}
0x98be…98e4 Head {h00=0x0022, h01=0x0050, text=» RF(L) IBMT40 TRACK OK RETURN «, t00=0x0061, t01=0x0154}
0x98e4…9918 Head {h00=0x0030, h01=0x0050, text=» SUK A1,0 CHECK SECTOR NUMBER IF LAST TRACK «, t00=0x0061, t01=0x017a}
0x9918…992a Head {h00=0x000e, h01=0x0050, text=» RF IBMT50«, t00=0x0062, t01=0x001e}
0x992a…9942 Head {h00=0x0014, h01=0x0050, text=»IBMT20 EQU * EOD«, t00=0x0062, t01=0x0030}
0x9942…995a Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 FORMAT«, t00=0x0062, t01=0x0048}
0x995a…9978 Head {h00=0x001a, h01=0x0050, text=» RF(NN) IBMT30 (128-1)«, t00=0x0062, t01=0x0060}
0x9978…998a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0062, t01=0x007e}
0x998a…999e Head {h00=0x0010, h01=0x0050, text=»IBMT30 EQU *«, t00=0x0062, t01=0x0090}
0x999e…99b8 Head {h00=0x0016, h01=0x0050, text=» SUK A4,145 2*73-1«, t00=0x0062, t01=0x00a4}
0x99b8…99e2 Head {h00=0x0026, h01=0x0050, text=» RF(P) IBMT70 INCORRECT TRACK,HEAD«, t00=0x0062, t01=0x00be}
0x99e2…99f6 Head {h00=0x0010, h01=0x0050, text=»IBMT40 EQU *«, t00=0x0062, t01=0x00e8}
0x99f6…9a0a Head {h00=0x0010, h01=0x0050, text=» SUK A1,25 «, t00=0x0062, t01=0x00fc}
0x9a0a…9a32 Head {h00=0x0024, h01=0x0050, text=»IBMT50 EQU * CHECK SECTOR NUMBER«, t00=0x0062, t01=0x0110}
0x9a32…9a60 Head {h00=0x002a, h01=0x0050, text=» RF(G) IBMT70 INCORRECT SECTOR NUMBER «, t00=0x0062, t01=0x0138}
0x9a60…9a74 Head {h00=0x0010, h01=0x0050, text=»IBMT60 EQU *«, t00=0x0062, t01=0x0166}
0x9a74…9a8a Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0062, t01=0x017a}
0x9a8a…9a9a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0062, t01=0x0190}
0x9a9a…9aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0010}
0x9aa4…9aba Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0063, t01=0x001a}
0x9aba…9ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0030}
0x9ac4…9ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x003a}
0x9ace…9ae8 Head {h00=0x0016, h01=0x0050, text=»IBMT70 EQU * ERROR«, t00=0x0063, t01=0x0044}
0x9ae8…9b08 Head {h00=0x001c, h01=0x0050, text=» LDK A1,RC:IDS RC: ERROR«, t00=0x0063, t01=0x005e}
0x9b08…9b1c Head {h00=0x0010, h01=0x0050, text=» ABL END:UL «, t00=0x0063, t01=0x007e}
0x9b1c…9b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0092}
0x9b26…9b3c Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0063, t01=0x009c}
0x9b3c…9b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00b2}
0x9b46…9b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00bc}
0x9b50…9b62 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0063, t01=0x00c6}
0x9b62…9b74 Head {h00=0x000e, h01=0x0050, text=»* SECBIN *«, t00=0x0063, t01=0x00d8}
0x9b74…9b86 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0063, t01=0x00ea}
0x9b86…9b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00fc}
0x9b90…9bc4 Head {h00=0x0030, h01=0x0050, text=»* CONVERT SECTOR IDENTIFIER TO BINARY CODE«, t00=0x0063, t01=0x0106}
0x9bc4…9bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x013a}
0x9bce…9bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0144}
0x9bd8…9bec Head {h00=0x0010, h01=0x0050, text=»SECBIN EQU *«, t00=0x0063, t01=0x014e}
0x9bec…9bfe Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0063, t01=0x0162}
0x9bfe…9c1e Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTFOR,A6 FORMAT «, t00=0x0063, t01=0x0174}
0x9c1e…9c30 (100, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ANK A2,/2«, t00=0x0064, t01=0x0004}
0x9c30…9c50 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) SECB05 (256-2D) «, t00=0x0064, t01=0x0016}
0x9c50…9c62 Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0064, t01=0x0036}
0x9c62…9c76 Head {h00=0x0010, h01=0x0050, text=»SECB05 EQU *«, t00=0x0064, t01=0x0048}
0x9c76…9c96 Head {h00=0x001c, h01=0x0050, text=» SRL A3,8 TRACK AND HEAD«, t00=0x0064, t01=0x005c}
0x9c96…9ca8 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0064, t01=0x007c}
0x9ca8…9cbe Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x0064, t01=0x008e}
0x9cbe…9cd2 Head {h00=0x0010, h01=0x0050, text=» SLL A2,2 *4«, t00=0x0064, t01=0x00a4}
0x9cd2…9ce8 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x0064, t01=0x00b8}
0x9ce8…9cfc Head {h00=0x0010, h01=0x0050, text=» SRL A2,1 *2«, t00=0x0064, t01=0x00ce}
0x9cfc…9d12 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *26«, t00=0x0064, t01=0x00e2}
0x9d12…9d26 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0064, t01=0x00f8}
0x9d26…9d4e Head {h00=0x0024, h01=0x0050, text=» ADR A3,A1 LOGICAL SECTOR NUMBER«, t00=0x0064, t01=0x010c}
0x9d4e…9d5e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0064, t01=0x0134}
0x9d5e…9d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0144}
0x9d68…9d80 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD01 «, t00=0x0064, t01=0x014e}
0x9d80…9d8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0166}
0x9d8a…9d9c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0064, t01=0x0170}
0x9d9c…9dae Head {h00=0x000e, h01=0x0050, text=»* EBCBIN *«, t00=0x0064, t01=0x0182}
0x9dae…9dc0 (101, 0, 400) Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0065, t01=0x0004}
0x9dc0…9dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0016}
0x9dca…9dfe Head {h00=0x0030, h01=0x0050, text=»* EBCBIN TRANSFORM EBCDIC CODED DIGITS TO «, t00=0x0065, t01=0x0020}
0x9dfe…9e46 Head {h00=0x0044, h01=0x0050, text=»* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x0065, t01=0x0054}
0x9e46…9e76 Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO FIRST DIGIT«, t00=0x0065, t01=0x009c}
0x9e76…9ea2 Head {h00=0x0028, h01=0x0050, text=»* A7 = NUMBER OF DIGITS«, t00=0x0065, t01=0x00cc}
0x9ea2…9ec0 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A1 BINARY«, t00=0x0065, t01=0x00f8}
0x9ec0…9ee0 Head {h00=0x001c, h01=0x0050, text=»* A4 = A4 + A7«, t00=0x0065, t01=0x0116}
0x9ee0…9f00 Head {h00=0x001c, h01=0x0050, text=»* WORKING REG: A2,A7 «, t00=0x0065, t01=0x0136}
0x9f00…9f0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0156}
0x9f0a…9f1e Head {h00=0x0010, h01=0x0050, text=»EBCBI2 EQU *«, t00=0x0065, t01=0x0160}
0x9f1e…9f3a Head {h00=0x0018, h01=0x0050, text=» LDK A4,2 TWO DIGITS«, t00=0x0065, t01=0x0174}
0x9f3a…9f4e Head {h00=0x0010, h01=0x0050, text=»EBCBIN EQU *«, t00=0x0065, t01=0x0190}
0x9f4e…9f60 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0066, t01=0x0014}
0x9f60…9f7e Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A7 DIGIT«, t00=0x0066, t01=0x0026}
0x9f7e…9f92 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0066, t01=0x0044}
0x9f92…9fa6 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0066, t01=0x0058}
0x9fa6…9fbc Head {h00=0x0012, h01=0x0050, text=» RB(N) IBMT70 «, t00=0x0066, t01=0x006c}
0x9fbc…9fce Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0066, t01=0x0082}
0x9fce…9fee Head {h00=0x001c, h01=0x0050, text=» RB(P) IBMT70 NOT DIGIT «, t00=0x0066, t01=0x0094}
0x9fee…a000 Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0066, t01=0x00b4}
0xa000…a028 Head {h00=0x0024, h01=0x0050, text=» ADK A7,1 ADDRESS TO NEXT DIGIT «, t00=0x0066, t01=0x00c6}
0xa028…a03a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0066, t01=0x00ee}
0xa03a…a050 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0066, t01=0x0100}
0xa050…a068 Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0066, t01=0x0116}
0xa068…a088 Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0066, t01=0x012e}
0xa088…a0aa Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0066, t01=0x014e}
0xa0aa…a0bc Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0066, t01=0x0170}
0xa0bc…a0d4 Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0066, t01=0x0182}
0xa0d4…a0e4 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0067, t01=0x000a}
0xa0e4…a0ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x001a}
0xa0ee…a104 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0067, t01=0x0024}
0xa104…a10e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x003a}
0xa10e…a118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0044}
0xa118…a12a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x004e}
0xa12a…a13c Head {h00=0x000e, h01=0x0050, text=»* IBMCHK *«, t00=0x0067, t01=0x0060}
0xa13c…a14e Head {h00=0x000e, h01=0x0050, text=»* IBMCH5 *«, t00=0x0067, t01=0x0072}
0xa14e…a160 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x0084}
0xa160…a16a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0096}
0xa16a…a18e Head {h00=0x0020, h01=0x0050, text=»* IBM CHECK OF PARAMETERS «, t00=0x0067, t01=0x00a0}
0xa18e…a198 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00c4}
0xa198…a1c4 Head {h00=0x0028, h01=0x0050, text=»* INPUT : A4=INDEXED DWT ADDRESS«, t00=0x0067, t01=0x00ce}
0xa1c4…a1e6 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT : A4 UNCHANGED«, t00=0x0067, t01=0x00fa}
0xa1e6…a1f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x011c}
0xa1f0…a204 Head {h00=0x0010, h01=0x0050, text=»IBMCHK EQU *«, t00=0x0067, t01=0x0126}
0xa204…a228 Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTFOR,A6 GET FORMAT «, t00=0x0067, t01=0x013a}
0xa228…a250 Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBRL,A8 REQUESTED LENGTH«, t00=0x0067, t01=0x015e}
0xa250…a262 Head {h00=0x000e, h01=0x0050, text=» SRC A1,2 «, t00=0x0067, t01=0x0186}
0xa262…a280 Head {h00=0x001a, h01=0x0050, text=» RF(NN) IBMC10 (128-1)«, t00=0x0068, t01=0x0008}
0xa280…a294 Head {h00=0x0010, h01=0x0050, text=» SUK A2,128 «, t00=0x0068, t01=0x0026}
0xa294…a2a8 Head {h00=0x0010, h01=0x0050, text=»IBMC10 EQU *«, t00=0x0068, t01=0x003a}
0xa2a8…a2bc Head {h00=0x0010, h01=0x0050, text=» SUK A2,128 «, t00=0x0068, t01=0x004e}
0xa2bc…a2e2 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) ER:ILE ILLEGAL LENGTH«, t00=0x0068, t01=0x0062}
0xa2e2…a2f6 Head {h00=0x0010, h01=0x0050, text=»IBMCH5 EQU *«, t00=0x0068, t01=0x0088}
0xa2f6…a31a Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTEOD,A4 END OF DATA«, t00=0x0068, t01=0x009c}
0xa31a…a344 Head {h00=0x0026, h01=0x0050, text=» RF(Z) REQERO NOT OPENED DATA SET «, t00=0x0068, t01=0x00c0}
0xa344…a35a Head {h00=0x0012, h01=0x0050, text=» IFT ASCEBC=0 «, t00=0x0068, t01=0x00ea}
0xa35a…a37a Head {h00=0x001c, h01=0x0050, text=» CF A5,GETLE0 GET LENGTH«, t00=0x0068, t01=0x0100}
0xa37a…a38c Head {h00=0x000e, h01=0x0050, text=» SRL A7,1 «, t00=0x0068, t01=0x0120}
0xa38c…a3a6 Head {h00=0x0016, h01=0x0050, text=» ORS A7,DWTWE1,A6 «, t00=0x0068, t01=0x0132}
0xa3a6…a3b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x014c}
0xa3b2…a3c4 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0068, t01=0x0158}
0xa3c4…a3da Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x0068, t01=0x016a}
0xa3da…a3ec Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0068, t01=0x0180}
0xa3ec…a416 (105, 0, 400) Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) END:IO NEW VOLUME LOADED «, t00=0x0069, t01=0x0004}
0xa416…a42a Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0069, t01=0x002e}
0xa42a…a44e Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTFOR,A6 GET FORMAT «, t00=0x0069, t01=0x0042}
0xa44e…a460 Head {h00=0x000e, h01=0x0050, text=» SRC A2,1 «, t00=0x0069, t01=0x0066}
0xa460…a47e Head {h00=0x001a, h01=0x0050, text=» RB(N) IBMT60 IBM DISC«, t00=0x0069, t01=0x0078}
0xa47e…a48a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0096}
0xa48a…a49e Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=0 «, t00=0x0069, t01=0x00a2}
0xa49e…a4b0 Head {h00=0x000e, h01=0x0050, text=» RB IBMT60«, t00=0x0069, t01=0x00b6}
0xa4b0…a4bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x00c8}
0xa4bc…a4ce Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0069, t01=0x00d4}
0xa4ce…a4f0 Head {h00=0x001e, h01=0x0050, text=»REQERO EQU * REQUEST ERROR«, t00=0x0069, t01=0x00e6}
0xa4f0…a504 Head {h00=0x0010, h01=0x0050, text=» ABL DISIOE «, t00=0x0069, t01=0x0108}
0xa504…a50e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x011c}
0xa50e…a524 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0069, t01=0x0126}
0xa524…a52e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x013c}
0xa52e…a540 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x0146}
0xa540…a552 Head {h00=0x000e, h01=0x0050, text=»* INCSEC *«, t00=0x0069, t01=0x0158}
0xa552…a564 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x016a}
0xa564…a56e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x017c}
0xa56e…a596 Head {h00=0x0024, h01=0x0050, text=»* INCREMENT SECTOR IDENTIFIER «, t00=0x0069, t01=0x0186}
0xa596…a5a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x001e}
0xa5a0…a5c4 Head {h00=0x0020, h01=0x0050, text=»* OUTPUT: A3 = SECTOR ID «, t00=0x006a, t01=0x0028}
0xa5c4…a5ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x004c}
0xa5ce…a5e2 Head {h00=0x0010, h01=0x0050, text=»INCSEC EQU *«, t00=0x006a, t01=0x0056}
0xa5e2…a604 Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTSEC,A6 SECTOR ID«, t00=0x006a, t01=0x006a}
0xa604…a618 Head {h00=0x0010, h01=0x0050, text=»INCSE0 EQU *«, t00=0x006a, t01=0x008c}
0xa618…a62a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006a, t01=0x00a0}
0xa62a…a64a Head {h00=0x001c, h01=0x0050, text=» CCK A3,/1A00 SECTOR 26 «, t00=0x006a, t01=0x00b2}
0xa64a…a66a Head {h00=0x001c, h01=0x0050, text=» RF(L) INCS10 SAME TRACK«, t00=0x006a, t01=0x00d2}
0xa66a…a68a Head {h00=0x001c, h01=0x0050, text=» CF A5,INCCYL NEXT TRACK«, t00=0x006a, t01=0x00f2}
0xa68a…a69c Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x006a, t01=0x0112}
0xa69c…a6b8 Head {h00=0x0018, h01=0x0050, text=» SUK A3,26 SECTOR 0 «, t00=0x006a, t01=0x0124}
0xa6b8…a6cc Head {h00=0x0010, h01=0x0050, text=»INCS10 EQU *«, t00=0x006a, t01=0x0140}
0xa6cc…a6fa Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTSEC,A6 INCREMENTED SECTOR ID«, t00=0x006a, t01=0x0154}
0xa6fa…a70a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006a, t01=0x0182}
0xa70a…a714 (107, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0004}
0xa714…a72a Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x006b, t01=0x000e}
0xa72a…a734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0024}
0xa734…a746 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006b, t01=0x002e}
0xa746…a758 Head {h00=0x000e, h01=0x0050, text=»* DECBOE *«, t00=0x006b, t01=0x0040}
0xa758…a76a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006b, t01=0x0052}
0xa76a…a774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0064}
0xa774…a78a Head {h00=0x0012, h01=0x0050, text=»* CRN = A3-1«, t00=0x006b, t01=0x006e}
0xa78a…a794 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0084}
0xa794…a7a8 Head {h00=0x0010, h01=0x0050, text=»DECBOE EQU *«, t00=0x006b, t01=0x008e}
0xa7a8…a7ba Head {h00=0x000e, h01=0x0050, text=» CCK A3,0 «, t00=0x006b, t01=0x00a2}
0xa7ba…a7d0 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DECS10«, t00=0x006b, t01=0x00b4}
0xa7d0…a7f0 Head {h00=0x001c, h01=0x0050, text=» CF A5,INCCYL NEXT TRACK«, t00=0x006b, t01=0x00ca}
0xa7f0…a802 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A2«, t00=0x006b, t01=0x00ea}
0xa802…a814 Head {h00=0x000e, h01=0x0050, text=» ORK A3,26«, t00=0x006b, t01=0x00fc}
0xa814…a828 Head {h00=0x0010, h01=0x0050, text=»DECS10 EQU *«, t00=0x006b, t01=0x010e}
0xa828…a83a Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x006b, t01=0x0122}
0xa83a…a868 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCRN,A4 CURRENT RECORD NUMBER«, t00=0x006b, t01=0x0134}
0xa868…a878 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006b, t01=0x0162}
0xa878…a882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0172}
0xa882…a88e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x017c}
0xa88e…a8a4 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x006b, t01=0x0188}
0xa8a4…a8ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x000e}
0xa8ae…a8b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0018}
0xa8b8…a8ca Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x0022}
0xa8ca…a8dc Head {h00=0x000e, h01=0x0050, text=»* INCCYL *«, t00=0x006c, t01=0x0034}
0xa8dc…a8ee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x0046}
0xa8ee…a8f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0058}
0xa8f8…a91c Head {h00=0x0020, h01=0x0050, text=»* NEXT TRACK OF SECTOR ID «, t00=0x006c, t01=0x0062}
0xa91c…a926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0086}
0xa926…a930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0090}
0xa930…a944 Head {h00=0x0010, h01=0x0050, text=»INCCYL EQU *«, t00=0x006c, t01=0x009a}
0xa944…a95c Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFOR,A6«, t00=0x006c, t01=0x00ae}
0xa95c…a96e Head {h00=0x000e, h01=0x0050, text=» C1R A2,A2«, t00=0x006c, t01=0x00c6}
0xa96e…a99a Head {h00=0x0028, h01=0x0050, text=» ANK A2,2 (128-1)/(256-2D) INDICATOR«, t00=0x006c, t01=0x00d8}
0xa99a…a9b6 Head {h00=0x0018, h01=0x0050, text=» ADK A2,2 NEXT TRACK«, t00=0x006c, t01=0x0104}
0xa9b6…a9d4 Head {h00=0x001a, h01=0x0050, text=» SLL A2,7 IN POSITION «, t00=0x006c, t01=0x0120}
0xa9d4…a9e4 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006c, t01=0x013e}
0xa9e4…a9ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x014e}
0xa9ee…aa04 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x006c, t01=0x0158}
0xaa04…aa0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x016e}
0xaa0e…aa20 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x0178}
0xaa20…aa32 Head {h00=0x000e, h01=0x0050, text=»* REAPRE *«, t00=0x006c, t01=0x018a}
0xaa32…aa44 Head {h00=0x000e, h01=0x0050, text=»* WRIPRB *«, t00=0x006d, t01=0x000c}
0xaa44…aa56 Head {h00=0x000e, h01=0x0050, text=»* WRIPRE *«, t00=0x006d, t01=0x001e}
0xaa56…aa68 Head {h00=0x000e, h01=0x0050, text=»* CIOPRE *«, t00=0x006d, t01=0x0030}
0xaa68…aa7a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006d, t01=0x0042}
0xaa7a…aa84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0054}
0xaa84…aaa6 Head {h00=0x001e, h01=0x0050, text=»* PREPARE FOR CIO START «, t00=0x006d, t01=0x005e}
0xaaa6…aab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0080}
0xaab0…aac2 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006d, t01=0x008a}
0xaac2…aad6 Head {h00=0x0010, h01=0x0050, text=»REAPDS EQU *«, t00=0x006d, t01=0x009c}
0xaad6…aaec Head {h00=0x0012, h01=0x0050, text=» ANKL 3,/7FFF «, t00=0x006d, t01=0x00b0}
0xaaec…ab16 Head {h00=0x0026, h01=0x0050, text=» ST A3,DWTSEC,A6 SECTOR IDENTIFIER«, t00=0x006d, t01=0x00c6}
0xab16…ab22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x00f0}
0xab22…ab36 Head {h00=0x0010, h01=0x0050, text=»REAPRB EQU *«, t00=0x006d, t01=0x00fc}
0xab36…ab4c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x006d, t01=0x0110}
0xab4c…ab72 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,FD:BUF BUFFER ADDRESS«, t00=0x006d, t01=0x0126}
0xab72…aba2 Head {h00=0x002c, h01=0x0050, text=» ST A1,DWTBA,A6 BUFFER ADDRESS SAVE AREA«, t00=0x006d, t01=0x014c}
0xaba2…abae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x017c}
0xabae…abb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0188}
0xabb8…abd2 (110, 0, 400) Head {h00=0x0016, h01=0x0050, text=»REAPRE EQU * READ «, t00=0x006e, t01=0x0004}
0xabd2…abf6 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,IN:WE1-/80 1ST WER «, t00=0x006e, t01=0x001e}
0xabf6…ac14 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 CIO REGISTER«, t00=0x006e, t01=0x0042}
0xac14…ac26 Head {h00=0x000e, h01=0x0050, text=» RF CIOPRE«, t00=0x006e, t01=0x0060}
0xac26…ac30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0072}
0xac30…ac4a Head {h00=0x0016, h01=0x0050, text=»WRIPRE EQU * WRITE«, t00=0x006e, t01=0x007c}
0xac4a…ac6c Head {h00=0x001e, h01=0x0050, text=» LDKL A1,IN:WE1+/4000-/80 «, t00=0x006e, t01=0x0096}
0xac6c…ac7e Head {h00=0x000e, h01=0x0050, text=» LDK A3,1 «, t00=0x006e, t01=0x00b8}
0xac7e…ac88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00ca}
0xac88…aca4 Head {h00=0x0018, h01=0x0050, text=»CIOPRE EQU * GENERAL«, t00=0x006e, t01=0x00d4}
0xaca4…acbc Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTWE1,A6«, t00=0x006e, t01=0x00f0}
0xacbc…acd4 Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTIOR,A6«, t00=0x006e, t01=0x0108}
0xacd4…ace4 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006e, t01=0x0120}
0xace4…acee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0130}
0xacee…ad04 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x006e, t01=0x013a}
0xad04…ad0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0150}
0xad0e…ad18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x015a}
0xad18…ad2a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006e, t01=0x0164}
0xad2a…ad3c Head {h00=0x000e, h01=0x0050, text=»* LOCK *«, t00=0x006e, t01=0x0176}
0xad3c…ad4e Head {h00=0x000e, h01=0x0050, text=»* UNLOCK *«, t00=0x006e, t01=0x0188}
0xad4e…ad60 Head {h00=0x000e, h01=0x0050, text=»* SEEK *«, t00=0x006f, t01=0x000a}
0xad60…ad72 Head {h00=0x000e, h01=0x0050, text=»* CIO:WR *«, t00=0x006f, t01=0x001c}
0xad72…ad84 Head {h00=0x000e, h01=0x0050, text=»* CIO:VF *«, t00=0x006f, t01=0x002e}
0xad84…ad96 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006f, t01=0x0040}
0xad96…ada0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0052}
0xada0…adaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x005c}
0xadaa…adb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0066}
0xadb4…adc6 Head {h00=0x000e, h01=0x0050, text=»LOCK EQU *«, t00=0x006f, t01=0x0070}
0xadc6…addc Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/0400«, t00=0x006f, t01=0x0082}
0xaddc…adee Head {h00=0x000e, h01=0x0050, text=» RF CIO:00«, t00=0x006f, t01=0x0098}
0xadee…ae02 Head {h00=0x0010, h01=0x0050, text=»UNLOCK EQU *«, t00=0x006f, t01=0x00aa}
0xae02…ae18 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/0C00«, t00=0x006f, t01=0x00be}
0xae18…ae2a Head {h00=0x000e, h01=0x0050, text=» RF CIO:00«, t00=0x006f, t01=0x00d4}
0xae2a…ae3c Head {h00=0x000e, h01=0x0050, text=»SEEK EQU *«, t00=0x006f, t01=0x00e6}
0xae3c…ae68 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTSEC,A6 GET CYLINDER NUMBER«, t00=0x006f, t01=0x00f8}
0xae68…ae7a Head {h00=0x000e, h01=0x0050, text=» SRL A3,9 «, t00=0x006f, t01=0x0124}
0xae7a…aeaa Head {h00=0x002c, h01=0x0050, text=» CW A3,DWTCYN,A6 PRESENT CYLINDER NUMBER«, t00=0x006f, t01=0x0136}
0xaeaa…aed4 Head {h00=0x0026, h01=0x0050, text=» RF(E) CIORTN RETURN WITHOUT SEEK «, t00=0x006f, t01=0x0166}
0xaed4…aee8 Head {h00=0x0010, h01=0x0050, text=»SEEKA3 EQU *«, t00=0x006f, t01=0x0190}
0xaee8…af00 Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTCYN,A6«, t00=0x0070, t01=0x0014}
0xaf00…af1e Head {h00=0x001a, h01=0x0050, text=» SLL A3,2 IN POSITION «, t00=0x0070, t01=0x002c}
0xaf1e…af3a Head {h00=0x0018, h01=0x0050, text=» ORK A3,3 ORDER CODE«, t00=0x0070, t01=0x004a}
0xaf3a…af4c Head {h00=0x000e, h01=0x0050, text=» RF CIO:00«, t00=0x0070, t01=0x0066}
0xaf4c…af56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0078}
0xaf56…af6c Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0070, t01=0x0082}
0xaf6c…af76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0098}
0xaf76…af80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00a2}
0xaf80…af94 Head {h00=0x0010, h01=0x0050, text=»CIOIVF EQU *«, t00=0x0070, t01=0x00ac}
0xaf94…afb0 Head {h00=0x0018, h01=0x0050, text=» LDKL A3,/400 VERIFY«, t00=0x0070, t01=0x00c0}
0xafb0…afc2 Head {h00=0x000e, h01=0x0050, text=» RF CIOI03«, t00=0x0070, t01=0x00dc}
0xafc2…afe6 Head {h00=0x0020, h01=0x0050, text=»CIOI00 EQU * IBM IO ROUTINE «, t00=0x0070, t01=0x00ee}
0xafe6…affa Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEK «, t00=0x0070, t01=0x0112}
0xaffa…b00c Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0070, t01=0x0126}
0xb00c…b02e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CIOERR SEEK ERROR «, t00=0x0070, t01=0x0138}
0xb02e…b04a Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 WRITE/READ«, t00=0x0070, t01=0x015a}
0xb04a…b05e Head {h00=0x0010, h01=0x0050, text=»CIOI03 EQU *«, t00=0x0070, t01=0x0176}
0xb05e…b07e Head {h00=0x001c, h01=0x0050, text=» CF A5,GETLEN GET LENGTH«, t00=0x0070, t01=0x018a}
0xb07e…b090 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0071, t01=0x001a}
0xb090…b0a2 Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x0071, t01=0x002c}
0xb0a2…b0c2 Head {h00=0x001c, h01=0x0050, text=» OR A1,DWTWE1,A6 1ST WER«, t00=0x0071, t01=0x003e}
0xb0c2…b0e0 Head {h00=0x001a, h01=0x0050, text=» LDKL A2,FD:BUF BUFFER«, t00=0x0071, t01=0x005e}
0xb0e0…b0f8 Head {h00=0x0014, h01=0x0050, text=» OR A3,DWTIOR,A6«, t00=0x0071, t01=0x007c}
0xb0f8…b10e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0071, t01=0x0094}
0xb10e…b130 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CIOWE2 WRITE ORDER«, t00=0x0071, t01=0x00aa}
0xb130…b156 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTBA,A6 BUFFER ADDRESS«, t00=0x0071, t01=0x00cc}
0xb156…b162 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x00f2}
0xb162…b174 Head {h00=0x000e, h01=0x0050, text=» RF CIOWE2«, t00=0x0071, t01=0x00fe}
0xb174…b17e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0110}
0xb17e…b192 Head {h00=0x0010, h01=0x0050, text=»CIOVOL EQU *«, t00=0x0071, t01=0x011a}
0xb192…b1aa Head {h00=0x0014, h01=0x0050, text=» LDKL A2,FD:BUF «, t00=0x0071, t01=0x012e}
0xb1aa…b1be Head {h00=0x0010, h01=0x0050, text=»CIOVO1 EQU *«, t00=0x0071, t01=0x0146}
0xb1be…b1d4 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8020«, t00=0x0071, t01=0x015a}
0xb1d4…b1e6 Head {h00=0x000e, h01=0x0050, text=» RF PERCIO«, t00=0x0071, t01=0x0170}
0xb1e6…b1f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0182}
0xb1f0…b20a Head {h00=0x0016, h01=0x0050, text=» IFF TOSS+EBCASC=0«, t00=0x0071, t01=0x018c}
0xb20a…b220 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0072, t01=0x0016}
0xb220…b22a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x002c}
0xb22a…b234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0036}
0xb234…b248 Head {h00=0x0010, h01=0x0050, text=»CIO:VF EQU *«, t00=0x0072, t01=0x0040}
0xb248…b264 Head {h00=0x0018, h01=0x0050, text=» LDKL A3,/400 VERIFY«, t00=0x0072, t01=0x0054}
0xb264…b276 Head {h00=0x000e, h01=0x0050, text=» RF CIOWER«, t00=0x0072, t01=0x0070}
0xb276…b28a Head {h00=0x0010, h01=0x0050, text=»CIO:WR EQU *«, t00=0x0072, t01=0x0082}
0xb28a…b29e Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEK «, t00=0x0072, t01=0x0096}
0xb29e…b2b0 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0072, t01=0x00aa}
0xb2b0…b2d2 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CIOERR SEEK ERROR «, t00=0x0072, t01=0x00bc}
0xb2d2…b2ee Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 READ/WRITE«, t00=0x0072, t01=0x00de}
0xb2ee…b302 Head {h00=0x0010, h01=0x0050, text=»CIOWER EQU *«, t00=0x0072, t01=0x00fa}
0xb302…b318 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0072, t01=0x010e}
0xb318…b330 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTWE1,A6«, t00=0x0072, t01=0x0124}
0xb330…b350 Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTBA,A6 2ND WER «, t00=0x0072, t01=0x013c}
0xb350…b374 Head {h00=0x0020, h01=0x0050, text=» OR A3,DWTIOR,A6 IO REGISTER«, t00=0x0072, t01=0x015c}
0xb374…b380 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0180}
0xb380…b39a Head {h00=0x0016, h01=0x0050, text=» IFF TOSS+EBCASC=0«, t00=0x0072, t01=0x018c}
0xb39a…b3b0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0073, t01=0x0016}
0xb3b0…b3e0 Head {h00=0x002c, h01=0x0050, text=» ML 2,DWTBA,A6 GET 18 BIT BUFFER ADDRESS«, t00=0x0073, t01=0x002c}
0xb3e0…b3f2 Head {h00=0x000e, h01=0x0050, text=» SRC A1,4 «, t00=0x0073, t01=0x005c}
0xb3f2…b412 Head {h00=0x001c, h01=0x0050, text=» OR A1,DWTWE1,A6 1ST WER«, t00=0x0073, t01=0x006e}
0xb412…b42c Head {h00=0x0016, h01=0x0050, text=» SLL A2,1 2ND WER «, t00=0x0073, t01=0x008e}
0xb42c…b450 Head {h00=0x0020, h01=0x0050, text=» OR A3,DWTIOR,A6 IO REGISTER«, t00=0x0073, t01=0x00a8}
0xb450…b45c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0073, t01=0x00cc}
0xb45c…b470 Head {h00=0x0010, h01=0x0050, text=»CIOWE2 EQU *«, t00=0x0073, t01=0x00d8}
0xb470…b496 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTSEC,A6 SECTOR NUMBER«, t00=0x0073, t01=0x00ec}
0xb496…b4aa Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0073, t01=0x0112}
0xb4aa…b4c8 Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 IN POSITION «, t00=0x0073, t01=0x0126}
0xb4c8…b4e8 Head {h00=0x001c, h01=0x0050, text=» ORR A3,A4 IN ORDER WORD«, t00=0x0073, t01=0x0144}
0xb4e8…b50e Head {h00=0x0022, h01=0x0050, text=» LC A4,DWTSEC,A6 TRACK NUMBER «, t00=0x0073, t01=0x0164}
0xb50e…b52c Head {h00=0x001a, h01=0x0050, text=» ANK A4,1 HEAD NUMBER «, t00=0x0073, t01=0x018a}
0xb52c…b54a Head {h00=0x001a, h01=0x0050, text=» SRC A4,2 IN POSITION «, t00=0x0074, t01=0x0018}
0xb54a…b56a Head {h00=0x001c, h01=0x0050, text=» ORR A3,A4 IN ORDER WORD«, t00=0x0074, t01=0x0036}
0xb56a…b574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0056}
0xb574…b58a Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0074, t01=0x0060}
0xb58a…b594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0076}
0xb594…b59e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0080}
0xb59e…b5b2 Head {h00=0x0010, h01=0x0050, text=»PERCIO EQU *«, t00=0x0074, t01=0x008a}
0xb5b2…b5c8 Head {h00=0x0012, h01=0x0050, text=» WER A1,MUXADR«, t00=0x0074, t01=0x009e}
0xb5c8…b5e0 Head {h00=0x0014, h01=0x0050, text=» WER A2,MUXADR+1«, t00=0x0074, t01=0x00b4}
0xb5e0…b5f4 Head {h00=0x0010, h01=0x0050, text=»CIO:00 EQU *«, t00=0x0074, t01=0x00cc}
0xb5f4…b60a Head {h00=0x0012, h01=0x0050, text=» LD A2,PFPOST «, t00=0x0074, t01=0x00e0}
0xb60a…b642 Head {h00=0x0034, h01=0x0050, text=» RF(NZ) CIO:AB POWER FAILURE POST PROCESSING ON «, t00=0x0074, t01=0x00f6}
0xb642…b658 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0074, t01=0x012e}
0xb658…b67a Head {h00=0x001e, h01=0x0050, text=» EX DWTCIO,A4 EXECUTE CIO «, t00=0x0074, t01=0x0144}
0xb67a…b690 Head {h00=0x0012, h01=0x0050, text=» LDK A1,RC:NOP«, t00=0x0074, t01=0x0166}
0xb690…b6ba Head {h00=0x0026, h01=0x0050, text=» ABL(3) END:30 CU ADDRESS UNKNOWN «, t00=0x0074, t01=0x017c}
0xb6ba…b6ce Head {h00=0x0010, h01=0x0050, text=»CIO:AB EQU *«, t00=0x0075, t01=0x0016}
0xb6ce…b6f8 Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x0075, t01=0x002a}
0xb6f8…b714 Head {h00=0x0018, h01=0x0050, text=» ABL T:DISP DISPATCH«, t00=0x0075, t01=0x0054}
0xb714…b728 Head {h00=0x0010, h01=0x0050, text=»CIORTN EQU *«, t00=0x0075, t01=0x0070}
0xb728…b742 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 RESET RC«, t00=0x0075, t01=0x0084}
0xb742…b756 Head {h00=0x0010, h01=0x0050, text=»CIOERR EQU *«, t00=0x0075, t01=0x009e}
0xb756…b766 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0075, t01=0x00b2}
0xb766…b770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00c2}
0xb770…b786 Head {h00=0x0012, h01=0x0050, text=» EJECT DRFD02«, t00=0x0075, t01=0x00cc}
0xb786…b790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00e2}
0xb790…b79a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00ec}
0xb79a…b7ac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0075, t01=0x00f6}
0xb7ac…b7be Head {h00=0x000e, h01=0x0050, text=»* FD:BUF *«, t00=0x0075, t01=0x0108}
0xb7be…b7d0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0075, t01=0x011a}
0xb7d0…b7da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x012c}
0xb7da…b7fa Head {h00=0x001c, h01=0x0050, text=»* FLEXIBLE DISK BUFFER«, t00=0x0075, t01=0x0136}
0xb7fa…b804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0156}
0xb804…b818 Head {h00=0x0010, h01=0x0050, text=»FD:BUF EQU *«, t00=0x0075, t01=0x0160}
0xb818…b828 Head {h00=0x000c, h01=0x0050, text=» RES 64 «, t00=0x0075, t01=0x0174}
0xb828…b83a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0075, t01=0x0184}
0xb83a…b84a Head {h00=0x000c, h01=0x0050, text=» RES 64 «, t00=0x0076, t01=0x0008}
0xb84a…b856 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0018}
0xb856…b860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0024}
0xb860…b878 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0076, t01=0x002e}
0xb878…b882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0046}
0xb882…b8a0 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0076, t01=0x0050}
0xb8a0…b8be Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0076, t01=0x006e}
0xb8be…b8dc Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0076, t01=0x008c}
0xb8dc…b8fa Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0076, t01=0x00aa}
0xb8fa…b918 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0076, t01=0x00c8}
0xb918…b922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00e6}
0xb922…b936 Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0076, t01=0x00f0}
0xb936…b946 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x0104}
0xb946…b964 Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0076, t01=0x0114}
0xb964…b980 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0076, t01=0x0132}
0xb980…b996 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0076, t01=0x014e}
0xb996…b9bc Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0076, t01=0x0164}
0xb9bc…b9d8 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0076, t01=0x018a}
0xb9d8…ba00 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0077, t01=0x0016}
0xba00…ba1e Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0077, t01=0x003e}
0xba1e…ba28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x005c}
0xba28…ba3e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0077, t01=0x0066}
0xba3e…ba68 Head {h00=0x0026, h01=0x0050, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0077, t01=0x007c}
0xba68…ba8c Head {h00=0x0020, h01=0x0050, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0077, t01=0x00a6}
0xba8c…ba98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x00ca}
0xba98…baa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00d6}
0xbaa2…babc Head {h00=0x0016, h01=0x0050, text=»DWTA5 EQU *-DWFD01«, t00=0x0077, t01=0x00e0}
0xbabc…bacc Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0077, t01=0x00fa}
0xbacc…bafc Head {h00=0x002c, h01=0x0050, text=»DWTRC EQU *-DWFD01 RETURN CODE SAVE AREA«, t00=0x0077, t01=0x010a}
0xbafc…bb0c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0077, t01=0x013a}
0xbb0c…bb1c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0077, t01=0x014a}
0xbb1c…bb2c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0077, t01=0x015a}
0xbb2c…bb52 Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0,0 STACK (3 LEVELS)«, t00=0x0077, t01=0x016a}
0xbb52…bb72 Head {h00=0x001c, h01=0x0050, text=» DATA 0 ORDER SAVE AREA «, t00=0x0077, t01=0x0190}
0xbb72…bb7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0020}
0xbb7c…bb94 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0078, t01=0x002a}
0xbb94…bb9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0042}
0xbb9e…bba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x004c}
0xbba8…bbcc Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 0 «, t00=0x0078, t01=0x0056}
0xbbcc…bbf0 Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 1 «, t00=0x0078, t01=0x007a}
0xbbf0…bc14 Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 2 «, t00=0x0078, t01=0x009e}
0xbc14…bc38 Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 3 «, t00=0x0078, t01=0x00c2}
0xbc38…bc64 Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x0078, t01=0x00e6}
0xbc64…bc84 Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0078, t01=0x0112}
0xbc84…bcb0 Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x0078, t01=0x0132}
0xbcb0…bcd0 Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0078, t01=0x015e}
0xbcd0…bcfc Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x0078, t01=0x017e}
0xbcfc…bd1c Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0079, t01=0x001a}
0xbd1c…bd48 Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x0079, t01=0x003a}
0xbd48…bd68 Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0079, t01=0x0066}
0xbd68…bd90 Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x0079, t01=0x0086}
0xbd90…bda0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0079, t01=0x00ae}
0xbda0…bdc6 Head {h00=0x0022, h01=0x0050, text=»DWTCIO EQU *-DWFD01 CIO START «, t00=0x0079, t01=0x00be}
0xbdc6…bde4 Head {h00=0x001a, h01=0x0050, text=» CIO A3,1,CUADR UNIT 0«, t00=0x0079, t01=0x00e4}
0xbde4…be06 Head {h00=0x001e, h01=0x0050, text=» CIO A3,1,CUADR+/10 UNIT 1«, t00=0x0079, t01=0x0102}
0xbe06…be28 Head {h00=0x001e, h01=0x0050, text=» CIO A3,1,CUADR+/20 UNIT 2«, t00=0x0079, t01=0x0124}
0xbe28…be4a Head {h00=0x001e, h01=0x0050, text=» CIO A3,1,CUADR+/30 UNIT 3«, t00=0x0079, t01=0x0146}
0xbe4a…be54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0168}
0xbe54…be6c Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x0079, t01=0x0172}
0xbe6c…be76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x018a}
0xbe76…be80 (122, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0004}
0xbe80…be92 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007a, t01=0x000e}
0xbe92…bec2 Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x007a, t01=0x0020}
0xbec2…bed8 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007a, t01=0x0050}
0xbed8…bf00 Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x007a, t01=0x0066}
0xbf00…bf16 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007a, t01=0x008e}
0xbf16…bf40 Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x007a, t01=0x00a4}
0xbf40…bf56 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007a, t01=0x00ce}
0xbf56…bf84 Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x007a, t01=0x00e4}
0xbf84…bf9a Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007a, t01=0x0112}
0xbf9a…bfcc Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x007a, t01=0x0128}
0xbfcc…bfe2 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007a, t01=0x015a}
0xbfe2…bfec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0170}
0xbfec…c006 Head {h00=0x0016, h01=0x0050, text=» IFT IBM+MMUPAG=2 «, t00=0x007a, t01=0x017a}
0xc006…c03e (123, 0, 400) Head {h00=0x0034, h01=0x0050, text=»DWTPAG EQU *-DWFD01 PAGE ADDRESS TO USER BUFFER «, t00=0x007b, t01=0x0004}
0xc03e…c050 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x007b, t01=0x003c}
0xc050…c05c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x004e}
0xc05c…c074 Head {h00=0x0014, h01=0x0050, text=» EJECT DRFD02 «, t00=0x007b, t01=0x005a}
0xc074…c07e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0072}
0xc07e…c088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x007c}
0xc088…c0ae Head {h00=0x0022, h01=0x0050, text=»DWT:FC EQU *-DWFD01 FILE CODE «, t00=0x007b, t01=0x0086}
0xc0ae…c0c0 Head {h00=0x000e, h01=0x0050, text=» DATA /F8 «, t00=0x007b, t01=0x00ac}
0xc0c0…c0f8 Head {h00=0x0034, h01=0x0050, text=»DWTPAR EQU *-DWFD01 DEVICE DEPENDENT PARAMETERS «, t00=0x007b, t01=0x00be}
0xc0f8…c142 Head {h00=0x0046, h01=0x0050, text=» DATA /FF00,/FF00,/FF00,/FF00 HEAD POS,LOCK/UNLOCK,2D/1S,TOSS/IBM «, t00=0x007b, t01=0x00f6}
0xc142…c176 Head {h00=0x0030, h01=0x0050, text=»DWTFOR EQU *-DWFD01 PRESENT FORMAT PARAMETER«, t00=0x007b, t01=0x0140}
0xc176…c186 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0174}
0xc186…c1ba Head {h00=0x0030, h01=0x0050, text=»DWTCYN EQU *-DWFD01 PRESENT CYLINDER NUMBER «, t00=0x007b, t01=0x0184}
0xc1ba…c1ce Head {h00=0x0010, h01=0x0050, text=» DATA /FFFF «, t00=0x007c, t01=0x0028}
0xc1ce…c204 Head {h00=0x0032, h01=0x0050, text=»DWTSEC EQU *-DWFD01 SECTOR NUMBER ON CYLINDER «, t00=0x007c, t01=0x003c}
0xc204…c214 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0072}
0xc214…c240 Head {h00=0x0028, h01=0x0050, text=»DWTWE1 EQU *-DWFD01 1ST WER REGISTER«, t00=0x007c, t01=0x0082}
0xc240…c250 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x00ae}
0xc250…c278 Head {h00=0x0024, h01=0x0050, text=»DWTRL EQU *-DWFD01 LENGTH OF IO «, t00=0x007c, t01=0x00be}
0xc278…c288 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x00e6}
0xc288…c2b2 Head {h00=0x0026, h01=0x0050, text=»DWTBA EQU *-DWFD01 BUFFER ADDRESS «, t00=0x007c, t01=0x00f6}
0xc2b2…c2c8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007c, t01=0x0120}
0xc2c8…c2da Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x007c, t01=0x0136}
0xc2da…c2e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x0148}
0xc2e6…c2fc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x007c, t01=0x0154}
0xc2fc…c30c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x016a}
0xc30c…c318 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x017a}
0xc318…c340 Head {h00=0x0024, h01=0x0050, text=»DWTIOR EQU *-DWFD01 CIO REGISTER«, t00=0x007c, t01=0x0186}
0xc340…c350 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x001e}
0xc350…c35a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x002e}
0xc35a…c370 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007d, t01=0x0038}
0xc370…c384 Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x007d, t01=0x004e}
0xc384…c3a0 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x007d, t01=0x0062}
0xc3a0…c3ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x007e}
0xc3ac…c3b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x008a}
0xc3b6…c3c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0094}
0xc3c0…c3ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x009e}
0xc3ca…c3d6 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x007d, t01=0x00a8}
0xc3d6…c3da Head {h00=0x4004, h01=0x0000}
0xc3da…c3de 00 7d 00 b4 ┆ } ┆
0xc3de…c3e6 (126, 1, 8) 20 04 00 00 00 7e 00 04 ┆ ~ ┆
0xc3e6…c436 (127, 0, 400) 33 20 00 e6 01 8a 00 34 00 50 5c 4c 44 5c 41 34 2c 54 54 42 54 49 44 2c 41 32 5c 47 45 54 20 52 45 41 4c 20 54 49 44 20 49 4e 20 54 54 41 42 5c 2a 37 39 2d 30 34 2d 31 31 2a 00 e7 00 0a 00 36 00 50 5c 4c 44 5c 41 33 2c 54 54 42 3a 53 41 2b ┆3 4 P LD A4,TTBTID,A2 GET REAL TID IN TTAB *79-04-11* 6 P LD A3,TTB:SA+┆
0xc436…c486 32 36 2c 41 32 5c 47 45 54 20 43 4f 52 52 45 53 50 4f 4e 44 49 4e 47 20 54 3a 41 2d 41 44 44 52 45 53 53 20 00 e7 00 42 00 32 00 50 5c 45 53 5c 41 34 2c 54 3a 41 54 49 44 2c 41 33 5c 52 45 50 4c 41 43 45 20 54 43 4c 20 49 4e 20 54 3a 41 5c ┆26,A2 GET CORRESPONDING T:A-ADDRESS B 2 P ES A4,T:ATID,A3 REPLACE TCL IN T:A ┆
0xc486…c4d6 2a 37 39 2d 30 34 2d 31 31 2a 00 e7 00 7c 00 30 00 50 5c 45 4c 2a 5c 41 33 2c 54 3a 41 54 4e 57 2c 41 31 30 5c 47 45 54 20 4c 45 4e 47 54 48 20 4f 46 20 52 45 41 4c 20 54 3a 41 54 41 42 00 e7 00 b2 00 24 00 50 5c 4e 47 52 5c 41 33 2c 41 33 ┆*79-04-11* | 0 P EL* A3,T:ATNW,A10 GET LENGTH OF REAL T:ATAB $ P NGR A3,A3┆
0xc4d6…c526 5c 4e 45 47 41 54 49 56 45 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 00 e7 00 e6 00 2e 00 50 5c 41 44 52 5c 41 33 2c 41 38 5c 43 4f 4d 50 55 54 45 20 45 4e 54 52 59 20 49 4e 20 41 55 58 2e 20 54 49 44 20 54 41 42 4c 45 00 e7 01 0e 00 38 00 50 ┆ NEGATIVE DISPLACEMENT . P ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE 8 P┆
0xc526…c576 5c 45 53 52 5c 41 34 2c 41 33 5c 53 41 56 45 20 54 49 44 20 46 4f 52 20 44 45 42 55 47 47 45 52 20 50 55 52 50 4f 53 45 5c 2a 37 39 2d 30 34 2d 31 31 2a 20 00 e7 01 40 00 08 00 50 5c 58 49 46 00 e7 01 7c 00 26 00 50 5c 43 4d 5c 54 54 42 3a ┆ ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE *79-04-11* @ P XIF | & P CM TTB:┆
0xc576…c5c6 (128, 0, 400) 50 50 2c 41 32 5c 43 4c 45 41 52 20 54 43 4c 20 53 41 56 45 20 41 52 45 41 20 00 e7 01 88 00 1c 00 50 5c 53 55 4b 5c 41 31 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 54 43 4c 20 00 e8 00 22 00 18 00 50 5c 53 55 4b 4c 5c 41 38 2c 32 5c 44 45 43 ┆PP,A2 CLEAR TCL SAVE AREA P SUK A1,1 DECREMENT TCL " P SUKL A8,2 DEC┆
0xc5c6…c616 52 45 4d 45 4e 54 00 e8 00 42 00 28 00 50 5c 53 55 4b 5c 41 36 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 50 49 45 53 00 e8 00 5e 00 1c 00 50 5c 52 42 28 50 29 5c 43 48 54 3a 32 30 5c 4e 45 58 54 20 43 4f 50 ┆REMENT B ( P SUK A6,1 DECREMENT NUMBER OF COPIES ^ P RB(P) CHT:20 NEXT COP┆
0xc616…c666 59 20 00 e8 00 8a 00 12 00 50 43 48 54 3a 39 30 5c 52 54 4e 5c 41 31 34 00 e8 00 aa 00 08 00 50 5c 5c 5c 5c 00 e8 00 c0 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 20 3a 20 44 20 41 20 44 20 44 20 20 20 20 20 20 20 ┆Y PCHT:90 RTN A14 P 4 P** T : D A D D ┆
0xc666…c6b6 20 20 20 20 20 20 20 20 20 20 2a 2a 00 e8 00 cc 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 e8 01 04 00 34 00 50 2a 2a 20 20 ┆ ** 4 P** ** 4 P** ┆
0xc6b6…c706 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 e8 01 3c 00 34 00 50 2a 2a 20 20 47 45 54 20 54 3a 44 20 2d 20 41 44 44 52 45 53 53 20 20 20 20 20 20 20 ┆ ** < 4 P** GET T:D - ADDRESS ┆
0xc706…c756 (129, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 e8 01 74 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 e9 00 1c ┆ ** t 4 P** ** ┆
0xc756…c7a6 00 34 00 50 2a 2a 20 20 49 4e 50 55 54 20 3a 20 41 38 3d 50 4f 49 4e 54 45 52 20 54 4f 20 54 3a 41 20 28 49 4e 20 54 3a 41 54 41 42 29 20 20 20 20 20 2a 2a 00 e9 00 54 00 34 00 50 2a 2a 20 20 4f 55 54 50 55 54 3a 20 41 31 32 3d 54 3a 44 20 ┆ 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** T 4 P** OUTPUT: A12=T:D ┆
0xc7a6…c7f6 41 44 44 52 45 53 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 e9 00 8c 00 34 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ADDRESS ** 4 P********************************************┆
0xc7f6…c846 2a 2a 2a 2a 00 e9 00 c4 00 10 00 50 54 3a 44 41 44 44 5c 45 51 55 5c 2a 00 e9 00 fc 00 12 00 50 5c 49 46 54 20 4d 4d 55 50 41 47 3d 30 20 00 e9 01 10 00 1c 00 50 5c 4c 44 52 2a 5c 41 31 32 2c 41 38 5c 54 3a 41 20 41 44 44 52 45 53 53 00 e9 ┆**** PT:DADD EQU * P IFT MMUPAG=0 P LDR* A12,A8 T:A ADDRESS ┆
0xc846…c896 01 26 00 16 00 50 5c 4c 44 5c 41 31 32 2c 54 3a 44 41 44 2c 41 31 32 20 00 e9 01 46 00 08 00 50 5c 58 49 46 00 e9 01 60 00 12 00 50 5c 49 46 54 20 4d 4d 55 50 41 47 3d 31 20 00 e9 01 6c 00 1c 00 50 5c 45 4c 52 5c 41 31 32 2c 41 38 5c 54 3a ┆ & P LD A12,T:DAD,A12 F P XIF ` P IFT MMUPAG=1 l P ELR A12,A8 T:┆
0xc896…c8e6 (130, 0, 400) 41 20 41 44 44 52 45 53 53 20 00 e9 01 82 00 16 00 50 5c 45 4c 5c 41 31 32 2c 54 3a 44 41 44 2c 41 31 32 20 00 ea 00 12 00 08 00 50 5c 58 49 46 00 ea 00 2c 00 22 00 50 5c 41 44 5c 41 31 32 2c 4d 4f 56 41 44 44 2b 53 54 4b 45 4e 44 5c 52 45 ┆A ADDRESS P EL A12,T:DAD,A12 P XIF , " P AD A12,MOVADD+STKEND RE┆
0xc8e6…c936 4c 4f 43 41 54 45 00 ea 00 38 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 ea 00 5e 00 0a 00 50 5c 45 4a 45 43 54 00 ea 00 6e 00 08 00 50 5c 5c 5c 5c 00 ea 00 7c 00 08 00 50 5c 5c 5c 5c 00 ea 00 88 00 36 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 ┆LOCATE 8 P RTN A14 ^ P EJECT n P | P 6 P** ┆
0xc936…c986 20 20 20 20 20 20 20 20 4d 20 4f 20 56 20 43 20 4f 20 4d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 ea 00 94 00 36 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ M O V C O M ** 6 P** ┆
0xc986…c9d6 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 ea 00 ce 00 36 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 ea 01 08 00 36 ┆ ** 6 P** ** 6┆
0xc9d6…ca26 00 50 2a 2a 20 20 53 45 41 52 43 48 20 54 3a 41 27 53 20 46 4f 52 20 43 4f 4d 4d 4f 4e 20 57 4f 52 4b 20 42 4c 4f 43 4b 53 20 54 48 41 54 20 20 20 2a 2a 20 00 ea 01 42 00 36 00 50 2a 2a 20 20 41 52 45 20 43 4f 4d 4d 4f 4e 20 54 4f 20 41 54 ┆ P** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** B 6 P** ARE COMMON TO AT┆
0xca26…ca76 (131, 0, 400) 20 4c 45 41 53 54 20 54 57 4f 20 54 3a 41 27 53 2c 20 41 4e 44 20 4d 4f 56 45 20 2a 2a 20 00 ea 01 7c 00 36 00 50 2a 2a 20 20 54 4f 20 43 4f 4d 4d 4f 4e 20 41 52 45 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ LEAST TWO T:A'S, AND MOVE ** | 6 P** TO COMMON AREA ┆
0xca76…cac6 20 20 20 20 20 2a 2a 20 00 eb 00 26 00 36 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 eb 00 60 00 36 00 50 2a 2a 20 20 49 4e ┆ ** & 6 P** ** ` 6 P** IN┆
0xcac6…cb16 50 55 54 20 3a 20 41 38 3d 50 4f 49 4e 54 45 52 20 49 4e 20 54 3a 41 54 41 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 eb 00 9a 00 36 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 42 49 54 3d 42 49 54 20 4e 55 4d 42 45 52 2c 20 ┆PUT : A8=POINTER IN T:ATAB ** 6 P** BIT=BIT NUMBER, ┆
0xcb16…cb66 53 41 54 20 49 4e 20 4d 41 53 4b 20 20 20 20 20 20 20 20 2a 2a 20 00 eb 00 d4 00 36 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 45 4e 44 41 44 44 3d 45 4e 44 41 44 44 52 45 53 53 20 4f 46 20 54 3a 41 54 41 42 20 20 20 20 20 20 20 20 2a 2a 20 ┆SAT IN MASK ** 6 P** ENDADD=ENDADDRESS OF T:ATAB ** ┆
0xcb66…cbb6 00 eb 01 0e 00 36 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 54 41 44 49 53 50 3d 57 2e 42 2e 2d 41 44 44 52 20 44 49 53 50 4c 41 43 45 4d 2e 20 49 4e 20 54 3a 41 20 2a 2a 20 00 eb 01 48 00 36 00 50 2a 2a 20 20 57 4f 52 4b 2e 52 45 47 53 3a ┆ 6 P** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** H 6 P** WORK.REGS:┆
0xcbb6…cc06 (132, 0, 400) 20 41 31 2d 41 36 2c 41 39 2c 41 31 31 2c 41 31 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 eb 01 82 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ A1-A6,A9,A11,A12 ** 6 P************************************┆
0xcc06…cc56 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 ec 00 2c 00 08 00 50 5c 5c 5c 20 00 ec 00 66 00 10 00 50 4d 4f 56 43 4f 4d 5c 45 51 55 5c 2a 00 ec 00 72 00 26 00 50 5c 43 41 4c 4c 5c 43 48 4b 4d 56 44 5c 42 4c 4f 43 4b 20 41 4c 52 45 41 44 59 ┆************* , P f PMOVCOM EQU * r & P CALL CHKMVD BLOCK ALREADY┆
0xcc56…cca6 20 4d 4f 56 45 44 3f 20 00 ec 00 86 00 16 00 50 5c 52 46 28 4e 29 5c 4d 4f 56 43 32 30 5c 59 45 53 21 00 ec 00 b0 00 3a 00 50 5c 43 41 4c 4c 5c 47 45 54 57 42 5c 50 4f 49 4e 54 45 52 20 54 4f 20 57 42 20 41 44 44 20 54 4f 20 27 57 42 41 44 ┆ MOVED? P RF(N) MOVC20 YES! : P CALL GETWB POINTER TO WB ADD TO 'WBAD┆
0xcca6…ccf6 44 27 2c 41 35 3d 54 3a 41 2d 44 49 53 50 4c 20 00 ec 00 ca 00 2c 00 50 5c 53 54 5c 41 31 31 2c 53 41 56 45 30 36 2b 53 54 4b 45 4e 44 5c 53 41 56 45 20 57 2e 42 2e 2d 41 44 44 52 45 53 53 20 00 ec 01 08 00 2a 00 50 5c 43 4d 5c 4d 4f 56 45 ┆D',A5=T:A-DISPL , P ST A11,SAVE06+STKEND SAVE W.B.-ADDRESS * P CM MOVE┆
0xccf6…cd46 44 2b 53 54 4b 45 4e 44 5c 43 4c 45 41 52 20 4d 4f 56 45 44 20 49 4e 44 49 43 41 54 4f 52 00 ec 01 38 00 0e 00 50 5c 4c 44 52 5c 41 36 2c 41 38 00 ec 01 66 00 1c 00 50 4d 4f 56 43 31 30 5c 41 44 4b 5c 41 36 2c 32 5c 4e 45 58 54 20 54 3a 41 ┆D+STKEND CLEAR MOVED INDICATOR 8 P LDR A6,A8 f PMOVC10 ADK A6,2 NEXT T:A┆