cdc:nos2.source:opl.opl871:deck:ppr
Deck PPR
17 Modifications
Listing Sections
- Deck PPR Start
- Deck PPR Part 1 (Line 1786)
- Deck PPR Part 2 (Line 3169)
- Deck PPR Part 3 (Line 4213)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.ppr +++| IDENT PPR,0 00002 M01S00002.ppr +++| PERIPH J 00003 M01S00003.ppr +++| BASE MIXED 00004 M01S00004.ppr +++| SST SSCP 00005 M01S00005.ppr +++|*COMMENT PPR - PP RESIDENT.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1973. 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.ppr +++| TITLE PPR - PP RESIDENT. 00009 M01S00008.ppr +++| SPACE 4,10 00010 M01S00009.ppr +++|*** PPR - PP RESIDENT. 00011 M01S00010.ppr +++|* G. R. MANSFIELD. 70/12/12. 00012 M01S00011.ppr +++|* R. E. TATE. 73/01/05. 00013 M01S00012.ppr +++|* P. D. HAAS. 75/04/19. 00014 M01S00013.ppr +++|* W. E. GOEBEL. 78/04/29. 00015 M01S00014.ppr +++| SPACE 4,10 00016 M01S00015.ppr +++|*** PPR PROVIDES THE COMMUNICATION LINKS BETWEEN THE 00017 M01S00016.ppr +++|* PP S. IT SERVES AS A PP IDLE PROGRAM, THE LOADER OF PP 00018 M01S00017.ppr +++|* PROGRAMS AND ROUTINES, AND A CONVIENT SOURCE OF COMMONLY 00019 M01S00018.ppr +++|* USED SUBROUTINES FOR OTHER PROGRAMS AND ROUTINES. 00020 M01S00019.ppr +++|* PP RESIDENT IS LOADED AT DEAD START TIME BY STL AND IS 00021 M01S00020.ppr +++|* NEVER CHANGED. 00022 M01S00021.ppr +++| SPACE 4,20 00023 M01S00022.ppr +++|*** PPR USES AN OVERLAY MECHANISM FOR PROCESSING THE FOLLOWING 00024 M01S00023.ppr +++|* MONITOR REQUESTS - AFAM, RTCM, STBM, DTKM, DLKM, AND DFMM. 00025 M01S00024.ppr +++|* THESE OVERLAYS EXECUTE IN A SAVED AND RESTORED AREA AND ARE 00026 M01S00025.ppr +++|* 1DD DUMP DAYFILE 00027 M01S00026.ppr +++|* 1RU SHARED RMS DEVICE RESERVE 00028 M01S00027.ppr +++|* 1FA SHARED RMS FAST ATTACH FILE PROCESSOR 00029 M01S00028.ppr +++|* THE DAYFILE DUMP AREA OF CMR IS USED AS A BUFFER FOR SAVING 00030 M01S00029.ppr +++|* AND RELOADING MEMORY AND DIRECT CELLS. 00031 M01S00030.ppr +++|* IT IS ORGANIZED AS FOLLOWS 00032 M01S00031.ppr +++|* 00033 M01S00032.ppr +++|*DDB * 1DD BOOTSTRAP (3 WORDS) 00034 M01S00033.ppr +++|* * 1DD SAVE BUFFER (DFDS WORDS) 00035 M01S00034.ppr +++| SPACE 4 00036 M01S00035.ppr +++|*** DAYFILE MESSAGES. 00037 M01S00036.ppr +++|* 00038 M01S00037.ppr +++|* NONE. 00039 M01S00038.ppr +++| SPACE 4 00040 M01S00039.ppr +++|** ROUTINES USED. 00041 M01S00040.ppr +++|* 00042 M01S00041.ppr +++|* 00043 M01S00042.ppr +++|* 1DD - PROCESS DAYFILE DUMP. 00044 M01S00043.ppr +++|* 1RU - INDEPENDENT SHARED DEVICE RESERVE PROCESSOR. 00045 M01S00044.ppr +++|* 1FA - INDEPENDENT SHARED DEVICE FAST ATTACH PROCESSOR. 00046 M01S00045.ppr +++|* 7SE - PROCESS SYSTEM DEVICE ERROR. 00047 M01S00046.ppr +++|* 7II - INITIATE CONTROLWARE RELOAD. 00048 M01S00047.ppr +++|* 7KI - EXECUTE LEVEL ONE DIAGNOSTICS. 00049 M01S00048.ppr +++|* 7SI - STATUS PROCESSOR. 00050 M01S00049.ppr +++| SPACE 4 00051 M01S00050.ppr +++|*CALL COMPMAC 00052 M01S00001.273l780 +++|*CALL COMPIOU 00053 M01S00051.ppr +++|*CALL COMSCPS 00054 M01S00052.ppr +++|*CALL COMSDFS 00055 M01S00053.ppr +++|*CALL COMSIOQ 00056 M01S00054.ppr +++|*CALL COMSJCE 00057 M01S00055.ppr +++|*CALL COMSLSD 00058 M01S00056.ppr +++|*CALL COMSMSC 00059 M01S00057.ppr +++| LIST X 00060 M01S00058.ppr +++|*CALL COMSMSP 00061 M01S00059.ppr +++| LIST * 00062 M01S00060.ppr +++|*CALL COMSPIM 00063 M01S00061.ppr +++|*CALL COMSSSD 00064 M01S00062.ppr +++|*CALL COMSWEI 00065 M01S00063.ppr +++|*CALL COMSZOL 00066 M01S00064.ppr +++|*CALL COMSMST 00067 M01S00065.ppr +++| LIST X,F 00068 M01S00066.ppr +++| ORG 0 00069 M01S00067.ppr +++|*CALL COMPPPR 00070 M01S00068.ppr +++| LIST * 00071 M01S00069.ppr +++| 00072 M01S00070.ppr +++| ERRPL *-PPFW PRESET CODE FOR NONCURRENT PPS IS TOO LONG 00073 M01S00071.ppr +++| TTL PPR/1LP - LOAD CM RESIDENT *PPR* CODE. 00074 M01S00072.ppr +++| TITLE 00075 M01S00073.ppr +++| QUAL 1LP 00076 M01S00074.ppr +++| IDENT 1LP,LPCX 00077 M01S00075.ppr +++|*COMMENT PPR - LOAD CM RESIDENT *PPR* CODE.
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00078 M02S00076.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION,1985. 00079 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00080 M01S00077.ppr +++| SPACE 4,10 00081 M01S00078.ppr +++|***** 1LP - LOAD CM RESIDENT *PPR* CODE. 00082 M01S00079.ppr +++|* 00083 M01S00080.ppr +++|* J. M. MAREK. 85/12/10. 00084 M01S00081.ppr +++| SPACE 4,10 00085 M01S00082.ppr +++|*** *1LP* IS CALLED BY *STL* TO INITIALIZE THE MS ERROR PROCESSOR 00086 M01S00083.ppr +++|* LOAD CODE AND THE PP IDLE LOOP IN CM. 00087 M01S00084.ppr +++| SPACE 4,10 00088 M01S00085.ppr +++|** COMMON DECKS. 00089 M01S00086.ppr +++| 00090 M01S00087.ppr +++| 00091 M01S00088.ppr +++|*CALL COMSDSL 00092 M01S00089.ppr +++| LPC SPACE 4,10 00093 M01S00090.ppr +++|** 1LP - MAIN PROGRAM. 00094 M01S00091.ppr +++| 00095 M01S00092.ppr +++| 00096 M01S00093.ppr +++| ORG TPBA+5 00097 M01S00094.ppr +++| LPC SUBR ENTRY/EXIT
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00098 M02S00095.273l780 ---| LDK MSEL STORE LOAD CODE FOR MS ERROR PROCESSORS 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 M01S00096.ppr +++| CWM PRSA,TR 00107 M01S00097.ppr +++| ADK RPLP-MSEL-3 FETCH RPL ADDRESS 00108 M01S00098.ppr +++| CRD CM 00109 M01S00099.ppr +++| LDM DLYA 00110 M01S00100.ppr +++| STM PPIB SET INPUT REGISTER READ DELAY 00111 M01S00101.ppr +++| LDN PPIL SET IDLE LOOP LENGTH 00112 M01S00102.ppr +++| STD CM+3 00113 M01S00103.ppr +++| LDD CM STORE PP IDLE LOOP CODE 00114 M01S00104.ppr +++| SHN 14 00115 M01S00105.ppr +++| LMD CM+1 00116 M01S00106.ppr +++| SBN PPIL 00117 M01S00107.ppr +++| CWM PRSB,CM+3 00118 M01S00108.ppr +++| SBN PPIL SET CM ADDRESS 00119 M01S00109.ppr +++| STD CM+2 00120 M01S00110.ppr +++| SHN -14 00121 M01S00111.ppr +++| LMD HN APPEND RPL FLAG 00122 M01S00112.ppr +++| STD CM+1 00123 M01S00113.ppr +++| LDN 0 CLEAR UNUSED BYTE 00124 M01S00114.ppr +++| STD CM 00125 M01S00115.ppr +++| LDC PPIA SET PP LOAD ADDRESS 00126 M01S00116.ppr +++| STD CM+4 00127 M01S00117.ppr +++| LDN PPRL STORE IDLE LOOP LOAD PARAMETERS 00128 M01S00118.ppr +++| CWD CM 00129 M01S00119.ppr +++| UJP LPCX RETURN 00130 M01S00120.ppr +++| 00131 M01S00121.ppr +++| 00132 M01S00122.ppr +++|* MASS STORAGE ERROR PROCESSOR LOAD CODE. 00133 M01S00123.ppr +++| 00134 M01S00124.ppr +++| PRSA BSS 0 00135 M01S00125.ppr +++| LOC LMSE 00136 M01S00126.ppr +++| 00137 M01S00127.ppr +++| LDD OA WAIT FOR OUTPUT REGISTER CLEAR 00138 M01S00128.ppr +++| CRD CM 00139 M01S00129.ppr +++| LDD CM 00140 M01S00130.ppr +++| NJN LMSE IF *DRCM* NOT PROCESSED 00141 M01S00131.ppr +++| LDD T1 SET PROCESSOR NAME 00142 M01S00132.ppr +++| STD CM+3 00143 M01S00133.ppr +++| LDN 1R7 00144 M01S00134.ppr +++| STD CM+2 00145 M01S00135.ppr +++| MONITOR SPLM SEARCH PERIPHERAL LIBRARY 00146 M01S00136.ppr +++| LDD CM+4 LOAD ADDRESS 00147 M01S00137.ppr +++| LJM PLL4 LOAD ERROR PROCESSOR VIA *PLL* 00148 M01S00138.ppr +++| BSS 10000-* SPARE 00149 M01S00139.ppr +++| CON LMSE-1 00150 M01S00140.ppr +++| LOC *O 00151 M01S00141.ppr +++| 00152 M01S00142.ppr +++|* PP IDLE LOOP CODE. 00153 M01S00143.ppr +++| 00154 M01S00144.ppr +++| PPIA EQU 10001-5*PPIL 00155 M01S00145.ppr +++| PRSB BSS 0 00156 M01S00146.ppr +++| LOC PPIA 00157 M01S00147.ppr +++| 00158 M01S00148.ppr +++| PPI1 LDC SBNI+4 DELAY FOR 4X PP 00159 M01S00149.ppr +++| PPIB EQU *O-1 00160 M01S00150.ppr +++|* SBN 4 (4X PP) 00161 M01S00151.ppr +++|* SBN 10 (2X PP) 00162 M01S00152.ppr +++|* SBN 20 (1X PP) 00163 M01S00153.ppr +++| NJN *-1 IF DELAY NOT COMPLETE 00164 M01S00154.ppr +++| 00165 M01S00155.ppr +++| PPI LDD IA CHECK INPUT REGISTER 00166 M01S00156.ppr +++| CRD IR 00167 M01S00157.ppr +++| LDD IR 00168 M01S00158.ppr +++| ZJN PPI1 IF NO REQUEST 00169 M01S00159.ppr +++| LDD MA 00170 M01S00160.ppr +++| CRM MP,TR 00171 M01S00161.ppr +++| LDC PPR1 SET RETURN FROM *PLL* 00172 M01S00162.ppr +++| STM PLL
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00173 M02S00163.273l780 ---| LDD IR+1 SET CP ADDRESS
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00174 M02S00164.273l780 ---| SCN 40
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00175 M02S00165.273l780 ---| SHN 6 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 M01S00166.ppr +++| STD CP
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00181 M02S00167.273l780 ---| RAD CP
| Line S00168 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00182 M02S00168.273l780 ---| LMD CP FORM PACKAGE NAME 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 M01S00169.ppr +++| LMD IR 00193 M01S00170.ppr +++| SHN 6 00194 M01S00171.ppr +++| LJM PLL+1 LOAD PROGRAM
| Line S00172 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00195 M02S00172.273l780 ---| BSS 10000-* 00196 M01S00022.273l780 +++| BSS 10000-* SPARE SPACE 00197 M01S00173.ppr +++| CON PPI-1 TRANSFER ADDRESS - 1 00198 M01S00174.ppr +++| LOC *O 00199 M01S00175.ppr +++| 00200 M01S00176.ppr +++| 00201 M01S00177.ppr +++| OVERFLOW LPCX,TPBA+TPLN 00202 M01S00178.ppr +++| 1BP TTL PPR/1BP - BOOTSTRAP PROGRAM. 00203 M01S00179.ppr +++| TITLE 00204 M01S00180.ppr +++| QUAL 1BP 00205 M01S00181.ppr +++| IDENT 1BP,BSP 00206 M01S00182.ppr +++|*COMMENT PPR - BOOTSTRAP PROGRAM.
| Line S00183 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00207 M02S00183.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1986. 00208 M01S00003.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00209 M01S00184.ppr +++| 1BP SPACE 4,10 00210 M01S00185.ppr +++|*** 1BP - BOOTSTRAP PROGRAM. 00211 M01S00186.ppr +++|* 00212 M01S00187.ppr +++|* J. J. EIKUM. 00213 M01S00188.ppr +++| 1BP SPACE 4,10 00214 M01S00189.ppr +++|*** *1BP* IS THE BOOTSTRAP PROGRAM USED TO LOAD ROUTINES 00215 M01S00190.ppr +++|* THAT OVERLAY AN EXISTING PROGRAM IN THE PP. *CPUMTR* STORES 00216 M01S00191.ppr +++|* A COPY OF *1BP* IN THE SAVE AREA AND RETURNS A *BOTM* 00217 M01S00192.ppr +++|* FUNCTION IN THE OUTPUT REGISTER. SUBROUTINE FTN IN PPR READS 00218 M01S00193.ppr +++|* *1BP* INTO THE PP. *1BP* SAVES PP MEMORY AND LOADS THE 00219 M01S00194.ppr +++|* OVERLAYING ROUTINE. 00220 M01S00195.ppr +++| 1BP SPACE 4,10 00221 M01S00196.ppr +++|*** ENTRY CONDITIONS. 00222 M01S00197.ppr +++|* 00223 M01S00198.ppr +++|* (A) = ADDRESS OF SAVE AREA + 3. 00224 M01S00199.ppr +++|* (CM+3) = LENGTH OF FIRST PART OF SAVE AREA. *PPSA1* 00225 M01S00200.ppr +++|* (CM+4) = LENGTH OF SECOND PART OF SAVE AREA. *PPSA2*. 00226 M01S00201.ppr +++|* (MB) = *SPLM* PARAMETERS. 00227 M01S00202.ppr +++| 1BP SPACE 4,10 00228 M01S00203.ppr +++|*** EXIT CONDITIONS. 00229 M01S00204.ppr +++|* 00230 M01S00205.ppr +++|* PP MEMORY SAVED IN SAVE AREA. 00231 M01S00206.ppr +++|* (CM+1 - CM+4) = *SPLM* PARAMETERS FOR OVERLAYING ROUTINE. 00232 M01S00207.ppr +++|* TO *PLL2*. 00233 M01S00208.ppr +++| 1BP SPACE 4,10 00234 M01S00209.ppr +++|*** NOTE - THIS PROGRAM MUST BE CM RESIDENT. 00235 M01S00210.ppr +++| 1BP SPACE 4,10 00236 M01S00211.ppr +++|** 1BP - MAIN PROGRAM. 00237 M01S00212.ppr +++| 00238 M01S00213.ppr +++| 00239 M01S00214.ppr +++| FBB1 EQU BFMS FIRST BYTE OF THE FIRST BLOCK SAVED 00240 M01S00215.ppr +++| FBB2 EQU MSFW FIRST BYTE OF THE SECOND BLOCK SAVED 00241 M01S00216.ppr +++| 00242 M01S00217.ppr +++| 00243 M01S00218.ppr +++| ORG 10001-3*5 00244 M01S00219.ppr +++| BSP BSS 0 00245 M01S00220.ppr +++| 00246 M01S00221.ppr +++|* SAVE PP MEMORY. 00247 M01S00222.ppr +++| 00248 M01S00223.ppr +++| SBN 3 SET CM ADDRESS OF SAVE AREA 00249 M01S00224.ppr +++| CWM FBB1,CM+3 SAVE MS BUFFER, DIRECT CELLS, DRIVER CELLS 00250 M01S00225.ppr +++| CWM FBB2,CM+4 SAVE MS DRIVER AND CURRENT PROGRAM 00251 M01S00226.ppr +++| 00252 M01S00227.ppr +++|* MODIFY THE *PAUSE* IN *PLL* TO DO A *RJM* TO PPFW-1 WHICH 00253 M01S00228.ppr +++|* WILL CAUSE EXECUTION OF THE MAIN OVERLAY TO BEGIN AT PPFW. 00254 M01S00229.ppr +++| 00255 M01S00230.ppr +++| LDC PPFW-1 00256 M01S00231.ppr +++| STM PLLD 00257 M01S00232.ppr +++| 00258 M01S00233.ppr +++|* LOAD THE OVERLAYING PROGRAM. 00259 M01S00234.ppr +++| 00260 M01S00235.ppr +++| LDD MA GET PLL PARAMETERS 00261 M01S00236.ppr +++| CRD CM 00262 M01S00237.ppr +++| LJM PLL2 ENTER PLL TO LOAD PROGRAM 00263 M01S00238.ppr +++| BSSZ 10000B-* (SPARE SPACE) 00264 M01S00239.ppr +++| CON BSP-1 (T0)+1 BECOMES (P) 00265 M01S00240.ppr +++| 00266 M01S00241.ppr +++|* THE FOLLOWING BYTES ARE PARAMETERS USED BY *CPUMTR*. THEY 00267 M01S00242.ppr +++|* ARE NOT READ INTO THE PP. 00268 M01S00243.ppr +++| 00269 M01S00244.ppr +++| .1 SET 10000B+CHRV+1-FBB1+4 00270 M01S00245.ppr +++| PPSA1 EQU .1/5 00271 M01S00246.ppr +++| .2 SET PPSA*5-10B*5-PPSA1*5 00272 M01S00247.ppr +++| PPSA2 EQU .2/5 00273 M01S00248.ppr +++| 00274 M01S00249.ppr +++| CON 2000B PRESET INDEX + 2000B 00275 M01S00250.ppr +++| CON PPSA1 LENGTH OF FIRST PART OF SAVE AREA 00276 M01S00251.ppr +++| CON PPSA2 LENGTH OF SECOND PART OF SAVE AREA 00277 M01S00252.ppr +++| CON FBB1 FWA OF THE FIRST BLOCK WRITTEN 00278 M01S00253.ppr +++| CON FBB2 FWA OF THE SECOND BLOCK WRITTEN 00279 M01S00254.ppr +++| TTL PPR/0TD - TERMINATE DAYFILES. 00280 M01S00255.ppr +++| TITLE 00281 M01S00256.ppr +++| QUAL 0TD 00282 M01S00257.ppr +++| IDENT 0TD,ZTDX 00283 M01S00258.ppr +++|*COMMENT PPR - TERMINATE DAYFILES.
| Line S00259 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00284 M02S00259.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979. 00285 M01S00004.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00286 M01S00260.ppr +++| SPACE 4,10 00287 M01S00261.ppr +++|***** 0TD - TERMINATE DAYFILES. 00288 M01S00262.ppr +++|* 00289 M01S00263.ppr +++|* P. D. HAAS. 79/07/13. 00290 M01S00264.ppr +++|* J. A. PETERSON. 79/07/13. 00291 M01S00265.ppr +++| SPACE 4,10 00292 M01S00266.ppr +++|*** *0TD* IS CALLED WHEN IT IS NECESSARY TO FLUSH A 00293 M01S00267.ppr +++|* COMPLETE DAYFILE BUFFER TO DISK. THIS DIFFERS FROM *1DD* 00294 M01S00268.ppr +++|* OPERATION IN THAT THE LATTER WILL DUMP ONLY COMPLETE SECTORS. 00295 M01S00269.ppr +++| SPACE 4,10 00296 M01S00270.ppr +++|*** ENTRY CONDITIONS. 00297 M01S00271.ppr +++|* 00298 M01S00272.ppr +++|* 00299 M01S00273.ppr +++|* ( (LA)-1 ) = DAYFILE INDEX. 00300 M01S00274.ppr +++|* 0 = JOB DAYFILE. 00301 M01S00275.ppr +++|* 1 = MASTER DAYFILE. 00302 M01S00276.ppr +++|* 2 = ACCOUNT DAYFILE. 00303 M01S00277.ppr +++|* 3 = ERRLOG DAYFILE. 00304 M01S00278.ppr +++|* 4 = MAINLOG DAYFILE. 00305 M01S00279.ppr +++| SPACE 4,10 00306 M01S00280.ppr +++|*** EXIT CONDITIONS. 00307 M01S00281.ppr +++|* 00308 M01S00282.ppr +++|* 00309 M01S00283.ppr +++|* DAYFILE BUFFER FLUSHED TO DISK. 00310 M01S00284.ppr +++|* 00311 M01S00285.ppr +++|* DIRECT CELLS 20 - 36 SAVED AND RESTORED. 00312 M01S00286.ppr +++| SPACE 4,10 00313 M01S00287.ppr +++|*** NOTES. 00314 M01S00288.ppr +++|* 00315 M01S00289.ppr +++|* 00316 M01S00290.ppr +++|* PP WILL BE HUNG IF MASS STORAGE NOT ASSIGNED. 00317 M01S00291.ppr +++|* 00318 M01S00292.ppr +++|* IT IS THE RESPONSIBILITY OF THE CALLING PROGRAM TO 00319 M01S00293.ppr +++|* SECURE ANY BUFFER INTERLOCKS THAT MAY BE REQUIRED. 00320 M01S00294.ppr +++|* 00321 M01S00295.ppr +++|* IF AN UNRECOVERED WRITE ERROR IS ENCOUNTERED, THE WRITE 00322 M01S00296.ppr +++|* IS CONTINUED ON THE NEXT SECTOR. 00323 M01S00297.ppr +++| SPACE 4,10 00324 M01S00298.ppr +++|** COMMON DECKS. 00325 M01S00299.ppr +++| 00326 M01S00300.ppr +++| 00327 M01S00301.ppr +++|*CALL COMPRLM 00328 M01S00302.ppr +++| SPACE 4,10 00329 M01S00303.ppr +++|**** DIRECT LOCATION ASSIGNMENTS. 00330 M01S00304.ppr +++| 00331 M01S00305.ppr +++| 00332 M01S00306.ppr +++| WC EQU 16 WORD COUNT 00333 M01S00307.ppr +++| NT EQU 17 NEXT TRACK 00334 M01S00308.ppr +++| FT EQU 20 - 21 FIRST 00335 M01S00309.ppr +++| BL EQU 22 BUFFER LENGTH 00336 M01S00310.ppr +++| OT EQU 23 OUT 00337 M01S00311.ppr +++| IN EQU 24 IN 00338 M01S00312.ppr +++| SL EQU 25 SECTOR LENGTH 00339 M01S00313.ppr +++| DT EQU 26 DAYFILE TYPE 00340 M01S00314.ppr +++| ER EQU 27 ERROR STATUS 00341 M01S00315.ppr +++| ML EQU 30 - 34 MAINTENANCE LOG CONTROL WORD 00342 M01S00316.ppr +++| MI EQU ML+4 MESSAGE INDEX 00343 M01S00317.ppr +++|**** 00344 M01S00318.ppr +++| TITLE MAIN PROGRAM. 00345 M01S00319.ppr +++| ZTD SPACE 4,10 00346 M01S00320.ppr +++|** 0TD - MAIN PROGRAM. 00347 M01S00321.ppr +++| 00348 M01S00322.ppr +++| 00349 M01S00323.ppr +++| ZTD SUBR ENTRY/EXIT 00350 M01S00324.ppr +++| LJM PRS PRESET OVERLAY 00351 M01S00325.ppr +++| 00352 M01S00326.ppr +++|* DUMP DAYFILE BUFFER TO DISK. 00353 M01S00327.ppr +++| 00354 M01S00328.ppr +++| ZTD1 LDD WC SET WORD COUNT REMAINING 00355 M01S00329.ppr +++| SBD T3 00356 M01S00330.ppr +++| STD WC 00357 M01S00331.ppr +++| LDD T3 ADVANCE OUT POINTER 00358 M01S00332.ppr +++| RAD OT 00359 M01S00333.ppr +++| SBD BL 00360 M01S00334.ppr +++| MJN ZTD2 IF NO WRAP AROUND 00361 M01S00335.ppr +++| STD OT 00362 M01S00336.ppr +++| ZTD2 RJM RDB READ DAYFILE BUFFER 00363 M01S00337.ppr +++| LDD T7 SET SECTOR LINKAGE 00364 M01S00338.ppr +++| ADN 1 00365 M01S00339.ppr +++| STM BUF 00366 M01S00340.ppr +++| LMM. SLM 00367 M01S00341.ppr +++| NJN ZTD3 IF NOT END OF TRACK 00368 M01S00342.ppr +++| LDD NT SET NEXT TRACK 00369 M01S00343.ppr +++| STM BUF 00370 M01S00344.ppr +++| ZJN ZTD6 IF NO MORE TRACKS AVAILABLE 00371 M01S00345.ppr +++| ZTD3 LDC. BUF+WCSF WRITE DAYFILE SECTOR 00372 M01S00346.ppr +++| RJM. WDS 00373 M01S00347.ppr +++| PJN ZTD4 IF NO WRITE ERROR 00374 M01S00348.ppr +++| SHN 21-11 00375 M01S00349.ppr +++| MJN ZTD2 IF REISSUE OF CURRENT SECTOR REQUIRED 00376 M01S00350.ppr +++| AOD ER 00377 M01S00351.ppr +++| ZTD4 AOD T7 ADVANCE SECTOR NUMBER 00378 M01S00352.ppr +++| LMM. SLM 00379 M01S00353.ppr +++| NJN ZTD5 IF NOT CROSSING TRACK BOUNDARY 00380 M01S00354.ppr +++| STD T7 00381 M01S00355.ppr +++| LDD NT SET NEXT TRACK 00382 M01S00356.ppr +++| STD T6 00383 M01S00357.ppr +++| ZTD5 UJN *+2 DONT ADVANCE MESSAGE LINK 00384 M01S00358.ppr +++| ZTDA EQU ZTD5 00385 M01S00359.ppr +++| CON AML 00386 M01S00360.ppr +++|* RJM AML (MAINTENANCE LOG PROCESSING) 00387 M01S00361.ppr +++| 00388 M01S00362.ppr +++|* CHECK IF MORE DATA LEFT OR IF ZERO-LENGTH EOR SECTOR NEEDED. 00389 M01S00363.ppr +++| 00390 M01S00364.ppr +++| LDM BUF+1 00391 M01S00365.ppr +++| SHN -6 00392 M01S00366.ppr +++| ZJN ZTD6 IF END OF DATA 00393 M01S00367.ppr +++| LJM ZTD1 LOOP FOR NEXT BLOCK 00394 M01S00368.ppr +++| 00395 M01S00369.ppr +++|* SET BUFFER EMPTY. 00396 M01S00370.ppr +++| 00397 M01S00371.ppr +++| ZTD6 RJM SPA READ OUT POINTER WORD 00398 M01S00372.ppr +++| ADN 1 00399 M01S00373.ppr +++| CRD CM 00400 M01S00374.ppr +++| LDD IN SET OUT = IN 00401 M01S00375.ppr +++| STD CM+4 00402 M01S00376.ppr +++| RJM SPA STORE OUT POINTER 00403 M01S00377.ppr +++| ADN 1 00404 M01S00378.ppr +++| CWD CM 00405 M01S00379.ppr +++| 00406 M01S00380.ppr +++|* ASSEMBLE EOI SECTOR. 00407 M01S00381.ppr +++| 00408 M01S00382.ppr +++| ZTD7 LDD T6 SET EOI TRACK 00409 M01S00383.ppr +++| STM SBUF+ETEI 00410 M01S00384.ppr +++| LDD T7 SET EOI SECTOR 00411 M01S00385.ppr +++| STM SBUF+ESEI 00412 M01S00386.ppr +++| LDN PDTL SET DATE AND TIME 00413 M01S00387.ppr +++| CRM SBUF+DTEI,TR 00414 M01S00388.ppr +++| LDC. SBUF+WLSF WRITE EOI SECTOR 00415 M01S00389.ppr +++| RJM. WDS 00416 M01S00390.ppr +++| PJN ZTD8 IF NO WRITE ERRORS 00417 M01S00391.ppr +++| SHN 21-11 00418 M01S00392.ppr +++| MJN ZTD7 IF REISSUE OF CURRENT SECTOR REQUIRED 00419 M01S00393.ppr +++| ZTD8 ENDMS RELEASE CHANNEL 00420 M01S00394.ppr +++| 00421 M01S00395.ppr +++|* SET EOI IN TRT. 00422 M01S00396.ppr +++| 00423 M01S00397.ppr +++| LDD T5 00424 M01S00398.ppr +++| LMC 4000 ADD CHECKPOINT REQUEST 00425 M01S00399.ppr +++| STD CM+1 00426 M01S00400.ppr +++| LDD T6 00427 M01S00401.ppr +++| LPC 3777 00428 M01S00402.ppr +++| STD CM+2 00429 M01S00403.ppr +++| LDD T7 00430 M01S00404.ppr +++| STD CM+3 00431 M01S00405.ppr +++| MONITOR DTKM 00432 M01S00406.ppr +++| RJM SPA STORE BUFFER STATUS 00433 M01S00407.ppr +++| ADN 2 00434 M01S00408.ppr +++| CWM SBUF+FSEI,ON 00435 M01S00409.ppr +++| ZTDB UJN ZTD9 RESTORE DIRECT CELLS 00436 M01S00410.ppr +++|* PSN (BML MESSAGE LINK UPDATE REQUIRED) 00437 M01S00411.ppr +++| LDN 1 INITIALIZE MESSAGE LINK 00438 M01S00412.ppr +++| STD MI 00439 M01S00413.ppr +++| LDN BMLL STORE MESSAGE LINK 00440 M01S00414.ppr +++| CWD ML 00441 M01S00415.ppr +++| ZTD9 LDD MA RESTORE DIRECT CELLS 00442 M01S00416.ppr +++| CWM DBUF,TR 00443 M01S00417.ppr +++| SBN 3 00444 M01S00418.ppr +++| CRM. FT,TR 00445 M01S00419.ppr +++| LJM ZTDX RETURN 00446 M01S00420.ppr +++| TITLE SUBROUTINES. 00447 M01S00421.ppr +++| AML SPACE 4,15 00448 M01S00422.ppr +++|** AML - ADVANCE MESSAGE LINK. 00449 M01S00423.ppr +++|* 00450 M01S00424.ppr +++|* ENTRY (ER) = ERROR STATUS. 00451 M01S00425.ppr +++|* (MI) = MESSAGE LINK. 00452 M01S00426.ppr +++|* (ML - ML+4) = *BMLL* WORD. 00453 M01S00427.ppr +++|* 00454 M01S00428.ppr +++|* EXIT (MI) ADVANCED TO FIRST MESSAGE IN NEXT SECTOR. 00455 M01S00429.ppr +++|* *BMLL* UPDATED IN CM. 00456 M01S00430.ppr +++|* 00457 M01S00431.ppr +++|* USES T1. 00458 M01S00432.ppr +++|* 00459 M01S00433.ppr +++|* CALLS RDB. 00460 M01S00434.ppr +++| 00461 M01S00435.ppr +++| 00462 M01S00436.ppr +++| AML SUBR ENTRY/EXIT 00463 M01S00437.ppr +++| LDD ER 00464 M01S00438.ppr +++| ZJN AML1 IF NO ERRORS 00465 M01S00439.ppr +++| RJM RDB RE-READ DAYFILE DATA 00466 M01S00440.ppr +++| AML1 LDD MI SET PP BUFFER INDEX 00467 M01S00441.ppr +++| SHN 2 00468 M01S00442.ppr +++| ADD MI 00469 M01S00443.ppr +++| STD T1 00470 M01S00444.ppr +++| LDM BUF+2,T1 ADVANCE MESSAGE INDEX 00471 M01S00445.ppr +++| ZJN AMLX IF END OF DATA 00472 M01S00446.ppr +++| RAD MI 00473 M01S00447.ppr +++| SBD HN 00474 M01S00448.ppr +++| MJN AML1 IF NOT LAST MESSAGE IN SECTOR 00475 M01S00449.ppr +++| ADN 1 SET MESSAGE LINK FOR NEXT SECTOR 00476 M01S00450.ppr +++| STD MI 00477 M01S00451.ppr +++| LDN BMLL STORE MESSAGE LINK 00478 M01S00452.ppr +++| CWD ML 00479 M01S00453.ppr +++| UJN AMLX RETURN 00480 M01S00454.ppr +++| RDB SPACE 4,10 00481 M01S00455.ppr +++|** RDB - READ DAYFILE BUFFER. 00482 M01S00456.ppr +++|* 00483 M01S00457.ppr +++|* ENTRY (WC) = REMAINING WORD COUNT. 00484 M01S00458.ppr +++|* (SL) = LENGTH OF SECTOR DATA. 00485 M01S00459.ppr +++|* (OT) = OUT POINTER. 00486 M01S00460.ppr +++|* (BL) = BUFFER LENGTH. 00487 M01S00461.ppr +++|* 00488 M01S00462.ppr +++|* EXIT (T3) = NUMBER OF WORDS READ. 00489 M01S00463.ppr +++|* (BUF) = DAYFILE DATA. 00490 M01S00464.ppr +++|* 00491 M01S00465.ppr +++|* USES T1 - T2. 00492 M01S00466.ppr +++|* 00493 M01S00467.ppr +++|* CALLS SBA. 00494 M01S00468.ppr +++| 00495 M01S00469.ppr +++| 00496 M01S00470.ppr +++| RDB3 AOM BUF+1 CORRECT SECTOR WORD COUNT 00497 M01S00471.ppr +++| LDN BMLL READ MAINTENANCE LOG CONTROL WORD 00498 M01S00472.ppr +++| CRM BUF+2,ON 00499 M01S00473.ppr +++| 00500 M01S00474.ppr +++| RDB SUBR ENTRY/EXIT 00501 M01S00475.ppr +++| LDD SL SET FULL SECTOR 00502 M01S00476.ppr +++| STD T3 00503 M01S00477.ppr +++| LDD WC CHECK WORD COUNT 00504 M01S00478.ppr +++| SBD SL 00505 M01S00479.ppr +++| PJN RDB1 IF FULL SECTOR OF DATA AVAILABLE 00506 M01S00480.ppr +++| ADD SL 00507 M01S00481.ppr +++| STD T3 00508 M01S00482.ppr +++| RDB1 LDD T3 SET SECTOR WORD COUNT 00509 M01S00483.ppr +++| STM BUF+1 00510 M01S00484.ppr +++| ZJN RDBX IF EMPTY SECTOR 00511 M01S00485.ppr +++| STD T2 00512 M01S00486.ppr +++| ADD OT 00513 M01S00487.ppr +++| SBD BL 00514 M01S00488.ppr +++| MJN RDB2 IF NO WRAP AROUND 00515 M01S00489.ppr +++| ZJN RDB2 IF NO WRAP AROUND 00516 M01S00490.ppr +++| STD T1 SET WORD COUNT FOR FIRST READ 00517 M01S00491.ppr +++| LDD BL WORD COUNT FROM OUT TO END OF BUFFER 00518 M01S00492.ppr +++| SBD OT 00519 M01S00493.ppr +++| STD T2 00520 M01S00494.ppr +++| SHN 2 00521 M01S00495.ppr +++| ADD T2 00522 M01S00496.ppr +++| ADC. BUF+2 BUFFER ADDRESS FOR FIRST READ 00523 M01S00497.ppr +++| RDBA EQU *-1 00524 M01S00498.ppr +++|* ADC. BUF+7 (MAINTENANCE LOG PROCESSING) 00525 M01S00499.ppr +++| STM RDBB 00526 M01S00500.ppr +++| RJM SBA READ WRAP AROUND 00527 M01S00501.ppr +++| CRM. *,T1 00528 M01S00502.ppr +++| RDBB EQU *-1 00529 M01S00503.ppr +++| RDB2 RJM SBA READ SECTOR OF DAYFILE DATA 00530 M01S00504.ppr +++| ADD OT 00531 M01S00505.ppr +++| CRM BUF+2,T2 00532 M01S00506.ppr +++| RDBC EQU *-1 00533 M01S00507.ppr +++|* CRM BUF+7,T2 (MAINTENANCE LOG PROCESSING) 00534 M01S00508.ppr +++| LJM RDBX RETURN 00535 M01S00509.ppr +++| RDBD EQU *-1 00536 M01S00510.ppr +++|* LJM RDB3 (MAINTENANCE LOG PROCESSING) 00537 M01S00511.ppr +++| SBA SPACE 4,10 00538 M01S00512.ppr +++|** SBA - SET BUFFER ADDRESS. 00539 M01S00513.ppr +++|* 00540 M01S00514.ppr +++|* ENTRY (RA) = REFERENCE ADDRESS FOR JOB DAYFILES. 00541 M01S00515.ppr +++|* (FT - FT+1) = BUFFER ADDRESS FOR SYSTEM DAYFILES. 00542 M01S00516.ppr +++|* 00543 M01S00517.ppr +++|* EXIT (A) = ABSOLUTE BUFFER ADDRESS. 00544 M01S00518.ppr +++|* 00545 M01S00519.ppr +++|* MACROS NFA. 00546 M01S00520.ppr +++| 00547 M01S00521.ppr +++| 00548 M01S00522.ppr +++| SBA1 NFA DAYN SET BUFFER ADDRESS IN NFL 00549 M01S00523.ppr +++| 00550 M01S00524.ppr +++| SBA SUBR ENTRY/EXIT 00551 M01S00525.ppr +++| SBAA LDD FT SET BUFFER ADDRESS IN CMR 00552 M01S00526.ppr +++|* UJN SBA1 (PROCESSING JOB DAYFILE) 00553 M01S00527.ppr +++| SHN 14 00554 M01S00528.ppr +++| ADD FT+1 00555 M01S00529.ppr +++| UJN SBAX RETURN 00556 M01S00530.ppr +++| SPA SPACE 4,10 00557 M01S00531.ppr +++|** SPA - SET POINTER ADDRESS. 00558 M01S00532.ppr +++|* 00559 M01S00533.ppr +++|* ENTRY (RA) = REFERENCE ADDRESS FOR JOB DAYFILES. 00560 M01S00534.ppr +++|* 00561 M01S00535.ppr +++|* EXIT (A) = DAYFILE BUFFER POINTER ADDRESS. 00562 M01S00536.ppr +++|* 00563 M01S00537.ppr +++|* MACROS NFA. 00564 M01S00538.ppr +++| 00565 M01S00539.ppr +++| 00566 M01S00540.ppr +++| SPA1 NFA DAPN SET POINTER ADDRESS IN NFL 00567 M01S00541.ppr +++| 00568 M01S00542.ppr +++| SPA SUBR ENTRY/EXIT 00569 M01S00543.ppr +++| SPAA LDC ** (FWA-3 OF DAYFILE POINTERS) 00570 M01S00544.ppr +++|* UJN SPA1 (PROCESSING JOB DAYFILE) 00571 M01S00545.ppr +++| UJN SPAX RETURN 00572 M01S00546.ppr +++| SPACE 4,10 00573 M01S00547.ppr +++|** BUFFERS. 00574 M01S00548.ppr +++| 00575 M01S00549.ppr +++| 00576 M01S00550.ppr +++| DBUF BSS 3*5 DIRECT CELL BUFFER 00577 M01S00551.ppr +++| SBUF CON 0,0 EOI SECTOR BUFFER 00578 M01S00552.ppr +++| BSS 2*5 00579 M01S00553.ppr +++| BUF BSS 0 DUMP BUFFER 00580 M01S00554.ppr +++| 00581 M01S00555.ppr +++| ERRNG ZTDL-502-* OVERLAY OVERFLOWS ASSEMBLY LIMIT 00582 M01S00556.ppr +++| TITLE PRESET. 00583 M01S00557.ppr +++| PRS SPACE 4,25 00584 M01S00558.ppr +++|** PRS - PRESET OVERLAY. 00585 M01S00559.ppr +++|* 00586 M01S00560.ppr +++|* ENTRY ( (LA)-1 ) = DAYFILE INDEX. 00587 M01S00561.ppr +++|* 0 = JOB DAYFILE. 00588 M01S00562.ppr +++|* 1 = MASTER DAYFILE. 00589 M01S00563.ppr +++|* 2 = ACCOUNT DAYFILE. 00590 M01S00564.ppr +++|* 3 = ERRLOG DAYFILE. 00591 M01S00565.ppr +++|* 4 = MAINLOG DAYFILE. 00592 M01S00566.ppr +++|* 00593 M01S00567.ppr +++|* EXIT (T5) = EST ORDINAL. 00594 M01S00568.ppr +++|* (T6) = CURRENT TRACK. 00595 M01S00569.ppr +++|* (T7) = CURRENT SECTOR. 00596 M01S00570.ppr +++|* (DT) = DAYFILE TYPE (0 = MAINTENANCE LOG). 00597 M01S00571.ppr +++|* (WC) = NUMBER OF WORDS IN BUFFER. 00598 M01S00572.ppr +++|* (SL) = LENGTH OF SECTOR DATA. 00599 M01S00573.ppr +++|* (NT) = NEXT TRACK IF REQUIRED. 00600 M01S00574.ppr +++|* (ER) = 0 IF PROCESSING MAINTENANCE LOG. 00601 M01S00575.ppr +++|* (IN) = RELATIVE IN POINTER. 00602 M01S00576.ppr +++|* (OT) = RELATIVE OUT POINTER. 00603 M01S00577.ppr +++|* (BL) = BUFFER LENGTH. 00604 M01S00578.ppr +++|* (FT - FT+1) = DAYFILE BUFFER ADDRESS. 00605 M01S00579.ppr +++|* (DBUF) = ORIGINAL CONTENTS OF DIRECT CELLS 20 - 36. 00606 M01S00580.ppr +++|* 00607 M01S00581.ppr +++|* USES T3, CM - CM+4. 00608 M01S00582.ppr +++|* 00609 M01S00583.ppr +++|* CALLS RLI, SPA. 00610 M01S00584.ppr +++|* 00611 M01S00585.ppr +++|* MACROS MONITOR, RSTR, SETMS. 00612 M01S00586.ppr +++| 00613 M01S00587.ppr +++| 00614 M01S00588.ppr +++| PRS RJM RLI RELOCATE INSTRUCTIONS 00615 M01S00589.ppr +++| LDD MA SAVE DIRECT CELLS 00616 M01S00590.ppr +++| CWM. FT,TR 00617 M01S00591.ppr +++| SBN 3 00618 M01S00592.ppr +++| CRM DBUF,TR 00619 M01S00593.ppr +++| LDN DFPP READ DAYFILE POINTERS 00620 M01S00594.ppr +++| CRD CM 00621 M01S00595.ppr +++| LDD CM SET DAYFILE BUFFER POINTER ADDRESS 00622 M01S00596.ppr +++| SHN 14-1 00623 M01S00597.ppr +++| ADM -1 00624 M01S00598.ppr +++| SHN 1 00625 M01S00599.ppr +++| ADD CM+1 00626 M01S00600.ppr +++| ADM -1 00627 M01S00601.ppr +++| SBN 3 00628 M01S00602.ppr +++| STM SPAA+1 00629 M01S00603.ppr +++| SHN -14 00630 M01S00604.ppr +++| RAM SPAA 00631 M01S00605.ppr +++| LDM -1 CHECK DAYFILE TYPE 00632 M01S00606.ppr +++| NJN PRS1 IF NOT JOB DAYFILE 00633 M01S00607.ppr +++| ISTORE SBAA,(UJN SBA1) 00634 M01S00608.ppr +++| ISTORE SPAA,(UJN SPA1) 00635 M01S00609.ppr +++| PRS1 RJM SPA READ BUFFER POINTERS 00636 M01S00610.ppr +++| CRD FT 00637 M01S00611.ppr +++| ADN 1 00638 M01S00612.ppr +++| CRD CM 00639 M01S00613.ppr +++| ADN 1 00640 M01S00614.ppr +++| CRD T5 00641 M01S00615.ppr +++| CRM SBUF+FSEI,ON 00642 M01S00616.ppr +++| LDD CM+2 SET BUFFER LENGTH 00643 M01S00617.ppr +++| STD BL 00644 M01S00618.ppr +++| ZJN PRS2 IF ZERO LENGTH BUFFER 00645 M01S00619.ppr +++| LDD CM+4 SET OUT 00646 M01S00620.ppr +++| STD OT 00647 M01S00621.ppr +++| LDD T5+4 SET DAYFILE TYPE 00648 M01S00622.ppr +++| SHN -6 00649 M01S00623.ppr +++| LMN BMLF 00650 M01S00624.ppr +++| STD DT 00651 M01S00625.ppr +++| LDD T5+2 SET CURRENT TRACK 00652 M01S00626.ppr +++| STD T6 00653 M01S00627.ppr +++| LDD T5+3 SET CURRENT SECTOR 00654 M01S00628.ppr +++| STD T7 00655 M01S00629.ppr +++| LDD T5 CHECK DAYFILE EQUIPMENT 00656 M01S00630.ppr +++| STD T5 00657 M01S00631.ppr +++| NJN PRS3 IF EQUIPMENT DEFINED 00658 M01S00632.ppr +++| MONITOR HNGM HANG PP 00659 M01S00633.ppr +++| PRS2 LJM ZTD9 RESTORE DIRECT CELLS 00660 M01S00634.ppr +++| 00661 M01S00635.ppr +++| PRS3 SETMS IO,(NS,SM) 00662 M01S00636.ppr +++| LDD IN CHECK DATA IN BUFFER 00663 M01S00637.ppr +++| SBD OT 00664 M01S00638.ppr +++| NJN PRS4 IF BUFFER NOT EMPTY 00665 M01S00639.ppr +++| LJM ZTD7 WRITE EOI SECTOR 00666 M01S00640.ppr +++| 00667 M01S00641.ppr +++| PRS4 PJN PRS5 IF IN .GT. OUT 00668 M01S00642.ppr +++| ADD BL 00669 M01S00643.ppr +++| PRS5 STD WC SET WORD COUNT 00670 M01S00644.ppr +++| STD T3 00671 M01S00645.ppr +++| LDD HN SET LENGTH OF SECTOR DATA 00672 M01S00646.ppr +++| STD SL 00673 M01S00647.ppr +++| LDD DT CHECK DAYFILE TYPE 00674 M01S00648.ppr +++| NJN PRS6 IF NOT MAINTENANCE LOG 00675 M01S00649.ppr +++| STD ER CLEAR ERROR STATUS 00676 M01S00650.ppr +++| LDD T3 ADJUST WORD COUNT TO INCLUDE CONTROL WORDS 00677 M01S00651.ppr +++| SHN -6 00678 M01S00652.ppr +++| ADN 1 00679 M01S00653.ppr +++| RAD T3 00680 M01S00654.ppr +++| SOD SL SECTOR DATA LENGTH = 77B 00681 M01S00655.ppr +++| LDN 5 INITIALIZE FOR MAINTENANCE LOG DUMP 00682 M01S00656.ppr +++| RAM RDBA 00683 M01S00657.ppr +++| STM RDBC 00684 M01S00658.ppr +++| LDC RDB3 00685 M01S00659.ppr +++| STM RDBD 00686 M01S00660.ppr +++| LDC RJMI+LA ENABLE ADVANCE OF MESSAGE LINK 00687 M01S00661.ppr +++| STM ZTDA 00688 M01S00662.ppr +++| LDN BMLL READ MAINTENANCE LOG CONTROL WORD 00689 M01S00663.ppr +++| CRD ML 00690 M01S00664.ppr +++| LDN 0 CLEAR DEADSTART FLAG 00691 M01S00665.ppr +++| STD ML 00692 M01S00666.ppr +++| STM ZTDB SET MESSAGE LINK UPDATE REQUIRED 00693 M01S00667.ppr +++| PRS6 LDD T3 CHECK SPACE ON CURRENT TRACK 00694 M01S00668.ppr +++| LPN 77 00695 M01S00669.ppr +++| NJN PRS7 IF NOT ON 100 WORD BOUNDARY 00696 M01S00670.ppr +++| AOD T3 ALLOW FOR ZERO-LENGTH EOR SECTOR 00697 M01S00671.ppr +++| PRS7 LDD T3 00698 M01S00672.ppr +++| ADN 77 00699 M01S00673.ppr +++| SHN -6 00700 M01S00674.ppr +++| ADD T7 00701 M01S00675.ppr +++| SBM. SLM 00702 M01S00676.ppr +++| MJN PRS8 IF SPACE ON CURRENT TRACK 00703 M01S00677.ppr +++| LDN ZERL 00704 M01S00678.ppr +++| CRD CM 00705 M01S00679.ppr +++| LDD T6 REQUEST NEXT DAYFILE TRACK 00706 M01S00680.ppr +++| STD CM+2 00707 M01S00681.ppr +++| LDD T5 00708 M01S00682.ppr +++| STD CM+1 00709 M01S00683.ppr +++| MONITOR RTCM 00710 M01S00684.ppr +++| LDD CM+4 SET NEXT TRACK 00711 M01S00685.ppr +++| STD NT 00712 M01S00686.ppr +++| PRS8 LJM ZTD2 ENTER MAIN LOOP 00713 M01S00687.ppr +++| 00714 M01S00688.ppr +++| 00715 M01S00689.ppr +++| HERE DUMP REMOTE TABLES 00716 M01S00690.ppr +++| RSTR RESTORE INSTRUCTIONS 00717 M01S00691.ppr +++| 00718 M01S00692.ppr +++| ERRNG ZTDL-* OVERLAY OVERFLOWS ASSEMBLY LIMIT 00719 M01S00693.ppr +++| TTL PPR/1DD - DUMP DAYFILE BUFFERS. 00720 M01S00694.ppr +++| TITLE 00721 M01S00695.ppr +++| QUAL 1DD 00722 M01S00696.ppr +++| IDENT 1DD,DDB 00723 M01S00697.ppr +++|*COMMENT PPR - DUMP DAYFILE BUFFER.
| Line S00698 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00724 M02S00698.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1973. 00725 M01S00005.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00726 M01S00699.ppr +++| SPACE 4 00727 M01S00700.ppr +++|***** 1DD - DUMP DAYFILE BUFFER. 00728 M01S00701.ppr +++|* 00729 M01S00702.ppr +++|* G. R. MANSFIELD. 70/07/17. 00730 M01S00703.ppr +++|* R. E. TATE. 73/01/05. 00731 M01S00704.ppr +++| SPACE 4 00732 M01S00705.ppr +++|*** *1DD* IS CALLED BY PP RESIDENT OR DIRECTLY BY 00733 M01S00706.ppr +++|* *CPUMTR* WHEN A DAYFILE BUFFER HAS BEEN FILLED TO THE 00734 M01S00707.ppr +++|* THRESHOLD LIMIT. THIS LIMIT IS DEFINED AS THE LARGEST 00735 M01S00708.ppr +++|* NUMBER OF COMPLETE SECTORS THAT FIT IN THE BUFFER. 00736 M01S00709.ppr +++|* THUS FOR A BUFFER 414 WORDS LONG, A DUMP WILL BE INITIATED 00737 M01S00710.ppr +++|* WHEN THE BUFFER CONTAINS AT LEAST 400 WORDS. IN THIS 00738 M01S00711.ppr +++|* INSTANCE, 4 SECTORS WILL BE WRITTEN SINCE *1DD* DUMPS 00739 M01S00712.ppr +++|* ONLY COMPLETE SECTORS. 00740 M01S00713.ppr +++| SPACE 4,10 00741 M01S00714.ppr +++|*** INDIRECT CALL (FROM PP RESIDENT). 00742 M01S00715.ppr +++|* 00743 M01S00716.ppr +++|* 00744 M01S00717.ppr +++|* (CM+4) = DAYFILE INDEX. 00745 M01S00718.ppr +++|* 0 = JOB DAYFILE. 00746 M01S00719.ppr +++|* 1 = MASTER DAYFILE. 00747 M01S00720.ppr +++|* 2 = ACCOUNT DAYFILE. 00748 M01S00721.ppr +++|* 3 = ERRLOG DAYFILE. 00749 M01S00722.ppr +++|* 4 = MAINLOG DAYFILE. 00750 M01S00723.ppr +++| SPACE 4,10 00751 M01S00724.ppr +++|*** DIRECT CALL (FROM *CPUMTR*). 00752 M01S00725.ppr +++|* 00753 M01S00726.ppr +++|* 00754 M01S00727.ppr +++|* (IR - IR+1) = *1DD*. 00755 M01S00728.ppr +++|* (IR+4) = DAYFILE INDEX. 00756 M01S00729.ppr +++|* 0 = JOB DAYFILE. 00757 M01S00730.ppr +++|* 1 = MASTER DAYFILE. 00758 M01S00731.ppr +++|* 2 = ACCOUNT DAYFILE. 00759 M01S00732.ppr +++|* 3 = ERRLOG DAYFILE. 00760 M01S00733.ppr +++|* 4 = MAINLOG DAYFILE. 00761 M01S00734.ppr +++|* 00762 M01S00735.ppr +++|* PP DUMP BUFFER NOT USED. 00763 M01S00736.ppr +++| SPACE 4 00764 M01S00737.ppr +++|*** OPERATOR MESSAGES. 00765 M01S00738.ppr +++|* 00766 M01S00739.ppr +++|* 00767 M01S00740.ppr +++|* *1DD ABT.* WILL BE DISPLAYED AT THE SYSTEM CP ON ANY OF THE 00768 M01S00741.ppr +++|* FOLLOWING CONDTIONS- 00769 M01S00742.ppr +++|* 00770 M01S00743.ppr +++|* 1) UNRECOVERED WRITE ERROR ON A DAYFILE DUMP. 00771 M01S00744.ppr +++|* 2) NO TRACK AVAILABLE TO WRITE ON. 00772 M01S00745.ppr +++| SPACE 4 00773 M01S00746.ppr +++|*** ENTRY CONDITIONS. 00774 M01S00747.ppr +++|* 00775 M01S00748.ppr +++|* 00776 M01S00749.ppr +++|* LOCATIONS *EPFW* THROUGH *MSD* ARE SAVED IN THE DUMP BUFFER. 00777 M01S00750.ppr +++|* LOCATIONS *MSFW* THROUGH THE END OF *1DD* ARE SAVED. 00778 M01S00751.ppr +++| SPACE 4 00779 M01S00752.ppr +++|*** EXIT CONDITIONS. 00780 M01S00753.ppr +++|* 00781 M01S00754.ppr +++|* 00782 M01S00755.ppr +++|* ALL LOCATIONS FROM THE DUMP BUFFER ARE RESTORED. 00783 M01S00756.ppr +++| SPACE 4 00784 M01S00757.ppr +++|*** NOTES. 00785 M01S00758.ppr +++|* 00786 M01S00759.ppr +++|* 00787 M01S00760.ppr +++|* THIS PACKAGE MUST RESIDE IN RPL. 00788 M01S00761.ppr +++| SPACE 4 00789 M01S00762.ppr +++|**** DIRECT LOCATION ASSIGNMENTS. 00790 M01S00763.ppr +++| 00791 M01S00764.ppr +++| 00792 M01S00765.ppr +++| ER EQU 15 ERROR STATUS 00793 M01S00766.ppr +++| T8 EQU 16 TEMPORARY 00794 M01S00767.ppr +++| SL EQU 17 SECTOR LENGTH 00795 M01S00768.ppr +++| DP EQU 20 - 24 DAYFILE BUFFER POINTER WORD 00796 M01S00769.ppr +++| SX EQU 25 CONSTANT 6 00797 M01S00770.ppr +++| B1 EQU 26 - 32 WORD 1 OF DAYFILE BUFFER POINTERS 00798 M01S00771.ppr +++| FT EQU B1 FIRST 00799 M01S00772.ppr +++| IN EQU B1+4 IN 00800 M01S00773.ppr +++| B2 EQU 33 - 37 WORD 2 OF DAYFILE BUFFER POINTERS 00801 M01S00774.ppr +++| BL EQU B2+2 BUFFER LENGTH 00802 M01S00775.ppr +++| OT EQU B2+4 OUT 00803 M01S00776.ppr +++| FS EQU 40 - 44 DAYFILE BUFFER FST 00804 M01S00777.ppr +++| SC EQU 45 SECTOR COUNT 00805 M01S00778.ppr +++| NT EQU 46 NEXT TRACK 00806 M01S00779.ppr +++| TC EQU 47 TYPE OF CALL (DIRECT/INDIRECT) 00807 M01S00780.ppr +++| DI EQU IR+4 DAYFILE INDEX 00808 M01S00781.ppr +++| ML EQU 60 - 64 MAINTENANCE LOG CONTROL WORD 00809 M01S00782.ppr +++| MI EQU ML+4 MESSAGE INDEX 00810 M01S00783.ppr +++| DR EQU 65 *DFM* RETURN ADDRESS 00811 M01S00784.ppr +++|**** 00812 M01S00785.ppr +++| SPACE 4,10 00813 M01S00786.ppr +++|*** BUFFER LOCATIONS. 00814 M01S00787.ppr +++| 00815 M01S00788.ppr +++| 00816 M01S00789.ppr +++| MBUF EQU PPFW-5 MESSAGE BUFFER SAVE AREA 00817 M01S00790.ppr +++| BUF EQU MBUF+6*5 WRITE BUFFER ADDRESS 00818 M01S00791.ppr +++| DDB TITLE MAIN PROGRAM. 00819 M01S00792.ppr +++|** DDB - MAIN PROGRAM. 00820 M01S00793.ppr +++| 00821 M01S00794.ppr +++| 00822 M01S00795.ppr +++| ORG DDFW 00823 M01S00796.ppr +++| 00824 M01S00797.ppr +++|* INITIALIZE CENTRAL ADDRESSES. 00825 M01S00798.ppr +++| 00826 M01S00799.ppr +++| DDB LDD IA CHECK IF DIRECT CALL 00827 M01S00800.ppr +++| CRD T1 00828 M01S00801.ppr +++| LDD T1 00829 M01S00802.ppr +++| LMC 2R1D 00830 M01S00803.ppr +++| STD TC 00831 M01S00804.ppr +++| UJN DDB1 READ DAYFILE POINTER WORD 00832 M01S00805.ppr +++| 00833 M01S00806.ppr +++| ERRNG DDBA-DDB-5 BUFFER OVERFLOW 00834 M01S00807.ppr +++| 00835 M01S00808.ppr +++| DDBA BSS 0 00836 M01S00809.ppr +++| LOC 10003-2*5 00837 M01S00810.ppr +++| DDBB CRM MSFW,T2 RESTORE DRIVER AND CALLING PROGRAM 00838 M01S00811.ppr +++| LDN DFPP CLEAR DUMP BUFFER INTERLOCK 00839 M01S00812.ppr +++| CWM DDBB-5,ON 00840 M01S00813.ppr +++| LJM DFM3 RETURN TO PPR 00841 M01S00814.ppr +++| CON DDBB-1 EXECUTION ADDRESS - 1 00842 M01S00815.ppr +++| CON 0 (T1) 00843 M01S00816.ppr +++| CON DFDS-65 (T2) 00844 M01S00817.ppr +++| LOC *O 00845 M01S00818.ppr +++| 00846 M01S00819.ppr +++| DDB1 LDN DFPP READ DAYFILE POINTER WORD 00847 M01S00820.ppr +++| CRD DP 00848 M01S00821.ppr +++| CRM DDBA-5,ON 00849 M01S00822.ppr +++| LDD T1+1 00850 M01S00823.ppr +++| SHN -6 00851 M01S00824.ppr +++| LMN 1RD 00852 M01S00825.ppr +++| RAD TC 00853 M01S00826.ppr +++| ZJN DDB1.1 IF DIRECT CALL 00854 M01S00827.ppr +++| LDD CM+4 SET DAYFILE INDEX 00855 M01S00828.ppr +++| STD IR+4 00856 M01S00829.ppr +++| AOM DDBA-5+4 CLEAR DUMP BUFFER INTERLOCK 00857 M01S00830.ppr +++| LDD DP+2 WRITE BOOT STRAP INTO DUMP BUFFER 00858 M01S00831.ppr +++| SHN 14 00859 M01S00832.ppr +++| ADD DP+3 00860 M01S00833.ppr +++| ADN 44+3 00861 M01S00834.ppr +++| CWM DDBA-5,TR 00862 M01S00835.ppr +++| LDM DFM PRESERVE *DFM* RETURN ADDRESS 00863 M01S00836.ppr +++| STD DR 00864 M01S00837.ppr +++| UJN DDB2 CHECK REQUEST 00865 M01S00838.ppr +++| 00866 M01S00839.ppr +++| DDB1.1 LDN 0 INTERLOCK BUFFER 00867 M01S00840.ppr +++| STD CM+1 00868 M01S00841.ppr +++| MONITOR DFMM INTERLOCK REQUEST 00869 M01S00842.ppr +++| LDD CM+4 00870 M01S00843.ppr +++| ZJN DDB2 IF INTERLOCKED 00871 M01S00844.ppr +++| LJM DDB21 DROP PP 00872 M01S00845.ppr +++| 00873 M01S00846.ppr +++| DDB2 LDD DI CHECK REQUEST 00874 M01S00847.ppr +++| NJN DDB3 IF NOT JOB DAYFILE 00875 M01S00848.ppr +++| LDC SBA1+77-SBAA+UJNI MODIFY INSTRUCTIONS 00876 M01S00849.ppr +++| STM SBAA 00877 M01S00850.ppr +++| LDC SPA1+77-SPAA+UJNI 00878 M01S00851.ppr +++| STM SPAA 00879 M01S00852.ppr +++| DDB3 RJM SPA READ BUFFER POINTERS 00880 M01S00853.ppr +++| CRD B1 00881 M01S00854.ppr +++| ADN 1 00882 M01S00855.ppr +++| CRD B2 00883 M01S00856.ppr +++| ADN 1 READ DAYFILE FST 00884 M01S00857.ppr +++| CRD FS 00885 M01S00858.ppr +++| LDD BL SET POINTER ADVANCE FOR ERROR EXIT 00886 M01S00859.ppr +++| SCN 77 00887 M01S00860.ppr +++| STD SL 00888 M01S00861.ppr +++| SHN -6 SET SECTOR COUNT 00889 M01S00862.ppr +++| STD SC 00890 M01S00863.ppr +++| 00891 M01S00864.ppr +++|* INITIALIZE FOR DAYFILE FST. 00892 M01S00865.ppr +++| 00893 M01S00866.ppr +++| LDN ZERL CLEAR ERROR STATUS 00894 M01S00867.ppr +++| CRD CM+1 00895 M01S00868.ppr +++| LDN 6 DEFINE CONSTANT 6 00896 M01S00869.ppr +++| STD SX 00897 M01S00870.ppr +++| LDD MA SAVE MESSAGE BUFFER 00898 M01S00871.ppr +++| CRM MBUF,SX 00899 M01S00872.ppr +++| LDD FS SET EST ORDINAL 00900 M01S00873.ppr +++| STD T8 00901 M01S00874.ppr +++| STD T5 00902 M01S00875.ppr +++| NJN DDB5 IF FILE USED 00903 M01S00876.ppr +++| 00904 M01S00877.ppr +++|* PREPARE NEW FST. 00905 M01S00878.ppr +++| 00906 M01S00879.ppr +++| LDN DAYS SELECT DAYFILE EQUIPMENT 00907 M01S00880.ppr +++| STD CM+2 00908 M01S00881.ppr +++| AOD SC INCLUDE SYSTEM SECTOR IN SECTOR COUNT 00909 M01S00882.ppr +++| MONITOR RTCM ASSIGN MASS STORAGE SPACE 00910 M01S00883.ppr +++| LDD CM+4 SET FIRST TRACK 00911 M01S00884.ppr +++| NJN DDB4 IF TRACK ASSIGNED 00912 M01S00885.ppr +++| RJM AOP ADVANCE OUT POINTER 00913 M01S00886.ppr +++| LJM DDB18 ABORT DUMP 00914 M01S00887.ppr +++| 00915 M01S00888.ppr +++|* CREATE SYSTEM SECTOR. 00916 M01S00889.ppr +++| 00917 M01S00890.ppr +++| DDB4 STD FS+1 00918 M01S00891.ppr +++| STD FS+2 00919 M01S00892.ppr +++| STD T6 00920 M01S00893.ppr +++| LDD CM+1 SET EQUIPMENT 00921 M01S00894.ppr +++| STD T5 00922 M01S00895.ppr +++| STD FS 00923 M01S00896.ppr +++| LDN ZERL CLEAR FILE NAME IN SYSTEM SECTOR 00924 M01S00897.ppr +++| CRM FNSS-BFMS+BUF,ON 00925 M01S00898.ppr +++| LDN PDTL SET DATE AND TIME 00926 M01S00899.ppr +++| CRM DTSS-BFMS+BUF,ON 00927 M01S00900.ppr +++| LDC LOFT*100 SET FILE TYPE 00928 M01S00901.ppr +++| STM FNSS+4-BFMS+BUF 00929 M01S00902.ppr +++| DDB5 SETMS IO,(ND,NS,SM) 00930 M01S00903.ppr +++| LDD HN SET SECTOR LENGTH 00931 M01S00904.ppr +++| STD SL 00932 M01S00905.ppr +++| LDD FS+4 CHECK DAYFILE 00933 M01S00906.ppr +++| SHN -6 00934 M01S00907.ppr +++| LMN BMLF 00935 M01S00908.ppr +++| NJN DDB6 IF NOT MAINTENANCE LOG 00936 M01S00909.ppr +++| LDC LDDI+ER INITIALIZE FOR MAINTENANCE LOG DUMP 00937 M01S00910.ppr +++| STM AOPA 00938 M01S00911.ppr +++| LDN 5 00939 M01S00912.ppr +++| RAM RDDA 00940 M01S00913.ppr +++| STM RDDC 00941 M01S00914.ppr +++| LDC RDD2 00942 M01S00915.ppr +++| STM RDDD 00943 M01S00916.ppr +++| SOD SL SECTOR DATA LENGTH = 77B 00944 M01S00917.ppr +++| LDN BMLL READ SECTOR CONTROL WORD 00945 M01S00918.ppr +++| CRD ML 00946 M01S00919.ppr +++| LDN 0 CLEAR DEADSTART FLAG 00947 M01S00920.ppr +++| STD ML 00948 M01S00921.ppr +++| DDB6 LDD T8 00949 M01S00922.ppr +++| NJN DDB7 IF FILE WRITTEN 00950 M01S00923.ppr +++| STD T7 00951 M01S00924.ppr +++| LDD MA MOVE FST TO SYSTEM SECTOR 00952 M01S00925.ppr +++| CWD FS 00953 M01S00926.ppr +++| CRM EQSS-BFMS+BUF,ON 00954 M01S00927.ppr +++| LDN 77 SET SYSTEM SECTOR LINKAGE BYTES 00955 M01S00928.ppr +++| STM BUF+1 00956 M01S00929.ppr +++| LDC 3777 00957 M01S00930.ppr +++| LJM DDB10 WRITE SYSTEM SECTOR 00958 M01S00931.ppr +++| 00959 M01S00932.ppr +++|* REQUEST ADDITIONAL TRACK IF NEEDED. 00960 M01S00933.ppr +++| 00961 M01S00934.ppr +++| DDB7 LDN ZERL 00962 M01S00935.ppr +++| CRD CM 00963 M01S00936.ppr +++| LDD FS+2 SET CURRENT TRACK 00964 M01S00937.ppr +++| STD CM+2 00965 M01S00938.ppr +++| STD T6 00966 M01S00939.ppr +++| LDD FS+3 SET CURRENT SECTOR 00967 M01S00940.ppr +++| STD T7 00968 M01S00941.ppr +++| ADD SC 00969 M01S00942.ppr +++| SBM SLM 00970 M01S00943.ppr +++| MJN DDB8 IF SECTOR LIMIT NOT REACHED 00971 M01S00944.ppr +++| LDD FS SET EQUIPMENT 00972 M01S00945.ppr +++| STD CM+1 00973 M01S00946.ppr +++| MONITOR RTCM REQUEST TRACK 00974 M01S00947.ppr +++| AOM DDBD SET CHECKPOINT REQUEST 00975 M01S00948.ppr +++| LDD CM+4 SAVE NEXT TRACK 00976 M01S00949.ppr +++| STD NT 00977 M01S00950.ppr +++| NJN DDB8 IF TRACK ASSIGNED 00978 M01S00951.ppr +++| AOD ER SET ERROR INDICATOR 00979 M01S00952.ppr +++| UJN DDB8 CONTINUE 00980 M01S00953.ppr +++| 00981 M01S00954.ppr +++|* END OF CODE OVERLAYED BY BUFFER. 00982 M01S00955.ppr +++| 00983 M01S00956.ppr +++| .A EQU BUF+502-* 00984 M01S00957.ppr +++| IFPL .A,2 PAD WITH HANG INSTRUCTIONS IF NECESSARY 00985 M01S00958.ppr +++| DUP .A,1 00986 M01S00959.ppr +++| UJN * HANG-S 00987 M01S00960.ppr +++| 00988 M01S00961.ppr +++| DDB8 RJM RDD READ DAYFILE DATA 00989 M01S00962.ppr +++| 00990 M01S00963.ppr +++|* ADVANCE OUT POINTER ASAP TO FREE UP BUFFER SPACE. 00991 M01S00964.ppr +++| 00992 M01S00965.ppr +++| RJM AOP ADVANCE OUT POINTER 00993 M01S00966.ppr +++| 00994 M01S00967.ppr +++|* DUMP BUFFER. 00995 M01S00968.ppr +++| 00996 M01S00969.ppr +++| DDB9 LDD HN 00997 M01S00970.ppr +++| STM BUF+1 00998 M01S00971.ppr +++| LDD T7 SET NEXT SECTOR 00999 M01S00972.ppr +++| ADN 1 01000 M01S00973.ppr +++| STM BUF 01001 M01S00974.ppr +++| LMM SLM 01002 M01S00975.ppr +++| NJN DDB11 IF NOT SECTOR LIMIT 01003 M01S00976.ppr +++| LDD NT SET NEXT TRACK IN LINKAGE 01004 M01S00977.ppr +++| DDB10 STM BUF 01005 M01S00978.ppr +++| ZJN DDB14 IF TRACK NOT AVAILABLE 01006 M01S00979.ppr +++| DDB11 LDC BUF+WCSF WRITE SECTOR 01007 M01S00980.ppr +++| RJM WDS 01008 M01S00981.ppr +++| PJN DDB12 IF NO WRITE ERRORS 01009 M01S00982.ppr +++| SHN 21-11 01010 M01S00983.ppr +++| MJN DDB15 IF REISSUE OF CURRENT SECTOR REQUIRED 01011 M01S00984.ppr +++| AOD ER SET ERROR INDICATOR 01012 M01S00985.ppr +++| DDB12 UJN *+2 DONT ADVANCE OUT POINTER 01013 M01S00986.ppr +++| DDBC EQU DDB12 01014 M01S00987.ppr +++| CON AOP 01015 M01S00988.ppr +++|* RJM AOP (AFTER 1ST SECTOR OF DAYFILE PROCESSED) 01016 M01S00989.ppr +++| AOD T7 01017 M01S00990.ppr +++| STD FS+3 01018 M01S00991.ppr +++| LMM SLM 01019 M01S00992.ppr +++| NJN DDB13 IF NOT SECTOR LIMIT 01020 M01S00993.ppr +++| STD T7 RESET TRACK AND SECTOR 01021 M01S00994.ppr +++| STD FS+3 01022 M01S00995.ppr +++| LDD NT SET TRACK 01023 M01S00996.ppr +++| STD T6 01024 M01S00997.ppr +++| STD FS+2 01025 M01S00998.ppr +++| DDB13 SOD SC DECREMENT SECTOR COUNT 01026 M01S00999.ppr +++| DDB14 ZJN DDB16 IF DUMP COMPLETE 01027 M01S01000.ppr +++| DDB15 LDC RJMI ENABLE OUT POINTER UPDATE 01028 M01S01001.ppr +++| STM DDBC 01029 M01S01002.ppr +++| RJM RDD READ NEXT SECTOR OF DAYFILE DATA 01030 M01S01003.ppr +++| LJM DDB9 PROCESS NEXT SECTOR 01031 M01S01004.ppr +++| 01032 M01S01005.ppr +++|* ASSEMBLE EOI SECTOR. 01033 M01S01006.ppr +++| 01034 M01S01007.ppr +++| DDB16 LDN 0 01035 M01S01008.ppr +++| STM BUF 01036 M01S01009.ppr +++| STM BUF+1 01037 M01S01010.ppr +++| RJM SPA READ FILE STATUS WORD 01038 M01S01011.ppr +++| ADN 2 01039 M01S01012.ppr +++| CWD FS 01040 M01S01013.ppr +++| CRM BUF+FSEI,ON 01041 M01S01014.ppr +++| LDN PDTL READ DATE AND TIME 01042 M01S01015.ppr +++| CRM BUF+DTEI,TR 01043 M01S01016.ppr +++| LDC BUF+WLSF WRITE EOI SECTOR 01044 M01S01017.ppr +++| RJM WDS 01045 M01S01018.ppr +++| PJN DDB17 IF NO WRITE ERRORS 01046 M01S01019.ppr +++| SHN 21-11 01047 M01S01020.ppr +++| MJN DDB16 IF REISSUE OF CURRENT SECTOR REQUIRED 01048 M01S01021.ppr +++| AOD ER SET ERROR INDICATOR 01049 M01S01022.ppr +++| DDB17 ENDMS END MASS STORAGE OPERATION 01050 M01S01023.ppr +++| LDD MA RESTORE DIRECT CELLS 01051 M01S01024.ppr +++| CWM MBUF,SX 01052 M01S01025.ppr +++| DDBD LDN 0 LOAD CHECKPOINT REQUEST 01053 M01S01026.ppr +++|* LDN 1 (CHECKPOINT REQUESTED) 01054 M01S01027.ppr +++| SHN 13 01055 M01S01028.ppr +++| LMD T5 MERGE WITH EQUIPMENT 01056 M01S01029.ppr +++| STD CM+1 01057 M01S01030.ppr +++| LDD T6 SET LAST SECTOR WRITTEN REQUEST 01058 M01S01031.ppr +++| LPC 3777 01059 M01S01032.ppr +++| STD CM+2 01060 M01S01033.ppr +++| LDD T7 01061 M01S01034.ppr +++| STD CM+3 01062 M01S01035.ppr +++| MONITOR DTKM 01063 M01S01036.ppr +++| LDD ER 01064 M01S01037.ppr +++| ZJN DDB20 IF NO ERRORS
| Line S01038 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ppr16 |
Seq # *Modification Id* Act ----------------------------+ 01065 M02S01038.ppr16 ---| DDB18 LDD CP
| Line S01039 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ppr16 |
Seq # *Modification Id* Act ----------------------------+ 01066 M02S01039.ppr16 ---| ADN JCIW
| Line S01040 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ppr16 |
Seq # *Modification Id* Act ----------------------------+ 01067 M02S01040.ppr16 ---| CRD CM
| Line S01041 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ppr16 |
Seq # *Modification Id* Act ----------------------------+ 01068 M02S01041.ppr16 ---| LDD CM+2
| Line S01042 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ppr16 |
Seq # *Modification Id* Act ----------------------------+ 01069 M02S01042.ppr16 ---| SBK LSSI+1
| Line S01043 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ppr16 |
Seq # *Modification Id* Act ----------------------------+ 01070 M02S01043.ppr16 ---| PJN DDB19 IF NOT USER JOB
| Line S01044 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ppr16 |
Seq # *Modification Id* Act ----------------------------+ 01071 M02S01044.ppr16 ---| LDN SYET ABORT USER JOB
| Line S01045 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ppr16 |
Seq # *Modification Id* Act ----------------------------+ 01072 M02S01045.ppr16 ---| STD CM+1
| Line S01046 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ppr16 |
Seq # *Modification Id* Act ----------------------------+ 01073 M02S01046.ppr16 ---| MONITOR CEFM
| Line S01047 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ppr16 |
Seq # *Modification Id* Act ----------------------------+ 01074 M02S01047.ppr16 ---| DDB19 LDN NCPL DISPLAY MESSAGE AT SYSTEM CP 01075 M01S00001.ppr16 +++| DDB18 LDN NCPL DISPLAY MESSAGE AT SYSTEM CP 01076 M01S01048.ppr +++| CRD CM 01077 M01S01049.ppr +++| AOD CM+1 01078 M01S01050.ppr +++| SHN 7 01079 M01S01051.ppr +++| ADN MS2W 01080 M01S01052.ppr +++| CWM =C*1DD ABT.*,ON 01081 M01S01053.ppr +++| DDB20 LDD FS+4 SET BUFFER NOT BUSY / CLEAR *1DD* FLAG 01082 M01S01054.ppr +++| SCN 4 CLEAR *1DD* CALLED FLAG 01083 M01S01055.ppr +++| ADN 1 SET NOT BUSY 01084 M01S01056.ppr +++| STD FS+4 01085 M01S01057.ppr +++| RJM SPA 01086 M01S01058.ppr +++| ADN 2 01087 M01S01059.ppr +++| CWD FS 01088 M01S01060.ppr +++| LDD TC 01089 M01S01061.ppr +++| NJN DDB22 IF DIRECT CALL 01090 M01S01062.ppr +++| DDB21 MONITOR DPPM DROP PPU 01091 M01S01063.ppr +++| LJM PPR EXIT TO PP RESIDENT 01092 M01S01064.ppr +++| 01093 M01S01065.ppr +++| DDB22 LDN 65 RESTORE PP 01094 M01S01066.ppr +++| STD CM 01095 M01S01067.ppr +++| LDD DR RESET *DFM* RETURN 01096 M01S01068.ppr +++| STM DFM 01097 M01S01069.ppr +++| LDD DP+2 LOAD ADDRESS OF DUMP BUFFER 01098 M01S01070.ppr +++| SHN 14 01099 M01S01071.ppr +++| ADD DP+3 01100 M01S01072.ppr +++| ADN 3 01101 M01S01073.ppr +++| CRM EPFW,CM 01102 M01S01074.ppr +++|* CRM MSFW,T2 RESTORE DRIVER AND CALLING PROGRAM 01103 M01S01075.ppr +++|* LDN DFPP CLEAR DUMP BUFFER INTERLOCK 01104 M01S01076.ppr +++|* CWM DDBB-5,ON 01105 M01S01077.ppr +++|* LJM DFM3 RETURN TO PPR 01106 M01S01078.ppr +++| TITLE SUBROUTINES. 01107 M01S01079.ppr +++| AOP SPACE 4,20 01108 M01S01080.ppr +++|** AOP - ADVANCE OUT POINTER. 01109 M01S01081.ppr +++|* 01110 M01S01082.ppr +++|* ENTRY (SL) = LENGTH OF SECTOR DATA. 01111 M01S01083.ppr +++|* (OT) = OUT POINTER. 01112 M01S01084.ppr +++|* (BL) = BUFFER LENGTH. 01113 M01S01085.ppr +++|* (ER) = ERROR STATUS. 01114 M01S01086.ppr +++|* (MI) = MAINTENANCE LOG MESSAGE LINK. 01115 M01S01087.ppr +++|* (ML - ML+4) = *BMLL* WORD. 01116 M01S01088.ppr +++|* (B2 - B2+4) = OUT POINTER WORD. 01117 M01S01089.ppr +++|* 01118 M01S01090.ppr +++|* EXIT (OT) ADVANCED IN PP AND CM. 01119 M01S01091.ppr +++|* (MI) ADVANCED TO FIRST MESSAGE IN NEXT SECTOR. 01120 M01S01092.ppr +++|* 01121 M01S01093.ppr +++|* USES T1. 01122 M01S01094.ppr +++|* 01123 M01S01095.ppr +++|* CALLS RDD, SPA. 01124 M01S01096.ppr +++|* 01125 M01S01097.ppr +++|* MACROS MONITOR. 01126 M01S01098.ppr +++| 01127 M01S01099.ppr +++| 01128 M01S01100.ppr +++| AOP3 LDD SL ADVANCE OUT POINTER BY SECTOR LENGTH 01129 M01S01101.ppr +++| RAD OT 01130 M01S01102.ppr +++| SBD BL 01131 M01S01103.ppr +++| MJN AOP4 IF NO WRAP AROUND 01132 M01S01104.ppr +++| STD OT 01133 M01S01105.ppr +++| AOP4 RJM SPA STORE OUT POINTER 01134 M01S01106.ppr +++| ADN 1 01135 M01S01107.ppr +++| CWD B2 01136 M01S01108.ppr +++| 01137 M01S01109.ppr +++| AOP SUBR ENTRY/EXIT 01138 M01S01110.ppr +++| AOPA UJN AOP3 ADVANCE OUT POINTER 01139 M01S01111.ppr +++|* LDD ER (MAINTENANCE LOG PROCESSING) 01140 M01S01112.ppr +++| ZJN AOP1 IF NO ERRORS 01141 M01S01113.ppr +++| RJM RDD RE-READ DAYFILE DATA 01142 M01S01114.ppr +++| AOP1 LDD MI SET PP BUFFER INDEX 01143 M01S01115.ppr +++| SHN 2 01144 M01S01116.ppr +++| ADD MI 01145 M01S01117.ppr +++| STD T1 01146 M01S01118.ppr +++| LDM BUF+2,T1 ADVANCE MESSAGE INDEX 01147 M01S01119.ppr +++| ZJN AOP2 IF BAD MESSAGE LENGTH 01148 M01S01120.ppr +++| RAD MI 01149 M01S01121.ppr +++| SBD HN 01150 M01S01122.ppr +++| MJN AOP1 IF NOT LAST MESSAGE IN SECTOR 01151 M01S01123.ppr +++| ADN 1 SET MESSAGE LINK FOR NEXT SECTOR 01152 M01S01124.ppr +++| STD MI 01153 M01S01125.ppr +++| SHN -6 01154 M01S01126.ppr +++| NJN AOP2 IF BAD MESSAGE LINK 01155 M01S01127.ppr +++| LDN BMLL STORE MESSAGE LINK 01156 M01S01128.ppr +++| CWD ML 01157 M01S01129.ppr +++| UJP AOP3 ADVANCE OUT POINTER 01158 M01S01130.ppr +++| 01159 M01S01131.ppr +++| AOP2 MONITOR HNGM 01160 M01S01132.ppr +++| UJN AOP2 HANG PP SOLID 01161 M01S01133.ppr +++| RDD SPACE 4,10 01162 M01S01134.ppr +++|** RDD - READ DAYFILE DATA. 01163 M01S01135.ppr +++|* 01164 M01S01136.ppr +++|* ENTRY (OT) = OUT POINTER. 01165 M01S01137.ppr +++|* (BL) = BUFFER LENGTH. 01166 M01S01138.ppr +++|* (SL) = LENGTH OF SECTOR DATA. 01167 M01S01139.ppr +++|* 01168 M01S01140.ppr +++|* EXIT (BUF) = SECTOR OF DAYFILE DATA. 01169 M01S01141.ppr +++|* 01170 M01S01142.ppr +++|* USES T0 - T2. 01171 M01S01143.ppr +++|* 01172 M01S01144.ppr +++|* CALLS SBA. 01173 M01S01145.ppr +++| 01174 M01S01146.ppr +++| 01175 M01S01147.ppr +++| RDD2 LDN BMLL READ MAINTENANCE LOG CONTROL WORD 01176 M01S01148.ppr +++| CRM BUF+2,ON 01177 M01S01149.ppr +++| 01178 M01S01150.ppr +++| RDD SUBR ENTRY/EXIT 01179 M01S01151.ppr +++| LDD SL SET NUMBER OF WORDS TO READ 01180 M01S01152.ppr +++| STD T2 01181 M01S01153.ppr +++| ADD OT 01182 M01S01154.ppr +++| SBD BL 01183 M01S01155.ppr +++| MJN RDD1 IF NO WRAP AROUND 01184 M01S01156.ppr +++| ZJN RDD1 IF NO WRAP AROUND 01185 M01S01157.ppr +++| STD T1 01186 M01S01158.ppr +++| LDD BL WORD COUNT FROM OUT TO END OF BUFFER 01187 M01S01159.ppr +++| SBD OT 01188 M01S01160.ppr +++| STD T2 01189 M01S01161.ppr +++| SHN 2 01190 M01S01162.ppr +++| ADD T2 01191 M01S01163.ppr +++| ADC BUF+2 BUFFER ADDRESS FOR FIRST READ 01192 M01S01164.ppr +++| RDDA EQU *-1 01193 M01S01165.ppr +++|* ADC BUF+7 (MAINTENANCE LOG PROCESSING) 01194 M01S01166.ppr +++| STM RDDB 01195 M01S01167.ppr +++| RJM SBA READ WRAP AROUND 01196 M01S01168.ppr +++| CRM **,T1 01197 M01S01169.ppr +++| RDDB EQU *-1 01198 M01S01170.ppr +++| RDD1 RJM SBA READ SECTOR OF DAYFILE DATA 01199 M01S01171.ppr +++| ADD OT 01200 M01S01172.ppr +++| CRM BUF+2,T2 01201 M01S01173.ppr +++| RDDC EQU *-1 01202 M01S01174.ppr +++|* CRM BUF+7,T2 (MAINTENANCE LOG PROCESSING) 01203 M01S01175.ppr +++| LJM RDDX RETURN 01204 M01S01176.ppr +++| RDDD EQU *-1 01205 M01S01177.ppr +++|* LJM RDD2 (MAINTENANCE LOG PROCESSING) 01206 M01S01178.ppr +++| SBA SPACE 4,10 01207 M01S01179.ppr +++|** SBA - SET BUFFER ADDRESS. 01208 M01S01180.ppr +++|* 01209 M01S01181.ppr +++|* ENTRY (RA) = REFERENCE ADDRESS FOR JOB DAYFILES. 01210 M01S01182.ppr +++|* (FT - FT+1) = BUFFER ADDRESS FOR SYSTEM DAYFILES. 01211 M01S01183.ppr +++|* 01212 M01S01184.ppr +++|* EXIT (A) = ABSOLUTE BUFFER ADDRESS. 01213 M01S01185.ppr +++|* 01214 M01S01186.ppr +++|* MACROS NFA. 01215 M01S01187.ppr +++| 01216 M01S01188.ppr +++| 01217 M01S01189.ppr +++| SBA1 NFA DAYN SET BUFFER ADDRESS IN NFL 01218 M01S01190.ppr +++| 01219 M01S01191.ppr +++| SBA SUBR ENTRY/EXIT 01220 M01S01192.ppr +++| SBAA LDD FT SET BUFFER ADDRESS IN CMR 01221 M01S01193.ppr +++|* UJN SBA1 (PROCESSING JOB DAYFILE) 01222 M01S01194.ppr +++| SHN 14 01223 M01S01195.ppr +++| ADD FT+1 01224 M01S01196.ppr +++| UJN SBAX RETURN 01225 M01S01197.ppr +++| 01226 M01S01198.ppr +++| ERRPL SBAA-SBA1-40 JUMP OUT OF RANGE 01227 M01S01199.ppr +++| SPA SPACE 4,10 01228 M01S01200.ppr +++|** SPA - SET POINTER ADDRESS. 01229 M01S01201.ppr +++|* 01230 M01S01202.ppr +++|* ENTRY (RA) = REFERENCE ADDRESS FOR JOB DAYFILES. 01231 M01S01203.ppr +++|* (DP - DP+1) = FWA DAYFILE POINTERS. 01232 M01S01204.ppr +++|* 01233 M01S01205.ppr +++|* EXIT (A) = DAYFILE BUFFER POINTER ADDRESS. 01234 M01S01206.ppr +++|* 01235 M01S01207.ppr +++|* MACROS NFA. 01236 M01S01208.ppr +++| 01237 M01S01209.ppr +++| 01238 M01S01210.ppr +++| SPA1 NFA DAPN SET POINTER ADDRESS IN NFL 01239 M01S01211.ppr +++| 01240 M01S01212.ppr +++| SPA SUBR ENTRY/EXIT 01241 M01S01213.ppr +++| SPAA LDD DP SET DAYFILE POINTER ADDRESS 01242 M01S01214.ppr +++|* UJN SPA1 (PROCESSING JOB DAYFILE) 01243 M01S01215.ppr +++| SHN 14-1 01244 M01S01216.ppr +++| ADD DI 01245 M01S01217.ppr +++| SHN 1 01246 M01S01218.ppr +++| ADD DP+1 01247 M01S01219.ppr +++| ADD DI 01248 M01S01220.ppr +++| SBN 3 01249 M01S01221.ppr +++| UJN SPAX RETURN 01250 M01S01222.ppr +++| 01251 M01S01223.ppr +++| ERRPL SPAA-SPA1-40 JUMP OUT OF RANGE 01252 M01S01224.ppr +++| 01253 M01S01225.ppr +++|* IF THIS TEST FAILS, INCREASE *DDLW* IN COMSMSC. *1MB* 01254 M01S01226.ppr +++|* INSURES THAT NO 16-BIT INSTRUCTIONS ARE WITHIN THE AREA 01255 M01S01227.ppr +++|* SAVED AND RESTORED BY *1DD*. 01256 M01S01228.ppr +++| 01257 M01S01229.ppr +++| ERRNG DDLW-* 01258 M01S01230.ppr +++| SPACE 4 01259 M01S01231.ppr +++| USE BUFFER 01260 M01S01232.ppr +++| 01261 M01S01233.ppr +++| A EQU MSFW+DFDS*5-65*5-DDFW BYTES SAVED FROM START OF *1DD* 01262 M01S01234.ppr +++| ERRNG A/5*5+DDFW-* *1DD* OVERFLOWS DUMP BUFFER 01263 M01S01235.ppr +++| 1RU TTL PPR/1RU - ISHARED UNIT RESERVE PROCESSOR. 01264 M01S01236.ppr +++| EJECT 01265 M01S01237.ppr +++| QUAL 1RU 01266 M01S01238.ppr +++| IDENT 1RU,PPFW 01267 M01S01239.ppr +++|*COMMENT PPR - ISHARED UNIT RESERVE PROCESSOR.
| Line S01240 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01268 M02S01240.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979. 01269 M01S00006.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01270 M01S01241.ppr +++| SPACE 4,10 01271 M01S01242.ppr +++|*** 1RU - ISHARED UNIT RESERVE PROCESSOR. 01272 M01S01243.ppr +++|* G. A. SCHUMACHER. 79/08/03. 01273 M01S01244.ppr +++|* J. J. EIKUM. 81/05/18. 01274 M01S01245.ppr +++|* J. J. EIKUM. 86/10/31. 01275 M01S01246.ppr +++| SPACE 4,10 01276 M01S01247.ppr +++|*** *1RU* IS CALLED WHEN A MONITOR FUNCTION THAT REQUIRES 01277 M01S01248.ppr +++|* ACCESS TO TABLES ON AN INDEPENDENT SHARED DEVICE IS ISSUED. 01278 M01S01249.ppr +++|* 01279 M01S01250.ppr +++|* *1RU* IS CALLED INTO A PP (STAND-ALONE MODE) IF ONE 01280 M01S01251.ppr +++|* IS AVAILABLE. IF THERE ARE NO FREE PPS, PART OF THE PP THAT 01281 M01S01252.ppr +++|* ISSUED THE FUNCTION IS SAVED IN A CENTRAL MEMORY SAVE AREA 01282 M01S01253.ppr +++|* AND *1RU* IS LOADED INTO THAT PP (OVERLAYING MODE). 01283 M01S01254.ppr +++|* 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 M01S01255.ppr +++|* *1RU* PERFORMS THE FOLLOWING ACTIONS- 01292 M01S01256.ppr +++|* 1. USING THE MASS STORAGE DRIVER, SET THE CONTROLLER AND 01293 M01S01257.ppr +++|* UNIT RESERVES IN THE HARDWARE. 01294 M01S01258.ppr +++|* 2. READ THE MST AND TRT FROM THE LABEL TRACK TO CM. 01295 M01S01259.ppr +++|* 3. REWRITE THE LABEL SECTOR WITH THE SOFTWARE RESERVE SET IN 01296 M01S01260.ppr +++|* WORD *SDGL*. 01297 M01S01261.ppr +++|* 4. IF OVERLAYING MODE, ISSUE THE ORIGINAL FUNCTION. 01298 M01S01262.ppr +++|* 5. WAIT FOR ALL FUNCTIONS TO BE PROCESSED. 01299 M01S01263.ppr +++|* 6. WRITE THE TRT, MRT, SECOND COPY OF THE MST, TRT, AND MRT. 01300 M01S01264.ppr +++|* 7. WRITE THE LABEL SECTOR WITH THE SOFTWARE RESERVE CLEAR. 01301 M01S01265.ppr +++|* 8. RELEASE THE HARDWARE RESERVES. 01302 M01S01266.ppr +++|* 9. IF OVERLAYING MODE, RESTORE PP MEMORY. 01303 M01S01267.ppr +++|* IF STAND-ALONE MODE, DROP THE PP.
| Line S01268 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 01304 M02S01268.ns2553 ---| SPACE 4,10 01305 M01S00008.ns2553 +++| EJECT 01306 M01S01269.ppr +++|*** ENTRY CONDITIONS. 01307 M01S01270.ppr +++|* 01308 M01S01271.ppr +++|* 01309 M01S01272.ppr +++|* FOR STAND-ALONE MODE- 01310 M01S00009.ns2553 +++|* 01311 M01S01273.ppr +++|* (IR+4) = EST ORDINAL. 01312 M01S01274.ppr +++|* 01313 M01S01275.ppr +++|* FOR OVERLAYING MODE- 01314 M01S00010.ns2553 +++|* 01315 M01S00011.ns2553 +++|* (MB+1, BYTES 1 - 2) = SAVE AREA ADDRESS. 01316 M01S01276.ppr +++|* (SAVE AREA WORD 1) = ORIGINAL OUTPUT REGISTER. 01317 M01S01277.ppr +++|* (SAVE AREA WORDS 2 - 7) = ORIGINAL MESSAGE BUFFER. 01318 M01S01278.ppr +++|* PP MEMORY SAVED IN THE SAVE AREA.
| Line S01279 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 01319 M02S01279.ns2553 ---|* (MB+1, BYTES 1 - 2) = SAVE AREA ADDRESS. 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 M01S01280.ppr +++| SPACE 4,10 01334 M01S01281.ppr +++|*** EXIT CONDITIONS. 01335 M01S01282.ppr +++|* 01336 M01S01283.ppr +++|* 01337 M01S01284.ppr +++|* FOR OVERLAYING MODE- 01338 M01S01285.ppr +++|* PP MEMORY IS RESTORED FROM THE PP SAVE AREA. 01339 M01S01286.ppr +++|* MESSAGE BUFFER IS UPDATED TO INFORMATION RETURNED 01340 M01S01287.ppr +++|* BY CPUMTR WHEN THE FUNCTION WAS PROCESSED. 01341 M01S01288.ppr +++| SPACE 4,10 01342 M01S01289.ppr +++|*** NOTE - THIS OVERLAY MUST RESIDE IN *RPL*. 01343 M01S01290.ppr +++| SPACE 4,10 01344 M01S01291.ppr +++|* COMMON DECKS. 01345 M01S01292.ppr +++| 01346 M01S01293.ppr +++| 01347 M01S01294.ppr +++|*CALL COMSMMF 01348 M01S01295.ppr +++|*CALL COMSLSD 01349 M01S01296.ppr +++| MACROS SPACE 4,10 01350 M01S01297.ppr +++|** MACROS. 01351 M01S01298.ppr +++| ERROR SPACE 4,10 01352 M01S01299.ppr +++|** ERROR - ERROR IN R/W OF SHARED DISK TABLES. 01353 M01S01300.ppr +++|* 01354 M01S01301.ppr +++|* 01355 M01S01302.ppr +++|* ERROR E 01356 M01S01303.ppr +++|* E= ERROR NUMBER. 01357 M01S01304.ppr +++|* 01358 M01S01305.ppr +++|* CALLS ERR. 01359 M01S01306.ppr +++| 01360 M01S01307.ppr +++| 01361 M01S01308.ppr +++| PURGMAC ERROR 01362 M01S01309.ppr +++| 01363 M01S01310.ppr +++| ERROR MACRO E 01364 M01S01311.ppr +++| MACREF ERROR 01365 M01S01312.ppr +++| LDN E 01366 M01S01313.ppr +++| LJM ERR PROCESS ERROR 01367 M01S01314.ppr +++| ERROR ENDM 01368 M01S01315.ppr +++| OVERLAY SPACE 4,10 01369 M01S01316.ppr +++|** OVERLAY - GENERATE OVERLAY CONSTANTS. 01370 M01S01317.ppr +++|* 01371 M01S01318.ppr +++|* OVERLAY (TEXT),LOAD 01372 M01S01319.ppr +++|* 01373 M01S01320.ppr +++|* ENTRY *TEXT* = TEXT FOR SUBTITLE. 01374 M01S01321.ppr +++|* *LOAD* = ORIGIN ADDRESS. 01375 M01S01322.ppr +++| 01376 M01S01323.ppr +++| PURGMAC OVERLAY 01377 M01S01324.ppr +++| 01378 M01S01325.ppr +++| OVERLAY MACRO TEXT,LOAD 01379 M01S01326.ppr +++| LOCAL OVL 01380 M01S01327.ppr +++| NOREF .N 01381 M01S01328.ppr +++| MACREF OVERLAY 01382 M01S01329.ppr +++| .N SET .N+1 01383 M01S01330.ppr +++| .M MICRO .N,1, UVWXYZ 01384 M01S01331.ppr +++| .O MICRO 1,3 "OVLB"".M" 01385 M01S01332.ppr +++| TTL PPR/".O" - ISHARED UNIT RESERVE PROCESSOR. 01386 M01S01333.ppr +++| IDENT ".O",OVL TEXT 01387 M01S01334.ppr +++| TITLE TEXT 01388 M01S01335.ppr +++|*COMMENT PPR - TEXT
| Line S01336 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01389 M02S01336.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP., 1987. 01390 M01S00007.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01391 M01S01337.ppr +++| ORG LOAD 01392 M01S01338.ppr +++| OVL BSS 0 01393 M01S01339.ppr +++| ENDM 01394 M01S01340.ppr +++| 01395 M01S01341.ppr +++| 01396 M01S01342.ppr +++| .N SET 0 01397 M01S01343.ppr +++| OVLB MICRO 1,, 3R BASE OVERLAY NAME 01398 M01S01344.ppr +++| DIRECT SPACE 4,10 01399 M01S01345.ppr +++|**** DIRECT LOCATION ASSIGNMENTS. 01400 M01S01346.ppr +++| 01401 M01S01347.ppr +++| BEGIN BSSN 16 01402 M01S01348.ppr +++| T8 BSSN 1 TEMPORARY 01403 M01S01349.ppr +++| T9 BSSN 1 TEMPORARY 01404 M01S01350.ppr +++| CN BSSN 5 CM WORD BUFFER 01405 M01S01351.ppr +++| CO BSSN 1 CURRENT OFFSET INTO TRT/MRT IN CM 01406 M01S01352.ppr +++| DL BSSN 1 DIT LENGTH 01407 M01S01353.ppr +++| DO BSSN 1 OFFSET TO DIT FROM START OF TRT 01408 M01S01354.ppr +++| TA BSSN 2 TRT ADDRESS IN CENTRAL MEMORY 01409 M01S01355.ppr +++| TL BSSN 1 TRT LENGTH 01410 M01S01356.ppr +++| ID BSSN 1 MACHINE ID 01411 M01S01357.ppr +++| MI BSSN 1 MACHINE INDEX FOR DEVICE 01412 M01S01358.ppr +++| SX BSSN 1 CONSTANT 6 01413 M01S01359.ppr +++| DT BSSN 1 DEVICE TYPE FROM EST 01414 M01S01360.ppr +++| MS BSSN 1 MST ADDRESS 01415 M01S01361.ppr +++| SA BSSN 2 PP SAVE AREA ADDRESS 01416 M01S01362.ppr +++| OR BSSN 5 OUTPUT REGISTER IMAGE BUFFER 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 M01S01363.ppr +++| EA BSSN 1 EXIT ADDRESS
| Line S01364 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01421 M02S01364.ns2579 ---| ERRNG IR-* DIRECT CELLS OVERFLOW INTO *IR*
| Line S01365 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01422 M02S01365.ns2579 ---| BSSN 10 RESERVED FOR *PPR* 01423 M01S01366.ppr +++| TM BSSN 5 START TIME 01424 M01S01367.ppr +++| EF BSSN 1 LABEL READ/WRITE ERROR FLAG 01425 M01S00004.ns2579 +++| EM BSSN 1 ERROR MESSAGE CM ADDRESS 01426 M01S01368.ppr +++| ERRNG ON-* DIRECT CELLS OVERFLOW INTO CONSTANTS 01427 M01S01369.ppr +++| END BSSN 01428 M01S01370.ppr +++| 01429 M01S01371.ppr +++|**** 01430 M01S01372.ppr +++| TITLE COMMON SUBROUTINES. 01431 M01S01373.ppr +++|*** CID - CHECK ISHARED DEVICE. 01432 M01S01374.ppr +++| 01433 M01S01375.ppr +++| 01434 M01S01376.ppr +++| ORG PPFW 01435 M01S01377.ppr +++| LJM PRS PRESET 01436 M01S01378.ppr +++| RESA EQU *-1 01437 M01S01379.ppr +++| LJM PRX PRESET *EXECUTE* CALL 01438 M01S01380.ppr +++| ERR SPACE 4,10 01439 M01S01381.ppr +++|*** ERR - ERROR PROCESSOR FOR MS READ OR WRITE ERRORS. 01440 M01S01382.ppr +++|* 01441 M01S01383.ppr +++|* ENTRY (A) = *R* IF READ ERROR, *W* IF WRITE ERROR. 01442 M01S01384.ppr +++|* 01443 M01S01385.ppr +++|* EXIT TO LOV (3RW). 01444 M01S01386.ppr +++|* (EF) = ERROR FLAG. 01445 M01S01387.ppr +++|* 01446 M01S01388.ppr +++|* MACROS EXECUTE. 01447 M01S01389.ppr +++| 01448 M01S01390.ppr +++| 01449 M01S01391.ppr +++| ERR BSS 0 ENTRY 01450 M01S01392.ppr +++| STD EF SET ERROR FLAG 01451 M01S01393.ppr +++| EXECUTE 3RW 01452 M01S01394.ppr +++| SPACE 4,10 01453 M01S01395.ppr +++|* COMMON DECKS. 01454 M01S01396.ppr +++| 01455 M01S01397.ppr +++| 01456 M01S01398.ppr +++| RLS$ EQU 1 ASSEMBLE *RLS* 01457 M01S01399.ppr +++| ISD$ EQU 1 PROCESS ONLY ISHARED DEVICES 01458 M01S01400.ppr +++| QUAL$ EQU 1 DO NOT QUALIFY *COMPCLC* 01459 M01S01401.ppr +++| LIST X 01460 M01S01402.ppr +++|*CALL COMPCLC 01461 M01S01403.ppr +++| LIST * 01462 M01S01404.ppr +++| SPACE 4,10
| Line S01405 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01463 M02S01405.ns2579 ---| MBSA BSS 0
| Line S01406 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01464 M02S01406.ns2579 ---| URSW EQU MBSA+6*5 LOAD ADDRESS FOR *3RU* 01465 M01S00005.ns2579 +++| URSW EQU *+5 LOAD ADDRESS FOR *1RU* OVERLAYS 01466 M01S01407.ppr +++| CID TITLE MAIN PROGRAM. 01467 M01S01408.ppr +++|*** CID - CHECK ISHARED DEVICE. 01468 M01S01409.ppr +++| 01469 M01S01410.ppr +++| 01470 M01S01411.ppr +++|* READ MST AND WRITE IT TO CM. 01471 M01S01412.ppr +++| 01472 M01S01413.ppr +++| CID BSS 0 ENTRY
| Line S01414 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 01473 M02S01414.ns2553 ---| CID1 ADK LSLT SET LABEL SECTOR 01474 M01S00025.ns2553 +++| ADK LSLT SET LABEL SECTOR 01475 M01S01415.ppr +++| STD T7 01476 M01S01416.ppr +++| LDC BFMS 01477 M01S01417.ppr +++| RJM RDS READ LABEL SECTOR INTO BFMS 01478 M01S01418.ppr +++| PJN CID2 IF NO ERROR 01479 M01S01419.ppr +++| ERROR ERDE *READ ERROR* 01480 M01S01420.ppr +++| 01481 M01S01421.ppr +++| CID2 RJM CLC CHECK THE LABEL CHECKSUM 01482 M01S01422.ppr +++| LMM CKSS 01483 M01S01423.ppr +++| ZJN CID3 IF CHECKSUM VALID 01484 M01S01424.ppr +++| ERROR ECKS *BAD CHECKSUM ERROR* 01485 M01S01425.ppr +++| 01486 M01S01426.ppr +++| CID3 LDM N4SS+PFGL*5 CHECK NAME AND DEVICE NUMBER 01487 M01S01427.ppr +++| LMD TM 01488 M01S01428.ppr +++| ADM N4SS+PFGL*5+1 01489 M01S01429.ppr +++| LMD TM+1 01490 M01S01430.ppr +++| ADM N4SS+PFGL*5+2 01491 M01S01431.ppr +++| LMD TM+2 01492 M01S01432.ppr +++| ADM N4SS+PFGL*5+3 01493 M01S01433.ppr +++| LMD TM+3 01494 M01S01434.ppr +++| CIDA ZJN CID4 IF NAME AND DEVICE NUMBER MATCH 01495 M01S01435.ppr +++|* UJN CID4 (INITIALIZE PENDING) 01496 M01S01436.ppr +++| ERROR EPNE *PACKNAME ERROR* 01497 M01S01437.ppr +++| 01498 M01S01438.ppr +++| CID4 LDD EA 01499 M01S01439.ppr +++| ZJN CID5 IF REPAIR CALL 01500 M01S01440.ppr +++| LDM N4SS+SDGL*5+4 01501 M01S01441.ppr +++| LPN 76 01502 M01S01442.ppr +++| ZJN CID6 IF SW RESERVE NOT SET 01503 M01S01443.ppr +++| SHN -1 GET MID OF MAINFRAME WITH RESERVE 01504 M01S01444.ppr +++| STD T1 01505 M01S01445.ppr +++| SHN 2 01506 M01S01446.ppr +++| RAD T1 01507 M01S01447.ppr +++| LDM DISS-5+4,T1 01508 M01S01448.ppr +++| STM RESA 01509 M01S01449.ppr +++| LMD ID 01510 M01S01450.ppr +++| CID5 ZJP CID13 IF IT-S THIS MAINFRAME-S ID 01511 M01S01451.ppr +++| ERROR ERES *RESERVE ERROR* 01512 M01S01452.ppr +++| 01513 M01S01453.ppr +++| CID6 STD CO CLEAR TRT OFFSET 01514 M01S01454.ppr +++| LDD HN SET NUMBER OF WORDS TO WRITE TO CM 01515 M01S01455.ppr +++| STD TM 01516 M01S01456.ppr +++| LDD TL 01517 M01S01457.ppr +++| STD TM+1
| Line S01458 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01518 M02S01458.ns2579 ---| LDC 200
| Line S01459 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01519 M02S01459.ns2579 ---| RAM N4SS+SDGL*5 SET TABLES INCOMPLETE STATUS 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 M01S01460.ppr +++| LDD MS 01525 M01S01461.ppr +++| SHN 3 01526 M01S01462.ppr +++| CWM N4SS,TR WRITE GLOBAL MST 01527 M01S01463.ppr +++| ADK SDGL-TDGL-3 01528 M01S01464.ppr +++| CRD CN UPDATE PP COPY OF *SDGL* 01529 M01S01465.ppr +++| LDD TA GET TRT ADDRESS 01530 M01S01466.ppr +++| SHN 14 01531 M01S01467.ppr +++| LMD TA+1 01532 M01S01468.ppr +++| ADD DO ADD DIT OFFSET FOR THE DIT CM ADDRESS 01533 M01S01469.ppr +++| CWM DISS,DL 01534 M01S01470.ppr +++| LDM N4SS+STLL*5+2 01535 M01S01471.ppr +++| LMD ID 01536 M01S01472.ppr +++| ZJN CID10 IF MST/TRT CURRENT IN CM 01537 M01S01473.ppr +++| 01538 M01S01474.ppr +++|* READ TRT AND WRITE IT TO CM. 01539 M01S01475.ppr +++| 01540 M01S01476.ppr +++| ERRNZ TRLT-LSLT-1 TRT DOES NOT FOLLOW LABEL SECTOR 01541 M01S01477.ppr +++| CID7 AOD T7 INCREMENT SECTOR NUMBER 01542 M01S01478.ppr +++| LDC -100 DECREMENT TRT WORDS LEFT 01543 M01S01479.ppr +++| RAD TM+1 01544 M01S01480.ppr +++| PJN CID8 IF ONE OR MORE SECTORS OF TRT LEFT 01545 M01S01481.ppr +++| RAD TM 01546 M01S01482.ppr +++| SBN 1 01547 M01S01483.ppr +++| MJN CID10 IF END OF TRT 01548 M01S01484.ppr +++| LDN 0 01549 M01S01485.ppr +++| STD TM+1 01550 M01S01486.ppr +++| CID8 LDC BFMS READ NEXT SECTOR 01551 M01S01487.ppr +++| RJM RDS 01552 M01S01488.ppr +++| PJN CID9 IF NO ERROR 01553 M01S01489.ppr +++| ERROR ERDE *READ ERROR* 01554 M01S01490.ppr +++| 01555 M01S01491.ppr +++| CID9 LDD TA 01556 M01S01492.ppr +++| SHN 14 01557 M01S01493.ppr +++| ADD TA+1 01558 M01S01494.ppr +++| ADD CO 01559 M01S01495.ppr +++| CWM BFMS+2,TM WRITE SECTOR OF TRT DATA TO CM 01560 M01S01496.ppr +++| LDD TM 01561 M01S01497.ppr +++| RAD CO 01562 M01S01498.ppr +++| UJN CID7 READ NEXT SECTOR 01563 M01S01499.ppr +++| 01564 M01S01500.ppr +++|* WHEN AN ERROR IS DETECTED DURING THE READ, THE READ IS 01565 M01S01501.ppr +++|* ATTEMPTED WITH ENDMS ENABLED TO ALLOW DRIVER ERROR PROCESSING 01566 M01S01502.ppr +++|* TO OCCUR. AFTER IT IS SUCCESSFULLY READ WITH ENDMS ENABLED, 01567 M01S01503.ppr +++|* THE LABEL MUST BE RE-READ WITH ENDMS DISABLED TO ENSURE THAT 01568 M01S01504.ppr +++|* ALL OF THE SECTORS ARE READ WITH THE HARDWARE RESERVE SET. 01569 M01S01505.ppr +++| 01570 M01S01506.ppr +++| CID10 LDM UERR CHECK ENDMS DISABLED FLAG 01571 M01S01507.ppr +++| SHN 21-10 01572 M01S01508.ppr +++| ERRNZ EPDE-EPSM-400 01573 M01S01509.ppr +++| MJN CID11 IF ENDMS STILL DISABLED 01574 M01S01510.ppr +++| LJM PRS7 RESTART READ 01575 M01S01511.ppr +++| 01576 M01S01512.ppr +++|* COMPARE MST COUNTER AND COUNTER AT END OF TRT. 01577 M01S01513.ppr +++| 01578 M01S01514.ppr +++| CID11 LDD T7 01579 M01S01515.ppr +++| ZJN CID12 IF *TRT* NOT READ 01580 M01S01516.ppr +++| LDM BFMS+2+77*5+4 01581 M01S01517.ppr +++| LMD CN+4 01582 M01S01518.ppr +++| SCN 77 01583 M01S01519.ppr +++| ADM BFMS+2+77*5+3 01584 M01S01520.ppr +++| LMD CN+3 01585 M01S01521.ppr +++| ADM BFMS+2+77*5+2 01586 M01S01522.ppr +++| LMD CN+2 01587 M01S01523.ppr +++| ZJN CID12 IF COUNTERS MATCH 01588 M01S01524.ppr +++| ERROR ECDM *COUNTERS DONT MATCH* 01589 M01S01525.ppr +++| 01590 M01S01526.ppr +++| CID12 LDC -200 CLEAR TABLES INCOMPLETE STATUS 01591 M01S01527.ppr +++| RAD CN 01592 M01S01528.ppr +++| LDD MS 01593 M01S01529.ppr +++| SHN 3 01594 M01S01530.ppr +++| ADK SDGL 01595 M01S01531.ppr +++| CWD CN 01596 M01S01532.ppr +++| CID13 EXECUTE 3RU 01597 M01S01533.ppr +++| TITLE PRESET. 01598 M01S01534.ppr +++| PRS SPACE 4,25 01599 M01S01535.ppr +++|*** PRS - PRESET FOR 1RU OVERLAY. 01600 M01S01536.ppr +++|* 01601 M01S01537.ppr +++|* ENTRY (MB+1) = 12/, 24/ FWA+10B OF PP SAVE AREA, 24/, 01602 M01S01538.ppr +++|* IF NOT STAND ALONE CALL. 01603 M01S01539.ppr +++|* (CHRV) = BIT ZERO SET IF DISK CHANNEL RESERVED. 01604 M01S01540.ppr +++|* (IR+4) = EST ORDINAL IF STAND-ALONE CALL. 01605 M01S01541.ppr +++|* 01606 M01S01542.ppr +++|* EXIT (CN - CN+4) = (*SDGL*). 01607 M01S01543.ppr +++|* (DL) = DIT LENGTH. 01608 M01S01544.ppr +++|* (DO) = DIT OFFSET FROM BEGINNING OF MST. 01609 M01S01545.ppr +++|* (DT) = DEVICE TYPE. 01610 M01S01546.ppr +++|* (EA) = EXIT ADDRESS = (*FTN*). 01611 M01S01547.ppr +++|* 0, IF CALLED BY *1MV* VIA *EXECUTE*. 01612 M01S01548.ppr +++|* (EF) = 0. 01613 M01S00010.ns2579 +++|* (EM) = 0. 01614 M01S01549.ppr +++|* (ID) = MACHINE ID FOR THIS MAINFRAME. 01615 M01S01550.ppr +++|* (MS) = MST ADDRESS/10. 01616 M01S01551.ppr +++|* (OR - OR+4) = ORIGINAL OUTPUT REGISTER. 01617 M01S00011.ns2579 +++|* (RI) = RETURN-ON-INACCESSIBLE FLAG. 01618 M01S01552.ppr +++|* (SA - SA+1) = FWA + 10B OF PP SAVE AREA. 01619 M01S01553.ppr +++|* (SX) = LENGTH OF MESSAGE BUFFER IN CM WORDS. (6) 01620 M01S01554.ppr +++|* (TA - TA+1) = FWA OF TRT IN CENTRAL MEMORY. 01621 M01S01555.ppr +++|* (TL) = TRT LENGTH. 01622 M01S01556.ppr +++|* (TM - TM+4) = (*PFGL*). 01623 M01S01557.ppr +++|* (T5) = MS EST ORDINAL. 01624 M01S01558.ppr +++|* (T6) = LABEL TRACK NUMBER. 01625 M01S01559.ppr +++| 01626 M01S01560.ppr +++| 01627 M01S01561.ppr +++| PRS BSS 0 01628 M01S01562.ppr +++| LDM FTN SAVE EXIT ADDRESS 01629 M01S01563.ppr +++| STD EA 01630 M01S01564.ppr +++| LDC FTN RESTORE *PAUSE* MACRO IN *PLL* 01631 M01S01565.ppr +++| STM PLLD 01632 M01S01566.ppr +++| LDD IR+1 01633 M01S01567.ppr +++| SCN 77 01634 M01S01568.ppr +++| SHN 6 01635 M01S01569.ppr +++| LMD IR 01636 M01S01570.ppr +++| LMC 3RU1R
| Line S01571 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01637 M02S01571.ns2579 ---|* 01638 M01S00012.ns2579 +++| 01639 M01S01572.ppr +++|* ENTER HERE TO RESTART UNIT RESERVATION. 01640 M01S01573.ppr +++|* 01641 M01S01574.ppr +++|* (A) = 0, IF STANDALONE CALL. 01642 M01S01575.ppr +++|* (EA) = EXIT ADDRESS.
| Line S01576 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01643 M02S01576.ns2579 ---|* 01644 M01S00013.ns2579 +++| 01645 M01S01577.ppr +++| RUR NJN PRS1 IF NOT RUNNING STAND-ALONE 01646 M01S01578.ppr +++| STD SA INDICATE NO SAVE AREA 01647 M01S01579.ppr +++| STD SA+1 01648 M01S01580.ppr +++| LDK CTCS 01649 M01S01581.ppr +++| STD OR+3 01650 M01S01582.ppr +++| MONITOR SMDM PRESET SMDM/CTCS IN *OR* 01651 M01S01583.ppr +++| ORG *-2 01652 M01S01584.ppr +++| STD OR 01653 M01S00014.ns2579 +++| LDD TH FORCE RETURN-ON-INACCESSIBLE-DEVICE 01654 M01S00015.ns2579 +++| STD RI 01655 M01S01585.ppr +++| LDD IR+4 01656 M01S01586.ppr +++| STD OR+1 01657 M01S01587.ppr +++| UJN PRS2 GET EQUIPMENT INFORMATION 01658 M01S01588.ppr +++| 01659 M01S01589.ppr +++| PRS1 LDD MA GET SAVE AREA ADDRESS 01660 M01S01590.ppr +++| ADN 1 01661 M01S01591.ppr +++| CRD SA-1 01662 M01S01592.ppr +++| LDD SA GET ORIGINAL OUTPUT REGISTER 01663 M01S01593.ppr +++| SHN 14 01664 M01S01594.ppr +++| LMD SA+1 01665 M01S01595.ppr +++| SBN 7 01666 M01S01596.ppr +++| CRD OR 01667 M01S01597.ppr +++| ADC .RST+7 WRITE *RST* TO PP SAVE AREA 01668 M01S01598.ppr +++| CWM PRSA,TR 01669 M01S01599.ppr +++| LDD OR+1 INSURE RETURN-ON-INACCESSIBLE IS SET 01670 M01S00016.ns2579 +++| STD RI 01671 M01S01600.ppr +++| LPC -1000 01672 M01S01601.ppr +++| LMD TH 01673 M01S01602.ppr +++| STD OR+1
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01674 M02S00026.ns2579 ---| UJN PRS2 GET EQUIPMENT INFORMATION 01675 M01S01603.ppr +++|
| Line S01604 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01676 M02S01604.ns2579 ---|* ENTER HERE TO RETRY DEVICE IDENTIFICATION. 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 M01S01605.ppr +++|*
| Line S01606 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01699 M02S01606.ns2579 ---|* (EA) = EXIT ADDRESS.
| Line S01607 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01700 M02S01607.ns2579 ---|* (OR - OR+4) = FUNCTION TO BE ISSUED WHEN DEVICE IS RESERVED.
| Line S01608 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01701 M02S01608.ns2579 ---|* (SA - SA+1) = SAVE AREA ADDRESS.
| Line S01609 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01702 M02S01609.ns2579 ---|* 0 = STANDALONE CALL. 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 M01S01610.ppr +++|
| Line S01611 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 01709 M02S01611.ns2553 ---| RDI LDD OR+1 GET EST ORDINAL
| Line S01612 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 01710 M02S01612.ns2553 ---| LPC 777
| Line S01613 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 01711 M02S01613.ns2553 ---| PRS2 STD T5
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01712 M02S00027.ns2579 ---| RDI LDC UJNI+PRS8-PRSB IGNORE CHANNEL RESERVE AND *SETMS*
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01713 M02S00028.ns2579 ---| ERRPL PRS8-PRSB-40B JUMP OUT OF RANGE
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01714 M02S00029.ns2579 ---| ERRNG PRS8-PRSB+37B JUMP OUT OF RANGE
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01715 M02S00030.ns2579 ---| STM PRSB
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01716 M02S00031.ns2579 ---| LDD OR+1 GET EST ORDINAL
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01717 M02S00032.ns2579 ---| PRS2 LPC 777
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01718 M02S00033.ns2579 ---| STD T5
| Line S01614 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01719 M02S01614.ns2579 ---| SFA EST READ EST ENTRY 01720 M01S00043.ns2579 +++| 01721 M01S00044.ns2579 +++| RDI SFA EST,T5 READ EST ENTRY 01722 M01S01615.ppr +++| ADK EQDE 01723 M01S01616.ppr +++| CRD DT-3 01724 M01S01617.ppr +++| LDD MS GET MST ADDRESS 01725 M01S01618.ppr +++| SHN 3 01726 M01S01619.ppr +++| ADK TDGL SET TRT LENGTH 01727 M01S01620.ppr +++| CRD TL-2 01728 M01S01621.ppr +++| ADN SDGL-TDGL 01729 M01S01622.ppr +++| CRD CN 01730 M01S01623.ppr +++| ADN ALGL-SDGL 01731 M01S01624.ppr +++| CRD T6 01732 M01S01625.ppr +++| ADN PFGL-ALGL 01733 M01S01626.ppr +++| CRD TM 01734 M01S01627.ppr +++| ADN DULL-PFGL 01735 M01S01628.ppr +++| CRD CM+3 01736 M01S01629.ppr +++| ADN STLL-DULL 01737 M01S01630.ppr +++| CRD CM 01738 M01S01631.ppr +++| ADN TRLL-STLL 01739 M01S01632.ppr +++| CRD TA-3 01740 M01S01633.ppr +++| LDD T6+1 SET LABEL TRACK 01741 M01S01634.ppr +++| STD T6 01742 M01S01635.ppr +++| LDD CM 01743 M01S01636.ppr +++| LPC MLIAL+MLIHD+MLIFD
| Line S01637 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01744 M02S01637.ns2579 ---| ZJN PRS3 IF NO INITIALIZE PENDING 01745 M01S00045.ns2579 +++| ZJN RDI1 IF NO INITIALIZE PENDING 01746 M01S01638.ppr +++| ISTORE CIDA,(UJN CID4) IGNORE PACKNAME CHECK
| Line S01639 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01747 M02S01639.ns2579 ---| PRS3 LDD CM+2 SET MACHINE ID 01748 M01S00046.ns2579 +++| RDI1 LDD CM+2 SET MACHINE ID 01749 M01S01640.ppr +++| STD ID 01750 M01S01641.ppr +++| LDD CM+3+2 SET MACHINE INDEX 01751 M01S01642.ppr +++| LPN 17 01752 M01S01643.ppr +++| ADN 1 01753 M01S01644.ppr +++| STD MI 01754 M01S01645.ppr +++| LDD TL 01755 M01S01646.ppr +++| ADN 7 CALCULATE DIT OFFSET 01756 M01S01647.ppr +++| SHN -3 01757 M01S01648.ppr +++| ADD TL 01758 M01S01649.ppr +++| STD DO 01759 M01S01650.ppr +++| LDN MISD SET CONSTANTS 01760 M01S01651.ppr +++| STD DL 01761 M01S01652.ppr +++| LDN 6 01762 M01S01653.ppr +++| STD SX 01763 M01S00034.ns2553 +++| LDN 0 CLEAR ERROR FLAG 01764 M01S00035.ns2553 +++| STD EF
| Line S01654 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01765 M02S01654.ns2579 ---|
| Line S01655 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01766 M02S01655.ns2579 ---|* BEGIN UNIT RESERVE SPECIAL PROCESSING.
| Line S01656 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01767 M02S01656.ns2579 ---|
| Line S01657 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2553 |
M03 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01768 M03S01657.ns2579 ---| LDM CHRV
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01769 M02S00036.ns2579 ---| PRSB LDM CHRV
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01770 M02S00037.ns2579 ---|* UJN PRS8 (RETRYING REQUEST)
| Line S01658 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01771 M02S01658.ns2579 ---| LPN 1
| Line S01659 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2553 |
M03 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01772 M03S01659.ns2579 ---|* LDN 0 (PACKNAME ERROR HAS OCCURRED)
| Line S01660 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2553 |
M03 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01773 M03S01660.ns2579 ---| PRSB EQU *-1
| Line S01661 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01774 M02S01661.ns2579 ---| ZJN PRS6 IF CHANNEL RESERVE NOT HELD
| Line S01662 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01775 M02S01662.ns2579 ---| LDC * ISSUE CONDITIONAL HANG MONITOR FUNCTION
| Line S01663 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01776 M02S01663.ns2579 ---| STD CM+1
| Line S01664 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01777 M02S01664.ns2579 ---| LDN 0
| Line S01665 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01778 M02S01665.ns2579 ---| STD CM+2
| Line S01666 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01779 M02S01666.ns2579 ---| MONITOR CHGM
| Line S01667 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2553 |
M03 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01780 M03S01667.ns2579 ---| PRS6 STD EF CLEAR ERROR FLAG
| Line S01668 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2553 |
M03 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01781 M03S01668.ns2579 ---| LDD EA
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01782 M02S00038.ns2579 ---| PRS6 LDD EA
| Line S01669 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01783 M02S01669.ns2579 ---| NJN PRS7 IF NOT REPAIR CALL
| Line S01670 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01784 M02S01670.ns2579 ---| SETMS IO,(AD,DE,DF)
| Line S01671 Modification History | |
|---|---|
M01 (Added by) | ppr |
M02 (Updated by) | ns2579 |
Seq # *Modification Id* Act ----------------------------+ 01785 M02S01671.ns2579 ---| UJN PRS8 READ TABLES AND PROCESS FUNCTION
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/ppr.txt · Last modified: by 127.0.0.1