.TITLE	IODAT
;
; COPYRIGHT (C) 1977
; DIGITAL EQUIPMENT CORPORATION
;
; MODIFICATIONS:
;
;	02A - CORRECT /CP OMISSION
;
	.IDENT	/02A/

	.MCALL	CSI$SW

	.PSECT	TSKPT,D,GBL

.TSKPT=.
	TSKPT=.TSKPT+2
.=.TSKPT+144
	RSWTH=.-TSKPT
	SWCP=001000		;CHECKPOINT SWITCH MASK WORD

	.PSECT	TSKSWT,D,GBL
TSKSWT=.
.=TSKSWT+40
	CSI$SW	CP,SWCP,TSKPT+RSWTH,SET,NEG
.=TSKSWT

	.END