d 	.TITLE	TMPHANDLE
È 	.IDENT	/V01.01 (01-84)/
,	$CHFDEF
	$OPCDEF
ô	$SHRDEF
X	.PSECT	$TMP_DATA,NOEXE,RD,WRT,LONG
¼FACILITY_DESC:	.BLKL	1
 	.LONG	10$
„10$:	.ASCII	/TMP_/
èFACILITY_LEN = . - 10$
LSIG_NAM:	.BLKL	1
°	.PSECT	TMP_HANDLER,EXE,RD,NOWRT,LONG
TMP$HANDLER::	.WORD	^M<R2,R3,R4,R5,R11>
x	MOVAL	W^TMP$G_DATA,R11
Ü	MOVL	CHF$L_SIGARGLST(AP),R2	;SIGNAL ARRAY
@	SUBW	#2,CHF$L_SIG_ARGS(R2)	;NOMBRE D'ARGUMENTS
¤	MOVL	CHF$L_SIG_NAME(R2),W^SIG_NAM	;CONDITION
	MOVL	#FACILITY_LEN,W^FACILITY_DESC
l	PUSHAQ	W^FACILITY_DESC
Ð	PUSHAW	W^ACTION
4	PUSHL	CHF$L_SIGARGLST(AP)	;ARGUMENT DE "ACTION"
˜	CALLS	#3,SYS$PUTMSG
ü	$EXIT_S
`	10$:	RET
Ä	ACTION:	.WORD	^M<R2,R3,R4,R5,R6,R11>
(
	MOVL	4(AP),R2
Œ
	MOVZBL	#128,R6
ð
	CMPW	(R2),R6
T	BGEQ	5$
¸	MOVZWL	(R2),R6
5$:	SUBL	R6,SP
€	MOVC3	R6,@4(R2),(SP)
ä	PUSHL	#0
H	MOVL	#OPC$_RQ_RQST!<-
¬		<OPC$M_NM_CENTRL!-
		OPC$M_NM_OPER2>@8>,-(SP)
t	PUSHL	SP
Ø	ADDL3	R6,#4+4,-(SP)
<	MOVL	SP,R0
 	$SNDOPR_S	(R0)
	ADDL2	#16,R6
h	ADDL2	R6,SP
Ì	CLRL	R0
0	RET
”	.END