MACRO                                                 @V407510 00001000
&NAME    SIGNAL &FUNC,&CONTROL=                                @V407510 00002000
         GBLB  &AP                                             @V407510 00003000
         LCLB  &C,&D,&X,&E                                     @V407510 00004000
         LCLC  &ID                                             @V407510 00005000
&ID      SETC  '&SYSNDX'                                                00006000
         AIF   ('&AP' EQ '0').SETCC0                           @V407510 00007000
         AIF   (T'&NAME EQ 'O').S1                             @V407510 00008000
&NAME    DS    0H                                              @V407510 00009000
.S1      ANOP                                                  @V407510 00010000
         AIF   (T'&FUNC NE 'O').S2                             @V407510 00011000
         MNOTE 8,'REQUIRED POSITIONAL PARAMETER MISSING'       @V407510 00012000
         MEXIT                                                 @V407510 00013000
.S2      ANOP                                                  @V407510 00014000
         TM    APSTAT1,APUOPER   AP MODE?                      @V407510 00015000
         BNO   SIG&ID.A       NO, NO SIGNAL                    @V407510 00016000
&D       SETB  0                                               @V407510 00017000
&X       SETB  0                                               @V407510 00018000
&E       SETB  0                                               @V407510 00019000
         AIF   ('&FUNC' EQ 'SENSE').DIRECT                     @V407510 00020000
         AIF   ('&FUNC' EQ 'START').DIRECT                     @V407510 00021000
         AIF   ('&FUNC' EQ 'STOP').DIRECT                      @V407510 00022000
         AIF   ('&FUNC' EQ 'RESTART').DIRECT                   @V407510 00023000
         AIF   ('&FUNC' EQ 'IPR').DIRECT                       @V407510 00024000
         AIF   ('&FUNC' EQ 'SSS').DIRECT                       @V407510 00025000
         AIF   ('&FUNC' EQ 'PR').DIRECT                        @V407510 00026000
         AIF   ('&FUNC' EQ 'IML').DIRECT                       @V407510 00027000
         AIF   ('&FUNC' EQ 'ICR').DIRECT                       @V407510 00028000
         AIF   ('&FUNC' EQ 'CR').DIRECT                        @V407510 00029000
         AIF   ('&FUNC' EQ 'DISPATCH').EXTCAL                  @V407510 00030000
         AIF   ('&FUNC' EQ 'WAKEUP').EXTCAL                    @V407510 00031000
         AIF   ('&FUNC' EQ 'APR').EXTCAL                       @V407510 00032000
         AIF   ('&FUNC' EQ 'RESUME').EXTCAL                    @V407510 00033000
         AIF   ('&FUNC' EQ 'QUIESCE').EMER                     @V407510 00034000
         AIF   ('&FUNC' EQ 'EXTEND').EMER                      @V407510 00035000
         AIF   ('&FUNC' EQ 'SYNC').EMER                        @V407510 00036000
         AIF   ('&FUNC' EQ 'SHUTDOWN').EMER                    @V407510 00037000
         AIF   ('&FUNC' EQ 'CLKCHK').EMER                      @V407510 00038000
         MNOTE 8,'INVALID POSITIONAL PARAMETER'                @V407510 00039000
         AGO   .EXIT                                           @V407510 00040000
.DIRECT  ANOP                                                  @V407510 00041000
&D       SETB  1                                               @V407510 00042000
         AGO   .CONTROL                                        @V407510 00043000
.EMER    ANOP                                                  @V407510 00044000
&E       SETB  1                                               @V407510 00045000
         AGO   .CONTROL                                        @V407510 00046000
.EXTCAL  ANOP                                                  @V407510 00047000
&X       SETB  1                                               @V407510 00048000
.CONTROL ANOP                                                  @V407510 00049000
         AIF   ('&CONTROL' NE 'AUTO').TEST1                    @V407510 00050000
         LH    R0,IPUADDR     SIGNAL SELF                      @V407510 00051000
         AGO   .TEST2                                          @V407510 00052000
.TEST1   ANOP                                                  @V407510 00053000
         LH    R0,IPUADDRX    SIGNAL OTHER PROCESSOR           @V407510 00054000
.TEST2   ANOP                                                  @V407510 00055000
&C       SETB  0                                               @V407510 00056000
         AIF   ('&CONTROL' EQ 'AUTO').DEFAULT                  @V407510 00057000
         AIF   ('&CONTROL' EQ 'SERIAL').SER                    @V407510 00058000
         AIF   ('&CONTROL' EQ 'PARALLEL').PAR                  @V407510 00059000
         AIF   (T'&CONTROL EQ 'O').DEFAULT                     @V407510 00060000
         MNOTE 8,'INVALID CONTROL= PARAMETER'                  @V407510 00061000
         AGO   .EXIT                                           @V407510 00062000
.DEFAULT    ANOP                                               @V407510 00063000
         AIF   ('&X' EQ '1').FUNC1                             @V407510 00064000
         AIF   ('&E' EQ '1').SER                               @V407510 00065000
         AGO   .FUNC1                                          @V407510 00066000
.PAR     ANOP                                                  @V407510 00067000
         AIF   ('&E' EQ '1').ERR2                              @V407510 00068000
         AGO   .FUNC1                                          @V407510 00069000
.SER     ANOP                                                  @V407510 00070000
         AIF   ('&CONTROL' EQ 'AUTO').ERR1                     @V407510 00071000
         AIF   ('&X' EQ '1').ERR3                              @V407510 00072000
&C       SETB  1                                               @V407510 00073000
.FUNC1   ANOP                                                  @V407510 00074000
         AIF   ('&D' NE '1').FUNC2                             @V407510 00075000
         AIF   ('&C' EQ '1').ERR                               @V407510 00076000
.FUNC2   ANOP                                                  @V407510 00077000
         AIF   ('&FUNC' EQ 'SENSE').SENSE                      @V407510 00078000
         AIF   ('&FUNC' EQ 'START').START                      @V407510 00079000
         AIF   ('&FUNC' EQ 'STOP').STOP                        @V407510 00080000
         AIF   ('&FUNC' EQ 'RESTART').RESTART                  @V407510 00081000
         AIF   ('&FUNC' EQ 'IPR').IPR                          @V407510 00082000
         AIF   ('&FUNC' EQ 'SSS').SSS                          @V407510 00083000
         AIF   ('&FUNC' EQ 'PR').PR                            @V407510 00084000
         AIF   ('&FUNC' EQ 'IML').IML                          @V407510 00085000
         AIF   ('&FUNC' EQ 'ICR').ICR                          @V407510 00086000
         AIF   ('&FUNC' EQ 'CR').CR                            @V407510 00087000
         AIF   ('&FUNC' EQ 'DISPATCH').DISPATC                 @V407510 00088000
         AIF   ('&FUNC' EQ 'WAKEUP').WAKEUP                    @V407510 00089000
         AIF   ('&FUNC' EQ 'APR').APR                          @V407510 00090000
         AIF   ('&FUNC' EQ 'RESUME').RESUME                    @V407510 00091000
         AIF   ('&FUNC' EQ 'QUIESCE').QUIESCE                  @V407510 00092000
         AIF   ('&FUNC' EQ 'EXTEND').EXTEND                    @V407510 00093000
         AIF   ('&FUNC' EQ 'SYNC').SYNC                        @V407510 00094000
         AIF   ('&FUNC' EQ 'SHUTDOWN').SHUTDON                 @V407510 00095000
         AIF   ('&FUNC' EQ 'CLKCHK').CLKCHK                    @V407510 00096000
.SENSE   ANOP                                                  @V407510 00097000
         LA    R1,SIGSENSE    SENSE ORDER CODE                 @V407510 00098000
         AGO   .BR                                             @V407510 00099000
.START   ANOP                                                  @V407510 00100000
         LA    R1,SIGSTART    START ORDER CODE                 @V407510 00101000
         AGO   .BR                                             @V407510 00102000
.STOP    ANOP                                                  @V407510 00103000
         LA    R1,SIGSTOP     STOP ORDER CODE                  @V407510 00104000
         AGO   .BR                                             @V407510 00105000
.RESTART ANOP                                                  @V407510 00106000
         LA   R1,SIGREST      RESTRT ORDER CODE                @V407510 00107000
         AGO   .BR                                             @V407510 00108000
.IPR     ANOP                                                  @V407510 00109000
         LA    R1,SIGIPR      INITIAL PROGRAM RESET ORDER CODE @V407510 00110000
         AGO     .BR                                           @V407510 00111000
.PR      ANOP                                                  @V407510 00112000
         LA    R1,SIGPR       PROGRAM RESET ORDER CODE         @V407510 00113000
         AGO   .BR                                             @V407510 00114000
.SSS     ANOP                                                  @V407510 00115000
         LA    R1,SIGSSS      STOP AND STORE STATUS ORDER CODE @V407510 00116000
         AGO   .BR                                             @V407510 00117000
.IML     ANOP                                                  @V407510 00118000
         LA    R1,SIGIML      INITIAL MICROPGM LOAD ORDER CODE @V407510 00119000
         AGO   .BR                                             @V407510 00120000
.ICR     ANOP                                                  @V407510 00121000
         LA    R1,SIGICR      INITIAL CPU RESET ORDER CODE     @V407510 00122000
         AGO   .BR                                             @V407510 00123000
.CR      ANOP                                                  @V407510 00124000
         LA    R1,SIGCR       CPU RESET ORDER CODE             @V407510 00125000
         AGO   .BR                                             @V407510 00126000
.DISPATC ANOP                                                  @V407510 00127000
         LA    R1,SIGDISP+SIGXC  DISPATCH EXT CALL             @V407510 00128000
         AGO   .BR                                             @V407510 00129000
.WAKEUP  ANOP                                                  @V407510 00130000
         LA    R1,SIGWAKE+SIGXC  WAKEUP EXT CALL               @V407510 00131000
         AGO   .BR                                             @V407510 00132000
.APR     ANOP                                                  @V407510 00133000
         LA    R1,SIGAPR+SIGXC   APR EXT CALL                  @V407510 00134000
         AGO   .BR                                             @V407510 00135000
.RESUME  ANOP                                                  @V407510 00136000
         LA   R1,SIGRES+SIGXC    RESUME EXT CALL               @V407510 00137000
         AGO   .BR                                             @V407510 00138000
.QUIESCE ANOP                                                  @V407510 00139000
         LA    R1,SIGQUI+SIGEMS  QUIESCE EMS                   @V407510 00140000
         AGO   .BR                                             @V407510 00141000
.EXTEND  ANOP                                                  @V407510 00142000
         LA    R1,SIGEXT+SIGEMS  EXTEND EMS                    @V407510 00143000
         AGO   .BR                                             @V407510 00144000
.SYNC    ANOP                                                  @V407510 00145000
         LA    R1,SIGSYNC+SIGEMS SYNC EMS                      @V407510 00146000
         AGO   .BR                                             @V407510 00147000
.SHUTDON ANOP                                                  @V407510 00148000
         LA    R1,SIGSHD+SIGEMS  SHUTDOWN EMS                  @V407510 00149000
         AGO   .BR                                             @V407510 00150000
.CLKCHK  ANOP                                                  @V407510 00151000
         LA    R1,SIGCLK+SIGEMS  CLOCK CHECK EMS               @V407510 00152000
.BR      ANOP                                                  @V407510 00153000
         AIF   ('&C' EQ '0').BR1                               @V407510 00154000
         LNR   R1,R1          INDICATE SERIAL REQUEST          @V407510 00155000
.BR1     ANOP                                                  @V407510 00156000
         L     R15,AEXTSP     ADDRESS OF DMKEXTSP              @V407510 00157000
         BALR  R14,R15        GO TO DMKEXTSP                   @V407510 00158000
         AGO   .EXIT                                           @V407510 00159000
.ERR     ANOP                                                  @V407510 00160000
         MNOTE 8,'DIRECT, SERIAL REQUEST INVALID'              @V407510 00161000
         AGO   .EXIT                                           @V407510 00162000
.ERR1    ANOP                                                  @V407510 00163000
         MNOTE 8,'SERIAL REQUEST TO SELF- INVALID'             @V407510 00164000
         AGO   .EXIT                                           @V407510 00165000
.ERR2    ANOP                                                  @V407510 00166000
         MNOTE 8,'PARALLEL REQUEST FOR SERIAL SIGNAL- INVALID' @V407510 00167000
         AGO   .EXIT                                           @V407510 00168000
.ERR3    ANOP                                                  @V407510 00169000
         MNOTE 8,'SERIAL REQUEST FOR PARALLEL SIGNAL- INVALID' @V407510 00170000
.EXIT    ANOP                                                  @V407510 00171000
SIG&ID.A DS    0H                                              @V407510 00172000
         MEXIT                                                          00173000
.SETCC0  ANOP                     @V407510                              00174000
        MEND                                                   @V407510 00176000