|
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: 39822 (0x9b8e)
Notes: pts_type(SC)
Names: »DRFD01.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/DRFD01.SC«
IDENT DRFD01 REL 8.3 79-08-21 870105040830 =2, SEARCH KEY REL 8.2 78-09-15 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 0 * * FD DRIVER CAN BE ADAPTED FOR DATA MANAGEMENT * BY SETTING X:B = 1 * X:B EQU 0 DAMA EQU 0 * * IBM LABELLED DISC HANDLING MAY BE INCLUDED BY SETTING * X:C = 1 * X:C EQU 0 IBM EQU 1 * * IF INIMON IS TO BE USED, DRIVER SHOULD BE * ADAPTED FOR RESTART BY SETTING X:D = 1 * X:D EQU 0 INI EQU 0 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 * LDK A2,4 =2 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…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT DRFD01 REL 8.3 79-08-21 870105040830«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0056 Head {h00=0x0016, h01=0x0050, text=» =2, SEARCH KEY«, t00=0x0000, t01=0x0040}
0x0056…0072 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 78-09-15 «, t00=0x0000, t01=0x005a}
0x0072…0092 Head {h00=0x001c, h01=0x0050, text=» LOAD BUG (EOD=74001)«, t00=0x0000, t01=0x0076}
0x0092…00ae Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-04-121«, t00=0x0000, t01=0x0096}
0x00ae…00b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b2}
0x00b8…00ee Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x00bc}
0x00ee…00f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f2}
0x00f8…011e Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00fc}
0x011e…0128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0154 Head {h00=0x0028, h01=0x0050, text=»* DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0000, t01=0x012c}
0x0154…015e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…0168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0162}
0x0168…0172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016c}
0x0172…017c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0176}
0x017c…0186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x0186…0190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018a}
0x0190…01c6 (1, 0, 400) Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x0004}
0x01c6…01fa Head {h00=0x0030, h01=0x0050, text=»* THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0001, t01=0x003a}
0x01fa…022c Head {h00=0x002e, h01=0x0050, text=»* CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0001, t01=0x006e}
0x022c…0260 Head {h00=0x0030, h01=0x0050, text=»* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0001, t01=0x00a0}
0x0260…028a Head {h00=0x0026, h01=0x0050, text=»* MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0001, t01=0x00d4}
0x028a…0294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fe}
0x0294…02a6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0001, t01=0x0108}
0x02a6…02b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011a}
0x02b0…02c2 Head {h00=0x000e, h01=0x0050, text=»* ORDERS:«, t00=0x0001, t01=0x0124}
0x02c2…02cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0136}
0x02cc…02e8 Head {h00=0x0018, h01=0x0050, text=»* /00 TEST STATUS«, t00=0x0001, t01=0x0140}
0x02e8…0306 Head {h00=0x001a, h01=0x0050, text=»* /01 PHYSICAL READ«, t00=0x0001, t01=0x015c}
0x0306…034c Head {h00=0x0042, h01=0x0050, text=»* /02 SEQUENTIAL READ -IBM DISC ONLY-«, t00=0x0001, t01=0x017a}
0x034c…0368 Head {h00=0x0018, h01=0x0050, text=»* /05 BASIC WRITE«, t00=0x0002, t01=0x0030}
0x0368…03b0 Head {h00=0x0044, h01=0x0050, text=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- «, t00=0x0002, t01=0x004c}
0x03b0…03ce Head {h00=0x001a, h01=0x0050, text=»* /11 PHYSICAL READ«, t00=0x0002, t01=0x0094}
0x03ce…03ee Head {h00=0x001c, h01=0x0050, text=»* /15 PHYSICAL WRITE «, t00=0x0002, t01=0x00b2}
0x03ee…040a Head {h00=0x0018, h01=0x0050, text=»* /1A SEARCH KEY «, t00=0x0002, t01=0x00d2}
0x040a…042e Head {h00=0x0020, h01=0x0050, text=»* /24 WRITE DELETED DATA «, t00=0x0002, t01=0x00ee}
0x042e…0444 Head {h00=0x0012, h01=0x0050, text=»* /26 LOCK «, t00=0x0002, t01=0x0112}
0x0444…048c Head {h00=0x0044, h01=0x0050, text=»* /31 REWIND -IBM DISC ONLY- «, t00=0x0002, t01=0x0128}
0x048c…04a2 Head {h00=0x0012, h01=0x0050, text=»* /37 LOAD «, t00=0x0002, t01=0x0170}
0x04a2…04ba Head {h00=0x0014, h01=0x0050, text=»* /38 UNLOAD «, t00=0x0002, t01=0x0186}
0x04ba…04c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000e}
0x04c4…04d6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0003, t01=0x0018}
0x04d6…04e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002a}
0x04e0…04fc Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS:«, t00=0x0003, t01=0x0034}
0x04fc…0506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0050}
0x0506…0522 Head {h00=0x0018, h01=0x0050, text=»* A5 STACK BASE «, t00=0x0003, t01=0x005a}
0x0522…053e Head {h00=0x0018, h01=0x0050, text=»* A6 DWT-ADDRESS«, t00=0x0003, t01=0x0076}
0x053e…0554 Head {h00=0x0012, h01=0x0050, text=»* A7 ORDER«, t00=0x0003, t01=0x0092}
0x0554…0570 Head {h00=0x0018, h01=0x0050, text=»* A8 ECB-ADDRESS«, t00=0x0003, t01=0x00a8}
0x0570…057e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00c4}
0x057e…0588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d2}
0x0588…059c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00dc}
0x059c…05b0 Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0003, t01=0x00f0}
0x05b0…05c4 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x0104}
0x05c4…05d8 Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0003, t01=0x0118}
0x05d8…05ec Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x012c}
0x05ec…05f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0140}
0x05f6…061e Head {h00=0x0024, h01=0x0050, text=» ENTRY FDADR ACTIVATION ADDRESS«, t00=0x0003, t01=0x014a}
0x061e…0644 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0003, t01=0x0172}
0x0644…0668 Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0004, t01=0x0008}
0x0668…068a Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0004, t01=0x002c}
0x068a…0694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004e}
0x0694…06aa Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0058}
0x06aa…06c0 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x006e}
0x06c0…06d6 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0084}
0x06d6…06ec Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x009a}
0x06ec…0702 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x00b0}
0x0702…070c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c6}
0x070c…072c Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x00d0}
0x072c…0748 Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0004, t01=0x00f0}
0x0748…076c Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x010c}
0x076c…0786 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0004, t01=0x0130}
0x0786…07a8 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0004, t01=0x014a}
0x07a8…07c8 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0004, t01=0x016c}
0x07c8…07f4 Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0004, t01=0x018c}
0x07f4…0810 Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0005, t01=0x0028}
0x0810…083a Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0005, t01=0x0044}
0x083a…0864 Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0005, t01=0x006e}
0x0864…088e Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0005, t01=0x0098}
0x088e…08b8 Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0005, t01=0x00c2}
0x08b8…08e0 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0005, t01=0x00ec}
0x08e0…090a Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0005, t01=0x0114}
0x090a…0934 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0005, t01=0x013e}
0x0934…0958 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0005, t01=0x0168}
0x0958…097e Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x0005, t01=0x018c}
0x097e…0988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0022}
0x0988…09a8 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0006, t01=0x002c}
0x09a8…09c8 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x004c}
0x09c8…09e8 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0006, t01=0x006c}
0x09e8…0a08 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x008c}
0x0a08…0a28 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0006, t01=0x00ac}
0x0a28…0a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00cc}
0x0a32…0a64 Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0006, t01=0x00d6}
0x0a64…0a88 Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0006, t01=0x0108}
0x0a88…0a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012c}
0x0a92…0aa4 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0006, t01=0x0136}
0x0aa4…0ab6 Head {h00=0x000e, h01=0x0050, text=»CHAN EQU 0«, t00=0x0006, t01=0x0148}
0x0ab6…0ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015a}
0x0ac0…0af6 Head {h00=0x0032, h01=0x0050, text=»* FD DRIVER CAN BE ADAPTED FOR DATA MANAGEMENT«, t00=0x0006, t01=0x0164}
0x0af6…0b12 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B = 1«, t00=0x0007, t01=0x000a}
0x0b12…0b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0026}
0x0b1c…0b2e Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0007, t01=0x0030}
0x0b2e…0b40 Head {h00=0x000e, h01=0x0050, text=»DAMA EQU 0«, t00=0x0007, t01=0x0042}
0x0b40…0b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0054}
0x0b4a…0b8a Head {h00=0x003c, h01=0x0050, text=»* IBM LABELLED DISC HANDLING MAY BE INCLUDED BY SETTING«, t00=0x0007, t01=0x005e}
0x0b8a…0b9e Head {h00=0x0010, h01=0x0050, text=»* X:C = 1 «, t00=0x0007, t01=0x009e}
0x0b9e…0ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b2}
0x0ba8…0bba Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0007, t01=0x00bc}
0x0bba…0bcc Head {h00=0x000e, h01=0x0050, text=»IBM EQU 1 «, t00=0x0007, t01=0x00ce}
0x0bcc…0bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e0}
0x0bd6…0c0a Head {h00=0x0030, h01=0x0050, text=»* IF INIMON IS TO BE USED, DRIVER SHOULD BE«, t00=0x0007, t01=0x00ea}
0x0c0a…0c3c Head {h00=0x002e, h01=0x0050, text=»* ADAPTED FOR RESTART BY SETTING X:D = 1 «, t00=0x0007, t01=0x011e}
0x0c3c…0c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0150}
0x0c46…0c58 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0007, t01=0x015a}
0x0c58…0c6a Head {h00=0x000e, h01=0x0050, text=»INI EQU 0 «, t00=0x0007, t01=0x016c}
0x0c6a…0c78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x017e}
0x0c78…0c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018c}
0x0c82…0c98 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x0008}
0x0c98…0cae Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0008, t01=0x001e}
0x0cae…0cc4 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0008, t01=0x0034}
0x0cc4…0cda Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0008, t01=0x004a}
0x0cda…0cf0 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x0060}
0x0cf0…0cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0076}
0x0cfa…0d24 Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x0008, t01=0x0080}
0x0d24…0d4e Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x0008, t01=0x00aa}
0x0d4e…0d7c Head {h00=0x002a, h01=0x0050, text=»STALEN EQU 512 MAX STANDARD SEC. LEN. «, t00=0x0008, t01=0x00d4}
0x0d7c…0da8 Head {h00=0x0028, h01=0x0050, text=»TOSLEN EQU 410 MAX TOSS SEC. LENGTH «, t00=0x0008, t01=0x0102}
0x0da8…0dd0 Head {h00=0x0024, h01=0x0050, text=»IBMLEN EQU 128 IBM SECTOR LENGTH«, t00=0x0008, t01=0x012e}
0x0dd0…0dfc Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x0008, t01=0x0156}
0x0dfc…0e26 Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x0008, t01=0x0182}
0x0e26…0e4e Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x0009, t01=0x001c}
0x0e4e…0e72 Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x0009, t01=0x0044}
0x0e72…0e8e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x0068}
0x0e8e…0eaa Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0084}
0x0eaa…0ec6 Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENTS*«, t00=0x0009, t01=0x00a0}
0x0ec6…0ee2 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0009, t01=0x00bc}
0x0ee2…0efe Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x00d8}
0x0efe…0f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f4}
0x0f08…0f10 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00fe}
0x0f10…0f26 Head {h00=0x0012, h01=0x0050, text=»DWTA2 EQU /12 «, t00=0x0009, t01=0x0106}
0x0f26…0f3c Head {h00=0x0012, h01=0x0050, text=»DWTA3 EQU /14 «, t00=0x0009, t01=0x011c}
0x0f3c…0f52 Head {h00=0x0012, h01=0x0050, text=»DWTA5 EQU /16 «, t00=0x0009, t01=0x0132}
0x0f52…0f74 Head {h00=0x001e, h01=0x0050, text=»DWTSB2 EQU /1E STACK BASE «, t00=0x0009, t01=0x0148}
0x0f74…0f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x016a}
0x0f7e…0f90 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x0174}
0x0f90…0fa2 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0186}
0x0fa2…0fb4 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000a, t01=0x0008}
0x0fb4…0fc6 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x000a, t01=0x001a}
0x0fc6…0fd8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x002c}
0x0fd8…0fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003e}
0x0fe2…100c Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000a, t01=0x0048}
0x100c…1016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0072}
0x1016…1024 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x007c}
0x1024…102e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008a}
0x102e…1044 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000a, t01=0x0094}
0x1044…105a Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00aa}
0x105a…1070 Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x000a, t01=0x00c0}
0x1070…1086 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00d6}
0x1086…109c Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000a, t01=0x00ec}
0x109c…10a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0102}
0x10a6…10ca Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x000a, t01=0x010c}
0x10ca…10dc Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x000a, t01=0x0130}
0x10dc…10fa Head {h00=0x001a, h01=0x0050, text=» LC A3,DWTOR,A6 INDEX «, t00=0x000a, t01=0x0142}
0x10fa…111a Head {h00=0x001c, h01=0x0050, text=» LDR A2,A3 SAVE FOR FDIX«, t00=0x000a, t01=0x0160}
0x111a…1124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0180}
0x1124…114e Head {h00=0x0026, h01=0x0050, text=»* PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x000a, t01=0x018a}
0x114e…1158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0024}
0x1158…117c Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x000b, t01=0x002e}
0x117c…11a8 Head {h00=0x0028, h01=0x0050, text=» CM DWTRCW,A6 SAVE RETURN CODE WORD «, t00=0x000b, t01=0x0052}
0x11a8…11b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x007e}
0x11b2…11cc Head {h00=0x0016, h01=0x0050, text=»* CHECK IF LOCKED«, t00=0x000b, t01=0x0088}
0x11cc…11d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a2}
0x11d6…11fe Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR «, t00=0x000b, t01=0x00ac}
0x11fe…1224 Head {h00=0x0022, h01=0x0050, text=» CF A5,FDIX GET BIT MASK IN A3«, t00=0x000b, t01=0x00d4}
0x1224…1252 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK «, t00=0x000b, t01=0x00fa}
0x1252…1264 Head {h00=0x000e, h01=0x0050, text=» ANR A1,A3«, t00=0x000b, t01=0x0128}
0x1264…1282 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) FD:ORD LOCKED «, t00=0x000b, t01=0x013a}
0x1282…1294 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x000b, t01=0x0158}
0x1294…12a8 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/26 «, t00=0x000b, t01=0x016a}
0x12a8…12c6 Head {h00=0x001a, h01=0x0050, text=» RF(Z) LOAD LOCK ORDER«, t00=0x000b, t01=0x017e}
0x12c6…12da Head {h00=0x0010, h01=0x0050, text=» SUK A1,/11 «, t00=0x000c, t01=0x000c}
0x12da…12f8 Head {h00=0x001a, h01=0x0050, text=» RF(Z) LOAD LOAD ORDER«, t00=0x000c, t01=0x0020}
0x12f8…131a Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8001 RETURN CODE«, t00=0x000c, t01=0x003e}
0x131a…1332 Head {h00=0x0014, h01=0x0050, text=» RF FD:090 ENDIO«, t00=0x000c, t01=0x0060}
0x1332…1340 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0078}
0x1340…134a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0086}
0x134a…135c Head {h00=0x000e, h01=0x0050, text=»* ORDER?«, t00=0x000c, t01=0x0090}
0x135c…1366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a2}
0x1366…137a Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x000c, t01=0x00ac}
0x137a…1384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c0}
0x1384…1396 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x000c, t01=0x00ca}
0x1396…13b8 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:070 TEST STATUS «, t00=0x000c, t01=0x00dc}
0x13b8…13ca Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000c, t01=0x00fe}
0x13ca…13ee Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x000c, t01=0x0110}
0x13ee…1400 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000c, t01=0x0134}
0x1400…1422 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:010 BASIC WRITE «, t00=0x000c, t01=0x0146}
0x1422…1434 Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x000c, t01=0x0168}
0x1434…1458 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x000c, t01=0x017a}
0x1458…146a Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000d, t01=0x000e}
0x146a…148e Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:020 PHYSICAL WRITE«, t00=0x000d, t01=0x0020}
0x148e…14a0 Head {h00=0x000e, h01=0x0050, text=» SUK A1,15«, t00=0x000d, t01=0x0044}
0x14a0…14c8 Head {h00=0x0024, h01=0x0050, text=» RF(Z) FD:030 WRITE DELETED DATA«, t00=0x000d, t01=0x0056}
0x14c8…14dc Head {h00=0x0010, h01=0x0050, text=» SUK A1,/14 «, t00=0x000d, t01=0x007e}
0x14dc…1500 Head {h00=0x0020, h01=0x0050, text=» ABL(Z) UNLOAD UNLOAD ORDER «, t00=0x000d, t01=0x0092}
0x1500…1512 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x000d, t01=0x00b6}
0x1512…1526 Head {h00=0x0010, h01=0x0050, text=» ADK A1,/36 «, t00=0x000d, t01=0x00c8}
0x1526…154c Head {h00=0x0022, h01=0x0050, text=» ABL(Z) SQREAD SEQUENTIAL READ«, t00=0x000d, t01=0x00dc}
0x154c…155e Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000d, t01=0x0102}
0x155e…1586 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) SQWRIT SEQUENTIAL WRITE «, t00=0x000d, t01=0x0114}
0x1586…159a Head {h00=0x0010, h01=0x0050, text=» SUK A1,/2B «, t00=0x000d, t01=0x013c}
0x159a…15b8 Head {h00=0x001a, h01=0x0050, text=» ABL(Z) REWIND REWIND «, t00=0x000d, t01=0x0150}
0x15b8…15c4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x016e}
0x15c4…15dc Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x000d, t01=0x017a}
0x15dc…15ee (14, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A1,30«, t00=0x000e, t01=0x0004}
0x15ee…160e Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:050 SEARCH KEY«, t00=0x000e, t01=0x0016}
0x160e…161a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0036}
0x161a…1622 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0042}
0x1622…1636 Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x000e, t01=0x004a}
0x1636…1658 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x000e, t01=0x005e}
0x1658…1666 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0080}
0x1666…1670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008e}
0x1670…1688 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x0098}
0x1688…16a0 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000e, t01=0x00b0}
0x16a0…16b8 Head {h00=0x0014, h01=0x0050, text=»* BASIC WRITE * «, t00=0x000e, t01=0x00c8}
0x16b8…16d0 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000e, t01=0x00e0}
0x16d0…16e8 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x00f8}
0x16e8…16f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0110}
0x16f2…170a Head {h00=0x0014, h01=0x0050, text=»FD:010 CF A5,BIO«, t00=0x000e, t01=0x011a}
0x170a…171c Head {h00=0x000e, h01=0x0050, text=» ORK A2,1 «, t00=0x000e, t01=0x0132}
0x171c…1730 Head {h00=0x0010, h01=0x0050, text=»FD:015 EQU *«, t00=0x000e, t01=0x0144}
0x1730…1748 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x000e, t01=0x0158}
0x1748…1760 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x000e, t01=0x0170}
0x1760…1778 Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x000e, t01=0x0188}
0x1778…1796 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x000f, t01=0x0010}
0x1796…17a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x002e}
0x17a2…17b4 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x000f, t01=0x003a}
0x17b4…17e4 Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x000f, t01=0x004c}
0x17e4…17fa Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x000f, t01=0x007c}
0x17fa…180e Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x000f, t01=0x0092}
0x180e…181a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00a6}
0x181a…1840 Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x000f, t01=0x00b2}
0x1840…185e Head {h00=0x001a, h01=0x0050, text=» RF FD:048 GOTO FD:RC «, t00=0x000f, t01=0x00d8}
0x185e…1868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f6}
0x1868…1882 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000f, t01=0x0100}
0x1882…189c Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x000f, t01=0x011a}
0x189c…18b6 Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL WRITE *«, t00=0x000f, t01=0x0134}
0x18b6…18d0 Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x000f, t01=0x014e}
0x18d0…18ea Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000f, t01=0x0168}
0x18ea…18f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0182}
0x18f4…190c Head {h00=0x0014, h01=0x0050, text=»FD:020 CF A5,BIO«, t00=0x000f, t01=0x018c}
0x190c…1934 Head {h00=0x0024, h01=0x0050, text=» ORK A2,5 INSERT BIO BITS 13-15 «, t00=0x0010, t01=0x0014}
0x1934…1946 Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x0010, t01=0x003c}
0x1946…1954 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x004e}
0x1954…195e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005c}
0x195e…197c Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0010, t01=0x0066}
0x197c…199a Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0084}
0x199a…19b8 Head {h00=0x001a, h01=0x0050, text=»* WRITE DELETED DATA *«, t00=0x0010, t01=0x00a2}
0x19b8…19d6 Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x00c0}
0x19d6…19f4 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0010, t01=0x00de}
0x19f4…19fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fc}
0x19fe…1a16 Head {h00=0x0014, h01=0x0050, text=»FD:030 CF A5,BIO«, t00=0x0010, t01=0x0106}
0x1a16…1a28 Head {h00=0x000e, h01=0x0050, text=» ORK A2,6 «, t00=0x0010, t01=0x011e}
0x1a28…1a3a Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x0010, t01=0x0130}
0x1a3a…1a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0142}
0x1a44…1a5e Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0010, t01=0x014c}
0x1a5e…1a78 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0010, t01=0x0166}
0x1a78…1a92 Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x0010, t01=0x0180}
0x1a92…1aac Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0011, t01=0x000a}
0x1aac…1ac6 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0011, t01=0x0024}
0x1ac6…1ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003e}
0x1ad0…1aec Head {h00=0x0018, h01=0x0050, text=»FD:040 CF A5,BIO:RE «, t00=0x0011, t01=0x0048}
0x1aec…1b04 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0011, t01=0x0064}
0x1b04…1b1c Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x0011, t01=0x007c}
0x1b1c…1b34 Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x0011, t01=0x0094}
0x1b34…1b54 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:042 TOSS DISC «, t00=0x0011, t01=0x00ac}
0x1b54…1b60 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00cc}
0x1b60…1b72 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0011, t01=0x00d8}
0x1b72…1b86 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0011, t01=0x00ea}
0x1b86…1b9a Head {h00=0x0010, h01=0x0050, text=»FD:042 EQU *«, t00=0x0011, t01=0x00fe}
0x1b9a…1ba6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0112}
0x1ba6…1bce Head {h00=0x0024, h01=0x0050, text=»FD:045 CF A5,FD:REA PERFORM READ«, t00=0x0011, t01=0x011e}
0x1bce…1be6 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0011, t01=0x0146}
0x1be6…1bfe Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x0011, t01=0x015e}
0x1bfe…1c16 Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x0011, t01=0x0176}
0x1c16…1c34 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:047 NOT IBM «, t00=0x0011, t01=0x018e}
0x1c34…1c40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x001c}
0x1c40…1c52 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0012, t01=0x0028}
0x1c52…1c72 Head {h00=0x001c, h01=0x0050, text=» LD A7,ECBRL,A8 REQ LEN «, t00=0x0012, t01=0x003a}
0x1c72…1c9e Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS«, t00=0x0012, t01=0x005a}
0x1c9e…1cb2 Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0012, t01=0x0086}
0x1cb2…1cc6 Head {h00=0x0010, h01=0x0050, text=»FD:047 EQU *«, t00=0x0012, t01=0x009a}
0x1cc6…1cd2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00ae}
0x1cd2…1ce6 Head {h00=0x0010, h01=0x0050, text=»FD:048 EQU *«, t00=0x0012, t01=0x00ba}
0x1ce6…1cf8 Head {h00=0x000e, h01=0x0050, text=» ABL FD:RC«, t00=0x0012, t01=0x00ce}
0x1cf8…1d06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00e0}
0x1d06…1d1e Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x0012, t01=0x00ee}
0x1d1e…1d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0106}
0x1d28…1d3e Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0012, t01=0x0110}
0x1d3e…1d54 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0126}
0x1d54…1d6a Head {h00=0x0012, h01=0x0050, text=»* SEARCH KEY *«, t00=0x0012, t01=0x013c}
0x1d6a…1d80 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0152}
0x1d80…1d96 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0012, t01=0x0168}
0x1d96…1da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x017e}
0x1da0…1db4 Head {h00=0x0010, h01=0x0050, text=»FD:050 EQU *«, t00=0x0012, t01=0x0188}
0x1db4…1dda Head {h00=0x0022, h01=0x0050, text=» LD A4,10,A8 KEY AREA ADDRESS «, t00=0x0013, t01=0x000c}
0x1dda…1dfe Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A4 KEY AREA LENGTH «, t00=0x0013, t01=0x0032}
0x1dfe…1e10 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0013, t01=0x0056}
0x1e10…1e36 Head {h00=0x0022, h01=0x0050, text=» ABL(NP) END:10 ILLEGAL LENGTH«, t00=0x0013, t01=0x0068}
0x1e36…1e4a Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0013, t01=0x008e}
0x1e4a…1e70 Head {h00=0x0022, h01=0x0050, text=» ABL(P) END:10 ILLEGAL LENGTH «, t00=0x0013, t01=0x00a2}
0x1e70…1e82 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0013, t01=0x00c8}
0x1e82…1e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00da}
0x1e8c…1eba Head {h00=0x002a, h01=0x0050, text=»* IF ODD CHANGE TO EVEN NO OF BYTES «, t00=0x0013, t01=0x00e4}
0x1eba…1ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0112}
0x1ec4…1ed6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0013, t01=0x011c}
0x1ed6…1ee8 Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0013, t01=0x012e}
0x1ee8…1efa Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0013, t01=0x0140}
0x1efa…1f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0152}
0x1f04…1f16 Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0013, t01=0x015c}
0x1f16…1f2c Head {h00=0x0012, h01=0x0050, text=» ORK A2,7 BIO «, t00=0x0013, t01=0x016e}
0x1f2c…1f3e Head {h00=0x000e, h01=0x0050, text=» ADK A3,4 «, t00=0x0013, t01=0x0184}
0x1f3e…1f5c Head {h00=0x001a, h01=0x0050, text=» ADK A4,2 KEY ADDRESS «, t00=0x0014, t01=0x0008}
0x1f5c…1f7c Head {h00=0x001c, h01=0x0050, text=» CF A5,FD:WRI SEARCH KEY«, t00=0x0014, t01=0x0026}
0x1f7c…1f9a Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 RETURN CODE«, t00=0x0014, t01=0x0046}
0x1f9a…1fb0 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:048«, t00=0x0014, t01=0x0064}
0x1fb0…1fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x007a}
0x1fba…1fe2 Head {h00=0x0024, h01=0x0050, text=»* READ RECORD WITH KEY COMMAND «, t00=0x0014, t01=0x0084}
0x1fe2…1fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ac}
0x1fec…2000 Head {h00=0x0010, h01=0x0050, text=»FD:060 EQU *«, t00=0x0014, t01=0x00b6}
0x2000…2016 Head {h00=0x0012, h01=0x0050, text=» LDK A2,4 =2 «, t00=0x0014, t01=0x00ca}
0x2016…203a Head {h00=0x0020, h01=0x0050, text=» LD A3,4,A8 REQUESTED LENGTH«, t00=0x0014, t01=0x00e0}
0x203a…204e Head {h00=0x0010, h01=0x0050, text=» CWK A3,130 «, t00=0x0014, t01=0x0104}
0x204e…2074 Head {h00=0x0022, h01=0x0050, text=» ABL(NE) END:10 ILLEGAL LENGTH«, t00=0x0014, t01=0x0118}
0x2074…2096 Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0014, t01=0x013e}
0x2096…20a8 Head {h00=0x000e, h01=0x0050, text=» RB FD:045«, t00=0x0014, t01=0x0160}
0x20a8…20b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0172}
0x20b4…20be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x017e}
0x20be…20d6 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0014, t01=0x0188}
0x20d6…20ee Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0010}
0x20ee…2106 Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x0015, t01=0x0028}
0x2106…211e Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0040}
0x211e…2136 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0015, t01=0x0058}
0x2136…2140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0070}
0x2140…2154 Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0015, t01=0x007a}
0x2154…2174 Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x0015, t01=0x008e}
0x2174…218a Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0015, t01=0x00ae}
0x218a…21b0 Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0201 WRITE PROTECT? «, t00=0x0015, t01=0x00c4}
0x21b0…21c2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0015, t01=0x00ea}
0x21c2…21da Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0015, t01=0x00fc}
0x21da…2208 Head {h00=0x002a, h01=0x0050, text=» CF A5,VOLADR GET VOL NAME ADDR IN A2 «, t00=0x0015, t01=0x0114}
0x2208…2236 Head {h00=0x002a, h01=0x0050, text=» ST A2,ECBCW,A8 STORE IN CONTROL WORD «, t00=0x0015, t01=0x0142}
0x2236…2242 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0170}
0x2242…2254 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0015, t01=0x017c}
0x2254…227c Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTLAB,A6 LABEL INDICATOR«, t00=0x0015, t01=0x018e}
0x227c…2294 Head {h00=0x0014, h01=0x0050, text=» AN A3,DWTA3,A6 «, t00=0x0016, t01=0x0026}
0x2294…22b4 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:080 TOSS LABEL«, t00=0x0016, t01=0x003e}
0x22b4…22d8 Head {h00=0x0020, h01=0x0050, text=» ORK A1,/20 SET BIT 10 (IBM)«, t00=0x0016, t01=0x005e}
0x22d8…22ec Head {h00=0x0010, h01=0x0050, text=»FD:080 EQU *«, t00=0x0016, t01=0x0082}
0x22ec…22f8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0096}
0x22f8…2312 Head {h00=0x0016, h01=0x0050, text=»FD:090 ABL END:IO «, t00=0x0016, t01=0x00a2}
0x2312…2320 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00bc}
0x2320…232a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ca}
0x232a…233a Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x00d4}
0x233a…234a Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x00e4}
0x234a…235a Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0016, t01=0x00f4}
0x235a…236a Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0104}
0x236a…237a Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x0114}
0x237a…2384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0124}
0x2384…2396 Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0016, t01=0x012e}
0x2396…23ae Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0016, t01=0x0140}
0x23ae…23c4 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0016, t01=0x0158}
0x23c4…23d6 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0016, t01=0x016e}
0x23d6…23fa Head {h00=0x0020, h01=0x0050, text=» RF(NZ) LOA:80 NOT OPERABLE «, t00=0x0016, t01=0x0180}
0x23fa…2412 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0017, t01=0x0014}
0x2412…241c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002c}
0x241c…243e Head {h00=0x001e, h01=0x0050, text=»* CHECK IF TOSS/IBM LABEL«, t00=0x0017, t01=0x0036}
0x243e…2448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0058}
0x2448…245e Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0017, t01=0x0062}
0x245e…2472 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0017, t01=0x0078}
0x2472…2490 Head {h00=0x001a, h01=0x0050, text=» LDK A3,38 NO OF BYTES«, t00=0x0017, t01=0x008c}
0x2490…24a6 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0017, t01=0x00aa}
0x24a6…24ba Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0017, t01=0x00c0}
0x24ba…24cc Head {h00=0x000e, h01=0x0050, text=» ADK A4,34«, t00=0x0017, t01=0x00d4}
0x24cc…24e0 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0017, t01=0x00e6}
0x24e0…24f4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0017, t01=0x00fa}
0x24f4…2520 Head {h00=0x0028, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL PREASSUMED «, t00=0x0017, t01=0x010e}
0x2520…2532 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0017, t01=0x013a}
0x2532…2546 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0017, t01=0x014c}
0x2546…255a Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0017, t01=0x0160}
0x255a…257a Head {h00=0x001c, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL«, t00=0x0017, t01=0x0174}
0x257a…2586 (24, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0004}
0x2586…259a Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=1 «, t00=0x0018, t01=0x0010}
0x259a…25a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0024}
0x25a4…25c0 Head {h00=0x0018, h01=0x0050, text=»* READ VOLUME NAME «, t00=0x0018, t01=0x002e}
0x25c0…25ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004a}
0x25ca…25e2 Head {h00=0x0014, h01=0x0050, text=» LDK A3,8 LENGTH«, t00=0x0018, t01=0x0054}
0x25e2…25f8 Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0018, t01=0x006c}
0x25f8…2626 Head {h00=0x002a, h01=0x0050, text=» C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK«, t00=0x0018, t01=0x0082}
0x2626…2654 Head {h00=0x002a, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0018, t01=0x00b0}
0x2654…2666 Head {h00=0x000e, h01=0x0050, text=» RF LOA:15«, t00=0x0018, t01=0x00de}
0x2666…2672 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00f0}
0x2672…2684 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0018, t01=0x00fc}
0x2684…26a4 Head {h00=0x001c, h01=0x0050, text=»LOA:10 LDK A3,10 LENGTH «, t00=0x0018, t01=0x010e}
0x26a4…26bc Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0018, t01=0x012e}
0x26bc…26e6 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x0018, t01=0x0146}
0x26e6…2712 Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM DISC «, t00=0x0018, t01=0x0170}
0x2712…2738 Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 RETURN CODE BIT 10«, t00=0x0019, t01=0x000c}
0x2738…2752 Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0019, t01=0x0032}
0x2752…275e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x004c}
0x275e…2776 Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0019, t01=0x0058}
0x2776…278a Head {h00=0x0010, h01=0x0050, text=»LOA:15 EQU *«, t00=0x0019, t01=0x0070}
0x278a…27ae Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0019, t01=0x0084}
0x27ae…27c4 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0019, t01=0x00a8}
0x27c4…27d8 Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0019, t01=0x00be}
0x27d8…27ea Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0019, t01=0x00d2}
0x27ea…27f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00e4}
0x27f6…2808 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0019, t01=0x00f0}
0x2808…2820 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTRCW,A6«, t00=0x0019, t01=0x0102}
0x2820…2848 Head {h00=0x0024, h01=0x0050, text=» ANK A7,/20 CHECK TYPE OF LABEL «, t00=0x0019, t01=0x011a}
0x2848…2868 Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:30 TOSS LABEL«, t00=0x0019, t01=0x0142}
0x2868…2886 Head {h00=0x001a, h01=0x0050, text=» LDK A7,10 NO OF CHAR.«, t00=0x0019, t01=0x0162}
0x2886…289a Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0019, t01=0x0180}
0x289a…28ac (26, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x001a, t01=0x0004}
0x28ac…28c0 Head {h00=0x0010, h01=0x0050, text=»LOA:30 EQU *«, t00=0x001a, t01=0x0016}
0x28c0…28cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x002a}
0x28cc…28e4 Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x001a, t01=0x0036}
0x28e4…28ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x004e}
0x28ee…2912 Head {h00=0x0020, h01=0x0050, text=»* GET DWT VOL NAME ADDRESS «, t00=0x001a, t01=0x0058}
0x2912…291c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x007c}
0x291c…2940 Head {h00=0x0020, h01=0x0050, text=» CF A5,VOLADR ADDRESS TO A2 «, t00=0x001a, t01=0x0086}
0x2940…294a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00aa}
0x294a…2966 Head {h00=0x0018, h01=0x0050, text=»* STORE NAME IN DWT«, t00=0x001a, t01=0x00b4}
0x2966…2970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d0}
0x2970…2982 Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x001a, t01=0x00da}
0x2982…299e Head {h00=0x0018, h01=0x0050, text=»LOA:40 LD A4,BUF,A1 «, t00=0x001a, t01=0x00ec}
0x299e…29b0 Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x001a, t01=0x0108}
0x29b0…29c2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001a, t01=0x011a}
0x29c2…29d8 Head {h00=0x0012, h01=0x0050, text=» RF(Z) LOA:50 «, t00=0x001a, t01=0x012c}
0x29d8…29ea Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x001a, t01=0x0142}
0x29ea…29fc Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x001a, t01=0x0154}
0x29fc…2a0e Head {h00=0x000e, h01=0x0050, text=» RB LOA:40«, t00=0x001a, t01=0x0166}
0x2a0e…2a22 Head {h00=0x0010, h01=0x0050, text=»LOA:50 EQU *«, t00=0x001a, t01=0x0178}
0x2a22…2a2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x018c}
0x2a2e…2a40 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001b, t01=0x0008}
0x2a40…2a4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x001a}
0x2a4a…2a6c Head {h00=0x001e, h01=0x0050, text=»* DATA SET OPENING WANTED?«, t00=0x001b, t01=0x0024}
0x2a6c…2a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0046}
0x2a76…2a9c Head {h00=0x0022, h01=0x0050, text=» ANK A1,/2 A1: TOSS=6, IBM=8 «, t00=0x001b, t01=0x0050}
0x2a9c…2abe Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LOA:70 TOSS LABEL «, t00=0x001b, t01=0x0076}
0x2abe…2ade Head {h00=0x001c, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER «, t00=0x001b, t01=0x0098}
0x2ade…2af4 Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2600 «, t00=0x001b, t01=0x00b8}
0x2af4…2b14 Head {h00=0x001c, h01=0x0050, text=» RF(E) LOA:70 LOCK ORDER«, t00=0x001b, t01=0x00ce}
0x2b14…2b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ee}
0x2b1e…2b3c Head {h00=0x001a, h01=0x0050, text=»* READ DATA SET LABEL«, t00=0x001b, t01=0x00f8}
0x2b3c…2b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0116}
0x2b46…2b68 Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW,A8 SECTOR NO «, t00=0x001b, t01=0x0120}
0x2b68…2b7a Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x001b, t01=0x0142}
0x2b7a…2b9e Head {h00=0x0020, h01=0x0050, text=» ABL(N) FD:DIS REQUEST ERROR«, t00=0x001b, t01=0x0154}
0x2b9e…2bb0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x001b, t01=0x0178}
0x2bb0…2bd4 Head {h00=0x0020, h01=0x0050, text=» ABL(P) FD:DIS REQUEST ERROR«, t00=0x001b, t01=0x018a}
0x2bd4…2be6 Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x001c, t01=0x001e}
0x2be6…2bfc Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x001c, t01=0x0030}
0x2bfc…2c16 Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x001c, t01=0x0046}
0x2c16…2c2a Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x001c, t01=0x0060}
0x2c2a…2c40 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x001c, t01=0x0074}
0x2c40…2c5e Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 RETURN CODE«, t00=0x001c, t01=0x008a}
0x2c5e…2c82 Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x001c, t01=0x00a8}
0x2c82…2ca4 Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x001c, t01=0x00cc}
0x2ca4…2cda Head {h00=0x0032, h01=0x0050, text=» ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL«, t00=0x001c, t01=0x00ee}
0x2cda…2cee Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x001c, t01=0x0124}
0x2cee…2d02 Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x001c, t01=0x0138}
0x2d02…2d0e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x001c, t01=0x014c}
0x2d0e…2d3c Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBCW,A8 DATA SET LABEL SECTOR «, t00=0x001c, t01=0x0158}
0x2d3c…2d52 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x001c, t01=0x0186}
0x2d52…2d72 Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x001d, t01=0x000c}
0x2d72…2d92 Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x001d, t01=0x002c}
0x2d92…2dc4 Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x001d, t01=0x004c}
0x2dc4…2dda Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x001d, t01=0x007e}
0x2dda…2e02 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x001d, t01=0x0094}
0x2e02…2e18 Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x001d, t01=0x00bc}
0x2e18…2e2e Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x001d, t01=0x00d2}
0x2e2e…2e42 Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x001d, t01=0x00e8}
0x2e42…2e66 Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x001d, t01=0x00fc}
0x2e66…2e7c Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x001d, t01=0x0120}
0x2e7c…2e92 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x001d, t01=0x0136}
0x2e92…2eba Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x001d, t01=0x014c}
0x2eba…2ede Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x001d, t01=0x0174}
0x2ede…2ef4 Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x001e, t01=0x0008}
0x2ef4…2f12 Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x001e, t01=0x001e}
0x2f12…2f28 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x001e, t01=0x003c}
0x2f28…2f50 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x001e, t01=0x0052}
0x2f50…2f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x007a}
0x2f5a…2f6e Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x001e, t01=0x0084}
0x2f6e…2f7a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0098}
0x2f7a…2f92 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x001e, t01=0x00a4}
0x2f92…2fb8 Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x001e, t01=0x00bc}
0x2fb8…2fe2 Head {h00=0x0026, h01=0x0050, text=»LOA:75 LD A3,DWTRCW,A6 RETURN CODE«, t00=0x001e, t01=0x00e2}
0x2fe2…2ffa Head {h00=0x0014, h01=0x0050, text=»LOA:80 ABL FD:RC«, t00=0x001e, t01=0x010c}
0x2ffa…3012 Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x001e, t01=0x0124}
0x3012…301c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x013c}
0x301c…3036 Head {h00=0x0016, h01=0x0050, text=»* ERROR , UNLOCK «, t00=0x001e, t01=0x0146}
0x3036…3040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0160}
0x3040…3054 Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x001e, t01=0x016a}
0x3054…3066 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x001e, t01=0x017e}
0x3066…3088 Head {h00=0x001e, h01=0x0050, text=» ADK A5,DWTSB2 STACK BASE «, t00=0x001e, t01=0x0190}
0x3088…30a2 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x001f, t01=0x0022}
0x30a2…30b8 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x001f, t01=0x003c}
0x30b8…30ca Head {h00=0x000e, h01=0x0050, text=» RB LOA:75«, t00=0x001f, t01=0x0052}
0x30ca…30d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0064}
0x30d4…3112 Head {h00=0x003a, h01=0x0050, text=»*---------------------------------------------------- «, t00=0x001f, t01=0x006e}
0x3112…3130 Head {h00=0x001a, h01=0x0050, text=»* LD:RC SUBROUTINE «, t00=0x001f, t01=0x00ac}
0x3130…313a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ca}
0x313a…3158 Head {h00=0x001a, h01=0x0050, text=»LD:RC ORS A3,DWTRCW,A6«, t00=0x001f, t01=0x00d4}
0x3158…317a Head {h00=0x001e, h01=0x0050, text=» ANKL A3,/2007 FATAL ERROR«, t00=0x001f, t01=0x00f2}
0x317a…3190 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x001f, t01=0x0114}
0x3190…31ba Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x001f, t01=0x012a}
0x31ba…31ca Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x001f, t01=0x0154}
0x31ca…31d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0164}
0x31d6…31e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0170}
0x31e4…31ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017e}
0x31ee…3200 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001f, t01=0x0188}
0x3200…3212 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0020, t01=0x000a}
0x3212…3224 Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0020, t01=0x001c}
0x3224…3236 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0020, t01=0x002e}
0x3236…3248 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0020, t01=0x0040}
0x3248…3252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0052}
0x3252…3266 Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0020, t01=0x005c}
0x3266…3278 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0020, t01=0x0070}
0x3278…3282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0082}
0x3282…329e Head {h00=0x0018, h01=0x0050, text=»* DATA SET OPEN? «, t00=0x0020, t01=0x008c}
0x329e…32a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00a8}
0x32a8…32ca Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0020, t01=0x00b2}
0x32ca…32e0 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0020, t01=0x00d4}
0x32e0…32fe Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0020, t01=0x00ea}
0x32fe…333a Head {h00=0x0038, h01=0x0050, text=» ST A7,ECBCW,A8 STORE EOD-NO IN CONTROL WORD OF ECB «, t00=0x0020, t01=0x0108}
0x333a…3344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0144}
0x3344…3374 Head {h00=0x002c, h01=0x0050, text=»* READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0020, t01=0x014e}
0x3374…337e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x017e}
0x337e…33a2 Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0020, t01=0x0188}
0x33a2…33cc Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0021, t01=0x001c}
0x33cc…33f4 Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0021, t01=0x0046}
0x33f4…3400 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0021, t01=0x006e}
0x3400…340a Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0021, t01=0x007a}
0x340a…3432 Head {h00=0x0024, h01=0x0050, text=»*------------------------------ «, t00=0x0021, t01=0x0084}
0x3432…3472 Head {h00=0x003c, h01=0x0050, text=»* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0021, t01=0x00ac}
0x3472…347c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ec}
0x347c…349e Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0021, t01=0x00f6}
0x349e…34a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0118}
0x34a8…34c4 Head {h00=0x0018, h01=0x0050, text=»* DIVIDE EOD BY 26 «, t00=0x0021, t01=0x0122}
0x34c4…34ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x013e}
0x34ce…34e0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0021, t01=0x0148}
0x34e0…34f8 Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0021, t01=0x015a}
0x34f8…350e Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0021, t01=0x0172}
0x350e…3520 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0021, t01=0x0188}
0x3520…3532 Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0022, t01=0x000a}
0x3532…354a Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0022, t01=0x001c}
0x354a…3554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0034}
0x3554…3574 Head {h00=0x001c, h01=0x0050, text=»* A1 = BINARY TRACK NO«, t00=0x0022, t01=0x003e}
0x3574…35a2 Head {h00=0x002a, h01=0x0050, text=»* A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0022, t01=0x005e}
0x35a2…35ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x008c}
0x35ac…35d8 Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0022, t01=0x0096}
0x35d8…3604 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0022, t01=0x00c2}
0x3604…3616 Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0022, t01=0x00ee}
0x3616…3628 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0022, t01=0x0100}
0x3628…3644 Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0022, t01=0x0112}
0x3644…3666 Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0022, t01=0x012e}
0x3666…367e Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x0022, t01=0x0150}
0x367e…36aa Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x0022, t01=0x0168}
0x36aa…36bc (35, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0023, t01=0x0004}
0x36bc…36de Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x0023, t01=0x0016}
0x36de…36fc Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x0023, t01=0x0038}
0x36fc…3706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0056}
0x3706…3726 Head {h00=0x001c, h01=0x0050, text=»* WRITE DATA SET LABEL «, t00=0x0023, t01=0x0060}
0x3726…3730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0080}
0x3730…3754 Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0023, t01=0x008a}
0x3754…3774 Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x0023, t01=0x00ae}
0x3774…37a0 Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x0023, t01=0x00ce}
0x37a0…37c8 Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x0023, t01=0x00fa}
0x37c8…37de Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0023, t01=0x0122}
0x37de…3800 Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x0023, t01=0x0138}
0x3800…380a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x015a}
0x380a…381e Head {h00=0x0010, h01=0x0050, text=»* UNLOCK «, t00=0x0023, t01=0x0164}
0x381e…3828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0178}
0x3828…3834 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0182}
0x3834…3848 Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x0023, t01=0x018e}
0x3848…3862 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0024, t01=0x0012}
0x3862…3878 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0024, t01=0x002c}
0x3878…3892 Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0024, t01=0x0042}
0x3892…38a4 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0024, t01=0x005c}
0x38a4…38d4 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED«, t00=0x0024, t01=0x006e}
0x38d4…38f6 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 INDEX MASK«, t00=0x0024, t01=0x009e}
0x38f6…3926 Head {h00=0x002c, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x0024, t01=0x00c0}
0x3926…393a Head {h00=0x0010, h01=0x0050, text=»UNL:80 EQU *«, t00=0x0024, t01=0x00f0}
0x393a…3954 Head {h00=0x0016, h01=0x0050, text=» RB LOA:75 END:IO «, t00=0x0024, t01=0x0104}
0x3954…396c Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0024, t01=0x011e}
0x396c…3976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0136}
0x3976…399a Head {h00=0x0020, h01=0x0050, text=»* UNLOAD RETURN CODE CHECK«, t00=0x0024, t01=0x0140}
0x399a…39a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0164}
0x39a4…39c4 Head {h00=0x001c, h01=0x0050, text=»UNL:RC ORS A3,DWTRCW,A6 «, t00=0x0024, t01=0x016e}
0x39c4…39e4 Head {h00=0x001c, h01=0x0050, text=» ANK A3,/7 FATAL ERROR? «, t00=0x0024, t01=0x018e}
0x39e4…3a00 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) UNL:80 ENDIO«, t00=0x0025, t01=0x001e}
0x3a00…3a10 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0025, t01=0x003a}
0x3a10…3a1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x004a}
0x3a1c…3a2e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0025, t01=0x0056}
0x3a2e…3a3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0068}
0x3a3c…3a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0076}
0x3a46…3a62 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0025, t01=0x0080}
0x3a62…3a7e Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x0025, t01=0x009c}
0x3a7e…3a9a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0025, t01=0x00b8}
0x3a9a…3aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d4}
0x3aa4…3ab8 Head {h00=0x0010, h01=0x0050, text=»SQREAD EQU *«, t00=0x0025, t01=0x00de}
0x3ab8…3ae6 Head {h00=0x002a, h01=0x0050, text=» CF A5,DSOPCH GET EOD AND EOD ADDRESS «, t00=0x0025, t01=0x00f2}
0x3ae6…3afc Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0025, t01=0x0120}
0x3afc…3b22 Head {h00=0x0022, h01=0x0050, text=»SQR:05 ABL(Z) DISIOE NOT OPEN «, t00=0x0025, t01=0x0136}
0x3b22…3b54 Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x0025, t01=0x015c}
0x3b54…3b6c Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x0025, t01=0x018e}
0x3b6c…3b84 Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0026, t01=0x0016}
0x3b84…3bae Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBCW,A8 STORE CRN+1 IN ECB«, t00=0x0026, t01=0x002e}
0x3bae…3bc0 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0026, t01=0x0058}
0x3bc0…3be2 Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x0026, t01=0x006a}
0x3be2…3bf8 Head {h00=0x0012, h01=0x0050, text=» CF A5,BIO:RE «, t00=0x0026, t01=0x008c}
0x3bf8…3c1c Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0026, t01=0x00a2}
0x3c1c…3c52 Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0026, t01=0x00c6}
0x3c52…3c7e Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0026, t01=0x00fc}
0x3c7e…3ca6 Head {h00=0x0024, h01=0x0050, text=» LD A7,ECBRL,A8 REQUESTED LENGTH«, t00=0x0026, t01=0x0128}
0x3ca6…3cce Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0026, t01=0x0150}
0x3cce…3ce4 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0026, t01=0x0178}
0x3ce4…3cf8 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0026, t01=0x018e}
0x3cf8…3d16 Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x0027, t01=0x0012}
0x3d16…3d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0030}
0x3d20…3d38 Head {h00=0x0014, h01=0x0050, text=»* END OF DATA«, t00=0x0027, t01=0x003a}
0x3d38…3d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0052}
0x3d42…3d6a Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x0027, t01=0x005c}
0x3d6a…3d7c Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0027, t01=0x0084}
0x3d7c…3d8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0096}
0x3d8a…3d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a4}
0x3d94…3db0 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0027, t01=0x00ae}
0x3db0…3dcc Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x0027, t01=0x00ca}
0x3dcc…3de8 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0027, t01=0x00e6}
0x3de8…3df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0102}
0x3df2…3e06 Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x0027, t01=0x010c}
0x3e06…3e24 Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x0027, t01=0x0120}
0x3e24…3e3e Head {h00=0x0016, h01=0x0050, text=» LDR A7,A7 EOD-NO «, t00=0x0027, t01=0x013e}
0x3e3e…3e5c Head {h00=0x001a, h01=0x0050, text=» RB(Z) SQR:05 NOT OPEN«, t00=0x0027, t01=0x0158}
0x3e5c…3e66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0176}
0x3e66…3e88 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF END OF EXTENT«, t00=0x0027, t01=0x0180}
0x3e88…3e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0012}
0x3e92…3ea8 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x0028, t01=0x001c}
0x3ea8…3ed2 Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x0028, t01=0x0032}
0x3ed2…3f00 Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 STORE EOD IN ECB C. W.«, t00=0x0028, t01=0x005c}
0x3f00…3f14 Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x0028, t01=0x008a}
0x3f14…3f32 Head {h00=0x001a, h01=0x0050, text=» RF(G) SQW:20 YES,EOE «, t00=0x0028, t01=0x009e}
0x3f32…3f44 Head {h00=0x000e, h01=0x0050, text=» CF A5,BIO«, t00=0x0028, t01=0x00bc}
0x3f44…3f58 Head {h00=0x0010, h01=0x0050, text=» LDK A7,128 «, t00=0x0028, t01=0x00ce}
0x3f58…3f88 Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x0028, t01=0x00e2}
0x3f88…3fa6 Head {h00=0x001a, h01=0x0050, text=» ORK A2,5 PHYS. WRITE «, t00=0x0028, t01=0x0112}
0x3fa6…3fbc Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0028, t01=0x0130}
0x3fbc…3fd2 Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0028, t01=0x0146}
0x3fd2…3ff6 Head {h00=0x0020, h01=0x0050, text=»SQW:10 LDR A1,A3 RETURN CODE«, t00=0x0028, t01=0x015c}
0x3ff6…4008 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/1«, t00=0x0028, t01=0x0180}
0x4008…402c (41, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SQW:15 NOT OPERABLE «, t00=0x0029, t01=0x0004}
0x402c…405a Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x0029, t01=0x0028}
0x405a…4072 Head {h00=0x0014, h01=0x0050, text=»SQW:15 RF FD:RC «, t00=0x0029, t01=0x0056}
0x4072…407c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x006e}
0x407c…4086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0078}
0x4086…409e Head {h00=0x0014, h01=0x0050, text=»* END OF EXTENT«, t00=0x0029, t01=0x0082}
0x409e…40c6 Head {h00=0x0024, h01=0x0050, text=»SQW:20 LDKL A1,/400 RETURN CODE «, t00=0x0029, t01=0x009a}
0x40c6…40d8 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0029, t01=0x00c2}
0x40d8…40e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00d4}
0x40e6…40f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e2}
0x40f0…4102 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x00ec}
0x4102…4114 Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x0029, t01=0x00fe}
0x4114…4126 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x0110}
0x4126…4130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0122}
0x4130…4144 Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x0029, t01=0x012c}
0x4144…415a Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0029, t01=0x0140}
0x415a…4170 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0029, t01=0x0156}
0x4170…4198 Head {h00=0x0024, h01=0x0050, text=» RB(Z) SQR:05 DATA SET NOT OPEN «, t00=0x0029, t01=0x016c}
0x4198…41bc (42, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x002a, t01=0x0004}
0x41bc…41d2 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x002a, t01=0x0028}
0x41d2…41e6 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x002a, t01=0x003e}
0x41e6…41fe Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x002a, t01=0x0052}
0x41fe…421a Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x002a, t01=0x006a}
0x421a…4230 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x002a, t01=0x0086}
0x4230…4244 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x002a, t01=0x009c}
0x4244…425e Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x002a, t01=0x00b0}
0x425e…427e Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x002a, t01=0x00ca}
0x427e…429c Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x002a, t01=0x00ea}
0x429c…42ae Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x002a, t01=0x0108}
0x42ae…42ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x011a}
0x42ba…42c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0126}
0x42c8…42d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0134}
0x42d2…42ec Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x002a, t01=0x013e}
0x42ec…4306 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x002a, t01=0x0158}
0x4306…4320 Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x002a, t01=0x0172}
0x4320…433a Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x002a, t01=0x018c}
0x433a…4354 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x002b, t01=0x0016}
0x4354…435e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0030}
0x435e…4368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x003a}
0x4368…438c Head {h00=0x0020, h01=0x0050, text=»* INPUT: A2 BIO CONTENTS «, t00=0x002b, t01=0x0044}
0x438c…43c0 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x002b, t01=0x0068}
0x43c0…43e6 Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x002b, t01=0x009c}
0x43e6…43f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00c2}
0x43f0…4404 Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x002b, t01=0x00cc}
0x4404…4418 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002b, t01=0x00e0}
0x4418…443a Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x002b, t01=0x00f4}
0x443a…4446 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0116}
0x4446…445a Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x002b, t01=0x0122}
0x445a…4486 Head {h00=0x0028, h01=0x0050, text=» CM DWTRW,A6 INDICATOR TO WRITE MODE«, t00=0x002b, t01=0x0136}
0x4486…4492 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0162}
0x4492…44a4 Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x002b, t01=0x016e}
0x44a4…44ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0180}
0x44ae…44c2 Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x002b, t01=0x018a}
0x44c2…44d6 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x002c, t01=0x000e}
0x44d6…44e8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x002c, t01=0x0022}
0x44e8…450a Head {h00=0x001e, h01=0x0050, text=» ST A1,DWTRW,A6 READ MODE «, t00=0x002c, t01=0x0034}
0x450a…4516 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0056}
0x4516…452a Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002c, t01=0x0062}
0x452a…454c Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS READ«, t00=0x002c, t01=0x0076}
0x454c…4558 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0098}
0x4558…456c Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x002c, t01=0x00a4}
0x456c…4580 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002c, t01=0x00b8}
0x4580…45a6 Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x002c, t01=0x00cc}
0x45a6…45b8 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x002c, t01=0x00f2}
0x45b8…45dc Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x002c, t01=0x0104}
0x45dc…4604 Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x002c, t01=0x0128}
0x4604…4610 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0150}
0x4610…4624 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x002c, t01=0x015c}
0x4624…462e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0170}
0x462e…4660 Head {h00=0x002e, h01=0x0050, text=»* PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x002c, t01=0x017a}
0x4660…466a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001c}
0x466a…4682 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x002d, t01=0x0026}
0x4682…4694 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x002d, t01=0x003e}
0x4694…46ba Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x002d, t01=0x0050}
0x46ba…46c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0076}
0x46c6…46da Head {h00=0x0010, h01=0x0050, text=»FD:820 EQU *«, t00=0x002d, t01=0x0082}
0x46da…4704 Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x002d, t01=0x0096}
0x4704…472c Head {h00=0x0024, h01=0x0050, text=»FD:CIO CIO A2,1,CUADR CIO-START «, t00=0x002d, t01=0x00c0}
0x472c…4758 Head {h00=0x0028, h01=0x0050, text=» RF(3) FD:840 DEVICE ADDRESS UNKNOWN«, t00=0x002d, t01=0x00e8}
0x4758…476a Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x002d, t01=0x0114}
0x476a…478e Head {h00=0x0020, h01=0x0050, text=»FD:840 LDK A1,1 NOT OPERABLE«, t00=0x002d, t01=0x0126}
0x478e…47a0 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x002d, t01=0x014a}
0x47a0…47ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x015c}
0x47ae…47b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x016a}
0x47b8…47e6 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002d, t01=0x0174}
0x47e6…4814 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x002e, t01=0x0012}
0x4814…4842 Head {h00=0x002a, h01=0x0050, text=»* FD:RC - STORE EFF LEN, END:IO *«, t00=0x002e, t01=0x0040}
0x4842…4870 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x002e, t01=0x006e}
0x4870…489e Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002e, t01=0x009c}
0x489e…48a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ca}
0x48a8…48ca Head {h00=0x001e, h01=0x0050, text=»* INPUT: A3 RETURN CODE«, t00=0x002e, t01=0x00d4}
0x48ca…48d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f6}
0x48d4…48e8 Head {h00=0x0010, h01=0x0050, text=»FD:RC EQU * «, t00=0x002e, t01=0x0100}
0x48e8…48fa Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x002e, t01=0x0114}
0x48fa…4904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0126}
0x4904…492a Head {h00=0x0022, h01=0x0050, text=»* PUT EFFECTIVE LENGTH IN ECB«, t00=0x002e, t01=0x0130}
0x492a…4934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0156}
0x4934…4956 Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBRL,A8 REQ LENGTH«, t00=0x002e, t01=0x0160}
0x4956…4978 Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBEL,A8 EFF LENGTH«, t00=0x002e, t01=0x0182}
0x4978…4982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0014}
0x4982…4994 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x001e}
0x4994…49a6 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x002f, t01=0x0030}
0x49a6…49b8 Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x002f, t01=0x0042}
0x49b8…49ca Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x002f, t01=0x0054}
0x49ca…49dc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x0066}
0x49dc…49e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0078}
0x49e6…49fa Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x002f, t01=0x0082}
0x49fa…4a10 Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x002f, t01=0x0096}
0x4a10…4a28 Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x002f, t01=0x00ac}
0x4a28…4a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00c4}
0x4a32…4a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ce}
0x4a3c…4a62 Head {h00=0x0022, h01=0x0050, text=»* ENTRY FROM RECOVERY ROUTINE«, t00=0x002f, t01=0x00d8}
0x4a62…4a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00fe}
0x4a6c…4aa0 Head {h00=0x0030, h01=0x0050, text=»END:05 CM DWTECB,A6 RESET ECB ADDRESS IN DWT«, t00=0x002f, t01=0x0108}
0x4aa0…4aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x013c}
0x4aaa…4ac4 Head {h00=0x0016, h01=0x0050, text=»* ILLEGAL LENGTH «, t00=0x002f, t01=0x0146}
0x4ac4…4ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0160}
0x4ace…4af6 Head {h00=0x0024, h01=0x0050, text=»END:10 LDKL A1,/8008 RETURN CODE«, t00=0x002f, t01=0x016a}
0x4af6…4b08 (48, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0030, t01=0x0004}
0x4b08…4b16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0016}
0x4b16…4b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0024}
0x4b20…4b3c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0030, t01=0x002e}
0x4b3c…4b58 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0030, t01=0x004a}
0x4b58…4b74 Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0030, t01=0x0066}
0x4b74…4b90 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0030, t01=0x0082}
0x4b90…4bac Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0030, t01=0x009e}
0x4bac…4bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ba}
0x4bb6…4bc6 Head {h00=0x000c, h01=0x0050, text=»FDON INH«, t00=0x0030, t01=0x00c4}
0x4bc6…4bdc Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0030, t01=0x00d4}
0x4bdc…4c00 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0030, t01=0x00ea}
0x4c00…4c12 Head {h00=0x000e, h01=0x0050, text=» IFT INI=1«, t00=0x0030, t01=0x010e}
0x4c12…4c28 Head {h00=0x0012, h01=0x0050, text=» LD A1,INIFLG «, t00=0x0030, t01=0x0120}
0x4c28…4c46 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FDON05 POWER UP«, t00=0x0030, t01=0x0136}
0x4c46…4c5a Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0030, t01=0x0154}
0x4c5a…4c72 Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTST2,A6«, t00=0x0030, t01=0x0168}
0x4c72…4c9a Head {h00=0x0024, h01=0x0050, text=» CM DWTLC,A6 INDICATE NOT LOCKED«, t00=0x0030, t01=0x0180}
0x4c9a…4cc0 Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0031, t01=0x0018}
0x4cc0…4ccc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x003e}
0x4ccc…4ce2 Head {h00=0x0012, h01=0x0050, text=» IFT IBM+INI=2«, t00=0x0031, t01=0x004a}
0x4ce2…4cf4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0031, t01=0x0060}
0x4cf4…4d0a Head {h00=0x0012, h01=0x0050, text=» ADK A1,DWTEOD«, t00=0x0031, t01=0x0072}
0x4d0a…4d1c Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x0031, t01=0x0088}
0x4d1c…4d30 Head {h00=0x0010, h01=0x0050, text=»FDON02 EQU *«, t00=0x0031, t01=0x009a}
0x4d30…4d4e Head {h00=0x001a, h01=0x0050, text=» CMR A1 CLOSE DATA SET«, t00=0x0031, t01=0x00ae}
0x4d4e…4d60 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0031, t01=0x00cc}
0x4d60…4d72 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0031, t01=0x00de}
0x4d72…4d88 Head {h00=0x0012, h01=0x0050, text=» RB(P) FDON02 «, t00=0x0031, t01=0x00f0}
0x4d88…4d94 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0106}
0x4d94…4da8 Head {h00=0x0010, h01=0x0050, text=»FDON05 EQU *«, t00=0x0031, t01=0x0112}
0x4da8…4dca Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0031, t01=0x0126}
0x4dca…4de0 Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB2«, t00=0x0031, t01=0x0148}
0x4de0…4dfe Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0031, t01=0x015e}
0x4dfe…4e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x017c}
0x4e08…4e3c Head {h00=0x0030, h01=0x0050, text=»* SAVE DWTST TO DWTST2 IF NOT ALREADY DONE.«, t00=0x0031, t01=0x0186}
0x4e3c…4e5a Head {h00=0x001a, h01=0x0050, text=»* DWTST IS SET BUSY«, t00=0x0032, t01=0x002a}
0x4e5a…4e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0048}
0x4e64…4e7c Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST2,A6«, t00=0x0032, t01=0x0052}
0x4e7c…4e8e Head {h00=0x000e, h01=0x0050, text=» CWK A2,-1«, t00=0x0032, t01=0x006a}
0x4e8e…4eb2 Head {h00=0x0020, h01=0x0050, text=» RF(NE) FDON08 ALREADY SAVED«, t00=0x0032, t01=0x007c}
0x4eb2…4eca Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0032, t01=0x00a0}
0x4eca…4ee2 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST2,A6«, t00=0x0032, t01=0x00b8}
0x4ee2…4f06 Head {h00=0x0020, h01=0x0050, text=»FDON08 CM DWTST,A6 SET BUSY «, t00=0x0032, t01=0x00d0}
0x4f06…4f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00f4}
0x4f10…4f26 Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0032, t01=0x00fe}
0x4f26…4f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0114}
0x4f30…4f48 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0032, t01=0x011e}
0x4f48…4f6a Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0032, t01=0x0136}
0x4f6a…4f80 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0032, t01=0x0158}
0x4f80…4fa6 Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0032, t01=0x016e}
0x4fa6…4fb8 (51, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0033, t01=0x0004}
0x4fb8…4fd4 Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x0033, t01=0x0016}
0x4fd4…4fe6 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0033, t01=0x0032}
0x4fe6…5000 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x0033, t01=0x0044}
0x5000…5016 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0033, t01=0x005e}
0x5016…5030 Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x0033, t01=0x0074}
0x5030…5042 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0033, t01=0x008e}
0x5042…504c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00a0}
0x504c…5068 Head {h00=0x0018, h01=0x0050, text=»* TIME OUT ROUTINE«, t00=0x0033, t01=0x00aa}
0x5068…5072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c6}
0x5072…508a Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x0033, t01=0x00d0}
0x508a…509e Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0033, t01=0x00e8}
0x509e…50b4 Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB2«, t00=0x0033, t01=0x00fc}
0x50b4…50d2 Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0033, t01=0x0112}
0x50d2…50dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0130}
0x50dc…50f2 Head {h00=0x0012, h01=0x0050, text=»* LOCK DOORS «, t00=0x0033, t01=0x013a}
0x50f2…50fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0150}
0x50fc…510e Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0033, t01=0x015a}
0x510e…5122 Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0033, t01=0x016c}
0x5122…5148 Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x0033, t01=0x0180}
0x5148…515a Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x0034, t01=0x0016}
0x515a…517a Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x0034, t01=0x0028}
0x517a…5196 Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0034, t01=0x0048}
0x5196…51a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0064}
0x51a0…51c4 Head {h00=0x0020, h01=0x0050, text=»* PUT DRIVE NO IN CIO INSTR«, t00=0x0034, t01=0x006e}
0x51c4…51ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0092}
0x51ce…51f0 Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0034, t01=0x009c}
0x51f0…521e Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0034, t01=0x00be}
0x521e…5236 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0034, t01=0x00ec}
0x5236…524c Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0034, t01=0x0104}
0x524c…526e Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0034, t01=0x011a}
0x526e…5280 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0034, t01=0x013c}
0x5280…5298 Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0034, t01=0x014e}
0x5298…52c0 Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0034, t01=0x0166}
0x52c0…52d4 Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x0034, t01=0x018e}
0x52d4…52e6 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0035, t01=0x0012}
0x52e6…52fc Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x0035, t01=0x0024}
0x52fc…5312 Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x0035, t01=0x003a}
0x5312…531c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0050}
0x531c…5334 Head {h00=0x0014, h01=0x0050, text=»* ANY REQUEST? «, t00=0x0035, t01=0x005a}
0x5334…533e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0072}
0x533e…5348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x007c}
0x5348…537a Head {h00=0x002e, h01=0x0050, text=»* RESTORE STATUS SAVED IN DWST2 TO DWTST.«, t00=0x0035, t01=0x0086}
0x537a…5396 Head {h00=0x0018, h01=0x0050, text=»* SET DWTST2 TO -1«, t00=0x0035, t01=0x00b8}
0x5396…53bc Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST2,A6 SAVED STATUS «, t00=0x0035, t01=0x00d4}
0x53bc…53ea Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTST,A6 PUT IN CUURENT STATUS «, t00=0x0035, t01=0x00fa}
0x53ea…53fe Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0035, t01=0x0128}
0x53fe…542a Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTST2,A6 INDICATE NOT SAVED «, t00=0x0035, t01=0x013c}
0x542a…544e Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x0035, t01=0x0168}
0x544e…5462 Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x0035, t01=0x018c}
0x5462…547a Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0036, t01=0x0010}
0x547a…54ae Head {h00=0x0030, h01=0x0050, text=» RB(N) END:05 NO REQUEST, RETURN VIA TENDIO «, t00=0x0036, t01=0x0028}
0x54ae…54b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x005c}
0x54b8…54d0 Head {h00=0x0014, h01=0x0050, text=»* RETRY REQUEST«, t00=0x0036, t01=0x0066}
0x54d0…54da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x007e}
0x54da…54fe Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0036, t01=0x0088}
0x54fe…5516 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0036, t01=0x00ac}
0x5516…5530 Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0036, t01=0x00c4}
0x5530…5554 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0036, t01=0x00de}
0x5554…5570 Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x0036, t01=0x0102}
0x5570…557e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x011e}
0x557e…5588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x012c}
0x5588…55a6 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0036, t01=0x0136}
0x55a6…55c4 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x0154}
0x55c4…55e2 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x0036, t01=0x0172}
0x55e2…5600 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x0190}
0x5600…561e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0037, t01=0x001e}
0x561e…5628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x003c}
0x5628…563a Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x0037, t01=0x0046}
0x563a…5662 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0037, t01=0x0058}
0x5662…5676 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0037, t01=0x0080}
0x5676…568a Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0037, t01=0x0094}
0x568a…569e Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0037, t01=0x00a8}
0x569e…56b2 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x0037, t01=0x00bc}
0x56b2…56ca Head {h00=0x0014, h01=0x0050, text=» LDKL A2,DWFD01 «, t00=0x0037, t01=0x00d0}
0x56ca…56fc Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTUB,A2 POINTER AT WORD IN BUFFER «, t00=0x0037, t01=0x00e8}
0x56fc…572a Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTRW,A2 READ / WRITE INDICATOR«, t00=0x0037, t01=0x011a}
0x572a…5744 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH010 READ«, t00=0x0037, t01=0x0148}
0x5744…5762 Head {h00=0x001a, h01=0x0050, text=» LCR A3,A1 FIRST CHAR.«, t00=0x0037, t01=0x0162}
0x5762…5784 Head {h00=0x001e, h01=0x0050, text=» ECR A2,A3 MOV TO BITS 0-7«, t00=0x0037, t01=0x0180}
0x5784…57ac Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 UPDATE BUFFER POINTER «, t00=0x0038, t01=0x0012}
0x57ac…57cc Head {h00=0x001c, h01=0x0050, text=» LCR A2,A1 SECOND CHAR. «, t00=0x0038, t01=0x003a}
0x57cc…57ea Head {h00=0x001a, h01=0x0050, text=» OTR A2,0,CUADR WRITE «, t00=0x0038, t01=0x005a}
0x57ea…5808 Head {h00=0x001a, h01=0x0050, text=» RF(A) IH020 ACCEPTED «, t00=0x0038, t01=0x0078}
0x5808…5826 Head {h00=0x001a, h01=0x0050, text=» RF IH040 NOT ACCEPTED«, t00=0x0038, t01=0x0096}
0x5826…5848 Head {h00=0x001e, h01=0x0050, text=»IH010 INR A2,0,CUADR READ «, t00=0x0038, t01=0x00b4}
0x5848…586a Head {h00=0x001e, h01=0x0050, text=» RF(NA) IH040 NOT ACCEPTED«, t00=0x0038, t01=0x00d6}
0x586a…587c Head {h00=0x000e, h01=0x0050, text=» ECR A3,A2«, t00=0x0038, t01=0x00f8}
0x587c…58a6 Head {h00=0x0026, h01=0x0050, text=» SCR A3,A1 FIRST CHAR. INTO BUFFER«, t00=0x0038, t01=0x010a}
0x58a6…58ce Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 UPDATE BUFFER POINTER «, t00=0x0038, t01=0x0134}
0x58ce…58fa Head {h00=0x0028, h01=0x0050, text=» SCR A2,A1 SECOND CHAR. INTO BUFFER «, t00=0x0038, t01=0x015c}
0x58fa…5922 Head {h00=0x0024, h01=0x0050, text=»IH020 LDKL A2,DWFD01 DWT-ADDRESS«, t00=0x0038, t01=0x0188}
0x5922…5934 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0039, t01=0x0020}
0x5934…5962 Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTUB,A2 POINTER AT NEXT CHAR. «, t00=0x0039, t01=0x0032}
0x5962…597a Head {h00=0x0014, h01=0x0050, text=» CW A1,DWTUBE,A2«, t00=0x0039, t01=0x0060}
0x597a…599e Head {h00=0x0020, h01=0x0050, text=» RF(NE) IH030 NOT LAST WORD «, t00=0x0039, t01=0x0078}
0x599e…59be Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0039, t01=0x009c}
0x59be…59d2 Head {h00=0x0010, h01=0x0050, text=»IH030 EQU * «, t00=0x0039, t01=0x00bc}
0x59d2…59e6 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x0039, t01=0x00d0}
0x59e6…59fa Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0039, t01=0x00e4}
0x59fa…5a0e Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0039, t01=0x00f8}
0x5a0e…5a1e Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0039, t01=0x010c}
0x5a1e…5a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x011c}
0x5a28…5a4c Head {h00=0x0020, h01=0x0050, text=»* SAVE A4-A8 FOR DISPATCHER «, t00=0x0039, t01=0x0126}
0x5a4c…5a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x014a}
0x5a56…5a6a Head {h00=0x0010, h01=0x0050, text=»IH040 EQU * «, t00=0x0039, t01=0x0154}
0x5a6a…5a7e Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x0039, t01=0x0168}
0x5a7e…5a92 Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x0039, t01=0x017c}
0x5a92…5aa6 Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x0039, t01=0x0190}
0x5aa6…5aba Head {h00=0x0010, h01=0x0050, text=» STR A7,A15 «, t00=0x003a, t01=0x0014}
0x5aba…5ace Head {h00=0x0010, h01=0x0050, text=» STR A8,A15 «, t00=0x003a, t01=0x0028}
0x5ace…5ada Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x003c}
0x5ada…5aee Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x003a, t01=0x0048}
0x5aee…5b04 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x003a, t01=0x005c}
0x5b04…5b10 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0072}
0x5b10…5b2c Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x003a, t01=0x007e}
0x5b2c…5b50 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x003a, t01=0x009a}
0x5b50…5b74 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x003a, t01=0x00be}
0x5b74…5b9a Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x003a, t01=0x00e2}
0x5b9a…5bac Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x003a, t01=0x0108}
0x5bac…5bd0 Head {h00=0x0020, h01=0x0050, text=» RF(N) FDRE READY INTERRUPT «, t00=0x003a, t01=0x011a}
0x5bd0…5be2 Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x003a, t01=0x013e}
0x5be2…5c02 Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY? «, t00=0x003a, t01=0x0150}
0x5c02…5c1a Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x003a, t01=0x0170}
0x5c1a…5c40 Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x003a, t01=0x0188}
0x5c40…5c52 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x003b, t01=0x001e}
0x5c52…5c68 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0405«, t00=0x003b, t01=0x0030}
0x5c68…5c8c Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x003b, t01=0x0046}
0x5c8c…5c9e Head {h00=0x000e, h01=0x0050, text=» LDK A1,/4«, t00=0x003b, t01=0x006a}
0x5c9e…5cba Head {h00=0x0018, h01=0x0050, text=» ORR A3,A1 CRC ERROR«, t00=0x003b, t01=0x007c}
0x5cba…5cce Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x003b, t01=0x0098}
0x5cce…5cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ac}
0x5cd8…5d02 Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x003b, t01=0x00b6}
0x5d02…5d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00e0}
0x5d0c…5d22 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x003b, t01=0x00ea}
0x5d22…5d36 Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x003b, t01=0x0100}
0x5d36…5d48 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x003b, t01=0x0114}
0x5d48…5d6e Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x003b, t01=0x0126}
0x5d6e…5d80 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003b, t01=0x014c}
0x5d80…5d9c Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x003b, t01=0x015e}
0x5d9c…5db8 Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x003b, t01=0x017a}
0x5db8…5dca Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x003c, t01=0x0008}
0x5dca…5de2 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x003c, t01=0x001a}
0x5de2…5df4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003c, t01=0x0032}
0x5df4…5e10 Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x003c, t01=0x0044}
0x5e10…5e2a Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x003c, t01=0x0060}
0x5e2a…5e3c Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x003c, t01=0x007a}
0x5e3c…5e48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x008c}
0x5e48…5e5a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003c, t01=0x0098}
0x5e5a…5e74 Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x003c, t01=0x00aa}
0x5e74…5e8e Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x003c, t01=0x00c4}
0x5e8e…5ea0 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x003c, t01=0x00de}
0x5ea0…5eba Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x003c, t01=0x00f0}
0x5eba…5ed4 Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x003c, t01=0x010a}
0x5ed4…5ee6 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x003c, t01=0x0124}
0x5ee6…5efa Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x003c, t01=0x0136}
0x5efa…5f0a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003c, t01=0x014a}
0x5f0a…5f18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x015a}
0x5f18…5f22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0168}
0x5f22…5f3e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003c, t01=0x0172}
0x5f3e…5f5a Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x003c, t01=0x018e}
0x5f5a…5f76 Head {h00=0x0018, h01=0x0050, text=»* READY INTERRUPT *«, t00=0x003d, t01=0x001a}
0x5f76…5f92 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x003d, t01=0x0036}
0x5f92…5fae Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003d, t01=0x0052}
0x5fae…5fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x006e}
0x5fb8…5fca Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x003d, t01=0x0078}
0x5fca…5fe2 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x003d, t01=0x008a}
0x5fe2…6012 Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE «, t00=0x003d, t01=0x00a2}
0x6012…6028 Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB2«, t00=0x003d, t01=0x00d2}
0x6028…6046 Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x003d, t01=0x00e8}
0x6046…6058 Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x003d, t01=0x0106}
0x6058…6066 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0118}
0x6066…6070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0126}
0x6070…60a4 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x003d, t01=0x0130}
0x60a4…60d8 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x003d, t01=0x0164}
0x60d8…610c Head {h00=0x0030, h01=0x0050, text=»* S U B R O U T I N E S * «, t00=0x003e, t01=0x0008}
0x610c…6140 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x003e, t01=0x003c}
0x6140…6174 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x003e, t01=0x0070}
0x6174…617e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a4}
0x617e…618e Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x003e, t01=0x00ae}
0x618e…619e Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x003e, t01=0x00be}
0x619e…61ae Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x003e, t01=0x00ce}
0x61ae…61be Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x003e, t01=0x00de}
0x61be…61ce Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x003e, t01=0x00ee}
0x61ce…61d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00fe}
0x61d8…61e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0108}
0x61e2…6204 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A8 ECB ADDRESS«, t00=0x003e, t01=0x0112}
0x6204…620e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0134}
0x620e…6250 Head {h00=0x003e, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x003e, t01=0x013e}
0x6250…6284 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x003e, t01=0x0180}
0x6284…62aa Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x003f, t01=0x0024}
0x62aa…62b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x004a}
0x62b4…62c6 Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x003f, t01=0x0054}
0x62c6…62dc Head {h00=0x0012, h01=0x0050, text=» LDK A4,0 FLAG«, t00=0x003f, t01=0x0066}
0x62dc…62ee Head {h00=0x000e, h01=0x0050, text=» RF BIO010«, t00=0x003f, t01=0x007c}
0x62ee…6306 Head {h00=0x0014, h01=0x0050, text=»BIO:RE LDK A4,1 «, t00=0x003f, t01=0x008e}
0x6306…631a Head {h00=0x0010, h01=0x0050, text=»BIO010 EQU *«, t00=0x003f, t01=0x00a6}
0x631a…633a Head {h00=0x001c, h01=0x0050, text=» LD A3,ECBRL,A8 REQ LEN «, t00=0x003f, t01=0x00ba}
0x633a…635e Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOERR ILLEGAL LENGTH«, t00=0x003f, t01=0x00da}
0x635e…6376 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x003f, t01=0x00fe}
0x6376…638e Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTLAB,A6«, t00=0x003f, t01=0x0116}
0x638e…63a6 Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTA3,A6 «, t00=0x003f, t01=0x012e}
0x63a6…63c6 Head {h00=0x001c, h01=0x0050, text=» RF(Z) BIO020 TOSS DISC «, t00=0x003f, t01=0x0146}
0x63c6…63d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0166}
0x63d2…63e4 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003f, t01=0x0172}
0x63e4…63fa Head {h00=0x0012, h01=0x0050, text=» LDK A7,IBMLEN«, t00=0x003f, t01=0x0184}
0x63fa…640c Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0040, t01=0x000a}
0x640c…6418 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x001c}
0x6418…6430 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0040, t01=0x0028}
0x6430…6442 Head {h00=0x000e, h01=0x0050, text=» RF BIO030«, t00=0x0040, t01=0x0040}
0x6442…644e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0052}
0x644e…6462 Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=1 «, t00=0x0040, t01=0x005e}
0x6462…6480 Head {h00=0x001a, h01=0x0050, text=»BIO020 LDKL A7,TOSLEN «, t00=0x0040, t01=0x0072}
0x6480…6492 Head {h00=0x000e, h01=0x0050, text=» LDK A2,3 «, t00=0x0040, t01=0x0090}
0x6492…64a6 Head {h00=0x0010, h01=0x0050, text=»BIO030 EQU *«, t00=0x0040, t01=0x00a2}
0x64a6…64b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x00b6}
0x64b2…64ca Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0040, t01=0x00c2}
0x64ca…64dc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x0040, t01=0x00da}
0x64dc…64f8 Head {h00=0x0018, h01=0x0050, text=» RF(Z) BIO060 WRITE «, t00=0x0040, t01=0x00ec}
0x64f8…650a Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0040, t01=0x0108}
0x650a…6524 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A3 REQ LEN«, t00=0x0040, t01=0x011a}
0x6524…654e Head {h00=0x0026, h01=0x0050, text=» CWR A3,A7 REQ LENGTH WITHIN RANGE«, t00=0x0040, t01=0x0134}
0x654e…6566 Head {h00=0x0014, h01=0x0050, text=» RF(G) BIOERR NO«, t00=0x0040, t01=0x015e}
0x6566…6580 Head {h00=0x0016, h01=0x0050, text=»BIO040 SUK A1,128 «, t00=0x0040, t01=0x0176}
0x6580…6596 Head {h00=0x0012, h01=0x0050, text=» RF(NP) BIO100«, t00=0x0040, t01=0x0190}
0x6596…65c0 Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT NO OF SECTORS «, t00=0x0041, t01=0x0016}
0x65c0…65d2 Head {h00=0x000e, h01=0x0050, text=» RB BIO040«, t00=0x0041, t01=0x0040}
0x65d2…65dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0052}
0x65dc…65fe Head {h00=0x001e, h01=0x0050, text=»* WRITE, CHECK REQ LENGTH«, t00=0x0041, t01=0x005c}
0x65fe…6608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x007e}
0x6608…6620 Head {h00=0x0014, h01=0x0050, text=»BIO060 CWR A3,A7«, t00=0x0041, t01=0x0088}
0x6620…6646 Head {h00=0x0022, h01=0x0050, text=» RF(NE) BIOERR ILLEGAL REQ LEN«, t00=0x0041, t01=0x00a0}
0x6646…6652 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00c6}
0x6652…666a Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x0041, t01=0x00d2}
0x666a…6674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00ea}
0x6674…66b6 Head {h00=0x003e, h01=0x0050, text=»* FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH«, t00=0x0041, t01=0x00f4}
0x66b6…66c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0136}
0x66c0…66de Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x0041, t01=0x0140}
0x66de…6700 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 NO OF SECTORS-1 «, t00=0x0041, t01=0x015e}
0x6700…6728 Head {h00=0x0024, h01=0x0050, text=»BIO015 LDR A4,A4 READ OR WRITE? «, t00=0x0041, t01=0x0180}
0x6728…6744 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) BIO035 READ!«, t00=0x0042, t01=0x0018}
0x6744…6758 Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0042, t01=0x0034}
0x6758…677e Head {h00=0x0022, h01=0x0050, text=» RF(Z) BIO100 REQ LEN ACCEPTED«, t00=0x0042, t01=0x0048}
0x677e…6790 Head {h00=0x000e, h01=0x0050, text=» RF BIO045«, t00=0x0042, t01=0x006e}
0x6790…679a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0080}
0x679a…67b4 Head {h00=0x0016, h01=0x0050, text=»BIO035 SUK A1,128 «, t00=0x0042, t01=0x008a}
0x67b4…67de Head {h00=0x0026, h01=0x0050, text=» RF(NP) BIO100 REQ LENGTH ACCEPTED«, t00=0x0042, t01=0x00a4}
0x67de…67f6 Head {h00=0x0014, h01=0x0050, text=»BIO045 ADK A2,1 «, t00=0x0042, t01=0x00ce}
0x67f6…6808 Head {h00=0x000e, h01=0x0050, text=» CWK A2,3 «, t00=0x0042, t01=0x00e6}
0x6808…681e Head {h00=0x0012, h01=0x0050, text=» RB(NG) BIO015«, t00=0x0042, t01=0x00f8}
0x681e…6846 Head {h00=0x0024, h01=0x0050, text=» RF BIOERR REQ LEN OUTSIDE RANGE«, t00=0x0042, t01=0x010e}
0x6846…6852 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0136}
0x6852…685c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0142}
0x685c…6896 Head {h00=0x0036, h01=0x0050, text=»BIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1«, t00=0x0042, t01=0x014c}
0x6896…68a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0186}
0x68a0…68d6 Head {h00=0x0032, h01=0x0050, text=»* CHECK SECTOR NO FROM CONTROL WORD OF ECB IS«, t00=0x0042, t01=0x0190}
0x68d6…6902 Head {h00=0x0028, h01=0x0050, text=»* WITHIN RANGE, PUT IT IN POS 2-12 «, t00=0x0043, t01=0x0036}
0x6902…690c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0062}
0x690c…692e Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A8 SECTOR NO «, t00=0x0043, t01=0x006c}
0x692e…6952 Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOER2 OUTSIDE RANGE «, t00=0x0043, t01=0x008e}
0x6952…696a Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0043, t01=0x00b2}
0x696a…697c Head {h00=0x000e, h01=0x0050, text=» ANK A7,/A«, t00=0x0043, t01=0x00ca}
0x697c…699a Head {h00=0x001a, h01=0x0050, text=» RF(Z) BIO110 IBM DISC«, t00=0x0043, t01=0x00dc}
0x699a…69a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x00fa}
0x69a6…69ba Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=1 «, t00=0x0043, t01=0x0106}
0x69ba…69ce Head {h00=0x0010, h01=0x0050, text=» CWK A1,499 «, t00=0x0043, t01=0x011a}
0x69ce…69f0 Head {h00=0x001e, h01=0x0050, text=» RF(G) BIOER2 OUT OF RANGE«, t00=0x0043, t01=0x012e}
0x69f0…6a20 Head {h00=0x002c, h01=0x0050, text=» SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR «, t00=0x0043, t01=0x0150}
0x6a20…6a2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x0180}
0x6a2c…6a44 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0043, t01=0x018c}
0x6a44…6a56 Head {h00=0x000e, h01=0x0050, text=» RF BIO120«, t00=0x0044, t01=0x0014}
0x6a56…6a62 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0026}
0x6a62…6a74 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0044, t01=0x0032}
0x6a74…6a8e Head {h00=0x0016, h01=0x0050, text=»BIO110 CWK A1,1923«, t00=0x0044, t01=0x0044}
0x6a8e…6ab0 Head {h00=0x001e, h01=0x0050, text=» RF(P) BIOER2 OUT OF RANGE«, t00=0x0044, t01=0x005e}
0x6ab0…6abc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0080}
0x6abc…6ad4 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x0044, t01=0x008c}
0x6ad4…6b00 Head {h00=0x0028, h01=0x0050, text=» CWK A1,2001 SECTOR NO OUT OF RANGE «, t00=0x0044, t01=0x00a4}
0x6b00…6b1a Head {h00=0x0016, h01=0x0050, text=» RF(G) BIOER2 YES!«, t00=0x0044, t01=0x00d0}
0x6b1a…6b26 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x00ea}
0x6b26…6b3a Head {h00=0x0010, h01=0x0050, text=»BIO120 EQU *«, t00=0x0044, t01=0x00f6}
0x6b3a…6b4c Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x0044, t01=0x010a}
0x6b4c…6b5e Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x0044, t01=0x011c}
0x6b5e…6b84 Head {h00=0x0022, h01=0x0050, text=» LD A4,ECBBA,A8 BUFFER ADDRESS«, t00=0x0044, t01=0x012e}
0x6b84…6ba2 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x0044, t01=0x0154}
0x6ba2…6bb4 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0044, t01=0x0172}
0x6bb4…6bdc Head {h00=0x0024, h01=0x0050, text=» RF(NZ) BIOERR REQ LEN. NOT EVEN«, t00=0x0044, t01=0x0184}
0x6bdc…6bec Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0045, t01=0x001c}
0x6bec…6bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x002c}
0x6bf6…6c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0036}
0x6c00…6c36 Head {h00=0x0032, h01=0x0050, text=»* ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO«, t00=0x0045, t01=0x0040}
0x6c36…6c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0076}
0x6c40…6c5a Head {h00=0x0016, h01=0x0050, text=»BIOERR ABL END:10 «, t00=0x0045, t01=0x0080}
0x6c5a…6c78 Head {h00=0x001a, h01=0x0050, text=»* ILLEGAL SECTOR NO «, t00=0x0045, t01=0x009a}
0x6c78…6c92 Head {h00=0x0016, h01=0x0050, text=»BIOER2 ABL FD:DIS «, t00=0x0045, t01=0x00b8}
0x6c92…6c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00d2}
0x6c9c…6cae Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0045, t01=0x00dc}
0x6cae…6cc0 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0045, t01=0x00ee}
0x6cc0…6cd2 Head {h00=0x000e, h01=0x0050, text=»* FDIX * «, t00=0x0045, t01=0x0100}
0x6cd2…6ce4 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0045, t01=0x0112}
0x6ce4…6cf6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0045, t01=0x0124}
0x6cf6…6d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0136}
0x6d00…6d1a Head {h00=0x0016, h01=0x0050, text=»* INPUT: A2 X «, t00=0x0045, t01=0x0140}
0x6d1a…6d24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x015a}
0x6d24…6d46 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A3 2 POWER(X)«, t00=0x0045, t01=0x0164}
0x6d46…6d50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0186}
0x6d50…6d66 Head {h00=0x0012, h01=0x0050, text=»FDIX LDK A3,1 «, t00=0x0045, t01=0x0190}
0x6d66…6d78 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0046, t01=0x0016}
0x6d78…6d8c Head {h00=0x0010, h01=0x0050, text=»FDIX10 EQU *«, t00=0x0046, t01=0x0028}
0x6d8c…6da2 Head {h00=0x0012, h01=0x0050, text=» RF(Z) FDIX20 «, t00=0x0046, t01=0x003c}
0x6da2…6db4 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0046, t01=0x0052}
0x6db4…6dc6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0046, t01=0x0064}
0x6dc6…6dd8 Head {h00=0x000e, h01=0x0050, text=» RB FDIX10«, t00=0x0046, t01=0x0076}
0x6dd8…6dee Head {h00=0x0012, h01=0x0050, text=»FDIX20 RTN A5 «, t00=0x0046, t01=0x0088}
0x6dee…6dfc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x009e}
0x6dfc…6e14 Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0046, t01=0x00ac}
0x6e14…6e2e Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0046, t01=0x00c4}
0x6e2e…6e48 Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x0046, t01=0x00de}
0x6e48…6e62 Head {h00=0x0016, h01=0x0050, text=»* VOLADR *«, t00=0x0046, t01=0x00f8}
0x6e62…6e7c Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x0046, t01=0x0112}
0x6e7c…6e96 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0046, t01=0x012c}
0x6e96…6ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0146}
0x6ea0…6ec2 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0046, t01=0x0150}
0x6ec2…6ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0172}
0x6ecc…6ef6 Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A2 VOLUME NAME ADDRESS«, t00=0x0046, t01=0x017c}
0x6ef6…6f12 Head {h00=0x0018, h01=0x0050, text=»* A3 ZERO «, t00=0x0047, t01=0x0016}
0x6f12…6f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0032}
0x6f1c…6f38 Head {h00=0x0018, h01=0x0050, text=»VOLADR LDK A2,DWTVO0«, t00=0x0047, t01=0x003c}
0x6f38…6f4a Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0047, t01=0x0058}
0x6f4a…6f6a Head {h00=0x001c, h01=0x0050, text=» LC A3,DWTOR,A6 DRIVE NO«, t00=0x0047, t01=0x006a}
0x6f6a…6f7c Head {h00=0x000e, h01=0x0050, text=» ANK A3,/3«, t00=0x0047, t01=0x008a}
0x6f7c…6f90 Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x0047, t01=0x009c}
0x6f90…6fa6 Head {h00=0x0012, h01=0x0050, text=» RF(Z) VOLA20 «, t00=0x0047, t01=0x00b0}
0x6fa6…6fc6 Head {h00=0x001c, h01=0x0050, text=» ADK A2,6 UPDATE ADDRESS«, t00=0x0047, t01=0x00c6}
0x6fc6…6fd8 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0047, t01=0x00e6}
0x6fd8…6fea Head {h00=0x000e, h01=0x0050, text=» RB VOLA10«, t00=0x0047, t01=0x00f8}
0x6fea…7000 Head {h00=0x0012, h01=0x0050, text=»VOLA20 RTN A5 «, t00=0x0047, t01=0x010a}
0x7000…700c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0120}
0x700c…7014 Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x012c}
0x7014…7026 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0047, t01=0x0134}
0x7026…7034 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0146}
0x7034…703e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0154}
0x703e…7050 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0047, t01=0x015e}
0x7050…7062 Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x0047, t01=0x0170}
0x7062…7074 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0047, t01=0x0182}
0x7074…707e (72, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0004}
0x707e…70bc Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x0048, t01=0x000e}
0x70bc…70dc Head {h00=0x001c, h01=0x0050, text=»* ASCII CODE«, t00=0x0048, t01=0x004c}
0x70dc…710e Head {h00=0x002e, h01=0x0050, text=»* INPUT STRING ADDRESS IS BUF «, t00=0x0048, t01=0x006c}
0x710e…7138 Head {h00=0x0026, h01=0x0050, text=»* INPUT: A7 NO OF CHARACTERS«, t00=0x0048, t01=0x009e}
0x7138…7168 Head {h00=0x002c, h01=0x0050, text=»* A4 OUTPUT STRING ADDRESS«, t00=0x0048, t01=0x00c8}
0x7168…718a Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x0048, t01=0x00f8}
0x718a…71aa Head {h00=0x001c, h01=0x0050, text=»* A4 CHANGED«, t00=0x0048, t01=0x011a}
0x71aa…71cc Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x0048, t01=0x013a}
0x71cc…71d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x015c}
0x71d6…71ea Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0048, t01=0x0166}
0x71ea…71f6 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0048, t01=0x017a}
0x71f6…7208 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0048, t01=0x0186}
0x7208…721a Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0049, t01=0x0008}
0x721a…7232 Head {h00=0x0014, h01=0x0050, text=»ASC:10 SUK A7,1 «, t00=0x0049, t01=0x001a}
0x7232…7248 Head {h00=0x0012, h01=0x0050, text=» RF(N) ASC:20 «, t00=0x0049, t01=0x0032}
0x7248…725a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0049, t01=0x0048}
0x725a…7280 Head {h00=0x0022, h01=0x0050, text=» LC A1,BUF,A7 GET EBCDIC CHAR «, t00=0x0049, t01=0x005a}
0x7280…72ac Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0049, t01=0x0080}
0x72ac…72e0 Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0049, t01=0x00ac}
0x72e0…72f2 Head {h00=0x000e, h01=0x0050, text=» RB ASC:10«, t00=0x0049, t01=0x00e0}
0x72f2…7306 Head {h00=0x0010, h01=0x0050, text=»ASC:20 EQU *«, t00=0x0049, t01=0x00f2}
0x7306…732c Head {h00=0x0022, h01=0x0050, text=» RF EBC:90 SET INH AND RETURN «, t00=0x0049, t01=0x0106}
0x732c…733a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x012c}
0x733a…7344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x013a}
0x7344…7356 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x0144}
0x7356…7368 Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0049, t01=0x0156}
0x7368…737a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x0168}
0x737a…7384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x017a}
0x7384…73c4 Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0049, t01=0x0184}
0x73c4…73e6 Head {h00=0x001e, h01=0x0050, text=»* EBCDIC CODE «, t00=0x004a, t01=0x0034}
0x73e6…7422 Head {h00=0x0038, h01=0x0050, text=»* OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x004a, t01=0x0056}
0x7422…742c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0092}
0x742c…7456 Head {h00=0x0026, h01=0x0050, text=»* INPUT: A7 NO OF CHARACTERS «, t00=0x004a, t01=0x009c}
0x7456…7484 Head {h00=0x002a, h01=0x0050, text=»* A4 INPUT STRING ADDRESS«, t00=0x004a, t01=0x00c6}
0x7484…748e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00f4}
0x748e…74b0 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x004a, t01=0x00fe}
0x74b0…74e0 Head {h00=0x002c, h01=0x0050, text=»* A4 DRIVER BUFFER ADDRESS«, t00=0x004a, t01=0x0120}
0x74e0…7502 Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x004a, t01=0x0150}
0x7502…7516 Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x004a, t01=0x0172}
0x7516…7522 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x004a, t01=0x0186}
0x7522…7534 (75, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x004b, t01=0x0004}
0x7534…7546 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x004b, t01=0x0016}
0x7546…755e Head {h00=0x0014, h01=0x0050, text=»EBC:10 SUK A7,1 «, t00=0x004b, t01=0x0028}
0x755e…7574 Head {h00=0x0012, h01=0x0050, text=» RF(N) EBC:80 «, t00=0x004b, t01=0x0040}
0x7574…7586 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004b, t01=0x0056}
0x7586…75a8 Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x004b, t01=0x0068}
0x75a8…75c2 Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x004b, t01=0x008a}
0x75c2…75d8 Head {h00=0x0012, h01=0x0050, text=» SC A1,BUF,A7 «, t00=0x004b, t01=0x00a4}
0x75d8…75ea Head {h00=0x000e, h01=0x0050, text=» RB EBC:10«, t00=0x004b, t01=0x00ba}
0x75ea…75fe Head {h00=0x0010, h01=0x0050, text=»EBC:80 EQU *«, t00=0x004b, t01=0x00cc}
0x75fe…7612 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x004b, t01=0x00e0}
0x7612…7626 Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x004b, t01=0x00f4}
0x7626…763c Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x004b, t01=0x0108}
0x763c…764c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x011e}
0x764c…765a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x012e}
0x765a…7664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x013c}
0x7664…7676 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x0146}
0x7676…7688 Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x004b, t01=0x0158}
0x7688…769a Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x004b, t01=0x016a}
0x769a…76a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x017c}
0x76a4…76e8 Head {h00=0x0040, h01=0x0050, text=»* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x004b, t01=0x0186}
0x76e8…7718 Head {h00=0x002c, h01=0x0050, text=»* LOGICAL SECTOR (BINARY). «, t00=0x004c, t01=0x003a}
0x7718…7758 Head {h00=0x003c, h01=0x0050, text=»* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE)«, t00=0x004c, t01=0x006a}
0x7758…7786 Head {h00=0x002a, h01=0x0050, text=»* TT = TRACK, SS=SECTOR «, t00=0x004c, t01=0x00aa}
0x7786…7790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00d8}
0x7790…77c0 Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO PHYS. SECTOR«, t00=0x004c, t01=0x00e2}
0x77c0…77ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0112}
0x77ca…77f4 Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A3 BINARY SECTOR NO «, t00=0x004c, t01=0x011c}
0x77f4…7816 Head {h00=0x001e, h01=0x0050, text=»* A4 UNCHANGED «, t00=0x004c, t01=0x0146}
0x7816…7820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0168}
0x7820…7834 Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x004c, t01=0x0172}
0x7834…784a Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x004c, t01=0x0186}
0x784a…7862 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x004d, t01=0x000c}
0x7862…7874 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x004d, t01=0x0024}
0x7874…787e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0036}
0x787e…7898 Head {h00=0x0016, h01=0x0050, text=»* MULTIPLY BY 26 «, t00=0x004d, t01=0x0040}
0x7898…78a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x005a}
0x78a2…78b8 Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x004d, t01=0x0064}
0x78b8…78ca Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x004d, t01=0x007a}
0x78ca…78dc Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x004d, t01=0x008c}
0x78dc…78f2 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x004d, t01=0x009e}
0x78f2…7904 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x004d, t01=0x00b4}
0x7904…791a Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x004d, t01=0x00c6}
0x791a…7930 Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x004d, t01=0x00dc}
0x7930…7942 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x004d, t01=0x00f2}
0x7942…7954 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x004d, t01=0x0104}
0x7954…795e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0116}
0x795e…7978 Head {h00=0x0016, h01=0x0050, text=»* CHECK SECTOR NO«, t00=0x004d, t01=0x0120}
0x7978…7982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x013a}
0x7982…7994 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x004d, t01=0x0144}
0x7994…79a6 Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x004d, t01=0x0156}
0x79a6…79bc Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x004d, t01=0x0168}
0x79bc…79da Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD?«, t00=0x004d, t01=0x017e}
0x79da…79f4 Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x004e, t01=0x000c}
0x79f4…7a0a Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x004e, t01=0x0026}
0x7a0a…7a1c Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x004e, t01=0x003c}
0x7a1c…7a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x004e}
0x7a26…7a4c Head {h00=0x0022, h01=0x0050, text=»* CHECK EOD LESS/EQUAL 74001 «, t00=0x004e, t01=0x0058}
0x7a4c…7a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x007e}
0x7a56…7a72 Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x004e, t01=0x0088}
0x7a72…7a86 Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x004e, t01=0x00a4}
0x7a86…7aac Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x004e, t01=0x00b8}
0x7aac…7ad2 Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x004e, t01=0x00de}
0x7ad2…7ae2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004e, t01=0x0104}
0x7ae2…7aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0114}
0x7aec…7b02 Head {h00=0x0012, h01=0x0050, text=»* FATAL ERROR«, t00=0x004e, t01=0x011e}
0x7b02…7b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0134}
0x7b0c…7b38 Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x004e, t01=0x013e}
0x7b38…7b60 Head {h00=0x0024, h01=0x0050, text=»LOG:10 LDKL A1,/2000 RETURN CODE«, t00=0x004e, t01=0x016a}
0x7b60…7b7a (79, 0, 400) Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x004f, t01=0x0004}
0x7b7a…7b90 Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x004f, t01=0x001e}
0x7b90…7bb2 Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x004f, t01=0x0034}
0x7bb2…7bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0056}
0x7bbc…7bce Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004f, t01=0x0060}
0x7bce…7be0 Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x004f, t01=0x0072}
0x7be0…7bf2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004f, t01=0x0084}
0x7bf2…7bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0096}
0x7bfc…7c3e Head {h00=0x003e, h01=0x0050, text=»* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x004f, t01=0x00a0}
0x7c3e…7c86 Head {h00=0x0044, h01=0x0050, text=»* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x004f, t01=0x00e2}
0x7c86…7cb6 Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO FIRST DIGIT«, t00=0x004f, t01=0x012a}
0x7cb6…7cd4 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A1 BINARY«, t00=0x004f, t01=0x015a}
0x7cd4…7cf4 Head {h00=0x001c, h01=0x0050, text=»* WORKING REG: A2,A7 «, t00=0x004f, t01=0x0178}
0x7cf4…7cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0008}
0x7cfe…7d16 Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x0050, t01=0x0012}
0x7d16…7d28 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0050, t01=0x002a}
0x7d28…7d46 Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x0050, t01=0x003c}
0x7d46…7d5a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0050, t01=0x005a}
0x7d5a…7d6e Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0050, t01=0x006e}
0x7d6e…7d84 Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x0050, t01=0x0082}
0x7d84…7d96 Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0050, t01=0x0098}
0x7d96…7db6 Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x0050, t01=0x00aa}
0x7db6…7dc8 Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0050, t01=0x00ca}
0x7dc8…7dda Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0050, t01=0x00dc}
0x7dda…7df0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0050, t01=0x00ee}
0x7df0…7e1a Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x0050, t01=0x0104}
0x7e1a…7e32 Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0050, t01=0x012e}
0x7e32…7e52 Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0050, t01=0x0146}
0x7e52…7e74 Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0050, t01=0x0166}
0x7e74…7e86 Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0050, t01=0x0188}
0x7e86…7e9e Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0051, t01=0x000a}
0x7e9e…7eae Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0051, t01=0x0022}
0x7eae…7eba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0032}
0x7eba…7ec8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x003e}
0x7ec8…7ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x004c}
0x7ed2…7ee4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x0056}
0x7ee4…7ef6 Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x0051, t01=0x0068}
0x7ef6…7f08 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x007a}
0x7f08…7f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x008c}
0x7f12…7f48 Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x0051, t01=0x0096}
0x7f48…7f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00cc}
0x7f52…7f8e Head {h00=0x0038, h01=0x0050, text=»* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x0051, t01=0x00d6}
0x7f8e…7f98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0112}
0x7f98…7fb6 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A3 CHANGED«, t00=0x0051, t01=0x011c}
0x7fb6…7fd4 Head {h00=0x001a, h01=0x0050, text=»* A4 CHANGED«, t00=0x0051, t01=0x013a}
0x7fd4…7fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0158}
0x7fde…7ffa Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x0051, t01=0x0162}
0x7ffa…8010 Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x0051, t01=0x017e}
0x8010…8022 (82, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0052, t01=0x0004}
0x8022…8038 Head {h00=0x0012, h01=0x0050, text=» ORS A3,FD:CIO«, t00=0x0052, t01=0x0016}
0x8038…8048 Head {h00=0x000c, h01=0x0050, text=» RTN A5«, t00=0x0052, t01=0x002c}
0x8048…805a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0052, t01=0x003c}
0x805a…8068 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x004e}
0x8068…8072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x005c}
0x8072…8084 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0052, t01=0x0066}
0x8084…8096 Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x0052, t01=0x0078}
0x8096…80a8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0052, t01=0x008a}
0x80a8…80b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x009c}
0x80b2…80f0 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x0052, t01=0x00a6}
0x80f0…8124 Head {h00=0x0030, h01=0x0050, text=»* EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x0052, t01=0x00e4}
0x8124…812e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0118}
0x812e…8152 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A7 BINARY NUMBER«, t00=0x0052, t01=0x0122}
0x8152…815c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0146}
0x815c…818e Head {h00=0x002e, h01=0x0050, text=»* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS«, t00=0x0052, t01=0x0150}
0x818e…81ac Head {h00=0x001a, h01=0x0050, text=»* A7 CHANGED«, t00=0x0052, t01=0x0182}
0x81ac…81b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0010}
0x81b6…81ce Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x0053, t01=0x001a}
0x81ce…81e6 Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x0053, t01=0x0032}
0x81e6…81fc Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x0053, t01=0x004a}
0x81fc…820e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0053, t01=0x0060}
0x820e…8220 Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x0053, t01=0x0072}
0x8220…8238 Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x0053, t01=0x0084}
0x8238…824a Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x0053, t01=0x009c}
0x824a…8278 Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x0053, t01=0x00ae}
0x8278…829c Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x0053, t01=0x00dc}
0x829c…82ac Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0053, t01=0x0100}
0x82ac…82ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x0110}
0x82ba…82cc Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0053, t01=0x011e}
0x82cc…82de Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x0053, t01=0x0130}
0x82de…82f0 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0053, t01=0x0142}
0x82f0…82fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0154}
0x82fa…8332 Head {h00=0x0034, h01=0x0050, text=»* FUNCTION: PREPARE FOR READING DATA SET LABEL«, t00=0x0053, t01=0x015e}
0x8332…833c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0008}
0x833c…835e Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0054, t01=0x0012}
0x835e…8368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0034}
0x8368…83a6 Head {h00=0x003a, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x0054, t01=0x003e}
0x83a6…83c2 Head {h00=0x0018, h01=0x0050, text=»* A3 128 «, t00=0x0054, t01=0x007c}
0x83c2…83ee Head {h00=0x0028, h01=0x0050, text=»* A4 DRIVER BUFFER ADDRESS«, t00=0x0054, t01=0x0098}
0x83ee…8410 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0054, t01=0x00c4}
0x8410…8432 Head {h00=0x001e, h01=0x0050, text=»* A1 IS CHANGED «, t00=0x0054, t01=0x00e6}
0x8432…843c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0108}
0x843c…8458 Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x0054, t01=0x0112}
0x8458…846c Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0054, t01=0x012e}
0x846c…8480 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x0054, t01=0x0142}
0x8480…8492 Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0054, t01=0x0156}
0x8492…84a6 Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x0054, t01=0x0168}
0x84a6…84ba Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0054, t01=0x017c}
0x84ba…84ca Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0054, t01=0x0190}
0x84ca…84d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0010}
0x84d8…84e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x001e}
0x84e2…84f4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x0028}
0x84f4…8506 Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x0055, t01=0x003a}
0x8506…8518 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x004c}
0x8518…8522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x005e}
0x8522…855c Head {h00=0x0036, h01=0x0050, text=»* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x0055, t01=0x0068}
0x855c…8566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00a2}
0x8566…8588 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0055, t01=0x00ac}
0x8588…8592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00ce}
0x8592…85b4 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A2 EOD ADDRESS«, t00=0x0055, t01=0x00d8}
0x85b4…85e4 Head {h00=0x002c, h01=0x0050, text=»* A7 EOD-NO (0=NOT OPEN) «, t00=0x0055, t01=0x00fa}
0x85e4…8602 Head {h00=0x001a, h01=0x0050, text=»* A1 CHANGED«, t00=0x0055, t01=0x012a}
0x8602…861e Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x0055, t01=0x0148}
0x861e…8632 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0055, t01=0x0164}
0x8632…864c Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x0055, t01=0x0178}
0x864c…865c (86, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0056, t01=0x0004}
0x865c…866a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0014}
0x866a…8674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0022}
0x8674…8686 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0056, t01=0x002c}
0x8686…8698 Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x0056, t01=0x003e}
0x8698…86aa Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0056, t01=0x0050}
0x86aa…86b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0062}
0x86b4…86ea Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x0056, t01=0x006c}
0x86ea…8724 Head {h00=0x0036, h01=0x0050, text=»* TYPE OF DATA FOR COORESSPONDING DRIVE«, t00=0x0056, t01=0x00a2}
0x8724…872e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00dc}
0x872e…8750 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A1 DWT OFFSET «, t00=0x0056, t01=0x00e6}
0x8750…8772 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0056, t01=0x0108}
0x8772…877c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x012a}
0x877c…87a2 Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A2 ADDRESS TO DATA«, t00=0x0056, t01=0x0134}
0x87a2…87c4 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0056, t01=0x015a}
0x87c4…87ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x017c}
0x87ce…87f4 Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x0056, t01=0x0186}
0x87f4…8806 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0057, t01=0x001c}
0x8806…8818 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0057, t01=0x002e}
0x8818…882a Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0057, t01=0x0040}
0x882a…883c Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x0057, t01=0x0052}
0x883c…884c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0057, t01=0x0064}
0x884c…885a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0074}
0x885a…8864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0082}
0x8864…8876 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0057, t01=0x008c}
0x8876…8888 Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x0057, t01=0x009e}
0x8888…889a Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0057, t01=0x00b0}
0x889a…88a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00c2}
0x88a4…88e2 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x0057, t01=0x00cc}
0x88e2…8900 Head {h00=0x001a, h01=0x0050, text=»* DRIVE NO «, t00=0x0057, t01=0x010a}
0x8900…890a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0128}
0x890a…8936 Head {h00=0x0028, h01=0x0050, text=»* INPUT: A1 OFFSET TO DWT AREA «, t00=0x0057, t01=0x0132}
0x8936…8968 Head {h00=0x002e, h01=0x0050, text=»* A3 WORD TO BE STORED IN DWT «, t00=0x0057, t01=0x015e}
0x8968…898c Head {h00=0x0020, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0057, t01=0x0190}
0x898c…8996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0024}
0x8996…89b8 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 UNCHANGED«, t00=0x0058, t01=0x002e}
0x89b8…89ec Head {h00=0x0030, h01=0x0050, text=»* A2 ADDRESS TO WORD IN DWT AREA«, t00=0x0058, t01=0x0050}
0x89ec…8a0e Head {h00=0x001e, h01=0x0050, text=»* A3 UNCHANGED«, t00=0x0058, t01=0x0084}
0x8a0e…8a30 Head {h00=0x001e, h01=0x0050, text=»* A6 UNCHANGED«, t00=0x0058, t01=0x00a6}
0x8a30…8a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00c8}
0x8a3a…8a4e Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x0058, t01=0x00d2}
0x8a4e…8a62 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0058, t01=0x00e6}
0x8a62…8a74 Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0058, t01=0x00fa}
0x8a74…8a84 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0058, t01=0x010c}
0x8a84…8a92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x011c}
0x8a92…8a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x012a}
0x8a9c…8aae Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x0134}
0x8aae…8ac0 Head {h00=0x000e, h01=0x0050, text=»* SETINH *«, t00=0x0058, t01=0x0146}
0x8ac0…8ad2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x0158}
0x8ad2…8adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x016a}
0x8adc…8b20 Head {h00=0x0040, h01=0x0050, text=»* FUNCTION: INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE «, t00=0x0058, t01=0x0174}
0x8b20…8b62 Head {h00=0x003e, h01=0x0050, text=»* ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND «, t00=0x0059, t01=0x0028}
0x8b62…8b7e Head {h00=0x0018, h01=0x0050, text=»* RETURN«, t00=0x0059, t01=0x006a}
0x8b7e…8b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0086}
0x8b88…8bae Head {h00=0x0022, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS «, t00=0x0059, t01=0x0090}
0x8bae…8bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00b6}
0x8bb8…8bca Head {h00=0x000e, h01=0x0050, text=»SETINH INH«, t00=0x0059, t01=0x00c0}
0x8bca…8be6 Head {h00=0x0018, h01=0x0050, text=» LD A1,DWTA2,A6 FDON«, t00=0x0059, t01=0x00d2}
0x8be6…8c06 Head {h00=0x001c, h01=0x0050, text=» RF(Z) SET:10 NOT ACTIVE«, t00=0x0059, t01=0x00ee}
0x8c06…8c20 Head {h00=0x0016, h01=0x0050, text=» ABL T:DISP ESCAPE«, t00=0x0059, t01=0x010e}
0x8c20…8c36 Head {h00=0x0012, h01=0x0050, text=»SET:10 RTN A5 «, t00=0x0059, t01=0x0128}
0x8c36…8c42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x013e}
0x8c42…8c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x014a}
0x8c4c…8c72 Head {h00=0x0022, h01=0x0050, text=»* D R I V E R B U F F E R«, t00=0x0059, t01=0x0154}
0x8c72…8c8a Head {h00=0x0014, h01=0x0050, text=»BUF DATA 0,0,0,0«, t00=0x0059, t01=0x017a}
0x8c8a…8c94 (90, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0004}
0x8c94…8ca6 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005a, t01=0x000e}
0x8ca6…8cb6 Head {h00=0x000c, h01=0x0050, text=» RES 60 «, t00=0x005a, t01=0x0020}
0x8cb6…8cc2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0030}
0x8cc2…8cd0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x003c}
0x8cd0…8cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x004a}
0x8cda…8cf8 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x005a, t01=0x0054}
0x8cf8…8d16 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x005a, t01=0x0072}
0x8d16…8d34 Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x005a, t01=0x0090}
0x8d34…8d52 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x005a, t01=0x00ae}
0x8d52…8d70 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x005a, t01=0x00cc}
0x8d70…8d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00ea}
0x8d7a…8d8e Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x005a, t01=0x00f4}
0x8d8e…8d9e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005a, t01=0x0108}
0x8d9e…8dbc Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x005a, t01=0x0118}
0x8dbc…8dd8 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB-ADDRESS «, t00=0x005a, t01=0x0136}
0x8dd8…8dee Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x005a, t01=0x0152}
0x8dee…8e14 Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x005a, t01=0x0168}
0x8e14…8e30 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x005a, t01=0x018e}
0x8e30…8e58 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x005b, t01=0x001a}
0x8e58…8e76 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x005b, t01=0x0042}
0x8e76…8e86 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x0060}
0x8e86…8ea0 Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x005b, t01=0x0070}
0x8ea0…8eb0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x008a}
0x8eb0…8ec0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x009a}
0x8ec0…8edc Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x005b, t01=0x00aa}
0x8edc…8f08 Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x005b, t01=0x00c6}
0x8f08…8f18 Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x005b, t01=0x00f2}
0x8f18…8f46 Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x005b, t01=0x0102}
0x8f46…8f56 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x0130}
0x8f56…8f7e Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x005b, t01=0x0140}
0x8f7e…8f8e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x0168}
0x8f8e…8fba Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x005b, t01=0x0178}
0x8fba…8fca Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005c, t01=0x0014}
0x8fca…8ffa Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x005c, t01=0x0024}
0x8ffa…900a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005c, t01=0x0054}
0x900a…903a Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x005c, t01=0x0064}
0x903a…904a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005c, t01=0x0094}
0x904a…9076 Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x005c, t01=0x00a4}
0x9076…908a Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005c, t01=0x00d0}
0x908a…90b6 Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x005c, t01=0x00e4}
0x90b6…90ca Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005c, t01=0x0110}
0x90ca…90f6 Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x005c, t01=0x0124}
0x90f6…910a Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005c, t01=0x0150}
0x910a…9136 Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x005c, t01=0x0164}
0x9136…914a Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005c, t01=0x0190}
0x914a…915e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x005d, t01=0x0014}
0x915e…9198 Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x005d, t01=0x0028}
0x9198…91a8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005d, t01=0x0062}
0x91a8…91d8 Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x005d, t01=0x0072}
0x91d8…91e8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005d, t01=0x00a2}
0x91e8…9218 Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x005d, t01=0x00b2}
0x9218…9228 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005d, t01=0x00e2}
0x9228…9234 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x00f2}
0x9234…9246 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005d, t01=0x00fe}
0x9246…9276 Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x005d, t01=0x0110}
0x9276…928c Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005d, t01=0x0140}
0x928c…92b4 Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x005d, t01=0x0156}
0x92b4…92ca Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005d, t01=0x017e}
0x92ca…92f4 (94, 2, 236) Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x005e, t01=0x0004}
0x92f4…930a Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005e, t01=0x002e}
0x930a…9338 Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x005e, t01=0x0044}
0x9338…934e Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005e, t01=0x0072}
0x934e…9380 Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x005e, t01=0x0088}
0x9380…9396 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005e, t01=0x00ba}
0x9396…93a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00d0}
0x93a2…93ae Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005e, t01=0x00dc}
0x93ae…93b2 Head {h00=0x4004, h01=0x0000}
0x93b2…93b6 00 5e 00 e8 ┆ ^ ┆
0x93b6…93be (95, 1, 8) 20 04 00 00 00 5f 00 04 ┆ _ ┆
0x93be…940e (96, 0, 400) 00 0f 01 8c 00 06 00 50 2a 20 00 10 00 08 00 0e 00 50 44 43 47 57 5c 45 51 55 5c 2a 00 10 00 12 00 26 00 50 5c 43 46 5c 41 31 35 2c 47 54 42 55 46 5c 47 45 54 20 54 52 41 4e 53 4d 49 54 20 42 55 46 46 45 52 20 00 10 00 24 00 0e 00 50 5c 4c ┆ P* PDCGW EQU * & P CF A15,GTBUF GET TRANSMIT BUFFER $ P L┆
0x940e…945e 44 52 5c 41 34 2c 41 34 00 10 00 4e 00 20 00 50 5c 52 46 28 5a 29 5c 44 43 47 57 31 30 5c 4e 4f 20 46 52 45 45 20 42 55 46 46 45 52 00 10 00 60 00 14 00 50 5c 53 54 5c 41 34 2c 45 43 42 42 41 2c 41 38 20 00 10 00 84 00 18 00 50 5c 4c 44 4b ┆DR A4,A4 N P RF(Z) DCGW10 NO FREE BUFFER ` P ST A4,ECBBA,A8 P LDK┆
0x945e…94ae 4c 5c 41 31 2c 54 42 55 46 4c 2b 54 42 55 46 4c 00 10 00 9c 00 28 00 50 5c 53 54 5c 41 31 2c 45 43 42 45 4c 2c 41 38 5c 53 54 4f 52 45 20 42 55 46 46 45 52 20 4c 45 4e 47 54 48 20 00 10 00 b8 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 10 ┆L A1,TBUFL+TBUFL ( P ST A1,ECBEL,A8 STORE BUFFER LENGTH P LDK A1,0 ┆
0x94ae…94fe 00 e4 00 1e 00 50 5c 52 42 5c 45 4e 44 49 4f 5c 43 4f 4d 50 4c 45 54 45 20 52 45 51 55 45 53 54 00 10 00 f6 00 10 00 50 44 43 47 57 31 30 5c 45 51 55 5c 2a 00 10 01 18 00 1e 00 50 5c 43 46 5c 41 31 35 2c 54 49 4d 45 52 45 5c 53 54 41 52 54 ┆ P RB ENDIO COMPLETE REQUEST PDCGW10 EQU * P CF A15,TIMERE START┆
0x94fe…954e 20 54 49 4d 45 52 00 10 01 2c 00 20 00 50 5c 43 46 5c 41 31 35 2c 49 4e 53 47 57 51 5c 51 55 45 55 45 20 52 45 51 55 45 53 54 00 10 01 4e 00 0e 00 50 5c 52 42 5c 44 43 52 54 4e 20 00 10 01 72 00 08 00 50 5c 58 49 46 00 10 01 84 00 0a 00 50 ┆ TIMER , P CF A15,INSGWQ QUEUE REQUEST N P RB DCRTN r P XIF P┆
0x954e…959e (97, 0, 400) 5c 45 4a 45 43 54 00 10 01 90 00 06 00 50 2a 20 00 11 00 0e 00 06 00 50 2a 20 00 11 00 18 00 1a 00 50 2a 5c 52 45 4c 45 41 53 45 20 52 45 41 44 20 42 55 46 46 45 52 20 00 11 00 22 00 06 00 50 2a 20 00 11 00 40 00 06 00 50 2a 20 00 11 00 4a ┆ EJECT P* P* P* RELEASE READ BUFFER " P* @ P* J┆
0x959e…95ee 00 18 00 50 44 43 52 52 5c 4c 44 5c 41 34 2c 45 43 42 42 41 2c 41 38 20 00 11 00 54 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 36 20 00 11 00 70 00 12 00 50 5c 43 46 5c 41 31 35 2c 52 52 42 55 46 20 00 11 00 82 00 10 00 50 44 43 52 52 31 30 5c 45 ┆ PDCRR LD A4,ECBBA,A8 T P SUK A4,6 p P CF A15,RRBUF PDCRR10 E┆
0x95ee…963e 51 55 5c 2a 00 11 00 98 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 11 00 ac 00 2a 00 50 5c 43 46 5c 41 31 35 2c 54 45 4e 44 49 4f 5c 43 4f 4d 50 4c 45 54 45 20 52 52 42 55 46 20 52 45 51 55 45 53 54 20 00 11 00 be 00 0e 00 50 5c 52 42 5c ┆QU * P LDK A1,0 * P CF A15,TENDIO COMPLETE RRBUF REQUEST P RB ┆
0x963e…968e 44 43 52 54 4e 20 00 11 00 ec 00 0a 00 50 5c 45 4a 45 43 54 00 11 00 fe 00 06 00 50 2a 20 00 11 01 0c 00 06 00 50 2a 20 00 11 01 16 00 0e 00 50 2a 5c 45 58 43 48 41 4e 47 45 00 11 01 20 00 06 00 50 2a 20 00 11 01 32 00 06 00 50 2a 20 00 11 ┆DCRTN P EJECT P* P* P* EXCHANGE P* 2 P* ┆
0x968e…96de 01 3c 00 06 00 50 2a 20 00 11 01 46 00 14 00 50 2a 5c 43 4f 4d 50 4c 45 54 45 20 57 48 45 4e 3a 00 11 01 50 00 22 00 50 2a 5c 20 20 4d 45 53 53 41 47 45 20 50 41 53 53 45 44 20 54 4f 20 54 45 52 4d 49 4e 41 4c 00 11 01 68 00 10 00 50 2a 5c ┆ < P* F P* COMPLETE WHEN: P " P* MESSAGE PASSED TO TERMINAL h P* ┆
0x96de…972e (98, 0, 400) 20 20 54 49 4d 45 20 4f 55 54 00 11 01 8e 00 06 00 50 2a 20 00 12 00 12 00 0e 00 50 44 43 45 58 5c 45 51 55 5c 2a 00 12 00 1c 00 2a 00 50 5c 52 42 5c 44 43 57 52 5c 53 41 4d 45 20 49 4e 49 54 49 41 4c 49 5a 41 54 49 4f 4e 20 41 53 20 57 52 ┆ TIME OUT P* PDCEX EQU * * P RB DCWR SAME INITIALIZATION AS WR┆
0x972e…977e 49 54 45 20 00 12 00 2e 00 06 00 50 2a 20 00 12 00 5c 00 06 00 50 2a 20 00 12 00 66 00 10 00 50 2a 5c 53 45 54 20 53 54 41 54 55 53 00 12 00 70 00 06 00 50 2a 20 00 12 00 84 00 06 00 50 2a 20 00 12 00 8e 00 10 00 50 5c 49 46 46 5c 53 54 41 ┆ITE . P* P* f P* SET STATUS p P* P* P IFF STA┆
0x977e…97ce 54 3d 30 20 00 12 00 98 00 0e 00 50 44 43 53 53 5c 45 51 55 5c 2a 00 12 00 ac 00 2a 00 50 5c 4c 44 5c 41 31 2c 45 43 42 43 57 2c 41 38 5c 47 45 54 20 53 54 41 54 55 53 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 00 12 00 be 00 18 00 50 5c 41 4e 4b ┆T=0 PDCSS EQU * * P LD A1,ECBCW,A8 GET STATUS INFORMATION P ANK┆
0x97ce…981e 5c 41 31 2c 33 5c 4d 41 53 4b 20 44 42 2c 49 52 00 12 00 ec 00 1c 00 50 5c 52 46 28 5a 29 5c 44 43 53 53 32 30 5c 44 45 56 49 43 45 20 45 4e 44 00 12 01 08 00 10 00 50 44 43 53 53 31 30 5c 45 51 55 5c 2a 00 12 01 28 00 14 00 50 5c 53 54 5c ┆ A1,3 MASK DB,IR P RF(Z) DCSS20 DEVICE END PDCSS10 EQU * ( P ST ┆
0x981e…986e 41 31 2c 44 57 54 53 54 2c 41 36 20 00 12 01 3c 00 20 00 50 5c 52 42 5c 44 43 52 52 31 30 5c 43 4f 4d 50 4c 45 54 45 20 52 45 51 55 45 53 54 20 00 12 01 54 00 10 00 50 44 43 53 53 32 30 5c 45 51 55 5c 2a 00 12 01 78 00 14 00 50 5c 4c 44 5c ┆A1,DWTST,A6 < P RB DCRR10 COMPLETE REQUEST T PDCSS20 EQU * x P LD ┆
0x986e…98be (99, 0, 400) 41 31 2c 44 57 54 53 54 2c 41 36 20 00 12 01 8c 00 0e 00 50 5c 41 4e 4b 5c 41 31 2c 39 20 00 13 00 14 00 28 00 50 5c 52 42 28 5a 29 5c 44 43 53 53 31 30 5c 57 41 43 4b 20 48 41 53 20 4e 4f 54 20 42 45 45 4e 20 53 45 4e 54 00 13 00 26 00 10 ┆A1,DWTST,A6 P ANK A1,9 ( P RB(Z) DCSS10 WACK HAS NOT BEEN SENT & ┆
0x98be…990e 00 50 44 43 53 53 33 30 5c 45 51 55 5c 2a 00 13 00 52 00 2c 00 50 5c 43 46 5c 41 31 35 2c 49 4e 53 53 51 5c 49 4e 53 45 52 54 20 44 57 54 20 49 4e 20 53 54 41 54 55 53 20 51 55 45 55 45 00 13 00 66 00 14 00 50 5c 4c 44 4b 5c 41 31 2c 34 5c ┆ PDCSS30 EQU * R , P CF A15,INSSQ INSERT DWT IN STATUS QUEUE f P LDK A1,4 ┆
0x990e…995e 53 45 54 20 44 45 00 13 00 96 00 0e 00 50 5c 52 42 5c 44 43 53 53 31 30 00 13 00 ae 00 08 00 50 5c 58 49 46 00 13 00 c0 00 0a 00 50 5c 45 4a 45 43 54 00 13 00 cc 00 06 00 50 2a 20 00 13 00 da 00 06 00 50 2a 20 00 13 00 e4 00 06 00 50 2a 20 ┆SET DE P RB DCSS10 P XIF P EJECT P* P* P* ┆
0x995e…99ae 00 13 00 ee 00 1a 00 50 2a 5c 54 49 4d 45 52 20 48 41 4e 44 4c 49 4e 47 20 50 41 52 54 20 00 13 00 f8 00 06 00 50 2a 20 00 13 01 16 00 06 00 50 2a 20 00 13 01 20 00 06 00 50 2a 20 00 13 01 2a 00 18 00 50 2a 5c 52 45 41 44 20 54 49 4d 45 52 ┆ P* TIMER HANDLING PART P* P* P* * P* READ TIMER┆
0x99ae…99fe 3d 54 49 4d 45 52 52 20 00 13 01 34 00 06 00 50 2a 20 00 13 01 50 00 10 00 50 54 49 4d 45 52 45 5c 45 51 55 5c 2a 00 13 01 5a 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 36 00 13 01 6e 00 26 00 50 5c 4c 44 5c 41 32 2c 45 43 42 43 57 2c 41 38 5c ┆=TIMERR 4 P* P PTIMERE EQU * Z P LDR A1,A6 n & P LD A2,ECBCW,A8 ┆
0x99fe…9a4e (100, 0, 400) 47 45 54 20 54 49 4d 45 4f 55 54 20 56 41 4c 55 45 20 00 13 01 80 00 1c 00 50 5c 52 46 28 5a 29 5c 54 49 4d 45 31 30 5c 4e 4f 20 54 49 4d 49 4e 47 20 00 14 00 1a 00 12 00 50 5c 53 54 5c 41 32 2c 54 49 4d 45 52 52 20 00 14 00 3a 00 12 00 50 ┆GET TIMEOUT VALUE P RF(Z) TIME10 NO TIMING P ST A2,TIMERR : P┆
0x9a4e…9a9e 5c 43 46 5c 41 31 35 2c 53 45 54 49 4d 45 00 14 00 50 00 10 00 50 5c 44 41 54 41 5c 54 4f 55 54 52 45 00 14 00 66 00 12 00 50 54 49 4d 45 52 52 5c 44 41 54 41 5c 30 20 00 14 00 7a 00 28 00 50 5c 53 54 5c 41 34 2c 44 57 54 54 50 2c 41 36 5c ┆ CF A15,SETIME P P DATA TOUTRE f PTIMERR DATA 0 z ( P ST A4,DWTTP,A6 ┆
0x9a9e…9aee 53 54 4f 52 45 20 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 00 14 00 90 00 10 00 50 54 49 4d 45 31 30 5c 45 51 55 5c 2a 00 14 00 bc 00 16 00 50 5c 52 46 5c 47 42 55 46 31 30 5c 52 45 54 55 52 4e 20 00 14 00 d0 00 06 00 50 2a 20 00 14 00 ea ┆STORE TIMER POINTER PTIME10 EQU * P RF GBUF10 RETURN P* ┆
0x9aee…9b3e 00 18 00 50 2a 5c 54 49 4d 45 4f 55 54 20 52 45 41 44 20 54 49 4d 45 52 00 14 00 f4 00 06 00 50 2a 20 00 14 01 10 00 10 00 50 54 4f 55 54 52 45 5c 45 51 55 5c 2a 00 14 01 1a 00 18 00 50 5c 4c 44 52 5c 41 36 2c 41 31 5c 46 45 54 43 48 20 44 ┆ P* TIMEOUT READ TIMER P* PTOUTRE EQU * P LDR A6,A1 FETCH D┆
0x9b3e…9b8e 57 54 00 14 01 2e 00 10 00 50 5c 43 4d 5c 44 57 54 54 50 2c 41 36 00 14 01 4a 00 10 00 50 5c 49 46 46 5c 54 42 55 46 4c 3d 30 00 14 01 5e 00 24 00 50 5c 43 46 5c 41 31 35 2c 52 45 4d 4f 56 47 5c 52 45 4d 4f 56 45 20 46 52 4f 4d 20 51 55 45 ┆WT . P CM DWTTP,A6 J P IFF TBUFL=0 ^ $ P CF A15,REMOVG REMOVE FROM QUE┆