Table of Contents

SIGNAL Source

References

Source Listing

SIGNAL.MACRO.txt
  1. MACRO @V407510 00001000
  2. &NAME SIGNAL &FUNC,&CONTROL= @V407510 00002000
  3. GBLB &AP @V407510 00003000
  4. LCLB &C,&D,&X,&E @V407510 00004000
  5. LCLC &ID @V407510 00005000
  6. &ID SETC '&SYSNDX' 00006000
  7. AIF ('&AP' EQ '0').SETCC0 @V407510 00007000
  8. AIF (T'&NAME EQ 'O').S1 @V407510 00008000
  9. &NAME DS 0H @V407510 00009000
  10. .S1 ANOP @V407510 00010000
  11. AIF (T'&FUNC NE 'O').S2 @V407510 00011000
  12. MNOTE 8,'REQUIRED POSITIONAL PARAMETER MISSING' @V407510 00012000
  13. MEXIT @V407510 00013000
  14. .S2 ANOP @V407510 00014000
  15. TM APSTAT1,APUOPER AP MODE? @V407510 00015000
  16. BNO SIG&ID.A NO, NO SIGNAL @V407510 00016000
  17. &D SETB 0 @V407510 00017000
  18. &X SETB 0 @V407510 00018000
  19. &E SETB 0 @V407510 00019000
  20. AIF ('&FUNC' EQ 'SENSE').DIRECT @V407510 00020000
  21. AIF ('&FUNC' EQ 'START').DIRECT @V407510 00021000
  22. AIF ('&FUNC' EQ 'STOP').DIRECT @V407510 00022000
  23. AIF ('&FUNC' EQ 'RESTART').DIRECT @V407510 00023000
  24. AIF ('&FUNC' EQ 'IPR').DIRECT @V407510 00024000
  25. AIF ('&FUNC' EQ 'SSS').DIRECT @V407510 00025000
  26. AIF ('&FUNC' EQ 'PR').DIRECT @V407510 00026000
  27. AIF ('&FUNC' EQ 'IML').DIRECT @V407510 00027000
  28. AIF ('&FUNC' EQ 'ICR').DIRECT @V407510 00028000
  29. AIF ('&FUNC' EQ 'CR').DIRECT @V407510 00029000
  30. AIF ('&FUNC' EQ 'DISPATCH').EXTCAL @V407510 00030000
  31. AIF ('&FUNC' EQ 'WAKEUP').EXTCAL @V407510 00031000
  32. AIF ('&FUNC' EQ 'APR').EXTCAL @V407510 00032000
  33. AIF ('&FUNC' EQ 'RESUME').EXTCAL @V407510 00033000
  34. AIF ('&FUNC' EQ 'QUIESCE').EMER @V407510 00034000
  35. AIF ('&FUNC' EQ 'EXTEND').EMER @V407510 00035000
  36. AIF ('&FUNC' EQ 'SYNC').EMER @V407510 00036000
  37. AIF ('&FUNC' EQ 'SHUTDOWN').EMER @V407510 00037000
  38. AIF ('&FUNC' EQ 'CLKCHK').EMER @V407510 00038000
  39. MNOTE 8,'INVALID POSITIONAL PARAMETER' @V407510 00039000
  40. AGO .EXIT @V407510 00040000
  41. .DIRECT ANOP @V407510 00041000
  42. &D SETB 1 @V407510 00042000
  43. AGO .CONTROL @V407510 00043000
  44. .EMER ANOP @V407510 00044000
  45. &E SETB 1 @V407510 00045000
  46. AGO .CONTROL @V407510 00046000
  47. .EXTCAL ANOP @V407510 00047000
  48. &X SETB 1 @V407510 00048000
  49. .CONTROL ANOP @V407510 00049000
  50. AIF ('&CONTROL' NE 'AUTO').TEST1 @V407510 00050000
  51. LH R0,IPUADDR SIGNAL SELF @V407510 00051000
  52. AGO .TEST2 @V407510 00052000
  53. .TEST1 ANOP @V407510 00053000
  54. LH R0,IPUADDRX SIGNAL OTHER PROCESSOR @V407510 00054000
  55. .TEST2 ANOP @V407510 00055000
  56. &C SETB 0 @V407510 00056000
  57. AIF ('&CONTROL' EQ 'AUTO').DEFAULT @V407510 00057000
  58. AIF ('&CONTROL' EQ 'SERIAL').SER @V407510 00058000
  59. AIF ('&CONTROL' EQ 'PARALLEL').PAR @V407510 00059000
  60. AIF (T'&CONTROL EQ 'O').DEFAULT @V407510 00060000
  61. MNOTE 8,'INVALID CONTROL= PARAMETER' @V407510 00061000
  62. AGO .EXIT @V407510 00062000
  63. .DEFAULT ANOP @V407510 00063000
  64. AIF ('&X' EQ '1').FUNC1 @V407510 00064000
  65. AIF ('&E' EQ '1').SER @V407510 00065000
  66. AGO .FUNC1 @V407510 00066000
  67. .PAR ANOP @V407510 00067000
  68. AIF ('&E' EQ '1').ERR2 @V407510 00068000
  69. AGO .FUNC1 @V407510 00069000
  70. .SER ANOP @V407510 00070000
  71. AIF ('&CONTROL' EQ 'AUTO').ERR1 @V407510 00071000
  72. AIF ('&X' EQ '1').ERR3 @V407510 00072000
  73. &C SETB 1 @V407510 00073000
  74. .FUNC1 ANOP @V407510 00074000
  75. AIF ('&D' NE '1').FUNC2 @V407510 00075000
  76. AIF ('&C' EQ '1').ERR @V407510 00076000
  77. .FUNC2 ANOP @V407510 00077000
  78. AIF ('&FUNC' EQ 'SENSE').SENSE @V407510 00078000
  79. AIF ('&FUNC' EQ 'START').START @V407510 00079000
  80. AIF ('&FUNC' EQ 'STOP').STOP @V407510 00080000
  81. AIF ('&FUNC' EQ 'RESTART').RESTART @V407510 00081000
  82. AIF ('&FUNC' EQ 'IPR').IPR @V407510 00082000
  83. AIF ('&FUNC' EQ 'SSS').SSS @V407510 00083000
  84. AIF ('&FUNC' EQ 'PR').PR @V407510 00084000
  85. AIF ('&FUNC' EQ 'IML').IML @V407510 00085000
  86. AIF ('&FUNC' EQ 'ICR').ICR @V407510 00086000
  87. AIF ('&FUNC' EQ 'CR').CR @V407510 00087000
  88. AIF ('&FUNC' EQ 'DISPATCH').DISPATC @V407510 00088000
  89. AIF ('&FUNC' EQ 'WAKEUP').WAKEUP @V407510 00089000
  90. AIF ('&FUNC' EQ 'APR').APR @V407510 00090000
  91. AIF ('&FUNC' EQ 'RESUME').RESUME @V407510 00091000
  92. AIF ('&FUNC' EQ 'QUIESCE').QUIESCE @V407510 00092000
  93. AIF ('&FUNC' EQ 'EXTEND').EXTEND @V407510 00093000
  94. AIF ('&FUNC' EQ 'SYNC').SYNC @V407510 00094000
  95. AIF ('&FUNC' EQ 'SHUTDOWN').SHUTDON @V407510 00095000
  96. AIF ('&FUNC' EQ 'CLKCHK').CLKCHK @V407510 00096000
  97. .SENSE ANOP @V407510 00097000
  98. LA R1,SIGSENSE SENSE ORDER CODE @V407510 00098000
  99. AGO .BR @V407510 00099000
  100. .START ANOP @V407510 00100000
  101. LA R1,SIGSTART START ORDER CODE @V407510 00101000
  102. AGO .BR @V407510 00102000
  103. .STOP ANOP @V407510 00103000
  104. LA R1,SIGSTOP STOP ORDER CODE @V407510 00104000
  105. AGO .BR @V407510 00105000
  106. .RESTART ANOP @V407510 00106000
  107. LA R1,SIGREST RESTRT ORDER CODE @V407510 00107000
  108. AGO .BR @V407510 00108000
  109. .IPR ANOP @V407510 00109000
  110. LA R1,SIGIPR INITIAL PROGRAM RESET ORDER CODE @V407510 00110000
  111. AGO .BR @V407510 00111000
  112. .PR ANOP @V407510 00112000
  113. LA R1,SIGPR PROGRAM RESET ORDER CODE @V407510 00113000
  114. AGO .BR @V407510 00114000
  115. .SSS ANOP @V407510 00115000
  116. LA R1,SIGSSS STOP AND STORE STATUS ORDER CODE @V407510 00116000
  117. AGO .BR @V407510 00117000
  118. .IML ANOP @V407510 00118000
  119. LA R1,SIGIML INITIAL MICROPGM LOAD ORDER CODE @V407510 00119000
  120. AGO .BR @V407510 00120000
  121. .ICR ANOP @V407510 00121000
  122. LA R1,SIGICR INITIAL CPU RESET ORDER CODE @V407510 00122000
  123. AGO .BR @V407510 00123000
  124. .CR ANOP @V407510 00124000
  125. LA R1,SIGCR CPU RESET ORDER CODE @V407510 00125000
  126. AGO .BR @V407510 00126000
  127. .DISPATC ANOP @V407510 00127000
  128. LA R1,SIGDISP+SIGXC DISPATCH EXT CALL @V407510 00128000
  129. AGO .BR @V407510 00129000
  130. .WAKEUP ANOP @V407510 00130000
  131. LA R1,SIGWAKE+SIGXC WAKEUP EXT CALL @V407510 00131000
  132. AGO .BR @V407510 00132000
  133. .APR ANOP @V407510 00133000
  134. LA R1,SIGAPR+SIGXC APR EXT CALL @V407510 00134000
  135. AGO .BR @V407510 00135000
  136. .RESUME ANOP @V407510 00136000
  137. LA R1,SIGRES+SIGXC RESUME EXT CALL @V407510 00137000
  138. AGO .BR @V407510 00138000
  139. .QUIESCE ANOP @V407510 00139000
  140. LA R1,SIGQUI+SIGEMS QUIESCE EMS @V407510 00140000
  141. AGO .BR @V407510 00141000
  142. .EXTEND ANOP @V407510 00142000
  143. LA R1,SIGEXT+SIGEMS EXTEND EMS @V407510 00143000
  144. AGO .BR @V407510 00144000
  145. .SYNC ANOP @V407510 00145000
  146. LA R1,SIGSYNC+SIGEMS SYNC EMS @V407510 00146000
  147. AGO .BR @V407510 00147000
  148. .SHUTDON ANOP @V407510 00148000
  149. LA R1,SIGSHD+SIGEMS SHUTDOWN EMS @V407510 00149000
  150. AGO .BR @V407510 00150000
  151. .CLKCHK ANOP @V407510 00151000
  152. LA R1,SIGCLK+SIGEMS CLOCK CHECK EMS @V407510 00152000
  153. .BR ANOP @V407510 00153000
  154. AIF ('&C' EQ '0').BR1 @V407510 00154000
  155. LNR R1,R1 INDICATE SERIAL REQUEST @V407510 00155000
  156. .BR1 ANOP @V407510 00156000
  157. L R15,AEXTSP ADDRESS OF DMKEXTSP @V407510 00157000
  158. BALR R14,R15 GO TO DMKEXTSP @V407510 00158000
  159. AGO .EXIT @V407510 00159000
  160. .ERR ANOP @V407510 00160000
  161. MNOTE 8,'DIRECT, SERIAL REQUEST INVALID' @V407510 00161000
  162. AGO .EXIT @V407510 00162000
  163. .ERR1 ANOP @V407510 00163000
  164. MNOTE 8,'SERIAL REQUEST TO SELF- INVALID' @V407510 00164000
  165. AGO .EXIT @V407510 00165000
  166. .ERR2 ANOP @V407510 00166000
  167. MNOTE 8,'PARALLEL REQUEST FOR SERIAL SIGNAL- INVALID' @V407510 00167000
  168. AGO .EXIT @V407510 00168000
  169. .ERR3 ANOP @V407510 00169000
  170. MNOTE 8,'SERIAL REQUEST FOR PARALLEL SIGNAL- INVALID' @V407510 00170000
  171. .EXIT ANOP @V407510 00171000
  172. SIG&ID.A DS 0H @V407510 00172000
  173. MEXIT 00173000
  174. .SETCC0 ANOP @V407510 00174000
  175. MEND @V407510 00176000