cdc:nos2.source:opl.opl871:common:comprli
Common COMPRLI
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comprli +++| CTEXT COMPRLI - RELOCATABLE OVERLAY MACROS.
| Line S00002 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00002 M01S00002.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00003 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00004 M00S00003.comprli +++| MACROS SPACE 4 00005 M00S00004.comprli +++|*** COMPRLI - RELOCATABLE OVERLAY MACROS. 00006 M00S00005.comprli +++|* G. R. MANSFIELD. 70/10/04. 00007 M00S00006.comprli +++| MACROS SPACE 4 00008 M00S00007.comprli +++|*** APPROPRIATE INSTRUCTIONS ARE RE-DEFINED SUCH THAT 00009 M00S00008.comprli +++|* PROPER CODE IS ASSEMBLED FOR RELOCATABLE OVERLAYS. 00010 M00S00009.comprli +++|* A RELOCATION TABLE IS GENERATED FOR ALL INSTRUCTIONS 00011 M00S00010.comprli +++|* WHICH MUST BE RELOCATED. -M- TYPE INSTRUCTIONS ARE 00012 M00S00011.comprli +++|* RELOCATED USING (LA) IF POSSIBLE. 00013 M00S00012.comprli +++|* IF THE SYMBOL *REL$* IS SET NON-ZERO, ALL -M- INSTRUCTIONS 00014 M00S00013.comprli +++|* WILL BE RELOCATED BY THE RELOCATION TABLE. 00015 M00S00014.comprli +++|* THE ORIGINAL DEFINITION OF THE INSTRUCTION MAY BE USED 00016 M00S00015.comprli +++|* WHERE APPROPRIATE, BY APPENDING A *.* TO THE OPCODE. 00017 M00S00016.comprli +++|* A *.* AFTER A -C- TYPE INSTRUCTION (LDC., LMC., ADC.) WILL 00018 M00S00017.comprli +++|* CAUSE RELOCATION, OTHERWISE THESE INSTRUCTIONS WILL NOT BE 00019 M00S00018.comprli +++|* RELOCATED. 00020 M00S00019.comprli +++|* 00021 M00S00020.comprli +++|* IF THE SYMBOL *RLI$* IS NOT DEFINED, RESULTANT CODE 00022 M00S00021.comprli +++|* WILL NOT BE QUALIFIED. THIS QUALIFIER (*REL*) IS LEFT 00023 M00S00022.comprli +++|* IN EFFECT, THEREFORE ALL CODE ASSEMBLED THEREAFTER WILL 00024 M00S00023.comprli +++|* BE QUALIFIED. THIS IS NECESSARY FOR THE RELOCATION MACROS 00025 M00S00024.comprli +++|* TO WORK PROPERLY, SINCE INSTRUCTIONS REFERENCING UNQUALIFIED 00026 M00S00025.comprli +++|* SYMBOLS ARE NOT RELOCATED. 00027 M00S00026.comprli +++|* 00028 M00S00027.comprli +++|* IF THE SYMBOL *RINST$* IS DEFINED, INSTRUCTIONS WILL BE 00029 M00S00028.comprli +++|* RESTORED ON EXIT FROM THIS DECK. 00030 M00S00029.comprli +++| RLIM SPACE 4 00031 M00S00030.comprli +++|** RLIM - DEFINE RELOCATION FOR -M- TYPE INSTRUCTIONS. 00032 M00S00031.comprli +++|* 00033 M00S00032.comprli +++|* 00034 M00S00033.comprli +++|* RLIM OPC,CODE 00035 M00S00034.comprli +++|* ENTRY *OPC* = INSTRUCTION MNEMONIC. 00036 M00S00035.comprli +++|* *CODE* = OPERATION CODE. 00037 M00S00036.comprli +++| 00038 M00S00037.comprli +++| 00039 M00S00038.comprli +++| RLIM MACRO OPC,CODE 00040 M00S00039.comprli +++| PURGMAC OPC 00041 M00S00040.comprli +++| OPC. PPOP 5,CODE 00042 M00S00041.comprli +++| OPC MACRO M,D 00043 M00S00042.comprli +++| LOCAL A 00044 M00S00043.comprli +++| .1 MICRO 1,1, M 00045 M00S00044.comprli +++| IFC GE,$".1"$0$,3 00046 M00S00045.comprli +++| IFC LE,$".1"$9$,2 00047 M00S00046.comprli +++| OPC. M,D 00048 M00S00047.comprli +++| .1 SKIP 00049 M00S00048.comprli +++| IF DEF,//M,2 00050 M00S00049.comprli +++| OPC. M,D 00051 M00S00050.comprli +++| .2 SKIP 00052 M00S00051.comprli +++| IFEQ REL$,,3 00053 M00S00052.comprli +++| IFEQ D,,2 00054 M00S00053.comprli +++| OPC. M,LA 00055 M00S00054.comprli +++| .3 SKIP 00056 M00S00055.comprli +++| OPC. M,D 00057 M00S00056.comprli +++| A EQU *-1 00058 M00S00057.comprli +++| RMT 00059 M00S00058.comprli +++| USE REL 00060 M00S00059.comprli +++| CON A 00061 M00S00060.comprli +++| RMT 00062 M00S00061.comprli +++| ENDIF 00063 M00S00062.comprli +++| OPC ENDM 00064 M00S00063.comprli +++| RLIM ENDM 00065 M00S00064.comprli +++| 00066 M00S00065.comprli +++| RLIM LJM,0100 00067 M00S00066.comprli +++| RLIM RJM,0200 00068 M00S00067.comprli +++| RLIM LDM,5000 00069 M00S00068.comprli +++| RLIM ADM,5100 00070 M00S00069.comprli +++| RLIM SBM,5200 00071 M00S00070.comprli +++| RLIM LMM,5300 00072 M00S00071.comprli +++| RLIM STM,5400 00073 M00S00072.comprli +++| RLIM RAM,5500 00074 M00S00073.comprli +++| RLIM AOM,5600 00075 M00S00074.comprli +++| RLIM SOM,5700 00076 M00S00075.comprli +++| RLIO SPACE 4 00077 M00S00076.comprli +++|** RLIO - DEFINE RELOCATION FOR -I/O- INSTRUCTIONS. 00078 M00S00077.comprli +++|* 00079 M00S00078.comprli +++|* 00080 M00S00079.comprli +++|* RLIO OPC,CODE 00081 M00S00080.comprli +++|* ENTRY *OPC* = INSTRUCTION MNEMONIC. 00082 M00S00081.comprli +++|* *CODE* = OPERATION CODE. 00083 M00S00082.comprli +++| 00084 M00S00083.comprli +++| 00085 M00S00084.comprli +++| RLIO MACRO OPC,CODE 00086 M00S00085.comprli +++| PURGMAC OPC 00087 M00S00086.comprli +++| OPC. PPOP 7,CODE 00088 M00S00087.comprli +++| OPC MACRO M,D 00089 M00S00088.comprli +++| LOCAL A 00090 M00S00089.comprli +++| .1 MICRO 1,1, M 00091 M00S00090.comprli +++| IFC GE,$".1"$0$,3 00092 M00S00091.comprli +++| IFC LE,$".1"$9$,2 00093 M00S00092.comprli +++| OPC. M,D 00094 M00S00093.comprli +++| .2 SKIP 00095 M00S00094.comprli +++| IF DEF,//M,2 00096 M00S00095.comprli +++| OPC. M,D 00097 M00S00096.comprli +++| .3 SKIP 00098 M00S00097.comprli +++| OPC. M,D 00099 M00S00098.comprli +++| A EQU *-1 00100 M00S00099.comprli +++| RMT 00101 M00S00100.comprli +++| USE REL 00102 M00S00101.comprli +++| CON A 00103 M00S00102.comprli +++| RMT 00104 M00S00103.comprli +++| ENDIF 00105 M00S00104.comprli +++| OPC ENDM 00106 M00S00105.comprli +++| RLIO ENDM 00107 M00S00106.comprli +++| 00108 M00S00107.comprli +++| RLIO CRM,6100 00109 M00S00108.comprli +++| RLIO CWM,6300 00110 M00S00109.comprli +++| RLIO AJM,6400 00111 M00S00110.comprli +++| RLIO IJM,6500 00112 M00S00111.comprli +++| RLIO FJM,6600 00113 M00S00112.comprli +++| RLIO EJM,6700 00114 M00S00113.comprli +++| RLIO IAM,7100 00115 M00S00114.comprli +++| RLIO OAM,7300 00116 M00S00115.comprli +++| RLIC SPACE 4 00117 M00S00116.comprli +++|** RLIC - DEFINE RELOCATABLE FORM FOR -C- TYPE INSTRUCTIONS. 00118 M00S00117.comprli +++|* 00119 M00S00118.comprli +++|* 00120 M00S00119.comprli +++|* RLIC OPC 00121 M00S00120.comprli +++|* ENTRY *OPC* = INSTRUCTION MNEMONIC. 00122 M00S00121.comprli +++| 00123 M00S00122.comprli +++| 00124 M00S00123.comprli +++| RLIC MACRO OPC 00125 M00S00124.comprli +++| OPC. MACRO C 00126 M00S00125.comprli +++| LOCAL A 00127 M00S00126.comprli +++| OPC C 00128 M00S00127.comprli +++| A EQU *-1 00129 M00S00128.comprli +++| RMT 00130 M00S00129.comprli +++| USE REL 00131 M00S00130.comprli +++| CON A 00132 M00S00131.comprli +++| RMT 00133 M00S00132.comprli +++| ENDM 00134 M00S00133.comprli +++| 00135 M00S00134.comprli +++| RLIC LDC 00136 M00S00135.comprli +++| RLIC ADC 00137 M00S00136.comprli +++| RLIC LMC 00138 M00S00137.comprli +++| RSTR SPACE 4 00139 M00S00138.comprli +++|*** RSTR - RESTORE ALL REDEFINED INSTRUCTIONS. 00140 M00S00139.comprli +++|* 00141 M00S00140.comprli +++|* 00142 M00S00141.comprli +++|* RSTR 00143 M00S00142.comprli +++|* ENTRY NONE. 00144 M00S00143.comprli +++| 00145 M00S00144.comprli +++| 00146 M00S00145.comprli +++| PURGMAC RSTR 00147 M00S00146.comprli +++| RSTR MACRO 00148 M00S00147.comprli +++| PURGMAC LJM 00149 M00S00148.comprli +++| PURGMAC RJM 00150 M00S00149.comprli +++| PURGMAC LDM 00151 M00S00150.comprli +++| PURGMAC ADM 00152 M00S00151.comprli +++| PURGMAC SBM 00153 M00S00152.comprli +++| PURGMAC LMM 00154 M00S00153.comprli +++| PURGMAC STM 00155 M00S00154.comprli +++| PURGMAC RAM 00156 M00S00155.comprli +++| PURGMAC AOM 00157 M00S00156.comprli +++| PURGMAC SOM 00158 M00S00157.comprli +++| PURGMAC CRM 00159 M00S00158.comprli +++| PURGMAC CWM 00160 M00S00159.comprli +++| PURGMAC AJM 00161 M00S00160.comprli +++| PURGMAC IJM 00162 M00S00161.comprli +++| PURGMAC FJM 00163 M00S00162.comprli +++| PURGMAC EJM 00164 M00S00163.comprli +++| PURGMAC IAM 00165 M00S00164.comprli +++| PURGMAC OAM 00166 M00S00165.comprli +++| LJM OPSYN LJM. 00167 M00S00166.comprli +++| RJM OPSYN RJM. 00168 M00S00167.comprli +++| PURGMAC LDC. 00169 M00S00168.comprli +++| PURGMAC ADC. 00170 M00S00169.comprli +++| PURGMAC LMC. 00171 M00S00170.comprli +++| LDM OPSYN LDM. 00172 M00S00171.comprli +++| ADM OPSYN ADM. 00173 M00S00172.comprli +++| SBM OPSYN SBM. 00174 M00S00173.comprli +++| LMM OPSYN LMM. 00175 M00S00174.comprli +++| STM OPSYN STM. 00176 M00S00175.comprli +++| AOM OPSYN AOM. 00177 M00S00176.comprli +++| RAM OPSYN RAM. 00178 M00S00177.comprli +++| SOM OPSYN SOM. 00179 M00S00178.comprli +++| CRM OPSYN CRM. 00180 M00S00179.comprli +++| CWM OPSYN CWM. 00181 M00S00180.comprli +++| AJM OPSYN AJM. 00182 M00S00181.comprli +++| IJM OPSYN IJM. 00183 M00S00182.comprli +++| FJM OPSYN FJM. 00184 M00S00183.comprli +++| EJM OPSYN EJM. 00185 M00S00184.comprli +++| IAM OPSYN IAM. 00186 M00S00185.comprli +++| OAM OPSYN OAM. 00187 M00S00186.comprli +++| ENDM 00188 M00S00187.comprli +++| REL SPACE 4 00189 M00S00188.comprli +++|** REL - RELOCATE INSTRUCTIONS. 00190 M00S00189.comprli +++| 00191 M00S00190.comprli +++| 00192 M00S00191.comprli +++| ORG 5 00193 M00S00192.comprli +++| REL$ SET 0 00194 M00S00193.comprli +++| IF -DEF,RLI$ 00195 M00S00194.comprli +++| QUAL REL 00196 M00S00195.comprli +++| ENDIF 00197 M00S00196.comprli +++| USE REL 00198 M00S00197.comprli +++| USE REL. 00199 M00S00198.comprli +++| USE 00200 M00S00199.comprli +++| RMT 00201 M00S00200.comprli +++| USE REL 00202 M00S00201.comprli +++| REL SUBR ENTRY/EXIT 00203 M00S00202.comprli +++| LDC .REL-1 SET FIRST ENTRY 00204 M00S00203.comprli +++| ADD LA 00205 M00S00204.comprli +++| STD T1 00206 M00S00205.comprli +++| REL1 AOD T1 00207 M00S00206.comprli +++| LDI T1 00208 M00S00207.comprli +++| ZJN RELX RETURN IF END OF TABLE 00209 M00S00208.comprli +++| ADD LA 00210 M00S00209.comprli +++| STD T2 00211 M00S00210.comprli +++| LDD LA 00212 M00S00211.comprli +++| ADC 770000B FORCE ADD OF END AROUND CARRY 00213 M00S00212.comprli +++| RAI T2 00214 M00S00213.comprli +++| UJN REL1 LOOP 00215 M00S00214.comprli +++| .REL BSS 0 00216 M00S00215.comprli +++| USE REL. 00217 M00S00216.comprli +++| CON 0 00218 M00S00217.comprli +++| RMT 00219 M00S00218.comprli +++| 00220 M00S00219.comprli +++| 00221 M00S00220.comprli +++| IF DEF,RINST$ 00222 M00S00221.comprli +++| RSTR RESTORE INSTRUCTIONS 00223 M00S00222.comprli +++| ENDIF 00224 M00S00223.comprli +++| SPACE 4 00225 M00S00224.comprli +++| ENDX
cdc/nos2.source/opl.opl871/common/comprli.txt · Last modified: by 127.0.0.1