Google
 

Trailing-Edge - PDP-10 Archives - BB-M080O-SM - monitor-sources/phyp4.mac
There are 52 other files named phyp4.mac in the archive. Click here to see a list.
; *** Edit 7375 to PHYP4.MAC by JROSSELL on 3-Oct-86, for SPR #21186
; On an HCE without a HCRC, do a recalibrate if offsetting does not clear the
; error.
;------------------------- Autopatch Tape # 13 -------------------------
;------------------------- Autopatch Tape # 12 -------------------------
; UPD ID= 2164, SNARK:<6.1.MONITOR>PHYP4.MAC.49,   5-Jun-85 10:43:26 by MCCOLLUM
;TCO 6.1.1406  - Update copyright notice.
; UPD ID= 1926, SNARK:<6.1.MONITOR>PHYP4.MAC.48,   7-May-85 21:41:49 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1831, SNARK:<6.1.MONITOR>PHYP4.MAC.47,  26-Apr-85 09:39:31 by MCCOLLUM
;TCO 6.1.1238 - Fix BUG. documentation
; UPD ID= 1556, SNARK:<6.1.MONITOR>PHYP4.MAC.46,  20-Feb-85 17:30:44 by GRANT
;TCO 6.1.1200 - Call PHYSIO (routine SETDSN) to set drive serial number.
; UPD ID= 1297, SNARK:<6.1.MONITOR>PHYP4.MAC.45,   9-Jan-85 14:48:18 by GRANT
;TCO 6.1.1125 - Get drive serial number whenever a disk comes online.
; UPD ID= 1123, SNARK:<6.1.MONITOR>PHYP4.MAC.44,  21-Nov-84 15:22:17 by MCLEAN
;REVERSE STATE OF U1.VV
; UPD ID= 1113, SNARK:<6.1.MONITOR>PHYP4.MAC.43,  20-Nov-84 15:47:00 by MCLEAN
;REMOVE CHECKS FOR RP07 BUG ON VV
; UPD ID= 5078, SNARK:<6.MONITOR>PHYP4.MAC.40,  19-Nov-84 14:29:13 by MCLEAN
;SET VV WHEN OFFLINE
; UPD ID= 1093, SNARK:<6.1.MONITOR>PHYP4.MAC.40,  17-Nov-84 22:28:44 by MCLEAN
;BETTER CHOICE TO USE P4 INSTEAD OF T4 AT RP4LT4
; UPD ID= 1092, SNARK:<6.1.MONITOR>PHYP4.MAC.39,  17-Nov-84 22:25:22 by MCLEAN
;FIX LATENCY OPTIMIZATION FOR HOMEBLOCKS
; UPD ID= 992, SNARK:<6.1.MONITOR>PHYP4.MAC.38,   7-Nov-84 13:46:01 by MCLEAN
;FIX OPTIMIZATION TO HANDLE HOMEBLOCKS FIRST
; UPD ID= 4797, SNARK:<6.MONITOR>PHYP4.MAC.37,  11-Sep-84 11:50:18 by MCLEAN
;FIX RP4SSC IF DUAL PORTED RP07 AND OTHER PORT IS ENABLED
; UPD ID= 4556, SNARK:<6.MONITOR>PHYP4.MAC.36,  18-Jul-84 15:48:33 by MCLEAN
;FIXES FOR EXTENDED ADDRESSING
; UPD ID= 4547, SNARK:<6.MONITOR>PHYP4.MAC.35,  15-Jul-84 22:23:08 by PURRETTA
;Update copyright notice
; UPD ID= 4401, SNARK:<6.MONITOR>PHYP4.MAC.34,  27-Jun-84 22:32:03 by MCLEAN
;REMOVE RP4NSN
; UPD ID= 4251, SNARK:<6.MONITOR>PHYP4.MAC.33,  29-May-84 22:14:23 by MCLEAN
;ADD SUPPORT FOR DOP%PS
; UPD ID= 4175, SNARK:<6.MONITOR>PHYP4.MAC.32,   7-May-84 11:21:09 by MCLEAN
;MAKE RP4NSN A BUGINF
; UPD ID= 3421, SNARK:<6.MONITOR>PHYP4.MAC.31,   8-Jan-84 15:48:07 by MCLEAN
;MISSING CALL TO PHYDUA AT RP4ATN
; UPD ID= 3272, SNARK:<6.MONITOR>PHYP4.MAC.30,   7-Dec-83 11:02:50 by MCLEAN
;MOVE US.2PT EARLIER IN CODE
; UPD ID= 3210, SNARK:<6.MONITOR>PHYP4.MAC.29,  22-Nov-83 19:39:26 by MCLEAN
;TCO 6.1879 FIX RP4UNF SO THAT DUAL PORT DISKS WAIT FOR PORT
; UPD ID= 3179, SNARK:<6.MONITOR>PHYP4.MAC.28,  16-Nov-83 22:30:35 by MCLEAN
;MORE PORT RELEASE FIXES
; UPD ID= 3112, SNARK:<6.MONITOR>PHYP4.MAC.27,   7-Nov-83 21:27:32 by MCLEAN
;ADD PORT RELEASE DISPATCH
; UPD ID= 3002, SNARK:<6.MONITOR>PHYP4.MAC.26,   5-Oct-83 20:13:14 by MCLEAN
;TCO 6.1818 RE-ADJUST CODE FOR SECTION 1 OPERATION
; UPD ID= 2889, SNARK:<6.MONITOR>PHYP4.MAC.25,  12-Sep-83 13:28:28 by MCLEAN
;TCO 6.1797 CLEAR ACTIVE AND POSITION BITS IN THE UDB BEFORE DOING PACK ACK
; UPD ID= 2886, SNARK:<6.MONITOR>PHYP4.MAC.24,  11-Sep-83 21:00:42 by MCLEAN
;MORE 6.1714 WHICH WILL KEEP UNIT ACTIVE
; UPD ID= 2684, SNARK:<6.MONITOR>PHYP4.MAC.23,   6-Jul-83 23:47:02 by MCLEAN
;TCO 6.1714 AT RP4ATU THE REQUEST IS NOT ACTIVE SO DON'T CALL
; PHYPDN TO INDICATE THAT POSITIONING IS DONE WHEN WE ARE NOT
; POSITIONING.
; UPD ID= 2551, SNARK:<6.MONITOR>PHYP4.MAC.22,   2-Jun-83 13:32:30 by MCLEAN
;ADD CODE TO CHECK FOR DUAL PORT MODE CHANGES
; UPD ID= 2523, SNARK:<6.MONITOR>PHYP4.MAC.21,  25-May-83 20:51:39 by MCLEAN
;MORE TCO 6.1666 WE GOTTA DO THE CHECK EVERY TIME INCASE WE MISS IT
;THE FIRST TIME.
; UPD ID= 2510, SNARK:<6.MONITOR>PHYP4.MAC.20,  24-May-83 16:32:07 by MCLEAN
;TCO 6.1666 SET SERIAL NUMBER AT ONLINE TIME TOO.
; UPD ID= 2496, SNARK:<6.MONITOR>PHYP4.MAC.19,  20-May-83 23:45:52 by MCLEAN
;TCO 6.1649 MORE THOUGHTS ON PORT RELEASES...
; UPD ID= 2448, SNARK:<6.MONITOR>PHYP4.MAC.18,   9-May-83 16:07:56 by MCLEAN
;FIX TYPO IN PREVIOUS EDIT
; UPD ID= 2443, SNARK:<6.MONITOR>PHYP4.MAC.17,   6-May-83 14:40:42 by MCLEAN
;TCO 6.1649 SECOND PASS...
; UPD ID= 2428, SNARK:<6.MONITOR>PHYP4.MAC.16,   5-May-83 20:28:14 by MCLEAN
;TCO 6.1649 REMOVE SOME OF THE PORT RELEASES (FIRST PASS) AT THIS...
; UPD ID= 2202, SNARK:<6.MONITOR>PHYP4.MAC.15,   8-Apr-83 05:46:40 by WACHS
;TCO 6.1603 - Light US.2PT
; UPD ID= 2166, SNARK:<6.MONITOR>PHYP4.MAC.14,   5-Apr-83 15:20:54 by MILLER
;TCO 6.1592. Handle attention status at RP4CON
; UPD ID= 2151, SNARK:<6.MONITOR>PHYP4.MAC.13,   4-Apr-83 14:45:15 by MILLER
;TCO 6.1589. Set US.OMS if RPCERR is not hard error present
; UPD ID= 1720, SNARK:<6.MONITOR>PHYP4.MAC.12,  28-Jan-83 14:20:28 by DONAHUE
;TCO 6.1440 - Change RP4UNF to a Bugchk
; UPD ID= 1106, SNARK:<6.MONITOR>PHYP4.MAC.11,  24-Aug-82 12:18:39 by PAETZOLD
;More TCO 6.1228 - In the never ending search for the
; elegant solution, do not increment UDBRCT for skip reads
; UPD ID= 1088, SNARK:<6.MONITOR>PHYP4.MAC.10,  17-Aug-82 18:30:29 by PAETZOLD
;TCO 6.1228 - Update UDBRCT as well and UDBRVC for skip reads
; UPD ID= 1047, SNARK:<6.MONITOR>PHYP4.MAC.9,   6-Aug-82 14:47:47 by PAETZOLD
;TCO 6.1217 - Update UDBRVC for skip reads and not UDBRCT
; UPD ID= 906, SNARK:<6.MONITOR>PHYP4.MAC.8,   9-Jun-82 23:37:22 by MURPHY
;TCO 6.1147 - Move bugdefs from BUGS.MAC to here and put them in-line.
; UPD ID= 568, SNARK:<6.MONITOR>PHYP4.MAC.7,   1-Apr-82 07:37:40 by PAETZOLD
;TCO 6.1079 - Dont use ECC for IRFRVC functions
; UPD ID= 266, SNARK:<6.MONITOR>PHYP4.MAC.6,  22-Dec-81 05:06:46 by WACHS
;TCO 5.1641 Handle seize-done interrupts correctly
; UPD ID= 216, SNARK:<6.MONITOR>PHYP4.MAC.5,  23-Nov-81 07:43:05 by WACHS
;TCO 5.1617 Write a register first at RP4CON to seize the drive
; UPD ID= 199, SNARK:<6.MONITOR>PHYP4.MAC.4,  10-Nov-81 09:46:50 by WACHS
;TCO 5.1611 call OPI, DTE  header errors on an RP07
; UPD ID= 1849, SNARK:<6.MONITOR>PHYP4.MAC.3,  21-Apr-81 06:21:45 by WACHS
;TCO 5.1288 - Modify UDB definitions
; UPD ID= 1597, SNARK:<6.MONITOR>PHYP4.MAC.2,  27-Feb-81 07:21:23 by WACHS
;tco 6.1002 - Add code for dual-ported disks
; UPD ID= 1391, SNARK:<5.MONITOR>PHYP4.MAC.8,  31-Dec-80 08:55:30 by WACHS
;TCO 5.1222 - Add code for movement of packs from drive to drive
; UPD ID= 1334, SNARK:<5.MONITOR>PHYP4.MAC.7,   1-Dec-80 17:40:04 by LYONS
; UPD ID= 959, SNARK:<5.MONITOR>PHYP4.MAC.6,  25-Aug-80 15:10:44 by LYONS
; UPD ID= 957, SNARK:<5.MONITOR>PHYP4.MAC.5,  25-Aug-80 14:44:38 by LYONS
;tco 5.1062 - off by 1 bug in verification code
; UPD ID= 934, SNARK:<5.MONITOR>PHYP4.MAC.4,  20-Aug-80 15:00:43 by LYONS
;TCO 5.1062 - write verif; UPD ID= 737, SNARK:<5.MONITOR>PHYP4.MAC.3,   7-Jul-80 00:47:28 by DBELL
;TCO 5.1096 - ADD UDSCCK DISPATCH
; UPD ID= 364, SNARK:<4.1.MONITOR>PHYP4.MAC.10,  26-Mar-80 11:07:14 by DBELL
;TCO 4.1.1119 - MAKE CHANGES REQUIRED FOR RP20 DISKS
;<4.1.MONITOR>PHYP4.MAC.9, 15-Nov-79 15:37:08, EDIT BY DBELL
;TCO 4.2572 - MAKE PORT CONTENTION WORK PROPERLY AT RP4CN3 AND RP4ATU
;<OSMAN.MON>PHYP4.MAC.1, 10-Sep-79 16:00:38, EDIT BY OSMAN
;TCO 4.2412 - Move definition of BUGHLTs, BUGCHKs, and BUGINFs to BUGS.MAC
;<4.MONITOR>PHYP4.MAC.7,  4-May-79 11:00:12, EDIT BY ENGEL
;USE INTERRUPTS TO FORCE RELEASE OF DUAP-PORT DEVICE (RP4CN3 & RP4ATU)
;<4.MONITOR>PHYP4.MAC.6,  5-Mar-79 15:53:41, EDIT BY KONEN
;UPDATE COPYRIGHT FOR RELEASE 4
;<4.MONITOR>PHYP4.MAC.5,  4-Dec-78 19:37:55, EDIT BY BOSACK
;TCO 4.2106 - DEFER ECC APPLICATION UNTIL DRIVE HAS SETTLED ON CYL
;<2MCLEAN>PHYP4.MAC.4, 30-Jul-78 15:16:13, Edit by MCLEAN
;<2MCLEAN>PHYP4.MAC.3, 30-Jul-78 14:46:26, Edit by MCLEAN
;<4.MONITOR>PHYP4.MAC.2, 22-Jul-78 22:11:23, Edit by MCLEAN
;<1MCLEAN>PHYP4.MAC.83,  6-May-78 21:45:28, Edit by MCLEAN
;<1MCLEAN>PHYP4.MAC.82,  6-May-78 21:40:57, Edit by MCLEAN
;ADD RP07 CODE
;<1MCLEAN>PHYP4.MAC.81,  6-May-78 21:40:37, Edit by MCLEAN
;<3.SM10-RELEASE-3>PHYP4.MAC.79,  3-Apr-78 18:49:52, Edit by MCLEAN
;FIX ATNXIT NOT TO CLEAR CHANNEL ON TRANSFERING DRIVE
;<3A.MONITOR>PHYP4.MAC.79,  8-Mar-78 23:58:51, Edit by MCLEAN
;CLEAR DRIVE AT ATNXIT
;<2BOSACK>PHYP4.MAC.77, 24-Feb-78 01:25:42, EDIT BY BOSACK
;CHANGE DEVICE/DATA ERROR FLAGGING
;<2BOSACK>PHYP4.MAC.76, 15-Feb-78 02:09:13, EDIT BY BOSACK
;<4.MONITOR>PHYP4.MAC.76,  1-Feb-78 14:52:23, Edit by MCLEAN
;FIX FOR NEW PHYUDB CALLING SEQ
;<2BOSACK>PHYP4.MAC.75, 30-Jan-78 02:37:06, EDIT BY BOSACK
;<2BOSACK>PHYP4.MAC.74, 27-Jan-78 02:14:45, EDIT BY BOSACK
;<2BOSACK>PHYP4.MAC.73, 25-Jan-78 03:46:02, EDIT BY BOSACK
;<2BOSACK>PHYP4.MAC.72, 25-Jan-78 03:40:58, EDIT BY BOSACK
;REORGANIZED DISK PHYSICAL PARAMETER TREATMENT
;CHANGED LATOPT TO USE UDB FOR PHYSICAL PARAMETERS
;MINOR (10USEC ON A 2050) SPEEDUPS
;<2BOSACK>PHYP4.MAC.71, 15-Jan-78 20:50:53, EDIT BY BOSACK
;<2BOSACK>PHYP4.MAC.70, 15-Jan-78 20:47:30, EDIT BY BOSACK
;CHANGES FOR RM03 ECC DIFFERENCES

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED
;OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT  (C)  DIGITAL  EQUIPMENT  CORPORATION  1976, 1985.
;ALL RIGHTS RESERVED.


	SEARCH PROLOG,SERCOD	;SYSTEM PARAMETERS
	TTITLE (PHYP4,,< - DEVICE DEPENDENT CODE FOR RP04 DISKS>)
	SUBTTL T.HESS, T WACHS/TAH/TW/LB/RM 2 JULY 75

	SEARCH PHYPAR		;PARAMETERS
	ENTRY RP4DSP		;FOR LIBRARY SEARCH
	SUBTTL PARAMETERS

