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