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