;DRIVE REGISTERS

DO.DRC==(0B5)			;DRIVE CONTROL REGISTER
DO.SR==(1B5)			;STATUS REGISTER
DO.ER==(2B5)			;ERROR REGISTER
DO.AS==(4B5)			;ATTENTION SUMMARY
DO.DA==(5B5)			;DESIRED ADDRESS (TRACK/SECTOR)
DO.DT==(6B5)			;DRIVE TYPE
DO.LA==(7B5)			;LOOK AHEAD
DO.SN==(10B5)			;DRIVE SERIAL NUMBER
DO.OF==(11B5)			;OFFSET REGISTER
DO.DC==(12B5)			;DESIRED CYLINDER
DO.ER3==(15B5)			;ERROR REGISTER # 3
DO.ECP==(16B5)			;ECC POSITION
DO.ECB==(17B5)			;ECC BURST (PATTERN)

;DRIVE FUNCTIONS

DF.UNL==3			;UNLOAD
DF.SEK==5			;SEEK
DF.RCL==7			;RECALIBRATE
DF.CLR==11			;DRIVE CLEAR
DF.REL==13			;RELEASE (DUAL PORT)
DF.OFS==15			;OFFSET POSITION
DF.RTC==17			;RETURN TO CENTERLINE
DF.PST==21			;READIN PRESET
DF.ACK==23			;PACK ACKNOWLEDGE
DF.SRC==31			;SEARCH
DF.WRT==61			;WRITE DATA
DF.WTF==63			;WRITE FORMAT
DF.RED==71			;READ DATA
DF.RDF==73			;READ FORMAT

F22==100			;22-SECTOR MODE (SOFTWARE ONLY)
ERETRY==200			;ERROR RETRY (ECC FIXED 1ST PART) SOFTWARE ONLY
DXES==200000			;DISABLE STOP ON ERROR

;BITS IN CONTROL REGISTER

CR.DVA==4000			;DEVICE AVAILABLE - FOR DUAL PORT
;DRIVE STATUS REGISTER

DS.ATA==1B20			;ATTENTION
DS.ERR==1B21			;ERROR
DS.PIP==1B22			;POSITION IN PROGRESS
DS.MOL==1B23			;MEDIA ON LINE
DS.WRL==1B24			;WRITE LOCKED
DS.LST==1B25			;LAST SECTOR TRANSFERRED
DS.PGM==1B26			;PROGRAMMABLE (DUAL PORT)
DS.DPR==1B27			;DRIVE PRESENT
DS.DRY==1B28			;DRIVE READY
DS.VV==1B29			;VOLUME VALID

DS.GUD==DS.MOL!DS.DPR!DS.DRY!DS.VV
DS.MSK==DS.GUD!DS.ATA!DS.ERR!DS.PIP!DS.WRL	;MASK OF STATUS BITS TO CONSIDER

;DRIVE ERROR REGISTER

ER.DCK==1B20			;DRIVE CHECK
ER.UNS==1B21			;DRIVE UNSAFE
ER.OPI==1B22			;OPERATION INCOMPLETE
ER.DTE==1B23			;DRIVE TIMING ERROR
ER.WLE==1B24			;WRITE LOCK ERROR
ER.IAE==1B25			;INVALID ADDRESS ERROR
ER.AOE==1B26			;ADDRESS OVERFLOW ERROR
ER.CRC==1B27			;HEADER CRC ERROR
ER.HCE==1B28			;HEADER COMPARE ERROR
ER.ECH==1B29			;ECC HARD ERROR
ER.WCF==1B30			;WRITE CLOCK FAILURE
ER.FER==1B31			;FORMAT ERROR
ER.CPE==1B32			;CONTROL BUS PARITY ERROR
ER.RMR==1B33			;REGISTER MODIFICATION REFUSED
ER.ILR==1B34			;ILLEGAL REGISTER
ER.ILF==1B35			;ILLEGAL FUNCTION
ER.OFS==ER.DCK!ER.FER!ER.CRC!ER.HCE ;ERRORS ON WHICH TO TRY OFFSET

;OFFSET REGISTER

OF.F22==1B23			;22-SECTOR MODE
OF.ECI==1B24			;ERROR CORRECTION CODE INHIBIT

;ERROR REGISTER 3 STATUS BITS

E3.OCL==1B20			;OFF CYLINDER
E3.SKI==1B21			;SEEK INCOMPLETE
	SUBTTL ERROR RECOVERY/REPORTING DEFINITIONS
;RETRY COUNTS
POSCNT==3			;NUMBER OF TIMES TO RETRY ON POSITION FAILURE
DEVCNT==3			;RETRIES ON DEVICE ERROR (NOT DATA OR HEADER) BEFORE RECALIBRATE
				; MUST BE AT LEAST 3

RCLCNT==3			;RECALIBRATES AFTER DEVCNT TRIES (TIMES FOR COMPLETE CYCLE)
;STATUS BITS IN LH(UDBERR)
ES.HRD==1B0			;HARD ERROR
ES.ECC==1B1			;ECC-CORRECTED ERROR
ES.DAT==1B2			;DATA ERROR
ES.HDR==1B3			;HEADER ERROR
ES.DEV==1B4			;DEVICE ERROR (NEITHER DATA NOR HEADER)
ES.POS==1B5			;POSITIONING ERROR
ES.FER==1B6			;FORMAT ERROR (20-SECTOR PACK IN 22-SECT. MODE, ETC)


;UDB EXTENSIONS

RP.CNI==UDBDDD			;CONI OF RH GOES HERE
RP.CRC==RP.CNI+1		;DATAI RH CONTROL REGISTER
RP.DBF==RP.CRC+1		;DATAI RH DATA REGISTER
RP.CYL==RP.DBF+1		;NUMBER OF CYLINDERS PER UNIT
RP.SCL==RP.CYL+1		;NUMBER OF SECTORS PER CYLINDER
RP.SSF==RP.SCL+1		;NUMBER OF SECTORS PER SURFACE
RP.USU==RP.SSF+1		;NUMBER OF USEC PER LA REG UNIT
RP.USF==RP.USU+1		;SSF * 64 (LA REG UNITS)
RP.LST==RP.USF+1		;START OF LAST PAGE ON A CYLINDER

RP.REG==RP.LST+1		;DRIVE REGISTERS GO HERE

DR.CRC==0			;CONTROL REGISTER
DR.ST==1			;STATUS
DR.ER==2			;ERROR
DR.MT==3			;MAINTENANCE
DR.ATA==4			;ATTENTION SUMMARY
DR.DA==5			;DESIRED ADDRESS
DR.DT==6			;DRIVE TYPE
DR.LA==7			;LOOK AHEAD
DR.SN==10			;SERIAL NUMBER
DR.OF==11			;OFFSET
DR.DC==12			;DESIRED CYLINDER
DR.CA==13			;CURRENT ADDRESS
DR.ER2==14			;ERROR REGISTER # 2
DR.ER3==15			;ERROR REGISTER # 3
DR.ECP==16			;ECC POSITION
DR.ECB==17			;ECC BURST

