cdc:nos2.source:opl.opl871:deck:0rp
Deck 0RP
3 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.0rp +++| IDENT 0RP,DRPX 00002 M01S00002.0rp +++| PERIPH J 00003 M01S00003.0rp +++| TITLE 0RP - RELEASE PERMANENT FILE. 00004 M01S00004.0rp +++| BASE MIXED 00005 M01S00005.0rp +++| SST 00006 M01S00006.0rp +++| QUAL$ EQU 1 DEFINE UNQUALIFIED COMMON DECKS 00007 M01S00007.0rp +++|*COMMENT 0RP - RELEASE PERMANENT FILE.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 0rp |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M02S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1972 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M01S00009.0rp +++| SPACE 4 00011 M01S00010.0rp +++|*** 0RP - RELEASE PERMANENT FILE. 00012 M01S00011.0rp +++|* J. L. WARDELL 72/10/20. 00013 M01S00012.0rp +++|* S. L. KSANDER. 75/05/26. 00014 M01S00013.0rp +++|* W. E. GOEBEL. 77/01/14. 00015 M01S00014.0rp +++|* P. C. SMITH. 79/04/27. 00016 M01S00015.0rp +++| SPACE 4 00017 M01S00016.0rp +++|*** 0RP IS A LOCATION FREE ROUTINE TO BE USED FOR 00018 M01S00017.0rp +++|* RELEASING PERMANENT FILES. 00019 M01S00018.0rp +++|* 00020 M01S00019.0rp +++|* IF THE FILE IS ATTACHED IN WRITE MODE THE SYSTEM SECTOR 00021 M01S00020.0rp +++|* OF THE FILE WILL BE UPDATED TO CLEAR THE WRITE LOCKOUT 00022 M01S00021.0rp +++|* STATUS. 00023 M01S00022.0rp +++|* 00024 M01S00023.0rp +++|* IF THE FILE WAS ATTACHED IN READ MODE THE SYSTEM SECTOR OF 00025 M01S00024.0rp +++|* THE FILE WILL BE UPDATED TO REFLECT ONE LESS USER 00026 M01S00025.0rp +++|* ACCESSING THE FILE. 00027 M01S00026.0rp +++|* 00028 M01S00027.0rp +++|* IF THE PURGE BIT IS SET THE FILE WILL BE DROPPED IF THE 00029 M01S00028.0rp +++|* USER COUNT INDICATES NO OTHER USERS ACCESSING FILE. 00030 M01S00029.0rp +++|* 00031 M01S00030.0rp +++|* ACTIVE FILE COUNT FOR DEVICE WILL BE DECREMENTED. 00032 M01S00031.0rp +++|* MMF USER COUNTS IN THE SYSTEM SECTOR WILL BE UPDATED. 00033 M01S00032.0rp +++|* 00034 M01S00033.0rp +++|* AN EVENT WILL BE ISSUED TO ROLL IN USERS WAITING FOR 00035 M01S00034.0rp +++|* THE FILE. 00036 M01S00035.0rp +++| SPACE 4 00037 M01S00036.0rp +++|*** CALL. 00038 M01S00037.0rp +++|* 00039 M01S00038.0rp +++|* ENTRY ((LA)-1) = FILE STATUS. 00040 M01S00039.0rp +++|* 6/0,1/0,1/A/,1/M,1/E/,1/U,1/R 00041 M01S00040.0rp +++|* A = APPEND 00042 M01S00041.0rp +++|* M = MODIFY 00043 M01S00042.0rp +++|* E = EXECUTE 00044 M01S00043.0rp +++|* U = UTILITY ATTACH. 00045 M01S00044.0rp +++|* R = READ ONLY 00046 M01S00045.0rp +++|* (FS - FS+4) = FST INFORMATION. 00047 M01S00046.0rp +++|* 00048 M01S00047.0rp +++|* EXIT (A) .LT. 0 IF PERMANENT FILE DEVICE INACCESSIBLE. 00049 M01S00048.0rp +++|* (T5) = EST ORDINAL OF PERMANENT FILE DEVICE. 00050 M01S00049.0rp +++|* (T6) = FIRST TRACK OF PERMANENT FILE. 00051 M01S00050.0rp +++| SPACE 4 00052 M01S00051.0rp +++|*** DAYFILE MESSAGES. 00053 M01S00052.0rp +++|* 00054 M01S00053.0rp +++|* *EQXXX, TYYYY, SYSTEM SECTOR ERROR.* 00055 M01S00054.0rp +++|* THIS MESSAGE IS ISSUED FOR EITHER READ OR WRITE ERRORS OR 00056 M01S00055.0rp +++|* IF THE TRACK OR LINKAGE BYTES CONTAINED IN THE SYSTEM 00057 M01S00056.0rp +++|* SECTOR ARE NOT VALID. 00058 M01S00057.0rp +++|* EQ EQUIPMENT MNEMONIC. 00059 M01S00058.0rp +++|* XXX EST ORDINAL. 00060 M01S00059.0rp +++|* YYYY TRACK NUMBER. 00061 M01S00060.0rp +++| SPACE 4 00062 M01S00061.0rp +++|*** USES LOCATIONS 0 - 17, BFMS. 00063 M01S00062.0rp +++|* 00064 M01S00063.0rp +++|* MUST BE LOADED BELOW BFMS. 00065 M01S00064.0rp +++| SPACE 4 00066 M01S00065.0rp +++|*** ROUTINES USED. 00067 M01S00066.0rp +++|* 00068 M01S00067.0rp +++|* CALLS DFM, RDS, WDS. 00069 M01S00068.0rp +++| SPACE 4 00070 M01S00069.0rp +++|** COMMON DECKS. 00071 M01S00070.0rp +++| 00072 M01S00071.0rp +++| 00073 M01S00072.0rp +++|*CALL COMPMAC 00074 M01S00073.0rp +++|*CALL COMSCPS 00075 M01S00074.0rp +++| QUAL EVENT 00076 M01S00075.0rp +++|*CALL COMSEVT 00077 M01S00076.0rp +++| QUAL * 00078 M01S00077.0rp +++|*CALL COMSPFM 00079 M01S00078.0rp +++|*CALL COMPREL 00080 M01S00079.0rp +++|*CALL COMSMSP 00081 M01S00080.0rp +++|*CALL COMSZOL 00082 M01S00081.0rp +++| SPACE 4,10 00083 M01S00082.0rp +++|**** DIRECT LOCATION ASSIGNMENTS. 00084 M01S00083.0rp +++| 00085 M01S00084.0rp +++| 00086 M01S00085.0rp +++| CF EQU 16 CHECKPOINT REQUEST FLAG 00087 M01S00086.0rp +++| FS EQU 20 - 24 FST INFORMATION (5 LOCATIONS) 00088 M01S00087.0rp +++| 00089 M01S00088.0rp +++|**** 00090 M01S00089.0rp +++| TITLE MAIN ROUTINE. 00091 M01S00090.0rp +++|** DRP MAIN ROUTINE. 00092 M01S00091.0rp +++| 00093 M01S00092.0rp +++| 00094 M01S00093.0rp +++| ORG 5 00095 M01S00094.0rp +++| DRP SUBR ENTRY/EXIT 00096 M01S00095.0rp +++| 00097 M01S00096.0rp +++|* INTERLOCK TRACK. 00098 M01S00097.0rp +++| 00099 M01S00098.0rp +++| DRP1 LDD FS SET EST ORDINAL 00100 M01S00099.0rp +++| STD T5 00101 M01S00001.ns2553 +++| ADD TH IMMEDIATE RETURN ON INACCESSIBLE DEVICE 00102 M01S00100.0rp +++| STD CM+1 00103 M01S00101.0rp +++| LDD FS+1 SET FIRST TRACK 00104 M01S00102.0rp +++| STD T6 00105 M01S00103.0rp +++| ZJN DRPX IF NO TRACKS ASSIGNED 00106 M01S00104.0rp +++| STD CM+2 00107 M01S00105.0rp +++| LDN STIS SET TRACK INTERLOCK 00108 M01S00106.0rp +++| STD CM+3 00109 M01S00107.0rp +++| MONITOR STBM 00110 M01S00002.ns2553 +++| LDD CM+1 00111 M01S00003.ns2553 +++| ZJN DRP3 IF INTERLOCK SET 00112 M01S00004.ns2553 +++| SHN 21-11 00113 M01S00005.ns2553 +++| MJN DRPX IF DEVICE INACCESSIBLE 00114 M01S00108.0rp +++| LCN 77 00115 M01S00109.0rp +++| STD T1
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | 0rp |
M02 (Updated by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00116 M02S00110.ns2553 ---| LDD CM+1
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | 0rp |
M02 (Updated by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00117 M02S00111.ns2553 ---| ZJN DRP3 IF INTERLOCK SET 00118 M01S00112.0rp +++| 00119 M01S00113.0rp +++|* DELAY 1/2 SECOND AND RETRY. 00120 M01S00114.0rp +++| 00121 M01S00115.0rp +++| DRP2 SOD T1 00122 M01S00116.0rp +++| ZJN DRP1 IF DELAY EXPIRED RETRY INTERLOCK 00123 M01S00117.0rp +++| PAUSE 00124 M01S00118.0rp +++| DELAY 00125 M01S00119.0rp +++| LDD CM+1 00126 M01S00120.0rp +++| LMN ORET 00127 M01S00121.0rp +++| NJN DRP2 IF NO OPERATOR OVERRIDE 00128 M01S00122.0rp +++| LJM DRP15 DECREMENT FILE COUNT AND EXIT 00129 M01S00123.0rp +++| 00130 M01S00124.0rp +++|* READ SYSTEM SECTOR. 00131 M01S00125.0rp +++| 00132 M01S00126.0rp +++| DRP3 STD T7 00133 M01S00127.0rp +++| STD CF CLEAR CHECKPOINT FLAG 00134 M01S00128.0rp +++| SETMS IO,RW 00135 M01S00129.0rp +++| LDD CM+3 SET EQUIPMENT IN ERROR MESSAGE 00136 M01S00130.0rp +++| LPC 3777 00137 M01S00131.0rp +++| STM DRPE 00138 M01S00132.0rp +++| LDC BFMS READ NEXT SECTOR 00139 M01S00133.0rp +++| RJM. RDS 00140 M01S00134.0rp +++| PJN DRP5 IF NO ERROR 00141 M01S00135.0rp +++| DRP4 SHN 21-12 00142 M01S00136.0rp +++| MJN DRP6 IF NON-RECOVERABLE ERROR 00143 M01S00137.0rp +++| RJM ITR CLEAR TRACK INTERLOCK 00144 M01S00138.0rp +++| LCN 0 00145 M01S00139.0rp +++| LJM DRPX RETURN 00146 M01S00140.0rp +++| 00147 M01S00141.0rp +++| DRP5 LDM. BFMS+1 00148 M01S00142.0rp +++| LMN 77 00149 M01S00143.0rp +++| NJN DRP9 IF NOT SYSTEM SECTOR WORD COUNT 00150 M01S00144.0rp +++| LDM. BFMS CHECK NEXT SECTOR 00151 M01S00145.0rp +++| LMC 3777 00152 M01S00146.0rp +++| NJN DRP9 IF NOT SYSTEM SECTOR ID 00153 M01S00147.0rp +++| LDD T6 CHECK TRACK 00154 M01S00148.0rp +++| LMM. FTSS 00155 M01S00149.0rp +++| DRP6 NJN DRP9 IF ERROR IN SYSTEM SECTOR 00156 M01S00150.0rp +++| LDM. FISS 00157 M01S00151.0rp +++| NJN DRP8 IF FAST ATTACH ENTRY 00158 M01S00152.0rp +++| 00159 M01S00153.0rp +++|* SET ACCESS AND USER COUNTS FOR NORMAL FILE. 00160 M01S00154.0rp +++| 00161 M01S00155.0rp +++| RJM UAM UPDATE ACCESS MODE AND USER COUNTS 00162 M01S00156.0rp +++| ZJN DRP10 IF NO MORE USERS 00163 M01S00157.0rp +++| LMN 40 CHECK PURGE BIT 00164 M01S00158.0rp +++| NJN DRP10 IF USERS ACCESSING FILE 00165 M01S00159.0rp +++| LDM. CTSS+FCEF CHECK FOR BOI/EOI VERIFICATION ERROR 00166 M01S00160.0rp +++| SHN 0-13 00167 M01S00161.0rp +++| NJN DRP11 IF ERROR (LEAVE IN CURRENT STATE) 00168 M01S00162.0rp +++| 00169 M01S00163.0rp +++|* DROP FILE BEING PURGED. 00170 M01S00164.0rp +++| 00171 M01S00165.0rp +++| LCN STBM-DTKM CHANGE TO DROP FILE 00172 M01S00166.0rp +++| RAM ITRA 00173 M01S00167.0rp +++| AOD CF 00174 M01S00168.0rp +++| DRP8 UJN DRP11 RELEASE FILE 00175 M01S00169.0rp +++| 00176 M01S00170.0rp +++| DRP9 ENDMS 00177 M01S00171.0rp +++| UJN DRP13 ISSUE ERROR MESSAGE 00178 M01S00172.0rp +++| 00179 M01S00173.0rp +++|* ISSUE EVENT WHILE WAITING FOR DISK REVOLUTION. 00180 M01S00174.0rp +++| 00181 M01S00175.0rp +++| DRP10 LDN 0 ISSUE EVENT 00182 M01S00176.0rp +++| STD CM+1 00183 M01S00177.0rp +++| LDD T6 00184 M01S00178.0rp +++| STD CM+4 00185 M01S00179.0rp +++| LDD T5 00186 M01S00180.0rp +++| STD CM+3 00187 M01S00181.0rp +++| MONITOR EATM 00188 M01S00182.0rp +++| LDC BFMS+WLSF REWRITE SYSTEM SECTOR 00189 M01S00183.0rp +++| RJM. WDS 00190 M01S00184.0rp +++| DRP11 PJN DRP14 IF NO WRITE ERROR 00191 M01S00185.0rp +++| LJM DRP4 CHECK ERROR STATUS 00192 M01S00186.0rp +++| 00193 M01S00187.0rp +++|* ISSUE ERROR MESSAGE. 00194 M01S00188.0rp +++| 00195 M01S00189.0rp +++| DRP13 LDD T5 CONVERT UPPER TWO DIGITS OF EST ORDINAL 00196 M01S00190.0rp +++| SHN -3 00197 M01S00191.0rp +++| RJM C2D 00198 M01S00192.0rp +++| STM DRPE+1 00199 M01S00193.0rp +++| LDD T5 CONVERT LOWER DIGIT OF EST ORDINAL 00200 M01S00194.0rp +++| LPN 7 00201 M01S00195.0rp +++| SHN 6 00202 M01S00196.0rp +++| RAM DRPE+2 00203 M01S00197.0rp +++| LDD T6 SET TRACK NUMBER IN ERROR MESSAGE 00204 M01S00198.0rp +++| SHN -6 00205 M01S00199.0rp +++| RJM C2D 00206 M01S00200.0rp +++| STM DRPE+4 00207 M01S00201.0rp +++| LDD T6 00208 M01S00202.0rp +++| RJM C2D 00209 M01S00203.0rp +++| STM DRPE+5 00210 M01S00204.0rp +++| LDC DRPE ISSUE DAYFILE MESSAGE 00211 M01S00205.0rp +++| ADD LA 00212 M01S00206.0rp +++| RJM. DFM 00213 M01S00207.0rp +++| 00214 M01S00208.0rp +++|* CLEAR TRACK INTERLOCK / DROP TRACK. 00215 M01S00209.0rp +++| 00216 M01S00210.0rp +++| DRP14 ENDMS 00217 M01S00211.0rp +++| RJM ITR ISSUE TRACK REQUEST 00218 M01S00212.0rp +++| LDD CF 00219 M01S00213.0rp +++| ZJN DRP15 IF *DTKM* NOT ISSUED 00220 M01S00214.0rp +++| 00221 M01S00215.0rp +++|* INCREMENT PRU LIMIT FIELD IN CONTROL POINT AREA. 00222 M01S00216.0rp +++|* NUMBER OF SECTORS RETURNED BY *DTKM* IS IN (CM+3 - CM+4). 00223 M01S00217.0rp +++| 00224 M01S00218.0rp +++| LDN CICS INCREMENT CP AREA FIELD FUNCTION CODE 00225 M01S00219.0rp +++| STD CM 00226 M01S00220.0rp +++| LDK ACLW ADDRESS OF MASS STORAGE PRU LIMIT 00227 M01S00221.0rp +++| STD CM+1 00228 M01S00222.0rp +++| LDN 0D*100+18D POSITION AND WIDTH OF LIMIT FIELD 00229 M01S00223.0rp +++| STD CM+2 00230 M01S00224.0rp +++| LDD MA WRITE *UADM* PARAMETERS TO MESSAGE BUFFER 00231 M01S00225.0rp +++| CWD CM 00232 M01S00226.0rp +++| LDN 1 00233 M01S00227.0rp +++| STD CM+1 REQUEST COUNT 00234 M01S00228.0rp +++| STD CM+2 DO NOT DROP PP 00235 M01S00229.0rp +++| MONITOR UADM 00236 M01S00230.0rp +++| 00237 M01S00231.0rp +++|* UPDATE DEVICE STATUS. 00238 M01S00232.0rp +++| 00239 M01S00233.0rp +++| DRP15 LDD T5 DECREMENT USER COUNT 00240 M01S00234.0rp +++| STD CM+1 00241 M01S00235.0rp +++| LDN DUCS 00242 M01S00236.0rp +++| STD CM+3
| Line S00237 Modification History | |
|---|---|
M01 (Added by) | 0rp |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00243 M02S00237.253l688 ---| MONITOR STBM 00244 M01S00001.253l688 +++| MONITOR SMDM 00245 M01S00238.0rp +++| 00246 M01S00239.0rp +++|* ISSUE OVERCOMMITMENT EVENT FOR AUXILIARY REMOVABLE 00247 M01S00240.0rp +++|* DEVICE WITH ZERO USER COUNT. 00248 M01S00241.0rp +++| 00249 M01S00242.0rp +++| SFA EST,T5 CHECK FOR AUXILIARY REMOVABLE DEVICE 00250 M01S00243.0rp +++| ADK EQDE 00251 M01S00244.0rp +++| CRD CM 00252 M01S00245.0rp +++| LDD CM+4 00253 M01S00246.0rp +++| SHN 3 00254 M01S00247.0rp +++| ADN MDGL 00255 M01S00248.0rp +++| CRD CM 00256 M01S00249.0rp +++| ADN STLL-MDGL 00257 M01S00250.0rp +++| CRD T0 GET USER COUNT 00258 M01S00251.0rp +++| LDD CM 00259 M01S00252.0rp +++| SHN -12 00260 M01S00253.0rp +++| LMN 3 00261 M01S00254.0rp +++| NJN DRP16 IF FAMILY OR NON-REMOVABLE DEVICE 00262 M01S00255.0rp +++| LDD T0+3 00263 M01S00256.0rp +++| NJN DRP16 IF USERS 00264 M01S00257.0rp +++| STD CM+1 ISSUE OVERCOMMITMENT EVENT 00265 M01S00258.0rp +++| LDC /EVENT/OVRE 00266 M01S00259.0rp +++| STD CM+4 00267 M01S00260.0rp +++| SHN -14 00268 M01S00261.0rp +++| STD CM+3 00269 M01S00262.0rp +++| MONITOR EATM 00270 M01S00263.0rp +++| DRP16 LJM DRPX EXIT 00271 M01S00264.0rp +++| 00272 M01S00265.0rp +++| 00273 M01S00266.0rp +++| DRPE DATA C*EQ000, T0000, SYSTEM SECTOR ERROR.* 00274 M01S00267.0rp +++| ITR SPACE 4,10 00275 M01S00268.0rp +++|** ITR - ISSUE TRACK REQUEST. 00276 M01S00269.0rp +++|* 00277 M01S00270.0rp +++|* ENTRY (CF) = CHECKPOINT REQUEST FLAG. 00278 M01S00271.0rp +++|* (T5) = EST ORDINAL. 00279 M01S00272.0rp +++|* (T6) = FIRST TRACK OF FILE. 00280 M01S00273.0rp +++|* 00281 M01S00274.0rp +++|* USES CM - CM+4. 00282 M01S00275.0rp +++|* 00283 M01S00276.0rp +++|* MACROS MONITOR. 00284 M01S00277.0rp +++| 00285 M01S00278.0rp +++| 00286 M01S00279.0rp +++| ITR SUBR ENTRY/EXIT 00287 M01S00280.0rp +++| LDD T6 00288 M01S00281.0rp +++| STD CM+2 SET FIRST TRACK 00289 M01S00282.0rp +++| LDD CF 00290 M01S00283.0rp +++| SHN 13-0 CHECKPOINT FLAG 00291 M01S00284.0rp +++| LMD T5 00292 M01S00285.0rp +++| STD CM+1 APPEND TO EST ORDINAL 00293 M01S00286.0rp +++| LDN CTIS 00294 M01S00287.0rp +++| STD CM+3 CLEAR TRACK INTERLOCK 00295 M01S00288.0rp +++| ITRA MONITOR STBM 00296 M01S00289.0rp +++|* MONITOR DTKM (FILE PURGED) 00297 M01S00290.0rp +++|* LDN 0 00298 M01S00291.0rp +++| UJN ITRX RETURN 00299 M01S00292.0rp +++| TITLE SUBROUTINES. 00300 M01S00293.0rp +++| UAM SPACE 4 00301 M01S00294.0rp +++|** UAM - UPDATE ACCESS MODE AND COUNTS. 00302 M01S00295.0rp +++|* 00303 M01S00296.0rp +++|* ENTRY (CASS) = ACCESS MODE OF FILE. 00304 M01S00297.0rp +++|* BIT DESCRIPTION 00305 M01S00298.0rp +++|* 0 UNUSED. 00306 M01S00299.0rp +++|* 1 FILE MAY BE EXTENDED (W, M OR A MODE). 00307 M01S00300.0rp +++|* 2 UNUSED. 00308 M01S00301.0rp +++|* 3 FILE MAY BE REWRITTEN (W, M OR U MODE). 00309 M01S00302.0rp +++|* 4 FILE MAY BE SHORTENED (W MODE). 00310 M01S00303.0rp +++|* 5 FILE PURGED. 00311 M01S00304.0rp +++|* 6 FILE ATTACHED BY SYSTEM UTILITY. 00312 M01S00305.0rp +++|* (T5) = EST ORDINAL. 00313 M01S00306.0rp +++|* 00314 M01S00307.0rp +++|* EXIT (CASS) = NEW ACCESS MODE OF FILE. 00315 M01S00308.0rp +++|* (A) .NE. 0 IF OTHER USERS ACCESSING FILE OR FILE 00316 M01S00309.0rp +++|* PURGED. 00317 M01S00310.0rp +++|* (A) = 40 IF FILE PURGED. 00318 M01S00311.0rp +++|* 00319 M01S00312.0rp +++|* USES T2, T3, CM - CM+4. 00320 M01S00313.0rp +++|* 00321 M01S00314.0rp +++|* MACROS SFA. 00322 M01S00315.0rp +++|* 00323 M01S00316.0rp +++|* NOTES WHEN A FILE IS ATTACHED IN A READ MODE AND THE USER 00324 M01S00317.0rp +++|* COUNT IS TO BE DECREMENTED, IT IS DONE BY COMMON 00325 M01S00318.0rp +++|* CODE. THIS IS DUE TO THE CORRESPONDENCE BETWEEN THE 00326 M01S00319.0rp +++|* FILE STATUS VALUES FROM THE LOCAL FNT ENTRY FOR READ 00327 M01S00320.0rp +++|* MODES AND THE BYTE WHERE THE APPROPRIATE USER COUNT 00328 M01S00321.0rp +++|* IS LOCATED. ADDING ONE TO THE VALUE OF BITS 3-5 OF 00329 M01S00322.0rp +++|* THE STATUS WILL GIVE THE BYTE NUMBER. 00330 M01S00323.0rp +++| 00331 M01S00324.0rp +++| 00332 M01S00325.0rp +++| UAM4 SHN 1-3 DETERMINE USER COUNT OFFSET 00333 M01S00326.0rp +++| LPN 3 00334 M01S00327.0rp +++| STD T3 00335 M01S00328.0rp +++| RAD T2 ADD WORD OFFSET OF LOCAL COUNTS 00336 M01S00329.0rp +++| SOP UCSS+6,T2 DECREMENT LOCAL USER COUNT 00337 M01S00330.0rp +++| SOP UCSS+1,T3 DECREMENT GLOBAL USER COUNT 00338 M01S00331.0rp +++| 00339 M01S00332.0rp +++|* RETURN FILE STATUS. 00340 M01S00333.0rp +++| 00341 M01S00334.0rp +++| UAM5 LDM. UCSS+1 00342 M01S00335.0rp +++| ADM. UCSS+2 00343 M01S00336.0rp +++| ADM. UCSS+3 00344 M01S00337.0rp +++| ADM. UCSS+4 00345 M01S00338.0rp +++| SHN 6 00346 M01S00339.0rp +++| ADM. CASS 00347 M01S00340.0rp +++| 00348 M01S00341.0rp +++| UAM SUBR ENTRY/EXIT 00349 M01S00342.0rp +++| SFA EST,T5 COMPUTE BASE ADDRESS OF LOCAL COUNTS 00350 M01S00343.0rp +++| ADK EQDE 00351 M01S00344.0rp +++| CRD CM 00352 M01S00345.0rp +++| LDD CM+4 00353 M01S00346.0rp +++| SHN 3 00354 M01S00347.0rp +++| ADN DULL GET MACHINE INDEX 00355 M01S00348.0rp +++| CRD CM 00356 M01S00349.0rp +++| LDD CM+2 00357 M01S00350.0rp +++| LPN 17 00358 M01S00351.0rp +++| STD T2 00359 M01S00352.0rp +++| SHN 2 00360 M01S00353.0rp +++| RAD T2 00361 M01S00354.0rp +++| LDM -1 00362 M01S00355.0rp +++| LPN 2 00363 M01S00356.0rp +++| ZJN UAM2 IF UTILITY ATTACH STATUS NOT SET 00364 M01S00357.0rp +++| 00365 M01S00358.0rp +++|* CLEAR SYSTEM UTILITY ATTACH FLAGS. 00366 M01S00359.0rp +++| 00367 M01S00360.0rp +++| LDC -100 CLEAR GLOBAL UTILITY ATTACH FLAG 00368 M01S00361.0rp +++| RAM. CASS 00369 M01S00362.0rp +++| LCN 2 CLEAR LOCAL UTILITY ATTACH FLAG 00370 M01S00363.0rp +++| RAP UCSS+5,T2 00371 M01S00364.0rp +++| 00372 M01S00365.0rp +++|* WRITE MODE PROCESSOR. 00373 M01S00366.0rp +++| 00374 M01S00367.0rp +++| UAM2 LDM -1 00375 M01S00368.0rp +++| SHN 21-0 00376 M01S00369.0rp +++| PJN UAM3 IF WRITABLE MODE 00377 M01S00370.0rp +++| LJM UAM4 PROCESS NON-WRITEABLE MODES 00378 M01S00371.0rp +++| 00379 M01S00372.0rp +++| UAM3 LDM. CASS CLEAR ALL WRITE BITS 00380 M01S00373.0rp +++| SCN 32 00381 M01S00374.0rp +++| STM. CASS 00382 M01S00375.0rp +++| LDP UCSS+5,T2 CLEAR LOCAL WRITE FLAG 00383 M01S00376.0rp +++| SCN 1 00384 M01S00377.0rp +++| STP UCSS+5,T2 00385 M01S00378.0rp +++| LJM UAM5 RETURN FILE STATUS 00386 M01S00379.0rp +++| SPACE 4 00387 M01S00380.0rp +++|** COMMON DECKS. 00388 M01S00381.0rp +++| 00389 M01S00382.0rp +++| 00390 M01S00383.0rp +++|*CALL COMPC2D 00391 M01S00384.0rp +++| SPACE 4 00392 M01S00385.0rp +++| OVERFLOW 5,ZRPL 00393 M01S00386.0rp +++| END
cdc/nos2.source/opl.opl871/deck/0rp.txt · Last modified: by 127.0.0.1