.title   reappear
;
;	This program is to go out into the system and make me 
;	invisible.
;
	.library     /sys$library:lib/
;
;	global symbol definitions
;
	$PCBDEF
	$JIBDEF
	$PHDDEF
	.ENTRY	reappear, ^M<>

	$cmkrnl_s	routin=kernel_stuff
	
	ret
;
;	This is the kernel mode routine that will go out into the system
;	and in effect make me almost invisible.
;
	.entry kernel_stuff, ^M<>

	moval	handler, (fp)
	incw	Sys$Gw_Ijobcnt			;bump up the system interactive
						;process count
	movl	#1, r0
getout:
	ret

	.entry 	handler,^m<>
	$exit_s	r0
	ret

	.end	reappear