cdc:nos2.source:opl.opl871:deck:ihfu
Deck IHFU
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.ihfu +++| IDENT IHFU,FWA 00002 M00S00002.ihfu +++| ABS 00003 M00S00003.ihfu +++| ENTRY IHFU 00004 M00S00004.ihfu +++| BASE D 00005 M00S00005.ihfu +++| SYSCOM B1 00006 M00S00006.ihfu +++| TITLE IHFU - INJECT HARDWARE FAULT UTILITY. 00007 M00S00007.ihfu +++|*COMMENT IHFU - INJECT HARDWARE FAULT UTILITY.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1979.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M00S00009.ihfu +++|IHFU SPACE 4,10 00011 M00S00010.ihfu +++|*** IHFU - INJECT HARDWARE FAULT UTILITY. 00012 M00S00011.ihfu +++|* D. A. HENSELER. 79/04/25. 00013 M00S00012.ihfu +++|* P. C. SMITH. 88/06/16. 00014 M00S00013.ihfu +++|IHFU SPACE 4,30 00015 M00S00014.ihfu +++|*** IHFU - INJECT HARDWARE FAULT UTILITY. 00016 M00S00015.ihfu +++|* 00017 M00S00016.ihfu +++|* THIS UTILITY IS PROVIDED TO FORCE HARDWARE ERRORS FOR 00018 M00S00017.ihfu +++|* *DFT* CHECKOUT. 00019 M00S00018.ihfu +++|* 00020 M00S00019.ihfu +++|* IHFU,FAULT,MODE,TRAPS,RMA. 00021 M00S00020.ihfu +++|* 00022 M00S00021.ihfu +++|* FAULT - FAULT KIND. ALLOWABLE VALUES ARE *RETRY*, 00023 M00S00022.ihfu +++|* *EXCHANG*, *TRAP*, *HALT*, *PDMHALT* 00024 M00S00023.ihfu +++|* OR *SOFTERR*. 00025 M00S00024.ihfu +++|* MODE - ALLOWABLE VALUES ARE *JOB* OR *MONITOR*. 00026 M00S00025.ihfu +++|* TRAPS - TRAPS ENABLED. ALLOWABLE VALUES ARE *TRUE* 00027 M00S00026.ihfu +++|* OR *FALSE*. 00028 M00S00027.ihfu +++|* RMA - REAL MEMORY ADDRESS PARITY ERROR. MUST BE 00029 M00S00028.ihfu +++|* AN OCTAL NUMBER DIVIDED BY 1000(8). 00030 M00S00029.ihfu +++|* 00031 M00S00030.ihfu +++|* EXAMPLE - 00032 M00S00031.ihfu +++|* 00033 M00S00032.ihfu +++|* IHFU(RETRY,JOB,FALSE,60000) 00034 M00S00033.ihfu +++|* 00035 M00S00034.ihfu +++|* NOTE - THIS UTILITY REQUIRES SPECIAL PRIVILEGES IN ORDER TO 00036 M00S00035.ihfu +++|* ISSUE THE 017 INSTRUCTIONS THAT REQUEST *EI* TO INJECT 00037 M00S00036.ihfu +++|* THE HARDWARE FAULT. 00038 M00S00037.ihfu +++|* 00039 M00S00038.ihfu +++|* THESE PRIVILEGES MAY BE OBTAINED EITHER BY RUNNING 00040 M00S00039.ihfu +++|* THIS UTILITY AS THE *NVE* SUBSYSTEM, OR BY USING THE 00041 M00S00040.ihfu +++|* *IPRDECK* ENTRY *ENABLE, HARDWARE FAULT INJECTION*. 00042 M00S00041.ihfu +++|* 00043 M00S00042.ihfu +++|* THERE IS A FAULT INJECTION UTILITY THAT IS ACTIVATED 00044 M00S00043.ihfu +++|* FROM THE SYSTEM CORE DEBUGGER FOR INJECTING FAULTS ON 00045 M00S00044.ihfu +++|* THE 180 SIDE. ANY CHANGES MADE TO INJECT ERRORS HERE 00046 M00S00045.ihfu +++|* SHOULD ALSO BE ADDED THERE IF IT IS APPLICABLE. THE 00047 M00S00046.ihfu +++|* 180 FAULT INJECTION IS IN DECK 00048 M00S00047.ihfu +++|* *SYM$INJECT_HARDWARE_FAULTS*. 00049 M00S00048.ihfu +++|* 00050 M00S00049.ihfu +++|* SPECIAL MICROCODE IS ALSO REQUIRED TO INJECT HARDWARE 00051 M00S00050.ihfu +++|* FAULTS. 00052 M00S00051.ihfu +++|* 00053 M00S00052.ihfu +++| TITLE MACRO DEFINITIONS. 00054 M00S00053.ihfu +++|* MACRO DEFINITIONS. 00055 M00S00054.ihfu +++| RT SPACE 4,10 00056 M00S00055.ihfu +++|** RT - DEFINE THE RT INSTRUCTION. 00057 M00S00056.ihfu +++|* 00058 M00S00057.ihfu +++| RTX,X,Q OPDEF P1,P2,K 00059 M00S00058.ihfu +++|+ VFD 9/017B,3/P1,3/P2,15/K,30/0 00060 M00S00059.ihfu +++| ENDM 00061 M00S00060.ihfu +++| TITLE COMMON DECKS. 00062 M00S00061.ihfu +++|*CALL COMCMAC 00063 M00S00062.ihfu +++| LIST X 00064 M00S00063.ihfu +++|*CALL COMSCVS 00065 M00S00064.ihfu +++| LIST * 00066 M00S00065.ihfu +++| TITLE MAIN PROGRAM. 00067 M00S00066.ihfu +++| ORG 110B 00068 M00S00067.ihfu +++| FWA BSS 0 00069 M00S00068.ihfu +++| IHFU SPACE 4,10 00070 M00S00069.ihfu +++|** IHFU - MAIN PROGRAM. 00071 M00S00070.ihfu +++| 00072 M00S00071.ihfu +++| 00073 M00S00072.ihfu +++| IHFU BSS 0 ENTRY 00074 M00S00073.ihfu +++| SB1 1 00075 M00S00074.ihfu +++| SA1 B1+B1 FAULT KIND PARAMETER 00076 M00S00075.ihfu +++| SB2 HFK VERIFY HARDWARE FAULT KIND PARAMETER 00077 M00S00076.ihfu +++| SB3 HFKL 00078 M00S00077.ihfu +++| RJ VIP 00079 M00S00078.ihfu +++| NG X6,IHFU3 IF ERROR IN HARDWARE FAULT KIND 00080 M00S00079.ihfu +++| BX7 X6 FAULT KIND 00081 M00S00080.ihfu +++| SA1 A1+B1 MODE PARAMETER 00082 M00S00081.ihfu +++| SB2 MODE VERIFY MODE PARAMETER 00083 M00S00082.ihfu +++| SB3 MODEL 00084 M00S00083.ihfu +++| RJ VIP 00085 M00S00084.ihfu +++| NG X6,IHFU3 IF ERROR IN MODE FLAG 00086 M00S00085.ihfu +++| LX6 8+8 00087 M00S00086.ihfu +++| SA1 A1+B1 TRAPS ENABLED PARAMETER 00088 M00S00087.ihfu +++| BX7 X7+X6 COMBINE FAULT KIND AND MODE 00089 M00S00088.ihfu +++| SB2 TE VERIFY TRAPS ENABLED PARAMETER 00090 M00S00089.ihfu +++| SB3 TEL 00091 M00S00090.ihfu +++| RJ VIP 00092 M00S00091.ihfu +++| NG X6,IHFU3 IF ERROR IN TRAPS ENABLED FLAG 00093 M00S00092.ihfu +++| LX6 8 00094 M00S00093.ihfu +++| SA1 A1+B1 RMA/1000(8) OF PARITY ERROR PARAMETER 00095 M00S00094.ihfu +++| BX7 X7+X6 COMBINE TRAPS ENABLED, MODE AND FAULT KIND 00096 M00S00095.ihfu +++| RJ CDB CONVERT DISPLAY CODE TO BINARY 00097 M00S00096.ihfu +++| ZR X6,IHFU3 IF ERROR IN RMA OF PARITY ERROR 00098 M00S00097.ihfu +++| BX2 X6 (RMA OF PARITY ERROR)/1000(8) 00099 M00S00098.ihfu +++| BX1 X7 00100 M00S00099.ihfu +++| LX2 9 00101 M00S00100.ihfu +++| 00102 M00S00101.ihfu +++|* ISSUE *017* INSTRUCTION TO INJECT SPECIFIED FAULT. 00103 M00S00102.ihfu +++|* (X1) = 36/0 00104 M00S00103.ihfu +++|* 8/MODE 00105 M00S00104.ihfu +++|* 8/TRAPS ENABLED 00106 M00S00105.ihfu +++|* 8/FAULT KIND 00107 M00S00106.ihfu +++|* (X2) = RMA OF PARITY ERROR. 00108 M00S00107.ihfu +++| 00109 M00S00108.ihfu +++| RT X1,X2,CVSIHF INJECT ERROR 00110 M00S00109.ihfu +++| MX6 30 00111 M00S00110.ihfu +++| BX1 -X6*X1 ERROR CODE 00112 M00S00111.ihfu +++| BX2 X6*X0 NOS/VE DOWN FLAG 00113 M00S00112.ihfu +++| ZR X1,IHFU1 IF NO ERROR 00114 M00S00113.ihfu +++| MESSAGE IHFUB,5,R *EI DID NOT RECOGNIZE FAULT KIND.* 00115 M00S00114.ihfu +++| EQ IHFU4 ABORT THE JOB 00116 M00S00115.ihfu +++| 00117 M00S00116.ihfu +++| IHFU1 NZ X2,IHFU2 IF NOS/VE DOWN 00118 M00S00117.ihfu +++| MESSAGE IHFUC,5,R *NOS/VE UP, NEED EI.* 00119 M00S00118.ihfu +++| EQ IHFU4 ABORT THE JOB 00120 M00S00119.ihfu +++| 00121 M00S00120.ihfu +++| IHFU2 ENDRUN 00122 M00S00121.ihfu +++| 00123 M00S00122.ihfu +++| IHFU3 MESSAGE IHFUA,5,R *ERROR IN PARAMETER.* 00124 M00S00123.ihfu +++| IHFU4 ABORT 00125 M00S00124.ihfu +++| 00126 M00S00125.ihfu +++| 00127 M00S00126.ihfu +++| IHFUA DATA C*ERROR IN PARAMETER.* 00128 M00S00127.ihfu +++| IHFUB DATA C*EI DID NOT RECOGNIZE FAULT KIND.* 00129 M00S00128.ihfu +++| IHFUC DATA C*NOS/VE UP, NEED EI.* 00130 M00S00129.ihfu +++| TITLE PARAMETER TABLES. 00131 M00S00130.ihfu +++| HFK SPACE 4,10 00132 M00S00131.ihfu +++|* HFK - TABLE OF HARDWARE FAULT KIND VALUES. THE VALUES 00133 M00S00132.ihfu +++|* MUST MATCH VALUES DEFINED FOR THE 180 SIDE AND THE EI CODE. 00134 M00S00133.ihfu +++| 00135 M00S00134.ihfu +++| HFK BSS 0 00136 M00S00135.ihfu +++| VFD 42/5LRETRY,18/0 00137 M00S00136.ihfu +++| VFD 42/7LEXCHANG,18/1 00138 M00S00137.ihfu +++| VFD 42/4LTRAP,18/2 00139 M00S00138.ihfu +++| VFD 42/4LHALT,18/3 00140 M00S00139.ihfu +++| VFD 42/7LPDMHALT,18/4 00141 M00S00140.ihfu +++| VFD 42/7LSOFTERR,18/5 00142 M00S00141.ihfu +++| HFKL EQU *-HFK LENGTH OF TABLE 00143 M00S00142.ihfu +++| MODE SPACE 4,10 00144 M00S00143.ihfu +++|* MODE - TABLE OF MODE VALUES. 00145 M00S00144.ihfu +++| 00146 M00S00145.ihfu +++| MODE BSS 0 00147 M00S00146.ihfu +++| VFD 42/3LJOB,18/0 00148 M00S00147.ihfu +++| VFD 42/7LMONITOR,18/1 00149 M00S00148.ihfu +++| MODEL EQU *-MODE LENGTH OF TABLE 00150 M00S00149.ihfu +++| TE SPACE 4,10 00151 M00S00150.ihfu +++|* TE - TABLE OF TRAP ENABLED VALUES. 00152 M00S00151.ihfu +++| 00153 M00S00152.ihfu +++| TE BSS 0 00154 M00S00153.ihfu +++| VFD 42/5LFALSE,18/0 00155 M00S00154.ihfu +++| VFD 42/4LTRUE,18/1 00156 M00S00155.ihfu +++| TEL EQU *-TE LENGTH OF TABLE 00157 M00S00156.ihfu +++| TITLE SUBROUTINES. 00158 M00S00157.ihfu +++| CDB SPACE 4,10 00159 M00S00158.ihfu +++|** CDB - CONVERT DISPLAY CODE TO BINARY. 00160 M00S00159.ihfu +++|* 00161 M00S00160.ihfu +++|* *CDB* CONVERTS AN OCTAL DISPLAY CODE NUMBER TO ITS 00162 M00S00161.ihfu +++|* BINARY VALUE. 00163 M00S00162.ihfu +++|* 00164 M00S00163.ihfu +++|* ENTRY (X1) = OCTAL NUMBER TO CONVERT, LEFT JUSTIFIED WITH 00165 M00S00164.ihfu +++|* ZERO FILL. LOW ORDER 18 BITS ARE NOT CHECKED. 00166 M00S00165.ihfu +++|* 00167 M00S00166.ihfu +++|* EXIT (X6) = BINARY VALUE. 00168 M00S00167.ihfu +++|* (X6) = 0 IF (X1) WAS NOT OCTAL DISPLAY CODE VALUE. 00169 M00S00168.ihfu +++|* 00170 M00S00169.ihfu +++|* USES X - 0, 1, 3, 4, 6. 00171 M00S00170.ihfu +++|* B - 2. 00172 M00S00171.ihfu +++| 00173 M00S00172.ihfu +++| 00174 M00S00173.ihfu +++| CDB2 SX6 B0 RETURN WITH ERROR 00175 M00S00174.ihfu +++| 00176 M00S00175.ihfu +++| CDB SUBR ENTRY/EXIT 00177 M00S00176.ihfu +++| MX0 60-6 00178 M00S00177.ihfu +++| LX1 6 00179 M00S00178.ihfu +++| SX6 B0 INITIALIZE RESULT BINARY VALUE 00180 M00S00179.ihfu +++| SB2 7 00181 M00S00180.ihfu +++| CDB1 BX2 -X0*X1 DISPLAY CODE CHARACTER 00182 M00S00181.ihfu +++| SB2 B2-B1 DECREMENT CHARACTER COUNT 00183 M00S00182.ihfu +++| ZR X2,CDBX IF ALL CHARACTERS CONVERTED, RETURN 00184 M00S00183.ihfu +++| SX3 X2-1R0 SUBTRACT DISPLAY CODE BIAS 00185 M00S00184.ihfu +++| SX4 X2-1R8 00186 M00S00185.ihfu +++| LX6 3 00187 M00S00186.ihfu +++| NG X3,CDB2 IF NOT AN OCTAL NUMBER 00188 M00S00187.ihfu +++| PL X4,CDB2 IF NOT AN OCTAL NUMBER 00189 M00S00188.ihfu +++| LX1 6 POSITION NEXT CHARACTER 00190 M00S00189.ihfu +++| BX6 X6+X3 ADD NEXT BINARY DIGIT TO BINARY NUMBER 00191 M00S00190.ihfu +++| GE B2,B0,CDB1 IF MORE CHARACTERS TO CONVERT 00192 M00S00191.ihfu +++| EQ CDBX RETURN 00193 M00S00192.ihfu +++| VIP SPACE 4,20 00194 M00S00193.ihfu +++|** VIP - VERIFY INPUT PARAMETER. 00195 M00S00194.ihfu +++|* 00196 M00S00195.ihfu +++|* *VIP* CHECKS SPECIFIED PARAMETER TABLE FOR A MATCH 00197 M00S00196.ihfu +++|* AND RETURNS A PARAMETER VALUE. 00198 M00S00197.ihfu +++|* 00199 M00S00198.ihfu +++|* ENTRY (B2) = ADDRESS OF PARAMETER TABLE. 00200 M00S00199.ihfu +++|* (B3) = LENGTH OF PARAMETER TABLE. 00201 M00S00200.ihfu +++|* (X1) = PARAMETER CHECKING FOR, LEFT JUSTIFIED WITH 00202 M00S00201.ihfu +++|* ZERO FILL. LOW ORDER 18 BITS ARE NOT CHECKED. 00203 M00S00202.ihfu +++|* 00204 M00S00203.ihfu +++|* EXIT (X6) = PARAMETER VALUE. 00205 M00S00204.ihfu +++|* (X6) .LT. 0 IF PARAMETER NOT FOUND. 00206 M00S00205.ihfu +++|* 00207 M00S00206.ihfu +++|* USES X - 0, 2, 5, 6. 00208 M00S00207.ihfu +++|* A - 2. 00209 M00S00208.ihfu +++|* B - 3. 00210 M00S00209.ihfu +++| 00211 M00S00210.ihfu +++| 00212 M00S00211.ihfu +++| VIP SUBR ENTRY/EXIT 00213 M00S00212.ihfu +++| SA2 B2 INITIAL ENTRY IN PARAMETER TABLE 00214 M00S00213.ihfu +++| MX0 60-18 00215 M00S00214.ihfu +++| VIP1 BX5 X1-X2 00216 M00S00215.ihfu +++| BX6 -X0*X2 PARAMETER VALUE 00217 M00S00216.ihfu +++| SA2 A2+B1 NEXT ENTRY IN PARAMETER TABLE 00218 M00S00217.ihfu +++| BX5 X0*X5 00219 M00S00218.ihfu +++| SB3 B3-B1 DECREMENT TABLE LENGTH 00220 M00S00219.ihfu +++| ZR X5,VIPX IF MATCHING PARAMETER 00221 M00S00220.ihfu +++| GT B3,B0,VIP1 IF MORE ENTRIES IN PARAMETER TABLE 00222 M00S00221.ihfu +++| SX6 -B1 SET NO MATCHING PARAMETER FOUND 00223 M00S00222.ihfu +++| EQ VIPX RETURN 00224 M00S00223.ihfu +++| SPACE 4,10 00225 M00S00224.ihfu +++|* COMMON DECKS. 00226 M00S00225.ihfu +++| 00227 M00S00226.ihfu +++| 00228 M00S00227.ihfu +++|*CALL COMCSYS 00229 M00S00228.ihfu +++| 00230 M00S00229.ihfu +++| 00231 M00S00230.ihfu +++| END
cdc/nos2.source/opl.opl871/deck/ihfu.txt · Last modified: (external edit)