Google
 

Trailing-Edge - PDP-10 Archives - BB-BT99S-BB_1990 - 10,7/unsmon/tmxkon.mac
There are 13 other files named tmxkon.mac in the archive. Click here to see a list.
TITLE	TMXKON - TM10B DEVICE DEPENDENT CODE FOR TAPSER V107
SUBTTL T.HESS/TAH/TW/DPM	5-DECEMBER-89

	SEARCH	F,S,DEVPRM
	$RELOC
	$HIGH

;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
; 1974,1975,1976,1977,1978,1979,1980,1982,1984,1986,1988.
;ALL RIGHTS RESERVED.

.CPYRT<1974,1988>


XP VTMXKN,107		;DEFINE VERSION NUMBER FOR STORAGE MAP
	SALL

TMXKON::ENTRY	TMXKON
	TMXDMX==10			;MAXIMUM DRIVES PER KONTROLLER
	TMXHDN==TMXDMX-1		;HIGHEST DRIVE NUMBER ON KONTROLLER
	TMXELN==2			;SIZE OF FEP TABLE

;DRIVER CHARARCTERISTICS
;	TMX	= TD2CNF
;	MTA	= MAGTAPE
;	0	= MAXIMUM DEVICES IN SYSTEM (NO LIMIT)
;	K.TMB	= KONTROLLER TYPE
;	TMXDMX	= MAXIMUM DRIVES PER KONTROLLER
;	TMXHDN	= HIGHEST DRIVE NUMBER ON KONTROLLER
;	MDSEC0	= SECTION FOR KDB/UDB
;	MDSEC0	= SECTION FOR DDB
DRVCHR	(TMX,MTA,0,K.TMB,TMXDMX,TMXHDN,MDSEC0,MDSEC0,<DR.XAD!DR.MCD!DR.GCC!DR.DDN>)


	.ORG	TKBUDB		;START OF TM10B SPECIFIC DATA
TMXUTB:! BLOCK	TMXDMX		;TABLE OF POINTERS TO UDBS
TMXIOB:!			;START OF I/O INSTRUCTIONS
TMXCOC:! BLOCK	1
TMXCIC:! BLOCK	1
TMXDIC:! BLOCK	1
TMXIOE:!			;END OF I/O INSTRUCTIONS
TTMBLK:! BLOCK	1		;BLKI/BLKO POINTER
TTMCHE:! BLOCK	1		;-1 IF CHANNEL DETECTED ERROR
TMXIUM:! BLOCK	TMXDMW		;IGNORE DRIVE MASK
TMXNUM:! BLOCK	TMXDMW		;NEW DRIVE MASK
TMXKLN:!			;LENGTH OF KDB
	.ORG

	 .ORG	TUBLEN
TMXICC:! BLOCK	1		;LAST ERROR INITIAL CONI MTC
TMXICS:! BLOCK	1		;LAST ERROR INITIAL CONI MTS
TMXFCC:! BLOCK	1		;LAST ERROR FINAL CONI MTC
TMXFCS:! BLOCK	1		;LAST ERROR FINAL CONI MTS
TMXULN:!			;LENGTH OF UDB
	 .ORG


TMXKDB:	KDBBEG	(TMX,TMXKLN)
	SETWRD	(KDBNAM,<SIXBIT/MT/>)	;KONTROLLER NAME
	SETWRD	(KDBIUN,<TKBUDB>)	;INITIAL POINTER TO UDBS
	SETWRD	(KDBCUN,<TKBUDB>)	;CURRENT POINTER TO UDBS
	SETWRD	(KDBIUM,<TMXIUM>)	;OFFSET TO IGNORE UNIT MASK
	SETWRD	(KDBNUM,<TMXNUM>)	;OFFSET TO NEW UNIT MASK