L.RP4==RP.REG+20		;LENGTH OF RP04 UDB
;DISPATCH TABLE
RP4DSP:	JRST RP4INI		;0 - INITIATION
	JRST RP4SIO		;1 - START I/O
	JRST RP4INT		;2 - HANDLE INTERRUPT
	JRST RP4ERR		;3 - ERROR RECOVERY
	RET			;4 - HUNG DEVICE
	JRST RP4CNV		;5 - CONVERT BLK # TO CYLINDER/SURF-SEC
	JRST RP4LTM		;6 - LATENCY COMPUTATION
	JRST RP4POS		;7 - START POSITIONING
	JRST RP4ATN		;10- ATTENTION INTERRUPT
	JRST RP4PRQ		;11- SKIP IF POSITIONING REQUIRED
	JRST RP4STK		;12- STACK SECOND TRANSFER COMMAND
	RET			;13- CHECK EXISTANCE OF UNIT (NOT CALLED)
	RET			;14- CHECK FOR HALTED CONTROLLER (NOT CALLED)

	JRST RP4REL		;15- RELEASE PORT

;DISKS ARE CHECKED BY CALLING CNV AND CHECKING UDBPS1

RP4PRQ:	RETSKP		;IF ASKED, SAY ALWAYS

;TRANSLATION FROM MASSBUS TYPE TO INTERNAL BLOCKTYPE

XTYPE:	XWD .UTRP4,TY.RP4
	XWD .UTRP5,TY.RP5
	XWD .UTRP6,TY.RP6
	XWD .UTRP7,TY.R7F
	XWD .UTRP7,TY.R7M
	XWD .UTRM3,TY.RM3

NXTYPE==.-XTYPE
	SUBTTL INITIATION

;C(Q2) := UNIT NUMBER

RP4INI:	SAVEQ
	MOVE T3,[RP4DSP,,L.RP4]	;DISPATCH,,LENGTH
	CALL PHYUDB		;SET UP UDB
	RET			;RETURN IF NO SPACE
INIA:	MOVSI T2,DO.DT		;READ DRIVE TYPE REGISTER
	CALL RDREG		; ...
	ANDI T1,777		;MASK TO JUST DRIVE TYPE
				;CHECK FOR PORT GONE SINCE LAST READ
	JUMPE T1,[ MOVSI T2,DO.DT	;WRITE THE DAMN REGISTER SO WE WILL SEIZE IT
		CALL WTREG
		JRST INIA]	;DON'T CARE ABOUT ANSWER TRY AGAIN
	MOVSI T2,-NXTYPE	;SEARCH TABLE FOR INTERNAL UNIT TYPE
INI1:	MOVE T3,XTYPE(T2)	;GET TYPE WORD
	CAIN T1,(T3)		;MATCH?
	JRST INI2		;YES
	AOBJN T2,INI1		;NO - ANY LEFT
	BUG.(HLT,RP4UNF,PHYP4,HARD,<PHYP4 - Unit type not found>,<<T1,DRVTYP>>,<

Cause:	During initialization of a disk in the routine RP4INI, the
	hardware drive type of the disk was read, and then the XTYPE
	table was searched for the corresponding internal drive type.
	The search failed, indicating the disk was of an unknown type.

Data:	DRVTYP - Drive type

>)
INI2:	HLRZ T1,T3		;FOUND - GET INTERNAL TYPE CODE
	MOVE T4,T1		;COPY FOR UDB BUILD LATER
	MOVSI T2,-NDSKUT	;SEARCH TO FIND PHYSICAL PARAM TABLE
INI3:	CAMN T1,DSKUTP(T2)	;MATCH?
	JRST INI4		;YES
	AOBJN T2,INI3		;NO - LOOP
	BUG.(HLT,RP4PNF,PHYP4,SOFT,<PHYP4 - Disk physical parameters not found>,,<

Cause:	The routine RP4INI was called to initialize a UDB for a disk.
	It converted the hardware drive type into the internal drive
	type, and then looked in the physical parameter table (DSKUTP)
	for that type, so that the disk parameters could be obtained.
	The drive type could not be found.
>)
INI4:	MOVE T2,DSKSIZ(T2)	;GET POINTER TO PHYSICAL PARAMETER TABLE
	MOVEM T2,UDBSIZ(P3)	;SAVE IN UDB
	MOVE T3,CYLUNT(T2)	;GET NUMBER OF CYLINDERS
	MOVEM T3,RP.CYL(P3)	;SAVE COPY
	MOVE T3,SECCYL(T2)	;GET SECTORS PER CYLINDER
	MOVEM T3,RP.SCL(P3)	;SAVE
	SUB T3,SECPAG(T2)	;COMPUTE START OF LAST PAGE ON A CYL
	MOVEM T3,RP.LST(P3)	;SAVE
	MOVE T3,SECSRF(T2)	;GET SECTORS PER SURFACE
	MOVEM T3,RP.SSF(P3)	;SAVE
	LSH T3,6		;COMPUTE LATOPT UNITS PER SURF
	MOVEM T3,RP.USF(P3)	;SAVE
	MOVE T3,USSECU(T2)	;GET USEC PER LATOPT UNIT
	MOVEM T3,RP.USU(P3)	;SAVE
	MOVSI T2,DO.SR		;READ STATUS REGISTER
	CALL RDREG
	TLO T4,(US.PRQ)		;INDICATE POSITIONING REQUIRED
	TRNE T1,DS.WRL		;WRITE LOCKED?
	TLO T4,(US.WLK)		;YES - INDICATE IN STATUS
	TRNE T1,DS.PGM		;DUAL PORT IN PROGRAMMABLE MODE?
	TXO T4,US.PGM!US.2PT	;YES - INDICATE IN UNIT STATUS
	TRNN T1,DS.MOL		;MEDIA ON LINE?
	TLO T4,(US.OFS)		;SET OFF-LINE
	TXO T4,US.DSK		;THIS IS A DISK TYPE DEVICE
	IORM T4,UDBSTS(P3)	;SET UP STATUS AND CONFIGURATION
	TRNN T1,DS.VV		;VOLUME VALID?
	CALL RP4UP		;NO - ACK NOW
	CALL RP4DSN		;(P1,P3) GET DSN
	CALL PHYDUA		;(P3/) LOOK FOR ANOTHER PORT FOR THIS DRIVE
	MOVSI T2,DO.LA		;CHECK FOR STUCK SECTOR COUNTER
	CALL RDREG
	MOVE T4,T1		;SAVE FIRST VALUE
	MOVEI Q1,^D100000	;MAXIMUM NUMBER OF TIME TO TRY
INI5:	MOVSI T2,DO.LA		;NOW TRY FOR A DIFFERENT VALUE
	CALL RDREG
	CAME T1,T4		;STILL THE SAME?
	CALLRET RP4DIS		;NO - RELEASE DRIVE AND RETURN
	SOJGE Q1,INI5		;YES - TRY AGAIN
	MOVE T1,CDBADR(P1)	;GET CHANNEL ADDRESS
	MOVE T2,UDBAKA(P3)	;AND UNIT ADDRESS
	SKIPE UDBDSN(P3)	;DON'T BUGCHK IF THERE IS NO SERIAL NUMBER
				;THE PORT MAY BE ON THE OTHER SIDE
	BUG.(CHK,RP4SSC,PHYP4,HARD,<PHYP4 - Stuck sector counter>,<<T1,CDBADR>,<T2,UDBAKA>>,<

Cause:	During initialization of a disk unit in the routine RP4INI,
	the sector counter for the disk was examined to see if it
	was changing as it should.  After watching the value for
	100000 times, it never varied.

Action:	Call Field Service to fix the disk.

Data:	CDBADR - Channel address
	UDBAKA - Unit address
>)
	CALLRET RP4DIS		;RELEASE AND RETURN
	SUBTTL START I/O

;C(P4) := IORB , C(P3) := UDB , C(P3) := CDB

RP4SIO:	SAVEQ			;SAVE REGISTERS
	HRRZ T3,UDBERR(P3)	;GET FUNCTION IF ERROR RECOVERY
	JUMPN T3,RP4SI1		;ERROR RECOVERY?
	LDB T3,IRYFCN		;GET FCN
	CAILE T3,MXRP4F		;CHECK MAXIMUM LEGAL
	CAIL T3,MNRP4V		;BUT ALLOW VALIDITY FUNCTIONS
	JRST RP4SI1		;ITS OK
	BUG.(HLT,RP4FEX,PHYP4,SOFT,<PHYP4 - Illegal function>,,<

Cause:	The routine RP4SIO was called to start I/O for a unit, but
	the function code supplied in the IORB was out of range.
>)
RP4SI1:	HLRZ Q1,RP4FCN(T3)	;TRANSLATE TO HARDWARE BITS
	TRZ Q1,(XFRFLG)		;MASK
	CALL RP4CON		;CONNECT TO DRIVE
	 RET			;UNIT DOWN (MARKED OFL)
				;RETURNS T2 := CYLINDER , T3 = REMAINDER
	CALL GTHWSC		;GET HW FORMAT SURF/SEC IN T4
	HRLI T2,DO.DC		;SET DESIRED CYLINDER
	CALL WTREG		;WRITE IN REGISTER

	MOVSI T2,DO.OF		;OFFSET REGISTER
	TRZE Q1,F22		;IF 22-SECTOR MODE
	TROA T2,OF.ECI+OF.F22	; THEN CLEAR FMT22 IN OFFSET REGISTER
	TRNE Q1,DXES		;IF NOT STOPPING ON ERROR
	TRCA T2,OF.ECI		; CLEAR OFFSET , SET ECI
	TRNN Q1,10		;IF WRITING
	CALL WTREG		; THEN CLEAR OFFSET REGISTER

	MOVE T2,T4		;GET DISK ADDRESS
	HRLI T2,DO.DA		;DESIRED ADDRESS REGISTER
	JRST CHSTRT		;START CHANNEL & GIVE GOOD RETURN
;ROUTINE TO STACK A SECOND TRANSFER COMMAND

RP4STK:	LDB T1,IRYFCN		;GET FUNCTION
	CAILE T1,MXEXFN		;LEGAL?
	CAIL T1,MNRP4V		;AT EITHER END OF THE SCALE?
	JRST RP4ST1
	BUG.(HLT,RP4IF2,PHYP4,SOFT,<PHYP4 - Illegal function at STKIO>,,<

Cause:	The routine RP4STK was called to start stacked I/O for a
	unit, but the function code supplied in the IORB was out
	of range.
>)
RP4ST1:	HLRZ Q1,RP4FCN(T1)	;GET HW FUNCTION
	TRZ Q1,(XFRFLG)		;MASK
	CALL PHYBLK		;GET UNIT RELATIVE ADDRESS
	TXZ T2,IRBPAD		;REMOVE PHYSICAL ADDRESSING BIT
	CALL RP4CV1		;GET CYL,SECTOR WITHIN CYL IN T2,T3
	MOVEM T3,UDBPS2(P3)	;UPDATE SECTOR
	CALL GTHWSC		;GET HWFMT ADDRESS IN T4
	MOVE T2,T4		;COPY
	HRLI T2,DO.DA		;BUILD DATAO WORD
	CALLRET CHSTRT		;GO STACK THE COMMAND
;ROUTINE TO CONNECT TO A DESIRED UNIT

