MACRO 00001000
&LABEL HNDEXT &FNCT,&ADDR,&ERROR=*+4 00002000
LCLC &LOC 00003000
&LOC SETC '0' 00004000
CNOP 0,4 00005000
AIF (T'&FNCT EQ 'O').ERR1 00006000
AIF ('&FNCT' EQ 'SET').SET 00007000
AIF ('&FNCT' EQ 'CLR').CLR 00008000
MNOTE 8,'INVALID FUNCTION SPECIFICATION' 00009000
MEXIT 00010000
.SET ANOP 00011000
AIF (T'&ADDR EQ 'O').ERR2 00012000
&LOC SETC '&ADDR' 00013000
.CLR ANOP 00014000
&LABEL BAL 1,DMS&SYSNDX.A 00015000
DC CL8'TRAP' 00016000
DC A(&LOC) 00017000
DMS&SYSNDX.A SVC 202 00018000
DC AL4(&ERROR) 00019000
MEXIT 00020000
.ERR1 MNOTE 8,'FUNCTION NAME NOT SPECIFIED' 00021000
MEXIT 00022000
.ERR2 MNOTE 8,'INTERRUPT ADDRESS NOT SPECIFIED' 00023000
MEND 00024000