Google
 

Trailing-Edge - PDP-10 Archives - bb-m080u-sm_t20_v7_0_23_mon_src_mod - monitor-sources/phym78.mac
There are 27 other files named phym78.mac in the archive. Click here to see a list.
; Edit= 8990 to PHYM78.MAC on 2-Nov-88 by LOMARTIRE
;Merge Production changes to BUG text
; Edit= 8913 to PHYM78.MAC on 17-Aug-88 by GSCOTT
;Update BUG. documentation. 
; Edit= 8830 to PHYM78.MAC on 14-Apr-88 by GSCOTT (TCO 7.1275)
;Install TCO 7.1275 into autopatch sources. 
; UPD ID= 8699, RIP:<7.MONITOR>PHYM78.MAC.10,  14-Apr-88 14:35:36 by GSCOTT
;TCO 7.1275 - Wait 40000 times for DI.TMR (TM ready) after DO.TMC (TM clear) 
; is set - this is what TOPS-blue does when it wants to reset the TM78.
; Output drive number on a TM8SNS. 
; UPD ID= 8588, RIP:<7.MONITOR>PHYM78.MAC.9,  11-Feb-88 16:55:41 by GSCOTT
;TCO 7.1218 - Update copyright date.
; UPD ID= 8435, RIP:<7.MONITOR>PHYM78.MAC.8,   4-Feb-88 15:14:21 by GSCOTT
;TCO 7.1210 - Set REVLEV, TM8AEI, TM8AFU, TM8FKR, TM8N2S, TM8NUD, TM8REW,
; and TM8SNS normally not dumpable.
; UPD ID= 8430, RIP:<7.MONITOR>PHYM78.MAC.6,   4-Feb-88 14:08:14 by GSCOTT
;TCO 7.1214 - Output TM78 status bits when we get a TM8FKR
; UPD ID= 264, RIP:<7.MONITOR>PHYM78.MAC.3,   6-Nov-87 10:51:20 by GSCOTT
;TCO 7.1116 - Add TM8CHK routine to fix lost done interrupts, fix up BUGs.
; Fix SUBTTLs, add table of contents, don't refer to the TU78 as a drive, just
; say "tape drive" which will apply to either TU78 or TU79.
; *** Edit 7457 to PHYM78.MAC by GSCOTT on 23-Apr-87, for SPR #21597
; Make SET ONLINE command work for drives connected to TM02/TM03/TM78 
; Edit 7142 to PHYM78.MAC by EVANS on 29-Aug-85, for SPR #20701 (TCO 6-1-1533 )
; Count number of physical records read or written.
; UPD ID= 2159, SNARK:<6.1.MONITOR>PHYM78.MAC.32,   5-Jun-85 10:41:20 by MCCOLLUM
;TCO 6.1.1406  - Update copyright notice.
; UPD ID= 1922, SNARK:<6.1.MONITOR>PHYM78.MAC.31,   7-May-85 21:17:21 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1828, SNARK:<6.1.MONITOR>PHYM78.MAC.30,  25-Apr-85 16:38:16 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1794, SNARK:<6.1.MONITOR>PHYM78.MAC.29,  23-Apr-85 13:17:36 by MCCOLLUM
;TCO 6.1.1238 - Fix more BUG. documentation
; UPD ID= 1745, SNARK:<6.1.MONITOR>PHYM78.MAC.28,   9-Apr-85 15:43:58 by MCCOLLUM
;TCO 6.1.1238 - Fix BUG. documentation
; UPD ID= 4824, SNARK:<6.MONITOR>PHYM78.MAC.27,  17-Sep-84 10:43:15 by PURRETTA
;Update copyright notice
; UPD ID= 4646, SNARK:<6.MONITOR>PHYM78.MAC.26,   2-Aug-84 11:12:29 by HAUDEL
;TCO 6.2159 - CHANGE THE INTERRUPT DISPATCHING AC, THAT IS SET UP FROM ICDTBL,
;TO BA A LOCAL INDEX AND NOT A GLOBAL ONE. INTRRO NEEDS THIS.
; UPD ID= 4614, SNARK:<6.MONITOR>PHYM78.MAC.25,  27-Jul-84 15:28:13 by HAUDEL
;TCO 6.2145 - PREVENT NOIORB FROM SPURIOUS REW INTERRUPT.
; UPD ID= 4600, SNARK:<6.MONITOR>PHYM78.MAC.24,  27-Jul-84 08:09:26 by HAUDEL
;TCO 6.2127 - ADD DATA ITEMS TO TM8AEI BUGCHK
; UPD ID= 4392, SNARK:<6.MONITOR>PHYM78.MAC.23,  27-Jun-84 12:10:04 by HAUDEL
;TCO 6.2019 - INCREMENT UDBPS2 WHEN WRITING A TM. THIS IS FOR LABELLED TAPES.
; UPD ID= 3659, SNARK:<6.MONITOR>PHYM78.MAC.22,   7-Feb-84 14:55:09 by HAUDEL
;More TCO 6.1818 - ADJUST CODE FOR SECTION 1 OPERATION.
; UPD ID= 3398, SNARK:<6.MONITOR>PHYM78.MAC.21,   3-Jan-84 11:42:26 by HAUDEL
;More TCO 6.1794 - Change REVLEV bugchk to buginf
; UPD ID= 3109, SNARK:<6.MONITOR>PHYM78.MAC.20,   7-Nov-83 21:24:02 by MCLEAN
;ADD PORT RELEASE DISPATCH
; UPD ID= 3020, SNARK:<6.MONITOR>PHYM78.MAC.19,  10-Oct-83 16:21:42 by MURPHY
;Clean up format.
; UPD ID= 3003, SNARK:<6.MONITOR>PHYM78.MAC.18,   5-Oct-83 20:13:19 by MCLEAN
;TCO 6.1818 RE-ADJUST CODE FOR SECTION 1 OPERATION
; UPD ID= 2928, SNARK:<6.MONITOR>PHYM78.MAC.17,  23-Sep-83 11:40:28 by HAUDEL
;TCO 6.1794 - Add REVLEV bugchk and make a 31 class error fatal.
; UPD ID= 2898, SNARK:<6.MONITOR>PHYM78.MAC.16,  16-Sep-83 14:37:50 by HAUDEL
;TCO 6.1757 - Save T4 in BEGLOD before call to SEBCPY
; UPD ID= 2615, SNARK:<6.MONITOR>PHYM78.MAC.15,  21-Jun-83 13:10:49 by HAUDEL
;TCO 6.1697 - Reset SAVFNC in TM8HNG code.
; UPD ID= 2614, SNARK:<6.MONITOR>PHYM78.MAC.14,  21-Jun-83 13:01:47 by HAUDEL
;TCO 6.1696 - Do not set KDBACT on SENSE operation after online interupt
; UPD ID= 2613, SNARK:<6.MONITOR>PHYM78.MAC.13,  21-Jun-83 12:32:25 by HAUDEL
;TCO 6.1695 - Add SOS (P) to Reread Opposite code
; UPD ID= 2579, SNARK:<6.MONITOR>PHYM78.MAC.12,  14-Jun-83 09:53:00 by HAUDEL
;TCO 6.1668 - Add SAVEQ at TM8SI0
; UPD ID= 2416, SNARK:<6.MONITOR>PHYM78.MAC.11,   4-May-83 08:16:44 by HAUDEL
;TCO 6.1640 - Change code after TM8NUD  bugchk
; UPD ID= 1980, SNARK:<6.MONITOR>PHYM78.MAC.10,  11-Mar-83 15:56:19 by HAUDEL
;TCO 6.1539 - Change SAVUDB,KDBACT,SAVFNC so that SENSE works correctly
; UPD ID= 1946, SNARK:<6.MONITOR>PHYM78.MAC.9,   9-Mar-83 10:24:35 by HAUDEL
;TCO 6.1512 - Add code for high density format mode,fix TCO 6.1410
; UPD ID= 1719, SNARK:<6.MONITOR>PHYM78.MAC.8,  28-Jan-83 14:20:04 by DONAHUE
;TCO 6.1431 - Clear the interrupt if no UDB is found
; UPD ID= 1604, SNARK:<6.MONITOR>PHYM78.MAC.7,  29-Dec-82 13:47:38 by DONAHUE
;TCO 6.1410 - Change references to MTINDX to use STKVAR's
; UPD ID= 1115, SNARK:<6.MONITOR>PHYM78.MAC.6,  26-Aug-82 14:07:43 by HAUDEL
;TCO 5.1.1056 - Add code to set device online after TM78 power turned on.
; UPD ID= 1077, SNARK:<6.MONITOR>PHYM78.MAC.5,  11-Aug-82 09:25:27 by WACHS
;TCO 5.1780 - Set up Q2 after extended status read interrupt
; UPD ID= 591, SNARK:<5.MONITOR>PHYM78.MAC.35,  29-Jun-82 04:25:25 by WACHS
; UPD ID= 965, SNARK:<6.MONITOR>PHYM78.MAC.4,  29-Jun-82 04:34:54 by WACHS
;TC0 5.1779 - Clear TU7ECD, TU7SNS before starting IO
;TCO 5.1778 - Inhibit error repositioning on last error retry
; UPD ID= 904, SNARK:<6.MONITOR>PHYM78.MAC.2,   9-Jun-82 23:25:34 by MURPHY
;TCO 6.1147 - Move bugdefs from BUGS.MAC to here and put them in-line.
; UPD ID= 501, SNARK:<5.MONITOR>PHYM78.MAC.34,   5-Mar-82 06:24:45 by WACHS
;TCO 5,1747 - Set up Q1 on interrupt from sense after read of 1st record
;TCO 5,1748 - Worry about RAEs if TM is powered off
; UPD ID= 488, SNARK:<5.MONITOR>PHYM78.MAC.33,  26-Feb-82 11:09:27 by WACHS
;TCO 5.1740 - Check for HOLD in TM status register
; UPD ID= 446, SNARK:<5.MONITOR>PHYM78.MAC.32,  29-Jan-82 05:15:56 by WACHS
;TCO 5.1710 - Set up UDBSLV
; UPD ID= 432, SNARK:<5.MONITOR>PHYM78.MAC.31,  22-Jan-82 08:34:50 by WACHS
;TCO 5.1696 Limit the number of async interrupts to a maximum of 8
; UPD ID= 266, SNARK:<5.MONITOR>PHYM78.MAC.30,  16-Oct-81 11:06:41 by WACHS
;TCO 5.1586 - Increase the retry counter to greater than the microcode's
; UPD ID= 208, SNARK:<5.MONITOR>PHYM78.MAC.29,  23-Sep-81 05:19:24 by WACHS
; UPD ID= 199, SNARK:<5.MONITOR>PHYM78.MAC.28,  21-Sep-81 06:45:53 by WACHS
;TCO 5.1517 Generate a PSI interrupt on REWIND, even if tape is at BOT
; UPD ID= 81, SNARK:<5.MONITOR>PHYM78.MAC.27,  27-Jul-81 09:17:38 by WACHS
;TCO 5.1435 Don't try to read status after TU fault b, MB fault
; UPD ID= 36, SNARK:<5.MONITOR>PHYM78.MAC.26,  16-Jul-81 09:39:10 by WACHS
; UPD ID= 35, SNARK:<5.MONITOR>PHYM78.MAC.25,  16-Jul-81 06:18:04 by WACHS
;TCO 5.1416 Fix bit to check for dual-ported drives
; UPD ID= 2302, SNARK:<5.MONITOR>PHYM78.MAC.24,   7-Jul-81 10:58:24 by WACHS
;TCO 5.1395 Save, restore CDBICR over call to read extended status
; UPD ID= 2041, SNARK:<5.MONITOR>PHYM78.MAC.23,  20-May-81 06:22:32 by WACHS
;TCO 5.1336 Add bits to ICDTBL for entry 22
; UPD ID= 2020, SNARK:<5.MONITOR>PHYM78.MAC.22,  19-May-81 03:43:46 by WACHS
;TCO 5.1333 More checking on done interrupts to make sure we did something
; UPD ID= 1820, SNARK:<5.MONITOR>PHYM78.MAC.21,  17-Apr-81 09:49:55 by WACHS
;TCO 5.1288 Maintain statistics by mode (PE, GCR)

