User Tools

Site Tools


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