RP4CON:	SETO T4,		;SET A FLAG FOR TRYING OTHER PORT
RP4CN1:	MOVSI T2,DO.DT		;WRITE A READ-ONLY REGISTER TO SEIZE THE DRIVE
	CALL WTREG		;AND PREVENT THE OTHER PORT FROM GRABBING IT
	MOVSI T2,DO.DRC		;READ CONTROL REGISTER
	CALL RDREG		; IF IN A/B MODE
	TRNN T1,CR.DVA		;PORT AVAILABLE?
	JRST RP4CN3		;NO
	MOVSI T2,DO.SR		;STATUS REGISTER
	CALL RDREG		;GO READ IT
	TXNE T1,DS.PGM		;Programmable?
	TXZ T1,DS.ATA		;yes. Ignore attention status then as
				; dual-ported drives roll attentions!
	ANDI T1,DS.MSK		;MASK OUT DON'T CARES
	CAIE T1,DS.GUD		;DRIVE OK?
	JRST RPCERR		;CONNECT ERROR
	MOVSI T1,(US.WLK)	;CLEAR WRITE LOCKED
RP4CN2:	TLO T1,(US.OFS)		;CLEAR OFFLINE AND UNSAFE
	ANDCAM T1,UDBSTS(P3)	; ...
	CALL PHYBLK		;GET PHYSICAL DISK BLOCK
	TXZ T2,IRBPAD		;REMOVE PHYSICAL ADDRESSING BIT
	HLRZ T1,UDBERP(P3)	;GET BLOCKS DONE
	TRNE Q1,ERETRY
	ADD T2,T1		; START AT 1ST BLOCK NOT READ
	MOVE T1,Q1		;COPY FUNCTION WORD
	CALL RP4CV1		;GET CYLINDER AND SECTOR WITHIN CYLINDER
	MOVEM T2,UDBPS1(P3)	;SAVE CYLINDER
	MOVEM T3,UDBPS2(P3)	;SAVE SURFACE, SECTOR
	RETSKP			;SKIP RETURN

;HERE IF A DUAL PORT DRIVE IS IN USE ON THE OTHER PORT
;THIS IS TEMPORARY UNTIL A NEW BIT IS DEFINED TO HANDLE THIS EXPLICITLY.

RP4CN3:	SKIPE T1,UDB2ND(P3)	;IS DRIVE DUAL-PORTED?
	AOJE T4,RP4CN4		;YES. TRY (ONCE) TO RELEASE OTHER PORT
	MOVX T1,US.OFS!US.OMS	;INDICATE OFFLINE AND MESSAGE ALREADY SENT
	IORM T1,UDBSTS(P3)	;SO NO I/O IS ATTEMPTED
	HRRZ T1,UDBTWQ(P3)	;IS TWQ EMPTY?
	JUMPN T1,R		;NO. LEAVE UDBPS1 ALONE (CORRECT)
	CALL RP4CNV		;YES, GET CYLINDER FOR THIS REQUEST
	MOVEM T2,UDBPS1(P3)	;SAVE IN UDB FOR SEIZE-DONE INTERRUPT
	RET			;WE'LL BE INTERRUPTED WHEN DRIVE AVAILABLE

;HERE FOR DUAL-PORTED DISK, BOTH SIDES ARE KNOWN TO THE -20
;THIS CAN HAPPEN BECAUSE WRITING THE ATTENTION SUMMARY REGISTER (FOR ANOTHER DRIVE)
; WILL CAUSE THIS DRIVE TO SIEZE TO THAT PORT
RP4CN4:	PUSH P,P1		;SAVE CHAN
	HRRZ P1,UDBCDB(T1)	;POINT AT CHAN FOR OTHER PORT
	CALL RP4DIS		;DO A RELEASE ON THE OTHER PORT (!)
	POP P,P1		;NOW BACK TO THIS PORT
	JRST RP4CN1		;AND TRY AGAIN

;HERE IF WE DIDN'T GET NICE STATUS - CHECK WRITE LOCKED

RPCERR:	LDB T3,IRYFCN		;GET FCN
	CAIE T3,IRFWRT		;CHECK WRITING
	CAIN T3,IRFWTF		; OR WRITE FORMAT
	JRST RPCER1		;YES - CHECK ON-LINE
	CAIE T3,IRFWVC		;OK IF WRITE VALIDITY CHECK, TOO
	CAIE T1,DS.GUD+DS.WRL	;NO - WRITE LOCKED?
	JRST RPCER1		;NO - SOMETHING ELSE
	MOVEI T1,0		;YES - DONT CLEAR WLK
	JRST RP4CN2		;AND CONTINUE
RPCER1:	TRNN T1,DS.MOL		;MEDIA ON LINE?
	JRST [MOVSI T3,(US.OFS)	;NO -SET OFF LINE
		 JRST RPCER3]
	TRNE T1,DS.VV		;YES - VOLUME VALID?
	JRST RPCER2		;YES - SOMETHING ELSE IS WRONG
	MOVSI T1,(US.CHB)	;VOLUME CHANGED - MAY NEED TO CHECK HB
	SKIPL UDBSTR(P3)	;UNIT IN STR?
	TLO T1,(US.OIR)		;OPR INTERVENTION IF IN A STR
	IORM T1,UDBSTS(P3)	;YES - MUST CHECK HOME BLOCKS
	CALL RP4UP		;ACK DRIVE
	JRST RP4CON		;AND TRY IT NOW

;Here on bad status that we can't explain

RPCER2:	CALL RP4RDR		;Error. Read all registers
	CALL RP4CLR		;CLEAR DRIVE
	CALL RP4DIS		;RELEASE PORT
SETUNS:	MOVEI T3,0		;ACCUMULATE STATUS HERE
	MOVE T1,RP.REG+DR.ER(P3) ;GET ERROR REGISTER
	TRNE T1,ER.UNS		;FILE UNSAFE?
	TLO T3,(US.OFS)		;OFF-LINE + UNSAFE
	MOVE T1,RP.REG+DR.ST(P3) ;GET STATUS REGISTER
	TRNE T1,DS.WRL		;WRITE LOCKED?
	TLO T3,(US.WLK)		;YES.
	TXNN T3,US.WLK!US.OFS	;Any "hard" errors?
	TXO T3,US.OMS		;No. Do normal background polling then
RPCER3:	IORM T3,UDBSTS(P3)	;SET IN STATUS
	RET			;ERROR RETURN
;HERE TO DISCONNECT FROM A DUAL PORT DRIVE

RP4REL:	MOVSI T1,(US.POS)	;CHECK FOR POSITION IN PROGRESS
	TDNE T1,UDBSTS(P3)
	RET			;NOT POSITION IN PROGRESS
RP4DIS:	MOVSI T1,(US.PGM)	;IS THIS A VARIABLE DUAL PORT
	TDNN T1,UDBSTS(P3)	;DISK?
	RET			;NO.
	MOVE T2,[DO.DRC+DF.REL]	;DRIVE CONTROL REG, RELEASE PORT
	CALL WTREG		;SEND TO DRIVE
	RET

;HERE TO DETERMINE THE CYLINDER ASSOCIATED WITH AN IORB

;P3/ UDB
;P4/ IORB
;	CALL RP4CNV	;ENTERED BY CALL UDSCNV
;RETURNS+1(ALWAYS):
;T2/ CYLINDER (UDBPS1)
;T3/ SECTOR WITHIN CYLINDER (UDBPS2)

RP4CNV:	CALL PHYBLK		;GET UNIT RELATIVE BLOCK ADDRESS
	TXZ T2,IRBPAD		;REMOVE PHYSICAL ADDRESSING BIT
	LDB T1,IRYFCN		;GET FUNCTION FROM IORB
	CAILE T1,MXEXFN		;GREATER THAN MAXIMUM EXTERNAL FUNCTION?
	CAIL T1,MNRP4V		;BUT LESS THAN VALIDITY CHECKS
	SKIPN T1,RP4FCN(T1)	;OR HAVE NULL TABLE ENTRY?
	BUG.(HLT,RP4IFC,PHYP4,SOFT,<PHYP4 - Illegal function at CNV>,,<

Cause:	The routine RP4CNV was called to return the cylinder associated
	with an IORB.  The routine checked the function in the IORB, and
	it was illegal.
>) 		;HERE FOR NULL ENTRY OR BAD FUNCTION
RP4CV2:	HLRZS T1		;GET FUNCTION CODE AND FLAGS
	TRZ T1,(XFRFLG)		;MASK
RP4CV1:	HRRZ T3,RP.SCL(P3)	;GET SECTORS PER CYLINDER
;	TRNE T1,F22		;22 SECTOR MODE?
;	HRRZ T3,...		;GET SECTORS PER CYL IN 22 SEC MODE
	IDIVI T2,(T3)		;CONVERT
	RET

;VERY SPECIAL PURPOSE COMMON CODE TO TRANSLATE SECTOR WITHIN CYL
;IN T3 INTO HWFMT SURF/SECT ADDR IN T4

GTHWSC:	HRRZ T4,RP.SSF(P3)	;GET SECTORS PER SURFACE
;	TRNE Q1,F22		;22 SECTOR MODE?
;	HRRZ T4,....		;GET SECTORS PER SURFACE IN 22 SECTOR
	IDIVI T3,(T4)		;GET SURFACE AND SECTOR
	DPB T3,[POINT 5,T4,27]	; SET T4 TO DESIRED ADDRESS
	RET
SUBTTL LATENCY OPTIMIZATION

;HERE TO DETERMINE WHICH TRANSFER REQUEST TO THIS UNIT HAS
;THE SMALLEST LATENCY GREATER THAN A SPECIFIED MINIMUM.

;P1/ CDB
;P3/ UDB
;T1/ MINIMUM LATENCY IN MICROSECONDS (0 FOR COMMAND STACK COMPUTATION)
;	CALL UDSLTM(CDB)
;RETURNS+1:
;NO REQUESTS AVAILABLE
;RETURNS+2:
;T1/ LATENCY OF CLOSEST REQUEST GREATER THAN SPECIFIED MINIMUM (USEC)
;T2/ PREDECESSOR OF IORB CORRESPONDING TO TIME IN T1
;T3/ IORB CORRESPONDING TO TIME IN T1

;IF COMMAND STACKING COMPUTATION WAS REQUESTED, THE DISK IS ASSUMED TO
;BE ONE PAGE BEYOND THE CURRENT TRANSFER

;CLOBBERS P4,P5,P6

;REGISTER USAGE:
;T3/ MINIMUM LATENCY,,CURRENT UNIT POSITION
;T4/ BEST LATENCY SO FAR,,PREDECESSOR TO CURRENT IORB
;P4/ CURRENT IORB
;P5/ PREDECESSOR TO BEST IORB,,BEST IORB SO FAR

;NOTE:	IF THE ONLY REQUESTS AVAILABLE ARE BETWEEN THE CURRENT UNIT
;	POSITION AND THE MINIMUM LATENCY THRESHOLD, THE LATENCY OF
;	THE CLOSEST SUCH REQUEST IS RETURNED PLUS ONE REVOLUTION.
;	THIS ELIMINATES THE SPECIAL CASE CHECKS IN SCHLTM.

RP4LTM:	JUMPE T1,RP4LT6		;COMMAND STACKING COMPUTATION?
	HRRZ T2,RP.USU(P3)	;GET TIME PER 1/64. SECTOR UNIT
	IDIVI T1,(T2)		;CONVERT TIME TO UNITS
	HRLO P4,T1		;SAVE AND INITIALIZE CURRENT POSITION
	MOVEI T4,3		;MAXIMUM NUMBER OF TIMES TO READ POSITION
RP4LT1:	MOVSI T2,DO.LA		;READ LOOKAHEAD REGISTER
	CALL RDREG		; ...
	ANDI T1,3777		;MASK UNDEFINED BITS
	CAIN T1,(P4)		;SAME AS LAST READING?
	JRST RP4LT2		;YES - USE IT
	HRR P4,T1		;NO - SAVE THIS ONE
	SOJG T4,RP4LT1		;LOOP
