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