cdc:nos2.source:opl.opl871:common:compmac
Common COMPMAC
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.compmac +++| CTEXT COMPMAC - PP SYSTEM MACROS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00002 M01S00001.281l803 +++| COMPMAC SPACE 4,10 00003 M01S00002.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00004 M00S00002.compmac +++| COMPMAC SPACE 4,10 00005 M00S00003.compmac +++|*** COMPMAC - PP SYSTEM MACROS. 00006 M00S00004.compmac +++|* G. R. MANSFIELD. 09/27/69. 00007 M00S00005.compmac +++|* W. E. GOEBEL. 78/07/12. 00008 M00S00006.compmac +++| COMPMAC SPACE 4,10 00009 M00S00007.compmac +++|*** COMPMAC DEFINES SEVERAL MACROS WHICH ARE USED IN THE 00010 M00S00008.compmac +++|* SYSTEM PP PACKAGES. 00011 M00S00009.compmac +++| COMPMAC SPACE 4,10 00012 M00S00010.compmac +++|*** SCRATCH SYMBOLS. 00013 M00S00011.compmac +++|* 00014 M00S00012.compmac +++|* 00015 M00S00013.compmac +++|* THE FOLLOWING SYMBOLS ARE USED IN MACROS FOR SCRATCH. 00016 M00S00014.compmac +++|* .1, .2, .3, .4, .5. 00017 M00S00015.compmac +++| 00018 M00S00016.compmac +++| 00019 M00S00017.compmac +++| NOREF .1,.2,.3,.4 00020 M00S00018.compmac +++| MACREF SPACE 4,10 00021 M00S00019.compmac +++|** MACREF - GENERATE MACRO SYMBOLIC REFERENCE TABLE LISTING. 00022 M00S00020.compmac +++|* 00023 M00S00021.compmac +++|* CAUSES THE MACRO NAME TO BE LISTED IN THE SYMBOLIC 00024 M00S00022.compmac +++|* REFERENCE TABLE UNDER THE QUALIFIER *MACRO$*. 00025 M00S00023.compmac +++|* 00026 M00S00024.compmac +++|* MACREF MNAME 00027 M00S00025.compmac +++|* MNAME MACRO NAME FOR REFERENCE TABLE. 00028 M00S00026.compmac +++| 00029 M00S00027.compmac +++| 00030 M00S00028.compmac +++| PURGMAC MACREF 00031 M00S00029.compmac +++| 00032 M00S00030.compmac +++| MACREF MACRO N 00033 M00S00031.compmac +++| QUAL MACRO$ 00034 M00S00032.compmac +++|N SET * 00035 M00S00033.compmac +++| QUAL * 00036 M00S00034.compmac +++| ENDM 00037 M00S00035.compmac +++| ADK SPACE 4,15 00038 M00S00036.compmac +++|*** ADK - ADD CONSTANT TO (A). 00039 M00S00037.compmac +++|* 00040 M00S00038.compmac +++|* GENERATES EITHER AN *ADC*, *ADN*, OR *SBN* INSTRUCTION, 00041 M00S00039.compmac +++|* DEPENDING UPON THE VALUE OF THE OPERAND. IF THE VALUE 00042 M00S00040.compmac +++|* OF THE OPERAND REDUCES TO ZERO, NO INSTRUCTION WILL BE 00043 M00S00041.compmac +++|* GENERATED. 00044 M00S00042.compmac +++|* 00045 M00S00043.compmac +++|* ADK K 00046 M00S00044.compmac +++|* 00047 M00S00045.compmac +++|* ENTRY K = CONSTANT TO BE ADDED TO (A). 00048 M00S00046.compmac +++|* 00049 M00S00047.compmac +++|* NOTE BECAUSE OF THE VARIABILITY OF THE CODE 00050 M00S00048.compmac +++|* GENERATED BY THIS MACRO, IT MUST NOT BE 00051 M00S00049.compmac +++|* CHANGED BY ON-LINE CODE MODIFICATION. 00052 M00S00050.compmac +++| 00053 M00S00051.compmac +++| 00054 M00S00052.compmac +++| PURGMAC ADK 00055 M00S00053.compmac +++| 00056 M00S00054.compmac +++| ADK MACRO K 00057 M00S00055.compmac +++| IF DEF,K,12D 00058 M00S00056.compmac +++| .2 SET K 00059 M00S00057.compmac +++| IFNE K,0,11D 00060 M00S00058.compmac +++| IFMI K,1 00061 M00S00059.compmac +++| .2 SET 777777B+K 00062 M00S00060.compmac +++| IFLE .2,77B,3 00063 M00S00061.compmac +++| IFNE .2,0,7 00064 M00S00062.compmac +++| ADN .2 00065 M00S00063.compmac +++| SKIP 5 00066 M00S00064.compmac +++| IFGE .2,777700B,3 00067 M00S00065.compmac +++| IFNE .2,777777B,1 00068 M00S00066.compmac +++| SBN 777777B-.2 00069 M00S00067.compmac +++| SKIP 1 00070 M00S00068.compmac +++| ADC K 00071 M00S00069.compmac +++| ADK ENDM 00072 M00S00070.compmac +++| BITSET SPACE 4,10 00073 M00S00071.compmac +++|*** BITSET - GENERATE BIT CONSTANT. 00074 M00S00072.compmac +++|* 00075 M00S00073.compmac +++|* 00076 M00S00074.compmac +++|*NAME BITSET (P1,P2,...,PN) 00077 M00S00075.compmac +++|* ENTRY *NAME* = NAME OF BIT CONSTANT. 00078 M00S00076.compmac +++|* (PN) = BITS TO SET. 00079 M00S00077.compmac +++| 00080 M00S00078.compmac +++| 00081 M00S00079.compmac +++| PURGMAC BITSET 00082 M00S00080.compmac +++| 00083 M00S00081.compmac +++| MACRO BITSET,N,P 00084 M00S00082.compmac +++|N SET 0 00085 M00S00083.compmac +++| IRP P 00086 M00S00084.compmac +++|.1 DECMIC P 00087 M00S00085.compmac +++|N SET N+1S".1" 00088 M00S00086.compmac +++| IRP 00089 M00S00087.compmac +++| BSS 0 00090 M00S00088.compmac +++| ENDM 00091 M00S00089.compmac +++| SPACE 4,10 00092 M00S00090.compmac +++|*** DEFINE ABSOLUTE MEMORY INSTRUCTIONS. 00093 M00S00091.compmac +++|* 00094 M00S00092.compmac +++|* 00095 M00S00093.compmac +++|* LJP ADDRESS 00096 M00S00094.compmac +++|* RJP ADDRESS 00097 M00S00095.compmac +++|* LDP ADDRESS 00098 M00S00096.compmac +++|* ADP ADDRESS 00099 M00S00097.compmac +++|* SBP ADDRESS 00100 M00S00098.compmac +++|* LMP ADDRESS 00101 M00S00099.compmac +++|* STP ADDRESS 00102 M00S00100.compmac +++|* RAP ADDRESS 00103 M00S00101.compmac +++|* AOP ADDRESS 00104 M00S00102.compmac +++|* SOP ADDRESS 00105 M00S00103.compmac +++|* 00106 M00S00104.compmac +++|* DEFINE ABSOLUTE MEMORY INSTRUCTION FOR USE BY OTHER MACROS. 00107 M00S00105.compmac +++|* ENTRY (ADDRESS) = ABSOLUTE MEMORY ADDRESS. 00108 M00S00106.compmac +++| 00109 M00S00107.compmac +++| 00110 M00S00108.compmac +++| LJP PPOP 5,0100B 00111 M00S00109.compmac +++| RJP PPOP 5,0200B 00112 M00S00110.compmac +++| LDP PPOP 5,5000B 00113 M00S00111.compmac +++| ADP PPOP 5,5100B 00114 M00S00112.compmac +++| SBP PPOP 5,5200B 00115 M00S00113.compmac +++| LMP PPOP 5,5300B 00116 M00S00114.compmac +++| STP PPOP 5,5400B 00117 M00S00115.compmac +++| RAP PPOP 5,5500B 00118 M00S00116.compmac +++| AOP PPOP 5,5600B 00119 M00S00117.compmac +++| SOP PPOP 5,5700B 00120 M00S00118.compmac +++| LDBC SPACE 4,10 00121 M00S00119.compmac +++|*** LDBC - LOAD (A) WITH BIT CONSTANT. 00122 M00S00120.compmac +++|* 00123 M00S00121.compmac +++|* 00124 M00S00122.compmac +++|* LDBC (P1,P2,...,PN) 00125 M00S00123.compmac +++|* LOAD (A) WITH A CONSTANT CONTAINING BITS PN. 00126 M00S00124.compmac +++| 00127 M00S00125.compmac +++| 00128 M00S00126.compmac +++| PURGMAC LDBC 00129 M00S00127.compmac +++| 00130 M00S00128.compmac +++| LDBC MACRO P 00131 M00S00129.compmac +++| .1 (P) 00132 M00S00130.compmac +++| LDC .1 00133 M00S00131.compmac +++| ENDM 00134 M00S00132.compmac +++| ADBC SPACE 4,10 00135 M00S00133.compmac +++|*** ADBC - ADD BIT CONSTANT TO (A). 00136 M00S00134.compmac +++|* 00137 M00S00135.compmac +++|* 00138 M00S00136.compmac +++|* ADBC (P1,P2,...,PN) 00139 M00S00137.compmac +++|* ADD A CONSTANT CONTAINING BITS PN TO (A). 00140 M00S00138.compmac +++| 00141 M00S00139.compmac +++| 00142 M00S00140.compmac +++| PURGMAC ADBC 00143 M00S00141.compmac +++| 00144 M00S00142.compmac +++| ADBC MACRO P 00145 M00S00143.compmac +++| .1 (P) 00146 M00S00144.compmac +++| ADC .1 00147 M00S00145.compmac +++| ENDM 00148 M00S00146.compmac +++| LPBC SPACE 4,10 00149 M00S00147.compmac +++|*** LPBC - ADD BIT CONSTANT TO (A). 00150 M00S00148.compmac +++|* 00151 M00S00149.compmac +++|* 00152 M00S00150.compmac +++|* LPBC (P1,P2,...,PN) 00153 M00S00151.compmac +++|* LOGICAL PRODUCT OF (A) AND CONSTANT CONTAINING BITS PN. 00154 M00S00152.compmac +++| 00155 M00S00153.compmac +++| 00156 M00S00154.compmac +++| PURGMAC LPBC 00157 M00S00155.compmac +++| 00158 M00S00156.compmac +++| LPBC MACRO P 00159 M00S00157.compmac +++| .1 (P) 00160 M00S00158.compmac +++| LPC .1 00161 M00S00159.compmac +++| ENDM 00162 M00S00160.compmac +++| LMBC SPACE 4,10 00163 M00S00161.compmac +++|*** LMBC - ADD BIT CONSTANT TO (A). 00164 M00S00162.compmac +++|* 00165 M00S00163.compmac +++|* 00166 M00S00164.compmac +++|* LMBC (P1,P2,...,PN) 00167 M00S00165.compmac +++|* LOGICAL DIFFERENCE OF (A) AND CONSTANT CONTAINING BITS PN. 00168 M00S00166.compmac +++| 00169 M00S00167.compmac +++| 00170 M00S00168.compmac +++| PURGMAC LMBC 00171 M00S00169.compmac +++| 00172 M00S00170.compmac +++| LMBC MACRO P 00173 M00S00171.compmac +++| .1 (P) 00174 M00S00172.compmac +++| LMC .1 00175 M00S00173.compmac +++| ENDM 00176 M00S00174.compmac +++| SCBN SPACE 4,10 00177 M00S00175.compmac +++|**** SCBN - CLEAR (A) WITH BIT CONSTANT. 00178 M00S00176.compmac +++|* 00179 M00S00177.compmac +++|* 00180 M00S00178.compmac +++|* SCBN (P1, P2,...,PN) 00181 M00S00179.compmac +++|* SELECTIVE CLEAR (A) WITH A CONSTANT CONTAINING BITS PN. 00182 M00S00180.compmac +++| 00183 M00S00181.compmac +++| 00184 M00S00182.compmac +++| PURGMAC SCBN 00185 M00S00183.compmac +++| 00186 M00S00184.compmac +++| SCBN MACRO P 00187 M00S00185.compmac +++| .1 (P) 00188 M00S00186.compmac +++| SCN .1 00189 M00S00187.compmac +++| SCBN ENDM 00190 M00S00188.compmac +++| BLI SPACE 4,20 00191 M00S00189.compmac +++|*** BLI - BUILD LONG INSTRUCTION. 00192 M00S00190.compmac +++|* 00193 M00S00191.compmac +++|* 00194 M00S00192.compmac +++|*TAG BLI D 00195 M00S00193.compmac +++|* 00196 M00S00194.compmac +++|* ENTRY (T3) = ADDRESS AT WHICH TO STORE THE LONG INSTRUCTION. 00197 M00S00195.compmac +++|* IF D = *T3*, MODIFY THE INSTRUCTION AT (T3). 00198 M00S00196.compmac +++|* IF D IS OMITTED, (A) = THE INSTRUCTION TO BE STORED AT 00199 M00S00197.compmac +++|* (T3). 00200 M00S00198.compmac +++|* 00201 M00S00199.compmac +++|* EXAMPLE - 00202 M00S00200.compmac +++|* 00203 M00S00201.compmac +++|* LDC TAGA 00204 M00S00202.compmac +++|* STD T3 00205 M00S00203.compmac +++|* BLI T3 ADD LONG BIT TO INSTRUCTION AT *TAGA* 00206 M00S00204.compmac +++|* 00207 M00S00205.compmac +++|* CALLS .EST, .BLI. 00208 M00S00206.compmac +++|* 00209 M00S00207.compmac +++|* NOTE - *BLI* CALLS THE *.BLI* ENTRY POINT IN *PPR*. WHEN 00210 M00S00208.compmac +++|* *PPR* IS LOADED INTO A CONCURRENT PP (CPP), AN *STIL* 00211 M00S00209.compmac +++|* INSTRUCTION IS STORED AT *.BLI*. THE *BLI* MACRO JUMPS TO 00212 M00S00210.compmac +++|* THIS INSTRUCTION TO STORE THE DESIRED LONG INSTRUCTION. TO 00213 M00S00211.compmac +++|* GET BACK, *BLI* USES THE *LJM* THAT ACTS AS THE ENTRY/EXIT 00214 M00S00212.compmac +++|* POINT FOR THE *.EST* SUBROUTINE IN *PPR*. TO INSURE THAT 00215 M00S00213.compmac +++|* CONTROL RETURNS TO THE MACRO GENERATED CODE, *BLI* FIRST 00216 M00S00214.compmac +++|* CALLS *.EST* TO PRESET THE *LJM*. 00217 M00S00215.compmac +++| 00218 M00S00216.compmac +++| 00219 M00S00217.compmac +++| PURGMAC BLI 00220 M00S00218.compmac +++| 00221 M00S00219.compmac +++| BLI MACRO D 00222 M00S00220.compmac +++| LOCAL A,B 00223 M00S00221.compmac +++| IFC NE,/D//,2 00224 M00S00222.compmac +++| IFC NE,/D/T3/,1 00225 M00S00223.compmac +++| ERR THE VARIABLE FIELD MUST BE NULL OR CONTAIN *T3* 00226 M00S00224.compmac +++| IFC EQ,/D//,1 00227 M00S00225.compmac +++| STM A 00228 M00S00226.compmac +++| LDC 400000B/ESTE 00229 M00S00227.compmac +++| RJM .EST 00230 M00S00228.compmac +++| PJN B 00231 M00S00229.compmac +++| LDC 1S15+** 00232 M00S00230.compmac +++| A EQU *-1 00233 M00S00231.compmac +++| IFC EQ,/D/T3/,1 00234 M00S00232.compmac +++| LMI T3 00235 M00S00233.compmac +++| LJM .BLI 00236 M00S00234.compmac +++| B EQU * 00237 M00S00235.compmac +++| BLI ENDM
| Line S00236 Modification History | |
|---|---|
M01 (Removed by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 00238 M01S00236.ns2483 ---| BSSN SPACE 4,20 00239 M01S00237.ns2483 ---|*** BSSN - SEQUENTIAL TAG DEFINITION WITHOUT RESERVING SPACE. 00240 M01S00238.ns2483 ---|* 00241 M01S00239.ns2483 ---|* 00242 M01S00240.ns2483 ---|* BEGIN BSSN A BEGIN TAG DEFINITION SEQUENCE 00243 M01S00241.ns2483 ---|* TAG1 BSSN N 00244 M01S00242.ns2483 ---|* . . . 00245 M01S00243.ns2483 ---|* . . . 00246 M01S00244.ns2483 ---|* 00247 M01S00245.ns2483 ---|* TAGN BSSN N 00248 M01S00246.ns2483 ---|* END BSSN END TAG DEFINITION SEQUENCE 00249 M01S00247.ns2483 ---|* 00250 M01S00248.ns2483 ---|* TO GET THE TAG VALUES PRINTED ON A LISTING A *LIST G* 00251 M01S00249.ns2483 ---|* CARD MUST BE PRESENT BEFORE THIS MACRO IS CALLED. 00252 M01S00250.ns2483 ---|* 00253 M01S00251.ns2483 ---|* A = NUMBER TO START TAG DEFINITION AT. 00254 M01S00252.ns2483 ---|* N = NUMBER OF LOCATIONS RESERVED TO THIS TAG. 00255 M01S00253.ns2483 ---| 00256 M01S00254.ns2483 ---| 00257 M01S00255.ns2483 ---| PURGMAC BSSN 00258 M01S00256.ns2483 ---| MACRO BSSN,T,N 00259 M01S00257.ns2483 ---|.1 IFC EQ,*T*BEGIN* 00260 M01S00258.ns2483 ---|.2 IFC NE,$N$$ 00261 M01S00259.ns2483 ---| LOC N 00262 M01S00260.ns2483 ---|.2 ELSE 1 00263 M01S00261.ns2483 ---| LOC 0 00264 M01S00262.ns2483 ---|.3 SKIP 00265 M01S00263.ns2483 ---|.1 ENDIF 00266 M01S00264.ns2483 ---|.2 IFC EQ,*T*END* 00267 M01S00265.ns2483 ---| LOC *O 00268 M01S00266.ns2483 ---|.3 SKIP 00269 M01S00267.ns2483 ---|.2 ENDIF 00270 M01S00268.ns2483 ---| IFC NE,*T**,1 00271 M01S00269.ns2483 ---|T EQU * 00272 M01S00270.ns2483 ---| LOC *+N 00273 M01S00271.ns2483 ---|.3 ENDIF 00274 M01S00272.ns2483 ---| ENDM 00275 M01S00273.ns2483 ---| BSSB SPACE 4,20 00276 M01S00274.ns2483 ---|*** BSSB - BACKWARD SEQUENTIAL SYMBOL DEFINITION WITHOUT 00277 M01S00275.ns2483 ---|* RESERVING SPACE. 00278 M01S00276.ns2483 ---|* 00279 M01S00277.ns2483 ---|* 00280 M01S00278.ns2483 ---|* BEGIN BSSB A BEGIN SYMBOL DEFINITION SEQUENCE 00281 M01S00279.ns2483 ---|* TAG1 BSSB N 00282 M01S00280.ns2483 ---|* . . . 00283 M01S00281.ns2483 ---|* . . . 00284 M01S00282.ns2483 ---|* 00285 M01S00283.ns2483 ---|* TAGN BSSB N 00286 M01S00284.ns2483 ---|* END BSSB END SYMBOL DEFINITION SEQUENCE 00287 M01S00285.ns2483 ---|* 00288 M01S00286.ns2483 ---|* TO GET THE SYMBOL VALUES PRINTED ON A LISTING A *LIST G* 00289 M01S00287.ns2483 ---|* STATEMENT MUST BE PRESENT BEFORE THIS MACRO IS CALLED. 00290 M01S00288.ns2483 ---|* 00291 M01S00289.ns2483 ---|* A = VALUE AT WHICH TO START DEFINITION SEQUENCE. 00292 M01S00290.ns2483 ---|* N = NUMBER OF LOCATIONS RESERVED TO THIS SYMBOL. 00293 M01S00291.ns2483 ---| 00294 M01S00292.ns2483 ---| 00295 M01S00293.ns2483 ---| PURGMAC BSSB 00296 M01S00294.ns2483 ---| MACRO BSSB,S,N 00297 M01S00295.ns2483 ---|.1 IFC EQ,*S*BEGIN* 00298 M01S00296.ns2483 ---|.2 IFC NE,$N$$ 00299 M01S00297.ns2483 ---| LOC N 00300 M01S00298.ns2483 ---|.2 ELSE 1 00301 M01S00299.ns2483 ---| LOC 0 00302 M01S00300.ns2483 ---|.3 SKIP 00303 M01S00301.ns2483 ---|.1 ENDIF 00304 M01S00302.ns2483 ---|.2 IFC EQ,*S*END* 00305 M01S00303.ns2483 ---| LOC *O 00306 M01S00304.ns2483 ---|.3 SKIP 00307 M01S00305.ns2483 ---|.2 ENDIF 00308 M01S00306.ns2483 ---| IFC NE,*S**,1 00309 M01S00307.ns2483 ---|S EQU * 00310 M01S00308.ns2483 ---| LOC *-N 00311 M01S00309.ns2483 ---|.3 ENDIF 00312 M01S00310.ns2483 ---| ENDM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2483 |
Seq # *Modification Id* Act ----------------------------+ 00313 M01S00001.ns2483 +++| BSSB SPACE 4,25 00314 M01S00002.ns2483 +++|*** BSSB - BACKWARD SEQUENTIAL SYMBOL DEFINITION WITHOUT 00315 M01S00003.ns2483 +++|* RESERVING SPACE. 00316 M01S00004.ns2483 +++|* 00317 M01S00005.ns2483 +++|* 00318 M01S00006.ns2483 +++|* BEGIN BSSB A BEGIN SYMBOL DEFINITION SEQUENCE 00319 M01S00007.ns2483 +++|* TAG1 BSSB N 00320 M01S00008.ns2483 +++|* . . . 00321 M01S00009.ns2483 +++|* . . . 00322 M01S00010.ns2483 +++|* 00323 M01S00011.ns2483 +++|* TAGN BSSB N 00324 M01S00012.ns2483 +++|* END BSSB END SYMBOL DEFINITION SEQUENCE 00325 M01S00013.ns2483 +++|* 00326 M01S00014.ns2483 +++|* A = VALUE AT WHICH TO START DEFINITION SEQUENCE. 00327 M01S00015.ns2483 +++|* N = NUMBER OF LOCATIONS RESERVED TO THIS SYMBOL. 00328 M01S00016.ns2483 +++|* 00329 M01S00017.ns2483 +++|* IF NO *BEGIN BSSB* IS USED, THE STARTING VALUE WILL BE THE 00330 M01S00018.ns2483 +++|* THE CURRENT VALUE OF THE LOCATION COUNTER. 00331 M01S00019.ns2483 +++|* 00332 M01S00020.ns2483 +++|* THE *END BSSB* IS ONLY NEEDED IF IT IS NECESSARY TO RESET THE 00333 M01S00021.ns2483 +++|* LOCATION COUNTER TO THE ORIGIN COUNTER OR TO PRINT THE FINAL 00334 M01S00022.ns2483 +++|* VALUE OF THE *BSSB* SERIES. 00335 M01S00023.ns2483 +++| 00336 M01S00024.ns2483 +++| 00337 M01S00025.ns2483 +++| PURGMAC BSSB 00338 M01S00026.ns2483 +++| 00339 M01S00027.ns2483 +++| MACRO BSSB,S,N 00340 M01S00028.ns2483 +++|.1 IFC EQ,*S*BEGIN* 00341 M01S00029.ns2483 +++| BSS 00342 M01S00030.ns2483 +++| LOC N 00343 M01S00031.ns2483 +++|.3 SKIP 00344 M01S00032.ns2483 +++|.1 ENDIF 00345 M01S00033.ns2483 +++|.2 IFC EQ,*S*END* 00346 M01S00034.ns2483 +++| BSS 00347 M01S00035.ns2483 +++| LOC *O 00348 M01S00036.ns2483 +++|.3 SKIP 00349 M01S00037.ns2483 +++|.2 ENDIF 00350 M01S00038.ns2483 +++| S BSS 00351 M01S00039.ns2483 +++| LOC *-N 00352 M01S00040.ns2483 +++|.3 ENDIF 00353 M01S00041.ns2483 +++| ENDM 00354 M01S00042.ns2483 +++| BSSN SPACE 4,20 00355 M01S00043.ns2483 +++|*** BSSN - SEQUENTIAL TAG DEFINITION WITHOUT RESERVING SPACE. 00356 M01S00044.ns2483 +++|* 00357 M01S00045.ns2483 +++|* 00358 M01S00046.ns2483 +++|* BEGIN BSSN A BEGIN TAG DEFINITION SEQUENCE 00359 M01S00047.ns2483 +++|* TAG1 BSSN N 00360 M01S00048.ns2483 +++|* . . . 00361 M01S00049.ns2483 +++|* . . . 00362 M01S00050.ns2483 +++|* 00363 M01S00051.ns2483 +++|* TAGN BSSN N 00364 M01S00052.ns2483 +++|* END BSSN END TAG DEFINITION SEQUENCE 00365 M01S00053.ns2483 +++|* 00366 M01S00054.ns2483 +++|* A = NUMBER TO START TAG DEFINITION AT. 00367 M01S00055.ns2483 +++|* N = NUMBER OF LOCATIONS RESERVED TO THIS TAG. 00368 M01S00056.ns2483 +++|* 00369 M01S00057.ns2483 +++|* IF NO *BEGIN BSSN* IS USED, THE STARTING VALUE WILL BE THE 00370 M01S00058.ns2483 +++|* THE CURRENT VALUE OF THE LOCATION COUNTER. 00371 M01S00059.ns2483 +++|* 00372 M01S00060.ns2483 +++|* THE *END BSSN* IS ONLY NEEDED IF IT IS NECESSARY TO RESET THE 00373 M01S00061.ns2483 +++|* LOCATION COUNTER TO THE ORIGIN COUNTER OR TO PRINT THE FINAL 00374 M01S00062.ns2483 +++|* VALUE OF THE *BSSN* SERIES. 00375 M01S00063.ns2483 +++| 00376 M01S00064.ns2483 +++| 00377 M01S00065.ns2483 +++| PURGMAC BSSN 00378 M01S00066.ns2483 +++| 00379 M01S00067.ns2483 +++| MACRO BSSN,T,N 00380 M01S00068.ns2483 +++|.1 IFC EQ,*T*BEGIN* 00381 M01S00069.ns2483 +++| BSS 00382 M01S00070.ns2483 +++| LOC N 00383 M01S00071.ns2483 +++|.3 SKIP 00384 M01S00072.ns2483 +++|.1 ENDIF 00385 M01S00073.ns2483 +++|.2 IFC EQ,*T*END* 00386 M01S00074.ns2483 +++| BSS 00387 M01S00075.ns2483 +++| LOC *O 00388 M01S00076.ns2483 +++|.3 SKIP 00389 M01S00077.ns2483 +++|.2 ENDIF 00390 M01S00078.ns2483 +++| T BSS 00391 M01S00079.ns2483 +++| LOC *+N 00392 M01S00080.ns2483 +++|.3 ENDIF 00393 M01S00081.ns2483 +++| ENDM 00394 M00S00311.compmac +++| CFI SPACE 4,25 00395 M00S00312.compmac +++|*** CFI - CALCULATE FIRST WORD INDEX IN MANAGED TABLE. 00396 M00S00313.compmac +++|* 00397 M00S00314.compmac +++|* GIVEN AN ORDINAL IN A MANAGED TABLE (CLT, EJT, EST, SYSTEM
| Line S00315 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00398 M01S00315.271l750 ---|* FNT OF QFT), THE *CFI* MACRO CALCULATES THE TABLE INDEX OF 00399 M01S00316.271l750 ---|* THE FIRST WORD OF THE ENTRY.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00400 M01S00001.271l750 +++|* FNT, JCB OR QFT), THE *CFI* MACRO CALCULATES THE TABLE INDEX 00401 M01S00002.271l750 +++|* OF THE FIRST WORD OF THE ENTRY. 00402 M01S00003.271l750 +++|* 00403 M01S00004.271l750 +++|* THE *CFI* MACRO REQUIRES THAT TABLE ENTRY LENGTHS BETWEEN 00404 M01S00005.271l750 +++|* 10B AND 40B BE A MULTIPLE OF 4 AND THAT ENTRY LENGTHS 00405 M01S00006.271l750 +++|* GREATER THAN 40B BE A MULTIPLE OF 10B. THE MAXUMUM ENTRY 00406 M01S00007.271l750 +++|* LENGTH SUPPORTED BY *CFI* IS 100B. THE MAXIMUM ENTRY LENGTH 00407 M01S00008.271l750 +++|* OF CERTAIN TABLES SUCH AS THE EJT AND QFT IS CONSTRAINED BY 00408 M01S00009.271l750 +++|* SPACE ALLOCATED IN OTHER TABLES SUCH AS THE QUEUE FILE OR 00409 M01S00010.271l750 +++|* ROLLOUT FILE SYSTEM SECTOR. 00410 M00S00317.compmac +++|* 00411 M00S00318.compmac +++|* CFI TABLE,ORD,ODC 00412 M00S00319.compmac +++|* 00413 M00S00320.compmac +++|* ENTRY TABLE = MANAGED TABLE MNEMONIC. 00414 M00S00321.compmac +++|* CLT = COMMON LIBRARIES TABLE. 00415 M00S00322.compmac +++|* EJT = EXECUTING JOB TABLE. 00416 M00S00323.compmac +++|* EST = EQUIPMENT STATUS TABLE. 00417 M00S00324.compmac +++|* FNT = SYSTEM FNT TABLE.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00418 M01S00011.271l750 +++|* JCB = JOB CONTROL BLOCK TABLE. 00419 M00S00325.compmac +++|* QFT = QUEUE FILE TABLE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00420 M01S00001.274l797 +++|* ORT = OPTICAL DISK REQUEST TABLE. 00421 M00S00326.compmac +++|* ORD = OPTIONAL PARAMETER SPECIFYING DIRECT CELL 00422 M00S00327.compmac +++|* CONTAINING TABLE ORDINAL. 00423 M00S00328.compmac +++|* (A) = TABLE ORDINAL, IF *ORD* NOT SPECIFIED. 00424 M00S00329.compmac +++|* ODC = OPTIONAL PARAMETER SPECIFYING DIRECT CELL 00425 M00S00330.compmac +++|* CONTAINING TABLE ORDINAL, IF *ORD* NOT 00426 M00S00331.compmac +++|* SPECIFIED. 00427 M00S00332.compmac +++|* THIS OPTION SHOULD BE USED IF THE ORDINAL 00428 M00S00333.compmac +++|* IS IN A DIRECT CELL AND IS LOADED IN (A) 00429 M00S00334.compmac +++|* ON ENTRY TO THE *CFI* MACRO. 00430 M00S00335.compmac +++|* 00431 M00S00336.compmac +++|* EXIT (A) = WORD INDEX OF TABLE ENTRY. 00432 M00S00337.compmac +++| 00433 M00S00338.compmac +++| 00434 M00S00339.compmac +++| PURGMAC CFI 00435 M00S00340.compmac +++| 00436 M00S00341.compmac +++| CFI MACRO T,R1,R2 00437 M00S00342.compmac +++| LOCAL AS1,DC,EL,MN,MNL,MX,MXL,SC1,SC2,ST,TB,TL 00438 M00S00343.compmac +++| MACREF CFI 00439 M00S00344.compmac +++|.1 SET 0
| Line S00345 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00440 M01S00345.271l750 ---|.A ECHO ,TB=(CLT,EJT,EST,FNT,QFT),MN=(3,4,2,2,4),MX=(10B,10B,10B,10B,10B 00441 M01S00346.271l750 ---|,)
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00442 M02S00012.274l797 ---|.A ECHO ,TB=(CLT,EJT,EST,FNT,JCB,QFT),MN=(3,4,2,2,10B,4),MX=(10B,10B,10B 00443 M02S00013.274l797 ---|,,10B,100B,10B)
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00444 M01S00002.274l797 +++|.A ECHO ,TB=(CLT,EJT,EST,FNT,JCB,QFT,ORT),MN=(3,4,2,2,10B,4,4),MX=(10B,1 00445 M01S00003.274l797 +++|,0B,10B,10B,100B,10B,10B) 00446 M00S00347.compmac +++|.B IFC EQ,$TB$T$ 00447 M00S00348.compmac +++|.1 SET 1 00448 M00S00349.compmac +++|MNL SET MN 00449 M00S00350.compmac +++|MXL SET MX 00450 M00S00351.compmac +++| STOPDUP 00451 M00S00352.compmac +++|.B ENDIF 00452 M00S00353.compmac +++|.A ENDD 00453 M00S00354.compmac +++|.A IFEQ .1,0 00454 M00S00355.compmac +++| ERR ILLEGAL TABLE TYPE - T 00455 M00S00356.compmac +++|.A ELSE 00456 M00S00357.compmac +++|TL SET T_E 00457 M00S00358.compmac +++|DC SET R1 R2 T0 00458 M00S00359.compmac +++|.B IFC NE,$R1$$ 00459 M00S00360.compmac +++| LDD R1 00460 M00S00361.compmac +++|.B ENDIF 00461 M00S00362.compmac +++|.B IFGE TL,MNL 00462 M00S00363.compmac +++|.B IFLE TL,MXL
| Line S00364 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00463 M01S00364.271l750 ---|.C ECHO ,EL=(2,3,4,5,6,7,10B),ST=(0,1,0,1,1,1,0),SC1=(1,1,2,2,1,3,3),AS1 00464 M01S00365.271l750 ---|,=(0,1,0,1,1,2,0),SC2=(0,0,0,0,1,0,0)
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00465 M01S00014.271l750 +++|.C ECHO ,EL=(2,3,4,5,6,7,10B,14B,20B,24B,30B,34B,40B,50B,60B,70B,100B),S 00466 M01S00015.271l750 +++|,T=(0,1,0,1,1,1,0,1,0,1,1,1,0,1,1,1),SC1=(1,1,2,2,1,3,3,1,4,2,1,3,5,2,1, 00467 M01S00016.271l750 +++|,3),AS1=(0,1,0,1,1,2,0,1,0,1,1,2,0,1,1,2),SC2=(0,0,0,0,1,0,0,2,0,2,3,2,0 00468 M01S00017.271l750 +++|,3,4,3) 00469 M00S00366.compmac +++|.D IFEQ TL,EL 00470 M00S00367.compmac +++|.E IFC EQ,$R1$$ 00471 M00S00368.compmac +++|.E IFC EQ,$R2$$ 00472 M00S00369.compmac +++|.E IFEQ ST,1 00473 M00S00370.compmac +++| STD T0 00474 M00S00371.compmac +++|.E ENDIF 00475 M00S00372.compmac +++| SHN SC1 00476 M00S00373.compmac +++|.E IFEQ AS1,1 00477 M00S00374.compmac +++| ADD DC 00478 M00S00375.compmac +++|.E ENDIF 00479 M00S00376.compmac +++|.E IFEQ AS1,2 00480 M00S00377.compmac +++| SBD DC 00481 M00S00378.compmac +++|.E ENDIF 00482 M00S00379.compmac +++|.E IFNE SC2,0 00483 M00S00380.compmac +++| SHN SC2 00484 M00S00381.compmac +++|.E ENDIF 00485 M00S00382.compmac +++| STOPDUP 00486 M00S00383.compmac +++|.D ENDIF 00487 M00S00384.compmac +++|.C ENDD 00488 M00S00385.compmac +++|.B ELSE 00489 M00S00386.compmac +++| ERR T ENTRY LENGTH ERROR 00490 M00S00387.compmac +++|.B ENDIF 00491 M00S00388.compmac +++|.A ENDIF 00492 M00S00389.compmac +++| CFI ENDM 00493 M00S00390.compmac +++| CMTM SPACE 4,10 00494 M00S00391.compmac +++|*** CMTM - CREATE MACROS TO ACCESS MANAGED TABLES. 00495 M00S00392.compmac +++|* 00496 M00S00393.compmac +++|* CMTM TB 00497 M00S00394.compmac +++|* 00498 M00S00395.compmac +++|* ENTRY TB = MANAGED TABLE NAME. 00499 M00S00396.compmac +++| 00500 M00S00397.compmac +++| 00501 M00S00398.compmac +++| PURGMAC CMTM 00502 M00S00399.compmac +++| 00503 M00S00400.compmac +++| CMTM MACRO TB 00504 M00S00401.compmac +++| PURGMAC C_TB 00505 M00S00402.compmac +++|C_TB MACRO 00506 M00S00403.compmac +++|.A IF -DEF,.TB 00507 M00S00404.compmac +++| MACREF C_TB 00508 M00S00405.compmac +++|.TB SUBR 00509 M00S00406.compmac +++| STD T0 00510 M00S00407.compmac +++| LDK TB_P 00511 M00S00408.compmac +++| CRD CM 00512 M00S00409.compmac +++| CFI TB,T0 00513 M00S00410.compmac +++| ADD CM+1 00514 M00S00411.compmac +++| SHN 6 00515 M00S00412.compmac +++| ADD CM 00516 M00S00413.compmac +++| SHN 14 00517 M00S00414.compmac +++| UJN .TB_X 00518 M00S00415.compmac +++|.A ENDIF 00519 M00S00416.compmac +++| CMTM ENDM 00520 M00S00417.compmac +++| CEJT SPACE 4,10 00521 M00S00418.compmac +++|*** CEJT - CONVERT EJT ADDRESS. 00522 M00S00419.compmac +++|* 00523 M00S00420.compmac +++|* ENTRY (A) = EJT ORDINAL. 00524 M00S00421.compmac +++|* 00525 M00S00422.compmac +++|* USES CM - CM+4. 00526 M00S00423.compmac +++|* 00527 M00S00424.compmac +++|* MACROS CFI. 00528 M00S00425.compmac +++| 00529 M00S00426.compmac +++| 00530 M00S00427.compmac +++| CMTM EJT 00531 M00S00428.compmac +++| CEST SPACE 4,10 00532 M00S00429.compmac +++|*** CEST - CONVERT EST ADDRESS. 00533 M00S00430.compmac +++|* 00534 M00S00431.compmac +++|* ENTRY (A) = EST ORDINAL. 00535 M00S00432.compmac +++|* 00536 M00S00433.compmac +++|* USES CM - CM+4. 00537 M00S00434.compmac +++|* 00538 M00S00435.compmac +++|* MACROS CFI. 00539 M00S00436.compmac +++| 00540 M00S00437.compmac +++| 00541 M00S00438.compmac +++| CMTM EST 00542 M00S00439.compmac +++| CFNT SPACE 4,10 00543 M00S00440.compmac +++|*** CFNT - CONVERT FNT ADDRESS. 00544 M00S00441.compmac +++|* 00545 M00S00442.compmac +++|* ENTRY (A) = FNT ORDINAL. 00546 M00S00443.compmac +++|* 00547 M00S00444.compmac +++|* USES CM - CM+4. 00548 M00S00445.compmac +++|* 00549 M00S00446.compmac +++|* MACROS CFI. 00550 M00S00447.compmac +++| 00551 M00S00448.compmac +++| 00552 M00S00449.compmac +++| CMTM FNT
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00553 M01S00018.271l750 +++| CJCB SPACE 4,10 00554 M01S00019.271l750 +++|*** CJCB - CONVERT JCB ADDRESS. 00555 M01S00020.271l750 +++|* 00556 M01S00021.271l750 +++|* ENTRY (A) = JCB ORDINAL. 00557 M01S00022.271l750 +++|* 00558 M01S00023.271l750 +++|* USES CM - CM+4. 00559 M01S00024.271l750 +++|* 00560 M01S00025.271l750 +++|* MACROS CFI. 00561 M01S00026.271l750 +++| 00562 M01S00027.271l750 +++| 00563 M01S00028.271l750 +++| CMTM JCB 00564 M00S00450.compmac +++| CQFT SPACE 4,10 00565 M00S00451.compmac +++|*** CQFT - CONVERT QFT ADDRESS. 00566 M00S00452.compmac +++|* 00567 M00S00453.compmac +++|* ENTRY (A) = QFT ORDINAL. 00568 M00S00454.compmac +++|* 00569 M00S00455.compmac +++|* USES CM - CM+4. 00570 M00S00456.compmac +++|* 00571 M00S00457.compmac +++|* MACROS CFI. 00572 M00S00458.compmac +++| 00573 M00S00459.compmac +++| 00574 M00S00460.compmac +++| CMTM QFT
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00575 M01S00004.274l797 +++| CORT SPACE 4,10 00576 M01S00005.274l797 +++|*** CORT - CONVERT ORT ADDRESS. 00577 M01S00006.274l797 +++|* 00578 M01S00007.274l797 +++|* ENTRY (A) = ORT ORDINAL. 00579 M01S00008.274l797 +++|* 00580 M01S00009.274l797 +++|* USES CM - CM+4. 00581 M01S00010.274l797 +++|* 00582 M01S00011.274l797 +++|* MACROS CFI. 00583 M01S00012.274l797 +++| 00584 M01S00013.274l797 +++| 00585 M01S00014.274l797 +++| CMTM ORT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00586 M01S00001.273l780 +++| CREL SPACE 4,10 00587 M01S00002.273l780 +++|** CREL - ASSEMBLED CONSTANT RELOCATION. 00588 M01S00003.273l780 +++|* 00589 M01S00004.273l780 +++|* ASSEMBLES INFORMATION TO ALLOW THE SPECIFIED INSTRUCTION OR 00590 M01S00005.273l780 +++|* DATA LOCATION TO BE MODIFIED BY *COMPSIC*. 00591 M01S00006.273l780 +++|* 00592 M01S00007.273l780 +++|* CREL A,R 00593 M01S00008.273l780 +++|* 00594 M01S00009.273l780 +++|* ENTRY *A* = ADDRESS OF TWO BYTES TO BE MODIFIED. 00595 M01S00010.273l780 +++|* *R* = ADDRESS OF VALUE TO BE ADDED TO TWO BYTES AT *A* 00596 M01S00011.273l780 +++|* BY *COMPSIC*. 00597 M01S00012.273l780 +++| 00598 M01S00013.273l780 +++| 00599 M01S00014.273l780 +++| PURGMAC CREL 00600 M01S00015.273l780 +++| 00601 M01S00016.273l780 +++| CREL MACRO A,R 00602 M01S00017.273l780 +++| LOCAL B 00603 M01S00018.273l780 +++| B EQU A 00604 M01S00019.273l780 +++| SIC RMT 00605 M01S00020.273l780 +++| CON B 00606 M01S00021.273l780 +++| CON R 00607 M01S00022.273l780 +++| SIC RMT 00608 M01S00023.273l780 +++| CREL ENDM 00609 M00S00461.compmac +++| DCHAN SPACE 4,10 00610 M00S00462.compmac +++|*** DCHAN - DROP CHANNEL. 00611 M00S00463.compmac +++|* 00612 M00S00464.compmac +++|* 00613 M00S00465.compmac +++|* DCHAN 00614 M00S00466.compmac +++|* ENTRY (A) = CHANNEL NUMBER. 00615 M00S00467.compmac +++| 00616 M00S00468.compmac +++| 00617 M00S00469.compmac +++| PURGMAC DCHAN 00618 M00S00470.compmac +++| 00619 M00S00471.compmac +++| DCHAN MACRO 00620 M00S00472.compmac +++| MACREF DCHAN 00621 M00S00473.compmac +++| STD CM+1 00622 M00S00474.compmac +++| MONITOR DCHM 00623 M00S00475.compmac +++| ENDM 00624 M00S00476.compmac +++| DEFC SPACE 4,10 00625 M00S00477.compmac +++|*** DEFC - CONDITIONALLY DEFINE SYMBOL. 00626 M00S00478.compmac +++|* 00627 M00S00479.compmac +++|* 00628 M00S00480.compmac +++|* SYM DEFC VAL 00629 M00S00481.compmac +++| 00630 M00S00482.compmac +++| 00631 M00S00483.compmac +++| PURGMAC DEFC 00632 M00S00484.compmac +++| 00633 M00S00485.compmac +++| MACRO DEFC,SYM,VAL 00634 M00S00486.compmac +++| MACREF DEFC 00635 M00S00487.compmac +++| IF -DEF,SYM,1 00636 M00S00488.compmac +++| SYM = VAL 00637 M00S00489.compmac +++| ENDM 00638 M00S00490.compmac +++| DELAY SPACE 4,10 00639 M00S00491.compmac +++|*** DELAY - DELAY FOR SYSTEM DELAY TIME. 00640 M00S00492.compmac +++|* 00641 M00S00493.compmac +++|* DELAYS APPROXIMATELY N/8 MILLISECONDS. IF N IS NOT SPECIFIED 00642 M00S00494.compmac +++|* THE DELAY TIME IS APPROXIMATELY 1/8 MILLISECOND. 00643 M00S00495.compmac +++|* 00644 M00S00496.compmac +++|* DELAY N 00645 M00S00497.compmac +++|* 00646 M00S00498.compmac +++|* WHERE N/8 IS THE NUMBER OF MILLISECONDS TO DELAY. 00647 M00S00499.compmac +++|* 00648 M00S00500.compmac +++|* EXIT (A) = 0. 00649 M00S00501.compmac +++| 00650 M00S00502.compmac +++| 00651 M00S00503.compmac +++| PURGMAC DELAY 00652 M00S00504.compmac +++| DELAY MACRO N 00653 M00S00505.compmac +++| LOCAL A 00654 M00S00506.compmac +++| MACREF DELAY 00655 M00S00507.compmac +++| NOREF .2,.3 00656 M00S00508.compmac +++|.2 SET 0 00657 M00S00509.compmac +++|.3 SET N 1 00658 M00S00510.compmac +++| DUP 10,5 00659 M00S00511.compmac +++| IFEQ .3/2*2-.3,0 00660 M00S00512.compmac +++|.3 SET .3/2 00661 M00S00513.compmac +++|.2 SET .2+1 00662 M00S00514.compmac +++| ELSE 1 00663 M00S00515.compmac +++| STOPDUP 00664 M00S00516.compmac +++| IFGT .3,1,2 00665 M00S00517.compmac +++| LDK .3 00666 M00S00518.compmac +++| STD T0 00667 M00S00519.compmac +++|A LDP .DLY 00668 M00S00520.compmac +++| ERRNG 10D-.2 DELAY TIME TOO LARGE 00669 M00S00521.compmac +++| SHK .2 00670 M00S00522.compmac +++| SBN 1 00671 M00S00523.compmac +++| NJN *-1 00672 M00S00524.compmac +++| IFGT .3,1,2 00673 M00S00525.compmac +++| SOD T0 00674 M00S00526.compmac +++| NJN A 00675 M00S00527.compmac +++| ENDM 00676 M00S00528.compmac +++| DFIM SPACE 4,40
| Line S00529 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00677 M01S00529.273l780 ---| DFIM SPACE 4,15 00678 M00S00530.compmac +++|*** DFIM - DEFINE INSTRUCTION MODIFICATION. 00679 M00S00531.compmac +++|* 00680 M00S00532.compmac +++|* *DFIM* CREATES A REMOTE BLOCK CONTAINING THE INSTRUCTION AND 00681 M00S00533.compmac +++|* ITS ADDRESS. *DIMB* CONTAINS THE *HERE* PSEUDO-OP WHICH 00682 M00S00534.compmac +++|* CAUSES THE REMOTE CODE TO BE ASSEMBLED AND *MDIN* IS AN 00683 M00S00535.compmac +++|* EXECUTABLE MACRO THAT ACTUALLY MAKES THE MODIFICATIONS SPECI- 00684 M00S00536.compmac +++|* FIED BY THE *DFIM* MACRO. 00685 M00S00537.compmac +++|* 00686 M00S00538.compmac +++|*TAG DFIM (OPC),ADR 00687 M00S00539.compmac +++|* 00688 M00S00540.compmac +++|* ENTRY *OPC* = COMPASS OP CODE AND VARIABLE FIELD. 00689 M00S00541.compmac +++|* *ADR* = ADDRESS TO BE MODIFIED WITH *OPC*. 00690 M00S00542.compmac +++|* = * IF NOT SPECIFIED. 00691 M00S00543.compmac +++|* *TAG* = OPTIONAL LOCATION FIELD SYMBOL. 00692 M00S00544.compmac +++|* 00693 M00S00545.compmac +++|* EXIT *OPC* PLACED IN REMOTE BLOCK NAMED BY 00694 M00S00546.compmac +++|* *R$* MICRO (DEFAULT IS *SRMT*). 00695 M00S00547.compmac +++|* 00696 M00S00548.compmac +++|* EXAMPLE - 00697 M00S00549.compmac +++|* 00698 M00S00550.compmac +++|* LDM ABCA 00699 M00S00551.compmac +++|* DFIM (UJN ABCX) 00700 M00S00552.compmac +++|* ABC3 NJN ABCX 00701 M00S00553.compmac +++|* 00702 M00S00554.compmac +++|* SINCE THE *ADR* PARAMETER WAS OMITTED ON THE *DFIM*, THE 00703 M00S00555.compmac +++|* *UJN* WILL BE ASSEMBLED SO THAT IT WILL WORK CORRECTLY WHEN 00704 M00S00556.compmac +++|* IT IS MOVED TO *ABC3*. 00705 M00S00557.compmac +++|* 00706 M00S00558.compmac +++|* SOMEWHERE IN THE PRESET CODE FOR THE PROGRAM, A TEST IS MADE 00707 M00S00559.compmac +++|* TO DETERMINE WHETHER OR NOT TO ACTUALLY MODIFY THE INSTRUC- 00708 M00S00560.compmac +++|* TIONS. FOR EXAMPLE- 00709 M00S00561.compmac +++|* 00710 M00S00562.compmac +++|* LDM XXXX 00711 M00S00563.compmac +++|* ZJN PRS4 IF INSTRUCTIONS ARE NOT TO BE MODIFIED 00712 M00S00564.compmac +++|* MDIN PRSA MODIFY THE INSTRUCTIONS 00713 M00S00565.compmac +++|* PRS4 CONTINUE WITH PRESETTING 00714 M00S00566.compmac +++|* 00715 M00S00567.compmac +++|* 00716 M00S00568.compmac +++|* PRSA BSS 0 TABLE OF MODIFIED INSTRUCTIONS 00717 M00S00569.compmac +++|* DIMB 00718 M00S00570.compmac +++| 00719 M00S00571.compmac +++| 00720 M00S00572.compmac +++| PURGMAC DFIM 00721 M00S00573.compmac +++| 00722 M00S00574.compmac +++| MACRO DFIM,TAG,OPC,ADR 00723 M00S00575.compmac +++| LOCAL X,Y,Z 00724 M00S00576.compmac +++| MACREF DFIM 00725 M00S00577.compmac +++|Z MICRO 1,, "QUAL" 00726 M00S00578.compmac +++|X SET ADR * 00727 M00S00579.compmac +++|Y EQU *O-*L+X 00728 M00S00580.compmac +++|.1D SET * 00729 M00S00581.compmac +++|.2D SET *O 00730 M00S00582.compmac +++| IF -MIC,R$,1 00731 M00S00583.compmac +++|R$ MICRO 1,4, SRMT 00732 M00S00584.compmac +++| IF DEF,.O"R$",1 00733 M00S00585.compmac +++| IFNE .O"R$",*O,2 00734 M00S00586.compmac +++|.O"R$" SET *O 00735 M00S00587.compmac +++|.L"R$" SET X 00736 M00S00588.compmac +++| LOC .L"R$" 00737 M00S00589.compmac +++|TAG OPC 00738 M00S00590.compmac +++|.L"R$" SET * 00739 M00S00591.compmac +++| ORG .2D 00740 M00S00592.compmac +++| LOC .1D 00741 M00S00593.compmac +++|"R$" RMT 00742 M00S00594.compmac +++| IF DEF,"R$"A,1 00743 M00S00595.compmac +++| IFEQ "R$"A,10000,3 00744 M00S00596.compmac +++|"R$" EQU *O 00745 M00S00597.compmac +++| QUAL 00746 M00S00598.compmac +++|"R$"A SET 10000 00747 M00S00599.compmac +++| IFNE /"Z"/Y,"R$"A,4 00748 M00S00600.compmac +++|"R$"B SET *O 00749 M00S00601.compmac +++|"R$"C SET 0 00750 M00S00602.compmac +++| ORG *O+1 00751 M00S00603.compmac +++| CON /"Z"/Y 00752 M00S00604.compmac +++|"R$"A SET /"Z"/Y 00753 M00S00605.compmac +++| QUAL "Z" 00754 M00S00606.compmac +++| LOC X+"R$"C 00755 M00S00607.compmac +++|TAG OPC 00756 M00S00608.compmac +++| QUAL 00757 M00S00609.compmac +++|"R$"C SET *O-"R$"B-2 00758 M00S00610.compmac +++| ORG "R$"B 00759 M00S00611.compmac +++| CON "R$"C 00760 M00S00612.compmac +++| ORG *O+"R$"C+1 00761 M00S00613.compmac +++| RMT 00762 M00S00614.compmac +++| DFIM ENDM 00763 M00S00615.compmac +++| DIMB SPACE 4,10 00764 M00S00616.compmac +++|*** DIMB - DUMP INSTRUCTION MODIFICATION BLOCK. 00765 M00S00617.compmac +++|* 00766 M00S00618.compmac +++|* DIMB BN 00767 M00S00619.compmac +++|* 00768 M00S00620.compmac +++|* ENTRY *BN* = NAME OF REMOTE BLOCK. 00769 M00S00621.compmac +++|* = *SRMT* IF NOT SPECIFIED. 00770 M00S00622.compmac +++| 00771 M00S00623.compmac +++| 00772 M00S00624.compmac +++| PURGMAC DIMB 00773 M00S00625.compmac +++| 00774 M00S00626.compmac +++| DIMB MACRO BN 00775 M00S00627.compmac +++| LOCAL Q 00776 M00S00628.compmac +++| MACREF DIMB 00777 M00S00629.compmac +++|Q MICRO 1,, "QUAL" 00778 M00S00630.compmac +++| IFC EQ,*BN**,2 00779 M00S00631.compmac +++|TN MICRO 1,4, SRMT 00780 M00S00632.compmac +++| ELSE 1 00781 M00S00633.compmac +++|TN MICRO 1,, BN 00782 M00S00634.compmac +++| QUAL 00783 M00S00635.compmac +++| NOREF "TN"A,"TN"B,"TN"C 00784 M00S00636.compmac +++| QUAL * 00785 M00S00637.compmac +++|"TN" HERE 00786 M00S00638.compmac +++| CON 0 00787 M00S00639.compmac +++|"TN"A SET 10000 00788 M00S00640.compmac +++| QUAL "Q" 00789 M00S00641.compmac +++| DIMB ENDM 00790 M00S00642.compmac +++| ENDMS SPACE 4,15 00791 M00S00643.compmac +++|*** ENDMS - END MASS STORAGE OPERATION. 00792 M00S00644.compmac +++|* 00793 M00S00645.compmac +++|* 00794 M00S00646.compmac +++|* ENDMS 00795 M00S00647.compmac +++|* *ENDMS* RELEASES ALL RESOURCES RESERVED TO THE MASS STORAGE 00796 M00S00648.compmac +++|* OPERATION. SEE *PPR* FOR MORE INFORMATION ON USING THE 00797 M00S00649.compmac +++|* *ENDMS* MACRO. 00798 M00S00650.compmac +++|* 00799 M00S00651.compmac +++|* EXIT (A) = 0. 00800 M00S00652.compmac +++|* 00801 M00S00653.compmac +++|* USES T1, T2, CM - CM+4. 00802 M00S00654.compmac +++|* 00803 M00S00655.compmac +++|* NOTE - THIS MACRO IS THE ONLY SUPPORTED INTERFACE TO THE 00804 M00S00656.compmac +++|* *.EMS* PPR ENTRY POINT. THE VALUE OF THIS SYMBOL IS 00805 M00S00657.compmac +++|* DEFINED IN *COMSMSP* AND *PPCOM*. 00806 M00S00658.compmac +++| 00807 M00S00659.compmac +++| 00808 M00S00660.compmac +++| PURGMAC ENDMS 00809 M00S00661.compmac +++| 00810 M00S00662.compmac +++| ENDMS MACRO 00811 M00S00663.compmac +++| MACREF ENDMS 00812 M00S00664.compmac +++| RJP .EMS 00813 M00S00665.compmac +++| ENDM 00814 M00S00666.compmac +++| EXECUTE SPACE 4,15 00815 M00S00667.compmac +++|*** EXECUTE - PROGRAM/OVERLAY CALL. 00816 M00S00668.compmac +++|* THIS MACRO IS INTENDED TO BE USED FOR CROSS REFERENCE 00817 M00S00669.compmac +++|* PURPOSES. 00818 M00S00670.compmac +++|* 00819 M00S00671.compmac +++|* 00820 M00S00672.compmac +++|* EXECUTE NAME,ADDRESS 00821 M00S00673.compmac +++|* ENTRY (NAME) = NAME OF PROGRAM/OVERLAY. 00822 M00S00674.compmac +++|* (ADDRESS) = LOAD ADDRESS FOR OVERLAY IF *NAME* BEGINS 00823 M00S00675.compmac +++|* WITH *0*. 00824 M00S00676.compmac +++|* (ADDRESS) = (*), LOAD *NAME* INTO -A- REGISTER, BUT 00825 M00S00677.compmac +++|* DO NOT EXECUTE. 00826 M00S00678.compmac +++|* (ADDRESS) = (=), DO NOT GENERATE CODE. 00827 M00S00679.compmac +++|* CALLS EXR. 00828 M00S00680.compmac +++| 00829 M00S00681.compmac +++| 00830 M00S00682.compmac +++| PURGMAC EXECUTE 00831 M00S00683.compmac +++| 00832 M00S00684.compmac +++| EXECUTE MACRO N,A 00833 M00S00685.compmac +++| MACREF EXECUTE 00834 M00S00686.compmac +++| QUAL 00835 M00S00687.compmac +++|(N) SET 0 00836 M00S00688.compmac +++| QUAL * 00837 M00S00689.compmac +++| IFC NE,$A$=$ 00838 M00S00690.compmac +++|M MICRO 1,1, N 00839 M00S00691.compmac +++| IFC EQ,$"M"$0$,3 00840 M00S00692.compmac +++| IFC NE,$A$*$,2 00841 M00S00693.compmac +++| LDC A . NO LOAD ADDRESS SPECIFIED 00842 M00S00694.compmac +++| STD LA 00843 M00S00695.compmac +++| LDC 3R_N 00844 M00S00696.compmac +++| IFC NE,$A$*$,1 00845 M00S00697.compmac +++| RJP EXR 00846 M00S00698.compmac +++| ENDIF 00847 M00S00699.compmac +++| ENDM 00848 M00S00700.compmac +++| ISTORE SPACE 4,15 00849 M00S00701.compmac +++|*** ISTORE - INSTRUCTION STORE. 00850 M00S00702.compmac +++|* 00851 M00S00703.compmac +++|* BUILDS AND STORES PP INSTRUCTION VIA IN-LINE CODE 00852 M00S00704.compmac +++|* MODIFICATION. LOCATION TO BE MODIFIED MUST BE 00853 M00S00705.compmac +++|* PREVIOUSLY DEFINED. 00854 M00S00706.compmac +++|* 00855 M00S00707.compmac +++|* ISTORE CADDR,(INSTR) 00856 M00S00708.compmac +++|* 00857 M00S00709.compmac +++|* ENTRY CADDR = ADDRESS OF CODE TO BE MODIFIED. 00858 M00S00710.compmac +++|* INSTR = INSTRUCTION (OPERATION CODE AND ADDRESS 00859 M00S00711.compmac +++|* FIELD) TO BE STORED. 00860 M00S00712.compmac +++| 00861 M00S00713.compmac +++| 00862 M00S00714.compmac +++| PURGMAC ISTORE 00863 M00S00715.compmac +++| 00864 M00S00716.compmac +++| ISTORE MACRO CADDR,INSTR 00865 M00S00717.compmac +++| MACREF ISTORE 00866 M00S00718.compmac +++|.1 IFC EQ,$INSTR$PSN$ 00867 M00S00719.compmac +++| LDN 0 00868 M00S00720.compmac +++|.1 ELSE 00869 M00S00721.compmac +++| LDC ** 00870 M00S00722.compmac +++| ORG *-1 00871 M00S00723.compmac +++| LOC CADDR 00872 M00S00724.compmac +++| INSTR 00873 M00S00725.compmac +++| LOC *O 00874 M00S00726.compmac +++|.1 ENDIF 00875 M00S00727.compmac +++| STM CADDR 00876 M00S00728.compmac +++| ISTORE ENDM 00877 M00S00729.compmac +++| LDK SPACE 4,15 00878 M00S00730.compmac +++|*** LDK - LOAD CONSTANT INTO (A). 00879 M00S00731.compmac +++|* 00880 M00S00732.compmac +++|* GENERATES EITHER A *LDC*, *LDN*, OR *LCN* INSTRUCTION, 00881 M00S00733.compmac +++|* DEPENDING UPON THE VALUE OF THE OPERAND. 00882 M00S00734.compmac +++|* 00883 M00S00735.compmac +++|* LDK K 00884 M00S00736.compmac +++|* 00885 M00S00737.compmac +++|* ENTRY K = CONSTANT TO BE LOADED INTO (A). 00886 M00S00738.compmac +++|* 00887 M00S00739.compmac +++|* NOTE BECAUSE OF THE VARIABILITY OF THE CODE 00888 M00S00740.compmac +++|* GENERATED BY THIS MACRO, IT MUST NOT BE 00889 M00S00741.compmac +++|* CHANGED BY ON-LINE CODE MODIFICATION. 00890 M00S00742.compmac +++| 00891 M00S00743.compmac +++| 00892 M00S00744.compmac +++| PURGMAC LDK 00893 M00S00745.compmac +++| 00894 M00S00746.compmac +++| LDK MACRO K 00895 M00S00747.compmac +++| IF DEF,K,9D 00896 M00S00748.compmac +++| .1 SET K 00897 M00S00749.compmac +++| IFMI .1,1 00898 M00S00750.compmac +++| .1 SET 777777B+.1 00899 M00S00751.compmac +++| IFLE .1,77B,2 00900 M00S00752.compmac +++| LDN .1 00901 M00S00753.compmac +++| SKIP 4 00902 M00S00754.compmac +++| IFGE .1,777700B,2 00903 M00S00755.compmac +++| LCN 777777B-.1 00904 M00S00756.compmac +++| SKIP 1 00905 M00S00757.compmac +++| LDC K 00906 M00S00758.compmac +++| LDK ENDM 00907 M00S00759.compmac +++| LMK SPACE 4,15 00908 M00S00760.compmac +++|*** LMK - LOGICAL MINUS CONSTANT WITH (A). 00909 M00S00761.compmac +++|* 00910 M00S00762.compmac +++|* GENERATES EITHER AN *LMC* OR AN *LMN* INSTRUCTION, 00911 M00S00763.compmac +++|* DEPENDING UPON THE VALUE OF THE OPERAND. IF THE 00912 M00S00764.compmac +++|* VALUE OF THE OPERAND REDUCES TO ZERO, NO INSTRUCTION 00913 M00S00765.compmac +++|* WILL BE GENERATED. 00914 M00S00766.compmac +++|* 00915 M00S00767.compmac +++|* LMK K 00916 M00S00768.compmac +++|* 00917 M00S00769.compmac +++|* ENTRY K = CONSTANT TO BE MINUSED WITH (A). 00918 M00S00770.compmac +++|* 00919 M00S00771.compmac +++|* NOTE BECAUSE OF THE VARIABILITY OF THE CODE 00920 M00S00772.compmac +++|* GENERATED BY THIS MACRO, IT MUST NOT BE 00921 M00S00773.compmac +++|* CHANGED BY ON-LINE CODE MODIFICATION. 00922 M00S00774.compmac +++| 00923 M00S00775.compmac +++| 00924 M00S00776.compmac +++| PURGMAC LMK 00925 M00S00777.compmac +++| 00926 M00S00778.compmac +++| LMK MACRO K 00927 M00S00779.compmac +++| LOCAL B 00928 M00S00780.compmac +++| IF DEF,K,6 00929 M00S00781.compmac +++|B SET K 00930 M00S00782.compmac +++| IFPL K,4 00931 M00S00783.compmac +++| IFLE K,77B,3 00932 M00S00784.compmac +++| IFNE K,0,3 00933 M00S00785.compmac +++| LMN K 00934 M00S00786.compmac +++| SKIP 1 00935 M00S00787.compmac +++| LMC K 00936 M00S00788.compmac +++| LMK ENDM 00937 M00S00789.compmac +++| LPK SPACE 4,15 00938 M00S00790.compmac +++|*** LPK - LOGICAL PRODUCT CONSTANT WITH (A). 00939 M00S00791.compmac +++|* 00940 M00S00792.compmac +++|* GENERATES EITHER AN *LPC*, *LPN*, OR *SCN* INSTRUCTION, 00941 M00S00793.compmac +++|* DEPENDING UPON THE VALUE OF THE OPERAND. IF THE VALUE 00942 M00S00794.compmac +++|* OF THE OPERARND REDUCES TO ZERO, NO INSTRUCTION WILL BE 00943 M00S00795.compmac +++|* GENERATED. 00944 M00S00796.compmac +++|* 00945 M00S00797.compmac +++|* LPK K 00946 M00S00798.compmac +++|* 00947 M00S00799.compmac +++|* ENTRY K = CONSTANT TO BE *ANDED* WITH (A). 00948 M00S00800.compmac +++|* 00949 M00S00801.compmac +++|* NOTE BECAUSE OF THE VARIABILITY OF THE CODE 00950 M00S00802.compmac +++|* GENERATED BY THIS MACRO, IT MUST NOT BE 00951 M00S00803.compmac +++|* CHANGED BY ON-LINE CODE MODIFICATION. 00952 M00S00804.compmac +++| 00953 M00S00805.compmac +++| 00954 M00S00806.compmac +++| PURGMAC LPK 00955 M00S00807.compmac +++| 00956 M00S00808.compmac +++| LPK MACRO K 00957 M00S00809.compmac +++| IF DEF,K,10D 00958 M00S00810.compmac +++| .1 SET K 00959 M00S00811.compmac +++| IFMI .1,1 00960 M00S00812.compmac +++| .1 SET 777777B+.1 00961 M00S00813.compmac +++| IFLE .1,77B,2 00962 M00S00814.compmac +++| LPN .1 00963 M00S00815.compmac +++| SKIP 5 00964 M00S00816.compmac +++| IFGE .1,777700B,3 00965 M00S00817.compmac +++| IFNE .1,777777B,1 00966 M00S00818.compmac +++| SCN 777777B-.1 00967 M00S00819.compmac +++| SKIP 1 00968 M00S00820.compmac +++| LPC K 00969 M00S00821.compmac +++| LPK ENDM 00970 M00S00822.compmac +++| MDIN SPACE 4,20 00971 M00S00823.compmac +++|*** MDIN - MODIFY INSTRUCTIONS FROM REMOTE LIST. 00972 M00S00824.compmac +++|* 00973 M00S00825.compmac +++|* MDIN BN 00974 M00S00826.compmac +++|* 00975 M00S00827.compmac +++|* ENTRY *BN* = NAME OF REMOTE BLOCK. 00976 M00S00828.compmac +++|* = *SRMT* IF NOT SPECIFIED. 00977 M00S00829.compmac +++|* 00978 M00S00830.compmac +++|* EXIT (A) = 0. 00979 M00S00831.compmac +++|* 00980 M00S00832.compmac +++|* USES T0 - T2. 00981 M00S00833.compmac +++|* 00982 M00S00834.compmac +++|* FORMAT OF REMOTE BLOCK SEGMENT = 00983 M00S00835.compmac +++|* 00984 M00S00836.compmac +++|* VFD 12 / BYTE COUNT (N). 00985 M00S00837.compmac +++|* VFD 12 / LOCATION FOR CODE. 00986 M00S00838.compmac +++|* VFD N*12/ (N) BYTES OF CODE. 00987 M00S00839.compmac +++| 00988 M00S00840.compmac +++| 00989 M00S00841.compmac +++| PURGMAC MDIN 00990 M00S00842.compmac +++| 00991 M00S00843.compmac +++| MDIN MACRO BN 00992 M00S00844.compmac +++| LOCAL L1,L2,L3 00993 M00S00845.compmac +++| MACREF MDIN 00994 M00S00846.compmac +++| IFC EQ,*BN**,2 00995 M00S00847.compmac +++|TN MICRO 1,4, SRMT 00996 M00S00848.compmac +++| ELSE 1 00997 M00S00849.compmac +++|TN MICRO 1,, BN 00998 M00S00850.compmac +++| LDC "TN"-1 00999 M00S00851.compmac +++| STD T1 01000 M00S00852.compmac +++| UJN L3 01001 M00S00853.compmac +++| 01002 M00S00854.compmac +++|L1 STD T0 01003 M00S00855.compmac +++| AOD T1 01004 M00S00856.compmac +++| LDI T1 01005 M00S00857.compmac +++| STD T2 01006 M00S00858.compmac +++|L2 AOD T1 01007 M00S00859.compmac +++| LDI T1 01008 M00S00860.compmac +++| STI T2 01009 M00S00861.compmac +++| AOD T2 01010 M00S00862.compmac +++| SOD T0 01011 M00S00863.compmac +++| NJN L2 01012 M00S00864.compmac +++|L3 AOD T1 01013 M00S00865.compmac +++| LDI T1 01014 M00S00866.compmac +++| NJN L1 01015 M00S00867.compmac +++| MDIN ENDM 01016 M00S00868.compmac +++| MJP SPACE 4,15 01017 M00S00869.compmac +++|*** MJP - CONDITIONAL NEGATIVE SHORT OR LONG JUMP. 01018 M00S00870.compmac +++|* 01019 M00S00871.compmac +++|* GENERATES EITHER AN *MJN* OR THE EQUIVALENT LONG JUMP 01020 M00S00872.compmac +++|* SERIES, DEPENDING UPON THE VALUE OF THE ADDRESS FIELD, 01021 M00S00873.compmac +++|* AND UPON WHETHER THE ADDRESS HAS OR HAS NOT YET BEEN 01022 M00S00874.compmac +++|* DEFINED. 01023 M00S00875.compmac +++|* 01024 M00S00876.compmac +++|* MJP ADDR 01025 M00S00877.compmac +++|* 01026 M00S00878.compmac +++|* ENTRY ADDR = BRANCH ADDRESS. 01027 M00S00879.compmac +++|* 01028 M00S00880.compmac +++|* NOTE DISCRETION SHOULD BE EXERCISED IN THE USE OF 01029 M00S00881.compmac +++|* THIS MACRO AS IT WILL ALWAYS GENERATE A LONG 01030 M00S00882.compmac +++|* JUMP SEQUENCE WHEN BRANCHING FORWARD. 01031 M00S00883.compmac +++| 01032 M00S00884.compmac +++| 01033 M00S00885.compmac +++| PURGMAC MJP 01034 M00S00886.compmac +++| 01035 M00S00887.compmac +++| MJP MACRO A 01036 M00S00888.compmac +++|.J IF DEF,A 01037 M00S00889.compmac +++|.J IFLE *-A,37B 01038 M00S00890.compmac +++|.J IFPL *-A 01039 M00S00891.compmac +++| MJN A 01040 M00S00892.compmac +++|.J ELSE 01041 M00S00893.compmac +++| PJN *+3 01042 M00S00894.compmac +++| LJM A 01043 M00S00895.compmac +++|.J ENDIF 01044 M00S00896.compmac +++| MJP ENDM 01045 M00S00897.compmac +++| MONITOR SPACE 4,10 01046 M00S00898.compmac +++|*** MONITOR - REQUEST MONITOR FUNCTION. 01047 M00S00899.compmac +++|* 01048 M00S00900.compmac +++|* 01049 M00S00901.compmac +++|* MONITOR FUNCTION 01050 M00S00902.compmac +++|* ENTRY (FUNCTION) = MONITOR FUNCTION TO PERFORM. 01051 M00S00903.compmac +++|* PARAMETERS PRESTORED IN (CM+1 - CM+4). 01052 M00S00904.compmac +++|* EXIT NONE. 01053 M00S00905.compmac +++|* CALLS FTN. 01054 M00S00906.compmac +++| 01055 M00S00907.compmac +++| 01056 M00S00908.compmac +++| PURGMAC MONITOR 01057 M00S00909.compmac +++| 01058 M00S00910.compmac +++| MONITOR MACRO F 01059 M00S00911.compmac +++| MACREF MONITOR 01060 M00S00912.compmac +++|.A IFLT F,100B 01061 M00S00913.compmac +++| LDN F 01062 M00S00914.compmac +++|.A ELSE 01063 M00S00915.compmac +++| LDC F 01064 M00S00916.compmac +++|.A ENDIF 01065 M00S00917.compmac +++| RJP FTN 01066 M00S00918.compmac +++| ENDM 01067 M00S00919.compmac +++| NFA SPACE 4,25 01068 M00S00920.compmac +++|*** NFA - NEGATIVE FL ACCESS. 01069 M00S00921.compmac +++|* THIS MACRO SHOULD BE USED BY PP PROGRAMS WHEN 01070 M00S00922.compmac +++|* ACCESSING NEGATIVE FL. 01071 M00S00923.compmac +++|* 01072 M00S00924.compmac +++|* NFA ADDR,CON 01073 M00S00925.compmac +++|* 01074 M00S00926.compmac +++|* ENTRY ADDR = RELATIVE ADDRESS OF NEGATIVE FL LOCATION. 01075 M00S00927.compmac +++|* CON IF PRESENT, (ADDR) CONTAINS RELATIVE 01076 M00S00928.compmac +++|* ADDRESS OF NEGATIVE FL LOCATION. 01077 M00S00929.compmac +++|* (RA) = REFERENCE ADDRESS. 01078 M00S00930.compmac +++|* 01079 M00S00931.compmac +++|* EXIT (A) = ABSOLUTE ADDRESS. 01080 M00S00932.compmac +++|* 01081 M00S00933.compmac +++|* THE FOLLOWING ADDRESSING CONVENTION IS TO BE FOLLOWED WHEN 01082 M00S00934.compmac +++|* USING THIS MACRO WITH ADDR OF THE FORM (TAG+VAL) OR 01083 M00S00935.compmac +++|* (TAG-VAL). 01084 M00S00936.compmac +++|* 01085 M00S00937.compmac +++|* ABSOLUTE NFA MACRO ADDRESS 01086 M00S00938.compmac +++|* ADDRESS ADDR FIELD DESCRIPTION 01087 M00S00939.compmac +++|* 01088 M00S00940.compmac +++|* RA-TAG-N TAG-N N WORDS BEFORE TAG IN NFL 01089 M00S00941.compmac +++|* RA-TAG TAG LOCATION TAG IN NFL 01090 M00S00942.compmac +++|* RA-TAG+N TAG+N N WORDS AFTER TAG IN NFL
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01091 M01S00001.271l716 +++|* 01092 M01S00002.271l716 +++|* IF SYMBOL *PCP$* IS DEFINED, THE NFA MACRO MAY BE USED TO 01093 M01S00003.271l716 +++|* ACCESS THE NFL OF A PCP JOB. IN THIS CASE, THE *NFA* MACRO 01094 M01S00004.271l716 +++|* CALLS THE *AJFL* MACRO TO ENSURE THAT CELL *RA* IS SET TO THE 01095 M01S00005.271l716 +++|* PCP-S RA PRIOR TO ITS USE BY THE *NFA* MACRO. THIS REQUIRES 01096 M01S00006.271l716 +++|* THAT COMMON DECK *COMSPCP* BE CALLED PRIOR TO THIS POINT, 01097 M01S00007.271l716 +++|* WITH SYMBOL *AJF$* DEFINED. 01098 M00S00943.compmac +++| 01099 M00S00944.compmac +++| PURGMAC NFA 01100 M00S00945.compmac +++| 01101 M00S00946.compmac +++| NFA MACRO A,R 01102 M00S00947.compmac +++| MACREF NFA
| Line S00948 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01103 M01S00948.271l716 ---| LDD RA
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 01104 M01S00008.271l716 +++|.P IF DEF,PCP$ 01105 M01S00009.271l716 +++| AJFL RA 01106 M01S00010.271l716 +++|.P ELSE 01107 M01S00011.271l716 +++| LDD RA 01108 M01S00012.271l716 +++|.P ENDIF 01109 M00S00949.compmac +++| SHN 6 01110 M00S00950.compmac +++|.A IFC EQ,$R$$ 01111 M00S00951.compmac +++| ADK -A 01112 M00S00952.compmac +++|.A ELSE 01113 M00S00953.compmac +++|.C IFLT A,100B 01114 M00S00954.compmac +++| SBD A 01115 M00S00955.compmac +++|.C ELSE 01116 M00S00956.compmac +++| SBM A 01117 M00S00957.compmac +++|.C ENDIF 01118 M00S00958.compmac +++|.A ENDIF 01119 M00S00959.compmac +++| ENDM 01120 M00S00960.compmac +++| NJP SPACE 4,15 01121 M00S00961.compmac +++|*** NJP - CONDITIONAL NONZERO SHORT OR LONG JUMP. 01122 M00S00962.compmac +++|* 01123 M00S00963.compmac +++|* GENERATES EITHER AN *NJN* OR THE EQUIVALENT LONG JUMP 01124 M00S00964.compmac +++|* SERIES, DEPENDING UPON THE VALUE OF THE ADDRESS FIELD, 01125 M00S00965.compmac +++|* AND UPON WHETHER THE ADDRESS HAS OR HAS NOT YET BEEN 01126 M00S00966.compmac +++|* DEFINED. 01127 M00S00967.compmac +++|* 01128 M00S00968.compmac +++|* NJP ADDR 01129 M00S00969.compmac +++|* 01130 M00S00970.compmac +++|* ENTRY ADDR = BRANCH ADDRESS. 01131 M00S00971.compmac +++|* 01132 M00S00972.compmac +++|* NOTE DISCRETION SHOULD BE EXERCISED IN THE USE OF 01133 M00S00973.compmac +++|* THIS MACRO AS IT WILL ALWAYS GENERATE A LONG 01134 M00S00974.compmac +++|* JUMP SEQUENCE WHEN BRANCHING FORWARD. 01135 M00S00975.compmac +++| 01136 M00S00976.compmac +++| 01137 M00S00977.compmac +++| PURGMAC NJP 01138 M00S00978.compmac +++| 01139 M00S00979.compmac +++| NJP MACRO A 01140 M00S00980.compmac +++|.J IF DEF,A 01141 M00S00981.compmac +++|.J IFLE *-A,37B 01142 M00S00982.compmac +++|.J IFPL *-A 01143 M00S00983.compmac +++| NJN A 01144 M00S00984.compmac +++|.J ELSE 01145 M00S00985.compmac +++| ZJN *+3 01146 M00S00986.compmac +++| LJM A 01147 M00S00987.compmac +++|.J ENDIF 01148 M00S00988.compmac +++| NJP ENDM 01149 M00S00989.compmac +++| OVERFLOW SPACE 4,30 01150 M00S00990.compmac +++|*** OVERFLOW - TEST FOR PP MEMORY OVERFLOW. 01151 M00S00991.compmac +++|* 01152 M00S00992.compmac +++|* THIS MACRO IS INTENDED TO TEST FOR PP MEMORY OVERFLOW WHEN 01153 M00S00993.compmac +++|* LOADING OVERLAYS FROM MASS STORAGE. THIS MACRO SHOULD 01154 M00S00994.compmac +++|* BE PLACED AT THE END OF THE OVERLAY BEING TESTED. 01155 M00S00995.compmac +++|* THIS MACRO ASSUMES THE OVERLAY IS LOADED BY *PPR/PLL* 01156 M00S00996.compmac +++|* WHICH WILL NOT READ AN EMPTY END OF RECORD AT THE END 01157 M00S00997.compmac +++|* OF THE OVERLAY. 01158 M00S00998.compmac +++|*
| Line S00999 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01159 M01S00999.253l688 ---|* OVERFLOW ORIGIN,END 01160 M01S01000.253l688 ---|* ENTRY (ORIGIN) = ORIGIN ADDRESS OF OVERLAY. *PPFW* IS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01161 M01S00001.253l688 +++|* OVERFLOW ORIGIN,END,CMR 01162 M01S00002.253l688 +++|* ENTRY ORIGIN = ORIGIN ADDRESS OF OVERLAY. *PPFW* IS 01163 M00S01001.compmac +++|* ASSUMED IF NO PARAMETER IS ENTERED.
| Line S01002 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01164 M01S01002.253l688 ---|* (END) = ADDRESS THAT IS NOT TO BE DESTROYED. (I.E.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01165 M01S00003.253l688 +++|* END = ADDRESS THAT IS NOT TO BE DESTROYED. (I.E. 01166 M00S01003.compmac +++|* LWA+1 OF AREA BEING LOADED INTO.) 10000B (END OF 01167 M00S01004.compmac +++|* PP MEMORY) IS ASSUMED IF NO PARAMETER IS ENTERED.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01168 M01S00004.253l688 +++|* CMR = RESIDENCY STATUS. 01169 M01S00005.253l688 +++|* *CMR* = OVERLAY MUST BE CENTRAL MEMORY RESIDENT. 01170 M01S00006.253l688 +++|* DEFAULT IS MASS STORAGE RESIDENT. 01171 M00S01005.compmac +++|* 01172 M00S01006.compmac +++|* FOUR *ERRNG* PSEUDO OPS ARE USED TO INDICATE THE SPACE LEFT 01173 M00S01007.compmac +++|* AND THE SIZE OF THE OVERLAY. 01174 M00S01008.compmac +++|* *BYTES LEFT AFTER LAST SECTOR* = THE NUMBER OF BYTES 01175 M00S01009.compmac +++|* BETWEEN THE LAST BYTE OF THE LAST SECTOR READ IN 01176 M00S01010.compmac +++|* AND *END*. THE ORIGIN ADDRESS OF THE OVERLAY CAN 01177 M00S01011.compmac +++|* BE INCREASED BY THIS AMOUNT WITHOUT CAUSING OVER- 01178 M00S01012.compmac +++|* FLOW. IF THIS IS LESS THAN 500 THE OVERLAY SIZE 01179 M00S01013.compmac +++|* CANNOT BE INCREASED BY SO MUCH THAT ANOTHER SECTOR 01180 M00S01014.compmac +++|* IS REQUIRED. 01181 M00S01015.compmac +++|* *BYTES LEFT IN LAST SECTOR* = THE NUMBER OF BYTES 01182 M00S01016.compmac +++|* THAT CAN BE ADDED TO THE OVERLAY WITHOUT REQUIR- 01183 M00S01017.compmac +++|* ING ANOTHER SECTOR. 01184 M00S01018.compmac +++|* *BYTES CAN BE ADDED TO OVERLAY* = THE MAXIMUM NUMBER 01185 M00S01019.compmac +++|* OF BYTES THAT CAN BE ADDED TO THIS OVERLAY (ASSUM- 01186 M00S01020.compmac +++|* ING THE ORG ADDRESS DOES NOT CHANGE) WITHOUT CAUS- 01187 M00S01021.compmac +++|* ING OVERFLOW. 01188 M00S01022.compmac +++|* *SECTORS NEEDED FOR OVERLAY* = THE NUMBER OF SECTORS 01189 M00S01023.compmac +++|* THAT WILL BE READ INTO THE PP WHEN THE OVERLAY IS 01190 M00S01024.compmac +++|* LOADED FROM MASS STORAGE. 01191 M00S01025.compmac +++|* 01192 M00S01026.compmac +++|* NOTE. THIS MACRO USES A *USE OVERFLOW* PSEUDO OP TO FORCE 01193 M00S01027.compmac +++|* THE LITERALS BLOCK TO BE DEFINED. IF THE PROGRAM HAS 01194 M00S01028.compmac +++|* A USE BLOCK CALLED *OVERFLOW* THE TEST WILL BE 01195 M00S01029.compmac +++|* INCORRECT. 01196 M00S01030.compmac +++| 01197 M00S01031.compmac +++| 01198 M00S01032.compmac +++| PURGMAC OVERFLOW 01199 M00S01033.compmac +++|
| Line S01034 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01200 M01S01034.253l688 ---| OVERFLOW MACRO O,E
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01201 M01S00007.253l688 +++| OVERFLOW MACRO O,E,C 01202 M00S01035.compmac +++| MACREF OVERFLOW 01203 M00S01036.compmac +++| NOREF .1,.2,.3,.4 01204 M00S01037.compmac +++| USE OVERFLOW 01205 M00S01038.compmac +++|.1 SET O PPFW 01206 M00S01039.compmac +++|.2 SET E 10000B
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01207 M01S00008.253l688 +++|.A IFC EQ,/C// 01208 M00S01040.compmac +++|.3 SET *-.1+5+477B
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01209 M01S00009.253l688 +++|.A ELSE 01210 M01S00010.253l688 +++|.3 SET *-.1+5+4 01211 M01S00011.253l688 +++|.A ENDIF 01212 M00S01041.compmac +++|.4 SET .2-.1+5
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01213 M01S00012.253l688 +++|.A IFC EQ,/C// 01214 M00S01042.compmac +++| LIST M 01215 M00S01043.compmac +++| 01216 M00S01044.compmac +++| ERRNG .2-.1+5-.3/500B*500B BYTES LEFT AFTER LAST SECTOR 01217 M00S01045.compmac +++| ERRNG .3/500B*500B-*+.1-5 BYTES LEFT IN LAST SECTOR 01218 M00S01046.compmac +++| ERRNG .4/500B*500B-*+.1-5 BYTES CAN BE ADDED TO OVERLAY 01219 M00S01047.compmac +++| ERRNG .3/500B SECTORS NEEDED FOR OVERLAY 01220 M00S01048.compmac +++| 01221 M00S01049.compmac +++| LIST *
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01222 M01S00013.253l688 +++|.A ELSE 01223 M01S00014.253l688 +++| LIST M 01224 M01S00015.253l688 +++| 01225 M01S00016.253l688 +++| ERRNG .2-.1+5-.3/5*5 BYTES LEFT AFTER LAST WORD 01226 M01S00017.253l688 +++| ERRNG .3/5*5-*+.1-5 BYTES LEFT IN LAST WORD 01227 M01S00018.253l688 +++| ERRNG .4/5*5-*+.1-5 BYTES CAN BE ADDED TO OVERLAY 01228 M01S00019.253l688 +++| ERRNG .3/5 WORDS NEEDED FOR OVERLAY 01229 M01S00020.253l688 +++| 01230 M01S00021.253l688 +++| LIST * 01231 M01S00022.253l688 +++|.A ENDIF 01232 M00S01050.compmac +++| USE * 01233 M00S01051.compmac +++| ENDM 01234 M00S01052.compmac +++| PAUSE SPACE 4,10 01235 M00S01053.compmac +++|*** PAUSE - PAUSE FOR RELOCATION AND RESET (RA) AND (FL). 01236 M00S01054.compmac +++|* 01237 M00S01055.compmac +++|* 01238 M00S01056.compmac +++|* PAUSE ST 01239 M00S01057.compmac +++|* ENTRY ST IF PRESENT INDICATES CM - CM+4 NEED NOT BE STSW 01240 M00S01058.compmac +++|* UPON EXIT FROM PAUSE. 01241 M00S01059.compmac +++|* CALLS FTN. 01242 M00S01060.compmac +++| 01243 M00S01061.compmac +++| 01244 M00S01062.compmac +++| PURGMAC PAUSE 01245 M00S01063.compmac +++| 01246 M00S01064.compmac +++| PAUSE MACRO ST 01247 M00S01065.compmac +++| MACREF PAUSE 01248 M00S01066.compmac +++| MONITOR 0 01249 M00S01067.compmac +++| IFC EQ,*ST**,3 01250 M00S01068.compmac +++| LDD CP 01251 M00S01069.compmac +++| ADN STSW 01252 M00S01070.compmac +++| CRD CM 01253 M00S01071.compmac +++| ENDM 01254 M00S01072.compmac +++| PJP SPACE 4,15 01255 M00S01073.compmac +++|*** PJP - CONDITIONAL POSITIVE SHORT OR LONG JUMP. 01256 M00S01074.compmac +++|* 01257 M00S01075.compmac +++|* GENERATES EITHER A *PJN* OR THE EQUIVALENT LONG JUMP 01258 M00S01076.compmac +++|* SERIES, DEPENDING UPON THE VALUE OF THE ADDRESS FIELD, 01259 M00S01077.compmac +++|* AND UPON WHETHER THE ADDRESS HAS OR HAS NOT YET BEEN 01260 M00S01078.compmac +++|* DEFINED. 01261 M00S01079.compmac +++|* 01262 M00S01080.compmac +++|* PJP ADDR 01263 M00S01081.compmac +++|* 01264 M00S01082.compmac +++|* ENTRY ADDR = BRANCH ADDRESS. 01265 M00S01083.compmac +++|* 01266 M00S01084.compmac +++|* NOTE DISCRETION SHOULD BE EXERCISED IN THE USE OF 01267 M00S01085.compmac +++|* THIS MACRO AS IT WILL ALWAYS GENERATE A LONG 01268 M00S01086.compmac +++|* JUMP SEQUENCE WHEN BRANCHING FORWARD. 01269 M00S01087.compmac +++| 01270 M00S01088.compmac +++| 01271 M00S01089.compmac +++| PURGMAC PJP 01272 M00S01090.compmac +++| 01273 M00S01091.compmac +++| PJP MACRO A 01274 M00S01092.compmac +++|.J IF DEF,A 01275 M00S01093.compmac +++|.J IFLE *-A,37B 01276 M00S01094.compmac +++|.J IFPL *-A 01277 M00S01095.compmac +++| PJN A 01278 M00S01096.compmac +++|.J ELSE 01279 M00S01097.compmac +++| MJN *+3 01280 M00S01098.compmac +++| LJM A 01281 M00S01099.compmac +++|.J ENDIF 01282 M00S01100.compmac +++| PJP ENDM 01283 M00S01101.compmac +++| RCHAN SPACE 4,10 01284 M00S01102.compmac +++|*** RCHAN - REQUEST CHANNEL. 01285 M00S01103.compmac +++|* 01286 M00S01104.compmac +++|* 01287 M00S01105.compmac +++|* RCHAN 01288 M00S01106.compmac +++|* ENTRY (A) = CHANNEL NUMBER. 01289 M00S01107.compmac +++| 01290 M00S01108.compmac +++| 01291 M00S01109.compmac +++| PURGMAC RCHAN 01292 M00S01110.compmac +++| 01293 M00S01111.compmac +++| RCHAN MACRO CH 01294 M00S01112.compmac +++| MACREF RCHAN 01295 M00S01113.compmac +++| STD CM+1 01296 M00S01114.compmac +++| STD CM+2 01297 M00S01115.compmac +++| MONITOR RCHM 01298 M00S01116.compmac +++| ENDM 01299 M00S01117.compmac +++| SBK SPACE 4,15 01300 M00S01118.compmac +++|*** SBK - SUBTRACT CONSTANT FROM (A). 01301 M00S01119.compmac +++|* 01302 M00S01120.compmac +++|* GENERATES EITHER AN *ADC*, *SBN*, OR *ADN* INSTRUCTION, 01303 M00S01121.compmac +++|* DEPENDING UPON THE VALUE OF THE OPERAND. IF THE VALUE 01304 M00S01122.compmac +++|* OF THE OPERAND REDUCES TO ZERO, NO INSTRUCTION WILL BE 01305 M00S01123.compmac +++|* GENERATED. 01306 M00S01124.compmac +++|* 01307 M00S01125.compmac +++|* SBK K 01308 M00S01126.compmac +++|* 01309 M00S01127.compmac +++|* ENTRY K = CONSTANT TO BE SUBTRACTED FROM (A). 01310 M00S01128.compmac +++|* 01311 M00S01129.compmac +++|* NOTE BECAUSE OF THE VARIABILITY OF THE CODE 01312 M00S01130.compmac +++|* GENERATED BY THIS MACRO, IT MUST NOT BE 01313 M00S01131.compmac +++|* CHANGED BY ON-LINE CODE MODIFICATION. 01314 M00S01132.compmac +++| 01315 M00S01133.compmac +++| 01316 M00S01134.compmac +++| PURGMAC SBK 01317 M00S01135.compmac +++| 01318 M00S01136.compmac +++| SBK MACRO K 01319 M00S01137.compmac +++| LOCAL B 01320 M00S01138.compmac +++| IF DEF,K,3 01321 M00S01139.compmac +++|.1 SET K 01322 M00S01140.compmac +++| ADK -.1
| Line S01141 Modification History | |
|---|---|
M01 (Removed by) | pmac5 |
Seq # *Modification Id* Act ----------------------------+ 01323 M01S01141.pmac5 ---| SKIP 5
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | pmac5 |
Seq # *Modification Id* Act ----------------------------+ 01324 M01S00001.pmac5 +++| SKIP 8D 01325 M01S00002.pmac5 +++|B MICRO 1,, "QUAL" 01326 M00S01142.compmac +++| RMT
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | pmac5 |
Seq # *Modification Id* Act ----------------------------+ 01327 M01S00003.pmac5 +++| QUAL "B" 01328 M00S01143.compmac +++|B EQU K
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | pmac5 |
Seq # *Modification Id* Act ----------------------------+ 01329 M01S00004.pmac5 +++| QUAL * 01330 M00S01144.compmac +++| RMT 01331 M00S01145.compmac +++|.1 MICRO 1,,*B* 01332 M00S01146.compmac +++| ADC -".1" 01333 M00S01147.compmac +++| SBK ENDM 01334 M00S01148.compmac +++| SETMS SPACE 4,30 01335 M00S01149.compmac +++|*** SETMS - SELECT MASS STORAGE PROCESSING DRIVER AND OPTIONS. 01336 M00S01150.compmac +++|* 01337 M00S01151.compmac +++|* THE *SETMS* MACRO LOADS A MASS STORAGE DRIVER APPROPRIATE 01338 M00S01152.compmac +++|* FOR THE OPERATION TO BE PERFORMED AND SELECTS THE DESIRED 01339 M00S01153.compmac +++|* ERROR PROCESSING OPTIONS. THE DRIVER INTERFACE IS FULLY 01340 M00S01154.compmac +++|* DOCUMENTED IN *PPR*. 01341 M00S01155.compmac +++|* 01342 M00S01156.compmac +++|* 01343 M00S01157.compmac +++|* SETMS OP,(EP1,EP2,... ,EPN),AD 01344 M00S01158.compmac +++|* 01345 M00S01159.compmac +++|* OP OPERATION TO PERFORM. 01346 M00S01160.compmac +++|* IO = NORMAL I/O OPERATION SELECTION. 01347 M00S01161.compmac +++|* PIO = PRIVILEGED I/O. DRIVER NAME IS FORCED 01348 M00S01162.compmac +++|* TO *6DI* FOR 7155-TYPE BUFFERED DEVICES. 01349 M00S01163.compmac +++|* READSTR = READ STREAM DEVICE. THIS OPTION APPLIES TO 01350 M00S01164.compmac +++|* BUFFERED DEVICES ONLY. 01351 M00S01165.compmac +++|* READSYS = READ SYSTEM FILE. THE EST ORDINAL MAY BE 01352 M00S01166.compmac +++|* RESET BY *MTR* TO A BETTER DEVICE. THIS 01353 M00S01167.compmac +++|* OPERATION TYPE IMPLIES SELECTION OF THE 01354 M00S01168.compmac +++|* *EPNS* ERROR PROCESSING OPTION IN THAT *MTR* 01355 M00S01169.compmac +++|* WILL NOT RETURN THE *LNRE* ERROR FLAG FOR AN 01356 M00S01170.compmac +++|* OFF OR SUSPECT DEVICE IF THE *READSYS* 01357 M00S01171.compmac +++|* OPERATION TYPE IS IN EFFECT. 01358 M00S01172.compmac +++|* STATUS = RETURN LOGICAL STATUS. THE NORMAL *SETMS* 01359 M00S01173.compmac +++|* RETURN PARAMETERS ARE SET BUT THE DRIVER IS 01360 M00S01174.compmac +++|* NOT RELOADED. 01361 M00S01175.compmac +++|* NODRIVER= THE CURRENT DRIVER IS INVALIDATED SUCH THAT 01362 M00S01176.compmac +++|* THE NEXT SETMS WILL LOAD A NEW DRIVER. 01363 M00S01177.compmac +++|* POSITION= CELL *DRSW* IS CLEARED SO THAT A SEEK WILL 01364 M00S01178.compmac +++|* BE PERFORMED THE NEXT TIME THE DRIVER IS 01365 M00S01179.compmac +++|* CALLED. 01366 M00S01180.compmac +++|* 01367 M00S01181.compmac +++|* EPX ERROR PROCESSING OPTIONS. 01368 M00S01182.compmac +++|* AD = ALLOW ACCESS OF *DOWN* DEVICE. 01369 M00S01183.compmac +++|* AR = RETURN TO THE CALLER IMMEDIATELY FOR ANY TYPE 01370 M00S01184.compmac +++|* OF ERROR. 01371 M00S01185.compmac +++|* DE = DISABLE *ENDMS*. 01372 M00S01186.compmac +++|* DF = DISABLE FAILURE EVALUATION. THE DEVICE WILL NOT 01373 M00S01187.compmac +++|* BE FLAGGED AS SUSPECT NOR WILL A TRACK BE SET IN 01374 M00S01188.compmac +++|* THE MST WHEN A MEDIA ERROR OCCURS. 01375 M00S01189.compmac +++|* ER = RETURN TO CALLER FOR NORMAL ERROR CONDITIONS. 01376 M00S01190.compmac +++|* NORMAL ERRORS ARE THOSE NOT INCLUDED AMOUNG 01377 M00S01191.compmac +++|* RESERVE ERROR TYPES. 01378 M00S01192.compmac +++|* ND = NO LEVEL 1 DIAGNOSTICS SHOULD BE RUN 01379 M00S01193.compmac +++|* (ISD DEVICES ONLY). 01380 M00S01194.compmac +++|* NF = NO FLUSH OF EXTENDED MEMORY BUFFER ON *WLSF* 01381 M00S01195.compmac +++|* FUNCTION (BUFFERED DEVICES ONLY). 01382 M00S01196.compmac +++|* NR = IMMEDIATE RETURN ON *DEVICE NOT READY* CONDITION. 01383 M00S01197.compmac +++|* NS = IGNORE DEVICE STATE. THIS OPTION IS USED BY PP 01384 M00S01198.compmac +++|* PROGRAMS ATTEMPT TO ACCESS A DEVICE REGARDLESS OF 01385 M00S01199.compmac +++|* ITS LOGICAL STATUS. 01386 M00S01200.compmac +++|* RR = IMMEDIATE RETURN ON RESERVE ERRORS. 01387 M00S01201.compmac +++|* RW = REWRITE DATA OPERATION, RECOPY OF EXISTING DATA 01388 M00S01202.compmac +++|* (BUFFERED DEVICES ONLY). 01389 M00S01203.compmac +++|* SM = DISALLOW *1DD* LOAD INTO THIS PP. 01390 M00S01204.compmac +++|* 01391 M00S01205.compmac +++|* AD ADDRESS OF WRITE ERROR PROCESSING BUFFER 01392 M00S01206.compmac +++|* 01393 M00S01207.compmac +++|* THIS MACRO MAY BE CALLED FOR CROSS REFERENCE PURPOSES 01394 M00S01208.compmac +++|* WITHOUT GENERATING CODE VIA THE FOLLOWING FORMAT - 01395 M00S01209.compmac +++|* 01396 M00S01210.compmac +++|* SETMS =,OP,(EP1,EP2,...,EPN),AD 01397 M00S01211.compmac +++|* 01398 M00S01212.compmac +++|* NOTE - THIS MACRO IS THE ONLY SUPPORTED INTERFACE TO THE 01399 M00S01213.compmac +++|* *.SMS* PPR ENTRY POINT. THE VALUE OF THIS SYMBOL IS 01400 M00S01214.compmac +++|* DEFINED IN *COMSMSP* AND *PPCOM*. 01401 M00S01215.compmac +++| 01402 M00S01216.compmac +++| 01403 M00S01217.compmac +++| PURGMAC SETMS 01404 M00S01218.compmac +++| 01405 M00S01219.compmac +++| SETMS MACRO O,E,A 01406 M00S01220.compmac +++| MACREF SETMS 01407 M00S01221.compmac +++| IFC EQ,*O*PREAD*,1 01408 M00S01222.compmac +++| SKIP 1 01409 M00S01223.compmac +++|.1 IFC EQ,*O*PWRITE* 01410 M00S01224.compmac +++|.2 IF DEF,REL= 01411 M00S01225.compmac +++|.2 IFEQ REL=,1 01412 M00S01226.compmac +++| LDD LA 01413 M00S01227.compmac +++| ADC *+5 01414 M00S01228.compmac +++|.2 ELSE 01415 M00S01229.compmac +++| LDC *+5 01416 M00S01230.compmac +++|.2 ENDIF 01417 M00S01231.compmac +++| STP .SMSB 01418 M00S01232.compmac +++| LDC 2RDI 01419 M00S01233.compmac +++|.1 ENDIF 01420 M00S01234.compmac +++| NOREF .1,.2,.3,.4 01421 M00S01235.compmac +++|.1 IFC NE,*O*=* 01422 M00S01236.compmac +++| IFC EQ,*O*POSITION*,3 01423 M00S01237.compmac +++| LDN 0 01424 M00S01238.compmac +++| STI D1 01425 M00S01239.compmac +++|.1 SKIP 01426 M00S01240.compmac +++| IFC EQ,*O*NODRIVER*,3 01427 M00S01241.compmac +++| LDN 0 01428 M00S01242.compmac +++| STP MSD 01429 M00S01243.compmac +++|.1 SKIP 01430 M00S01244.compmac +++|.2 SET 0 01431 M00S01245.compmac +++|.3 SET 10 01432 M00S01246.compmac +++| ECHO ,SO=(IO,PIO,PIOCH,READSYS,READSTR,STATUS,IOCH) 01433 M00S01247.compmac +++|.2 SET .2+1 01434 M00S01248.compmac +++|.4 IFC EQ,$SO$O$ 01435 M00S01249.compmac +++|._O EQU .2-1 01436 M00S01250.compmac +++|.3 SET ._O 01437 M00S01251.compmac +++| STOPDUP 01438 M00S01252.compmac +++|.4 ENDIF 01439 M00S01253.compmac +++| ENDD 01440 M00S01254.compmac +++|.4 IFEQ .3,10 01441 M00S01255.compmac +++| ERR ILLEGAL SETMS OPTION - O 01442 M00S01256.compmac +++|.4 ELSE 01443 M00S01257.compmac +++| IRP E 01444 M00S01258.compmac +++|.3 SET .3+EP_E*10B 01445 M00S01259.compmac +++| IRP 01446 M00S01260.compmac +++| IFC NE,*A**,3 01447 M00S01261.compmac +++|.3 SET .3+400000B 01448 M00S01262.compmac +++| LDC A 01449 M00S01263.compmac +++| STP WDSE 01450 M00S01264.compmac +++| LDK .3 01451 M00S01265.compmac +++| RJP .SMS 01452 M00S01266.compmac +++|.4 ENDIF 01453 M00S01267.compmac +++|.1 ENDIF 01454 M00S01268.compmac +++| ENDM 01455 M00S01269.compmac +++| SFA SPACE 4,25 01456 M00S01270.compmac +++|*** SFA - CALCULATE FIRST WORD ADDRESS IN MANAGED TABLE. 01457 M00S01271.compmac +++|* 01458 M00S01272.compmac +++|* GIVEN AN ORDINAL IN A MANAGED TABLE (CLT, EJT, EST, SYSTEM 01459 M00S01273.compmac +++|* FNT OR QFT), THE *SFA* MACRO CALCULATES THE TABLE ADDRSS OF 01460 M00S01274.compmac +++|* THE FIRST WORD OF THE ENTRY BY CALLING THE APPROPRIATE 01461 M00S01275.compmac +++|* PROCESSOR IN THE COMMON DECK *COMPGFP*. IN THE CASE OF THE 01462 M00S01276.compmac +++|* EST, THE *PPR* ROUTINE IS NORMALLY USED. 01463 M00S01277.compmac +++|* 01464 M00S01278.compmac +++|* SFA TABLE,ORD 01465 M00S01279.compmac +++|* 01466 M00S01280.compmac +++|* ENTRY TABLE = MANAGED TABLE MNEMONIC. 01467 M00S01281.compmac +++|* CLT = COMMON LIBRARIES TABLE. 01468 M00S01282.compmac +++|* EJT = EXECUTING JOB TABLE. 01469 M00S01283.compmac +++|* EST = EQUIPMENT STATUS TABLE. 01470 M00S01284.compmac +++|* FNT = SYSTEM FNT TABLE.
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01471 M01S00029.271l750 +++|* JCB = JOB CONTROL BLOCK TABLE. 01472 M00S01285.compmac +++|* QFT = QUEUE FILE TABLE.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01473 M01S00015.274l797 +++|* ORT = OPTICAL DISK REQUEST TABLE. 01474 M00S01286.compmac +++|* ORD = OPTIONAL DIRECT CELL OR MEMORY LOCATION 01475 M00S01287.compmac +++|* CONTAINING TABLE ORDINAL. 01476 M00S01288.compmac +++|* (A) = TABLE ORDINAL, IF *ORD* NOT SPECIFIED. 01477 M00S01289.compmac +++|* 01478 M00S01290.compmac +++|* EXIT (A) = ABSOLUTE ADDRESS OF TABLE ENTRY. 01479 M00S01291.compmac +++|*
| Line S01292 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01480 M01S01292.271l750 ---|* CALLS .CLT, .EJT, .EST, .FNT, .QFT.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01481 M02S00030.274l797 ---|* CALLS .CLT, .EJT, .EST, .FNT, .JCB, .QFT.
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01482 M01S00016.274l797 +++|* CALLS .CLT, .EJT, .EST, .FNT, .JCB, .QFT, .ORT. 01483 M00S01293.compmac +++| 01484 M00S01294.compmac +++| 01485 M00S01295.compmac +++| PURGMAC SFA 01486 M00S01296.compmac +++| 01487 M00S01297.compmac +++| SFA MACRO T,R 01488 M00S01298.compmac +++| MACREF SFA 01489 M00S01299.compmac +++|.1 SET 0
| Line S01300 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 01490 M01S01300.271l750 ---|.A ECHO ,TB=(CLT,EJT,EST,FNT,QFT)
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01491 M02S00031.274l797 ---|.A ECHO ,TB=(CLT,EJT,EST,FNT,JCB,QFT)
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01492 M01S00017.274l797 +++|.A ECHO ,TB=(CLT,EJT,EST,FNT,JCB,QFT,ORT) 01493 M00S01301.compmac +++|.B IFC EQ,$TB$T$ 01494 M00S01302.compmac +++|.1 SET 1 01495 M00S01303.compmac +++| STOPDUP 01496 M00S01304.compmac +++|.B ENDIF 01497 M00S01305.compmac +++|.A ENDD 01498 M00S01306.compmac +++|.A IFEQ .1,1 01499 M00S01307.compmac +++|.B IFC NE,$R$$ 01500 M00S01308.compmac +++|.C IFLT R,100B 01501 M00S01309.compmac +++| LDD R 01502 M00S01310.compmac +++|.C ELSE 01503 M00S01311.compmac +++| LDM R 01504 M00S01312.compmac +++|.C ENDIF 01505 M00S01313.compmac +++|.B ENDIF 01506 M00S01314.compmac +++|.B IFC NE,/T/EST/ 01507 M00S01315.compmac +++| RJM .T 01508 M00S01316.compmac +++|.B ELSE 01509 M00S01317.compmac +++| RJP .T 01510 M00S01318.compmac +++|.B ENDIF 01511 M00S01319.compmac +++|.A ELSE 01512 M00S01320.compmac +++| ERR ILLEGAL TABLE TYPE - T 01513 M00S01321.compmac +++|.A ENDIF 01514 M00S01322.compmac +++| SFA ENDM 01515 M00S01323.compmac +++| SHK SPACE 4,15 01516 M00S01324.compmac +++|*** SHK - CONDITIONALLY GENERATE SHIFT INSTRUCTION. 01517 M00S01325.compmac +++|* 01518 M00S01326.compmac +++|* GENERATES A *SHN* INSTRUCTION IF THE VALUE 01519 M00S01327.compmac +++|* OF THE OPERAND IS NON-ZERO. 01520 M00S01328.compmac +++|* 01521 M00S01329.compmac +++|* SHK K 01522 M00S01330.compmac +++|* 01523 M00S01331.compmac +++|* ENTRY K = SHIFT COUNT. 01524 M00S01332.compmac +++|* 01525 M00S01333.compmac +++|* NOTE BECAUSE OF THE VARIABILITY OF THE CODE 01526 M00S01334.compmac +++|* GENERATED BY THIS MACRO, IT MUST NOT BE 01527 M00S01335.compmac +++|* CHANGED BY ON-LINE CODE MODIFICATION. 01528 M00S01336.compmac +++| 01529 M00S01337.compmac +++| 01530 M00S01338.compmac +++| PURGMAC SHK 01531 M00S01339.compmac +++| 01532 M00S01340.compmac +++| SHK MACRO K 01533 M00S01341.compmac +++| IFNE K,0,1 01534 M00S01342.compmac +++| SHN K 01535 M00S01343.compmac +++| SHK ENDM 01536 M00S01344.compmac +++| SUBR SPACE 4,10 01537 M00S01345.compmac +++|*** SUBR - DEFINE SUBROUTINE ENTRY/EXIT LINE. 01538 M00S01346.compmac +++|* 01539 M00S01347.compmac +++|* 01540 M00S01348.compmac +++|*NAME SUBR RTN 01541 M00S01349.compmac +++|* DECLARE *NAME* TO BE THE ENTRY POINT TO A PP SUBROUTINE. 01542 M00S01350.compmac +++|* THIS SUBROUTINE IS ENTERED VIA RETURN JUMP TO *NAME*. 01543 M00S01351.compmac +++|* *RTN* = OPTIONAL RETURN IF NOT ENTERED VIA RETURN JUMP. 01544 M00S01352.compmac +++|* 01545 M00S01353.compmac +++|* THE FOLLOWING CODE IS GENERATED - 01546 M00S01354.compmac +++|*NAMEX LJM RTN OR 01547 M00S01355.compmac +++|*NAMEX LJM * 01548 M00S01356.compmac +++|*NAME EQU *-1 01549 M00S01357.compmac +++| 01550 M00S01358.compmac +++| 01551 M00S01359.compmac +++| PURGMAC SUBR 01552 M00S01360.compmac +++| 01553 M00S01361.compmac +++| MACRO SUBR,A,B
| Line S01362 Modification History | |
|---|---|
M01 (Removed by) | ns2552 |
Seq # *Modification Id* Act ----------------------------+ 01554 M01S01362.ns2552 ---|.1 SET B * 01555 M01S01363.ns2552 ---|A_X LJP .1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2552 |
Seq # *Modification Id* Act ----------------------------+ 01556 M01S00001.ns2552 +++| IFC EQ,$B$$,2 01557 M01S00002.ns2552 +++| A_X LJP * 01558 M01S00003.ns2552 +++| ELSE 1 01559 M01S00004.ns2552 +++| A_X LJP B 01560 M00S01364.compmac +++|A EQU *-1 01561 M00S01365.compmac +++| ENDM
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01562 M01S00024.273l780 +++| TADC SPACE 4,10 01563 M01S00025.273l780 +++|*** TADC - RELOCATABLE *ADC* INSTRUCTION. 01564 M01S00026.273l780 +++|* 01565 M01S00027.273l780 +++|* ASSEMBLES AN *ADC* INSTRUCTION AND INFORMATION TO ALLOW THE 01566 M01S00028.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01567 M01S00029.273l780 +++|* 01568 M01S00030.273l780 +++|* TADC C,R 01569 M01S00031.273l780 +++|* 01570 M01S00032.273l780 +++|* ENTRY C = CONSTANT TO BE ASSEMBLED INTO *ADC* INSTRUCTION. 01571 M01S00033.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *C* BY *COMPSIC*. 01572 M01S00034.273l780 +++| 01573 M01S00035.273l780 +++| 01574 M01S00036.273l780 +++| PURGMAC TADC 01575 M01S00037.273l780 +++| 01576 M01S00038.273l780 +++| TADC MACRO C,R 01577 M01S00039.273l780 +++| LOCAL A 01578 M01S00040.273l780 +++| A EQU * 01579 M01S00041.273l780 +++| ADC C 01580 M01S00042.273l780 +++| SIC RMT 01581 M01S00043.273l780 +++| CON A 01582 M01S00044.273l780 +++| CON R 01583 M01S00045.273l780 +++| SIC RMT 01584 M01S00046.273l780 +++| TADC ENDM 01585 M01S00047.273l780 +++| TADM SPACE 4,10 01586 M01S00048.273l780 +++|*** TADM - RELOCATABLE *ADM* INSTRUCTION. 01587 M01S00049.273l780 +++|* 01588 M01S00050.273l780 +++|* ASSEMBLES AN *ADM* INSTRUCTION AND INFORMATION TO ALLOW THE 01589 M01S00051.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01590 M01S00052.273l780 +++|* 01591 M01S00053.273l780 +++|* TADM M,D,R 01592 M01S00054.273l780 +++|* 01593 M01S00055.273l780 +++|* ENTRY M = CONSTANT TO BE ASSEMBLED INTO *ADM* INSTRUCTION. 01594 M01S00056.273l780 +++|* D = DIRECT CELL. 01595 M01S00057.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*. 01596 M01S00058.273l780 +++| 01597 M01S00059.273l780 +++| 01598 M01S00060.273l780 +++| PURGMAC TADM 01599 M01S00061.273l780 +++| 01600 M01S00062.273l780 +++| TADM MACRO M,D,R 01601 M01S00063.273l780 +++| LOCAL A 01602 M01S00064.273l780 +++| A EQU * 01603 M01S00065.273l780 +++| IFC EQ,$D$$,1 01604 M01S00066.273l780 +++| ADM M 01605 M01S00067.273l780 +++| ELSE 1 01606 M01S00068.273l780 +++| ADM M,D 01607 M01S00069.273l780 +++| SIC RMT 01608 M01S00070.273l780 +++| CON A 01609 M01S00071.273l780 +++| CON R 01610 M01S00072.273l780 +++| SIC RMT 01611 M01S00073.273l780 +++| TADM ENDM 01612 M01S00074.273l780 +++| TADN SPACE 4,10 01613 M01S00075.273l780 +++|*** TADN - RELOCATABLE *ADN* INSTRUCTION. 01614 M01S00076.273l780 +++|* 01615 M01S00077.273l780 +++|* ASSEMBLES AN *ADN* INSTRUCTION AND INFORMATION TO ALLOW THE 01616 M01S00078.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01617 M01S00079.273l780 +++|* 01618 M01S00080.273l780 +++|* TADN N,R 01619 M01S00081.273l780 +++|* 01620 M01S00082.273l780 +++|* ENTRY N = CONSTANT TO BE ASSEMBLED INTO *ADN* INSTRUCTION. 01621 M01S00083.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*. 01622 M01S00084.273l780 +++| 01623 M01S00085.273l780 +++| 01624 M01S00086.273l780 +++| PURGMAC TADN 01625 M01S00087.273l780 +++| 01626 M01S00088.273l780 +++| TADN MACRO N,R 01627 M01S00089.273l780 +++| LOCAL A 01628 M01S00090.273l780 +++| A EQU *-1 01629 M01S00091.273l780 +++| ADN N 01630 M01S00092.273l780 +++| SIC RMT 01631 M01S00093.273l780 +++| CON A 01632 M01S00094.273l780 +++| CON R 01633 M01S00095.273l780 +++| SIC RMT 01634 M01S00096.273l780 +++| TADN ENDM 01635 M01S00097.273l780 +++| TAOM SPACE 4,10 01636 M01S00098.273l780 +++|*** TAOM - RELOCATABLE *AOM* INSTRUCTION. 01637 M01S00099.273l780 +++|* 01638 M01S00100.273l780 +++|* ASSEMBLES AN *AOM* INSTRUCTION AND INFORMATION TO ALLOW THE 01639 M01S00101.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01640 M01S00102.273l780 +++|* 01641 M01S00103.273l780 +++|* TAOM M,D,R 01642 M01S00104.273l780 +++|* 01643 M01S00105.273l780 +++|* ENTRY M = CONSTANT TO BE ASSEMBLED INTO *AOM* INSTRUCTION. 01644 M01S00106.273l780 +++|* D = DIRECT CELL. 01645 M01S00107.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*. 01646 M01S00108.273l780 +++| 01647 M01S00109.273l780 +++| 01648 M01S00110.273l780 +++| PURGMAC TAOM 01649 M01S00111.273l780 +++| 01650 M01S00112.273l780 +++| TAOM MACRO M,D,R 01651 M01S00113.273l780 +++| LOCAL A 01652 M01S00114.273l780 +++| A EQU * 01653 M01S00115.273l780 +++| IFC EQ,$D$$,1 01654 M01S00116.273l780 +++| AOM M 01655 M01S00117.273l780 +++| ELSE 1 01656 M01S00118.273l780 +++| AOM M,D 01657 M01S00119.273l780 +++| SIC RMT 01658 M01S00120.273l780 +++| CON A 01659 M01S00121.273l780 +++| CON R 01660 M01S00122.273l780 +++| SIC RMT 01661 M01S00123.273l780 +++| TAOM ENDM 01662 M01S00124.273l780 +++| TLCN SPACE 4,10 01663 M01S00125.273l780 +++|*** TLCN - RELOCATABLE *LCN* INSTRUCTION. 01664 M01S00126.273l780 +++|* 01665 M01S00127.273l780 +++|* ASSEMBLES AN *LCN* INSTRUCTION AND INFORMATION TO ALLOW THE 01666 M01S00128.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01667 M01S00129.273l780 +++|* 01668 M01S00130.273l780 +++|* TLCN N,R 01669 M01S00131.273l780 +++|* 01670 M01S00132.273l780 +++|* ENTRY N = CONSTANT TO BE ASSEMBLED INTO *LCN* INSTRUCTION. 01671 M01S00133.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*. 01672 M01S00134.273l780 +++| 01673 M01S00135.273l780 +++| 01674 M01S00136.273l780 +++| PURGMAC TLCN 01675 M01S00137.273l780 +++| 01676 M01S00138.273l780 +++| TLCN MACRO N,R 01677 M01S00139.273l780 +++| LOCAL A 01678 M01S00140.273l780 +++| A EQU *-1 01679 M01S00141.273l780 +++| LCN N 01680 M01S00142.273l780 +++| SIC RMT 01681 M01S00143.273l780 +++| CON A 01682 M01S00144.273l780 +++| CON R 01683 M01S00145.273l780 +++| SIC RMT 01684 M01S00146.273l780 +++| TLCN ENDM 01685 M01S00147.273l780 +++| TLDC SPACE 4,10 01686 M01S00148.273l780 +++|*** TLDC - RELOCATABLE *LDC* INSTRUCTION. 01687 M01S00149.273l780 +++|* 01688 M01S00150.273l780 +++|* ASSEMBLES AN *LDC* INSTRUCTION AND INFORMATION TO ALLOW THE 01689 M01S00151.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01690 M01S00152.273l780 +++|* 01691 M01S00153.273l780 +++|* TLDC C,R 01692 M01S00154.273l780 +++|* 01693 M01S00155.273l780 +++|* ENTRY C = CONSTANT TO BE ASSEMBLED INTO *LDC* INSTRUCTION. 01694 M01S00156.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *C* BY *COMPSIC*. 01695 M01S00157.273l780 +++| 01696 M01S00158.273l780 +++| 01697 M01S00159.273l780 +++| PURGMAC TLDC 01698 M01S00160.273l780 +++| 01699 M01S00161.273l780 +++| TLDC MACRO C,R 01700 M01S00162.273l780 +++| LOCAL A 01701 M01S00163.273l780 +++| A EQU * 01702 M01S00164.273l780 +++| LDC C 01703 M01S00165.273l780 +++| SIC RMT 01704 M01S00166.273l780 +++| CON A 01705 M01S00167.273l780 +++| CON R 01706 M01S00168.273l780 +++| SIC RMT 01707 M01S00169.273l780 +++| TLDC ENDM 01708 M01S00170.273l780 +++| TLDM SPACE 4,10 01709 M01S00171.273l780 +++|*** TLDM - RELOCATABLE *LDM* INSTRUCTION. 01710 M01S00172.273l780 +++|* 01711 M01S00173.273l780 +++|* ASSEMBLES AN *LDM* INSTRUCTION AND INFORMATION TO ALLOW THE 01712 M01S00174.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01713 M01S00175.273l780 +++|* 01714 M01S00176.273l780 +++|* TLDM M,D,R 01715 M01S00177.273l780 +++|* 01716 M01S00178.273l780 +++|* ENTRY M = CONSTANT TO BE ASSEMBLED INTO *LDM* INSTRUCTION. 01717 M01S00179.273l780 +++|* D = DIRECT CELL. 01718 M01S00180.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*. 01719 M01S00181.273l780 +++| 01720 M01S00182.273l780 +++| 01721 M01S00183.273l780 +++| PURGMAC TLDM 01722 M01S00184.273l780 +++| 01723 M01S00185.273l780 +++| TLDM MACRO M,D,R 01724 M01S00186.273l780 +++| LOCAL A 01725 M01S00187.273l780 +++| A EQU * 01726 M01S00188.273l780 +++| IFC EQ,$D$$,1 01727 M01S00189.273l780 +++| LDM M 01728 M01S00190.273l780 +++| ELSE 1 01729 M01S00191.273l780 +++| LDM M,D 01730 M01S00192.273l780 +++| SIC RMT 01731 M01S00193.273l780 +++| CON A 01732 M01S00194.273l780 +++| CON R 01733 M01S00195.273l780 +++| SIC RMT 01734 M01S00196.273l780 +++| TLDM ENDM 01735 M01S00197.273l780 +++| TLDN SPACE 4,10 01736 M01S00198.273l780 +++|*** TLDN - RELOCATABLE *LDN* INSTRUCTION. 01737 M01S00199.273l780 +++|* 01738 M01S00200.273l780 +++|* ASSEMBLES AN *LDN* INSTRUCTION AND INFORMATION TO ALLOW THE 01739 M01S00201.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01740 M01S00202.273l780 +++|* 01741 M01S00203.273l780 +++|* TLDN N,R 01742 M01S00204.273l780 +++|* 01743 M01S00205.273l780 +++|* ENTRY N = CONSTANT TO BE ASSEMBLED INTO *LDN* INSTRUCTION. 01744 M01S00206.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*. 01745 M01S00207.273l780 +++| 01746 M01S00208.273l780 +++| 01747 M01S00209.273l780 +++| PURGMAC TLDN 01748 M01S00210.273l780 +++| 01749 M01S00211.273l780 +++| TLDN MACRO N,R 01750 M01S00212.273l780 +++| LOCAL A 01751 M01S00213.273l780 +++| A EQU *-1 01752 M01S00214.273l780 +++| LDN N 01753 M01S00215.273l780 +++| SIC RMT 01754 M01S00216.273l780 +++| CON A 01755 M01S00217.273l780 +++| CON R 01756 M01S00218.273l780 +++| SIC RMT 01757 M01S00219.273l780 +++| TLDN ENDM 01758 M01S00220.273l780 +++| TLMC SPACE 4,10 01759 M01S00221.273l780 +++|*** TLMC - RELOCATABLE *LMC* INSTRUCTION. 01760 M01S00222.273l780 +++|* 01761 M01S00223.273l780 +++|* ASSEBLES AN *LMC* INSTRUCTION AND INFORMATION TO ALLOW THE 01762 M01S00224.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01763 M01S00225.273l780 +++|* 01764 M01S00226.273l780 +++|* TLMC C,R 01765 M01S00227.273l780 +++|* 01766 M01S00228.273l780 +++|* ENTRY C = CONSTANT TO BE ASSEMBLED INTO *LMC* INSTRUCTION. 01767 M01S00229.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *C* BY *COMPSIC*. 01768 M01S00230.273l780 +++| 01769 M01S00231.273l780 +++| 01770 M01S00232.273l780 +++| PURGMAC TLMC 01771 M01S00233.273l780 +++| 01772 M01S00234.273l780 +++| TLMC MACRO C,R 01773 M01S00235.273l780 +++| LOCAL A 01774 M01S00236.273l780 +++| A EQU * 01775 M01S00237.273l780 +++| LMC C 01776 M01S00238.273l780 +++| SIC RMT 01777 M01S00239.273l780 +++| CON A 01778 M01S00240.273l780 +++| CON R 01779 M01S00241.273l780 +++| SIC RMT 01780 M01S00242.273l780 +++| TLMC ENDM 01781 M01S00243.273l780 +++| TLMM SPACE 4,10 01782 M01S00244.273l780 +++|*** TLMM - RELOCATABLE *LMM* INSTRUCTION. 01783 M01S00245.273l780 +++|* 01784 M01S00246.273l780 +++|* ASSEMBLES AN *LMM* INSTRUCTION AND INFORMATION TO ALLOW THE 01785 M01S00247.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01786 M01S00248.273l780 +++|* 01787 M01S00249.273l780 +++|* TLMM M,D,R 01788 M01S00250.273l780 +++|* 01789 M01S00251.273l780 +++|* ENTRY M = CONSTANT TO BE ASSEMBLED INTO *LMM* INSTRUCTION. 01790 M01S00252.273l780 +++|* D = DIRECT CELL. 01791 M01S00253.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*. 01792 M01S00254.273l780 +++| 01793 M01S00255.273l780 +++| 01794 M01S00256.273l780 +++| PURGMAC TLMM 01795 M01S00257.273l780 +++| 01796 M01S00258.273l780 +++| TLMM MACRO M,D,R 01797 M01S00259.273l780 +++| LOCAL A 01798 M01S00260.273l780 +++| A EQU * 01799 M01S00261.273l780 +++| IFC EQ,$D$$,1 01800 M01S00262.273l780 +++| LMM M 01801 M01S00263.273l780 +++| ELSE 1 01802 M01S00264.273l780 +++| LMM M,D 01803 M01S00265.273l780 +++| SIC RMT 01804 M01S00266.273l780 +++| CON A 01805 M01S00267.273l780 +++| CON R 01806 M01S00268.273l780 +++| SIC RMT 01807 M01S00269.273l780 +++| TLMM ENDM 01808 M01S00270.273l780 +++| TLMN SPACE 4,10 01809 M01S00271.273l780 +++|*** TLMN - RELOCATABLE *LMN* INSTRUCTION. 01810 M01S00272.273l780 +++|* 01811 M01S00273.273l780 +++|* ASSEMBLES AN *LMN* INSTRUCTION AND INFORMATION TO ALLOW THE 01812 M01S00274.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01813 M01S00275.273l780 +++|* 01814 M01S00276.273l780 +++|* TLMN N,R 01815 M01S00277.273l780 +++|* 01816 M01S00278.273l780 +++|* ENTRY N = CONSTANT TO BE ASSEMBLED INTO *LMN* INSTRUCTION. 01817 M01S00279.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*. 01818 M01S00280.273l780 +++| 01819 M01S00281.273l780 +++| 01820 M01S00282.273l780 +++| PURGMAC TLMN 01821 M01S00283.273l780 +++| 01822 M01S00284.273l780 +++| TLMN MACRO N,R 01823 M01S00285.273l780 +++| LOCAL A 01824 M01S00286.273l780 +++| A EQU *-1 01825 M01S00287.273l780 +++| LMN N 01826 M01S00288.273l780 +++| SIC RMT 01827 M01S00289.273l780 +++| CON A 01828 M01S00290.273l780 +++| CON R 01829 M01S00291.273l780 +++| SIC RMT 01830 M01S00292.273l780 +++| TLMN ENDM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 283l840 |
Seq # *Modification Id* Act ----------------------------+ 01831 M01S00001.283l840 +++| TLPC SPACE 4,10 01832 M01S00002.283l840 +++|*** TLPC - RELOCATABLE *LPC* INSTRUCTION. 01833 M01S00003.283l840 +++|* 01834 M01S00004.283l840 +++|* ASSEMBLES AN *LPC* INSTRUCTION AND INFORMATION TO ALLOW THE 01835 M01S00005.283l840 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01836 M01S00006.283l840 +++|* 01837 M01S00007.283l840 +++|* TLPC N,R 01838 M01S00008.283l840 +++|* 01839 M01S00009.283l840 +++|* ENTRY N = CONSTANT TO BE ASSEMBLED INTO *LPC* INSTRUCTION. 01840 M01S00010.283l840 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*. 01841 M01S00011.283l840 +++| 01842 M01S00012.283l840 +++| 01843 M01S00013.283l840 +++| PURGMAC TLPC 01844 M01S00014.283l840 +++| 01845 M01S00015.283l840 +++| TLPC MACRO N,R 01846 M01S00016.283l840 +++| LOCAL A 01847 M01S00017.283l840 +++| A EQU * 01848 M01S00018.283l840 +++| LPC N 01849 M01S00019.283l840 +++| SIC RMT 01850 M01S00020.283l840 +++| CON A 01851 M01S00021.283l840 +++| CON R 01852 M01S00022.283l840 +++| SIC RMT 01853 M01S00023.283l840 +++| TLPC ENDM
| Line S00293 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01854 M01S00293.273l780 +++| TLPN SPACE 4,10 01855 M01S00294.273l780 +++|*** TLPN - RELOCATABLE *LPN* INSTRUCTION. 01856 M01S00295.273l780 +++|* 01857 M01S00296.273l780 +++|* ASSEMBLES AN *LPN* INSTRUCTION AND INFORMATION TO ALLOW THE 01858 M01S00297.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01859 M01S00298.273l780 +++|* 01860 M01S00299.273l780 +++|* TLPN N,R 01861 M01S00300.273l780 +++|* 01862 M01S00301.273l780 +++|* ENTRY N = CONSTANT TO BE ASSEMBLED INTO *LPN* INSTRUCTION. 01863 M01S00302.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*. 01864 M01S00303.273l780 +++| 01865 M01S00304.273l780 +++| 01866 M01S00305.273l780 +++| PURGMAC TLPN 01867 M01S00306.273l780 +++| 01868 M01S00307.273l780 +++| TLPN MACRO N,R 01869 M01S00308.273l780 +++| LOCAL A 01870 M01S00309.273l780 +++| A EQU *-1 01871 M01S00310.273l780 +++| LPN N 01872 M01S00311.273l780 +++| SIC RMT 01873 M01S00312.273l780 +++| CON A 01874 M01S00313.273l780 +++| CON R 01875 M01S00314.273l780 +++| SIC RMT 01876 M01S00315.273l780 +++| TLPN ENDM 01877 M01S00316.273l780 +++| TRAM SPACE 4,10 01878 M01S00317.273l780 +++|*** TRAM - RELOCATABLE *RAM* INSTRUCTION. 01879 M01S00318.273l780 +++|* 01880 M01S00319.273l780 +++|* ASSEMBLES AN *RAM* INSTRUCTION AND INFORMATION TO ALLOW THE 01881 M01S00320.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01882 M01S00321.273l780 +++|* 01883 M01S00322.273l780 +++|* TRAM M,D,R 01884 M01S00323.273l780 +++|* 01885 M01S00324.273l780 +++|* ENTRY M = CONSTANT TO BE ASSEMBLED INTO *RAM* INSTRUCTION. 01886 M01S00325.273l780 +++|* D = DIRECT CELL. 01887 M01S00326.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*. 01888 M01S00327.273l780 +++| 01889 M01S00328.273l780 +++| 01890 M01S00329.273l780 +++| PURGMAC TRAM 01891 M01S00330.273l780 +++| 01892 M01S00331.273l780 +++| TRAM MACRO M,D,R 01893 M01S00332.273l780 +++| LOCAL A 01894 M01S00333.273l780 +++| A EQU * 01895 M01S00334.273l780 +++| IFC EQ,$D$$,1 01896 M01S00335.273l780 +++| RAM M 01897 M01S00336.273l780 +++| ELSE 1 01898 M01S00337.273l780 +++| RAM M,D 01899 M01S00338.273l780 +++| SIC RMT 01900 M01S00339.273l780 +++| CON A 01901 M01S00340.273l780 +++| CON R 01902 M01S00341.273l780 +++| SIC RMT 01903 M01S00342.273l780 +++| TRAM ENDM 01904 M01S00343.273l780 +++| TSBM SPACE 4,10 01905 M01S00344.273l780 +++|*** TSBM - RELOCATABLE *SBM* INSTRUCTION. 01906 M01S00345.273l780 +++|* 01907 M01S00346.273l780 +++|* ASSEMBLES AN *SBM* INSTRUCTION AND INFORMATION TO ALLOW THE 01908 M01S00347.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01909 M01S00348.273l780 +++|* 01910 M01S00349.273l780 +++|* TSBM M,D,R 01911 M01S00350.273l780 +++|* 01912 M01S00351.273l780 +++|* ENTRY M = CONSTANT TO BE ASSEMBLED INTO *SBM* INSTRUCTION. 01913 M01S00352.273l780 +++|* D = DIRECT CELL. 01914 M01S00353.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*. 01915 M01S00354.273l780 +++| 01916 M01S00355.273l780 +++| 01917 M01S00356.273l780 +++| PURGMAC TSBM 01918 M01S00357.273l780 +++| 01919 M01S00358.273l780 +++| TSBM MACRO M,D,R 01920 M01S00359.273l780 +++| LOCAL A 01921 M01S00360.273l780 +++| A EQU * 01922 M01S00361.273l780 +++| IFC EQ,$D$$,1 01923 M01S00362.273l780 +++| SBM M 01924 M01S00363.273l780 +++| ELSE 1 01925 M01S00364.273l780 +++| SBM M,D 01926 M01S00365.273l780 +++| SIC RMT 01927 M01S00366.273l780 +++| CON A 01928 M01S00367.273l780 +++| CON R 01929 M01S00368.273l780 +++| SIC RMT 01930 M01S00369.273l780 +++| TSBM ENDM 01931 M01S00370.273l780 +++| TSBN SPACE 4,10 01932 M01S00371.273l780 +++|*** TSBN - RELOCATABLE *SBN* INSTRUCTION. 01933 M01S00372.273l780 +++|* 01934 M01S00373.273l780 +++|* ASSEMBLES AN *SBN* INSTRUCTION AND INFORMATION TO ALLOW THE 01935 M01S00374.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01936 M01S00375.273l780 +++|* 01937 M01S00376.273l780 +++|* TSBN N,R 01938 M01S00377.273l780 +++|* 01939 M01S00378.273l780 +++|* ENTRY N = CONSTANT TO BE ASSEMBLED INTO *SBN* INSTRUCTION. 01940 M01S00379.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*. 01941 M01S00380.273l780 +++| 01942 M01S00381.273l780 +++| 01943 M01S00382.273l780 +++| PURGMAC TSBN 01944 M01S00383.273l780 +++| 01945 M01S00384.273l780 +++| TSBN MACRO N,R 01946 M01S00385.273l780 +++| LOCAL A 01947 M01S00386.273l780 +++| A EQU *-1 01948 M01S00387.273l780 +++| SBN N 01949 M01S00388.273l780 +++| SIC RMT 01950 M01S00389.273l780 +++| CON A 01951 M01S00390.273l780 +++| CON R 01952 M01S00391.273l780 +++| SIC RMT 01953 M01S00392.273l780 +++| TSBN ENDM 01954 M01S00393.273l780 +++| TSCN SPACE 4,10 01955 M01S00394.273l780 +++|*** TSCN - RELOCATABLE *SCN* INSTRUCTION. 01956 M01S00395.273l780 +++|* 01957 M01S00396.273l780 +++|* ASSEMBLES AN *SCN* INSTRUCTION AND INFORMATION TO ALLOW THE 01958 M01S00397.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01959 M01S00398.273l780 +++|* 01960 M01S00399.273l780 +++|* TSCN N,R 01961 M01S00400.273l780 +++|* 01962 M01S00401.273l780 +++|* ENTRY N = CONSTANT TO BE ASSEMBLED INTO *SCN* INSTRUCTION. 01963 M01S00402.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*. 01964 M01S00403.273l780 +++| 01965 M01S00404.273l780 +++| 01966 M01S00405.273l780 +++| PURGMAC TSCN 01967 M01S00406.273l780 +++| 01968 M01S00407.273l780 +++| TSCN MACRO N,R 01969 M01S00408.273l780 +++| LOCAL A 01970 M01S00409.273l780 +++| A EQU *-1 01971 M01S00410.273l780 +++| SCN N 01972 M01S00411.273l780 +++| SIC RMT 01973 M01S00412.273l780 +++| CON A 01974 M01S00413.273l780 +++| CON R 01975 M01S00414.273l780 +++| SIC RMT 01976 M01S00415.273l780 +++| TSCN ENDM 01977 M01S00416.273l780 +++| TSHN ENDM 01978 M01S00417.273l780 +++|*** TSHN - RELOCATABLE *SHN* INSTRUCTION. 01979 M01S00418.273l780 +++|* 01980 M01S00419.273l780 +++|* ASSEMBLES AN *SHN* INSTRUCTION AND INFORMATION TO ALLOW THE 01981 M01S00420.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 01982 M01S00421.273l780 +++|* 01983 M01S00422.273l780 +++|* TSHN N,R 01984 M01S00423.273l780 +++|* 01985 M01S00424.273l780 +++|* ENTRY N = CONSTANT TO BE ASSEMBLED INTO *SHN* INSTRUCTION. 01986 M01S00425.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *N* BY *COMPSIC*. 01987 M01S00426.273l780 +++| 01988 M01S00427.273l780 +++| 01989 M01S00428.273l780 +++| PURGMAC TSHN 01990 M01S00429.273l780 +++| 01991 M01S00430.273l780 +++| TSHN MACRO N,R 01992 M01S00431.273l780 +++| LOCAL A 01993 M01S00432.273l780 +++| A EQU *-1 01994 M01S00433.273l780 +++| SHN N 01995 M01S00434.273l780 +++| SIC RMT 01996 M01S00435.273l780 +++| CON A 01997 M01S00436.273l780 +++| CON R 01998 M01S00437.273l780 +++| SIC RMT 01999 M01S00438.273l780 +++| TSHN ENDM 02000 M01S00439.273l780 +++| TSOM SPACE 4,10 02001 M01S00440.273l780 +++|*** TSOM - RELOCATABLE *SOM* INSTRUCTION. 02002 M01S00441.273l780 +++|* 02003 M01S00442.273l780 +++|* ASSEMBLES AN *SOM* INSTRUCTION AND INFORMATION TO ALLOW THE 02004 M01S00443.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 02005 M01S00444.273l780 +++|* 02006 M01S00445.273l780 +++|* TSOM M,D,R 02007 M01S00446.273l780 +++|* 02008 M01S00447.273l780 +++|* ENTRY M = CONSTANT TO BE ASSEMBLED INTO *SOM* INSTRUCTION. 02009 M01S00448.273l780 +++|* D = DIRECT CELL. 02010 M01S00449.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*. 02011 M01S00450.273l780 +++| 02012 M01S00451.273l780 +++| 02013 M01S00452.273l780 +++| PURGMAC TSOM 02014 M01S00453.273l780 +++| 02015 M01S00454.273l780 +++| TSOM MACRO M,D,R 02016 M01S00455.273l780 +++| LOCAL A 02017 M01S00456.273l780 +++| A EQU * 02018 M01S00457.273l780 +++| IFC EQ,$D$$,1 02019 M01S00458.273l780 +++| SOM M 02020 M01S00459.273l780 +++| ELSE 1 02021 M01S00460.273l780 +++| SOM M,D 02022 M01S00461.273l780 +++| SIC RMT 02023 M01S00462.273l780 +++| CON A 02024 M01S00463.273l780 +++| CON R 02025 M01S00464.273l780 +++| SIC RMT 02026 M01S00465.273l780 +++| TSOM ENDM 02027 M01S00466.273l780 +++| TSTM SPACE 4,10 02028 M01S00467.273l780 +++|*** TSTM - RELOCATABLE *STM* INSTRUCTION. 02029 M01S00468.273l780 +++|* 02030 M01S00469.273l780 +++|* ASSEMBLES AN *STM* INSTRUCTION AND INFORMATION TO ALLOW THE 02031 M01S00470.273l780 +++|* CONSTANT VALUE TO BE MODIFIED BY *COMPSIC*. 02032 M01S00471.273l780 +++|* 02033 M01S00472.273l780 +++|* TSTM M,D,R 02034 M01S00473.273l780 +++|* 02035 M01S00474.273l780 +++|* ENTRY M = CONSTANT TO BE ASSEMBLED INTO *STM* INSTRUCTION. 02036 M01S00475.273l780 +++|* D = DIRECT CELL. 02037 M01S00476.273l780 +++|* R = ADDRESS OF VALUE TO BE ADDED TO *M* BY *COMPSIC*. 02038 M01S00477.273l780 +++| 02039 M01S00478.273l780 +++| 02040 M01S00479.273l780 +++| PURGMAC TSTM 02041 M01S00480.273l780 +++| 02042 M01S00481.273l780 +++| TSTM MACRO M,D,R 02043 M01S00482.273l780 +++| LOCAL A 02044 M01S00483.273l780 +++| A EQU * 02045 M01S00484.273l780 +++| IFC EQ,$D$$,1 02046 M01S00485.273l780 +++| STM M 02047 M01S00486.273l780 +++| ELSE 1 02048 M01S00487.273l780 +++| STM M,D 02049 M01S00488.273l780 +++| SIC RMT 02050 M01S00489.273l780 +++| CON A 02051 M01S00490.273l780 +++| CON R 02052 M01S00491.273l780 +++| SIC RMT 02053 M01S00492.273l780 +++| TSTM ENDM 02054 M00S01366.compmac +++| UJP SPACE 4,15 02055 M00S01367.compmac +++|*** UJP - UNCONDITIONAL SHORT OR LONG JUMP. 02056 M00S01368.compmac +++|* 02057 M00S01369.compmac +++|* GENERATES EITHER A *UJN* OR AN *LJM* INSTRUCTION, 02058 M00S01370.compmac +++|* DEPENDING UPON THE VALUE OF THE ADDRESS FIELD, 02059 M00S01371.compmac +++|* AND UPON WHETHER THE ADDRESS HAS OR HAS NOT YET 02060 M00S01372.compmac +++|* BEEN DEFINED. 02061 M00S01373.compmac +++|* 02062 M00S01374.compmac +++|* UJP ADDR 02063 M00S01375.compmac +++|* 02064 M00S01376.compmac +++|* ENTRY ADDR = BRANCH ADDRESS. 02065 M00S01377.compmac +++|* 02066 M00S01378.compmac +++|* NOTE DISCRETION SHOULD BE EXERCISED IN THE USE OF 02067 M00S01379.compmac +++|* THIS MACRO AS IT WILL ALWAYS GENERATE A LONG 02068 M00S01380.compmac +++|* JUMP SEQUENCE WHEN BRANCHING FORWARD. 02069 M00S01381.compmac +++| 02070 M00S01382.compmac +++| 02071 M00S01383.compmac +++| PURGMAC UJP 02072 M00S01384.compmac +++| 02073 M00S01385.compmac +++| UJP MACRO A 02074 M00S01386.compmac +++|.J IF DEF,A 02075 M00S01387.compmac +++|.J IFLE *-A,37B 02076 M00S01388.compmac +++|.J IFPL *-A 02077 M00S01389.compmac +++| UJN A 02078 M00S01390.compmac +++|.J ELSE 02079 M00S01391.compmac +++| LJM A 02080 M00S01392.compmac +++|.J ENDIF 02081 M00S01393.compmac +++| UJP ENDM 02082 M00S01394.compmac +++| ZJP SPACE 4,15 02083 M00S01395.compmac +++|*** ZJP - CONDITIONAL ZERO SHORT OR LONG JUMP. 02084 M00S01396.compmac +++|* 02085 M00S01397.compmac +++|* GENERATES EITHER A *ZJN* OR THE EQUIVALENT LONG JUMP 02086 M00S01398.compmac +++|* SERIES, DEPENDING UPON THE VALUE OF THE ADDRESS FIELD, 02087 M00S01399.compmac +++|* AND UPON WHETHER THE ADDRESS HAS OR HAS NOT YET BEEN 02088 M00S01400.compmac +++|* DEFINED. 02089 M00S01401.compmac +++|* 02090 M00S01402.compmac +++|* ZJP ADDR 02091 M00S01403.compmac +++|* 02092 M00S01404.compmac +++|* ENTRY ADDR = BRANCH ADDRESS. 02093 M00S01405.compmac +++|* 02094 M00S01406.compmac +++|* NOTE DISCRETION SHOULD BE EXERCISED IN THE USE OF 02095 M00S01407.compmac +++|* THIS MACRO AS IT WILL ALWAYS GENERATE A LONG 02096 M00S01408.compmac +++|* JUMP SEQUENCE WHEN BRANCHING FORWARD. 02097 M00S01409.compmac +++| 02098 M00S01410.compmac +++| 02099 M00S01411.compmac +++| PURGMAC ZJP 02100 M00S01412.compmac +++| 02101 M00S01413.compmac +++| ZJP MACRO A 02102 M00S01414.compmac +++|.J IF DEF,A 02103 M00S01415.compmac +++|.J IFLE *-A,37B 02104 M00S01416.compmac +++|.J IFPL *-A 02105 M00S01417.compmac +++| ZJN A 02106 M00S01418.compmac +++|.J ELSE 02107 M00S01419.compmac +++| NJN *+3 02108 M00S01420.compmac +++| LJM A 02109 M00S01421.compmac +++|.J ENDIF 02110 M00S01422.compmac +++| ZJP ENDM 02111 M00S01423.compmac +++| .1 SPACE 4,10 02112 M00S01424.compmac +++|** .1 - GENERATE BIT CONSTANT. 02113 M00S01425.compmac +++|* 02114 M00S01426.compmac +++|* 02115 M00S01427.compmac +++|* .1 (P1,P2,...,PN) 02116 M00S01428.compmac +++|* ENTRY (PN) = BIT CONSTANT TO SET. 02117 M00S01429.compmac +++| 02118 M00S01430.compmac +++| 02119 M00S01431.compmac +++| PURGMAC .1 02120 M00S01432.compmac +++| 02121 M00S01433.compmac +++| .1 MACRO P 02122 M00S01434.compmac +++|.1 SET 0 02123 M00S01435.compmac +++| IRP P 02124 M00S01436.compmac +++|.2 DECMIC P 02125 M00S01437.compmac +++|.1 SET .1+1S".2" 02126 M00S01438.compmac +++| IRP 02127 M00S01439.compmac +++| ENDM 02128 M00S01440.compmac +++| BITCON SPACE 4,10 02129 M00S01441.compmac +++|*** BITCON - SET BIT CONSTANT. 02130 M00S01442.compmac +++|* 02131 M00S01443.compmac +++|* 02132 M00S01444.compmac +++|* BITCON (P1,P2,...,PN) 02133 M00S01445.compmac +++|* ENTRY (PN) = BIT NUMBERS TO SET. 02134 M00S01446.compmac +++| 02135 M00S01447.compmac +++| 02136 M00S01448.compmac +++| PURGMAC BITCON 02137 M00S01449.compmac +++| 02138 M00S01450.compmac +++| BITCON MACRO P 02139 M00S01451.compmac +++|.1 BITSET (P) 02140 M00S01452.compmac +++| CON .1 02141 M00S01453.compmac +++| ENDM 02142 M00S01454.compmac +++| INDEX SPACE 4,30 02143 M00S01455.compmac +++|*** INDEX - GENERATE INDEXED TABLE. 02144 M00S01456.compmac +++|* 02145 M00S01457.compmac +++|* 02146 M00S01458.compmac +++|*NAME INDEX TYPE,ADDRESS 02147 M00S01459.compmac +++|* THIS MACRO IS INTENDED TO GENERATE TABLES WHICH ARE INDEXED 02148 M00S01460.compmac +++|* BY SYMBOLIC CONSTANTS SUCH AS FILE AND JOB ORIGIN CODES. 02149 M00S01461.compmac +++|* IT HAS 3 CALLING SEQUENCES. 02150 M00S01462.compmac +++|* IF *NAME* IS PRESENT, THE FWA OF THE TABLE IS SET TO *NAME*. 02151 M00S01463.compmac +++|* 02152 M00S01464.compmac +++|* IF *ADDRESS* IS MISSING, THE TABLE IS TERMINATED WITH AN 02153 M00S01465.compmac +++|* *ORG* TO THE END OF THE TABLE. THIS RESULTS IN ZERO ENTRIES 02154 M00S01466.compmac +++|* FOR UNDEFINED ENTRIES IN THE TABLE. 02155 M00S01467.compmac +++|* 02156 M00S01468.compmac +++|* OTHERWISE, A TABLE ENTRY IS MADE AT *INDEX* + *TYPE* OF 02157 M00S01469.compmac +++|* *ADDRESS*. 02158 M00S01470.compmac +++|* 02159 M00S01471.compmac +++|* EXAMPLE - TO GENERATE A TABLE FOR PROCESSING FILE TYPES. 02160 M00S01472.compmac +++|* 02161 M00S01473.compmac +++|*TFTP INDEX BEGIN TABLE 02162 M00S01474.compmac +++|* 02163 M00S01475.compmac +++|* INDEX PRFT,PRP PROCESS PRINT FILE AT *PRP* 02164 M00S01476.compmac +++|* INDEX LOFT,LOP PROCESS LOCAL FILE AT *LOP* 02165 M00S01477.compmac +++|* 02166 M00S01478.compmac +++|* INDEX MXFT TERMINATE TABLE AT *TFTP*+*MXFT* 02167 M00S01479.compmac +++|* 02168 M00S01480.compmac +++|* THE CODE PROCESSING THIS TABLE NOTES THAT - 02169 M00S01481.compmac +++|* A FILE TYPE \ *MXFT* CANNOT BE PROCESSED, 02170 M00S01482.compmac +++|* A TABLE ENTRY = 0, CANNOT BE PROCESSED. 02171 M00S01483.compmac +++|* 02172 M00S01484.compmac +++|* USES SYMBOL NAME *INDEX*. 02173 M00S01485.compmac +++|* CALLS NONE. 02174 M00S01486.compmac +++| 02175 M00S01487.compmac +++| 02176 M00S01488.compmac +++| PURGMAC INDEX 02177 M00S01489.compmac +++| 02178 M00S01490.compmac +++| MACRO INDEX,A,B,C 02179 M00S01491.compmac +++| IFC NE,$A$$ 02180 M00S01492.compmac +++|A BSS 0 02181 M00S01493.compmac +++|.2 SET A 02182 M00S01494.compmac +++| ELSE 5 02183 M00S01495.compmac +++| ORG .2+B 02184 M00S01496.compmac +++| IFC NE,$C$$,2 02185 M00S01497.compmac +++| LOC B 02186 M00S01498.compmac +++| CON C 02187 M00S01499.compmac +++| BSS 0 02188 M00S01500.compmac +++| ENDM 02189 M00S01501.compmac +++| ENDX
cdc/nos2.source/opl.opl871/common/compmac.txt · Last modified: by 127.0.0.1