IFN FTMP,<SETWRD (TKBFCT,<TKBICT##>)>	;FAIRNESS COUNTER FOR QUEUED I/O
	SETWRD	(<TMXCOC>,<CONO  000,(T1)>)
	SETWRD	(<TMXCIC>,<CONI  000,T1>)
	SETWRD	(<TMXDIC>,<DATAI 000,T1>)
	KDBEND


TMXUDB:	UDBBEG	(TMX,TMXULN)
	SETWRD	(UDBNAM,<SIXBIT/MT/>)	;DRIVE NAME
	SETWRD	(TUBIEP,<-TMXELN,,TMXICC>) ;INITIAL ERROR POINTER
	SETWRD	(TUBFEP,<-TMXELN,,TMXFCC>) ;FINAL ERROR POINTER
	UDBEND


EQUATE	(LOCAL,0,<TMXULP,TMXULB,TMXCKT>)
EQUATE	(LOCAL,CPOPJ##,<TMXCMD,TMXONL,TMXLOD,TMXEDL>)
EQUATE	(LOCAL,CPOPJ2##,<TMXBSY>)

TMXICD==TAPICD##		;PROTOTYPE INTERRUPT CODE ADDRESS
TMXICL==TAPICL##		;PROTOTYPE INTERRUPT CODE ADDRESS
TMXINT==TAPINT##		;INTERRUPT SERVICE
TMXELG==TPELGX##		;MAKE AN ERROR LOG ENTRY

TMXDSP:	DRVDSP	(TMX,TAPCHN##,TDVDDB##,TDVLEN##,TPMDIA##)
	TPK	(TMX,NO,377777)	;SERVICE DEPENDENT DISPATCH

;DEFAULT MONGEN'ED DEVICE TABLE
DEFMDT:	MDKL10	(7,220,0,0,<MD.KON>)	;DEVICE CODE 220
	MDTERM				;TERMINATE TABLE
;BYTE POINTERS

CTYUNI:	POINT	CM.UNS,T1,CM.UNP	;UNIT # IN CMD REG
CTYFCN:	POINT	CM.CMS,T1,CM.CMP	;FCN CODE IN CMD REG

;OFFSETS INTO TKBCCL

TKBSAV==TKBCCL+2	;PLACE TO SAVE TM10A IOWD
TKBUNI==TKBCCL+3	;CURRENT UNIT SELECTED (-1 IF NONE)


MTAFLG==TAPCHN##*10
;DEFINITIONS FOR COMMAND REGISTER

CM.UNS==3		;SIZE OF UNIT FIELD
CM.UNP==^D20		;RIGHT MOST BIT

CM.PAR==1B21		;1=ODD PARITY, 0=EVEN PARITY
CM.CDF==1B22		;CORE DUMP FORMAT (9TK ONLY)

CM.CMS==4		;COMMAND BYTE SIZE
CM.CMP==^D26		;RIGHT MOST BIT
	CM.FNO==00		;NO-OP
	CM.FUR==10		;UNIT READY
	CM.FRW==01		;REWIND
	CM.FUN==11		;REWIND / UNLOAD
	CM.FRD==02		;READ
	CM.FR1==12		;READ ACROSS BOUNDARIES
	CM.FRC==03		;READ / COMPARE
	CM.FR2==13		;READ / COMPARE ACROSS BOUNDARIES
	CM.FWR==04		;WRITE
	CM.FWL==14		;WRITE AFTER LONG ERG
	CM.FTM==05		;WRITE TAPE MARK
	CM.FLG==15		;WRITE 3" BLANK TAPE
	CM.FFB==06		;SKIP FORWARD BLOCK
	CM.FFF==16		;SKIP FORWARD FILE
	CM.FBB==07		;SKIP BACKWARD BLOCK
	CM.FBF==17		;SKIP BACKWARD FILE

CM.NUE==1B27		;NEXT UNIT INTERUPT ENABLE
CM.DNS==2		;DENSITY BYTE SIZE
CM.DNP==^D29		;RIGHT MOST BIT
	CM.D2==000		;200 BPI
	CM.D5==100		;556 BPI
	CM.D8==200		;800 BPI
	CM.DMX==3		;MAX IORB DENSITY VALUE WE CAN HANDLE

CM.MSF==7B32		;MASK FOR FLAGS PIA
CM.MSD==7		;MASK FOR DATA PIA

;FLAGS IN LH SIDE (CONI ONLY)

CM.NUS==3		;NEXT UNIT BYTE SIZE
CM.NUP==^D17		;RIGHT MOST BIT
CM.EOR==1B14		;WRITE EOF (MAINT)

NOPMSK==760300		;UNIT,PARITY,DENSITY,FORMAT MASK
;DEFINITIONS FOR STATUS REGISTER

CI.CHN==1B9		;DF10C FLAG
			;UNKNOWN
CI.CPE==1B11		;CONTROL WORD PARITY ERROR (TM10B)
CI.NXM==1B12		;NON EX MEM (TM10B)
CI.DPE==1B13		;DATA PARITY ERROR (TM10B)
CI.CWW==1B14		;CONTROL WORD WRITTEN (TM10B)

CI.CCS==3		;CHARACTER COUNTER BYTE SIZE
CI.CCP==^D17		;RIGHT MOST BIT

;BITS IN RH SIDE

CI.HNG==1B18		;UNIT HUNG
CI.REW==1B19		;REWINDING
CI.LDP==1B20		;TAPE AT LOAD POINT (BOT)
CI.ILL==1B21		;ILLEGAL OPERATION
CI.TPE==1B22		;TAPE PARITY ERROR
CI.EOF==1B23		;END OF FILE (TAPE MARK SEEN)
CI.EOT==1B24		;TAPE INDICATE (EOT)
CI.RCE==1B25		;READ / COMPARE ERROR
CI.RLD==1B26		;RECORD LENGTH DIFFERS
CI.DLE==1B27		;DATA LATE ERROR (OVERRUN)
CI.BDT==1B28		;BAD TAPE FLAG
CI.JBD==1B29		;JOB DONE
CI.IDL==1B30		;UNIT IDLE
CI.CHE==1B31		;CHANNEL ERROR (BITS 11,12,13,OR 14)
CI.WLK==1B32		;UNIT WRITE LOCKED
CI.7TK==1B33		;7 TRACK UNIT
CI.LNU==1B34		;LOAD NEXT UNIT
CI.DAT==1B35		;DATA REQUEST

;BITS USED FOR CONO TMS,

CO.CPE==1B31		;CLEAR PARITY ERROR
CO.CCW==1B32		;CLEAR CONTROL WORD WRITTEN
CO.WCW==1B33		;WRITE CONTROL WORD
CO.MBH==1B34		;MOVE BR TO HR
CO.STP==1B35		;STOP CURRENT COMMAND

ALLERS==CI.DLE!CI.TPE!CI.BDT!CI.RCE!CI.ILL!CI.HNG!CI.CHE
			;ALL ERROR FLAGS OF INTEREST
SUBTTL TAPE INTERUPT SERVICE
;CALLED FROM TAPSER WITH W := KDB

TMXISR:	XCT	TMXCIC(W)	;GET COMMAND REG
	LDB	T2,CTYUNI	;GET UNIT SELECTED
	PUSHJ	P,SETUDB##	;SET UP U
	  PJRST	SETM1		;NON-EX UNIT
	XCT	TMXCIC(W)	;GET CMD REG AGAIN
	MOVEM	T1,TMXFCC(U)	;SAVE IN UDB
	LDB	T4,CTYFCN	;GET FCN
	XCT	KDBCNI(W)	;GET STATUS REG
	MOVEM	T1,TMXFCS(U)	;STASH STATUS REG IN UDB
	PUSHJ	P,CHKIRB##	;GET IORB
	  JRST	TAPDIS##	;NONE - DISMISS INT.
	MOVE	T3,TMXFCS(U)	;GET STATUS IN T3
	CAIN	T4,CM.FUR	;IF A NOP
	JRST	TMXSTS		;READ THE STATUS NOW
	MOVSI	T2,TUSBOT##	;CLEAR BOT INDICATION
	ANDCAM	T2,TUBSTS(U)	;  WE WILL SET IT AGAIN IF NECESSARY
	LDB	T2,PRBFCN##	;GET DESIRED FCN
	CAILE	T2,TMIMAX	;CHECK VALIDITY
	JRST	TAPIFI##	;FUNCTION ERROR
	JRST	@TMIDSP(T2)	;DO IT

TMIDSP:	IFIW	TAPIFI##	;(00) ILLEGAL
	IFIW	TMIRD		;(01) READ
	IFIW	TMIWT		;(02) WRITE
	IFIW	TAPIFI##	;(03) READ BACKWARDS (ILLEGAL)
	IFIW	TMISR		;(04) SKIP RECORD
	IFIW	TMIBR		;(05) BACKSPACE RECORD
	IFIW	TMISF		;(06) SKIP FILE
	IFIW	TMIBF		;(07) BACKSPACE FILE
	IFIW	TMIEG		;(10) ERASE GAP
	IFIW	TAPIFI##	;(11) DSE (ILLEGAL)
	IFIW	TMIRW		;(12) REWIND
	IFIW	TMIUN		;(13) REWIND / UNLOAD
	IFIW	TMITM		;(14) WRITE TAPE MARK
	IFIW	TMXOFL		;(15) FAKED INTERRUPT IF UNIT OFF-LINE
	IFIW	TMIRD		;(16) CORRECTION READ
	IFIW	TMIRD		;(17) READ LOW THRESHOLD
TMIMAX==.-TMIDSP-1
;ROUTINE TO MAKE CONTROLLER IDLE

CLRCTL:	LDB	T2,TUYKTP##	;UNIT TYPE
	JUMPN	T2,TMXIDL	;GO IF TM10B
	MOVE	T2,[JSR	PIERR##] ;DON'T LEAVE DATAI/O ADDRESS
	MOVEM	T2,@KDBICP(W)	; HANGING AROUND IN PI LOC
TMXIDL:	PUSH	P,T1		;SAVE IORB
	SETZM	TTMCHE(W)	;CLEAR ERROR FLAG
	HLLZS	@KDBCSO(W)	;NO MORE INTS
	XCT	TMXCIC(W)	;GET CTL CMD REG
	ANDI	T1,NOPMSK	;PRESERVE UNIT # ETC.
	XCT	TMXCOC(W)	;DO NO-OP TO DRIVE W/ PIA=0
	SETOM	TKBUNI(W)	;NO UNIT SELECTED
	PJRST	TPOPJ##		;RETURN

;HERE TO RESET ACTIVE I/O

TMXRES:	XCT	TMXCIC(W)
	MOVEM	T1,TMXFCC(U)
	XCT	KDBCNI(W)
	MOVEM	T1,TMXFCS(U)
	MOVEI	T1,CO.STP	;STOP CURRENT COMMAND
	XCT	KDBCNO(W)	;...
	MOVSI	T2,TKSSEL##	;SELECT BIT
	HRRZ	T1,TUBQUE(U)	;GET HEAD OF Q
	JUMPE	T1,CLRCTL	;NONE - EXIT
	TDNE	T2,TKBSTS(W)	;SELECTED?
	PUSHJ	P,ZAPEXL	;YES - FIX IOWD
	PJRST	CLRCTL		;CLEAR WORLD & EXIT


;ROUTINE TO CAUSE AN INTERUPT TO FORCE A SCHEDULE CYCLE

TMXSCH:	MOVE	T1,UDBPDN(U)	;PHYSICAL DRIVE NUMBER
	LSH	T1,^D35-CM.UNP
	IORI	T1,CM.NUE+MTAFLG ;INT ON NEXT UNIT AVAIL
	MOVEI	T2,CI.LNU	;ENABLE FOR LOAD NEXT UNIT
	CONO	PI,PI.OFF	;AVOID RACE
	HRRM	T2,@KDBCSO(W)	;...
	XCT	TMXCOC(W)	;...
	CONO	PI,PI.ON
	POPJ	P,
TMXCFG:	MOVEI	T1,6		;MUST DISTINGUISH TM10A FROM TM10B
	CONO	PI,PI.OFF	;DON'T ALLOW INTERRUPTS
	XCT	.CPCNO##	;CONO DEV,(T1)
	XCT	.CPCNI##	;CONI DEV,T1
	MOVE	T2,T1		;COPY RESULTS
	MOVEI	T1,0		;SET PIA BACK TO 0
	XCT	.CPCNO##	;CONO DEV,(T1)
	CONO	PI,PI.ON	;TURN PI SYSTEM BACK ON
	TRNE	T2,1		;TM10A RETURNS A 7
	JRST	CPOPJ1##	;TM10A NEEDS 18-BIT CHANNELS SO GIVE UP
	XMOVEI	T1,TMXMDT##	;MONGEN'ED DEVICE TABLE
	XMOVEI	T2,DEFMDT	;DEFAULT TABLE
	MOVNI	T3,1		;NO MASSBUS UNIT OR DRIVE INFORMATION
	MOVEI	T4,MD.KON	;MATCH ON KONTROLLER DEFINITION
	PUSHJ	P,AUTMDT##	;SCAN THE TABLES
	  JRST	CPOPJ1##	;NO MATCHES
	PUSHJ	P,SAVE1##	;SAVE P1
	MOVSI	T1,0		;I/O BUS-STYLE CHANNEL
	PUSHJ	P,AUTCHN##	;BUILD A CHANNEL DATA BLOCK
	  POPJ	P,		;NO CORE
	HLRZ	T1,P1		;GET MASSBUS UNIT NUMBER
	PUSHJ	P,AUTKDB##	;BUILD A KDB
	  POPJ	P,		;GIVE UP IF NO CORE
	PUSHJ	P,TAPCSA##	;SET UP CSO CONI ADDRESS
	MOVSI	T1,-<TMXIOE-TMXIOB> ;-LENGTH
	XMOVEI	T2,TMXIOB(W)	;STARTING ADDRESS
	HRRZ	T3,.CPDVC##	;DEVICE CODE
	ADDI	T3,1		;CONVERT STATUS DVC TO COMMAND DVC
	PUSHJ	P,AUTDVC##	;FILL IN DEVICE CODES
	PUSHJ	P,TMXCF3	;PUT CONTROLLER INTO A KNOWN STATE

TMXCF1:	MOVSI	P1,-1		;NO MASSBUS UNIT,,DRIVE 0

TMXCF2:	PUSHJ	P,TMXDRV	;AUTOCONFIGURE A SINGLE DRIVE
	  JFCL			;IGNORE ERRORS
	HRRZ	T1,P1		;GET DRIVE NUMBER
	CAIGE	T1,TMXHDN	;DONE ALL DRIVES?
	AOJA	P1,TMXCF2	;LOOP BACK FOR MORE

TMXCF3:	PUSHJ	P,CLRCTL	;CLEAR WORLD
	MOVE	T2,KDBICP(W)	;GET PNTR TO PI LOC
	MOVEM	T1,1(T2)	;PUT IN PLACE
	JRST	CPOPJ1##	;TRY ANOTHER DEVICE ON SAME CHANNEL
TMXDRV:	XMOVEI	T1,TMXMDT##	;MONGEN'ED DEVICE TABLE
	XMOVEI	T2,DEFMDT	;AND THE DEFAULT TABLE
	MOVE	T3,P1		;DRIVE INFORMATION
	PUSHJ	P,AUTMDT##	;FOUND A DRIVE MATCH?
	  POPJ	P,		;NO
	MOVE	T2,T1		;COPY DRIVE INFO
	TRO	T2,TUCIRD##+TUCD20##+TUCD55##+TUCD80##+K.TMB
	HRLZ	T1,P1		;PHYSICAL DRIVE NUMBER
	HRR	T1,P1		;UDB TABLE INDEX
	XMOVEI	T3,HNGTBL	;POINT TO HUNG TIMER TABLE
	MOVE	T4,['TU40  ']	;ASSUME 9-TRACK
	TRNE	T2,TUC7TK##	;7-TRACK?
	TRO	T4,10000	;YES
	PUSHJ	P,TAPDRV##	;BUILD AND LINK UP UDB AND DDB
	  JFCL			;FAILED
	JRST	CPOPJ1##	;RETURN
SUBTTL START I/O

;ROUTINE TO START I/O
;USER JOB MUST BE NAILED DOWN - CAUSE SELECTION INTERUPT
;OR JUST START I/O IF UNIT ALREADY SELECTED
TMXSIO:	MOVSI	T1,TKSOFL##	;SET THE UNIT ON-LINE
	ANDCAM	T1,TUBSTS(U)	; WILL SET OFF-LINE IF IT ISN'T OK
	MOVE	T1,UDBPDN(U)	;PHYSICAL DRIVE NUMBER
	LSH	T1,^D35-CM.UNP	;PUT IN PROPER PLACE
	XCT	TMXCOC(W)	;SELECT UNIT

	XCT	KDBCNI(W)	;GET CTL STATUS
	MOVEM	T1,TMXFCS(U)	;SAVE IN UDB

;HERE WHEN DESIRED DRIVE HAS BEEN SELECTED
;CHECK FOR ERRORS AND UNIT IDLE
	PUSHJ	P,CHKIRB##	;GET IORB
	  JRST	TAPDIS##	;NONE
	MOVE	T3,TMXFCS(U)	;GET STATUS REG
	MOVSI	T4,TUSWTL##	;WRITE LOCKED BIT
	ANDCAM	T4,TUBSTS(U)
	TRNE	T3,CI.WLK	;WRITE LOCKED?
	IORM	T4,TUBSTS(U)	;YES -SET BIT
	LDB	T2,PRBFCN##	;SEE WHAT FCN
	TRC	T3,CI.LNU	;MAKE NEXT TEST EASIER
	TRNN	T3,CI.REW!CI.IDL!CI.LNU ;IS UNIT READY OR REWINDING?
	HRROI	T2,RB.FYB	;NO, SET UP AS A YELLOW BALL
	DPB	T2,PRBFCN##	; FOR INTERRUPT LEVEL TO USE AS A FLAG
	CAIN	T2,RB.FYB	;STATUS CHECK?
	JRST	STSSEL		;YES - GO HANDLE
	TRNE	T3,CI.HNG!CI.ILL!CI.CHE
	JRST	TMXOFL		;UNIT OFFLINE
	PUSH	P,T2		;SAVE T2
	SETZM	TTMCHE(W)	;CLEAR CHL ERROR FLAG
	MOVE	T2,KDBICP(W)	;SET UP ICPC IF TM10B
	XCT	KDBDTO(W)	;...
	POP	P,T2		;RESTORE T2
	PUSHJ	P,SETCMD	;SET UNIT,PAR,DENS,COMPAT,FCN
	  PJRST	STSSEL		;WRITE LOCKED
	MOVEI	T3,CI.HNG!CI.ILL!CI.JBD!CI.CHE
DOIT:	MOVEI	T1,MTAFLG(T2)	;ADD PIA & MOVE TO T1
	CONO	PI,PI.OFF	;SAVE US FROM OTHERS
	HRRM	T3,@KDBCSO(W)	;SET UP INT MASK
	XCT	TMXCOC(W)	;START DEVICE
	CONO	PI,PI.ON	;OK NOW
NXTINT:	TDZA	T1,T1		;MORE INTERRUPTS COMING
SETM1:	MOVNI	T1,1
	POPJ	P,		;EXIT THIS INT
;HERE TO READ STATUS. HAVE TO HANDLE AFTER AN INTERRUPT
STSSEL:	MOVE	T2,UDBPDN(U)	;PHYSICAL DRIVE NUMBER
	LSH	T2,^D35-CM.UNP	;PUT IT IN RIGHT PLACE
	TRO	T2,<CM.FUR>B<CM.CMP>+CM.NUE
	MOVEI	T3,CI.HNG!CI.ILL!CI.JBD!CI.CHE!CI.LNU
	JRST	DOIT		;GO CAUSE A UNIT-SELECTED INTERRUPT

;HERE TO GET UNIT STATUS UPDATE ON REQUEST

TMXSTS:	TRNE	T3,CI.HNG	;IF HUNG?
	JRST	TMXOFL		;MUST BE OFF-LINE
	TRNN	T3,CI.LDP	;AT LOAD POINT?
	TRNN	T3,CI.REW	;OR NOT REW'D
	PUSHJ	P,REWDON##	;YES - SET BOT / CLR REW
	PJRST	TMIDON		;EXIT INTERUPT

;HERE IF NO STATUS WORTH REMEMBERING

TMXOFL:	MOVSI	T2,RB.SOL!RB.SER!RB.SNM ;SET OFF-LINE STATUS
	IORM	T2,TRBSTS(T1)
	MOVSI	T2,TKSOFL##	;TELL UPPER LEVEL THAT THE TAPE ISN'T THERE
	IORM	T2,TUBSTS(U)
	PUSHJ	P,CLRCTL	;RESET CTL
	PJRST	TMIDON		;AND RETURN
SUBTTL COMMAND SETUP
;ROUTINE TO SET UP CMD
;T1 := IORB FOR THIS REQUEST
;T3 CONTAINS CONI MTS,  - DESTROYED
;T2 := COMMAND FOR CTL ON EXIT

SETCMD:	LDB	T4,PRBFCN##	;GET DESIRED FCN
	SKIPN	T2,IOFTAB(T4)	;CHECK LEGAL
	JRST	SETILG		;NOPE - ERROR
	TLNE	T2,(IOXWRT)	;WRITE OP?
	JRST	SETCMW		;YES - CHECK WRITE LOCK
	PUSH	P,TTMBLK(W)	;GET BLKI OR ZERO
SETCM1:	MOVE	T2,UDBPDN(U)	;PHYSICAL DRIVE NUMBER
	LSH	T2,^D35-CM.UNP	;WHERE IT WILL DO THE MOST GOOD
	IOR	T2,IOFTAB(T4)	;GET FCN CODE
	TLZ	T2,(IOXREW!IOXWRT)	;CLR UNWANTED BITS
	POP	P,T4		;GET BLKI/O
	HRR	T4,@IRBACC(T1)	;GET DATA ADDRS OR SPACING COUNT
	TLZE	T2,(IOXLST)	;DATA?
	JRST	[PUSHJ P,SETCMX	;DO CTL SPECIFIC SETUP
		 JRST SETCM2]	;PROCEED
	TLZN	T2,(IOXSPC)	;SPACING OP?
	JRST	[MOVEI T4,0	;NO - ILLEGAL DATA REQUEST
		 JRST SETCM2]	;SET IN CHL AREA
	MOVNI	T4,-1(T4)	;GET COUNT -1 NEGATED
	JUMPE	T4,[TRZ T2,7	;CLEAR DATA PIA IF ONLY ONE
		    JRST SETCM2];AND STORE ZERO
	LDB	T3,TUYKTP##	;GET KONTROLLER TYPE
	JUMPE	T3,.+4		;NO CHL IF TM10A
	LSH	T4,4		;ONLY 14 BITS OF INFO
	HRLZM	T4,TKBCCL(W)	;SAVE IN CHL PGM AREA
	HRLZ	T4,TTMBLK(W)	;GET BLKO OR ZERO
	HRRI	T4,TKBCCL(W)	;SET ADDRS
	SETZM	TKBCCL+1(W)	;CHL HALT IF TM10B
SETCM2:	MOVEM	T4,@KDBICP(W)	;PUT IN CORRECT PLACE
	LDB	T4,PRBMOD##	;GET DESIRED MODE
	CAIN	T4,RB.MCD	;CORE-DUMP?
	IORI	T2,CM.CDF	;YES - SET BIT
	LDB	T4,PRBDEN##	;GET DENSITY BYTE
	CAILE	T4,CM.DMX	;CHECK MAX
	MOVEI	T4,CM.DMX
	DPB	T4,PRBDEN##	;REMEMBER SELECTED DENSITY
	IOR	T2,[CM.PAR+0
		    CM.PAR+CM.D2
		    CM.PAR+CM.D5
		    CM.PAR+CM.D8](T4)
	MOVSI	T4,RB.PAR	;CHECK PARITY
	TDNE	T4,TRBFNC(T1)	;ON FOR EVEN PARITY
	TRZ	T2,CM.PAR	;CLEAR BIT IN CMD
	PJRST	CPOPJ1##	;GIVE GOOD RETURN

;SET IMPROPER MODE AND RETURN

SETILG:	MOVSI	T2,RB.SIL!RB.SER	;ILLEGAL OP
	IORM	T2,TRBSTS(T1)	;SET IN IORB
	POPJ	P,		;ERROR RETURN
;HERE IF WRITING - CHECK WRLK

SETCMW:	MOVS	T2,TTMBLK(W)	;GET BLKO OR ZERO
	PUSH	P,T2		;SAVE ON PDL
	TRNN	T3,CI.WLK	;WRITE LOCKED?
	JRST	SETCM1		;NO - PROCEED
	MOVSI	T2,RB.SLK!RB.SER	;AND IN IORB
	IORM	T2,TRBSTS(T1)	;...
	PJRST	SETCM1	;ERROR RETURN

;ROUTINE TO SETUP CMD LIST TERMINATION WORD FOR
;SPECIFIC CONTROLLER (A OR B)
;T4 := ADDRS OF CHL PGM

SETCMX:	LDB	T3,TUYKTP##
	JRST	@[SETCXA
		  SETCXB](T3)	;DISPATCH ACCORDING TO TYPE

;HERE FOR TM10A

SETCXA:	MOVE	T3,0(T4)	;SAVE ADDRS
	HRLM	T3,@IRBACC(T1)	;  OF FIRST WORD FOR WORD-COUNT
	MOVEM	T3,TKBSAV(W)	;BLKI/O WORD SAVED
	POPJ	P,		;  COMPUTATION AND RETURN

;HERE FOR TM10B

SETCXB:	HLRZ	T3,@IRBACC(T1)	;END OF XFER LIST
	PUSH	P,T2		;SAVE AN AC
	MOVEI	T2,DF10ZR##	;HANDY ZERO
	MOVEM	T2,0(T3)	;CHL JUMP TO ZERO
	POP	P,T2		;RESTORE USED AC
	SETZM	DF10ZR##	;GRNTEE ZERO
	POPJ	P,		;RETURN
;TABLE FOR I/O FUNCTIONS - ALREADY IN POSITION

DEFINE IOT(CMD,BITS) <
	BITS+<CMD>B<CM.CMP>
>

;ALLOWABLE SPECIAL FCN BITS

IOXLST==1B0		;DATA XFER LIST REQUIRED
IOXSPC==1B1		;SPACING OPERATION
IOXREW==1B2		;REWIND
IOXWRT==1B3		;WRITE OPERATION

IOFTAB:	0			;0 - ILLEGAL
	IOT(CM.FRD,IOXLST)	;1 - READ
	IOT(CM.FWR,IOXLST!IOXWRT) ;2 - WRITE
	0			;3 - ILLEGAL
	IOT(CM.FFB,IOXSPC)	;4 - FORWARD SPACE BLOCK
	IOT(CM.FBB,IOXSPC)	;5 - BACKWARD SPACE BLOCK
	IOT(CM.FFF,IOXSPC)	;6 - FORWARD SPACE FILE
	IOT(CM.FBF,IOXSPC)	;7 - BACKSPACE FILE
	IOT(CM.FLG,IOXWRT)	;10 - WRITE LONG GAP
	0			;11 - ILLEGAL
	IOT(CM.FRW,IOXREW)	;12 - REWIND
	IOT(CM.FUN,0)		;13 - REWIND / UNLOAD
	IOT(CM.FTM,IOXWRT)	;14 - WRITE TAPE MARK
	IOT(CM.FFB,IOXSPC)	;USED WHEN UNIT DETECTED OFF-LINE
	IOT(CM.FRD,IOXLST)	;16 - CORRECTION READ
	IOT(CM.FRD,IOXLST)	;17 - READ LOW THRESHOLD


;HUNG TIMER TABLE
	EXP	^D480			;MAXIMUM TIMEOUT VALUE
HNGTBL:	BYTE(9)	^D000,^D046,^D046,^D000	;IL,RD,WT,RB
	BYTE(9)	^D046,^D046,^D480,^D480	;SR,BR,SF,BF
	BYTE(9)	^D046,^D000,^D225,^D225	;LG,SE,RW,RU
	BYTE(9)	^D046,^D046,^D046,^D046	;TM,YB,CR,RL
SUBTTL READ
;HERE ON DONE INTERUPT FOR READ

TMIRD:	PUSHJ	P,TMCKMV	;SEE IF TAPE MOVED
	  JSP	T4,TMERD0	;NO - PROBS
	PUSHJ	P,CHRCT		;GET CHARACTER COUNT
	  JRST	[MOVSI T4,RB.STL+RB.SER
		 IORM T4,TRBSTS(T1)
		 JRST .+1]
	MOVEM	T2,TRBRCT(T1)	;SAVE COUNT IN IORB
	MOVE	T3,TMXFCS(U)	;RESTORE STATUS
	SKIPN	TTMCHE(W)	;CHL ERROR
	TRNE	T3,CI.CHE	;???
	JRST	TMECHN		;YES - HANDLE
	PUSHJ	P,TMSTM		;ENCOUNTER EOF?
	  JRST	TMIRD1		;NO - GO ON
	AOS	TUBFIL(U)	;PLUS 1 MORE FILE
TMIRD1:	TRNE	T3,ALLERS	;CHECK BADNESS
	JSP	T4,TMERD1	;ERROR - HANDLE
	MOVE	T2,TRBRCT(T1)	;GET CHAR COUNT FOR THIS RECORD
	ADDM	T2,TUBCRD(U)	;AND UPDATE STATISTICS
	ADDM	T2,TKBCRD(W)
	ADDM	T2,.CPTFI##

;HERE TO FINISH INTERUPT AND EXIT TO TAPSER

TMIDON:	PUSHJ	P,ZAPEXL	;CLEAN UP
	MOVE	T3,UDBPDN(U)	;PHYSICAL DRIVE NUMBER
	MOVEM	T3,TKBUNI(W)	;AND SAVE IT FOR LATER CHECK
	HLRZ	T3,TRBSTS(T1)	;LOOK AT FLAGS
	JUMPE	T3,CPOPJ##	;RETURN IF NONE
	MOVSI	T2,RB.EXC	;ELSE SET EXCEPTION
	IORM	T2,TRBFNC(T1)	;IN IORB
	POPJ	P,		;AND RETURN

;ROUTINE TO FIXUP TM10B XFER LIST

ZAPEXL:	LDB	T3,TUYKTP##	;GET TYPE
	HLRZ	T2,@IRBACC(T1)	;PNTR TO END OF XFER LIST
	JUMPE	T2,CPOPJ##	;RETURN IF NONE
	JUMPE	T3,ZAPEXA	;JUMP IF TM10A
	SETZM	0(T2)		;CLEAR IT
	POPJ	P,		;RETURN

;RESTORE BLKI/O WORD

ZAPEXA:	MOVE	T2,TKBSAV(W)
	HRRZ	T3,@IRBACC(T1)	;PNTR TO XFER LIST
	MOVEM	T2,0(T3)	;STORE WORD
	POPJ	P,		;RETURN
SUBTTL WRITE
;HERE ON DONE INTERUPT FOR WRITE

TMIWT:	PUSHJ	P,TMCKMV	;DID IT MOVE
	  JSP	T4,TMEWT0	;NO - TRY TO FIX
	SKIPN	TTMCHE(W)	;CHL ERROR?
	TRNE	T3,CI.CHE
	JRST	TMECHN		;YES - LOOK AT THAT
	MOVSI	T2,RB.SET	;NOW CHECK EOT
	TRNE	T3,CI.EOT	;???
	IORM	T2,TRBSTS(T1)	;SET INFO IN IORB
	TRNE	T3,ALLERS	;EVERYTHING OK?
	JSP	T4,TMEWT1	;NO - TRY TO FIX
	PUSHJ	P,CHRCT		;GET CHARACTER COUNT
	  JFCL			;DON'T CARE
	ADDM	T2,TUBCWR(U)	;ADD TO STATS
	ADDM	T2,TKBCWR(W)
	ADDM	T2,.CPTFO##
	PJRST	TMIDON		;AND EXIT

;HERE ON DONE INTERUPT FOR WRITE TAPE MARK

TMITM:	MOVSI	T2,RB.SET	;JUST IN CASE
	TRNE	T3,CI.EOT	;WE SAW A TI
	IORM	T2,TRBSTS(T1)	;SET FLG IF SEEN
	TRNE	T3,ALLERS	;ANYTHING WRONG?
	JSP	T4,TMEWT1	;YES - SORRY
	SETZM	TUBREC(U)	;ZEROTH RECORD
	AOS	TUBFIL(U)	;AND 1 MORE FILE
	PJRST	TMIDON		;EXIT

;ROUTINE SET SAY WE'VE SEEN A TAPE MARK
;ALSO RESETS RECORD COUNTER

TMSTM:	TRNN	T3,CI.EOF	;SEEN EOF?
	POPJ	P,		;NO - RETURN
	MOVSI	T2,RB.STM	;IORB FLAG ALSO
	IORM	T2,TRBSTS(T1)	;...
	SETZM	TUBREC(U)	;CLEAR RECORD COUNT
	PJRST	CPOPJ1##	;SKIP RETURN FOR FURTHER PROCESSING
SUBTTL REWIND/UNLOAD/BACKSPACE RECORD
;HERE ON INTERUPT AFTER STARTING REWIND

TMIUN:	MOVE	T2,TUBSTS(U)
	TLZ	T2,TUSREW##	;NOT REWINDING
	JRST	TMIRWU		;CARRY ON

TMIRW:	TRNE	T3,CI.HNG!CI.ILL	;CHECK BADNESS
	JSP	T4,TMERW	;HANDLE PROBLEM
	MOVE	T2,TUBSTS(U)	;SAY WE ARE REWINDING
	TLO	T2,TUSREW##
TMIRWU:	MOVEM	T2,TUBSTS(U)
	TRNE	T3,CI.LDP	;ALREADY DONE?
	PUSHJ	P,REWDON##	;YES - CLEAN UP THEN
	SETZM	TUBREC(U)	;IN CASE WE DON'T FINISH
	SETZM	TUBFIL(U)	;CLEAR THESE NOW
	PJRST	TMIDON		;AND EXIT

;HERE ON DONE INTERUPT FROM BACKSPACE RECORD

TMIBF:!
TMIBR:	TRNE	T3,CI.HNG!CI.CHE ;DEVICE PROBS?
	JSP	T4,TMERD1	;WHOOPS PROBLEM
	PUSHJ	P,TMSTM		;LOOK FOR TM
	  JRST	TMIBR1		;NONE SEEN
	SOS	TUBFIL(U)	;ONE  LESS FILE
TMIBR1:	SOS	TUBREC(U)	;ALSO ONE LESS RECORD
	TRNN	T3,CI.LDP	;SEE IF WE CRASHED INTO BOT
	PJRST	TMIDON		;NO - DONE
	MOVSI	T2,RB.SBT!RB.SNM ;YES - LITE BITS
	SKIPN	TUBREC(U)	;TRY TO GUESS IF TAPE MOVED
	SKIPE	TUBFIL(U)	;  BY SEEING IF AT LOGICAL BOT
	TLZ	T2,RB.SNM	;FIRST TIME HERE
	IORM	T2,TRBSTS(T1)	;SET RESULT IN IORB
	MOVSI	T2,TUSBOT##	;AND UDB
	IORM	T2,TUBSTS(U)	;...
	SETZM	TUBREC(U)	;GET THINGS RIGHT
	SETZM	TUBFIL(U)
	PJRST	TMIDON		;EXIT
SUBTTL SKIP RECORD/FILE/ERASE GAP

;HERE ON DONE INTERUPT FROM SKIP FORWARD RECORD/FILE

TMISF:!
TMISR:	PUSHJ	P,TMCKMV	;SEE IF WE MOVED?
	  JSP	T4,TMERD0	;NOPE
	TRNE	T3,ALLERS	;CHECK ERRORS
	JSP	T4,TMERD1	;HANDLE IT
	PUSHJ	P,TMSTM		;CHECK FOR TAPE MARK
	  JRST	TMIDON		;NO TAPE MARK
	AOS	TUBFIL(U)	;INCR FILE COUNTER
	JRST	TMIDON		;AND EXIT

;HERE ON DONE INTERUPT FROM ERASE GAP

TMIEG:	MOVSI	T2,RB.SET	;IN CASE TAPE INDICATE
	TRNE	T3,CI.EOT	;SEEN ONE?
	IORM	T2,TRBSTS(T1)	;YES - SET BIT
	TRNE	T3,CI.HNG!CI.ILL!CI.CHE	;ERROR ALLOWED
	JRST	TMEWT1		;YES - TREAT IT
	PJRST	TMIDON		;EXIT INT
;HERE FOR CHANNEL ERROR

TMECHN:	TLNN	T3,(CI.DPE)	;DATA PARITY ERROR?
	JRST	TMECH1		;NO - HANDLE NOW
	MOVEI	T1,CO.STP!CO.CPE
	XCT	KDBCNO(W)	;STOP CHL & CLEAR ERROR
	MOVEM	T3,TTMCHE(W)	;FLAG ERROR SAVE CONI BITS
	PJRST	NXTINT		;AND WAIT FOR JOB DONE

TMECH1:	MOVE	T2,TTMCHE(W)	;GET ERROR CONI BITS
	MOVEM	T2,TMXFCS(U)	; SO DAEMON GETS THEM
	PUSHJ	P,SAVE1##	;SAVE P1
	MOVEI	T2,CHENXM##	;ASSUME NXM
	MOVSI	T4,IOCHNX	; ...
	TLNE	T3,(CI.DPE!CI.CPE)
	MOVEI	T2,CHEMPE##	;NO - PARITY ERROR
	TLNE	T3,(CI.DPE!CI.CPE)
	MOVSI	T4,IOCHMP	; ...
	PUSH	P,T1		;SAVE IORB PNTR
	MOVE	T1,KDBICP(W)	;PNTR TO CCW
	MOVE	P1,KDBCHN(W)	;PNTR TO CHL DATA BLOCK
	MOVE	F,TUBCUR(U)	;PNTR TO DDB
	IORM	T4,CHNNUM##(P1)	;MARK MEMORY ERROR FOR LATER SWEEP
	SKIPN	TUBERR(U)	;CALL ERRCON ON FIRST ERROR ONLY
	PUSHJ	P,0(T2)		;EXERCISE ROUTINE
	MOVEI	T1,CO.CCW	;CLEAR CONTROL WORD WRITTEN
	XCT	KDBCNO(W)	;...
	POP	P,T1		;RESTOR IORB
	MOVSI	T2,RB.SER!RB.SED
	IORM	T2,TRBSTS(T1)	;TELL HIM WORLD ENDED
	PJRST	TMIDON		;RETURN - NO RETRIES

;ROUTINE TO DETERMINE IF TAPE MOVED (DIVINATION)

TMCKMV:	TRNE	T3,CI.HNG!CI.ILL
	POPJ	P,		;TRY THIS FOR NOW
	AOS	TUBREC(U)	;MOVIN' ALONG
	JRST	CPOPJ1##	;SKIP RETURN
;ERRORS DETECTED DURING WRITE OPERATIONS

TMEWT0:	MOVSI	T2,RB.SNM!RB.SED	;TAPE DIDN'T MOVE
	IORM	T2,TRBSTS(T1)
TMEWT1:	PUSHJ	P,TMEANL	;ANALYSE ERROR
	MOVSI	T2,RB.SLK	;CHECK FOR WRITE LOCK
	TRNE	T3,CI.WLK
	IORM	T2,TRBSTS(T1)	;YES - SET BIT
	PJRST	TMIDON		;EXIT INTERUPT

;ERRORS DETECTED DURING READ / SPACING OPS

TMERD0:	MOVSI	T2,RB.SNM!RB.SED	;TAPE DIDN'T MOVE
	IORM	T2,TRBSTS(T1)
TMERD1:	PUSHJ	P,TMEANL	;ERROR ANALYSIS
	PJRST	TMIDON		;EXIT INT

;PROBLEM STARTING REWIND

TMERW:	MOVSI	T2,RB.SED!RB.SNM!RB.SOL
	IORM	T2,TRBSTS(T1)	;SET OFF-LINE ETC.
	PUSHJ	P,CLRCTL	;RESET CTL
	PJRST	TMIDON		;EXIT INT
;ROUTINE TO ANALYSE ERROR BITS IN RH(T3)

TMEANL:	MOVEI	T2,0		;SET INITIAL ZERO
	TRNE	T3,CI.HNG
	JRST	TMEOFL		;DRIVE OFF-LINE
	TRNE	T3,CI.ILL
	JRST	TMECMR		;COMMAND REJECT
	TRNE	T3,CI.DLE
	JRST	TMEOVR		;OVERRUN
	TRNE	T3,CI.TPE!CI.BDT!CI.RCE
	JRST	TMEDC		;DATA CHECK
TMEXIT:	IORM	T2,TRBSTS(T1)	;SET SELECTED BITS
	POPJ	P,		;RETURN

TMEOFL:	PUSHJ	P,TMXOFL	;SET UNIT OFF-LINE
TMECMR:	MOVSI	T2,RB.SNM!RB.SED	;SET BITS (TAPE DIDN'T MOVE)
	PJRST	TMEXIT

TMEDC:	TLO	T2,RB.SDE	;DATA ERROR
TMEOVR:	TLO	T2,RB.SED	;ERROR DETECTED - RETRY
	PJRST	TMEXIT
SUBTTL COMPUTE CHARACTER COUNTS
;ROUTINE COMPUTES CHARACTER COUNT
;RETURNS COUNT IN T2 , T1 SAVED
;CALLED WITH C(T3) := CONI MTS,

CHRCT:	PUSH	P,T1		;SAVE IORB PNTR
	LDB	T2,TUYKTP##	;GET CNTRL TYPE
	PUSHJ	P,@[WRDCTA
		    WRDCTB](T2)	;CALL CORRECT ROUTINE
	  SKIPA			;LENGTH ERROR RETURN
	AOS	-1(P)		;SET FOR SKIP RETURN
	MOVEI	T2,-1(T1)	;WORD COUNT -1 INTO T2
	HLRZ	T4,T3		;NOW PLAY WITH BC CHAR CNT
	ANDI	T4,7		;TO DETERMINE BYTE RESIDUE
	JUMPE	T4,[AOJA T2,CHRCT1]	;IF ZERO RE-ADJUST WORD COUNT
CHRCT1:	DPB	T4,PMTNCR##	;SAVE RESIDUE FOR MTCHR.
	HRLM	T2,TUBCHR(U)	;STORE LAST WORD COUNT FOR MTCHR.
	TRNE	T3,CI.7TK	;REAL EASY IF 7-TRACK
	JRST	CHRCT2		;...
	XCT	TMXCIC(W)	;9TK - SEE WHAT MODE
	MOVEI	T3,5		;ASSUME CORE-DUMP
	TRNN	T1,CM.CDF	;IS IT?
	MOVEI	T3,4		;NO - COMPAT THEN
	IMUL	T2,T3		;CONVERT TO BYTES
	ADD	T2,T4		;PLUS REMAINDER
	XCT	TMXDIC(W)	;AND FETCH CRC
CHRCT3:	DPB	T1,PMTCRC##	;STORE IT FOR MTCHR.
	PJRST	TPOPJ##		;RESTORE T1 AND EXIT

CHRCT2:	MOVE	T1,(P)		;GET IORB
	LDB	T1,PRBMOD##	;MODE
	IMUL	T2,TMODTB##(T1)	;CHARS TAPUUO THINKS ARE IN A WORD

	ADD	T2,T4		;PLUS LEFT OVERS
	MOVEI	T1,0		;NO CRC FOR 7TK
	JRST	CHRCT3
;ROUTINE TO COMPUTE WORD COUNT FOR TM10A
;RETURNS WORD COUNT IN T1 , T3 PRESERVE
;CALLED WITH T1 := IORB

WRDCTA:	HRRZ	T4,@IRBACC(T1)	;ADDRS OF RESIDUE PNTR
	HLRZ	T2,@IRBACC(T1)	;ADR OF FIRST WORD -1
	HRRZ	T1,0(T4)	;LAST ADDRS
	SUB	T1,T2		;DIFFERENCE IS WORD COUNT
	TRNE	T3,CI.RLD	;CHECK LENGTH ERROR
	SKIPGE	0(T4)		;YES - SHORT RECORDS OK
	JRST	CPOPJ1##	;OK - LEN .LE. ACTUAL
	POPJ	P,		;ERRORR IF RECORD TOO LARGE

;ROUTINE TO COMPUTE WORD COUNT FOR TM10B
;CALLING CONVENTIONS SAME AS WRDCTA

WRDCTB:	MOVE	T1,KDBICP(W)	;PNTR TO INITIAL CONTROL WORD
	PUSHJ	P,SAVE1##	;SAVE P1
	MOVE	P1,KDBCHN(W)	;ADDRS OF CDB

	PUSH	P,T3		;SAVE T3
	PUSHJ	P,WRDCNX##	;CALL ROUTINE IN COMMON
	POP	P,T3		;RESTORE T3
	TRNN	T3,CI.RLD	;LENGTH = REQUEST?
	JRST	CPOPJ1##	;OK - GIVE GOOD RETURN
	MOVE	T2,KDBICP(W)	;ICPC PNTR
	HLRZ	T2,1(T2)	;LH TERMINATION WORD
	LSH	T2,-4		;DF10C HAS 14 BIT ADDRS
	SKIPN	(T2)		;ARE WE AT END OF LIST
	SOJA	T1,CPOPJ##	;YES - RECORD IS TOO LONG
	SOJA	T1,CPOPJ1##	;NO - SHORT RECORD, OK

TMXEND:	END