RP4LT2:	MOVE T3,P4		;SAVE MIN LATENCY,,CURRENT POSITION
	HRROI T4,UDBTWQ(P3)	;INITIALIZE BEST LATENCY,,PREDECESSOR
	TLNN T3,-1		;IF STACKING,
	HRR T4,IRBLNK(T4)	;EXCLUDE HEAD
	SETZB P4,P5		;INITIALIZE CURRENT AND BEST IORBS
RP4LT3:	HRRZ T1,T4		;NEED ADDRESS
	HRRZ P4,IRBLNK(T1)	;SET CURRENT FROM PREDECESSOR
	JUMPE P4,RP4LT5		;END OF LIST?
	CALL PHYBLK		;NO - GET UNIT RELATIVE ADDRESS
	TXZ T2,IRBPAD		;REMOVE PHYSICAL ADDRESSING BIT
	MOVE T1,T2		;COPY
	HRRZ T2,RP.SCL(P3)	;GET SECTOR PER CYLINDER
	IDIVI T1,(T2)		;GET SECTOR WITHIN CYLINDER
	MOVE T1,T2		;COPY
	HRRZ T2,RP.SSF(P3)	;GET SECTORS PER SURFACE
	IDIVI T1,(T2)		;GET SECTOR WITHIN SURFACE
	MOVE T1,T2		;AS REMAINDER
	LSH T1,^D6		;CONVERT TO 1/64. SECTOR UNITS
	SUBI T1,(T3)		;COMPUTE DISTANCE TO THIS REQUEST
	SKIPGE T1		;IF NEGATIVE,
	ADD T1,RP.USF(P3)	;GET ABSOLUTE DISTANCE
	HLRZ T2,T3		;GET MINIMUM LATENCY SPECIFIED
	CAMGE T1,T2		;IS THIS REQUEST GREATER?
	ADD T1,RP.USF(P3)	;NO - MUST DO IT ONE REVOLUTION LATER
	HLRZ T2,T4		;COMPARE TO BEST LATENCY SO FAR
	CAMN P4,UDBCHB(P3)	;CHECK FOR HOMNBLOCK IT IS BEST
	JRST RP4HMB
	CAML T1,T2		;LESS?
	JRST RP4LT4		;NO - DO NEXT REQUEST
RP4HMB: HRL T4,T1		;YES - SAVE AS CURRENT BEST LAT
	MOVE P5,P4		;COPY CURRENT IORB
	HRL P5,T4		;COPY PREDECESSOR IORB
	JUMPE T1,RP4LT5		;IF ZERO LATENCY, CAN DO NO BETTER
	MOVEI P6,^D7		;RESET NUMBER OF REQUESTS TO SCAN
RP4LT4:	HRR T4,P4		;PREDECESSOR BECOMES CURRENT IORB
	CAME P4,UDBCHB(P3)	;IS THE THE HOMEBLOCK IORB?
	SOJG P6,RP4LT3		;LOOK AT NEXT IORB
RP4LT5:	JUMPE P5,RP4LTE		;IF NONE FOUND, ERROR
	HLRZ T1,T4		;GET BEST LATENCY FOUND
	HRRZ T2,RP.USU(P3)	;GET USEC PER UNIT
	IMULI T1,(T2)		;CONVERT BACK TO MICROSECONDS
	HLRZ T2,P5		;GET PREDECESSOR TO BEST IORB
	HRRZ T3,P5		;GET BEST IORB
	RETSKP

;HERE WHEN COMMAND STACKING COMPUTATION IS REQUESTED

RP4LT6:	MOVE T1,UDBPS2(P3)	;GET CURRENT SECTOR
	CAMN T1,RP.LST(P3)	;LAST PAGE ON A CYLINDER?
	RET			;YES - DONT
	ADDI T1,4		;ASSUME DISK IS AT THE NEXT PAGE
	HRRZ T2,RP.SSF(P3)	;GET SECTORS PER SURFACE
	IDIVI T1,(T2)		;COMPUTE ROTATIONAL POSITION
	LSH T2,^D6		;CONVERT TO HWFMT
	MOVE P4,T2		;COPY RESULT
	JRST RP4LT2		;JOIN COMMON CODE

RP4LTE:	BUG.(HLT,RP4LTF,PHYP4,SOFT,<PHYP4 - Failed to find TWQ entry at RP4LTM>,,<

Cause:	The routine RP4LTM was called to find the entry on the transfer
	wait queue that had the best latency.  After searching the
	queue, no IORB was found to return.  This routine should only
	be called when the transfer wait queue is nonempty.
>)
	RET
	SUBTTL POSTION REQUEST

;C(P4) := IORB , C(P3) := UDB , C(P1) := CDB

RP4POS:	HLRZ Q1,RP4FCN+IRFSEK	;GET OP CODE FOR SEEK
	CALL RP4CON		;SEE IF DRIVE THERE AND CONNECT
	 RET			;ERROR RETURN
	HRLI T2,DO.DC		;C(T2) := DESIRED CYLINDER
RP4MOV:	PUSH P,T2		;SAVE ARGUMENT
	MOVSI T2,DO.OF		;CLEAR OFFSET REGISTER
	CALL WTREG		;...
	MOVSI T2,DO.DA		;CLEAR POSSIBLE ILLEGAL
	CALL WTREG		; SECTOR FROM DESIRED ADDRESS
	POP P,T2		;RESTORE DESIRED CYLINDER
	JRST CHSTRT		;START CHANNEL & SKIP RETURN
	SUBTTL INTERRUPT PROCESSING

;ROUTINE TO HANDLE ATTENTION INTERRUPTS

RP4ATN:	SKIPE UDBDSN(P3)	;CHECK FOR SERIAL NUMBER
	IFSKP.
	   CALL RP4DSN		;(P1,P3/) NONE THERE, GO GET IT
	   CALL PHYDUA		;(P3/)	CHECK FOR ANOTHER PATH
	ENDIF.
	MOVSI T2,DO.SR		;SET TO READ STATUS REGISTER
	CALL RDREG		;...
	MOVX T3,US.PGM!US.2PT
	IORM T3,UDBSTS(P3)	;FIRST FORCE IT TO LOOK LIKE DUAL PORT
	TRNN T1,DS.PGM		;CHECK FOR DUAL PORT
	ANDCAM T3,UDBSTS(P3)	;MAKE IT SINGLE PORT
	TRNN T1,DS.MOL		;MEDIA ON-LINE?
	JRST RP4OFL		;NO - OFF-LINE INTERRUPT.
	MOVX T3,U1.VV		;YES, CHECK FOR VALID VOLUME
	TDNN T3,UDBST1(P3)	;IF NOT VALID THEN SET IT NO MATTER WHAT
	TRNN T1,DS.VV		;YES - VOLUME VALID?
	JRST RP4ATF		;NO - FREE INTERRUPT (ON-LINE)
	MOVE T2,UDBSTS(P3)	;GET STATUS OF DRIVE
	TLNN T2,(US.ACT)	;EXPECTING AN INTERRUPT FROM THIS DRIVE?
	JRST RP4ATU		;NO - MUST BE -11 LET GO OF IT
	CALL SETIRB		;GET ACTIVE IORB(PRESERVES T1)
	SKIPE T2,UDBERR(P3)	;IN ERROR RECOVERY?
	JRST ERRATN		;YES, HAVE TO USE A DISPATCH ADDRESS
	TRNE T1,DS.ERR		;NO, ERROR?
	JRST RP4ATE		;YES

;HERE ON INTERRUPT WITH NO ERRORS
RP4ATD:	AOS UDBSEK(P3)		;NOTE SEEK
	PUSH P,Q1		;PRESERVE REG
	SKIPE UDBERR(P3)	;IF IN ERROR RECOVERY AND JUST WON,
	CALL SFTSEK		;READ THE REGISTERS NOW - AT END
	 JFCL
	POP P,Q1		;RECOVER Q1
	TLO Q1,-1		;SET FLAG FOR UPPER LEVEL
ATNX0P:	CALL PHYPDN		;INFORM PHYSIO
ATNX0:	MOVEI P4,0		;NO SPECIFIC IORB TO RETURN
ATNXIT:	MOVEI T2,1		;POSITION BIT
	HRRZ T1,UDBAKA(P3)	;GET CURRENT CHANNEL ADDRESS
	ROT T2,(T1)		;THE BIT
	HRLI T2,DO.AS		;BUILD DATAO
	CALLRET WTREG		;WRITE ATTENTION SUMMARY REGISTER


RP4ATU:	MOVX T1,US.OFS!US.OIR!US.OMS!US.RTY ;DEVICE IS NOW OURS AGAIN
	ANDCAM T1,UDBSTS(P3)	;SO MAKE UNIT ONLINE AGAIN
	CALL RP4CLR		;CLEAR DRIVE JUST INCASE
	TLO Q1,-1		;SET TO RESTART I/O
	HRRZ T1,UDBTWQ(P3)	;IS TWQ EMPTY?
	JUMPN T1,ATNXIT		;NO, JUST EXIT. PHYSIO WILL RESTART
	HRRZ T1,UDBPWQ(P3)	;CHECK FOR POSITION REQUEST
	JUMPN T1,ATNX0P		;YES DECLARE POSITION DONE
	CALL RP4DIS		;RELEASE INCASE NO REQUEST AVAILABLE
	JRST ATNXIT		;JUST EXIT AND TRANSFER WILL RESTART


RP4ATE:	HRRZ T3,UDBAKA(P3)	;ERROR - GET UNIT #
	CAMN T3,CDBXFR(P1)	;SAME UNIT AS TRANSFER?
	JRST ATNX0		;YES - ERROR ON XFERING UNIT (IGNORE)
				; WILL HANDLE LATER IN XFER INTERRUPT CODE

;HERE IF AN ERROR ON A NON-TRANSFERRING DRIVE
	CALL RP4RDR		;READ ALL DRIVE REGISTERS
	MOVE T1,RP.REG+DR.ST(P3) ;GET STATUS REGISTER
	MOVE T2,RP.REG+DR.ER3(P3) ;GET ERROR REGISTER 3
	MOVE T3,RP.REG+DR.ER(P3) ;GET ERROR REGISTER
	TRNE T2,E3.SKI		;SEEK INCOMPLETE,
	TRNE T3,ER.UNS		; AND NOT UNSAFE?
	JRST RP4AT2		;NO - JUST SEEK ERROR
	TRNN T1,DS.DRY		;YES, DRIVE READY?
	JRST ATNX0		;NO - UNIT STILL DOING RECAL, WAIT
				;RECALIBRATE DONE, FALL INTO POSITIONING ERROR CODE

RP4AT2:	MOVSI T1,(ES.POS)	;INDICATE A POSITION ERROR
	IORM T1,UDBERR(P3)	;IN RECOVERY STATE WORD
	CALL RP4CDA		;CLEAR DA & DC
	MOVSI T1,(IS.ERR)	;FLAG ERROR IN IORB
	IORM T1,IRBSTS(P4)	; ...
	TLO P4,-1		;SET SEEK ERROR FLAG
	CALLRET RP4CLR		;RESET DEVICE AND RETURN TO CHANNEL


;ROUTINE TO GET THE DRIVE SERIAL NUMBER (AND CHECK FOR DUAL-PORTED TO US)
;ACCEPTS:	P1/ CDB
;		P3/ UDB
;RETURNS:	+1

RP4DSN:	MOVSI T2,DO.SN		;GET REGISTER
	CALL RDREG		;(T2,P1,P3/T1) READ SERIAL NUMBER
	MOVE T2,T1		;POSITION LOW-ORDER DSN WORD
	LDB T4,USYTYP		;NO, GET DRIVE TYPE
	MOVE T1,T4		;MAKE HIGH-ORDER DSN WORD
	IORI T1,400		;MAKE IT CLASS 144 DISK
	LSH T1,20		;PUT IT IN RIGHT POSITION
	CALL SETDSN		;(T1,T2,P3/) SET DSN
	RET
