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