cdc:nos2.source:opl.opl871:deck:ihfu
Deck IHFU
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.ihfu +++| IDENT IHFU,FWA 00002 M01S00002.ihfu +++| ABS 00003 M01S00003.ihfu +++| ENTRY IHFU 00004 M01S00004.ihfu +++| BASE D 00005 M01S00005.ihfu +++| SYSCOM B1 00006 M01S00006.ihfu +++| TITLE IHFU - INJECT HARDWARE FAULT UTILITY. 00007 M01S00007.ihfu +++|*COMMENT IHFU - INJECT HARDWARE FAULT UTILITY.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ihfu |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M02S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1979. 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M01S00009.ihfu +++|IHFU SPACE 4,10 00011 M01S00010.ihfu +++|*** IHFU - INJECT HARDWARE FAULT UTILITY. 00012 M01S00011.ihfu +++|* D. A. HENSELER. 79/04/25. 00013 M01S00012.ihfu +++|* P. C. SMITH. 88/06/16. 00014 M01S00013.ihfu +++|IHFU SPACE 4,30 00015 M01S00014.ihfu +++|*** IHFU - INJECT HARDWARE FAULT UTILITY. 00016 M01S00015.ihfu +++|* 00017 M01S00016.ihfu +++|* THIS UTILITY IS PROVIDED TO FORCE HARDWARE ERRORS FOR 00018 M01S00017.ihfu +++|* *DFT* CHECKOUT. 00019 M01S00018.ihfu +++|* 00020 M01S00019.ihfu +++|* IHFU,FAULT,MODE,TRAPS,RMA. 00021 M01S00020.ihfu +++|* 00022 M01S00021.ihfu +++|* FAULT - FAULT KIND. ALLOWABLE VALUES ARE *RETRY*, 00023 M01S00022.ihfu +++|* *EXCHANG*, *TRAP*, *HALT*, *PDMHALT* 00024 M01S00023.ihfu +++|* OR *SOFTERR*. 00025 M01S00024.ihfu +++|* MODE - ALLOWABLE VALUES ARE *JOB* OR *MONITOR*. 00026 M01S00025.ihfu +++|* TRAPS - TRAPS ENABLED. ALLOWABLE VALUES ARE *TRUE* 00027 M01S00026.ihfu +++|* OR *FALSE*. 00028 M01S00027.ihfu +++|* RMA - REAL MEMORY ADDRESS PARITY ERROR. MUST BE 00029 M01S00028.ihfu +++|* AN OCTAL NUMBER DIVIDED BY 1000(8). 00030 M01S00029.ihfu +++|* 00031 M01S00030.ihfu +++|* EXAMPLE - 00032 M01S00031.ihfu +++|* 00033 M01S00032.ihfu +++|* IHFU(RETRY,JOB,FALSE,60000) 00034 M01S00033.ihfu +++|* 00035 M01S00034.ihfu +++|* NOTE - THIS UTILITY REQUIRES SPECIAL PRIVILEGES IN ORDER TO 00036 M01S00035.ihfu +++|* ISSUE THE 017 INSTRUCTIONS THAT REQUEST *EI* TO INJECT 00037 M01S00036.ihfu +++|* THE HARDWARE FAULT. 00038 M01S00037.ihfu +++|* 00039 M01S00038.ihfu +++|* THESE PRIVILEGES MAY BE OBTAINED EITHER BY RUNNING 00040 M01S00039.ihfu +++|* THIS UTILITY AS THE *NVE* SUBSYSTEM, OR BY USING THE 00041 M01S00040.ihfu +++|* *IPRDECK* ENTRY *ENABLE, HARDWARE FAULT INJECTION*. 00042 M01S00041.ihfu +++|* 00043 M01S00042.ihfu +++|* THERE IS A FAULT INJECTION UTILITY THAT IS ACTIVATED 00044 M01S00043.ihfu +++|* FROM THE SYSTEM CORE DEBUGGER FOR INJECTING FAULTS ON 00045 M01S00044.ihfu +++|* THE 180 SIDE. ANY CHANGES MADE TO INJECT ERRORS HERE 00046 M01S00045.ihfu +++|* SHOULD ALSO BE ADDED THERE IF IT IS APPLICABLE. THE 00047 M01S00046.ihfu +++|* 180 FAULT INJECTION IS IN DECK 00048 M01S00047.ihfu +++|* *SYM$INJECT_HARDWARE_FAULTS*. 00049 M01S00048.ihfu +++|* 00050 M01S00049.ihfu +++|* SPECIAL MICROCODE IS ALSO REQUIRED TO INJECT HARDWARE 00051 M01S00050.ihfu +++|* FAULTS. 00052 M01S00051.ihfu +++|* 00053 M01S00052.ihfu +++| TITLE MACRO DEFINITIONS. 00054 M01S00053.ihfu +++|* MACRO DEFINITIONS. 00055 M01S00054.ihfu +++| RT SPACE 4,10 00056 M01S00055.ihfu +++|** RT - DEFINE THE RT INSTRUCTION. 00057 M01S00056.ihfu +++|* 00058 M01S00057.ihfu +++| RTX,X,Q OPDEF P1,P2,K 00059 M01S00058.ihfu +++|+ VFD 9/017B,3/P1,3/P2,15/K,30/0 00060 M01S00059.ihfu +++| ENDM 00061 M01S00060.ihfu +++| TITLE COMMON DECKS. 00062 M01S00061.ihfu +++|*CALL COMCMAC 00063 M01S00062.ihfu +++| LIST X 00064 M01S00063.ihfu +++|*CALL COMSCVS 00065 M01S00064.ihfu +++| LIST * 00066 M01S00065.ihfu +++| TITLE MAIN PROGRAM. 00067 M01S00066.ihfu +++| ORG 110B 00068 M01S00067.ihfu +++| FWA BSS 0 00069 M01S00068.ihfu +++| IHFU SPACE 4,10 00070 M01S00069.ihfu +++|** IHFU - MAIN PROGRAM. 00071 M01S00070.ihfu +++| 00072 M01S00071.ihfu +++| 00073 M01S00072.ihfu +++| IHFU BSS 0 ENTRY 00074 M01S00073.ihfu +++| SB1 1 00075 M01S00074.ihfu +++| SA1 B1+B1 FAULT KIND PARAMETER 00076 M01S00075.ihfu +++| SB2 HFK VERIFY HARDWARE FAULT KIND PARAMETER 00077 M01S00076.ihfu +++| SB3 HFKL 00078 M01S00077.ihfu +++| RJ VIP 00079 M01S00078.ihfu +++| NG X6,IHFU3 IF ERROR IN HARDWARE FAULT KIND 00080 M01S00079.ihfu +++| BX7 X6 FAULT KIND 00081 M01S00080.ihfu +++| SA1 A1+B1 MODE PARAMETER 00082 M01S00081.ihfu +++| SB2 MODE VERIFY MODE PARAMETER 00083 M01S00082.ihfu +++| SB3 MODEL 00084 M01S00083.ihfu +++| RJ VIP 00085 M01S00084.ihfu +++| NG X6,IHFU3 IF ERROR IN MODE FLAG 00086 M01S00085.ihfu +++| LX6 8+8 00087 M01S00086.ihfu +++| SA1 A1+B1 TRAPS ENABLED PARAMETER 00088 M01S00087.ihfu +++| BX7 X7+X6 COMBINE FAULT KIND AND MODE 00089 M01S00088.ihfu +++| SB2 TE VERIFY TRAPS ENABLED PARAMETER 00090 M01S00089.ihfu +++| SB3 TEL 00091 M01S00090.ihfu +++| RJ VIP 00092 M01S00091.ihfu +++| NG X6,IHFU3 IF ERROR IN TRAPS ENABLED FLAG 00093 M01S00092.ihfu +++| LX6 8 00094 M01S00093.ihfu +++| SA1 A1+B1 RMA/1000(8) OF PARITY ERROR PARAMETER 00095 M01S00094.ihfu +++| BX7 X7+X6 COMBINE TRAPS ENABLED, MODE AND FAULT KIND 00096 M01S00095.ihfu +++| RJ CDB CONVERT DISPLAY CODE TO BINARY 00097 M01S00096.ihfu +++| ZR X6,IHFU3 IF ERROR IN RMA OF PARITY ERROR 00098 M01S00097.ihfu +++| BX2 X6 (RMA OF PARITY ERROR)/1000(8) 00099 M01S00098.ihfu +++| BX1 X7 00100 M01S00099.ihfu +++| LX2 9 00101 M01S00100.ihfu +++| 00102 M01S00101.ihfu +++|* ISSUE *017* INSTRUCTION TO INJECT SPECIFIED FAULT. 00103 M01S00102.ihfu +++|* (X1) = 36/0 00104 M01S00103.ihfu +++|* 8/MODE 00105 M01S00104.ihfu +++|* 8/TRAPS ENABLED 00106 M01S00105.ihfu +++|* 8/FAULT KIND 00107 M01S00106.ihfu +++|* (X2) = RMA OF PARITY ERROR. 00108 M01S00107.ihfu +++| 00109 M01S00108.ihfu +++| RT X1,X2,CVSIHF INJECT ERROR 00110 M01S00109.ihfu +++| MX6 30 00111 M01S00110.ihfu +++| BX1 -X6*X1 ERROR CODE 00112 M01S00111.ihfu +++| BX2 X6*X0 NOS/VE DOWN FLAG 00113 M01S00112.ihfu +++| ZR X1,IHFU1 IF NO ERROR 00114 M01S00113.ihfu +++| MESSAGE IHFUB,5,R *EI DID NOT RECOGNIZE FAULT KIND.* 00115 M01S00114.ihfu +++| EQ IHFU4 ABORT THE JOB 00116 M01S00115.ihfu +++| 00117 M01S00116.ihfu +++| IHFU1 NZ X2,IHFU2 IF NOS/VE DOWN 00118 M01S00117.ihfu +++| MESSAGE IHFUC,5,R *NOS/VE UP, NEED EI.* 00119 M01S00118.ihfu +++| EQ IHFU4 ABORT THE JOB 00120 M01S00119.ihfu +++| 00121 M01S00120.ihfu +++| IHFU2 ENDRUN 00122 M01S00121.ihfu +++| 00123 M01S00122.ihfu +++| IHFU3 MESSAGE IHFUA,5,R *ERROR IN PARAMETER.* 00124 M01S00123.ihfu +++| IHFU4 ABORT 00125 M01S00124.ihfu +++| 00126 M01S00125.ihfu +++| 00127 M01S00126.ihfu +++| IHFUA DATA C*ERROR IN PARAMETER.* 00128 M01S00127.ihfu +++| IHFUB DATA C*EI DID NOT RECOGNIZE FAULT KIND.* 00129 M01S00128.ihfu +++| IHFUC DATA C*NOS/VE UP, NEED EI.* 00130 M01S00129.ihfu +++| TITLE PARAMETER TABLES. 00131 M01S00130.ihfu +++| HFK SPACE 4,10 00132 M01S00131.ihfu +++|* HFK - TABLE OF HARDWARE FAULT KIND VALUES. THE VALUES 00133 M01S00132.ihfu +++|* MUST MATCH VALUES DEFINED FOR THE 180 SIDE AND THE EI CODE. 00134 M01S00133.ihfu +++| 00135 M01S00134.ihfu +++| HFK BSS 0 00136 M01S00135.ihfu +++| VFD 42/5LRETRY,18/0 00137 M01S00136.ihfu +++| VFD 42/7LEXCHANG,18/1 00138 M01S00137.ihfu +++| VFD 42/4LTRAP,18/2 00139 M01S00138.ihfu +++| VFD 42/4LHALT,18/3 00140 M01S00139.ihfu +++| VFD 42/7LPDMHALT,18/4 00141 M01S00140.ihfu +++| VFD 42/7LSOFTERR,18/5 00142 M01S00141.ihfu +++| HFKL EQU *-HFK LENGTH OF TABLE 00143 M01S00142.ihfu +++| MODE SPACE 4,10 00144 M01S00143.ihfu +++|* MODE - TABLE OF MODE VALUES. 00145 M01S00144.ihfu +++| 00146 M01S00145.ihfu +++| MODE BSS 0 00147 M01S00146.ihfu +++| VFD 42/3LJOB,18/0 00148 M01S00147.ihfu +++| VFD 42/7LMONITOR,18/1 00149 M01S00148.ihfu +++| MODEL EQU *-MODE LENGTH OF TABLE 00150 M01S00149.ihfu +++| TE SPACE 4,10 00151 M01S00150.ihfu +++|* TE - TABLE OF TRAP ENABLED VALUES. 00152 M01S00151.ihfu +++| 00153 M01S00152.ihfu +++| TE BSS 0 00154 M01S00153.ihfu +++| VFD 42/5LFALSE,18/0 00155 M01S00154.ihfu +++| VFD 42/4LTRUE,18/1 00156 M01S00155.ihfu +++| TEL EQU *-TE LENGTH OF TABLE 00157 M01S00156.ihfu +++| TITLE SUBROUTINES. 00158 M01S00157.ihfu +++| CDB SPACE 4,10 00159 M01S00158.ihfu +++|** CDB - CONVERT DISPLAY CODE TO BINARY. 00160 M01S00159.ihfu +++|* 00161 M01S00160.ihfu +++|* *CDB* CONVERTS AN OCTAL DISPLAY CODE NUMBER TO ITS 00162 M01S00161.ihfu +++|* BINARY VALUE. 00163 M01S00162.ihfu +++|* 00164 M01S00163.ihfu +++|* ENTRY (X1) = OCTAL NUMBER TO CONVERT, LEFT JUSTIFIED WITH 00165 M01S00164.ihfu +++|* ZERO FILL. LOW ORDER 18 BITS ARE NOT CHECKED. 00166 M01S00165.ihfu +++|* 00167 M01S00166.ihfu +++|* EXIT (X6) = BINARY VALUE. 00168 M01S00167.ihfu +++|* (X6) = 0 IF (X1) WAS NOT OCTAL DISPLAY CODE VALUE. 00169 M01S00168.ihfu +++|* 00170 M01S00169.ihfu +++|* USES X - 0, 1, 3, 4, 6. 00171 M01S00170.ihfu +++|* B - 2. 00172 M01S00171.ihfu +++| 00173 M01S00172.ihfu +++| 00174 M01S00173.ihfu +++| CDB2 SX6 B0 RETURN WITH ERROR 00175 M01S00174.ihfu +++| 00176 M01S00175.ihfu +++| CDB SUBR ENTRY/EXIT 00177 M01S00176.ihfu +++| MX0 60-6 00178 M01S00177.ihfu +++| LX1 6 00179 M01S00178.ihfu +++| SX6 B0 INITIALIZE RESULT BINARY VALUE 00180 M01S00179.ihfu +++| SB2 7 00181 M01S00180.ihfu +++| CDB1 BX2 -X0*X1 DISPLAY CODE CHARACTER 00182 M01S00181.ihfu +++| SB2 B2-B1 DECREMENT CHARACTER COUNT 00183 M01S00182.ihfu +++| ZR X2,CDBX IF ALL CHARACTERS CONVERTED, RETURN 00184 M01S00183.ihfu +++| SX3 X2-1R0 SUBTRACT DISPLAY CODE BIAS 00185 M01S00184.ihfu +++| SX4 X2-1R8 00186 M01S00185.ihfu +++| LX6 3 00187 M01S00186.ihfu +++| NG X3,CDB2 IF NOT AN OCTAL NUMBER 00188 M01S00187.ihfu +++| PL X4,CDB2 IF NOT AN OCTAL NUMBER 00189 M01S00188.ihfu +++| LX1 6 POSITION NEXT CHARACTER 00190 M01S00189.ihfu +++| BX6 X6+X3 ADD NEXT BINARY DIGIT TO BINARY NUMBER 00191 M01S00190.ihfu +++| GE B2,B0,CDB1 IF MORE CHARACTERS TO CONVERT 00192 M01S00191.ihfu +++| EQ CDBX RETURN 00193 M01S00192.ihfu +++| VIP SPACE 4,20 00194 M01S00193.ihfu +++|** VIP - VERIFY INPUT PARAMETER. 00195 M01S00194.ihfu +++|* 00196 M01S00195.ihfu +++|* *VIP* CHECKS SPECIFIED PARAMETER TABLE FOR A MATCH 00197 M01S00196.ihfu +++|* AND RETURNS A PARAMETER VALUE. 00198 M01S00197.ihfu +++|* 00199 M01S00198.ihfu +++|* ENTRY (B2) = ADDRESS OF PARAMETER TABLE. 00200 M01S00199.ihfu +++|* (B3) = LENGTH OF PARAMETER TABLE. 00201 M01S00200.ihfu +++|* (X1) = PARAMETER CHECKING FOR, LEFT JUSTIFIED WITH 00202 M01S00201.ihfu +++|* ZERO FILL. LOW ORDER 18 BITS ARE NOT CHECKED. 00203 M01S00202.ihfu +++|* 00204 M01S00203.ihfu +++|* EXIT (X6) = PARAMETER VALUE. 00205 M01S00204.ihfu +++|* (X6) .LT. 0 IF PARAMETER NOT FOUND. 00206 M01S00205.ihfu +++|* 00207 M01S00206.ihfu +++|* USES X - 0, 2, 5, 6. 00208 M01S00207.ihfu +++|* A - 2. 00209 M01S00208.ihfu +++|* B - 3. 00210 M01S00209.ihfu +++| 00211 M01S00210.ihfu +++| 00212 M01S00211.ihfu +++| VIP SUBR ENTRY/EXIT 00213 M01S00212.ihfu +++| SA2 B2 INITIAL ENTRY IN PARAMETER TABLE 00214 M01S00213.ihfu +++| MX0 60-18 00215 M01S00214.ihfu +++| VIP1 BX5 X1-X2 00216 M01S00215.ihfu +++| BX6 -X0*X2 PARAMETER VALUE 00217 M01S00216.ihfu +++| SA2 A2+B1 NEXT ENTRY IN PARAMETER TABLE 00218 M01S00217.ihfu +++| BX5 X0*X5 00219 M01S00218.ihfu +++| SB3 B3-B1 DECREMENT TABLE LENGTH 00220 M01S00219.ihfu +++| ZR X5,VIPX IF MATCHING PARAMETER 00221 M01S00220.ihfu +++| GT B3,B0,VIP1 IF MORE ENTRIES IN PARAMETER TABLE 00222 M01S00221.ihfu +++| SX6 -B1 SET NO MATCHING PARAMETER FOUND 00223 M01S00222.ihfu +++| EQ VIPX RETURN 00224 M01S00223.ihfu +++| SPACE 4,10 00225 M01S00224.ihfu +++|* COMMON DECKS. 00226 M01S00225.ihfu +++| 00227 M01S00226.ihfu +++| 00228 M01S00227.ihfu +++|*CALL COMCSYS 00229 M01S00228.ihfu +++| 00230 M01S00229.ihfu +++| 00231 M01S00230.ihfu +++| END
cdc/nos2.source/opl.opl871/deck/ihfu.txt · Last modified: by 127.0.0.1