MD0:COTDSP.MAC;2=MD0:COTDSP.VGN/AU/-BF
\
-2,2,/;GACMOD/
	.IDENT	/01.03A/
%
-/.GLOBL...TT0/,.,/;GACMOD/
-/.START:/,.,/;GACMOD/
.START:
	MOV	R0,-(SP)
	MOV	$DEVHD,R0
10$:
	CMP	#"TT,D.NAM(R0)
	BEQ	20$
	MOV	D.LNK(R0),R0
	BR	10$
20$:
	MOV	D.UCB(R0),TT0ADR
	MOV	(SP)+,R0
	CALL	.INIT
-/MOV...#.TT0,R4/,.,/;GACMOD/
	MOV	TT0ADR,R4
-/RETURN/,,/;GACMOD/
TT0ADR::.WORD	0
-/.END/,.,/;GACMOD/
	.END	.START
/
MD0:COTINI.MAC;2=MD0:COTINI.VGN/AU/-BF
\
-2,2,/;GACMOD/
	.IDENT	/01.02A/
%
-/.GLOBL...TT0/,.,/;GACMOD/
-/MOV...#.TT0,R4/,.,/;GACMOD/
	MOV	TT0ADR,R4
/
MD0:INITL.MAC;2=KT1:[11,10]INITL.MAC/AU/-BF
\
-2,2,/;GACMOD/
	.IDENT	/15.03A/
%
-/MOV...#60,SR3/
-/.IFTF/,,/;GACMOD/

;
; FILL IN $COPT AND RE-DIRECT POINTERS FOR .CO0 AND .CL0
;

	CLR	R0		; SHOW .TT0 NOT YET FOUND
	CLR	R1		; ASSUME NO .CO0
	MOV	$DEVHD,R3	; POINT TO FIRST DEVICE
9000$:
	BEQ	9040$		; IF END OF DCB CHAIN, QUIT
	CMP	#"TT,D.NAM(R3)	; TEST 'TT' DCB
	BNE	9010$		; IF NOT, CONTINUE
	TST	R0		; TEST IF .TT0 ALREADY FOUND
	BNE	9030$		; IF NON-ZERO, YES, CONTINUE
	MOV	D.UCB(R3),R0	; ELSE, SAVE .TT0 ADDRESS
	BR	9030$
9010$:
	CMP	#"CO,D.NAM(R3)	; TEST 'CO' DCB
	BNE	9020$		; IF NOT, CONTINUE
	MOV	D.UCB(R3),R1	; ELSE, SAVE .CO0 ADDRESS
	BR	9030$
9020$:
	CMP	#"CL,D.NAM(R3)	; TEST 'CL' DCB
	BNE	9030$		; IF NOT, CONTINUE
	MOV	D.UCB(R3),R2	; ELSE, SAVE .CL0 ADDRESS
9030$:
	MOV	D.LNK(R3),R3	; MOVE TO NEXT DCB
	BR	9000$
9040$:
	MOV	R0,U.RED(R2)	; REDIRECT .CL0 TO .TT0
	MOV	R1,$COPT	; SET UP .CO0 POINTER
	BEQ	9050$		; IF NO .CO0, POINT TO .TT0
	MOV	R0,U.RED(R1)	; REDIRECT .CO0 TO .TT0
	BR	9060$
9050$:
	MOV	R0,$COPT	; SET UP .TT0 POINTER
9060$:
/
MD0:PMT.MAC;2=KT1:[11,10]PMT.MAC/AU/-BF
\
-2,2,/;GACMOD/
	.IDENT	/02.00A/
%
-/TOTSIZ:/,,/;GACMOD/
TT0ADR:	.WORD	0		; .TT0 UCB ADDRESS
CO0ADR:	.WORD	0		; .CO0 UCB ADDRESS
-/INIT:/,,/;GACMOD/

	MOV	R0,-(SP)	; SAVE R0
	MOV	$DEVHD,R0	; POINT AT FIRST DCB
9000$:
	BEQ	9030$		; QUIT AT END OF DCB CHAIN
	CMP	#"TT,D.NAM(R0)	; TEST 'TT' DCB
	BNE	9010$		; IF NOT, CONTINUE
	MOV	D.UCB(R0),TT0ADR ; ELSE, SAVE .TT0 ADDRESS
	BR	9020$
9010$:
	CMP	#"CO,D.NAM(R0)	; TEST 'CO' DCB
	BNE	9020$		; IF NOT, CONTINUE
	MOV	D.UCB(R0),CO0ADR ; ELSE, SAVE .CO0 ADDRESS
9020$:
	MOV	D.LNK(R0),R0	; MOVE TO NEXT DCB
	BR	9000$
9030$:
	MOV	(SP)+,R0	; RESTORE R0
	TST	CO0ADR		; TEST FOR .CO0
	BNE	9040$		; OK IF NON-ZERO
	MOV	TT0ADR,CO0ADR	; ELSE, USE .TT0
9040$:
-/MOV...#.TT0,R2/,.,/;GACMOD/
	MOV	TT0ADR,R2	; GET CONSOLE UCB ADDRESS
-/PGONE:/
-/MOV...#.TT0,(R4)/,.,/;GACMOD/
153$:	MOV	TT0ADR,(R4)	;; ESTABLISH SECOND LUN
-/CMP...R0,#.TT0/,.,/;GACMOD/
	CMP	R0,TT0ADR	;; EQUAL TO TT0:?
-/CMP...R0,#.CO0/,.,/;GACMOD/
	CMP	R0,CO0ADR	;; EQUAL TO CO0:?
/
MD0:SYSCM.MAC;2=KT1:[11,10]SYSCM.MAC/AU/-BF
\
-2,2,/;GACMOD/
	.IDENT	/17.04A/
%
-/$COPT::/,.,/;GACMOD/
$COPT::	.WORD	0		;POINTER TO COMMAND OUTPUT UCB
/
MD0:MDSUB.MAC;2=KT1:[11,10]MDSUB.MAC/AU/-BF
\
-2,2,/;WRTCHK/
	.IDENT	/2.02A/
-/HH162/,,/;WRTCHK/
;		NOW FIX IT CORRECTLY -- USE D$$WCK
%
-/W$$CHK/,.,/;WRTCHK/
	.IF DF	D$$WCK
/