;	COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1976, 1988.
;	ALL RIGHTS RESERVED.
;
;	THIS SOFTWARE IS FURNISHED UNDER A  LICENSE AND MAY BE USED AND  COPIED
;	ONLY IN  ACCORDANCE  WITH  THE  TERMS OF  SUCH  LICENSE  AND  WITH  THE
;	INCLUSION OF THE ABOVE  COPYRIGHT NOTICE.  THIS  SOFTWARE OR ANY  OTHER
;	COPIES THEREOF MAY NOT BE PROVIDED  OR OTHERWISE MADE AVAILABLE TO  ANY
;	OTHER PERSON.  NO  TITLE TO  AND OWNERSHIP  OF THE  SOFTWARE IS  HEREBY
;	TRANSFERRED.
;
;	THE INFORMATION IN THIS  SOFTWARE IS SUBJECT  TO CHANGE WITHOUT  NOTICE
;	AND SHOULD  NOT  BE CONSTRUED  AS  A COMMITMENT  BY  DIGITAL  EQUIPMENT
;	CORPORATION.
;
;	DIGITAL ASSUMES NO  RESPONSIBILITY FOR  THE USE OR  RELIABILITY OF  ITS
;	SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.


	SEARCH PROLOG,PHYPAR,SERCOD ;SYSTEM PARAMETERS
	TTITLE (PHYM78,,< - Device Dependent Code For TM78/TU78/TU79 Magtapes >)
	SUBTTL T. WACHS 22-MAY-80
	Subttl	Table of Contents

;		     Table of Contents for PHYM78
;
;				  Section		      Page
;
;
;    1. Parameters . . . . . . . . . . . . . . . . . . . . . .   3
;    2. Device Dependent Table Defs  . . . . . . . . . . . . .   5
;    3. Dispatch For TM78  . . . . . . . . . . . . . . . . . .   6
;    4. Periodic Check Routine . . . . . . . . . . . . . . . .   7
;    5. Handle Hung Device . . . . . . . . . . . . . . . . . .   8
;    6. Check if Legal Unit  . . . . . . . . . . . . . . . . .   9
;    7. Check for Position Required  . . . . . . . . . . . . .  10
;    8. Reset TM78 . . . . . . . . . . . . . . . . . . . . . .  11
;    9. Start I/O Routine  . . . . . . . . . . . . . . . . . .  12
;   10. Interrupt Processing
;       10.1    Attention Interrupt  . . . . . . . . . . . . .  16
;       10.2    Command Done . . . . . . . . . . . . . . . . .  18
;       10.3    Analyze What Happened  . . . . . . . . . . . .  21
;       10.4    Action Routines  . . . . . . . . . . . . . . .  26
;   11. Error Recovery . . . . . . . . . . . . . . . . . . . .  29
;   12. TM78 Initializing Routine  . . . . . . . . . . . . . .  33
;   13. Tables To Control I/O  . . . . . . . . . . . . . . . .  39
	SUBTTL Parameters

	;DRIVE REGISTERS USED IN DATAO'S

	.DOCR==0B5		;DRIVE CONTROL REGISTER
	.DOICD==1B5		;INTERRUPT CODE (DATA XFER)
	   DO.ICD==77		;INTERRUPT CODE
	   DI.FCD==176000	;FAILURE CODE
	.DOFMT==2B5		;RECORD COUNT/FORMAT
	   DO.SER==100000	;SUPPRESS ERROR REPOSITIONING
	   DO.RC1==4		;RECORD COUNT RIGHTMOST BIT
	.DOER==3B5		;ERROR REGISTER
	.DOAS==4B5		;ATTENTION SUMMARY
	.DOBC==5B5		;BYTE COUNT
	.DODT==6B5		;DRIVE TYPE
	.DOSR==7B5		;STATUS REGISTER
	   DI.RDY==100000	;READY
	   DI.PRS==40000	;DRIVE PRESENT
	   DI.PE==4000		;PHASE ENCODED
	   DI.BOT==2000		;AT BOT
	   DI.FPT==400		;FILE PROTECTED
	   DI.AVL==200		;AVAILABLE (TO THIS MASSBUS)
	   DI.MNT==40		;IN MAINTENANCE MODE
	.DOSN==10B5		;SERIAL NUMBER
	.DODG==11B5		;DIAGNOSTIC
	.DODG2==12B5		;DIAGNOSTIC
	.DOICN==13B5		;INTERRUPT CODE (NON DATA-XFER)
	   DI.DRV==1400		;DRIVE NUMBER
	.DOND0==14B5		;NON DATA-XFER COMMAND, UNIT 0
	   DO.NDC==177400	;COUNT FIELD
	   DO.NDF==77		;FUNCTION CODE
	   NDCSHF==^D8		;SHIFT VALUE FOR COUNT
	.DOND1==15B5		;COMMAND, UNIT 1
	.DOND2==16B5		;COMMAND, UNIT 2
	.DOND3==17B5		;COMMAND, UNIT 3
	.DOIA==20B5		;INTERNAL ADDRESS
	.DOTMS==21B5		;TM STATUS
	   DI.TMR==1B20		;TM READY
	   DO.TMC==1B21		;TM CLEAR
	   DI.MPE==1B22		;[7.1214] Microcode parity error
	   DI.ILR==1B23		;[7.1214] Illegal massbus register accessed
	   DI.CPE==1B24		;[7.1214] Parity error while writing MB reg
	   DO.EVP==1B25		;[7.1214] (Diagnostic) write even parity MB ctl
	   DO.HLA==1B26		;HOLD ACKNOWLEDGED
	   DO.HLD==1B27		;HOLD

DO.ERD==177777			;BITS IN DATAO (MASSBUS IS 16 BITS)

	;DRIVE FUNCTIONS
	DF.NOP==3		;NO-OP
	DF.UNL==5		;UNLOAD
	DF.REW==7		;REWIND
	DF.SNS==11		;SENSE
	DF.DSE==13		;DATA SECURITY ERASE
	DF.WTM==15		;WRITE TAPE MARK (PE)
	DF.SPF==21		;SPACE FORWARD RECORD
	DF.SPR==23		;SPACE REVERSE RECORD
	DF.SFF==25		;SPACE FORWARD FILE
	DF.SRF==27		;SPACE REVERSE FILE
	DF.SFE==31		;SPACE FORWARD RECORD OR FILE
	DF.SRE==33		;SPACE REVERSE RECORD OR FILE
	DF.ERG==35		;ERASE 3 INCHES OF TAPE (PE)
	DF.CLF==41		;CLOSE FILE (PE) - 2 EOFS, BACKSP 1
	DF.LET==45		;SKIP TO LOGICAL EOT

	DF.WRT==61		;WRITE (PE)
	DF.RED==71		;READ
	DF.RRV==77		;READ REVERSE
	DF.XSN==73		;EXTENDED SENSE
	SUBTTL Device Dependent Table Defs

;****************************
;UDB EXTENSIONS
	TU7HDN==UDBDDM		;HARDWARE-DETERMINED DENSITY
				; NOTE THAT MAGTAP USES THIS WORD
	TU7SNS==TU7HDN+1	;NON-0 IF DOING A SENSE OPERATION
	TU7ECD==TU7SNS+1	;ERROR BITS FROM TABLE IF AN ERROR ON LAST IO
	TU7ESD==TU7ECD+1	;SAVED ERROR BITS WHILE DOING A SENSE
	TU7RRO==TU7ESD+1	;NON-0 IF IN REREAD OPPOSITE ERROR RECIVERY
	SAVFNC==TU7RRO+1	;CURRENT FUNCTION/FLAGS
	LU.TM8==SAVFNC+1	;LENGTH OF TM78 UDB

;****************************
;KDB DEVICE DEPENDENT PORTION
	TM8ADR==KDBDDP+4	;MASSBUS ADDRESS OF TM78
	SAVUDB==TM8ADR+1	;CURRENT UDB (0 IF NONE)
	SAVLSI==SAVUDB+1	;LAST INTERRUPT CODE 
	TM8XCW==SAVLSI+1	;CCW FOR READING EXTENDED SENSE INFO
	TM8SCW==TM8XCW+1	;SAVED CCW WHILE READING EXTENDED SENSE
	TM8ACT==TM8SCW+1	;COUNT OF ASYNCHRONOUS INTERRUPTS
	TM8CNI==TM8ACT+1	;CONI OF RH GOES HERE
	TM8CS1==TM8CNI+1	;DATAI RH CONTROL REGISTER
	TM8DBF==TM8CS1+1	;DATAI RH DATA REGISTER
	TM8REG==TM8DBF+1	;DRIVE REGISTERS GO HERE
	 DR.CR==0		;DRIVE CONTROL REGISTER
	 DR.ICD==1		;INTERRUPT CODE (DATA XFER)
	 DR.FMT==2		;RECORD COUNT/FORMAT
	 DR.ER==3		;ERROR REGISTER
	 DR.AS==4		;ATTENTION SUMMARY
	 DR.BC==5		;BYTE COUNT
	 DR.DT==6		;DRIVE TYPE
	 DR.SR==7		;STATUS REGISTER
	 DR.SN==10		;SERIAL NUMBER
	 DR.DG==11		;DIAGNOSTIC
	 DR.DG2==12		;DIAGNOSTIC
	 DR.ICN==13		;INTERRUPT CODE (NON DATA-XFER)
	 DR.ND0==14		;NON DATA-XFER COMMAND, UNIT 0
	 DR.ND1==15		;COMMAND, UNIT 1
	 DR.ND2==16		;COMMAND, UNIT 2
	 DR.ND3==17		;COMMAND, UNIT 3
	 DR.IA==20		;INTERNAL ADDRESS
	 DR.TMS==21		;TM STATUS
	TM8REV==TM8REG+22	;ROM REV LEVELS
	TM8XSN==TM8REV+2	;EXTENDED SENSE INFORMATION
	TM8ELN==TM8XSN+17-TM8REG ;LENGTH OF ERROR REGION
	LK.TM8==TM8XSN+17	;LENGTH OF KDB

	TM8SLC==4		;MAX NO OF DRIVES ON A TM78
	TM8AMX==10		;MAX NO OF ASYNC INTERRUPTS BEFORE STOPPING TM
