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