Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.compmrm +++| CTEXT COMPMRM - MAINTENANCE REGISTER MACROS.
00002 M00S00002.compmrm +++| SPACE 4,10
| Line S00003 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00003 M01S00003.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00004 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00005 M00S00004.compmrm +++| MRM SPACE 4,10
00006 M00S00005.compmrm +++|*** COMPMRM - MAINTENANCE REGISTER MACROS.
00007 M00S00006.compmrm +++|* B. R. HANSON 81/01/29.
00008 M00S00007.compmrm +++| SPACE 4,10
00009 M00S00008.compmrm +++|*** COMPMRM DEFINES SEVERAL MACROS WHICH ARE USED IN THE
00010 M00S00009.compmrm +++|* PACKAGES THAT NEED TO ACCESS THE MAINTENANCE CHANNEL.
00011 M00S00010.compmrm +++|* THE USE OF THESE MACROS REQUIRES THE PRESENCE OF THE
00012 M00S00011.compmrm +++|* COMMON DECK *COMPMRA* AND THE DEFINITION OF THE TAGS
00013 M00S00012.compmrm +++|* *RN*, *MRER*, AND OPTIONALLY *EC*. *RN* IS A DIRECT CELL
00014 M00S00013.compmrm +++|* USED TO PASS THE REGISTER NUMBER TO *AMR*. *MRER* IS
00015 M00S00014.compmrm +++|* THE ENTRY ADDRESS INTO AN ERROR PROCESSOR FOR FATAL
00016 M00S00015.compmrm +++|* MAINTENANCE CHANNEL ERRORS. *EC* IS THE DIRECT CELL
00017 M00S00016.compmrm +++|* USED BY THE MACROS TO OBTAIN THE DEFAULT PORT ACCESS CODE.
00018 M00S00017.compmrm +++| EXITMR SPACE 4,10
00019 M00S00018.compmrm +++|** EXITMR - SET MAINTENANCE REGISTER EXIT ADDRESS.
00020 M00S00019.compmrm +++|*
00021 M00S00020.compmrm +++|* EXITMR ADDR
00022 M00S00021.compmrm +++|*
00023 M00S00022.compmrm +++|* ENTRY *ADDR* = ADDRESS TO CALL IF AN ERROR OCCURS.
00024 M00S00023.compmrm +++|
00025 M00S00024.compmrm +++|
00026 M00S00025.compmrm +++| PURGMAC EXITMR
00027 M00S00026.compmrm +++|
00028 M00S00027.compmrm +++| EXITMR MACRO ADDR
00029 M00S00028.compmrm +++| MACREF EXITMR
00030 M00S00029.compmrm +++| LDC ADDR
00031 M00S00030.compmrm +++| STM MRED SET ERROR EXIT ADDRESS
00032 M00S00031.compmrm +++| EXITMR ENDM
00033 M00S00032.compmrm +++| FUNCMR SPACE 4,10
00034 M00S00033.compmrm +++|** FUNCMR - FUNCTION MAINTENANCE CHANNEL.
00035 M00S00034.compmrm +++|*
00036 M00S00035.compmrm +++|* FUNCMR PAC,FUNCTION
00037 M00S00036.compmrm +++|*
00038 M00S00037.compmrm +++|* ENTRY *PAC* = ADDRESS OF PORT ACCESS CODE FOR DESIRED
00039 M00S00038.compmrm +++|* ELEMENT. *EC* IS ASSUMED IF NO PARAMETER IS GIVEN.
00040 M00S00039.compmrm +++|* *FUNCTION* = FUNCTION TO SEND TO ELEMENT.
00041 M00S00040.compmrm +++|*
00042 M00S00041.compmrm +++|* CALLS CMI, SMI.
00043 M00S00042.compmrm +++|
00044 M00S00043.compmrm +++|
00045 M00S00044.compmrm +++| PURGMAC FUNCMR
00046 M00S00045.compmrm +++|
00047 M00S00046.compmrm +++| FUNCMR MACRO PAC,FN
00048 M00S00047.compmrm +++| MACREF FUNCMR
00049 M00S00048.compmrm +++| LDK FN
00050 M00S00049.compmrm +++| .P IFC NE,$PAC$$
00051 M00S00050.compmrm +++| LMM PAC
00052 M00S00051.compmrm +++| .P ELSE
00053 M00S00052.compmrm +++| LMD EC
00054 M00S00053.compmrm +++| .P ENDIF
00055 M00S00054.compmrm +++| RJM SMI
00056 M00S00055.compmrm +++| FAN MR
00057 M00S00056.compmrm +++| RJM CMI
00058 M00S00057.compmrm +++| FUNCMR ENDM
00059 M00S00058.compmrm +++| LOCKMR SPACE 4,10
00060 M00S00059.compmrm +++|** LOCKMR - SET OR CLEAR A LONG TERM INTERLOCK ON THE
00061 M00S00060.compmrm +++|* MAINTENANCE CHANNEL.
00062 M00S00061.compmrm +++|*
00063 M00S00062.compmrm +++|* LOCKMR OP,ADDR
00064 M00S00063.compmrm +++|*
00065 M00S00064.compmrm +++|* ENTRY *OP* = *SET* TO SET THE LONG TERM INTERLOCK.
00066 M00S00065.compmrm +++|* *OP* = *CLEAR* TO CLEAR THE LONG TERM INTERLOCK.
00067 M00S00066.compmrm +++|* *ADDR* = OPTIONAL ERROR EXIT ADDRESS.
00068 M00S00067.compmrm +++|*
00069 M00S00068.compmrm +++|* CALLS CLI, SLI.
00070 M00S00069.compmrm +++|*
00071 M00S00070.compmrm +++|* MACROS EXITMR.
00072 M00S00071.compmrm +++|
00073 M00S00072.compmrm +++|
00074 M00S00073.compmrm +++| PURGMAC LOCKMR
00075 M00S00074.compmrm +++|
00076 M00S00075.compmrm +++| LOCKMR MACRO OP,ADDR
00077 M00S00076.compmrm +++| MACREF LOCKMR
00078 M00S00077.compmrm +++| .A IFC NE,$ADDR$$
00079 M00S00078.compmrm +++| EXITMR ADDR
00080 M00S00079.compmrm +++| .A ENDIF
00081 M00S00080.compmrm +++| .L IFC EQ,$OP$SET$
00082 M00S00081.compmrm +++| RJM SLI SET LONG TERM INTERLOCK
00083 M00S00082.compmrm +++| .L ELSE
00084 M00S00083.compmrm +++| IFC NE,$OP$CLEAR$,1
00085 M00S00084.compmrm +++| ERR ILLEGAL OPTION ON *LOCKMR*
00086 M00S00085.compmrm +++| RJM CLI CLEAR LONG TERM INTERLOCK
00087 M00S00086.compmrm +++| .L ENDIF
00088 M00S00087.compmrm +++| LOCKMR ENDM
00089 M00S00088.compmrm +++| READMR SPACE 4,15
00090 M00S00089.compmrm +++|** READMR - READ MAINTENANCE REGISTER.
00091 M00S00090.compmrm +++|*
00092 M00S00091.compmrm +++|* READMR A,PAC,REG,S
00093 M00S00092.compmrm +++|*
00094 M00S00093.compmrm +++|* ENTRY *A* = ADDRESS OF BUFFER FOR REGISTER DATA.
00095 M00S00094.compmrm +++|* *PAC* = ADDRESS OF PORT ACCESS CODE FOR DESIRED
00096 M00S00095.compmrm +++|* ELEMENT. *EC* IS USED IF PARAMETER OMITTED.
00097 M00S00096.compmrm +++|* *REG* = REGISTER NUMBER. IF OMITTED, THE REGISTER
00098 M00S00097.compmrm +++|* NUMBER IS OBTAINED FROM DIRECT CELL *RN*.
00099 M00S00098.compmrm +++|* *S* = SIZE OF REGISTER IN WORDS. ASSUMED TO BE 10.
00100 M00S00099.compmrm +++|*
00101 M00S00100.compmrm +++|* EXIT (A - A+S) = REGISTER DATA.
00102 M00S00101.compmrm +++|* (RN) = REGISTER NUMBER.
00103 M00S00102.compmrm +++|*
00104 M00S00103.compmrm +++|* CALLS AMR, CMI.
00105 M00S00104.compmrm +++|
00106 M00S00105.compmrm +++|
00107 M00S00106.compmrm +++| PURGMAC READMR
00108 M00S00107.compmrm +++|
00109 M00S00108.compmrm +++| READMR MACRO A,PAC,R,S
00110 M00S00109.compmrm +++| MACREF READMR
00111 M00S00110.compmrm +++| .R IFC NE,$R$$
00112 M00S00111.compmrm +++| LDK R
00113 M00S00112.compmrm +++| STD RN
00114 M00S00113.compmrm +++| .R ENDIF
00115 M00S00114.compmrm +++| .P IFC EQ,$PAC$$
00116 M00S00115.compmrm +++| LDD EC
00117 M00S00116.compmrm +++| .P ELSE
00118 M00S00117.compmrm +++| LDM PAC
00119 M00S00118.compmrm +++| .P ENDIF
00120 M00S00119.compmrm +++| LMC MRRD
00121 M00S00120.compmrm +++| RJM AMR
00122 M00S00121.compmrm +++| .S IFC NE,$S$$
00123 M00S00122.compmrm +++| LDN S
00124 M00S00123.compmrm +++| .S ENDIF
00125 M00S00124.compmrm +++| IAM A,MR
00126 M00S00125.compmrm +++| RJM CMI CLEAR INTERLOCK
00127 M00S00126.compmrm +++| READMR ENDM
00128 M00S00127.compmrm +++| WRITMR SPACE 4,15
00129 M00S00128.compmrm +++|** WRITMR - WRITE MAINTENANCE REGISTER.
00130 M00S00129.compmrm +++|*
00131 M00S00130.compmrm +++|* WRITMR A,PAC,REG,S
00132 M00S00131.compmrm +++|*
00133 M00S00132.compmrm +++|* ENTRY *A* = ADDRESS OF BUFFER OF REGISTER DATA.
00134 M00S00133.compmrm +++|* *PAC* = ADDRESS OF PORT ACCESS CODE FOR DESIRED
00135 M00S00134.compmrm +++|* ELEMENT. *EC* IS USED IF PARAMETER OMITTED.
00136 M00S00135.compmrm +++|* *REG* = REGISTER NUMBER. ASSUMED TO BE 10.
00137 M00S00136.compmrm +++|* NUMBER IS OBTAINED FROM DIRECT CELL *RN*.
00138 M00S00137.compmrm +++|* *S* = SIZE OF REGISTER IN WORDS. ASSUMED TO BE 10.
00139 M00S00138.compmrm +++|*
00140 M00S00139.compmrm +++|* EXIT DATA FROM (A - A+S) WRITTEN TO REGISTER.
00141 M00S00140.compmrm +++|* (RN) = REGISTER NUMBER.
00142 M00S00141.compmrm +++|*
00143 M00S00142.compmrm +++|* CALLS AMR, CMI.
00144 M00S00143.compmrm +++|
00145 M00S00144.compmrm +++|
00146 M00S00145.compmrm +++| PURGMAC WRITMR
00147 M00S00146.compmrm +++|
00148 M00S00147.compmrm +++| WRITMR MACRO A,PAC,R,S
00149 M00S00148.compmrm +++| MACREF WRITMR
00150 M00S00149.compmrm +++| .R IFC NE,$R$$
00151 M00S00150.compmrm +++| LDK R
00152 M00S00151.compmrm +++| STD RN
00153 M00S00152.compmrm +++| .R ENDIF
00154 M00S00153.compmrm +++| .P IFC NE,$PAC$$
00155 M00S00154.compmrm +++| LDM PAC
00156 M00S00155.compmrm +++| .P ELSE
00157 M00S00156.compmrm +++| LDD EC
00158 M00S00157.compmrm +++| .P ENDIF
00159 M00S00158.compmrm +++| LMC MRWT
00160 M00S00159.compmrm +++| RJM AMR
00161 M00S00160.compmrm +++| .S IFC NE,$S$$
00162 M00S00161.compmrm +++| LDC S
00163 M00S00162.compmrm +++| .S ENDIF
00164 M00S00163.compmrm +++| OAM A,MR
00165 M00S00164.compmrm +++| RJM CMI
00166 M00S00165.compmrm +++| WRITMR ENDM
00167 M00S00166.compmrm +++| SPACE 4
00168 M00S00167.compmrm +++| ENDX