Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:common:compsrr
Common COMPSRR
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.compsrr +++| CTEXT COMPSRR - SET R-REGISTER. 00002 M01S00002.compsrr +++| IF -DEF,QUAL$,1 00003 M01S00003.compsrr +++| QUAL COMPSRR
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | compsrr |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00004 M02S00004.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1992. 00005 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00006 M01S00005.compsrr +++| SRR SPACE 4 00007 M01S00006.compsrr +++|*** SRR - SET R-REGISTER. 00008 M01S00007.compsrr +++|* D. O. HAMNES. 92/03/18. 00009 M01S00008.compsrr +++| SRR SPACE 4,15 00010 M01S00009.compsrr +++|*** *COMPSRR* MAY BE USED TO SET AND RESTORE THE VALUE OF 00011 M01S00010.compsrr +++|* THE R-REGISTER ON MAINFRAMES WHICH SUPPORT R-REGISTERS. 00012 M01S00011.compsrr +++|* 00013 M01S00012.compsrr +++|* IF *SRR$* IS DEFINED, THEN THE CONTENTS OF DIRECT CELLS 00014 M01S00013.compsrr +++|* T1 AND T2 WILL NOT BE RESTORED. IF NOT DEFINED, 00015 M01S00014.compsrr +++|* THEN THEY WILL BE RESTORED TO THEIR VALUES UPON ENTRY. 00016 M01S00015.compsrr +++|* 00017 M01S00016.compsrr +++|* IF *PRR$* IS DEFINED, THEN THE PRESET ROUTINE *PRR* WILL 00018 M01S00017.compsrr +++|* BE DEFINED IN A REMOTE BLOCK LABELED *PRR*. 00019 M01S00018.compsrr +++|* 00020 M01S00019.compsrr +++|* IF *PIR$* IS DEFINED, THEN THE SPECIAL PRESET ROUTINE 00021 M01S00020.compsrr +++|* *PIR* WILL BE DEFINED. IF *PRR$* IS ALSO DEFINED, THEN 00022 M01S00021.compsrr +++|* THE CODE FOR THIS ROUTINE WILL ALSO BE IN THE *PRR* REMOTE 00023 M01S00022.compsrr +++|* BLOCK. 00024 M01S00023.compsrr +++| SRR SPACE 4,15 00025 M01S00024.compsrr +++|** SRR - SET R-REGISTER. 00026 M01S00025.compsrr +++|* 00027 M01S00026.compsrr +++|* ENTRY (RRRB - RRRC) = R-REGISTER VALUE TO BE SET. 00028 M01S00027.compsrr +++|* 00029 M01S00028.compsrr +++|* EXIT (R) = (RRRB - RRRC), IF R-REGISTER PRESENT. 00030 M01S00029.compsrr +++|* (T1 - T2) RESTORED IF SRR$ NOT DEFINED. 00031 M01S00030.compsrr +++|* (RRRD - RRRE) = (R) UPON ENTRY. 00032 M01S00031.compsrr +++|* 00033 M01S00032.compsrr +++|* USES T0, T1, T2. 00034 M01S00033.compsrr +++|* 00035 M01S00034.compsrr +++|* CALLS NONE. 00036 M01S00035.compsrr +++| 00037 M01S00036.compsrr +++| 00038 M01S00037.compsrr +++| SRR SUBR ENTRY/EXIT 00039 M01S00038.compsrr +++| SRRA UJN RRR1 SAVE DIRECT CELLS IF DESIRED 00040 M01S00039.compsrr +++|* UJN SRRX (R-REGISTERS NOT SUPPORTED) 00041 M01S00040.compsrr +++| RRR SPACE 4,15 00042 M01S00041.compsrr +++|** RRR - RESTORE R-REGISTER. 00043 M01S00042.compsrr +++|* 00044 M01S00043.compsrr +++|* ENTRY (RRRD - RRRE) = R-REGISTER VALUE TO BE SET. 00045 M01S00044.compsrr +++|* (NORMALLY ESTABLISHED BY *SRR*). 00046 M01S00045.compsrr +++|* 00047 M01S00046.compsrr +++|* EXIT (R) = (RRRD - RRRE), IF R-REGISTER PRESENT. 00048 M01S00047.compsrr +++|* (T1 - T2) RESTORED IF SRR$ NOT DEFINED. 00049 M01S00048.compsrr +++|* 00050 M01S00049.compsrr +++|* USES T0, T1, T2. 00051 M01S00050.compsrr +++|* 00052 M01S00051.compsrr +++|* CALLS NONE. 00053 M01S00052.compsrr +++| 00054 M01S00053.compsrr +++| 00055 M01S00054.compsrr +++| RRR2 LDC ** 00056 M01S00055.compsrr +++| RRRD EQU *-1 00057 M01S00056.compsrr +++| STD T1 00058 M01S00057.compsrr +++| LDC ** 00059 M01S00058.compsrr +++| RRRE EQU *-1 00060 M01S00059.compsrr +++| STD T2 00061 M01S00060.compsrr +++| LRD T1 00062 M01S00061.compsrr +++| SOM RRRH 00063 M01S00062.compsrr +++| 00064 M01S00063.compsrr +++|* RESTORE DIRECT CELLS. 00065 M01S00064.compsrr +++| 00066 M01S00065.compsrr +++| RRR3 BSS 0 00067 M01S00066.compsrr +++| SRR$ IF -DEF,SRR$ 00068 M01S00067.compsrr +++| LDC ** RESTORE DIRECT CELLS WHICH ARE USED 00069 M01S00068.compsrr +++| RRRF EQU *-1 00070 M01S00069.compsrr +++| STD T1 00071 M01S00070.compsrr +++| LDC ** 00072 M01S00071.compsrr +++| RRRG EQU *-1 00073 M01S00072.compsrr +++| STD T2 00074 M01S00073.compsrr +++| SRR$ ENDIF 00075 M01S00074.compsrr +++| LDD T0 00076 M01S00075.compsrr +++| ZJN SRRX IF *SRR* CALL 00077 M01S00076.compsrr +++|* UJN RRRX RETURN TO CALLER OF *RRR* 00078 M01S00077.compsrr +++| 00079 M01S00078.compsrr +++| RRR SUBR ENTRY/EXIT 00080 M01S00079.compsrr +++| RRRA AOM RRRH 00081 M01S00080.compsrr +++|* UJN RRRX (R-REGISTERS NOT SUPPORTED) 00082 M01S00081.compsrr +++| 00083 M01S00082.compsrr +++|* SAVE DIRECT CELLS. 00084 M01S00083.compsrr +++| 00085 M01S00084.compsrr +++| RRR1 BSS 0 00086 M01S00085.compsrr +++| SRR$ IF -DEF,SRR$ 00087 M01S00086.compsrr +++| LDD T1 00088 M01S00087.compsrr +++| STM RRRF 00089 M01S00088.compsrr +++| LDD T2 00090 M01S00089.compsrr +++| STM RRRG 00091 M01S00090.compsrr +++| SRR$ ENDIF 00092 M01S00091.compsrr +++| RRRH LDN 0 00093 M01S00092.compsrr +++|* LDN 1 (RRR ENTRY POINT) 00094 M01S00093.compsrr +++| STD T0 00095 M01S00094.compsrr +++| NJN RRR2 IF RESTORE 00096 M01S00095.compsrr +++| 00097 M01S00096.compsrr +++|* SAVE PRESENT VALUE OF R-REGISTER AND 00098 M01S00097.compsrr +++|* SET SAVED VALUE. 00099 M01S00098.compsrr +++| 00100 M01S00099.compsrr +++| SRD T1 00101 M01S00100.compsrr +++| LDD T1 SAVE CP RA 00102 M01S00101.compsrr +++| STM RRRD 00103 M01S00102.compsrr +++| LDD T2 00104 M01S00103.compsrr +++| STM RRRE 00105 M01S00104.compsrr +++| LDC ** SET SAVED R-REGISTER VALUE 00106 M01S00105.compsrr +++| RRRB EQU *-1 00107 M01S00106.compsrr +++| STD T1 00108 M01S00107.compsrr +++| LDC ** 00109 M01S00108.compsrr +++| RRRC EQU *-1 00110 M01S00109.compsrr +++| STD T2 00111 M01S00110.compsrr +++| LRD T1 00112 M01S00111.compsrr +++| LJM RRR3 RESTORE DIRECT CELLS 00113 M01S00112.compsrr +++| PRR SPACE 4,10 00114 M01S00113.compsrr +++|** PRR - PRESET *COMPSRR* CODE. 00115 M01S00114.compsrr +++|* 00116 M01S00115.compsrr +++|* EXIT DETERMINATION HAS BEEN MADE AS TO WHETHER R-REGISTERS 00117 M01S00116.compsrr +++|* ARE SUPPORTTED ON THE MACHINE. IF THEY ARE NOT, THEN 00118 M01S00117.compsrr +++|* THE FIRST INSTRUCTION OF EACH OF *SRR* AND *RRR* IS 00119 M01S00118.compsrr +++|* SET TO EXIT THE ROUTINE. 00120 M01S00119.compsrr +++|* (A) .LT. 0, IF R-REGISTERS NOT SUPPORTED. 00121 M01S00120.compsrr +++|* (A) .GE. 0, IF R-REGISTERS SUPPORTED. 00122 M01S00121.compsrr +++|* 00123 M01S00122.compsrr +++|* USES CM - CM+4. 00124 M01S00123.compsrr +++|* 00125 M01S00124.compsrr +++|* MACROS ISTORE. 00126 M01S00125.compsrr +++| 00127 M01S00126.compsrr +++| 00128 M01S00127.compsrr +++| PRR$ IF DEF,PRR$,1 00129 M01S00128.compsrr +++| PRR RMT 00130 M01S00129.compsrr +++| PRR SUBR ENTRY/EXIT 00131 M01S00130.compsrr +++| LDC MABL 00132 M01S00131.compsrr +++| CRD CM 00133 M01S00132.compsrr +++| LDD CM+1 00134 M01S00133.compsrr +++| SHN 21-13 00135 M01S00134.compsrr +++| PJN PRRX IF 180 CLASS MACHINE 00136 M01S00135.compsrr +++| ISTORE SRRA,(UJN SRRX) 00137 M01S00136.compsrr +++| ISTORE RRRA,(UJN RRRX) 00138 M01S00137.compsrr +++| LDC 400000 00139 M01S00138.compsrr +++| UJN PRRX RETURN 00140 M01S00139.compsrr +++| PRR$ IF DEF,PRR$,1 00141 M01S00140.compsrr +++| PRR RMT 00142 M01S00141.compsrr +++| PIR SPACE 4,10 00143 M01S00142.compsrr +++|** PIR - PRESET WITH IAF R-REGISTER. 00144 M01S00143.compsrr +++|* 00145 M01S00144.compsrr +++|* ENTRY IAF HAS BEEN DETERMINED TO BE ACCESSIBLE. 00146 M01S00145.compsrr +++|* 00147 M01S00146.compsrr +++|* EXIT (TA) = 4000B, IF R-REGISTERS PRESENT. 00148 M01S00147.compsrr +++|* = IAF RA/100B, IF R-REGISTERS NOT PRESENT. 00149 M01S00148.compsrr +++|* 00150 M01S00149.compsrr +++|* USES CM - CM+4, TA. 00151 M01S00150.compsrr +++|* 00152 M01S00151.compsrr +++|* CALLS PRR. 00153 M01S00152.compsrr +++| 00154 M01S00153.compsrr +++| 00155 M01S00154.compsrr +++| PIR$ IF DEF,PIR$ 00156 M01S00155.compsrr +++| PRR$ IF DEF,PRR$,1 00157 M01S00156.compsrr +++| PRR RMT 00158 M01S00157.compsrr +++| PIR SUBR ENTRY/EXIT 00159 M01S00158.compsrr +++| RJM PRR PRESET RESTORE R-REGISTER ROUTINES 00160 M01S00159.compsrr +++| MJN PIR1 IF R-REGISTERS NOT SUPPORTED 00161 M01S00160.compsrr +++| 00162 M01S00161.compsrr +++|* PRESET FOR MACHINE WITH R-REGISTER. 00163 M01S00162.compsrr +++| 00164 M01S00163.compsrr +++| .A IF DEF,/REM/VCPT 00165 M01S00164.compsrr +++| LDC /REM/VCPT*200+FLSW 00166 M01S00165.compsrr +++| .A ELSE 00167 M01S00166.compsrr +++| LDC //VCPT*200+FLSW 00168 M01S00167.compsrr +++| .A ENDIF 00169 M01S00168.compsrr +++| CRD CM 00170 M01S00169.compsrr +++| LDD CM+2 00171 M01S00170.compsrr +++| STM RRRB 00172 M01S00171.compsrr +++| LDD CM+3 00173 M01S00172.compsrr +++| STM RRRC 00174 M01S00173.compsrr +++| LDC 4000B SET R-REGISTER USE BIT 00175 M01S00174.compsrr +++| STD TA 00176 M01S00175.compsrr +++| UJN PIRX RETURN 00177 M01S00176.compsrr +++| 00178 M01S00177.compsrr +++|* PRESET FOR MACHINE WITHOUT R-REGISTER. 00179 M01S00178.compsrr +++| 00180 M01S00179.compsrr +++| PIR1 BSS 0 00181 M01S00180.compsrr +++| .A IF DEF,/REM/VCPT 00182 M01S00181.compsrr +++| LDC /REM/VCPT*200+FLSW 00183 M01S00182.compsrr +++| .A ELSE 00184 M01S00183.compsrr +++| LDC //VCPT*200+FLSW 00185 M01S00184.compsrr +++| .A ENDIF 00186 M01S00185.compsrr +++| CRD CM 00187 M01S00186.compsrr +++| LDD CM+3 SET IAF RA/100B 00188 M01S00187.compsrr +++| STD TA 00189 M01S00188.compsrr +++| LJM PIRX RETURN 00190 M01S00189.compsrr +++| PRR$ IF DEF,PRR$,1 00191 M01S00190.compsrr +++| RMT 00192 M01S00191.compsrr +++| PIR$ ENDIF 00193 M01S00192.compsrr +++| SPACE 4 00194 M01S00193.compsrr +++| QUAL$ IF -DEF,QUAL$ 00195 M01S00194.compsrr +++| QUAL * 00196 M01S00195.compsrr +++| SRR EQU /COMPSRR/SRR 00197 M01S00196.compsrr +++| RRR EQU /COMPSRR/RRR 00198 M01S00197.compsrr +++| PRR EQU /COMPSRR/PRR 00199 M01S00198.compsrr +++| PIR$ IF DEF,PIR$ 00200 M01S00199.compsrr +++| PIR EQU /COMPSRR/PIR 00201 M01S00200.compsrr +++| PIR$ ENDIF 00202 M01S00201.compsrr +++| QUAL$ ENDIF 00203 M01S00202.compsrr +++| ENDX
cdc/nos2.source/opl.opl871/common/compsrr.txt · Last modified: by 127.0.0.1