;HERE ON FREE INTERRUPT (PACK CAME ON LINE)
RP4ATF:	CALL RP4DSN		;(P1,P3/) GET THE DRIVE SERIAL NUMBER
	CALL PHYDUA		;(P3) CHECK FOR ANOTHER PATH
	MOVSI T1,(US.CHB)	;NEED TO CHECK HOME BLOCKS
	SKIPL UDBSTR(P3)	; ...
	TXO T1,US.OIR!US.OMS	;need operator intervention
	IORM T1,UDBSTS(P3)	;MUST CHECK HOME BLOCKS
	MOVX T1,US.ACT!US.POS	;RESET POSITION BITS
	ANDCAM T1,UDBSTS(P3)	;IN THE UDB
	MOVX T1,U1.VV		;SET VALID VLOLUME BIT
	ANDCAM T1,UDBST1(P3)
	CALL RP4UP		;ISSUE PACK ACK
	TLO Q1,-1		;SET FLAG FOR UPPER LEVEL
	JRST PHYONL		;INFORM PHYSIO

;HERE ON ATTENTION INTERRUPT IF DRIVE IS IN ERROR RECOVERY
ERRATN:	HRRZ T1,UDBERR(P3)	;GET FUNCTION BEING PERFORMED
	SKIPL T1,RP4FCN(T1)	;GET DISPATCH ADDRESS
	JRST [	HRRZS T1,T1	;RIGHT HALF ONLY
		JRST (T1)]	;GO PROCESS INTERRUPT
	HRRZ T3,UDBAKA(P3)	;GET THE UNIT # OF DRIVE IN ERROR
	CAME T3,CDBXFR(P1)	;IS IT THE TRANSFERRING DRIVE?
	CALL RP4CLR		;CLEAR DRIVE AND BACK TO CHANNEL
	JRST ATNX0		;DATA TRANSFER FUNCTION - DEFER


;HERE FOR INTERRUPTS OTHER THAN ATTENTION
RP4INT:	CALL SETIRB		;SET UP IORB INTO P4
	HRRZ T1,UDBERR(P3)	;GET FUNCTION IF ERR RECOV
	SKIPN T1		;IN ERROR RECOVERY?
	LDB T1,IRYFCN		;GET FCN CODE
	CAIG T1,MXRP4F		;CHECK IF LEGAL
	SKIPA
	CAIL T1,MNRP4V
	SKIPL T1,RP4FCN(T1)	;GET TABLE ENTRY
	BUG.(HLT,RP4ILF,PHYP4,HARD,<PHYP4 - Illegal function on interrupt>,,<

Cause:	The routine RP4INT was called by the channel routine to handle
	a non-attention interrupt.  The function code for the IORB that
	I/O was done for was either illegal, or else the function was
	one which did not transfer data.  Functions which do not transfer
	data should give an attention interrupt.
>)
	HRRZS T1,T1
	JRST 0(T1)		;THE LEAP OF FAITH
	SUBTTL READ/WRITE INTERRUPTS

RP4RED:
RP4WRT:	MOVSI T2,DO.OF		;CLEAR ECI
	TRNE T1,DXES		; IF THEY WERE ON (NEXT TO LAST TRY)
	CALL WTREG
	MOVSI T2,DO.SR		;READ THE STATUS REGISTER
	CALL RDREG		;...
	TRNN T1,DS.ERR		;ANY ERROR?
	CALL CKERR		;CHECK CHANNEL ERRORS ALSO
	 JRST RP4DER		;YES - GO DECODE
	CALL PHYCNT		;GET LENGTH OF TRANSFER
	LSH T1,-7		;AS BLOCKS
	LDB T2,IRYFCN		;GET FUNCTION CODE
	CAIE T2,IRFRED
	CAIN T2,IRFRVC		;READ?
	JRST [	ADDM T1,UDBRED(P3) ;YES
		CAIN T2,IRFRED	;IS IT A READ FUNCTION?
         	 AOS UDBRCT(P3)	;YES SO UPDATE READ COUNT
		CAIN T2,IRFRVC	;IS IT A SKIP READ FUNCTION?
		 AOS UDBRVC(P3)	;YES SO UPDATE SKIP READ COUNT
		JRST RP4WR1]
	ADDM T1,UDBWRT(P3)	; YES
	AOS UDBWCT(P3)		;UPDATE WRITE COUNT
RP4WR1:	SKIPE UDBERR(P3)	;WAS DRIVE BEING ERROR-RECOVERED?
	CALL RP4RDR		;YES, READ REGISTERS AT SUCCESS
	MOVSI T1,(CS.AC2)	;IF STACKED COMMAND ACTIVE
	TDNN T1,CDBSTS(P1)	;DONT RELEASE PORT
	CALL RP4DIS		;DISCONNECT IF DUAL PORT DRIVE
	RETSKP

;HERE IF ERROR DETECTED ON DATA XFER

RP4DER:	CALL RP4RDR		;READ ALL DRIVE REGISTERS
				;AND FALL INTO RP4IER

;HERE ON ALL INTERRUPT DETECTED TRANSFER ERRORS

RP4IER:	MOVSI T1,(IS.ERR)
	IORM T1,IRBSTS(P4)
	CALL RP4CLR		;CLEAR THE DRIVE
	RET

;HERE ON INTERRUPT AFTER LAST PART OF XFER DONE (ECC FIXED 1ST PART)
RP4ECF:	MOVSI T2,DO.SR		;READ THE STATUS REGISTER
	CALL RDREG
	TRNE T1,DS.ERR		;ERROR?
	JRST RP4DER		;YES, GO HANDLE IT
	CALL RP4RDR		;GET REGISTERS AT SUCCESS
	CALL RP4IER		;NO, NOW TELL PHYSIO ABOUT THE ERROR
	MOVSI T1,(ES.ECC)	;INDICATE AN ECC ERROR
	IORM T1,UDBERR(P3)	; IN THE ERROR WORD
	RET
	SUBTTL ERROR RECOVERY CODE, ENTERED BY PHYSIO ON ERROR
REPEAT 0,<
ENTERED BY PHYSIO WHEN IS.ERR IS ON IN THE IORB, WITH UDBERP SET UP.
ON THE FIRST ERROR THE STATUS WILL BE READ INTO THE ERROR BLOCK
ERROR RECOVERY WILL BE ATTEMPTED, AND A NON-SKIP RETURN TO PHYSIO
INDICATES THAT ERROR RECOVERY IS IN PROGRESS.
A SKIP-RETURN INDICATES THAT ERROR RECOVERY IS DONE (HARD ERROR)

IF ENTERED BY PHYSIO WITH IS.ERR OFF IN THE IORB, JUST READ THE FINAL
STATUS (SOFT, SO WE RECOVERED) INTO THE ERROR BLOCK, AND SKIP-RETURN
>

RP4ERR:	SAVEQ			;SAVE ACCUMULATORS
	HRRZ Q1,UDBERP(P3)	;GET ERROR BLOCK (IF PRESENT)
	MOVE Q2,UDBSTS(P3)	;Q2 CONTAINS STATUS,
	AOS Q3,UDBERC(P3)	;AND Q3 HAS THE RETRY COUNTER
	SOJN Q3,NOT1ST		;GO IF NOT THE FIRST TIME

;HERE ON FIRST ERROR, SAVE DRIVE AND CHANNEL REGISTERS
	JUMPE Q1,ERR1		;IF NO ERROR BLOCK, CANT SAVE REGISTERS
	HRLI T1,RP.REG(P3)	;BUILD BLT POINTER
	HRRI T1,SEBDAT+MB%REG(Q1) ;...
	BLT T1,SEBDAT+MB%REG+17(Q1) ;COPY REGISTERS
	MOVE T1,Q1		;COPY ERROR BLOCK
	MOVE T2,[-NEDAT,,EDAT]	;POINTER TO CONTROL TABLE
	CALL SEBCPY		;COPY DATA
	 JFCL
	CALL PHYBLK		;GET LOGICAL ADDRESS
	TXZ T2,IRBPAD		;REMOVE PHYSICAL ADDRESSING BIT
	MOVEM T2,SEBDAT+MB%LOC(Q1) ;SAVE

ERR1:	TLNN Q2,(US.POS)	;IF THIS IS A READ,
	LDB T1,IRYFCN		; AND AND THE DRIVE IS OFFSET,
	MOVE T2,RP.REG+DR.OF(P3) ; DUE TO A PREVIOUS SECTOR THAT WAS
	CAIE T1,IRFRVC
	CAIN T1,IRFRED		 ; RECOVERED AT OFFSET
	TRNN T2,377		 ; FOR WHICH WE DIDNT RETURN TO CENTERLINE,
	JRST NOT1ST
	MOVEI Q3,RTCNDX		; THEN RETURN TO CENTERLINE NOW
	JRST RP4OFS		; BEFORE "REAL" ERROR RECOVERY IS ATTEMPTED

NOT1ST:	MOVSI T1,(IS.IER)	;ERROR RECOVERY INHIBITED?
	TDNE T1,IRBSTS(P4)	; ??
	JRST HRDERR		;YES - ALL ERRORS ARE HARD
	MOVE T1,RP.REG+DR.ER(P3) ;GET THE ERROR REGISTER
	TRNE T1,ER.UNS		;UNSAFE?
	JRST [CALL SETUNS	;YES, MARK THE DRIVE UNSAFE
		JRST HRDERR]	;AND CALL IT A HARD ERROR
	MOVE T1,IRBSTS(P4)	;NO, ERROR BIT ON?
	TLNN T1,(IS.ERR)
	JRST [	TLNE Q2,(US.POS) ;SEEK ERROR?
		JRST SFTSEK	;YES
		LDB T1,IRYFCN	;SOFT ERROR, GET OPERATION
		CAIE T1,IRFRVC
		CAIN T1,IRFRED	;READ?
		AOS UDBSRE(P3)	;YES
		CAIE T1,IRFWVC
		CAIN T1,IRFWRT	;WRITE?
		AOS UDBSWE(P3)	;YES
		JRST RDFINL]	;GO READ REGISTERS
	MOVE T1,UDBERR(P3)	;YES, GET BITS FROM ERR WORD
	MOVE T2,RP.REG+DR.ST(P3)	;GET STATUS REGISTER
	TLNE T1,(ES.ECC)	;ECC RECOVERED FIRST PART?
	TRNE T2,DS.ERR		;WITH NO ERRORS
	SKIPA
	JRST RP4ECD		;YES, WE'RE NOW FINISHED
	TLNN Q2,(US.POS)	;NO, POSITIONING ERROR?
	AOJA Q3,ERXFER		;NO
	MOVSI T1,(ES.POS)	;YES, LIGHT A BIT
	IORM T1,UDBERR(P3)
	MOVSI T1,(IS.DVE)	;INDICATE DEVICE ERROR
	IORM T1,IRBSTS(P4)	; ...
	CAIL Q3,POSCNT		;TRIED ENOUGH?
	JRST HRDSEK		;YES, IT'S HARD
	JRST RP4RCL		;NO, RECALIBRATE AND TRY AGAIN

;TABLE OF DATA TO COPY AT INITIAL ERROR RECOVERY TIME

