cdc:nos2.source:opl.opl871:deck:0rp
Deck 0RP
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.0rp +++| IDENT 0RP,DRPX 00002 M00S00002.0rp +++| PERIPH J 00003 M00S00003.0rp +++| TITLE 0RP - RELEASE PERMANENT FILE. 00004 M00S00004.0rp +++| BASE MIXED 00005 M00S00005.0rp +++| SST 00006 M00S00006.0rp +++| QUAL$ EQU 1 DEFINE UNQUALIFIED COMMON DECKS 00007 M00S00007.0rp +++|*COMMENT 0RP - RELEASE PERMANENT FILE.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1972
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M00S00009.0rp +++| SPACE 4 00011 M00S00010.0rp +++|*** 0RP - RELEASE PERMANENT FILE. 00012 M00S00011.0rp +++|* J. L. WARDELL 72/10/20. 00013 M00S00012.0rp +++|* S. L. KSANDER. 75/05/26. 00014 M00S00013.0rp +++|* W. E. GOEBEL. 77/01/14. 00015 M00S00014.0rp +++|* P. C. SMITH. 79/04/27. 00016 M00S00015.0rp +++| SPACE 4 00017 M00S00016.0rp +++|*** 0RP IS A LOCATION FREE ROUTINE TO BE USED FOR 00018 M00S00017.0rp +++|* RELEASING PERMANENT FILES. 00019 M00S00018.0rp +++|* 00020 M00S00019.0rp +++|* IF THE FILE IS ATTACHED IN WRITE MODE THE SYSTEM SECTOR 00021 M00S00020.0rp +++|* OF THE FILE WILL BE UPDATED TO CLEAR THE WRITE LOCKOUT 00022 M00S00021.0rp +++|* STATUS. 00023 M00S00022.0rp +++|* 00024 M00S00023.0rp +++|* IF THE FILE WAS ATTACHED IN READ MODE THE SYSTEM SECTOR OF 00025 M00S00024.0rp +++|* THE FILE WILL BE UPDATED TO REFLECT ONE LESS USER 00026 M00S00025.0rp +++|* ACCESSING THE FILE. 00027 M00S00026.0rp +++|* 00028 M00S00027.0rp +++|* IF THE PURGE BIT IS SET THE FILE WILL BE DROPPED IF THE 00029 M00S00028.0rp +++|* USER COUNT INDICATES NO OTHER USERS ACCESSING FILE. 00030 M00S00029.0rp +++|* 00031 M00S00030.0rp +++|* ACTIVE FILE COUNT FOR DEVICE WILL BE DECREMENTED. 00032 M00S00031.0rp +++|* MMF USER COUNTS IN THE SYSTEM SECTOR WILL BE UPDATED. 00033 M00S00032.0rp +++|* 00034 M00S00033.0rp +++|* AN EVENT WILL BE ISSUED TO ROLL IN USERS WAITING FOR 00035 M00S00034.0rp +++|* THE FILE. 00036 M00S00035.0rp +++| SPACE 4 00037 M00S00036.0rp +++|*** CALL. 00038 M00S00037.0rp +++|* 00039 M00S00038.0rp +++|* ENTRY ((LA)-1) = FILE STATUS. 00040 M00S00039.0rp +++|* 6/0,1/0,1/A/,1/M,1/E/,1/U,1/R 00041 M00S00040.0rp +++|* A = APPEND 00042 M00S00041.0rp +++|* M = MODIFY 00043 M00S00042.0rp +++|* E = EXECUTE 00044 M00S00043.0rp +++|* U = UTILITY ATTACH. 00045 M00S00044.0rp +++|* R = READ ONLY 00046 M00S00045.0rp +++|* (FS - FS+4) = FST INFORMATION. 00047 M00S00046.0rp +++|* 00048 M00S00047.0rp +++|* EXIT (A) .LT. 0 IF PERMANENT FILE DEVICE INACCESSIBLE. 00049 M00S00048.0rp +++|* (T5) = EST ORDINAL OF PERMANENT FILE DEVICE. 00050 M00S00049.0rp +++|* (T6) = FIRST TRACK OF PERMANENT FILE. 00051 M00S00050.0rp +++| SPACE 4 00052 M00S00051.0rp +++|*** DAYFILE MESSAGES. 00053 M00S00052.0rp +++|* 00054 M00S00053.0rp +++|* *EQXXX, TYYYY, SYSTEM SECTOR ERROR.* 00055 M00S00054.0rp +++|* THIS MESSAGE IS ISSUED FOR EITHER READ OR WRITE ERRORS OR 00056 M00S00055.0rp +++|* IF THE TRACK OR LINKAGE BYTES CONTAINED IN THE SYSTEM 00057 M00S00056.0rp +++|* SECTOR ARE NOT VALID. 00058 M00S00057.0rp +++|* EQ EQUIPMENT MNEMONIC. 00059 M00S00058.0rp +++|* XXX EST ORDINAL. 00060 M00S00059.0rp +++|* YYYY TRACK NUMBER. 00061 M00S00060.0rp +++| SPACE 4 00062 M00S00061.0rp +++|*** USES LOCATIONS 0 - 17, BFMS. 00063 M00S00062.0rp +++|* 00064 M00S00063.0rp +++|* MUST BE LOADED BELOW BFMS. 00065 M00S00064.0rp +++| SPACE 4 00066 M00S00065.0rp +++|*** ROUTINES USED. 00067 M00S00066.0rp +++|* 00068 M00S00067.0rp +++|* CALLS DFM, RDS, WDS. 00069 M00S00068.0rp +++| SPACE 4 00070 M00S00069.0rp +++|** COMMON DECKS. 00071 M00S00070.0rp +++| 00072 M00S00071.0rp +++| 00073 M00S00072.0rp +++|*CALL COMPMAC 00074 M00S00073.0rp +++|*CALL COMSCPS 00075 M00S00074.0rp +++| QUAL EVENT 00076 M00S00075.0rp +++|*CALL COMSEVT 00077 M00S00076.0rp +++| QUAL * 00078 M00S00077.0rp +++|*CALL COMSPFM 00079 M00S00078.0rp +++|*CALL COMPREL 00080 M00S00079.0rp +++|*CALL COMSMSP 00081 M00S00080.0rp +++|*CALL COMSZOL 00082 M00S00081.0rp +++| SPACE 4,10 00083 M00S00082.0rp +++|**** DIRECT LOCATION ASSIGNMENTS. 00084 M00S00083.0rp +++| 00085 M00S00084.0rp +++| 00086 M00S00085.0rp +++| CF EQU 16 CHECKPOINT REQUEST FLAG 00087 M00S00086.0rp +++| FS EQU 20 - 24 FST INFORMATION (5 LOCATIONS) 00088 M00S00087.0rp +++| 00089 M00S00088.0rp +++|**** 00090 M00S00089.0rp +++| TITLE MAIN ROUTINE. 00091 M00S00090.0rp +++|** DRP MAIN ROUTINE. 00092 M00S00091.0rp +++| 00093 M00S00092.0rp +++| 00094 M00S00093.0rp +++| ORG 5 00095 M00S00094.0rp +++| DRP SUBR ENTRY/EXIT 00096 M00S00095.0rp +++| 00097 M00S00096.0rp +++|* INTERLOCK TRACK. 00098 M00S00097.0rp +++| 00099 M00S00098.0rp +++| DRP1 LDD FS SET EST ORDINAL 00100 M00S00099.0rp +++| STD T5
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00101 M01S00001.ns2553 +++| ADD TH IMMEDIATE RETURN ON INACCESSIBLE DEVICE 00102 M00S00100.0rp +++| STD CM+1 00103 M00S00101.0rp +++| LDD FS+1 SET FIRST TRACK 00104 M00S00102.0rp +++| STD T6 00105 M00S00103.0rp +++| ZJN DRPX IF NO TRACKS ASSIGNED 00106 M00S00104.0rp +++| STD CM+2 00107 M00S00105.0rp +++| LDN STIS SET TRACK INTERLOCK 00108 M00S00106.0rp +++| STD CM+3 00109 M00S00107.0rp +++| MONITOR STBM
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00108.0rp +++| LCN 77 00115 M00S00109.0rp +++| STD T1
| Line S00110 Modification History | |
|---|---|
M01 (Removed by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00116 M01S00110.ns2553 ---| LDD CM+1 00117 M01S00111.ns2553 ---| ZJN DRP3 IF INTERLOCK SET 00118 M00S00112.0rp +++| 00119 M00S00113.0rp +++|* DELAY 1/2 SECOND AND RETRY. 00120 M00S00114.0rp +++| 00121 M00S00115.0rp +++| DRP2 SOD T1 00122 M00S00116.0rp +++| ZJN DRP1 IF DELAY EXPIRED RETRY INTERLOCK 00123 M00S00117.0rp +++| PAUSE 00124 M00S00118.0rp +++| DELAY 00125 M00S00119.0rp +++| LDD CM+1 00126 M00S00120.0rp +++| LMN ORET 00127 M00S00121.0rp +++| NJN DRP2 IF NO OPERATOR OVERRIDE 00128 M00S00122.0rp +++| LJM DRP15 DECREMENT FILE COUNT AND EXIT 00129 M00S00123.0rp +++| 00130 M00S00124.0rp +++|* READ SYSTEM SECTOR. 00131 M00S00125.0rp +++| 00132 M00S00126.0rp +++| DRP3 STD T7 00133 M00S00127.0rp +++| STD CF CLEAR CHECKPOINT FLAG 00134 M00S00128.0rp +++| SETMS IO,RW 00135 M00S00129.0rp +++| LDD CM+3 SET EQUIPMENT IN ERROR MESSAGE 00136 M00S00130.0rp +++| LPC 3777 00137 M00S00131.0rp +++| STM DRPE 00138 M00S00132.0rp +++| LDC BFMS READ NEXT SECTOR 00139 M00S00133.0rp +++| RJM. RDS 00140 M00S00134.0rp +++| PJN DRP5 IF NO ERROR 00141 M00S00135.0rp +++| DRP4 SHN 21-12 00142 M00S00136.0rp +++| MJN DRP6 IF NON-RECOVERABLE ERROR 00143 M00S00137.0rp +++| RJM ITR CLEAR TRACK INTERLOCK 00144 M00S00138.0rp +++| LCN 0 00145 M00S00139.0rp +++| LJM DRPX RETURN 00146 M00S00140.0rp +++| 00147 M00S00141.0rp +++| DRP5 LDM. BFMS+1 00148 M00S00142.0rp +++| LMN 77 00149 M00S00143.0rp +++| NJN DRP9 IF NOT SYSTEM SECTOR WORD COUNT 00150 M00S00144.0rp +++| LDM. BFMS CHECK NEXT SECTOR 00151 M00S00145.0rp +++| LMC 3777 00152 M00S00146.0rp +++| NJN DRP9 IF NOT SYSTEM SECTOR ID 00153 M00S00147.0rp +++| LDD T6 CHECK TRACK 00154 M00S00148.0rp +++| LMM. FTSS 00155 M00S00149.0rp +++| DRP6 NJN DRP9 IF ERROR IN SYSTEM SECTOR 00156 M00S00150.0rp +++| LDM. FISS 00157 M00S00151.0rp +++| NJN DRP8 IF FAST ATTACH ENTRY 00158 M00S00152.0rp +++| 00159 M00S00153.0rp +++|* SET ACCESS AND USER COUNTS FOR NORMAL FILE. 00160 M00S00154.0rp +++| 00161 M00S00155.0rp +++| RJM UAM UPDATE ACCESS MODE AND USER COUNTS 00162 M00S00156.0rp +++| ZJN DRP10 IF NO MORE USERS 00163 M00S00157.0rp +++| LMN 40 CHECK PURGE BIT 00164 M00S00158.0rp +++| NJN DRP10 IF USERS ACCESSING FILE 00165 M00S00159.0rp +++| LDM. CTSS+FCEF CHECK FOR BOI/EOI VERIFICATION ERROR 00166 M00S00160.0rp +++| SHN 0-13 00167 M00S00161.0rp +++| NJN DRP11 IF ERROR (LEAVE IN CURRENT STATE) 00168 M00S00162.0rp +++| 00169 M00S00163.0rp +++|* DROP FILE BEING PURGED. 00170 M00S00164.0rp +++| 00171 M00S00165.0rp +++| LCN STBM-DTKM CHANGE TO DROP FILE 00172 M00S00166.0rp +++| RAM ITRA 00173 M00S00167.0rp +++| AOD CF 00174 M00S00168.0rp +++| DRP8 UJN DRP11 RELEASE FILE 00175 M00S00169.0rp +++| 00176 M00S00170.0rp +++| DRP9 ENDMS 00177 M00S00171.0rp +++| UJN DRP13 ISSUE ERROR MESSAGE 00178 M00S00172.0rp +++| 00179 M00S00173.0rp +++|* ISSUE EVENT WHILE WAITING FOR DISK REVOLUTION. 00180 M00S00174.0rp +++| 00181 M00S00175.0rp +++| DRP10 LDN 0 ISSUE EVENT 00182 M00S00176.0rp +++| STD CM+1 00183 M00S00177.0rp +++| LDD T6 00184 M00S00178.0rp +++| STD CM+4 00185 M00S00179.0rp +++| LDD T5 00186 M00S00180.0rp +++| STD CM+3 00187 M00S00181.0rp +++| MONITOR EATM 00188 M00S00182.0rp +++| LDC BFMS+WLSF REWRITE SYSTEM SECTOR 00189 M00S00183.0rp +++| RJM. WDS 00190 M00S00184.0rp +++| DRP11 PJN DRP14 IF NO WRITE ERROR 00191 M00S00185.0rp +++| LJM DRP4 CHECK ERROR STATUS 00192 M00S00186.0rp +++| 00193 M00S00187.0rp +++|* ISSUE ERROR MESSAGE. 00194 M00S00188.0rp +++| 00195 M00S00189.0rp +++| DRP13 LDD T5 CONVERT UPPER TWO DIGITS OF EST ORDINAL 00196 M00S00190.0rp +++| SHN -3 00197 M00S00191.0rp +++| RJM C2D 00198 M00S00192.0rp +++| STM DRPE+1 00199 M00S00193.0rp +++| LDD T5 CONVERT LOWER DIGIT OF EST ORDINAL 00200 M00S00194.0rp +++| LPN 7 00201 M00S00195.0rp +++| SHN 6 00202 M00S00196.0rp +++| RAM DRPE+2 00203 M00S00197.0rp +++| LDD T6 SET TRACK NUMBER IN ERROR MESSAGE 00204 M00S00198.0rp +++| SHN -6 00205 M00S00199.0rp +++| RJM C2D 00206 M00S00200.0rp +++| STM DRPE+4 00207 M00S00201.0rp +++| LDD T6 00208 M00S00202.0rp +++| RJM C2D 00209 M00S00203.0rp +++| STM DRPE+5 00210 M00S00204.0rp +++| LDC DRPE ISSUE DAYFILE MESSAGE 00211 M00S00205.0rp +++| ADD LA 00212 M00S00206.0rp +++| RJM. DFM 00213 M00S00207.0rp +++| 00214 M00S00208.0rp +++|* CLEAR TRACK INTERLOCK / DROP TRACK. 00215 M00S00209.0rp +++| 00216 M00S00210.0rp +++| DRP14 ENDMS 00217 M00S00211.0rp +++| RJM ITR ISSUE TRACK REQUEST 00218 M00S00212.0rp +++| LDD CF 00219 M00S00213.0rp +++| ZJN DRP15 IF *DTKM* NOT ISSUED 00220 M00S00214.0rp +++| 00221 M00S00215.0rp +++|* INCREMENT PRU LIMIT FIELD IN CONTROL POINT AREA. 00222 M00S00216.0rp +++|* NUMBER OF SECTORS RETURNED BY *DTKM* IS IN (CM+3 - CM+4). 00223 M00S00217.0rp +++| 00224 M00S00218.0rp +++| LDN CICS INCREMENT CP AREA FIELD FUNCTION CODE 00225 M00S00219.0rp +++| STD CM 00226 M00S00220.0rp +++| LDK ACLW ADDRESS OF MASS STORAGE PRU LIMIT 00227 M00S00221.0rp +++| STD CM+1 00228 M00S00222.0rp +++| LDN 0D*100+18D POSITION AND WIDTH OF LIMIT FIELD 00229 M00S00223.0rp +++| STD CM+2 00230 M00S00224.0rp +++| LDD MA WRITE *UADM* PARAMETERS TO MESSAGE BUFFER 00231 M00S00225.0rp +++| CWD CM 00232 M00S00226.0rp +++| LDN 1 00233 M00S00227.0rp +++| STD CM+1 REQUEST COUNT 00234 M00S00228.0rp +++| STD CM+2 DO NOT DROP PP 00235 M00S00229.0rp +++| MONITOR UADM 00236 M00S00230.0rp +++| 00237 M00S00231.0rp +++|* UPDATE DEVICE STATUS. 00238 M00S00232.0rp +++| 00239 M00S00233.0rp +++| DRP15 LDD T5 DECREMENT USER COUNT 00240 M00S00234.0rp +++| STD CM+1 00241 M00S00235.0rp +++| LDN DUCS 00242 M00S00236.0rp +++| STD CM+3
| Line S00237 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00243 M01S00237.253l688 ---| MONITOR STBM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00244 M01S00001.253l688 +++| MONITOR SMDM 00245 M00S00238.0rp +++| 00246 M00S00239.0rp +++|* ISSUE OVERCOMMITMENT EVENT FOR AUXILIARY REMOVABLE 00247 M00S00240.0rp +++|* DEVICE WITH ZERO USER COUNT. 00248 M00S00241.0rp +++| 00249 M00S00242.0rp +++| SFA EST,T5 CHECK FOR AUXILIARY REMOVABLE DEVICE 00250 M00S00243.0rp +++| ADK EQDE 00251 M00S00244.0rp +++| CRD CM 00252 M00S00245.0rp +++| LDD CM+4 00253 M00S00246.0rp +++| SHN 3 00254 M00S00247.0rp +++| ADN MDGL 00255 M00S00248.0rp +++| CRD CM 00256 M00S00249.0rp +++| ADN STLL-MDGL 00257 M00S00250.0rp +++| CRD T0 GET USER COUNT 00258 M00S00251.0rp +++| LDD CM 00259 M00S00252.0rp +++| SHN -12 00260 M00S00253.0rp +++| LMN 3 00261 M00S00254.0rp +++| NJN DRP16 IF FAMILY OR NON-REMOVABLE DEVICE 00262 M00S00255.0rp +++| LDD T0+3 00263 M00S00256.0rp +++| NJN DRP16 IF USERS 00264 M00S00257.0rp +++| STD CM+1 ISSUE OVERCOMMITMENT EVENT 00265 M00S00258.0rp +++| LDC /EVENT/OVRE 00266 M00S00259.0rp +++| STD CM+4 00267 M00S00260.0rp +++| SHN -14 00268 M00S00261.0rp +++| STD CM+3 00269 M00S00262.0rp +++| MONITOR EATM 00270 M00S00263.0rp +++| DRP16 LJM DRPX EXIT 00271 M00S00264.0rp +++| 00272 M00S00265.0rp +++| 00273 M00S00266.0rp +++| DRPE DATA C*EQ000, T0000, SYSTEM SECTOR ERROR.* 00274 M00S00267.0rp +++| ITR SPACE 4,10 00275 M00S00268.0rp +++|** ITR - ISSUE TRACK REQUEST. 00276 M00S00269.0rp +++|* 00277 M00S00270.0rp +++|* ENTRY (CF) = CHECKPOINT REQUEST FLAG. 00278 M00S00271.0rp +++|* (T5) = EST ORDINAL. 00279 M00S00272.0rp +++|* (T6) = FIRST TRACK OF FILE. 00280 M00S00273.0rp +++|* 00281 M00S00274.0rp +++|* USES CM - CM+4. 00282 M00S00275.0rp +++|* 00283 M00S00276.0rp +++|* MACROS MONITOR. 00284 M00S00277.0rp +++| 00285 M00S00278.0rp +++| 00286 M00S00279.0rp +++| ITR SUBR ENTRY/EXIT 00287 M00S00280.0rp +++| LDD T6 00288 M00S00281.0rp +++| STD CM+2 SET FIRST TRACK 00289 M00S00282.0rp +++| LDD CF 00290 M00S00283.0rp +++| SHN 13-0 CHECKPOINT FLAG 00291 M00S00284.0rp +++| LMD T5 00292 M00S00285.0rp +++| STD CM+1 APPEND TO EST ORDINAL 00293 M00S00286.0rp +++| LDN CTIS 00294 M00S00287.0rp +++| STD CM+3 CLEAR TRACK INTERLOCK 00295 M00S00288.0rp +++| ITRA MONITOR STBM 00296 M00S00289.0rp +++|* MONITOR DTKM (FILE PURGED) 00297 M00S00290.0rp +++|* LDN 0 00298 M00S00291.0rp +++| UJN ITRX RETURN 00299 M00S00292.0rp +++| TITLE SUBROUTINES. 00300 M00S00293.0rp +++| UAM SPACE 4 00301 M00S00294.0rp +++|** UAM - UPDATE ACCESS MODE AND COUNTS. 00302 M00S00295.0rp +++|* 00303 M00S00296.0rp +++|* ENTRY (CASS) = ACCESS MODE OF FILE. 00304 M00S00297.0rp +++|* BIT DESCRIPTION 00305 M00S00298.0rp +++|* 0 UNUSED. 00306 M00S00299.0rp +++|* 1 FILE MAY BE EXTENDED (W, M OR A MODE). 00307 M00S00300.0rp +++|* 2 UNUSED. 00308 M00S00301.0rp +++|* 3 FILE MAY BE REWRITTEN (W, M OR U MODE). 00309 M00S00302.0rp +++|* 4 FILE MAY BE SHORTENED (W MODE). 00310 M00S00303.0rp +++|* 5 FILE PURGED. 00311 M00S00304.0rp +++|* 6 FILE ATTACHED BY SYSTEM UTILITY. 00312 M00S00305.0rp +++|* (T5) = EST ORDINAL. 00313 M00S00306.0rp +++|* 00314 M00S00307.0rp +++|* EXIT (CASS) = NEW ACCESS MODE OF FILE. 00315 M00S00308.0rp +++|* (A) .NE. 0 IF OTHER USERS ACCESSING FILE OR FILE 00316 M00S00309.0rp +++|* PURGED. 00317 M00S00310.0rp +++|* (A) = 40 IF FILE PURGED. 00318 M00S00311.0rp +++|* 00319 M00S00312.0rp +++|* USES T2, T3, CM - CM+4. 00320 M00S00313.0rp +++|* 00321 M00S00314.0rp +++|* MACROS SFA. 00322 M00S00315.0rp +++|* 00323 M00S00316.0rp +++|* NOTES WHEN A FILE IS ATTACHED IN A READ MODE AND THE USER 00324 M00S00317.0rp +++|* COUNT IS TO BE DECREMENTED, IT IS DONE BY COMMON 00325 M00S00318.0rp +++|* CODE. THIS IS DUE TO THE CORRESPONDENCE BETWEEN THE 00326 M00S00319.0rp +++|* FILE STATUS VALUES FROM THE LOCAL FNT ENTRY FOR READ 00327 M00S00320.0rp +++|* MODES AND THE BYTE WHERE THE APPROPRIATE USER COUNT 00328 M00S00321.0rp +++|* IS LOCATED. ADDING ONE TO THE VALUE OF BITS 3-5 OF 00329 M00S00322.0rp +++|* THE STATUS WILL GIVE THE BYTE NUMBER. 00330 M00S00323.0rp +++| 00331 M00S00324.0rp +++| 00332 M00S00325.0rp +++| UAM4 SHN 1-3 DETERMINE USER COUNT OFFSET 00333 M00S00326.0rp +++| LPN 3 00334 M00S00327.0rp +++| STD T3 00335 M00S00328.0rp +++| RAD T2 ADD WORD OFFSET OF LOCAL COUNTS 00336 M00S00329.0rp +++| SOP UCSS+6,T2 DECREMENT LOCAL USER COUNT 00337 M00S00330.0rp +++| SOP UCSS+1,T3 DECREMENT GLOBAL USER COUNT 00338 M00S00331.0rp +++| 00339 M00S00332.0rp +++|* RETURN FILE STATUS. 00340 M00S00333.0rp +++| 00341 M00S00334.0rp +++| UAM5 LDM. UCSS+1 00342 M00S00335.0rp +++| ADM. UCSS+2 00343 M00S00336.0rp +++| ADM. UCSS+3 00344 M00S00337.0rp +++| ADM. UCSS+4 00345 M00S00338.0rp +++| SHN 6 00346 M00S00339.0rp +++| ADM. CASS 00347 M00S00340.0rp +++| 00348 M00S00341.0rp +++| UAM SUBR ENTRY/EXIT 00349 M00S00342.0rp +++| SFA EST,T5 COMPUTE BASE ADDRESS OF LOCAL COUNTS 00350 M00S00343.0rp +++| ADK EQDE 00351 M00S00344.0rp +++| CRD CM 00352 M00S00345.0rp +++| LDD CM+4 00353 M00S00346.0rp +++| SHN 3 00354 M00S00347.0rp +++| ADN DULL GET MACHINE INDEX 00355 M00S00348.0rp +++| CRD CM 00356 M00S00349.0rp +++| LDD CM+2 00357 M00S00350.0rp +++| LPN 17 00358 M00S00351.0rp +++| STD T2 00359 M00S00352.0rp +++| SHN 2 00360 M00S00353.0rp +++| RAD T2 00361 M00S00354.0rp +++| LDM -1 00362 M00S00355.0rp +++| LPN 2 00363 M00S00356.0rp +++| ZJN UAM2 IF UTILITY ATTACH STATUS NOT SET 00364 M00S00357.0rp +++| 00365 M00S00358.0rp +++|* CLEAR SYSTEM UTILITY ATTACH FLAGS. 00366 M00S00359.0rp +++| 00367 M00S00360.0rp +++| LDC -100 CLEAR GLOBAL UTILITY ATTACH FLAG 00368 M00S00361.0rp +++| RAM. CASS 00369 M00S00362.0rp +++| LCN 2 CLEAR LOCAL UTILITY ATTACH FLAG 00370 M00S00363.0rp +++| RAP UCSS+5,T2 00371 M00S00364.0rp +++| 00372 M00S00365.0rp +++|* WRITE MODE PROCESSOR. 00373 M00S00366.0rp +++| 00374 M00S00367.0rp +++| UAM2 LDM -1 00375 M00S00368.0rp +++| SHN 21-0 00376 M00S00369.0rp +++| PJN UAM3 IF WRITABLE MODE 00377 M00S00370.0rp +++| LJM UAM4 PROCESS NON-WRITEABLE MODES 00378 M00S00371.0rp +++| 00379 M00S00372.0rp +++| UAM3 LDM. CASS CLEAR ALL WRITE BITS 00380 M00S00373.0rp +++| SCN 32 00381 M00S00374.0rp +++| STM. CASS 00382 M00S00375.0rp +++| LDP UCSS+5,T2 CLEAR LOCAL WRITE FLAG 00383 M00S00376.0rp +++| SCN 1 00384 M00S00377.0rp +++| STP UCSS+5,T2 00385 M00S00378.0rp +++| LJM UAM5 RETURN FILE STATUS 00386 M00S00379.0rp +++| SPACE 4 00387 M00S00380.0rp +++|** COMMON DECKS. 00388 M00S00381.0rp +++| 00389 M00S00382.0rp +++| 00390 M00S00383.0rp +++|*CALL COMPC2D 00391 M00S00384.0rp +++| SPACE 4 00392 M00S00385.0rp +++| OVERFLOW 5,ZRPL 00393 M00S00386.0rp +++| END
cdc/nos2.source/opl.opl871/deck/0rp.txt · Last modified: (external edit)