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