RTYOP==^D55			;MAX NO OF RETRIES (IF NOT ERR CODE 22)
				;THIS MUST BE GTR THAN 50 (THE MICROCODE'S VALUE)
				; TO PREVENT OVERWRITING HARD ERROR RECORDS
ERSTRY==400			;BIT TO TELL PHYH2 ABOUT ALREADY-SET IOLIST
	SUBTTL Dispatch For TM78

TM8DSP::JRST TM8INI		;0 - INITIALIZATION
	JRST TM8SI0		;1 - START I/O
	JRST TM8INT		;2 - HANDLE INTERRUPT (DATA OPERATION)
	JRST TM8ERR		;3 - ERROR RECOVERY
	JRST TM8HNG		;4 - HUNG DEVICE
	RET			;5 - NOT USED
	RET			;6 - NOT USED
	JRST TM8SI0		;7 - START POSITION OPERATION
	JRST TM8ATN		;10 - ATTENTION INTERRUPT 
	JRST TM8PRQ		;11 - SKIP IF POSITION REQUIRED
	RET			;12 - STACK SECOND COMMAND, FAIL FOR TM78
	JRST TM8LGL		;13 - CHECK LEGALITY OF A UNIT
	JRST TM8CHK		;14 - [7.1116] Controller check
	JRST R			;15 - PORT RELEASE (UNUSED)
	SUBTTL Periodic Check Routine

;[7.1116] TM8CHK - Called here once a minute to check on KS.ACT bit.
;[7.1116] Cycles through UDBs and checks for any active.  If none are
;[7.1116] active and KS.ACT is set, clear it and BUGCHK.  This prevents
;[7.1116] jobs hung because of lost TM78 done interrupts.
;[7.1116]
;[7.1116] Call with:
;[7.1116]		P1/ CDB
;[7.1116]		P2/ KDB
;[7.1116] Smashes T1-T4

TM8CHK:	MOVX T4,KS.ACT		;[7.1116] Load kontroller active status bit
	TDNN T4,KDBSTS(P2)	;[7.1116] Does PHYSIO think we are busy?
	RET			;[7.1116] No, return now
	MOVX T3,US.ACT		;[7.1116] Load UDB status bit for later tests
	MOVE T1,KDBIUN(P2)	;[7.1116] Load AOBJN word to UDB addresses

TM8CH1:	SKIPN T2,(T1)		;[7.1116] Is there a UDB for this unit?
	JRST TM8CH2		;[7.1116] Nope
	TDNE T3,UDBSTS(T2)	;[7.1116] Skip if unit is not active
	RET			;[7.1116] Return if an active UDB, it's OK
TM8CH2:	AOBJN T1,TM8CH1		;[7.1116] Loop for all units

;[7.1116] KS.ACT set but no UDBs were active.  Clear KS.ACT and BUGCHK.

	HRRZ T1,CDBADR(P1)	;[7.1116] Get channel number
	HRRZ T2,TM8ADR(P2)	;[7.1116] Get kontroller number
	MOVE T3,SAVUDB(P2)	;[7.1116] Load saved UDB (probably 0)
	BUG.(CHK,TM8AFU,PHYM78,SOFT,<PHYM78 - Active found up with no active units>,<<T1,CHAN>,<T2,CONT>>,<

Cause:	This BUGCHK happens when the KS.ACT bit is on in the KDB but US.ACT
	wasn't set in any UDBs during a periodic check.  This is not expected
	to happen.  KS.ACT is cleared and normal tape operation is restored.

Action:	The hardware may be flakey or broken.  Field Service should check out
	the TM78 hardware.  If the hardware checks out OK, change this BUGCHK
	to a BUGHLT and submit an SPR along with the dump and how to reproduce
	the problem.

Data:	CHAN - Channel number
	CONT - Controller number
	SAVUDB - Contents of SAVUDB

>,,<DB%NND>)			;[7.1210][7.1116] 
	ANDCAM T4,KDBSTS(P2)	;[7.1116] Turn off KS.ACT in the KDB
	RET			;[7.1116] Return to caller
	SUBTTL Handle Hung Device

;[7457] TM8HNG - Called here when device is hung
;[7457] Call with:
;[7457]		P1/ CDB
;[7457]		P2/ KDB
;[7457]		P3/ UDB
;[7457] 	P4/ IORB

TM8HNG:	MOVX T1,IS.NRT!IS.ERR!IS.DVE ;SET FATAL BITS
	IORM T1,IRBSTS(P4)	;AND REFRESH IT
	HRRZ T2,CDBICP(P1)
	SKIPE T1,TM8SCW(P2)	;IS THERE A SAVED CCW (USING A FAKE FOR EXTENDED STATUS)?
	MOVEM T1,(T2)		;YES, PUT BACK THE REAL CCW
	SETZM TM8SCW(P2)	;NO SAVED CCW NOW
	SETZM TU7SNS(P3)	;MAKE SURE THESE FLAGS ARE CLEAR
	SETZM TU7RRO(P3)
	SETZM  SAVFNC(P3)
	RET
	SUBTTL Check if Legal Unit

;[7457] TM8LGL - Called here to check if legal unit
;[7457] Call with:
;[7.1116] 	Q2/ unit number
;[7457] Just checks unit number and lets PHYSIO do the work

TM8LGL:	CAILE Q2,3		;ONLY 4 UNITS ARE LEGAL
	JRST RFALSE		;BUT PHYSIO THINKS 8 ARE OK
	JRST EXTUDB		;GO SEE WHAT PHYSIO THINKS
	SUBTTL Check for Position Required

;HERE TO DETERMINE IF THIS REQUEST SHOULD GO ON PWQ OR TWQ
TM8PRQ:	LDB T1,IRYFCN		;GET FUNCTION
	SKIPL FNCTBL(T1)	;DATA OPERATION?
	RETSKP			;NO - POSITION ALWAYS REQUIRED
	HRRZ T2,UDBPWQ(P3)	;YES - ANY PENDING POSITION OPERATIONS?
	JUMPE T2,R		;NONE - APPEND TO TWQ
	CAIN T2,(P4)		;AT HEAD OF PWQ?
	RET			;YES - NEXT TRANSFER
	RETSKP			;APPEND TO PWQ
	SUBTTL Reset TM78

;ROUTINE TO RESET THE TM78 AND WAIT FOR DONE
;RETURNS +1 (ALWAYS) WITH T4 NON-0 IF WE WON, =0 IF WE LOST

TM8ZAP:	MOVE T2,[.DOTMS!DO.TMC]	;Light the TM clear bit for the TM78
	CALL WTREG3		;(T2,Q2,P1/)
	MOVEI T4,40000		;[7.1275][7.1116] Wait a very very long time
TM8ZA1:	MOVSI T2,(.DOTMS)	;Select the TM status register
	PUSHJ P,RDREG3		;(T2,Q2,P1/T1) Read the TM78 status register
	TRNE T1,DI.TMR		;[7.1116] TM ready?
	RET			;[7.1116] Yes, return
	SOJG T4,TM8ZA1		;[7.1116] No, try again

;The TM78 didn't respond to the reset.  It appears to be taking a dirt nap.

	ANDX T1,DI.TMR!DI.MPE!DI.ILR!DI.CPE ;[7.1214] Clear all but good bits
	HRRZ T2,CDBADR(P1)	;[7.1214][7.1116] Get channel number
	BUG.(CHK,TM8FKR,PHYM78,HARD,<PHYM78 - TM78 failed kontroller reset>,<<T1,STATUS>,<T2,CHAN>,<Q2,CONT>>,<

Cause:	This BUGCHK happens when the monitor is attempting to reset a TM78
	controller and the controller failed to become ready after a very long
	wait.  The first word of additional data shows the TM78 status
	register.  If any bits are set in this word, there is a serious TM78
	hardware failure.

Action:	The TM78 or other hardware may be flakey or broken.  Field Service
	should check out the TM78.

Data:	STATUS - TM78 status (register 3)
	CHAN - Channel number
	CONT - Controller number

>,,<DB%NND>)			;[7.1275][7.1210][7.1214][7.1116] 
	RET			;[7.1116] Return to caller
	SUBTTL Start I/O Routine

;C(P4)=IORB C(P1)=CDB C(P2)=KDB C(P3)=UDB
;IF IN ERR RECOVERY, GET FN FROM RH(UDBERR)
;RET MEANS RE-CALL IN 1 MIN TO TRY AGAIN
;PUTS TM78 FN IN Q1, AND DATAO IN T2
;RETSKP (CHSTRT) MEANS OK, IT'S STARTED

TM8SI0:	SAVEQ
	SETZM TU7ECD(P3)	;MAKE SURE FLAGS ARE ZERO AT START
	SETZM TU7SNS(P3)

TM8SIO:	MOVX T2,.DOTMS		;READ STATUS REGISTER
	CALL RDREG
	JUMPE T1,CLRCHL		;IF POWERED DOWN, RESET RH INTERRUPT ENABLE
	TRNE T1,DI.TMR		;TM READY?
	TRNE T1,DO.HLD		;HOLD OFF?
	RET			;NO, "PROBLEM ON DEVICE"
				;START OF TCO 5.1.1056
	MOVX T2,US.OFS		;GET THE OFFLINE/ONLINE STATUS BIT
	ANDCAM T2,UDBSTS(P3)	;MAKE SURE DRIVE ISN'T MARKED OFFLINE.
				;END OF TCO 5.1.1056
	SKIPN Q1,UDBERR(P3)	;YES. GET FUNCTION IF ERROR RECOVERY
	LOAD Q1,ISFCN,(P4)	;NO, GET FN FROM IORB
	SKIPE Q1,FNCTBL(Q1)	;VALID FN?
	SKIPGE IRBSTS(P4)	;MAKE SURE PAGEM NOT SET
	JRST BADSIO		;IF SET REFUSE IT
	LOAD T1,IRBDN,(P4)	;DENSITY
	CAIG T1,MAXDEN
	SKIPGE T1,DENTBL(T1)	;LEGAL?
	JRST ILLFNC
	TXNE Q1,TB.WRT		;WRITE?
	TRO Q1,(T1)		;YES, SET GCR/PE IN FUNCTION
	LOAD T1,IRBPAR,(P4)	;GET PARITY
	JUMPE T1,TM8SI1		;GO IF ODD PARITY
ILLFNC:	MOVX T1,IS.ERR!IS.NRT!IS.DVE
	IORM T1,IRBSTS(P4)	;BAD PARITY/DENSITY - HARD ERROR
	RET
TM8SI1:	SKIPGE TM8ACT(P2)	;HOLD SET?
	CALL CLRHLD		;YES, CLEAR IT
	SETZM TM8ACT(P2)	;INDICATE NO ASYNC INTERRUPTS
	JUMPL Q1,TM8SI4		;GO IF A DATA OP
	SKIPN UDBERR(P3)	;NON-DATA. IN ERROR RECOVERY?
	SKIPA T2,IRBCNT(P4)	;NO, GET RECORD COUNT FROM IORB
	MOVEI T2,1		;YES, ONLY DO 1 RECORD
	LSH T2,NDCSHF		;PUT COUNT WHERE THE HDWRE WANTS IT
	ANDI T2,DO.NDC		;8 BITS-WORTH
	TRO T2,(Q1)		;PUT FUNCTION INTO COMMAND
	CAME Q1,REWFNC		;REWIND?
	JRST TM8SI2		;NO
	SETZM UDBPS2(P3)	;YES, SET AT 0TH REC, 0TH FILE
	SETZM UDBPS1(P3)
	JRST TM8SI2		;AND KEEP ON
;HERE TO DO A SENSE ON A GIVEN DRIVE

SENSE:	MOVEM Q1,TU7SNS(P3)	;LET EVERYONE KNOW WHAT WE'RE DOING
	MOVEI T2,DF.SNS		;FUNCTION = SENSE
TM8SI2:	HLL T2,UDBSLV(P3)	;POINT AT RIGHT REGISTER FOR THIS DRIVE
	MOVX T1,US.OFS
	CAMN Q1,UNLFNC		;UNLOAD?
	IORM T1,UDBSTS(P3)	;YES, SET THE DRIVE OFF-LINE
	MOVEM Q1,SAVFNC(P3)	;SAVE WHAT WE'RE DOING
	SETOM Q1		;ONLY 1 COMMAND
	JRST TM8SI5		;GO DO IT
;HERE TO START A DATA OPERATION

TM8SI4:	LOAD T4,IRBDM,(P4)	;MODE
	CAIG T4,MAXMOD		;LEGAL?
	SKIPGE T4,MODTBL(T4)
	JRST ILLFNC		;NO, RETURN AN ERROR
	HRRZ T2,UDBSLV(P3)	;GET THE UNIT NUMBER
	TRO T2,DO.RC1(T4)	;SET 1 RECORD AND THE FORMAT
	MOVE T1,IRBSTS(P4)
	SKIPE T3,UDBERR(P3)	;IN ERROR RECOVERY?
	MOVE T3,UDBERC(P3)	;YES, GET RETRY COUNT
	CAIE T3,RTYOP		;INHIBIT ERROR RETRY IF LAST RETRY
	TXNE T1,IS.IER		;INHIBITING ERROR RETRY?
	TRO T2,DO.SER		;YES, TELL THE HARDWARE
	HRLI T2,(.DOFMT)	;WRITE TO FORMAT REGISTER
	CALL WTREG		;DO IT
	MOVE T2,IRBCNT(P4)	;GET WORDCOUNT
	TRNN T4,40000		;IS MODE HIGH DENSITY?
	JRST TM8SI6		;NO.
	TRNE T2,1		;YES. IS WORD COUNT EVEN?
	JRST BADSIO		;NO.
	LSH T2,-1		;YES. MULTIPLY BY 9/2

TM8SI6:	HLRZS T4		;FRAMES PER WORD
	IMULI T2,(T4)		;FRAME COUNT
	ANDI T2,DO.ERD		;ENSURE ONLY 16 BITS-WORTH
	HRLI T2,(.DOBC)		;WRITE BYTE COUNT REGISTER
	MOVEM Q1,SAVFNC(P3)	;SAVE FUNCTION WE'RE DOING
	ANDI Q1,77
	HRRZM P3,SAVUDB(P2)	;SAVE ADDRESS ON DATA TRANSFER OPERATION

TM8SI5:	MOVE T3,SAVFNC(P3)	;GET THE FUNCTION
	ANDI T3,77		;MASK OUT ALL BITS BUT FUNCTION CODE BITS
	CAIE T3,DF.SNS		;IS FUNCTION A SENSE AFTER ONLINE?
	HRRZM P3,KDBACT(P2)	;NO. SAVE WHAT SLAVE WE'RE DOING IT TO
	JRST CHSTRT
BADSIO:	BUG.(CHK,TM8ISI,PHYM78,HARD,<PHYM78 - Illegal function at start IO>,,<

Cause:	This BUGCHK can be caused by trying to write an odd number of words to
	a tape drive that is set for the high density mode.  If T2 is odd, this
	is probably the cause.

Action:	If this BUGCHK is reproducable, set it dumpable, and send in an SPR
	with the dump and how to reproduce the problem.
>)				;[7.1116]
	MOVX T1,IS.ERR!IS.NRT!IS.DVE ;MARK AN ERROR OCCURED
	IORM T1,IRBSTS(P4)	;IN IORB
	RET
	SUBTTL Interrupt Processing -- Attention Interrupt

;COMES HERE ON AN ATA INTERRUPT (INCLUDING SPACING OPS)
;C(P1)=CDB C(P2)=KDB
;WILL SET C(P4)= 0 IF NONE
;SETS C(P3)=UDB
;ALWAYS RET (NEVER SKP RET'S)
;IF ERR, IS.ERR AND EITHER <IS.DVE OR IS.DTE> WILL BE SET
;IF IS.ERR NOT SET, WE ARE FINISHED WITH THIS IORB

TM8ATN:	SAVEQ			;SAVE SOME REGS
	MOVE Q2,TM8ADR(P2)	;GET UNIT NUMBER
	MOVX T2,.DOICN		;READ NON-DATA INTERRUPT CODE
	CALL RDREG3
	LDB P3,[POINT 2,T1,27]	;DRIVE NUMBER
	ADDI P3,KDBUDB(P2)	;+ START OF DRIVES
	SKIPN P3,(P3)		;POINT P3 AT UDB
	JRST NOUDB		;IT'S A NEW ONE ON ME!
TM8AT1:	CALL ANLYZE		;FIGURE OUT WHAT HAPPENED
	  JRST ATDONE		;RETURN, WILL GET ANOTHER INTERRUPT
	MOVX T1,US.BOT+US.PSI
	CAMN Q1,REWFNC		;WAS FUNCTION A REWIND?
	IORM T1,UDBSTS(P3)	;YES, SET BOT, FOR POSSIBLE PSI
	CALL ATDONE		;CLEAR THE ATTENTION BIT NOW
	SKIPN TU7SNS(P3)	;DOING A SENSE?
	JRST TM8AT2		;NO
	SKIPE TU7ECD(P3)	;YES, IF NOT SENSE AFTER READ OF 1ST RECORD
	JUMPE Q3,RSKP		;GET TO TM8ERR IF SENSE AFTER RH20 ERROR
	MOVE Q1,TU7SNS(P3)	;SENSE AFTER 1ST RECORD. RESET Q1
	JRST TM8IN2		;KEEP ON GOING (ITS "REALLY" A DATA INTERRUPT)
TM8AT2:	TXNN Q1,TB.DAT		;NO. DATA OP?
	RET			;NO. WE'RE DONE
TM8ATX:	MOVX T1,IS.ERR!IS.DVE;DATA OP, ATTEN INTERRUPT - ERROR
	IORM T1,IRBSTS(P4)
	RET			;TELL UPPER LEVEL WE HAVE A PROBLEM

ATDONE:	MOVE Q1,TM8ADR(P2)	;RESTORE Q1 (ANLYZE WIPES IT)
	MOVEI T2,1		;POSITION A BIT
	LSH T2,(Q1)		;TO CLEAR THE RIGHT ATTENTION BIT
	HRLI T2,(.DOAS)
	CALLRET WTREG3		;CLEAR THE ATTEN AND RETURN TO PHYH2
;HERE WHEN WE GET AN ON-LINE INTERRUPT FROM AN UNKNOWN SLAVE

NOUDB:	LDB P3,[POINT 2,T1,27]	;GET UNIT
	ANDI T1,DO.ICD		;GET INTERRUPT CODE
	CAIE T1,ICDND1		;IS IT ONE FOR WHICH THE DRIVE ADDRESS ISNT VALID?
	CAIN T1,ICDND2
	SKIPA P3,KDBACT(P2)	;YES, HAVE TO GET THE DRIVE A DIFFERENT WAY
	JRST NOUDB1		;NO, THIS REALLY IS A NEW DRIVE
	JUMPN P3,TM8AT1		;GO IF WE WERE WORKING ON A DRIVE
	MOVE T1,KDBIUN(P2)	;NOT WORKING ON A DRIVE. FIND ONE
	SKIPE P3,(T1)		;FIND THE FIRST (LOWEST NUMBER) DRIVE ON THE TM
	JRST TM8AT1		;GO BLAME THE ERROR ON THAT
	AOBJN T1,.-2		;THIS DRIVE DOESN'T EXIST, TRY NEXT
	CALLRET ATDONE		;NO DRIVES AT ALL! FORGET IT
NOUDB1:	CALL ATDONE		;CLEAR THIS ATTENTION
	MOVEI T2,DR.ND0(P3)
	ROT T2,-6		;DO A SENSE ON THE DRIVE
	HRRI T2,DF.SNS
	CALL WTREG3		; SINCE WE CAN'T READ STATUS WITHOUT IT
	MOVEI T4,400000		;WAIT FOR THE ATTENTION AFTER THE SENSE FINISHES
NOUDB2:	MOVX T2,.DOAS
	CALL RDREG3
	TRNN T1,377		;ATTEN?
	SOJG T4,NOUDB2		;NO, WAIT A BIT
	MOVE Q1,P3		;YES, SET Q1=UNIT NO
	CALL INIUNI		;BUILD THE UDB
	AOS MTAJB0		;TELL WORLD TO LOOK FOR A NEW UNIT
	SETZ P4,		;SO PHYSIO WONT GET UPSET
	JRST ATDONE		;CLEAR THE ATTEN AND RETURN, DISMISSING INTERRUPT
	SUBTTL Interrupt Processing -- Command Done

;ENTER HERE FROM RH20 COMMAND DONE INTERRUPT
;C(P1)=CDB  C(P2)=KDB
TM8INT:	SAVEQ			;SAVE REGS
	SKIPN P3,SAVUDB(P2)	;ARE WE DOING SOMETHING?
	JRST TM8INU		;NO, WE OUGHTN'T BE HERE
	SKIPE Q1,TU7SNS(P3)	;DOING A SENSE?
	TXNN Q1,TB.XSN		;YES, AN EXTENDED SENSE?
	JRST TM8IN1		;NO
	HRRZ T1,CDBICP(P1)	;YES, PUT BACK THE REAL CCW
	MOVE T2,TM8SCW(P2)	; (WE OVERWROTE IT TO READ EXTENDED SENSE BYTES)
	MOVEM T2,(T1)
	SETZM TM8SCW(P2)	;THE WORLD IS NOW BACK TOGETHER
	MOVE Q2,TM8ADR(P2)	;POINT Q2 AT UNIT
	CALL ANLYZ1		;KEEP ON WITH THE ORIGINAL INTERRUPT
	  JRST [SETZ P4,	;ASYNC - FORGET IT
		 RET]
	JRST TM8IN2		;NORMAL RETURN - KEEP ON

;HERE ON A "NORMAL" DONE INTERRUPT (NO EXTENDED SENSE GOING)

TM8IN1:	MOVX T2,.DOICD		;GET THE INTERRUPT REASON
	MOVE Q2,TM8ADR(P2)	;WHAT UNIT TO GET IT FOR
	CALL RDREG3
	CALL ANLYZE		;FIGURE OUT WHAT HAPPENED
	  JRST [SETZ P4,	;ASYNC OR ANOTHER COMING
		 RET]
	TRNE Q3,(IS.ERR)	;IF THE TM78 SAW AN ERROR
	JRST TM8IN2		; DON'T WORRY ABOUT WHETHER THE RH20 SAW ONE TOO
	CALL CKERR		;CHECK FOR RH20 ERRORS
	  JRST TM8RDH		;CHAN ERROR. READ REGS
TM8IN2:	SKIPGE P5,TU7HDN(P3)	;GET DENSITY
	LOAD P5,IRBDN,(P4)	;HARDWARE DOESN'T KNOW, GET IT FROM IORB
	CAIN P5,.SJD16		;1600 BPI (PE MODE)?
	SKIPA P5,P3		;YES, SET TO ACCUMULATE PE FRAMES
	MOVEI P5,1(P3)		;NO, SET TO ACCUMULATE GCR FRAMES
	TXNN Q1,TB.RD		;READ?
	JRST TM8IN4		;NO
	SKIPN TU7SNS(P3)	;YES, ALREADY DONE A SENSE?
	TRNE Q3,(IS.ERR)	;NO, ERROR?
	TDZA T2,T2		;NO
	MOVE T2,UDBPS2(P3)	;GOOD READ, NO SENSE JUST DONE.  GET POSITION
	SKIPN UDBPS1(P3)	;AT FILE 0, RECORD 1?
	SOJE T2,[SETZ P4,	;YES. DO A SENSE TO DETERMINE DENSITY
		    JRST SENSE]	;AND TELL PHYSIO ANOTHER INTERRUPT IS COMING
	MOVX T2,.DOBC		;NOT AFTER 1ST RECORD. READ BYTE COUNT
	CALL RDREG3
	TRNE Q3,(IS.ERR)	;IF RECORD IS NOT IN ERROR,
	JRST TM8IN5		;ERROR. DO NOT ACCUMULATE
	ADDM T1,UDBRED(P3)	; ACCUMULATE FRAMES READ
	ADDM T1,UDBRPE(P5)	;ACCUMULATE FRAMES READ IN PE/GCR
	AOS UDBRCT(P3)		;[7142] COUNT A  RECORD READ
TM8IN5:	LOAD T4,IRBDM,(P4)
	HLRZ T3,MODTBL(T4)	;COMPUTE WORDS READ
	SOJE T3,TM8IN3		;SAVE TIME IF BYTES=FRAMES
	CAIN T4,IRMHID		;IS MODE HIGH DENSITY?
	LSH T1,1		;YES. THEN MULTIPLY BY 2/9
	IDIVI T1,1(T3)
	JUMPE T2,TM8IN3		;GO IF AN INTEGRAL NUMBER OF BYTES
	ADDI T1,1
TM8IN3:	MOVEM T1,IRBCNT(P4)	;SAVE WORDCOUNT
TM8IN4:	TXNN Q1,TB.WRT		;WRITE?
	JRST DTDONE		;NO
	LOAD T4,IRBDM,(P4)	;YES, ACCUMULATE BYTES WRITTEN
	HLRZ T3,MODTBL(T4)
	IMUL T3,IRBCNT(P4)
	CAIN T4,IRMHID		;IS MODE HIGH DENSITY?
	LSH T3,-1		;YES. THEN DIVIDE BY 2
	ADDM T3,UDBWRT(P3)
	ADDM T3,UDBWPE(P5)	;ACCUMULATE BYTES WRITTEN IN PE OR GCR
	AOS UDBWCT(P3)		;[7142] COUNT A RECORD WRITTEN
DTDONE:	SETZM TU7ECD(P3)	;CLEAN UP ANY TEMPS
	SETZM TU7SNS(P3)
	SETZM SAVUDB(P2)
	TRNN Q3,(IS.ERR)	;ERROR?
	RETSKP			;NO, TELL PHYH2/PHYSIO ALL IS GOOD
	MOVEM Q3,TU7ECD(P3)	;ERROR - MAKE SURE TM8ERR KNOWS ABOUT IT
	RET			;AND SIGNIFY BY NON-SKIP

;HERE ON DONE INTERRUPT, NO UDB IS CURRENT

TM8INU:	HRRZ T1,CDBADR(P1)	;[7.1116] Load channel number
	HRRZ T2,TM8ADR(P2)	;[7.1116] Load kontroller number
	BUG.(CHK,TM8NUD,PHYM78,HARD,<PHYM78 - Channel done interrupt but no unit active>,<<T1,CHAN>,<T2,CONT>>,<

Cause:	A command done interrupt was issued by an RH20 channel but there was no
	unit active on that channel.  If an OVRDTA had previously occured, and
	the device finally responds, this BUGINF happens.  This usually
	indicates a hardware failure.

Action:	Field Service should check the devices on the channel listed in the
	additional data; any channel/controller/unit listed in OVRDTA BUGCHKs
	should be suspected.

Data:	CHAN - Channel number
	CONT - Controller number
>,,<DB%NND>)			;[7.1210][7.1116]
	SETZ P4,
	RET			;SIGNIFY ERROR
	SUBTTL Interrupt Processing -- Analyze What Happened

;SUBROUTINE TO FIGURE OUT WHAT HAPPENED 
;ENTER T1=INTERRUPT CODE REGISTER
;EXIT Q1=FUNCTION, Q3=INTERRUPT TABLE CONTENTS
;NON-SKIP IF ANOTHER INTERRUPT IS COMING, OR IT REQUIRES NO ACTION
;SKIP (WITH P4=IORB) IF IT IS "REAL"

ANLYZE:	MOVE Q1,SAVFNC(P3)	;FUNCTION WE DID
	SETZ P4,		;IN CASE WE NON-SKIP RETURN
	SKIPN TU7SNS(P3)	;DOING A SENSE?
	JRST ANLYZ4		;NO
	TRNE T1,76		;IS IT A DONE?
	RET			;NO, IGNORE IT
	MOVE Q1,TU7SNS(P3)	;YES, GET UPDATED BITS
	PUSH P,T1		;SAVE INTERRUPT CODE
	TXNN Q1,TB.RRG		;SENSE SO WE CAN READ REGS 7-10?
	JRST ANLYZ2		;NO
	CALL RDREG2		;YES, READ THEM NOW
	POP P,T1		;RESORE INTERRUPT CODE
	MOVE T2,TU7ECD(P3)	;EXTRA INTERRUPT FLAGS
	TLNN T2,-1		;RH20 ERROR?
	JUMPN T2,[MOVEI P4,1	;YES, SET LH(TU7ECD) NON-0
		    HRLM P4,TU7ECD(P3) ;SO TM8ERR WILL KNOW WHERE WE ARE
		    CALLRET SETIRB] ;DISMISS INTERRUPT, COME BACK AT TM8ERR
ANLYZ1:	MOVE Q3,TU7ESD(P3)	;GET UPDATED ERROR BITS
	SKIPGE CDBXFR(P1)	;DOING A DATA XFER?
	JRST ANLYZ6		;NO. CANT READ THE ERROR LOG NOW
	TXNE Q3,IC.XSN		;NEED AN EXTENDED SENSE?
	TXOE Q1,TB.XSN		;YES, HAVE WE JUST DONE IT?
	JRST ANLYZ6		;DONT NEED IT OR JUST DID IT - KEEP ON
	JRST ANLY12		;GO DO AN EXTENDED SENSE

;HERE FOR A SENSE WHEN DRIVE COMES ON-LINE OR AFTER READING 1ST RECORD

ANLYZ2:	MOVX T2,.DOSR		;READ THE STATUS REGISTER
	CALL RDREG3
	JUMPL Q1,ANLYZ3		;GO IF A DATA OPERATION
	MOVX T2,US.WLK!US.BOT	;ON-LINE SENSE - CLEAR/SET WRITE LOCK, BOT
	ANDCAM T2,UDBSTS(P3)
	TRNN T1,DI.FPT
	TXZ T2,US.WLK		;NOT WRITE-LOCKED
	TRNN T1,DI.BOT
	TXZ T2,US.BOT		;NOT AT BOT
	IORM T2,UDBSTS(P3)	;SET STATUS
	POP P,(P)		;MAKE THE STACK RIGHT
	SETZM TU7SNS(P3)	;DONE WITH THE SENSE
	SETZM SAVFNC(P3)	;INDICATE WE AREN'T USING DRIVE
	TXNN T2,US.BOT		;AT BOT?
	RET			;NO
	SETZM UDBPS1(P3)	;YES, CLEAR COUNTERS
	SETZM UDBPS2(P3)	; OF RECORD, FILE
	SETOM TU7HDN(P3)	;INDICATE UNKNOWN DENSITY
	RET			;NON-SKIP RETURN (TOSS THE INTERRUPT)
;HERE AFTER READING 1ST RECORD. GET DENSITY FROM THE HARDWARE

ANLYZ3:	CALL SETIRB		;POINT AT IORB
	MOVEI T2,.SJD16		;ASSUME 1600
	TRNN T1,DI.PE
	MOVEI T2,.SJD62		;NOPE, ITS 6250
	MOVEM T2,TU7HDN(P3)	;SAVE DENSITY IN UDB
	POP P,T1		;MAKE STACK RIGHT/RESTORE INTERRUPT CODE
	TXZ Q1,TB.DAT		;SET Q1 SO WE WON'T INCREMENT UDBPS2
				;FALL INTO ANLYZ4

;HERE ON REGULAR INTERRUPT OR SENSE AFTER READING 1ST RECORD

ANLYZ4:	MOVEM T1,SAVLSI(P2)	;SAVE LAST INTERRUPT CODE
	ANDI T1,DO.ICD		;6 BITS OF INTERRUPT CODE
	CAILE T1,MAXICD		;LEGAL?
	MOVEI T1,0		;NO
	SKIPN Q3,TU7RRO(P3)	;IN RETRY OPPOSITE?
	JRST ANLYZ5		;NO NEED TO DO ANYTHING NOW
	SETZM TU7RRO(P3)	;NOW NO LONGER IN OPPOSITE MODE
	HRRZ P4,UDBTWQ(P3)	;GET IORB ADDRESS
	JUMPE P4,ANLYZ5		;FORGET IT IF NO IORB (!)
	MOVE T2,IRBCNT(P4)	;GET WORDCOUNT OF RECORD
	SKIPN T3,UDBERR(P3)	;GET FUNCTION
	LOAD T3,ISFCN,(P4)
	SKIPL FNCTBL(T3)	;IS IT A DATA OPERATION?
	JRST ANLYZ5		;NO (!)
	PUSH P,T1		;SAVE INTERRUPT CODE
	CALL REVCCW		;YES, RE-REVERSE THE IO LIST
	HRRZ T1,Q3		;MASK OFF JUNK
	HLLM Q3,(T1)		;RESTORE LH OR CHANGED IOWD TO ITS ORIGINAL VALUE
	POP P,T1
ANLYZ5:	SKIPL Q3,ICDTBL(T1)	;GET ERROR BITS ASSOCIATED WITH THIS INTERRUPT
	JRST ANLYZ6		;NOT AN ERROR
	SKIPE UDBERR(P3)	;ERROR. FIRST TIME?
	TXNN Q3,IC.PAD		;NOT 1ST. DON'T SENSE IF TM78 WILL REPOSITON
	JRST TM8RDR		;ERROR - READ REGISTERS
ANLYZ6:	TXNN Q3,IC.RRG		;NON-ERROR INTERRUPT?
	SKIPN UDBERR(P3)	;YES, IN ERROR RECOVERY?
	CAIA			;ERROR OR NOT IN ERROR RECOVERY
	CALL RDREG4		;GOOD READ IN ERROR RECIVERY - READ FINAL REGS
	TXNN Q3,IC.ASY		;ASYNC?
	AOS (P)			;NO, SET FOR SKIP-RETURN
	TXNN Q3,IC.DSP		;DISPATCH ADDRESS?
	IFSKP.
	  HRRZ T4,Q3		;YES. SET UP LOCAL INDEX. (INTRRO NEEDS THIS).
	  JRST (T4)		;GO TO SUBROUTINE.
	ENDIF.
	SKIPGE UDBSTS(P3)	;OFF-LINE?
	JRST [CAME Q1,UNLFNC	;YES, IS IT AN UNLOAD?
		 RET		;NO, FORGET THE INTERRUPT
		 JRST .+1]	;YES, REPORT COMPLETION TO PHYSIO
				;FALL INTO HERE FROM PREVIOUS PAGE
ANLYZ7:	CAMN P3,KDBACT(P2)	;NO. HERE FOR THE "RIGHT" UNIT?
	SETZM KDBACT(P2)	;YES, CLEAR THE SAVED UDB
	MOVX T2,US.BOT		;CLEAR BOT, PICK UP DRIVE STATUS
	TXNE Q3,(IS.BOT)	;DID WE HIT BOT?
	IORB T2,UDBSTS(P3)	;YES, TELL THE WORLD
	TXNN Q3,(IS.BOT)	;IF NOT AT BOT
	ANDCAB T2,UDBSTS(P3)	;TELL THE WORLD WE AREN'T
	TXNE T2,US.REW		;WAS IT REWINDING?
	JRST ANLY10		;YES, TELL WORLD WE'RE DONE
	JUMPE Q1,ANLY11		;NO, GO AWAY IF WE DIDN'T TELL IT TO DO ANYTHING
	HRRZ T1,UDBTWQ(P3)	;GET TOP ENTRY IN TRANSFER QUEUE
	ADD T1,UDBPWQ(P3)	; + TOP ENTRY IN POSITION QUEUE
	TRNN T1,-1		;ANYTHING THERE?
	JRST ANLY11		;NO, FORGET THIS INTERRUPT
	TXNN Q3,IC.BST		;SET A BIT IN IORB?
	TDZA T1,T1		;NO
	HRLZ T1,Q3		;YES, GET THE BIT(S) TO SET
	CALL SETIRB		;POINT P4 AT IORB
	MOVX T2,IS.DVE!IS.DTE;CLEAR ERROR BITS
	ANDCAM T2,IRBSTS(P4)
	IORM T1,IRBSTS(P4)	;AND SET BIT(S) FROM THIS INTERRUPT
	TXNN Q1,TB.SPC		;SPACING OPERATION?
	JRST ANLYZ8		;NO, COUNT 1 RECORD
	SKIPE UDBERR(P3)	;IN ERROR RECOVERY?
	JRST [MOVEI T1,1	;YES, 1 RECORD
		 JRST ANLYZ9]
	HLLZ T2,UDBSLV(P3)	;NO, READ CURRENT RECORD COUNT
	CALL RDREG3
	LSH T1,-NDCSHF		;RIGHT-JUSTIFY IT
	EXCH T1,IRBCNT(P4)	;TELL WORLD HOW MANY WE DIDNT DO
	SUB T1,IRBCNT(P4)	;COMPUTE AMOUNT WE DID DO
	JRST ANLYZ9		;GO UPDATE POSITON
ANLYZ8:	TXNN Q3,IC.SNM!IC.PAD;ANY MOTION?
	TXNN Q1,TB.DAT		;YES, DATA OP?
	TDZA T1,T1		;NO MOTION, DONT UPDATE POSITION
	MOVEI T1,1		;WE MOVED 1 RECORD
	TXNE Q1,TB.WTM		;IS IT A TAPE MARK OPERATION?
	MOVEI T1,1		;YES. SET TO INCREMENT COUNT SO
				;THAT LABELLED TAPES WORK.
	SKIPE TU7RRO(P3)	;IN RETRY OPPOSITE?
	TXC Q1,TB.REV		;YES, GET ORIGINAL DIRECTION
ANLYZ9:	TXNE Q1,TB.REV		;REVERSE?
	MOVNS T1		;YES
	ADDM T1,UDBPS2(P3)	;UPDATE RECORD POSITION
	SETZM SAVFNC(P3)	;INDICATE WE AREN'T DOING ANYTHING
	TRNN Q3,(IS.TPM)	;TAPE MARK?
	RET			;NO, RETURN
	SETZM UDBPS2(P3)	;YES, AT 0TH RECORD
	TXNE Q1,TB.REV		;UPDATE FILE COUNTER
	SOSA UDBPS1(P3)
	AOS UDBPS1(P3)
	RET			;AND RETURN

;HERE ON AN INTERRUPT WHEN DRIVE IS MARKED AS REWINDING

ANLY10:	CALL PHYRWD		;TELL REST OF WORLD WE FINISHED THE REWIND
	SETOM TU7HDN(P3)	;INDICATE UNKNOWN DENSITY
ANLY11:	SOS (P)			;NON-SKIP RETURN (FORGET IT)
	SETZ P4,		;PHYRWD WIPES OUT P4
	RET			;GO AWAY
;HERE TO DO AN EXTENDED SENSE

ANLY12:	MOVEM Q1,TU7SNS(P3)	;SAVE UPDATED BITS
	MOVEI T2,TM8XCW(P2)	;SORRY ABOUT THAT, BUT I CAN'T CONVINCE
	MAP T2,(T2)		;PHYH2 TO DO THE RIGHT THING
	TLZ T2,777760		;MAKE ICWA=JUMP KDB
	TLO T2,200000
	HRRZ T1,CDBICP(P1)	;ICWA
	EXCH T2,(T1)		;STORE JUMP, PICK UP WHAT WAS THERE
	MOVEM T2,TM8SCW(P2)	;SAVE REAL ICWA
	MOVEI T2,TM8XSN(P2)	;POINT AT EXTENDED SENSE BLOCK
	MAP T2,(T2)		;GET THE REAL LOC
	TLZ T2,777760
	TLO T2,(6B2!17B13)	;MUNGE UP AN IOWD TO READ EXTENDED SENSE
	MOVEM T2,TM8XCW(P2)	;SAVE IN KDB
	MOVX T2,.DOFMT		;TELL THE HDWRE WHAT DRIVE
	HRR T2,UDBSLV(P3)
	TRO T2,DO.RC1		;ONLY 1 RECORD
	MOVEI Q1,DF.XSN!ERSTRY	;FUNCTION IS EXTENDED SENSE, CCW ALREADY SET
	SOS (P)			;GIVE NON-SKIP (ANOTHER INTERRUPT COMING)
	PUSH P,CDBICR(P1)	;SAVE INITIAL CONTROL REGISTER
	CALL TM8SI5		;CRANK UP THE EXTENDED SENSE
	  JFCL
	POP P,CDBICR(P1)	;RESTORE WHAT WE WERE DOING BEFORE THE SENSE
	RETSKP			;AND RETURN
	SUBTTL Interrupt Processing -- Action Routines

;HERE ON A REWIND STARTED INTERRUPT

INTRWP:	HRRZ T1,UDBPWQ(P3)	;GET PWQ ENTRY.
	CAIN T1,0		;IS THERE AN IORB ON THE PWQ?
	JRST INTRW1		;NO. THEN THIS IS A SPURIOUS INTERRUPT.
	MOVX T1,US.REW		;TELL THE WORLD
	IORM T1,UDBSTS(P3)	;THAT THE DRIVE IS REWINDING
	SETZB Q1,SAVFNC(P3)	;INDICATE WE AREN'T DOING ANYTHING TO DRIVE
	CALLRET SETIRB		;SET UP P4 AND RETURN

				;HERE IF THERE IS A REW INTERRUPT
				;BUT THERE IS NO IORB ON THE PWQ.
INTRW1:	SOS (P)			;ADJUST STACK POINTER.
	SETZ P4,		;SET TO DISMISS INTERRUPT
	MOVE T2,CDBADR(P1)	;GET CHANNEL NUMBER
	MOVE T3,TM8ADR(P2)	;GET CONTROLLER NUMBER
	HRRZ T4,UDBSLV(P3)	;[7.1116] Get unit number
	BUG.(INF,TM8REW,PHYM78,HARD,<PHYM78 - Spurious rewind started interrupt>,<<T2,CHAN>,<T3,CONT>,<T4,UNIT>>,<

Cause:	The TM78 gave a spurious rewind started interrupt.

Action:	The monitor has dismissed the interrupt.  There may be TM78 or other
	hardware problems.  If this BUGCHK is persistent, notify Field Service
	and have them check out the TM78 and drive.

Data:	CHAN - Channel number
	CONT - Controller number
	UNIT - Unit number
>,,<DB%NND>)			;[7.1210][7.1116] Let the world know
	RET			;GO DISMISS INTERRUPT


;HERE WHEN A DRIVE COMES ON-LINE

INTONL:	CALL PHYONL		;TELL THE WORLD THE DRIVE IS BACK
	CALL ATDONE		;CLEAR THE ATTENTION BIT
	MOVEI Q1,DF.SNS		;START A SENSE TO SEE IF WRITE-LOCKED
	SETZ P4,		;TELL PHYSIO TO FORGET THE INTERRUPT
	SOS (P)
	CALLRET SENSE		;START THE SENSE AND RETURN

;HERE WHEN A DRIVE IS (OR GOES) OFF-LINE

INTOFL:	CALL PHYOFL		;TELL THE WORLD
	HRRI Q3,(IS.ERR!IS.DVE)	;LIGHT SOME ERRORS
	JRST ANLYZ7		;AND RETURN
;HERE ON A TU FAULT/TM FAULT INTERRUPT

CLRTM:	CALL TM8ZAP		;RESET THE TM78
	MOVE T1,SAVLSI(P2)	;GET INTERRUPT CODE
	MOVE T2,CDBADR(P1)	;GET CHANNEL NUMBER
	MOVE T3,TM8ADR(P2)	;GET CONTROLLER NUMBER
	BUG.(INF,TM8AEI,PHYM78,HARD,<PHYM78 - Asynchronous error interrupt (TM78 hardware problem)>,<<T1,ICODE>,<T2,CHAN>,<T3,CONT>>,<

Cause:	The TM78 gave an asynchronous error interrupt.  This happens when the
	TM78 thinks it has detected a hardware fault in the TM78 or one of its
	drives.

Action:	The TM78 has been cleared and restarted.  The TM78 or one of its drives
	may be getting flakey.  Field Service must be called to check the TM78
	out.

Data:	ICODE - The interrupt code associated with this interrupt from
		MASSBUS register 13 of the TM78
	CHAN  - Channel number of the TM78
	CONT  - Controller number of the TM78
>,,<DB%NND>)			;[7.1210][7.1116] Let the world know
	SETZ P4,		;TELL PHYSIO THIS ISNT THE LAST INTERRUPT
	SKIPN P3,KDBACT(P2)	;WERE WE WORKING ON A DRIVE?
	JRST CLRTM1		;NO, NOTHING TO RESTART
	MOVE Q1,UDBSTS(P3)	;YES, GET STATUS
	TXNN Q1,US.ACT		;IS IT GOING?
	JRST CLRTM1		;NO, DON'T TRY TO RESTART
	CALL SETIRB		;YES, SET UP P4 POINTING AT IORB
	TXNN Q1,US.POS		;DOING A DATA OPERATION?
	JRST TM8SIO		;YES, GO RETRY THE OPERATION
	MOVE Q3,NRTERV		;POSITION - CALL IT A HARD DEVICE ERROR
	RETSKP

;HERE IF NOTHING IS HAPPENING

CLRTM1:	AOS T1,TM8ACT(P2)	;BUMP ASYNC INTERRUPT COUNT
	CAIG T1,TM8AMX		;TOO MANY?
	RET			;NO
	CALL SETHLD		;YES, SET HOLD (STOP MICROCODE) TO PREVENT
	 JFCL			; TM78 FROM CLOGGING ERROR FILE
	SETOM TM8ACT(P2)	;INDICATE THE TM IS STOPPED
	RET			;AND RETURN, IGNORING INTERRUPT
;HERE ON A REREAD OPPOSITE INTERRUPT

INTRRO:	CALL SETIRB		;POINT P4 AT IORB
	MOVX T2,.DOBC		;READ BYTE COUNT THE TM78 THINKS IS THE LENGTH
	CALL RDREG3		; (MIGHT HAVE CHANGED SINCE LAST RETRY)
	JUMPN T1,INTRR2		;DID THE TM78 RETURN A BYTE COUNT OF 0?
INTRR1:	MOVE Q3,NRTERD		;YES, HERE IS WHERE WE GIVE UP
	SOS  (P)		;ADJUST STACT POINTER FOR SKIP RETURN
	JRST TM8RDR		;READ REGISTERS AND CALL IT A DAY
INTRR2:	LOAD T3,IRBDM,(P4)	;NO, A REAL BYTE COUNT
	HLRZ T3,MODTBL(T3)	;CONVERT TO WORDS
	IDIVI T1,(T3)
	JUMPN T2,INTRR1		;CANT RETRY IF NON-INTEGRAL NO OF WORDS
	MOVEM T1,IRBCNT(P4)	;SAVE CORRECTED BYTE COUNT FOR RETRY
	MOVE T2,T1		;WORDCOUNT WHERE REVCCW WANTS IT
	CALL REVCCW		;SET UP TO READ REVERSE
	MOVEM T1,TU7RRO(P3)	;SAVE ORIGINAL IOWD WHICH REVCCW CHANGED
INTRR3:	HRRI Q3,(IS.ERR!IS.DTE)	;TELL ANLYZE THAT THERE IS AN ERROR
	JRST ANLYZ7		;AND CARRY ON
	SUBTTL Error Recovery

;ERROR RETRY ENTRY POINT
;P1=CDB  P2=KDB  P3=UDB  RETURNS Q1=ERROR BLOCK ADDRESS
;NON-SKIP RETURN - ERROR RETRY IN PROGRESS
;SKIP - WE'RE DONE WITH IT (FOR BETTER OR WORSE)

TM8ERR:	SKIPGE UDBSTS(P3)	;DRIVE NOW OFF-LINE?
	RETSKP			;YES, FORGET ERROR RECOVERY
	MOVE T1,TU7ECD(P3)	;EXTRA ERROR FLAGS
	TLNN T1,-1		;AFTER RH20 ERROR?
	JUMPN T1,R		;YES, RETURN (A SENSE IS CURRENTLY IN PROGRESS)
	SAVEQ
	CALL SETIRB		;GET OUR IORB
	HRRZ Q1,UDBERP(P3)	;GET ERROR BLOCK IF PRESENT
	HLLZ T1,IRBSTS(P4)	;GET IORB STATUS
	LOAD T2,ISFCN,(P4)	;GET ORIGINAL FUNCT FROM IORB
	MOVE T4,FNCTBL(T2)	;GET TABLE ENTRY
	TXNE T4,TB.DAT		;NON-DATA OPERATIONS ARE RECOVERED BY TM78
	TXNE T1,IS.NRT!IS.IER	;FATAL OR INHIBIT ERR RECOVERY?
	JRST TM8NRB		;GIVE-UP RETURN
	SKIPN T1,TU7ECD(P3)	;NO, RETRY THE ERROR. GET FAILURE BITS
	JRST TM8RCV		;RECOVERED THE ERROR!
	AOS T3,UDBERC(P3)	;COUNT A FAILED RETRY
	CAILE T3,RTYOP		;TRIED ENOUGH?
	JRST TM8NRC		;YES, NON-RECOVERABLE
	SOJN T3,TM8ER1		;GO IF NOT 1ST RETRY
	PUSH P,T1		;1ST - SET ERROR BLOCK
	CALL BEGLOD
	POP P,T1
	LOAD T2,ISFCN,(P4)	;GET ORIGINAL FUNCT FROM IORB
TM8ER1:	SKIPE TU7RRO(P3)	;REREADING IN OPPOSITE DIRECTION?
	TRC T2,IRFRED!IRFRDR	;YES, REVERSE SENSE OF ORIGINAL READ
	TXON T1,IC.SNM!IC.PAD	;NEED A REPOSITON?
	MOVEI T2,IRFBSB		;YES, BACK UP 1 BLOCK
	MOVEM T2,UDBERR(P3)	;SAVE ERROR FNCN
	MOVEM T1,TU7ECD(P3)
	CALL TM8SIO		;GO RETRY
	  JRST TM8NRC
	RET			;RETRY STARTED, WAIT FOR NEXT INTERRUPT
;HERE ON A RECOVERED ERROR

TM8RCV:	MOVX T1,IS.ERR		;CLEAR THE ERROR BIT FROM THE IORB
	ANDCAM T1,IRBSTS(P4)
	TXNE T4,TB.WRT
	AOSA UDBSWE(P3)		;COUNT A SOFT ERROR
	AOS UDBSRE(P3)
	JRST TM8NRD		;SET END OF ERROR BLOCK AND RETURN

;HERE WHEN THE RETRY FAILED

TM8NRB:	SKIPN UDBERC(P3)	;HAVE WE DONE ANY RETRIES?
	CALL BEGLOD		;NO, SET UP 1ST PART OF ERROR BLOCK

TM8NRC:	TXNE T4,TB.WRT
	AOSA UDBHWE(P3)		;COUNT A HARD ERROR
	AOS UDBHRE(P3)
TM8NRD:	CALL ENDLOD		;SET UP END OF ERROR BLOCK
	SETZM TU7RRO(P3)	;CLEAN UP FLAGS
	RETSKP			;AND TELL PHYSIO WE'RE DONE
;HERE AFTER AN RH20-DETECTED ERROR, THE TM78 THINKS EVERYTHING IS FINE

TM8RDH:	HRRZM P,TU7ECD(P3)	;SET LH(TU7ECD) NON-0
	MOVX T1,IS.ERR		;INDICATE AN ERROR
	IORM T1,IRBSTS(P4)
				;FALL INTO TM8RDR

;ROUTINE TO READ ALL TM78 REGISTERS INTO TM8REG IN THE KDB

TM8RDR:	CALL RDREGS		;READ DRIVE REGISTERS (EXCEPT 7-10)
	TXO Q1,TB.RRG		;INDICATE WHY WE'RE DOING THE SENSE
	MOVEM Q3,TU7ESD(P3)	;SAVE ERROR BITS FOR WHEN SENSE FINISHES
	SOS (P)			;SENSE GIVES A SKIP-RETURN
	CALLRET SENSE		;DO A SENSE SO WE CAN READ REGS 7 - 10

;ROUTINE TO READ REGISTERS ON ERROR

RDREGS:	CALL ERRCNI		;GET CONI AND DATAI
	MOVEM T1,TM8CNI(P2)	;SAVE IN KDB
	MOVEM T2,TM8CS1(P2)
	MOVEM T3,TM8DBF(P2)
	MOVEI T4,TM8REG(P2)	;WHERE TO READ
	HRLI T4,-22		;READ ALL REGISTERS
	SETZ T2,		; STARTING AT 0
RDREG1:	CALL RDREG3
	MOVEM T1,(T4)		;STORE DATA IN UDB
	ADD T2,[010000,,0]	;SET FOR NEXT REGISTER
	AOBJN T4,RDREG1
	RET

;HERE AFTER SENSE COMPLETES WHICH WAS DONE TO READ REGS 7-10

RDREG2:	MOVSI T1,TM8XSN(P2)	;ZERO THE EXTENDED SENSE AREA
	HRRI T1,TM8XSN+1(P2)	; IN CASE WE DON'T DO AN EXTENDED SENSE
	SETZM TM8XSN(P2)	; OR THERE IS AN ERROR IN THAT TRANSFER
	BLT T1,TM8XSN+16(P2)
	MOVEI T4,TM8REG+7(P2)
	HRLI T4,-3		;AOBJN WORD FOR REGS TO READ
	MOVSI T2,070000		;STARTING REGISTER TO READ
	CALLRET RDREG1		;GO READ 3 REGISTERS

;HERE TO READ REGISTERS AFTER A SUCCESSFUL RETRY

RDREG4:	PUSH P,TM8REG+7(P2)	;SINCE WE CAN'T READ 7-10 WITHOUT SOME HAIR,
	PUSH P,TM8REG+10(P2)	; AND THEY WON'T BE CHANGING
	PUSH P,TM8REG+11(P2)	; SAVE THEM
	CALL RDREGS		;READ ALL 22 REGISTERS
	POP P,TM8REG+11(P2)	;RESTORE THE SAVED ONES
	POP P,TM8REG+10(P2)
	POP P,TM8REG+7(P2)
	RET			; AND RETURN
;SUBROUTINE TO LOAD THE ERROR BLOCK AT START OF ERROR
;ENTER WITH Q1 POINTING AT ERROR BLOCK

BEGLOD:	JUMPE Q1,R		;IF NO ERROR BLOCK, PUNT
	PUSH P,T4		;SAVE, BECAUSE SEBCPY USES T4.
	MOVE T1,Q1		;COPY ERROR BLOCK
	MOVE T2,[-NITAB,,ITAB]	;POINTER TO INFORMATION TABLE
	CALL SEBCPY		;COPY INFORMATION
	 JFCL
	MOVS T1,UDBPS1(P3)	;GET FILE 
	HRR T1,UDBPS2(P3)	;AND RECORD (JUST AFTER ERROR)
	MOVEM T1,SEBDAT+MB%LOC(Q1) ;AND SAVE AS LOCATION OF ERROR
	MOVSI T1,TM8REG(P2)	;WHERE TO GET REGS
	HRRI T1,SEBDAT+MB%REG(Q1) ;WHERE TO STORE THEM
	BLT T1,SEBDAT+MB%REG+TM8ELN-1(Q1) ;STUFF INTO ERROR BLOCK
	POP P,T4		;RESTORE T4
	RET

;SUBROUTINE TO LOAD ERROR BLOCK AT END OF ERROR

ENDLOD:	JUMPE Q1,R		;IF NO ERROR BLOCK, CANT SAVE DATA
	MOVE T3,[-22,,TM8REG]	;WHERE TO START
	ADDI T3,(P2)		;RELOCATE INTO THIS KDB
	MOVEI T2,SEBDAT+MB%REG(Q1) ;REGISTER DATA GOES HERE
ENDLO1:	MOVE T1,(T3)		;GET REGISTER
	HRLM T1,(T2)		;PUT IT
	ADDI T2,1
	AOBJN T3,ENDLO1		;DONE?
	MOVE T1,TM8CNI(P2)	;GET CONI
	MOVEM T1,SEBDAT+MB%CIF(Q1) ;SAVE
	MOVE T1,TM8CS1(P2)	;GET TCR
	MOVEM T1,SEBDAT+MB%D1F(Q1) ;SAVE
	MOVE T1,TM8DBF(P2)	;GET BAR
	MOVEM T1,SEBDAT+MB%D2F(Q1) ;SAVE
	RET

;TABLE OF ITEMS TO COPY INTO ERROR BLOCK

ITAB:	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
	SEBPTR MB%CNI,SBTWD,TM8CNI(P2) ;CONI INITIAL
	SEBPTR MB%D1I,SBTWD,TM8CS1(P2) ;TCR
	SEBPTR MB%D2I,SBTWD,TM8DBF(P2) ;BAR/DBF

NITAB==.-ITAB
	SUBTTL TM78 Initializing Routine

;THIS ROUTINE IS CALLED ONCE PER TM78 DRIVE ON THE SYSTEM
;SET UP UDB'S - 1 PER DRIVE ON THE TM78
;INPUT  C(P1)=CDB  C(Q2)=UNIT NR; OUTPUT P2,P3

TM8INI:	SAVEQ			;SAVE REGISTERS
	CALL TM8ZAP		;RESET CONTROLLER
	JUMPL P5,UNINA		;[7457] Jump if doing all units on Kontroller
	MOVE P2,CDBIUN(P1)	;[7457] Get AOB pointer to KDB list in the CDB
	ADD P2,Q2		;[7457] Point to the correct unit (TM78 number)
	SKIPE P2,(P2)		;[7457] Get KDB out of CDBUDB or skip if none
	JRST INIL0		;[7457] There is a KDB, use it for this unit
UNINA:	MOVX T1,LK.TM8		;[7457] Here if we need a KDB, load KDB length
	CALL PHYALC		;RESERVE SPACE
	RET			;RETURN IF NO SPACE FOUND
	MOVEM T1,P2		;SAVE ADDRESS IN PROPER AC
	MOVE P3,T1		;COPY KDB
	MOVEI T1,.BTKDB		;MARK AS KDB
	DPB T1,USYBKT		; ...
	MOVX T1,.UTTM7		;YES - SET UP UNIT TYPE IN KDB
	STOR T1,USTYP,(P2)	;...
UNINI:	MOVSI Q1,-TM8SLC	;SET UP AOBJN INDEX LH
	HRRI Q1,KDBUDB(P2)	;MAKE RH POINT TO UDB ENTRIES IN KDB
	MOVEM Q1,KDBIUN(P2)	;INITIAL POINTER
	MOVEM Q1,KDBCUN(P2)	;CURRENT POINTER
	HRRZM Q2,TM8ADR(P2)	;SAVE KDB ADDRESS
	MOVEI T1,TM8DSP		;INSERT DISPATCH VECTOR
	MOVEM T1,KDBDSP(P2)	; ...
	CALL SETHLD		;SET HOLD IN TM78
	 JRST UNINF		;WOULDN'T SET
	MOVEI Q1,TM8REV(P2)	;POINT AT KDB
	HRLI Q1,441100		;MAKE A BYTE POINTER
	MOVE Q3,[.DOIA!3776]	;POINT AT LOC FOR 1ST ROM REV LEVEL
UNINE:	MOVE T2,Q3
	CALL WTREG3		;LOC WE WANT TO READ
	MOVSI T2,(.DOTMS)
	CALL RDREG3		;READ THE LOCATION
	ANDI T1,377		;ONLY 8 BITS ARE OF INTEREST
	IDPB T1,Q1		;SAVE IN ..U?0 UDB
	ADDI Q3,4000		;STEP TO NEXT REV LEVEL LOC
	TRNN Q3,40000
	JRST UNINE		;GO READ IT
				;START REVISION LEVEL CHECK.
	SETZM T4		;CLEAR T4 FOR USE AS A FLAG
	MOVEI Q1,TM8REV-1(P2)	;SET UP BYTE POINTER FOR ACTUAL LEVELS
	HRLI Q1,001100
	MOVEI Q3,MINREV-1	;SET UP BYTE POINTER FOR MINIMUM LEVELS NEEDED.
	HRLI Q3,001100
	MOVEI T3,10		;SET UP COUNTER TO CHECK 8. LEVELS.
REVCHK:	ILDB T1,Q1		;GET THE REVSION LEVEL NUMBERS.
	ILDB T2,Q3
	CAMGE T1,T2		;DO THE CHECK.
	AOS T4			;LEVEL DOES NOT MEET MINIMUM. SET FLAG.
	SOJG T3,REVCHK		;CHECK ALL LEVELS.
	JUMPE T4,REVCH1		;LEVELS MEET MINIMUM LEVELS REQUIRED.
	DMOVE T1,TM8REV(P2)	;SET UP FOR BUGCHK. GET ACTUAL LEVELS.
	DMOVE T3,MINREV		;GET MINIMUM LEVELS.
	BUG.(INF,REVLEV,PHYM78,SOFT,<TM78 Microcode is outdated>,<<T1,ACTUAL LEVELS>,<T2,ACTUAL LEVELS>,<T3,MINIMUM LEVELS>,<T4,MINIMUM LEVELS>>,<

Cause:	The TM78 does not have a microcode version that is needed by this
	monitor.

Action:	Field Service must install the new microcode.

Data:	ACTUAL LEVELS - The actual revision levels in the TM78
	MINIMUM LEVELS - The levels that are required by this monitor
>,,<DB%NND>)			;[7.1210] 

REVCH1:	CALL CLRHLD		;CLEAR HOLD IN TM
UNINF:	MOVSI Q3,1		;WAIT FOR TM READY TO GO BACK ON
UNING:	MOVX T2,.DOTMS
	CALL RDREG3		;BEFORE WE TRY TO TALK TO CONTROLLER AGAIN
	TRNN T1,DI.TMR
	SOJG Q3,UNING
INIL0:	SKIPGE Q1,P5		;[7457] Skip loading Q1 if doing a single unit
	MOVSI Q1,-TM8SLC	;[7457] Load AOB pointer for all units
INILP:	HRRZ T2,Q1		;DRIVE NUMBER
	ADDI T2,DR.ND0		;REGISTER TO TALK TO FOR THIS DRIVE
	ROT T2,-6		;WHERE IT WILL DO THE MOST GOOD
	HRRI T2,DF.SNS		;SET UP A SENSE FOR THIS DRIVE
	CALL WTREG3
	MOVSI Q3,1		;SET UP A COUNTER
INIL1:	HRLI T2,(.DOAS)		;READ ATTENTION SUMMARY
	CALL RDREG3		;AND LOOK FOR US
	MOVEI T2,1		;GET INTO RIGHT POSITION
	LSH T2,0(Q2)
	TRNN T1,0(T2)		;CHECK FOR THIS BIT
	JRST INIL3		;NO WAIT SOME MORE
	MOVX T2,.DOICN		;READ NON-DATA STATUS
	CALL RDREG3
	LDB T2,[POINT 3,T1,27]	;GET DRIVE NUMBER
	CAIN T2,0(Q1)		;CORRECT DRIVE?
	JRST INIU1		;YUP SEE WHAT WE GOT BACK
	CALL CLRATN
INIL3:	SOJG Q3,INIL1		;GO TRY AGAIN
	HRRZ T1,CDBADR(P1)	;[7.1116] Load channel
	HRRZ T2,TM8ADR(P2)	;[7.1116] Load controller
	HRRZ T3,Q1		;[7.1275] Load drive number
	BUG.(CHK,TM8SNS,PHYM78,HARD,<PHYM78 - Can't sense drive status>,<<T1,CHAN>,<T2,CONT>,<T3,UNIT>>,<

Cause:	Repeated attempts to sense a tape drive status have failed.

Action:	There is a TM78 or tape drive hardware problem.  Field Service should
	check out the TM78.  If one particular drive number is being called
	out, that drive is suspect too.

Data:	CHAN - Channel number
	CONT - Controller number
	UNIT - Unit number
>,,<DB%NND>)			;[7.1275][7.1210] 
	JRST NODRV		;FORGET THIS DRIVE

INIU1:	CALL INIUNI		;INITIALIZE A SINGLE UNIT
NODRV:	AOBJN Q1,INILP		;TRY NEXT SLAVE
TOORET:	CALL CLRATN
	MOVE T1,P2		;TELL RETURN TO PUT KDB INTO CDB
	RET
;SUBROUTINE TO SET HOLD IN TM78
;NON-SKIP RETURN IF HOLD WOULDN'T SET
;SKIP RETURN NORMALLY

SETHLD:	MOVE T2,[.DOIA!3776]	;POINT INTERNAL ADDR AT A READ-ONLY LOCATION
	CALL WTREG3		;IN CASE TM78 DECIDES TO WRITE WHEN HOLD SETS
	MOVE T2,[.DOTMS!DO.HLD]
	CALL WTREG3		;SET HOLD SO WE CAN READ REV LEVELS
	MOVEI Q3,40000		;HOW LONG TO WAIT
SETHL1:	MOVSI T2,(.DOTMS)	;READ STATUS
	CALL RDREG3
	TRNN T1,DO.HLA		;HOLD ACKNOWLEDGED?
	SOJG Q3,SETHL1
	JUMPE Q3,R		;LOSE IF IT STILL DIDNT SET
	RETSKP			;HOLD IS SET - SKIP RETURN

;SUBROUTINE TO CLEAR HOLD IN TM78
;ALWAYS RETURNS TO CALL+1

CLRHLD:	MOVSI T2,(.DOTMS)
	CALL WTREG3		;CLEAR HOLD
	MOVE T2,[.DOTMS!DO.TMC]
	CALLRET WTREG3		;CLEAR POSSIBLE ERROR AND RETURN
;THIS ROUTINE IS CALLED TO INITIALIZE A SPECIFIC SLAVE
;INPUT C(P1)=CDB  C(Q1)=UNIT C(P2)KDB  NR; OUTPUT P3

INIUNI:	SAVEQ
	STKVAR <MTINDX>		;INDEX INTO MTCUTB
	MOVX T2,.DOSR		;READ THE STATUS REGISTER
	CALL RDREG3
	TXNN T1,DI.AVL+DI.MNT	;AVAILABLE OR MAINTEANCE MODE?
	JRST CLRATN		;NO, DRIVE DOESN'T EXIST
	HRLOI T3,-MTAN-1	;YES. DRIVE IS THERE. FIND SLOT TO SAVE IT
INIUN1:	AOBJP T3, [BUG.(INF,TM8N2S,PHYM78,HARD,<PHYM78 - More drives than table space, excess ignored>,,<

Cause:	The number of tape drives available exceeds the constant value MTAN.
	Only MTAN drives are configured.

Action:	The monitor should be rebuilt with a value of MTAN large enough to
	accommodate all the tape drives available to the system.
>,,<DB%NND>)			;[7.1210] 
		JRST TOORET]	;DON'T INITIALIZE ANY MORE SLAVES
	SKIPE MTCUTB(T3)	;CHECK TO SEE IF UNIT FREE
	JRST INIUN1		;NOPE TRY NEXT ONE
	MOVEM T3,MTINDX		;SAVE CURRENT LOGICAL INDEX
	MOVE T3,[TM8DSP,,LU.TM8] ;YES, SET UP ADDRESS,,LENGTH
	ADDI P2,(Q1)		;POINT TO PROPER KDB ENTRY
	CALL PHYUDB		;AND ASK FOR UDB ALLOCATION
	  JRST CLRATN		;RETURN IF NO SPACE FOUND
	HRRZM P3,KDBUDB(P2)	;SAVE LINK
	SUBI P2,(Q1)		;FUDGE IT BACK
	HRRZM P2,UDBKDB(P3)	;SAVE BKWDS LINK
	MOVE T3,MTINDX		;GET CURRENT LOGICAL INDEX
	HRLZM P1,MTCUTB(T3)	;SAVE LINK TO CDB IN LOGICAL TABLE
	HRRM P3,MTCUTB(T3)	;SAVE LINK TO UDB
	MOVX T2,.DOSR		;GET DRIVE STATUS AGAIN
	CALL RDREG3
	MOVX T3,US.TAP		;INDICATE A TAPE TYPE DEVICE
	TXNN T1,DI.RDY		;ON LINE?
	TXO T3,US.OFS		;NO, SET OFF LINE BIT
	TXNE T1,DI.FPT		;WRITE LOCKED?
	TXO T3,US.WLK		;YES
	HLLM T3,UDBSTS(P3)	;SAVE UDB STATUS
	MOVX T3,.UTT78		;UNIT TYPE
	STOR T3,USTYP,(P3)	;SAVE IT
	MOVX T1,UC.160!UC.625!UC.CD!UC.IC!UC.HD ;SET CHARACTERISTICS
	MOVEM T1,UDBCHR(P3)
	MOVX T2,.DOSN		;NOW SERIAL NR
	CALL RDREG3
	CALL PHCVBO		;CONVERT TO OCTAL
	MOVEM T1,UDBDSN(P3)	;STORE IT
	MOVSI T1,DR.ND0(Q1)	;SET UP UDBSLV = REG TO WRITE,,NUMBER
	LSH T1,^D12		;PUT REGISTER WHERE IT WILL DO THE MOST GOOD
	HRRI T1,(Q1)
	MOVEM T1,UDBSLV(P3)	;SET UP SLAVE ADDRESS
	AOS JB0FLG		;THIS WILL REQUEST JOB0 INCASE CALLER SETS MTAJB0
CLRATN:	MOVEI T2,1		;CLEAR DRIVE ATTENTION
	LSH T2,0(Q2)
	HRLI T2,(.DOAS)		;ATTENTION SUMMARY
	CALLRET WTREG3
	SUBTTL Tables To Control I/O 

TB.DAT==1B0
TB.WRT==1B1
TB.REV==1B2
TB.SPC==1B3
TB.RD==1B4
TB.ERA==1B5
TB.WTM==1B6
TB.REW==1B7
TB.RRG==1B8	;NOT IN TABLE, LIGHTS ON SENSE FROM RDREG
TB.XSN==1B9	;NOT IN TABLE, LIGHTS AFTER SENSE IF WE DO EXTENDED SENSE

FNCTBL:	0			;0 - ILLEGAL
	TB.DAT!TB.RD!DF.RED!1B17 ;1 - READ FORWARD
	0			;2 - ILLEGAL (READ FMT)
	TB.WRT!TB.DAT!DF.WRT!3B17 ;3 - WRITE
	0			;4 -ILLEGAL (WRITE FMT)
	0			;5 - ILLEGAL (SEEK)
	TB.SPC!DF.SPF!6B17	;6 - SKIP RECORD
	TB.SPC!TB.REV!DF.SPR!7B17 ;7 - BACKSPACE RECORD
	TB.WRT!TB.WTM!DF.WTM!10B17 ;10 - WRITE TAPE MARK
	TB.WRT!TB.ERA!DF.ERG!11B17 ;11 - ERASE
REWFNC:	TB.REW!TB.REV!DF.REW!12B17 ;12 - REWIND
UNLFNC:	DF.UNL!13B17		;13 - REW, UNLOAD
	TB.DAT!TB.RD!TB.REV!DF.RRV!14B17 ;14 - READ REVERSE
	0			;15-ILLEGAL (RECOVERY READ)
	0			;16 - ILLEGAL
	0			;17 - ILLEGAL

	WT.GCR==2		;TURN WRITE PE INTO WRITE GCR

;FRAMES/WORD,,MODE BITS

MODTBL:	-1			;0 - ILLEGAL
	5,,30000		;1 - CORE DUMP
	-1			;2 - SIXBIT
	-1			;3 - 7 BIT (ASCII)
	1,,20000		;4 - INDUSTRY COMPAT
	11,,40000		;5 - HIGH DENSITY
MAXMOD==.-MODTBL-1

;DENSITY CODE TABLE

DENTBL:	-1			;0 - ILLEGAL
	-1			;1 - 200 BPI
	-1			;2 - 556 BPI
	-1			;3 - 800 BPI
	0			;4 - 1600 BPI
	WT.GCR			;5 - 6250 BPI
MAXDEN==.-DENTBL-1
IC.RRG==1B0			;READ REGISTERS
IC.BST==1B1			;SET A BIT IN TKBSTS
IC.DSP==1B2			;DISPATCH TO AN ADDRESS
IC.ASY==1B3			;ASYNCH EVENT (RETURN 0 TO TAPSER)
IC.XSN==1B4			;DO AN EXTENDED SENSE TO GET MORE INFO
IC.SNM==1B5			;NO TAPE MOTION
IC.PAD==1B6			;REPOSITION ALREADY DONE (SER=0)

MINREV:	6005,,6004		;MINIMUM TM78 REVISION LEVELS REQUIRED 
	2003,,10003

ICDTBL:	IC.BST!(IS.NRT!IS.ERR)	;0 - UNDEFINED
	0			;1 - DONE
	IC.BST!(IS.TPM)		;2 - UNEXPECTED TAPE MARK
	IC.BST!(IS.TPM!IS.BOT)	;3 - UNEXPECTED BOT
	IC.BST!(IS.EOT)		;4 - END OF TAPE
	IC.BST!(IS.TPM)		;5 - UNEXPECTED LOGICAL EOT
	IC.BST!(IS.NRT)		;6 - NO OP COMPLETED
	IC.DSP!INTRWP		;7 - REWIND IN PROGRESS
	IC.BST!IC.SNM!(IS.WLK!IS.ERR!IS.NRT) ;10 - WRITE TO A WRITE-LOCKED TAPE
	IC.DSP!INTOFL!IC.BST	;11 - NOT READY
	IC.DSP!INTOFL!IC.BST	;12 - DRIVE NOT AVAILABLE (ON OTHER PORT)
	IC.DSP!INTOFL!IC.BST	;13 - OFF LINE
	IC.DSP!INTOFL!IC.BST	;14 - NON-EXISTENT DRIVE
	IC.BST!IC.RRG!(IS.DVE!IS.ERR!IS.NRT) ;15 - NOT CAPABLE
	IC.BST!IC.RRG!(IS.ERR!IS.NRT) ;16 - UNDEFINED
	IC.ASY!IC.DSP!INTONL	;17 - DRIVE HAS COME ON LINE
	IC.BST!IC.RRG!(IS.ERR!IS.NRT!IS.RTL) ;20 - LONG RECORD
	0			;21 - SHORT RECORD
	IC.BST!IC.RRG!IC.XSN!IC.PAD!(IS.ERR!IS.DTE) ;22 - RETRY THE INITIAL OPERATION
	IC.DSP!INTRRO!IC.PAD!IC.BST ;23 - REREAD OPPOSITE
NRTERD:	IC.BST!IC.RRG!IC.XSN!(IS.NRT!IS.DTE) ;24 - UNREADABLE
	IC.BST!IC.RRG!IC.XSN!(IS.ERR!IS.NRT) ;25 - ERROR, SER IS SET
	IC.BST!IC.RRG!IC.XSN!(IS.ERR!IS.NRT) ;26 - ERROR AFTER EOT, SER IS SET
	IC.BST!IC.RRG!IC.XSN!(IS.ERR!IS.NRT!IS.DVE) ;27 - BAD TAPE
NRTERV:	IC.BST!IC.RRG!IC.XSN!(IS.ERR!IS.DVE) ;30 - TM FAULT A
	IC.BST!IC.RRG!IC.XSN!(IS.ERR!IS.NRT!IS.DVE) ;31 - TU FAULT A
	IC.ASY!IC.DSP!CLRTM	;32 - TM FAULT B
ICDND1==.-ICDTBL-1
	IC.ASY!IC.DSP!CLRTM!IC.RRG!IC.XSN ;33 - TU FAULT B
	IC.ASY!IC.DSP!CLRTM	;34 - MASSBUS FAULT
ICDND2==.-ICDTBL-1
MAXICD==.-ICDTBL-1
REVERR==23
	TNXEND
	END