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