|
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: 39382 (0x99d6)
Notes: pts_type(SC)
Names: »DRFD01.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/DRFD01.SC«
IDENT DRFD01 REL 8.2 78-09-15 870105040820 LOAD BUG (EOD=74001) REL 8.1 78-04-121 * ********************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRFD01 = DRIVER FOR FLEXIBLE DISK * * * * * * ********************************************* * THIS DISK DRIVER HANDLES UP TO FOUR DAISY * CHAINED FLEXIBLE DISK DRIVES PTS 6879, * CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON * MULTIPLEX OR PROGRAMMED CHANNEL * ********* * * ORDERS: * * /00 TEST STATUS * /01 PHYSICAL READ * /02 SEQUENTIAL READ -IBM DISC ONLY- * /05 BASIC WRITE * /06 SEQUENTIAL WRITE -IBM DISC ONLY- * /11 PHYSICAL READ * /15 PHYSICAL WRITE * /1A SEARCH KEY * /24 WRITE DELETED DATA * /26 LOCK * /31 REWIND -IBM DISC ONLY- * /37 LOAD * /38 UNLOAD * ********* * * ENTRY PARAMETERS: * * A5 STACK BASE * A6 DWT-ADDRESS * A7 ORDER * A8 ECB-ADDRESS EJECT * *********** * * * ENTRIES * * * *********** * ENTRY FDADR ACTIVATION ADDRESS ENTRY IHFD INTERRUPT HANDLER ENTRY FDON RECOVERY ROUTINE ENTRY DWFD01 DWT-ADDRESS * ************* * * * EXTERNALS * * * ************* * EXTRN TDISP DISPATCHER EXTRN TENDIO ENDIO EXTRN DISIOE REQUEST ERROR EXTRN DWTOR ORDER EXTRN DWTECB ECB-ADDRESS EXTRN DWTST DWT STATUS EXTRN SAVE8 SAVE A1-A8 ON A15 STACK EXTRN SETIMP TIMER EXTRN INIFLG INITIALIZATION FLAG EXTRN INTSAV INTERRUPT SAVE AREA EXTRN TASCII EBCDIC TO ASCII TAB EXTRN TEBCDIC ASCII TO EBCDIC TAB EXTRN ECBBA ECB BUFFER ADDRESS EXTRN ECBRL ECB REQUESTED LENGTH EXTRN ECBEL ECB EFFECTIVE LENGTH EXTRN ECBRC ECB RETURN CODE EXTRN ECBCW ECB CONTROL WORD * ************************ * * * CONDITIONAL ASSEMBLY * * * ************************ * * MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED * CHANNEL BY SETTING X:A = 0 * X:A EQU 1 CHAN EQU 1 * * FD DRIVER CAN BE ADAPTED FOR DATA MANAGEMENT * BY SETTING X:B = 1 * X:B EQU 0 DAMA EQU 1 * * 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 * LDKL A2,/8004 BIO LD A3,4,A8 REQUESTED LENGTH CWK A3,130 ABL(NE) END:10 ILLEGAL LENGTH LD A4,2,A8 BUFFER ADDRESS RB FD:045 XIF * *************** * * * TEST STATUS * * * *************** * FD:070 EQU * LDKL A2,/FFF9 BIO DUMMY CF A5,FD:WRI ANKL A3,/0201 WRITE PROTECT? LDR A1,A3 IFF DAMA+IBM=0 CF A5,VOLADR GET VOL NAME ADDR IN A2 ST A2,ECBCW,A8 STORE IN CONTROL WORD XIF IFT IBM=1 LD A3,DWTLAB,A6 LABEL INDICATOR AN A3,DWTA3,A6 RF(Z) FD:080 TOSS LABEL ORK A1,/20 SET BIT 10 (IBM) FD:080 EQU * XIF FD:090 ABL END:IO EJECT * ******** * * * LOAD * * * ******** * LOAD EQU * LDK A2,/14 LOCK CF A5,FD:REA ANK A3,1 RF(NZ) LOA:80 NOT OPERABLE IFT DAMA+IBM=2 * * CHECK IF TOSS/IBM LABEL * LDK A2,0 BIO LDKL A4,BUF LDK A3,38 NO OF BYTES CF A5,FD:REA CF A5,LD:RC ADK A4,34 LDR* A2,A4 CWK A2,'TO' RF(NE) LOA:10 IBM LABEL PREASSUMED ADK A4,2 LDR* A2,A4 CWK A2,'SS' RF(NE) LOA:10 IBM LABEL XIF IFT DAMA=1 * * READ VOLUME NAME * LDK A3,8 LENGTH LDK A2,0 BIO C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK ANS A1,DWTLAB,A6 INDICATE TOSS LABEL RF LOA:15 XIF IFT IBM=1 LOA:10 LDK A3,10 LENGTH LDK A2,/30 BIO LD A1,DWTA3,A6 DRIVE NO BIT MASK ORS A1,DWTLAB,A6 INDICATE IBM DISC LDK A1,/20 RETURN CODE BIT 10 ORS A1,DWTRCW,A6 XIF IFF DAMA+IBM=0 LOA:15 EQU * LDKL A4,BUF BUFFER ADDRESS CF A5,FD:REA CF A5,LD:RC LDK A1,2 XIF IFT IBM=1 LD A7,DWTRCW,A6 ANK A7,/20 CHECK TYPE OF LABEL RF(Z) LOA:30 TOSS LABEL LDK A7,10 NO OF CHAR. CF A5,ASCII LDK A1,4 LOA:30 EQU * XIF IFF DAMA+IBM=0 * * GET DWT VOL NAME ADDRESS * CF A5,VOLADR ADDRESS TO A2 * * STORE NAME IN DWT * LDK A3,3 LOA:40 LD A4,BUF,A1 STR A4,A2 SUK A3,1 RF(Z) LOA:50 ADK A1,2 ADK A2,2 RB LOA:40 LOA:50 EQU * XIF IFT IBM=1 * * DATA SET OPENING WANTED? * ANK A1,/2 A1: TOSS=6, IBM=8 RF(NZ) LOA:70 TOSS LABEL LC A1,DWTOR+1,A6 ORDER CCK A1,/2600 RF(E) LOA:70 LOCK ORDER * * READ DATA SET LABEL * LD A2,ECBCW,A8 SECTOR NO SUK A2,7 ABL(N) FD:DIS REQUEST ERROR SUK A2,18 ABL(P) FD:DIS REQUEST ERROR ADK A2,25 SLL A2,3 BIO LDK A3,80 LENGTH LDKL A4,BUF CF A5,FD:REA LDR A1,A3 RETURN CODE SLL A1,4 CHECK NO DATA BIT RF(NN) LOA:60 NOT NO DATA ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL LOA:60 EQU * CF A5,LD:RC ENB LD A3,ECBCW,A8 DATA SET LABEL SECTOR LDK A1,DWTDSS CF A5,STDWT SAVE IN DWT ADK A4,BOE BOE ADDRESS CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR LDK A1,DWTBOE CF A5,STDWT STORE BOE NO IN DWT SUK A3,1 CRN LDK A1,DWTCRN CF A5,STDWT ADK A4,EOE-BOE EOE ADDRESS CF A5,LOGSEC LDK A1,DWTEOE CF A5,STDWT STORE EOE NO IN DWT ADK A4,EOD-EOE EOD ADDRESS CF A5,LOGSEC CF A5,SETINH INHIBIT LDK A1,DWTEOD CF A5,STDWT STORE EOD NO IN DWT * LOA:70 EQU * XIF LD A2,DWTA3,A6 ORS A2,DWTLC,A6 INDICATE LOCK LOA:75 LD A3,DWTRCW,A6 RETURN CODE LOA:80 ABL FD:RC IFF DAMA+IBM=0 * * ERROR , UNLOCK * LOA:90 EQU * LDR A5,A6 ADK A5,DWTSB2 STACK BASE LDK A2,/C UNLOCK CF A5,FD:REA RB LOA:75 * *---------------------------------------------------- * LD:RC SUBROUTINE * LD:RC ORS A3,DWTRCW,A6 ANKL A3,/2007 FATAL ERROR RB(NZ) LOA:90 LDKL A4,BUF DRIVER BUFFER ADDRESS RTN A5 XIF EJECT * ********** * * * UNLOAD * * * ********** * UNLOAD EQU * IFT IBM=1 * * DATA SET OPEN? * CF A5,DSOPCH A1,AFFECTED LDR A7,A7 EOD RF(Z) UNL:70 NOT OPEN ST A7,ECBCW,A8 STORE EOD-NO IN CONTROL WORD OF ECB * * READ DATA SET LABEL TO DRIVER BUFFER * CF A5,DSLIO PREPARE FOR I/O CF A5,FD:REA READ DATA SET LABEL CF A5,UNL:RC RETURN CODE CHECK ENB ** *------------------------------ * TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED) * CF A5,DSOPCH EOD-NO TO A7 * * DIVIDE EOD BY 26 * LDK A1,0 UNL:10 SUK A7,26 RF(N) UNL:20 ADK A1,1 RB UNL:10 UNL:20 ADK A7,27 * * A1 = BINARY TRACK NO * A7 = SECTOR NO WITHIN TRACK (0-25) * CF A5,BINDEC TRANSFORM SEC.NO TO A3 LDKL A4,BUF+EOD+4 ADDRESS TO POS 79 SCR A3,A4 SUK A4,1 SRL A3,8 LEFT BYTE SCR A3,A4 STORE IN BUFFER LDR A7,A1 TRACK CF A5,BINDEC DEC EBCDIC-CODED IN A3 SUK A4,3 STR A3,A4 TRACK INTO BUF CF A5,SETINH INHIBIT * * WRITE DATA SET LABEL * CF A5,DSLIO PREPARE FOR I/O ORK A2,5 PHYSICAL WRITE CF A5,FD:WRITE WRITE DATA SET LEBEL CF A5,UNL:RC CHECK RETURN CODE CF A5,DSOPCH CMR A2 INDICATE NOT OPEN * * UNLOCK * XIF UNL:70 EQU * LDK A2,/C UNLOCK CF A5,FD:REA ORS A3,DWTRCW,A6 ANK A3,1 RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED LD A2,DWTA3,A6 INDEX MASK XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT UNL:80 EQU * RB LOA:75 END:IO IFF DAMA+IBM=0 * * UNLOAD RETURN CODE CHECK * UNL:RC ORS A3,DWTRCW,A6 ANK A3,/7 FATAL ERROR? RB(NZ) UNL:80 ENDIO RTN A5 XIF IFT IBM=1 EJECT * ******************* * SEQUENTIAL READ * ******************* * SQREAD EQU * CF A5,DSOPCH GET EOD AND EOD ADDRESS LDR A7,A7 EOD SQR:05 ABL(Z) DISIOE NOT OPEN ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN LDR* A3,A2 CRN ADK A3,1 CRN+1 ST A3,ECBCW,A8 STORE CRN+1 IN ECB CWR A3,A7 RF(NL) SQR:10 END OF DATA CF A5,BIO:RE LDKL A4,BUF BUFFER ADDRESS CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 LD A4,ECBBA,A8 USER BUFFER ADDRESS LD A7,ECBRL,A8 REQUESTED LENGTH CF A5,ASCII TRANSFORM TO ASCII LDK A1,DWTCRN CF A5,DSPAD RF SQW:10 UPDATE CRN * * END OF DATA * SQR:10 LDKL A1,/1000 RETURN CODE RF END:IO EJECT * ******************* * SEQUENTIAL WRITE * ******************* * SQWRIT EQU * CF A5,DSOPCH GET EOD LDR A7,A7 EOD-NO RB(Z) SQR:05 NOT OPEN * * CHECK IF END OF EXTENT * LDK A1,DWTEOE CF A5,DSPAD EOE-NO ADDRESS TO A2 ST A7,ECBCW,A8 STORE EOD IN ECB C. W. CWR* A7,A2 RF(G) SQW:20 YES,EOE CF A5,BIO LDK A7,128 CF A5,EBCDIC TRANSFORM AND MOVE TO BUF ORK A2,5 PHYS. WRITE CF A5,FD:WRI CF A5,DSOPCH SQW:10 LDR A1,A3 RETURN CODE ANK A1,/1 RF(NZ) SQW:15 NOT OPERABLE IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT SQW:15 RF FD:RC * * * END OF EXTENT SQW:20 LDKL A1,/400 RETURN CODE RF END:IO EJECT * ********** * REWIND * ********** * REWIND EQU * CF A5,DSOPCH LDR A7,A7 EOD RB(Z) SQR:05 DATA SET NOT OPEN LDR A3,A2 SAVE EOD ADDRESS LDK A1,DWTBOE CF A5,DSPAD LDR* A4,A2 BOE STR A4,A3 EOD = BOE LDK A1,DWTCRN CF A5,DSPAD SUK A4,1 BOE - 1 STR A4,A2 CRN = BOE -1 LDK A1,0 RETURN CODE RF END:IO XIF EJECT * ***************** * * * PERFORM ORDER * * * ***************** * * * INPUT: A2 BIO CONTENTS * A3 NO OF BYTES TO BE TRANSFERED * A4 BUFFER ADDRESS * FD:WRI EQU * IFT CHAN=0 LDKL A1,/C000 WORDS,WRITE XIF IFT CHAN=1 CM DWTRW,A6 INDICATOR TO WRITE MODE XIF RF FD:800 * FD:REA EQU * IFT CHAN=1 LDK A1,1 ST A1,DWTRW,A6 READ MODE XIF IFT CHAN=0 LDKL A1,/8000 WORDS READ XIF FD:800 EQU * IFT CHAN=0 SRL A3,1 FROM BYTES TO WORDS ORR A3,A1 WER1 WER A3,MUXADR FIRST WER WER2 WER A4,MUXADR+1 SECOND WER XIF IFT CHAN=1 * * PUT BUFFER START AND END ADDRESS IN DWT * ST A4,DWTUB,A6 ADR A3,A4 ST A3,DWTUBE,A6 END ADDRESS+2 XIF FD:820 EQU * ST A5,DWTA5,A6 SAVE STACK POINTER FD:CIO CIO A2,1,CUADR CIO-START RF(3) FD:840 DEVICE ADDRESS UNKNOWN RF T:DISP FD:840 LDK A1,1 NOT OPERABLE RF END:IO EJECT * ************************************* * * * FD:RC - STORE EFF LEN, END:IO * * * ************************************* * * INPUT: A3 RETURN CODE * FD:RC EQU * LDR A1,A3 * * PUT EFFECTIVE LENGTH IN ECB * LD A2,ECBRL,A8 REQ LENGTH ST A2,ECBEL,A8 EFF LENGTH * ********** * * * END:IO * * * ********** * END:IO EQU * CF A15,TENDIO T:DISP ABL TDISP * * * ENTRY FROM RECOVERY ROUTINE * END:05 CM DWTECB,A6 RESET ECB ADDRESS IN DWT * * ILLEGAL LENGTH * END:10 LDKL A1,/8008 RETURN CODE RB END:IO EJECT * ******************** * * * RECOVERY ROUTINE * * * ******************** * FDON INH CF A15,SAVE8 LDKL A6,DWFD01 DWT ADDRESS IFT INI=1 LD A1,INIFLG RF(Z) FDON05 POWER UP LDKL A1,-1 ST A1,DWTST2,A6 CM DWTLC,A6 INDICATE NOT LOCKED CM DWTRTY,A6 RESET RETRY FLAG XIF IFT IBM+INI=2 LDR A1,A6 ADK A1,DWTEOD LDK A2,4 FDON02 EQU * CMR A1 CLOSE DATA SET ADK A1,2 SUK A2,1 RB(P) FDON02 XIF FDON05 EQU * IM DWTA2,A6 SET FDON FLAG LDK A5,DWTSB2 ADR A5,A6 STACK BASE * * SAVE DWTST TO DWTST2 IF NOT ALREADY DONE. * DWTST IS SET BUSY * LD A2,DWTST2,A6 CWK A2,-1 RF(NE) FDON08 ALREADY SAVED LD A2,DWTST,A6 ST A2,DWTST2,A6 FDON08 CM DWTST,A6 SET BUSY * * DELAY 2 SEC * LD A4,DWTTP,A6 RF(Z) FDON10 NO TIMER SET LDKL A4,-TIME ST* A4,DWTTP,A6 RESTART TIMER RB T:DISP FDON10 LDK A4,DWTTP ADR A4,A6 LDR A1,A6 SAVE A6 CF A15,SETIMP DATA FDON20,TIME RB T:DISP * * TIME OUT ROUTINE * FDON20 LDR A6,A1 CM DWTTP,A6 LDK A5,DWTSB2 ADR A5,A6 STACK BASE * * LOCK DOORS * LDK A2,1 FDON25 EQU * LD A1,DWTLC,A6 LOCK INDICATOR ANR A1,A2 RF(Z) FDON30 NOT LOCKED ST A2,DWTA3,A6 SAVE * * PUT DRIVE NO IN CIO INSTR * SRN A2,A3 DRIVE NO IN A3 CF A5,SETCIO PUT DRVE NO IN CIO-INSTR LDK A2,/14 LOCK CF A5,FD:REA LD A2,DWTA3,A6 DRIVE IND. ANK A3,1 RF(Z) FDON30 OK XRS A2,DWTLC,A6 INDICATE UNLOCK FDON30 EQU * SLL A2,1 CWK A2,/0010 RB(NE) FDON25 * * ANY REQUEST? * * * RESTORE STATUS SAVED IN DWST2 TO DWTST. * SET DWTST2 TO -1 LD A2,DWTST2,A6 SAVED STATUS ST A2,DWTST,A6 PUT IN CUURENT STATUS LDKL A2,-1 ST A2,DWTST2,A6 INDICATE NOT SAVED CM DWTA2,A6 RESET FDON FLAG FDON60 EQU * LD A2,DWTST,A6 RB(N) END:05 NO REQUEST, RETURN VIA TENDIO * * RETRY REQUEST * IM DWTRTY,A6 INDICATE RETRY LD A7,DWTOR,A6 ANK A7,/3F ORDER LD A8,DWTECB,A6 ECB ADDRESS ABL FDAD REACTIVATE EJECT * ********************* * * * INTERRUPT HANDLER * * * ********************* * IHFD EQU * ST P,INTSAV SAVE LAST INTERRUPT IFT CHAN=1 STR A1,A15 STR A2,A15 STR A3,A15 LDKL A2,DWFD01 LD A1,DWTUB,A2 POINTER AT WORD IN BUFFER LD A2,DWTRW,A2 READ / WRITE INDICATOR RF(NZ) IH010 READ LCR A3,A1 FIRST CHAR. ECR A2,A3 MOV TO BITS 0-7 ADK A1,1 UPDATE BUFFER POINTER LCR A2,A1 SECOND CHAR. OTR A2,0,CUADR WRITE RF(A) IH020 ACCEPTED RF IH040 NOT ACCEPTED IH010 INR A2,0,CUADR READ RF(NA) IH040 NOT ACCEPTED ECR A3,A2 SCR A3,A1 FIRST CHAR. INTO BUFFER ADK A1,1 UPDATE BUFFER POINTER SCR A2,A1 SECOND CHAR. INTO BUFFER IH020 LDKL A2,DWFD01 DWT-ADDRESS ADK A1,1 ST A1,DWTUB,A2 POINTER AT NEXT CHAR. CW A1,DWTUBE,A2 RF(NE) IH030 NOT LAST WORD CIO A2,0,CUADR CIO HALT IH030 EQU * LDR* A3,A15 LDR* A2,A15 LDR* A1,A15 RTN A15 * * SAVE A4-A8 FOR DISPATCHER * IH040 EQU * STR A4,A15 STR A5,A15 STR A6,A15 STR A7,A15 STR A8,A15 XIF IFF CHAN=1 CF A15,SAVE8 XIF SST A3,CUADR STATUS LDKL A6,DWFD01 DWT ADDRESS LD A8,DWTECB,A6 ECB ADDRESS LD A5,DWTA5,A6 STACK POINTER SLL A3,1 RF(N) FDRE READY INTERRUPT SRL A3,1 LD A2,DWTRTY,A6 RETRY? RF(Z) IH:10 NO CM DWTRTY,A6 RESET RETRY FLAG LDR A1,A3 ANKL A1,/0405 RF(Z) IH:10 RETURN CODE OK LDK A1,/4 ORR A3,A1 CRC ERROR IH:10 EQU * * * TRANSFORM RETURN CODE, CU - ECB * ANKL A3,/FF37 RF(Z) IH:80 LDR A1,A3 ANKL A3,/0A05 UNCHANGED BITS LDR A4,A1 ANKL A4,/0400 BIT 5 SLC A4,7 TO BIT 14 ORR A3,A4 IFT DAMA+IBM=0 LDR A4,A1 ANKL A4,/2000 BIT 2 SLL A4,1 TO BIT 1 ORR A3,A4 XIF LDR A4,A1 ANK A4,/20 BIT 10 SLL A4,3 TO BIT 7 ORR A3,A4 ANK A1,/10 BIT 11 SRC A1,5 TO BIT 0 ORR A3,A1 IH:80 EQU * RTN A5 EJECT * ******************** * * * READY INTERRUPT * * * ******************** * FDRE EQU * LD A2,DWTA2,A6 ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE LDK A5,DWTSB2 ADR A5,A6 STACK BASE RB FDON60 EJECT * ******************************************* * * * S U B R O U T I N E S * * * ******************************************* * ******* * * * BIO * * * ******* * * * INPUT: A8 ECB ADDRESS * * OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START * A3 NO OF BYTES TO BE TRANSFERED * A4 BUFFER ADDRESS * BIO EQU * LDK A4,0 FLAG RF BIO010 BIO:RE LDK A4,1 BIO010 EQU * LD A3,ECBRL,A8 REQ LEN RF(N) BIOERR ILLEGAL LENGTH IFT DAMA+IBM=2 LD A2,DWTLAB,A6 AN A2,DWTA3,A6 RF(Z) BIO020 TOSS DISC XIF IFT IBM=1 LDK A7,IBMLEN LDK A2,0 XIF IFT DAMA+IBM=2 RF BIO030 XIF IFT DAMA=1 BIO020 LDKL A7,TOSLEN LDK A2,3 BIO030 EQU * XIF IFF DAMA+IBM=0 LDR A4,A4 RF(Z) BIO060 WRITE LDK A2,0 LDR A1,A3 REQ LEN CWR A3,A7 REQ LENGTH WITHIN RANGE RF(G) BIOERR NO BIO040 SUK A1,128 RF(NP) BIO100 ADK A2,1 INCREMENT NO OF SECTORS RB BIO040 * * WRITE, CHECK REQ LENGTH * BIO060 CWR A3,A7 RF(NE) BIOERR ILLEGAL REQ LEN XIF IFT DAMA+IBM=0 * * FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH * LDR A1,A3 REQ LENGTH LDK A2,0 NO OF SECTORS-1 BIO015 LDR A4,A4 READ OR WRITE? RF(NZ) BIO035 READ! SUK A1,128 RF(Z) BIO100 REQ LEN ACCEPTED RF BIO045 * BIO035 SUK A1,128 RF(NP) BIO100 REQ LENGTH ACCEPTED BIO045 ADK A2,1 CWK A2,3 RB(NG) BIO015 RF BIOERR REQ LEN OUTSIDE RANGE XIF * BIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1 * * CHECK SECTOR NO FROM CONTROL WORD OF ECB IS * WITHIN RANGE, PUT IT IN POS 2-12 * LD A1,ECBCW,A8 SECTOR NO RF(N) BIOER2 OUTSIDE RANGE IFT DAMA+IBM=2 ANK A7,/A RF(Z) BIO110 IBM DISC XIF IFT DAMA=1 CWK A1,499 RF(G) BIOER2 OUT OF RANGE SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR XIF IFT DAMA+IBM=2 RF BIO120 XIF IFT IBM=1 BIO110 CWK A1,1923 RF(P) BIOER2 OUT OF RANGE XIF IFT DAMA+IBM=0 CWK A1,2001 SECTOR NO OUT OF RANGE RF(G) BIOER2 YES! XIF BIO120 EQU * SLL A1,3 ORR A2,A1 LD A4,ECBBA,A8 BUFFER ADDRESS LDR A1,A3 REQ LENGTH ANK A1,1 RF(NZ) BIOERR REQ LEN. NOT EVEN RTN A5 * * * ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO * BIOERR ABL END:10 * ILLEGAL SECTOR NO BIOER2 ABL FD:DIS * ********* * * * FDIX * * * ********* * * INPUT: A2 X * * OUTPUT: A3 2 POWER(X) * FDIX LDK A3,1 LDR A2,A2 FDIX10 EQU * RF(Z) FDIX20 SLL A3,1 SUK A2,1 RB FDIX10 FDIX20 RTN A5 EJECT IFF DAMA+IBM=0 ****************** * * * VOLADR * * * ****************** * * INPUT: A6 DWT ADDRESS * * OUTPUT: A2 VOLUME NAME ADDRESS * A3 ZERO * VOLADR LDK A2,DWTVO0 ADR A2,A6 LC A3,DWTOR,A6 DRIVE NO ANK A3,/3 VOLA10 EQU * RF(Z) VOLA20 ADK A2,6 UPDATE ADDRESS SUK A3,1 RB VOLA10 VOLA20 RTN A5 XIF IFT IBM=1 EJECT * ********* * ASCII * ********* * * FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO * ASCII CODE * INPUT STRING ADDRESS IS BUF * INPUT: A7 NO OF CHARACTERS * A4 OUTPUT STRING ADDRESS * OUTPUT: A1 CHANGED * A4 CHANGED * A7 CHANGED * ASCII EQU * ENB LDK A1,0 ADR A4,A7 ASC:10 SUK A7,1 RF(N) ASC:20 SUK A4,1 LC A1,BUF,A7 GET EBCDIC CHAR LC A1,TASCII,A1 TRANSFORM TO ASCII SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER RB ASC:10 ASC:20 EQU * RF EBC:90 SET INH AND RETURN EJECT * ********** * EBCDIC * ********** * * FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO * EBCDIC CODE * OUTPUT STRING IS PUT IN DRIVER BUFFER * * INPUT: A7 NO OF CHARACTERS * A4 INPUT STRING ADDRESS * * OUTPUT: A1 CHANGED * A4 DRIVER BUFFER ADDRESS * A7 CHANGED EBCDIC EQU * ENB ADR A4,A7 LDK A1,0 EBC:10 SUK A7,1 RF(N) EBC:80 SUK A4,1 LCR A1,A4 GET ASCII CHAR. LC A1,TEBCDIC,A1 SC A1,BUF,A7 RB EBC:10 EBC:80 EQU * LDKL A4,BUF EBC:90 EQU * CF A5,SETINH RTN A5 EJECT * ********** * LOGSEC * ********* * * FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD * LOGICAL SECTOR (BINARY). * FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) * TT = TRACK, SS=SECTOR * * INPUT: A4 ADDRESS TO PHYS. SECTOR * * OUTPUT: A3 BINARY SECTOR NO * A4 UNCHANGED * LOGSEC EQU * CF A5,DECBIN LDR A3,A1 SAVE ADK A4,2 * * MULTIPLY BY 26 * SLL A3,5 *32 LDR A2,A1 SLL A2,2 SUR A3,A2 *28 SLL A1,1 SUR A3,A1 *26 CF A5,DECBIN SUK A1,1 ADR A3,A1 * * CHECK SECTOR NO * LDR A1,A3 SUK A1,25 RF(NP) LOG:10 CWK A4,BUF+EOD+4 EOD? RF(E) LOG:02 YES! SUKL A1,1898 RF LOG:04 * * CHECK EOD LESS/EQUAL 74001 * LOG:02 SUKL A1,1899 LOG:04 EQU * RF(P) LOG:10 NOT ACC SEC. NO SUK A4,4 RESET BUFFER POINTER RTN A5 * * FATAL ERROR * LOG:05 ADK A5,4 ADJUST STACK POINTER LOG:10 LDKL A1,/2000 RETURN CODE ORS A1,DWTRCW,A6 CF A5,SETINH ABL LOA:90 ERROR ROUTINE * ********** * DECBIN* ********** * * FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO * BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED * INPUT: A4 ADDRESS TO FIRST DIGIT * OUTPUT: A1 BINARY * WORKING REG: A2,A7 * DECBIN LDK A1,0 LDK A7,2 DEC:10 LCR A2,A4 DIGIT ANK A2,/FF SUK A2,/F0 RB(N) LOG:05 SUK A2,9 RB(P) LOG:05 NOT DIGIT ADK A2,9 SUK A7,1 RF(Z) DEC:30 ADK A4,1 ADDRESS TO SECOND DIGIT DEC:20 SUK A2,1 RB(N) DEC:10 NEXT DIGIT ADK A1,/A MULTIPLY BY 10 RB DEC:20 DEC:30 ADR A1,A2 RTN A5 XIF EJECT * ********** * SETCIO * ********** * * FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION * * INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES * * OUTPUT: A3 CHANGED * A4 CHANGED * SETCIO LDKL A4,/FFCF ANS A4,FD:CIO SLL A3,4 ORS A3,FD:CIO RTN A5 IFT IBM=1 EJECT * ********** * BINDEC * ********** * * FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO * EBCDIC-CODED DIGITS (DECIMAL) * * INPUT: A7 BINARY NUMBER * * OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS * A7 CHANGED * BINDEC LDK A3,0 BIN:10 SUK A7,10 RF(N) BIN:20 ADK A3,1 RB BIN:10 BIN:20 ADK A7,10 SLL A3,8 ORR A3,A7 DECIMAL CONVERTED NO IN A3 ORKL A3,/F0F0 EBCDIC CODED RTN A5 EJECT ********* * DSLIO * ********* * * FUNCTION: PREPARE FOR READING DATA SET LABEL * * INPUT: A6 DWT ADDRESS * * OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES * A3 128 * A4 DRIVER BUFFER ADDRESS * A6 DWT ADDRESS * A1 IS CHANGED * DSLIO LDK A1,DWTDSS CF A5,DSPAD LDR* A2,A2 SLL A2,3 LDK A3,128 LDKL A4,BUF RTN A5 EJECT * ********** * DSOPCH * ********** * * FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT * * INPUT: A6 DWT ADDRESS * * OUTPUT: A2 EOD ADDRESS * A7 EOD-NO (0=NOT OPEN) * A1 CHANGED DSOPCH LDK A1,DWTEOD CF A5,DSPAD LDR* A7,A2 EOD-NO RTN A5 EJECT * ********* * DSPAD * ********* * * FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED * TYPE OF DATA FOR COORESSPONDING DRIVE * * INPUT: A1 DWT OFFSET * A6 DWT ADDRESS * * OUTPUT: A2 ADDRESS TO DATA * A6 DWT ADDRESS * DSPAD LC A2,DWTOR,A6 DRIVE NO ANK A2,/3 ADR A2,A2 ADR A2,A6 ADR A2,A1 RTN A5 EJECT * ********* * STDWT * ********* * * FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF * DRIVE NO * * INPUT: A1 OFFSET TO DWT AREA * A3 WORD TO BE STORED IN DWT * A6 DWT ADDRESS * * OUTPUT: A1 UNCHANGED * A2 ADDRESS TO WORD IN DWT AREA * A3 UNCHANGED * A6 UNCHANGED * STDWT EQU * CF A5,DSPAD STR A3,A2 RTN A5 EJECT * ********** * SETINH * ********** * * FUNCTION: INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE * ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND * RETURN * * INPUT: A6 DWT ADDRESS * SETINH INH LD A1,DWTA2,A6 FDON RF(Z) SET:10 NOT ACTIVE ABL T:DISP ESCAPE SET:10 RTN A5 XIF * * D R I V E R B U F F E R BUF DATA 0,0,0,0 * IFT IBM=1 RES 60 XIF EJECT * ********************* * * * DEVICE WORK TABLE * * * ********************* * DWFD01 EQU * DATA 0 DATA /8000 DWT STATUS DATA 0 ECB-ADDRESS DATA 0 ORDER DATA FDADR ACTIVATION ADDRESS DATA 0 TTAB-ADDRESS DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE DATA 0 DATA 0 SAVE AREA DATA 0 DATA 0 DATA 0,0,0,0 STACK DWTST2 EQU *-DWFD01 SAVE STATUS WORD DATA -1 DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG DATA 0 DWTTP EQU *-DWFD01 TIMER POINTER DATA 0 DWTRCW EQU *-DWFD01 TEMP RETURN CODE DATA 0 DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR DATA 0 DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR DATA 0 DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 DATA 0,0,0 DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 DATA 0,0,0 DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 DATA 0,0,0 DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 DATA 0,0,0 IFT CHAN=1 DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER DATA 0 DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2 DATA 0 DWTRW EQU *-DWFD01 READ/WRITE INDICATOR DATA 0 XIF IFT IBM=1 DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT DATA 0,0,0,0 DWTEOD EQU *-DWFD01 END OF DATA DATA 0,0,0,0 DWTEOE EQU *-DWFD01 END OF EXTENT DATA 0,0,0,0 DWTCRN EQU *-DWFD01 CURRENT RECORD NO DATA 0,0,0,0 DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR DATA 0,0,0,0 XIF END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRFD01 REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=» LOAD BUG (EOD=74001)«, t00=0x0000, t01=0x0042}
0x005e…007a Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-04-121«, t00=0x0000, t01=0x0062}
0x007a…0084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007e}
0x0084…00ba Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x0088}
0x00ba…00c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00be}
0x00c4…00ea Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00c8}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…0120 Head {h00=0x0028, h01=0x0050, text=»* DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0000, t01=0x00f8}
0x0120…012a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0124}
0x012a…0134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012e}
0x0134…013e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0138}
0x013e…0148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…0152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014c}
0x0152…015c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0156}
0x015c…0192 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0000, t01=0x0160}
0x0192…01c6 Head {h00=0x0030, h01=0x0050, text=»* THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0001, t01=0x0008}
0x01c6…01f8 Head {h00=0x002e, h01=0x0050, text=»* CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0001, t01=0x003c}
0x01f8…022c Head {h00=0x0030, h01=0x0050, text=»* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0001, t01=0x006e}
0x022c…0256 Head {h00=0x0026, h01=0x0050, text=»* MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0001, t01=0x00a2}
0x0256…0260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00cc}
0x0260…0272 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0001, t01=0x00d6}
0x0272…027c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x027c…028e Head {h00=0x000e, h01=0x0050, text=»* ORDERS:«, t00=0x0001, t01=0x00f2}
0x028e…0298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0104}
0x0298…02b4 Head {h00=0x0018, h01=0x0050, text=»* /00 TEST STATUS«, t00=0x0001, t01=0x010e}
0x02b4…02d2 Head {h00=0x001a, h01=0x0050, text=»* /01 PHYSICAL READ«, t00=0x0001, t01=0x012a}
0x02d2…0318 Head {h00=0x0042, h01=0x0050, text=»* /02 SEQUENTIAL READ -IBM DISC ONLY-«, t00=0x0001, t01=0x0148}
0x0318…0334 Head {h00=0x0018, h01=0x0050, text=»* /05 BASIC WRITE«, t00=0x0001, t01=0x018e}
0x0334…037c Head {h00=0x0044, h01=0x0050, text=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- «, t00=0x0002, t01=0x001a}
0x037c…039a Head {h00=0x001a, h01=0x0050, text=»* /11 PHYSICAL READ«, t00=0x0002, t01=0x0062}
0x039a…03ba Head {h00=0x001c, h01=0x0050, text=»* /15 PHYSICAL WRITE «, t00=0x0002, t01=0x0080}
0x03ba…03d6 Head {h00=0x0018, h01=0x0050, text=»* /1A SEARCH KEY «, t00=0x0002, t01=0x00a0}
0x03d6…03fa Head {h00=0x0020, h01=0x0050, text=»* /24 WRITE DELETED DATA «, t00=0x0002, t01=0x00bc}
0x03fa…0410 Head {h00=0x0012, h01=0x0050, text=»* /26 LOCK «, t00=0x0002, t01=0x00e0}
0x0410…0458 Head {h00=0x0044, h01=0x0050, text=»* /31 REWIND -IBM DISC ONLY- «, t00=0x0002, t01=0x00f6}
0x0458…046e Head {h00=0x0012, h01=0x0050, text=»* /37 LOAD «, t00=0x0002, t01=0x013e}
0x046e…0486 Head {h00=0x0014, h01=0x0050, text=»* /38 UNLOAD «, t00=0x0002, t01=0x0154}
0x0486…0490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016c}
0x0490…04a2 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0002, t01=0x0176}
0x04a2…04ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0188}
0x04ac…04c8 (3, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS:«, t00=0x0003, t01=0x0004}
0x04c8…04d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0020}
0x04d2…04ee Head {h00=0x0018, h01=0x0050, text=»* A5 STACK BASE «, t00=0x0003, t01=0x002a}
0x04ee…050a Head {h00=0x0018, h01=0x0050, text=»* A6 DWT-ADDRESS«, t00=0x0003, t01=0x0046}
0x050a…0520 Head {h00=0x0012, h01=0x0050, text=»* A7 ORDER«, t00=0x0003, t01=0x0062}
0x0520…053c Head {h00=0x0018, h01=0x0050, text=»* A8 ECB-ADDRESS«, t00=0x0003, t01=0x0078}
0x053c…054a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0094}
0x054a…0554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a2}
0x0554…0568 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00ac}
0x0568…057c Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0003, t01=0x00c0}
0x057c…0590 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x00d4}
0x0590…05a4 Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0003, t01=0x00e8}
0x05a4…05b8 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00fc}
0x05b8…05c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0110}
0x05c2…05ea Head {h00=0x0024, h01=0x0050, text=» ENTRY FDADR ACTIVATION ADDRESS«, t00=0x0003, t01=0x011a}
0x05ea…0610 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0003, t01=0x0142}
0x0610…0634 Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0003, t01=0x0168}
0x0634…0656 Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0003, t01=0x018c}
0x0656…0660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001e}
0x0660…0676 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0028}
0x0676…068c Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x003e}
0x068c…06a2 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0054}
0x06a2…06b8 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x006a}
0x06b8…06ce Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0080}
0x06ce…06d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0096}
0x06d8…06f8 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x00a0}
0x06f8…0714 Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0004, t01=0x00c0}
0x0714…0738 Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x00dc}
0x0738…0752 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0004, t01=0x0100}
0x0752…0774 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0004, t01=0x011a}
0x0774…0794 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0004, t01=0x013c}
0x0794…07c0 Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0004, t01=0x015c}
0x07c0…07dc Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0004, t01=0x0188}
0x07dc…0806 Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0005, t01=0x0014}
0x0806…0830 Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0005, t01=0x003e}
0x0830…085a Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0005, t01=0x0068}
0x085a…0884 Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0005, t01=0x0092}
0x0884…08ac Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0005, t01=0x00bc}
0x08ac…08d6 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0005, t01=0x00e4}
0x08d6…0900 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0005, t01=0x010e}
0x0900…0924 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0005, t01=0x0138}
0x0924…094a Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x0005, t01=0x015c}
0x094a…0954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0182}
0x0954…0974 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0005, t01=0x018c}
0x0974…0994 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x001c}
0x0994…09b4 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0006, t01=0x003c}
0x09b4…09d4 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0006, t01=0x005c}
0x09d4…09f4 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0006, t01=0x007c}
0x09f4…09fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009c}
0x09fe…0a30 Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0006, t01=0x00a6}
0x0a30…0a54 Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0006, t01=0x00d8}
0x0a54…0a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fc}
0x0a5e…0a70 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0006, t01=0x0106}
0x0a70…0a82 Head {h00=0x000e, h01=0x0050, text=»CHAN EQU 1«, t00=0x0006, t01=0x0118}
0x0a82…0a8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012a}
0x0a8c…0ac2 Head {h00=0x0032, h01=0x0050, text=»* FD DRIVER CAN BE ADAPTED FOR DATA MANAGEMENT«, t00=0x0006, t01=0x0134}
0x0ac2…0ade Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B = 1«, t00=0x0006, t01=0x016a}
0x0ade…0ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0186}
0x0ae8…0afa Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0006, t01=0x0190}
0x0afa…0b0c Head {h00=0x000e, h01=0x0050, text=»DAMA EQU 1«, t00=0x0007, t01=0x0012}
0x0b0c…0b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0024}
0x0b16…0b56 Head {h00=0x003c, h01=0x0050, text=»* IBM LABELLED DISC HANDLING MAY BE INCLUDED BY SETTING«, t00=0x0007, t01=0x002e}
0x0b56…0b6a Head {h00=0x0010, h01=0x0050, text=»* X:C = 1 «, t00=0x0007, t01=0x006e}
0x0b6a…0b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0082}
0x0b74…0b86 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0007, t01=0x008c}
0x0b86…0b98 Head {h00=0x000e, h01=0x0050, text=»IBM EQU 1 «, t00=0x0007, t01=0x009e}
0x0b98…0ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b0}
0x0ba2…0bd6 Head {h00=0x0030, h01=0x0050, text=»* IF INIMON IS TO BE USED, DRIVER SHOULD BE«, t00=0x0007, t01=0x00ba}
0x0bd6…0c08 Head {h00=0x002e, h01=0x0050, text=»* ADAPTED FOR RESTART BY SETTING X:D = 1 «, t00=0x0007, t01=0x00ee}
0x0c08…0c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0120}
0x0c12…0c24 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0007, t01=0x012a}
0x0c24…0c36 Head {h00=0x000e, h01=0x0050, text=»INI EQU 0 «, t00=0x0007, t01=0x013c}
0x0c36…0c44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x014e}
0x0c44…0c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015c}
0x0c4e…0c64 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x0166}
0x0c64…0c7a Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0007, t01=0x017c}
0x0c7a…0c90 (8, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0008, t01=0x0004}
0x0c90…0ca6 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0008, t01=0x001a}
0x0ca6…0cbc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x0030}
0x0cbc…0cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0046}
0x0cc6…0cf0 Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x0008, t01=0x0050}
0x0cf0…0d1a Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x0008, t01=0x007a}
0x0d1a…0d48 Head {h00=0x002a, h01=0x0050, text=»STALEN EQU 512 MAX STANDARD SEC. LEN. «, t00=0x0008, t01=0x00a4}
0x0d48…0d74 Head {h00=0x0028, h01=0x0050, text=»TOSLEN EQU 410 MAX TOSS SEC. LENGTH «, t00=0x0008, t01=0x00d2}
0x0d74…0d9c Head {h00=0x0024, h01=0x0050, text=»IBMLEN EQU 128 IBM SECTOR LENGTH«, t00=0x0008, t01=0x00fe}
0x0d9c…0dc8 Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x0008, t01=0x0126}
0x0dc8…0df2 Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x0008, t01=0x0152}
0x0df2…0e1a Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x0008, t01=0x017c}
0x0e1a…0e3e Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x0009, t01=0x0014}
0x0e3e…0e5a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x0038}
0x0e5a…0e76 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0054}
0x0e76…0e92 Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENTS*«, t00=0x0009, t01=0x0070}
0x0e92…0eae Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0009, t01=0x008c}
0x0eae…0eca Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0009, t01=0x00a8}
0x0eca…0ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c4}
0x0ed4…0edc Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x00ce}
0x0edc…0ef2 Head {h00=0x0012, h01=0x0050, text=»DWTA2 EQU /12 «, t00=0x0009, t01=0x00d6}
0x0ef2…0f08 Head {h00=0x0012, h01=0x0050, text=»DWTA3 EQU /14 «, t00=0x0009, t01=0x00ec}
0x0f08…0f1e Head {h00=0x0012, h01=0x0050, text=»DWTA5 EQU /16 «, t00=0x0009, t01=0x0102}
0x0f1e…0f40 Head {h00=0x001e, h01=0x0050, text=»DWTSB2 EQU /1E STACK BASE «, t00=0x0009, t01=0x0118}
0x0f40…0f4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x013a}
0x0f4a…0f5c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x0144}
0x0f5c…0f6e Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0009, t01=0x0156}
0x0f6e…0f80 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0009, t01=0x0168}
0x0f80…0f92 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0009, t01=0x017a}
0x0f92…0fa4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x018c}
0x0fa4…0fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000e}
0x0fae…0fd8 Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000a, t01=0x0018}
0x0fd8…0fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0042}
0x0fe2…0ff0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x004c}
0x0ff0…0ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005a}
0x0ffa…1010 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000a, t01=0x0064}
0x1010…1026 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x000a, t01=0x007a}
0x1026…103c Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x000a, t01=0x0090}
0x103c…1052 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x000a, t01=0x00a6}
0x1052…1068 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000a, t01=0x00bc}
0x1068…1072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d2}
0x1072…1096 Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x000a, t01=0x00dc}
0x1096…10a8 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x000a, t01=0x0100}
0x10a8…10c6 Head {h00=0x001a, h01=0x0050, text=» LC A3,DWTOR,A6 INDEX «, t00=0x000a, t01=0x0112}
0x10c6…10e6 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A3 SAVE FOR FDIX«, t00=0x000a, t01=0x0130}
0x10e6…10f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0150}
0x10f0…111a Head {h00=0x0026, h01=0x0050, text=»* PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x000a, t01=0x015a}
0x111a…1124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0184}
0x1124…1148 Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x000a, t01=0x018e}
0x1148…1174 Head {h00=0x0028, h01=0x0050, text=» CM DWTRCW,A6 SAVE RETURN CODE WORD «, t00=0x000b, t01=0x0022}
0x1174…117e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x004e}
0x117e…1198 Head {h00=0x0016, h01=0x0050, text=»* CHECK IF LOCKED«, t00=0x000b, t01=0x0058}
0x1198…11a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0072}
0x11a2…11ca Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR «, t00=0x000b, t01=0x007c}
0x11ca…11f0 Head {h00=0x0022, h01=0x0050, text=» CF A5,FDIX GET BIT MASK IN A3«, t00=0x000b, t01=0x00a4}
0x11f0…121e Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK «, t00=0x000b, t01=0x00ca}
0x121e…1230 Head {h00=0x000e, h01=0x0050, text=» ANR A1,A3«, t00=0x000b, t01=0x00f8}
0x1230…124e Head {h00=0x001a, h01=0x0050, text=» RF(NZ) FD:ORD LOCKED «, t00=0x000b, t01=0x010a}
0x124e…1260 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x000b, t01=0x0128}
0x1260…1274 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/26 «, t00=0x000b, t01=0x013a}
0x1274…1292 Head {h00=0x001a, h01=0x0050, text=» RF(Z) LOAD LOCK ORDER«, t00=0x000b, t01=0x014e}
0x1292…12a6 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/11 «, t00=0x000b, t01=0x016c}
0x12a6…12c4 Head {h00=0x001a, h01=0x0050, text=» RF(Z) LOAD LOAD ORDER«, t00=0x000b, t01=0x0180}
0x12c4…12e6 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8001 RETURN CODE«, t00=0x000c, t01=0x000e}
0x12e6…12fe Head {h00=0x0014, h01=0x0050, text=» RF FD:090 ENDIO«, t00=0x000c, t01=0x0030}
0x12fe…130c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0048}
0x130c…1316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0056}
0x1316…1328 Head {h00=0x000e, h01=0x0050, text=»* ORDER?«, t00=0x000c, t01=0x0060}
0x1328…1332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0072}
0x1332…1346 Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x000c, t01=0x007c}
0x1346…1350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0090}
0x1350…1362 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x000c, t01=0x009a}
0x1362…1384 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:070 TEST STATUS «, t00=0x000c, t01=0x00ac}
0x1384…1396 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000c, t01=0x00ce}
0x1396…13ba Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x000c, t01=0x00e0}
0x13ba…13cc Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000c, t01=0x0104}
0x13cc…13ee Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:010 BASIC WRITE «, t00=0x000c, t01=0x0116}
0x13ee…1400 Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x000c, t01=0x0138}
0x1400…1424 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x000c, t01=0x014a}
0x1424…1436 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000c, t01=0x016e}
0x1436…145a Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:020 PHYSICAL WRITE«, t00=0x000c, t01=0x0180}
0x145a…146c Head {h00=0x000e, h01=0x0050, text=» SUK A1,15«, t00=0x000d, t01=0x0014}
0x146c…1494 Head {h00=0x0024, h01=0x0050, text=» RF(Z) FD:030 WRITE DELETED DATA«, t00=0x000d, t01=0x0026}
0x1494…14a8 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/14 «, t00=0x000d, t01=0x004e}
0x14a8…14cc Head {h00=0x0020, h01=0x0050, text=» ABL(Z) UNLOAD UNLOAD ORDER «, t00=0x000d, t01=0x0062}
0x14cc…14de Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x000d, t01=0x0086}
0x14de…14f2 Head {h00=0x0010, h01=0x0050, text=» ADK A1,/36 «, t00=0x000d, t01=0x0098}
0x14f2…1518 Head {h00=0x0022, h01=0x0050, text=» ABL(Z) SQREAD SEQUENTIAL READ«, t00=0x000d, t01=0x00ac}
0x1518…152a Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000d, t01=0x00d2}
0x152a…1552 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) SQWRIT SEQUENTIAL WRITE «, t00=0x000d, t01=0x00e4}
0x1552…1566 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/2B «, t00=0x000d, t01=0x010c}
0x1566…1584 Head {h00=0x001a, h01=0x0050, text=» ABL(Z) REWIND REWIND «, t00=0x000d, t01=0x0120}
0x1584…1590 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x013e}
0x1590…15a8 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x000d, t01=0x014a}
0x15a8…15ba Head {h00=0x000e, h01=0x0050, text=» ADK A1,30«, t00=0x000d, t01=0x0162}
0x15ba…15da Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:050 SEARCH KEY«, t00=0x000d, t01=0x0174}
0x15da…15e6 (14, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0004}
0x15e6…15ee Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0010}
0x15ee…1602 Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x000e, t01=0x0018}
0x1602…1624 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x000e, t01=0x002c}
0x1624…1632 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x004e}
0x1632…163c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005c}
0x163c…1654 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x0066}
0x1654…166c Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000e, t01=0x007e}
0x166c…1684 Head {h00=0x0014, h01=0x0050, text=»* BASIC WRITE * «, t00=0x000e, t01=0x0096}
0x1684…169c Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000e, t01=0x00ae}
0x169c…16b4 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x00c6}
0x16b4…16be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00de}
0x16be…16d6 Head {h00=0x0014, h01=0x0050, text=»FD:010 CF A5,BIO«, t00=0x000e, t01=0x00e8}
0x16d6…16e8 Head {h00=0x000e, h01=0x0050, text=» ORK A2,1 «, t00=0x000e, t01=0x0100}
0x16e8…16fc Head {h00=0x0010, h01=0x0050, text=»FD:015 EQU *«, t00=0x000e, t01=0x0112}
0x16fc…1714 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x000e, t01=0x0126}
0x1714…172c Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x000e, t01=0x013e}
0x172c…1744 Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x000e, t01=0x0156}
0x1744…1762 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x000e, t01=0x016e}
0x1762…176e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x018c}
0x176e…1780 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x000f, t01=0x0008}
0x1780…17b0 Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x000f, t01=0x001a}
0x17b0…17c6 Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x000f, t01=0x004a}
0x17c6…17da Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x000f, t01=0x0060}
0x17da…17e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0074}
0x17e6…180c Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x000f, t01=0x0080}
0x180c…182a Head {h00=0x001a, h01=0x0050, text=» RF FD:048 GOTO FD:RC «, t00=0x000f, t01=0x00a6}
0x182a…1834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c4}
0x1834…184e Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000f, t01=0x00ce}
0x184e…1868 Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x000f, t01=0x00e8}
0x1868…1882 Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL WRITE *«, t00=0x000f, t01=0x0102}
0x1882…189c Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x000f, t01=0x011c}
0x189c…18b6 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000f, t01=0x0136}
0x18b6…18c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0150}
0x18c0…18d8 Head {h00=0x0014, h01=0x0050, text=»FD:020 CF A5,BIO«, t00=0x000f, t01=0x015a}
0x18d8…1900 Head {h00=0x0024, h01=0x0050, text=» ORK A2,5 INSERT BIO BITS 13-15 «, t00=0x000f, t01=0x0172}
0x1900…1912 Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x0010, t01=0x000a}
0x1912…1920 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x001c}
0x1920…192a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002a}
0x192a…1948 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0010, t01=0x0034}
0x1948…1966 Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x0052}
0x1966…1984 Head {h00=0x001a, h01=0x0050, text=»* WRITE DELETED DATA *«, t00=0x0010, t01=0x0070}
0x1984…19a2 Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x0010, t01=0x008e}
0x19a2…19c0 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0010, t01=0x00ac}
0x19c0…19ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ca}
0x19ca…19e2 Head {h00=0x0014, h01=0x0050, text=»FD:030 CF A5,BIO«, t00=0x0010, t01=0x00d4}
0x19e2…19f4 Head {h00=0x000e, h01=0x0050, text=» ORK A2,6 «, t00=0x0010, t01=0x00ec}
0x19f4…1a06 Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x0010, t01=0x00fe}
0x1a06…1a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0110}
0x1a10…1a2a Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0010, t01=0x011a}
0x1a2a…1a44 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0010, t01=0x0134}
0x1a44…1a5e Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x0010, t01=0x014e}
0x1a5e…1a78 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x0010, t01=0x0168}
0x1a78…1a92 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0010, t01=0x0182}
0x1a92…1a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x000c}
0x1a9c…1ab8 Head {h00=0x0018, h01=0x0050, text=»FD:040 CF A5,BIO:RE «, t00=0x0011, t01=0x0016}
0x1ab8…1ad0 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0011, t01=0x0032}
0x1ad0…1ae8 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x0011, t01=0x004a}
0x1ae8…1b00 Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x0011, t01=0x0062}
0x1b00…1b20 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:042 TOSS DISC «, t00=0x0011, t01=0x007a}
0x1b20…1b2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x009a}
0x1b2c…1b3e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0011, t01=0x00a6}
0x1b3e…1b52 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0011, t01=0x00b8}
0x1b52…1b66 Head {h00=0x0010, h01=0x0050, text=»FD:042 EQU *«, t00=0x0011, t01=0x00cc}
0x1b66…1b72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00e0}
0x1b72…1b9a Head {h00=0x0024, h01=0x0050, text=»FD:045 CF A5,FD:REA PERFORM READ«, t00=0x0011, t01=0x00ec}
0x1b9a…1bb2 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0011, t01=0x0114}
0x1bb2…1bca Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x0011, t01=0x012c}
0x1bca…1be2 Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x0011, t01=0x0144}
0x1be2…1c00 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:047 NOT IBM «, t00=0x0011, t01=0x015c}
0x1c00…1c0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x017a}
0x1c0c…1c1e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0011, t01=0x0186}
0x1c1e…1c3e Head {h00=0x001c, h01=0x0050, text=» LD A7,ECBRL,A8 REQ LEN «, t00=0x0012, t01=0x0008}
0x1c3e…1c6a Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS«, t00=0x0012, t01=0x0028}
0x1c6a…1c7e Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0012, t01=0x0054}
0x1c7e…1c92 Head {h00=0x0010, h01=0x0050, text=»FD:047 EQU *«, t00=0x0012, t01=0x0068}
0x1c92…1c9e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x007c}
0x1c9e…1cb2 Head {h00=0x0010, h01=0x0050, text=»FD:048 EQU *«, t00=0x0012, t01=0x0088}
0x1cb2…1cc4 Head {h00=0x000e, h01=0x0050, text=» ABL FD:RC«, t00=0x0012, t01=0x009c}
0x1cc4…1cd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00ae}
0x1cd2…1cea Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x0012, t01=0x00bc}
0x1cea…1cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d4}
0x1cf4…1d0a Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0012, t01=0x00de}
0x1d0a…1d20 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00f4}
0x1d20…1d36 Head {h00=0x0012, h01=0x0050, text=»* SEARCH KEY *«, t00=0x0012, t01=0x010a}
0x1d36…1d4c Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0120}
0x1d4c…1d62 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0012, t01=0x0136}
0x1d62…1d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014c}
0x1d6c…1d80 Head {h00=0x0010, h01=0x0050, text=»FD:050 EQU *«, t00=0x0012, t01=0x0156}
0x1d80…1da6 Head {h00=0x0022, h01=0x0050, text=» LD A4,10,A8 KEY AREA ADDRESS «, t00=0x0012, t01=0x016a}
0x1da6…1dca Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A4 KEY AREA LENGTH «, t00=0x0012, t01=0x0190}
0x1dca…1ddc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0013, t01=0x0024}
0x1ddc…1e02 Head {h00=0x0022, h01=0x0050, text=» ABL(NP) END:10 ILLEGAL LENGTH«, t00=0x0013, t01=0x0036}
0x1e02…1e16 Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0013, t01=0x005c}
0x1e16…1e3c Head {h00=0x0022, h01=0x0050, text=» ABL(P) END:10 ILLEGAL LENGTH «, t00=0x0013, t01=0x0070}
0x1e3c…1e4e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0013, t01=0x0096}
0x1e4e…1e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a8}
0x1e58…1e86 Head {h00=0x002a, h01=0x0050, text=»* IF ODD CHANGE TO EVEN NO OF BYTES «, t00=0x0013, t01=0x00b2}
0x1e86…1e90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e0}
0x1e90…1ea2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0013, t01=0x00ea}
0x1ea2…1eb4 Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0013, t01=0x00fc}
0x1eb4…1ec6 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0013, t01=0x010e}
0x1ec6…1ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0120}
0x1ed0…1ee2 Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0013, t01=0x012a}
0x1ee2…1ef8 Head {h00=0x0012, h01=0x0050, text=» ORK A2,7 BIO «, t00=0x0013, t01=0x013c}
0x1ef8…1f0a Head {h00=0x000e, h01=0x0050, text=» ADK A3,4 «, t00=0x0013, t01=0x0152}
0x1f0a…1f28 Head {h00=0x001a, h01=0x0050, text=» ADK A4,2 KEY ADDRESS «, t00=0x0013, t01=0x0164}
0x1f28…1f48 Head {h00=0x001c, h01=0x0050, text=» CF A5,FD:WRI SEARCH KEY«, t00=0x0013, t01=0x0182}
0x1f48…1f66 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 RETURN CODE«, t00=0x0014, t01=0x0012}
0x1f66…1f7c Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:048«, t00=0x0014, t01=0x0030}
0x1f7c…1f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0046}
0x1f86…1fae Head {h00=0x0024, h01=0x0050, text=»* READ RECORD WITH KEY COMMAND «, t00=0x0014, t01=0x0050}
0x1fae…1fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0078}
0x1fb8…1fcc Head {h00=0x0010, h01=0x0050, text=»FD:060 EQU *«, t00=0x0014, t01=0x0082}
0x1fcc…1fe6 Head {h00=0x0016, h01=0x0050, text=» LDKL A2,/8004 BIO«, t00=0x0014, t01=0x0096}
0x1fe6…200a Head {h00=0x0020, h01=0x0050, text=» LD A3,4,A8 REQUESTED LENGTH«, t00=0x0014, t01=0x00b0}
0x200a…201e Head {h00=0x0010, h01=0x0050, text=» CWK A3,130 «, t00=0x0014, t01=0x00d4}
0x201e…2044 Head {h00=0x0022, h01=0x0050, text=» ABL(NE) END:10 ILLEGAL LENGTH«, t00=0x0014, t01=0x00e8}
0x2044…2066 Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0014, t01=0x010e}
0x2066…2078 Head {h00=0x000e, h01=0x0050, text=» RB FD:045«, t00=0x0014, t01=0x0130}
0x2078…2084 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0142}
0x2084…208e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014e}
0x208e…20a6 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0014, t01=0x0158}
0x20a6…20be Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x0014, t01=0x0170}
0x20be…20d6 Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x0014, t01=0x0188}
0x20d6…20ee Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0010}
0x20ee…2106 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0015, t01=0x0028}
0x2106…2110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0040}
0x2110…2124 Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0015, t01=0x004a}
0x2124…2144 Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x0015, t01=0x005e}
0x2144…215a Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0015, t01=0x007e}
0x215a…2180 Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0201 WRITE PROTECT? «, t00=0x0015, t01=0x0094}
0x2180…2192 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0015, t01=0x00ba}
0x2192…21aa Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0015, t01=0x00cc}
0x21aa…21d8 Head {h00=0x002a, h01=0x0050, text=» CF A5,VOLADR GET VOL NAME ADDR IN A2 «, t00=0x0015, t01=0x00e4}
0x21d8…2206 Head {h00=0x002a, h01=0x0050, text=» ST A2,ECBCW,A8 STORE IN CONTROL WORD «, t00=0x0015, t01=0x0112}
0x2206…2212 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0140}
0x2212…2224 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0015, t01=0x014c}
0x2224…224c Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTLAB,A6 LABEL INDICATOR«, t00=0x0015, t01=0x015e}
0x224c…2264 Head {h00=0x0014, h01=0x0050, text=» AN A3,DWTA3,A6 «, t00=0x0015, t01=0x0186}
0x2264…2284 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:080 TOSS LABEL«, t00=0x0016, t01=0x000e}
0x2284…22a8 Head {h00=0x0020, h01=0x0050, text=» ORK A1,/20 SET BIT 10 (IBM)«, t00=0x0016, t01=0x002e}
0x22a8…22bc Head {h00=0x0010, h01=0x0050, text=»FD:080 EQU *«, t00=0x0016, t01=0x0052}
0x22bc…22c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0066}
0x22c8…22e2 Head {h00=0x0016, h01=0x0050, text=»FD:090 ABL END:IO «, t00=0x0016, t01=0x0072}
0x22e2…22f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x008c}
0x22f0…22fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x009a}
0x22fa…230a Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x00a4}
0x230a…231a Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0016, t01=0x00b4}
0x231a…232a Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0016, t01=0x00c4}
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…2354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00f4}
0x2354…2366 Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0016, t01=0x00fe}
0x2366…237e Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0016, t01=0x0110}
0x237e…2394 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0016, t01=0x0128}
0x2394…23a6 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0016, t01=0x013e}
0x23a6…23ca Head {h00=0x0020, h01=0x0050, text=» RF(NZ) LOA:80 NOT OPERABLE «, t00=0x0016, t01=0x0150}
0x23ca…23e2 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0016, t01=0x0174}
0x23e2…23ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x018c}
0x23ec…240e Head {h00=0x001e, h01=0x0050, text=»* CHECK IF TOSS/IBM LABEL«, t00=0x0017, t01=0x0008}
0x240e…2418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002a}
0x2418…242e Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0017, t01=0x0034}
0x242e…2442 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0017, t01=0x004a}
0x2442…2460 Head {h00=0x001a, h01=0x0050, text=» LDK A3,38 NO OF BYTES«, t00=0x0017, t01=0x005e}
0x2460…2476 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0017, t01=0x007c}
0x2476…248a Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0017, t01=0x0092}
0x248a…249c Head {h00=0x000e, h01=0x0050, text=» ADK A4,34«, t00=0x0017, t01=0x00a6}
0x249c…24b0 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0017, t01=0x00b8}
0x24b0…24c4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0017, t01=0x00cc}
0x24c4…24f0 Head {h00=0x0028, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL PREASSUMED «, t00=0x0017, t01=0x00e0}
0x24f0…2502 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0017, t01=0x010c}
0x2502…2516 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0017, t01=0x011e}
0x2516…252a Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0017, t01=0x0132}
0x252a…254a Head {h00=0x001c, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL«, t00=0x0017, t01=0x0146}
0x254a…2556 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0166}
0x2556…256a Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=1 «, t00=0x0017, t01=0x0172}
0x256a…2574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0186}
0x2574…2590 Head {h00=0x0018, h01=0x0050, text=»* READ VOLUME NAME «, t00=0x0017, t01=0x0190}
0x2590…259a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001c}
0x259a…25b2 Head {h00=0x0014, h01=0x0050, text=» LDK A3,8 LENGTH«, t00=0x0018, t01=0x0026}
0x25b2…25c8 Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0018, t01=0x003e}
0x25c8…25f6 Head {h00=0x002a, h01=0x0050, text=» C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK«, t00=0x0018, t01=0x0054}
0x25f6…2624 Head {h00=0x002a, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0018, t01=0x0082}
0x2624…2636 Head {h00=0x000e, h01=0x0050, text=» RF LOA:15«, t00=0x0018, t01=0x00b0}
0x2636…2642 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00c2}
0x2642…2654 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0018, t01=0x00ce}
0x2654…2674 Head {h00=0x001c, h01=0x0050, text=»LOA:10 LDK A3,10 LENGTH «, t00=0x0018, t01=0x00e0}
0x2674…268c Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0018, t01=0x0100}
0x268c…26b6 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x0018, t01=0x0118}
0x26b6…26e2 Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM DISC «, t00=0x0018, t01=0x0142}
0x26e2…2708 Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 RETURN CODE BIT 10«, t00=0x0018, t01=0x016e}
0x2708…2722 (25, 0, 400) Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0019, t01=0x0004}
0x2722…272e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x001e}
0x272e…2746 Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0019, t01=0x002a}
0x2746…275a Head {h00=0x0010, h01=0x0050, text=»LOA:15 EQU *«, t00=0x0019, t01=0x0042}
0x275a…277e Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0019, t01=0x0056}
0x277e…2794 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0019, t01=0x007a}
0x2794…27a8 Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0019, t01=0x0090}
0x27a8…27ba Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0019, t01=0x00a4}
0x27ba…27c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00b6}
0x27c6…27d8 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0019, t01=0x00c2}
0x27d8…27f0 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTRCW,A6«, t00=0x0019, t01=0x00d4}
0x27f0…2818 Head {h00=0x0024, h01=0x0050, text=» ANK A7,/20 CHECK TYPE OF LABEL «, t00=0x0019, t01=0x00ec}
0x2818…2838 Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:30 TOSS LABEL«, t00=0x0019, t01=0x0114}
0x2838…2856 Head {h00=0x001a, h01=0x0050, text=» LDK A7,10 NO OF CHAR.«, t00=0x0019, t01=0x0134}
0x2856…286a Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0019, t01=0x0152}
0x286a…287c Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0019, t01=0x0166}
0x287c…2890 Head {h00=0x0010, h01=0x0050, text=»LOA:30 EQU *«, t00=0x0019, t01=0x0178}
0x2890…289c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x018c}
0x289c…28b4 Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x001a, t01=0x0008}
0x28b4…28be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0020}
0x28be…28e2 Head {h00=0x0020, h01=0x0050, text=»* GET DWT VOL NAME ADDRESS «, t00=0x001a, t01=0x002a}
0x28e2…28ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x004e}
0x28ec…2910 Head {h00=0x0020, h01=0x0050, text=» CF A5,VOLADR ADDRESS TO A2 «, t00=0x001a, t01=0x0058}
0x2910…291a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x007c}
0x291a…2936 Head {h00=0x0018, h01=0x0050, text=»* STORE NAME IN DWT«, t00=0x001a, t01=0x0086}
0x2936…2940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00a2}
0x2940…2952 Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x001a, t01=0x00ac}
0x2952…296e Head {h00=0x0018, h01=0x0050, text=»LOA:40 LD A4,BUF,A1 «, t00=0x001a, t01=0x00be}
0x296e…2980 Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x001a, t01=0x00da}
0x2980…2992 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001a, t01=0x00ec}
0x2992…29a8 Head {h00=0x0012, h01=0x0050, text=» RF(Z) LOA:50 «, t00=0x001a, t01=0x00fe}
0x29a8…29ba Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x001a, t01=0x0114}
0x29ba…29cc Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x001a, t01=0x0126}
0x29cc…29de Head {h00=0x000e, h01=0x0050, text=» RB LOA:40«, t00=0x001a, t01=0x0138}
0x29de…29f2 Head {h00=0x0010, h01=0x0050, text=»LOA:50 EQU *«, t00=0x001a, t01=0x014a}
0x29f2…29fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x015e}
0x29fe…2a10 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001a, t01=0x016a}
0x2a10…2a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017c}
0x2a1a…2a3c Head {h00=0x001e, h01=0x0050, text=»* DATA SET OPENING WANTED?«, t00=0x001a, t01=0x0186}
0x2a3c…2a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0018}
0x2a46…2a6c Head {h00=0x0022, h01=0x0050, text=» ANK A1,/2 A1: TOSS=6, IBM=8 «, t00=0x001b, t01=0x0022}
0x2a6c…2a8e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LOA:70 TOSS LABEL «, t00=0x001b, t01=0x0048}
0x2a8e…2aae Head {h00=0x001c, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER «, t00=0x001b, t01=0x006a}
0x2aae…2ac4 Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2600 «, t00=0x001b, t01=0x008a}
0x2ac4…2ae4 Head {h00=0x001c, h01=0x0050, text=» RF(E) LOA:70 LOCK ORDER«, t00=0x001b, t01=0x00a0}
0x2ae4…2aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c0}
0x2aee…2b0c Head {h00=0x001a, h01=0x0050, text=»* READ DATA SET LABEL«, t00=0x001b, t01=0x00ca}
0x2b0c…2b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e8}
0x2b16…2b38 Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW,A8 SECTOR NO «, t00=0x001b, t01=0x00f2}
0x2b38…2b4a Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x001b, t01=0x0114}
0x2b4a…2b6e Head {h00=0x0020, h01=0x0050, text=» ABL(N) FD:DIS REQUEST ERROR«, t00=0x001b, t01=0x0126}
0x2b6e…2b80 Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x001b, t01=0x014a}
0x2b80…2ba4 Head {h00=0x0020, h01=0x0050, text=» ABL(P) FD:DIS REQUEST ERROR«, t00=0x001b, t01=0x015c}
0x2ba4…2bb6 Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x001b, t01=0x0180}
0x2bb6…2bcc (28, 0, 400) Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x001c, t01=0x0004}
0x2bcc…2be6 Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x001c, t01=0x001a}
0x2be6…2bfa Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x001c, t01=0x0034}
0x2bfa…2c10 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x001c, t01=0x0048}
0x2c10…2c2e Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 RETURN CODE«, t00=0x001c, t01=0x005e}
0x2c2e…2c52 Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x001c, t01=0x007c}
0x2c52…2c74 Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x001c, t01=0x00a0}
0x2c74…2caa Head {h00=0x0032, h01=0x0050, text=» ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL«, t00=0x001c, t01=0x00c2}
0x2caa…2cbe Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x001c, t01=0x00f8}
0x2cbe…2cd2 Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x001c, t01=0x010c}
0x2cd2…2cde Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x001c, t01=0x0120}
0x2cde…2d0c Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBCW,A8 DATA SET LABEL SECTOR «, t00=0x001c, t01=0x012c}
0x2d0c…2d22 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x001c, t01=0x015a}
0x2d22…2d42 Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x001c, t01=0x0170}
0x2d42…2d62 Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x001c, t01=0x0190}
0x2d62…2d94 Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x001d, t01=0x0020}
0x2d94…2daa Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x001d, t01=0x0052}
0x2daa…2dd2 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x001d, t01=0x0068}
0x2dd2…2de8 Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x001d, t01=0x0090}
0x2de8…2dfe Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x001d, t01=0x00a6}
0x2dfe…2e12 Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x001d, t01=0x00bc}
0x2e12…2e36 Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x001d, t01=0x00d0}
0x2e36…2e4c Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x001d, t01=0x00f4}
0x2e4c…2e62 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x001d, t01=0x010a}
0x2e62…2e8a Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x001d, t01=0x0120}
0x2e8a…2eae Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x001d, t01=0x0148}
0x2eae…2ec4 Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x001d, t01=0x016c}
0x2ec4…2ee2 Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x001d, t01=0x0182}
0x2ee2…2ef8 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x001e, t01=0x0010}
0x2ef8…2f20 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x001e, t01=0x0026}
0x2f20…2f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x004e}
0x2f2a…2f3e Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x001e, t01=0x0058}
0x2f3e…2f4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x006c}
0x2f4a…2f62 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x001e, t01=0x0078}
0x2f62…2f88 Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x001e, t01=0x0090}
0x2f88…2fb2 Head {h00=0x0026, h01=0x0050, text=»LOA:75 LD A3,DWTRCW,A6 RETURN CODE«, t00=0x001e, t01=0x00b6}
0x2fb2…2fca Head {h00=0x0014, h01=0x0050, text=»LOA:80 ABL FD:RC«, t00=0x001e, t01=0x00e0}
0x2fca…2fe2 Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x001e, t01=0x00f8}
0x2fe2…2fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0110}
0x2fec…3006 Head {h00=0x0016, h01=0x0050, text=»* ERROR , UNLOCK «, t00=0x001e, t01=0x011a}
0x3006…3010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0134}
0x3010…3024 Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x001e, t01=0x013e}
0x3024…3036 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x001e, t01=0x0152}
0x3036…3058 Head {h00=0x001e, h01=0x0050, text=» ADK A5,DWTSB2 STACK BASE «, t00=0x001e, t01=0x0164}
0x3058…3072 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x001e, t01=0x0186}
0x3072…3088 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x001f, t01=0x0010}
0x3088…309a Head {h00=0x000e, h01=0x0050, text=» RB LOA:75«, t00=0x001f, t01=0x0026}
0x309a…30a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0038}
0x30a4…30e2 Head {h00=0x003a, h01=0x0050, text=»*---------------------------------------------------- «, t00=0x001f, t01=0x0042}
0x30e2…3100 Head {h00=0x001a, h01=0x0050, text=»* LD:RC SUBROUTINE «, t00=0x001f, t01=0x0080}
0x3100…310a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x009e}
0x310a…3128 Head {h00=0x001a, h01=0x0050, text=»LD:RC ORS A3,DWTRCW,A6«, t00=0x001f, t01=0x00a8}
0x3128…314a Head {h00=0x001e, h01=0x0050, text=» ANKL A3,/2007 FATAL ERROR«, t00=0x001f, t01=0x00c6}
0x314a…3160 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x001f, t01=0x00e8}
0x3160…318a Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x001f, t01=0x00fe}
0x318a…319a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x001f, t01=0x0128}
0x319a…31a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0138}
0x31a6…31b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0144}
0x31b4…31be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0152}
0x31be…31d0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001f, t01=0x015c}
0x31d0…31e2 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x001f, t01=0x016e}
0x31e2…31f4 Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x001f, t01=0x0180}
0x31f4…3206 (32, 0, 400) Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0004}
0x3206…3218 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0020, t01=0x0016}
0x3218…3222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0028}
0x3222…3236 Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0020, t01=0x0032}
0x3236…3248 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0020, t01=0x0046}
0x3248…3252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0058}
0x3252…326e Head {h00=0x0018, h01=0x0050, text=»* DATA SET OPEN? «, t00=0x0020, t01=0x0062}
0x326e…3278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x007e}
0x3278…329a Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0020, t01=0x0088}
0x329a…32b0 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0020, t01=0x00aa}
0x32b0…32ce Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0020, t01=0x00c0}
0x32ce…330a Head {h00=0x0038, h01=0x0050, text=» ST A7,ECBCW,A8 STORE EOD-NO IN CONTROL WORD OF ECB «, t00=0x0020, t01=0x00de}
0x330a…3314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x011a}
0x3314…3344 Head {h00=0x002c, h01=0x0050, text=»* READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0020, t01=0x0124}
0x3344…334e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0154}
0x334e…3372 Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0020, t01=0x015e}
0x3372…339c Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0020, t01=0x0182}
0x339c…33c4 Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0021, t01=0x001c}
0x33c4…33d0 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0021, t01=0x0044}
0x33d0…33da Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0021, t01=0x0050}
0x33da…3402 Head {h00=0x0024, h01=0x0050, text=»*------------------------------ «, t00=0x0021, t01=0x005a}
0x3402…3442 Head {h00=0x003c, h01=0x0050, text=»* TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0021, t01=0x0082}
0x3442…344c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00c2}
0x344c…346e Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0021, t01=0x00cc}
0x346e…3478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ee}
0x3478…3494 Head {h00=0x0018, h01=0x0050, text=»* DIVIDE EOD BY 26 «, t00=0x0021, t01=0x00f8}
0x3494…349e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0114}
0x349e…34b0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0021, t01=0x011e}
0x34b0…34c8 Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0021, t01=0x0130}
0x34c8…34de Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0021, t01=0x0148}
0x34de…34f0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0021, t01=0x015e}
0x34f0…3502 Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0021, t01=0x0170}
0x3502…351a Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0021, t01=0x0182}
0x351a…3524 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x000a}
0x3524…3544 Head {h00=0x001c, h01=0x0050, text=»* A1 = BINARY TRACK NO«, t00=0x0022, t01=0x0014}
0x3544…3572 Head {h00=0x002a, h01=0x0050, text=»* A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0022, t01=0x0034}
0x3572…357c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0062}
0x357c…35a8 Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0022, t01=0x006c}
0x35a8…35d4 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0022, t01=0x0098}
0x35d4…35e6 Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0022, t01=0x00c4}
0x35e6…35f8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0022, t01=0x00d6}
0x35f8…3614 Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0022, t01=0x00e8}
0x3614…3636 Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0022, t01=0x0104}
0x3636…364e Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x0022, t01=0x0126}
0x364e…367a Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x0022, t01=0x013e}
0x367a…368c Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0022, t01=0x016a}
0x368c…36ae Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x0022, t01=0x017c}
0x36ae…36cc Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x0023, t01=0x000e}
0x36cc…36d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x002c}
0x36d6…36f6 Head {h00=0x001c, h01=0x0050, text=»* WRITE DATA SET LABEL «, t00=0x0023, t01=0x0036}
0x36f6…3700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0056}
0x3700…3724 Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0023, t01=0x0060}
0x3724…3744 Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x0023, t01=0x0084}
0x3744…3770 Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x0023, t01=0x00a4}
0x3770…3798 Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x0023, t01=0x00d0}
0x3798…37ae Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0023, t01=0x00f8}
0x37ae…37d0 Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x0023, t01=0x010e}
0x37d0…37da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0130}
0x37da…37ee Head {h00=0x0010, h01=0x0050, text=»* UNLOCK «, t00=0x0023, t01=0x013a}
0x37ee…37f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x014e}
0x37f8…3804 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0158}
0x3804…3818 Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x0023, t01=0x0164}
0x3818…3832 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0023, t01=0x0178}
0x3832…3848 (36, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0024, t01=0x0004}
0x3848…3862 Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0024, t01=0x001a}
0x3862…3874 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0024, t01=0x0034}
0x3874…38a4 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED«, t00=0x0024, t01=0x0046}
0x38a4…38c6 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 INDEX MASK«, t00=0x0024, t01=0x0076}
0x38c6…38f6 Head {h00=0x002c, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x0024, t01=0x0098}
0x38f6…390a Head {h00=0x0010, h01=0x0050, text=»UNL:80 EQU *«, t00=0x0024, t01=0x00c8}
0x390a…3924 Head {h00=0x0016, h01=0x0050, text=» RB LOA:75 END:IO «, t00=0x0024, t01=0x00dc}
0x3924…393c Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0024, t01=0x00f6}
0x393c…3946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x010e}
0x3946…396a Head {h00=0x0020, h01=0x0050, text=»* UNLOAD RETURN CODE CHECK«, t00=0x0024, t01=0x0118}
0x396a…3974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x013c}
0x3974…3994 Head {h00=0x001c, h01=0x0050, text=»UNL:RC ORS A3,DWTRCW,A6 «, t00=0x0024, t01=0x0146}
0x3994…39b4 Head {h00=0x001c, h01=0x0050, text=» ANK A3,/7 FATAL ERROR? «, t00=0x0024, t01=0x0166}
0x39b4…39d0 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) UNL:80 ENDIO«, t00=0x0024, t01=0x0186}
0x39d0…39e0 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0025, t01=0x0012}
0x39e0…39ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0022}
0x39ec…39fe Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0025, t01=0x002e}
0x39fe…3a0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0040}
0x3a0c…3a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x004e}
0x3a16…3a32 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0025, t01=0x0058}
0x3a32…3a4e Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x0025, t01=0x0074}
0x3a4e…3a6a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0025, t01=0x0090}
0x3a6a…3a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ac}
0x3a74…3a88 Head {h00=0x0010, h01=0x0050, text=»SQREAD EQU *«, t00=0x0025, t01=0x00b6}
0x3a88…3ab6 Head {h00=0x002a, h01=0x0050, text=» CF A5,DSOPCH GET EOD AND EOD ADDRESS «, t00=0x0025, t01=0x00ca}
0x3ab6…3acc Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0025, t01=0x00f8}
0x3acc…3af2 Head {h00=0x0022, h01=0x0050, text=»SQR:05 ABL(Z) DISIOE NOT OPEN «, t00=0x0025, t01=0x010e}
0x3af2…3b24 Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x0025, t01=0x0134}
0x3b24…3b3c Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x0025, t01=0x0166}
0x3b3c…3b54 Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0025, t01=0x017e}
0x3b54…3b7e Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBCW,A8 STORE CRN+1 IN ECB«, t00=0x0026, t01=0x0008}
0x3b7e…3b90 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0026, t01=0x0032}
0x3b90…3bb2 Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x0026, t01=0x0044}
0x3bb2…3bc8 Head {h00=0x0012, h01=0x0050, text=» CF A5,BIO:RE «, t00=0x0026, t01=0x0066}
0x3bc8…3bec Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0026, t01=0x007c}
0x3bec…3c22 Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0026, t01=0x00a0}
0x3c22…3c4e Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0026, t01=0x00d6}
0x3c4e…3c76 Head {h00=0x0024, h01=0x0050, text=» LD A7,ECBRL,A8 REQUESTED LENGTH«, t00=0x0026, t01=0x0102}
0x3c76…3c9e Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0026, t01=0x012a}
0x3c9e…3cb4 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0026, t01=0x0152}
0x3cb4…3cc8 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0026, t01=0x0168}
0x3cc8…3ce6 Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x0026, t01=0x017c}
0x3ce6…3cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x000a}
0x3cf0…3d08 Head {h00=0x0014, h01=0x0050, text=»* END OF DATA«, t00=0x0027, t01=0x0014}
0x3d08…3d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x002c}
0x3d12…3d3a Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x0027, t01=0x0036}
0x3d3a…3d4c Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0027, t01=0x005e}
0x3d4c…3d5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0070}
0x3d5a…3d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x007e}
0x3d64…3d80 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0027, t01=0x0088}
0x3d80…3d9c Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x0027, t01=0x00a4}
0x3d9c…3db8 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0027, t01=0x00c0}
0x3db8…3dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00dc}
0x3dc2…3dd6 Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x0027, t01=0x00e6}
0x3dd6…3df4 Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x0027, t01=0x00fa}
0x3df4…3e0e Head {h00=0x0016, h01=0x0050, text=» LDR A7,A7 EOD-NO «, t00=0x0027, t01=0x0118}
0x3e0e…3e2c Head {h00=0x001a, h01=0x0050, text=» RB(Z) SQR:05 NOT OPEN«, t00=0x0027, t01=0x0132}
0x3e2c…3e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0150}
0x3e36…3e58 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF END OF EXTENT«, t00=0x0027, t01=0x015a}
0x3e58…3e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x017c}
0x3e62…3e78 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x0027, t01=0x0186}
0x3e78…3ea2 Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x0028, t01=0x000c}
0x3ea2…3ed0 Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 STORE EOD IN ECB C. W.«, t00=0x0028, t01=0x0036}
0x3ed0…3ee4 Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x0028, t01=0x0064}
0x3ee4…3f02 Head {h00=0x001a, h01=0x0050, text=» RF(G) SQW:20 YES,EOE «, t00=0x0028, t01=0x0078}
0x3f02…3f14 Head {h00=0x000e, h01=0x0050, text=» CF A5,BIO«, t00=0x0028, t01=0x0096}
0x3f14…3f28 Head {h00=0x0010, h01=0x0050, text=» LDK A7,128 «, t00=0x0028, t01=0x00a8}
0x3f28…3f58 Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x0028, t01=0x00bc}
0x3f58…3f76 Head {h00=0x001a, h01=0x0050, text=» ORK A2,5 PHYS. WRITE «, t00=0x0028, t01=0x00ec}
0x3f76…3f8c Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0028, t01=0x010a}
0x3f8c…3fa2 Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0028, t01=0x0120}
0x3fa2…3fc6 Head {h00=0x0020, h01=0x0050, text=»SQW:10 LDR A1,A3 RETURN CODE«, t00=0x0028, t01=0x0136}
0x3fc6…3fd8 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/1«, t00=0x0028, t01=0x015a}
0x3fd8…3ffc Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SQW:15 NOT OPERABLE «, t00=0x0028, t01=0x016c}
0x3ffc…402a Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x0028, t01=0x0190}
0x402a…4042 Head {h00=0x0014, h01=0x0050, text=»SQW:15 RF FD:RC «, t00=0x0029, t01=0x002e}
0x4042…404c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0046}
0x404c…4056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0050}
0x4056…406e Head {h00=0x0014, h01=0x0050, text=»* END OF EXTENT«, t00=0x0029, t01=0x005a}
0x406e…4096 Head {h00=0x0024, h01=0x0050, text=»SQW:20 LDKL A1,/400 RETURN CODE «, t00=0x0029, t01=0x0072}
0x4096…40a8 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0029, t01=0x009a}
0x40a8…40b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00ac}
0x40b6…40c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ba}
0x40c0…40d2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x00c4}
0x40d2…40e4 Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x0029, t01=0x00d6}
0x40e4…40f6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x00e8}
0x40f6…4100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00fa}
0x4100…4114 Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x0029, t01=0x0104}
0x4114…412a Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0029, t01=0x0118}
0x412a…4140 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0029, t01=0x012e}
0x4140…4168 Head {h00=0x0024, h01=0x0050, text=» RB(Z) SQR:05 DATA SET NOT OPEN «, t00=0x0029, t01=0x0144}
0x4168…418c Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x0029, t01=0x016c}
0x418c…41a2 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x0029, t01=0x0190}
0x41a2…41b6 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x002a, t01=0x0016}
0x41b6…41ce Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x002a, t01=0x002a}
0x41ce…41ea Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x002a, t01=0x0042}
0x41ea…4200 Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x002a, t01=0x005e}
0x4200…4214 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x002a, t01=0x0074}
0x4214…422e Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x002a, t01=0x0088}
0x422e…424e Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x002a, t01=0x00a2}
0x424e…426c Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x002a, t01=0x00c2}
0x426c…427e Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x002a, t01=0x00e0}
0x427e…428a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00f2}
0x428a…4298 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00fe}
0x4298…42a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x010c}
0x42a2…42bc Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x002a, t01=0x0116}
0x42bc…42d6 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x002a, t01=0x0130}
0x42d6…42f0 Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x002a, t01=0x014a}
0x42f0…430a Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x002a, t01=0x0164}
0x430a…4324 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x002a, t01=0x017e}
0x4324…432e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0008}
0x432e…4338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0012}
0x4338…435c Head {h00=0x0020, h01=0x0050, text=»* INPUT: A2 BIO CONTENTS «, t00=0x002b, t01=0x001c}
0x435c…4390 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x002b, t01=0x0040}
0x4390…43b6 Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x002b, t01=0x0074}
0x43b6…43c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x009a}
0x43c0…43d4 Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x002b, t01=0x00a4}
0x43d4…43e8 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002b, t01=0x00b8}
0x43e8…440a Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x002b, t01=0x00cc}
0x440a…4416 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00ee}
0x4416…442a Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x002b, t01=0x00fa}
0x442a…4456 Head {h00=0x0028, h01=0x0050, text=» CM DWTRW,A6 INDICATOR TO WRITE MODE«, t00=0x002b, t01=0x010e}
0x4456…4462 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x013a}
0x4462…4474 Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x002b, t01=0x0146}
0x4474…447e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0158}
0x447e…4492 Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x002b, t01=0x0162}
0x4492…44a6 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x002b, t01=0x0176}
0x44a6…44b8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x002b, t01=0x018a}
0x44b8…44da Head {h00=0x001e, h01=0x0050, text=» ST A1,DWTRW,A6 READ MODE «, t00=0x002c, t01=0x000c}
0x44da…44e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x002e}
0x44e6…44fa Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002c, t01=0x003a}
0x44fa…451c Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS READ«, t00=0x002c, t01=0x004e}
0x451c…4528 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0070}
0x4528…453c Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x002c, t01=0x007c}
0x453c…4550 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002c, t01=0x0090}
0x4550…4576 Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x002c, t01=0x00a4}
0x4576…4588 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x002c, t01=0x00ca}
0x4588…45ac Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x002c, t01=0x00dc}
0x45ac…45d4 Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x002c, t01=0x0100}
0x45d4…45e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0128}
0x45e0…45f4 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x002c, t01=0x0134}
0x45f4…45fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0148}
0x45fe…4630 Head {h00=0x002e, h01=0x0050, text=»* PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x002c, t01=0x0152}
0x4630…463a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0184}
0x463a…4652 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x002c, t01=0x018e}
0x4652…4664 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x002d, t01=0x0016}
0x4664…468a Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x002d, t01=0x0028}
0x468a…4696 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x004e}
0x4696…46aa Head {h00=0x0010, h01=0x0050, text=»FD:820 EQU *«, t00=0x002d, t01=0x005a}
0x46aa…46d4 Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x002d, t01=0x006e}
0x46d4…46fc Head {h00=0x0024, h01=0x0050, text=»FD:CIO CIO A2,1,CUADR CIO-START «, t00=0x002d, t01=0x0098}
0x46fc…4728 Head {h00=0x0028, h01=0x0050, text=» RF(3) FD:840 DEVICE ADDRESS UNKNOWN«, t00=0x002d, t01=0x00c0}
0x4728…473a Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x002d, t01=0x00ec}
0x473a…475e Head {h00=0x0020, h01=0x0050, text=»FD:840 LDK A1,1 NOT OPERABLE«, t00=0x002d, t01=0x00fe}
0x475e…4770 Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x002d, t01=0x0122}
0x4770…477e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0134}
0x477e…4788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0142}
0x4788…47b6 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002d, t01=0x014c}
0x47b6…47e4 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x002d, t01=0x017a}
0x47e4…4812 Head {h00=0x002a, h01=0x0050, text=»* FD:RC - STORE EFF LEN, END:IO *«, t00=0x002e, t01=0x0018}
0x4812…4840 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x002e, t01=0x0046}
0x4840…486e Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002e, t01=0x0074}
0x486e…4878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a2}
0x4878…489a Head {h00=0x001e, h01=0x0050, text=»* INPUT: A3 RETURN CODE«, t00=0x002e, t01=0x00ac}
0x489a…48a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ce}
0x48a4…48b8 Head {h00=0x0010, h01=0x0050, text=»FD:RC EQU * «, t00=0x002e, t01=0x00d8}
0x48b8…48ca Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x002e, t01=0x00ec}
0x48ca…48d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00fe}
0x48d4…48fa Head {h00=0x0022, h01=0x0050, text=»* PUT EFFECTIVE LENGTH IN ECB«, t00=0x002e, t01=0x0108}
0x48fa…4904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012e}
0x4904…4926 Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBRL,A8 REQ LENGTH«, t00=0x002e, t01=0x0138}
0x4926…4948 Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBEL,A8 EFF LENGTH«, t00=0x002e, t01=0x015a}
0x4948…4952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x017c}
0x4952…4964 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002e, t01=0x0186}
0x4964…4976 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x002f, t01=0x0008}
0x4976…4988 Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x002f, t01=0x001a}
0x4988…499a Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x002f, t01=0x002c}
0x499a…49ac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x003e}
0x49ac…49b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0050}
0x49b6…49ca Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x002f, t01=0x005a}
0x49ca…49e0 Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x002f, t01=0x006e}
0x49e0…49f8 Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x002f, t01=0x0084}
0x49f8…4a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x009c}
0x4a02…4a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a6}
0x4a0c…4a32 Head {h00=0x0022, h01=0x0050, text=»* ENTRY FROM RECOVERY ROUTINE«, t00=0x002f, t01=0x00b0}
0x4a32…4a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00d6}
0x4a3c…4a70 Head {h00=0x0030, h01=0x0050, text=»END:05 CM DWTECB,A6 RESET ECB ADDRESS IN DWT«, t00=0x002f, t01=0x00e0}
0x4a70…4a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0114}
0x4a7a…4a94 Head {h00=0x0016, h01=0x0050, text=»* ILLEGAL LENGTH «, t00=0x002f, t01=0x011e}
0x4a94…4a9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0138}
0x4a9e…4ac6 Head {h00=0x0024, h01=0x0050, text=»END:10 LDKL A1,/8008 RETURN CODE«, t00=0x002f, t01=0x0142}
0x4ac6…4ad8 Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x002f, t01=0x016a}
0x4ad8…4ae6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x017c}
0x4ae6…4af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x018a}
0x4af0…4b0c (48, 0, 400) Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0030, t01=0x0004}
0x4b0c…4b28 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0030, t01=0x0020}
0x4b28…4b44 Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0030, t01=0x003c}
0x4b44…4b60 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0030, t01=0x0058}
0x4b60…4b7c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0030, t01=0x0074}
0x4b7c…4b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0090}
0x4b86…4b96 Head {h00=0x000c, h01=0x0050, text=»FDON INH«, t00=0x0030, t01=0x009a}
0x4b96…4bac Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0030, t01=0x00aa}
0x4bac…4bd0 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0030, t01=0x00c0}
0x4bd0…4be2 Head {h00=0x000e, h01=0x0050, text=» IFT INI=1«, t00=0x0030, t01=0x00e4}
0x4be2…4bf8 Head {h00=0x0012, h01=0x0050, text=» LD A1,INIFLG «, t00=0x0030, t01=0x00f6}
0x4bf8…4c16 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FDON05 POWER UP«, t00=0x0030, t01=0x010c}
0x4c16…4c2a Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0030, t01=0x012a}
0x4c2a…4c42 Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTST2,A6«, t00=0x0030, t01=0x013e}
0x4c42…4c6a Head {h00=0x0024, h01=0x0050, text=» CM DWTLC,A6 INDICATE NOT LOCKED«, t00=0x0030, t01=0x0156}
0x4c6a…4c90 Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0030, t01=0x017e}
0x4c90…4c9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0014}
0x4c9c…4cb2 Head {h00=0x0012, h01=0x0050, text=» IFT IBM+INI=2«, t00=0x0031, t01=0x0020}
0x4cb2…4cc4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0031, t01=0x0036}
0x4cc4…4cda Head {h00=0x0012, h01=0x0050, text=» ADK A1,DWTEOD«, t00=0x0031, t01=0x0048}
0x4cda…4cec Head {h00=0x000e, h01=0x0050, text=» LDK A2,4 «, t00=0x0031, t01=0x005e}
0x4cec…4d00 Head {h00=0x0010, h01=0x0050, text=»FDON02 EQU *«, t00=0x0031, t01=0x0070}
0x4d00…4d1e Head {h00=0x001a, h01=0x0050, text=» CMR A1 CLOSE DATA SET«, t00=0x0031, t01=0x0084}
0x4d1e…4d30 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0031, t01=0x00a2}
0x4d30…4d42 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0031, t01=0x00b4}
0x4d42…4d58 Head {h00=0x0012, h01=0x0050, text=» RB(P) FDON02 «, t00=0x0031, t01=0x00c6}
0x4d58…4d64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00dc}
0x4d64…4d78 Head {h00=0x0010, h01=0x0050, text=»FDON05 EQU *«, t00=0x0031, t01=0x00e8}
0x4d78…4d9a Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0031, t01=0x00fc}
0x4d9a…4db0 Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB2«, t00=0x0031, t01=0x011e}
0x4db0…4dce Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0031, t01=0x0134}
0x4dce…4dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0152}
0x4dd8…4e0c Head {h00=0x0030, h01=0x0050, text=»* SAVE DWTST TO DWTST2 IF NOT ALREADY DONE.«, t00=0x0031, t01=0x015c}
0x4e0c…4e2a Head {h00=0x001a, h01=0x0050, text=»* DWTST IS SET BUSY«, t00=0x0031, t01=0x0190}
0x4e2a…4e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x001e}
0x4e34…4e4c Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST2,A6«, t00=0x0032, t01=0x0028}
0x4e4c…4e5e Head {h00=0x000e, h01=0x0050, text=» CWK A2,-1«, t00=0x0032, t01=0x0040}
0x4e5e…4e82 Head {h00=0x0020, h01=0x0050, text=» RF(NE) FDON08 ALREADY SAVED«, t00=0x0032, t01=0x0052}
0x4e82…4e9a Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0032, t01=0x0076}
0x4e9a…4eb2 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST2,A6«, t00=0x0032, t01=0x008e}
0x4eb2…4ed6 Head {h00=0x0020, h01=0x0050, text=»FDON08 CM DWTST,A6 SET BUSY «, t00=0x0032, t01=0x00a6}
0x4ed6…4ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ca}
0x4ee0…4ef6 Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0032, t01=0x00d4}
0x4ef6…4f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ea}
0x4f00…4f18 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0032, t01=0x00f4}
0x4f18…4f3a Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0032, t01=0x010c}
0x4f3a…4f50 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0032, t01=0x012e}
0x4f50…4f76 Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0032, t01=0x0144}
0x4f76…4f88 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0032, t01=0x016a}
0x4f88…4fa4 Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x0032, t01=0x017c}
0x4fa4…4fb6 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0033, t01=0x0008}
0x4fb6…4fd0 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x0033, t01=0x001a}
0x4fd0…4fe6 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0033, t01=0x0034}
0x4fe6…5000 Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x0033, t01=0x004a}
0x5000…5012 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0033, t01=0x0064}
0x5012…501c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0076}
0x501c…5038 Head {h00=0x0018, h01=0x0050, text=»* TIME OUT ROUTINE«, t00=0x0033, t01=0x0080}
0x5038…5042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x009c}
0x5042…505a Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x0033, t01=0x00a6}
0x505a…506e Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0033, t01=0x00be}
0x506e…5084 Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB2«, t00=0x0033, t01=0x00d2}
0x5084…50a2 Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0033, t01=0x00e8}
0x50a2…50ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0106}
0x50ac…50c2 Head {h00=0x0012, h01=0x0050, text=»* LOCK DOORS «, t00=0x0033, t01=0x0110}
0x50c2…50cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0126}
0x50cc…50de Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0033, t01=0x0130}
0x50de…50f2 Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0033, t01=0x0142}
0x50f2…5118 Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x0033, t01=0x0156}
0x5118…512a Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x0033, t01=0x017c}
0x512a…514a Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x0033, t01=0x018e}
0x514a…5166 Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0034, t01=0x001e}
0x5166…5170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x003a}
0x5170…5194 Head {h00=0x0020, h01=0x0050, text=»* PUT DRIVE NO IN CIO INSTR«, t00=0x0034, t01=0x0044}
0x5194…519e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0068}
0x519e…51c0 Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0034, t01=0x0072}
0x51c0…51ee Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0034, t01=0x0094}
0x51ee…5206 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0034, t01=0x00c2}
0x5206…521c Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0034, t01=0x00da}
0x521c…523e Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0034, t01=0x00f0}
0x523e…5250 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0034, t01=0x0112}
0x5250…5268 Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0034, t01=0x0124}
0x5268…5290 Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0034, t01=0x013c}
0x5290…52a4 Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x0034, t01=0x0164}
0x52a4…52b6 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0034, t01=0x0178}
0x52b6…52cc Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x0034, t01=0x018a}
0x52cc…52e2 Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x0035, t01=0x0010}
0x52e2…52ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0026}
0x52ec…5304 Head {h00=0x0014, h01=0x0050, text=»* ANY REQUEST? «, t00=0x0035, t01=0x0030}
0x5304…530e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0048}
0x530e…5318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0052}
0x5318…534a Head {h00=0x002e, h01=0x0050, text=»* RESTORE STATUS SAVED IN DWST2 TO DWTST.«, t00=0x0035, t01=0x005c}
0x534a…5366 Head {h00=0x0018, h01=0x0050, text=»* SET DWTST2 TO -1«, t00=0x0035, t01=0x008e}
0x5366…538c Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST2,A6 SAVED STATUS «, t00=0x0035, t01=0x00aa}
0x538c…53ba Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTST,A6 PUT IN CUURENT STATUS «, t00=0x0035, t01=0x00d0}
0x53ba…53ce Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0035, t01=0x00fe}
0x53ce…53fa Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTST2,A6 INDICATE NOT SAVED «, t00=0x0035, t01=0x0112}
0x53fa…541e Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x0035, t01=0x013e}
0x541e…5432 Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x0035, t01=0x0162}
0x5432…544a Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0035, t01=0x0176}
0x544a…547e Head {h00=0x0030, h01=0x0050, text=» RB(N) END:05 NO REQUEST, RETURN VIA TENDIO «, t00=0x0035, t01=0x018e}
0x547e…5488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0032}
0x5488…54a0 Head {h00=0x0014, h01=0x0050, text=»* RETRY REQUEST«, t00=0x0036, t01=0x003c}
0x54a0…54aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0054}
0x54aa…54ce Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0036, t01=0x005e}
0x54ce…54e6 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0036, t01=0x0082}
0x54e6…5500 Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0036, t01=0x009a}
0x5500…5524 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0036, t01=0x00b4}
0x5524…5540 Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x0036, t01=0x00d8}
0x5540…554e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00f4}
0x554e…5558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0102}
0x5558…5576 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0036, t01=0x010c}
0x5576…5594 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x012a}
0x5594…55b2 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x0036, t01=0x0148}
0x55b2…55d0 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0036, t01=0x0166}
0x55d0…55ee Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0036, t01=0x0184}
0x55ee…55f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0012}
0x55f8…560a Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x0037, t01=0x001c}
0x560a…5632 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0037, t01=0x002e}
0x5632…5646 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0037, t01=0x0056}
0x5646…565a Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0037, t01=0x006a}
0x565a…566e Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0037, t01=0x007e}
0x566e…5682 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x0037, t01=0x0092}
0x5682…569a Head {h00=0x0014, h01=0x0050, text=» LDKL A2,DWFD01 «, t00=0x0037, t01=0x00a6}
0x569a…56cc Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTUB,A2 POINTER AT WORD IN BUFFER «, t00=0x0037, t01=0x00be}
0x56cc…56fa Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTRW,A2 READ / WRITE INDICATOR«, t00=0x0037, t01=0x00f0}
0x56fa…5714 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH010 READ«, t00=0x0037, t01=0x011e}
0x5714…5732 Head {h00=0x001a, h01=0x0050, text=» LCR A3,A1 FIRST CHAR.«, t00=0x0037, t01=0x0138}
0x5732…5754 Head {h00=0x001e, h01=0x0050, text=» ECR A2,A3 MOV TO BITS 0-7«, t00=0x0037, t01=0x0156}
0x5754…577c Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 UPDATE BUFFER POINTER «, t00=0x0037, t01=0x0178}
0x577c…579c Head {h00=0x001c, h01=0x0050, text=» LCR A2,A1 SECOND CHAR. «, t00=0x0038, t01=0x0010}
0x579c…57ba Head {h00=0x001a, h01=0x0050, text=» OTR A2,0,CUADR WRITE «, t00=0x0038, t01=0x0030}
0x57ba…57d8 Head {h00=0x001a, h01=0x0050, text=» RF(A) IH020 ACCEPTED «, t00=0x0038, t01=0x004e}
0x57d8…57f6 Head {h00=0x001a, h01=0x0050, text=» RF IH040 NOT ACCEPTED«, t00=0x0038, t01=0x006c}
0x57f6…5818 Head {h00=0x001e, h01=0x0050, text=»IH010 INR A2,0,CUADR READ «, t00=0x0038, t01=0x008a}
0x5818…583a Head {h00=0x001e, h01=0x0050, text=» RF(NA) IH040 NOT ACCEPTED«, t00=0x0038, t01=0x00ac}
0x583a…584c Head {h00=0x000e, h01=0x0050, text=» ECR A3,A2«, t00=0x0038, t01=0x00ce}
0x584c…5876 Head {h00=0x0026, h01=0x0050, text=» SCR A3,A1 FIRST CHAR. INTO BUFFER«, t00=0x0038, t01=0x00e0}
0x5876…589e Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 UPDATE BUFFER POINTER «, t00=0x0038, t01=0x010a}
0x589e…58ca Head {h00=0x0028, h01=0x0050, text=» SCR A2,A1 SECOND CHAR. INTO BUFFER «, t00=0x0038, t01=0x0132}
0x58ca…58f2 Head {h00=0x0024, h01=0x0050, text=»IH020 LDKL A2,DWFD01 DWT-ADDRESS«, t00=0x0038, t01=0x015e}
0x58f2…5904 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0038, t01=0x0186}
0x5904…5932 Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTUB,A2 POINTER AT NEXT CHAR. «, t00=0x0039, t01=0x0008}
0x5932…594a Head {h00=0x0014, h01=0x0050, text=» CW A1,DWTUBE,A2«, t00=0x0039, t01=0x0036}
0x594a…596e Head {h00=0x0020, h01=0x0050, text=» RF(NE) IH030 NOT LAST WORD «, t00=0x0039, t01=0x004e}
0x596e…598e Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0039, t01=0x0072}
0x598e…59a2 Head {h00=0x0010, h01=0x0050, text=»IH030 EQU * «, t00=0x0039, t01=0x0092}
0x59a2…59b6 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x0039, t01=0x00a6}
0x59b6…59ca Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0039, t01=0x00ba}
0x59ca…59de Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0039, t01=0x00ce}
0x59de…59ee Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0039, t01=0x00e2}
0x59ee…59f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f2}
0x59f8…5a1c Head {h00=0x0020, h01=0x0050, text=»* SAVE A4-A8 FOR DISPATCHER «, t00=0x0039, t01=0x00fc}
0x5a1c…5a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0120}
0x5a26…5a3a Head {h00=0x0010, h01=0x0050, text=»IH040 EQU * «, t00=0x0039, t01=0x012a}
0x5a3a…5a4e Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x0039, t01=0x013e}
0x5a4e…5a62 Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x0039, t01=0x0152}
0x5a62…5a76 Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x0039, t01=0x0166}
0x5a76…5a8a Head {h00=0x0010, h01=0x0050, text=» STR A7,A15 «, t00=0x0039, t01=0x017a}
0x5a8a…5a9e Head {h00=0x0010, h01=0x0050, text=» STR A8,A15 «, t00=0x0039, t01=0x018e}
0x5a9e…5aaa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0012}
0x5aaa…5abe Head {h00=0x0010, h01=0x0050, text=» IFF CHAN=1 «, t00=0x003a, t01=0x001e}
0x5abe…5ad4 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x003a, t01=0x0032}
0x5ad4…5ae0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0048}
0x5ae0…5afc Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x003a, t01=0x0054}
0x5afc…5b20 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x003a, t01=0x0070}
0x5b20…5b44 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x003a, t01=0x0094}
0x5b44…5b6a Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x003a, t01=0x00b8}
0x5b6a…5b7c Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x003a, t01=0x00de}
0x5b7c…5ba0 Head {h00=0x0020, h01=0x0050, text=» RF(N) FDRE READY INTERRUPT «, t00=0x003a, t01=0x00f0}
0x5ba0…5bb2 Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x003a, t01=0x0114}
0x5bb2…5bd2 Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY? «, t00=0x003a, t01=0x0126}
0x5bd2…5bea Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x003a, t01=0x0146}
0x5bea…5c10 Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x003a, t01=0x015e}
0x5c10…5c22 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x003a, t01=0x0184}
0x5c22…5c38 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0405«, t00=0x003b, t01=0x0008}
0x5c38…5c5c Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x003b, t01=0x001e}
0x5c5c…5c6e Head {h00=0x000e, h01=0x0050, text=» LDK A1,/4«, t00=0x003b, t01=0x0042}
0x5c6e…5c8a Head {h00=0x0018, h01=0x0050, text=» ORR A3,A1 CRC ERROR«, t00=0x003b, t01=0x0054}
0x5c8a…5c9e Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x003b, t01=0x0070}
0x5c9e…5ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0084}
0x5ca8…5cd2 Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x003b, t01=0x008e}
0x5cd2…5cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00b8}
0x5cdc…5cf2 Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x003b, t01=0x00c2}
0x5cf2…5d06 Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x003b, t01=0x00d8}
0x5d06…5d18 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x003b, t01=0x00ec}
0x5d18…5d3e Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x003b, t01=0x00fe}
0x5d3e…5d50 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003b, t01=0x0124}
0x5d50…5d6c Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x003b, t01=0x0136}
0x5d6c…5d88 Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x003b, t01=0x0152}
0x5d88…5d9a Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x003b, t01=0x016e}
0x5d9a…5db2 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x003b, t01=0x0180}
0x5db2…5dc4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003c, t01=0x0008}
0x5dc4…5de0 Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x003c, t01=0x001a}
0x5de0…5dfa Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x003c, t01=0x0036}
0x5dfa…5e0c Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x003c, t01=0x0050}
0x5e0c…5e18 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0062}
0x5e18…5e2a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003c, t01=0x006e}
0x5e2a…5e44 Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x003c, t01=0x0080}
0x5e44…5e5e Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x003c, t01=0x009a}
0x5e5e…5e70 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x003c, t01=0x00b4}
0x5e70…5e8a Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x003c, t01=0x00c6}
0x5e8a…5ea4 Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x003c, t01=0x00e0}
0x5ea4…5eb6 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x003c, t01=0x00fa}
0x5eb6…5eca Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x003c, t01=0x010c}
0x5eca…5eda Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003c, t01=0x0120}
0x5eda…5ee8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0130}
0x5ee8…5ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x013e}
0x5ef2…5f0e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003c, t01=0x0148}
0x5f0e…5f2a Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x003c, t01=0x0164}
0x5f2a…5f46 Head {h00=0x0018, h01=0x0050, text=»* READY INTERRUPT *«, t00=0x003c, t01=0x0180}
0x5f46…5f62 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x003d, t01=0x000c}
0x5f62…5f7e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x003d, t01=0x0028}
0x5f7e…5f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0044}
0x5f88…5f9a Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x003d, t01=0x004e}
0x5f9a…5fb2 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x003d, t01=0x0060}
0x5fb2…5fe2 Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE «, t00=0x003d, t01=0x0078}
0x5fe2…5ff8 Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB2«, t00=0x003d, t01=0x00a8}
0x5ff8…6016 Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x003d, t01=0x00be}
0x6016…6028 Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x003d, t01=0x00dc}
0x6028…6036 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00ee}
0x6036…6040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00fc}
0x6040…6074 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x003d, t01=0x0106}
0x6074…60a8 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x003d, t01=0x013a}
0x60a8…60dc Head {h00=0x0030, h01=0x0050, text=»* S U B R O U T I N E S * «, t00=0x003d, t01=0x016e}
0x60dc…6110 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x003e, t01=0x0012}
0x6110…6144 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x003e, t01=0x0046}
0x6144…614e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x007a}
0x614e…615e Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x003e, t01=0x0084}
0x615e…616e Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x003e, t01=0x0094}
0x616e…617e Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x003e, t01=0x00a4}
0x617e…618e Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x003e, t01=0x00b4}
0x618e…619e Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x003e, t01=0x00c4}
0x619e…61a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00d4}
0x61a8…61b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00de}
0x61b2…61d4 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A8 ECB ADDRESS«, t00=0x003e, t01=0x00e8}
0x61d4…61de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x010a}
0x61de…6220 Head {h00=0x003e, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x003e, t01=0x0114}
0x6220…6254 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x003e, t01=0x0156}
0x6254…627a Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x003e, t01=0x018a}
0x627a…6284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0020}
0x6284…6296 Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x003f, t01=0x002a}
0x6296…62ac Head {h00=0x0012, h01=0x0050, text=» LDK A4,0 FLAG«, t00=0x003f, t01=0x003c}
0x62ac…62be Head {h00=0x000e, h01=0x0050, text=» RF BIO010«, t00=0x003f, t01=0x0052}
0x62be…62d6 Head {h00=0x0014, h01=0x0050, text=»BIO:RE LDK A4,1 «, t00=0x003f, t01=0x0064}
0x62d6…62ea Head {h00=0x0010, h01=0x0050, text=»BIO010 EQU *«, t00=0x003f, t01=0x007c}
0x62ea…630a Head {h00=0x001c, h01=0x0050, text=» LD A3,ECBRL,A8 REQ LEN «, t00=0x003f, t01=0x0090}
0x630a…632e Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOERR ILLEGAL LENGTH«, t00=0x003f, t01=0x00b0}
0x632e…6346 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x003f, t01=0x00d4}
0x6346…635e Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTLAB,A6«, t00=0x003f, t01=0x00ec}
0x635e…6376 Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTA3,A6 «, t00=0x003f, t01=0x0104}
0x6376…6396 Head {h00=0x001c, h01=0x0050, text=» RF(Z) BIO020 TOSS DISC «, t00=0x003f, t01=0x011c}
0x6396…63a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x013c}
0x63a2…63b4 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003f, t01=0x0148}
0x63b4…63ca Head {h00=0x0012, h01=0x0050, text=» LDK A7,IBMLEN«, t00=0x003f, t01=0x015a}
0x63ca…63dc Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003f, t01=0x0170}
0x63dc…63e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0182}
0x63e8…6400 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x003f, t01=0x018e}
0x6400…6412 Head {h00=0x000e, h01=0x0050, text=» RF BIO030«, t00=0x0040, t01=0x0016}
0x6412…641e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0028}
0x641e…6432 Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=1 «, t00=0x0040, t01=0x0034}
0x6432…6450 Head {h00=0x001a, h01=0x0050, text=»BIO020 LDKL A7,TOSLEN «, t00=0x0040, t01=0x0048}
0x6450…6462 Head {h00=0x000e, h01=0x0050, text=» LDK A2,3 «, t00=0x0040, t01=0x0066}
0x6462…6476 Head {h00=0x0010, h01=0x0050, text=»BIO030 EQU *«, t00=0x0040, t01=0x0078}
0x6476…6482 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x008c}
0x6482…649a Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0040, t01=0x0098}
0x649a…64ac Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x0040, t01=0x00b0}
0x64ac…64c8 Head {h00=0x0018, h01=0x0050, text=» RF(Z) BIO060 WRITE «, t00=0x0040, t01=0x00c2}
0x64c8…64da Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0040, t01=0x00de}
0x64da…64f4 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A3 REQ LEN«, t00=0x0040, t01=0x00f0}
0x64f4…651e Head {h00=0x0026, h01=0x0050, text=» CWR A3,A7 REQ LENGTH WITHIN RANGE«, t00=0x0040, t01=0x010a}
0x651e…6536 Head {h00=0x0014, h01=0x0050, text=» RF(G) BIOERR NO«, t00=0x0040, t01=0x0134}
0x6536…6550 Head {h00=0x0016, h01=0x0050, text=»BIO040 SUK A1,128 «, t00=0x0040, t01=0x014c}
0x6550…6566 Head {h00=0x0012, h01=0x0050, text=» RF(NP) BIO100«, t00=0x0040, t01=0x0166}
0x6566…6590 Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT NO OF SECTORS «, t00=0x0040, t01=0x017c}
0x6590…65a2 Head {h00=0x000e, h01=0x0050, text=» RB BIO040«, t00=0x0041, t01=0x0016}
0x65a2…65ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0028}
0x65ac…65ce Head {h00=0x001e, h01=0x0050, text=»* WRITE, CHECK REQ LENGTH«, t00=0x0041, t01=0x0032}
0x65ce…65d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0054}
0x65d8…65f0 Head {h00=0x0014, h01=0x0050, text=»BIO060 CWR A3,A7«, t00=0x0041, t01=0x005e}
0x65f0…6616 Head {h00=0x0022, h01=0x0050, text=» RF(NE) BIOERR ILLEGAL REQ LEN«, t00=0x0041, t01=0x0076}
0x6616…6622 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x009c}
0x6622…663a Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x0041, t01=0x00a8}
0x663a…6644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00c0}
0x6644…6686 Head {h00=0x003e, h01=0x0050, text=»* FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH«, t00=0x0041, t01=0x00ca}
0x6686…6690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x010c}
0x6690…66ae Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x0041, t01=0x0116}
0x66ae…66d0 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 NO OF SECTORS-1 «, t00=0x0041, t01=0x0134}
0x66d0…66f8 Head {h00=0x0024, h01=0x0050, text=»BIO015 LDR A4,A4 READ OR WRITE? «, t00=0x0041, t01=0x0156}
0x66f8…6714 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) BIO035 READ!«, t00=0x0041, t01=0x017e}
0x6714…6728 Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0042, t01=0x000a}
0x6728…674e Head {h00=0x0022, h01=0x0050, text=» RF(Z) BIO100 REQ LEN ACCEPTED«, t00=0x0042, t01=0x001e}
0x674e…6760 Head {h00=0x000e, h01=0x0050, text=» RF BIO045«, t00=0x0042, t01=0x0044}
0x6760…676a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0056}
0x676a…6784 Head {h00=0x0016, h01=0x0050, text=»BIO035 SUK A1,128 «, t00=0x0042, t01=0x0060}
0x6784…67ae Head {h00=0x0026, h01=0x0050, text=» RF(NP) BIO100 REQ LENGTH ACCEPTED«, t00=0x0042, t01=0x007a}
0x67ae…67c6 Head {h00=0x0014, h01=0x0050, text=»BIO045 ADK A2,1 «, t00=0x0042, t01=0x00a4}
0x67c6…67d8 Head {h00=0x000e, h01=0x0050, text=» CWK A2,3 «, t00=0x0042, t01=0x00bc}
0x67d8…67ee Head {h00=0x0012, h01=0x0050, text=» RB(NG) BIO015«, t00=0x0042, t01=0x00ce}
0x67ee…6816 Head {h00=0x0024, h01=0x0050, text=» RF BIOERR REQ LEN OUTSIDE RANGE«, t00=0x0042, t01=0x00e4}
0x6816…6822 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x010c}
0x6822…682c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0118}
0x682c…6866 Head {h00=0x0036, h01=0x0050, text=»BIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1«, t00=0x0042, t01=0x0122}
0x6866…6870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x015c}
0x6870…68a6 Head {h00=0x0032, h01=0x0050, text=»* CHECK SECTOR NO FROM CONTROL WORD OF ECB IS«, t00=0x0042, t01=0x0166}
0x68a6…68d2 Head {h00=0x0028, h01=0x0050, text=»* WITHIN RANGE, PUT IT IN POS 2-12 «, t00=0x0043, t01=0x000c}
0x68d2…68dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0038}
0x68dc…68fe Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A8 SECTOR NO «, t00=0x0043, t01=0x0042}
0x68fe…6922 Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOER2 OUTSIDE RANGE «, t00=0x0043, t01=0x0064}
0x6922…693a Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0043, t01=0x0088}
0x693a…694c Head {h00=0x000e, h01=0x0050, text=» ANK A7,/A«, t00=0x0043, t01=0x00a0}
0x694c…696a Head {h00=0x001a, h01=0x0050, text=» RF(Z) BIO110 IBM DISC«, t00=0x0043, t01=0x00b2}
0x696a…6976 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x00d0}
0x6976…698a Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=1 «, t00=0x0043, t01=0x00dc}
0x698a…699e Head {h00=0x0010, h01=0x0050, text=» CWK A1,499 «, t00=0x0043, t01=0x00f0}
0x699e…69c0 Head {h00=0x001e, h01=0x0050, text=» RF(G) BIOER2 OUT OF RANGE«, t00=0x0043, t01=0x0104}
0x69c0…69f0 Head {h00=0x002c, h01=0x0050, text=» SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR «, t00=0x0043, t01=0x0126}
0x69f0…69fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x0156}
0x69fc…6a14 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=2 «, t00=0x0043, t01=0x0162}
0x6a14…6a26 Head {h00=0x000e, h01=0x0050, text=» RF BIO120«, t00=0x0043, t01=0x017a}
0x6a26…6a32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x018c}
0x6a32…6a44 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0044, t01=0x0008}
0x6a44…6a5e Head {h00=0x0016, h01=0x0050, text=»BIO110 CWK A1,1923«, t00=0x0044, t01=0x001a}
0x6a5e…6a80 Head {h00=0x001e, h01=0x0050, text=» RF(P) BIOER2 OUT OF RANGE«, t00=0x0044, t01=0x0034}
0x6a80…6a8c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0056}
0x6a8c…6aa4 Head {h00=0x0014, h01=0x0050, text=» IFT DAMA+IBM=0 «, t00=0x0044, t01=0x0062}
0x6aa4…6ad0 Head {h00=0x0028, h01=0x0050, text=» CWK A1,2001 SECTOR NO OUT OF RANGE «, t00=0x0044, t01=0x007a}
0x6ad0…6aea Head {h00=0x0016, h01=0x0050, text=» RF(G) BIOER2 YES!«, t00=0x0044, t01=0x00a6}
0x6aea…6af6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x00c0}
0x6af6…6b0a Head {h00=0x0010, h01=0x0050, text=»BIO120 EQU *«, t00=0x0044, t01=0x00cc}
0x6b0a…6b1c Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x0044, t01=0x00e0}
0x6b1c…6b2e Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x0044, t01=0x00f2}
0x6b2e…6b54 Head {h00=0x0022, h01=0x0050, text=» LD A4,ECBBA,A8 BUFFER ADDRESS«, t00=0x0044, t01=0x0104}
0x6b54…6b72 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x0044, t01=0x012a}
0x6b72…6b84 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0044, t01=0x0148}
0x6b84…6bac Head {h00=0x0024, h01=0x0050, text=» RF(NZ) BIOERR REQ LEN. NOT EVEN«, t00=0x0044, t01=0x015a}
0x6bac…6bbc Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0044, t01=0x0182}
0x6bbc…6bc6 (69, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0004}
0x6bc6…6bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x000e}
0x6bd0…6c06 Head {h00=0x0032, h01=0x0050, text=»* ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO«, t00=0x0045, t01=0x0018}
0x6c06…6c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x004e}
0x6c10…6c2a Head {h00=0x0016, h01=0x0050, text=»BIOERR ABL END:10 «, t00=0x0045, t01=0x0058}
0x6c2a…6c48 Head {h00=0x001a, h01=0x0050, text=»* ILLEGAL SECTOR NO «, t00=0x0045, t01=0x0072}
0x6c48…6c62 Head {h00=0x0016, h01=0x0050, text=»BIOER2 ABL FD:DIS «, t00=0x0045, t01=0x0090}
0x6c62…6c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00aa}
0x6c6c…6c7e Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0045, t01=0x00b4}
0x6c7e…6c90 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0045, t01=0x00c6}
0x6c90…6ca2 Head {h00=0x000e, h01=0x0050, text=»* FDIX * «, t00=0x0045, t01=0x00d8}
0x6ca2…6cb4 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0045, t01=0x00ea}
0x6cb4…6cc6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0045, t01=0x00fc}
0x6cc6…6cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x010e}
0x6cd0…6cea Head {h00=0x0016, h01=0x0050, text=»* INPUT: A2 X «, t00=0x0045, t01=0x0118}
0x6cea…6cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0132}
0x6cf4…6d16 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A3 2 POWER(X)«, t00=0x0045, t01=0x013c}
0x6d16…6d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x015e}
0x6d20…6d36 Head {h00=0x0012, h01=0x0050, text=»FDIX LDK A3,1 «, t00=0x0045, t01=0x0168}
0x6d36…6d48 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0045, t01=0x017e}
0x6d48…6d5c Head {h00=0x0010, h01=0x0050, text=»FDIX10 EQU *«, t00=0x0045, t01=0x0190}
0x6d5c…6d72 Head {h00=0x0012, h01=0x0050, text=» RF(Z) FDIX20 «, t00=0x0046, t01=0x0014}
0x6d72…6d84 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0046, t01=0x002a}
0x6d84…6d96 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0046, t01=0x003c}
0x6d96…6da8 Head {h00=0x000e, h01=0x0050, text=» RB FDIX10«, t00=0x0046, t01=0x004e}
0x6da8…6dbe Head {h00=0x0012, h01=0x0050, text=»FDIX20 RTN A5 «, t00=0x0046, t01=0x0060}
0x6dbe…6dcc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0076}
0x6dcc…6de4 Head {h00=0x0014, h01=0x0050, text=» IFF DAMA+IBM=0 «, t00=0x0046, t01=0x0084}
0x6de4…6dfe Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0046, t01=0x009c}
0x6dfe…6e18 Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x0046, t01=0x00b6}
0x6e18…6e32 Head {h00=0x0016, h01=0x0050, text=»* VOLADR *«, t00=0x0046, t01=0x00d0}
0x6e32…6e4c Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x0046, t01=0x00ea}
0x6e4c…6e66 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0046, t01=0x0104}
0x6e66…6e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x011e}
0x6e70…6e92 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0046, t01=0x0128}
0x6e92…6e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x014a}
0x6e9c…6ec6 Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A2 VOLUME NAME ADDRESS«, t00=0x0046, t01=0x0154}
0x6ec6…6ee2 Head {h00=0x0018, h01=0x0050, text=»* A3 ZERO «, t00=0x0046, t01=0x017e}
0x6ee2…6eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x000a}
0x6eec…6f08 Head {h00=0x0018, h01=0x0050, text=»VOLADR LDK A2,DWTVO0«, t00=0x0047, t01=0x0014}
0x6f08…6f1a Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0047, t01=0x0030}
0x6f1a…6f3a Head {h00=0x001c, h01=0x0050, text=» LC A3,DWTOR,A6 DRIVE NO«, t00=0x0047, t01=0x0042}
0x6f3a…6f4c Head {h00=0x000e, h01=0x0050, text=» ANK A3,/3«, t00=0x0047, t01=0x0062}
0x6f4c…6f60 Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x0047, t01=0x0074}
0x6f60…6f76 Head {h00=0x0012, h01=0x0050, text=» RF(Z) VOLA20 «, t00=0x0047, t01=0x0088}
0x6f76…6f96 Head {h00=0x001c, h01=0x0050, text=» ADK A2,6 UPDATE ADDRESS«, t00=0x0047, t01=0x009e}
0x6f96…6fa8 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0047, t01=0x00be}
0x6fa8…6fba Head {h00=0x000e, h01=0x0050, text=» RB VOLA10«, t00=0x0047, t01=0x00d0}
0x6fba…6fd0 Head {h00=0x0012, h01=0x0050, text=»VOLA20 RTN A5 «, t00=0x0047, t01=0x00e2}
0x6fd0…6fdc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x00f8}
0x6fdc…6fe4 Head {h00=0x0004, h01=0x0050, t00=0x0047, t01=0x0104}
0x6fe4…6ff6 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0047, t01=0x010c}
0x6ff6…7004 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x011e}
0x7004…700e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x012c}
0x700e…7020 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0047, t01=0x0136}
0x7020…7032 Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x0047, t01=0x0148}
0x7032…7044 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0047, t01=0x015a}
0x7044…704e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x016c}
0x704e…708c Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x0047, t01=0x0176}
0x708c…70ac Head {h00=0x001c, h01=0x0050, text=»* ASCII CODE«, t00=0x0048, t01=0x0024}
0x70ac…70de Head {h00=0x002e, h01=0x0050, text=»* INPUT STRING ADDRESS IS BUF «, t00=0x0048, t01=0x0044}
0x70de…7108 Head {h00=0x0026, h01=0x0050, text=»* INPUT: A7 NO OF CHARACTERS«, t00=0x0048, t01=0x0076}
0x7108…7138 Head {h00=0x002c, h01=0x0050, text=»* A4 OUTPUT STRING ADDRESS«, t00=0x0048, t01=0x00a0}
0x7138…715a Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x0048, t01=0x00d0}
0x715a…717a Head {h00=0x001c, h01=0x0050, text=»* A4 CHANGED«, t00=0x0048, t01=0x00f2}
0x717a…719c Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x0048, t01=0x0112}
0x719c…71a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0134}
0x71a6…71ba Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0048, t01=0x013e}
0x71ba…71c6 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0048, t01=0x0152}
0x71c6…71d8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0048, t01=0x015e}
0x71d8…71ea Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0048, t01=0x0170}
0x71ea…7202 Head {h00=0x0014, h01=0x0050, text=»ASC:10 SUK A7,1 «, t00=0x0048, t01=0x0182}
0x7202…7218 Head {h00=0x0012, h01=0x0050, text=» RF(N) ASC:20 «, t00=0x0049, t01=0x000a}
0x7218…722a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0049, t01=0x0020}
0x722a…7250 Head {h00=0x0022, h01=0x0050, text=» LC A1,BUF,A7 GET EBCDIC CHAR «, t00=0x0049, t01=0x0032}
0x7250…727c Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0049, t01=0x0058}
0x727c…72b0 Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0049, t01=0x0084}
0x72b0…72c2 Head {h00=0x000e, h01=0x0050, text=» RB ASC:10«, t00=0x0049, t01=0x00b8}
0x72c2…72d6 Head {h00=0x0010, h01=0x0050, text=»ASC:20 EQU *«, t00=0x0049, t01=0x00ca}
0x72d6…72fc Head {h00=0x0022, h01=0x0050, text=» RF EBC:90 SET INH AND RETURN «, t00=0x0049, t01=0x00de}
0x72fc…730a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0104}
0x730a…7314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0112}
0x7314…7326 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x011c}
0x7326…7338 Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0049, t01=0x012e}
0x7338…734a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0049, t01=0x0140}
0x734a…7354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0152}
0x7354…7394 Head {h00=0x003c, h01=0x0050, text=»* FUNCTION: EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0049, t01=0x015c}
0x7394…73b6 Head {h00=0x001e, h01=0x0050, text=»* EBCDIC CODE «, t00=0x004a, t01=0x000c}
0x73b6…73f2 Head {h00=0x0038, h01=0x0050, text=»* OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x004a, t01=0x002e}
0x73f2…73fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x006a}
0x73fc…7426 Head {h00=0x0026, h01=0x0050, text=»* INPUT: A7 NO OF CHARACTERS «, t00=0x004a, t01=0x0074}
0x7426…7454 Head {h00=0x002a, h01=0x0050, text=»* A4 INPUT STRING ADDRESS«, t00=0x004a, t01=0x009e}
0x7454…745e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00cc}
0x745e…7480 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 CHANGED «, t00=0x004a, t01=0x00d6}
0x7480…74b0 Head {h00=0x002c, h01=0x0050, text=»* A4 DRIVER BUFFER ADDRESS«, t00=0x004a, t01=0x00f8}
0x74b0…74d2 Head {h00=0x001e, h01=0x0050, text=»* A7 CHANGED «, t00=0x004a, t01=0x0128}
0x74d2…74e6 Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x004a, t01=0x014a}
0x74e6…74f2 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x004a, t01=0x015e}
0x74f2…7504 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x004a, t01=0x016a}
0x7504…7516 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x004a, t01=0x017c}
0x7516…752e Head {h00=0x0014, h01=0x0050, text=»EBC:10 SUK A7,1 «, t00=0x004a, t01=0x018e}
0x752e…7544 Head {h00=0x0012, h01=0x0050, text=» RF(N) EBC:80 «, t00=0x004b, t01=0x0016}
0x7544…7556 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004b, t01=0x002c}
0x7556…7578 Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x004b, t01=0x003e}
0x7578…7592 Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x004b, t01=0x0060}
0x7592…75a8 Head {h00=0x0012, h01=0x0050, text=» SC A1,BUF,A7 «, t00=0x004b, t01=0x007a}
0x75a8…75ba Head {h00=0x000e, h01=0x0050, text=» RB EBC:10«, t00=0x004b, t01=0x0090}
0x75ba…75ce Head {h00=0x0010, h01=0x0050, text=»EBC:80 EQU *«, t00=0x004b, t01=0x00a2}
0x75ce…75e2 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x004b, t01=0x00b6}
0x75e2…75f6 Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x004b, t01=0x00ca}
0x75f6…760c Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x004b, t01=0x00de}
0x760c…761c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x00f4}
0x761c…762a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0104}
0x762a…7634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0112}
0x7634…7646 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004b, t01=0x011c}
0x7646…7658 Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x004b, t01=0x012e}
0x7658…766a Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x004b, t01=0x0140}
0x766a…7674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0152}
0x7674…76b8 Head {h00=0x0040, h01=0x0050, text=»* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x004b, t01=0x015c}
0x76b8…76e8 Head {h00=0x002c, h01=0x0050, text=»* LOGICAL SECTOR (BINARY). «, t00=0x004c, t01=0x0010}
0x76e8…7728 Head {h00=0x003c, h01=0x0050, text=»* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE)«, t00=0x004c, t01=0x0040}
0x7728…7756 Head {h00=0x002a, h01=0x0050, text=»* TT = TRACK, SS=SECTOR «, t00=0x004c, t01=0x0080}
0x7756…7760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00ae}
0x7760…7790 Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO PHYS. SECTOR«, t00=0x004c, t01=0x00b8}
0x7790…779a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00e8}
0x779a…77c4 Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A3 BINARY SECTOR NO «, t00=0x004c, t01=0x00f2}
0x77c4…77e6 Head {h00=0x001e, h01=0x0050, text=»* A4 UNCHANGED «, t00=0x004c, t01=0x011c}
0x77e6…77f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x013e}
0x77f0…7804 Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x004c, t01=0x0148}
0x7804…781a Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x004c, t01=0x015c}
0x781a…7832 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x004c, t01=0x0172}
0x7832…7844 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x004c, t01=0x018a}
0x7844…784e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x000c}
0x784e…7868 Head {h00=0x0016, h01=0x0050, text=»* MULTIPLY BY 26 «, t00=0x004d, t01=0x0016}
0x7868…7872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0030}
0x7872…7888 Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x004d, t01=0x003a}
0x7888…789a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x004d, t01=0x0050}
0x789a…78ac Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x004d, t01=0x0062}
0x78ac…78c2 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x004d, t01=0x0074}
0x78c2…78d4 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x004d, t01=0x008a}
0x78d4…78ea Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x004d, t01=0x009c}
0x78ea…7900 Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x004d, t01=0x00b2}
0x7900…7912 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x004d, t01=0x00c8}
0x7912…7924 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x004d, t01=0x00da}
0x7924…792e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00ec}
0x792e…7948 Head {h00=0x0016, h01=0x0050, text=»* CHECK SECTOR NO«, t00=0x004d, t01=0x00f6}
0x7948…7952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0110}
0x7952…7964 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x004d, t01=0x011a}
0x7964…7976 Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x004d, t01=0x012c}
0x7976…798c Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x004d, t01=0x013e}
0x798c…79aa Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD?«, t00=0x004d, t01=0x0154}
0x79aa…79c4 Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x004d, t01=0x0172}
0x79c4…79da Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x004d, t01=0x018c}
0x79da…79ec Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x004e, t01=0x0012}
0x79ec…79f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0024}
0x79f6…7a1c Head {h00=0x0022, h01=0x0050, text=»* CHECK EOD LESS/EQUAL 74001 «, t00=0x004e, t01=0x002e}
0x7a1c…7a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0054}
0x7a26…7a42 Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x004e, t01=0x005e}
0x7a42…7a56 Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x004e, t01=0x007a}
0x7a56…7a7c Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x004e, t01=0x008e}
0x7a7c…7aa2 Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x004e, t01=0x00b4}
0x7aa2…7ab2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004e, t01=0x00da}
0x7ab2…7abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00ea}
0x7abc…7ad2 Head {h00=0x0012, h01=0x0050, text=»* FATAL ERROR«, t00=0x004e, t01=0x00f4}
0x7ad2…7adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x010a}
0x7adc…7b08 Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x004e, t01=0x0114}
0x7b08…7b30 Head {h00=0x0024, h01=0x0050, text=»LOG:10 LDKL A1,/2000 RETURN CODE«, t00=0x004e, t01=0x0140}
0x7b30…7b4a Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x004e, t01=0x0168}
0x7b4a…7b60 Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x004e, t01=0x0182}
0x7b60…7b82 Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x004f, t01=0x0008}
0x7b82…7b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x002a}
0x7b8c…7b9e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004f, t01=0x0034}
0x7b9e…7bb0 Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x004f, t01=0x0046}
0x7bb0…7bc2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004f, t01=0x0058}
0x7bc2…7bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x006a}
0x7bcc…7c0e Head {h00=0x003e, h01=0x0050, text=»* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x004f, t01=0x0074}
0x7c0e…7c56 Head {h00=0x0044, h01=0x0050, text=»* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x004f, t01=0x00b6}
0x7c56…7c86 Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO FIRST DIGIT«, t00=0x004f, t01=0x00fe}
0x7c86…7ca4 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A1 BINARY«, t00=0x004f, t01=0x012e}
0x7ca4…7cc4 Head {h00=0x001c, h01=0x0050, text=»* WORKING REG: A2,A7 «, t00=0x004f, t01=0x014c}
0x7cc4…7cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x016c}
0x7cce…7ce6 Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x004f, t01=0x0176}
0x7ce6…7cf8 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x004f, t01=0x018e}
0x7cf8…7d16 Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x0050, t01=0x0010}
0x7d16…7d2a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0050, t01=0x002e}
0x7d2a…7d3e Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0050, t01=0x0042}
0x7d3e…7d54 Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x0050, t01=0x0056}
0x7d54…7d66 Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0050, t01=0x006c}
0x7d66…7d86 Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x0050, t01=0x007e}
0x7d86…7d98 Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0050, t01=0x009e}
0x7d98…7daa Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0050, t01=0x00b0}
0x7daa…7dc0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0050, t01=0x00c2}
0x7dc0…7dea Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x0050, t01=0x00d8}
0x7dea…7e02 Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0050, t01=0x0102}
0x7e02…7e22 Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0050, t01=0x011a}
0x7e22…7e44 Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0050, t01=0x013a}
0x7e44…7e56 Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0050, t01=0x015c}
0x7e56…7e6e Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0050, t01=0x016e}
0x7e6e…7e7e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0050, t01=0x0186}
0x7e7e…7e8a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0008}
0x7e8a…7e98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0014}
0x7e98…7ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0022}
0x7ea2…7eb4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x002c}
0x7eb4…7ec6 Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x0051, t01=0x003e}
0x7ec6…7ed8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x0050}
0x7ed8…7ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0062}
0x7ee2…7f18 Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x0051, t01=0x006c}
0x7f18…7f22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00a2}
0x7f22…7f5e Head {h00=0x0038, h01=0x0050, text=»* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x0051, t01=0x00ac}
0x7f5e…7f68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00e8}
0x7f68…7f86 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A3 CHANGED«, t00=0x0051, t01=0x00f2}
0x7f86…7fa4 Head {h00=0x001a, h01=0x0050, text=»* A4 CHANGED«, t00=0x0051, t01=0x0110}
0x7fa4…7fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x012e}
0x7fae…7fca Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x0051, t01=0x0138}
0x7fca…7fe0 Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x0051, t01=0x0154}
0x7fe0…7ff2 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0051, t01=0x016a}
0x7ff2…8008 Head {h00=0x0012, h01=0x0050, text=» ORS A3,FD:CIO«, t00=0x0051, t01=0x017c}
0x8008…8018 (82, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A5«, t00=0x0052, t01=0x0004}
0x8018…802a Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0052, t01=0x0014}
0x802a…8038 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0026}
0x8038…8042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0034}
0x8042…8054 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0052, t01=0x003e}
0x8054…8066 Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x0052, t01=0x0050}
0x8066…8078 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0052, t01=0x0062}
0x8078…8082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0074}
0x8082…80c0 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x0052, t01=0x007e}
0x80c0…80f4 Head {h00=0x0030, h01=0x0050, text=»* EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x0052, t01=0x00bc}
0x80f4…80fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00f0}
0x80fe…8122 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A7 BINARY NUMBER«, t00=0x0052, t01=0x00fa}
0x8122…812c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x011e}
0x812c…815e Head {h00=0x002e, h01=0x0050, text=»* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS«, t00=0x0052, t01=0x0128}
0x815e…817c Head {h00=0x001a, h01=0x0050, text=»* A7 CHANGED«, t00=0x0052, t01=0x015a}
0x817c…8186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0178}
0x8186…819e Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x0052, t01=0x0182}
0x819e…81b6 Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x0053, t01=0x000a}
0x81b6…81cc Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x0053, t01=0x0022}
0x81cc…81de Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0053, t01=0x0038}
0x81de…81f0 Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x0053, t01=0x004a}
0x81f0…8208 Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x0053, t01=0x005c}
0x8208…821a Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x0053, t01=0x0074}
0x821a…8248 Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x0053, t01=0x0086}
0x8248…826c Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x0053, t01=0x00b4}
0x826c…827c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0053, t01=0x00d8}
0x827c…828a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x00e8}
0x828a…829c Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0053, t01=0x00f6}
0x829c…82ae Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x0053, t01=0x0108}
0x82ae…82c0 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0053, t01=0x011a}
0x82c0…82ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x012c}
0x82ca…8302 Head {h00=0x0034, h01=0x0050, text=»* FUNCTION: PREPARE FOR READING DATA SET LABEL«, t00=0x0053, t01=0x0136}
0x8302…830c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x016e}
0x830c…832e Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0053, t01=0x0178}
0x832e…8338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x000a}
0x8338…8376 Head {h00=0x003a, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x0054, t01=0x0014}
0x8376…8392 Head {h00=0x0018, h01=0x0050, text=»* A3 128 «, t00=0x0054, t01=0x0052}
0x8392…83be Head {h00=0x0028, h01=0x0050, text=»* A4 DRIVER BUFFER ADDRESS«, t00=0x0054, t01=0x006e}
0x83be…83e0 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0054, t01=0x009a}
0x83e0…8402 Head {h00=0x001e, h01=0x0050, text=»* A1 IS CHANGED «, t00=0x0054, t01=0x00bc}
0x8402…840c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00de}
0x840c…8428 Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x0054, t01=0x00e8}
0x8428…843c Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0054, t01=0x0104}
0x843c…8450 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x0054, t01=0x0118}
0x8450…8462 Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0054, t01=0x012c}
0x8462…8476 Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x0054, t01=0x013e}
0x8476…848a Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0054, t01=0x0152}
0x848a…849a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0054, t01=0x0166}
0x849a…84a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0176}
0x84a8…84b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0184}
0x84b2…84c4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0054, t01=0x018e}
0x84c4…84d6 Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x0055, t01=0x0010}
0x84d6…84e8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x0022}
0x84e8…84f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0034}
0x84f2…852c Head {h00=0x0036, h01=0x0050, text=»* FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x0055, t01=0x003e}
0x852c…8536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0078}
0x8536…8558 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x0055, t01=0x0082}
0x8558…8562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00a4}
0x8562…8584 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A2 EOD ADDRESS«, t00=0x0055, t01=0x00ae}
0x8584…85b4 Head {h00=0x002c, h01=0x0050, text=»* A7 EOD-NO (0=NOT OPEN) «, t00=0x0055, t01=0x00d0}
0x85b4…85d2 Head {h00=0x001a, h01=0x0050, text=»* A1 CHANGED«, t00=0x0055, t01=0x0100}
0x85d2…85ee Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x0055, t01=0x011e}
0x85ee…8602 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0055, t01=0x013a}
0x8602…861c Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x0055, t01=0x014e}
0x861c…862c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0055, t01=0x0168}
0x862c…863a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0178}
0x863a…8644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0186}
0x8644…8656 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0055, t01=0x0190}
0x8656…8668 Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x0056, t01=0x0012}
0x8668…867a Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0056, t01=0x0024}
0x867a…8684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0036}
0x8684…86ba Head {h00=0x0032, h01=0x0050, text=»* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x0056, t01=0x0040}
0x86ba…86f4 Head {h00=0x0036, h01=0x0050, text=»* TYPE OF DATA FOR COORESSPONDING DRIVE«, t00=0x0056, t01=0x0076}
0x86f4…86fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00b0}
0x86fe…8720 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A1 DWT OFFSET «, t00=0x0056, t01=0x00ba}
0x8720…8742 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0056, t01=0x00dc}
0x8742…874c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00fe}
0x874c…8772 Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A2 ADDRESS TO DATA«, t00=0x0056, t01=0x0108}
0x8772…8794 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0056, t01=0x012e}
0x8794…879e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0150}
0x879e…87c4 Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x0056, t01=0x015a}
0x87c4…87d6 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0056, t01=0x0180}
0x87d6…87e8 (87, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0057, t01=0x0004}
0x87e8…87fa Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0057, t01=0x0016}
0x87fa…880c Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x0057, t01=0x0028}
0x880c…881c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0057, t01=0x003a}
0x881c…882a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x004a}
0x882a…8834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0058}
0x8834…8846 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0057, t01=0x0062}
0x8846…8858 Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x0057, t01=0x0074}
0x8858…886a Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0057, t01=0x0086}
0x886a…8874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0098}
0x8874…88b2 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x0057, t01=0x00a2}
0x88b2…88d0 Head {h00=0x001a, h01=0x0050, text=»* DRIVE NO «, t00=0x0057, t01=0x00e0}
0x88d0…88da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00fe}
0x88da…8906 Head {h00=0x0028, h01=0x0050, text=»* INPUT: A1 OFFSET TO DWT AREA «, t00=0x0057, t01=0x0108}
0x8906…8938 Head {h00=0x002e, h01=0x0050, text=»* A3 WORD TO BE STORED IN DWT «, t00=0x0057, t01=0x0134}
0x8938…895c Head {h00=0x0020, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0057, t01=0x0166}
0x895c…8966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x018a}
0x8966…8988 (88, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A1 UNCHANGED«, t00=0x0058, t01=0x0004}
0x8988…89bc Head {h00=0x0030, h01=0x0050, text=»* A2 ADDRESS TO WORD IN DWT AREA«, t00=0x0058, t01=0x0026}
0x89bc…89de Head {h00=0x001e, h01=0x0050, text=»* A3 UNCHANGED«, t00=0x0058, t01=0x005a}
0x89de…8a00 Head {h00=0x001e, h01=0x0050, text=»* A6 UNCHANGED«, t00=0x0058, t01=0x007c}
0x8a00…8a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x009e}
0x8a0a…8a1e Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x0058, t01=0x00a8}
0x8a1e…8a32 Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0058, t01=0x00bc}
0x8a32…8a44 Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0058, t01=0x00d0}
0x8a44…8a54 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0058, t01=0x00e2}
0x8a54…8a62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x00f2}
0x8a62…8a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0100}
0x8a6c…8a7e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x010a}
0x8a7e…8a90 Head {h00=0x000e, h01=0x0050, text=»* SETINH *«, t00=0x0058, t01=0x011c}
0x8a90…8aa2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x012e}
0x8aa2…8aac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0140}
0x8aac…8af0 Head {h00=0x0040, h01=0x0050, text=»* FUNCTION: INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE «, t00=0x0058, t01=0x014a}
0x8af0…8b32 Head {h00=0x003e, h01=0x0050, text=»* ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND «, t00=0x0058, t01=0x018e}
0x8b32…8b4e Head {h00=0x0018, h01=0x0050, text=»* RETURN«, t00=0x0059, t01=0x0040}
0x8b4e…8b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x005c}
0x8b58…8b7e Head {h00=0x0022, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS «, t00=0x0059, t01=0x0066}
0x8b7e…8b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x008c}
0x8b88…8b9a Head {h00=0x000e, h01=0x0050, text=»SETINH INH«, t00=0x0059, t01=0x0096}
0x8b9a…8bb6 Head {h00=0x0018, h01=0x0050, text=» LD A1,DWTA2,A6 FDON«, t00=0x0059, t01=0x00a8}
0x8bb6…8bd6 Head {h00=0x001c, h01=0x0050, text=» RF(Z) SET:10 NOT ACTIVE«, t00=0x0059, t01=0x00c4}
0x8bd6…8bf0 Head {h00=0x0016, h01=0x0050, text=» ABL T:DISP ESCAPE«, t00=0x0059, t01=0x00e4}
0x8bf0…8c06 Head {h00=0x0012, h01=0x0050, text=»SET:10 RTN A5 «, t00=0x0059, t01=0x00fe}
0x8c06…8c12 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0114}
0x8c12…8c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0120}
0x8c1c…8c42 Head {h00=0x0022, h01=0x0050, text=»* D R I V E R B U F F E R«, t00=0x0059, t01=0x012a}
0x8c42…8c5a Head {h00=0x0014, h01=0x0050, text=»BUF DATA 0,0,0,0«, t00=0x0059, t01=0x0150}
0x8c5a…8c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0168}
0x8c64…8c76 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0059, t01=0x0172}
0x8c76…8c86 Head {h00=0x000c, h01=0x0050, text=» RES 60 «, t00=0x0059, t01=0x0184}
0x8c86…8c92 (90, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0004}
0x8c92…8ca0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x0010}
0x8ca0…8caa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x001e}
0x8caa…8cc8 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x005a, t01=0x0028}
0x8cc8…8ce6 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x005a, t01=0x0046}
0x8ce6…8d04 Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x005a, t01=0x0064}
0x8d04…8d22 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x005a, t01=0x0082}
0x8d22…8d40 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x005a, t01=0x00a0}
0x8d40…8d4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00be}
0x8d4a…8d5e Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x005a, t01=0x00c8}
0x8d5e…8d6e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005a, t01=0x00dc}
0x8d6e…8d8c Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x005a, t01=0x00ec}
0x8d8c…8da8 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB-ADDRESS «, t00=0x005a, t01=0x010a}
0x8da8…8dbe Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x005a, t01=0x0126}
0x8dbe…8de4 Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x005a, t01=0x013c}
0x8de4…8e00 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x005a, t01=0x0162}
0x8e00…8e28 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x005a, t01=0x017e}
0x8e28…8e46 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x005b, t01=0x0016}
0x8e46…8e56 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x0034}
0x8e56…8e70 Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x005b, t01=0x0044}
0x8e70…8e80 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x005e}
0x8e80…8e90 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x006e}
0x8e90…8eac Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x005b, t01=0x007e}
0x8eac…8ed8 Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x005b, t01=0x009a}
0x8ed8…8ee8 Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x005b, t01=0x00c6}
0x8ee8…8f16 Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x005b, t01=0x00d6}
0x8f16…8f26 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x0104}
0x8f26…8f4e Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x005b, t01=0x0114}
0x8f4e…8f5e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x013c}
0x8f5e…8f8a Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x005b, t01=0x014c}
0x8f8a…8f9a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005b, t01=0x0178}
0x8f9a…8fca Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x005b, t01=0x0188}
0x8fca…8fda Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005c, t01=0x0028}
0x8fda…900a Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x005c, t01=0x0038}
0x900a…901a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005c, t01=0x0068}
0x901a…9046 Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x005c, t01=0x0078}
0x9046…905a Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005c, t01=0x00a4}
0x905a…9086 Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x005c, t01=0x00b8}
0x9086…909a Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005c, t01=0x00e4}
0x909a…90c6 Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x005c, t01=0x00f8}
0x90c6…90da Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005c, t01=0x0124}
0x90da…9106 Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x005c, t01=0x0138}
0x9106…911a Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x005c, t01=0x0164}
0x911a…912e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x005c, t01=0x0178}
0x912e…9168 Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x005c, t01=0x018c}
0x9168…9178 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005d, t01=0x0036}
0x9178…91a8 Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x005d, t01=0x0046}
0x91a8…91b8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005d, t01=0x0076}
0x91b8…91e8 Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x005d, t01=0x0086}
0x91e8…91f8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x005d, t01=0x00b6}
0x91f8…9204 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x00c6}
0x9204…9216 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005d, t01=0x00d2}
0x9216…9246 Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x005d, t01=0x00e4}
0x9246…925c Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005d, t01=0x0114}
0x925c…9284 Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x005d, t01=0x012a}
0x9284…929a Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005d, t01=0x0152}
0x929a…92c4 Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x005d, t01=0x0168}
0x92c4…92da (94, 2, 194) Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005e, t01=0x0004}
0x92da…9308 Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x005e, t01=0x001a}
0x9308…931e Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005e, t01=0x0048}
0x931e…9350 Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x005e, t01=0x005e}
0x9350…9366 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x005e, t01=0x0090}
0x9366…9372 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00a6}
0x9372…937e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005e, t01=0x00b2}
0x937e…9382 Head {h00=0x4004, h01=0x0000}
0x9382…9386 00 5e 00 be ┆ ^ ┆
0x9386…938e (95, 1, 8) 20 04 00 00 00 5f 00 04 ┆ _ ┆
0x938e…9396 (96, 1, 8) 20 04 00 00 00 08 00 04 ┆ ┆
0x9396…93e6 (97, 0, 400) 00 00 01 64 00 2e 00 50 2a 20 20 20 20 41 4e 44 20 41 4c 50 48 41 4e 55 4d 45 52 49 43 20 4b 45 59 42 4f 41 52 44 53 20 50 54 53 20 36 32 33 31 2c 20 00 01 00 08 00 28 00 50 2a 20 20 20 20 36 32 33 32 2c 20 36 32 33 33 2c 20 36 32 33 34 2c ┆ d . P* AND ALPHANUMERIC KEYBOARDS PTS 6231, ( P* 6232, 6233, 6234,┆
0x93e6…9436 20 36 33 33 31 2c 41 4e 44 20 36 33 34 32 00 01 00 3a 00 2c 00 50 2a 20 20 20 20 43 4f 4e 4e 45 43 54 45 44 20 54 4f 20 43 50 55 20 56 49 41 20 43 48 4c 54 20 4f 52 20 43 48 52 54 2e 20 00 01 00 66 00 06 00 50 2a 20 00 01 00 96 00 2c 00 50 ┆ 6331,AND 6342 : , P* CONNECTED TO CPU VIA CHLT OR CHRT. f P* , P┆
0x9436…9486 2a 20 20 20 20 4f 4e 4c 59 20 49 4e 50 55 54 20 44 41 54 41 20 46 52 4f 4d 20 44 45 50 52 45 53 53 45 44 20 4b 45 59 53 00 01 00 a0 00 24 00 50 2a 20 20 20 20 41 52 45 20 48 41 4e 44 4c 45 44 20 42 59 20 54 48 45 20 44 52 49 56 45 52 2e 20 ┆* ONLY INPUT DATA FROM DEPRESSED KEYS $ P* ARE HANDLED BY THE DRIVER. ┆
0x9486…94d6 00 01 00 d0 00 06 00 50 2a 20 00 01 00 f8 00 30 00 50 2a 20 20 20 20 41 4e 20 45 43 48 4f 2d 44 45 56 49 43 45 20 43 41 4e 20 42 45 20 41 54 54 41 43 48 45 44 20 54 4f 20 45 56 45 52 59 00 01 01 02 00 30 00 50 2a 20 20 20 20 4b 45 59 42 4f ┆ P* 0 P* AN ECHO-DEVICE CAN BE ATTACHED TO EVERY 0 P* KEYBO┆
0x94d6…9526 41 52 44 20 57 48 45 52 45 20 52 45 43 45 49 56 45 44 20 43 48 41 52 41 43 54 45 52 53 20 41 52 45 20 00 01 01 36 00 10 00 50 2a 20 20 20 20 45 43 48 4f 45 44 2e 00 01 01 6a 00 06 00 50 2a 20 00 01 01 7e 00 30 00 50 2a 20 20 20 20 54 48 45 ┆ARD WHERE RECEIVED CHARACTERS ARE 6 P* ECHOED. j P* ~ 0 P* THE┆
0x9526…9576 (98, 0, 400) 20 44 52 49 56 45 52 20 43 4f 4e 53 49 53 54 53 20 4f 46 20 46 4f 4c 4c 4f 57 49 4e 47 20 50 41 52 54 53 3a 00 01 01 88 00 06 00 50 2a 20 00 02 00 2c 00 22 00 50 2a 20 20 20 20 41 20 43 20 4b 20 42 20 3a 20 41 43 54 49 56 41 54 49 4f 4e 20 ┆ DRIVER CONSISTS OF FOLLOWING PARTS: P* , " P* A C K B : ACTIVATION ┆
0x9576…95c6 50 41 52 54 00 02 00 36 00 06 00 50 2a 20 00 02 00 5c 00 24 00 50 2a 20 20 20 20 49 20 48 20 4b 20 42 20 3a 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 00 02 00 66 00 06 00 50 2a 20 00 02 00 8e 00 20 00 50 2a 20 20 20 20 45 20 43 ┆PART 6 P* $ P* I H K B : INTERRUPT HANDLER f P* P* E C┆
0x95c6…9616 20 48 20 4f 20 3a 20 45 43 48 4f 20 48 41 4e 44 4c 45 52 20 00 02 00 98 00 06 00 50 2a 20 00 02 00 bc 00 24 00 50 2a 20 20 20 20 52 20 43 20 4b 20 42 20 3a 20 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 20 00 02 00 c6 00 06 00 50 2a 20 ┆ H O : ECHO HANDLER P* $ P* R C K B : RECOVERY ROUTINE P* ┆
0x9616…9666 00 02 00 ee 00 0a 00 50 5c 45 4a 45 43 54 00 02 00 f8 00 06 00 50 2a 20 00 02 01 06 00 06 00 50 2a 20 00 02 01 10 00 2c 00 50 2a 20 20 20 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 4f 52 44 45 52 53 20 41 52 45 20 54 48 52 45 41 54 45 44 ┆ P EJECT P* P* , P* THE FOLLOWING ORDERS ARE THREATED┆
0x9666…96b6 3a 20 00 02 01 1a 00 06 00 50 2a 20 00 02 01 4a 00 1e 00 50 2a 20 20 20 20 4f 52 44 45 52 20 30 31 3a 20 42 41 53 49 43 20 52 45 41 44 20 00 02 01 54 00 20 00 50 2a 20 20 20 20 4f 52 44 45 52 20 30 32 3a 20 53 54 41 4e 44 41 52 44 20 52 45 ┆: P* J P* ORDER 01: BASIC READ T P* ORDER 02: STANDARD RE┆
0x96b6…9706 (99, 0, 400) 41 44 00 02 01 76 00 20 00 50 2a 20 20 20 20 4f 52 44 45 52 20 30 33 3a 20 4e 55 4d 45 52 49 43 20 52 45 41 44 20 00 03 00 0a 00 26 00 50 2a 20 20 20 20 4f 52 44 45 52 20 30 34 3a 20 52 45 53 45 54 20 49 4e 50 55 54 20 42 55 46 46 45 52 20 ┆AD v P* ORDER 03: NUMERIC READ & P* ORDER 04: RESET INPUT BUFFER ┆
0x9706…9756 00 03 00 2e 00 06 00 50 2a 20 00 03 00 58 00 06 00 50 2a 20 00 03 00 62 00 20 00 50 2a 20 20 20 20 4e 4f 52 4d 41 4c 20 52 45 47 49 53 54 45 52 20 55 53 41 47 45 20 3a 00 03 00 6c 00 06 00 50 2a 20 00 03 00 90 00 22 00 50 2a 20 20 20 20 52 ┆ . P* X P* b P* NORMAL REGISTER USAGE : l P* " P* R┆
0x9756…97a6 45 47 49 53 54 45 52 20 41 31 20 3a 20 52 45 54 55 52 4e 20 43 4f 44 45 00 03 00 9a 00 26 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 32 20 3a 20 49 4e 50 55 54 20 43 48 41 52 41 43 54 45 52 00 03 00 c0 00 24 00 50 2a 20 20 20 20 20 ┆EGISTER A1 : RETURN CODE & P* A2 : INPUT CHARACTER $ P* ┆
0x97a6…97f6 20 20 20 20 20 20 20 20 41 33 20 3a 20 42 55 46 46 45 52 20 49 4e 44 45 58 20 00 03 00 ea 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 34 20 3a 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 00 03 01 12 00 22 00 50 2a 20 20 20 20 20 ┆ A3 : BUFFER INDEX $ P* A4 : WORK REGISTER " P* ┆
0x97f6…9846 20 20 20 20 20 20 20 20 41 35 20 3a 20 53 54 41 43 4b 20 42 41 53 45 20 00 03 01 3a 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 36 20 3a 20 44 57 54 2d 41 44 44 52 45 53 53 00 03 01 60 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 ┆ A5 : STACK BASE : " P* A6 : DWT-ADDRESS ` P* ┆
0x9846…9896 (100, 0, 400) 20 20 20 20 41 37 20 3a 20 4f 52 44 45 52 00 03 01 86 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 38 20 3a 20 45 43 42 2d 41 44 44 52 45 53 53 00 04 00 16 00 06 00 50 2a 20 00 04 00 3c 00 0a 00 50 5c 45 4a 45 43 54 00 04 00 46 ┆ A7 : ORDER " P* A8 : ECB-ADDRESS P* < P EJECT F┆
0x9896…98e6 00 06 00 50 2a 20 00 04 00 54 00 06 00 50 2a 20 00 04 00 5e 00 1a 00 50 2a 20 20 20 20 53 59 53 54 45 4d 20 41 44 41 50 54 41 54 49 4f 4e 00 04 00 68 00 06 00 50 2a 20 00 04 00 86 00 34 00 50 2a 20 20 20 20 4b 45 59 42 4f 41 52 44 20 54 59 ┆ P* T P* ^ P* SYSTEM ADAPTATION h P* 4 P* KEYBOARD TY┆
0x98e6…9936 50 45 20 4d 55 53 54 20 42 45 20 44 45 46 49 4e 45 44 20 49 4e 20 46 49 52 53 54 20 57 4f 52 44 00 04 00 90 00 3a 00 50 2a 20 20 20 20 49 4e 20 44 57 54 2e 20 42 49 54 20 31 30 20 49 53 20 52 45 4c 45 56 41 4e 54 20 46 4f 52 20 41 4c 50 48 ┆PE MUST BE DEFINED IN FIRST WORD : P* IN DWT. BIT 10 IS RELEVANT FOR ALPH┆
0x9936…9986 41 4e 55 4d 45 52 49 43 20 52 45 41 44 20 00 04 00 c8 00 26 00 50 2a 20 20 20 20 41 4e 44 20 42 49 54 20 31 31 20 46 4f 52 20 4e 55 4d 45 52 49 43 20 52 45 41 44 2e 20 00 04 01 06 00 06 00 50 2a 20 00 04 01 30 00 2c 00 50 2a 20 20 20 20 42 ┆ANUMERIC READ & P* AND BIT 11 FOR NUMERIC READ. P* 0 , P* B┆
0x9986…99d6 49 54 20 31 30 20 3d 20 30 20 46 4f 52 20 50 54 53 20 36 32 33 31 2c 20 36 32 33 33 2c 20 36 32 33 34 00 04 01 3a 00 30 00 50 2a 20 20 20 20 42 49 54 20 31 30 20 3d 20 31 20 46 4f 52 20 50 54 53 20 36 32 33 32 2c 20 36 33 33 31 20 41 4e 44 ┆IT 10 = 0 FOR PTS 6231, 6233, 6234 : 0 P* BIT 10 = 1 FOR PTS 6232, 6331 AND┆