.TITLE	COTINI
	.IDENT	/01.02A/
	.ASECT
	.GLOBL	COTSTA
	.GLOBL	$TKTCB
	.GLOBL	$COPT
	.GLOBL	.WDFUI
	.GLOBL	.FINIT
	.GLOBL	IOQUE								;**-1
	.PSECT
	.GLOBL	.INIT
	.PSECT
.INIT:	MOV	$COPT,R5
	EMT	376
	.WORD	C00054
	MOV	$TKTCB,R0
	CLR	30(R5)
	MOV	R5,32(R5)
	ADD	#30,32(R5)
	MOV	2(R5),R4
	CMP	R4,R5
	BNE	C00046
	MOV	TT0ADR,R4							;GACMOD
C00046:	MOV	R4,26(R0)							;**-1
	RETURN
C00054:	CALL	.FINIT
	MOV	#404,R1
	CALL	.WDFUI
	CLR	COTSTA
	ADD	#30,R5
	MOV	R5,IOQUE
	RETURN
	.ASECT
	.BLKB	177776
	.END