.;
.;  DTR14.ALL
.;	FILES TO MAKE DTR14 TASK
.;
.OPEN DTR14.MAC;100
.DATA	.TITLE	DTR14
.DATA	.IDENT	/29SE83/
.DATA	.MCALL	EXIT$S
.ENABLE DATA
;+
; DTR14 PROGRAM
;	PROGRAM TO SET DTR BIT ON TT14:
;	(160110 - UNIT 2 DZ11)
;
;  WRITTEN BY:	DAVID J. STRAIT    29-SEP-83
;	APPLIED DYNAMICS INTERNATIONAL
;
;  REVISION:	29-SEP-83	DJS
;
;	>RUN DTR14
;
;  BUILD PROCEDURE:
;	>MAC DTR14;1=DTR14
;	>TKB
;	TKB>DTR14;1/PR:5,DTR14;1/-SP/-WI=DTR14
;	TKB>/
;	TKB>UNITS=0
;	TKB>STACK=10
;	TKB>TASK=DTR14
;	TKB>//
;
;-
	DZCSR == 160110
	DZDTR == DZCSR+5
	DTRBIT == 4
DTR14::	BISB	#DTRBIT,DZDTR	;   SET DTR BIT
	EXIT$S			;   AND EXIT
	HALT			;   JUST IN CASE
.DISABLE DATA
.DATA	.END	DTR14
.CLOSE
.OPEN DTR14.TKB;100
.ENABLE DATA
DTR14;1/PR:5,DTR14;1/-SP/-WI=DTR14
/
UNITS=0
STACK=10
TASK=DTR14
//
.DISABLE DATA
.CLOSE
.;
MAC DTR14;1=DTR14
.;
TKB @DTR14.TKB
.;
PIP DTR14.MAC;100,DTR14.TKB;100,DTR14.OBJ;1/DE
.;