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