EDAT:	SEBPTR MB%CNI,SBTWD,RP.CNI(P3) ;CONI
	SEBPTR MB%D1I,SBTWD,RP.CRC(P3) ;TCR
	SEBPTR MB%D2I,SBTWD,RP.DBF(P3) ;BAR/DBF
	SEBPTR MB%CS0,SBTWD,CDBCS0(P1) ;CHANNEL STATUS 0
	SEBPTR MB%CS1,SBTWD,CDBCS1(P1) ;CHANNEL STATUS 1
	SEBPTR MB%CS2,SBTWD,CDBCS2(P1) ;CHANNEL STATUS 2
	SEBPTR MB%CC1,SBTWD,CDBCC1(P1) ;CCW 1
	SEBPTR MB%CC2,SBTWD,CDBCC2(P1) ;CCW 2
	SEBPTR MB%ICR,SBTWD,CDBICR(P1) ;INITIAL CONTROL REGISTER

NEDAT=.-EDAT
;HERE ON ERROR OF AN TRANSFERRING UNIT
ERXFER:	MOVE T1,RP.REG+DR.ER(P3) ;GET ERROR REGISTER
	TRNE T1,ER.DCK		;DATA CHECK,
	TRNE T1,ER.ECH		;AND NOT ECC HARD?
	SKIPA T2,UDBERR(P3)	;NO
	JRST ERRECC		;YES, ECC CAN FIX IT UP
	TRNN T1,ER.OFS		;ERROR FOR WHICH OFFSET MIGHT WIN?
	TLNE T2,(ES.DAT!ES.HDR!ES.FER)
	JRST DATERR		;YES, GO TO OFFSET CODE
	LDB T2,USYTYP		;MAYBE. GET DRIVE TYPE
	CAIN T2,.UTRP7		;IS IT AN RP07?
	TRNN T1,ER.OPI!ER.DTE 	;YES. OP INCOMPLETE OR DRIVE TIMING ERROR?
	JRST DEVERR		;NO, DEVICE ERROR
	JRST DATERR		;YES, THIS IS REALLY A HEADER ERROR.
ERRECC:	MOVE T1,RP.REG+DR.OF(P3) ;FIRST CHECK IF ECC WAS ON
	TRNE T1,OF.ECI		;IF NOT, DONT EVEN LOOK AT
	JRST DATERR		;ECC REGS
	LDB T1,IRYFCN		;GET THE IORB FUNCTION
	CAIN T1,IRFRVC		;IS IT READ VERIFY?
	 JRST DATERR		;YES...CAN NOT USE ECC THEN
	MOVE T1,UDBERC(P3)	;GET RETRY COUNT
	CAIG T1,3		;TIME TO TRY ECC YET?
	JRST DATERR		;NO
	MOVE Q3,RP.REG+DR.ECP(P3) ;GET ECC POSITION
	SOJL Q3,DATERR		;LOSE IF POSITION = 0
	CAIL Q3,^D36*^D128	;IS POSITION SANE?
	JRST DATERR		;NO - ACT LIKE ECH

;HERE ON ECC-CORRECTABLE ERROR
	MOVSI T1,(ES.ECC)	;FLAG AS ECC
	IORM T1,UDBERR(P3)	; ...
	EXCH P4,Q3		;MOVE POSITION TO BETTER AC
	IDIVI P4,^D36		;COMPUTE POSITION OF BURST
	MOVE T4,RP.REG+DR.ECB(P3) ;GET ERROR BURST
	EXCH P5,T4
	SETZ P6,		;POSITION THE MASK
	ROTC P5,(T4)
	EXCH P4,Q3		;RESTORE QUOTIENT
	CALL ECCADR		;GET START OF LAST SECTOR TRANSFERRED
	ADDI T1,(Q3)		;POINT TO FIRST ERROR WORD
	CALL PHYMOV		;GET THE DATA WORD
	MOVSS P5		;APPLY ECC MASK TO 1ST PART
	XOR T2,P5
	CALL PHYSTO		;AND STORE THE ANSWER
	ADDI T1,1		;POINT TO 2ND ERROR WORD
	CALL PHYMOV		;GET IT
	MOVSS P6		;FIX IT
	XOR T2,P6
	CALL PHYSTO		;AND STORE IT
	CALL ECCUCL		;UPDATE CCW LIST, RETURN NO OF WORDS TRANSFERRED OK
	 JRST RP4ECD		;DONE - ERROR WAS IN LAST BLOCK (OF 4)
	LSH T1,-7		;NOT DONE - NUMBER OF BLOCKS WE READ
	HRLM T1,UDBERP(P3)	;SAVE TO COMPUTE 1ST BLOCK OF XFER
	MOVEI T1,ECFNDX		;INDICATE READING LAST PART
	CALL SURTRY		; WHERE ECC FIXED UP THE FIRST PART
	CALL RP4CLR		;MAKE SURE THE DRIVE IS READY
	JRST RETRY		;GO START THE XFER

;HERE WHENN ECC IS DONE (LAST BLOCK OF PAGE OR AFTER THE REST IS READ)
RP4ECD:	MOVSI T1,(ES.ECC)	;INDICATE ECC-CORRECTED ERROR
	IORM T1,UDBERR(P3)
	MOVSI T1,(IS.ERR)	;CLEAR ERROR BIT, SOFT ERROR
	ANDCAM T1,IRBSTS(P4)	; ...
	AOS UDBSRE(P3)		;NOTE SOFT READ ERROR
	JRST RDFINL		;CLEAN UP AND EXIT
;HERE ON ERROR WHICH MIGHT BE RECOVERED BY OFFSET
DATERR:	MOVE T1,RP.REG+DR.ER(P3) ;GET ERROR REGISTER AGAIN
	SETZ T2,
	TRNE T1,ER.DCK		;DATA ERROR?
	TLO T2,(ES.DAT)		;YES
	TRNE T1,ER.FER		;FORMAT ERROR?
	TLO T2,(ES.FER)		;YES
	TRNE T1,ER.HCE!ER.CRC!ER.OPI!ER.DTE ;HEADER ERROR?
	TLO T2,(ES.HDR)		;YES
	IORM T2,UDBERR(P3)	;LIGHT ERROR BIT IN ERROR WORD
	MOVSI T2,(IS.DTE)	;INDICATE DATA ERROR
	IORM T2,IRBSTS(P4)	; ...
	MOVE Q3,UDBERC(P3)	;GET RETRY COUNTER
	SUBI Q3,^D16		;LESS THAN 16 RETRIES?
	JUMPL Q3,RETRY0		;IF SO, JUST TRY ONCE MORE
	CAIL Q3,^D13		;NO, TRIED ENOUGH?
	JRST HRDTER		;YES, FINISH UP
	TRNE Q3,1		;NO, TIME TO OFFSET?
	JRST RETRY		;NO, TRY 2ND TIME AT THIS OFFSET
	LSH Q3,-1		;YES, COMPUTE OFFSET VALUE
RP4OFS:	MOVEI T1,OFSNDX		;INDICATE AN OFFSET
	JRST RP4EPS		;AND GO DO IT
;HERE ON AN ERROR WHICH OFFSET WONT DO US ANY GOOD ON
DEVERR:	MOVSI T1,(ES.DEV)	;INDICATE DEVICE ERROR
	IORM T1,UDBERR(P3)
	MOVSI T1,(IS.DVE)	;INDICATE DEVICE ERROR
	IORM T1,IRBSTS(P4)	; ...
	EXCH P1,P5		;TEMP
	IDIVI Q3,DEVCNT		;RETRY COUNT/NO OF TIMES TO RETRY
	EXCH P1,P5		;TEMP
	CAILE Q3,RCLCNT		;RETRIED ENOUGH?
	JRST DEVER1		;YES, FINISH UP
	JUMPN P5,RETRY0		;NO, RETRY IF HAVENT TRIED (DEVCNT) TIMES
	JRST RP4RCL		;TRIED ENOUGH - RECALIBRATE AND TRY AGAIN

DEVER1:	SKIPA Q3,P5		;Q3= 0 (TRY WITH DXES) OR 1 (LAST TIME)

HRDTER:	SUBI Q3,^D13		; OR 2 (GIVE UP)
LSTERS:	JUMPG Q3,LSTER1		;TRY FOR AS MUCH AS WE CAN GET?
	LDB T2,IRYFCN		;YES, GET FUNCTION
	CAIE T2,IRFRED		;IF NOT PLAIN VANILLA READ OR WRITE,
	CAIN T2,IRFWRT
	JRST LSTER2		;(READ OR WRITE HEADERS AND DATA)
	CAIE T2,IRFRVC
	CAIN T2,IRFWVC
	JRST LSTER2
	JRST HRDERR		;THEN FORGET IT
LSTER2:	MOVEI T1,DXRNDX		;SET UP TO READ/WRITE
	CAIE T2,IRFRED		;WITH DXES AND ECI ON
	MOVEI T1,DXWNDX
	JRST RETRY1		;GO GET AS MUCH DONE AS POSSIBLE

LSTER1:	SOJE Q3,RETRY0		;1 LAST TIME IF Q3=1

;HERE IF THE ERROR IS HARD
HRDERR:	MOVSI T1,(IS.NRT!IS.DVE) ;INDICATE HARD ERROR
	IORM T1,IRBSTS(P4)	; ...
	MOVSI T1,(ES.HRD)	;LIGHT HARD-ERROR BIT
	IORM T1,UDBERR(P3)	; IN THE ERROR WORD
	LDB T1,IRYFCN		;GET FUNCTION
	CAIE T1,IRFRVC
	CAIN T1,IRFRED		;READ?
	AOS UDBHRE(P3)		;ACCOUNT
	CAIE T1,IRFWVC
	CAIN T1,IRFWRT		;WRITE?
	AOS UDBHWE(P3)		;YES

;HERE TO READ THE DRIVE REGISTERS AT END (SOFT OR HARD)
RDFINL:	CALL RDRFIN		;READ REGISTERS
ALLDON:	HRLZI T2,DO.OF	;CLEAR OFFSET REG AND ECI
	CALL WTREG		; ...
	CALL RP4DIS		;DISCONNECT IF DUAL PORT DRIVE
	RETSKP			;TELL PHYSIO WE SHOULDNT TRY ANY MORE

;HERE ON A SOFT SEEK ERROR

SFTSEK:	AOS UDBSPE(P3)		;ACCOUNT POSITION ERROR
	CALL RDRFIN		;READ FINAL REGISTERS
	RETSKP

;HERE ON A HARD SEEK ERROR

HRDSEK:	AOS UDBHPE(P3)		;NOTE HARD POSITION ERROR
	MOVSI T1,(ES.HRD)	; ...
	IORM T1,UDBERR(P3)
	MOVSI T1,(IS.NRT!IS.DVE)	;FLAG ERROR AS HARD
	IORM T1,IRBSTS(P4)	; ...
	CALL RDRFIN		;READ FINAL REGISTERS
	CALL RP4DIS		;DISCONNECT IF NEEDED
	RETSKP

RDRFIN:	HRRZ Q1,UDBERP(P3)	;GET ERROR BLOCK AGAIN
	JUMPE Q1,R		;IF NO ERROR BLOCK, CANT SAVE INFORMATION
	MOVSI T1,-20		;20 DRIVE REGISTERS
	HRRI T1,RP.REG(P3)	;FROM THE UDB
	MOVEI T2,SEBDAT+MB%REG(Q1) ;INTO THE ERROR BLOCK
RDFIN1:	MOVE T3,(T1)		;GET A REGISTER
	HRLM T3,(T2)		;SAVE IN RH (FINAL STATUS)
	ADDI T2,1
	AOBJN T1,RDFIN1		;AND LOOP FOR MORE
	MOVE T1,RP.CNI(P3)	;GET CONI
	MOVEM T1,SEBDAT+MB%CIF(Q1) ;SAVE FINAL CONI
	MOVE T1,RP.CRC(P3)	;GET TCR FINAL
	MOVEM T1,SEBDAT+MB%D1F(Q1) ;SAVE
	MOVE T1,RP.DBF(P3)	;GET BAR
	MOVEM T1,SEBDAT+MB%D2F(Q1) ;AND SAVE
	RET
