|
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: 39780 (0x9b64)
Notes: pts_type(SC)
Names: »DRFD01.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DRFD01.SC«
IDENT DRFD01 REL 8.2 78-09-15 870105040820 LOAD BUG (EOD=74001) REL 8.1 78-04-121 * ********************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRFD01 = DRIVER FOR FLEXIBLE DISK * * * * * * ********************************************* * THIS DISK DRIVER HANDLES UP TO FOUR DAISY * CHAINED FLEXIBLE DISK DRIVES PTS 6879, * CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON * MULTIPLEX OR PROGRAMMED CHANNEL * ********* * * 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 * /1A SEARCH KEY * /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 * *********** * * * ENTRIES * * * *********** * ENTRY FDADR ACTIVATION ADDRESS ENTRY IHFD INTERRUPT HANDLER ENTRY FDON RECOVERY ROUTINE ENTRY DWFD01 DWT-ADDRESS * ************* * * * EXTERNALS * * * ************* * EXTRN TDISP DISPATCHER EXTRN TENDIO ENDIO EXTRN DISIOE REQUEST ERROR EXTRN DWTOR ORDER EXTRN DWTECB ECB-ADDRESS EXTRN DWTST DWT STATUS EXTRN SAVE8 SAVE A1-A8 ON A15 STACK EXTRN SETIMP TIMER EXTRN INIFLG INITIALIZATION FLAG EXTRN INTSAV INTERRUPT SAVE AREA 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 ECBRC ECB RETURN CODE EXTRN ECBCW ECB CONTROL WORD * ************************ * * * CONDITIONAL ASSEMBLY * * * ************************ * * MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED * CHANNEL BY SETTING X:A = 0 * X:A EQU 1 CHAN EQU X:A * * FD DRIVER CAN BE ADAPTED FOR DATA MANAGEMENT * BY SETTING X:B = 1 * X:B EQU 0 DAMA EQU X:B * * IBM LABELLED DISC HANDLING MAY BE INCLUDED BY SETTING * X:C = 1 * X:C EQU 0 IBM EQU X:C * * IF INIMON IS TO BE USED, DRIVER SHOULD BE * ADAPTED FOR RESTART BY SETTING X:D = 1 * X:D EQU 0 INI EQU X:D EJECT * ************* * * * CONSTANTS * * * ************* * CUADR EQU 09 CONTROL UNIT ADDRESS MUXADR EQU CUADR+CUADR MUX-ADDRESS STALEN EQU 512 MAX STANDARD SEC. LEN. TOSLEN EQU 410 MAX TOSS SEC. LENGTH IBMLEN EQU 128 IBM SECTOR LENGTH 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 ******************** * * * DWT-DISPLACEMENTS* * * ******************** * DWTA2 EQU /12 DWTA3 EQU /14 DWTA5 EQU /16 DWTSB2 EQU /1E STACK BASE * ********** * * * TABLES * * * ********** * FDADR DATA FDAD ACTIVATION ADDRESS * EJECT * ************** * * * ACTIVATION * * * ************** * FDAD EQU * ACTIVATION ENTRY LDK A3,0 LC A3,DWTOR,A6 INDEX LDR A2,A3 SAVE FOR FDIX * * PUT DRIVE NO IN CIO-INSTRUCTION * CF A5,SETCIO A3,A4 AFFECTED CM DWTRCW,A6 SAVE RETURN CODE WORD * * CHECK IF LOCKED * LD A1,DWTLC,A6 LOCK INDICATOR CF A5,FDIX GET BIT MASK IN A3 ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK ANR A1,A3 RF(NZ) FD:ORD LOCKED LDR A1,A7 SUK A1,/26 RF(Z) LOAD LOCK ORDER SUK A1,/11 RF(Z) LOAD LOAD ORDER LDKL A1,/8001 RETURN CODE RF FD:090 ENDIO EJECT * * ORDER? * FD:ORD EQU * * LDR A1,A7 RF(Z) FD:070 TEST STATUS SUK A1,1 RF(Z) FD:040 PHYSICAL READ SUK A1,4 RF(Z) FD:010 BASIC WRITE SUK A1,12 RF(Z) FD:040 PHYSICAL READ SUK A1,4 RF(Z) FD:020 PHYSICAL WRITE SUK A1,15 RF(Z) FD:030 WRITE DELETED DATA SUK A1,/14 ABL(Z) UNLOAD UNLOAD ORDER IFT IBM=1 ADK A1,/36 ABL(Z) SQREAD SEQUENTIAL READ SUK A1,4 ABL(Z) SQWRIT SEQUENTIAL WRITE SUK A1,/2B ABL(Z) REWIND REWIND XIF IFT DAMA+IBM=0 ADK A1,30 RF(Z) FD:050 SEARCH KEY XIF FD:DIS EQU * ABL DISIOE REQUEST ERROR EJECT * *************** * * * BASIC WRITE * * * *************** * FD:010 CF A5,BIO ORK A2,1 FD:015 EQU * IFT DAMA+IBM=2 LD A1,DWTLAB,A6 AN A1,DWTA3,A6 RF(Z) FD:018 NOT IBM XIF IFT IBM=1 LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED CF A5,EBCDIC FD:018 EQU * XIF CF A5,FD:WRITE PERFORME WRITE RF FD:048 GOTO FD:RC * ****************** * * * PHYSICAL WRITE * * * ****************** * FD:020 CF A5,BIO ORK A2,5 INSERT BIO BITS 13-15 RB FD:015 EJECT * ********************** * * * WRITE DELETED DATA * * * ********************** * FD:030 CF A5,BIO ORK A2,6 RB FD:015 * ***************** * * * PHYSICAL READ * * * ***************** * FD:040 CF A5,BIO:RE IFT DAMA+IBM=2 LD A1,DWTLAB,A6 AN A1,DWTA3,A6 RF(Z) FD:042 TOSS DISC XIF IFT IBM=1 LDKL A4,BUF FD:042 EQU * XIF FD:045 CF A5,FD:REA PERFORM READ IFT DAMA+IBM=2 LD A1,DWTLAB,A6 AN A1,DWTA3,A6 RF(Z) FD:047 NOT IBM XIF IFT IBM=1 LD A7,ECBRL,A8 REQ LEN LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS CF A5,ASCII FD:047 EQU * XIF FD:048 EQU * ABL FD:RC EJECT IFT DAMA+IBM=0 * ************** * * * SEARCH KEY * * * ************** * FD:050 EQU * LD A4,10,A8 KEY AREA ADDRESS LDR* A2,A4 KEY AREA LENGTH LDR A1,A2 ABL(NP) END:10 ILLEGAL LENGTH SUK A1,128 ABL(P) END:10 ILLEGAL LENGTH LDR A3,A2 * * IF ODD CHANGE TO EVEN NO OF BYTES * ADK A3,1 SRL A3,1 SLL A3,1 * SLL A2,3 ORK A2,7 BIO ADK A3,4 ADK A4,2 KEY ADDRESS CF A5,FD:WRI SEARCH KEY LDR A3,A3 RETURN CODE RB(NZ) FD:048 * * READ RECORD WITH KEY COMMAND * FD:060 EQU * LDKL A2,/8004 BIO LD A3,4,A8 REQUESTED LENGTH CWK A3,130 ABL(NE) END:10 ILLEGAL LENGTH LD A4,2,A8 BUFFER ADDRESS RB FD:045 XIF * *************** * * * TEST STATUS * * * *************** * FD:070 EQU * LDKL A2,/FFF9 BIO DUMMY CF A5,FD:WRI ANKL A3,/0201 WRITE PROTECT? LDR A1,A3 IFF DAMA+IBM=0 CF A5,VOLADR GET VOL NAME ADDR IN A2 ST A2,ECBCW,A8 STORE IN CONTROL WORD XIF IFT IBM=1 LD A3,DWTLAB,A6 LABEL INDICATOR AN A3,DWTA3,A6 RF(Z) FD:080 TOSS LABEL ORK A1,/20 SET BIT 10 (IBM) FD:080 EQU * XIF FD:090 ABL END:IO EJECT * ******** * * * LOAD * * * ******** * LOAD EQU * LDK A2,/14 LOCK CF A5,FD:REA ANK A3,1 RF(NZ) LOA:80 NOT OPERABLE IFT DAMA+IBM=2 * * CHECK IF TOSS/IBM LABEL * LDK A2,0 BIO LDKL A4,BUF LDK A3,38 NO OF BYTES CF A5,FD:REA CF A5,LD:RC ADK A4,34 LDR* A2,A4 CWK A2,'TO' RF(NE) LOA:10 IBM LABEL PREASSUMED ADK A4,2 LDR* A2,A4 CWK A2,'SS' RF(NE) LOA:10 IBM LABEL XIF IFT DAMA=1 * * READ VOLUME NAME * LDK A3,8 LENGTH LDK A2,0 BIO C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK ANS A1,DWTLAB,A6 INDICATE TOSS LABEL RF LOA:15 XIF IFT IBM=1 LOA:10 LDK A3,10 LENGTH LDK A2,/30 BIO LD A1,DWTA3,A6 DRIVE NO BIT MASK ORS A1,DWTLAB,A6 INDICATE IBM DISC LDK A1,/20 RETURN CODE BIT 10 ORS A1,DWTRCW,A6 XIF IFF DAMA+IBM=0 LOA:15 EQU * LDKL A4,BUF BUFFER ADDRESS CF A5,FD:REA CF A5,LD:RC LDK A1,2 XIF IFT IBM=1 LD A7,DWTRCW,A6 ANK A7,/20 CHECK TYPE OF LABEL RF(Z) LOA:30 TOSS LABEL LDK A7,10 NO OF CHAR. CF A5,ASCII LDK A1,4 LOA:30 EQU * XIF IFF DAMA+IBM=0 * * GET DWT VOL NAME ADDRESS * CF A5,VOLADR ADDRESS TO A2 * * STORE NAME IN DWT * LDK A3,3 LOA:40 LD A4,BUF,A1 STR A4,A2 SUK A3,1 RF(Z) LOA:50 ADK A1,2 ADK A2,2 RB LOA:40 LOA:50 EQU * XIF IFT IBM=1 * * DATA SET OPENING WANTED? * ANK A1,/2 A1: TOSS=6, IBM=8 RF(NZ) LOA:70 TOSS LABEL LC A1,DWTOR+1,A6 ORDER CCK A1,/2600 RF(E) LOA:70 LOCK ORDER * * READ DATA SET LABEL * LD A2,ECBCW,A8 SECTOR NO SUK A2,7 ABL(N) FD:DIS REQUEST ERROR SUK A2,18 ABL(P) FD:DIS REQUEST ERROR ADK A2,25 SLL A2,3 BIO LDK A3,80 LENGTH LDKL A4,BUF CF A5,FD:REA LDR A1,A3 RETURN CODE SLL A1,4 CHECK NO DATA BIT RF(NN) LOA:60 NOT NO DATA ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL LOA:60 EQU * CF A5,LD:RC ENB LD A3,ECBCW,A8 DATA SET LABEL SECTOR LDK A1,DWTDSS CF A5,STDWT SAVE IN DWT ADK A4,BOE BOE ADDRESS CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR LDK A1,DWTBOE CF A5,STDWT STORE BOE NO IN DWT SUK A3,1 CRN LDK A1,DWTCRN CF A5,STDWT ADK A4,EOE-BOE EOE ADDRESS CF A5,LOGSEC LDK A1,DWTEOE CF A5,STDWT STORE EOE NO IN DWT ADK A4,EOD-EOE EOD ADDRESS CF A5,LOGSEC CF A5,SETINH INHIBIT LDK A1,DWTEOD CF A5,STDWT STORE EOD NO IN DWT * LOA:70 EQU * XIF LD A2,DWTA3,A6 ORS A2,DWTLC,A6 INDICATE LOCK LOA:75 LD A3,DWTRCW,A6 RETURN CODE LOA:80 ABL FD:RC IFF DAMA+IBM=0 * * ERROR , UNLOCK * LOA:90 EQU * LDR A5,A6 ADK A5,DWTSB2 STACK BASE LDK A2,/C UNLOCK CF A5,FD:REA RB LOA:75 * *---------------------------------------------------- * LD:RC SUBROUTINE * LD:RC ORS A3,DWTRCW,A6 ANKL A3,/2007 FATAL ERROR RB(NZ) LOA:90 LDKL A4,BUF DRIVER BUFFER ADDRESS RTN A5 XIF EJECT * ********** * * * UNLOAD * * * ********** * UNLOAD EQU * IFT IBM=1 * * DATA SET OPEN? * CF A5,DSOPCH A1,AFFECTED LDR A7,A7 EOD RF(Z) UNL:70 NOT OPEN ST A7,ECBCW,A8 STORE EOD-NO IN CONTROL WORD OF ECB * * READ DATA SET LABEL TO DRIVER BUFFER * CF A5,DSLIO PREPARE FOR I/O CF A5,FD:REA READ DATA SET LABEL CF A5,UNL:RC RETURN CODE CHECK ENB ** *------------------------------ * TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED) * CF A5,DSOPCH EOD-NO TO A7 * * DIVIDE EOD BY 26 * LDK A1,0 UNL:10 SUK A7,26 RF(N) UNL:20 ADK A1,1 RB UNL:10 UNL:20 ADK A7,27 * * A1 = BINARY TRACK NO * A7 = SECTOR NO WITHIN TRACK (0-25) * CF A5,BINDEC TRANSFORM SEC.NO TO A3 LDKL A4,BUF+EOD+4 ADDRESS TO POS 79 SCR A3,A4 SUK A4,1 SRL A3,8 LEFT BYTE SCR A3,A4 STORE IN BUFFER LDR A7,A1 TRACK CF A5,BINDEC DEC EBCDIC-CODED IN A3 SUK A4,3 STR A3,A4 TRACK INTO BUF CF A5,SETINH INHIBIT * * WRITE DATA SET LABEL * CF A5,DSLIO PREPARE FOR I/O ORK A2,5 PHYSICAL WRITE CF A5,FD:WRITE WRITE DATA SET LEBEL CF A5,UNL:RC CHECK RETURN CODE CF A5,DSOPCH CMR A2 INDICATE NOT OPEN * * UNLOCK * XIF UNL:70 EQU * LDK A2,/C UNLOCK CF A5,FD:REA ORS A3,DWTRCW,A6 ANK A3,1 RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED LD A2,DWTA3,A6 INDEX MASK XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT UNL:80 EQU * RB LOA:75 END:IO IFF DAMA+IBM=0 * * UNLOAD RETURN CODE CHECK * UNL:RC ORS A3,DWTRCW,A6 ANK A3,/7 FATAL ERROR? RB(NZ) UNL:80 ENDIO RTN A5 XIF IFT IBM=1 EJECT * ******************* * SEQUENTIAL READ * ******************* * SQREAD EQU * CF A5,DSOPCH GET EOD AND EOD ADDRESS LDR A7,A7 EOD SQR:05 ABL(Z) DISIOE NOT OPEN ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN LDR* A3,A2 CRN ADK A3,1 CRN+1 ST A3,ECBCW,A8 STORE CRN+1 IN ECB CWR A3,A7 RF(NL) SQR:10 END OF DATA CF A5,BIO:RE LDKL A4,BUF BUFFER ADDRESS CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 LD A4,ECBBA,A8 USER BUFFER ADDRESS LD A7,ECBRL,A8 REQUESTED LENGTH CF A5,ASCII TRANSFORM TO ASCII LDK A1,DWTCRN CF A5,DSPAD RF SQW:10 UPDATE CRN * * END OF DATA * SQR:10 LDKL A1,/1000 RETURN CODE RF END:IO EJECT * ******************* * SEQUENTIAL WRITE * ******************* * SQWRIT EQU * CF A5,DSOPCH GET EOD LDR A7,A7 EOD-NO RB(Z) SQR:05 NOT OPEN * * CHECK IF END OF EXTENT * LDK A1,DWTEOE CF A5,DSPAD EOE-NO ADDRESS TO A2 ST A7,ECBCW,A8 STORE EOD IN ECB C. W. CWR* A7,A2 RF(G) SQW:20 YES,EOE CF A5,BIO LDK A7,128 CF A5,EBCDIC TRANSFORM AND MOVE TO BUF ORK A2,5 PHYS. WRITE CF A5,FD:WRI CF A5,DSOPCH SQW:10 LDR A1,A3 RETURN CODE ANK A1,/1 RF(NZ) SQW:15 NOT OPERABLE IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT SQW:15 RF FD:RC * * * END OF EXTENT SQW:20 LDKL A1,/400 RETURN CODE RF END:IO EJECT * ********** * REWIND * ********** * REWIND EQU * CF A5,DSOPCH LDR A7,A7 EOD RB(Z) SQR:05 DATA SET NOT OPEN LDR A3,A2 SAVE EOD ADDRESS LDK A1,DWTBOE CF A5,DSPAD LDR* A4,A2 BOE STR A4,A3 EOD = BOE LDK A1,DWTCRN CF A5,DSPAD SUK A4,1 BOE - 1 STR A4,A2 CRN = BOE -1 LDK A1,0 RETURN CODE RF END:IO XIF EJECT * ***************** * * * PERFORM ORDER * * * ***************** * * * INPUT: A2 BIO CONTENTS * A3 NO OF BYTES TO BE TRANSFERED * A4 BUFFER ADDRESS * FD:WRI EQU * IFT CHAN=0 LDKL A1,/C000 WORDS,WRITE XIF IFT CHAN=1 CM DWTRW,A6 INDICATOR TO WRITE MODE XIF RF FD:800 * FD:REA EQU * IFT CHAN=1 LDK A1,1 ST A1,DWTRW,A6 READ MODE XIF IFT CHAN=0 LDKL A1,/8000 WORDS READ XIF FD:800 EQU * IFT CHAN=0 SRL A3,1 FROM BYTES TO WORDS ORR A3,A1 WER1 WER A3,MUXADR FIRST WER WER2 WER A4,MUXADR+1 SECOND WER XIF IFT CHAN=1 * * PUT BUFFER START AND END ADDRESS IN DWT * ST A4,DWTUB,A6 ADR A3,A4 ST A3,DWTUBE,A6 END ADDRESS+2 XIF FD:820 EQU * ST A5,DWTA5,A6 SAVE STACK POINTER FD:CIO CIO A2,1,CUADR CIO-START RF(3) FD:840 DEVICE ADDRESS UNKNOWN RF T:DISP FD:840 LDK A1,1 NOT OPERABLE RF END:IO EJECT * ************************************* * * * FD:RC - STORE EFF LEN, END:IO * * * ************************************* * * INPUT: A3 RETURN CODE * FD:RC EQU * LDR A1,A3 * * PUT EFFECTIVE LENGTH IN ECB * LD A2,ECBRL,A8 REQ LENGTH ST A2,ECBEL,A8 EFF LENGTH * ********** * * * END:IO * * * ********** * END:IO EQU * CF A15,TENDIO T:DISP ABL TDISP * * * ENTRY FROM RECOVERY ROUTINE * END:05 CM DWTECB,A6 RESET ECB ADDRESS IN DWT * * ILLEGAL LENGTH * END:10 LDKL A1,/8008 RETURN CODE RB END:IO EJECT * ******************** * * * RECOVERY ROUTINE * * * ******************** * FDON INH CF A15,SAVE8 LDKL A6,DWFD01 DWT ADDRESS IFT INI=1 LD A1,INIFLG RF(Z) FDON05 POWER UP LDKL A1,-1 ST A1,DWTST2,A6 CM DWTLC,A6 INDICATE NOT LOCKED CM DWTRTY,A6 RESET RETRY FLAG XIF IFT IBM+INI=2 LDR A1,A6 ADK A1,DWTEOD LDK A2,4 FDON02 EQU * CMR A1 CLOSE DATA SET ADK A1,2 SUK A2,1 RB(P) FDON02 XIF FDON05 EQU * IM DWTA2,A6 SET FDON FLAG LDK A5,DWTSB2 ADR A5,A6 STACK BASE * * SAVE DWTST TO DWTST2 IF NOT ALREADY DONE. * DWTST IS SET BUSY * LD A2,DWTST2,A6 CWK A2,-1 RF(NE) FDON08 ALREADY SAVED LD A2,DWTST,A6 ST A2,DWTST2,A6 FDON08 CM DWTST,A6 SET BUSY * * DELAY 2 SEC * LD A4,DWTTP,A6 RF(Z) FDON10 NO TIMER SET LDKL A4,-TIME ST* A4,DWTTP,A6 RESTART TIMER RB T:DISP FDON10 LDK A4,DWTTP ADR A4,A6 LDR A1,A6 SAVE A6 CF A15,SETIMP DATA FDON20,TIME RB T:DISP * * TIME OUT ROUTINE * FDON20 LDR A6,A1 CM DWTTP,A6 LDK A5,DWTSB2 ADR A5,A6 STACK BASE * * LOCK DOORS * LDK A2,1 FDON25 EQU * LD A1,DWTLC,A6 LOCK INDICATOR ANR A1,A2 RF(Z) FDON30 NOT LOCKED ST A2,DWTA3,A6 SAVE * * PUT DRIVE NO IN CIO INSTR * SRN A2,A3 DRIVE NO IN A3 CF A5,SETCIO PUT DRVE NO IN CIO-INSTR LDK A2,/14 LOCK CF A5,FD:REA LD A2,DWTA3,A6 DRIVE IND. ANK A3,1 RF(Z) FDON30 OK XRS A2,DWTLC,A6 INDICATE UNLOCK FDON30 EQU * SLL A2,1 CWK A2,/0010 RB(NE) FDON25 * * ANY REQUEST? * * * RESTORE STATUS SAVED IN DWST2 TO DWTST. * SET DWTST2 TO -1 LD A2,DWTST2,A6 SAVED STATUS ST A2,DWTST,A6 PUT IN CUURENT STATUS LDKL A2,-1 ST A2,DWTST2,A6 INDICATE NOT SAVED CM DWTA2,A6 RESET FDON FLAG FDON60 EQU * LD A2,DWTST,A6 RB(N) END:05 NO REQUEST, RETURN VIA TENDIO * * RETRY REQUEST * IM DWTRTY,A6 INDICATE RETRY LD A7,DWTOR,A6 ANK A7,/3F ORDER LD A8,DWTECB,A6 ECB ADDRESS ABL FDAD REACTIVATE EJECT * ********************* * * * INTERRUPT HANDLER * * * ********************* * IHFD EQU * ST P,INTSAV SAVE LAST INTERRUPT IFT CHAN=1 STR A1,A15 STR A2,A15 STR A3,A15 LDKL A2,DWFD01 LD A1,DWTUB,A2 POINTER AT WORD IN BUFFER LD A2,DWTRW,A2 READ / WRITE INDICATOR RF(NZ) IH010 READ LCR A3,A1 FIRST CHAR. ECR A2,A3 MOV TO BITS 0-7 ADK A1,1 UPDATE BUFFER POINTER LCR A2,A1 SECOND CHAR. OTR A2,0,CUADR WRITE RF(A) IH020 ACCEPTED RF IH040 NOT ACCEPTED IH010 INR A2,0,CUADR READ RF(NA) IH040 NOT ACCEPTED ECR A3,A2 SCR A3,A1 FIRST CHAR. INTO BUFFER ADK A1,1 UPDATE BUFFER POINTER SCR A2,A1 SECOND CHAR. INTO BUFFER IH020 LDKL A2,DWFD01 DWT-ADDRESS ADK A1,1 ST A1,DWTUB,A2 POINTER AT NEXT CHAR. CW A1,DWTUBE,A2 RF(NE) IH030 NOT LAST WORD CIO A2,0,CUADR CIO HALT IH030 EQU * LDR* A3,A15 LDR* A2,A15 LDR* A1,A15 RTN A15 * * SAVE A4-A8 FOR DISPATCHER * IH040 EQU * STR A4,A15 STR A5,A15 STR A6,A15 STR A7,A15 STR A8,A15 XIF IFF CHAN=1 CF A15,SAVE8 XIF SST A3,CUADR STATUS LDKL A6,DWFD01 DWT ADDRESS LD A8,DWTECB,A6 ECB ADDRESS LD A5,DWTA5,A6 STACK POINTER SLL A3,1 RF(N) FDRE READY INTERRUPT SRL A3,1 LD A2,DWTRTY,A6 RETRY? RF(Z) IH:10 NO CM DWTRTY,A6 RESET RETRY FLAG LDR A1,A3 ANKL A1,/0405 RF(Z) IH:10 RETURN CODE OK LDK A1,/4 ORR A3,A1 CRC ERROR IH:10 EQU * * * TRANSFORM RETURN CODE, CU - ECB * ANKL A3,/FF37 RF(Z) IH:80 LDR A1,A3 ANKL A3,/0A05 UNCHANGED BITS LDR A4,A1 ANKL A4,/0400 BIT 5 SLC A4,7 TO BIT 14 ORR A3,A4 IFT DAMA+IBM=0 LDR A4,A1 ANKL A4,/2000 BIT 2 SLL A4,1 TO BIT 1 ORR A3,A4 XIF LDR A4,A1 ANK A4,/20 BIT 10 SLL A4,3 TO BIT 7 ORR A3,A4 ANK A1,/10 BIT 11 SRC A1,5 TO BIT 0 ORR A3,A1 IH:80 EQU * RTN A5 EJECT * ******************** * * * READY INTERRUPT * * * ******************** * FDRE EQU * LD A2,DWTA2,A6 ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE LDK A5,DWTSB2 ADR A5,A6 STACK BASE RB FDON60 EJECT * ******************************************* * * * S U B R O U T I N E S * * * ******************************************* * ******* * * * BIO * * * ******* * * * INPUT: A8 ECB ADDRESS * * OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START * A3 NO OF BYTES TO BE TRANSFERED * A4 BUFFER ADDRESS * BIO EQU * LDK A4,0 FLAG RF BIO010 BIO:RE LDK A4,1 BIO010 EQU * LD A3,ECBRL,A8 REQ LEN RF(N) BIOERR ILLEGAL LENGTH IFT DAMA+IBM=2 LD A2,DWTLAB,A6 AN A2,DWTA3,A6 RF(Z) BIO020 TOSS DISC XIF IFT IBM=1 LDK A7,IBMLEN LDK A2,0 XIF IFT DAMA+IBM=2 RF BIO030 XIF IFT DAMA=1 BIO020 LDKL A7,TOSLEN LDK A2,3 BIO030 EQU * XIF IFF DAMA+IBM=0 LDR A4,A4 RF(Z) BIO060 WRITE LDK A2,0 LDR A1,A3 REQ LEN CWR A3,A7 REQ LENGTH WITHIN RANGE RF(G) BIOERR NO BIO040 SUK A1,128 RF(NP) BIO100 ADK A2,1 INCREMENT NO OF SECTORS RB BIO040 * * WRITE, CHECK REQ LENGTH * BIO060 CWR A3,A7 RF(NE) BIOERR ILLEGAL REQ LEN XIF IFT DAMA+IBM=0 * * FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH * LDR A1,A3 REQ LENGTH LDK A2,0 NO OF SECTORS-1 BIO015 LDR A4,A4 READ OR WRITE? RF(NZ) BIO035 READ! SUK A1,128 RF(Z) BIO100 REQ LEN ACCEPTED RF BIO045 * BIO035 SUK A1,128 RF(NP) BIO100 REQ LENGTH ACCEPTED BIO045 ADK A2,1 CWK A2,3 RB(NG) BIO015 RF BIOERR REQ LEN OUTSIDE RANGE XIF * BIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1 * * CHECK SECTOR NO FROM CONTROL WORD OF ECB IS * WITHIN RANGE, PUT IT IN POS 2-12 * LD A1,ECBCW,A8 SECTOR NO RF(N) BIOER2 OUTSIDE RANGE IFT DAMA+IBM=2 ANK A7,/A RF(Z) BIO110 IBM DISC XIF IFT DAMA=1 CWK A1,499 RF(G) BIOER2 OUT OF RANGE SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR XIF IFT DAMA+IBM=2 RF BIO120 XIF IFT IBM=1 BIO110 CWK A1,1923 RF(P) BIOER2 OUT OF RANGE XIF IFT DAMA+IBM=0 CWK A1,2001 SECTOR NO OUT OF RANGE RF(G) BIOER2 YES! XIF BIO120 EQU * SLL A1,3 ORR A2,A1 LD A4,ECBBA,A8 BUFFER ADDRESS LDR A1,A3 REQ LENGTH ANK A1,1 RF(NZ) BIOERR REQ LEN. NOT EVEN RTN A5 * * * ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO * BIOERR ABL END:10 * ILLEGAL SECTOR NO BIOER2 ABL FD:DIS * ********* * * * FDIX * * * ********* * * INPUT: A2 X * * OUTPUT: A3 2 POWER(X) * FDIX LDK A3,1 LDR A2,A2 FDIX10 EQU * RF(Z) FDIX20 SLL A3,1 SUK A2,1 RB FDIX10 FDIX20 RTN A5 EJECT IFF DAMA+IBM=0 ****************** * * * VOLADR * * * ****************** * * INPUT: A6 DWT ADDRESS * * OUTPUT: A2 VOLUME NAME ADDRESS * A3 ZERO * VOLADR LDK A2,DWTVO0 ADR A2,A6 LC A3,DWTOR,A6 DRIVE NO ANK A3,/3 VOLA10 EQU * RF(Z) VOLA20 ADK A2,6 UPDATE ADDRESS SUK A3,1 RB VOLA10 VOLA20 RTN A5 XIF IFT IBM=1 EJECT * ********* * ASCII * ********* * * FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO * ASCII CODE * INPUT STRING ADDRESS IS BUF * INPUT: A7 NO OF CHARACTERS * A4 OUTPUT STRING ADDRESS * OUTPUT: A1 CHANGED * A4 CHANGED * A7 CHANGED * ASCII EQU * ENB LDK A1,0 ADR A4,A7 ASC:10 SUK A7,1 RF(N) ASC:20 SUK A4,1 LC A1,BUF,A7 GET EBCDIC CHAR LC A1,TASCII,A1 TRANSFORM TO ASCII SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER RB ASC:10 ASC:20 EQU * RF EBC:90 SET INH AND RETURN EJECT * ********** * EBCDIC * ********** * * FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO * EBCDIC CODE * OUTPUT STRING IS PUT IN DRIVER BUFFER * * INPUT: A7 NO OF CHARACTERS * A4 INPUT STRING ADDRESS * * OUTPUT: A1 CHANGED * A4 DRIVER BUFFER ADDRESS * A7 CHANGED EBCDIC EQU * ENB ADR A4,A7 LDK A1,0 EBC:10 SUK A7,1 RF(N) EBC:80 SUK A4,1 LCR A1,A4 GET ASCII CHAR. LC A1,TEBCDIC,A1 SC A1,BUF,A7 RB EBC:10 EBC:80 EQU * LDKL A4,BUF EBC:90 EQU * CF A5,SETINH RTN A5 EJECT * ********** * LOGSEC * ********* * * FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD * LOGICAL SECTOR (BINARY). * FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) * TT = TRACK, SS=SECTOR * * INPUT: A4 ADDRESS TO PHYS. SECTOR * * OUTPUT: A3 BINARY SECTOR NO * A4 UNCHANGED * LOGSEC EQU * CF A5,DECBIN LDR A3,A1 SAVE ADK A4,2 * * MULTIPLY BY 26 * SLL A3,5 *32 LDR A2,A1 SLL A2,2 SUR A3,A2 *28 SLL A1,1 SUR A3,A1 *26 CF A5,DECBIN SUK A1,1 ADR A3,A1 * * CHECK SECTOR NO * LDR A1,A3 SUK A1,25 RF(NP) LOG:10 CWK A4,BUF+EOD+4 EOD? RF(E) LOG:02 YES! SUKL A1,1898 RF LOG:04 * * CHECK EOD LESS/EQUAL 74001 * LOG:02 SUKL A1,1899 LOG:04 EQU * RF(P) LOG:10 NOT ACC SEC. NO SUK A4,4 RESET BUFFER POINTER RTN A5 * * FATAL ERROR * LOG:05 ADK A5,4 ADJUST STACK POINTER LOG:10 LDKL A1,/2000 RETURN CODE ORS A1,DWTRCW,A6 CF A5,SETINH ABL LOA:90 ERROR ROUTINE * ********** * DECBIN* ********** * * FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO * BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED * INPUT: A4 ADDRESS TO FIRST DIGIT * OUTPUT: A1 BINARY * WORKING REG: A2,A7 * DECBIN LDK A1,0 LDK A7,2 DEC:10 LCR A2,A4 DIGIT ANK A2,/FF SUK A2,/F0 RB(N) LOG:05 SUK A2,9 RB(P) LOG:05 NOT DIGIT ADK A2,9 SUK A7,1 RF(Z) DEC:30 ADK A4,1 ADDRESS TO SECOND DIGIT DEC:20 SUK A2,1 RB(N) DEC:10 NEXT DIGIT ADK A1,/A MULTIPLY BY 10 RB DEC:20 DEC:30 ADR A1,A2 RTN A5 XIF EJECT * ********** * SETCIO * ********** * * FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION * * INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES * * OUTPUT: A3 CHANGED * A4 CHANGED * SETCIO LDKL A4,/FFCF ANS A4,FD:CIO SLL A3,4 ORS A3,FD:CIO RTN A5 IFT IBM=1 EJECT * ********** * BINDEC * ********** * * FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO * EBCDIC-CODED DIGITS (DECIMAL) * * INPUT: A7 BINARY NUMBER * * OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS * A7 CHANGED * BINDEC LDK A3,0 BIN:10 SUK A7,10 RF(N) BIN:20 ADK A3,1 RB BIN:10 BIN:20 ADK A7,10 SLL A3,8 ORR A3,A7 DECIMAL CONVERTED NO IN A3 ORKL A3,/F0F0 EBCDIC CODED RTN A5 EJECT ********* * DSLIO * ********* * * FUNCTION: PREPARE FOR READING DATA SET LABEL * * INPUT: A6 DWT ADDRESS * * OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES * A3 128 * A4 DRIVER BUFFER ADDRESS * A6 DWT ADDRESS * A1 IS CHANGED * DSLIO LDK A1,DWTDSS CF A5,DSPAD LDR* A2,A2 SLL A2,3 LDK A3,128 LDKL A4,BUF RTN A5 EJECT * ********** * DSOPCH * ********** * * FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT * * INPUT: A6 DWT ADDRESS * * OUTPUT: A2 EOD ADDRESS * A7 EOD-NO (0=NOT OPEN) * A1 CHANGED DSOPCH LDK A1,DWTEOD CF A5,DSPAD LDR* A7,A2 EOD-NO RTN A5 EJECT * ********* * DSPAD * ********* * * FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED * TYPE OF DATA FOR COORESSPONDING DRIVE * * INPUT: A1 DWT OFFSET * A6 DWT ADDRESS * * OUTPUT: A2 ADDRESS TO DATA * A6 DWT ADDRESS * DSPAD LC A2,DWTOR,A6 DRIVE NO ANK A2,/3 ADR A2,A2 ADR A2,A6 ADR A2,A1 RTN A5 EJECT * ********* * STDWT * ********* * * FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF * DRIVE NO * * INPUT: A1 OFFSET TO DWT AREA * A3 WORD TO BE STORED IN DWT * A6 DWT ADDRESS * * OUTPUT: A1 UNCHANGED * A2 ADDRESS TO WORD IN DWT AREA * A3 UNCHANGED * A6 UNCHANGED * STDWT EQU * CF A5,DSPAD STR A3,A2 RTN A5 EJECT * ********** * SETINH * ********** * * FUNCTION: INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE * ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND * RETURN * * INPUT: A6 DWT ADDRESS * SETINH INH LD A1,DWTA2,A6 FDON RF(Z) SET:10 NOT ACTIVE ABL T:DISP ESCAPE SET:10 RTN A5 XIF * * D R I V E R B U F F E R BUF DATA 0,0,0,0 * IFT IBM=1 RES 60 XIF EJECT * ********************* * * * 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 DATA 0 DATA 0 SAVE AREA DATA 0 DATA 0 DATA 0,0,0,0 STACK DWTST2 EQU *-DWFD01 SAVE STATUS WORD DATA -1 DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG DATA 0 DWTTP EQU *-DWFD01 TIMER POINTER DATA 0 DWTRCW EQU *-DWFD01 TEMP RETURN CODE DATA 0 DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR DATA 0 DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR DATA 0 DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 DATA 0,0,0 DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 DATA 0,0,0 DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 DATA 0,0,0 DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 DATA 0,0,0 IFT CHAN=1 DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER DATA 0 DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 DATA 0 DWTRW EQU *-DWFD01 READ/WRITE INDICATOR DATA 0 XIF IFT IBM=1 DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT DATA 0,0,0,0 DWTEOD EQU *-DWFD01 END OF DATA DATA 0,0,0,0 DWTEOE EQU *-DWFD01 END OF EXTENT DATA 0,0,0,0 DWTCRN EQU *-DWFD01 CURRENT RECORD NO DATA 0,0,0,0 DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR DATA 0,0,0,0 XIF END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRFD01 REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=» LOAD BUG (EOD=74001)«, t00=0x0000, t01=0x0042}
0x005e…007a Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-04-121«, t00=0x0000, t01=0x0062}
0x007a…0084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007e}
0x0084…00ba Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x0088}
0x00ba…00c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00be}
0x00c4…00ea Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00c8}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…0120 Head {h00=0x0028, h01=0x0050, text=»* DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0000, t01=0x00f8}
0x0120…012a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0124}
0x012a…0134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012e}
0x0134…013e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0138}
0x013e…0148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…0152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014c}
0x0152…015c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0156}
0x015c…0192 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0000, t01=0x0160}
0x0192…01c6 Head {h00=0x0030, h01=0x0050, text=»* THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0001, t01=0x0008}
0x01c6…01f8 Head {h00=0x002e, h01=0x0050, text=»* CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0001, t01=0x003c}
0x01f8…022c Head {h00=0x0030, h01=0x0050, text=»* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0001, t01=0x006e}
0x022c…0256 Head {h00=0x0026, h01=0x0050, text=»* MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0001, t01=0x00a2}
0x0256…0260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00cc}
0x0260…0272 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0001, t01=0x00d6}
0x0272…027c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x027c…028e Head {h00=0x000e, h01=0x0050, text=»* ORDERS:«, t00=0x0001, t01=0x00f2}
0x028e…0298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0104}
0x0298…02b4 Head {h00=0x0018, h01=0x0050, text=»* /00 TEST STATUS«, t00=0x0001, t01=0x010e}
0x02b4…02d2 Head {h00=0x001a, h01=0x0050, text=»* /01 PHYSICAL READ«, t00=0x0001, t01=0x012a}
0x02d2…0318 Head {h00=0x0042, h01=0x0050, text=»* /02 SEQUENTIAL READ -IBM DISC ONLY-«, t00=0x0001, t01=0x0148}
0x0318…0334 Head {h00=0x0018, h01=0x0050, text=»* /05 BASIC WRITE«, t00=0x0001, t01=0x018e}
0x0334…037c Head {h00=0x0044, h01=0x0050, text=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- «, t00=0x0002, t01=0x001a}
0x037c…039a Head {h00=0x001a, h01=0x0050, text=»* /11 PHYSICAL READ«, t00=0x0002, t01=0x0062}
0x039a…03ba Head {h00=0x001c, h01=0x0050, text=»* /15 PHYSICAL WRITE «, t00=0x0002, t01=0x0080}
0x03ba…03d6 Head {h00=0x0018, h01=0x0050, text=»* /1A SEARCH KEY «, t00=0x0002, t01=0x00a0}
0x03d6…03fa Head {h00=0x0020, h01=0x0050, text=»* /24 WRITE DELETED DATA «, t00=0x0002, t01=0x00bc}
0x03fa…0410 Head {h00=0x0012, h01=0x0050, text=»* /26 LOCK «, t00=0x0002, t01=0x00e0}
0x0410…0458 Head {h00=0x0044, h01=0x0050, text=»* /31 REWIND -IBM DISC ONLY- «, t00=0x0002, t01=0x00f6}
0x0458…046e Head {h00=0x0012, h01=0x0050, text=»* /37 LOAD «, t00=0x0002, t01=0x013e}
0x046e…0486 Head {h00=0x0014, h01=0x0050, text=»* /38 UNLOAD «, t00=0x0002, t01=0x0154}
0x0486…0490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016c}
0x0490…04a2 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0002, t01=0x0176}
0x04a2…04ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0188}
0x04ac…04c8 (3, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS:«, t00=0x0003, t01=0x0004}
0x04c8…04d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0020}
0x04d2…04ee Head {h00=0x0018, h01=0x0050, text=»* A5 STACK BASE «, t00=0x0003, t01=0x002a}
0x04ee…050a Head {h00=0x0018, h01=0x0050, text=»* A6 DWT-ADDRESS«, t00=0x0003, t01=0x0046}
0x050a…0520 Head {h00=0x0012, h01=0x0050, text=»* A7 ORDER«, t00=0x0003, t01=0x0062}
0x0520…053c Head {h00=0x0018, h01=0x0050, text=»* A8 ECB-ADDRESS«, t00=0x0003, t01=0x0078}
0x053c…054a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0094}
0x054a…0554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a2}
0x0554…0568 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00ac}
0x0568…057c Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0003, t01=0x00c0}
0x057c…0590 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x00d4}
0x0590…05a4 Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0003, t01=0x00e8}
0x05a4…05b8 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00fc}
0x05b8…05c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0110}
0x05c2…05ea Head {h00=0x0024, h01=0x0050, text=» ENTRY FDADR ACTIVATION ADDRESS«, t00=0x0003, t01=0x011a}
0x05ea…0610 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0003, t01=0x0142}
0x0610…0634 Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0003, t01=0x0168}
0x0634…0656 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0003, t01=0x018c}
0x0656…0660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001e}
0x0660…0676 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0028}
0x0676…068c Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x003e}
0x068c…06a2 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0054}
0x06a2…06b8 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x006a}
0x06b8…06ce Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0080}
0x06ce…06d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0096}
0x06d8…06f8 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x00a0}
0x06f8…0714 Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0004, t01=0x00c0}
0x0714…0738 Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x00dc}
0x0738…0752 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0004, t01=0x0100}
0x0752…0774 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0004, t01=0x011a}
0x0774…0794 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0004, t01=0x013c}
0x0794…07c0 Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0004, t01=0x015c}
0x07c0…07dc Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0004, t01=0x0188}
0x07dc…0806 Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0005, t01=0x0014}
0x0806…0830 Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0005, t01=0x003e}
0x0830…085a Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0005, t01=0x0068}
0x085a…0884 Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0005, t01=0x0092}
0x0884…08ac Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0005, t01=0x00bc}
0x08ac…08d6 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0005, t01=0x00e4}
0x08d6…0900 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0005, t01=0x010e}
0x0900…0924 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0005, t01=0x0138}
0x0924…094a Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x0005, t01=0x015c}
0x094a…0954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0182}
0x0954…0974 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0005, t01=0x018c}
0x0974…0994 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x001c}
0x0994…09b4 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0006, t01=0x003c}
0x09b4…09d4 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x005c}
0x09d4…09f4 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0006, t01=0x007c}
0x09f4…09fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009c}
0x09fe…0a30 Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0006, t01=0x00a6}
0x0a30…0a54 Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0006, t01=0x00d8}
0x0a54…0a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fc}
0x0a5e…0a70 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0006, t01=0x0106}
0x0a70…0a84 Head {h00=0x0010, h01=0x0050, text=»CHAN EQU X:A«, t00=0x0006, t01=0x0118}
0x0a84…0a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012c}
0x0a8e…0ac4 Head {h00=0x0032, h01=0x0050, text=»* FD DRIVER CAN BE ADAPTED FOR DATA MANAGEMENT«, t00=0x0006, t01=0x0136}
0x0ac4…0ae0 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B = 1«, t00=0x0006, t01=0x016c}
0x0ae0…0aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0188}
0x0aea…0afc (7, 0, 400) Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0007, t01=0x0004}
0x0afc…0b10 Head {h00=0x0010, h01=0x0050, text=»DAMA EQU X:B«, t00=0x0007, t01=0x0016}
0x0b10…0b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x002a}
0x0b1a…0b5a Head {h00=0x003c, h01=0x0050, text=»* IBM LABELLED DISC HANDLING MAY BE INCLUDED BY SETTING«, t00=0x0007, t01=0x0034}
0x0b5a…0b6e Head {h00=0x0010, h01=0x0050, text=»* X:C = 1 «, t00=0x0007, t01=0x0074}
0x0b6e…0b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0088}
0x0b78…0b8a Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0007, t01=0x0092}
0x0b8a…0b9e Head {h00=0x0010, h01=0x0050, text=»IBM EQU X:C «, t00=0x0007, t01=0x00a4}
0x0b9e…0ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b8}
0x0ba8…0bdc Head {h00=0x0030, h01=0x0050, text=»* IF INIMON IS TO BE USED, DRIVER SHOULD BE«, t00=0x0007, t01=0x00c2}
0x0bdc…0c0e Head {h00=0x002e, h01=0x0050, text=»* ADAPTED FOR RESTART BY SETTING X:D = 1 «, t00=0x0007, t01=0x00f6}
0x0c0e…0c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0128}
0x0c18…0c2a Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0007, t01=0x0132}
0x0c2a…0c3e Head {h00=0x0010, h01=0x0050, text=»INI EQU X:D «, t00=0x0007, t01=0x0144}
0x0c3e…0c4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0158}
0x0c4c…0c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0166}
0x0c56…0c6c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x0170}
0x0c6c…0c82 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0007, t01=0x0186}
0x0c82…0c98 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0008, t01=0x000c}
0x0c98…0cae Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0008, t01=0x0022}
0x0cae…0cc4 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x0038}
0x0cc4…0cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004e}
0x0cce…0cf8 Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x0008, t01=0x0058}
0x0cf8…0d22 Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x0008, t01=0x0082}
0x0d22…0d50 Head {h00=0x002a, h01=0x0050, text=»STALEN EQU 512 MAX STANDARD SEC. LEN. «, t00=0x0008, t01=0x00ac}
0x0d50…0d7c Head {h00=0x0028, h01=0x0050, text=»TOSLEN EQU 410 MAX TOSS SEC. LENGTH «, t00=0x0008, t01=0x00da}
0x0d7c…0da4 Head {h00=0x0024, h01=0x0050, text=»IBMLEN EQU 128 IBM SECTOR LENGTH«, t00=0x0008, t01=0x0106}
0x0da4…0dd0 Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x0008, t01=0x012e}
0x0dd0…0dfa Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x0008, t01=0x015a}
0x0dfa…0e22 Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x0008, t01=0x0184}
0x0e22…0e46 Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x0009, t01=0x001c}
0x0e46…0e62 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x0040}
0x0e62…0e7e Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0009, t01=0x005c}
0x0e7e…0e9a Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENTS*«, t00=0x0009, t01=0x0078}
0x0e9a…0eb6 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0094}
0x0eb6…0ed2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x00b0}
0x0ed2…0edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00cc}
0x0edc…0ee4 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00d6}
0x0ee4…0efa Head {h00=0x0012, h01=0x0050, text=»DWTA2 EQU /12 «, t00=0x0009, t01=0x00de}
0x0efa…0f10 Head {h00=0x0012, h01=0x0050, text=»DWTA3 EQU /14 «, t00=0x0009, t01=0x00f4}
0x0f10…0f26 Head {h00=0x0012, h01=0x0050, text=»DWTA5 EQU /16 «, t00=0x0009, t01=0x010a}
0x0f26…0f48 Head {h00=0x001e, h01=0x0050, text=»DWTSB2 EQU /1E STACK BASE «, t00=0x0009, t01=0x0120}
0x0f48…0f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0142}
0x0f52…0f64 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x014c}
0x0f64…0f76 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0009, t01=0x015e}
0x0f76…0f88 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0009, t01=0x0170}
0x0f88…0f9a Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0182}
0x0f9a…0fac (10, 0, 398) Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x0004}
0x0fac…0fb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0016}
0x0fb6…0fe0 Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000a, t01=0x0020}
0x0fe0…0fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004a}
0x0fea…0ff8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0054}
0x0ff8…1002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0062}
0x1002…1018 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000a, t01=0x006c}
0x1018…102e Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x000a, t01=0x0082}
0x102e…1044 Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x000a, t01=0x0098}
0x1044…105a Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00ae}
0x105a…1070 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000a, t01=0x00c4}
0x1070…107a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00da}
0x107a…109e Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x000a, t01=0x00e4}
0x109e…10b0 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x000a, t01=0x0108}
0x10b0…10ce Head {h00=0x001a, h01=0x0050, text=» LC A3,DWTOR,A6 INDEX «, t00=0x000a, t01=0x011a}
0x10ce…10ee Head {h00=0x001c, h01=0x0050, text=» LDR A2,A3 SAVE FOR FDIX«, t00=0x000a, t01=0x0138}
0x10ee…10f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0158}
0x10f8…1122 Head {h00=0x0026, h01=0x0050, text=»* PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x000a, t01=0x0162}
0x1122…112c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018c}
0x112c…1150 Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x000b, t01=0x0008}
0x1150…117c Head {h00=0x0028, h01=0x0050, text=» CM DWTRCW,A6 SAVE RETURN CODE WORD «, t00=0x000b, t01=0x002c}
0x117c…1186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0058}
0x1186…11a0 Head {h00=0x0016, h01=0x0050, text=»* CHECK IF LOCKED«, t00=0x000b, t01=0x0062}
0x11a0…11aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x007c}
0x11aa…11d2 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR «, t00=0x000b, t01=0x0086}
0x11d2…11f8 Head {h00=0x0022, h01=0x0050, text=» CF A5,FDIX GET BIT MASK IN A3«, t00=0x000b, t01=0x00ae}
0x11f8…1226 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK «, t00=0x000b, t01=0x00d4}
0x1226…1238 Head {h00=0x000e, h01=0x0050, text=» ANR A1,A3«, t00=0x000b, t01=0x0102}
0x1238…1256 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) FD:ORD LOCKED «, t00=0x000b, t01=0x0114}
0x1256…1268 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x000b, t01=0x0132}
0x1268…127c Head {h00=0x0010, h01=0x0050, text=» SUK A1,/26 «, t00=0x000b, t01=0x0144}
0x127c…129a Head {h00=0x001a, h01=0x0050, text=» RF(Z) LOAD LOCK ORDER«, t00=0x000b, t01=0x0158}
0x129a…12ae Head {h00=0x0010, h01=0x0050, text=» SUK A1,/11 «, t00=0x000b, t01=0x0176}
0x12ae…12cc Head {h00=0x001a, h01=0x0050, text=» RF(Z) LOAD LOAD ORDER«, t00=0x000b, t01=0x018a}
0x12cc…12ee Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8001 RETURN CODE«, t00=0x000c, t01=0x0018}
0x12ee…1306 Head {h00=0x0014, h01=0x0050, text=» RF FD:090 ENDIO«, t00=0x000c, t01=0x003a}
0x1306…1314 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0052}
0x1314…131e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0060}
0x131e…1330 Head {h00=0x000e, h01=0x0050, text=»* ORDER?«, t00=0x000c, t01=0x006a}
0x1330…133a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007c}
0x133a…134e Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x000c, t01=0x0086}
0x134e…1358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009a}
0x1358…136a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x000c, t01=0x00a4}
0x136a…138c Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:070 TEST STATUS «, t00=0x000c, t01=0x00b6}
0x138c…139e Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000c, t01=0x00d8}
0x139e…13c2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x000c, t01=0x00ea}
0x13c2…13d4 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000c, t01=0x010e}
0x13d4…13f6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:010 BASIC WRITE «, t00=0x000c, t01=0x0120}
0x13f6…1408 Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x000c, t01=0x0142}
0x1408…142c Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x000c, t01=0x0154}
0x142c…143e Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000c, t01=0x0178}
0x143e…1462 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:020 PHYSICAL WRITE«, t00=0x000c, t01=0x018a}
0x1462…1474 Head {h00=0x000e, h01=0x0050, text=» SUK A1,15«, t00=0x000d, t01=0x001e}
0x1474…149c Head {h00=0x0024, h01=0x0050, text=» RF(Z) FD:030 WRITE DELETED DATA«, t00=0x000d, t01=0x0030}
0x149c…14b0 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/14 «, t00=0x000d, t01=0x0058}
0x14b0…14d4 Head {h00=0x0020, h01=0x0050, text=» ABL(Z) UNLOAD UNLOAD ORDER «, t00=0x000d, t01=0x006c}
0x14d4…14e6 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x000d, t01=0x0090}
0x14e6…14fa Head {h00=0x0010, h01=0x0050, text=» ADK A1,/36 «, t00=0x000d, t01=0x00a2}
0x14fa…1520 Head {h00=0x0022, h01=0x0050, text=» ABL(Z) SQREAD SEQUENTIAL READ«, t00=0x000d, t01=0x00b6}
0x1520…1532 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000d, t01=0x00dc}
0x1532…155a Head {h00=0x0024, h01=0x0050, text=» ABL(Z) SQWRIT SEQUENTIAL WRITE «, t00=0x000d, t01=0x00ee}
0x155a…156e Head {h00=0x0010, h01=0x0050, text=» SUK A1,/2B «, t00=0x000d, t01=0x0116}
0x156e…158c Head {h00=0x001a, h01=0x0050, text=» ABL(Z) REWIND REWIND «, t00=0x000d, t01=0x012a}
0x158c…1598 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0148}
0x1598…15b0 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x000d, t01=0x0154}
0x15b0…15c2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,30«, t00=0x000d, t01=0x016c}
0x15c2…15e2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:050 SEARCH KEY«, t00=0x000d, t01=0x017e}
0x15e2…15ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x000e}
0x15ee…15f6 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x001a}
0x15f6…160a Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x000e, t01=0x0022}
0x160a…162c Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x000e, t01=0x0036}
0x162c…163a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0058}
0x163a…1644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0066}
0x1644…165c Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x0070}
0x165c…1674 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000e, t01=0x0088}
0x1674…168c Head {h00=0x0014, h01=0x0050, text=»* BASIC WRITE * «, t00=0x000e, t01=0x00a0}
0x168c…16a4 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000e, t01=0x00b8}
0x16a4…16bc Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x00d0}
0x16bc…16c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e8}
0x16c6…16de Head {h00=0x0014, h01=0x0050, text=»FD:010 CF A5,BIO«, t00=0x000e, t01=0x00f2}
0x16de…16f0 Head {h00=0x000e, h01=0x0050, text=» ORK A2,1 «, t00=0x000e, t01=0x010a}
0x16f0…1704 Head {h00=0x0010, h01=0x0050, text=»FD:015 EQU *«, t00=0x000e, t01=0x011c}
0x1704…171c Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x000e, t01=0x0130}
0x171c…1734 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x000e, t01=0x0148}
0x1734…174c Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x000e, t01=0x0160}
0x174c…176a Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x000e, t01=0x0178}
0x176a…1776 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0008}
0x1776…1788 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x000f, t01=0x0014}
0x1788…17b8 Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x000f, t01=0x0026}
0x17b8…17ce Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x000f, t01=0x0056}
0x17ce…17e2 Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x000f, t01=0x006c}
0x17e2…17ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0080}
0x17ee…1814 Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x000f, t01=0x008c}
0x1814…1832 Head {h00=0x001a, h01=0x0050, text=» RF FD:048 GOTO FD:RC «, t00=0x000f, t01=0x00b2}
0x1832…183c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d0}
0x183c…1856 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000f, t01=0x00da}
0x1856…1870 Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x000f, t01=0x00f4}
0x1870…188a Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL WRITE *«, t00=0x000f, t01=0x010e}
0x188a…18a4 Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0128}
0x18a4…18be Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000f, t01=0x0142}
0x18be…18c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015c}
0x18c8…18e0 Head {h00=0x0014, h01=0x0050, text=»FD:020 CF A5,BIO«, t00=0x000f, t01=0x0166}
0x18e0…1908 Head {h00=0x0024, h01=0x0050, text=» ORK A2,5 INSERT BIO BITS 13-15 «, t00=0x000f, t01=0x017e}
0x1908…191a Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x0010, t01=0x0016}
0x191a…1928 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0028}
0x1928…1932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x1932…1950 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0010, t01=0x0040}
0x1950…196e Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x005e}
0x196e…198c Head {h00=0x001a, h01=0x0050, text=»* WRITE DELETED DATA *«, t00=0x0010, t01=0x007c}
0x198c…19aa Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x009a}
0x19aa…19c8 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0010, t01=0x00b8}
0x19c8…19d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d6}
0x19d2…19ea Head {h00=0x0014, h01=0x0050, text=»FD:030 CF A5,BIO«, t00=0x0010, t01=0x00e0}
0x19ea…19fc Head {h00=0x000e, h01=0x0050, text=» ORK A2,6 «, t00=0x0010, t01=0x00f8}
0x19fc…1a0e Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x0010, t01=0x010a}
0x1a0e…1a18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x011c}
0x1a18…1a32 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0010, t01=0x0126}
0x1a32…1a4c Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0010, t01=0x0140}
0x1a4c…1a66 Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x0010, t01=0x015a}
0x1a66…1a80 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0010, t01=0x0174}
0x1a80…1a9a Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0010, t01=0x018e}
0x1a9a…1aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0018}
0x1aa4…1ac0 Head {h00=0x0018, h01=0x0050, text=»FD:040 CF A5,BIO:RE «, t00=0x0011, t01=0x0022}
0x1ac0…1ad8 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0011, t01=0x003e}
0x1ad8…1af0 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x0011, t01=0x0056}
0x1af0…1b08 Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x0011, t01=0x006e}
0x1b08…1b28 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:042 TOSS DISC «, t00=0x0011, t01=0x0086}
0x1b28…1b34 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00a6}
0x1b34…1b46 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0011, t01=0x00b2}
0x1b46…1b5a Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0011, t01=0x00c4}
0x1b5a…1b6e Head {h00=0x0010, h01=0x0050, text=»FD:042 EQU *«, t00=0x0011, t01=0x00d8}
0x1b6e…1b7a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00ec}
0x1b7a…1ba2 Head {h00=0x0024, h01=0x0050, text=»FD:045 CF A5,FD:REA PERFORM READ«, t00=0x0011, t01=0x00f8}
0x1ba2…1bba Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0011, t01=0x0120}
0x1bba…1bd2 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x0011, t01=0x0138}
0x1bd2…1bea Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x0011, t01=0x0150}
0x1bea…1c08 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:047 NOT IBM «, t00=0x0011, t01=0x0168}
0x1c08…1c14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0186}
0x1c14…1c26 (18, 0, 400) Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0012, t01=0x0004}
0x1c26…1c46 Head {h00=0x001c, h01=0x0050, text=» LD A7,ECBRL,A8 REQ LEN «, t00=0x0012, t01=0x0016}
0x1c46…1c72 Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS«, t00=0x0012, t01=0x0036}
0x1c72…1c86 Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0012, t01=0x0062}
0x1c86…1c9a Head {h00=0x0010, h01=0x0050, text=»FD:047 EQU *«, t00=0x0012, t01=0x0076}
0x1c9a…1ca6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x008a}
0x1ca6…1cba Head {h00=0x0010, h01=0x0050, text=»FD:048 EQU *«, t00=0x0012, t01=0x0096}
0x1cba…1ccc Head {h00=0x000e, h01=0x0050, text=» ABL FD:RC«, t00=0x0012, t01=0x00aa}
0x1ccc…1cda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00bc}
0x1cda…1cf2 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x0012, t01=0x00ca}
0x1cf2…1cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e2}
0x1cfc…1d12 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0012, t01=0x00ec}
0x1d12…1d28 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0102}
0x1d28…1d3e Head {h00=0x0012, h01=0x0050, text=»* SEARCH KEY *«, t00=0x0012, t01=0x0118}
0x1d3e…1d54 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0012, t01=0x012e}
0x1d54…1d6a Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0012, t01=0x0144}
0x1d6a…1d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015a}
0x1d74…1d88 Head {h00=0x0010, h01=0x0050, text=»FD:050 EQU *«, t00=0x0012, t01=0x0164}
0x1d88…1dae Head {h00=0x0022, h01=0x0050, text=» LD A4,10,A8 KEY AREA ADDRESS «, t00=0x0012, t01=0x0178}
0x1dae…1dd2 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A4 KEY AREA LENGTH «, t00=0x0013, t01=0x000e}
0x1dd2…1de4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0013, t01=0x0032}
0x1de4…1e0a Head {h00=0x0022, h01=0x0050, text=» ABL(NP) END:10 ILLEGAL LENGTH«, t00=0x0013, t01=0x0044}
0x1e0a…1e1e Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0013, t01=0x006a}
0x1e1e…1e44 Head {h00=0x0022, h01=0x0050, text=» ABL(P) END:10 ILLEGAL LENGTH «, t00=0x0013, t01=0x007e}
0x1e44…1e56 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0013, t01=0x00a4}
0x1e56…1e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b6}
0x1e60…1e8e Head {h00=0x002a, h01=0x0050, text=»* IF ODD CHANGE TO EVEN NO OF BYTES «, t00=0x0013, t01=0x00c0}
0x1e8e…1e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ee}
0x1e98…1eaa Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0013, t01=0x00f8}
0x1eaa…1ebc Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0013, t01=0x010a}
0x1ebc…1ece Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0013, t01=0x011c}
0x1ece…1ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012e}
0x1ed8…1eea Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0013, t01=0x0138}
0x1eea…1f00 Head {h00=0x0012, h01=0x0050, text=» ORK A2,7 BIO «, t00=0x0013, t01=0x014a}
0x1f00…1f12 Head {h00=0x000e, h01=0x0050, text=» ADK A3,4 «, t00=0x0013, t01=0x0160}
0x1f12…1f30 Head {h00=0x001a, h01=0x0050, text=» ADK A4,2 KEY ADDRESS «, t00=0x0013, t01=0x0172}
0x1f30…1f50 Head {h00=0x001c, h01=0x0050, text=» CF A5,FD:WRI SEARCH KEY«, t00=0x0013, t01=0x0190}
0x1f50…1f6e Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 RETURN CODE«, t00=0x0014, t01=0x0020}
0x1f6e…1f84 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:048«, t00=0x0014, t01=0x003e}
0x1f84…1f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0054}
0x1f8e…1fb6 Head {h00=0x0024, h01=0x0050, text=»* READ RECORD WITH KEY COMMAND «, t00=0x0014, t01=0x005e}
0x1fb6…1fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0086}
0x1fc0…1fd4 Head {h00=0x0010, h01=0x0050, text=»FD:060 EQU *«, t00=0x0014, t01=0x0090}
0x1fd4…1fee Head {h00=0x0016, h01=0x0050, text=» LDKL A2,/8004 BIO«, t00=0x0014, t01=0x00a4}
0x1fee…2012 Head {h00=0x0020, h01=0x0050, text=» LD A3,4,A8 REQUESTED LENGTH«, t00=0x0014, t01=0x00be}
0x2012…2026 Head {h00=0x0010, h01=0x0050, text=» CWK A3,130 «, t00=0x0014, t01=0x00e2}
0x2026…204c Head {h00=0x0022, h01=0x0050, text=» ABL(NE) END:10 ILLEGAL LENGTH«, t00=0x0014, t01=0x00f6}
0x204c…206e Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0014, t01=0x011c}
0x206e…2080 Head {h00=0x000e, h01=0x0050, text=» RB FD:045«, t00=0x0014, t01=0x013e}
0x2080…208c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0150}
0x208c…2096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015c}
0x2096…20ae Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0014, t01=0x0166}
0x20ae…20c6 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x0014, t01=0x017e}
0x20c6…20de Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x0015, t01=0x0008}
0x20de…20f6 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0020}
0x20f6…210e Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0015, t01=0x0038}
0x210e…2118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0050}
0x2118…212c Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0015, t01=0x005a}
0x212c…214c Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x0015, t01=0x006e}
0x214c…2162 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0015, t01=0x008e}
0x2162…2188 Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0201 WRITE PROTECT? «, t00=0x0015, t01=0x00a4}
0x2188…219a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0015, t01=0x00ca}
0x219a…21b2 Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0015, t01=0x00dc}
0x21b2…21e0 Head {h00=0x002a, h01=0x0050, text=» CF A5,VOLADR GET VOL NAME ADDR IN A2 «, t00=0x0015, t01=0x00f4}
0x21e0…220e Head {h00=0x002a, h01=0x0050, text=» ST A2,ECBCW,A8 STORE IN CONTROL WORD «, t00=0x0015, t01=0x0122}
0x220e…221a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0150}
0x221a…222c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0015, t01=0x015c}
0x222c…2254 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTLAB,A6 LABEL INDICATOR«, t00=0x0015, t01=0x016e}
0x2254…226c Head {h00=0x0014, h01=0x0050, text=» AN A3,DWTA3,A6 «, t00=0x0016, t01=0x0008}
0x226c…228c Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:080 TOSS LABEL«, t00=0x0016, t01=0x0020}
0x228c…22b0 Head {h00=0x0020, h01=0x0050, text=» ORK A1,/20 SET BIT 10 (IBM)«, t00=0x0016, t01=0x0040}
0x22b0…22c4 Head {h00=0x0010, h01=0x0050, text=»FD:080 EQU *«, t00=0x0016, t01=0x0064}
0x22c4…22d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0078}
0x22d0…22ea Head {h00=0x0016, h01=0x0050, text=»FD:090 ABL END:IO «, t00=0x0016, t01=0x0084}
0x22ea…22f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x009e}
0x22f8…2302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ac}
0x2302…2312 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x00b6}
0x2312…2322 Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x00c6}
0x2322…2332 Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0016, t01=0x00d6}
0x2332…2342 Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x00e6}
0x2342…2352 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x00f6}
0x2352…235c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0106}
0x235c…236e Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0016, t01=0x0110}
0x236e…2386 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0016, t01=0x0122}
0x2386…239c Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0016, t01=0x013a}
0x239c…23ae Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0016, t01=0x0150}
0x23ae…23d2 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) LOA:80 NOT OPERABLE «, t00=0x0016, t01=0x0162}
0x23d2…23ea Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0016, t01=0x0186}
0x23ea…23f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x000e}
0x23f4…2416 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF TOSS/IBM LABEL«, t00=0x0017, t01=0x0018}
0x2416…2420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x003a}
0x2420…2436 Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0017, t01=0x0044}
0x2436…244a Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0017, t01=0x005a}
0x244a…2468 Head {h00=0x001a, h01=0x0050, text=» LDK A3,38 NO OF BYTES«, t00=0x0017, t01=0x006e}
0x2468…247e Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0017, t01=0x008c}
0x247e…2492 Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0017, t01=0x00a2}
0x2492…24a4 Head {h00=0x000e, h01=0x0050, text=» ADK A4,34«, t00=0x0017, t01=0x00b6}
0x24a4…24b8 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0017, t01=0x00c8}
0x24b8…24cc Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0017, t01=0x00dc}
0x24cc…24f8 Head {h00=0x0028, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL PREASSUMED «, t00=0x0017, t01=0x00f0}
0x24f8…250a Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0017, t01=0x011c}
0x250a…251e Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0017, t01=0x012e}
0x251e…2532 Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0017, t01=0x0142}
0x2532…2552 Head {h00=0x001c, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL«, t00=0x0017, t01=0x0156}
0x2552…255e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0176}
0x255e…2572 Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=1 «, t00=0x0017, t01=0x0182}
0x2572…257c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0008}
0x257c…2598 Head {h00=0x0018, h01=0x0050, text=»* READ VOLUME NAME «, t00=0x0018, t01=0x0012}
0x2598…25a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x002e}
0x25a2…25ba Head {h00=0x0014, h01=0x0050, text=» LDK A3,8 LENGTH«, t00=0x0018, t01=0x0038}
0x25ba…25d0 Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0018, t01=0x0050}
0x25d0…25fe Head {h00=0x002a, h01=0x0050, text=» C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK«, t00=0x0018, t01=0x0066}
0x25fe…262c Head {h00=0x002a, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0018, t01=0x0094}
0x262c…263e Head {h00=0x000e, h01=0x0050, text=» RF LOA:15«, t00=0x0018, t01=0x00c2}
0x263e…264a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00d4}
0x264a…265c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0018, t01=0x00e0}
0x265c…267c Head {h00=0x001c, h01=0x0050, text=»LOA:10 LDK A3,10 LENGTH «, t00=0x0018, t01=0x00f2}
0x267c…2694 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0018, t01=0x0112}
0x2694…26be Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x0018, t01=0x012a}
0x26be…26ea Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM DISC «, t00=0x0018, t01=0x0154}
0x26ea…2710 Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 RETURN CODE BIT 10«, t00=0x0018, t01=0x0180}
0x2710…272a Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0019, t01=0x0016}
0x272a…2736 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0030}
0x2736…274e Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0019, t01=0x003c}
0x274e…2762 Head {h00=0x0010, h01=0x0050, text=»LOA:15 EQU *«, t00=0x0019, t01=0x0054}
0x2762…2786 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0019, t01=0x0068}
0x2786…279c Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0019, t01=0x008c}
0x279c…27b0 Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0019, t01=0x00a2}
0x27b0…27c2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0019, t01=0x00b6}
0x27c2…27ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00c8}
0x27ce…27e0 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0019, t01=0x00d4}
0x27e0…27f8 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTRCW,A6«, t00=0x0019, t01=0x00e6}
0x27f8…2820 Head {h00=0x0024, h01=0x0050, text=» ANK A7,/20 CHECK TYPE OF LABEL «, t00=0x0019, t01=0x00fe}
0x2820…2840 Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:30 TOSS LABEL«, t00=0x0019, t01=0x0126}
0x2840…285e Head {h00=0x001a, h01=0x0050, text=» LDK A7,10 NO OF CHAR.«, t00=0x0019, t01=0x0146}
0x285e…2872 Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0019, t01=0x0164}
0x2872…2884 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0019, t01=0x0178}
0x2884…2898 Head {h00=0x0010, h01=0x0050, text=»LOA:30 EQU *«, t00=0x0019, t01=0x018a}
0x2898…28a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x000e}
0x28a4…28bc Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x001a, t01=0x001a}
0x28bc…28c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0032}
0x28c6…28ea Head {h00=0x0020, h01=0x0050, text=»* GET DWT VOL NAME ADDRESS «, t00=0x001a, t01=0x003c}
0x28ea…28f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0060}
0x28f4…2918 Head {h00=0x0020, h01=0x0050, text=» CF A5,VOLADR ADDRESS TO A2 «, t00=0x001a, t01=0x006a}
0x2918…2922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x008e}
0x2922…293e Head {h00=0x0018, h01=0x0050, text=»* STORE NAME IN DWT«, t00=0x001a, t01=0x0098}
0x293e…2948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b4}
0x2948…295a Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x001a, t01=0x00be}
0x295a…2976 Head {h00=0x0018, h01=0x0050, text=»LOA:40 LD A4,BUF,A1 «, t00=0x001a, t01=0x00d0}
0x2976…2988 Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x001a, t01=0x00ec}
0x2988…299a Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001a, t01=0x00fe}
0x299a…29b0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) LOA:50 «, t00=0x001a, t01=0x0110}
0x29b0…29c2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x001a, t01=0x0126}
0x29c2…29d4 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x001a, t01=0x0138}
0x29d4…29e6 Head {h00=0x000e, h01=0x0050, text=» RB LOA:40«, t00=0x001a, t01=0x014a}
0x29e6…29fa Head {h00=0x0010, h01=0x0050, text=»LOA:50 EQU *«, t00=0x001a, t01=0x015c}
0x29fa…2a06 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0170}
0x2a06…2a18 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001a, t01=0x017c}
0x2a18…2a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018e}
0x2a22…2a44 Head {h00=0x001e, h01=0x0050, text=»* DATA SET OPENING WANTED?«, t00=0x001b, t01=0x0008}
0x2a44…2a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x002a}
0x2a4e…2a74 Head {h00=0x0022, h01=0x0050, text=» ANK A1,/2 A1: TOSS=6, IBM=8 «, t00=0x001b, t01=0x0034}
0x2a74…2a96 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LOA:70 TOSS LABEL «, t00=0x001b, t01=0x005a}
0x2a96…2ab6 Head {h00=0x001c, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER «, t00=0x001b, t01=0x007c}
0x2ab6…2acc Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2600 «, t00=0x001b, t01=0x009c}
0x2acc…2aec Head {h00=0x001c, h01=0x0050, text=» RF(E) LOA:70 LOCK ORDER«, t00=0x001b, t01=0x00b2}
0x2aec…2af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00d2}
0x2af6…2b14 Head {h00=0x001a, h01=0x0050, text=»* READ DATA SET LABEL«, t00=0x001b, t01=0x00dc}
0x2b14…2b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00fa}
0x2b1e…2b40 Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW,A8 SECTOR NO «, t00=0x001b, t01=0x0104}
0x2b40…2b52 Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x001b, t01=0x0126}
0x2b52…2b76 Head {h00=0x0020, h01=0x0050, text=» ABL(N) FD:DIS REQUEST ERROR«, t00=0x001b, t01=0x0138}
0x2b76…2b88 Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x001b, t01=0x015c}
0x2b88…2bac Head {h00=0x0020, h01=0x0050, text=» ABL(P) FD:DIS REQUEST ERROR«, t00=0x001b, t01=0x016e}
0x2bac…2bbe (28, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x001c, t01=0x0004}
0x2bbe…2bd4 Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x001c, t01=0x0016}
0x2bd4…2bee Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x001c, t01=0x002c}
0x2bee…2c02 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x001c, t01=0x0046}
0x2c02…2c18 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x001c, t01=0x005a}
0x2c18…2c36 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 RETURN CODE«, t00=0x001c, t01=0x0070}
0x2c36…2c5a Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x001c, t01=0x008e}
0x2c5a…2c7c Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x001c, t01=0x00b2}
0x2c7c…2cb2 Head {h00=0x0032, h01=0x0050, text=» ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL«, t00=0x001c, t01=0x00d4}
0x2cb2…2cc6 Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x001c, t01=0x010a}
0x2cc6…2cda Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x001c, t01=0x011e}
0x2cda…2ce6 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x001c, t01=0x0132}
0x2ce6…2d14 Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBCW,A8 DATA SET LABEL SECTOR «, t00=0x001c, t01=0x013e}
0x2d14…2d2a Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x001c, t01=0x016c}
0x2d2a…2d4a Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x001c, t01=0x0182}
0x2d4a…2d6a Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x001d, t01=0x0012}
0x2d6a…2d9c Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x001d, t01=0x0032}
0x2d9c…2db2 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x001d, t01=0x0064}
0x2db2…2dda Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x001d, t01=0x007a}
0x2dda…2df0 Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x001d, t01=0x00a2}
0x2df0…2e06 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x001d, t01=0x00b8}
0x2e06…2e1a Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x001d, t01=0x00ce}
0x2e1a…2e3e Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x001d, t01=0x00e2}
0x2e3e…2e54 Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x001d, t01=0x0106}
0x2e54…2e6a Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x001d, t01=0x011c}
0x2e6a…2e92 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x001d, t01=0x0132}
0x2e92…2eb6 Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x001d, t01=0x015a}
0x2eb6…2ecc Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x001d, t01=0x017e}
0x2ecc…2eea (30, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x001e, t01=0x0004}
0x2eea…2f00 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x001e, t01=0x0022}
0x2f00…2f28 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x001e, t01=0x0038}
0x2f28…2f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0060}
0x2f32…2f46 Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x001e, t01=0x006a}
0x2f46…2f52 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x007e}
0x2f52…2f6a Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x001e, t01=0x008a}
0x2f6a…2f90 Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x001e, t01=0x00a2}
0x2f90…2fba Head {h00=0x0026, h01=0x0050, text=»LOA:75 LD A3,DWTRCW,A6 RETURN CODE«, t00=0x001e, t01=0x00c8}
0x2fba…2fd2 Head {h00=0x0014, h01=0x0050, text=»LOA:80 ABL FD:RC«, t00=0x001e, t01=0x00f2}
0x2fd2…2fea Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x001e, t01=0x010a}
0x2fea…2ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0122}
0x2ff4…300e Head {h00=0x0016, h01=0x0050, text=»* ERROR , UNLOCK «, t00=0x001e, t01=0x012c}
0x300e…3018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0146}
0x3018…302c Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x001e, t01=0x0150}
0x302c…303e Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x001e, t01=0x0164}
0x303e…3060 Head {h00=0x001e, h01=0x0050, text=» ADK A5,DWTSB2 STACK BASE «, t00=0x001e, t01=0x0176}
0x3060…307a Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x001f, t01=0x0008}
0x307a…3090 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x001f, t01=0x0022}
0x3090…30a2 Head {h00=0x000e, h01=0x0050, text=» RB LOA:75«, t00=0x001f, t01=0x0038}
0x30a2…30ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004a}
0x30ac…30ea Head {h00=0x003a, h01=0x0050, text=»*---------------------------------------------------- «, t00=0x001f, t01=0x0054}
0x30ea…3108 Head {h00=0x001a, h01=0x0050, text=»* LD:RC SUBROUTINE «, t00=0x001f, t01=0x0092}
0x3108…3112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00b0}
0x3112…3130 Head {h00=0x001a, h01=0x0050, text=»LD:RC ORS A3,DWTRCW,A6«, t00=0x001f, t01=0x00ba}
0x3130…3152 Head {h00=0x001e, h01=0x0050, text=» ANKL A3,/2007 FATAL ERROR«, t00=0x001f, t01=0x00d8}
0x3152…3168 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x001f, t01=0x00fa}
0x3168…3192 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x001f, t01=0x0110}
0x3192…31a2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x001f, t01=0x013a}
0x31a2…31ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x014a}
0x31ae…31bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0156}
0x31bc…31c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0164}
0x31c6…31d8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001f, t01=0x016e}
0x31d8…31ea Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x001f, t01=0x0180}
0x31ea…31fc (32, 0, 400) Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0020, t01=0x0004}
0x31fc…320e Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0016}
0x320e…3220 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0020, t01=0x0028}
0x3220…322a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x003a}
0x322a…323e Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0020, t01=0x0044}
0x323e…3250 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0020, t01=0x0058}
0x3250…325a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x006a}
0x325a…3276 Head {h00=0x0018, h01=0x0050, text=»* DATA SET OPEN? «, t00=0x0020, t01=0x0074}
0x3276…3280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0090}
0x3280…32a2 Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0020, t01=0x009a}
0x32a2…32b8 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0020, t01=0x00bc}
0x32b8…32d6 Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0020, t01=0x00d2}
0x32d6…3312 Head {h00=0x0038, h01=0x0050, text=» ST A7,ECBCW,A8 STORE EOD-NO IN CONTROL WORD OF ECB «, t00=0x0020, t01=0x00f0}
0x3312…331c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x012c}
0x331c…334c Head {h00=0x002c, h01=0x0050, text=»* READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0020, t01=0x0136}
0x334c…3356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0166}
0x3356…337a Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0020, t01=0x0170}
0x337a…33a4 (33, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0021, t01=0x0004}
0x33a4…33cc Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0021, t01=0x002e}
0x33cc…33d8 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0021, t01=0x0056}
0x33d8…33e2 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0021, t01=0x0062}
0x33e2…340a Head {h00=0x0024, h01=0x0050, text=»*------------------------------ «, t00=0x0021, t01=0x006c}
0x340a…344a Head {h00=0x003c, h01=0x0050, text=»* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0021, t01=0x0094}
0x344a…3454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00d4}
0x3454…3476 Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0021, t01=0x00de}
0x3476…3480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0100}
0x3480…349c Head {h00=0x0018, h01=0x0050, text=»* DIVIDE EOD BY 26 «, t00=0x0021, t01=0x010a}
0x349c…34a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0126}
0x34a6…34b8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0021, t01=0x0130}
0x34b8…34d0 Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0021, t01=0x0142}
0x34d0…34e6 Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0021, t01=0x015a}
0x34e6…34f8 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0021, t01=0x0170}
0x34f8…350a Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0021, t01=0x0182}
0x350a…3522 (34, 0, 400) Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0022, t01=0x0004}
0x3522…352c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x001c}
0x352c…354c Head {h00=0x001c, h01=0x0050, text=»* A1 = BINARY TRACK NO«, t00=0x0022, t01=0x0026}
0x354c…357a Head {h00=0x002a, h01=0x0050, text=»* A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0022, t01=0x0046}
0x357a…3584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0074}
0x3584…35b0 Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0022, t01=0x007e}
0x35b0…35dc Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0022, t01=0x00aa}
0x35dc…35ee Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0022, t01=0x00d6}
0x35ee…3600 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0022, t01=0x00e8}
0x3600…361c Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0022, t01=0x00fa}
0x361c…363e Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0022, t01=0x0116}
0x363e…3656 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x0022, t01=0x0138}
0x3656…3682 Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x0022, t01=0x0150}
0x3682…3694 Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0022, t01=0x017c}
0x3694…36b6 Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x0022, t01=0x018e}
0x36b6…36d4 Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x0023, t01=0x0020}
0x36d4…36de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x003e}
0x36de…36fe Head {h00=0x001c, h01=0x0050, text=»* WRITE DATA SET LABEL «, t00=0x0023, t01=0x0048}
0x36fe…3708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0068}
0x3708…372c Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0023, t01=0x0072}
0x372c…374c Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x0023, t01=0x0096}
0x374c…3778 Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x0023, t01=0x00b6}
0x3778…37a0 Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x0023, t01=0x00e2}
0x37a0…37b6 Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0023, t01=0x010a}
0x37b6…37d8 Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x0023, t01=0x0120}
0x37d8…37e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0142}
0x37e2…37f6 Head {h00=0x0010, h01=0x0050, text=»* UNLOCK «, t00=0x0023, t01=0x014c}
0x37f6…3800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0160}
0x3800…380c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x016a}
0x380c…3820 Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x0023, t01=0x0176}
0x3820…383a Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0023, t01=0x018a}
0x383a…3850 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0024, t01=0x0014}
0x3850…386a Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0024, t01=0x002a}
0x386a…387c Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0024, t01=0x0044}
0x387c…38ac Head {h00=0x002c, h01=0x0050, text=» RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED«, t00=0x0024, t01=0x0056}
0x38ac…38ce Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 INDEX MASK«, t00=0x0024, t01=0x0086}
0x38ce…38fe Head {h00=0x002c, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x0024, t01=0x00a8}
0x38fe…3912 Head {h00=0x0010, h01=0x0050, text=»UNL:80 EQU *«, t00=0x0024, t01=0x00d8}
0x3912…392c Head {h00=0x0016, h01=0x0050, text=» RB LOA:75 END:IO «, t00=0x0024, t01=0x00ec}
0x392c…3944 Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0024, t01=0x0106}
0x3944…394e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x011e}
0x394e…3972 Head {h00=0x0020, h01=0x0050, text=»* UNLOAD RETURN CODE CHECK«, t00=0x0024, t01=0x0128}
0x3972…397c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014c}
0x397c…399c Head {h00=0x001c, h01=0x0050, text=»UNL:RC ORS A3,DWTRCW,A6 «, t00=0x0024, t01=0x0156}
0x399c…39bc Head {h00=0x001c, h01=0x0050, text=» ANK A3,/7 FATAL ERROR? «, t00=0x0024, t01=0x0176}
0x39bc…39d8 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) UNL:80 ENDIO«, t00=0x0025, t01=0x0008}
0x39d8…39e8 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0025, t01=0x0024}
0x39e8…39f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0034}
0x39f4…3a06 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0025, t01=0x0040}
0x3a06…3a14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0052}
0x3a14…3a1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0060}
0x3a1e…3a3a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0025, t01=0x006a}
0x3a3a…3a56 Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x0025, t01=0x0086}
0x3a56…3a72 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0025, t01=0x00a2}
0x3a72…3a7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00be}
0x3a7c…3a90 Head {h00=0x0010, h01=0x0050, text=»SQREAD EQU *«, t00=0x0025, t01=0x00c8}
0x3a90…3abe Head {h00=0x002a, h01=0x0050, text=» CF A5,DSOPCH GET EOD AND EOD ADDRESS «, t00=0x0025, t01=0x00dc}
0x3abe…3ad4 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0025, t01=0x010a}
0x3ad4…3afa Head {h00=0x0022, h01=0x0050, text=»SQR:05 ABL(Z) DISIOE NOT OPEN «, t00=0x0025, t01=0x0120}
0x3afa…3b2c Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x0025, t01=0x0146}
0x3b2c…3b44 Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x0025, t01=0x0178}
0x3b44…3b5c Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0025, t01=0x0190}
0x3b5c…3b86 Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBCW,A8 STORE CRN+1 IN ECB«, t00=0x0026, t01=0x0018}
0x3b86…3b98 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0026, t01=0x0042}
0x3b98…3bba Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x0026, t01=0x0054}
0x3bba…3bd0 Head {h00=0x0012, h01=0x0050, text=» CF A5,BIO:RE «, t00=0x0026, t01=0x0076}
0x3bd0…3bf4 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0026, t01=0x008c}
0x3bf4…3c2a Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0026, t01=0x00b0}
0x3c2a…3c56 Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0026, t01=0x00e6}
0x3c56…3c7e Head {h00=0x0024, h01=0x0050, text=» LD A7,ECBRL,A8 REQUESTED LENGTH«, t00=0x0026, t01=0x0112}
0x3c7e…3ca6 Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0026, t01=0x013a}
0x3ca6…3cbc Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0026, t01=0x0162}
0x3cbc…3cd0 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0026, t01=0x0178}
0x3cd0…3cee Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x0026, t01=0x018c}
0x3cee…3cf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x001a}
0x3cf8…3d10 Head {h00=0x0014, h01=0x0050, text=»* END OF DATA«, t00=0x0027, t01=0x0024}
0x3d10…3d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x003c}
0x3d1a…3d42 Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x0027, t01=0x0046}
0x3d42…3d54 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0027, t01=0x006e}
0x3d54…3d62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0080}
0x3d62…3d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008e}
0x3d6c…3d88 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0027, t01=0x0098}
0x3d88…3da4 Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x0027, t01=0x00b4}
0x3da4…3dc0 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0027, t01=0x00d0}
0x3dc0…3dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ec}
0x3dca…3dde Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x0027, t01=0x00f6}
0x3dde…3dfc Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x0027, t01=0x010a}
0x3dfc…3e16 Head {h00=0x0016, h01=0x0050, text=» LDR A7,A7 EOD-NO «, t00=0x0027, t01=0x0128}
0x3e16…3e34 Head {h00=0x001a, h01=0x0050, text=» RB(Z) SQR:05 NOT OPEN«, t00=0x0027, t01=0x0142}
0x3e34…3e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0160}
0x3e3e…3e60 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF END OF EXTENT«, t00=0x0027, t01=0x016a}
0x3e60…3e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x018c}
0x3e6a…3e80 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x0028, t01=0x0008}
0x3e80…3eaa Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x0028, t01=0x001e}
0x3eaa…3ed8 Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 STORE EOD IN ECB C. W.«, t00=0x0028, t01=0x0048}
0x3ed8…3eec Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x0028, t01=0x0076}
0x3eec…3f0a Head {h00=0x001a, h01=0x0050, text=» RF(G) SQW:20 YES,EOE «, t00=0x0028, t01=0x008a}
0x3f0a…3f1c Head {h00=0x000e, h01=0x0050, text=» CF A5,BIO«, t00=0x0028, t01=0x00a8}
0x3f1c…3f30 Head {h00=0x0010, h01=0x0050, text=» LDK A7,128 «, t00=0x0028, t01=0x00ba}
0x3f30…3f60 Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x0028, t01=0x00ce}
0x3f60…3f7e Head {h00=0x001a, h01=0x0050, text=» ORK A2,5 PHYS. WRITE «, t00=0x0028, t01=0x00fe}
0x3f7e…3f94 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0028, t01=0x011c}
0x3f94…3faa Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0028, t01=0x0132}
0x3faa…3fce Head {h00=0x0020, h01=0x0050, text=»SQW:10 LDR A1,A3 RETURN CODE«, t00=0x0028, t01=0x0148}
0x3fce…3fe0 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/1«, t00=0x0028, t01=0x016c}
0x3fe0…4004 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SQW:15 NOT OPERABLE «, t00=0x0028, t01=0x017e}
0x4004…4032 Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x0029, t01=0x0012}
0x4032…404a Head {h00=0x0014, h01=0x0050, text=»SQW:15 RF FD:RC «, t00=0x0029, t01=0x0040}
0x404a…4054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0058}
0x4054…405e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0062}
0x405e…4076 Head {h00=0x0014, h01=0x0050, text=»* END OF EXTENT«, t00=0x0029, t01=0x006c}
0x4076…409e Head {h00=0x0024, h01=0x0050, text=»SQW:20 LDKL A1,/400 RETURN CODE «, t00=0x0029, t01=0x0084}
0x409e…40b0 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0029, t01=0x00ac}
0x40b0…40be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00be}
0x40be…40c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00cc}
0x40c8…40da Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x00d6}
0x40da…40ec Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x0029, t01=0x00e8}
0x40ec…40fe Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x00fa}
0x40fe…4108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x010c}
0x4108…411c Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x0029, t01=0x0116}
0x411c…4132 Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0029, t01=0x012a}
0x4132…4148 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0029, t01=0x0140}
0x4148…4170 Head {h00=0x0024, h01=0x0050, text=» RB(Z) SQR:05 DATA SET NOT OPEN «, t00=0x0029, t01=0x0156}
0x4170…4194 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x0029, t01=0x017e}
0x4194…41aa Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x002a, t01=0x0012}
0x41aa…41be Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x002a, t01=0x0028}
0x41be…41d6 Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x002a, t01=0x003c}
0x41d6…41f2 Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x002a, t01=0x0054}
0x41f2…4208 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x002a, t01=0x0070}
0x4208…421c Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x002a, t01=0x0086}
0x421c…4236 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x002a, t01=0x009a}
0x4236…4256 Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x002a, t01=0x00b4}
0x4256…4274 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x002a, t01=0x00d4}
0x4274…4286 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x002a, t01=0x00f2}
0x4286…4292 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0104}
0x4292…42a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0110}
0x42a0…42aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x011e}
0x42aa…42c4 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x002a, t01=0x0128}
0x42c4…42de Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x002a, t01=0x0142}
0x42de…42f8 Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x002a, t01=0x015c}
0x42f8…4312 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x002a, t01=0x0176}
0x4312…432c Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x002a, t01=0x0190}
0x432c…4336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x001a}
0x4336…4340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0024}
0x4340…4364 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A2 BIO CONTENTS «, t00=0x002b, t01=0x002e}
0x4364…4398 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x002b, t01=0x0052}
0x4398…43be Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x002b, t01=0x0086}
0x43be…43c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ac}
0x43c8…43dc Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x002b, t01=0x00b6}
0x43dc…43f0 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002b, t01=0x00ca}
0x43f0…4412 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x002b, t01=0x00de}
0x4412…441e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0100}
0x441e…4432 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x002b, t01=0x010c}
0x4432…445e Head {h00=0x0028, h01=0x0050, text=» CM DWTRW,A6 INDICATOR TO WRITE MODE«, t00=0x002b, t01=0x0120}
0x445e…446a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x014c}
0x446a…447c Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x002b, t01=0x0158}
0x447c…4486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x016a}
0x4486…449a Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x002b, t01=0x0174}
0x449a…44ae Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x002b, t01=0x0188}
0x44ae…44c0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x002c, t01=0x000c}
0x44c0…44e2 Head {h00=0x001e, h01=0x0050, text=» ST A1,DWTRW,A6 READ MODE «, t00=0x002c, t01=0x001e}
0x44e2…44ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0040}
0x44ee…4502 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002c, t01=0x004c}
0x4502…4524 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS READ«, t00=0x002c, t01=0x0060}
0x4524…4530 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0082}
0x4530…4544 Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x002c, t01=0x008e}
0x4544…4558 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002c, t01=0x00a2}
0x4558…457e Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x002c, t01=0x00b6}
0x457e…4590 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x002c, t01=0x00dc}
0x4590…45b4 Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x002c, t01=0x00ee}
0x45b4…45dc Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x002c, t01=0x0112}
0x45dc…45e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x013a}
0x45e8…45fc Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x002c, t01=0x0146}
0x45fc…4606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x015a}
0x4606…4638 Head {h00=0x002e, h01=0x0050, text=»* PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x002c, t01=0x0164}
0x4638…4642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0008}
0x4642…465a Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x002d, t01=0x0012}
0x465a…466c Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x002d, t01=0x002a}
0x466c…4692 Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x002d, t01=0x003c}
0x4692…469e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0062}
0x469e…46b2 Head {h00=0x0010, h01=0x0050, text=»FD:820 EQU *«, t00=0x002d, t01=0x006e}
0x46b2…46dc Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x002d, t01=0x0082}
0x46dc…4704 Head {h00=0x0024, h01=0x0050, text=»FD:CIO CIO A2,1,CUADR CIO-START «, t00=0x002d, t01=0x00ac}
0x4704…4730 Head {h00=0x0028, h01=0x0050, text=» RF(3) FD:840 DEVICE ADDRESS UNKNOWN«, t00=0x002d, t01=0x00d4}
0x4730…4742 Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x002d, t01=0x0100}
0x4742…4766 Head {h00=0x0020, h01=0x0050, text=»FD:840 LDK A1,1 NOT OPERABLE«, t00=0x002d, t01=0x0112}
0x4766…4778 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x002d, t01=0x0136}
0x4778…4786 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0148}
0x4786…4790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0156}
0x4790…47be Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002d, t01=0x0160}
0x47be…47ec Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x002d, t01=0x018e}
0x47ec…481a Head {h00=0x002a, h01=0x0050, text=»* FD:RC - STORE EFF LEN, END:IO *«, t00=0x002e, t01=0x002c}
0x481a…4848 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x002e, t01=0x005a}
0x4848…4876 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002e, t01=0x0088}
0x4876…4880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b6}
0x4880…48a2 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A3 RETURN CODE«, t00=0x002e, t01=0x00c0}
0x48a2…48ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e2}
0x48ac…48c0 Head {h00=0x0010, h01=0x0050, text=»FD:RC EQU * «, t00=0x002e, t01=0x00ec}
0x48c0…48d2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x002e, t01=0x0100}
0x48d2…48dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0112}
0x48dc…4902 Head {h00=0x0022, h01=0x0050, text=»* PUT EFFECTIVE LENGTH IN ECB«, t00=0x002e, t01=0x011c}
0x4902…490c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0142}
0x490c…492e Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBRL,A8 REQ LENGTH«, t00=0x002e, t01=0x014c}
0x492e…4950 Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBEL,A8 EFF LENGTH«, t00=0x002e, t01=0x016e}
0x4950…495a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0190}
0x495a…496c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x000a}
0x496c…497e Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x002f, t01=0x001c}
0x497e…4990 Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x002f, t01=0x002e}
0x4990…49a2 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x002f, t01=0x0040}
0x49a2…49b4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x0052}
0x49b4…49be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0064}
0x49be…49d2 Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x002f, t01=0x006e}
0x49d2…49e8 Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x002f, t01=0x0082}
0x49e8…4a00 Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x002f, t01=0x0098}
0x4a00…4a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00b0}
0x4a0a…4a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ba}
0x4a14…4a3a Head {h00=0x0022, h01=0x0050, text=»* ENTRY FROM RECOVERY ROUTINE«, t00=0x002f, t01=0x00c4}
0x4a3a…4a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ea}
0x4a44…4a78 Head {h00=0x0030, h01=0x0050, text=»END:05 CM DWTECB,A6 RESET ECB ADDRESS IN DWT«, t00=0x002f, t01=0x00f4}
0x4a78…4a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0128}
0x4a82…4a9c Head {h00=0x0016, h01=0x0050, text=»* ILLEGAL LENGTH «, t00=0x002f, t01=0x0132}
0x4a9c…4aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x014c}
0x4aa6…4ace Head {h00=0x0024, h01=0x0050, text=»END:10 LDKL A1,/8008 RETURN CODE«, t00=0x002f, t01=0x0156}
0x4ace…4ae0 Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x002f, t01=0x017e}
0x4ae0…4aee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0190}
0x4aee…4af8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x000e}
0x4af8…4b14 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0030, t01=0x0018}
0x4b14…4b30 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0030, t01=0x0034}
0x4b30…4b4c Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0030, t01=0x0050}
0x4b4c…4b68 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0030, t01=0x006c}
0x4b68…4b84 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0030, t01=0x0088}
0x4b84…4b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00a4}
0x4b8e…4b9e Head {h00=0x000c, h01=0x0050, text=»FDON INH«, t00=0x0030, t01=0x00ae}
0x4b9e…4bb4 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0030, t01=0x00be}
0x4bb4…4bd8 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0030, t01=0x00d4}
0x4bd8…4bea Head {h00=0x000e, h01=0x0050, text=» IFT INI=1«, t00=0x0030, t01=0x00f8}
0x4bea…4c00 Head {h00=0x0012, h01=0x0050, text=» LD A1,INIFLG «, t00=0x0030, t01=0x010a}
0x4c00…4c1e Head {h00=0x001a, h01=0x0050, text=» RF(Z) FDON05 POWER UP«, t00=0x0030, t01=0x0120}
0x4c1e…4c32 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0030, t01=0x013e}
0x4c32…4c4a Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTST2,A6«, t00=0x0030, t01=0x0152}
0x4c4a…4c72 Head {h00=0x0024, h01=0x0050, text=» CM DWTLC,A6 INDICATE NOT LOCKED«, t00=0x0030, t01=0x016a}
0x4c72…4c98 (49, 0, 400) Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0031, t01=0x0004}
0x4c98…4ca4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x002a}
0x4ca4…4cba Head {h00=0x0012, h01=0x0050, text=» IFT IBM+INI=2«, t00=0x0031, t01=0x0036}
0x4cba…4ccc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0031, t01=0x004c}
0x4ccc…4ce2 Head {h00=0x0012, h01=0x0050, text=» ADK A1,DWTEOD«, t00=0x0031, t01=0x005e}
0x4ce2…4cf4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x0031, t01=0x0074}
0x4cf4…4d08 Head {h00=0x0010, h01=0x0050, text=»FDON02 EQU *«, t00=0x0031, t01=0x0086}
0x4d08…4d26 Head {h00=0x001a, h01=0x0050, text=» CMR A1 CLOSE DATA SET«, t00=0x0031, t01=0x009a}
0x4d26…4d38 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0031, t01=0x00b8}
0x4d38…4d4a Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0031, t01=0x00ca}
0x4d4a…4d60 Head {h00=0x0012, h01=0x0050, text=» RB(P) FDON02 «, t00=0x0031, t01=0x00dc}
0x4d60…4d6c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00f2}
0x4d6c…4d80 Head {h00=0x0010, h01=0x0050, text=»FDON05 EQU *«, t00=0x0031, t01=0x00fe}
0x4d80…4da2 Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0031, t01=0x0112}
0x4da2…4db8 Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB2«, t00=0x0031, t01=0x0134}
0x4db8…4dd6 Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0031, t01=0x014a}
0x4dd6…4de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0168}
0x4de0…4e14 Head {h00=0x0030, h01=0x0050, text=»* SAVE DWTST TO DWTST2 IF NOT ALREADY DONE.«, t00=0x0031, t01=0x0172}
0x4e14…4e32 Head {h00=0x001a, h01=0x0050, text=»* DWTST IS SET BUSY«, t00=0x0032, t01=0x0016}
0x4e32…4e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0034}
0x4e3c…4e54 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST2,A6«, t00=0x0032, t01=0x003e}
0x4e54…4e66 Head {h00=0x000e, h01=0x0050, text=» CWK A2,-1«, t00=0x0032, t01=0x0056}
0x4e66…4e8a Head {h00=0x0020, h01=0x0050, text=» RF(NE) FDON08 ALREADY SAVED«, t00=0x0032, t01=0x0068}
0x4e8a…4ea2 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0032, t01=0x008c}
0x4ea2…4eba Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST2,A6«, t00=0x0032, t01=0x00a4}
0x4eba…4ede Head {h00=0x0020, h01=0x0050, text=»FDON08 CM DWTST,A6 SET BUSY «, t00=0x0032, t01=0x00bc}
0x4ede…4ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e0}
0x4ee8…4efe Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0032, t01=0x00ea}
0x4efe…4f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0100}
0x4f08…4f20 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0032, t01=0x010a}
0x4f20…4f42 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0032, t01=0x0122}
0x4f42…4f58 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0032, t01=0x0144}
0x4f58…4f7e Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0032, t01=0x015a}
0x4f7e…4f90 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0032, t01=0x0180}
0x4f90…4fac (51, 0, 400) Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x0033, t01=0x0004}
0x4fac…4fbe Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0033, t01=0x0020}
0x4fbe…4fd8 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x0033, t01=0x0032}
0x4fd8…4fee Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0033, t01=0x004c}
0x4fee…5008 Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x0033, t01=0x0062}
0x5008…501a Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0033, t01=0x007c}
0x501a…5024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x008e}
0x5024…5040 Head {h00=0x0018, h01=0x0050, text=»* TIME OUT ROUTINE«, t00=0x0033, t01=0x0098}
0x5040…504a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b4}
0x504a…5062 Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x0033, t01=0x00be}
0x5062…5076 Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0033, t01=0x00d6}
0x5076…508c Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB2«, t00=0x0033, t01=0x00ea}
0x508c…50aa Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0033, t01=0x0100}
0x50aa…50b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x011e}
0x50b4…50ca Head {h00=0x0012, h01=0x0050, text=»* LOCK DOORS «, t00=0x0033, t01=0x0128}
0x50ca…50d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x013e}
0x50d4…50e6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0033, t01=0x0148}
0x50e6…50fa Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0033, t01=0x015a}
0x50fa…5120 Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x0033, t01=0x016e}
0x5120…5132 (52, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x0034, t01=0x0004}
0x5132…5152 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x0034, t01=0x0016}
0x5152…516e Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0034, t01=0x0036}
0x516e…5178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0052}
0x5178…519c Head {h00=0x0020, h01=0x0050, text=»* PUT DRIVE NO IN CIO INSTR«, t00=0x0034, t01=0x005c}
0x519c…51a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0080}
0x51a6…51c8 Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0034, t01=0x008a}
0x51c8…51f6 Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0034, t01=0x00ac}
0x51f6…520e Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0034, t01=0x00da}
0x520e…5224 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0034, t01=0x00f2}
0x5224…5246 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0034, t01=0x0108}
0x5246…5258 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0034, t01=0x012a}
0x5258…5270 Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0034, t01=0x013c}
0x5270…5298 Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0034, t01=0x0154}
0x5298…52ac Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x0034, t01=0x017c}
0x52ac…52be Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0034, t01=0x0190}
0x52be…52d4 Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x0035, t01=0x0012}
0x52d4…52ea Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x0035, t01=0x0028}
0x52ea…52f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x003e}
0x52f4…530c Head {h00=0x0014, h01=0x0050, text=»* ANY REQUEST? «, t00=0x0035, t01=0x0048}
0x530c…5316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0060}
0x5316…5320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x006a}
0x5320…5352 Head {h00=0x002e, h01=0x0050, text=»* RESTORE STATUS SAVED IN DWST2 TO DWTST.«, t00=0x0035, t01=0x0074}
0x5352…536e Head {h00=0x0018, h01=0x0050, text=»* SET DWTST2 TO -1«, t00=0x0035, t01=0x00a6}
0x536e…5394 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST2,A6 SAVED STATUS «, t00=0x0035, t01=0x00c2}
0x5394…53c2 Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTST,A6 PUT IN CUURENT STATUS «, t00=0x0035, t01=0x00e8}
0x53c2…53d6 Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0035, t01=0x0116}
0x53d6…5402 Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTST2,A6 INDICATE NOT SAVED «, t00=0x0035, t01=0x012a}
0x5402…5426 Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x0035, t01=0x0156}
0x5426…543a Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x0035, t01=0x017a}
0x543a…5452 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0035, t01=0x018e}
0x5452…5486 Head {h00=0x0030, h01=0x0050, text=» RB(N) END:05 NO REQUEST, RETURN VIA TENDIO «, t00=0x0036, t01=0x0016}
0x5486…5490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x004a}
0x5490…54a8 Head {h00=0x0014, h01=0x0050, text=»* RETRY REQUEST«, t00=0x0036, t01=0x0054}
0x54a8…54b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x006c}
0x54b2…54d6 Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0036, t01=0x0076}
0x54d6…54ee Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0036, t01=0x009a}
0x54ee…5508 Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0036, t01=0x00b2}
0x5508…552c Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0036, t01=0x00cc}
0x552c…5548 Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x0036, t01=0x00f0}
0x5548…5556 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x010c}
0x5556…5560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x011a}
0x5560…557e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0036, t01=0x0124}
0x557e…559c Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x0142}
0x559c…55ba Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x0036, t01=0x0160}
0x55ba…55d8 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x017e}
0x55d8…55f6 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0037, t01=0x000c}
0x55f6…5600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x002a}
0x5600…5612 Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x0037, t01=0x0034}
0x5612…563a Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0037, t01=0x0046}
0x563a…564e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0037, t01=0x006e}
0x564e…5662 Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0037, t01=0x0082}
0x5662…5676 Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0037, t01=0x0096}
0x5676…568a Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x0037, t01=0x00aa}
0x568a…56a2 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,DWFD01 «, t00=0x0037, t01=0x00be}
0x56a2…56d4 Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTUB,A2 POINTER AT WORD IN BUFFER «, t00=0x0037, t01=0x00d6}
0x56d4…5702 Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTRW,A2 READ / WRITE INDICATOR«, t00=0x0037, t01=0x0108}
0x5702…571c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH010 READ«, t00=0x0037, t01=0x0136}
0x571c…573a Head {h00=0x001a, h01=0x0050, text=» LCR A3,A1 FIRST CHAR.«, t00=0x0037, t01=0x0150}
0x573a…575c Head {h00=0x001e, h01=0x0050, text=» ECR A2,A3 MOV TO BITS 0-7«, t00=0x0037, t01=0x016e}
0x575c…5784 Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 UPDATE BUFFER POINTER «, t00=0x0037, t01=0x0190}
0x5784…57a4 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A1 SECOND CHAR. «, t00=0x0038, t01=0x0028}
0x57a4…57c2 Head {h00=0x001a, h01=0x0050, text=» OTR A2,0,CUADR WRITE «, t00=0x0038, t01=0x0048}
0x57c2…57e0 Head {h00=0x001a, h01=0x0050, text=» RF(A) IH020 ACCEPTED «, t00=0x0038, t01=0x0066}
0x57e0…57fe Head {h00=0x001a, h01=0x0050, text=» RF IH040 NOT ACCEPTED«, t00=0x0038, t01=0x0084}
0x57fe…5820 Head {h00=0x001e, h01=0x0050, text=»IH010 INR A2,0,CUADR READ «, t00=0x0038, t01=0x00a2}
0x5820…5842 Head {h00=0x001e, h01=0x0050, text=» RF(NA) IH040 NOT ACCEPTED«, t00=0x0038, t01=0x00c4}
0x5842…5854 Head {h00=0x000e, h01=0x0050, text=» ECR A3,A2«, t00=0x0038, t01=0x00e6}
0x5854…587e Head {h00=0x0026, h01=0x0050, text=» SCR A3,A1 FIRST CHAR. INTO BUFFER«, t00=0x0038, t01=0x00f8}
0x587e…58a6 Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 UPDATE BUFFER POINTER «, t00=0x0038, t01=0x0122}
0x58a6…58d2 Head {h00=0x0028, h01=0x0050, text=» SCR A2,A1 SECOND CHAR. INTO BUFFER «, t00=0x0038, t01=0x014a}
0x58d2…58fa Head {h00=0x0024, h01=0x0050, text=»IH020 LDKL A2,DWFD01 DWT-ADDRESS«, t00=0x0038, t01=0x0176}
0x58fa…590c Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0039, t01=0x000e}
0x590c…593a Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTUB,A2 POINTER AT NEXT CHAR. «, t00=0x0039, t01=0x0020}
0x593a…5952 Head {h00=0x0014, h01=0x0050, text=» CW A1,DWTUBE,A2«, t00=0x0039, t01=0x004e}
0x5952…5976 Head {h00=0x0020, h01=0x0050, text=» RF(NE) IH030 NOT LAST WORD «, t00=0x0039, t01=0x0066}
0x5976…5996 Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0039, t01=0x008a}
0x5996…59aa Head {h00=0x0010, h01=0x0050, text=»IH030 EQU * «, t00=0x0039, t01=0x00aa}
0x59aa…59be Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x0039, t01=0x00be}
0x59be…59d2 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0039, t01=0x00d2}
0x59d2…59e6 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0039, t01=0x00e6}
0x59e6…59f6 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0039, t01=0x00fa}
0x59f6…5a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x010a}
0x5a00…5a24 Head {h00=0x0020, h01=0x0050, text=»* SAVE A4-A8 FOR DISPATCHER «, t00=0x0039, t01=0x0114}
0x5a24…5a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0138}
0x5a2e…5a42 Head {h00=0x0010, h01=0x0050, text=»IH040 EQU * «, t00=0x0039, t01=0x0142}
0x5a42…5a56 Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x0039, t01=0x0156}
0x5a56…5a6a Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x0039, t01=0x016a}
0x5a6a…5a7e Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x0039, t01=0x017e}
0x5a7e…5a92 (58, 0, 400) Head {h00=0x0010, h01=0x0050, text=» STR A7,A15 «, t00=0x003a, t01=0x0004}
0x5a92…5aa6 Head {h00=0x0010, h01=0x0050, text=» STR A8,A15 «, t00=0x003a, t01=0x0018}
0x5aa6…5ab2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x002c}
0x5ab2…5ac6 Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x003a, t01=0x0038}
0x5ac6…5adc Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x003a, t01=0x004c}
0x5adc…5ae8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0062}
0x5ae8…5b04 Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x003a, t01=0x006e}
0x5b04…5b28 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x003a, t01=0x008a}
0x5b28…5b4c Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x003a, t01=0x00ae}
0x5b4c…5b72 Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x003a, t01=0x00d2}
0x5b72…5b84 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x003a, t01=0x00f8}
0x5b84…5ba8 Head {h00=0x0020, h01=0x0050, text=» RF(N) FDRE READY INTERRUPT «, t00=0x003a, t01=0x010a}
0x5ba8…5bba Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x003a, t01=0x012e}
0x5bba…5bda Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY? «, t00=0x003a, t01=0x0140}
0x5bda…5bf2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x003a, t01=0x0160}
0x5bf2…5c18 Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x003a, t01=0x0178}
0x5c18…5c2a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x003b, t01=0x000e}
0x5c2a…5c40 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0405«, t00=0x003b, t01=0x0020}
0x5c40…5c64 Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x003b, t01=0x0036}
0x5c64…5c76 Head {h00=0x000e, h01=0x0050, text=» LDK A1,/4«, t00=0x003b, t01=0x005a}
0x5c76…5c92 Head {h00=0x0018, h01=0x0050, text=» ORR A3,A1 CRC ERROR«, t00=0x003b, t01=0x006c}
0x5c92…5ca6 Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x003b, t01=0x0088}
0x5ca6…5cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x009c}
0x5cb0…5cda Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x003b, t01=0x00a6}
0x5cda…5ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00d0}
0x5ce4…5cfa Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x003b, t01=0x00da}
0x5cfa…5d0e Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x003b, t01=0x00f0}
0x5d0e…5d20 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x003b, t01=0x0104}
0x5d20…5d46 Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x003b, t01=0x0116}
0x5d46…5d58 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003b, t01=0x013c}
0x5d58…5d74 Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x003b, t01=0x014e}
0x5d74…5d90 Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x003b, t01=0x016a}
0x5d90…5da2 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x003b, t01=0x0186}
0x5da2…5dba Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x003c, t01=0x0008}
0x5dba…5dcc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003c, t01=0x0020}
0x5dcc…5de8 Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x003c, t01=0x0032}
0x5de8…5e02 Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x003c, t01=0x004e}
0x5e02…5e14 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x003c, t01=0x0068}
0x5e14…5e20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x007a}
0x5e20…5e32 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003c, t01=0x0086}
0x5e32…5e4c Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x003c, t01=0x0098}
0x5e4c…5e66 Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x003c, t01=0x00b2}
0x5e66…5e78 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x003c, t01=0x00cc}
0x5e78…5e92 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x003c, t01=0x00de}
0x5e92…5eac Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x003c, t01=0x00f8}
0x5eac…5ebe Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x003c, t01=0x0112}
0x5ebe…5ed2 Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x003c, t01=0x0124}
0x5ed2…5ee2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003c, t01=0x0138}
0x5ee2…5ef0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0148}
0x5ef0…5efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0156}
0x5efa…5f16 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003c, t01=0x0160}
0x5f16…5f32 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x003c, t01=0x017c}
0x5f32…5f4e Head {h00=0x0018, h01=0x0050, text=»* READY INTERRUPT *«, t00=0x003d, t01=0x0008}
0x5f4e…5f6a Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x003d, t01=0x0024}
0x5f6a…5f86 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003d, t01=0x0040}
0x5f86…5f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x005c}
0x5f90…5fa2 Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x003d, t01=0x0066}
0x5fa2…5fba Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x003d, t01=0x0078}
0x5fba…5fea Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE «, t00=0x003d, t01=0x0090}
0x5fea…6000 Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB2«, t00=0x003d, t01=0x00c0}
0x6000…601e Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x003d, t01=0x00d6}
0x601e…6030 Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x003d, t01=0x00f4}
0x6030…603e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0106}
0x603e…6048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0114}
0x6048…607c Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x003d, t01=0x011e}
0x607c…60b0 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x003d, t01=0x0152}
0x60b0…60e4 Head {h00=0x0030, h01=0x0050, text=»* S U B R O U T I N E S * «, t00=0x003d, t01=0x0186}
0x60e4…6118 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x003e, t01=0x002a}
0x6118…614c Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x003e, t01=0x005e}
0x614c…6156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0092}
0x6156…6166 Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x003e, t01=0x009c}
0x6166…6176 Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x003e, t01=0x00ac}
0x6176…6186 Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x003e, t01=0x00bc}
0x6186…6196 Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x003e, t01=0x00cc}
0x6196…61a6 Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x003e, t01=0x00dc}
0x61a6…61b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00ec}
0x61b0…61ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00f6}
0x61ba…61dc Head {h00=0x001e, h01=0x0050, text=»* INPUT: A8 ECB ADDRESS«, t00=0x003e, t01=0x0100}
0x61dc…61e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0122}
0x61e6…6228 Head {h00=0x003e, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x003e, t01=0x012c}
0x6228…625c Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x003e, t01=0x016e}
0x625c…6282 Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x003f, t01=0x0012}
0x6282…628c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0038}
0x628c…629e Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x003f, t01=0x0042}
0x629e…62b4 Head {h00=0x0012, h01=0x0050, text=» LDK A4,0 FLAG«, t00=0x003f, t01=0x0054}
0x62b4…62c6 Head {h00=0x000e, h01=0x0050, text=» RF BIO010«, t00=0x003f, t01=0x006a}
0x62c6…62de Head {h00=0x0014, h01=0x0050, text=»BIO:RE LDK A4,1 «, t00=0x003f, t01=0x007c}
0x62de…62f2 Head {h00=0x0010, h01=0x0050, text=»BIO010 EQU *«, t00=0x003f, t01=0x0094}
0x62f2…6312 Head {h00=0x001c, h01=0x0050, text=» LD A3,ECBRL,A8 REQ LEN «, t00=0x003f, t01=0x00a8}
0x6312…6336 Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOERR ILLEGAL LENGTH«, t00=0x003f, t01=0x00c8}
0x6336…634e Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x003f, t01=0x00ec}
0x634e…6366 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTLAB,A6«, t00=0x003f, t01=0x0104}
0x6366…637e Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTA3,A6 «, t00=0x003f, t01=0x011c}
0x637e…639e Head {h00=0x001c, h01=0x0050, text=» RF(Z) BIO020 TOSS DISC «, t00=0x003f, t01=0x0134}
0x639e…63aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0154}
0x63aa…63bc Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003f, t01=0x0160}
0x63bc…63d2 Head {h00=0x0012, h01=0x0050, text=» LDK A7,IBMLEN«, t00=0x003f, t01=0x0172}
0x63d2…63e4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003f, t01=0x0188}
0x63e4…63f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x000a}
0x63f0…6408 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0040, t01=0x0016}
0x6408…641a Head {h00=0x000e, h01=0x0050, text=» RF BIO030«, t00=0x0040, t01=0x002e}
0x641a…6426 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0040}
0x6426…643a Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=1 «, t00=0x0040, t01=0x004c}
0x643a…6458 Head {h00=0x001a, h01=0x0050, text=»BIO020 LDKL A7,TOSLEN «, t00=0x0040, t01=0x0060}
0x6458…646a Head {h00=0x000e, h01=0x0050, text=» LDK A2,3 «, t00=0x0040, t01=0x007e}
0x646a…647e Head {h00=0x0010, h01=0x0050, text=»BIO030 EQU *«, t00=0x0040, t01=0x0090}
0x647e…648a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x00a4}
0x648a…64a2 Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0040, t01=0x00b0}
0x64a2…64b4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x0040, t01=0x00c8}
0x64b4…64d0 Head {h00=0x0018, h01=0x0050, text=» RF(Z) BIO060 WRITE «, t00=0x0040, t01=0x00da}
0x64d0…64e2 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0040, t01=0x00f6}
0x64e2…64fc Head {h00=0x0016, h01=0x0050, text=» LDR A1,A3 REQ LEN«, t00=0x0040, t01=0x0108}
0x64fc…6526 Head {h00=0x0026, h01=0x0050, text=» CWR A3,A7 REQ LENGTH WITHIN RANGE«, t00=0x0040, t01=0x0122}
0x6526…653e Head {h00=0x0014, h01=0x0050, text=» RF(G) BIOERR NO«, t00=0x0040, t01=0x014c}
0x653e…6558 Head {h00=0x0016, h01=0x0050, text=»BIO040 SUK A1,128 «, t00=0x0040, t01=0x0164}
0x6558…656e Head {h00=0x0012, h01=0x0050, text=» RF(NP) BIO100«, t00=0x0040, t01=0x017e}
0x656e…6598 (65, 0, 398) Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT NO OF SECTORS «, t00=0x0041, t01=0x0004}
0x6598…65aa Head {h00=0x000e, h01=0x0050, text=» RB BIO040«, t00=0x0041, t01=0x002e}
0x65aa…65b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0040}
0x65b4…65d6 Head {h00=0x001e, h01=0x0050, text=»* WRITE, CHECK REQ LENGTH«, t00=0x0041, t01=0x004a}
0x65d6…65e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x006c}
0x65e0…65f8 Head {h00=0x0014, h01=0x0050, text=»BIO060 CWR A3,A7«, t00=0x0041, t01=0x0076}
0x65f8…661e Head {h00=0x0022, h01=0x0050, text=» RF(NE) BIOERR ILLEGAL REQ LEN«, t00=0x0041, t01=0x008e}
0x661e…662a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00b4}
0x662a…6642 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x0041, t01=0x00c0}
0x6642…664c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00d8}
0x664c…668e Head {h00=0x003e, h01=0x0050, text=»* FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH«, t00=0x0041, t01=0x00e2}
0x668e…6698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0124}
0x6698…66b6 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x0041, t01=0x012e}
0x66b6…66d8 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 NO OF SECTORS-1 «, t00=0x0041, t01=0x014c}
0x66d8…6700 Head {h00=0x0024, h01=0x0050, text=»BIO015 LDR A4,A4 READ OR WRITE? «, t00=0x0041, t01=0x016e}
0x6700…671c Head {h00=0x0018, h01=0x0050, text=» RF(NZ) BIO035 READ!«, t00=0x0042, t01=0x0008}
0x671c…6730 Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0042, t01=0x0024}
0x6730…6756 Head {h00=0x0022, h01=0x0050, text=» RF(Z) BIO100 REQ LEN ACCEPTED«, t00=0x0042, t01=0x0038}
0x6756…6768 Head {h00=0x000e, h01=0x0050, text=» RF BIO045«, t00=0x0042, t01=0x005e}
0x6768…6772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0070}
0x6772…678c Head {h00=0x0016, h01=0x0050, text=»BIO035 SUK A1,128 «, t00=0x0042, t01=0x007a}
0x678c…67b6 Head {h00=0x0026, h01=0x0050, text=» RF(NP) BIO100 REQ LENGTH ACCEPTED«, t00=0x0042, t01=0x0094}
0x67b6…67ce Head {h00=0x0014, h01=0x0050, text=»BIO045 ADK A2,1 «, t00=0x0042, t01=0x00be}
0x67ce…67e0 Head {h00=0x000e, h01=0x0050, text=» CWK A2,3 «, t00=0x0042, t01=0x00d6}
0x67e0…67f6 Head {h00=0x0012, h01=0x0050, text=» RB(NG) BIO015«, t00=0x0042, t01=0x00e8}
0x67f6…681e Head {h00=0x0024, h01=0x0050, text=» RF BIOERR REQ LEN OUTSIDE RANGE«, t00=0x0042, t01=0x00fe}
0x681e…682a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0126}
0x682a…6834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0132}
0x6834…686e Head {h00=0x0036, h01=0x0050, text=»BIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1«, t00=0x0042, t01=0x013c}
0x686e…6878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0176}
0x6878…68ae Head {h00=0x0032, h01=0x0050, text=»* CHECK SECTOR NO FROM CONTROL WORD OF ECB IS«, t00=0x0042, t01=0x0180}
0x68ae…68da Head {h00=0x0028, h01=0x0050, text=»* WITHIN RANGE, PUT IT IN POS 2-12 «, t00=0x0043, t01=0x0026}
0x68da…68e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0052}
0x68e4…6906 Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A8 SECTOR NO «, t00=0x0043, t01=0x005c}
0x6906…692a Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOER2 OUTSIDE RANGE «, t00=0x0043, t01=0x007e}
0x692a…6942 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0043, t01=0x00a2}
0x6942…6954 Head {h00=0x000e, h01=0x0050, text=» ANK A7,/A«, t00=0x0043, t01=0x00ba}
0x6954…6972 Head {h00=0x001a, h01=0x0050, text=» RF(Z) BIO110 IBM DISC«, t00=0x0043, t01=0x00cc}
0x6972…697e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x00ea}
0x697e…6992 Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=1 «, t00=0x0043, t01=0x00f6}
0x6992…69a6 Head {h00=0x0010, h01=0x0050, text=» CWK A1,499 «, t00=0x0043, t01=0x010a}
0x69a6…69c8 Head {h00=0x001e, h01=0x0050, text=» RF(G) BIOER2 OUT OF RANGE«, t00=0x0043, t01=0x011e}
0x69c8…69f8 Head {h00=0x002c, h01=0x0050, text=» SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR «, t00=0x0043, t01=0x0140}
0x69f8…6a04 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x0170}
0x6a04…6a1c Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0043, t01=0x017c}
0x6a1c…6a2e (68, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF BIO120«, t00=0x0044, t01=0x0004}
0x6a2e…6a3a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0016}
0x6a3a…6a4c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0044, t01=0x0022}
0x6a4c…6a66 Head {h00=0x0016, h01=0x0050, text=»BIO110 CWK A1,1923«, t00=0x0044, t01=0x0034}
0x6a66…6a88 Head {h00=0x001e, h01=0x0050, text=» RF(P) BIOER2 OUT OF RANGE«, t00=0x0044, t01=0x004e}
0x6a88…6a94 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0070}
0x6a94…6aac Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x0044, t01=0x007c}
0x6aac…6ad8 Head {h00=0x0028, h01=0x0050, text=» CWK A1,2001 SECTOR NO OUT OF RANGE «, t00=0x0044, t01=0x0094}
0x6ad8…6af2 Head {h00=0x0016, h01=0x0050, text=» RF(G) BIOER2 YES!«, t00=0x0044, t01=0x00c0}
0x6af2…6afe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x00da}
0x6afe…6b12 Head {h00=0x0010, h01=0x0050, text=»BIO120 EQU *«, t00=0x0044, t01=0x00e6}
0x6b12…6b24 Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x0044, t01=0x00fa}
0x6b24…6b36 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x0044, t01=0x010c}
0x6b36…6b5c Head {h00=0x0022, h01=0x0050, text=» LD A4,ECBBA,A8 BUFFER ADDRESS«, t00=0x0044, t01=0x011e}
0x6b5c…6b7a Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x0044, t01=0x0144}
0x6b7a…6b8c Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0044, t01=0x0162}
0x6b8c…6bb4 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) BIOERR REQ LEN. NOT EVEN«, t00=0x0044, t01=0x0174}
0x6bb4…6bc4 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0045, t01=0x000c}
0x6bc4…6bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x001c}
0x6bce…6bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0026}
0x6bd8…6c0e Head {h00=0x0032, h01=0x0050, text=»* ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO«, t00=0x0045, t01=0x0030}
0x6c0e…6c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0066}
0x6c18…6c32 Head {h00=0x0016, h01=0x0050, text=»BIOERR ABL END:10 «, t00=0x0045, t01=0x0070}
0x6c32…6c50 Head {h00=0x001a, h01=0x0050, text=»* ILLEGAL SECTOR NO «, t00=0x0045, t01=0x008a}
0x6c50…6c6a Head {h00=0x0016, h01=0x0050, text=»BIOER2 ABL FD:DIS «, t00=0x0045, t01=0x00a8}
0x6c6a…6c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00c2}
0x6c74…6c86 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0045, t01=0x00cc}
0x6c86…6c98 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0045, t01=0x00de}
0x6c98…6caa Head {h00=0x000e, h01=0x0050, text=»* FDIX * «, t00=0x0045, t01=0x00f0}
0x6caa…6cbc Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0045, t01=0x0102}
0x6cbc…6cce Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0045, t01=0x0114}
0x6cce…6cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0126}
0x6cd8…6cf2 Head {h00=0x0016, h01=0x0050, text=»* INPUT: A2 X «, t00=0x0045, t01=0x0130}
0x6cf2…6cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x014a}
0x6cfc…6d1e Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A3 2 POWER(X)«, t00=0x0045, t01=0x0154}
0x6d1e…6d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0176}
0x6d28…6d3e Head {h00=0x0012, h01=0x0050, text=»FDIX LDK A3,1 «, t00=0x0045, t01=0x0180}
0x6d3e…6d50 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0046, t01=0x0008}
0x6d50…6d64 Head {h00=0x0010, h01=0x0050, text=»FDIX10 EQU *«, t00=0x0046, t01=0x001a}
0x6d64…6d7a Head {h00=0x0012, h01=0x0050, text=» RF(Z) FDIX20 «, t00=0x0046, t01=0x002e}
0x6d7a…6d8c Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0046, t01=0x0044}
0x6d8c…6d9e Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0046, t01=0x0056}
0x6d9e…6db0 Head {h00=0x000e, h01=0x0050, text=» RB FDIX10«, t00=0x0046, t01=0x0068}
0x6db0…6dc6 Head {h00=0x0012, h01=0x0050, text=»FDIX20 RTN A5 «, t00=0x0046, t01=0x007a}
0x6dc6…6dd4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0090}
0x6dd4…6dec Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0046, t01=0x009e}
0x6dec…6e06 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0046, t01=0x00b6}
0x6e06…6e20 Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x0046, t01=0x00d0}
0x6e20…6e3a Head {h00=0x0016, h01=0x0050, text=»* VOLADR *«, t00=0x0046, t01=0x00ea}
0x6e3a…6e54 Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x0046, t01=0x0104}
0x6e54…6e6e Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0046, t01=0x011e}
0x6e6e…6e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0138}
0x6e78…6e9a Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0046, t01=0x0142}
0x6e9a…6ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0164}
0x6ea4…6ece Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A2 VOLUME NAME ADDRESS«, t00=0x0046, t01=0x016e}
0x6ece…6eea Head {h00=0x0018, h01=0x0050, text=»* A3 ZERO «, t00=0x0047, t01=0x0008}
0x6eea…6ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0024}
0x6ef4…6f10 Head {h00=0x0018, h01=0x0050, text=»VOLADR LDK A2,DWTVO0«, t00=0x0047, t01=0x002e}
0x6f10…6f22 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0047, t01=0x004a}
0x6f22…6f42 Head {h00=0x001c, h01=0x0050, text=» LC A3,DWTOR,A6 DRIVE NO«, t00=0x0047, t01=0x005c}
0x6f42…6f54 Head {h00=0x000e, h01=0x0050, text=» ANK A3,/3«, t00=0x0047, t01=0x007c}
0x6f54…6f68 Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x0047, t01=0x008e}
0x6f68…6f7e Head {h00=0x0012, h01=0x0050, text=» RF(Z) VOLA20 «, t00=0x0047, t01=0x00a2}
0x6f7e…6f9e Head {h00=0x001c, h01=0x0050, text=» ADK A2,6 UPDATE ADDRESS«, t00=0x0047, t01=0x00b8}
0x6f9e…6fb0 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0047, t01=0x00d8}
0x6fb0…6fc2 Head {h00=0x000e, h01=0x0050, text=» RB VOLA10«, t00=0x0047, t01=0x00ea}
0x6fc2…6fd8 Head {h00=0x0012, h01=0x0050, text=»VOLA20 RTN A5 «, t00=0x0047, t01=0x00fc}
0x6fd8…6fe4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0112}
0x6fe4…6fec Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x011e}
0x6fec…6ffe Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0047, t01=0x0126}
0x6ffe…700c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0138}
0x700c…7016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0146}
0x7016…7028 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0047, t01=0x0150}
0x7028…703a Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x0047, t01=0x0162}
0x703a…704c Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0047, t01=0x0174}
0x704c…7056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0186}
0x7056…7094 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x0047, t01=0x0190}
0x7094…70b4 Head {h00=0x001c, h01=0x0050, text=»* ASCII CODE«, t00=0x0048, t01=0x003e}
0x70b4…70e6 Head {h00=0x002e, h01=0x0050, text=»* INPUT STRING ADDRESS IS BUF «, t00=0x0048, t01=0x005e}
0x70e6…7110 Head {h00=0x0026, h01=0x0050, text=»* INPUT: A7 NO OF CHARACTERS«, t00=0x0048, t01=0x0090}
0x7110…7140 Head {h00=0x002c, h01=0x0050, text=»* A4 OUTPUT STRING ADDRESS«, t00=0x0048, t01=0x00ba}
0x7140…7162 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x0048, t01=0x00ea}
0x7162…7182 Head {h00=0x001c, h01=0x0050, text=»* A4 CHANGED«, t00=0x0048, t01=0x010c}
0x7182…71a4 Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x0048, t01=0x012c}
0x71a4…71ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x014e}
0x71ae…71c2 Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0048, t01=0x0158}
0x71c2…71ce Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0048, t01=0x016c}
0x71ce…71e0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0048, t01=0x0178}
0x71e0…71f2 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0048, t01=0x018a}
0x71f2…720a Head {h00=0x0014, h01=0x0050, text=»ASC:10 SUK A7,1 «, t00=0x0049, t01=0x000c}
0x720a…7220 Head {h00=0x0012, h01=0x0050, text=» RF(N) ASC:20 «, t00=0x0049, t01=0x0024}
0x7220…7232 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0049, t01=0x003a}
0x7232…7258 Head {h00=0x0022, h01=0x0050, text=» LC A1,BUF,A7 GET EBCDIC CHAR «, t00=0x0049, t01=0x004c}
0x7258…7284 Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0049, t01=0x0072}
0x7284…72b8 Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0049, t01=0x009e}
0x72b8…72ca Head {h00=0x000e, h01=0x0050, text=» RB ASC:10«, t00=0x0049, t01=0x00d2}
0x72ca…72de Head {h00=0x0010, h01=0x0050, text=»ASC:20 EQU *«, t00=0x0049, t01=0x00e4}
0x72de…7304 Head {h00=0x0022, h01=0x0050, text=» RF EBC:90 SET INH AND RETURN «, t00=0x0049, t01=0x00f8}
0x7304…7312 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x011e}
0x7312…731c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x012c}
0x731c…732e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x0136}
0x732e…7340 Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0049, t01=0x0148}
0x7340…7352 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x015a}
0x7352…735c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x016c}
0x735c…739c Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0049, t01=0x0176}
0x739c…73be Head {h00=0x001e, h01=0x0050, text=»* EBCDIC CODE «, t00=0x004a, t01=0x0026}
0x73be…73fa Head {h00=0x0038, h01=0x0050, text=»* OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x004a, t01=0x0048}
0x73fa…7404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0084}
0x7404…742e Head {h00=0x0026, h01=0x0050, text=»* INPUT: A7 NO OF CHARACTERS «, t00=0x004a, t01=0x008e}
0x742e…745c Head {h00=0x002a, h01=0x0050, text=»* A4 INPUT STRING ADDRESS«, t00=0x004a, t01=0x00b8}
0x745c…7466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00e6}
0x7466…7488 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x004a, t01=0x00f0}
0x7488…74b8 Head {h00=0x002c, h01=0x0050, text=»* A4 DRIVER BUFFER ADDRESS«, t00=0x004a, t01=0x0112}
0x74b8…74da Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x004a, t01=0x0142}
0x74da…74ee Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x004a, t01=0x0164}
0x74ee…74fa Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x004a, t01=0x0178}
0x74fa…750c Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x004a, t01=0x0184}
0x750c…751e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x004b, t01=0x0008}
0x751e…7536 Head {h00=0x0014, h01=0x0050, text=»EBC:10 SUK A7,1 «, t00=0x004b, t01=0x001a}
0x7536…754c Head {h00=0x0012, h01=0x0050, text=» RF(N) EBC:80 «, t00=0x004b, t01=0x0032}
0x754c…755e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004b, t01=0x0048}
0x755e…7580 Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x004b, t01=0x005a}
0x7580…759a Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x004b, t01=0x007c}
0x759a…75b0 Head {h00=0x0012, h01=0x0050, text=» SC A1,BUF,A7 «, t00=0x004b, t01=0x0096}
0x75b0…75c2 Head {h00=0x000e, h01=0x0050, text=» RB EBC:10«, t00=0x004b, t01=0x00ac}
0x75c2…75d6 Head {h00=0x0010, h01=0x0050, text=»EBC:80 EQU *«, t00=0x004b, t01=0x00be}
0x75d6…75ea Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x004b, t01=0x00d2}
0x75ea…75fe Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x004b, t01=0x00e6}
0x75fe…7614 Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x004b, t01=0x00fa}
0x7614…7624 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x0110}
0x7624…7632 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0120}
0x7632…763c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x012e}
0x763c…764e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x0138}
0x764e…7660 Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x004b, t01=0x014a}
0x7660…7672 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x004b, t01=0x015c}
0x7672…767c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x016e}
0x767c…76c0 Head {h00=0x0040, h01=0x0050, text=»* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x004b, t01=0x0178}
0x76c0…76f0 Head {h00=0x002c, h01=0x0050, text=»* LOGICAL SECTOR (BINARY). «, t00=0x004c, t01=0x002c}
0x76f0…7730 Head {h00=0x003c, h01=0x0050, text=»* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE)«, t00=0x004c, t01=0x005c}
0x7730…775e Head {h00=0x002a, h01=0x0050, text=»* TT = TRACK, SS=SECTOR «, t00=0x004c, t01=0x009c}
0x775e…7768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00ca}
0x7768…7798 Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO PHYS. SECTOR«, t00=0x004c, t01=0x00d4}
0x7798…77a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0104}
0x77a2…77cc Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A3 BINARY SECTOR NO «, t00=0x004c, t01=0x010e}
0x77cc…77ee Head {h00=0x001e, h01=0x0050, text=»* A4 UNCHANGED «, t00=0x004c, t01=0x0138}
0x77ee…77f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x015a}
0x77f8…780c Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x004c, t01=0x0164}
0x780c…7822 Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x004c, t01=0x0178}
0x7822…783a Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x004c, t01=0x018e}
0x783a…784c Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x004d, t01=0x0016}
0x784c…7856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0028}
0x7856…7870 Head {h00=0x0016, h01=0x0050, text=»* MULTIPLY BY 26 «, t00=0x004d, t01=0x0032}
0x7870…787a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x004c}
0x787a…7890 Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x004d, t01=0x0056}
0x7890…78a2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x004d, t01=0x006c}
0x78a2…78b4 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x004d, t01=0x007e}
0x78b4…78ca Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x004d, t01=0x0090}
0x78ca…78dc Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x004d, t01=0x00a6}
0x78dc…78f2 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x004d, t01=0x00b8}
0x78f2…7908 Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x004d, t01=0x00ce}
0x7908…791a Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x004d, t01=0x00e4}
0x791a…792c Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x004d, t01=0x00f6}
0x792c…7936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0108}
0x7936…7950 Head {h00=0x0016, h01=0x0050, text=»* CHECK SECTOR NO«, t00=0x004d, t01=0x0112}
0x7950…795a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x012c}
0x795a…796c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x004d, t01=0x0136}
0x796c…797e Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x004d, t01=0x0148}
0x797e…7994 Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x004d, t01=0x015a}
0x7994…79b2 Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD?«, t00=0x004d, t01=0x0170}
0x79b2…79cc Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x004d, t01=0x018e}
0x79cc…79e2 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x004e, t01=0x0018}
0x79e2…79f4 Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x004e, t01=0x002e}
0x79f4…79fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0040}
0x79fe…7a24 Head {h00=0x0022, h01=0x0050, text=»* CHECK EOD LESS/EQUAL 74001 «, t00=0x004e, t01=0x004a}
0x7a24…7a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0070}
0x7a2e…7a4a Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x004e, t01=0x007a}
0x7a4a…7a5e Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x004e, t01=0x0096}
0x7a5e…7a84 Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x004e, t01=0x00aa}
0x7a84…7aaa Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x004e, t01=0x00d0}
0x7aaa…7aba Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004e, t01=0x00f6}
0x7aba…7ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0106}
0x7ac4…7ada Head {h00=0x0012, h01=0x0050, text=»* FATAL ERROR«, t00=0x004e, t01=0x0110}
0x7ada…7ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0126}
0x7ae4…7b10 Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x004e, t01=0x0130}
0x7b10…7b38 Head {h00=0x0024, h01=0x0050, text=»LOG:10 LDKL A1,/2000 RETURN CODE«, t00=0x004e, t01=0x015c}
0x7b38…7b52 Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x004e, t01=0x0184}
0x7b52…7b68 Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x004f, t01=0x000e}
0x7b68…7b8a Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x004f, t01=0x0024}
0x7b8a…7b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0046}
0x7b94…7ba6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004f, t01=0x0050}
0x7ba6…7bb8 Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x004f, t01=0x0062}
0x7bb8…7bca Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004f, t01=0x0074}
0x7bca…7bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0086}
0x7bd4…7c16 Head {h00=0x003e, h01=0x0050, text=»* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x004f, t01=0x0090}
0x7c16…7c5e Head {h00=0x0044, h01=0x0050, text=»* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x004f, t01=0x00d2}
0x7c5e…7c8e Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO FIRST DIGIT«, t00=0x004f, t01=0x011a}
0x7c8e…7cac Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A1 BINARY«, t00=0x004f, t01=0x014a}
0x7cac…7ccc Head {h00=0x001c, h01=0x0050, text=»* WORKING REG: A2,A7 «, t00=0x004f, t01=0x0168}
0x7ccc…7cd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0188}
0x7cd6…7cee (80, 0, 400) Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x0050, t01=0x0004}
0x7cee…7d00 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0050, t01=0x001c}
0x7d00…7d1e Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x0050, t01=0x002e}
0x7d1e…7d32 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0050, t01=0x004c}
0x7d32…7d46 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0050, t01=0x0060}
0x7d46…7d5c Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x0050, t01=0x0074}
0x7d5c…7d6e Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0050, t01=0x008a}
0x7d6e…7d8e Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x0050, t01=0x009c}
0x7d8e…7da0 Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0050, t01=0x00bc}
0x7da0…7db2 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0050, t01=0x00ce}
0x7db2…7dc8 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0050, t01=0x00e0}
0x7dc8…7df2 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x0050, t01=0x00f6}
0x7df2…7e0a Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0050, t01=0x0120}
0x7e0a…7e2a Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0050, t01=0x0138}
0x7e2a…7e4c Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0050, t01=0x0158}
0x7e4c…7e5e Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0050, t01=0x017a}
0x7e5e…7e76 Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0050, t01=0x018c}
0x7e76…7e86 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0051, t01=0x0014}
0x7e86…7e92 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0024}
0x7e92…7ea0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0030}
0x7ea0…7eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x003e}
0x7eaa…7ebc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x0048}
0x7ebc…7ece Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x0051, t01=0x005a}
0x7ece…7ee0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x006c}
0x7ee0…7eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x007e}
0x7eea…7f20 Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x0051, t01=0x0088}
0x7f20…7f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00be}
0x7f2a…7f66 Head {h00=0x0038, h01=0x0050, text=»* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x0051, t01=0x00c8}
0x7f66…7f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0104}
0x7f70…7f8e Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A3 CHANGED«, t00=0x0051, t01=0x010e}
0x7f8e…7fac Head {h00=0x001a, h01=0x0050, text=»* A4 CHANGED«, t00=0x0051, t01=0x012c}
0x7fac…7fb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x014a}
0x7fb6…7fd2 Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x0051, t01=0x0154}
0x7fd2…7fe8 Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x0051, t01=0x0170}
0x7fe8…7ffa Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0051, t01=0x0186}
0x7ffa…8010 Head {h00=0x0012, h01=0x0050, text=» ORS A3,FD:CIO«, t00=0x0052, t01=0x0008}
0x8010…8020 Head {h00=0x000c, h01=0x0050, text=» RTN A5«, t00=0x0052, t01=0x001e}
0x8020…8032 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0052, t01=0x002e}
0x8032…8040 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0040}
0x8040…804a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x004e}
0x804a…805c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0052, t01=0x0058}
0x805c…806e Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x0052, t01=0x006a}
0x806e…8080 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0052, t01=0x007c}
0x8080…808a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x008e}
0x808a…80c8 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x0052, t01=0x0098}
0x80c8…80fc Head {h00=0x0030, h01=0x0050, text=»* EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x0052, t01=0x00d6}
0x80fc…8106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x010a}
0x8106…812a Head {h00=0x0020, h01=0x0050, text=»* INPUT: A7 BINARY NUMBER«, t00=0x0052, t01=0x0114}
0x812a…8134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0138}
0x8134…8166 Head {h00=0x002e, h01=0x0050, text=»* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS«, t00=0x0052, t01=0x0142}
0x8166…8184 Head {h00=0x001a, h01=0x0050, text=»* A7 CHANGED«, t00=0x0052, t01=0x0174}
0x8184…818e (83, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0004}
0x818e…81a6 Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x0053, t01=0x000e}
0x81a6…81be Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x0053, t01=0x0026}
0x81be…81d4 Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x0053, t01=0x003e}
0x81d4…81e6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0053, t01=0x0054}
0x81e6…81f8 Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x0053, t01=0x0066}
0x81f8…8210 Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x0053, t01=0x0078}
0x8210…8222 Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x0053, t01=0x0090}
0x8222…8250 Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x0053, t01=0x00a2}
0x8250…8274 Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x0053, t01=0x00d0}
0x8274…8284 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0053, t01=0x00f4}
0x8284…8292 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x0104}
0x8292…82a4 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0053, t01=0x0112}
0x82a4…82b6 Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x0053, t01=0x0124}
0x82b6…82c8 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0053, t01=0x0136}
0x82c8…82d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0148}
0x82d2…830a Head {h00=0x0034, h01=0x0050, text=»* FUNCTION: PREPARE FOR READING DATA SET LABEL«, t00=0x0053, t01=0x0152}
0x830a…8314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x018a}
0x8314…8336 (84, 0, 398) Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0054, t01=0x0004}
0x8336…8340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0026}
0x8340…837e Head {h00=0x003a, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x0054, t01=0x0030}
0x837e…839a Head {h00=0x0018, h01=0x0050, text=»* A3 128 «, t00=0x0054, t01=0x006e}
0x839a…83c6 Head {h00=0x0028, h01=0x0050, text=»* A4 DRIVER BUFFER ADDRESS«, t00=0x0054, t01=0x008a}
0x83c6…83e8 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0054, t01=0x00b6}
0x83e8…840a Head {h00=0x001e, h01=0x0050, text=»* A1 IS CHANGED «, t00=0x0054, t01=0x00d8}
0x840a…8414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00fa}
0x8414…8430 Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x0054, t01=0x0104}
0x8430…8444 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0054, t01=0x0120}
0x8444…8458 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x0054, t01=0x0134}
0x8458…846a Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0054, t01=0x0148}
0x846a…847e Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x0054, t01=0x015a}
0x847e…8492 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0054, t01=0x016e}
0x8492…84a2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0054, t01=0x0182}
0x84a2…84b0 (85, 0, 398) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0004}
0x84b0…84ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0012}
0x84ba…84cc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x001c}
0x84cc…84de Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x0055, t01=0x002e}
0x84de…84f0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x0040}
0x84f0…84fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0052}
0x84fa…8534 Head {h00=0x0036, h01=0x0050, text=»* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x0055, t01=0x005c}
0x8534…853e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0096}
0x853e…8560 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0055, t01=0x00a0}
0x8560…856a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00c2}
0x856a…858c Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A2 EOD ADDRESS«, t00=0x0055, t01=0x00cc}
0x858c…85bc Head {h00=0x002c, h01=0x0050, text=»* A7 EOD-NO (0=NOT OPEN) «, t00=0x0055, t01=0x00ee}
0x85bc…85da Head {h00=0x001a, h01=0x0050, text=»* A1 CHANGED«, t00=0x0055, t01=0x011e}
0x85da…85f6 Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x0055, t01=0x013c}
0x85f6…860a Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0055, t01=0x0158}
0x860a…8624 Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x0055, t01=0x016c}
0x8624…8634 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0055, t01=0x0186}
0x8634…8642 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0008}
0x8642…864c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0016}
0x864c…865e Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0056, t01=0x0020}
0x865e…8670 Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x0056, t01=0x0032}
0x8670…8682 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0056, t01=0x0044}
0x8682…868c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0056}
0x868c…86c2 Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x0056, t01=0x0060}
0x86c2…86fc Head {h00=0x0036, h01=0x0050, text=»* TYPE OF DATA FOR COORESSPONDING DRIVE«, t00=0x0056, t01=0x0096}
0x86fc…8706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00d0}
0x8706…8728 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A1 DWT OFFSET «, t00=0x0056, t01=0x00da}
0x8728…874a Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0056, t01=0x00fc}
0x874a…8754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x011e}
0x8754…877a Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A2 ADDRESS TO DATA«, t00=0x0056, t01=0x0128}
0x877a…879c Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0056, t01=0x014e}
0x879c…87a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0170}
0x87a6…87cc Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x0056, t01=0x017a}
0x87cc…87de Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0057, t01=0x0010}
0x87de…87f0 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0057, t01=0x0022}
0x87f0…8802 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0057, t01=0x0034}
0x8802…8814 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x0057, t01=0x0046}
0x8814…8824 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0057, t01=0x0058}
0x8824…8832 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0068}
0x8832…883c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0076}
0x883c…884e Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0057, t01=0x0080}
0x884e…8860 Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x0057, t01=0x0092}
0x8860…8872 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0057, t01=0x00a4}
0x8872…887c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00b6}
0x887c…88ba Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x0057, t01=0x00c0}
0x88ba…88d8 Head {h00=0x001a, h01=0x0050, text=»* DRIVE NO «, t00=0x0057, t01=0x00fe}
0x88d8…88e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x011c}
0x88e2…890e Head {h00=0x0028, h01=0x0050, text=»* INPUT: A1 OFFSET TO DWT AREA «, t00=0x0057, t01=0x0126}
0x890e…8940 Head {h00=0x002e, h01=0x0050, text=»* A3 WORD TO BE STORED IN DWT «, t00=0x0057, t01=0x0152}
0x8940…8964 Head {h00=0x0020, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0057, t01=0x0184}
0x8964…896e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0018}
0x896e…8990 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 UNCHANGED«, t00=0x0058, t01=0x0022}
0x8990…89c4 Head {h00=0x0030, h01=0x0050, text=»* A2 ADDRESS TO WORD IN DWT AREA«, t00=0x0058, t01=0x0044}
0x89c4…89e6 Head {h00=0x001e, h01=0x0050, text=»* A3 UNCHANGED«, t00=0x0058, t01=0x0078}
0x89e6…8a08 Head {h00=0x001e, h01=0x0050, text=»* A6 UNCHANGED«, t00=0x0058, t01=0x009a}
0x8a08…8a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00bc}
0x8a12…8a26 Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x0058, t01=0x00c6}
0x8a26…8a3a Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0058, t01=0x00da}
0x8a3a…8a4c Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0058, t01=0x00ee}
0x8a4c…8a5c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0058, t01=0x0100}
0x8a5c…8a6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x0110}
0x8a6a…8a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x011e}
0x8a74…8a86 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x0128}
0x8a86…8a98 Head {h00=0x000e, h01=0x0050, text=»* SETINH *«, t00=0x0058, t01=0x013a}
0x8a98…8aaa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x014c}
0x8aaa…8ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x015e}
0x8ab4…8af8 Head {h00=0x0040, h01=0x0050, text=»* FUNCTION: INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE «, t00=0x0058, t01=0x0168}
0x8af8…8b3a Head {h00=0x003e, h01=0x0050, text=»* ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND «, t00=0x0059, t01=0x001c}
0x8b3a…8b56 Head {h00=0x0018, h01=0x0050, text=»* RETURN«, t00=0x0059, t01=0x005e}
0x8b56…8b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x007a}
0x8b60…8b86 Head {h00=0x0022, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS «, t00=0x0059, t01=0x0084}
0x8b86…8b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00aa}
0x8b90…8ba2 Head {h00=0x000e, h01=0x0050, text=»SETINH INH«, t00=0x0059, t01=0x00b4}
0x8ba2…8bbe Head {h00=0x0018, h01=0x0050, text=» LD A1,DWTA2,A6 FDON«, t00=0x0059, t01=0x00c6}
0x8bbe…8bde Head {h00=0x001c, h01=0x0050, text=» RF(Z) SET:10 NOT ACTIVE«, t00=0x0059, t01=0x00e2}
0x8bde…8bf8 Head {h00=0x0016, h01=0x0050, text=» ABL T:DISP ESCAPE«, t00=0x0059, t01=0x0102}
0x8bf8…8c0e Head {h00=0x0012, h01=0x0050, text=»SET:10 RTN A5 «, t00=0x0059, t01=0x011c}
0x8c0e…8c1a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0132}
0x8c1a…8c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x013e}
0x8c24…8c4a Head {h00=0x0022, h01=0x0050, text=»* D R I V E R B U F F E R«, t00=0x0059, t01=0x0148}
0x8c4a…8c62 Head {h00=0x0014, h01=0x0050, text=»BUF DATA 0,0,0,0«, t00=0x0059, t01=0x016e}
0x8c62…8c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0186}
0x8c6c…8c7e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0059, t01=0x0190}
0x8c7e…8c8e Head {h00=0x000c, h01=0x0050, text=» RES 60 «, t00=0x005a, t01=0x0012}
0x8c8e…8c9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0022}
0x8c9a…8ca8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x002e}
0x8ca8…8cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x003c}
0x8cb2…8cd0 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x005a, t01=0x0046}
0x8cd0…8cee Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x005a, t01=0x0064}
0x8cee…8d0c Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x005a, t01=0x0082}
0x8d0c…8d2a Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x005a, t01=0x00a0}
0x8d2a…8d48 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x005a, t01=0x00be}
0x8d48…8d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00dc}
0x8d52…8d66 Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x005a, t01=0x00e6}
0x8d66…8d76 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005a, t01=0x00fa}
0x8d76…8d94 Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x005a, t01=0x010a}
0x8d94…8db0 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB-ADDRESS «, t00=0x005a, t01=0x0128}
0x8db0…8dc6 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x005a, t01=0x0144}
0x8dc6…8dec Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x005a, t01=0x015a}
0x8dec…8e08 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x005a, t01=0x0180}
0x8e08…8e30 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x005b, t01=0x000c}
0x8e30…8e4e Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x005b, t01=0x0034}
0x8e4e…8e5e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x0052}
0x8e5e…8e78 Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x005b, t01=0x0062}
0x8e78…8e88 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x007c}
0x8e88…8e98 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x008c}
0x8e98…8eb4 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x005b, t01=0x009c}
0x8eb4…8ee0 Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x005b, t01=0x00b8}
0x8ee0…8ef0 Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x005b, t01=0x00e4}
0x8ef0…8f1e Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x005b, t01=0x00f4}
0x8f1e…8f2e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x0122}
0x8f2e…8f56 Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x005b, t01=0x0132}
0x8f56…8f66 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x015a}
0x8f66…8f92 Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x005b, t01=0x016a}
0x8f92…8fa2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005c, t01=0x0008}
0x8fa2…8fd2 Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x005c, t01=0x0018}
0x8fd2…8fe2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005c, t01=0x0048}
0x8fe2…9012 Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x005c, t01=0x0058}
0x9012…9022 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005c, t01=0x0088}
0x9022…904e Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x005c, t01=0x0098}
0x904e…9062 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005c, t01=0x00c4}
0x9062…908e Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x005c, t01=0x00d8}
0x908e…90a2 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005c, t01=0x0104}
0x90a2…90ce Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x005c, t01=0x0118}
0x90ce…90e2 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005c, t01=0x0144}
0x90e2…910e Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x005c, t01=0x0158}
0x910e…9122 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005c, t01=0x0184}
0x9122…9136 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x005d, t01=0x0008}
0x9136…9170 Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x005d, t01=0x001c}
0x9170…9180 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005d, t01=0x0056}
0x9180…91b0 Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x005d, t01=0x0066}
0x91b0…91c0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005d, t01=0x0096}
0x91c0…91f0 Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x005d, t01=0x00a6}
0x91f0…9200 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005d, t01=0x00d6}
0x9200…920c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x00e6}
0x920c…921e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005d, t01=0x00f2}
0x921e…924e Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x005d, t01=0x0104}
0x924e…9264 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005d, t01=0x0134}
0x9264…928c Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x005d, t01=0x014a}
0x928c…92a2 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005d, t01=0x0172}
0x92a2…92cc Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x005d, t01=0x0188}
0x92cc…92e2 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005e, t01=0x0022}
0x92e2…9310 Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x005e, t01=0x0038}
0x9310…9326 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005e, t01=0x0066}
0x9326…9358 Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x005e, t01=0x007c}
0x9358…936e Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005e, t01=0x00ae}
0x936e…937a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00c4}
0x937a…9386 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005e, t01=0x00d0}
0x9386…938a Head {h00=0x4004, h01=0x0000}
0x938a…938e 00 5e 00 dc ┆ ^ ┆
0x938e…9396 (95, 1, 8) 20 04 00 00 00 5f 00 04 ┆ _ ┆
0x9396…93e6 (96, 0, 400) 00 32 00 50 5c 49 44 45 4e 54 20 44 52 43 43 30 31 20 5c 52 45 4c 20 38 2e 31 20 37 38 2d 30 34 2d 32 31 20 20 38 37 30 31 30 35 30 34 30 38 31 30 20 00 00 00 04 00 04 00 50 00 00 00 3a 00 06 00 50 2a 20 00 00 00 42 00 3a 00 50 2a 2a 2a 2a ┆ 2 P IDENT DRCC01 REL 8.1 78-04-21 870105040810 P : P* B : P****┆
0x93e6…9436 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 00 00 4c 00 06 00 50 2a 20 00 00 00 8a 00 24 00 50 2a 20 20 20 50 48 49 4c 49 50 53 20 ┆************************************************* L P* $ P* PHILIPS ┆
0x9436…9486 54 45 52 4d 49 4e 41 4c 20 53 59 53 54 45 4d 20 50 54 53 20 00 00 00 94 00 06 00 50 2a 20 00 00 00 bc 00 28 00 50 2a 20 20 20 44 52 43 43 30 31 20 3d 20 44 52 49 56 45 52 20 43 41 53 53 45 54 54 45 20 43 48 41 4e 47 45 52 00 00 00 c6 00 06 ┆TERMINAL SYSTEM PTS P* ( P* DRCC01 = DRIVER CASSETTE CHANGER ┆
0x9486…94d6 00 50 2a 20 00 00 00 f2 00 06 00 50 2a 20 00 00 00 fc 00 06 00 50 2a 20 00 00 01 06 00 06 00 50 2a 20 00 00 01 10 00 06 00 50 2a 20 00 00 01 1a 00 06 00 50 2a 20 00 00 01 24 00 3a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* P* P* P* P* P* $ : P******************┆
0x94d6…9526 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 20 00 00 01 2e 00 06 00 50 2a 20 00 00 01 6c 00 06 00 50 2a 20 00 00 01 76 00 06 00 50 2a 20 00 00 01 80 00 3a 00 50 2a 20 54 48 49 53 ┆*********************************** . P* l P* v P* : P* THIS┆
0x9526…9576 (97, 0, 400) 20 44 52 56 45 52 20 48 41 4e 44 4c 45 53 20 54 48 52 45 45 20 43 41 53 53 45 54 54 45 20 43 48 41 4e 47 45 52 53 20 43 4f 4e 4e 45 43 54 45 44 00 00 01 8a 00 36 00 50 2a 20 54 4f 20 43 50 55 20 56 49 41 20 43 48 43 43 20 41 4e 44 20 49 4f ┆ DRVER HANDLES THREE CASSETTE CHANGERS CONNECTED 6 P* TO CPU VIA CHCC AND IO┆
0x9576…95c6 50 20 4f 4e 20 4d 55 4c 54 49 50 4c 45 58 45 44 20 43 48 41 4e 4e 45 4c 2e 20 00 01 00 38 00 06 00 50 2a 20 00 01 00 72 00 36 00 50 2a 20 54 48 45 20 43 48 41 4e 47 45 52 53 20 41 52 45 20 4f 50 45 52 41 54 45 44 20 43 4f 4d 50 4c 45 54 45 ┆P ON MULTIPLEXED CHANNEL. 8 P* r 6 P* THE CHANGERS ARE OPERATED COMPLETE┆
0x95c6…9616 4c 59 20 49 4e 44 45 50 45 4e 44 45 4e 54 00 01 00 7c 00 14 00 50 2a 20 4f 46 20 45 41 43 48 20 4f 54 48 45 52 2e 00 01 00 b6 00 06 00 50 2a 20 00 01 00 ce 00 2e 00 50 2a 20 44 41 54 41 20 49 53 20 52 45 43 4f 52 44 45 44 20 49 4e 20 42 4c ┆LY INDEPENDENT | P* OF EACH OTHER. P* . P* DATA IS RECORDED IN BL┆
0x9616…9666 4f 43 4b 53 20 46 52 4f 4d 20 32 20 54 4f 20 32 35 36 00 01 00 d8 00 36 00 50 2a 20 43 48 41 52 41 43 54 45 52 53 2e 20 4e 4f 52 4d 41 4c 4c 59 20 54 48 45 20 4c 41 53 54 20 43 48 41 52 41 43 54 45 52 20 49 53 20 55 53 45 44 20 00 01 01 0a ┆OCKS FROM 2 TO 256 6 P* CHARACTERS. NORMALLY THE LAST CHARACTER IS USED ┆
0x9666…96b6 00 22 00 50 2a 20 41 53 20 41 20 42 4c 4f 43 4b 20 53 45 51 55 45 4e 43 45 20 4e 55 4d 42 45 52 2e 20 00 01 01 44 00 06 00 50 2a 20 00 01 01 6a 00 06 00 50 2a 20 00 01 01 74 00 04 00 50 00 01 01 7e 00 04 00 50 00 01 01 86 00 0a 00 50 5c 45 ┆ " P* AS A BLOCK SEQUENCE NUMBER. D P* j P* t P ~ P P E┆
0x96b6…9706 (98, 0, 398) 4a 45 43 54 00 01 01 8e 00 04 00 50 00 02 00 0c 00 32 00 50 2a 20 54 48 45 20 44 52 49 56 45 52 20 43 4f 4e 53 49 53 54 53 20 4f 46 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 50 41 52 54 53 3a 20 00 02 00 14 00 06 00 50 2a 20 00 02 00 4a ┆JECT P 2 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: P* J┆
0x9706…9756 00 2a 00 50 2a 5c 41 20 43 20 54 20 49 20 56 20 41 20 54 20 49 20 4f 20 4e 20 20 20 52 20 4f 20 55 20 54 20 49 20 4e 20 45 20 00 02 00 54 00 06 00 50 2a 20 00 02 00 82 00 26 00 50 2a 5c 4f 20 52 20 44 20 45 20 52 20 20 20 50 20 52 20 4f 20 ┆ * P* A C T I V A T I O N R O U T I N E T P* & P* O R D E R P R O ┆
0x9756…97a6 43 20 45 20 53 20 53 20 4f 20 52 20 53 20 00 02 00 8c 00 06 00 50 2a 20 00 02 00 b6 00 26 00 50 2a 5c 43 20 4f 20 4d 20 4d 20 41 20 4e 20 44 20 20 20 48 20 41 20 4e 20 44 20 4c 20 45 20 52 20 53 20 00 02 00 c0 00 06 00 50 2a 20 00 02 00 ea ┆C E S S O R S P* & P* C O M M A N D H A N D L E R S P* ┆
0x97a6…97f6 00 28 00 50 2a 5c 49 20 4e 20 54 20 45 20 52 20 52 20 55 20 50 20 54 20 20 20 48 20 41 20 4e 20 44 20 4c 20 45 20 52 20 00 02 00 f4 00 06 00 50 2a 20 00 02 01 20 00 26 00 50 2a 5c 50 20 4f 20 57 20 45 20 52 20 20 20 4f 20 4e 20 20 20 52 20 ┆ ( P* I N T E R R U P T H A N D L E R P* & P* P O W E R O N R ┆
0x97f6…9844 4f 20 55 20 54 20 49 20 4e 20 45 20 00 02 01 2a 00 06 00 50 2a 20 00 02 01 54 00 2a 00 50 2a 5c 44 20 45 20 56 20 49 20 43 20 45 20 20 20 57 20 4f 20 52 20 4b 20 20 20 54 20 41 20 42 20 4c 20 45 20 53 20 00 02 01 5e 00 06 00 50 2a 20 ┆O U T I N E * P* T * P* D E V I C E W O R K T A B L E S ^ P* ┆
0x9844…9894 (99, 0, 400) 00 02 01 8c 00 06 00 50 2a 20 00 03 00 08 00 06 00 50 2a 20 00 03 00 12 00 16 00 50 2a 20 4f 52 44 45 52 53 20 54 52 45 41 54 45 44 3a 20 00 03 00 1c 00 06 00 50 2a 20 00 03 00 36 00 0e 00 50 2a 5c 43 48 41 4e 47 45 52 3a 00 03 00 40 00 06 ┆ P* P* P* ORDERS TREATED: P* 6 P* CHANGER: @ ┆
0x9894…98e4 00 50 2a 20 00 03 00 52 00 30 00 50 2a 5c 2f 31 30 20 54 45 53 54 20 53 54 41 54 55 53 20 53 45 54 20 49 4e 44 5c 2f 31 33 20 45 4a 45 43 54 20 43 41 53 53 45 54 54 45 00 03 00 5c 00 28 00 50 2a 5c 2f 31 31 20 49 4e 53 45 52 54 20 43 41 53 ┆ P* R 0 P* /10 TEST STATUS SET IND /13 EJECT CASSETTE ( P* /11 INSERT CAS┆
0x98e4…9934 53 45 54 54 45 5c 2f 31 34 20 46 45 45 44 20 54 52 41 59 20 00 03 00 90 00 30 00 50 2a 5c 2f 31 32 20 52 45 54 55 52 4e 20 43 41 53 53 45 54 54 45 5c 2f 33 45 20 52 45 53 45 54 20 53 54 41 54 55 53 20 46 4c 41 47 53 00 03 00 bc 00 06 00 50 ┆SETTE /14 FEED TRAY 0 P* /12 RETURN CASSETTE /3E RESET STATUS FLAGS P┆
0x9934…9984 2a 20 00 03 00 f0 00 10 00 50 2a 5c 52 45 43 4f 52 44 45 52 3a 20 00 03 00 fa 00 06 00 50 2a 20 00 03 01 0e 00 20 00 50 2a 5c 2f 30 30 20 54 45 53 54 20 53 54 41 54 55 53 5c 2f 33 31 20 52 45 57 49 4e 44 00 03 01 18 00 18 00 50 2a 5c 2f 30 ┆* P* RECORDER: P* P* /00 TEST STATUS /31 REWIND P* /0┆
0x9984…99d4 32 20 52 45 41 44 20 5c 2f 33 37 20 4c 4f 41 44 00 03 01 3c 00 1a 00 50 2a 5c 2f 30 36 20 57 52 49 54 45 5c 2f 33 38 20 55 4e 4c 4f 41 44 00 03 01 58 00 28 00 50 2a 5c 2f 32 32 20 57 52 49 54 45 20 54 41 50 45 20 4d 41 52 4b 5c 2f 33 44 20 ┆2 READ /37 LOAD < P* /06 WRITE /38 UNLOAD X ( P* /22 WRITE TAPE MARK /3D ┆
0x99d4…9a24 (100, 0, 400) 52 45 41 44 20 4d 41 54 53 20 00 03 01 76 00 12 00 50 2a 5c 2f 33 46 20 52 45 43 4f 56 45 52 20 00 04 00 12 00 06 00 50 2a 20 00 04 00 28 00 0a 00 50 5c 45 4a 45 43 54 00 04 00 32 00 04 00 50 00 04 00 40 00 06 00 50 2a 20 00 04 00 48 00 12 ┆READ MATS v P* /3F RECOVER P* ( P EJECT 2 P @ P* H ┆
0x9a24…9a74 00 50 2a 20 53 54 41 54 55 53 20 42 49 54 53 3a 00 04 00 52 00 06 00 50 2a 20 00 04 00 68 00 1a 00 50 2a 5c 20 20 20 20 43 48 41 4e 47 45 52 5c 52 45 43 4f 52 44 45 52 00 04 00 72 00 06 00 50 2a 20 00 04 00 90 00 26 00 50 2a 5c 30 3a 20 20 ┆ P* STATUS BITS: R P* h P* CHANGER RECORDER r P* & P* 0: ┆
0x9a74…9ac4 52 45 51 55 45 53 54 20 45 52 52 4f 52 5c 52 45 51 55 45 53 54 20 45 52 52 4f 52 20 00 04 00 9a 00 22 00 50 2a 5c 31 3a 20 20 43 41 53 20 49 4e 20 44 49 53 43 48 20 43 4f 4d 50 5c 4c 45 41 44 45 52 00 04 00 c4 00 26 00 50 2a 5c 32 3a 20 20 ┆REQUEST ERROR REQUEST ERROR " P* 1: CAS IN DISCH COMP LEADER & P* 2: ┆
0x9ac4…9b14 43 41 53 20 4e 4f 54 20 49 4e 20 54 52 41 59 5c 42 4f 54 20 4d 49 53 53 49 4e 47 20 00 04 00 ea 00 26 00 50 2a 5c 33 3a 20 20 4e 4f 20 54 52 41 59 20 4f 4e 20 54 52 41 4e 53 50 5c 54 41 50 45 20 4d 41 52 4b 20 00 04 01 14 00 06 00 50 2a 20 ┆CAS NOT IN TRAY BOT MISSING & P* 3: NO TRAY ON TRANSP TAPE MARK P* ┆
0x9b14…9b64 00 04 01 3e 00 24 00 50 2a 5c 34 3a 20 20 48 41 4e 44 4c 20 4e 4f 54 20 41 54 20 54 52 41 59 5c 4e 4f 20 44 41 54 41 20 00 04 01 48 00 20 00 50 2a 5c 35 3a 20 20 54 52 41 4e 53 50 4f 52 54 20 46 55 4c 4c 5c 42 4f 54 2f 45 4f 54 00 04 01 70 ┆ > $ P* 4: HANDL NOT AT TRAY NO DATA H P* 5: TRANSPORT FULL BOT/EOT p┆