.TITLE	COTDSP
	.IDENT	/01.03A/
	.ASECT
	.GLOBL	COTSTA
	.GLOBL	$QRMVF
	.GLOBL	.OPNCL
	.GLOBL	.ERROR
	.GLOBL	CS.ACT
	.GLOBL	CS.WRT
	.GLOBL	.ERPTR
	.GLOBL	PW.NOL
	.GLOBL	PARSWD
	.GLOBL	.DSW
	.GLOBL	$TKTCB
	.GLOBL	$COPT
	.GLOBL	.WRTRC
	.GLOBL	.TMOUT
	.GLOBL	CS.COT
	.GLOBL	.CMPTR
	.GLOBL	$SETF
	.GLOBL	$DREXT
	.GLOBL	.IOPTR
	.GLOBL	$STPCT
	.GLOBL	S.CTM
	.GLOBL	CS.LOG
	.GLOBL	.ERSTK
	.GLOBL	.INIT								;**-1
	.GLOBL	.PRSCM
	.GLOBL	IOQUE
	.GLOBL	ER.RED
	.GLOBL	.MCRTC
	.PSECT
	.GLOBL	.START
	.PSECT
.START:										;GACMOD
	MOV	R0,-(SP)							;GACMOD
	MOV	$DEVHD,R0							;GACMOD
10$:										;GACMOD
	CMP	#"TT,D.NAM(R0)							;GACMOD
	BEQ	20$								;GACMOD
	MOV	D.LNK(R0),R0							;GACMOD
	BR	10$								;GACMOD
20$:										;GACMOD
	MOV	D.UCB(R0),TT0ADR						;GACMOD
	MOV	(SP)+,R0							;GACMOD
	CALL	.INIT								;GACMOD
C00004:	CMP	#.ERSTK,.ERPTR							;**-1
	BEQ	C00020
	CALL	.ERROR
C00020:	CLR	.CMPTR
	CLR	.IOPTR
	EMT	376
	.WORD	C00202
	MOV	.MCRTC,R5
	BEQ	C00120
	TST	.DSW
	BGT	C00076
	MOV	#2,R0
	CALL	$SETF
	TST	.DSW
	BEQ	C00076
	MOV	#3,R0
	CALL	$SETF
C00076:	MOV	#1,R0
	CALL	$SETF
	CLR	.MCRTC
	MOV	#1,.DSW
C00120:	CALL	C00272
	BCC	C00200
	BIT	#CS.ACT,COTSTA
	BNE	C00146
	MOV	$TKTCB,R5
	JMP	$DREXT
C00146:	BIT	#CS.WRT,COTSTA
	BEQ	C00174
	MOV	$COPT,R5
	MOV	20(R5),R4
	MOV	.TMOUT,S.CTM(R4)
C00174:	JMP	$STPCT
C00200:	RETURN
C00202:	MOV	.CMPTR,R0
	BNE	C00254
	MOV	.IOPTR,R3
	BNE	C00240
	EMT	376
	.WORD	C00226
	JMP	C00272
C00226:	MOV	.CMPTR,R0
	BNE	C00254
	MOV	.IOPTR,R3
C00240:	CALL	.WRTRC
	BGT	C00004
	CALL	C00336
	BR	C00004
C00254:	CALL	.PRSCM
	CALL	C00336
	CALL	C00532
	BR	C00004
C00272:	MOV	$TKTCB,R0
	ADD	#12,R0
	CALL	$QRMVF
	BCS	C00316
	MOV	R1,.CMPTR
	RETURN
C00316:	MOV	IOQUE,R0
	CALL	$QRMVF
	BCS	C00334
	MOV	R1,.IOPTR
C00334:	RETURN
C00336:	CALL	C00356
	CALL	.OPNCL
	BCC	C00354
	CALL	C00356
C00354:	RETURN
C00356:	BIT	#CS.ACT,COTSTA
	BEQ	C00530
	BIT	#CS.COT,COTSTA
	BNE	C00530
	BIT	#CS.LOG,COTSTA
	BEQ	C00416
	BIT	#PW.NOL,PARSWD
	BEQ	C00530
C00416:	MOV	$COPT,R5
	EMT	376
	.WORD	C00500
	BICB	#2,7(R5)
	CLR	26(R5)
	MOV	34(R5),R1
	BEQ	C00454
	MOV	R1,2(R5)
	RETURN
C00454:	MOV	#ER.RED,@.ERPTR
	ADD	#2,.ERPTR
	BISB	#1,7(R5)
	RETURN
C00500:	CLR	.IOPTR
	EMT	376
	.WORD	C00514
	JMP	C00316
C00514:	MOV	.IOPTR,R3
	BEQ	C00530
	CALL	.WRTRC
	BR	C00500
C00530:	RETURN
C00532:	CMP	#.ERSTK,.ERPTR
	BEQ	C00546
	CALL	.ERROR
C00546:	MOV	$TKTCB,R0
	MOV	$COPT,R5
	MOV	34(R5),R4
	BNE	C00570
	MOV	TT0ADR,R4							;GACMOD
C00570:	MOV	R4,26(R0)							;**-1
	RETURN
TT0ADR::.WORD	0								;GACMOD
	.ASECT
	.BLKB	177776
	.END	.START