Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.ppr +++| IDENT PPR,0
00002 M00S00002.ppr +++| PERIPH J
00003 M00S00003.ppr +++| BASE MIXED
00004 M00S00004.ppr +++| SST SSCP
00005 M00S00005.ppr +++|*COMMENT PPR - PP RESIDENT.
| Line S00006 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M00S00007.ppr +++| TITLE PPR - PP RESIDENT.
00009 M00S00008.ppr +++| SPACE 4,10
00010 M00S00009.ppr +++|*** PPR - PP RESIDENT.
00011 M00S00010.ppr +++|* G. R. MANSFIELD. 70/12/12.
00012 M00S00011.ppr +++|* R. E. TATE. 73/01/05.
00013 M00S00012.ppr +++|* P. D. HAAS. 75/04/19.
00014 M00S00013.ppr +++|* W. E. GOEBEL. 78/04/29.
00015 M00S00014.ppr +++| SPACE 4,10
00016 M00S00015.ppr +++|*** PPR PROVIDES THE COMMUNICATION LINKS BETWEEN THE
00017 M00S00016.ppr +++|* PP S. IT SERVES AS A PP IDLE PROGRAM, THE LOADER OF PP
00018 M00S00017.ppr +++|* PROGRAMS AND ROUTINES, AND A CONVIENT SOURCE OF COMMONLY
00019 M00S00018.ppr +++|* USED SUBROUTINES FOR OTHER PROGRAMS AND ROUTINES.
00020 M00S00019.ppr +++|* PP RESIDENT IS LOADED AT DEAD START TIME BY STL AND IS
00021 M00S00020.ppr +++|* NEVER CHANGED.
00022 M00S00021.ppr +++| SPACE 4,20
00023 M00S00022.ppr +++|*** PPR USES AN OVERLAY MECHANISM FOR PROCESSING THE FOLLOWING
00024 M00S00023.ppr +++|* MONITOR REQUESTS - AFAM, RTCM, STBM, DTKM, DLKM, AND DFMM.
00025 M00S00024.ppr +++|* THESE OVERLAYS EXECUTE IN A SAVED AND RESTORED AREA AND ARE
00026 M00S00025.ppr +++|* 1DD DUMP DAYFILE
00027 M00S00026.ppr +++|* 1RU SHARED RMS DEVICE RESERVE
00028 M00S00027.ppr +++|* 1FA SHARED RMS FAST ATTACH FILE PROCESSOR
00029 M00S00028.ppr +++|* THE DAYFILE DUMP AREA OF CMR IS USED AS A BUFFER FOR SAVING
00030 M00S00029.ppr +++|* AND RELOADING MEMORY AND DIRECT CELLS.
00031 M00S00030.ppr +++|* IT IS ORGANIZED AS FOLLOWS
00032 M00S00031.ppr +++|*
00033 M00S00032.ppr +++|*DDB * 1DD BOOTSTRAP (3 WORDS)
00034 M00S00033.ppr +++|* * 1DD SAVE BUFFER (DFDS WORDS)
00035 M00S00034.ppr +++| SPACE 4
00036 M00S00035.ppr +++|*** DAYFILE MESSAGES.
00037 M00S00036.ppr +++|*
00038 M00S00037.ppr +++|* NONE.
00039 M00S00038.ppr +++| SPACE 4
00040 M00S00039.ppr +++|** ROUTINES USED.
00041 M00S00040.ppr +++|*
00042 M00S00041.ppr +++|*
00043 M00S00042.ppr +++|* 1DD - PROCESS DAYFILE DUMP.
00044 M00S00043.ppr +++|* 1RU - INDEPENDENT SHARED DEVICE RESERVE PROCESSOR.
00045 M00S00044.ppr +++|* 1FA - INDEPENDENT SHARED DEVICE FAST ATTACH PROCESSOR.
00046 M00S00045.ppr +++|* 7SE - PROCESS SYSTEM DEVICE ERROR.
00047 M00S00046.ppr +++|* 7II - INITIATE CONTROLWARE RELOAD.
00048 M00S00047.ppr +++|* 7KI - EXECUTE LEVEL ONE DIAGNOSTICS.
00049 M00S00048.ppr +++|* 7SI - STATUS PROCESSOR.
00050 M00S00049.ppr +++| SPACE 4
00051 M00S00050.ppr +++|*CALL COMPMAC
| Line S00001 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00052 M01S00001.273l780 +++|*CALL COMPIOU
00053 M00S00051.ppr +++|*CALL COMSCPS
00054 M00S00052.ppr +++|*CALL COMSDFS
00055 M00S00053.ppr +++|*CALL COMSIOQ
00056 M00S00054.ppr +++|*CALL COMSJCE
00057 M00S00055.ppr +++|*CALL COMSLSD
00058 M00S00056.ppr +++|*CALL COMSMSC
00059 M00S00057.ppr +++| LIST X
00060 M00S00058.ppr +++|*CALL COMSMSP
00061 M00S00059.ppr +++| LIST *
00062 M00S00060.ppr +++|*CALL COMSPIM
00063 M00S00061.ppr +++|*CALL COMSSSD
00064 M00S00062.ppr +++|*CALL COMSWEI
00065 M00S00063.ppr +++|*CALL COMSZOL
00066 M00S00064.ppr +++|*CALL COMSMST
00067 M00S00065.ppr +++| LIST X,F
00068 M00S00066.ppr +++| ORG 0
00069 M00S00067.ppr +++|*CALL COMPPPR
00070 M00S00068.ppr +++| LIST *
00071 M00S00069.ppr +++|
00072 M00S00070.ppr +++| ERRPL *-PPFW PRESET CODE FOR NONCURRENT PPS IS TOO LONG
00073 M00S00071.ppr +++| TTL PPR/1LP - LOAD CM RESIDENT *PPR* CODE.
00074 M00S00072.ppr +++| TITLE
00075 M00S00073.ppr +++| QUAL 1LP
00076 M00S00074.ppr +++| IDENT 1LP,LPCX
00077 M00S00075.ppr +++|*COMMENT PPR - LOAD CM RESIDENT *PPR* CODE.
| Line S00076 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00078 M01S00076.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION,1985.
| Line S00002 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00079 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00080 M00S00077.ppr +++| SPACE 4,10
00081 M00S00078.ppr +++|***** 1LP - LOAD CM RESIDENT *PPR* CODE.
00082 M00S00079.ppr +++|*
00083 M00S00080.ppr +++|* J. M. MAREK. 85/12/10.
00084 M00S00081.ppr +++| SPACE 4,10
00085 M00S00082.ppr +++|*** *1LP* IS CALLED BY *STL* TO INITIALIZE THE MS ERROR PROCESSOR
00086 M00S00083.ppr +++|* LOAD CODE AND THE PP IDLE LOOP IN CM.
00087 M00S00084.ppr +++| SPACE 4,10
00088 M00S00085.ppr +++|** COMMON DECKS.
00089 M00S00086.ppr +++|
00090 M00S00087.ppr +++|
00091 M00S00088.ppr +++|*CALL COMSDSL
00092 M00S00089.ppr +++| LPC SPACE 4,10
00093 M00S00090.ppr +++|** 1LP - MAIN PROGRAM.
00094 M00S00091.ppr +++|
00095 M00S00092.ppr +++|
00096 M00S00093.ppr +++| ORG TPBA+5
00097 M00S00094.ppr +++| LPC SUBR ENTRY/EXIT
| Line S00095 Modification History |
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00098 M01S00095.273l780 ---| LDK MSEL STORE LOAD CODE FOR MS ERROR PROCESSORS
| Line S00002 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00099 M01S00002.273l780 +++| LDK MABL READ HARDWARE OPTIONS
00100 M01S00003.273l780 +++| CRD CM
00101 M01S00004.273l780 +++| LDD CM+1
00102 M01S00005.273l780 +++| SHN 21-13
00103 M01S00006.273l780 +++| MJN LPC2 IF NOT *CME* MACHINE
00104 M01S00007.273l780 +++| AOM PPIC SET FL STATUS WORD ADDRESS
00105 M01S00008.273l780 +++| LPC2 LDK MSEL STORE LOAD CODE FOR MS ERROR PROCESSORS
00106 M00S00096.ppr +++| CWM PRSA,TR
00107 M00S00097.ppr +++| ADK RPLP-MSEL-3 FETCH RPL ADDRESS
00108 M00S00098.ppr +++| CRD CM
00109 M00S00099.ppr +++| LDM DLYA
00110 M00S00100.ppr +++| STM PPIB SET INPUT REGISTER READ DELAY
00111 M00S00101.ppr +++| LDN PPIL SET IDLE LOOP LENGTH
00112 M00S00102.ppr +++| STD CM+3
00113 M00S00103.ppr +++| LDD CM STORE PP IDLE LOOP CODE
00114 M00S00104.ppr +++| SHN 14
00115 M00S00105.ppr +++| LMD CM+1
00116 M00S00106.ppr +++| SBN PPIL
00117 M00S00107.ppr +++| CWM PRSB,CM+3
00118 M00S00108.ppr +++| SBN PPIL SET CM ADDRESS
00119 M00S00109.ppr +++| STD CM+2
00120 M00S00110.ppr +++| SHN -14
00121 M00S00111.ppr +++| LMD HN APPEND RPL FLAG
00122 M00S00112.ppr +++| STD CM+1
00123 M00S00113.ppr +++| LDN 0 CLEAR UNUSED BYTE
00124 M00S00114.ppr +++| STD CM
00125 M00S00115.ppr +++| LDC PPIA SET PP LOAD ADDRESS
00126 M00S00116.ppr +++| STD CM+4
00127 M00S00117.ppr +++| LDN PPRL STORE IDLE LOOP LOAD PARAMETERS
00128 M00S00118.ppr +++| CWD CM
00129 M00S00119.ppr +++| UJP LPCX RETURN
00130 M00S00120.ppr +++|
00131 M00S00121.ppr +++|
00132 M00S00122.ppr +++|* MASS STORAGE ERROR PROCESSOR LOAD CODE.
00133 M00S00123.ppr +++|
00134 M00S00124.ppr +++| PRSA BSS 0
00135 M00S00125.ppr +++| LOC LMSE
00136 M00S00126.ppr +++|
00137 M00S00127.ppr +++| LDD OA WAIT FOR OUTPUT REGISTER CLEAR
00138 M00S00128.ppr +++| CRD CM
00139 M00S00129.ppr +++| LDD CM
00140 M00S00130.ppr +++| NJN LMSE IF *DRCM* NOT PROCESSED
00141 M00S00131.ppr +++| LDD T1 SET PROCESSOR NAME
00142 M00S00132.ppr +++| STD CM+3
00143 M00S00133.ppr +++| LDN 1R7
00144 M00S00134.ppr +++| STD CM+2
00145 M00S00135.ppr +++| MONITOR SPLM SEARCH PERIPHERAL LIBRARY
00146 M00S00136.ppr +++| LDD CM+4 LOAD ADDRESS
00147 M00S00137.ppr +++| LJM PLL4 LOAD ERROR PROCESSOR VIA *PLL*
00148 M00S00138.ppr +++| BSS 10000-* SPARE
00149 M00S00139.ppr +++| CON LMSE-1
00150 M00S00140.ppr +++| LOC *O
00151 M00S00141.ppr +++|
00152 M00S00142.ppr +++|* PP IDLE LOOP CODE.
00153 M00S00143.ppr +++|
00154 M00S00144.ppr +++| PPIA EQU 10001-5*PPIL
00155 M00S00145.ppr +++| PRSB BSS 0
00156 M00S00146.ppr +++| LOC PPIA
00157 M00S00147.ppr +++|
00158 M00S00148.ppr +++| PPI1 LDC SBNI+4 DELAY FOR 4X PP
00159 M00S00149.ppr +++| PPIB EQU *O-1
00160 M00S00150.ppr +++|* SBN 4 (4X PP)
00161 M00S00151.ppr +++|* SBN 10 (2X PP)
00162 M00S00152.ppr +++|* SBN 20 (1X PP)
00163 M00S00153.ppr +++| NJN *-1 IF DELAY NOT COMPLETE
00164 M00S00154.ppr +++|
00165 M00S00155.ppr +++| PPI LDD IA CHECK INPUT REGISTER
00166 M00S00156.ppr +++| CRD IR
00167 M00S00157.ppr +++| LDD IR
00168 M00S00158.ppr +++| ZJN PPI1 IF NO REQUEST
00169 M00S00159.ppr +++| LDD MA
00170 M00S00160.ppr +++| CRM MP,TR
00171 M00S00161.ppr +++| LDC PPR1 SET RETURN FROM *PLL*
00172 M00S00162.ppr +++| STM PLL
| Line S00163 Modification History |
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00173 M01S00163.273l780 ---| LDD IR+1 SET CP ADDRESS
00174 M01S00164.273l780 ---| SCN 40
00175 M01S00165.273l780 ---| SHN 6
| Line S00009 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00176 M01S00009.273l780 +++| LDD IR+1 SET CP NUMBER FOR MOVE CHECK
00177 M01S00010.273l780 +++| LPN 37
00178 M01S00011.273l780 +++| STM FTNG
00179 M01S00012.273l780 +++| SHN 7 SET CP ADDRESS
00180 M00S00166.ppr +++| STD CP
| Line S00167 Modification History |
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00181 M01S00167.273l780 ---| RAD CP
00182 M01S00168.273l780 ---| LMD CP FORM PACKAGE NAME
| Line S00013 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00183 M01S00013.273l780 +++| ADC FLSW SET FL STATUS WORD ADDRESS
00184 M01S00014.273l780 +++| PPIC EQU *O-1 (FL STATUS WORD ADDRESS)
00185 M01S00015.273l780 +++|* ADC FLSW+1 (CME MACHINE)
00186 M01S00016.273l780 +++| STM FTNC+1
00187 M01S00017.273l780 +++| LDC LDCI
00188 M01S00018.273l780 +++| STM FTNC
00189 M01S00019.273l780 +++| LDD IR+1 FORM PACKAGE NAME
00190 M01S00020.273l780 +++| SCN 77
00191 M01S00021.273l780 +++| SHN 6
00192 M00S00169.ppr +++| LMD IR
00193 M00S00170.ppr +++| SHN 6
00194 M00S00171.ppr +++| LJM PLL+1 LOAD PROGRAM
| Line S00172 Modification History |
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00195 M01S00172.273l780 ---| BSS 10000-*
| Line S00022 Modification History |
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00196 M01S00022.273l780 +++| BSS 10000-* SPARE SPACE
00197 M00S00173.ppr +++| CON PPI-1 TRANSFER ADDRESS - 1
00198 M00S00174.ppr +++| LOC *O
00199 M00S00175.ppr +++|
00200 M00S00176.ppr +++|
00201 M00S00177.ppr +++| OVERFLOW LPCX,TPBA+TPLN
00202 M00S00178.ppr +++| 1BP TTL PPR/1BP - BOOTSTRAP PROGRAM.
00203 M00S00179.ppr +++| TITLE
00204 M00S00180.ppr +++| QUAL 1BP
00205 M00S00181.ppr +++| IDENT 1BP,BSP
00206 M00S00182.ppr +++|*COMMENT PPR - BOOTSTRAP PROGRAM.
| Line S00183 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00207 M01S00183.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1986.
| Line S00003 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00208 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00209 M00S00184.ppr +++| 1BP SPACE 4,10
00210 M00S00185.ppr +++|*** 1BP - BOOTSTRAP PROGRAM.
00211 M00S00186.ppr +++|*
00212 M00S00187.ppr +++|* J. J. EIKUM.
00213 M00S00188.ppr +++| 1BP SPACE 4,10
00214 M00S00189.ppr +++|*** *1BP* IS THE BOOTSTRAP PROGRAM USED TO LOAD ROUTINES
00215 M00S00190.ppr +++|* THAT OVERLAY AN EXISTING PROGRAM IN THE PP. *CPUMTR* STORES
00216 M00S00191.ppr +++|* A COPY OF *1BP* IN THE SAVE AREA AND RETURNS A *BOTM*
00217 M00S00192.ppr +++|* FUNCTION IN THE OUTPUT REGISTER. SUBROUTINE FTN IN PPR READS
00218 M00S00193.ppr +++|* *1BP* INTO THE PP. *1BP* SAVES PP MEMORY AND LOADS THE
00219 M00S00194.ppr +++|* OVERLAYING ROUTINE.
00220 M00S00195.ppr +++| 1BP SPACE 4,10
00221 M00S00196.ppr +++|*** ENTRY CONDITIONS.
00222 M00S00197.ppr +++|*
00223 M00S00198.ppr +++|* (A) = ADDRESS OF SAVE AREA + 3.
00224 M00S00199.ppr +++|* (CM+3) = LENGTH OF FIRST PART OF SAVE AREA. *PPSA1*
00225 M00S00200.ppr +++|* (CM+4) = LENGTH OF SECOND PART OF SAVE AREA. *PPSA2*.
00226 M00S00201.ppr +++|* (MB) = *SPLM* PARAMETERS.
00227 M00S00202.ppr +++| 1BP SPACE 4,10
00228 M00S00203.ppr +++|*** EXIT CONDITIONS.
00229 M00S00204.ppr +++|*
00230 M00S00205.ppr +++|* PP MEMORY SAVED IN SAVE AREA.
00231 M00S00206.ppr +++|* (CM+1 - CM+4) = *SPLM* PARAMETERS FOR OVERLAYING ROUTINE.
00232 M00S00207.ppr +++|* TO *PLL2*.
00233 M00S00208.ppr +++| 1BP SPACE 4,10
00234 M00S00209.ppr +++|*** NOTE - THIS PROGRAM MUST BE CM RESIDENT.
00235 M00S00210.ppr +++| 1BP SPACE 4,10
00236 M00S00211.ppr +++|** 1BP - MAIN PROGRAM.
00237 M00S00212.ppr +++|
00238 M00S00213.ppr +++|
00239 M00S00214.ppr +++| FBB1 EQU BFMS FIRST BYTE OF THE FIRST BLOCK SAVED
00240 M00S00215.ppr +++| FBB2 EQU MSFW FIRST BYTE OF THE SECOND BLOCK SAVED
00241 M00S00216.ppr +++|
00242 M00S00217.ppr +++|
00243 M00S00218.ppr +++| ORG 10001-3*5
00244 M00S00219.ppr +++| BSP BSS 0
00245 M00S00220.ppr +++|
00246 M00S00221.ppr +++|* SAVE PP MEMORY.
00247 M00S00222.ppr +++|
00248 M00S00223.ppr +++| SBN 3 SET CM ADDRESS OF SAVE AREA
00249 M00S00224.ppr +++| CWM FBB1,CM+3 SAVE MS BUFFER, DIRECT CELLS, DRIVER CELLS
00250 M00S00225.ppr +++| CWM FBB2,CM+4 SAVE MS DRIVER AND CURRENT PROGRAM
00251 M00S00226.ppr +++|
00252 M00S00227.ppr +++|* MODIFY THE *PAUSE* IN *PLL* TO DO A *RJM* TO PPFW-1 WHICH
00253 M00S00228.ppr +++|* WILL CAUSE EXECUTION OF THE MAIN OVERLAY TO BEGIN AT PPFW.
00254 M00S00229.ppr +++|
00255 M00S00230.ppr +++| LDC PPFW-1
00256 M00S00231.ppr +++| STM PLLD
00257 M00S00232.ppr +++|
00258 M00S00233.ppr +++|* LOAD THE OVERLAYING PROGRAM.
00259 M00S00234.ppr +++|
00260 M00S00235.ppr +++| LDD MA GET PLL PARAMETERS
00261 M00S00236.ppr +++| CRD CM
00262 M00S00237.ppr +++| LJM PLL2 ENTER PLL TO LOAD PROGRAM
00263 M00S00238.ppr +++| BSSZ 10000B-* (SPARE SPACE)
00264 M00S00239.ppr +++| CON BSP-1 (T0)+1 BECOMES (P)
00265 M00S00240.ppr +++|
00266 M00S00241.ppr +++|* THE FOLLOWING BYTES ARE PARAMETERS USED BY *CPUMTR*. THEY
00267 M00S00242.ppr +++|* ARE NOT READ INTO THE PP.
00268 M00S00243.ppr +++|
00269 M00S00244.ppr +++| .1 SET 10000B+CHRV+1-FBB1+4
00270 M00S00245.ppr +++| PPSA1 EQU .1/5
00271 M00S00246.ppr +++| .2 SET PPSA*5-10B*5-PPSA1*5
00272 M00S00247.ppr +++| PPSA2 EQU .2/5
00273 M00S00248.ppr +++|
00274 M00S00249.ppr +++| CON 2000B PRESET INDEX + 2000B
00275 M00S00250.ppr +++| CON PPSA1 LENGTH OF FIRST PART OF SAVE AREA
00276 M00S00251.ppr +++| CON PPSA2 LENGTH OF SECOND PART OF SAVE AREA
00277 M00S00252.ppr +++| CON FBB1 FWA OF THE FIRST BLOCK WRITTEN
00278 M00S00253.ppr +++| CON FBB2 FWA OF THE SECOND BLOCK WRITTEN
00279 M00S00254.ppr +++| TTL PPR/0TD - TERMINATE DAYFILES.
00280 M00S00255.ppr +++| TITLE
00281 M00S00256.ppr +++| QUAL 0TD
00282 M00S00257.ppr +++| IDENT 0TD,ZTDX
00283 M00S00258.ppr +++|*COMMENT PPR - TERMINATE DAYFILES.
| Line S00259 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00284 M01S00259.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00004 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00285 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00286 M00S00260.ppr +++| SPACE 4,10
00287 M00S00261.ppr +++|***** 0TD - TERMINATE DAYFILES.
00288 M00S00262.ppr +++|*
00289 M00S00263.ppr +++|* P. D. HAAS. 79/07/13.
00290 M00S00264.ppr +++|* J. A. PETERSON. 79/07/13.
00291 M00S00265.ppr +++| SPACE 4,10
00292 M00S00266.ppr +++|*** *0TD* IS CALLED WHEN IT IS NECESSARY TO FLUSH A
00293 M00S00267.ppr +++|* COMPLETE DAYFILE BUFFER TO DISK. THIS DIFFERS FROM *1DD*
00294 M00S00268.ppr +++|* OPERATION IN THAT THE LATTER WILL DUMP ONLY COMPLETE SECTORS.
00295 M00S00269.ppr +++| SPACE 4,10
00296 M00S00270.ppr +++|*** ENTRY CONDITIONS.
00297 M00S00271.ppr +++|*
00298 M00S00272.ppr +++|*
00299 M00S00273.ppr +++|* ( (LA)-1 ) = DAYFILE INDEX.
00300 M00S00274.ppr +++|* 0 = JOB DAYFILE.
00301 M00S00275.ppr +++|* 1 = MASTER DAYFILE.
00302 M00S00276.ppr +++|* 2 = ACCOUNT DAYFILE.
00303 M00S00277.ppr +++|* 3 = ERRLOG DAYFILE.
00304 M00S00278.ppr +++|* 4 = MAINLOG DAYFILE.
00305 M00S00279.ppr +++| SPACE 4,10
00306 M00S00280.ppr +++|*** EXIT CONDITIONS.
00307 M00S00281.ppr +++|*
00308 M00S00282.ppr +++|*
00309 M00S00283.ppr +++|* DAYFILE BUFFER FLUSHED TO DISK.
00310 M00S00284.ppr +++|*
00311 M00S00285.ppr +++|* DIRECT CELLS 20 - 36 SAVED AND RESTORED.
00312 M00S00286.ppr +++| SPACE 4,10
00313 M00S00287.ppr +++|*** NOTES.
00314 M00S00288.ppr +++|*
00315 M00S00289.ppr +++|*
00316 M00S00290.ppr +++|* PP WILL BE HUNG IF MASS STORAGE NOT ASSIGNED.
00317 M00S00291.ppr +++|*
00318 M00S00292.ppr +++|* IT IS THE RESPONSIBILITY OF THE CALLING PROGRAM TO
00319 M00S00293.ppr +++|* SECURE ANY BUFFER INTERLOCKS THAT MAY BE REQUIRED.
00320 M00S00294.ppr +++|*
00321 M00S00295.ppr +++|* IF AN UNRECOVERED WRITE ERROR IS ENCOUNTERED, THE WRITE
00322 M00S00296.ppr +++|* IS CONTINUED ON THE NEXT SECTOR.
00323 M00S00297.ppr +++| SPACE 4,10
00324 M00S00298.ppr +++|** COMMON DECKS.
00325 M00S00299.ppr +++|
00326 M00S00300.ppr +++|
00327 M00S00301.ppr +++|*CALL COMPRLM
00328 M00S00302.ppr +++| SPACE 4,10
00329 M00S00303.ppr +++|**** DIRECT LOCATION ASSIGNMENTS.
00330 M00S00304.ppr +++|
00331 M00S00305.ppr +++|
00332 M00S00306.ppr +++| WC EQU 16 WORD COUNT
00333 M00S00307.ppr +++| NT EQU 17 NEXT TRACK
00334 M00S00308.ppr +++| FT EQU 20 - 21 FIRST
00335 M00S00309.ppr +++| BL EQU 22 BUFFER LENGTH
00336 M00S00310.ppr +++| OT EQU 23 OUT
00337 M00S00311.ppr +++| IN EQU 24 IN
00338 M00S00312.ppr +++| SL EQU 25 SECTOR LENGTH
00339 M00S00313.ppr +++| DT EQU 26 DAYFILE TYPE
00340 M00S00314.ppr +++| ER EQU 27 ERROR STATUS
00341 M00S00315.ppr +++| ML EQU 30 - 34 MAINTENANCE LOG CONTROL WORD
00342 M00S00316.ppr +++| MI EQU ML+4 MESSAGE INDEX
00343 M00S00317.ppr +++|****
00344 M00S00318.ppr +++| TITLE MAIN PROGRAM.
00345 M00S00319.ppr +++| ZTD SPACE 4,10
00346 M00S00320.ppr +++|** 0TD - MAIN PROGRAM.
00347 M00S00321.ppr +++|
00348 M00S00322.ppr +++|
00349 M00S00323.ppr +++| ZTD SUBR ENTRY/EXIT
00350 M00S00324.ppr +++| LJM PRS PRESET OVERLAY
00351 M00S00325.ppr +++|
00352 M00S00326.ppr +++|* DUMP DAYFILE BUFFER TO DISK.
00353 M00S00327.ppr +++|
00354 M00S00328.ppr +++| ZTD1 LDD WC SET WORD COUNT REMAINING
00355 M00S00329.ppr +++| SBD T3
00356 M00S00330.ppr +++| STD WC
00357 M00S00331.ppr +++| LDD T3 ADVANCE OUT POINTER
00358 M00S00332.ppr +++| RAD OT
00359 M00S00333.ppr +++| SBD BL
00360 M00S00334.ppr +++| MJN ZTD2 IF NO WRAP AROUND
00361 M00S00335.ppr +++| STD OT
00362 M00S00336.ppr +++| ZTD2 RJM RDB READ DAYFILE BUFFER
00363 M00S00337.ppr +++| LDD T7 SET SECTOR LINKAGE
00364 M00S00338.ppr +++| ADN 1
00365 M00S00339.ppr +++| STM BUF
00366 M00S00340.ppr +++| LMM. SLM
00367 M00S00341.ppr +++| NJN ZTD3 IF NOT END OF TRACK
00368 M00S00342.ppr +++| LDD NT SET NEXT TRACK
00369 M00S00343.ppr +++| STM BUF
00370 M00S00344.ppr +++| ZJN ZTD6 IF NO MORE TRACKS AVAILABLE
00371 M00S00345.ppr +++| ZTD3 LDC. BUF+WCSF WRITE DAYFILE SECTOR
00372 M00S00346.ppr +++| RJM. WDS
00373 M00S00347.ppr +++| PJN ZTD4 IF NO WRITE ERROR
00374 M00S00348.ppr +++| SHN 21-11
00375 M00S00349.ppr +++| MJN ZTD2 IF REISSUE OF CURRENT SECTOR REQUIRED
00376 M00S00350.ppr +++| AOD ER
00377 M00S00351.ppr +++| ZTD4 AOD T7 ADVANCE SECTOR NUMBER
00378 M00S00352.ppr +++| LMM. SLM
00379 M00S00353.ppr +++| NJN ZTD5 IF NOT CROSSING TRACK BOUNDARY
00380 M00S00354.ppr +++| STD T7
00381 M00S00355.ppr +++| LDD NT SET NEXT TRACK
00382 M00S00356.ppr +++| STD T6
00383 M00S00357.ppr +++| ZTD5 UJN *+2 DONT ADVANCE MESSAGE LINK
00384 M00S00358.ppr +++| ZTDA EQU ZTD5
00385 M00S00359.ppr +++| CON AML
00386 M00S00360.ppr +++|* RJM AML (MAINTENANCE LOG PROCESSING)
00387 M00S00361.ppr +++|
00388 M00S00362.ppr +++|* CHECK IF MORE DATA LEFT OR IF ZERO-LENGTH EOR SECTOR NEEDED.
00389 M00S00363.ppr +++|
00390 M00S00364.ppr +++| LDM BUF+1
00391 M00S00365.ppr +++| SHN -6
00392 M00S00366.ppr +++| ZJN ZTD6 IF END OF DATA
00393 M00S00367.ppr +++| LJM ZTD1 LOOP FOR NEXT BLOCK
00394 M00S00368.ppr +++|
00395 M00S00369.ppr +++|* SET BUFFER EMPTY.
00396 M00S00370.ppr +++|
00397 M00S00371.ppr +++| ZTD6 RJM SPA READ OUT POINTER WORD
00398 M00S00372.ppr +++| ADN 1
00399 M00S00373.ppr +++| CRD CM
00400 M00S00374.ppr +++| LDD IN SET OUT = IN
00401 M00S00375.ppr +++| STD CM+4
00402 M00S00376.ppr +++| RJM SPA STORE OUT POINTER
00403 M00S00377.ppr +++| ADN 1
00404 M00S00378.ppr +++| CWD CM
00405 M00S00379.ppr +++|
00406 M00S00380.ppr +++|* ASSEMBLE EOI SECTOR.
00407 M00S00381.ppr +++|
00408 M00S00382.ppr +++| ZTD7 LDD T6 SET EOI TRACK
00409 M00S00383.ppr +++| STM SBUF+ETEI
00410 M00S00384.ppr +++| LDD T7 SET EOI SECTOR
00411 M00S00385.ppr +++| STM SBUF+ESEI
00412 M00S00386.ppr +++| LDN PDTL SET DATE AND TIME
00413 M00S00387.ppr +++| CRM SBUF+DTEI,TR
00414 M00S00388.ppr +++| LDC. SBUF+WLSF WRITE EOI SECTOR
00415 M00S00389.ppr +++| RJM. WDS
00416 M00S00390.ppr +++| PJN ZTD8 IF NO WRITE ERRORS
00417 M00S00391.ppr +++| SHN 21-11
00418 M00S00392.ppr +++| MJN ZTD7 IF REISSUE OF CURRENT SECTOR REQUIRED
00419 M00S00393.ppr +++| ZTD8 ENDMS RELEASE CHANNEL
00420 M00S00394.ppr +++|
00421 M00S00395.ppr +++|* SET EOI IN TRT.
00422 M00S00396.ppr +++|
00423 M00S00397.ppr +++| LDD T5
00424 M00S00398.ppr +++| LMC 4000 ADD CHECKPOINT REQUEST
00425 M00S00399.ppr +++| STD CM+1
00426 M00S00400.ppr +++| LDD T6
00427 M00S00401.ppr +++| LPC 3777
00428 M00S00402.ppr +++| STD CM+2
00429 M00S00403.ppr +++| LDD T7
00430 M00S00404.ppr +++| STD CM+3
00431 M00S00405.ppr +++| MONITOR DTKM
00432 M00S00406.ppr +++| RJM SPA STORE BUFFER STATUS
00433 M00S00407.ppr +++| ADN 2
00434 M00S00408.ppr +++| CWM SBUF+FSEI,ON
00435 M00S00409.ppr +++| ZTDB UJN ZTD9 RESTORE DIRECT CELLS
00436 M00S00410.ppr +++|* PSN (BML MESSAGE LINK UPDATE REQUIRED)
00437 M00S00411.ppr +++| LDN 1 INITIALIZE MESSAGE LINK
00438 M00S00412.ppr +++| STD MI
00439 M00S00413.ppr +++| LDN BMLL STORE MESSAGE LINK
00440 M00S00414.ppr +++| CWD ML
00441 M00S00415.ppr +++| ZTD9 LDD MA RESTORE DIRECT CELLS
00442 M00S00416.ppr +++| CWM DBUF,TR
00443 M00S00417.ppr +++| SBN 3
00444 M00S00418.ppr +++| CRM. FT,TR
00445 M00S00419.ppr +++| LJM ZTDX RETURN
00446 M00S00420.ppr +++| TITLE SUBROUTINES.
00447 M00S00421.ppr +++| AML SPACE 4,15
00448 M00S00422.ppr +++|** AML - ADVANCE MESSAGE LINK.
00449 M00S00423.ppr +++|*
00450 M00S00424.ppr +++|* ENTRY (ER) = ERROR STATUS.
00451 M00S00425.ppr +++|* (MI) = MESSAGE LINK.
00452 M00S00426.ppr +++|* (ML - ML+4) = *BMLL* WORD.
00453 M00S00427.ppr +++|*
00454 M00S00428.ppr +++|* EXIT (MI) ADVANCED TO FIRST MESSAGE IN NEXT SECTOR.
00455 M00S00429.ppr +++|* *BMLL* UPDATED IN CM.
00456 M00S00430.ppr +++|*
00457 M00S00431.ppr +++|* USES T1.
00458 M00S00432.ppr +++|*
00459 M00S00433.ppr +++|* CALLS RDB.
00460 M00S00434.ppr +++|
00461 M00S00435.ppr +++|
00462 M00S00436.ppr +++| AML SUBR ENTRY/EXIT
00463 M00S00437.ppr +++| LDD ER
00464 M00S00438.ppr +++| ZJN AML1 IF NO ERRORS
00465 M00S00439.ppr +++| RJM RDB RE-READ DAYFILE DATA
00466 M00S00440.ppr +++| AML1 LDD MI SET PP BUFFER INDEX
00467 M00S00441.ppr +++| SHN 2
00468 M00S00442.ppr +++| ADD MI
00469 M00S00443.ppr +++| STD T1
00470 M00S00444.ppr +++| LDM BUF+2,T1 ADVANCE MESSAGE INDEX
00471 M00S00445.ppr +++| ZJN AMLX IF END OF DATA
00472 M00S00446.ppr +++| RAD MI
00473 M00S00447.ppr +++| SBD HN
00474 M00S00448.ppr +++| MJN AML1 IF NOT LAST MESSAGE IN SECTOR
00475 M00S00449.ppr +++| ADN 1 SET MESSAGE LINK FOR NEXT SECTOR
00476 M00S00450.ppr +++| STD MI
00477 M00S00451.ppr +++| LDN BMLL STORE MESSAGE LINK
00478 M00S00452.ppr +++| CWD ML
00479 M00S00453.ppr +++| UJN AMLX RETURN
00480 M00S00454.ppr +++| RDB SPACE 4,10
00481 M00S00455.ppr +++|** RDB - READ DAYFILE BUFFER.
00482 M00S00456.ppr +++|*
00483 M00S00457.ppr +++|* ENTRY (WC) = REMAINING WORD COUNT.
00484 M00S00458.ppr +++|* (SL) = LENGTH OF SECTOR DATA.
00485 M00S00459.ppr +++|* (OT) = OUT POINTER.
00486 M00S00460.ppr +++|* (BL) = BUFFER LENGTH.
00487 M00S00461.ppr +++|*
00488 M00S00462.ppr +++|* EXIT (T3) = NUMBER OF WORDS READ.
00489 M00S00463.ppr +++|* (BUF) = DAYFILE DATA.
00490 M00S00464.ppr +++|*
00491 M00S00465.ppr +++|* USES T1 - T2.
00492 M00S00466.ppr +++|*
00493 M00S00467.ppr +++|* CALLS SBA.
00494 M00S00468.ppr +++|
00495 M00S00469.ppr +++|
00496 M00S00470.ppr +++| RDB3 AOM BUF+1 CORRECT SECTOR WORD COUNT
00497 M00S00471.ppr +++| LDN BMLL READ MAINTENANCE LOG CONTROL WORD
00498 M00S00472.ppr +++| CRM BUF+2,ON
00499 M00S00473.ppr +++|
00500 M00S00474.ppr +++| RDB SUBR ENTRY/EXIT
00501 M00S00475.ppr +++| LDD SL SET FULL SECTOR
00502 M00S00476.ppr +++| STD T3
00503 M00S00477.ppr +++| LDD WC CHECK WORD COUNT
00504 M00S00478.ppr +++| SBD SL
00505 M00S00479.ppr +++| PJN RDB1 IF FULL SECTOR OF DATA AVAILABLE
00506 M00S00480.ppr +++| ADD SL
00507 M00S00481.ppr +++| STD T3
00508 M00S00482.ppr +++| RDB1 LDD T3 SET SECTOR WORD COUNT
00509 M00S00483.ppr +++| STM BUF+1
00510 M00S00484.ppr +++| ZJN RDBX IF EMPTY SECTOR
00511 M00S00485.ppr +++| STD T2
00512 M00S00486.ppr +++| ADD OT
00513 M00S00487.ppr +++| SBD BL
00514 M00S00488.ppr +++| MJN RDB2 IF NO WRAP AROUND
00515 M00S00489.ppr +++| ZJN RDB2 IF NO WRAP AROUND
00516 M00S00490.ppr +++| STD T1 SET WORD COUNT FOR FIRST READ
00517 M00S00491.ppr +++| LDD BL WORD COUNT FROM OUT TO END OF BUFFER
00518 M00S00492.ppr +++| SBD OT
00519 M00S00493.ppr +++| STD T2
00520 M00S00494.ppr +++| SHN 2
00521 M00S00495.ppr +++| ADD T2
00522 M00S00496.ppr +++| ADC. BUF+2 BUFFER ADDRESS FOR FIRST READ
00523 M00S00497.ppr +++| RDBA EQU *-1
00524 M00S00498.ppr +++|* ADC. BUF+7 (MAINTENANCE LOG PROCESSING)
00525 M00S00499.ppr +++| STM RDBB
00526 M00S00500.ppr +++| RJM SBA READ WRAP AROUND
00527 M00S00501.ppr +++| CRM. *,T1
00528 M00S00502.ppr +++| RDBB EQU *-1
00529 M00S00503.ppr +++| RDB2 RJM SBA READ SECTOR OF DAYFILE DATA
00530 M00S00504.ppr +++| ADD OT
00531 M00S00505.ppr +++| CRM BUF+2,T2
00532 M00S00506.ppr +++| RDBC EQU *-1
00533 M00S00507.ppr +++|* CRM BUF+7,T2 (MAINTENANCE LOG PROCESSING)
00534 M00S00508.ppr +++| LJM RDBX RETURN
00535 M00S00509.ppr +++| RDBD EQU *-1
00536 M00S00510.ppr +++|* LJM RDB3 (MAINTENANCE LOG PROCESSING)
00537 M00S00511.ppr +++| SBA SPACE 4,10
00538 M00S00512.ppr +++|** SBA - SET BUFFER ADDRESS.
00539 M00S00513.ppr +++|*
00540 M00S00514.ppr +++|* ENTRY (RA) = REFERENCE ADDRESS FOR JOB DAYFILES.
00541 M00S00515.ppr +++|* (FT - FT+1) = BUFFER ADDRESS FOR SYSTEM DAYFILES.
00542 M00S00516.ppr +++|*
00543 M00S00517.ppr +++|* EXIT (A) = ABSOLUTE BUFFER ADDRESS.
00544 M00S00518.ppr +++|*
00545 M00S00519.ppr +++|* MACROS NFA.
00546 M00S00520.ppr +++|
00547 M00S00521.ppr +++|
00548 M00S00522.ppr +++| SBA1 NFA DAYN SET BUFFER ADDRESS IN NFL
00549 M00S00523.ppr +++|
00550 M00S00524.ppr +++| SBA SUBR ENTRY/EXIT
00551 M00S00525.ppr +++| SBAA LDD FT SET BUFFER ADDRESS IN CMR
00552 M00S00526.ppr +++|* UJN SBA1 (PROCESSING JOB DAYFILE)
00553 M00S00527.ppr +++| SHN 14
00554 M00S00528.ppr +++| ADD FT+1
00555 M00S00529.ppr +++| UJN SBAX RETURN
00556 M00S00530.ppr +++| SPA SPACE 4,10
00557 M00S00531.ppr +++|** SPA - SET POINTER ADDRESS.
00558 M00S00532.ppr +++|*
00559 M00S00533.ppr +++|* ENTRY (RA) = REFERENCE ADDRESS FOR JOB DAYFILES.
00560 M00S00534.ppr +++|*
00561 M00S00535.ppr +++|* EXIT (A) = DAYFILE BUFFER POINTER ADDRESS.
00562 M00S00536.ppr +++|*
00563 M00S00537.ppr +++|* MACROS NFA.
00564 M00S00538.ppr +++|
00565 M00S00539.ppr +++|
00566 M00S00540.ppr +++| SPA1 NFA DAPN SET POINTER ADDRESS IN NFL
00567 M00S00541.ppr +++|
00568 M00S00542.ppr +++| SPA SUBR ENTRY/EXIT
00569 M00S00543.ppr +++| SPAA LDC ** (FWA-3 OF DAYFILE POINTERS)
00570 M00S00544.ppr +++|* UJN SPA1 (PROCESSING JOB DAYFILE)
00571 M00S00545.ppr +++| UJN SPAX RETURN
00572 M00S00546.ppr +++| SPACE 4,10
00573 M00S00547.ppr +++|** BUFFERS.
00574 M00S00548.ppr +++|
00575 M00S00549.ppr +++|
00576 M00S00550.ppr +++| DBUF BSS 3*5 DIRECT CELL BUFFER
00577 M00S00551.ppr +++| SBUF CON 0,0 EOI SECTOR BUFFER
00578 M00S00552.ppr +++| BSS 2*5
00579 M00S00553.ppr +++| BUF BSS 0 DUMP BUFFER
00580 M00S00554.ppr +++|
00581 M00S00555.ppr +++| ERRNG ZTDL-502-* OVERLAY OVERFLOWS ASSEMBLY LIMIT
00582 M00S00556.ppr +++| TITLE PRESET.
00583 M00S00557.ppr +++| PRS SPACE 4,25
00584 M00S00558.ppr +++|** PRS - PRESET OVERLAY.
00585 M00S00559.ppr +++|*
00586 M00S00560.ppr +++|* ENTRY ( (LA)-1 ) = DAYFILE INDEX.
00587 M00S00561.ppr +++|* 0 = JOB DAYFILE.
00588 M00S00562.ppr +++|* 1 = MASTER DAYFILE.
00589 M00S00563.ppr +++|* 2 = ACCOUNT DAYFILE.
00590 M00S00564.ppr +++|* 3 = ERRLOG DAYFILE.
00591 M00S00565.ppr +++|* 4 = MAINLOG DAYFILE.
00592 M00S00566.ppr +++|*
00593 M00S00567.ppr +++|* EXIT (T5) = EST ORDINAL.
00594 M00S00568.ppr +++|* (T6) = CURRENT TRACK.
00595 M00S00569.ppr +++|* (T7) = CURRENT SECTOR.
00596 M00S00570.ppr +++|* (DT) = DAYFILE TYPE (0 = MAINTENANCE LOG).
00597 M00S00571.ppr +++|* (WC) = NUMBER OF WORDS IN BUFFER.
00598 M00S00572.ppr +++|* (SL) = LENGTH OF SECTOR DATA.
00599 M00S00573.ppr +++|* (NT) = NEXT TRACK IF REQUIRED.
00600 M00S00574.ppr +++|* (ER) = 0 IF PROCESSING MAINTENANCE LOG.
00601 M00S00575.ppr +++|* (IN) = RELATIVE IN POINTER.
00602 M00S00576.ppr +++|* (OT) = RELATIVE OUT POINTER.
00603 M00S00577.ppr +++|* (BL) = BUFFER LENGTH.
00604 M00S00578.ppr +++|* (FT - FT+1) = DAYFILE BUFFER ADDRESS.
00605 M00S00579.ppr +++|* (DBUF) = ORIGINAL CONTENTS OF DIRECT CELLS 20 - 36.
00606 M00S00580.ppr +++|*
00607 M00S00581.ppr +++|* USES T3, CM - CM+4.
00608 M00S00582.ppr +++|*
00609 M00S00583.ppr +++|* CALLS RLI, SPA.
00610 M00S00584.ppr +++|*
00611 M00S00585.ppr +++|* MACROS MONITOR, RSTR, SETMS.
00612 M00S00586.ppr +++|
00613 M00S00587.ppr +++|
00614 M00S00588.ppr +++| PRS RJM RLI RELOCATE INSTRUCTIONS
00615 M00S00589.ppr +++| LDD MA SAVE DIRECT CELLS
00616 M00S00590.ppr +++| CWM. FT,TR
00617 M00S00591.ppr +++| SBN 3
00618 M00S00592.ppr +++| CRM DBUF,TR
00619 M00S00593.ppr +++| LDN DFPP READ DAYFILE POINTERS
00620 M00S00594.ppr +++| CRD CM
00621 M00S00595.ppr +++| LDD CM SET DAYFILE BUFFER POINTER ADDRESS
00622 M00S00596.ppr +++| SHN 14-1
00623 M00S00597.ppr +++| ADM -1
00624 M00S00598.ppr +++| SHN 1
00625 M00S00599.ppr +++| ADD CM+1
00626 M00S00600.ppr +++| ADM -1
00627 M00S00601.ppr +++| SBN 3
00628 M00S00602.ppr +++| STM SPAA+1
00629 M00S00603.ppr +++| SHN -14
00630 M00S00604.ppr +++| RAM SPAA
00631 M00S00605.ppr +++| LDM -1 CHECK DAYFILE TYPE
00632 M00S00606.ppr +++| NJN PRS1 IF NOT JOB DAYFILE
00633 M00S00607.ppr +++| ISTORE SBAA,(UJN SBA1)
00634 M00S00608.ppr +++| ISTORE SPAA,(UJN SPA1)
00635 M00S00609.ppr +++| PRS1 RJM SPA READ BUFFER POINTERS
00636 M00S00610.ppr +++| CRD FT
00637 M00S00611.ppr +++| ADN 1
00638 M00S00612.ppr +++| CRD CM
00639 M00S00613.ppr +++| ADN 1
00640 M00S00614.ppr +++| CRD T5
00641 M00S00615.ppr +++| CRM SBUF+FSEI,ON
00642 M00S00616.ppr +++| LDD CM+2 SET BUFFER LENGTH
00643 M00S00617.ppr +++| STD BL
00644 M00S00618.ppr +++| ZJN PRS2 IF ZERO LENGTH BUFFER
00645 M00S00619.ppr +++| LDD CM+4 SET OUT
00646 M00S00620.ppr +++| STD OT
00647 M00S00621.ppr +++| LDD T5+4 SET DAYFILE TYPE
00648 M00S00622.ppr +++| SHN -6
00649 M00S00623.ppr +++| LMN BMLF
00650 M00S00624.ppr +++| STD DT
00651 M00S00625.ppr +++| LDD T5+2 SET CURRENT TRACK
00652 M00S00626.ppr +++| STD T6
00653 M00S00627.ppr +++| LDD T5+3 SET CURRENT SECTOR
00654 M00S00628.ppr +++| STD T7
00655 M00S00629.ppr +++| LDD T5 CHECK DAYFILE EQUIPMENT
00656 M00S00630.ppr +++| STD T5
00657 M00S00631.ppr +++| NJN PRS3 IF EQUIPMENT DEFINED
00658 M00S00632.ppr +++| MONITOR HNGM HANG PP
00659 M00S00633.ppr +++| PRS2 LJM ZTD9 RESTORE DIRECT CELLS
00660 M00S00634.ppr +++|
00661 M00S00635.ppr +++| PRS3 SETMS IO,(NS,SM)
00662 M00S00636.ppr +++| LDD IN CHECK DATA IN BUFFER
00663 M00S00637.ppr +++| SBD OT
00664 M00S00638.ppr +++| NJN PRS4 IF BUFFER NOT EMPTY
00665 M00S00639.ppr +++| LJM ZTD7 WRITE EOI SECTOR
00666 M00S00640.ppr +++|
00667 M00S00641.ppr +++| PRS4 PJN PRS5 IF IN .GT. OUT
00668 M00S00642.ppr +++| ADD BL
00669 M00S00643.ppr +++| PRS5 STD WC SET WORD COUNT
00670 M00S00644.ppr +++| STD T3
00671 M00S00645.ppr +++| LDD HN SET LENGTH OF SECTOR DATA
00672 M00S00646.ppr +++| STD SL
00673 M00S00647.ppr +++| LDD DT CHECK DAYFILE TYPE
00674 M00S00648.ppr +++| NJN PRS6 IF NOT MAINTENANCE LOG
00675 M00S00649.ppr +++| STD ER CLEAR ERROR STATUS
00676 M00S00650.ppr +++| LDD T3 ADJUST WORD COUNT TO INCLUDE CONTROL WORDS
00677 M00S00651.ppr +++| SHN -6
00678 M00S00652.ppr +++| ADN 1
00679 M00S00653.ppr +++| RAD T3
00680 M00S00654.ppr +++| SOD SL SECTOR DATA LENGTH = 77B
00681 M00S00655.ppr +++| LDN 5 INITIALIZE FOR MAINTENANCE LOG DUMP
00682 M00S00656.ppr +++| RAM RDBA
00683 M00S00657.ppr +++| STM RDBC
00684 M00S00658.ppr +++| LDC RDB3
00685 M00S00659.ppr +++| STM RDBD
00686 M00S00660.ppr +++| LDC RJMI+LA ENABLE ADVANCE OF MESSAGE LINK
00687 M00S00661.ppr +++| STM ZTDA
00688 M00S00662.ppr +++| LDN BMLL READ MAINTENANCE LOG CONTROL WORD
00689 M00S00663.ppr +++| CRD ML
00690 M00S00664.ppr +++| LDN 0 CLEAR DEADSTART FLAG
00691 M00S00665.ppr +++| STD ML
00692 M00S00666.ppr +++| STM ZTDB SET MESSAGE LINK UPDATE REQUIRED
00693 M00S00667.ppr +++| PRS6 LDD T3 CHECK SPACE ON CURRENT TRACK
00694 M00S00668.ppr +++| LPN 77
00695 M00S00669.ppr +++| NJN PRS7 IF NOT ON 100 WORD BOUNDARY
00696 M00S00670.ppr +++| AOD T3 ALLOW FOR ZERO-LENGTH EOR SECTOR
00697 M00S00671.ppr +++| PRS7 LDD T3
00698 M00S00672.ppr +++| ADN 77
00699 M00S00673.ppr +++| SHN -6
00700 M00S00674.ppr +++| ADD T7
00701 M00S00675.ppr +++| SBM. SLM
00702 M00S00676.ppr +++| MJN PRS8 IF SPACE ON CURRENT TRACK
00703 M00S00677.ppr +++| LDN ZERL
00704 M00S00678.ppr +++| CRD CM
00705 M00S00679.ppr +++| LDD T6 REQUEST NEXT DAYFILE TRACK
00706 M00S00680.ppr +++| STD CM+2
00707 M00S00681.ppr +++| LDD T5
00708 M00S00682.ppr +++| STD CM+1
00709 M00S00683.ppr +++| MONITOR RTCM
00710 M00S00684.ppr +++| LDD CM+4 SET NEXT TRACK
00711 M00S00685.ppr +++| STD NT
00712 M00S00686.ppr +++| PRS8 LJM ZTD2 ENTER MAIN LOOP
00713 M00S00687.ppr +++|
00714 M00S00688.ppr +++|
00715 M00S00689.ppr +++| HERE DUMP REMOTE TABLES
00716 M00S00690.ppr +++| RSTR RESTORE INSTRUCTIONS
00717 M00S00691.ppr +++|
00718 M00S00692.ppr +++| ERRNG ZTDL-* OVERLAY OVERFLOWS ASSEMBLY LIMIT
00719 M00S00693.ppr +++| TTL PPR/1DD - DUMP DAYFILE BUFFERS.
00720 M00S00694.ppr +++| TITLE
00721 M00S00695.ppr +++| QUAL 1DD
00722 M00S00696.ppr +++| IDENT 1DD,DDB
00723 M00S00697.ppr +++|*COMMENT PPR - DUMP DAYFILE BUFFER.
| Line S00698 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00724 M01S00698.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
| Line S00005 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00725 M01S00005.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00726 M00S00699.ppr +++| SPACE 4
00727 M00S00700.ppr +++|***** 1DD - DUMP DAYFILE BUFFER.
00728 M00S00701.ppr +++|*
00729 M00S00702.ppr +++|* G. R. MANSFIELD. 70/07/17.
00730 M00S00703.ppr +++|* R. E. TATE. 73/01/05.
00731 M00S00704.ppr +++| SPACE 4
00732 M00S00705.ppr +++|*** *1DD* IS CALLED BY PP RESIDENT OR DIRECTLY BY
00733 M00S00706.ppr +++|* *CPUMTR* WHEN A DAYFILE BUFFER HAS BEEN FILLED TO THE
00734 M00S00707.ppr +++|* THRESHOLD LIMIT. THIS LIMIT IS DEFINED AS THE LARGEST
00735 M00S00708.ppr +++|* NUMBER OF COMPLETE SECTORS THAT FIT IN THE BUFFER.
00736 M00S00709.ppr +++|* THUS FOR A BUFFER 414 WORDS LONG, A DUMP WILL BE INITIATED
00737 M00S00710.ppr +++|* WHEN THE BUFFER CONTAINS AT LEAST 400 WORDS. IN THIS
00738 M00S00711.ppr +++|* INSTANCE, 4 SECTORS WILL BE WRITTEN SINCE *1DD* DUMPS
00739 M00S00712.ppr +++|* ONLY COMPLETE SECTORS.
00740 M00S00713.ppr +++| SPACE 4,10
00741 M00S00714.ppr +++|*** INDIRECT CALL (FROM PP RESIDENT).
00742 M00S00715.ppr +++|*
00743 M00S00716.ppr +++|*
00744 M00S00717.ppr +++|* (CM+4) = DAYFILE INDEX.
00745 M00S00718.ppr +++|* 0 = JOB DAYFILE.
00746 M00S00719.ppr +++|* 1 = MASTER DAYFILE.
00747 M00S00720.ppr +++|* 2 = ACCOUNT DAYFILE.
00748 M00S00721.ppr +++|* 3 = ERRLOG DAYFILE.
00749 M00S00722.ppr +++|* 4 = MAINLOG DAYFILE.
00750 M00S00723.ppr +++| SPACE 4,10
00751 M00S00724.ppr +++|*** DIRECT CALL (FROM *CPUMTR*).
00752 M00S00725.ppr +++|*
00753 M00S00726.ppr +++|*
00754 M00S00727.ppr +++|* (IR - IR+1) = *1DD*.
00755 M00S00728.ppr +++|* (IR+4) = DAYFILE INDEX.
00756 M00S00729.ppr +++|* 0 = JOB DAYFILE.
00757 M00S00730.ppr +++|* 1 = MASTER DAYFILE.
00758 M00S00731.ppr +++|* 2 = ACCOUNT DAYFILE.
00759 M00S00732.ppr +++|* 3 = ERRLOG DAYFILE.
00760 M00S00733.ppr +++|* 4 = MAINLOG DAYFILE.
00761 M00S00734.ppr +++|*
00762 M00S00735.ppr +++|* PP DUMP BUFFER NOT USED.
00763 M00S00736.ppr +++| SPACE 4
00764 M00S00737.ppr +++|*** OPERATOR MESSAGES.
00765 M00S00738.ppr +++|*
00766 M00S00739.ppr +++|*
00767 M00S00740.ppr +++|* *1DD ABT.* WILL BE DISPLAYED AT THE SYSTEM CP ON ANY OF THE
00768 M00S00741.ppr +++|* FOLLOWING CONDTIONS-
00769 M00S00742.ppr +++|*
00770 M00S00743.ppr +++|* 1) UNRECOVERED WRITE ERROR ON A DAYFILE DUMP.
00771 M00S00744.ppr +++|* 2) NO TRACK AVAILABLE TO WRITE ON.
00772 M00S00745.ppr +++| SPACE 4
00773 M00S00746.ppr +++|*** ENTRY CONDITIONS.
00774 M00S00747.ppr +++|*
00775 M00S00748.ppr +++|*
00776 M00S00749.ppr +++|* LOCATIONS *EPFW* THROUGH *MSD* ARE SAVED IN THE DUMP BUFFER.
00777 M00S00750.ppr +++|* LOCATIONS *MSFW* THROUGH THE END OF *1DD* ARE SAVED.
00778 M00S00751.ppr +++| SPACE 4
00779 M00S00752.ppr +++|*** EXIT CONDITIONS.
00780 M00S00753.ppr +++|*
00781 M00S00754.ppr +++|*
00782 M00S00755.ppr +++|* ALL LOCATIONS FROM THE DUMP BUFFER ARE RESTORED.
00783 M00S00756.ppr +++| SPACE 4
00784 M00S00757.ppr +++|*** NOTES.
00785 M00S00758.ppr +++|*
00786 M00S00759.ppr +++|*
00787 M00S00760.ppr +++|* THIS PACKAGE MUST RESIDE IN RPL.
00788 M00S00761.ppr +++| SPACE 4
00789 M00S00762.ppr +++|**** DIRECT LOCATION ASSIGNMENTS.
00790 M00S00763.ppr +++|
00791 M00S00764.ppr +++|
00792 M00S00765.ppr +++| ER EQU 15 ERROR STATUS
00793 M00S00766.ppr +++| T8 EQU 16 TEMPORARY
00794 M00S00767.ppr +++| SL EQU 17 SECTOR LENGTH
00795 M00S00768.ppr +++| DP EQU 20 - 24 DAYFILE BUFFER POINTER WORD
00796 M00S00769.ppr +++| SX EQU 25 CONSTANT 6
00797 M00S00770.ppr +++| B1 EQU 26 - 32 WORD 1 OF DAYFILE BUFFER POINTERS
00798 M00S00771.ppr +++| FT EQU B1 FIRST
00799 M00S00772.ppr +++| IN EQU B1+4 IN
00800 M00S00773.ppr +++| B2 EQU 33 - 37 WORD 2 OF DAYFILE BUFFER POINTERS
00801 M00S00774.ppr +++| BL EQU B2+2 BUFFER LENGTH
00802 M00S00775.ppr +++| OT EQU B2+4 OUT
00803 M00S00776.ppr +++| FS EQU 40 - 44 DAYFILE BUFFER FST
00804 M00S00777.ppr +++| SC EQU 45 SECTOR COUNT
00805 M00S00778.ppr +++| NT EQU 46 NEXT TRACK
00806 M00S00779.ppr +++| TC EQU 47 TYPE OF CALL (DIRECT/INDIRECT)
00807 M00S00780.ppr +++| DI EQU IR+4 DAYFILE INDEX
00808 M00S00781.ppr +++| ML EQU 60 - 64 MAINTENANCE LOG CONTROL WORD
00809 M00S00782.ppr +++| MI EQU ML+4 MESSAGE INDEX
00810 M00S00783.ppr +++| DR EQU 65 *DFM* RETURN ADDRESS
00811 M00S00784.ppr +++|****
00812 M00S00785.ppr +++| SPACE 4,10
00813 M00S00786.ppr +++|*** BUFFER LOCATIONS.
00814 M00S00787.ppr +++|
00815 M00S00788.ppr +++|
00816 M00S00789.ppr +++| MBUF EQU PPFW-5 MESSAGE BUFFER SAVE AREA
00817 M00S00790.ppr +++| BUF EQU MBUF+6*5 WRITE BUFFER ADDRESS
00818 M00S00791.ppr +++| DDB TITLE MAIN PROGRAM.
00819 M00S00792.ppr +++|** DDB - MAIN PROGRAM.
00820 M00S00793.ppr +++|
00821 M00S00794.ppr +++|
00822 M00S00795.ppr +++| ORG DDFW
00823 M00S00796.ppr +++|
00824 M00S00797.ppr +++|* INITIALIZE CENTRAL ADDRESSES.
00825 M00S00798.ppr +++|
00826 M00S00799.ppr +++| DDB LDD IA CHECK IF DIRECT CALL
00827 M00S00800.ppr +++| CRD T1
00828 M00S00801.ppr +++| LDD T1
00829 M00S00802.ppr +++| LMC 2R1D
00830 M00S00803.ppr +++| STD TC
00831 M00S00804.ppr +++| UJN DDB1 READ DAYFILE POINTER WORD
00832 M00S00805.ppr +++|
00833 M00S00806.ppr +++| ERRNG DDBA-DDB-5 BUFFER OVERFLOW
00834 M00S00807.ppr +++|
00835 M00S00808.ppr +++| DDBA BSS 0
00836 M00S00809.ppr +++| LOC 10003-2*5
00837 M00S00810.ppr +++| DDBB CRM MSFW,T2 RESTORE DRIVER AND CALLING PROGRAM
00838 M00S00811.ppr +++| LDN DFPP CLEAR DUMP BUFFER INTERLOCK
00839 M00S00812.ppr +++| CWM DDBB-5,ON
00840 M00S00813.ppr +++| LJM DFM3 RETURN TO PPR
00841 M00S00814.ppr +++| CON DDBB-1 EXECUTION ADDRESS - 1
00842 M00S00815.ppr +++| CON 0 (T1)
00843 M00S00816.ppr +++| CON DFDS-65 (T2)
00844 M00S00817.ppr +++| LOC *O
00845 M00S00818.ppr +++|
00846 M00S00819.ppr +++| DDB1 LDN DFPP READ DAYFILE POINTER WORD
00847 M00S00820.ppr +++| CRD DP
00848 M00S00821.ppr +++| CRM DDBA-5,ON
00849 M00S00822.ppr +++| LDD T1+1
00850 M00S00823.ppr +++| SHN -6
00851 M00S00824.ppr +++| LMN 1RD
00852 M00S00825.ppr +++| RAD TC
00853 M00S00826.ppr +++| ZJN DDB1.1 IF DIRECT CALL
00854 M00S00827.ppr +++| LDD CM+4 SET DAYFILE INDEX
00855 M00S00828.ppr +++| STD IR+4
00856 M00S00829.ppr +++| AOM DDBA-5+4 CLEAR DUMP BUFFER INTERLOCK
00857 M00S00830.ppr +++| LDD DP+2 WRITE BOOT STRAP INTO DUMP BUFFER
00858 M00S00831.ppr +++| SHN 14
00859 M00S00832.ppr +++| ADD DP+3
00860 M00S00833.ppr +++| ADN 44+3
00861 M00S00834.ppr +++| CWM DDBA-5,TR
00862 M00S00835.ppr +++| LDM DFM PRESERVE *DFM* RETURN ADDRESS
00863 M00S00836.ppr +++| STD DR
00864 M00S00837.ppr +++| UJN DDB2 CHECK REQUEST
00865 M00S00838.ppr +++|
00866 M00S00839.ppr +++| DDB1.1 LDN 0 INTERLOCK BUFFER
00867 M00S00840.ppr +++| STD CM+1
00868 M00S00841.ppr +++| MONITOR DFMM INTERLOCK REQUEST
00869 M00S00842.ppr +++| LDD CM+4
00870 M00S00843.ppr +++| ZJN DDB2 IF INTERLOCKED
00871 M00S00844.ppr +++| LJM DDB21 DROP PP
00872 M00S00845.ppr +++|
00873 M00S00846.ppr +++| DDB2 LDD DI CHECK REQUEST
00874 M00S00847.ppr +++| NJN DDB3 IF NOT JOB DAYFILE
00875 M00S00848.ppr +++| LDC SBA1+77-SBAA+UJNI MODIFY INSTRUCTIONS
00876 M00S00849.ppr +++| STM SBAA
00877 M00S00850.ppr +++| LDC SPA1+77-SPAA+UJNI
00878 M00S00851.ppr +++| STM SPAA
00879 M00S00852.ppr +++| DDB3 RJM SPA READ BUFFER POINTERS
00880 M00S00853.ppr +++| CRD B1
00881 M00S00854.ppr +++| ADN 1
00882 M00S00855.ppr +++| CRD B2
00883 M00S00856.ppr +++| ADN 1 READ DAYFILE FST
00884 M00S00857.ppr +++| CRD FS
00885 M00S00858.ppr +++| LDD BL SET POINTER ADVANCE FOR ERROR EXIT
00886 M00S00859.ppr +++| SCN 77
00887 M00S00860.ppr +++| STD SL
00888 M00S00861.ppr +++| SHN -6 SET SECTOR COUNT
00889 M00S00862.ppr +++| STD SC
00890 M00S00863.ppr +++|
00891 M00S00864.ppr +++|* INITIALIZE FOR DAYFILE FST.
00892 M00S00865.ppr +++|
00893 M00S00866.ppr +++| LDN ZERL CLEAR ERROR STATUS
00894 M00S00867.ppr +++| CRD CM+1
00895 M00S00868.ppr +++| LDN 6 DEFINE CONSTANT 6
00896 M00S00869.ppr +++| STD SX
00897 M00S00870.ppr +++| LDD MA SAVE MESSAGE BUFFER
00898 M00S00871.ppr +++| CRM MBUF,SX
00899 M00S00872.ppr +++| LDD FS SET EST ORDINAL
00900 M00S00873.ppr +++| STD T8
00901 M00S00874.ppr +++| STD T5
00902 M00S00875.ppr +++| NJN DDB5 IF FILE USED
00903 M00S00876.ppr +++|
00904 M00S00877.ppr +++|* PREPARE NEW FST.
00905 M00S00878.ppr +++|
00906 M00S00879.ppr +++| LDN DAYS SELECT DAYFILE EQUIPMENT
00907 M00S00880.ppr +++| STD CM+2
00908 M00S00881.ppr +++| AOD SC INCLUDE SYSTEM SECTOR IN SECTOR COUNT
00909 M00S00882.ppr +++| MONITOR RTCM ASSIGN MASS STORAGE SPACE
00910 M00S00883.ppr +++| LDD CM+4 SET FIRST TRACK
00911 M00S00884.ppr +++| NJN DDB4 IF TRACK ASSIGNED
00912 M00S00885.ppr +++| RJM AOP ADVANCE OUT POINTER
00913 M00S00886.ppr +++| LJM DDB18 ABORT DUMP
00914 M00S00887.ppr +++|
00915 M00S00888.ppr +++|* CREATE SYSTEM SECTOR.
00916 M00S00889.ppr +++|
00917 M00S00890.ppr +++| DDB4 STD FS+1
00918 M00S00891.ppr +++| STD FS+2
00919 M00S00892.ppr +++| STD T6
00920 M00S00893.ppr +++| LDD CM+1 SET EQUIPMENT
00921 M00S00894.ppr +++| STD T5
00922 M00S00895.ppr +++| STD FS
00923 M00S00896.ppr +++| LDN ZERL CLEAR FILE NAME IN SYSTEM SECTOR
00924 M00S00897.ppr +++| CRM FNSS-BFMS+BUF,ON
00925 M00S00898.ppr +++| LDN PDTL SET DATE AND TIME
00926 M00S00899.ppr +++| CRM DTSS-BFMS+BUF,ON
00927 M00S00900.ppr +++| LDC LOFT*100 SET FILE TYPE
00928 M00S00901.ppr +++| STM FNSS+4-BFMS+BUF
00929 M00S00902.ppr +++| DDB5 SETMS IO,(ND,NS,SM)
00930 M00S00903.ppr +++| LDD HN SET SECTOR LENGTH
00931 M00S00904.ppr +++| STD SL
00932 M00S00905.ppr +++| LDD FS+4 CHECK DAYFILE
00933 M00S00906.ppr +++| SHN -6
00934 M00S00907.ppr +++| LMN BMLF
00935 M00S00908.ppr +++| NJN DDB6 IF NOT MAINTENANCE LOG
00936 M00S00909.ppr +++| LDC LDDI+ER INITIALIZE FOR MAINTENANCE LOG DUMP
00937 M00S00910.ppr +++| STM AOPA
00938 M00S00911.ppr +++| LDN 5
00939 M00S00912.ppr +++| RAM RDDA
00940 M00S00913.ppr +++| STM RDDC
00941 M00S00914.ppr +++| LDC RDD2
00942 M00S00915.ppr +++| STM RDDD
00943 M00S00916.ppr +++| SOD SL SECTOR DATA LENGTH = 77B
00944 M00S00917.ppr +++| LDN BMLL READ SECTOR CONTROL WORD
00945 M00S00918.ppr +++| CRD ML
00946 M00S00919.ppr +++| LDN 0 CLEAR DEADSTART FLAG
00947 M00S00920.ppr +++| STD ML
00948 M00S00921.ppr +++| DDB6 LDD T8
00949 M00S00922.ppr +++| NJN DDB7 IF FILE WRITTEN
00950 M00S00923.ppr +++| STD T7
00951 M00S00924.ppr +++| LDD MA MOVE FST TO SYSTEM SECTOR
00952 M00S00925.ppr +++| CWD FS
00953 M00S00926.ppr +++| CRM EQSS-BFMS+BUF,ON
00954 M00S00927.ppr +++| LDN 77 SET SYSTEM SECTOR LINKAGE BYTES
00955 M00S00928.ppr +++| STM BUF+1
00956 M00S00929.ppr +++| LDC 3777
00957 M00S00930.ppr +++| LJM DDB10 WRITE SYSTEM SECTOR
00958 M00S00931.ppr +++|
00959 M00S00932.ppr +++|* REQUEST ADDITIONAL TRACK IF NEEDED.
00960 M00S00933.ppr +++|
00961 M00S00934.ppr +++| DDB7 LDN ZERL
00962 M00S00935.ppr +++| CRD CM
00963 M00S00936.ppr +++| LDD FS+2 SET CURRENT TRACK
00964 M00S00937.ppr +++| STD CM+2
00965 M00S00938.ppr +++| STD T6
00966 M00S00939.ppr +++| LDD FS+3 SET CURRENT SECTOR
00967 M00S00940.ppr +++| STD T7
00968 M00S00941.ppr +++| ADD SC
00969 M00S00942.ppr +++| SBM SLM
00970 M00S00943.ppr +++| MJN DDB8 IF SECTOR LIMIT NOT REACHED
00971 M00S00944.ppr +++| LDD FS SET EQUIPMENT
00972 M00S00945.ppr +++| STD CM+1
00973 M00S00946.ppr +++| MONITOR RTCM REQUEST TRACK
00974 M00S00947.ppr +++| AOM DDBD SET CHECKPOINT REQUEST
00975 M00S00948.ppr +++| LDD CM+4 SAVE NEXT TRACK
00976 M00S00949.ppr +++| STD NT
00977 M00S00950.ppr +++| NJN DDB8 IF TRACK ASSIGNED
00978 M00S00951.ppr +++| AOD ER SET ERROR INDICATOR
00979 M00S00952.ppr +++| UJN DDB8 CONTINUE
00980 M00S00953.ppr +++|
00981 M00S00954.ppr +++|* END OF CODE OVERLAYED BY BUFFER.
00982 M00S00955.ppr +++|
00983 M00S00956.ppr +++| .A EQU BUF+502-*
00984 M00S00957.ppr +++| IFPL .A,2 PAD WITH HANG INSTRUCTIONS IF NECESSARY
00985 M00S00958.ppr +++| DUP .A,1
00986 M00S00959.ppr +++| UJN * HANG-S
00987 M00S00960.ppr +++|
00988 M00S00961.ppr +++| DDB8 RJM RDD READ DAYFILE DATA
00989 M00S00962.ppr +++|
00990 M00S00963.ppr +++|* ADVANCE OUT POINTER ASAP TO FREE UP BUFFER SPACE.
00991 M00S00964.ppr +++|
00992 M00S00965.ppr +++| RJM AOP ADVANCE OUT POINTER
00993 M00S00966.ppr +++|
00994 M00S00967.ppr +++|* DUMP BUFFER.
00995 M00S00968.ppr +++|
00996 M00S00969.ppr +++| DDB9 LDD HN
00997 M00S00970.ppr +++| STM BUF+1
00998 M00S00971.ppr +++| LDD T7 SET NEXT SECTOR
00999 M00S00972.ppr +++| ADN 1
01000 M00S00973.ppr +++| STM BUF
01001 M00S00974.ppr +++| LMM SLM
01002 M00S00975.ppr +++| NJN DDB11 IF NOT SECTOR LIMIT
01003 M00S00976.ppr +++| LDD NT SET NEXT TRACK IN LINKAGE
01004 M00S00977.ppr +++| DDB10 STM BUF
01005 M00S00978.ppr +++| ZJN DDB14 IF TRACK NOT AVAILABLE
01006 M00S00979.ppr +++| DDB11 LDC BUF+WCSF WRITE SECTOR
01007 M00S00980.ppr +++| RJM WDS
01008 M00S00981.ppr +++| PJN DDB12 IF NO WRITE ERRORS
01009 M00S00982.ppr +++| SHN 21-11
01010 M00S00983.ppr +++| MJN DDB15 IF REISSUE OF CURRENT SECTOR REQUIRED
01011 M00S00984.ppr +++| AOD ER SET ERROR INDICATOR
01012 M00S00985.ppr +++| DDB12 UJN *+2 DONT ADVANCE OUT POINTER
01013 M00S00986.ppr +++| DDBC EQU DDB12
01014 M00S00987.ppr +++| CON AOP
01015 M00S00988.ppr +++|* RJM AOP (AFTER 1ST SECTOR OF DAYFILE PROCESSED)
01016 M00S00989.ppr +++| AOD T7
01017 M00S00990.ppr +++| STD FS+3
01018 M00S00991.ppr +++| LMM SLM
01019 M00S00992.ppr +++| NJN DDB13 IF NOT SECTOR LIMIT
01020 M00S00993.ppr +++| STD T7 RESET TRACK AND SECTOR
01021 M00S00994.ppr +++| STD FS+3
01022 M00S00995.ppr +++| LDD NT SET TRACK
01023 M00S00996.ppr +++| STD T6
01024 M00S00997.ppr +++| STD FS+2
01025 M00S00998.ppr +++| DDB13 SOD SC DECREMENT SECTOR COUNT
01026 M00S00999.ppr +++| DDB14 ZJN DDB16 IF DUMP COMPLETE
01027 M00S01000.ppr +++| DDB15 LDC RJMI ENABLE OUT POINTER UPDATE
01028 M00S01001.ppr +++| STM DDBC
01029 M00S01002.ppr +++| RJM RDD READ NEXT SECTOR OF DAYFILE DATA
01030 M00S01003.ppr +++| LJM DDB9 PROCESS NEXT SECTOR
01031 M00S01004.ppr +++|
01032 M00S01005.ppr +++|* ASSEMBLE EOI SECTOR.
01033 M00S01006.ppr +++|
01034 M00S01007.ppr +++| DDB16 LDN 0
01035 M00S01008.ppr +++| STM BUF
01036 M00S01009.ppr +++| STM BUF+1
01037 M00S01010.ppr +++| RJM SPA READ FILE STATUS WORD
01038 M00S01011.ppr +++| ADN 2
01039 M00S01012.ppr +++| CWD FS
01040 M00S01013.ppr +++| CRM BUF+FSEI,ON
01041 M00S01014.ppr +++| LDN PDTL READ DATE AND TIME
01042 M00S01015.ppr +++| CRM BUF+DTEI,TR
01043 M00S01016.ppr +++| LDC BUF+WLSF WRITE EOI SECTOR
01044 M00S01017.ppr +++| RJM WDS
01045 M00S01018.ppr +++| PJN DDB17 IF NO WRITE ERRORS
01046 M00S01019.ppr +++| SHN 21-11
01047 M00S01020.ppr +++| MJN DDB16 IF REISSUE OF CURRENT SECTOR REQUIRED
01048 M00S01021.ppr +++| AOD ER SET ERROR INDICATOR
01049 M00S01022.ppr +++| DDB17 ENDMS END MASS STORAGE OPERATION
01050 M00S01023.ppr +++| LDD MA RESTORE DIRECT CELLS
01051 M00S01024.ppr +++| CWM MBUF,SX
01052 M00S01025.ppr +++| DDBD LDN 0 LOAD CHECKPOINT REQUEST
01053 M00S01026.ppr +++|* LDN 1 (CHECKPOINT REQUESTED)
01054 M00S01027.ppr +++| SHN 13
01055 M00S01028.ppr +++| LMD T5 MERGE WITH EQUIPMENT
01056 M00S01029.ppr +++| STD CM+1
01057 M00S01030.ppr +++| LDD T6 SET LAST SECTOR WRITTEN REQUEST
01058 M00S01031.ppr +++| LPC 3777
01059 M00S01032.ppr +++| STD CM+2
01060 M00S01033.ppr +++| LDD T7
01061 M00S01034.ppr +++| STD CM+3
01062 M00S01035.ppr +++| MONITOR DTKM
01063 M00S01036.ppr +++| LDD ER
01064 M00S01037.ppr +++| ZJN DDB20 IF NO ERRORS
| Line S01038 Modification History |
M01 (Removed by) | ppr16 |
Seq # *Modification Id* Act
----------------------------+
01065 M01S01038.ppr16 ---| DDB18 LDD CP
01066 M01S01039.ppr16 ---| ADN JCIW
01067 M01S01040.ppr16 ---| CRD CM
01068 M01S01041.ppr16 ---| LDD CM+2
01069 M01S01042.ppr16 ---| SBK LSSI+1
01070 M01S01043.ppr16 ---| PJN DDB19 IF NOT USER JOB
01071 M01S01044.ppr16 ---| LDN SYET ABORT USER JOB
01072 M01S01045.ppr16 ---| STD CM+1
01073 M01S01046.ppr16 ---| MONITOR CEFM
01074 M01S01047.ppr16 ---| DDB19 LDN NCPL DISPLAY MESSAGE AT SYSTEM CP
| Line S00001 Modification History |
M01 (Added by) | ppr16 |
Seq # *Modification Id* Act
----------------------------+
01075 M01S00001.ppr16 +++| DDB18 LDN NCPL DISPLAY MESSAGE AT SYSTEM CP
01076 M00S01048.ppr +++| CRD CM
01077 M00S01049.ppr +++| AOD CM+1
01078 M00S01050.ppr +++| SHN 7
01079 M00S01051.ppr +++| ADN MS2W
01080 M00S01052.ppr +++| CWM =C*1DD ABT.*,ON
01081 M00S01053.ppr +++| DDB20 LDD FS+4 SET BUFFER NOT BUSY / CLEAR *1DD* FLAG
01082 M00S01054.ppr +++| SCN 4 CLEAR *1DD* CALLED FLAG
01083 M00S01055.ppr +++| ADN 1 SET NOT BUSY
01084 M00S01056.ppr +++| STD FS+4
01085 M00S01057.ppr +++| RJM SPA
01086 M00S01058.ppr +++| ADN 2
01087 M00S01059.ppr +++| CWD FS
01088 M00S01060.ppr +++| LDD TC
01089 M00S01061.ppr +++| NJN DDB22 IF DIRECT CALL
01090 M00S01062.ppr +++| DDB21 MONITOR DPPM DROP PPU
01091 M00S01063.ppr +++| LJM PPR EXIT TO PP RESIDENT
01092 M00S01064.ppr +++|
01093 M00S01065.ppr +++| DDB22 LDN 65 RESTORE PP
01094 M00S01066.ppr +++| STD CM
01095 M00S01067.ppr +++| LDD DR RESET *DFM* RETURN
01096 M00S01068.ppr +++| STM DFM
01097 M00S01069.ppr +++| LDD DP+2 LOAD ADDRESS OF DUMP BUFFER
01098 M00S01070.ppr +++| SHN 14
01099 M00S01071.ppr +++| ADD DP+3
01100 M00S01072.ppr +++| ADN 3
01101 M00S01073.ppr +++| CRM EPFW,CM
01102 M00S01074.ppr +++|* CRM MSFW,T2 RESTORE DRIVER AND CALLING PROGRAM
01103 M00S01075.ppr +++|* LDN DFPP CLEAR DUMP BUFFER INTERLOCK
01104 M00S01076.ppr +++|* CWM DDBB-5,ON
01105 M00S01077.ppr +++|* LJM DFM3 RETURN TO PPR
01106 M00S01078.ppr +++| TITLE SUBROUTINES.
01107 M00S01079.ppr +++| AOP SPACE 4,20
01108 M00S01080.ppr +++|** AOP - ADVANCE OUT POINTER.
01109 M00S01081.ppr +++|*
01110 M00S01082.ppr +++|* ENTRY (SL) = LENGTH OF SECTOR DATA.
01111 M00S01083.ppr +++|* (OT) = OUT POINTER.
01112 M00S01084.ppr +++|* (BL) = BUFFER LENGTH.
01113 M00S01085.ppr +++|* (ER) = ERROR STATUS.
01114 M00S01086.ppr +++|* (MI) = MAINTENANCE LOG MESSAGE LINK.
01115 M00S01087.ppr +++|* (ML - ML+4) = *BMLL* WORD.
01116 M00S01088.ppr +++|* (B2 - B2+4) = OUT POINTER WORD.
01117 M00S01089.ppr +++|*
01118 M00S01090.ppr +++|* EXIT (OT) ADVANCED IN PP AND CM.
01119 M00S01091.ppr +++|* (MI) ADVANCED TO FIRST MESSAGE IN NEXT SECTOR.
01120 M00S01092.ppr +++|*
01121 M00S01093.ppr +++|* USES T1.
01122 M00S01094.ppr +++|*
01123 M00S01095.ppr +++|* CALLS RDD, SPA.
01124 M00S01096.ppr +++|*
01125 M00S01097.ppr +++|* MACROS MONITOR.
01126 M00S01098.ppr +++|
01127 M00S01099.ppr +++|
01128 M00S01100.ppr +++| AOP3 LDD SL ADVANCE OUT POINTER BY SECTOR LENGTH
01129 M00S01101.ppr +++| RAD OT
01130 M00S01102.ppr +++| SBD BL
01131 M00S01103.ppr +++| MJN AOP4 IF NO WRAP AROUND
01132 M00S01104.ppr +++| STD OT
01133 M00S01105.ppr +++| AOP4 RJM SPA STORE OUT POINTER
01134 M00S01106.ppr +++| ADN 1
01135 M00S01107.ppr +++| CWD B2
01136 M00S01108.ppr +++|
01137 M00S01109.ppr +++| AOP SUBR ENTRY/EXIT
01138 M00S01110.ppr +++| AOPA UJN AOP3 ADVANCE OUT POINTER
01139 M00S01111.ppr +++|* LDD ER (MAINTENANCE LOG PROCESSING)
01140 M00S01112.ppr +++| ZJN AOP1 IF NO ERRORS
01141 M00S01113.ppr +++| RJM RDD RE-READ DAYFILE DATA
01142 M00S01114.ppr +++| AOP1 LDD MI SET PP BUFFER INDEX
01143 M00S01115.ppr +++| SHN 2
01144 M00S01116.ppr +++| ADD MI
01145 M00S01117.ppr +++| STD T1
01146 M00S01118.ppr +++| LDM BUF+2,T1 ADVANCE MESSAGE INDEX
01147 M00S01119.ppr +++| ZJN AOP2 IF BAD MESSAGE LENGTH
01148 M00S01120.ppr +++| RAD MI
01149 M00S01121.ppr +++| SBD HN
01150 M00S01122.ppr +++| MJN AOP1 IF NOT LAST MESSAGE IN SECTOR
01151 M00S01123.ppr +++| ADN 1 SET MESSAGE LINK FOR NEXT SECTOR
01152 M00S01124.ppr +++| STD MI
01153 M00S01125.ppr +++| SHN -6
01154 M00S01126.ppr +++| NJN AOP2 IF BAD MESSAGE LINK
01155 M00S01127.ppr +++| LDN BMLL STORE MESSAGE LINK
01156 M00S01128.ppr +++| CWD ML
01157 M00S01129.ppr +++| UJP AOP3 ADVANCE OUT POINTER
01158 M00S01130.ppr +++|
01159 M00S01131.ppr +++| AOP2 MONITOR HNGM
01160 M00S01132.ppr +++| UJN AOP2 HANG PP SOLID
01161 M00S01133.ppr +++| RDD SPACE 4,10
01162 M00S01134.ppr +++|** RDD - READ DAYFILE DATA.
01163 M00S01135.ppr +++|*
01164 M00S01136.ppr +++|* ENTRY (OT) = OUT POINTER.
01165 M00S01137.ppr +++|* (BL) = BUFFER LENGTH.
01166 M00S01138.ppr +++|* (SL) = LENGTH OF SECTOR DATA.
01167 M00S01139.ppr +++|*
01168 M00S01140.ppr +++|* EXIT (BUF) = SECTOR OF DAYFILE DATA.
01169 M00S01141.ppr +++|*
01170 M00S01142.ppr +++|* USES T0 - T2.
01171 M00S01143.ppr +++|*
01172 M00S01144.ppr +++|* CALLS SBA.
01173 M00S01145.ppr +++|
01174 M00S01146.ppr +++|
01175 M00S01147.ppr +++| RDD2 LDN BMLL READ MAINTENANCE LOG CONTROL WORD
01176 M00S01148.ppr +++| CRM BUF+2,ON
01177 M00S01149.ppr +++|
01178 M00S01150.ppr +++| RDD SUBR ENTRY/EXIT
01179 M00S01151.ppr +++| LDD SL SET NUMBER OF WORDS TO READ
01180 M00S01152.ppr +++| STD T2
01181 M00S01153.ppr +++| ADD OT
01182 M00S01154.ppr +++| SBD BL
01183 M00S01155.ppr +++| MJN RDD1 IF NO WRAP AROUND
01184 M00S01156.ppr +++| ZJN RDD1 IF NO WRAP AROUND
01185 M00S01157.ppr +++| STD T1
01186 M00S01158.ppr +++| LDD BL WORD COUNT FROM OUT TO END OF BUFFER
01187 M00S01159.ppr +++| SBD OT
01188 M00S01160.ppr +++| STD T2
01189 M00S01161.ppr +++| SHN 2
01190 M00S01162.ppr +++| ADD T2
01191 M00S01163.ppr +++| ADC BUF+2 BUFFER ADDRESS FOR FIRST READ
01192 M00S01164.ppr +++| RDDA EQU *-1
01193 M00S01165.ppr +++|* ADC BUF+7 (MAINTENANCE LOG PROCESSING)
01194 M00S01166.ppr +++| STM RDDB
01195 M00S01167.ppr +++| RJM SBA READ WRAP AROUND
01196 M00S01168.ppr +++| CRM **,T1
01197 M00S01169.ppr +++| RDDB EQU *-1
01198 M00S01170.ppr +++| RDD1 RJM SBA READ SECTOR OF DAYFILE DATA
01199 M00S01171.ppr +++| ADD OT
01200 M00S01172.ppr +++| CRM BUF+2,T2
01201 M00S01173.ppr +++| RDDC EQU *-1
01202 M00S01174.ppr +++|* CRM BUF+7,T2 (MAINTENANCE LOG PROCESSING)
01203 M00S01175.ppr +++| LJM RDDX RETURN
01204 M00S01176.ppr +++| RDDD EQU *-1
01205 M00S01177.ppr +++|* LJM RDD2 (MAINTENANCE LOG PROCESSING)
01206 M00S01178.ppr +++| SBA SPACE 4,10
01207 M00S01179.ppr +++|** SBA - SET BUFFER ADDRESS.
01208 M00S01180.ppr +++|*
01209 M00S01181.ppr +++|* ENTRY (RA) = REFERENCE ADDRESS FOR JOB DAYFILES.
01210 M00S01182.ppr +++|* (FT - FT+1) = BUFFER ADDRESS FOR SYSTEM DAYFILES.
01211 M00S01183.ppr +++|*
01212 M00S01184.ppr +++|* EXIT (A) = ABSOLUTE BUFFER ADDRESS.
01213 M00S01185.ppr +++|*
01214 M00S01186.ppr +++|* MACROS NFA.
01215 M00S01187.ppr +++|
01216 M00S01188.ppr +++|
01217 M00S01189.ppr +++| SBA1 NFA DAYN SET BUFFER ADDRESS IN NFL
01218 M00S01190.ppr +++|
01219 M00S01191.ppr +++| SBA SUBR ENTRY/EXIT
01220 M00S01192.ppr +++| SBAA LDD FT SET BUFFER ADDRESS IN CMR
01221 M00S01193.ppr +++|* UJN SBA1 (PROCESSING JOB DAYFILE)
01222 M00S01194.ppr +++| SHN 14
01223 M00S01195.ppr +++| ADD FT+1
01224 M00S01196.ppr +++| UJN SBAX RETURN
01225 M00S01197.ppr +++|
01226 M00S01198.ppr +++| ERRPL SBAA-SBA1-40 JUMP OUT OF RANGE
01227 M00S01199.ppr +++| SPA SPACE 4,10
01228 M00S01200.ppr +++|** SPA - SET POINTER ADDRESS.
01229 M00S01201.ppr +++|*
01230 M00S01202.ppr +++|* ENTRY (RA) = REFERENCE ADDRESS FOR JOB DAYFILES.
01231 M00S01203.ppr +++|* (DP - DP+1) = FWA DAYFILE POINTERS.
01232 M00S01204.ppr +++|*
01233 M00S01205.ppr +++|* EXIT (A) = DAYFILE BUFFER POINTER ADDRESS.
01234 M00S01206.ppr +++|*
01235 M00S01207.ppr +++|* MACROS NFA.
01236 M00S01208.ppr +++|
01237 M00S01209.ppr +++|
01238 M00S01210.ppr +++| SPA1 NFA DAPN SET POINTER ADDRESS IN NFL
01239 M00S01211.ppr +++|
01240 M00S01212.ppr +++| SPA SUBR ENTRY/EXIT
01241 M00S01213.ppr +++| SPAA LDD DP SET DAYFILE POINTER ADDRESS
01242 M00S01214.ppr +++|* UJN SPA1 (PROCESSING JOB DAYFILE)
01243 M00S01215.ppr +++| SHN 14-1
01244 M00S01216.ppr +++| ADD DI
01245 M00S01217.ppr +++| SHN 1
01246 M00S01218.ppr +++| ADD DP+1
01247 M00S01219.ppr +++| ADD DI
01248 M00S01220.ppr +++| SBN 3
01249 M00S01221.ppr +++| UJN SPAX RETURN
01250 M00S01222.ppr +++|
01251 M00S01223.ppr +++| ERRPL SPAA-SPA1-40 JUMP OUT OF RANGE
01252 M00S01224.ppr +++|
01253 M00S01225.ppr +++|* IF THIS TEST FAILS, INCREASE *DDLW* IN COMSMSC. *1MB*
01254 M00S01226.ppr +++|* INSURES THAT NO 16-BIT INSTRUCTIONS ARE WITHIN THE AREA
01255 M00S01227.ppr +++|* SAVED AND RESTORED BY *1DD*.
01256 M00S01228.ppr +++|
01257 M00S01229.ppr +++| ERRNG DDLW-*
01258 M00S01230.ppr +++| SPACE 4
01259 M00S01231.ppr +++| USE BUFFER
01260 M00S01232.ppr +++|
01261 M00S01233.ppr +++| A EQU MSFW+DFDS*5-65*5-DDFW BYTES SAVED FROM START OF *1DD*
01262 M00S01234.ppr +++| ERRNG A/5*5+DDFW-* *1DD* OVERFLOWS DUMP BUFFER
01263 M00S01235.ppr +++| 1RU TTL PPR/1RU - ISHARED UNIT RESERVE PROCESSOR.
01264 M00S01236.ppr +++| EJECT
01265 M00S01237.ppr +++| QUAL 1RU
01266 M00S01238.ppr +++| IDENT 1RU,PPFW
01267 M00S01239.ppr +++|*COMMENT PPR - ISHARED UNIT RESERVE PROCESSOR.
| Line S01240 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
01268 M01S01240.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00006 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
01269 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
01270 M00S01241.ppr +++| SPACE 4,10
01271 M00S01242.ppr +++|*** 1RU - ISHARED UNIT RESERVE PROCESSOR.
01272 M00S01243.ppr +++|* G. A. SCHUMACHER. 79/08/03.
01273 M00S01244.ppr +++|* J. J. EIKUM. 81/05/18.
01274 M00S01245.ppr +++|* J. J. EIKUM. 86/10/31.
01275 M00S01246.ppr +++| SPACE 4,10
01276 M00S01247.ppr +++|*** *1RU* IS CALLED WHEN A MONITOR FUNCTION THAT REQUIRES
01277 M00S01248.ppr +++|* ACCESS TO TABLES ON AN INDEPENDENT SHARED DEVICE IS ISSUED.
01278 M00S01249.ppr +++|*
01279 M00S01250.ppr +++|* *1RU* IS CALLED INTO A PP (STAND-ALONE MODE) IF ONE
01280 M00S01251.ppr +++|* IS AVAILABLE. IF THERE ARE NO FREE PPS, PART OF THE PP THAT
01281 M00S01252.ppr +++|* ISSUED THE FUNCTION IS SAVED IN A CENTRAL MEMORY SAVE AREA
01282 M00S01253.ppr +++|* AND *1RU* IS LOADED INTO THAT PP (OVERLAYING MODE).
01283 M00S01254.ppr +++|*
| Line S00001 Modification History |
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01284 M01S00001.ns2553 +++|* *1RU* IS NORMALLY EXECUTED AS A MAIN OVERLAY, BUT IT
01285 M01S00002.ns2553 +++|* IS CALLED VIA AN *EXECUTE* MACRO DURING SOME PHASES OF ERROR
01286 M01S00003.ns2553 +++|* PROCESSING. *1MV* CALLS IT VIA *EXECUTE* WHEN ATTEMPTING TO
01287 M01S00004.ns2553 +++|* REPAIR THE LABEL BY REWRITING IT FROM CENTRAL MEMORY. *3RU*
01288 M01S00005.ns2553 +++|* CALLS *1RU* VIA *EXECUTE* WHEN RETRYING A REQUEST AFTER
01289 M01S00006.ns2553 +++|* ERROR PROCESSING.
01290 M01S00007.ns2553 +++|*
01291 M00S01255.ppr +++|* *1RU* PERFORMS THE FOLLOWING ACTIONS-
01292 M00S01256.ppr +++|* 1. USING THE MASS STORAGE DRIVER, SET THE CONTROLLER AND
01293 M00S01257.ppr +++|* UNIT RESERVES IN THE HARDWARE.
01294 M00S01258.ppr +++|* 2. READ THE MST AND TRT FROM THE LABEL TRACK TO CM.
01295 M00S01259.ppr +++|* 3. REWRITE THE LABEL SECTOR WITH THE SOFTWARE RESERVE SET IN
01296 M00S01260.ppr +++|* WORD *SDGL*.
01297 M00S01261.ppr +++|* 4. IF OVERLAYING MODE, ISSUE THE ORIGINAL FUNCTION.
01298 M00S01262.ppr +++|* 5. WAIT FOR ALL FUNCTIONS TO BE PROCESSED.
01299 M00S01263.ppr +++|* 6. WRITE THE TRT, MRT, SECOND COPY OF THE MST, TRT, AND MRT.
01300 M00S01264.ppr +++|* 7. WRITE THE LABEL SECTOR WITH THE SOFTWARE RESERVE CLEAR.
01301 M00S01265.ppr +++|* 8. RELEASE THE HARDWARE RESERVES.
01302 M00S01266.ppr +++|* 9. IF OVERLAYING MODE, RESTORE PP MEMORY.
01303 M00S01267.ppr +++|* IF STAND-ALONE MODE, DROP THE PP.
| Line S01268 Modification History |
M01 (Removed by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01304 M01S01268.ns2553 ---| SPACE 4,10
| Line S00008 Modification History |
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01305 M01S00008.ns2553 +++| EJECT
01306 M00S01269.ppr +++|*** ENTRY CONDITIONS.
01307 M00S01270.ppr +++|*
01308 M00S01271.ppr +++|*
01309 M00S01272.ppr +++|* FOR STAND-ALONE MODE-
| Line S00009 Modification History |
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01310 M01S00009.ns2553 +++|*
01311 M00S01273.ppr +++|* (IR+4) = EST ORDINAL.
01312 M00S01274.ppr +++|*
01313 M00S01275.ppr +++|* FOR OVERLAYING MODE-
| Line S00010 Modification History |
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01314 M01S00010.ns2553 +++|*
01315 M01S00011.ns2553 +++|* (MB+1, BYTES 1 - 2) = SAVE AREA ADDRESS.
01316 M00S01276.ppr +++|* (SAVE AREA WORD 1) = ORIGINAL OUTPUT REGISTER.
01317 M00S01277.ppr +++|* (SAVE AREA WORDS 2 - 7) = ORIGINAL MESSAGE BUFFER.
01318 M00S01278.ppr +++|* PP MEMORY SAVED IN THE SAVE AREA.
| Line S01279 Modification History |
M01 (Removed by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01319 M01S01279.ns2553 ---|* (MB+1, BYTES 1 - 2) = SAVE AREA ADDRESS.
| Line S00012 Modification History |
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01320 M01S00012.ns2553 +++|*
01321 M01S00013.ns2553 +++|* FOR *EXECUTE* MODE-
01322 M01S00014.ns2553 +++|*
01323 M01S00015.ns2553 +++|* (EA) = *FTN* EXIT ADDRESS, IF *3RU* RETRY CALL.
01324 M01S00016.ns2553 +++|* (IR+2) = EST ORDINAL, IF *1MV* REPAIR CALL.
01325 M01S00017.ns2553 +++|* (IR+3) = FUNCTION CODE.
01326 M01S00018.ns2553 +++|* 0, IF *1MV* REPAIR CALL.
01327 M01S00019.ns2553 +++|* 1, IF *3RU* RETRY CALL.
01328 M01S00020.ns2553 +++|* (SA - SA+1) = PP SAVE AREA ADDRESS, IF *3RU* RETRY CALL.
01329 M01S00021.ns2553 +++|* 0, IF STANDALONE (OTHER STANDALONE ENTRY
01330 M01S00022.ns2553 +++|* CONDITIONS ARE ALSO ASSUMED.
01331 M01S00023.ns2553 +++|* OTHERWISE, OVERLAYING ENTRY CONDTIONS ARE
01332 M01S00024.ns2553 +++|* ASSUMED.
01333 M00S01280.ppr +++| SPACE 4,10
01334 M00S01281.ppr +++|*** EXIT CONDITIONS.
01335 M00S01282.ppr +++|*
01336 M00S01283.ppr +++|*
01337 M00S01284.ppr +++|* FOR OVERLAYING MODE-
01338 M00S01285.ppr +++|* PP MEMORY IS RESTORED FROM THE PP SAVE AREA.
01339 M00S01286.ppr +++|* MESSAGE BUFFER IS UPDATED TO INFORMATION RETURNED
01340 M00S01287.ppr +++|* BY CPUMTR WHEN THE FUNCTION WAS PROCESSED.
01341 M00S01288.ppr +++| SPACE 4,10
01342 M00S01289.ppr +++|*** NOTE - THIS OVERLAY MUST RESIDE IN *RPL*.
01343 M00S01290.ppr +++| SPACE 4,10
01344 M00S01291.ppr +++|* COMMON DECKS.
01345 M00S01292.ppr +++|
01346 M00S01293.ppr +++|
01347 M00S01294.ppr +++|*CALL COMSMMF
01348 M00S01295.ppr +++|*CALL COMSLSD
01349 M00S01296.ppr +++| MACROS SPACE 4,10
01350 M00S01297.ppr +++|** MACROS.
01351 M00S01298.ppr +++| ERROR SPACE 4,10
01352 M00S01299.ppr +++|** ERROR - ERROR IN R/W OF SHARED DISK TABLES.
01353 M00S01300.ppr +++|*
01354 M00S01301.ppr +++|*
01355 M00S01302.ppr +++|* ERROR E
01356 M00S01303.ppr +++|* E= ERROR NUMBER.
01357 M00S01304.ppr +++|*
01358 M00S01305.ppr +++|* CALLS ERR.
01359 M00S01306.ppr +++|
01360 M00S01307.ppr +++|
01361 M00S01308.ppr +++| PURGMAC ERROR
01362 M00S01309.ppr +++|
01363 M00S01310.ppr +++| ERROR MACRO E
01364 M00S01311.ppr +++| MACREF ERROR
01365 M00S01312.ppr +++| LDN E
01366 M00S01313.ppr +++| LJM ERR PROCESS ERROR
01367 M00S01314.ppr +++| ERROR ENDM
01368 M00S01315.ppr +++| OVERLAY SPACE 4,10
01369 M00S01316.ppr +++|** OVERLAY - GENERATE OVERLAY CONSTANTS.
01370 M00S01317.ppr +++|*
01371 M00S01318.ppr +++|* OVERLAY (TEXT),LOAD
01372 M00S01319.ppr +++|*
01373 M00S01320.ppr +++|* ENTRY *TEXT* = TEXT FOR SUBTITLE.
01374 M00S01321.ppr +++|* *LOAD* = ORIGIN ADDRESS.
01375 M00S01322.ppr +++|
01376 M00S01323.ppr +++| PURGMAC OVERLAY
01377 M00S01324.ppr +++|
01378 M00S01325.ppr +++| OVERLAY MACRO TEXT,LOAD
01379 M00S01326.ppr +++| LOCAL OVL
01380 M00S01327.ppr +++| NOREF .N
01381 M00S01328.ppr +++| MACREF OVERLAY
01382 M00S01329.ppr +++| .N SET .N+1
01383 M00S01330.ppr +++| .M MICRO .N,1, UVWXYZ
01384 M00S01331.ppr +++| .O MICRO 1,3 "OVLB"".M"
01385 M00S01332.ppr +++| TTL PPR/".O" - ISHARED UNIT RESERVE PROCESSOR.
01386 M00S01333.ppr +++| IDENT ".O",OVL TEXT
01387 M00S01334.ppr +++| TITLE TEXT
01388 M00S01335.ppr +++|*COMMENT PPR - TEXT
| Line S01336 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
01389 M01S01336.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP., 1987.
| Line S00007 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
01390 M01S00007.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
01391 M00S01337.ppr +++| ORG LOAD
01392 M00S01338.ppr +++| OVL BSS 0
01393 M00S01339.ppr +++| ENDM
01394 M00S01340.ppr +++|
01395 M00S01341.ppr +++|
01396 M00S01342.ppr +++| .N SET 0
01397 M00S01343.ppr +++| OVLB MICRO 1,, 3R BASE OVERLAY NAME
01398 M00S01344.ppr +++| DIRECT SPACE 4,10
01399 M00S01345.ppr +++|**** DIRECT LOCATION ASSIGNMENTS.
01400 M00S01346.ppr +++|
01401 M00S01347.ppr +++| BEGIN BSSN 16
01402 M00S01348.ppr +++| T8 BSSN 1 TEMPORARY
01403 M00S01349.ppr +++| T9 BSSN 1 TEMPORARY
01404 M00S01350.ppr +++| CN BSSN 5 CM WORD BUFFER
01405 M00S01351.ppr +++| CO BSSN 1 CURRENT OFFSET INTO TRT/MRT IN CM
01406 M00S01352.ppr +++| DL BSSN 1 DIT LENGTH
01407 M00S01353.ppr +++| DO BSSN 1 OFFSET TO DIT FROM START OF TRT
01408 M00S01354.ppr +++| TA BSSN 2 TRT ADDRESS IN CENTRAL MEMORY
01409 M00S01355.ppr +++| TL BSSN 1 TRT LENGTH
01410 M00S01356.ppr +++| ID BSSN 1 MACHINE ID
01411 M00S01357.ppr +++| MI BSSN 1 MACHINE INDEX FOR DEVICE
01412 M00S01358.ppr +++| SX BSSN 1 CONSTANT 6
01413 M00S01359.ppr +++| DT BSSN 1 DEVICE TYPE FROM EST
01414 M00S01360.ppr +++| MS BSSN 1 MST ADDRESS
01415 M00S01361.ppr +++| SA BSSN 2 PP SAVE AREA ADDRESS
01416 M00S01362.ppr +++| OR BSSN 5 OUTPUT REGISTER IMAGE BUFFER
| Line S00001 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01417 M01S00001.ns2579 +++| RI BSSN 1 CALLER-S RETURN-ON-INACESSIBLE DEVICE FLAG
01418 M01S00002.ns2579 +++| ERRNG IR-* DIRECT CELLS OVERFLOW INTO *IR*
01419 M01S00003.ns2579 +++| BSSN 7 RESERVED FOR *PPR*
01420 M00S01363.ppr +++| EA BSSN 1 EXIT ADDRESS
| Line S01364 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01421 M01S01364.ns2579 ---| ERRNG IR-* DIRECT CELLS OVERFLOW INTO *IR*
01422 M01S01365.ns2579 ---| BSSN 10 RESERVED FOR *PPR*
01423 M00S01366.ppr +++| TM BSSN 5 START TIME
01424 M00S01367.ppr +++| EF BSSN 1 LABEL READ/WRITE ERROR FLAG
| Line S00004 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01425 M01S00004.ns2579 +++| EM BSSN 1 ERROR MESSAGE CM ADDRESS
01426 M00S01368.ppr +++| ERRNG ON-* DIRECT CELLS OVERFLOW INTO CONSTANTS
01427 M00S01369.ppr +++| END BSSN
01428 M00S01370.ppr +++|
01429 M00S01371.ppr +++|****
01430 M00S01372.ppr +++| TITLE COMMON SUBROUTINES.
01431 M00S01373.ppr +++|*** CID - CHECK ISHARED DEVICE.
01432 M00S01374.ppr +++|
01433 M00S01375.ppr +++|
01434 M00S01376.ppr +++| ORG PPFW
01435 M00S01377.ppr +++| LJM PRS PRESET
01436 M00S01378.ppr +++| RESA EQU *-1
01437 M00S01379.ppr +++| LJM PRX PRESET *EXECUTE* CALL
01438 M00S01380.ppr +++| ERR SPACE 4,10
01439 M00S01381.ppr +++|*** ERR - ERROR PROCESSOR FOR MS READ OR WRITE ERRORS.
01440 M00S01382.ppr +++|*
01441 M00S01383.ppr +++|* ENTRY (A) = *R* IF READ ERROR, *W* IF WRITE ERROR.
01442 M00S01384.ppr +++|*
01443 M00S01385.ppr +++|* EXIT TO LOV (3RW).
01444 M00S01386.ppr +++|* (EF) = ERROR FLAG.
01445 M00S01387.ppr +++|*
01446 M00S01388.ppr +++|* MACROS EXECUTE.
01447 M00S01389.ppr +++|
01448 M00S01390.ppr +++|
01449 M00S01391.ppr +++| ERR BSS 0 ENTRY
01450 M00S01392.ppr +++| STD EF SET ERROR FLAG
01451 M00S01393.ppr +++| EXECUTE 3RW
01452 M00S01394.ppr +++| SPACE 4,10
01453 M00S01395.ppr +++|* COMMON DECKS.
01454 M00S01396.ppr +++|
01455 M00S01397.ppr +++|
01456 M00S01398.ppr +++| RLS$ EQU 1 ASSEMBLE *RLS*
01457 M00S01399.ppr +++| ISD$ EQU 1 PROCESS ONLY ISHARED DEVICES
01458 M00S01400.ppr +++| QUAL$ EQU 1 DO NOT QUALIFY *COMPCLC*
01459 M00S01401.ppr +++| LIST X
01460 M00S01402.ppr +++|*CALL COMPCLC
01461 M00S01403.ppr +++| LIST *
01462 M00S01404.ppr +++| SPACE 4,10
| Line S01405 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01463 M01S01405.ns2579 ---| MBSA BSS 0
01464 M01S01406.ns2579 ---| URSW EQU MBSA+6*5 LOAD ADDRESS FOR *3RU*
| Line S00005 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01465 M01S00005.ns2579 +++| URSW EQU *+5 LOAD ADDRESS FOR *1RU* OVERLAYS
01466 M00S01407.ppr +++| CID TITLE MAIN PROGRAM.
01467 M00S01408.ppr +++|*** CID - CHECK ISHARED DEVICE.
01468 M00S01409.ppr +++|
01469 M00S01410.ppr +++|
01470 M00S01411.ppr +++|* READ MST AND WRITE IT TO CM.
01471 M00S01412.ppr +++|
01472 M00S01413.ppr +++| CID BSS 0 ENTRY
| Line S01414 Modification History |
M01 (Removed by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01473 M01S01414.ns2553 ---| CID1 ADK LSLT SET LABEL SECTOR
| Line S00025 Modification History |
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01474 M01S00025.ns2553 +++| ADK LSLT SET LABEL SECTOR
01475 M00S01415.ppr +++| STD T7
01476 M00S01416.ppr +++| LDC BFMS
01477 M00S01417.ppr +++| RJM RDS READ LABEL SECTOR INTO BFMS
01478 M00S01418.ppr +++| PJN CID2 IF NO ERROR
01479 M00S01419.ppr +++| ERROR ERDE *READ ERROR*
01480 M00S01420.ppr +++|
01481 M00S01421.ppr +++| CID2 RJM CLC CHECK THE LABEL CHECKSUM
01482 M00S01422.ppr +++| LMM CKSS
01483 M00S01423.ppr +++| ZJN CID3 IF CHECKSUM VALID
01484 M00S01424.ppr +++| ERROR ECKS *BAD CHECKSUM ERROR*
01485 M00S01425.ppr +++|
01486 M00S01426.ppr +++| CID3 LDM N4SS+PFGL*5 CHECK NAME AND DEVICE NUMBER
01487 M00S01427.ppr +++| LMD TM
01488 M00S01428.ppr +++| ADM N4SS+PFGL*5+1
01489 M00S01429.ppr +++| LMD TM+1
01490 M00S01430.ppr +++| ADM N4SS+PFGL*5+2
01491 M00S01431.ppr +++| LMD TM+2
01492 M00S01432.ppr +++| ADM N4SS+PFGL*5+3
01493 M00S01433.ppr +++| LMD TM+3
01494 M00S01434.ppr +++| CIDA ZJN CID4 IF NAME AND DEVICE NUMBER MATCH
01495 M00S01435.ppr +++|* UJN CID4 (INITIALIZE PENDING)
01496 M00S01436.ppr +++| ERROR EPNE *PACKNAME ERROR*
01497 M00S01437.ppr +++|
01498 M00S01438.ppr +++| CID4 LDD EA
01499 M00S01439.ppr +++| ZJN CID5 IF REPAIR CALL
01500 M00S01440.ppr +++| LDM N4SS+SDGL*5+4
01501 M00S01441.ppr +++| LPN 76
01502 M00S01442.ppr +++| ZJN CID6 IF SW RESERVE NOT SET
01503 M00S01443.ppr +++| SHN -1 GET MID OF MAINFRAME WITH RESERVE
01504 M00S01444.ppr +++| STD T1
01505 M00S01445.ppr +++| SHN 2
01506 M00S01446.ppr +++| RAD T1
01507 M00S01447.ppr +++| LDM DISS-5+4,T1
01508 M00S01448.ppr +++| STM RESA
01509 M00S01449.ppr +++| LMD ID
01510 M00S01450.ppr +++| CID5 ZJP CID13 IF IT-S THIS MAINFRAME-S ID
01511 M00S01451.ppr +++| ERROR ERES *RESERVE ERROR*
01512 M00S01452.ppr +++|
01513 M00S01453.ppr +++| CID6 STD CO CLEAR TRT OFFSET
01514 M00S01454.ppr +++| LDD HN SET NUMBER OF WORDS TO WRITE TO CM
01515 M00S01455.ppr +++| STD TM
01516 M00S01456.ppr +++| LDD TL
01517 M00S01457.ppr +++| STD TM+1
| Line S01458 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01518 M01S01458.ns2579 ---| LDC 200
01519 M01S01459.ns2579 ---| RAM N4SS+SDGL*5 SET TABLES INCOMPLETE STATUS
| Line S00006 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01520 M01S00006.ns2579 +++| LDM N4SS+SDGL*5 SET TABLES INCOMPLETE STATUS
01521 M01S00007.ns2579 +++| LPC -200
01522 M01S00008.ns2579 +++| LMC 200
01523 M01S00009.ns2579 +++| STM N4SS+SDGL*5
01524 M00S01460.ppr +++| LDD MS
01525 M00S01461.ppr +++| SHN 3
01526 M00S01462.ppr +++| CWM N4SS,TR WRITE GLOBAL MST
01527 M00S01463.ppr +++| ADK SDGL-TDGL-3
01528 M00S01464.ppr +++| CRD CN UPDATE PP COPY OF *SDGL*
01529 M00S01465.ppr +++| LDD TA GET TRT ADDRESS
01530 M00S01466.ppr +++| SHN 14
01531 M00S01467.ppr +++| LMD TA+1
01532 M00S01468.ppr +++| ADD DO ADD DIT OFFSET FOR THE DIT CM ADDRESS
01533 M00S01469.ppr +++| CWM DISS,DL
01534 M00S01470.ppr +++| LDM N4SS+STLL*5+2
01535 M00S01471.ppr +++| LMD ID
01536 M00S01472.ppr +++| ZJN CID10 IF MST/TRT CURRENT IN CM
01537 M00S01473.ppr +++|
01538 M00S01474.ppr +++|* READ TRT AND WRITE IT TO CM.
01539 M00S01475.ppr +++|
01540 M00S01476.ppr +++| ERRNZ TRLT-LSLT-1 TRT DOES NOT FOLLOW LABEL SECTOR
01541 M00S01477.ppr +++| CID7 AOD T7 INCREMENT SECTOR NUMBER
01542 M00S01478.ppr +++| LDC -100 DECREMENT TRT WORDS LEFT
01543 M00S01479.ppr +++| RAD TM+1
01544 M00S01480.ppr +++| PJN CID8 IF ONE OR MORE SECTORS OF TRT LEFT
01545 M00S01481.ppr +++| RAD TM
01546 M00S01482.ppr +++| SBN 1
01547 M00S01483.ppr +++| MJN CID10 IF END OF TRT
01548 M00S01484.ppr +++| LDN 0
01549 M00S01485.ppr +++| STD TM+1
01550 M00S01486.ppr +++| CID8 LDC BFMS READ NEXT SECTOR
01551 M00S01487.ppr +++| RJM RDS
01552 M00S01488.ppr +++| PJN CID9 IF NO ERROR
01553 M00S01489.ppr +++| ERROR ERDE *READ ERROR*
01554 M00S01490.ppr +++|
01555 M00S01491.ppr +++| CID9 LDD TA
01556 M00S01492.ppr +++| SHN 14
01557 M00S01493.ppr +++| ADD TA+1
01558 M00S01494.ppr +++| ADD CO
01559 M00S01495.ppr +++| CWM BFMS+2,TM WRITE SECTOR OF TRT DATA TO CM
01560 M00S01496.ppr +++| LDD TM
01561 M00S01497.ppr +++| RAD CO
01562 M00S01498.ppr +++| UJN CID7 READ NEXT SECTOR
01563 M00S01499.ppr +++|
01564 M00S01500.ppr +++|* WHEN AN ERROR IS DETECTED DURING THE READ, THE READ IS
01565 M00S01501.ppr +++|* ATTEMPTED WITH ENDMS ENABLED TO ALLOW DRIVER ERROR PROCESSING
01566 M00S01502.ppr +++|* TO OCCUR. AFTER IT IS SUCCESSFULLY READ WITH ENDMS ENABLED,
01567 M00S01503.ppr +++|* THE LABEL MUST BE RE-READ WITH ENDMS DISABLED TO ENSURE THAT
01568 M00S01504.ppr +++|* ALL OF THE SECTORS ARE READ WITH THE HARDWARE RESERVE SET.
01569 M00S01505.ppr +++|
01570 M00S01506.ppr +++| CID10 LDM UERR CHECK ENDMS DISABLED FLAG
01571 M00S01507.ppr +++| SHN 21-10
01572 M00S01508.ppr +++| ERRNZ EPDE-EPSM-400
01573 M00S01509.ppr +++| MJN CID11 IF ENDMS STILL DISABLED
01574 M00S01510.ppr +++| LJM PRS7 RESTART READ
01575 M00S01511.ppr +++|
01576 M00S01512.ppr +++|* COMPARE MST COUNTER AND COUNTER AT END OF TRT.
01577 M00S01513.ppr +++|
01578 M00S01514.ppr +++| CID11 LDD T7
01579 M00S01515.ppr +++| ZJN CID12 IF *TRT* NOT READ
01580 M00S01516.ppr +++| LDM BFMS+2+77*5+4
01581 M00S01517.ppr +++| LMD CN+4
01582 M00S01518.ppr +++| SCN 77
01583 M00S01519.ppr +++| ADM BFMS+2+77*5+3
01584 M00S01520.ppr +++| LMD CN+3
01585 M00S01521.ppr +++| ADM BFMS+2+77*5+2
01586 M00S01522.ppr +++| LMD CN+2
01587 M00S01523.ppr +++| ZJN CID12 IF COUNTERS MATCH
01588 M00S01524.ppr +++| ERROR ECDM *COUNTERS DONT MATCH*
01589 M00S01525.ppr +++|
01590 M00S01526.ppr +++| CID12 LDC -200 CLEAR TABLES INCOMPLETE STATUS
01591 M00S01527.ppr +++| RAD CN
01592 M00S01528.ppr +++| LDD MS
01593 M00S01529.ppr +++| SHN 3
01594 M00S01530.ppr +++| ADK SDGL
01595 M00S01531.ppr +++| CWD CN
01596 M00S01532.ppr +++| CID13 EXECUTE 3RU
01597 M00S01533.ppr +++| TITLE PRESET.
01598 M00S01534.ppr +++| PRS SPACE 4,25
01599 M00S01535.ppr +++|*** PRS - PRESET FOR 1RU OVERLAY.
01600 M00S01536.ppr +++|*
01601 M00S01537.ppr +++|* ENTRY (MB+1) = 12/, 24/ FWA+10B OF PP SAVE AREA, 24/,
01602 M00S01538.ppr +++|* IF NOT STAND ALONE CALL.
01603 M00S01539.ppr +++|* (CHRV) = BIT ZERO SET IF DISK CHANNEL RESERVED.
01604 M00S01540.ppr +++|* (IR+4) = EST ORDINAL IF STAND-ALONE CALL.
01605 M00S01541.ppr +++|*
01606 M00S01542.ppr +++|* EXIT (CN - CN+4) = (*SDGL*).
01607 M00S01543.ppr +++|* (DL) = DIT LENGTH.
01608 M00S01544.ppr +++|* (DO) = DIT OFFSET FROM BEGINNING OF MST.
01609 M00S01545.ppr +++|* (DT) = DEVICE TYPE.
01610 M00S01546.ppr +++|* (EA) = EXIT ADDRESS = (*FTN*).
01611 M00S01547.ppr +++|* 0, IF CALLED BY *1MV* VIA *EXECUTE*.
01612 M00S01548.ppr +++|* (EF) = 0.
| Line S00010 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01613 M01S00010.ns2579 +++|* (EM) = 0.
01614 M00S01549.ppr +++|* (ID) = MACHINE ID FOR THIS MAINFRAME.
01615 M00S01550.ppr +++|* (MS) = MST ADDRESS/10.
01616 M00S01551.ppr +++|* (OR - OR+4) = ORIGINAL OUTPUT REGISTER.
| Line S00011 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01617 M01S00011.ns2579 +++|* (RI) = RETURN-ON-INACCESSIBLE FLAG.
01618 M00S01552.ppr +++|* (SA - SA+1) = FWA + 10B OF PP SAVE AREA.
01619 M00S01553.ppr +++|* (SX) = LENGTH OF MESSAGE BUFFER IN CM WORDS. (6)
01620 M00S01554.ppr +++|* (TA - TA+1) = FWA OF TRT IN CENTRAL MEMORY.
01621 M00S01555.ppr +++|* (TL) = TRT LENGTH.
01622 M00S01556.ppr +++|* (TM - TM+4) = (*PFGL*).
01623 M00S01557.ppr +++|* (T5) = MS EST ORDINAL.
01624 M00S01558.ppr +++|* (T6) = LABEL TRACK NUMBER.
01625 M00S01559.ppr +++|
01626 M00S01560.ppr +++|
01627 M00S01561.ppr +++| PRS BSS 0
01628 M00S01562.ppr +++| LDM FTN SAVE EXIT ADDRESS
01629 M00S01563.ppr +++| STD EA
01630 M00S01564.ppr +++| LDC FTN RESTORE *PAUSE* MACRO IN *PLL*
01631 M00S01565.ppr +++| STM PLLD
01632 M00S01566.ppr +++| LDD IR+1
01633 M00S01567.ppr +++| SCN 77
01634 M00S01568.ppr +++| SHN 6
01635 M00S01569.ppr +++| LMD IR
01636 M00S01570.ppr +++| LMC 3RU1R
| Line S01571 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01637 M01S01571.ns2579 ---|*
| Line S00012 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01638 M01S00012.ns2579 +++|
01639 M00S01572.ppr +++|* ENTER HERE TO RESTART UNIT RESERVATION.
01640 M00S01573.ppr +++|*
01641 M00S01574.ppr +++|* (A) = 0, IF STANDALONE CALL.
01642 M00S01575.ppr +++|* (EA) = EXIT ADDRESS.
| Line S01576 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01643 M01S01576.ns2579 ---|*
| Line S00013 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01644 M01S00013.ns2579 +++|
01645 M00S01577.ppr +++| RUR NJN PRS1 IF NOT RUNNING STAND-ALONE
01646 M00S01578.ppr +++| STD SA INDICATE NO SAVE AREA
01647 M00S01579.ppr +++| STD SA+1
01648 M00S01580.ppr +++| LDK CTCS
01649 M00S01581.ppr +++| STD OR+3
01650 M00S01582.ppr +++| MONITOR SMDM PRESET SMDM/CTCS IN *OR*
01651 M00S01583.ppr +++| ORG *-2
01652 M00S01584.ppr +++| STD OR
| Line S00014 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01653 M01S00014.ns2579 +++| LDD TH FORCE RETURN-ON-INACCESSIBLE-DEVICE
01654 M01S00015.ns2579 +++| STD RI
01655 M00S01585.ppr +++| LDD IR+4
01656 M00S01586.ppr +++| STD OR+1
01657 M00S01587.ppr +++| UJN PRS2 GET EQUIPMENT INFORMATION
01658 M00S01588.ppr +++|
01659 M00S01589.ppr +++| PRS1 LDD MA GET SAVE AREA ADDRESS
01660 M00S01590.ppr +++| ADN 1
01661 M00S01591.ppr +++| CRD SA-1
01662 M00S01592.ppr +++| LDD SA GET ORIGINAL OUTPUT REGISTER
01663 M00S01593.ppr +++| SHN 14
01664 M00S01594.ppr +++| LMD SA+1
01665 M00S01595.ppr +++| SBN 7
01666 M00S01596.ppr +++| CRD OR
01667 M00S01597.ppr +++| ADC .RST+7 WRITE *RST* TO PP SAVE AREA
01668 M00S01598.ppr +++| CWM PRSA,TR
01669 M00S01599.ppr +++| LDD OR+1 INSURE RETURN-ON-INACCESSIBLE IS SET
| Line S00016 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01670 M01S00016.ns2579 +++| STD RI
01671 M00S01600.ppr +++| LPC -1000
01672 M00S01601.ppr +++| LMD TH
01673 M00S01602.ppr +++| STD OR+1
| Line S00026 Modification History |
M01 (Added by) | ns2553 |
M02 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01674 M02S00026.ns2579 ---| UJN PRS2 GET EQUIPMENT INFORMATION
01675 M00S01603.ppr +++|
| Line S01604 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01676 M01S01604.ns2579 ---|* ENTER HERE TO RETRY DEVICE IDENTIFICATION.
| Line S00017 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01677 M01S00017.ns2579 +++|* BEGIN UNIT RESERVE SPECIAL PROCESSING.
01678 M01S00018.ns2579 +++|
01679 M01S00019.ns2579 +++| PRS2 LPC 777
01680 M01S00020.ns2579 +++| STD T5
01681 M01S00021.ns2579 +++| LDM CHRV
01682 M01S00022.ns2579 +++| LPN 1
01683 M01S00023.ns2579 +++| ZJN PRS6 IF CHANNEL RESERVE NOT HELD
01684 M01S00024.ns2579 +++| LDC * ISSUE CONDITIONAL HANG MONITOR FUNCTION
01685 M01S00025.ns2579 +++| STD CM+1
01686 M01S00026.ns2579 +++| LDN 0
01687 M01S00027.ns2579 +++| STD CM+2
01688 M01S00028.ns2579 +++| MONITOR CHGM
01689 M01S00029.ns2579 +++| PRS6 LDD EA
01690 M01S00030.ns2579 +++| NJN PRS7 IF NOT REPAIR CALL
01691 M01S00031.ns2579 +++| SETMS IO,(AD,DE,DF)
01692 M01S00032.ns2579 +++| UJN RDI PRESET DIRECT CELLS
01693 M01S00033.ns2579 +++|
01694 M01S00034.ns2579 +++| PRS7 SETMS IO,(NS,DE,DF)
01695 M01S00035.ns2579 +++|* UJN RDI PRESET DIRECT CELLS
01696 M01S00036.ns2579 +++| RDI SPACE 4,10
01697 M01S00037.ns2579 +++|** RDI - RETRY DEVICE IDENTIFICATION.
01698 M00S01605.ppr +++|*
| Line S01606 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01699 M01S01606.ns2579 ---|* (EA) = EXIT ADDRESS.
01700 M01S01607.ns2579 ---|* (OR - OR+4) = FUNCTION TO BE ISSUED WHEN DEVICE IS RESERVED.
01701 M01S01608.ns2579 ---|* (SA - SA+1) = SAVE AREA ADDRESS.
01702 M01S01609.ns2579 ---|* 0 = STANDALONE CALL.
| Line S00038 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01703 M01S00038.ns2579 +++|* ENTRY (EA) = EXIT ADDRESS.
01704 M01S00039.ns2579 +++|* (T5) = EST ORDINAL.
01705 M01S00040.ns2579 +++|* (OR - OR+4) = FUNCTION TO BE ISSUED.
01706 M01S00041.ns2579 +++|* (SA - SA+1) = SAVE AREA ADDRESS.
01707 M01S00042.ns2579 +++|* 0, IF STANDALONE CALL.
01708 M00S01610.ppr +++|
| Line S01611 Modification History |
M01 (Removed by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01709 M01S01611.ns2553 ---| RDI LDD OR+1 GET EST ORDINAL
01710 M01S01612.ns2553 ---| LPC 777
01711 M01S01613.ns2553 ---| PRS2 STD T5
| Line S00027 Modification History |
M01 (Added by) | ns2553 |
M02 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01712 M02S00027.ns2579 ---| RDI LDC UJNI+PRS8-PRSB IGNORE CHANNEL RESERVE AND *SETMS*
01713 M02S00028.ns2579 ---| ERRPL PRS8-PRSB-40B JUMP OUT OF RANGE
01714 M02S00029.ns2579 ---| ERRNG PRS8-PRSB+37B JUMP OUT OF RANGE
01715 M02S00030.ns2579 ---| STM PRSB
01716 M02S00031.ns2579 ---| LDD OR+1 GET EST ORDINAL
01717 M02S00032.ns2579 ---| PRS2 LPC 777
01718 M02S00033.ns2579 ---| STD T5
| Line S01614 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01719 M01S01614.ns2579 ---| SFA EST READ EST ENTRY
| Line S00043 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01720 M01S00043.ns2579 +++|
01721 M01S00044.ns2579 +++| RDI SFA EST,T5 READ EST ENTRY
01722 M00S01615.ppr +++| ADK EQDE
01723 M00S01616.ppr +++| CRD DT-3
01724 M00S01617.ppr +++| LDD MS GET MST ADDRESS
01725 M00S01618.ppr +++| SHN 3
01726 M00S01619.ppr +++| ADK TDGL SET TRT LENGTH
01727 M00S01620.ppr +++| CRD TL-2
01728 M00S01621.ppr +++| ADN SDGL-TDGL
01729 M00S01622.ppr +++| CRD CN
01730 M00S01623.ppr +++| ADN ALGL-SDGL
01731 M00S01624.ppr +++| CRD T6
01732 M00S01625.ppr +++| ADN PFGL-ALGL
01733 M00S01626.ppr +++| CRD TM
01734 M00S01627.ppr +++| ADN DULL-PFGL
01735 M00S01628.ppr +++| CRD CM+3
01736 M00S01629.ppr +++| ADN STLL-DULL
01737 M00S01630.ppr +++| CRD CM
01738 M00S01631.ppr +++| ADN TRLL-STLL
01739 M00S01632.ppr +++| CRD TA-3
01740 M00S01633.ppr +++| LDD T6+1 SET LABEL TRACK
01741 M00S01634.ppr +++| STD T6
01742 M00S01635.ppr +++| LDD CM
01743 M00S01636.ppr +++| LPC MLIAL+MLIHD+MLIFD
| Line S01637 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01744 M01S01637.ns2579 ---| ZJN PRS3 IF NO INITIALIZE PENDING
| Line S00045 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01745 M01S00045.ns2579 +++| ZJN RDI1 IF NO INITIALIZE PENDING
01746 M00S01638.ppr +++| ISTORE CIDA,(UJN CID4) IGNORE PACKNAME CHECK
| Line S01639 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01747 M01S01639.ns2579 ---| PRS3 LDD CM+2 SET MACHINE ID
| Line S00046 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01748 M01S00046.ns2579 +++| RDI1 LDD CM+2 SET MACHINE ID
01749 M00S01640.ppr +++| STD ID
01750 M00S01641.ppr +++| LDD CM+3+2 SET MACHINE INDEX
01751 M00S01642.ppr +++| LPN 17
01752 M00S01643.ppr +++| ADN 1
01753 M00S01644.ppr +++| STD MI
01754 M00S01645.ppr +++| LDD TL
01755 M00S01646.ppr +++| ADN 7 CALCULATE DIT OFFSET
01756 M00S01647.ppr +++| SHN -3
01757 M00S01648.ppr +++| ADD TL
01758 M00S01649.ppr +++| STD DO
01759 M00S01650.ppr +++| LDN MISD SET CONSTANTS
01760 M00S01651.ppr +++| STD DL
01761 M00S01652.ppr +++| LDN 6
01762 M00S01653.ppr +++| STD SX
| Line S00034 Modification History |
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01763 M01S00034.ns2553 +++| LDN 0 CLEAR ERROR FLAG
01764 M01S00035.ns2553 +++| STD EF
| Line S01654 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01765 M01S01654.ns2579 ---|
01766 M01S01655.ns2579 ---|* BEGIN UNIT RESERVE SPECIAL PROCESSING.
01767 M01S01656.ns2579 ---|
| Line S01657 Modification History |
M01 (Removed by) | ns2553 |
M02 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01768 M02S01657.ns2579 ---| LDM CHRV
| Line S00036 Modification History |
M01 (Added by) | ns2553 |
M02 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01769 M02S00036.ns2579 ---| PRSB LDM CHRV
01770 M02S00037.ns2579 ---|* UJN PRS8 (RETRYING REQUEST)
| Line S01658 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01771 M01S01658.ns2579 ---| LPN 1
| Line S01659 Modification History |
M01 (Removed by) | ns2553 |
M02 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01772 M02S01659.ns2579 ---|* LDN 0 (PACKNAME ERROR HAS OCCURRED)
01773 M02S01660.ns2579 ---| PRSB EQU *-1
| Line S01661 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01774 M01S01661.ns2579 ---| ZJN PRS6 IF CHANNEL RESERVE NOT HELD
01775 M01S01662.ns2579 ---| LDC * ISSUE CONDITIONAL HANG MONITOR FUNCTION
01776 M01S01663.ns2579 ---| STD CM+1
01777 M01S01664.ns2579 ---| LDN 0
01778 M01S01665.ns2579 ---| STD CM+2
01779 M01S01666.ns2579 ---| MONITOR CHGM
| Line S01667 Modification History |
M01 (Removed by) | ns2553 |
M02 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01780 M02S01667.ns2579 ---| PRS6 STD EF CLEAR ERROR FLAG
01781 M02S01668.ns2579 ---| LDD EA
| Line S00038 Modification History |
M01 (Added by) | ns2553 |
M02 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01782 M02S00038.ns2579 ---| PRS6 LDD EA
| Line S01669 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01783 M01S01669.ns2579 ---| NJN PRS7 IF NOT REPAIR CALL
01784 M01S01670.ns2579 ---| SETMS IO,(AD,DE,DF)
01785 M01S01671.ns2579 ---| UJN PRS8 READ TABLES AND PROCESS FUNCTION
01786 M01S01672.ns2579 ---|
01787 M01S01673.ns2579 ---| PRS7 SETMS IO,(NS,DE,DF)
01788 M01S01674.ns2579 ---| PRS8 LJM CID READ TABLES AND PROCESS FUNCTION
| Line S00047 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01789 M01S00047.ns2579 +++| STD EM
01790 M01S00048.ns2579 +++| LJM CID READ TABLES AND PROCESS FUNCTION
01791 M00S01675.ppr +++| RST SPACE 4,10
01792 M00S01676.ppr +++|** RST - RESTORE CALLER.
01793 M00S01677.ppr +++|*
01794 M00S01678.ppr +++|* *RST* IS READ INTO HIGH MEMORY AS *BFMS* IS RESTORED. IT
01795 M00S01679.ppr +++|* RESTORES MEMORY STARTING AT *MSFW*, CLEARS THE PP SAVE AREA
01796 M00S01680.ppr +++|* INTERLOCK WORD, AND RETURNS CONTROL TO *FTN*.
01797 M00S01681.ppr +++|
01798 M00S01682.ppr +++|
01799 M00S01683.ppr +++| PRSA BSS 0
01800 M00S01684.ppr +++| LOC 10001-3*5
01801 M00S01685.ppr +++|
01802 M00S01686.ppr +++| RST CRM /1BP/FBB2,CM+4
01803 M00S01687.ppr +++| SBK PPSA CLEAR SAVE AREA INTERLOCK
01804 M00S01688.ppr +++| CWM RSTA,ON
| Line S01689 Modification History |
M01 (Removed by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01805 M01S01689.ns2579 ---| LJM FTN11 RETURN TO *FTN*
| Line S00049 Modification History |
M01 (Added by) | ns2579 |
Seq # *Modification Id* Act
----------------------------+
01806 M01S00049.ns2579 +++| LJM FTN10+3 RETURN TO *FTN*
01807 M00S01690.ppr +++|
01808 M00S01691.ppr +++|
01809 M00S01692.ppr +++| RSTA BSSZ 5 ZERO WORD
01810 M00S01693.ppr +++| BSS 10000-* SPARES
01811 M00S01694.ppr +++| LOC *-10000
01812 M00S01695.ppr +++| T0 CON RST-1
01813 M00S01696.ppr +++| LOC *O
01814 M00S01697.ppr +++|
01815 M00S01698.ppr +++| .A SET RST-/1BP/FBB1
01816 M00S01699.ppr +++| .RST EQU .A/5 WORD ADDRESS OF *RST* IN PP SAVE AREA
01817 M00S01700.ppr +++| ERRNZ .A-.RST*5 *RST* MUST BEGIN ON A WORD BOUNDARY
01818 M00S01701.ppr +++| PRX SPACE 4,10
01819 M00S01702.ppr +++|*** PRX - PRESET 1RU FOLLOWING A CALL VIA *EXECUTE*.
01820 M00S01703.ppr +++|*
| Line S01704 Modification History |
M01 (Removed by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01821 M01S01704.ns2553 ---|* ENTRY (IR+4) = FUNCTION CODE.
| Line S00039 Modification History |
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01822 M01S00039.ns2553 +++|* ENTRY (IR+3) = FUNCTION CODE.
01823 M00S01705.ppr +++|* 0 = REPAIR DEVICE.
01824 M00S01706.ppr +++|* 1 = RETRY PENDING REQUEST.
01825 M00S01707.ppr +++|
01826 M00S01708.ppr +++|
| Line S01709 Modification History |
M01 (Removed by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01827 M01S01709.ns2553 ---| PRX LDD IR+4 GET FUNCTION CODE
| Line S00040 Modification History |
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act
----------------------------+
01828 M01S00040.ns2553 +++| PRX LDD IR+3 GET FUNCTION CODE
01829 M00S01710.ppr +++| NJN PRX1 IF RETRY REQUEST
01830 M00S01711.ppr +++|
01831 M00S01712.ppr +++|* REPAIR DEVICE.
01832 M00S01713.ppr +++|
01833 M00S01714.ppr +++| LDD IR+2 SET EQUIPMENT
01834 M00S01715.ppr +++| STD IR+4
01835 M00S01716.ppr +++| LDN 0 SET REPAIR CALL FLAG
01836 M00S01717.ppr +++| STD EA
01837 M00S01718.ppr +++| UJN PRX2 CONTINUE PRESETTING
01838 M00S01719.ppr +++|
01839 M00S01720.ppr +++|* RETRY PENDING REQUEST.
01840 M00S01721.ppr +++|
01841 M00S01722.ppr +++| PRX1 LDD SA GET SAVE AREA ADDRESS
01842 M00S01723.ppr +++| ADD SA+1
01843 M00S01724.ppr +++| PRX2 LJM RUR PRESET REQUEST
01844 M00S01725.ppr +++|
01845 M00S01726.ppr +++| OVERFLOW PPFW,MSFW+/1BP/PPSA2*5,CMR
01846 M00S01727.ppr +++| OVERLAY (RESERVE ISHARED DEVICE.),URSW
01847 M00S01728.ppr +++| SPACE 4,10
01848 M00S01729.ppr +++|*** 3RU - RESERVE ISHARED DEVICE.
01849 M00S01730.ppr +++|* G. A. SCHUMACHER. 79/08/03.
01850 M00S01731.ppr +++|* J. J. EIKUM. 81/05/18.
01851 M00S01732.ppr +++| SPACE 4,10