cdc:nos2.source:opl.opl871:common:compmrm
Common COMPMRM
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.compmrm +++| CTEXT COMPMRM - MAINTENANCE REGISTER MACROS. 00002 M01S00002.compmrm +++| SPACE 4,10
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | compmrm |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00003 M02S00003.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981. 00004 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00005 M01S00004.compmrm +++| MRM SPACE 4,10 00006 M01S00005.compmrm +++|*** COMPMRM - MAINTENANCE REGISTER MACROS. 00007 M01S00006.compmrm +++|* B. R. HANSON 81/01/29. 00008 M01S00007.compmrm +++| SPACE 4,10 00009 M01S00008.compmrm +++|*** COMPMRM DEFINES SEVERAL MACROS WHICH ARE USED IN THE 00010 M01S00009.compmrm +++|* PACKAGES THAT NEED TO ACCESS THE MAINTENANCE CHANNEL. 00011 M01S00010.compmrm +++|* THE USE OF THESE MACROS REQUIRES THE PRESENCE OF THE 00012 M01S00011.compmrm +++|* COMMON DECK *COMPMRA* AND THE DEFINITION OF THE TAGS 00013 M01S00012.compmrm +++|* *RN*, *MRER*, AND OPTIONALLY *EC*. *RN* IS A DIRECT CELL 00014 M01S00013.compmrm +++|* USED TO PASS THE REGISTER NUMBER TO *AMR*. *MRER* IS 00015 M01S00014.compmrm +++|* THE ENTRY ADDRESS INTO AN ERROR PROCESSOR FOR FATAL 00016 M01S00015.compmrm +++|* MAINTENANCE CHANNEL ERRORS. *EC* IS THE DIRECT CELL 00017 M01S00016.compmrm +++|* USED BY THE MACROS TO OBTAIN THE DEFAULT PORT ACCESS CODE. 00018 M01S00017.compmrm +++| EXITMR SPACE 4,10 00019 M01S00018.compmrm +++|** EXITMR - SET MAINTENANCE REGISTER EXIT ADDRESS. 00020 M01S00019.compmrm +++|* 00021 M01S00020.compmrm +++|* EXITMR ADDR 00022 M01S00021.compmrm +++|* 00023 M01S00022.compmrm +++|* ENTRY *ADDR* = ADDRESS TO CALL IF AN ERROR OCCURS. 00024 M01S00023.compmrm +++| 00025 M01S00024.compmrm +++| 00026 M01S00025.compmrm +++| PURGMAC EXITMR 00027 M01S00026.compmrm +++| 00028 M01S00027.compmrm +++| EXITMR MACRO ADDR 00029 M01S00028.compmrm +++| MACREF EXITMR 00030 M01S00029.compmrm +++| LDC ADDR 00031 M01S00030.compmrm +++| STM MRED SET ERROR EXIT ADDRESS 00032 M01S00031.compmrm +++| EXITMR ENDM 00033 M01S00032.compmrm +++| FUNCMR SPACE 4,10 00034 M01S00033.compmrm +++|** FUNCMR - FUNCTION MAINTENANCE CHANNEL. 00035 M01S00034.compmrm +++|* 00036 M01S00035.compmrm +++|* FUNCMR PAC,FUNCTION 00037 M01S00036.compmrm +++|* 00038 M01S00037.compmrm +++|* ENTRY *PAC* = ADDRESS OF PORT ACCESS CODE FOR DESIRED 00039 M01S00038.compmrm +++|* ELEMENT. *EC* IS ASSUMED IF NO PARAMETER IS GIVEN. 00040 M01S00039.compmrm +++|* *FUNCTION* = FUNCTION TO SEND TO ELEMENT. 00041 M01S00040.compmrm +++|* 00042 M01S00041.compmrm +++|* CALLS CMI, SMI. 00043 M01S00042.compmrm +++| 00044 M01S00043.compmrm +++| 00045 M01S00044.compmrm +++| PURGMAC FUNCMR 00046 M01S00045.compmrm +++| 00047 M01S00046.compmrm +++| FUNCMR MACRO PAC,FN 00048 M01S00047.compmrm +++| MACREF FUNCMR 00049 M01S00048.compmrm +++| LDK FN 00050 M01S00049.compmrm +++| .P IFC NE,$PAC$$ 00051 M01S00050.compmrm +++| LMM PAC 00052 M01S00051.compmrm +++| .P ELSE 00053 M01S00052.compmrm +++| LMD EC 00054 M01S00053.compmrm +++| .P ENDIF 00055 M01S00054.compmrm +++| RJM SMI 00056 M01S00055.compmrm +++| FAN MR 00057 M01S00056.compmrm +++| RJM CMI 00058 M01S00057.compmrm +++| FUNCMR ENDM 00059 M01S00058.compmrm +++| LOCKMR SPACE 4,10 00060 M01S00059.compmrm +++|** LOCKMR - SET OR CLEAR A LONG TERM INTERLOCK ON THE 00061 M01S00060.compmrm +++|* MAINTENANCE CHANNEL. 00062 M01S00061.compmrm +++|* 00063 M01S00062.compmrm +++|* LOCKMR OP,ADDR 00064 M01S00063.compmrm +++|* 00065 M01S00064.compmrm +++|* ENTRY *OP* = *SET* TO SET THE LONG TERM INTERLOCK. 00066 M01S00065.compmrm +++|* *OP* = *CLEAR* TO CLEAR THE LONG TERM INTERLOCK. 00067 M01S00066.compmrm +++|* *ADDR* = OPTIONAL ERROR EXIT ADDRESS. 00068 M01S00067.compmrm +++|* 00069 M01S00068.compmrm +++|* CALLS CLI, SLI. 00070 M01S00069.compmrm +++|* 00071 M01S00070.compmrm +++|* MACROS EXITMR. 00072 M01S00071.compmrm +++| 00073 M01S00072.compmrm +++| 00074 M01S00073.compmrm +++| PURGMAC LOCKMR 00075 M01S00074.compmrm +++| 00076 M01S00075.compmrm +++| LOCKMR MACRO OP,ADDR 00077 M01S00076.compmrm +++| MACREF LOCKMR 00078 M01S00077.compmrm +++| .A IFC NE,$ADDR$$ 00079 M01S00078.compmrm +++| EXITMR ADDR 00080 M01S00079.compmrm +++| .A ENDIF 00081 M01S00080.compmrm +++| .L IFC EQ,$OP$SET$ 00082 M01S00081.compmrm +++| RJM SLI SET LONG TERM INTERLOCK 00083 M01S00082.compmrm +++| .L ELSE 00084 M01S00083.compmrm +++| IFC NE,$OP$CLEAR$,1 00085 M01S00084.compmrm +++| ERR ILLEGAL OPTION ON *LOCKMR* 00086 M01S00085.compmrm +++| RJM CLI CLEAR LONG TERM INTERLOCK 00087 M01S00086.compmrm +++| .L ENDIF 00088 M01S00087.compmrm +++| LOCKMR ENDM 00089 M01S00088.compmrm +++| READMR SPACE 4,15 00090 M01S00089.compmrm +++|** READMR - READ MAINTENANCE REGISTER. 00091 M01S00090.compmrm +++|* 00092 M01S00091.compmrm +++|* READMR A,PAC,REG,S 00093 M01S00092.compmrm +++|* 00094 M01S00093.compmrm +++|* ENTRY *A* = ADDRESS OF BUFFER FOR REGISTER DATA. 00095 M01S00094.compmrm +++|* *PAC* = ADDRESS OF PORT ACCESS CODE FOR DESIRED 00096 M01S00095.compmrm +++|* ELEMENT. *EC* IS USED IF PARAMETER OMITTED. 00097 M01S00096.compmrm +++|* *REG* = REGISTER NUMBER. IF OMITTED, THE REGISTER 00098 M01S00097.compmrm +++|* NUMBER IS OBTAINED FROM DIRECT CELL *RN*. 00099 M01S00098.compmrm +++|* *S* = SIZE OF REGISTER IN WORDS. ASSUMED TO BE 10. 00100 M01S00099.compmrm +++|* 00101 M01S00100.compmrm +++|* EXIT (A - A+S) = REGISTER DATA. 00102 M01S00101.compmrm +++|* (RN) = REGISTER NUMBER. 00103 M01S00102.compmrm +++|* 00104 M01S00103.compmrm +++|* CALLS AMR, CMI. 00105 M01S00104.compmrm +++| 00106 M01S00105.compmrm +++| 00107 M01S00106.compmrm +++| PURGMAC READMR 00108 M01S00107.compmrm +++| 00109 M01S00108.compmrm +++| READMR MACRO A,PAC,R,S 00110 M01S00109.compmrm +++| MACREF READMR 00111 M01S00110.compmrm +++| .R IFC NE,$R$$ 00112 M01S00111.compmrm +++| LDK R 00113 M01S00112.compmrm +++| STD RN 00114 M01S00113.compmrm +++| .R ENDIF 00115 M01S00114.compmrm +++| .P IFC EQ,$PAC$$ 00116 M01S00115.compmrm +++| LDD EC 00117 M01S00116.compmrm +++| .P ELSE 00118 M01S00117.compmrm +++| LDM PAC 00119 M01S00118.compmrm +++| .P ENDIF 00120 M01S00119.compmrm +++| LMC MRRD 00121 M01S00120.compmrm +++| RJM AMR 00122 M01S00121.compmrm +++| .S IFC NE,$S$$ 00123 M01S00122.compmrm +++| LDN S 00124 M01S00123.compmrm +++| .S ENDIF 00125 M01S00124.compmrm +++| IAM A,MR 00126 M01S00125.compmrm +++| RJM CMI CLEAR INTERLOCK 00127 M01S00126.compmrm +++| READMR ENDM 00128 M01S00127.compmrm +++| WRITMR SPACE 4,15 00129 M01S00128.compmrm +++|** WRITMR - WRITE MAINTENANCE REGISTER. 00130 M01S00129.compmrm +++|* 00131 M01S00130.compmrm +++|* WRITMR A,PAC,REG,S 00132 M01S00131.compmrm +++|* 00133 M01S00132.compmrm +++|* ENTRY *A* = ADDRESS OF BUFFER OF REGISTER DATA. 00134 M01S00133.compmrm +++|* *PAC* = ADDRESS OF PORT ACCESS CODE FOR DESIRED 00135 M01S00134.compmrm +++|* ELEMENT. *EC* IS USED IF PARAMETER OMITTED. 00136 M01S00135.compmrm +++|* *REG* = REGISTER NUMBER. ASSUMED TO BE 10. 00137 M01S00136.compmrm +++|* NUMBER IS OBTAINED FROM DIRECT CELL *RN*. 00138 M01S00137.compmrm +++|* *S* = SIZE OF REGISTER IN WORDS. ASSUMED TO BE 10. 00139 M01S00138.compmrm +++|* 00140 M01S00139.compmrm +++|* EXIT DATA FROM (A - A+S) WRITTEN TO REGISTER. 00141 M01S00140.compmrm +++|* (RN) = REGISTER NUMBER. 00142 M01S00141.compmrm +++|* 00143 M01S00142.compmrm +++|* CALLS AMR, CMI. 00144 M01S00143.compmrm +++| 00145 M01S00144.compmrm +++| 00146 M01S00145.compmrm +++| PURGMAC WRITMR 00147 M01S00146.compmrm +++| 00148 M01S00147.compmrm +++| WRITMR MACRO A,PAC,R,S 00149 M01S00148.compmrm +++| MACREF WRITMR 00150 M01S00149.compmrm +++| .R IFC NE,$R$$ 00151 M01S00150.compmrm +++| LDK R 00152 M01S00151.compmrm +++| STD RN 00153 M01S00152.compmrm +++| .R ENDIF 00154 M01S00153.compmrm +++| .P IFC NE,$PAC$$ 00155 M01S00154.compmrm +++| LDM PAC 00156 M01S00155.compmrm +++| .P ELSE 00157 M01S00156.compmrm +++| LDD EC 00158 M01S00157.compmrm +++| .P ENDIF 00159 M01S00158.compmrm +++| LMC MRWT 00160 M01S00159.compmrm +++| RJM AMR 00161 M01S00160.compmrm +++| .S IFC NE,$S$$ 00162 M01S00161.compmrm +++| LDC S 00163 M01S00162.compmrm +++| .S ENDIF 00164 M01S00163.compmrm +++| OAM A,MR 00165 M01S00164.compmrm +++| RJM CMI 00166 M01S00165.compmrm +++| WRITMR ENDM 00167 M01S00166.compmrm +++| SPACE 4 00168 M01S00167.compmrm +++| ENDX
cdc/nos2.source/opl.opl871/common/compmrm.txt · Last modified: by 127.0.0.1