|
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: 26984 (0x6968)
Notes: pts_type(SC)
Names: »DRFD02.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/DRFD02.SC«
IDENT DRFD01 PRERELEASE 1977-09-09 UPDATE #0 77-09-09 * ********************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRFD01 = DRIVER FOR FLEXIBLE DISK * * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ********************************************* * 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- * /0C WRITE DELETED DATA * /11 PHYSICAL READ * /15 PHYSICAL WRITE * /1A SEARCH KEY * /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 * ************************ * * * CONDITIONAL ASSEMBLY * * * ************************ * * MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED * CHANNEL BY SETTING X:A = 0 * X:A EQU 1 CHAN EQU X:A * * FD DRIVER MAY BE ADAPTED FOR DATA MANAGEMENT * BY SETTING X:B = 1 * X:B EQU 0 DAMA EQU X:B * * IBM LABELLED DISC HANDLING MAY BE INCLUDED BY SETTING * X:C = 1 * X:C EQU 1 IBM EQU X:C EJECT * ************* * * * CONSTANTS * * * ************* * CUADR EQU 09 CONTROL UNIT ADDRESS MUXADR EQU CUADR+CUADR MUX-ADDRESS LENGTH EQU 410 SECTOR LENGTH 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 SLL A3,4 * * PUT DRIVE NO IN CIO-INSTRUCTION * LDKL A4,/FFCF ANS A4,FD:CIO ORS A3,FD:CIO * 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) FD:100 LOCK ORDER SUK A1,/11 RF(Z) FD:100 LOAD ORDER LDKL A1,/8001 RETURN CODE ABL END:IO 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,7 RF(Z) FD:030 WRITE DELETED DATA SUK A1,5 RF(Z) FD:040 PHYSICAL READ SUK A1,4 RF(Z) FD:020 PHYSICAL WRITE SUK A1,5 IFT DAMA=0 RF(Z) FD:050 SEARCH KEY XIF SUK A1,/1E ABL(Z) FD:400 UNLOAD FD:DIS EQU * ABL DISIOE REQUEST ERROR EJECT * *************** * * * BASIC WRITE * * * *************** * FD:010 CF A5,BIO ORK A2,1 FD:015 CF A5,FD:WRI PERFORM WRITE RF FD:048 TRANSFORM RETURN CODE * ****************** * * * 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 FD:045 CF A5,FD:REA PERFORM READ FD:048 EQU * ABL FD:RC EJECT IFT DAMA=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 LC A3,DWTOR,A6 DRIVE NO CF A5,VOLADR GET VOL NAME ADDR IN A2 ST A2,10,A8 STORE IN CONTROL WORD ABL END:IO * ******** * * * LOAD * * * ******** * FD:100 EQU * LDK A2,/24 DATA /5700 CF A5,FD:190 ANK A3,0 RF(NZ) FD:210 NOT OPERABLE IFT IBM=1 * * CHECK IF TOSS/IBM LABEL * LDK A2,0 BIO LDKL A4,BUF LDK A3,36 NO OF BYTES CF A5,FD:REA CF A5,LD:RC LD A1,DWTA3,A6 DRIVE INDEX LDKL A4,BUF ADK A4,34 LDR* A2,A4 CWK A2,'DT' RF(NE) FD:110 IBM LABEL PREASSUMED ADK A4,2 LDR* A2,A4 CWK A2,'OS' RF(NE) FD:110 IBM LABEL XIF * * READ VOLUME NAME * LDK A3,8 LENGTH LDK A2,0 BIO IFT IBM=1 C1R A1,A1 ANS A1,DWTLAB,A6 RF FD:120 * FD:110 LDK A3,10 LENGTH LDK A2,/30 BIO ORS A1,DWTLAB,A6 INDICATE IBM DISC FD:120 EQU * XIF LDKL A4,BUF BUFFER ADDRESS CF A5,FD:REA CF A5,LD:RC LDK A1,2 IFT IBM=1 LD A2,DWTLAB,A6 AN A2,DWTA3,A6 RF(Z) FD:130 TOSS LABEL LDK A3,10 LDKL A4,BUF CF A5,ASCII LDK A1,4 FD:130 EQU * XIF * * GET DWT VOL NAME ADDRESS * LC A3,DWTOR,A6 DRIVE NO CF A5,VOLADR ADDRESS TO A2 * * STORE NAME IN DWT * LDK A3,3 FD:140 LD A4,BUF,A1 STR A4,A2 SUK A3,1 RF(Z) FD:150 ADK A1,2 ADK A2,2 RB FD:140 FD:150 EQU * IFT IBM=1 * * DATA SET OPENING WANTED? * LD A1,DWTA3,A6 DRIVE INDEX AN A1,DWTLAB,A6 RF(Z) FD:200 TOSS LD A1,DWTOR,A6 ANK A1,/37 ORDER SUK A1,/26 RF(Z) FD:200 LOCK * * READ DATA SET LABEL * LD A2,10,A8 SECTOR NO SUK A2,8 ABL(N) DISIOE SUK A2,17 ABL(P) DISIOE ADK A2,25 SLL A2,3 BIO LDK A3,80 LENGTH LDKL A4,BUF CF A5,FD:REA CF A5,LD:RC LDKL A4,BUF ADK A4,34 BOE ADDRESS CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR LDK A2,DWTBOE CF A5,STDWT STORE BOE NO IN DWT ADK A4,2 CF A5,LOGSEC LDK A2,DWTEOE CF A5,STDWT STORE EOE NO IN DWT ADK A4,36 CF A5,LOGSEC LDK A2,DWTEOD CF A5,STDWT STORE EOD NO IN DWT * FD:200 EQU * XIF LD A2,DWTA3,A6 ORS A2,DWTLC,A6 INDICATE LOCK FD:205 LD A3,DWTRCW,A6 RETURN CODE FD:210 RF FD:RC * * ERROR , UNLOCK * FD:220 LDK A2,/14 DATA /5700 CF A5,FD:190 RB FD:205 * * LD:RC SUBROUTINE * LD:RC ORS A3,DWTRCW,A6 ANKL A3,/0405 FATAL ERROR? RB(NZ) FD:220 RTN A5 * ********** * * * UNLOAD * * * ********** * FD:400 EQU * LDK A2,/14 DATA /5700 CF A5,FD:190 ANKL A3,0 TEMP DUMMY RF(NZ) FD:410 LD A2,DWTA3,A6 INDEX MASK XRS A2,DWTLC,A6 INDICATE UNLOCKED FD:410 EQU * RF FD:RC 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 T:DISP EJECT * ************************************* * * * FD:RC - TRANSFORM RETURN CODE * * * ************************************* * * INPUT: A3 RETURN CODE FROM CONTROL UNIT * FD:RC EQU * LDR A1,A3 RF(Z) FD:RC2 ZERO ANKL A1,/0A05 LDR A4,A3 ANKL A4,/0400 BIT 5 SLC A4,7 SHIFT TO BIT 14 ORR A1,A4 IFT DAMA=0 LDR A4,A3 ANKL A4,/2000 BIT 2 SLL A4,1 SHIFT TO BIT 1 ORR A1,A4 XIF LDR A4,A3 ANK A4,/20 BIT 10 SLL A4,3 SHIFT TO BIT 7 ORR A1,A4 ANK A3,/10 BIT 11 SRC A3,5 SHIFT TO BIT 0 ORR A1,A3 FD:RC2 EQU * * * PUT EFFECTIVE LENGTH IN ECB * LD A2,4,A8 REQ LENGTH ST A2,6,A8 EFF LENGTH * ********** * * * END:IO * * * ********** * END:IO 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 LD A1,INIFLG RF(Z) FDON05 POWER UP LDKL A1,-1 ST A1,DWTST2,A6 FDON05 EQU * IM DWTA2,A6 SET FDON FLAG CM DWTRTY,A6 RESET RETRY FLAG LDK A5,DWTSB2 ADR A5,A6 STACK BASE CF A5,SETBSY SAVE DWTST IF NOT DONE , INDICATE 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 ST A4,DWTTP,A6 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 * LDKL A4,/FFCF ANS A4,FD:CIO SRN A2,A4 SLL A4,4 ORS A4,FD:CIO LDK A2,/24 DATA /5700 CF A5 FD:190 LD A2,DWTA3,A6 DRIVE IND. ANKL A3,/0 TEMP CODE RF(Z) FDON30 OK XRS A2,DWTLC,A6 INDICATE UNLOCK FDON30 EQU * SLL A2,1 CWK A2,/0010 RB(NE) FDON25 * * ANY REQUEST? * CF A5,GETST 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 LDKL A2,DWFD01 LD A1,DWTUB,A2 POINTER AT WORD IN BUFFER LD A2,DWTRW,A2 READ / WRITE INDICATOR RF(NZ) IH010 READ LDR* A2,A1 OTR A2,0,CUADR WRITE RF(A) IH020 ACCEPTED RF IH040 NOT ACCEPTED IH010 INR A2,0,CUADR READ RF(NA) IH040 NOT ACCEPTED STR A2,A1 STORE WORD IN BUFFER IH020 LDKL A2,DWFD01 DWT-ADDRESS ADK A1,2 ST A1,DWTUB,A2 POINTER AT NEXT WORD CW A1,DWTUBE,A2 RF(NE) IH030 NOT LAST WORD CIO A2,0,CUADR CIO HALT IH030 EQU * LDR* A2,A15 LDR* A1,A15 RTN A15 * * SAVE A4-A8 FOR DISPATCHER * IH040 EQU * LDR* A2,A15 LDR* A1,A15 XIF CF A15,SAVE8 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 * ANKL A3,/FF37 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 * * * ******************************************* * * ********** * * * SETBSY * * * ********** * * SETBSY SAVES DWTST TO DWTST2 IF NOT ALREADY DONE. * DWTST IS SET BUSY * * INPUT: A6 DWT ADDRESS * * REG A2 IS WORKING REGISTER SETBSY EQU * LD A2,DWTST2,A6 CWK A2,-1 RF(NE) SET:10 ALREADY SAVED LD A2,DWTST,A6 ST A2,DWTST2,A6 SET:10 CM DWTST,A6 SET BUSY RTN A5 EJECT * ********* * * * GETST * * * ********* * * FUNCTION: GETST RESTORES STATUS SAVED IN DWTST2 TO DWTST. * DWTST2 IS SET TO -1 * * INPUT: A6 DWT ADDRESS * * WORKING REGISTER: A2 * GETST EQU * LD A2,DWTST2,A6 ST A2,DWTST,A6 LDKL A2,-1 ST A2,DWTST2,A6 RTN A5 * EJECT * ******* * * * 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 A1,4,A8 REQ LEN RF(N) BIOERR ILLEGAL LENGTH LDR A3,A1 IFT DAMA=0 LDK A2,0 BIO020 LDR A4,A4 RF(NZ) BIO030 SUK A1,128 RF(Z) BIO100 REQ LEN ACCEPTED RF BIO040 BIO030 SUK A1,128 RF(NP) BIO100 REQ LEN ACCEPTED BIO040 ADK A2,1 NO OF SECTEORS CWK A2,3 RB(NG) BIO020 BIO050 RF BIOERR ILLEGAL LENGTH XIF IFT DAMA=1 SUKL A1,LENGTH BIO055 LDR A4,A4 RF(Z) BIO070 WRITE LDR A1,A1 RF(P) BIOERR REQ LEN NOT ACCEPTED LDK A2,0 LDR A1,A3 REQ LEN BIO060 SUK A1,128 RF(NP) BIO100 REQ LEN ACCEPTED ADK A2,1 CWK A2,3 RB(NG) BIO060 RF BIOERR ILLEGAL REQ LENGTH BIO070 LDR A1,A1 RF(NZ) BIOERR ILLEGAL LENGTH LDK A2,3 NO OF SECTORS XIF * * BIO100 SRC A2,2 SHIFT NO OF SECTORS INTO POS 0-1 LD A1,10,A8 SECTOR NO LDR A4,A1 IFT DAMA=1 SUKL A4,499 RF(P) BIODIS SLL A1,2 MULTIPLY BY 4 XIF IFF DAMA=1 SUKL A4,2001 RF(P) BIODIS XIF SLL A1,3 ORR A2,A1 LD A4,2,A8 BUFFER ADDRESS RTN A5 * * * ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO * BIOERR ABL END:10 BIODIS ABL FD:DIS ILLEGAL SECTOR NO * ********* * * * 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 ****************** * * * VOLADR * * * ****************** * * INPUT: A3 BIT 14-15 DRIVE NO * A6 DWT ADDRESS * * OUTPUT: A2 VOLUME NAME ADDRESS * A3 ZERO * VOLADR LDK A2,DWTVO0 ADR A2,A6 ANK A3,/3 VOLA10 EQU * RF(Z) VOLA20 ADK A2,6 UPDATE ADDRESS SUK A3,1 RB VOLA10 VOLA20 RTN A5 IFT IBM=1 EJECT * ********* * ASCII * ********* * * FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO * ASCII CODE * INPUT: A3 NO OF CHARACTERS * A4 STRING ADDRESS * WORKING REG: A1,A2 * ASCII EQU * 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. SEC. * OUTPUT: A3 BINARY SECTOR NO * A4 ADDRESS TO PHYS. SEC. +4 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 SUKL A1,1898 RF(P) LOG:10 NOT ACC SEC. NO RTN A5 LOG:10 LDKL A1,/4000 RETURN CODE ORS A1,DWTRCW,A6 ABL FD:220 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 A2,0 LDK A7,2 DEC:10 LCR A2,A4 DIGIT SUK A2,/F0 RB(N) LOG:10 SUK A2,9 RB(P) LOG:10 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 EJECT * ********* * STDWT * ********* * * FUNCTION: STDWT STORES SECTOR NO INDWT * INPUT: A2 OFFSET IN DWT * A3 SECTOR NO * A6 DWT ADDRESS * STDWT EQU * LDK A1,0 LC A1,DWTOR,A6 DRIVE NO SLL A1,1 DRIVE OFFSET ADR A1,A2 STR A3,A6 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 38 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 XIF END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT DRFD01 PRERELEASE 1977-09-09«, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…0090 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x005e}
0x0090…009a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0094}
0x009a…00c0 Head {h00=0x0022, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x009e}
0x00c0…00ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c4}
0x00ca…00f6 Head {h00=0x0028, h01=0x0050, text=»* DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0000, t01=0x00ce}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…012c Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x010e}
0x012c…0136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…0158 Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x013a}
0x0158…0162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015c}
0x0162…0198 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0000, t01=0x0166}
0x0198…01cc Head {h00=0x0030, h01=0x0050, text=»* THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0001, t01=0x000c}
0x01cc…01fe Head {h00=0x002e, h01=0x0050, text=»* CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0001, t01=0x0040}
0x01fe…0232 Head {h00=0x0030, h01=0x0050, text=»* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0001, t01=0x0072}
0x0232…025c Head {h00=0x0026, h01=0x0050, text=»* MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0001, t01=0x00a6}
0x025c…0266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d0}
0x0266…0278 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0001, t01=0x00da}
0x0278…0282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ec}
0x0282…0294 Head {h00=0x000e, h01=0x0050, text=»* ORDERS:«, t00=0x0001, t01=0x00f6}
0x0294…029e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0108}
0x029e…02ba Head {h00=0x0018, h01=0x0050, text=»* /00 TEST STATUS«, t00=0x0001, t01=0x0112}
0x02ba…02d8 Head {h00=0x001a, h01=0x0050, text=»* /01 PHYSICAL READ«, t00=0x0001, t01=0x012e}
0x02d8…031e Head {h00=0x0042, h01=0x0050, text=»* /02 SEQUENTIAL READ -IBM DISC ONLY-«, t00=0x0001, t01=0x014c}
0x031e…033a (2, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* /05 BASIC WRITE«, t00=0x0002, t01=0x0004}
0x033a…0382 Head {h00=0x0044, h01=0x0050, text=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- «, t00=0x0002, t01=0x0020}
0x0382…03a6 Head {h00=0x0020, h01=0x0050, text=»* /0C WRITE DELETED DATA «, t00=0x0002, t01=0x0068}
0x03a6…03c4 Head {h00=0x001a, h01=0x0050, text=»* /11 PHYSICAL READ«, t00=0x0002, t01=0x008c}
0x03c4…03e4 Head {h00=0x001c, h01=0x0050, text=»* /15 PHYSICAL WRITE «, t00=0x0002, t01=0x00aa}
0x03e4…0400 Head {h00=0x0018, h01=0x0050, text=»* /1A SEARCH KEY «, t00=0x0002, t01=0x00ca}
0x0400…0416 Head {h00=0x0012, h01=0x0050, text=»* /26 LOCK «, t00=0x0002, t01=0x00e6}
0x0416…045e Head {h00=0x0044, h01=0x0050, text=»* /31 REWIND -IBM DISC ONLY- «, t00=0x0002, t01=0x00fc}
0x045e…0474 Head {h00=0x0012, h01=0x0050, text=»* /37 LOAD «, t00=0x0002, t01=0x0144}
0x0474…048c Head {h00=0x0014, h01=0x0050, text=»* /38 UNLOAD «, t00=0x0002, t01=0x015a}
0x048c…0496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0172}
0x0496…04a8 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0002, t01=0x017c}
0x04a8…04b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018e}
0x04b2…04ce Head {h00=0x0018, h01=0x0050, text=»* ENTRY PARAMETERS:«, t00=0x0003, t01=0x0008}
0x04ce…04d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04d8…04f4 Head {h00=0x0018, h01=0x0050, text=»* A5 STACK BASE «, t00=0x0003, t01=0x002e}
0x04f4…0510 Head {h00=0x0018, h01=0x0050, text=»* A6 DWT-ADDRESS«, t00=0x0003, t01=0x004a}
0x0510…0526 Head {h00=0x0012, h01=0x0050, text=»* A7 ORDER«, t00=0x0003, t01=0x0066}
0x0526…0542 Head {h00=0x0018, h01=0x0050, text=»* A8 ECB-ADDRESS«, t00=0x0003, t01=0x007c}
0x0542…0550 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0098}
0x0550…055a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a6}
0x055a…056e Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00b0}
0x056e…0582 Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0003, t01=0x00c4}
0x0582…0596 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x00d8}
0x0596…05aa Head {h00=0x0010, h01=0x0050, text=»* * «, t00=0x0003, t01=0x00ec}
0x05aa…05be Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x0100}
0x05be…05c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0114}
0x05c8…05f0 Head {h00=0x0024, h01=0x0050, text=» ENTRY FDADR ACTIVATION ADDRESS«, t00=0x0003, t01=0x011e}
0x05f0…0616 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0003, t01=0x0146}
0x0616…063a Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0003, t01=0x016c}
0x063a…065c Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0003, t01=0x0190}
0x065c…0666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0022}
0x0666…067c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x002c}
0x067c…0692 Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x0042}
0x0692…06a8 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0058}
0x06a8…06be Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0004, t01=0x006e}
0x06be…06d4 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0084}
0x06d4…06de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009a}
0x06de…06fe Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x00a4}
0x06fe…071a Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0004, t01=0x00c4}
0x071a…073e Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x00e0}
0x073e…0758 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0004, t01=0x0104}
0x0758…077a Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0004, t01=0x011e}
0x077a…079a Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0004, t01=0x0140}
0x079a…07c6 Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0004, t01=0x0160}
0x07c6…07e2 Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0004, t01=0x018c}
0x07e2…080c Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0005, t01=0x0018}
0x080c…0836 Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0005, t01=0x0042}
0x0836…0840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006c}
0x0840…0860 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0005, t01=0x0076}
0x0860…0880 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0096}
0x0880…08a0 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0005, t01=0x00b6}
0x08a0…08c0 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x00d6}
0x08c0…08e0 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0005, t01=0x00f6}
0x08e0…08ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0116}
0x08ea…091c Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0005, t01=0x0120}
0x091c…0940 Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0005, t01=0x0152}
0x0940…094a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0176}
0x094a…095c Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0005, t01=0x0180}
0x095c…0970 (6, 0, 400) Head {h00=0x0010, h01=0x0050, text=»CHAN EQU X:A«, t00=0x0006, t01=0x0004}
0x0970…097a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0018}
0x097a…09b0 Head {h00=0x0032, h01=0x0050, text=»* FD DRIVER MAY BE ADAPTED FOR DATA MANAGEMENT«, t00=0x0006, t01=0x0022}
0x09b0…09cc Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B = 1«, t00=0x0006, t01=0x0058}
0x09cc…09d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0074}
0x09d6…09e8 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0006, t01=0x007e}
0x09e8…09fc Head {h00=0x0010, h01=0x0050, text=»DAMA EQU X:B«, t00=0x0006, t01=0x0090}
0x09fc…0a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a4}
0x0a06…0a46 Head {h00=0x003c, h01=0x0050, text=»* IBM LABELLED DISC HANDLING MAY BE INCLUDED BY SETTING«, t00=0x0006, t01=0x00ae}
0x0a46…0a5a Head {h00=0x0010, h01=0x0050, text=»* X:C = 1 «, t00=0x0006, t01=0x00ee}
0x0a5a…0a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0102}
0x0a64…0a76 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x0006, t01=0x010c}
0x0a76…0a8a Head {h00=0x0010, h01=0x0050, text=»IBM EQU X:C «, t00=0x0006, t01=0x011e}
0x0a8a…0a98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0132}
0x0a98…0aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0140}
0x0aa2…0ab8 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0006, t01=0x014a}
0x0ab8…0ace Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0006, t01=0x0160}
0x0ace…0ae4 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0006, t01=0x0176}
0x0ae4…0afa Head {h00=0x0012, h01=0x0050, text=»* * «, t00=0x0006, t01=0x018c}
0x0afa…0b10 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x0012}
0x0b10…0b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0028}
0x0b1a…0b44 Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x0007, t01=0x0032}
0x0b44…0b6e Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x0007, t01=0x005c}
0x0b6e…0b92 Head {h00=0x0020, h01=0x0050, text=»LENGTH EQU 410 SECTOR LENGTH«, t00=0x0007, t01=0x0086}
0x0b92…0bb6 Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x0007, t01=0x00aa}
0x0bb6…0bd2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x00ce}
0x0bd2…0bee Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0007, t01=0x00ea}
0x0bee…0c0a Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENTS*«, t00=0x0007, t01=0x0106}
0x0c0a…0c26 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0007, t01=0x0122}
0x0c26…0c42 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x013e}
0x0c42…0c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015a}
0x0c4c…0c54 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0164}
0x0c54…0c6a Head {h00=0x0012, h01=0x0050, text=»DWTA2 EQU /12 «, t00=0x0007, t01=0x016c}
0x0c6a…0c80 Head {h00=0x0012, h01=0x0050, text=»DWTA3 EQU /14 «, t00=0x0007, t01=0x0182}
0x0c80…0c96 Head {h00=0x0012, h01=0x0050, text=»DWTA5 EQU /16 «, t00=0x0008, t01=0x0008}
0x0c96…0cb8 Head {h00=0x001e, h01=0x0050, text=»DWTSB2 EQU /1E STACK BASE «, t00=0x0008, t01=0x001e}
0x0cb8…0cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0040}
0x0cc2…0cd4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x004a}
0x0cd4…0ce6 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0008, t01=0x005c}
0x0ce6…0cf8 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0008, t01=0x006e}
0x0cf8…0d0a Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0008, t01=0x0080}
0x0d0a…0d1c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x0092}
0x0d1c…0d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a4}
0x0d26…0d50 Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x0008, t01=0x00ae}
0x0d50…0d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d8}
0x0d5a…0d68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00e2}
0x0d68…0d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f0}
0x0d72…0d88 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0008, t01=0x00fa}
0x0d88…0d9e Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0008, t01=0x0110}
0x0d9e…0db4 Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x0008, t01=0x0126}
0x0db4…0dca Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x0008, t01=0x013c}
0x0dca…0de0 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0008, t01=0x0152}
0x0de0…0dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0168}
0x0dea…0e0e Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x0008, t01=0x0172}
0x0e0e…0e20 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0009, t01=0x0008}
0x0e20…0e3e Head {h00=0x001a, h01=0x0050, text=» LC A3,DWTOR,A6 INDEX «, t00=0x0009, t01=0x001a}
0x0e3e…0e5e Head {h00=0x001c, h01=0x0050, text=» LDR A2,A3 SAVE FOR FDIX«, t00=0x0009, t01=0x0038}
0x0e5e…0e70 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0009, t01=0x0058}
0x0e70…0e7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006a}
0x0e7a…0ea4 Head {h00=0x0026, h01=0x0050, text=»* PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x0009, t01=0x0074}
0x0ea4…0eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009e}
0x0eae…0ec4 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/FFCF«, t00=0x0009, t01=0x00a8}
0x0ec4…0eda Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x0009, t01=0x00be}
0x0eda…0ef0 Head {h00=0x0012, h01=0x0050, text=» ORS A3,FD:CIO«, t00=0x0009, t01=0x00d4}
0x0ef0…0efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ea}
0x0efa…0f26 Head {h00=0x0028, h01=0x0050, text=» CM DWTRCW,A6 SAVE RETURN CODE WORD «, t00=0x0009, t01=0x00f4}
0x0f26…0f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0120}
0x0f30…0f4a Head {h00=0x0016, h01=0x0050, text=»* CHECK IF LOCKED«, t00=0x0009, t01=0x012a}
0x0f4a…0f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0144}
0x0f54…0f7c Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR «, t00=0x0009, t01=0x014e}
0x0f7c…0fa2 Head {h00=0x0022, h01=0x0050, text=» CF A5,FDIX GET BIT MASK IN A3«, t00=0x0009, t01=0x0176}
0x0fa2…0fd0 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK «, t00=0x000a, t01=0x000c}
0x0fd0…0fe2 Head {h00=0x000e, h01=0x0050, text=» ANR A1,A3«, t00=0x000a, t01=0x003a}
0x0fe2…1000 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) FD:ORD LOCKED «, t00=0x000a, t01=0x004c}
0x1000…1012 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x000a, t01=0x006a}
0x1012…1026 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/26 «, t00=0x000a, t01=0x007c}
0x1026…1046 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:100 LOCK ORDER«, t00=0x000a, t01=0x0090}
0x1046…105a Head {h00=0x0010, h01=0x0050, text=» SUK A1,/11 «, t00=0x000a, t01=0x00b0}
0x105a…107a Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:100 LOAD ORDER«, t00=0x000a, t01=0x00c4}
0x107a…109c Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8001 RETURN CODE«, t00=0x000a, t01=0x00e4}
0x109c…10b0 Head {h00=0x0010, h01=0x0050, text=» ABL END:IO «, t00=0x000a, t01=0x0106}
0x10b0…10be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x011a}
0x10be…10c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0128}
0x10c8…10da Head {h00=0x000e, h01=0x0050, text=»* ORDER?«, t00=0x000a, t01=0x0132}
0x10da…10e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0144}
0x10e4…10f8 Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x000a, t01=0x014e}
0x10f8…1102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0162}
0x1102…1114 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x000a, t01=0x016c}
0x1114…1136 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:070 TEST STATUS «, t00=0x000a, t01=0x017e}
0x1136…1148 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000b, t01=0x0010}
0x1148…116c Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x000b, t01=0x0022}
0x116c…117e Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000b, t01=0x0046}
0x117e…11a0 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:010 BASIC WRITE «, t00=0x000b, t01=0x0058}
0x11a0…11b2 Head {h00=0x000e, h01=0x0050, text=» SUK A1,7 «, t00=0x000b, t01=0x007a}
0x11b2…11da Head {h00=0x0024, h01=0x0050, text=» RF(Z) FD:030 WRITE DELETED DATA«, t00=0x000b, t01=0x008c}
0x11da…11ec Head {h00=0x000e, h01=0x0050, text=» SUK A1,5 «, t00=0x000b, t01=0x00b4}
0x11ec…1210 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x000b, t01=0x00c6}
0x1210…1222 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000b, t01=0x00ea}
0x1222…1246 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:020 PHYSICAL WRITE«, t00=0x000b, t01=0x00fc}
0x1246…1258 Head {h00=0x000e, h01=0x0050, text=» SUK A1,5 «, t00=0x000b, t01=0x0120}
0x1258…126c Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=0 «, t00=0x000b, t01=0x0132}
0x126c…128c Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:050 SEARCH KEY«, t00=0x000b, t01=0x0146}
0x128c…1298 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0166}
0x1298…12ac Head {h00=0x0010, h01=0x0050, text=» SUK A1,/1E «, t00=0x000b, t01=0x0172}
0x12ac…12ca Head {h00=0x001a, h01=0x0050, text=» ABL(Z) FD:400 UNLOAD «, t00=0x000b, t01=0x0186}
0x12ca…12d2 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0014}
0x12d2…12e6 Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x000c, t01=0x001c}
0x12e6…1308 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x000c, t01=0x0030}
0x1308…1316 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0052}
0x1316…1320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0060}
0x1320…1338 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000c, t01=0x006a}
0x1338…1350 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0082}
0x1350…1368 Head {h00=0x0014, h01=0x0050, text=»* BASIC WRITE * «, t00=0x000c, t01=0x009a}
0x1368…1380 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x000c, t01=0x00b2}
0x1380…1398 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000c, t01=0x00ca}
0x1398…13a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e2}
0x13a2…13ba Head {h00=0x0014, h01=0x0050, text=»FD:010 CF A5,BIO«, t00=0x000c, t01=0x00ec}
0x13ba…13cc Head {h00=0x000e, h01=0x0050, text=» ORK A2,1 «, t00=0x000c, t01=0x0104}
0x13cc…13f6 Head {h00=0x0026, h01=0x0050, text=»FD:015 CF A5,FD:WRI PERFORM WRITE «, t00=0x000c, t01=0x0116}
0x13f6…141e Head {h00=0x0024, h01=0x0050, text=» RF FD:048 TRANSFORM RETURN CODE«, t00=0x000c, t01=0x0140}
0x141e…1428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0168}
0x1428…1442 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000c, t01=0x0172}
0x1442…145c Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x000c, t01=0x018c}
0x145c…1476 Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL WRITE *«, t00=0x000d, t01=0x0016}
0x1476…1490 Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0030}
0x1490…14aa Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000d, t01=0x004a}
0x14aa…14b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0064}
0x14b4…14cc Head {h00=0x0014, h01=0x0050, text=»FD:020 CF A5,BIO«, t00=0x000d, t01=0x006e}
0x14cc…14f4 Head {h00=0x0024, h01=0x0050, text=» ORK A2,5 INSERT BIO BITS 13-15 «, t00=0x000d, t01=0x0086}
0x14f4…1506 Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x000d, t01=0x00ae}
0x1506…1514 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00c0}
0x1514…151e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ce}
0x151e…153c Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x000d, t01=0x00d8}
0x153c…155a Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x000d, t01=0x00f6}
0x155a…1578 Head {h00=0x001a, h01=0x0050, text=»* WRITE DELETED DATA *«, t00=0x000d, t01=0x0114}
0x1578…1596 Head {h00=0x001a, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0132}
0x1596…15b4 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x000d, t01=0x0150}
0x15b4…15be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016e}
0x15be…15d6 Head {h00=0x0014, h01=0x0050, text=»FD:030 CF A5,BIO«, t00=0x000d, t01=0x0178}
0x15d6…15e8 Head {h00=0x000e, h01=0x0050, text=» ORK A2,6 «, t00=0x000d, t01=0x0190}
0x15e8…15fa Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x000e, t01=0x0012}
0x15fa…1604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0024}
0x1604…161e Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000e, t01=0x002e}
0x161e…1638 Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x000e, t01=0x0048}
0x1638…1652 Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x000e, t01=0x0062}
0x1652…166c Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x000e, t01=0x007c}
0x166c…1686 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000e, t01=0x0096}
0x1686…1690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b0}
0x1690…16ac Head {h00=0x0018, h01=0x0050, text=»FD:040 CF A5,BIO:RE «, t00=0x000e, t01=0x00ba}
0x16ac…16d4 Head {h00=0x0024, h01=0x0050, text=»FD:045 CF A5,FD:REA PERFORM READ«, t00=0x000e, t01=0x00d6}
0x16d4…16e8 Head {h00=0x0010, h01=0x0050, text=»FD:048 EQU *«, t00=0x000e, t01=0x00fe}
0x16e8…16fa Head {h00=0x000e, h01=0x0050, text=» ABL FD:RC«, t00=0x000e, t01=0x0112}
0x16fa…1708 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0124}
0x1708…171c Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=0 «, t00=0x000e, t01=0x0132}
0x171c…1726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0146}
0x1726…173c Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000e, t01=0x0150}
0x173c…1752 Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x000e, t01=0x0166}
0x1752…1768 Head {h00=0x0012, h01=0x0050, text=»* SEARCH KEY *«, t00=0x000e, t01=0x017c}
0x1768…177e (15, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0004}
0x177e…1794 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x001a}
0x1794…179e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0030}
0x179e…17b2 Head {h00=0x0010, h01=0x0050, text=»FD:050 EQU *«, t00=0x000f, t01=0x003a}
0x17b2…17d8 Head {h00=0x0022, h01=0x0050, text=» LD A4,10,A8 KEY AREA ADDRESS «, t00=0x000f, t01=0x004e}
0x17d8…17fc Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A4 KEY AREA LENGTH «, t00=0x000f, t01=0x0074}
0x17fc…180e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x000f, t01=0x0098}
0x180e…1834 Head {h00=0x0022, h01=0x0050, text=» ABL(NP) END:10 ILLEGAL LENGTH«, t00=0x000f, t01=0x00aa}
0x1834…1848 Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x000f, t01=0x00d0}
0x1848…186e Head {h00=0x0022, h01=0x0050, text=» ABL(P) END:10 ILLEGAL LENGTH «, t00=0x000f, t01=0x00e4}
0x186e…1880 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x000f, t01=0x010a}
0x1880…188a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011c}
0x188a…18b8 Head {h00=0x002a, h01=0x0050, text=»* IF ODD CHANGE TO EVEN NO OF BYTES «, t00=0x000f, t01=0x0126}
0x18b8…18c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0154}
0x18c2…18d4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x000f, t01=0x015e}
0x18d4…18e6 Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x000f, t01=0x0170}
0x18e6…18f8 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x000f, t01=0x0182}
0x18f8…1902 (16, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0004}
0x1902…1914 Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0010, t01=0x000e}
0x1914…192a Head {h00=0x0012, h01=0x0050, text=» ORK A2,7 BIO «, t00=0x0010, t01=0x0020}
0x192a…193c Head {h00=0x000e, h01=0x0050, text=» ADK A3,4 «, t00=0x0010, t01=0x0036}
0x193c…195a Head {h00=0x001a, h01=0x0050, text=» ADK A4,2 KEY ADDRESS «, t00=0x0010, t01=0x0048}
0x195a…197a Head {h00=0x001c, h01=0x0050, text=» CF A5,FD:WRI SEARCH KEY«, t00=0x0010, t01=0x0066}
0x197a…1998 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 RETURN CODE«, t00=0x0010, t01=0x0086}
0x1998…19ae Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:048«, t00=0x0010, t01=0x00a4}
0x19ae…19b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ba}
0x19b8…19e0 Head {h00=0x0024, h01=0x0050, text=»* READ RECORD WITH KEY COMMAND «, t00=0x0010, t01=0x00c4}
0x19e0…19ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ec}
0x19ea…19fe Head {h00=0x0010, h01=0x0050, text=»FD:060 EQU *«, t00=0x0010, t01=0x00f6}
0x19fe…1a18 Head {h00=0x0016, h01=0x0050, text=» LDKL A2,/8004 BIO«, t00=0x0010, t01=0x010a}
0x1a18…1a3c Head {h00=0x0020, h01=0x0050, text=» LD A3,4,A8 REQUESTED LENGTH«, t00=0x0010, t01=0x0124}
0x1a3c…1a50 Head {h00=0x0010, h01=0x0050, text=» CWK A3,130 «, t00=0x0010, t01=0x0148}
0x1a50…1a76 Head {h00=0x0022, h01=0x0050, text=» ABL(NE) END:10 ILLEGAL LENGTH«, t00=0x0010, t01=0x015c}
0x1a76…1a98 Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0010, t01=0x0182}
0x1a98…1aaa Head {h00=0x000e, h01=0x0050, text=» RB FD:045«, t00=0x0011, t01=0x0014}
0x1aaa…1ab6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0026}
0x1ab6…1ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0032}
0x1ac0…1ad8 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0011, t01=0x003c}
0x1ad8…1af0 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x0011, t01=0x0054}
0x1af0…1b08 Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x0011, t01=0x006c}
0x1b08…1b20 Head {h00=0x0014, h01=0x0050, text=»* * «, t00=0x0011, t01=0x0084}
0x1b20…1b38 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0011, t01=0x009c}
0x1b38…1b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b4}
0x1b42…1b56 Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0011, t01=0x00be}
0x1b56…1b76 Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x0011, t01=0x00d2}
0x1b76…1b8c Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0011, t01=0x00f2}
0x1b8c…1bb2 Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0201 WRITE PROTECT? «, t00=0x0011, t01=0x0108}
0x1bb2…1bc4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0011, t01=0x012e}
0x1bc4…1be4 Head {h00=0x001c, h01=0x0050, text=» LC A3,DWTOR,A6 DRIVE NO«, t00=0x0011, t01=0x0140}
0x1be4…1c12 Head {h00=0x002a, h01=0x0050, text=» CF A5,VOLADR GET VOL NAME ADDR IN A2 «, t00=0x0011, t01=0x0160}
0x1c12…1c3c Head {h00=0x0026, h01=0x0050, text=» ST A2,10,A8 STORE IN CONTROL WORD«, t00=0x0011, t01=0x018e}
0x1c3c…1c50 Head {h00=0x0010, h01=0x0050, text=» ABL END:IO «, t00=0x0012, t01=0x0028}
0x1c50…1c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003c}
0x1c5a…1c6a Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0012, t01=0x0046}
0x1c6a…1c7a Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0056}
0x1c7a…1c8a Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0012, t01=0x0066}
0x1c8a…1c9a Head {h00=0x000c, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0076}
0x1c9a…1caa Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0012, t01=0x0086}
0x1caa…1cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0096}
0x1cb4…1cc8 Head {h00=0x0010, h01=0x0050, text=»FD:100 EQU *«, t00=0x0012, t01=0x00a0}
0x1cc8…1cdc Head {h00=0x0010, h01=0x0050, text=» LDK A2,/24 «, t00=0x0012, t01=0x00b4}
0x1cdc…1cfc Head {h00=0x001c, h01=0x0050, text=» DATA /5700 CF A5,FD:190«, t00=0x0012, t01=0x00c8}
0x1cfc…1d0e Head {h00=0x000e, h01=0x0050, text=» ANK A3,0 «, t00=0x0012, t01=0x00e8}
0x1d0e…1d32 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) FD:210 NOT OPERABLE «, t00=0x0012, t01=0x00fa}
0x1d32…1d44 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0012, t01=0x011e}
0x1d44…1d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0130}
0x1d4e…1d70 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF TOSS/IBM LABEL«, t00=0x0012, t01=0x013a}
0x1d70…1d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015c}
0x1d7a…1d90 Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0012, t01=0x0166}
0x1d90…1da4 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0012, t01=0x017c}
0x1da4…1dc2 Head {h00=0x001a, h01=0x0050, text=» LDK A3,36 NO OF BYTES«, t00=0x0012, t01=0x0190}
0x1dc2…1dd8 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0013, t01=0x001e}
0x1dd8…1dec Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0013, t01=0x0034}
0x1dec…1e10 Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE INDEX «, t00=0x0013, t01=0x0048}
0x1e10…1e24 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0013, t01=0x006c}
0x1e24…1e36 Head {h00=0x000e, h01=0x0050, text=» ADK A4,34«, t00=0x0013, t01=0x0080}
0x1e36…1e4a Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0013, t01=0x0092}
0x1e4a…1e5e Head {h00=0x0010, h01=0x0050, text=» CWK A2,'DT'«, t00=0x0013, t01=0x00a6}
0x1e5e…1e8a Head {h00=0x0028, h01=0x0050, text=» RF(NE) FD:110 IBM LABEL PREASSUMED «, t00=0x0013, t01=0x00ba}
0x1e8a…1e9c Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0013, t01=0x00e6}
0x1e9c…1eb0 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0013, t01=0x00f8}
0x1eb0…1ec4 Head {h00=0x0010, h01=0x0050, text=» CWK A2,'OS'«, t00=0x0013, t01=0x010c}
0x1ec4…1ee4 Head {h00=0x001c, h01=0x0050, text=» RF(NE) FD:110 IBM LABEL«, t00=0x0013, t01=0x0120}
0x1ee4…1ef0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0140}
0x1ef0…1efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x014c}
0x1efa…1f16 Head {h00=0x0018, h01=0x0050, text=»* READ VOLUME NAME «, t00=0x0013, t01=0x0156}
0x1f16…1f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0172}
0x1f20…1f38 Head {h00=0x0014, h01=0x0050, text=» LDK A3,8 LENGTH«, t00=0x0013, t01=0x017c}
0x1f38…1f4e (20, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0014, t01=0x0004}
0x1f4e…1f60 Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0014, t01=0x001a}
0x1f60…1f72 Head {h00=0x000e, h01=0x0050, text=» C1R A1,A1«, t00=0x0014, t01=0x002c}
0x1f72…1f8c Head {h00=0x0016, h01=0x0050, text=» ANS A1,DWTLAB,A6 «, t00=0x0014, t01=0x003e}
0x1f8c…1f9e Head {h00=0x000e, h01=0x0050, text=» RF FD:120«, t00=0x0014, t01=0x0058}
0x1f9e…1fa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006a}
0x1fa8…1fc8 Head {h00=0x001c, h01=0x0050, text=»FD:110 LDK A3,10 LENGTH «, t00=0x0014, t01=0x0074}
0x1fc8…1fe0 Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0014, t01=0x0094}
0x1fe0…200c Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM DISC «, t00=0x0014, t01=0x00ac}
0x200c…2020 Head {h00=0x0010, h01=0x0050, text=»FD:120 EQU *«, t00=0x0014, t01=0x00d8}
0x2020…202c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00ec}
0x202c…2050 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0014, t01=0x00f8}
0x2050…2066 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0014, t01=0x011c}
0x2066…207a Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0014, t01=0x0132}
0x207a…208c Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0014, t01=0x0146}
0x208c…209e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0014, t01=0x0158}
0x209e…20b6 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTLAB,A6«, t00=0x0014, t01=0x016a}
0x20b6…20ce Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTA3,A6 «, t00=0x0014, t01=0x0182}
0x20ce…20ee Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:130 TOSS LABEL«, t00=0x0015, t01=0x000a}
0x20ee…2100 Head {h00=0x000e, h01=0x0050, text=» LDK A3,10«, t00=0x0015, t01=0x002a}
0x2100…2114 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0015, t01=0x003c}
0x2114…2128 Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0015, t01=0x0050}
0x2128…213a Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0015, t01=0x0064}
0x213a…214e Head {h00=0x0010, h01=0x0050, text=»FD:130 EQU *«, t00=0x0015, t01=0x0076}
0x214e…215a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x008a}
0x215a…2164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0096}
0x2164…2188 Head {h00=0x0020, h01=0x0050, text=»* GET DWT VOL NAME ADDRESS «, t00=0x0015, t01=0x00a0}
0x2188…2192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c4}
0x2192…21b2 Head {h00=0x001c, h01=0x0050, text=» LC A3,DWTOR,A6 DRIVE NO«, t00=0x0015, t01=0x00ce}
0x21b2…21d6 Head {h00=0x0020, h01=0x0050, text=» CF A5,VOLADR ADDRESS TO A2 «, t00=0x0015, t01=0x00ee}
0x21d6…21e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0112}
0x21e0…21fc Head {h00=0x0018, h01=0x0050, text=»* STORE NAME IN DWT«, t00=0x0015, t01=0x011c}
0x21fc…2206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0138}
0x2206…2218 Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x0015, t01=0x0142}
0x2218…2234 Head {h00=0x0018, h01=0x0050, text=»FD:140 LD A4,BUF,A1 «, t00=0x0015, t01=0x0154}
0x2234…2246 Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0015, t01=0x0170}
0x2246…2258 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0015, t01=0x0182}
0x2258…226e (22, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RF(Z) FD:150 «, t00=0x0016, t01=0x0004}
0x226e…2280 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0016, t01=0x001a}
0x2280…2292 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0016, t01=0x002c}
0x2292…22a4 Head {h00=0x000e, h01=0x0050, text=» RB FD:140«, t00=0x0016, t01=0x003e}
0x22a4…22b8 Head {h00=0x0010, h01=0x0050, text=»FD:150 EQU *«, t00=0x0016, t01=0x0050}
0x22b8…22ca Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0016, t01=0x0064}
0x22ca…22d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0076}
0x22d4…22f6 Head {h00=0x001e, h01=0x0050, text=»* DATA SET OPENING WANTED?«, t00=0x0016, t01=0x0080}
0x22f6…2300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a2}
0x2300…2324 Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE INDEX «, t00=0x0016, t01=0x00ac}
0x2324…233c Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTLAB,A6«, t00=0x0016, t01=0x00d0}
0x233c…2356 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FD:200 TOSS«, t00=0x0016, t01=0x00e8}
0x2356…236e Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x0016, t01=0x0102}
0x236e…2388 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/37 ORDER «, t00=0x0016, t01=0x011a}
0x2388…239c Head {h00=0x0010, h01=0x0050, text=» SUK A1,/26 «, t00=0x0016, t01=0x0134}
0x239c…23b6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FD:200 LOCK«, t00=0x0016, t01=0x0148}
0x23b6…23c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0162}
0x23c0…23de Head {h00=0x001a, h01=0x0050, text=»* READ DATA SET LABEL«, t00=0x0016, t01=0x016c}
0x23de…23e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x018a}
0x23e8…2406 (23, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LD A2,10,A8 SECTOR NO«, t00=0x0017, t01=0x0004}
0x2406…2418 Head {h00=0x000e, h01=0x0050, text=» SUK A2,8 «, t00=0x0017, t01=0x0022}
0x2418…242e Head {h00=0x0012, h01=0x0050, text=» ABL(N) DISIOE«, t00=0x0017, t01=0x0034}
0x242e…2440 Head {h00=0x000e, h01=0x0050, text=» SUK A2,17«, t00=0x0017, t01=0x004a}
0x2440…2456 Head {h00=0x0012, h01=0x0050, text=» ABL(P) DISIOE«, t00=0x0017, t01=0x005c}
0x2456…2468 Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x0017, t01=0x0072}
0x2468…247e Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x0017, t01=0x0084}
0x247e…2498 Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x0017, t01=0x009a}
0x2498…24ac Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0017, t01=0x00b4}
0x24ac…24c2 Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0017, t01=0x00c8}
0x24c2…24d6 Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0017, t01=0x00de}
0x24d6…24ea Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0017, t01=0x00f2}
0x24ea…2508 Head {h00=0x001a, h01=0x0050, text=» ADK A4,34 BOE ADDRESS«, t00=0x0017, t01=0x0106}
0x2508…253a Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x0017, t01=0x0124}
0x253a…2550 Head {h00=0x0012, h01=0x0050, text=» LDK A2,DWTBOE«, t00=0x0017, t01=0x0156}
0x2550…2578 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x0017, t01=0x016c}
0x2578…258a (24, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0018, t01=0x0004}
0x258a…25a0 Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x0018, t01=0x0016}
0x25a0…25b6 Head {h00=0x0012, h01=0x0050, text=» LDK A2,DWTEOE«, t00=0x0018, t01=0x002c}
0x25b6…25de Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x0018, t01=0x0042}
0x25de…25f0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,36«, t00=0x0018, t01=0x006a}
0x25f0…2606 Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x0018, t01=0x007c}
0x2606…261c Head {h00=0x0012, h01=0x0050, text=» LDK A2,DWTEOD«, t00=0x0018, t01=0x0092}
0x261c…2644 Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x0018, t01=0x00a8}
0x2644…264e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d0}
0x264e…2662 Head {h00=0x0010, h01=0x0050, text=»FD:200 EQU *«, t00=0x0018, t01=0x00da}
0x2662…266e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00ee}
0x266e…2686 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x0018, t01=0x00fa}
0x2686…26ac Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x0018, t01=0x0112}
0x26ac…26d6 Head {h00=0x0026, h01=0x0050, text=»FD:205 LD A3,DWTRCW,A6 RETURN CODE«, t00=0x0018, t01=0x0138}
0x26d6…26ee Head {h00=0x0014, h01=0x0050, text=»FD:210 RF FD:RC «, t00=0x0018, t01=0x0162}
0x26ee…26f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017a}
0x26f8…2712 Head {h00=0x0016, h01=0x0050, text=»* ERROR , UNLOCK «, t00=0x0018, t01=0x0184}
0x2712…271c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000e}
0x271c…2736 Head {h00=0x0016, h01=0x0050, text=»FD:220 LDK A2,/14 «, t00=0x0019, t01=0x0018}
0x2736…2756 Head {h00=0x001c, h01=0x0050, text=» DATA /5700 CF A5,FD:190«, t00=0x0019, t01=0x0032}
0x2756…2768 Head {h00=0x000e, h01=0x0050, text=» RB FD:205«, t00=0x0019, t01=0x0052}
0x2768…2772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0064}
0x2772…2790 Head {h00=0x001a, h01=0x0050, text=»* LD:RC SUBROUTINE «, t00=0x0019, t01=0x006e}
0x2790…279a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x008c}
0x279a…27b8 Head {h00=0x001a, h01=0x0050, text=»LD:RC ORS A3,DWTRCW,A6«, t00=0x0019, t01=0x0096}
0x27b8…27dc Head {h00=0x0020, h01=0x0050, text=» ANKL A3,/0405 FATAL ERROR? «, t00=0x0019, t01=0x00b4}
0x27dc…27f2 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:220«, t00=0x0019, t01=0x00d8}
0x27f2…2802 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0019, t01=0x00ee}
0x2802…280c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00fe}
0x280c…281e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x0108}
0x281e…2830 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0019, t01=0x011a}
0x2830…2842 Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0019, t01=0x012c}
0x2842…2854 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x0019, t01=0x013e}
0x2854…2866 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x0150}
0x2866…2870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0162}
0x2870…2884 Head {h00=0x0010, h01=0x0050, text=»FD:400 EQU *«, t00=0x0019, t01=0x016c}
0x2884…2898 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/14 «, t00=0x0019, t01=0x0180}
0x2898…28b8 (26, 0, 400) Head {h00=0x001c, h01=0x0050, text=» DATA /5700 CF A5,FD:190«, t00=0x001a, t01=0x0004}
0x28b8…28d6 Head {h00=0x001a, h01=0x0050, text=» ANKL A3,0 TEMP DUMMY «, t00=0x001a, t01=0x0024}
0x28d6…28ec Head {h00=0x0012, h01=0x0050, text=» RF(NZ) FD:410«, t00=0x001a, t01=0x0042}
0x28ec…290e Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 INDEX MASK«, t00=0x001a, t01=0x0058}
0x290e…2938 Head {h00=0x0026, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCKED«, t00=0x001a, t01=0x007a}
0x2938…294c Head {h00=0x0010, h01=0x0050, text=»FD:410 EQU *«, t00=0x001a, t01=0x00a4}
0x294c…295e Head {h00=0x000e, h01=0x0050, text=» RF FD:RC «, t00=0x001a, t01=0x00b8}
0x295e…296c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00ca}
0x296c…2976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d8}
0x2976…2990 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001a, t01=0x00e2}
0x2990…29aa Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x001a, t01=0x00fc}
0x29aa…29c4 Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x001a, t01=0x0116}
0x29c4…29de Head {h00=0x0016, h01=0x0050, text=»* * «, t00=0x001a, t01=0x0130}
0x29de…29f8 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001a, t01=0x014a}
0x29f8…2a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0164}
0x2a02…2a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x016e}
0x2a0c…2a30 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A2 BIO CONTENTS «, t00=0x001a, t01=0x0178}
0x2a30…2a64 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x001b, t01=0x000c}
0x2a64…2a8a Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x001b, t01=0x0040}
0x2a8a…2a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0066}
0x2a94…2aa8 Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x001b, t01=0x0070}
0x2aa8…2abc Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x001b, t01=0x0084}
0x2abc…2ade Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x001b, t01=0x0098}
0x2ade…2aea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00ba}
0x2aea…2afe Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x001b, t01=0x00c6}
0x2afe…2b2a Head {h00=0x0028, h01=0x0050, text=» CM DWTRW,A6 INDICATOR TO WRITE MODE«, t00=0x001b, t01=0x00da}
0x2b2a…2b36 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0106}
0x2b36…2b48 Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x001b, t01=0x0112}
0x2b48…2b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0124}
0x2b52…2b66 Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x001b, t01=0x012e}
0x2b66…2b7a Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x001b, t01=0x0142}
0x2b7a…2b8c Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001b, t01=0x0156}
0x2b8c…2bae Head {h00=0x001e, h01=0x0050, text=» ST A1,DWTRW,A6 READ MODE «, t00=0x001b, t01=0x0168}
0x2bae…2bba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x018a}
0x2bba…2bce Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x001c, t01=0x0008}
0x2bce…2bf0 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS READ«, t00=0x001c, t01=0x001c}
0x2bf0…2bfc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x003e}
0x2bfc…2c10 Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x001c, t01=0x004a}
0x2c10…2c24 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x001c, t01=0x005e}
0x2c24…2c4a Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x001c, t01=0x0072}
0x2c4a…2c5c Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x001c, t01=0x0098}
0x2c5c…2c80 Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x001c, t01=0x00aa}
0x2c80…2ca8 Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x001c, t01=0x00ce}
0x2ca8…2cb4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00f6}
0x2cb4…2cc8 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x001c, t01=0x0102}
0x2cc8…2cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0116}
0x2cd2…2d04 Head {h00=0x002e, h01=0x0050, text=»* PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x001c, t01=0x0120}
0x2d04…2d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0152}
0x2d0e…2d26 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x001c, t01=0x015c}
0x2d26…2d38 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x001c, t01=0x0174}
0x2d38…2d5e Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x001c, t01=0x0186}
0x2d5e…2d6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x001c}
0x2d6a…2d7e Head {h00=0x0010, h01=0x0050, text=»FD:820 EQU *«, t00=0x001d, t01=0x0028}
0x2d7e…2da8 Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x001d, t01=0x003c}
0x2da8…2dd0 Head {h00=0x0024, h01=0x0050, text=»FD:CIO CIO A2,1,CUADR CIO-START «, t00=0x001d, t01=0x0066}
0x2dd0…2de2 Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x001d, t01=0x008e}
0x2de2…2df0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00a0}
0x2df0…2dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ae}
0x2dfa…2e28 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001d, t01=0x00b8}
0x2e28…2e56 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x001d, t01=0x00e6}
0x2e56…2e84 Head {h00=0x002a, h01=0x0050, text=»* FD:RC - TRANSFORM RETURN CODE * «, t00=0x001d, t01=0x0114}
0x2e84…2eb2 Head {h00=0x002a, h01=0x0050, text=»* * «, t00=0x001d, t01=0x0142}
0x2eb2…2ee0 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001d, t01=0x0170}
0x2ee0…2eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000e}
0x2eea…2f1e Head {h00=0x0030, h01=0x0050, text=»* INPUT: A3 RETURN CODE FROM CONTROL UNIT«, t00=0x001e, t01=0x0018}
0x2f1e…2f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x004c}
0x2f28…2f3c Head {h00=0x0010, h01=0x0050, text=»FD:RC EQU * «, t00=0x001e, t01=0x0056}
0x2f3c…2f4e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x001e, t01=0x006a}
0x2f4e…2f68 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FD:RC2 ZERO«, t00=0x001e, t01=0x007c}
0x2f68…2f7e Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0A05«, t00=0x001e, t01=0x0096}
0x2f7e…2f90 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x001e, t01=0x00ac}
0x2f90…2fac Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x001e, t01=0x00be}
0x2fac…2fce Head {h00=0x001e, h01=0x0050, text=» SLC A4,7 SHIFT TO BIT 14 «, t00=0x001e, t01=0x00da}
0x2fce…2fe0 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A4«, t00=0x001e, t01=0x00fc}
0x2fe0…2ff4 Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=0 «, t00=0x001e, t01=0x010e}
0x2ff4…3006 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x001e, t01=0x0122}
0x3006…3022 Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x001e, t01=0x0134}
0x3022…3042 Head {h00=0x001c, h01=0x0050, text=» SLL A4,1 SHIFT TO BIT 1«, t00=0x001e, t01=0x0150}
0x3042…3054 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A4«, t00=0x001e, t01=0x0170}
0x3054…3060 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0182}
0x3060…3072 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x001e, t01=0x018e}
0x3072…308c Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x001f, t01=0x0010}
0x308c…30ac Head {h00=0x001c, h01=0x0050, text=» SLL A4,3 SHIFT TO BIT 7«, t00=0x001f, t01=0x002a}
0x30ac…30be Head {h00=0x000e, h01=0x0050, text=» ORR A1,A4«, t00=0x001f, t01=0x004a}
0x30be…30d8 Head {h00=0x0016, h01=0x0050, text=» ANK A3,/10 BIT 11«, t00=0x001f, t01=0x005c}
0x30d8…30f8 Head {h00=0x001c, h01=0x0050, text=» SRC A3,5 SHIFT TO BIT 0«, t00=0x001f, t01=0x0076}
0x30f8…310a Head {h00=0x000e, h01=0x0050, text=» ORR A1,A3«, t00=0x001f, t01=0x0096}
0x310a…311e Head {h00=0x0010, h01=0x0050, text=»FD:RC2 EQU *«, t00=0x001f, t01=0x00a8}
0x311e…3128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00bc}
0x3128…314e Head {h00=0x0022, h01=0x0050, text=»* PUT EFFECTIVE LENGTH IN ECB«, t00=0x001f, t01=0x00c6}
0x314e…3158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ec}
0x3158…3176 Head {h00=0x001a, h01=0x0050, text=» LD A2,4,A8 REQ LENGTH«, t00=0x001f, t01=0x00f6}
0x3176…3194 Head {h00=0x001a, h01=0x0050, text=» ST A2,6,A8 EFF LENGTH«, t00=0x001f, t01=0x0114}
0x3194…319e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0132}
0x319e…31b0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001f, t01=0x013c}
0x31b0…31c2 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x001f, t01=0x014e}
0x31c2…31d4 Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x001f, t01=0x0160}
0x31d4…31e6 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x001f, t01=0x0172}
0x31e6…31f8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001f, t01=0x0184}
0x31f8…3202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0008}
0x3202…321e Head {h00=0x0018, h01=0x0050, text=»END:IO CF A15,TENDIO«, t00=0x0020, t01=0x0012}
0x321e…3236 Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x0020, t01=0x002e}
0x3236…3240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0046}
0x3240…324a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0050}
0x324a…3270 Head {h00=0x0022, h01=0x0050, text=»* ENTRY FROM RECOVERY ROUTINE«, t00=0x0020, t01=0x005a}
0x3270…327a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0080}
0x327a…32ae Head {h00=0x0030, h01=0x0050, text=»END:05 CM DWTECB,A6 RESET ECB ADDRESS IN DWT«, t00=0x0020, t01=0x008a}
0x32ae…32b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00be}
0x32b8…32d2 Head {h00=0x0016, h01=0x0050, text=»* ILLEGAL LENGTH «, t00=0x0020, t01=0x00c8}
0x32d2…32dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e2}
0x32dc…3304 Head {h00=0x0024, h01=0x0050, text=»END:10 LDKL A1,/8008 RETURN CODE«, t00=0x0020, t01=0x00ec}
0x3304…3316 Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0020, t01=0x0114}
0x3316…3324 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0126}
0x3324…332e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0134}
0x332e…334a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0020, t01=0x013e}
0x334a…3366 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0020, t01=0x015a}
0x3366…3382 Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0020, t01=0x0176}
0x3382…339e (33, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0021, t01=0x0004}
0x339e…33ba Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0021, t01=0x0020}
0x33ba…33c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x003c}
0x33c4…33d4 Head {h00=0x000c, h01=0x0050, text=»FDON INH«, t00=0x0021, t01=0x0046}
0x33d4…33ea Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0021, t01=0x0056}
0x33ea…340e Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0021, t01=0x006c}
0x340e…3424 Head {h00=0x0012, h01=0x0050, text=» LD A1,INIFLG «, t00=0x0021, t01=0x0090}
0x3424…3442 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FDON05 POWER UP«, t00=0x0021, t01=0x00a6}
0x3442…3456 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0021, t01=0x00c4}
0x3456…346e Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTST2,A6«, t00=0x0021, t01=0x00d8}
0x346e…3482 Head {h00=0x0010, h01=0x0050, text=»FDON05 EQU *«, t00=0x0021, t01=0x00f0}
0x3482…34a4 Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0021, t01=0x0104}
0x34a4…34ca Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0021, t01=0x0126}
0x34ca…34e0 Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB2«, t00=0x0021, t01=0x014c}
0x34e0…34fe Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0021, t01=0x0162}
0x34fe…353a Head {h00=0x0038, h01=0x0050, text=» CF A5,SETBSY SAVE DWTST IF NOT DONE , INDICATE BUSY«, t00=0x0021, t01=0x0180}
0x353a…3544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x002c}
0x3544…355a Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0022, t01=0x0036}
0x355a…3564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x004c}
0x3564…357c Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0022, t01=0x0056}
0x357c…359e Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0022, t01=0x006e}
0x359e…35b4 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0022, t01=0x0090}
0x35b4…35da Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0022, t01=0x00a6}
0x35da…35ec Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0022, t01=0x00cc}
0x35ec…3608 Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x0022, t01=0x00de}
0x3608…361a Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0022, t01=0x00fa}
0x361a…3634 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x0022, t01=0x010c}
0x3634…364a Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0022, t01=0x0126}
0x364a…3664 Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x0022, t01=0x013c}
0x3664…367c Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTTP,A6 «, t00=0x0022, t01=0x0156}
0x367c…368e Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0022, t01=0x016e}
0x368e…3698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0180}
0x3698…36b4 Head {h00=0x0018, h01=0x0050, text=»* TIME OUT ROUTINE«, t00=0x0022, t01=0x018a}
0x36b4…36be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0016}
0x36be…36d6 Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x0023, t01=0x0020}
0x36d6…36ea Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0023, t01=0x0038}
0x36ea…3700 Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB2«, t00=0x0023, t01=0x004c}
0x3700…371e Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0023, t01=0x0062}
0x371e…3728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0080}
0x3728…373e Head {h00=0x0012, h01=0x0050, text=»* LOCK DOORS «, t00=0x0023, t01=0x008a}
0x373e…3748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a0}
0x3748…375a Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0023, t01=0x00aa}
0x375a…376e Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0023, t01=0x00bc}
0x376e…3794 Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x0023, t01=0x00d0}
0x3794…37a6 Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x0023, t01=0x00f6}
0x37a6…37c6 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x0023, t01=0x0108}
0x37c6…37e2 Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0023, t01=0x0128}
0x37e2…37ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0144}
0x37ec…3810 Head {h00=0x0020, h01=0x0050, text=»* PUT DRIVE NO IN CIO INSTR«, t00=0x0023, t01=0x014e}
0x3810…381a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0172}
0x381a…3830 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/FFCF«, t00=0x0023, t01=0x017c}
0x3830…3846 (36, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x0024, t01=0x0004}
0x3846…3858 Head {h00=0x000e, h01=0x0050, text=» SRN A2,A4«, t00=0x0024, t01=0x001a}
0x3858…386a Head {h00=0x000e, h01=0x0050, text=» SLL A4,4 «, t00=0x0024, t01=0x002c}
0x386a…3880 Head {h00=0x0012, h01=0x0050, text=» ORS A4,FD:CIO«, t00=0x0024, t01=0x003e}
0x3880…3894 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/24 «, t00=0x0024, t01=0x0054}
0x3894…38b4 Head {h00=0x001c, h01=0x0050, text=» DATA /5700 CF A5 FD:190«, t00=0x0024, t01=0x0068}
0x38b4…38d6 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0024, t01=0x0088}
0x38d6…38f4 Head {h00=0x001a, h01=0x0050, text=» ANKL A3,/0 TEMP CODE «, t00=0x0024, t01=0x00aa}
0x38f4…390c Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0024, t01=0x00c8}
0x390c…3934 Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0024, t01=0x00e0}
0x3934…3948 Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x0024, t01=0x0108}
0x3948…395a Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0024, t01=0x011c}
0x395a…3970 Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x0024, t01=0x012e}
0x3970…3986 Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x0024, t01=0x0144}
0x3986…3990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015a}
0x3990…39a8 Head {h00=0x0014, h01=0x0050, text=»* ANY REQUEST? «, t00=0x0024, t01=0x0164}
0x39a8…39b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x017c}
0x39b2…39c6 Head {h00=0x0010, h01=0x0050, text=» CF A5,GETST«, t00=0x0024, t01=0x0186}
0x39c6…39ea Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x0025, t01=0x000a}
0x39ea…39fe Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x0025, t01=0x002e}
0x39fe…3a16 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0025, t01=0x0042}
0x3a16…3a4a Head {h00=0x0030, h01=0x0050, text=» RB(N) END:05 NO REQUEST, RETURN VIA TENDIO «, t00=0x0025, t01=0x005a}
0x3a4a…3a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x008e}
0x3a54…3a6c Head {h00=0x0014, h01=0x0050, text=»* RETRY REQUEST«, t00=0x0025, t01=0x0098}
0x3a6c…3a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b0}
0x3a76…3a9a Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0025, t01=0x00ba}
0x3a9a…3ab2 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0025, t01=0x00de}
0x3ab2…3acc Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0025, t01=0x00f6}
0x3acc…3af0 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0025, t01=0x0110}
0x3af0…3b0c Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x0025, t01=0x0134}
0x3b0c…3b1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0150}
0x3b1a…3b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x015e}
0x3b24…3b42 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0025, t01=0x0168}
0x3b42…3b60 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0186}
0x3b60…3b7e Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x0026, t01=0x0014}
0x3b7e…3b9c Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x0026, t01=0x0032}
0x3b9c…3bba Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0026, t01=0x0050}
0x3bba…3bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x006e}
0x3bc4…3bd6 Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x0026, t01=0x0078}
0x3bd6…3bfe Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0026, t01=0x008a}
0x3bfe…3c12 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0026, t01=0x00b2}
0x3c12…3c26 Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0026, t01=0x00c6}
0x3c26…3c3a Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0026, t01=0x00da}
0x3c3a…3c52 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,DWFD01 «, t00=0x0026, t01=0x00ee}
0x3c52…3c84 Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTUB,A2 POINTER AT WORD IN BUFFER «, t00=0x0026, t01=0x0106}
0x3c84…3cb2 Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTRW,A2 READ / WRITE INDICATOR«, t00=0x0026, t01=0x0138}
0x3cb2…3ccc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH010 READ«, t00=0x0026, t01=0x0166}
0x3ccc…3ce0 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x0026, t01=0x0180}
0x3ce0…3cfe (39, 0, 400) Head {h00=0x001a, h01=0x0050, text=» OTR A2,0,CUADR WRITE «, t00=0x0027, t01=0x0004}
0x3cfe…3d1c Head {h00=0x001a, h01=0x0050, text=» RF(A) IH020 ACCEPTED «, t00=0x0027, t01=0x0022}
0x3d1c…3d3a Head {h00=0x001a, h01=0x0050, text=» RF IH040 NOT ACCEPTED«, t00=0x0027, t01=0x0040}
0x3d3a…3d5c Head {h00=0x001e, h01=0x0050, text=»IH010 INR A2,0,CUADR READ «, t00=0x0027, t01=0x005e}
0x3d5c…3d7e Head {h00=0x001e, h01=0x0050, text=» RF(NA) IH040 NOT ACCEPTED«, t00=0x0027, t01=0x0080}
0x3d7e…3da6 Head {h00=0x0024, h01=0x0050, text=» STR A2,A1 STORE WORD IN BUFFER «, t00=0x0027, t01=0x00a2}
0x3da6…3dce Head {h00=0x0024, h01=0x0050, text=»IH020 LDKL A2,DWFD01 DWT-ADDRESS«, t00=0x0027, t01=0x00ca}
0x3dce…3de0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0027, t01=0x00f2}
0x3de0…3e0c Head {h00=0x0028, h01=0x0050, text=» ST A1,DWTUB,A2 POINTER AT NEXT WORD«, t00=0x0027, t01=0x0104}
0x3e0c…3e24 Head {h00=0x0014, h01=0x0050, text=» CW A1,DWTUBE,A2«, t00=0x0027, t01=0x0130}
0x3e24…3e48 Head {h00=0x0020, h01=0x0050, text=» RF(NE) IH030 NOT LAST WORD «, t00=0x0027, t01=0x0148}
0x3e48…3e68 Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0027, t01=0x016c}
0x3e68…3e7c Head {h00=0x0010, h01=0x0050, text=»IH030 EQU * «, t00=0x0027, t01=0x018c}
0x3e7c…3e90 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0028, t01=0x0010}
0x3e90…3ea4 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0028, t01=0x0024}
0x3ea4…3eb4 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0028, t01=0x0038}
0x3eb4…3ebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0048}
0x3ebe…3ee2 Head {h00=0x0020, h01=0x0050, text=»* SAVE A4-A8 FOR DISPATCHER «, t00=0x0028, t01=0x0052}
0x3ee2…3eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0076}
0x3eec…3f00 Head {h00=0x0010, h01=0x0050, text=»IH040 EQU * «, t00=0x0028, t01=0x0080}
0x3f00…3f14 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0028, t01=0x0094}
0x3f14…3f28 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0028, t01=0x00a8}
0x3f28…3f34 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00bc}
0x3f34…3f4a Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0028, t01=0x00c8}
0x3f4a…3f66 Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x0028, t01=0x00de}
0x3f66…3f8a Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0028, t01=0x00fa}
0x3f8a…3fae Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0028, t01=0x011e}
0x3fae…3fd4 Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0028, t01=0x0142}
0x3fd4…3fe6 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0028, t01=0x0168}
0x3fe6…400a Head {h00=0x0020, h01=0x0050, text=» RF(N) FDRE READY INTERRUPT «, t00=0x0028, t01=0x017a}
0x400a…401c Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0029, t01=0x000e}
0x401c…403c Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY? «, t00=0x0029, t01=0x0020}
0x403c…4054 Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x0029, t01=0x0040}
0x4054…407a Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0029, t01=0x0058}
0x407a…408c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0029, t01=0x007e}
0x408c…40a2 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0405«, t00=0x0029, t01=0x0090}
0x40a2…40c6 Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x0029, t01=0x00a6}
0x40c6…40d8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,/4«, t00=0x0029, t01=0x00ca}
0x40d8…40f4 Head {h00=0x0018, h01=0x0050, text=» ORR A3,A1 CRC ERROR«, t00=0x0029, t01=0x00dc}
0x40f4…4108 Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x0029, t01=0x00f8}
0x4108…411e Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x0029, t01=0x010c}
0x411e…412e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0029, t01=0x0122}
0x412e…413c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0132}
0x413c…4146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0140}
0x4146…4162 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0029, t01=0x014a}
0x4162…417e Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0029, t01=0x0166}
0x417e…419a Head {h00=0x0018, h01=0x0050, text=»* READY INTERRUPT *«, t00=0x0029, t01=0x0182}
0x419a…41b6 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x002a, t01=0x000e}
0x41b6…41d2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002a, t01=0x002a}
0x41d2…41dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0046}
0x41dc…41ee Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x002a, t01=0x0050}
0x41ee…4206 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x002a, t01=0x0062}
0x4206…4236 Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE «, t00=0x002a, t01=0x007a}
0x4236…424c Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB2«, t00=0x002a, t01=0x00aa}
0x424c…426a Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x002a, t01=0x00c0}
0x426a…427c Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x002a, t01=0x00de}
0x427c…428a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00f0}
0x428a…4294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00fe}
0x4294…42c8 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x002a, t01=0x0108}
0x42c8…42fc Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x002a, t01=0x013c}
0x42fc…4330 Head {h00=0x0030, h01=0x0050, text=»* S U B R O U T I N E S * «, t00=0x002a, t01=0x0170}
0x4330…4364 Head {h00=0x0030, h01=0x0050, text=»* * «, t00=0x002b, t01=0x0014}
0x4364…4398 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x002b, t01=0x0048}
0x4398…43a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x007c}
0x43a2…43ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0086}
0x43ac…43be Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x0090}
0x43be…43d0 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x002b, t01=0x00a2}
0x43d0…43e2 Head {h00=0x000e, h01=0x0050, text=»* SETBSY *«, t00=0x002b, t01=0x00b4}
0x43e2…43f4 Head {h00=0x000e, h01=0x0050, text=»* *«, t00=0x002b, t01=0x00c6}
0x43f4…4406 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x00d8}
0x4406…4410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ea}
0x4410…444c Head {h00=0x0038, h01=0x0050, text=»* SETBSY SAVES DWTST TO DWTST2 IF NOT ALREADY DONE. «, t00=0x002b, t01=0x00f4}
0x444c…4468 Head {h00=0x0018, h01=0x0050, text=»* DWTST IS SET BUSY «, t00=0x002b, t01=0x0130}
0x4468…4472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x014c}
0x4472…4494 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x002b, t01=0x0156}
0x4494…449e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0178}
0x449e…44ca Head {h00=0x0028, h01=0x0050, text=»* REG A2 IS WORKING REGISTER«, t00=0x002b, t01=0x0182}
0x44ca…44de Head {h00=0x0010, h01=0x0050, text=»SETBSY EQU *«, t00=0x002c, t01=0x001e}
0x44de…44f6 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST2,A6«, t00=0x002c, t01=0x0032}
0x44f6…4508 Head {h00=0x000e, h01=0x0050, text=» CWK A2,-1«, t00=0x002c, t01=0x004a}
0x4508…452c Head {h00=0x0020, h01=0x0050, text=» RF(NE) SET:10 ALREADY SAVED«, t00=0x002c, t01=0x005c}
0x452c…4544 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x002c, t01=0x0080}
0x4544…455c Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST2,A6«, t00=0x002c, t01=0x0098}
0x455c…4580 Head {h00=0x0020, h01=0x0050, text=»SET:10 CM DWTST,A6 SET BUSY «, t00=0x002c, t01=0x00b0}
0x4580…4590 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x002c, t01=0x00d4}
0x4590…459e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00e4}
0x459e…45a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f2}
0x45a8…45ba Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x002c, t01=0x00fc}
0x45ba…45cc Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x002c, t01=0x010e}
0x45cc…45de Head {h00=0x000e, h01=0x0050, text=»* GETST * «, t00=0x002c, t01=0x0120}
0x45de…45f0 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x002c, t01=0x0132}
0x45f0…4602 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x002c, t01=0x0144}
0x4602…460c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0156}
0x460c…4650 Head {h00=0x0040, h01=0x0050, text=»* FUNCTION: GETST RESTORES STATUS SAVED IN DWTST2 TO DWTST.«, t00=0x002c, t01=0x0160}
0x4650…4678 Head {h00=0x0024, h01=0x0050, text=»* DWTST2 IS SET TO -1«, t00=0x002d, t01=0x0014}
0x4678…4682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x003c}
0x4682…46a6 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 DWT ADDRESS«, t00=0x002d, t01=0x0046}
0x46a6…46b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x006a}
0x46b0…46d0 Head {h00=0x001c, h01=0x0050, text=»* WORKING REGISTER: A2 «, t00=0x002d, t01=0x0074}
0x46d0…46da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0094}
0x46da…46ee Head {h00=0x0010, h01=0x0050, text=»GETST EQU * «, t00=0x002d, t01=0x009e}
0x46ee…4706 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST2,A6«, t00=0x002d, t01=0x00b2}
0x4706…471e Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST,A6 «, t00=0x002d, t01=0x00ca}
0x471e…4732 Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x002d, t01=0x00e2}
0x4732…474a Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST2,A6«, t00=0x002d, t01=0x00f6}
0x474a…475a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x002d, t01=0x010e}
0x475a…4764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x011e}
0x4764…4772 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0128}
0x4772…477c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0136}
0x477c…478c Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x002d, t01=0x0140}
0x478c…479c Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x002d, t01=0x0150}
0x479c…47ac Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x002d, t01=0x0160}
0x47ac…47bc Head {h00=0x000c, h01=0x0050, text=»* * «, t00=0x002d, t01=0x0170}
0x47bc…47cc Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x002d, t01=0x0180}
0x47cc…47d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0190}
0x47d6…47e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x000a}
0x47e0…4802 Head {h00=0x001e, h01=0x0050, text=»* INPUT: A8 ECB ADDRESS«, t00=0x002e, t01=0x0014}
0x4802…480c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0036}
0x480c…484e Head {h00=0x003e, h01=0x0050, text=»* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x002e, t01=0x0040}
0x484e…4882 Head {h00=0x0030, h01=0x0050, text=»* A3 NO OF BYTES TO BE TRANSFERED «, t00=0x002e, t01=0x0082}
0x4882…48a8 Head {h00=0x0022, h01=0x0050, text=»* A4 BUFFER ADDRESS «, t00=0x002e, t01=0x00b6}
0x48a8…48b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00dc}
0x48b2…48c4 Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x002e, t01=0x00e6}
0x48c4…48da Head {h00=0x0012, h01=0x0050, text=» LDK A4,0 FLAG«, t00=0x002e, t01=0x00f8}
0x48da…48ec Head {h00=0x000e, h01=0x0050, text=» RF BIO010«, t00=0x002e, t01=0x010e}
0x48ec…4904 Head {h00=0x0014, h01=0x0050, text=»BIO:RE LDK A4,1 «, t00=0x002e, t01=0x0120}
0x4904…4918 Head {h00=0x0010, h01=0x0050, text=»BIO010 EQU *«, t00=0x002e, t01=0x0138}
0x4918…4934 Head {h00=0x0018, h01=0x0050, text=» LD A1,4,A8 REQ LEN «, t00=0x002e, t01=0x014c}
0x4934…4958 Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOERR ILLEGAL LENGTH«, t00=0x002e, t01=0x0168}
0x4958…496a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x002e, t01=0x018c}
0x496a…497e Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=0 «, t00=0x002f, t01=0x000e}
0x497e…4990 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002f, t01=0x0022}
0x4990…49a8 Head {h00=0x0014, h01=0x0050, text=»BIO020 LDR A4,A4«, t00=0x002f, t01=0x0034}
0x49a8…49be Head {h00=0x0012, h01=0x0050, text=» RF(NZ) BIO030«, t00=0x002f, t01=0x004c}
0x49be…49d2 Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x002f, t01=0x0062}
0x49d2…49f8 Head {h00=0x0022, h01=0x0050, text=» RF(Z) BIO100 REQ LEN ACCEPTED«, t00=0x002f, t01=0x0076}
0x49f8…4a0a Head {h00=0x000e, h01=0x0050, text=» RF BIO040«, t00=0x002f, t01=0x009c}
0x4a0a…4a24 Head {h00=0x0016, h01=0x0050, text=»BIO030 SUK A1,128 «, t00=0x002f, t01=0x00ae}
0x4a24…4a4c Head {h00=0x0024, h01=0x0050, text=» RF(NP) BIO100 REQ LEN ACCEPTED «, t00=0x002f, t01=0x00c8}
0x4a4c…4a72 Head {h00=0x0022, h01=0x0050, text=»BIO040 ADK A2,1 NO OF SECTEORS«, t00=0x002f, t01=0x00f0}
0x4a72…4a84 Head {h00=0x000e, h01=0x0050, text=» CWK A2,3 «, t00=0x002f, t01=0x0116}
0x4a84…4a9a Head {h00=0x0012, h01=0x0050, text=» RB(NG) BIO020«, t00=0x002f, t01=0x0128}
0x4a9a…4ac2 Head {h00=0x0024, h01=0x0050, text=»BIO050 RF BIOERR ILLEGAL LENGTH «, t00=0x002f, t01=0x013e}
0x4ac2…4ace Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0166}
0x4ace…4ae2 Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=1 «, t00=0x002f, t01=0x0172}
0x4ae2…4afa Head {h00=0x0014, h01=0x0050, text=» SUKL A1,LENGTH «, t00=0x002f, t01=0x0186}
0x4afa…4b12 Head {h00=0x0014, h01=0x0050, text=»BIO055 LDR A4,A4«, t00=0x0030, t01=0x000e}
0x4b12…4b2e Head {h00=0x0018, h01=0x0050, text=» RF(Z) BIO070 WRITE «, t00=0x0030, t01=0x0026}
0x4b2e…4b40 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0030, t01=0x0042}
0x4b40…4b6a Head {h00=0x0026, h01=0x0050, text=» RF(P) BIOERR REQ LEN NOT ACCEPTED«, t00=0x0030, t01=0x0054}
0x4b6a…4b7c Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0030, t01=0x007e}
0x4b7c…4b96 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A3 REQ LEN«, t00=0x0030, t01=0x0090}
0x4b96…4bb0 Head {h00=0x0016, h01=0x0050, text=»BIO060 SUK A1,128 «, t00=0x0030, t01=0x00aa}
0x4bb0…4bd8 Head {h00=0x0024, h01=0x0050, text=» RF(NP) BIO100 REQ LEN ACCEPTED «, t00=0x0030, t01=0x00c4}
0x4bd8…4bea Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0030, t01=0x00ec}
0x4bea…4bfc Head {h00=0x000e, h01=0x0050, text=» CWK A2,3 «, t00=0x0030, t01=0x00fe}
0x4bfc…4c12 Head {h00=0x0012, h01=0x0050, text=» RB(NG) BIO060«, t00=0x0030, t01=0x0110}
0x4c12…4c38 Head {h00=0x0022, h01=0x0050, text=» RF BIOERR ILLEGAL REQ LENGTH «, t00=0x0030, t01=0x0126}
0x4c38…4c50 Head {h00=0x0014, h01=0x0050, text=»BIO070 LDR A1,A1«, t00=0x0030, t01=0x014c}
0x4c50…4c76 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) BIOERR ILLEGAL LENGTH «, t00=0x0030, t01=0x0164}
0x4c76…4c96 Head {h00=0x001c, h01=0x0050, text=» LDK A2,3 NO OF SECTORS «, t00=0x0030, t01=0x018a}
0x4c96…4ca2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x001a}
0x4ca2…4cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0026}
0x4cac…4cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0030}
0x4cb6…4cee Head {h00=0x0034, h01=0x0050, text=»BIO100 SRC A2,2 SHIFT NO OF SECTORS INTO POS 0-1«, t00=0x0031, t01=0x003a}
0x4cee…4d0c Head {h00=0x001a, h01=0x0050, text=» LD A1,10,A8 SECTOR NO«, t00=0x0031, t01=0x0072}
0x4d0c…4d1e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0031, t01=0x0090}
0x4d1e…4d32 Head {h00=0x0010, h01=0x0050, text=» IFT DAMA=1 «, t00=0x0031, t01=0x00a2}
0x4d32…4d46 Head {h00=0x0010, h01=0x0050, text=» SUKL A4,499«, t00=0x0031, t01=0x00b6}
0x4d46…4d5c Head {h00=0x0012, h01=0x0050, text=» RF(P) BIODIS «, t00=0x0031, t01=0x00ca}
0x4d5c…4d7c Head {h00=0x001c, h01=0x0050, text=» SLL A1,2 MULTIPLY BY 4 «, t00=0x0031, t01=0x00e0}
0x4d7c…4d88 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0100}
0x4d88…4d9c Head {h00=0x0010, h01=0x0050, text=» IFF DAMA=1 «, t00=0x0031, t01=0x010c}
0x4d9c…4db2 Head {h00=0x0012, h01=0x0050, text=» SUKL A4,2001 «, t00=0x0031, t01=0x0120}
0x4db2…4dc8 Head {h00=0x0012, h01=0x0050, text=» RF(P) BIODIS «, t00=0x0031, t01=0x0136}
0x4dc8…4dd4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x014c}
0x4dd4…4de6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x0031, t01=0x0158}
0x4de6…4df8 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x0031, t01=0x016a}
0x4df8…4e1a Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0031, t01=0x017c}
0x4e1a…4e2a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0032, t01=0x000e}
0x4e2a…4e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x001e}
0x4e34…4e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0028}
0x4e3e…4e74 Head {h00=0x0032, h01=0x0050, text=»* ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO«, t00=0x0032, t01=0x0032}
0x4e74…4e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0068}
0x4e7e…4e98 Head {h00=0x0016, h01=0x0050, text=»BIOERR ABL END:10 «, t00=0x0032, t01=0x0072}
0x4e98…4ec4 Head {h00=0x0028, h01=0x0050, text=»BIODIS ABL FD:DIS ILLEGAL SECTOR NO «, t00=0x0032, t01=0x008c}
0x4ec4…4ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b8}
0x4ece…4ee0 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0032, t01=0x00c2}
0x4ee0…4ef2 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0032, t01=0x00d4}
0x4ef2…4f04 Head {h00=0x000e, h01=0x0050, text=»* FDIX * «, t00=0x0032, t01=0x00e6}
0x4f04…4f16 Head {h00=0x000e, h01=0x0050, text=»* * «, t00=0x0032, t01=0x00f8}
0x4f16…4f28 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0032, t01=0x010a}
0x4f28…4f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x011c}
0x4f32…4f4c Head {h00=0x0016, h01=0x0050, text=»* INPUT: A2 X «, t00=0x0032, t01=0x0126}
0x4f4c…4f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0140}
0x4f56…4f78 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A3 2 POWER(X)«, t00=0x0032, t01=0x014a}
0x4f78…4f82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x016c}
0x4f82…4f98 Head {h00=0x0012, h01=0x0050, text=»FDIX LDK A3,1 «, t00=0x0032, t01=0x0176}
0x4f98…4faa Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0032, t01=0x018c}
0x4faa…4fbe Head {h00=0x0010, h01=0x0050, text=»FDIX10 EQU *«, t00=0x0033, t01=0x000e}
0x4fbe…4fd4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) FDIX20 «, t00=0x0033, t01=0x0022}
0x4fd4…4fe6 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0033, t01=0x0038}
0x4fe6…4ff8 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0033, t01=0x004a}
0x4ff8…500a Head {h00=0x000e, h01=0x0050, text=» RB FDIX10«, t00=0x0033, t01=0x005c}
0x500a…5020 Head {h00=0x0012, h01=0x0050, text=»FDIX20 RTN A5 «, t00=0x0033, t01=0x006e}
0x5020…502e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0084}
0x502e…5048 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0033, t01=0x0092}
0x5048…5062 Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x0033, t01=0x00ac}
0x5062…507c Head {h00=0x0016, h01=0x0050, text=»* VOLADR *«, t00=0x0033, t01=0x00c6}
0x507c…5096 Head {h00=0x0016, h01=0x0050, text=»* *«, t00=0x0033, t01=0x00e0}
0x5096…50b0 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0033, t01=0x00fa}
0x50b0…50ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0114}
0x50ba…50e4 Head {h00=0x0026, h01=0x0050, text=»* INPUT: A3 BIT 14-15 DRIVE NO«, t00=0x0033, t01=0x011e}
0x50e4…5106 Head {h00=0x001e, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0033, t01=0x0148}
0x5106…5110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x016a}
0x5110…513a Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A2 VOLUME NAME ADDRESS«, t00=0x0033, t01=0x0174}
0x513a…5156 Head {h00=0x0018, h01=0x0050, text=»* A3 ZERO «, t00=0x0034, t01=0x000e}
0x5156…5160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x002a}
0x5160…517c Head {h00=0x0018, h01=0x0050, text=»VOLADR LDK A2,DWTVO0«, t00=0x0034, t01=0x0034}
0x517c…518e Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0034, t01=0x0050}
0x518e…51a0 Head {h00=0x000e, h01=0x0050, text=» ANK A3,/3«, t00=0x0034, t01=0x0062}
0x51a0…51b4 Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x0034, t01=0x0074}
0x51b4…51ca Head {h00=0x0012, h01=0x0050, text=» RF(Z) VOLA20 «, t00=0x0034, t01=0x0088}
0x51ca…51ea Head {h00=0x001c, h01=0x0050, text=» ADK A2,6 UPDATE ADDRESS«, t00=0x0034, t01=0x009e}
0x51ea…51fc Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0034, t01=0x00be}
0x51fc…520e Head {h00=0x000e, h01=0x0050, text=» RB VOLA10«, t00=0x0034, t01=0x00d0}
0x520e…5224 Head {h00=0x0012, h01=0x0050, text=»VOLA20 RTN A5 «, t00=0x0034, t01=0x00e2}
0x5224…522c Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x00f8}
0x522c…523e Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0034, t01=0x0100}
0x523e…524c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0112}
0x524c…5256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0120}
0x5256…5268 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0034, t01=0x012a}
0x5268…527a Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x0034, t01=0x013c}
0x527a…528c Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0034, t01=0x014e}
0x528c…5296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0160}
0x5296…52d4 Head {h00=0x003a, h01=0x0050, text=»* FUNCTION: ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x0034, t01=0x016a}
0x52d4…52f4 Head {h00=0x001c, h01=0x0050, text=»* ASCII CODE«, t00=0x0035, t01=0x0018}
0x52f4…531e Head {h00=0x0026, h01=0x0050, text=»* INPUT: A3 NO OF CHARACTERS«, t00=0x0035, t01=0x0038}
0x531e…5346 Head {h00=0x0024, h01=0x0050, text=»* A4 STRING ADDRESS«, t00=0x0035, t01=0x0062}
0x5346…5364 Head {h00=0x001a, h01=0x0050, text=»* WORKING REG: A1,A2«, t00=0x0035, t01=0x008a}
0x5364…536e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a8}
0x536e…5382 Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0035, t01=0x00b2}
0x5382…5392 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0035, t01=0x00c6}
0x5392…53a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x00d6}
0x53a0…53aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00e4}
0x53aa…53bc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x00ee}
0x53bc…53ce Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x0035, t01=0x0100}
0x53ce…53e0 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0035, t01=0x0112}
0x53e0…53ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0124}
0x53ea…542e Head {h00=0x0040, h01=0x0050, text=»* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x0035, t01=0x012e}
0x542e…545e Head {h00=0x002c, h01=0x0050, text=»* LOGICAL SECTOR (BINARY). «, t00=0x0035, t01=0x0172}
0x545e…549e Head {h00=0x003c, h01=0x0050, text=»* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE)«, t00=0x0036, t01=0x0012}
0x549e…54cc Head {h00=0x002a, h01=0x0050, text=»* TT = TRACK, SS=SECTOR «, t00=0x0036, t01=0x0052}
0x54cc…54f8 Head {h00=0x0028, h01=0x0050, text=»* INPUT: A4 ADDRESS TO PHYS. SEC.«, t00=0x0036, t01=0x0080}
0x54f8…5520 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: A3 BINARY SECTOR NO«, t00=0x0036, t01=0x00ac}
0x5520…5552 Head {h00=0x002e, h01=0x0050, text=»* A4 ADDRESS TO PHYS. SEC. +4 «, t00=0x0036, t01=0x00d4}
0x5552…5566 Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x0036, t01=0x0106}
0x5566…557c Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0036, t01=0x011a}
0x557c…5594 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x0036, t01=0x0130}
0x5594…55a6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0036, t01=0x0148}
0x55a6…55b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x015a}
0x55b0…55ca Head {h00=0x0016, h01=0x0050, text=»* MULTIPLY BY 26 «, t00=0x0036, t01=0x0164}
0x55ca…55d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x017e}
0x55d4…55ea Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x0036, t01=0x0188}
0x55ea…55fc Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0037, t01=0x000e}
0x55fc…560e Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0037, t01=0x0020}
0x560e…5624 Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x0037, t01=0x0032}
0x5624…5636 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0037, t01=0x0048}
0x5636…564c Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x0037, t01=0x005a}
0x564c…5662 Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0037, t01=0x0070}
0x5662…5674 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0037, t01=0x0086}
0x5674…5686 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0037, t01=0x0098}
0x5686…5690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00aa}
0x5690…56aa Head {h00=0x0016, h01=0x0050, text=»* CHECK SECTOR NO«, t00=0x0037, t01=0x00b4}
0x56aa…56b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ce}
0x56b4…56c6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0037, t01=0x00d8}
0x56c6…56d8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x0037, t01=0x00ea}
0x56d8…56ee Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x0037, t01=0x00fc}
0x56ee…5704 Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x0037, t01=0x0112}
0x5704…572a Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x0037, t01=0x0128}
0x572a…573a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0037, t01=0x014e}
0x573a…5762 Head {h00=0x0024, h01=0x0050, text=»LOG:10 LDKL A1,/4000 RETURN CODE«, t00=0x0037, t01=0x015e}
0x5762…577c Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0037, t01=0x0186}
0x577c…579e Head {h00=0x001e, h01=0x0050, text=» ABL FD:220 ERROR ROUTINE «, t00=0x0038, t01=0x0010}
0x579e…57a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0032}
0x57a8…57ba Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0038, t01=0x003c}
0x57ba…57cc Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x0038, t01=0x004e}
0x57cc…57de Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0038, t01=0x0060}
0x57de…57e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0072}
0x57e8…582a Head {h00=0x003e, h01=0x0050, text=»* FUNCTION: DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x0038, t01=0x007c}
0x582a…5872 Head {h00=0x0044, h01=0x0050, text=»* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x0038, t01=0x00be}
0x5872…58a2 Head {h00=0x002c, h01=0x0050, text=»* INPUT: A4 ADDRESS TO FIRST DIGIT«, t00=0x0038, t01=0x0106}
0x58a2…58c0 Head {h00=0x001a, h01=0x0050, text=»* OUTPUT: A1 BINARY«, t00=0x0038, t01=0x0136}
0x58c0…58e0 Head {h00=0x001c, h01=0x0050, text=»* WORKING REG: A2,A7 «, t00=0x0038, t01=0x0154}
0x58e0…58ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0174}
0x58ea…5902 Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x0038, t01=0x017e}
0x5902…5914 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0039, t01=0x0008}
0x5914…5926 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0039, t01=0x001a}
0x5926…5944 Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x0039, t01=0x002c}
0x5944…5958 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0039, t01=0x004a}
0x5958…596e Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:10 «, t00=0x0039, t01=0x005e}
0x596e…5980 Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0039, t01=0x0074}
0x5980…59a0 Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:10 NOT DIGIT «, t00=0x0039, t01=0x0086}
0x59a0…59b2 Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0039, t01=0x00a6}
0x59b2…59c4 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0039, t01=0x00b8}
0x59c4…59da Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0039, t01=0x00ca}
0x59da…5a04 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x0039, t01=0x00e0}
0x5a04…5a1c Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0039, t01=0x010a}
0x5a1c…5a3c Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0039, t01=0x0122}
0x5a3c…5a5e Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0039, t01=0x0142}
0x5a5e…5a70 Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0039, t01=0x0164}
0x5a70…5a88 Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0039, t01=0x0176}
0x5a88…5a98 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0039, t01=0x018e}
0x5a98…5aa6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x000e}
0x5aa6…5ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x001c}
0x5ab0…5ac2 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x003a, t01=0x0026}
0x5ac2…5ad4 Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x003a, t01=0x0038}
0x5ad4…5ae6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x003a, t01=0x004a}
0x5ae6…5af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x005c}
0x5af0…5b22 Head {h00=0x002e, h01=0x0050, text=»* FUNCTION: STDWT STORES SECTOR NO INDWT«, t00=0x003a, t01=0x0066}
0x5b22…5b4a Head {h00=0x0024, h01=0x0050, text=»* INPUT: A2 OFFSET IN DWT «, t00=0x003a, t01=0x0098}
0x5b4a…5b6e Head {h00=0x0020, h01=0x0050, text=»* A3 SECTOR NO «, t00=0x003a, t01=0x00c0}
0x5b6e…5b94 Head {h00=0x0022, h01=0x0050, text=»* A6 DWT ADDRESS «, t00=0x003a, t01=0x00e4}
0x5b94…5b9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x010a}
0x5b9e…5bb2 Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x003a, t01=0x0114}
0x5bb2…5bc4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003a, t01=0x0128}
0x5bc4…5be4 Head {h00=0x001c, h01=0x0050, text=» LC A1,DWTOR,A6 DRIVE NO«, t00=0x003a, t01=0x013a}
0x5be4…5c02 Head {h00=0x001a, h01=0x0050, text=» SLL A1,1 DRIVE OFFSET«, t00=0x003a, t01=0x015a}
0x5c02…5c14 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x003a, t01=0x0178}
0x5c14…5c26 Head {h00=0x000e, h01=0x0050, text=» STR A3,A6«, t00=0x003a, t01=0x018a}
0x5c26…5c36 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003b, t01=0x000c}
0x5c36…5c42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x001c}
0x5c42…5c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0028}
0x5c4c…5c72 Head {h00=0x0022, h01=0x0050, text=»* D R I V E R B U F F E R«, t00=0x003b, t01=0x0032}
0x5c72…5c8a Head {h00=0x0014, h01=0x0050, text=»BUF DATA 0,0,0,0«, t00=0x003b, t01=0x0058}
0x5c8a…5c9c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003b, t01=0x0070}
0x5c9c…5cac Head {h00=0x000c, h01=0x0050, text=» RES 38 «, t00=0x003b, t01=0x0082}
0x5cac…5cb8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0092}
0x5cb8…5cc6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x009e}
0x5cc6…5cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ac}
0x5cd0…5cee Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x003b, t01=0x00b6}
0x5cee…5d0c Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x003b, t01=0x00d4}
0x5d0c…5d2a Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x003b, t01=0x00f2}
0x5d2a…5d48 Head {h00=0x001a, h01=0x0050, text=»* * «, t00=0x003b, t01=0x0110}
0x5d48…5d66 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x003b, t01=0x012e}
0x5d66…5d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x014c}
0x5d70…5d84 Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x003b, t01=0x0156}
0x5d84…5d94 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003b, t01=0x016a}
0x5d94…5db2 Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x003b, t01=0x017a}
0x5db2…5dce Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB-ADDRESS «, t00=0x003c, t01=0x0008}
0x5dce…5de4 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x003c, t01=0x0024}
0x5de4…5e0a Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x003c, t01=0x003a}
0x5e0a…5e26 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x003c, t01=0x0060}
0x5e26…5e4e Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x003c, t01=0x007c}
0x5e4e…5e6c Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x003c, t01=0x00a4}
0x5e6c…5e7c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003c, t01=0x00c2}
0x5e7c…5e96 Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x003c, t01=0x00d2}
0x5e96…5ea6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003c, t01=0x00ec}
0x5ea6…5eb6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003c, t01=0x00fc}
0x5eb6…5ed2 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x003c, t01=0x010c}
0x5ed2…5efe Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x003c, t01=0x0128}
0x5efe…5f0e Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x003c, t01=0x0154}
0x5f0e…5f3c Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x003c, t01=0x0164}
0x5f3c…5f4c (61, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003d, t01=0x0004}
0x5f4c…5f74 Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x003d, t01=0x0014}
0x5f74…5f84 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003d, t01=0x003c}
0x5f84…5fb0 Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x003d, t01=0x004c}
0x5fb0…5fc0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003d, t01=0x0078}
0x5fc0…5ff0 Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x003d, t01=0x0088}
0x5ff0…6000 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003d, t01=0x00b8}
0x6000…6030 Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x003d, t01=0x00c8}
0x6030…6040 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003d, t01=0x00f8}
0x6040…606c Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x003d, t01=0x0108}
0x606c…6080 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x003d, t01=0x0134}
0x6080…60ac Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x003d, t01=0x0148}
0x60ac…60c0 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x003d, t01=0x0174}
0x60c0…60ec Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x003d, t01=0x0188}
0x60ec…6100 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x003e, t01=0x0024}
0x6100…612c Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x003e, t01=0x0038}
0x612c…6140 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x003e, t01=0x0064}
0x6140…6154 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003e, t01=0x0078}
0x6154…618e Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x003e, t01=0x008c}
0x618e…619e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003e, t01=0x00c6}
0x619e…61ce Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x003e, t01=0x00d6}
0x61ce…61de Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003e, t01=0x0106}
0x61de…620e Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x003e, t01=0x0116}
0x620e…621e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003e, t01=0x0146}
0x621e…622a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0156}
0x622a…623c Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003e, t01=0x0162}
0x623c…626c Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x003e, t01=0x0174}
0x626c…6282 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x003f, t01=0x0014}
0x6282…62aa Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x003f, t01=0x002a}
0x62aa…62c0 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x003f, t01=0x0052}
0x62c0…62ea Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x003f, t01=0x0068}
0x62ea…6300 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x003f, t01=0x0092}
0x6300…630c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x00a8}
0x630c…6318 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003f, t01=0x00b4}
0x6318…631c Head {h00=0x4004, h01=0x0000}
0x631c…6320 00 3f 00 c0 ┆ ? ┆
0x6320…6328 (64, 1, 8) 20 04 00 00 00 40 00 04 ┆ @ ┆
0x6328…6378 (65, 0, 400) 55 54 50 55 54 20 45 43 42 20 00 70 01 7e 00 06 00 50 2a 20 00 71 00 12 00 16 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c 30 20 00 71 00 1c 00 06 00 50 2a 20 00 71 00 36 00 22 00 50 2a 20 20 54 45 52 4d 49 4e 41 4c 20 4c 49 4e 45 ┆UTPUT ECB p ~ P* q P DATA 0,0,0,0,0,0 q P* q 6 " P* TERMINAL LINE┆
0x6378…63c8 20 49 4e 50 55 54 20 42 55 46 46 45 52 20 00 71 00 40 00 06 00 50 2a 20 00 71 00 66 00 26 00 50 5c 44 41 54 41 5c 4b 3a 49 4e 42 4c 2b 4b 3a 49 4e 42 4c 5c 42 55 46 46 45 52 20 4c 45 4e 47 54 48 20 00 71 00 70 00 24 00 50 5c 44 41 54 41 5c ┆ INPUT BUFFER q @ P* q f & P DATA K:INBL+K:INBL BUFFER LENGTH q p $ P DATA ┆
0x63c8…6418 30 5c 54 43 20 41 44 44 52 45 53 53 20 49 4e 20 4c 45 46 54 20 42 59 54 45 20 00 71 00 9a 00 1e 00 50 5c 5c 5c 4c 49 4e 45 20 4e 42 52 20 49 4e 20 52 49 47 48 54 20 42 59 54 45 20 00 71 00 c2 00 10 00 50 5c 52 45 53 5c 4b 3a 49 4e 42 4c 20 ┆0 TC ADDRESS IN LEFT BYTE q P LINE NBR IN RIGHT BYTE q P RES K:INBL ┆
0x6418…6468 00 71 00 e4 00 06 00 50 2a 20 00 71 00 f8 00 18 00 50 2a 20 20 20 43 43 20 57 52 49 54 45 20 42 55 46 46 45 52 20 00 71 01 02 00 06 00 50 2a 20 00 71 01 1e 00 26 00 50 5c 44 41 54 41 5c 4b 3a 43 43 42 4c 2b 4b 3a 43 43 42 4c 5c 42 55 46 46 ┆ q P* q P* CC WRITE BUFFER q P* q & P DATA K:CCBL+K:CCBL BUFF┆
0x6468…64b8 45 52 20 4c 45 4e 47 54 48 20 00 71 01 28 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 71 01 52 00 10 00 50 5c 52 45 53 5c 4b 3a 43 43 42 4c 20 00 71 01 62 00 12 00 50 5c 49 46 46 5c 4e 54 50 4c 49 4e 3d 32 34 00 71 01 76 00 18 00 50 5c 45 4a 45 ┆ER LENGTH q ( P DATA 0 q R P RES K:CCBL q b P IFF NTPLIN=24 q v P EJE┆
0x64b8…6508 (66, 0, 400) 43 54 5c 5c 49 44 45 4e 54 20 43 3a 54 43 41 20 00 71 01 8c 00 06 00 50 2a 20 00 72 00 18 00 06 00 50 2a 20 00 72 00 22 00 2c 00 50 2a 20 20 54 52 41 53 4b 20 32 35 20 57 4f 52 4b 20 41 52 45 41 20 28 52 45 41 44 53 20 54 45 52 4d 2e 20 4c ┆CT IDENT C:TCA q P* r P* r " , P* TRASK 25 WORK AREA (READS TERM. L┆
0x6508…6558 49 4e 29 20 00 72 00 2c 00 06 00 50 2a 20 00 72 00 5c 00 44 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆IN) r , P* r D P**********************************************************┆
0x6558…65a8 2a 2a 2a 2a 2a 20 00 72 00 66 00 06 00 50 2a 20 00 72 00 ae 00 04 00 50 00 72 00 b8 00 06 00 50 2a 20 00 72 00 c0 00 24 00 50 2a 20 20 54 43 41 20 45 4c 45 4d 45 4e 54 20 44 45 43 4c 41 52 41 54 49 4f 4e 20 41 52 45 41 20 00 72 00 ca 00 06 ┆***** r f P* r P r P* r $ P* TCA ELEMENT DECLARATION AREA r ┆
0x65a8…65f8 00 50 2a 20 00 72 00 f2 00 20 00 50 5c 44 41 54 41 5c 30 5c 54 50 4f 4f 4c 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 72 00 fc 00 06 00 50 2a 20 00 72 01 20 00 10 00 50 5c 44 41 54 41 5c 54 43 41 43 4f 4e 00 72 01 2a 00 16 00 50 54 43 ┆ P* r P DATA 0 TPOOL BUFFER ADDRESS r P* r P DATA TCACON r * PTC┆
0x65f8…6648 54 52 32 35 5c 44 41 54 41 5c 32 35 5c 54 49 44 00 72 01 3e 00 1c 00 50 5c 44 41 54 41 5c 4b 3a 53 54 42 54 5c 53 54 41 43 4b 20 42 41 53 45 20 00 72 01 58 00 20 00 50 5c 44 41 54 41 5c 4b 3a 44 42 4c 2c 30 5c 4c 49 4e 45 20 45 4c 45 4d 45 ┆TR25 DATA 25 TID r > P DATA K:STBT STACK BASE r X P DATA K:DBL,0 LINE ELEME┆
0x6648…6698 (67, 0, 400) 4e 54 53 20 00 72 01 78 00 1c 00 50 5c 44 41 54 41 5c 4b 3a 44 42 54 43 2c 30 5c 54 43 20 45 4c 45 4d 2e 20 00 73 00 0c 00 30 00 50 5c 44 41 54 41 5c 4b 3a 44 42 43 52 2c 4b 3a 57 42 43 52 5c 43 43 20 52 45 53 50 4f 4e 43 45 20 44 49 53 54 ┆NTS r x P DATA K:DBTC,0 TC ELEM. s 0 P DATA K:DBCR,K:WBCR CC RESPONCE DIST┆
0x6698…66e8 52 49 42 55 54 49 4f 4e 00 73 00 2c 00 20 00 50 5c 44 41 54 41 5c 4b 3a 44 42 43 43 2c 4b 3a 57 42 43 43 5c 43 43 20 45 4c 45 4d 2e 00 73 00 60 00 06 00 50 2a 20 00 73 00 84 00 0e 00 50 2a 20 20 53 54 41 43 4b 45 52 00 73 00 8e 00 06 00 50 ┆RIBUTION s , P DATA K:DBCC,K:WBCC CC ELEM. s ` P* s P* STACKER s P┆
0x66e8…6738 2a 20 00 73 00 a0 00 0c 00 50 5c 52 45 53 5c 33 36 20 00 73 00 aa 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 54 43 41 20 00 73 00 ba 00 06 00 50 2a 20 00 73 00 d6 00 1c 00 50 2a 20 20 54 52 41 53 4b 20 50 4f 4f 4c 20 52 45 ┆* s P RES 36 s P EJECT IDENT C:TCA s P* s P* TRASK POOL RE┆
0x6738…6788 46 45 52 45 4e 43 45 53 00 73 00 e0 00 06 00 50 2a 20 00 73 01 00 00 1a 00 50 5c 44 41 54 41 5c 54 50 4c 49 4e 5c 50 4f 4f 4c 20 4e 41 4d 45 20 00 73 01 0a 00 06 00 50 2a 20 00 73 01 28 00 20 00 50 2a 20 20 54 45 52 4d 49 4e 41 4c 20 4c 49 ┆FERENCES s P* s P DATA TPLIN POOL NAME s P* s ( P* TERMINAL LI┆
0x6788…67d8 4e 45 20 4f 55 54 50 55 54 20 45 43 42 20 00 73 01 32 00 06 00 50 2a 20 00 73 01 56 00 16 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c 30 20 00 73 01 60 00 06 00 50 2a 20 00 73 01 7a 00 22 00 50 2a 20 20 54 45 52 4d 49 4e 41 4c 20 ┆NE OUTPUT ECB s 2 P* s V P DATA 0,0,0,0,0,0 s ` P* s z " P* TERMINAL ┆
0x67d8…6828 (68, 0, 400) 4c 49 4e 45 20 49 4e 50 55 54 20 42 55 46 46 45 52 20 00 73 01 84 00 06 00 50 2a 20 00 74 00 1a 00 26 00 50 5c 44 41 54 41 5c 4b 3a 49 4e 42 4c 2b 4b 3a 49 4e 42 4c 5c 42 55 46 46 45 52 20 4c 45 4e 47 54 48 20 00 74 00 24 00 24 00 50 5c 44 ┆LINE INPUT BUFFER s P* t & P DATA K:INBL+K:INBL BUFFER LENGTH t $ $ P D┆
0x6828…6878 41 54 41 5c 30 5c 54 43 20 41 44 44 52 45 53 53 20 49 4e 20 4c 45 46 54 20 42 59 54 45 20 00 74 00 4e 00 1e 00 50 5c 5c 5c 4c 49 4e 45 20 4e 42 52 20 49 4e 20 52 49 47 48 54 20 42 59 54 45 20 00 74 00 76 00 10 00 50 5c 52 45 53 5c 4b 3a 49 ┆ATA 0 TC ADDRESS IN LEFT BYTE t N P LINE NBR IN RIGHT BYTE t v P RES K:I┆
0x6878…68c8 4e 42 4c 20 00 74 00 98 00 06 00 50 2a 20 00 74 00 ac 00 18 00 50 2a 20 20 20 43 43 20 57 52 49 54 45 20 42 55 46 46 45 52 20 00 74 00 b6 00 06 00 50 2a 20 00 74 00 d2 00 26 00 50 5c 44 41 54 41 5c 4b 3a 43 43 42 4c 2b 4b 3a 43 43 42 4c 5c ┆NBL t P* t P* CC WRITE BUFFER t P* t & P DATA K:CCBL+K:CCBL ┆
0x68c8…6918 42 55 46 46 45 52 20 4c 45 4e 47 54 48 20 00 74 00 dc 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 74 01 06 00 10 00 50 5c 52 45 53 5c 4b 3a 43 43 42 4c 20 00 74 01 16 00 12 00 50 5c 49 46 46 5c 4e 54 50 4c 49 4e 3d 32 35 00 74 01 2a 00 18 00 50 ┆BUFFER LENGTH t P DATA 0 t P RES K:CCBL t P IFF NTPLIN=25 t * P┆
0x6918…6968 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 54 43 41 20 00 74 01 40 00 06 00 50 2a 20 00 74 01 5c 00 06 00 50 2a 20 00 74 01 66 00 2c 00 50 2a 20 20 54 52 41 53 4b 20 32 36 20 57 4f 52 4b 20 41 52 45 41 20 28 52 45 41 44 53 20 54 45 52 ┆ EJECT IDENT C:TCA t @ P* t P* t f , P* TRASK 26 WORK AREA (READS TER┆