;HERE TO RECALIBRATE A DRIVE
RP4RCL:	MOVEI T1,RCLNDX		;RECALIBRATE
RP4EPS:	CALL SURTRY		;CLEAR THE ERROR BIT
	HRRZ Q1,UDBERR(P3)	;GET THE FUNCTION FOR RECOVERY
	HLRZ Q1,RP4FCN(Q1)	;GET THE HARDWARE BITS
	CALL RP4CON		;CONNECT TO THE DRIVE
	 JRST HRDERR		;ITS DOWN - LOSE
	SOS 0(P)		;CHSTRT WILL SKIP - RETURN
	MOVSI T2,DO.DC		;CLEAR DESIRED CYLINDER IF RECALIBRATE,
	CAIE Q1,DF.OFS
	JRST RP4MOV
	LDB T1,USYTYP		;GET DEVICE TYPE
	CAIN T1,.UTRP6		;RP06?
	SKIPA T2,OFSTB6(Q3)	;YES - GET SMALLER OFFSETS
	MOVE T2,OFSTBL(Q3)	;NO - GET DATAO OFFSET REGISTER FOR RP04,5
	CAIN T1,.UTRP7		;RP07?
	MOVE T2,OFSTB7(Q3)	;YES GET CORRECT OFFSETS
	CAIN T1,.UTRM3		;RM03?
	MOVE T2,OFSTB3(Q3)	;YES DIFFERENT OFFSETS
;**;[7375]At RP4EPS:+17L replace 3 lines with 12 lines  JCR  16-Sep-86
	TRNE T2,-1		;[7375]Offset equal to zero?
	JRST CHSTRT		;[7375]No, start channel and return to PHYSIO
	MOVEI Q1,DF.RTC		;[7375]Yes, assume return to centerline
	MOVE T1,RP.REG+DR.ER(P3) ;[7375]Pick up the error register 
	TRNE T1,ER.HCE		;[7375]Header compare error present?
	TRNE T1,ER.CRC		;[7375]Yes, header CRC error present?
	JRST CHSTRT		;[7375]Yes, start channel and return to PHYSIO
	MOVSI T2,DO.DC		;[7375]Clear the desired cylinder register
	MOVEI Q1,DF.RCL		;[7375]Recalibrate drive function
	MOVEI T1,RCLNDX		;[7375]Recalibrate function code
	HRRM T1,UDBERR(P3)	;[7375]Save the function code in the UDB
	JRST RP4MOV		;[7375]Clear some registers then start channel

;HERE ON INTERRUPT AFTER A RECALIBRATE
ERRCLI:	CALL RP4CDA		;READIN PRESET TO CLEAR DRIVE
	MOVEI T1,SEKNDX		;START A SEEK GOING
	HRRZ Q1,UDBERP(P3)	;GET ERROR BLOCK IF PRESENT
	CALL RP4EPS
	SETZB P4,Q1		;INDICATE JUST DISMISS THE INTERRUPT
	RET			;AND RETURN


;HERE ON POSITION DONE INTERRUPT IF DRIVE IS IN ERROR RECOVERY
ERRPSI:	CALL RP4CDA		;READIN PRESET TO CLEAR THE DRIVE
	MOVSI T1,(US.POS)	;WAS ORIGINAL OP A SEEK?
	TDNE T1,UDBSTS(P3)	; ?
	JRST RP4ATD		; YES, SUCCESSFUL RECOVERY OF SEEK ERROR
RETRY0:	LDB T1,IRYFCN		;GET FUNCTION
	HRRZ Q1,UDBERP(P3)	;GET ERROR BLOCK IF PRESENT
RETRY1:	CALL SURTRY		;CLEAR ERROR BIT IN IDBSTS

;HERE TO RETRY A DATA-XFER OPERATION AFTER AN ERROR
RETRY:	HRRZ T1,CDBDSP(P1)	;GET CHANNEL DISPATCH
	CALL CDSSIO(T1)		;START IO
	 JRST HRDERR		; **TEMP** UNIT REFUSED RETRY - HARD ERROR
	SETZ P4,		;TELL PHYSIO TO DISMISS THE INTERRUPT
	RET			;AND WAIT FOR NEXT INTERRUPT

;ROUTINE TO SET UP FOR ERROR RETRY
SURTRY:	HRRM T1,UDBERR(P3)	;SAVE WHAT TO DO
	JRST SETIO		;CLEAR ERROR BITS FROM IORB
	SUBTTL MISC ROUTINES

;ROUTINE TO ISSUE PACK ACKNOWLEDGE AND RESET DRIVE

RP4UP:	MOVSI T2,DO.SR		;READ STATUS REGISTER
	CALL RDREG
	MOVE T4,UDBSTS(P3)	;GET STATUS
	TLZ T4,(US.PGM!US.WLK)	;CLEAR BITS FOR DUAL PORT AND WRITE LOCKED
	TRNE T1,DS.WRL		;WRITE LOCKED?
	TLO T4,(US.WLK)		;YES - INDICATE IN STATUS
	TRNE T1,DS.PGM		;DUAL PORT IN PROGRAMMABLE MODE?
	TLO T4,(US.PGM)		;YES - INDICATE IN UNIT STATUS
	MOVEM T4,UDBSTS(P3)	;SET UP STATUS AND CONFIGURATION
	CALL RP4CLR		;CLEAR DRIVE
	MOVEI T2,DF.ACK		;PACK ACKNOWLEDGE
	JRST WTREG		;DO IT

;ROUTINE TO CLEAR DRIVE

RP4CLR:	MOVEI T2,DF.CLR		;CLEAR FCN
	CALL WTREG		;...
	MOVSI T2,DO.AS		;GET ATTENTION SUMMARY REGISTER
	CALL RDREG		;...
	MOVEI T3,1		;BIT TO FIDDLE
	HRRZ T4,UDBAKA(P3)	;UNIT #
	LSH T3,(T4)		;FIDDLE TO CORRECT POSITION
	TDNN T1,T3		;ATTENTION NOW UP?
	RET			;NO - DONE
	MOVE T2,T3		;YES , ERROR CAN'T BE CLEARED
	HRLI T2,DO.AS
	JRST WTREG		;CLEAR BIT IN ATTENTION SUMMARY REGISTER

;ROUTINE TO READ RP04 REGISTERS ON ANY ERROR

RP4RDR:	SETZ T2,		;DRIVE NUMBER, START AT 0
	MOVSI T4,-20		;READ 20 REGISTERS
	HRRI T4,RP.REG(P3)	;STORE IN RP.REG
RP4RD1:	CALL RDREG		;READ A REGISTER
	MOVEM T1,(T4)		;SAVE IN UDB
	ADD T2,[10000,,]	;STEP TO NEXT REGISTER
	AOBJN T4,RP4RD1		;AND READ IT
	CALL ERRCNI		;DO CONI, DATAI'S OF RH
	MOVEM T1,RP.CNI(P3)	;SAVE CONI
	MOVEM T2,RP.CRC(P3)	;SAVE DATAI CRC
	MOVEM T3,RP.DBF(P3)	;SAVE DATAI DB
	RET			;ALL REGISTERS READ, RETURN

;ROUTINE TO CLEAR POSSIBLE GARBAGE FROM DRIVE REGISTERS

RP4CDA:	MOVEI T2,DF.PST		;ENSURE DA & DC DON'T GET LEFT
	JRST WTREG		;WITH FUNNY VALUES


;HERE TO MARK UNIT OFFLINE

RP4OFL:	ANDCAM T3,UDBSTS(P3)	;SET SINGLE PORT WHILE OFFLINE
	MOVX T3,U1.VV		;CLEAR VALID VOLUME FOR RP07'S
	IORM T3,UDBST1(P3)
	CALL PHYOFL		;SET OFF LINE
	JRST ATNXIT		;RETURN CLEARING ATTENTION
;FUNCTION TABLE

XFRFLG==1B0			;FUNCTION TRANSFERS DATA (MUST BE SIGN)
RP4FCN:	-1				;0 - ILLEGAL
	XFRFLG+<XWD DF.RED,RP4RED>	;1 - READ
	XFRFLG+<XWD DF.RDF,RP4RED>	;2 - READ FORMAT
	XFRFLG+<XWD DF.WRT,RP4WRT>	;3 - WRITE
	XFRFLG+<XWD DF.WTF,RP4WRT>	;4 - WRITE FORMAT
	DF.SEK,,ERRPSI		;5 - SEEK
SEKNDX==.-RP4FCN-1
MXEXFN==SEKNDX		;MAXIMUM EXTERNAL FUNCTION
	DF.RCL,,ERRCLI		;6 - RECALIBRATE
RCLNDX==.-RP4FCN-1
	XFRFLG+<XWD DF.RED+ERETRY,RP4ECF> ;7 - FINISH UP AFTER ECC FIXED PART OF XFER
ECFNDX==.-RP4FCN-1
	DF.OFS,,ERRPSI		;10 - OFFSET
OFSNDX==.-RP4FCN-1
	XFRFLG+<XWD DF.RED+DXES,RP4RED> ;11 - READ ALL DATA POSSIBLE
DXRNDX==.-RP4FCN-1
	XFRFLG+<XWD DF.WRT+DXES,RP4WRT> ;12 - WRITE ALL DATA POSSIBLE
DXWNDX==.-RP4FCN-1

MXRP4F==.-RP4FCN-1		;MAXIMUM LEGAL FCN
	0			;13 - NOT USED
	0			;14 - NOT USED
	0			;15 - NOT USED
MNRP4V==.-RP4FCN		; MIN LEGAL VALIDITY FUNCTION
	XFRFLG+<XWD DF.WRT,RP4WRT> ;16 - WRITE WITH VALIDITY CHECK
	XFRFLG+<XWD DF.RED,RP4RED> ;17 - READ WITH VALIDITY CHECK

;TABLE OF OFFSETS FOR RP04,5

OFSTBL:	DO.OF,,20		;OFFSET +400 MICRO INCHES
	DO.OF,,220		;-400
	DO.OF,,40		;+800
	DO.OF,,240		;-800
	DO.OF,,60		;+1200
	DO.OF,,260		;-1200
	DO.OF,,0		;RTC
RTCNDX==.-OFSTBL-1

;OFFSET TABLE FOR RP06
;NOTE: THIS TABLE MUST BE THE SAME LENGTH AS OFSTBL

OFSTB6:	DO.OF,,10		;+200 MICRO IN
	DO.OF,,210		;-200
	DO.OF,,20		;+400
	DO.OF,,220		;-400
	DO.OF,,30		;+600
	DO.OF,,230		;+600
	DO.OF,,0		;RTC

;...
;OFFSET TABLE FOR RM03
;NOTE: THIS TABLE MUST BE THE SAME LENGTH AS OFSTBL

OFSTB3:	DO.OF,,20		;+202 MICRO IN
	DO.OF,,220		;-200 MICRO IN
	DO.OF,,0		;RTC
	DO.OF,,0		;RTC
	DO.OF,,0		;RTC
	DO.OF,,0		;RTC
	DO.OF,,0		;RTC

;OFFSET TABLE FOR RP07
;NOTE: THIS TABLE MUST BE THE SAME LENGTH AS OFSTBL

OFSTB7:	DO.OF,,0		;RTC
	DO.OF,,0		;RTC
	DO.OF,,0		;RTC
	DO.OF,,0		;RTC
	DO.OF,,0		;RTC
	DO.OF,,0		;RTC
	DO.OF,,0		;RTC
	TNXEND			;FOR GOODNESS
	END