cdc:nos2.source:opl.opl871:common:compppr
Common COMPPPR
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.compppr +++| CTEXT COMPPPR - NPP AND CPP RESIDENT CODE. 00002 M00S00002.compppr +++| SPACE 4,10 00003 M00S00003.compppr +++| .A IF DEF,CPP$ 00004 M00S00004.compppr +++| .PP MICRO 1,, CPP SET CPP ASSEMBLY FLAG 00005 M00S00005.compppr +++| .A ELSE 00006 M00S00006.compppr +++| .PP MICRO 1,, NPP SET NPP ASSEMBLY FLAG 00007 M00S00007.compppr +++| .A ENDIF 00008 M00S00008.compppr +++| QUAL UNQUALIFY THE SYMBOLS DEFINED
| Line S00009 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00009.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1986.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M00S00010.compppr +++| PPR SPACE 4,10 00012 M00S00011.compppr +++|*** PPR - NPP AND CPP RESIDENT CODE. 00013 M00S00012.compppr +++|* 00014 M00S00013.compppr +++|* G. R. MANSFIELD. 70/12/12. 00015 M00S00014.compppr +++|* R. E. TATE. 73/01/05. 00016 M00S00015.compppr +++|* P. D. HAAS. 75/04/19. 00017 M00S00016.compppr +++|* W. E. GOEBEL. 78/04/29. 00018 M00S00017.compppr +++|* J. M. MAREK. 86/03/10. 00019 M00S00018.compppr +++| SPACE 4,10 00020 M00S00019.compppr +++|*** *COMPPPR* SUPPLIES THE CODE NECESSARY TO ASSEMBLE PP RESIDENT 00021 M00S00020.compppr +++|* FOR A NONCONCURRENT PP (NPP) AND A CONCURRENT PP (CPP). 00022 M00S00021.compppr +++|* CPP-S ARE ONLY AVAILABLE IN A CYBER 180 MODEL I4 IOU. THEY 00023 M00S00022.compppr +++|* HAVE 8K MEMORIES AND USE CONCURRENT CHANNELS (CCH), BUT 00024 M00S00023.compppr +++|* OTHERWISE THEY ARE VERY SIMILAR TO NPP-S. 00025 M00S00024.compppr +++|* 00026 M00S00025.compppr +++|* *COMPPPR* CONTAINS SEVERAL *LONG* INSTRUCTIONS WHICH ACCESS 00027 M00S00026.compppr +++|* THE FULL 16 BITS IN A CYBER 180 PP-S MEMORY. THESE INSTRUC- 00028 M00S00027.compppr +++|* TIONS ARE ASSEMBLED AS *SHORT* INSTRUCTIONS AND ARE CHANGED 00029 M00S00028.compppr +++|* INTO LONG INSTRUCTIONS BY PRESET CODE WHEN *PPR* IS LOADED 00030 M00S00029.compppr +++|* INTO A CONCURRENT PP. THE LONG INSTRUCTIONS ARE REQUIRED TO 00031 M00S00030.compppr +++|* HANDLED ADDRESSES THAT MAY ORIGINATE FROM ANYWHERE IN AN 8K 00032 M00S00031.compppr +++|* MEMORY. 00033 M00S00032.compppr +++|* 00034 M00S00033.compppr +++|* *CPP$* MUST BE UNDEFINED TO PRODUCE THE NPP RESIDENT CODE. 00035 M00S00034.compppr +++|* WHENEVER IT IS DEFINED, CPP RESIDENT CODE WILL BE PRODUCED. 00036 M00S00035.compppr +++|* 00037 M00S00036.compppr +++|* XREF COMPIOU, COMSMSC.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00038 M01S00001.253l688 +++| SPACE 4,10 00039 M01S00002.253l688 +++|*** THE FOLLOWING PP OUTPUT REGISTER FUNCTIONS ARE PASSED 00040 M01S00003.253l688 +++|* FROM *CPUMTR* TO *PPR* AND ARE PROCESSED BY *PPR*. 00041 M01S00004.253l688 +++| ASCM SPACE 4,10 00042 M01S00005.253l688 +++|*** ASCM - AVOID SEARCH CALL. 00043 M01S00006.253l688 +++|* 00044 M01S00007.253l688 +++|* THE *SPLM* LIBRARY SEARCH HAS ALREADY BEEN PERFORMED FOR 00045 M01S00008.253l688 +++|* THE NEXT PP LOAD. 00046 M01S00009.253l688 +++|* 00047 M01S00010.253l688 +++|* 12/ ASCM,48/ *SPLM* REPLY PARAMETERS 00048 M01S00011.253l688 +++| BOTM SPACE 4,10 00049 M01S00012.253l688 +++|*** BOTM - BEGIN OVERLAYING TASK. 00050 M01S00013.253l688 +++|* 00051 M01S00014.253l688 +++|* LOAD A BOOTSTRAP PROGRAM IN HIGH PP MEMORY. 00052 M01S00015.253l688 +++|* 00053 M01S00016.253l688 +++|*T, OR 12/ BOTM,24/ FWA,12/ P1,12/ P2
Figure OR
00054 M01S00017.253l688 +++|* FWA ADDRESS OF BOOTSTRAP CODE. 00055 M01S00018.253l688 +++|* P1 PARAMETER FOR BOOTSTRAP PROGRAM. 00056 M01S00019.253l688 +++|* P2 PARAMETER FOR BOOTSTRAP PROGRAM.
| Line S00037 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00057 M01S00037.273l780 ---| COMMON SPACE 4,10 00058 M01S00038.273l780 ---|* COMMON DECKS - IF NOT ALREADY CALLED. 00059 M01S00039.273l780 ---| 00060 M01S00040.273l780 ---| 00061 M01S00041.273l780 ---|* CTEXT COMPIOU - IOU INSTRUCTION DEFINITIONS. 00062 M01S00042.273l780 ---|* CTEXT COMSMSC - MISCELLANEOUS SYSTEM CONSTANTS. 00063 M01S00043.273l780 ---| 00064 M01S00044.273l780 ---| LIST -X 00065 M01S00045.273l780 ---|*CALLC COMPIOU 00066 M01S00046.273l780 ---|*CALLC COMSMSC 00067 M01S00047.273l780 ---| LIST * 00068 M00S00048.compppr +++| SPACE 4,10 00069 M00S00049.compppr +++|**** ASSEMBLY CONSTANTS. 00070 M00S00050.compppr +++| 00071 M00S00051.compppr +++| 00072 M00S00052.compppr +++| DEC MICRO 1,, PPR DECK NAME 00073 M00S00053.compppr +++| DIRECT SPACE 4,10 00074 M00S00054.compppr +++|** DIRECT LOCATION ASSIGNMENTS. 00075 M00S00055.compppr +++| 00076 M00S00056.compppr +++| 00077 M00S00057.compppr +++| LOC 0 00078 M00S00058.compppr +++| T0 CON 0 TEMPORARY STORAGE 00079 M00S00059.compppr +++| T1 CON 0 00080 M00S00060.compppr +++| T2 CON 0 00081 M00S00061.compppr +++| T3 CON 0 00082 M00S00062.compppr +++| T4 CON 0 00083 M00S00063.compppr +++| T5 CON 0 00084 M00S00064.compppr +++| T6 CON 0 00085 M00S00065.compppr +++| T7 CON 0 00086 M00S00066.compppr +++| 00087 M00S00067.compppr +++| CM VFD 60/0 CM WORD BUFFER 00088 M00S00068.compppr +++| LA CON 0 PP PACKAGE LOAD ADDRESS 00089 M00S00069.compppr +++| T8 CON 0 TEMPORARY STORAGE 00090 M00S00070.compppr +++| T9 CON 0 00091 M00S00071.compppr +++| 00092 M00S00072.compppr +++|* THE FOLLOWING 15D DIRECT CELLS ARE NORMALLY UNUSED. 00093 M00S00073.compppr +++|* HOWEVER, FOR THE BENEFIT OF CERTAIN PP PROGRAMS, *PPR* 00094 M00S00074.compppr +++|* READS THE FIRST THREE WORDS OF THE PP MESSAGE BUFFER 00095 M00S00075.compppr +++|* INTO THIS AREA IMMEDIATELY AFTER PP ASSIGNMENT SO THAT 00096 M00S00076.compppr +++|* THE INFORMATION IS NOT DESTROYED BY LOADING OF THE PP. 00097 M00S00077.compppr +++| 00098 M00S00078.compppr +++| MP BSS 3*5 MESSAGE BUFFER PARAMETERS 00099 M00S00079.compppr +++| 00100 M00S00080.compppr +++| BSS 50-* UNUSED AREA 00101 M00S00081.compppr +++| 00102 M00S00082.compppr +++| IR VFD 60/0 INPUT REGISTER 00103 M00S00083.compppr +++| RA CON 0 REFERENCE ADDRESS/100 00104 M00S00084.compppr +++| FL CON 0 FIELD LENGTH/100 00105 M00S00085.compppr +++| CON 0 UNUSED 00106 M00S00086.compppr +++| 00107 M00S00087.compppr +++| BSS 70-* UNUSED 00108 M00S00088.compppr +++| 00109 M00S00089.compppr +++| ON CON 1 CONSTANT 1 00110 M00S00090.compppr +++| HN CON 100 CONSTANT 100 00111 M00S00091.compppr +++| D1 EQU HN USE FOR INDIRECT REFERENCE TO *DRSW* 00112 M00S00092.compppr +++| TH CON 1000 CONSTANT 1000 00113 M00S00093.compppr +++| TR CON 3 CONSTANT 3 00114 M00S00094.compppr +++| CP CON 0 CONTROL POINT ADDRESS 00115 M00S00095.compppr +++| IA CON 0 INPUT REGISTER ADDRESS 00116 M00S00096.compppr +++| OA CON 0 OUTPUT REGISTER ADDRESS 00117 M00S00097.compppr +++| MA CON 0 MESSAGE BUFFER ADDRESS 00118 M00S00098.compppr +++| DRSW CON 0 DRIVER SCRATCH 00119 M00S00099.compppr +++| ERRNZ DRSW-100 USE OF *D1* REQUIRES DRSW = 100 00120 M00S00100.compppr +++| 00121 M00S00101.compppr +++| WDSE CON 0 WRITE ERROR PROCESSING BUFFER ADDRESS 00122 M00S00102.compppr +++| ERXA CON 0 *RDS/WDS* EXIT ADDRESS FOR *7ES* 00123 M00S00103.compppr +++| RDCT CON 0 MS ERROR PROCESSOR INTERFACE WORD 00124 M00S00104.compppr +++| STSA CON 0 DEVICE STATUS 00125 M00S00105.compppr +++| STSB CON 0 DRIVER CHANNEL ERROR STATUS 00126 M00S00106.compppr +++| UERR CON 0 ERROR PROCESSING OPTIONS 00127 M00S00107.compppr +++| SLM CON 0 SECTOR LIMIT
| Line S00108 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00128 M01S00108.252l678 ---| MSD CON 2R** MASS STORAGE DESIGNATOR WORD
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00129 M01S00001.252l678 +++| MSD CON 77 MASS STORAGE DESIGNATOR WORD 00130 M00S00109.compppr +++| CHRV CON 0 CHANNEL RESERVATION INDICATOR 00131 M00S00110.compppr +++|**** 00132 M00S00111.compppr +++| PPR TITLE PP RESIDENT. 00133 M00S00112.compppr +++| FTN SPACE 4,10 00134 M00S00113.compppr +++|*** FTN - PROCESS MONITOR FUNCTION. 00135 M00S00114.compppr +++|* ALSO PAUSES WHEN ENTERED WITH (A) = 0. 00136 M00S00115.compppr +++|* 00137 M00S00116.compppr +++|* ENTRY (A) = FUNCTION. 00138 M00S00117.compppr +++|* (A) = 0 IF TO PAUSE FOR RELOCATION. 00139 M00S00118.compppr +++|* (CM+1 - CM+4) = PARAMETERS, IF FUNCTION PRESENT. 00140 M00S00119.compppr +++|* 00141 M00S00120.compppr +++|* EXIT (A) = 0. 00142 M00S00121.compppr +++|* (CM - CM+4) = CONTENTS OF OUTPUT REGISTER. 00143 M00S00122.compppr +++|* (RA) = REFERENCE ADDRESS. 00144 M00S00123.compppr +++|* (FL) = FIELD LENGTH. 00145 M00S00124.compppr +++| 00146 M00S00125.compppr +++| 00147 M00S00126.compppr +++| OFTNA SET *O 00148 M00S00127.compppr +++| FTNA VFD 6/0 00149 M00S00128.compppr +++| VFD 18/0 (P) 00150 M00S00129.compppr +++| VFD 18/0 (A0) 00151 M00S00130.compppr +++| VFD 18/0 (B0) 00152 M00S00131.compppr +++| ORG OFTNA+4 00153 M00S00132.compppr +++| LOC FTNA+4 00154 M00S00133.compppr +++| FTN7 SHN 21-13 CHECK RETRY OF REQUEST 00155 M00S00134.compppr +++| PJN FTN10 IF REQUEST NOT REJECTED 00156 M00S00135.compppr +++| SHN 21-11-21+13 CHECK FOR PARTIAL COMPLETION 00157 M00S00136.compppr +++| MJN FTN8 IF MORE PROCESSING
| Line S00137 Modification History | |
|---|---|
M01 (Removed by) | pppr1 |
Seq # *Modification Id* Act ----------------------------+ 00158 M01S00137.pppr1 ---| FTNB LDC SBNI+1+10000 (INDEPENDENT SHARED DEVICES) 00159 M01S00138.pppr1 ---|* LDC SBNI+1 (NO INDEPENDENT SHARED DEVICES)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | pppr1 |
Seq # *Modification Id* Act ----------------------------+ 00160 M01S00001.pppr1 +++| FTNB LDC SBNI+1+10000 (INDEPENDENT SHARED/LOW SPEED PORT MMF) 00161 M01S00002.pppr1 +++|* LDC SBNI+1 (HIGH SPEED PORT MMF OR SINGLE MACHINE) 00162 M00S00139.compppr +++|* SBN 1 IF 4X PPU 00163 M00S00140.compppr +++|* SBN 1 IF 2X PPU 00164 M00S00141.compppr +++|* SBN 2 IF 1X PPU 00165 M00S00142.compppr +++| NJN *-1 IF DELAY IS NOT COMPLETE 00166 M00S00143.compppr +++| FTN8 LDD CM RESET FUNCTION FOR RETRY 00167 M00S00144.compppr +++| LPC 177 00168 M00S00145.compppr +++| UJN FTN1 REISSUE FUNCTION 00169 M00S00146.compppr +++| 00170 M00S00147.compppr +++|* CHECK FOR MOVE REQUESTED. 00171 M00S00148.compppr +++| 00172 M00S00149.compppr +++| FTN9 LDN CMCL 00173 M00S00150.compppr +++| CRD CM 00174 M00S00151.compppr +++| LDD CM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00175 M02S00001.273l780 ---| SHN 7 CONVERT NUMBER TO ADDRESS
| Line S00152 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00176 M01S00152.273l780 ---| LMD CP
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00177 M01S00001.273l780 +++| LMC ** 00178 M01S00002.273l780 +++| FTNG EQU *-1 (ASSIGNED CP/PCP NUMBER) 00179 M00S00153.compppr +++| NJN FTN11 IF NOT AT MOVE 00180 M00S00154.compppr +++| LDN PRLM 00181 M00S00155.compppr +++| UJN FTN1 PAUSE FOR MOVE 00182 M00S00156.compppr +++| 00183 M00S00157.compppr +++| FTN10 LDC SBNI+20 DELAY 00184 M00S00158.compppr +++| PJN *-1 IF DELAY NOT COMPLETE 00185 M00S00159.compppr +++| LDD OA READ OUTPUT REGISTER 00186 M00S00160.compppr +++| CRD CM 00187 M00S00161.compppr +++| LDD CM
| Line S00162 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00188 M01S00162.253l688 ---| SBN 2
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00189 M01S00020.253l688 +++| ADK -BOTM 00190 M00S00163.compppr +++| .A IFC EQ,/".PP"/NPP/
| Line S00164 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00191 M01S00164.253l688 ---| PJN FTN7 IF OUTPUT REGISTER NOT CLEAR
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00192 M01S00021.253l688 +++| UJN FTN1.1 CHECK RESPONSE 00193 M00S00165.compppr +++| .A ELSE 00194 M00S00166.compppr +++| PJN FTN1.1 IF OUTPUT REGISTER NOT CLEAR 00195 M00S00167.compppr +++| .A ENDIF 00196 M00S00168.compppr +++| 00197 M00S00169.compppr +++|* RE-ENTER HERE FROM *1RU* AND *1FA*. 00198 M00S00170.compppr +++|
| Line S00171 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00199 M01S00171.273l780 ---| FTN11 LDD CP READ RA AND FL 00200 M01S00172.273l780 ---| FTNC ADN FLSW 00201 M01S00173.273l780 ---|* ADN FLSW+1 (CME PRESENT)
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00202 M01S00003.273l780 +++| FTN11 LDC FLSW READ RA AND FL 00203 M01S00004.273l780 +++| FTNC EQU *-2 00204 M01S00005.273l780 +++|* LDC CPA+FLSW (ASSIGNED TO CP, NO CME) 00205 M01S00006.273l780 +++|* LDC CPA+FLSW+1 (ASSIGNED TO CP, CME PRESENT) 00206 M01S00007.273l780 +++|* LDC PCPA+FLSW (ASSIGNED TO PCP, NO CME) 00207 M01S00008.273l780 +++|* LDC PCPA+FLSW+1 (ASSIGNED TO PCP, CME PRESENT) 00208 M00S00174.compppr +++| CRD CM 00209 M00S00175.compppr +++| LRD CM+1 00210 M00S00176.compppr +++| LDD CM+3 00211 M00S00177.compppr +++| STD RA 00212 M00S00178.compppr +++| LDD CM+4 00213 M00S00179.compppr +++| STD FL 00214 M00S00180.compppr +++| LDD OA REREAD OUTPUT REGISTER 00215 M00S00181.compppr +++| CRD CM 00216 M00S00182.compppr +++| LDN 0 00217 M00S00183.compppr +++| 00218 M00S00184.compppr +++| FTN SUBR ENTRY/EXIT 00219 M00S00185.compppr +++| ZJN FTN9 IF PAUSE REQUEST 00220 M00S00186.compppr +++| FTN1 STD CM STORE FUNCTION
| Line S00187 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00221 M01S00187.273l780 ---| LDD OA ENTER OUTPUT REGISTER
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00222 M01S00009.273l780 +++| 00223 M01S00010.273l780 +++|* ENTRY FROM *CPUMTR* FUNCTION POST PROCESSOR OVERLAYS TO 00224 M01S00011.273l780 +++|* RETURN TO CALLER. 00225 M01S00012.273l780 +++| 00226 M01S00013.273l780 +++| FTN1.0 LDD OA ENTER OUTPUT REGISTER 00227 M00S00188.compppr +++| CWD CM 00228 M00S00189.compppr +++| LDN CPUM-1 CHECK FUNCTION 00229 M00S00190.compppr +++| SBD CM 00230 M00S00191.compppr +++| 00231 M00S00192.compppr +++| .A IFC EQ,/".PP"/NPP/ 00232 M00S00193.compppr +++| FTN2 PJN FTN10 IF NOT CPU FUNCTION
| Line S00194 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00233 M01S00194.253l688 ---| FTND ADN ISDM-CPUM 00234 M01S00195.253l688 ---|*FTND UJN FTN3 (NO INDEPENDENT SHARED DEVICES) 00235 M01S00196.253l688 ---|*FTND UJN FTN3 (DURING 1RU/1FA PROCESSING) 00236 M01S00197.253l688 ---| MJN FTN3 IF NOT FUNCTION THAT ACCESSES ISD TABLES 00237 M01S00198.253l688 ---| LDD CM+1 CHECK FOR INDEPENDENT SHARED DEVICE 00238 M01S00199.253l688 ---| LPC 777 00239 M01S00200.253l688 ---| SFA EST CONVERT TO EST ENTRY ADDRESS 00240 M01S00201.253l688 ---| ADK EQDE 00241 M01S00202.253l688 ---| CRD CM 00242 M01S00203.253l688 ---| LDD CM 00243 M01S00204.253l688 ---| SHN 21-4 00244 M01S00205.253l688 ---| MJN FTN6 IF INDEPENDENT SHARED DEVICE
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00245 M01S00022.253l688 +++| UJN FTN3 PROCESS CPUMTR FUNCTION 00246 M01S00023.253l688 +++| 00247 M01S00024.253l688 +++| FTN1.1 ZJN FTN1.2 IF *BOTM* 00248 M01S00025.253l688 +++| MJN FTN11 IF FUNCTION COMPLETE 00249 M01S00026.253l688 +++| ERRNZ BOTM-ASCM-1 CODE DEPENDS ON ORDER OF FUNCTIONS 00250 M01S00027.253l688 +++| LJM FTN7 LOOP 00251 M01S00028.253l688 +++|
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00252 M02S00029.273l780 ---|* LOAD BOOTSTRAP SPECIFIED BY *BOTM*.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00253 M01S00014.273l780 +++|* EXECUTE ROUTINE SPECIFIED BY *BOTM*. ALSO ENTERED FROM 00254 M01S00015.273l780 +++|* *CPUMTR* FUNCTION POST PROCESSOR OVERLAYS TO EXECUTE CODE 00255 M01S00016.273l780 +++|* SEGMENT.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00256 M01S00030.253l688 +++|
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00257 M02S00031.273l780 ---| FTN1.2 LDD CM+1 GET CM ADDRESS OF BOOTSTRAP.
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00258 M01S00017.273l780 +++| FTN1.2 ADD CM+1 GET CM ADDRESS OF BOOTSTRAP
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00259 M01S00032.253l688 +++| SHN 14 00260 M01S00033.253l688 +++| ADD CM+2 00261 M01S00034.253l688 +++| CRM 10001-3*5,TR 00262 M01S00035.253l688 +++|* LJM BOOTSTRAP (P) = (T0)+1 00263 M01S00036.253l688 +++|* (A) = ADDRESS OF BOOTSTRAP + 3. 00264 M01S00037.253l688 +++| 00265 M00S00206.compppr +++| .A ELSE 00266 M00S00207.compppr +++| MJN FTN3 IF CPU FUNCTION 00267 M00S00208.compppr +++| FTN1.1 SBN CPUM-2 00268 M00S00209.compppr +++| PJP FTN7 IF CPU FUNCTION 00269 M00S00210.compppr +++| LDK PPRL SET MTR REQUEST FLAG 00270 M00S00211.compppr +++| CRD CM 00271 M00S00212.compppr +++| LDD OA 00272 M00S00213.compppr +++| STD CM 00273 M00S00214.compppr +++| LDK PPRL 00274 M00S00215.compppr +++| CWD CM 00275 M00S00216.compppr +++| FTN2 LJM FTN10 DELAY 00276 M00S00217.compppr +++| .A ENDIF 00277 M00S00218.compppr +++| 00278 M00S00219.compppr +++| FTN3 BSS 0 00279 M00S00220.compppr +++| XJ2 LDC ** READ (MA), (A6), (B6) 00280 M00S00221.compppr +++| CRD CM 00281 M00S00222.compppr +++| LDD CM CHECK (MA) 00282 M00S00223.compppr +++| ADD CM+1 00283 M00S00224.compppr +++| NJN FTN3 IF EXCHANGE PACKAGE NOT READY 00284 M00S00225.compppr +++| LDN PPXL SET *PP EXCHANGE PENDING* FLAG 00285 M00S00226.compppr +++| CWD HN 00286 M00S00227.compppr +++| 00287 M00S00228.compppr +++| FTN4 BSS 0 00288 M00S00229.compppr +++| XJ3 LDC ** STORE (P), (A0), (B0) 00289 M00S00230.compppr +++| CWM FTNA,ON 00290 M00S00231.compppr +++| 00291 M00S00232.compppr +++| FTN5 BSS 0 00292 M00S00233.compppr +++| XJ4 LDC * EXCHANGE CPU 00293 M00S00234.compppr +++| CP1 MXN 0 00294 M00S00235.compppr +++| CRD CM CHECK (B0) 00295 M00S00236.compppr +++| LDD CM+4 00296 M00S00237.compppr +++| ZJN FTN2 IF EXCHANGE TAKEN 00297 M00S00238.compppr +++| 00298 M00S00239.compppr +++|* DELAY FOR 20 MICS BEFORE RETRYING EXCHANGE. 00299 M00S00240.compppr +++|* (A) = 1006 = (FTNA+4) = DELAY VALUE. 00300 M00S00241.compppr +++| 00301 M00S00242.compppr +++| FTNE SBN 20 (4X PPU) 00302 M00S00243.compppr +++|* SBN 40 (2X PPU) 00303 M00S00244.compppr +++|* SBN 77 (1X PPU) 00304 M00S00245.compppr +++| PJN *-1 IF NOT END OF DELAY 00305 M00S00246.compppr +++| 00306 M00S00247.compppr +++|* CHECK FOR TIME OUT ON EXCHANGE REQUEST. 00307 M00S00248.compppr +++|* (T0) = P+1 OF *CWM FTNA* INSTRUCTION. 00308 M00S00249.compppr +++| 00309 M00S00250.compppr +++| FTNF LCN 2 (4X PPU) 00310 M00S00251.compppr +++|* LCN 2 (2X PPU) 00311 M00S00252.compppr +++|* LCN 3 (1X PPU) 00312 M00S00253.compppr +++| RAD T0 00313 M00S00254.compppr +++| PJN FTN5 IF NOT TO REQUEST PP EXCHANGE PRIORITY 00314 M00S00255.compppr +++| LDN CPSL HAVE CPUMTR NOTE PP REQUESTING EXCHANGE 00315 M00S00256.compppr +++| CWD CM 00316 M00S00257.compppr +++| UJN FTN4 RESET (T0)
| Line S00258 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00317 M01S00258.253l688 ---| 00318 M01S00259.253l688 ---| .A IFC EQ,/".PP"/NPP/ 00319 M01S00260.253l688 ---| FTN6 BSS 0 00320 M01S00261.253l688 ---| FTNG LDC ** ADDRESS OF LOAD BOOTSTRAP 00321 M01S00262.253l688 ---| CRM 10001-5*3,TR READ THE BOOTSTRAP 00322 M01S00263.253l688 ---| .A ENDIF 00323 M00S00264.compppr +++| .BLI SPACE 4,20 00324 M00S00265.compppr +++|*** BLI - BUILD LONG INSTRUCTION (CPPS ONLY). 00325 M00S00266.compppr +++|* 00326 M00S00267.compppr +++|* *BLI* USES A *STIL* INSTRUCTION (WHICH IS BUILT BY *1MA*) TO 00327 M00S00268.compppr +++|* CREATE LONG INSTRUCTIONS IN A CYBER 180 CPP. 00328 M00S00269.compppr +++|* 00329 M00S00270.compppr +++|* ENTRY (A) = THE LONG INSTRUCTION. 00330 M00S00271.compppr +++|* (T3) = THE ADDRESS AT WHICH TO STORE THE INSTRUCTION. 00331 M00S00272.compppr +++|* (.EST) = RETURN ADDRESS. 00332 M00S00273.compppr +++|* 00333 M00S00274.compppr +++|* NOTE - *.BLI* IS ONLY TO BE USED BY THE *BLI* MACRO. *.BLI* 00334 M00S00275.compppr +++|* EXITS TO THE RETURN ADDRESS OF THE LAST CALL TO *.EST*. THIS 00335 M00S00276.compppr +++|* IS A VERY UNUSUAL EXIT PATH, BUT IT ALLOWS THE BUILDING OF 00336 M00S00277.compppr +++|* LONG INSTRUCTIONS TO BE ACCOMPLISHED AT THE COST OF ONLY ONE 00337 M00S00278.compppr +++|* BYTE IN PP RESIDENT. 00338 M00S00279.compppr +++| 00339 M00S00280.compppr +++| 00340 M00S00281.compppr +++| BSSZ .BLI-* (SPARES) 00341 M00S00282.compppr +++| 00342 M00S00283.compppr +++| .BLI STI T3 00343 M00S00284.compppr +++|* STIL T3 (SET BY *1MA* DURING CPP DEADSTART) 00344 M00S00285.compppr +++|* UJN .ESTX RETURN 00345 M00S00286.compppr +++| 00346 M00S00287.compppr +++| 00347 M00S00288.compppr +++| ERRNZ .BLI+1-.ESTX *BLI* ASSUMES THE RELATIONSHIP 00348 M00S00289.compppr +++| ERRNZ .BLI+2-.EST *BLI* ASSUMES THE RELATIONSHIP 00349 M00S00290.compppr +++| .EST SPACE 4,10 00350 M00S00291.compppr +++|** .EST - CONVERT EST ORDINAL TO EST ADDRESS. 00351 M00S00292.compppr +++|* 00352 M00S00293.compppr +++|* ENTRY (A) = EST ORDINAL. 00353 M00S00294.compppr +++|* 00354 M00S00295.compppr +++|* EXIT (A) = ADDRESS OF EST ENTRY. 00355 M00S00296.compppr +++|* 00356 M00S00297.compppr +++|* USES T0 (IF *ESTE* IS NOT A POWER OF 2). 00357 M00S00298.compppr +++|* 00358 M00S00299.compppr +++|* MACROS CFI. 00359 M00S00300.compppr +++| 00360 M00S00301.compppr +++| 00361 M00S00302.compppr +++| .EST SUBR ENTRY/EXIT 00362 M00S00303.compppr +++| CFI EST 00363 M00S00304.compppr +++| ESTA ADC ** (SET IN PRESET) 00364 M00S00305.compppr +++| UJN .ESTX RETURN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2594 |
Seq # *Modification Id* Act ----------------------------+ 00365 M01S00001.ns2594 +++| 00366 M01S00002.ns2594 +++| BSSZ .DLY-* (SPARES FOR *CFI* MACRO IF *ESTE* CHANGES) 00367 M00S00306.compppr +++| DLY SPACE 4,10 00368 M00S00307.compppr +++|** .DLY - DELAY COUNT FOR 125 MICROSECONDS 00369 M00S00308.compppr +++|* 00370 M00S00309.compppr +++|* THE .DLY CELL IS FOR USE WITH THE DELAY MACRO TO FORM 00371 M00S00310.compppr +++|* A 125 MICROSECOND DELAY. IT ASSUMES THE FOLLOWING CODE 00372 M00S00311.compppr +++|* TO DELAY IS USED. 00373 M00S00312.compppr +++|* LDM .DLY 00374 M00S00313.compppr +++|* SBN 1 00375 M00S00314.compppr +++|* NJN *-1 IF NOT END OF DELAY 00376 M00S00315.compppr +++| 00377 M00S00316.compppr +++| 00378 M00S00317.compppr +++| .DLY CON 75 DELAY COUNT FOR 1X PPU 00379 M00S00318.compppr +++|* CON 173 DELAY COUNT FOR 2X PPU 00380 M00S00319.compppr +++|* CON 370 DELAY COUNT FOR 4X PPU 00381 M00S00320.compppr +++| 00382 M00S00321.compppr +++| DLYA SBN 20 1X PP 00383 M00S00322.compppr +++|* SBN 10 2X PP 00384 M00S00323.compppr +++|* SBN 4 4X PP 00385 M00S00324.compppr +++| SPACE 4 00386 M00S00325.compppr +++| 00387 M00S00326.compppr +++| ERRNG EFTN-* *FTN* HAS OVERFLOWED 00388 M00S00327.compppr +++| 00389 M00S00328.compppr +++| PPR SPACE 4,10 00390 M00S00329.compppr +++|*** PPR - PP RESIDENT. 00391 M00S00330.compppr +++|* 00392 M00S00331.compppr +++|* EVERY 128 MICROSECONDS, PPR READS THE INPUT REGISTER 00393 M00S00332.compppr +++|* AND CHECKS FOR THE PRESENCE OF A PROGRAM NAME. IF ONE IS 00394 M00S00333.compppr +++|* PRESENT *PLL* IS CALLED TO LOAD THE REQUESTED PROGRAM. 00395 M00S00334.compppr +++| 00396 M00S00335.compppr +++| 00397 M00S00336.compppr +++| BSSZ PPR-* (SPARES) 00398 M00S00337.compppr +++| 00399 M00S00338.compppr +++| .A IFC EQ,/".PP"/NPP/ 00400 M00S00339.compppr +++| PPR LDN PPRL FETCH LOAD PARAMETERS 00401 M00S00340.compppr +++| CRD CM 00402 M00S00341.compppr +++| UJN PLL9 LOAD PP IDLE LOOP 00403 M00S00342.compppr +++| .A ELSE 00404 M00S00343.compppr +++| PPR UJN * HANG TO AWAIT IDLE STATE 00405 M00S00344.compppr +++| .A ENDIF 00406 M00S00345.compppr +++| 00407 M00S00346.compppr +++| PPR1 LJM 5,LA ENTER PROGRAM 00408 M00S00347.compppr +++| PLL SPACE 4,15 00409 M00S00348.compppr +++|** PLL - PERIPHERAL LIBRARY LOADER. 00410 M00S00349.compppr +++|* 00411 M00S00350.compppr +++|* ENTRY (A) = PACKAGE NAME. 00412 M00S00351.compppr +++|* (LA) = LOAD ADDRESS FOR LOCATION FREE ROUTINES. 00413 M00S00352.compppr +++|* 00414 M00S00353.compppr +++|* USES CM - CM+4, LA. FOR *RPL* LOAD. 00415 M00S00354.compppr +++|* T1 - T7, CM - CM+4, LA, T8, T9. FOR *PLD* LOAD. 00416 M00S00355.compppr +++|* 00417 M00S00356.compppr +++|* CALLS LEP, RDS. 00418 M00S00357.compppr +++|* 00419 M00S00358.compppr +++|* MACROS ENDMS, MONITOR, MSERR, PAUSE, SETMS. 00420 M00S00359.compppr +++| 00421 M00S00360.compppr +++| 00422 M00S00361.compppr +++| BSSZ PLLA-1-* (SPARES) 00423 M00S00362.compppr +++| 00424 M00S00363.compppr +++| PLL8 LDC * 00425 M00S00364.compppr +++| PLLA EQU *-1 00426 M00S00365.compppr +++| STD CM+2 00427 M00S00366.compppr +++| LDC * 00428 M00S00367.compppr +++| PLLB EQU *-1 00429 M00S00368.compppr +++| STD CM+3 00430 M00S00369.compppr +++| MONITOR SPLM 00431 M00S00370.compppr +++| PLL9 UJN PLL2 LOAD PROGRAM 00432 M00S00371.compppr +++| 00433 M00S00372.compppr +++| PLL10 LMD CM+1 READ PACKAGE FROM RPL 00434 M00S00373.compppr +++| SHN 14 00435 M00S00374.compppr +++| ADD CM+2 00436 M00S00375.compppr +++| CRM **,CM+3 00437 M00S00376.compppr +++| PLLC EQU *-1 00438 M00S00377.compppr +++| PLL11 PAUSE NE
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00439 M01S00038.253l688 +++| PLLD EQU *-1 00440 M01S00039.253l688 +++|* RJM PPFW-1 (*1BP* LOAD OF MAIN OVERLAY) 00441 M00S00378.compppr +++| 00442 M00S00379.compppr +++| PLL SUBR ENTRY/EXIT 00443 M00S00380.compppr +++| STM PLLB 00444 M00S00381.compppr +++| SHN -14 00445 M00S00382.compppr +++| STM PLLA 00446 M00S00383.compppr +++| LDD OA 00447 M00S00384.compppr +++| CRD CM 00448 M00S00385.compppr +++| SOD CM
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00449 M01S00040.253l688 +++| ERRNZ ASCM-1 CODE DEPENDS ON VALUE 00450 M00S00386.compppr +++| NJN PLL8 IF LIBRARY NOT SEARCHED 00451 M00S00387.compppr +++| LDD OA 00452 M00S00388.compppr +++| CWD CM 00453 M00S00389.compppr +++| 00454 M00S00390.compppr +++|* RE-ENTER HERE FROM *7SE* TO RETRY AFTER ERRORS. 00455 M00S00391.compppr +++|* IF THE ERROR WAS FROM READING A PROGRAM FROM AN ALTERNATE 00456 M00S00392.compppr +++|* SYSTEM DEVICE *7SE* WILL HAVE DISABLED THE ALTERNATE 00457 M00S00393.compppr +++|* SYSTEM COPY OF THE PROGRAM. THE RETRY WILL THEN GO 00458 M00S00394.compppr +++|* TO A SYSTEM DEVICE. 00459 M00S00395.compppr +++| 00460 M00S00396.compppr +++| PLL2 LDD CM+4 SET LOAD ADDRESS 00461 M00S00397.compppr +++| NJN PLL3 IF NOT ZERO LEVEL OVERLAY 00462 M00S00398.compppr +++| LDDL LA 00463 M00S00399.compppr +++| PLL3 STDL LA 00464 M00S00400.compppr +++| 00465 M00S00401.compppr +++|* ENTRY FOR MASS STORAGE ERROR PROCESSOR LOADS. 00466 M00S00402.compppr +++| 00467 M00S00403.compppr +++| PLL4 STML PLLC STORE ADDRESS FOR *CRM* 00468 M00S00404.compppr +++| LDD CM+1 00469 M00S00405.compppr +++| LPC 300 00470 M00S00406.compppr +++| NJN PLL10 IF LOAD FROM RPL 00471 M00S00407.compppr +++| 00472 M00S00408.compppr +++|* PROCESS LOAD FROM SYSTEM OR ALTERNATE SYSTEM DEVICE. 00473 M00S00409.compppr +++| 00474 M00S00410.compppr +++| LDD OA SET EQUIPMENT FOR *SMS* 00475 M00S00411.compppr +++| CRD T4 00476 M00S00412.compppr +++| SETMS READSYS 00477 M00S00413.compppr +++| 00478 M00S00414.compppr +++| .A IFC EQ,/".PP"/NPP/ 00479 M00S00415.compppr +++| LDD LA SET READ ADDRESS POINTER 00480 M00S00416.compppr +++| SBN 2 00481 M00S00417.compppr +++| STD T3 00482 M00S00418.compppr +++| PLL5 LDI T3 SAVE TWO BYTES 00483 M00S00419.compppr +++| STD T8 00484 M00S00420.compppr +++| LDM 1,T3 00485 M00S00421.compppr +++| STD T9 00486 M00S00422.compppr +++| LDD T3 READ SECTOR 00487 M00S00423.compppr +++| RJM RDS 00488 M00S00424.compppr +++| MJN PLL7 IF READ ERROR 00489 M00S00425.compppr +++| AOD T7 SET NEXT SECTOR 00490 M00S00426.compppr +++| LMM SLM 00491 M00S00427.compppr +++| NJN PLL6 IF NOT NEW TRACK 00492 M00S00428.compppr +++| STD T7 00493 M00S00429.compppr +++| LDI T3 00494 M00S00430.compppr +++| STD T6 00495 M00S00431.compppr +++| PLL6 LDD T8 RESTORE TWO BYTES 00496 M00S00432.compppr +++| STI T3 00497 M00S00433.compppr +++| LDD T9 00498 M00S00434.compppr +++| STM 1,T3 00499 M00S00435.compppr +++| LDC 500 INCREMENT ADDRESS OF READ 00500 M00S00436.compppr +++| RAD T3 00501 M00S00437.compppr +++| SOM 3,LA 00502 M00S00438.compppr +++| NJN PLL5 IF NOT EOR 00503 M00S00439.compppr +++| ENDMS END MASS STORAGE 00504 M00S00440.compppr +++| LJM PLL11 RETURN 00505 M00S00441.compppr +++| 00506 M00S00442.compppr +++| PLL7 MSERR 7SE,* 00507 M00S00443.compppr +++| UJN LEP1 LOAD *7SE* 00508 M00S00444.compppr +++| 00509 M00S00445.compppr +++| .A ELSE 00510 M00S00446.compppr +++| RJM RDS READ OVERLAY 00511 M00S00447.compppr +++| MJN PLL5 IF READ ERROR 00512 M00S00448.compppr +++| ENDMS END MASS STORAGE 00513 M00S00449.compppr +++| LJM PLL11 RETURN 00514 M00S00450.compppr +++| 00515 M00S00451.compppr +++| PLL5 LDM PLL CHECK CALLER 00516 M00S00452.compppr +++| LMC PPR1 00517 M00S00453.compppr +++| ZJN PLL6 IF CALLED BY PRESET 00518 M00S00454.compppr +++| LDK HNGM-DPPM HANG THE CPP 00519 M00S00455.compppr +++| PLL6 ADK DPPM DROP THE CPP 00520 M00S00456.compppr +++| RJM FTN 00521 M00S00457.compppr +++| LJM PPR IDLE 00522 M00S00458.compppr +++| .A ENDIF 00523 M00S00459.compppr +++| 00524 M00S00460.compppr +++|
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00525 M01S00041.253l688 +++| .A IFC EQ,/".PP"/NPP/ 00526 M01S00042.253l688 +++| BEP SPACE 4,10 00527 M01S00043.253l688 +++|** BEP - BREAKPOINT MS ERROR PROCESSOR. 00528 M01S00044.253l688 +++| 00529 M01S00045.253l688 +++| 00530 M01S00046.253l688 +++| BEP SUBR ENTRY/EXIT 00531 M01S00047.253l688 +++| UJN BEPX RETURN 00532 M01S00048.253l688 +++| CON 0 00533 M01S00049.253l688 +++|* LJM /BMS/SBK (*BMS* ACTIVE) 00534 M01S00050.253l688 +++| .A ENDIF 00535 M00S00461.compppr +++| LEP SPACE 4,10 00536 M00S00462.compppr +++|** LEP - LOAD MASS STORAGE ERROR PROCESSING OVERLAY. 00537 M00S00463.compppr +++|* 00538 M00S00464.compppr +++|* ENTRY (A) = OVERLAY NAME & 3R7DP. 00539 M00S00465.compppr +++|* 00540 M00S00466.compppr +++|* USES T1. 00541 M00S00467.compppr +++| 00542 M00S00468.compppr +++| 00543 M00S00469.compppr +++| BSSZ LEP-* (SPARES) 00544 M00S00470.compppr +++| 00545 M00S00471.compppr +++| LMSE EQU 10001-3*5 00546 M00S00472.compppr +++| 00547 M00S00473.compppr +++| LEP MSERR 7EQ,* 00548 M00S00474.compppr +++| .A IFC EQ,/".PP"/NPP/ 00549 M00S00475.compppr +++| LEP1 LMC 3R7DQ 00550 M00S00476.compppr +++| STD T1 00551 M00S00477.compppr +++| LDN MSEL READ/EXECUTE PRELOADER 00552 M00S00478.compppr +++| CRM LMSE,TR 00553 M00S00479.compppr +++| .A ELSE 00554 M00S00480.compppr +++| UJN * HANG - ERROR PROCESSORS DO NOT WORK IN CPP 00555 M00S00481.compppr +++| .A ENDIF 00556 M00S00482.compppr +++| DFM SPACE 4,25 00557 M00S00483.compppr +++|*** DFM - SEND DAYFILE MESSAGE. 00558 M00S00484.compppr +++|* 00559 M00S00485.compppr +++|* CAUTION - DAYFILE MESSAGES SHOULD NOT BE ISSUED 00560 M00S00486.compppr +++|* WITH NON-DEDICATED CHANNEL(S) RESERVED. 00561 M00S00487.compppr +++|* 00562 M00S00488.compppr +++|* CAUTION - WHEN ISSUING A DAYFILE MESSAGE FROM A CONCURRENT 00563 M00S00489.compppr +++|* PP THE MESSAGE MUST BE BELOW 10000B. 00564 M00S00490.compppr +++|* 00565 M00S00491.compppr +++|* ENTRY (A) BITS 0 - 11 = BEGINNING ADDRESS OF MESSAGE. 00566 M00S00492.compppr +++|* (A) BITS 12 - 17 = MESSAGE CONTROL CODE. 00567 M00S00493.compppr +++|* MESSAGE TERMINATED BY 0000 BYTE. 00568 M00S00494.compppr +++|* (CM+1) = MESSAGE LENGTH IN PP WORDS IF BML MESSAGE. 00569 M00S00495.compppr +++|* 00570 M00S00496.compppr +++|* EXIT (A) = 0. 00571 M00S00497.compppr +++|* 00572 M00S00498.compppr +++|* USES T0 - T2, CM - CM+4. 00573 M00S00499.compppr +++|* 00574 M00S00500.compppr +++|* IF DAYFILE BUFFER DUMP REQUIRED- 00575 M00S00501.compppr +++|* SAVES AND RESTORES EPFW - 110, AND MASS STORAGE DRIVER, 00576 M00S00502.compppr +++|* AND FIRST PART OF PROGRAM. LOCATIONS 7764 TO END 00577 M00S00503.compppr +++|* OF THE PP ARE DESTROYED. 00578 M00S00504.compppr +++|* 00579 M00S00505.compppr +++|* CALLS *1DD*. 00580 M00S00506.compppr +++|* 00581 M00S00507.compppr +++|* MACROS MONITOR. 00582 M00S00508.compppr +++| 00583 M00S00509.compppr +++| 00584 M00S00510.compppr +++| BSSZ DFM-1-* (SPARES) 00585 M00S00511.compppr +++| 00586 M00S00512.compppr +++| DFM SUBR ENTRY/EXIT 00587 M00S00513.compppr +++| STM DFMA SAVE MESSAGE ADDRESS 00588 M00S00514.compppr +++| SBN 1 00589 M00S00515.compppr +++| STD T2 00590 M00S00516.compppr +++| SHN -14 SET MESSAGE OPTION 00591 M00S00517.compppr +++| STD CM+2 00592 M00S00518.compppr +++| LPN 17 00593 M00S00519.compppr +++| SBN BMLN/10000 00594 M00S00520.compppr +++| PJN DFM2 IF MAINTAINANCE LOG (*BMLN* OR *BMCN*) 00595 M00S00521.compppr +++| DFM1 AOD T2 ADVANCE MESSAGE ADDRESS 00596 M00S00522.compppr +++| LDI T2 00597 M00S00523.compppr +++| NJN DFM1 IF NOT END OF MESSAGE 00598 M00S00524.compppr +++| AOD T2 SET BYTE COUNT OF MESSAGE 00599 M00S00525.compppr +++| SBM DFMA 00600 M00S00526.compppr +++| STD CM+1 00601 M00S00527.compppr +++| DFM2 LDN 6 00602 M00S00528.compppr +++| STD T1 00603 M00S00529.compppr +++| LDD MA STORE MESSAGE IN MESSAGE BUFFER 00604 M00S00530.compppr +++| CWM *,T1 00605 M00S00531.compppr +++| DFMA EQU *-1 00606 M00S00532.compppr +++| DFM3 MONITOR DFMM PROCESS DAYFILE MESSAGE 00607 M00S00533.compppr +++| .A IFC EQ,/".PP"/NPP/ 00608 M00S00534.compppr +++| LDD CM+3 00609 M00S00535.compppr +++| ZJN DFMX IF BUFFER DUMP NOT REQUIRED 00610 M00S00536.compppr +++| DFMB LDC ** READ *1DD* LOAD CODE 00611 M00S00537.compppr +++| CRM 10003-3*5,TR 00612 M00S00538.compppr +++| .A ELSE 00613 M00S00539.compppr +++|* LDN 0 00614 M00S00540.compppr +++| UJN DFMX RETURN 00615 M00S00541.compppr +++| .A ENDIF 00616 M00S00542.compppr +++| EXR SPACE 4,15 00617 M00S00543.compppr +++|*** EXR - EXECUTE ROUTINE. 00618 M00S00544.compppr +++|* 00619 M00S00545.compppr +++|* CAUTION, ONE SHOULD NOT LOAD NON CM RESIDENT 00620 M00S00546.compppr +++|* OVERLAYS WITH NON-DEDICATED CHANNEL(S) RESERVED. 00621 M00S00547.compppr +++|* 00622 M00S00548.compppr +++|* ENTRY (A) = ROUTINE NAME. 00623 M00S00549.compppr +++|* (LA) = LOAD ADDRESS FOR LOCATION FREE ROUTINES. 00624 M00S00550.compppr +++|* 00625 M00S00551.compppr +++|* EXIT EXIT TO CALLED ROUTINE VIA SIMULATED RETURN JUMP FROM 00626 M00S00552.compppr +++|* CALLER. 00627 M00S00553.compppr +++|* 00628 M00S00554.compppr +++|* CALLS PLL. 00629 M00S00555.compppr +++| 00630 M00S00556.compppr +++| 00631 M00S00557.compppr +++| BSSZ EXR-* (SPARES) 00632 M00S00558.compppr +++| 00633 M00S00559.compppr +++| EXR CON 0 RETURN ADDRESS 00634 M00S00560.compppr +++| RJM PLL LOAD ROUTINE 00635 M00S00561.compppr +++| LDML EXR SET RETURN ADDRESS 00636 M00S00562.compppr +++| STML 6,LA 00637 M00S00563.compppr +++| LJM 7,LA ENTER ROUTINE 00638 M00S00564.compppr +++| SMS SPACE 4,20 00639 M00S00565.compppr +++|*** SMS - SET MASS STORAGE. 00640 M00S00566.compppr +++|* 00641 M00S00567.compppr +++|* ENTRY (T5) = EST ORDINAL. 00642 M00S00568.compppr +++|*
| Line S00569 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00643 M01S00569.ns2776 ---|* EXIT REFER TO *SETMS* INTERFACE INFORMATION SHOWN BELOW 00644 M01S00570.ns2776 ---|* IN THE *MASS STORAGE DRIVER OVERLAY AREA*.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00645 M01S00001.ns2776 +++|* EXIT (A) = 0. 00646 M00S00571.compppr +++|* 00647 M00S00572.compppr +++|* MACROS MONITOR, SFA. 00648 M00S00573.compppr +++|* 00649 M00S00574.compppr +++|* NOTE - THE *.SMS* ENTRY POINT IS SUPPORTED ONLY VIA THE 00650 M00S00575.compppr +++|* *SETMS* MACRO DEFINED IN *COMPMAC*. IF THIS LOCATION 00651 M00S00576.compppr +++|* CHANGES, THE DEFINITION OF *.SMS* MUST BE CHANGED IN 00652 M00S00577.compppr +++|* *PPCOM* AND *COMSMSP* AND ALL PROGRAMS USING THE *SETMS* 00653 M00S00578.compppr +++|* MACRO MUST BE REASSEMBLED. 00654 M00S00579.compppr +++| 00655 M00S00580.compppr +++|
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00656 M01S00002.271l716 +++| .SMSX IFLT SMSX,* 00657 M01S00003.271l716 +++| ERR *SMSX* ENTRY POINT MOVED 00658 M01S00004.271l716 +++| .SMSX ELSE 00659 M00S00581.compppr +++| DUP SMSX-*,1 (SPARES) 00660 M00S00582.compppr +++| UJN * HANG-S
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00661 M01S00005.271l716 +++| .SMSX ENDIF 00662 M00S00583.compppr +++|
| Line S00584 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00663 M01S00584.ns2776 ---| SMSX LDM MSD RETURN STATUS TO CALLER 00664 M01S00585.ns2776 ---| SHN 21-6 00665 M01S00586.ns2776 ---| MJN SMS3 IF DEVICE IS INACCESSIBLE 00666 M01S00587.ns2776 ---| LDN 0 00667 M01S00588.ns2776 ---| SMS2 NJN SMSX IF NO DRIVER PRESET 00668 M01S00589.ns2776 ---| SMS3 SHN 7 00669 M01S00590.ns2776 ---| SCN 77 00670 M01S00591.ns2776 ---| SHN 6
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00671 M01S00002.ns2776 +++| SMSX LDN 0 00672 M00S00592.compppr +++| 00673 M00S00593.compppr +++| LJM * EXIT 00674 M00S00594.compppr +++| .SMS EQU *-1 00675 M00S00595.compppr +++| STD CM+4 *SETMS* AND ERROR PROCESSING OPTIONS 00676 M00S00596.compppr +++| SHN -14 00677 M00S00597.compppr +++| STD CM+3 00678 M00S00598.compppr +++| LDD T5 SET EQUIPMENT 00679 M00S00599.compppr +++| STD CM+1 00680 M00S00600.compppr +++| LDD MA WRITE MESSAGE BUFFER PARAMETERS 00681 M00S00601.compppr +++| CWM DRSW,TR 00682 M00S00602.compppr +++| MONITOR LMSM LOAD MASS STORAGE DRIVER 00683 M00S00603.compppr +++| LDD CM+1 00684 M00S00604.compppr +++| SHN 14 00685 M00S00605.compppr +++| ADD CM+2 00686 M00S00606.compppr +++| ZJN SMS1 IF NO DRIVER LOAD 00687 M00S00607.compppr +++| CRM MSFW,CM+3 00688 M00S00608.compppr +++| SMS1 LDD MA READ DRIVER CELLS 00689 M00S00609.compppr +++| CRM DRSW,CM+4 00690 M00S00610.compppr +++| CRD CM READ EST 00691 M00S00611.compppr +++| LDM STSA CHECK DRIVER PRESET EXECUTION
| Line S00612 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00692 M01S00612.ns2776 ---| NJN SMS2 IF NO DRIVER PRESET
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00693 M01S00003.ns2776 +++| NJN SMSX IF NO DRIVER PRESET 00694 M00S00613.compppr +++| CON LJMI ENTER DRIVER PRESET 00695 M00S00614.compppr +++| SPACE 4 00696 M00S00615.compppr +++| ERRNZ MSFW-* CHECK PPR CONTIGUOUS WITH MS DRIVER 00697 M00S00616.compppr +++| MSD TITLE MASS STORAGE DRIVER OVERLAY AREA. 00698 M00S00617.compppr +++|*** MASS STORAGE DRIVERS ARE OVERLAYS LOADED BY PP RESIDENT 00699 M00S00618.compppr +++|* IN AN AREA BETWEEN PP RESIDENT AND THE FIRST WORD ADDRESS OF 00700 M00S00619.compppr +++|* PP PROGRAMS. 00701 M00S00620.compppr +++| SPACE 4 00702 M00S00621.compppr +++|** MASS STORAGE DRIVERS ARE CODED SUCH THAT THE ENTRY POINTS 00703 M00S00622.compppr +++|* REMAIN CONSTANT BETWEEN ALL DRIVERS. 00704 M00S00623.compppr +++|* 00705 M00S00624.compppr +++|* PARAMETERS PASSED TO THE DRIVER - 00706 M00S00625.compppr +++|* (T4) = CHANNEL, IF PREVIOUSLY RESERVED. 00707 M00S00626.compppr +++|* (T5) = EST ORDINAL. 00708 M00S00627.compppr +++|* (T6) = TRACK. 00709 M00S00628.compppr +++|* (T7) = SECTOR. 00710 M00S00629.compppr +++|* 00711 M00S00630.compppr +++|* THE RULES - 00712 M00S00631.compppr +++|* NAME = *6DN*, WHERE N IS A UNIQUE LETTER FOR EACH 00713 M00S00632.compppr +++|* DRIVER. DRIVER NAMES FOR AN EQUIPMENT 00714 M00S00633.compppr +++|* ARE DEFINED IN *COMSMSP*. 00715 M00S00634.compppr +++|* 00716 M00S00635.compppr +++|* ORIGIN = *MSFW* 00717 M00S00636.compppr +++|* 00718 M00S00637.compppr +++|* FIRST WORD = ADDRESS OF THE DRIVER INITIALIZATION 00719 M00S00638.compppr +++|* ROUTINE. THIS ENTRY IS USED BY *SMS* TO 00720 M00S00639.compppr +++|* CAUSE INITIALIZATION OF THE DRIVER. EXIT 00721 M00S00640.compppr +++|* FROM INITIALIZATION IS TO *SMSX*. 00722 M00S00641.compppr +++|* *SMS* ENTERS THE INITIALIZATION ROUTINE 00723 M00S00642.compppr +++|* WITH (CM - CM+4) = EST ENTRY. 00724 M00S00643.compppr +++|* 00725 M00S00644.compppr +++|* THE ENTRIES FOR READ, WRITE, AND ENDMS ORIGINED 00726 M00S00645.compppr +++|* AT THE APPROPRIATE SYMBOLIC NAMES. 00727 M00S00646.compppr +++|* I.E. *RDS*, *WDS*, *EMS*. 00728 M00S00647.compppr +++|* THESE ENTRIES ARE ENTERED VIA RETURN 00729 M00S00648.compppr +++|* JUMP, AND DUE TO THE DEFINITION OF THE 00730 M00S00649.compppr +++|* NAMES, TRANSFER CODE IS NECESSARY. 00731 M00S00650.compppr +++|* 00732 M00S00651.compppr +++|* THE DRIVER MUST NOT USE ANY DIRECT LOCATIONS 00733 M00S00652.compppr +++|* EXCEPT T1, T2, T4, AND CM - CM+4. 00734 M00S00653.compppr +++|* THE INTEGRITY OF THE MESSAGE BUFFER IS NOT 00735 M00S00654.compppr +++|* GUARANTEED DURING DRIVER PROCESSING. 00736 M00S00655.compppr +++|* *SETMS* PROCESSING IS CONSIDERED PART 00737 M00S00656.compppr +++|* OF DRIVER PROCESSING AND FOLLOWS THE 00738 M00S00657.compppr +++|* SAME RULES FOR DIRECT CELL AND MESSAGE 00739 M00S00658.compppr +++|* BUFFER USAGE. 00740 M00S00659.compppr +++|* 00741 M00S00660.compppr +++|* THE DRIVER WILL AUTOMATICALLY REQUEST THE CHANNEL AS 00742 M00S00661.compppr +++|* NECESSARY ON CALLS TO *RDS* AND *WDS*. 00743 M00S00662.compppr +++|* THE CALLING PROGRAM MUST REQUEST THE 00744 M00S00663.compppr +++|* DRIVER (BY USING THE *ENDMS* MACRO) TO 00745 M00S00664.compppr +++|* RETURN THE CHANNEL WHEN THE MASS STORAGE 00746 M00S00665.compppr +++|* OPERATION IS COMPLETE. T4 IS RESERVED FOR 00747 M00S00666.compppr +++|* THE DRIVER TO STORE THE CURRENT CHANNEL 00748 M00S00667.compppr +++|* NUMBER. THE CONTENTS OF T4 MUST NOT BE 00749 M00S00668.compppr +++|* CHANGED BETWEEN CALLS TO THE DRIVER BEFORE 00750 M00S00669.compppr +++|* THE *ENDMS*. 00751 M00S00670.compppr +++| 00752 M00S00671.compppr +++|* USE OF THE *IOCH* AND *PIOCH* DRIVER TYPES REQUIRES 00753 M00S00672.compppr +++|* CALLER TO STORE THE CHANNEL NUMBER IN *T4* 00754 M00S00673.compppr +++|* PRIOR TO CALLING THE DRIVER. 00755 M00S00674.compppr +++|* 00756 M00S00675.compppr +++|* THE ERROR PROCESSOR ORIGIN IS AT *EPFW* OR HIGHER AND 00757 M00S00676.compppr +++|* THE ERROR PROCESSOR EXTENDS TO THE END OF 00758 M00S00677.compppr +++|* PP MEMORY. THE ERROR PROCESSOR MAY BE 00759 M00S00678.compppr +++|* CALLED BY *RDS* AND *WDS*. 00760 M00S00679.compppr +++|* 00761 M00S00680.compppr +++|* THE DRIVER AND ITS ASSOCIATED ERROR PROCESSORS MUST 00762 M00S00681.compppr +++|* RESIDE IN RPL. 00763 M00S00682.compppr +++| SPACE 4,10 00764 M00S00683.compppr +++|** SETMS - SET MASS STORAGE DRIVER. 00765 M00S00684.compppr +++|* 00766 M00S00685.compppr +++|* CAUTION - NOT ALL *SETMS* CALLS CAUSE A DRIVER TO BE LOADED - 00767 M00S00686.compppr +++|* REFER TO THE OPERATION DESCRIPTIONS SHOWN BELOW. 00768 M00S00687.compppr +++|* CALLS TO DRIVER ROUTINES *RDS*, *WDS* AND *.EMS* 00769 M00S00688.compppr +++|* (CALLED BY *ENDMS* MACRO) MUST NOT BE MADE WITHOUT 00770 M00S00689.compppr +++|* FIRST ISSUING A *SETMS* CALL WITH AN OPTION THAT 00771 M00S00690.compppr +++|* DOES CAUSE A DRIVER LOAD. 00772 M00S00691.compppr +++|* 00773 M00S00692.compppr +++|* CALL 00774 M00S00693.compppr +++|* 00775 M00S00694.compppr +++|* SETMS OP,(EP),WB 00776 M00S00695.compppr +++|* OP = OPERATION TO PERFORM. 00777 M00S00696.compppr +++|* IO READ OR WRITE. 00778 M00S00697.compppr +++|* IOCH READ OR WRITE USING CHANNEL SELECTED BY 00779 M00S00698.compppr +++|* CALLER. 00780 M00S00699.compppr +++|* PIO READ OR WRITE PROTECTED SECTOR(S). 00781 M00S00700.compppr +++|* PIOCH READ OR WRITE PROTECTED SECTOR(S) USING 00782 M00S00701.compppr +++|* CHANNEL SELECTED BY CALLER. 00783 M00S00702.compppr +++|* STATUS RETURN EQUIPMENT STATUS. ALL *SETMS* EXIT 00784 M00S00703.compppr +++|* CONDITIONS ARE SATISFIED EXCEPT NO DRIVER 00785 M00S00704.compppr +++|* LOAD IS PERFORMED. 00786 M00S00705.compppr +++|* READSTR READ STREAM. VALID FOR BUFFERED I/O 00787 M00S00706.compppr +++|* DEVICES ONLY. 00788 M00S00707.compppr +++|* READSYS READ SYSTEM FILE. THIS OPTION DIRECTS 00789 M00S00708.compppr +++|* THE SYSTEM TO SELECT AN APPROPRIATE 00790 M00S00709.compppr +++|* DEVICE FROM WHICH TO READ. THIS OPTION 00791 M00S00710.compppr +++|* IMPLIES SELECTION OF THE *EPNS* ERROR 00792 M00S00711.compppr +++|* PROCESSING OPTION IN THAT *MTR* WILL NOT 00793 M00S00712.compppr +++|* RETURN THE *LNRE* ERROR FLAG FOR AN OFF OR 00794 M00S00713.compppr +++|* SUSPECT DEVICE IF THE *READSYS* OPERATION 00795 M00S00714.compppr +++|* TYPE IS IN EFFECT. 00796 M00S00715.compppr +++|* POSITION FORCE SEEK ON NEXT DRIVER CALL. NO DRIVER 00797 M00S00716.compppr +++|* LOAD OCCURS. 00798 M00S00717.compppr +++|* NODRIVER FORCE DRIVER LOAD ON NEXT *SETMS* CALL. 00799 M00S00718.compppr +++|* NO DRIVER LOAD OCCURS. THIS OPERATION IS 00800 M00S00719.compppr +++|* FORCED BY THE *PIO* AND *PIOCH* OPERATION 00801 M00S00720.compppr +++|* TYPES. 00802 M00S00721.compppr +++|* 00803 M00S00722.compppr +++|* EP ERROR PROCESSING OPTIONS. 00804 M00S00723.compppr +++|* AD = ALLOW ACCESS TO *DOWN* DEVICE. 00805 M00S00724.compppr +++|* AR = RETURN TO THE CALLER IMMEDIATELY FOR ANY TYPE 00806 M00S00725.compppr +++|* OF ERROR. NOTE - SELECTION OF AR IS EQUIVALENT 00807 M00S00726.compppr +++|* TO SELECTION OF NR, ER, AND RR. 00808 M00S00727.compppr +++|* DE = DISABLE *ENDMS*. 00809 M00S00728.compppr +++|* DF = DISABLE FAILURE EVALUATION. THE DEVICE WILL 00810 M00S00729.compppr +++|* NOT BE FLAGGED AS SUSPECT NOR WILL A TRACK BE SET 00811 M00S00730.compppr +++|* IN THE MST WHEN A MEDIA ERROR OCCURS. 00812 M00S00731.compppr +++|* ER = RETURN TO CALLER FOR NORMAL ERROR CONDITIONS. 00813 M00S00732.compppr +++|* NORMAL ERRORS ARE THOSE NOT INCLUDED IN RESERVE 00814 M00S00733.compppr +++|* ERROR TYPES. 00815 M00S00734.compppr +++|* ND = NO LEVEL 1 DIAGNOSTICS SHOULD BE RUN 00816 M00S00735.compppr +++|* (ISD DEVICES ONLY). 00817 M00S00736.compppr +++|* NF = NO FLUSH OF ECS BUFFER ON *WLSF* FUNCTION 00818 M00S00737.compppr +++|* (BUFFERED DEVICES ONLY). 00819 M00S00738.compppr +++|* NR = IMMEDIATE RETURN ON NOT READY ERRORS. THIS 00820 M00S00739.compppr +++|* INCLUDES THE FOLLOWING CONDITIONS - 00821 M00S00740.compppr +++|* A. HARDWARE NOT READY. 00822 M00S00741.compppr +++|* B. REDEFINITION IN PROGRESS. 00823 M00S00742.compppr +++|* C. DEVICE DOWN. 00824 M00S00743.compppr +++|* NS = IGNORE DEVICE STATE. THIS OPTION IS USED BY PP 00825 M00S00744.compppr +++|* PROGRAMS THAT WANT TO ATTEMPT ACCESSING A DEVICE 00826 M00S00745.compppr +++|* REGARDLESS OF ITS LOGICAL STATUS. 00827 M00S00746.compppr +++|* RR = IMMEDIATE RETURN ON RESERVE ERRORS. 00828 M00S00747.compppr +++|* RW = REWRITE DATA OPERATION, RECOPY OF EXISTING 00829 M00S00748.compppr +++|* DATA (BUFFERED DEVICES ONLY). 00830 M00S00749.compppr +++|* SM = DISALLOW *1DD* LOAD INTO THIS PP. 00831 M00S00750.compppr +++|*
| Line S00751 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00832 M01S00751.ns2776 ---|* THE SPECIFICATION OF *AD* OR *NS* HAVE NO EFFECT ON THE 00833 M01S00752.ns2776 ---|* STATUS RETURNED IN THE ACCUMULATOR BY *SETMS*. 00834 M01S00753.ns2776 ---|* 00835 M00S00754.compppr +++|* WB ADDRESS OF WRITE ERROR PROCESSING BUFFER. 00836 M00S00755.compppr +++|* 00837 M00S00756.compppr +++|* NOTE - THIS MACRO IS THE ONLY SUPPORTED INTERFACE TO THE 00838 M00S00757.compppr +++|* *.SMS* PPR ENTRY POINT. THE VALUE OF THIS SYMBOL IS 00839 M00S00758.compppr +++|* DEFINED IN *PPCOM*. 00840 M00S00759.compppr +++|*
| Line S00760 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00841 M01S00760.ns2776 ---|* EXIT (A) = 0 IF EQUIPMENT MAY BE ACCESSED. 00842 M01S00761.ns2776 ---|* = 010000B IF EQUIPMENT LOGICALLY INACCESSIBLE 00843 M01S00762.ns2776 ---|* BUT JOB IS A SUBSYSTEM SO ACCESS IS 00844 M01S00763.ns2776 ---|* ALLOWED. 00845 M01S00764.ns2776 ---|* = 410000B IF EQUIPMENT SHOULD NOT BE ACCESSED. 00846 M01S00765.ns2776 ---|* = 0 IF *POSITION* OR *NODRIVER* OPERATION.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00847 M01S00004.ns2776 +++|* EXIT (A) = 0. 00848 M00S00766.compppr +++|* (CM - CM+4) = *EQDE* WORD OF EST ENTRY. 00849 M00S00767.compppr +++|* (SLM) = MAXIMUM NUMBER OF SECTORS PER TRACK. 00850 M00S00768.compppr +++|* (UERR) = ERROR PROCESSING OPTIONS. 00851 M00S00769.compppr +++|* (MSD) = 1/S, 4/0, 1/F, 6/D 00852 M00S00770.compppr +++|* S = 1 IF JOB IS NOT A SUBSYSTEM. 00853 M00S00771.compppr +++|* F = 1 IF DEVICE IS INACCESSIBLE (DEVICE STATE 00854 M00S00772.compppr +++|* *OFF* OR *DOWN* OR SUSPECT FLAG SET). 00855 M00S00773.compppr +++|* THIS FLAG WILL ALWAYS BE CLEAR IF THE 00856 M00S00774.compppr +++|* *UCTM* JOB TERMINATION MODE IS SET. 00857 M00S00775.compppr +++|* D = DRIVER INDEX. 00858 M00S00776.compppr +++|* 0 NO DRIVER PRESENT IN PP. 00859 M00S00777.compppr +++|* 1 *6DI* PRESENT. 00860 M00S00778.compppr +++|* 2 *6DJ* PRESENT. 00861 M00S00779.compppr +++|* 3 *6DP* PRESENT. 00862 M00S00780.compppr +++|* 4 *6DE* PRESENT. 00863 M00S00781.compppr +++|* 5 *6DX* PRESENT. 00864 M00S00782.compppr +++| RDS SPACE 4,20 00865 M00S00783.compppr +++|** RDS - READ SECTOR. 00866 M00S00784.compppr +++|* 00867 M00S00785.compppr +++|* CAUTION, STORAGE MOVE MAY OCCUR. 00868 M00S00786.compppr +++|* 00869 M00S00787.compppr +++|* ENTRY DRIVER INITIALIZED (SETMS MACRO EXECUTED). 00870 M00S00788.compppr +++|* (T4) = CHANNEL IF PREVIOUSLY RESERVED OR THE OPERATION 00871 M00S00789.compppr +++|* TYPE IS *IOCH* OR *PIOCH*. 00872 M00S00790.compppr +++|* (T5) = EQUIPMENT. 00873 M00S00791.compppr +++|* (T6) = TRACK. 00874 M00S00792.compppr +++|* (T7) = SECTOR. 00875 M00S00793.compppr +++|* (A) = FWA OF DATA BUFFER. (502 WORD BUFFER NEEDED.) 00876 M00S00794.compppr +++|* 00877 M00S00795.compppr +++|* EXIT (A) = 0 IF NO ERROR OR RECOVERED ERROR.
| Line S00796 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00878 M01S00796.253l688 ---|* = 1/1, 5/0, 12/(RDCT).
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00879 M01S00051.253l688 +++|* = 1/1, 5/0, 12/(RDCT) IF UNRECOVERED ERROR. 00880 M00S00797.compppr +++|* (T4) = CHANNEL. 00881 M00S00798.compppr +++|* 00882 M00S00799.compppr +++|* NOTE REFER TO *COMSMSP* FOR A DESCRIPTION OF THE CONTENTS 00883 M00S00800.compppr +++|* OF *RDCT*. 00884 M00S00801.compppr +++| WDS SPACE 4,30 00885 M00S00802.compppr +++|** WDS - WRITE SECTOR. 00886 M00S00803.compppr +++|* 00887 M00S00804.compppr +++|* CAUTION, STORAGE MOVE MAY OCCUR. 00888 M00S00805.compppr +++|* 00889 M00S00806.compppr +++|* ENTRY DRIVER INITIALIZED (SETMS MACRO EXECUTED). 00890 M00S00807.compppr +++|* (T4) = CHANNEL IF PREVIOUSLY RESERVED OR THE OPERATION 00891 M00S00808.compppr +++|* TYPE IS *IOCH* OR *PIOCH*. 00892 M00S00809.compppr +++|* (T5) = EQUIPMENT. 00893 M00S00810.compppr +++|* (T6) = TRACK. 00894 M00S00811.compppr +++|* (T7) = SECTOR. 00895 M00S00812.compppr +++|* (A) = 6/ WF,12/ BA. 00896 M00S00813.compppr +++|* WF = WRITE LAST SECTOR FLAG. 00897 M00S00814.compppr +++|* WCSF IS ADDED TO THE BUFFER ADDRESS WHEN 00898 M00S00815.compppr +++|* WRITING CONSECUTIVE SECTORS. 00899 M00S00816.compppr +++|* WLSF IS ADDED TO THE BUFFER ADDRESS WHEN 00900 M00S00817.compppr +++|* WRITING THE LAST SECTOR. 00901 M00S00818.compppr +++|* (WDSE) = FWA OF WRITE ERROR RETRY BUFFER. 00902 M00S00819.compppr +++|* THIS BUFFER IS USED TO RETRY ERRORS ON THE PREVIOUS 00903 M00S00820.compppr +++|* SECTOR WHICH CAN OCCUR WHEN WRITING IN FULL TRACK 00904 M00S00821.compppr +++|* MODE. (502 WORD BUFFER NEEDED) 00905 M00S00822.compppr +++|* WHENEVER WDS IS ENTERED WITH WCSF SPECIFIED AN ERROR 00906 M00S00823.compppr +++|* MAY OCCUR ON THAT SECTOR WHICH MAY NOT BE DETECTED 00907 M00S00824.compppr +++|* UNTILL WRITING THE NEXT SECTOR. THUS WHEN WRITING 00908 M00S00825.compppr +++|* ANY SECTOR FOLLOWING A WCSF SECTOR THE CALLING PPU 00909 M00S00826.compppr +++|* PROGRAM MUST MAKE ALLOWANCES FOR RECOVERING THE 00910 M00S00827.compppr +++|* PREVIOUS SECTOR. THERE ARE TWO OPTIONS AVAILABLE FOR 00911 M00S00828.compppr +++|* RECOVERING THESE ERRORS. FIRST, THE 00912 M00S00829.compppr +++|* PP PROGRAM CALLING WDS MAY ELECT NOT TO SET A 00913 M00S00830.compppr +++|* BUFFER ADDRESS IN WDSE. WHEN THIS IS DONE HOWEVER 00914 M00S00831.compppr +++|* THE ACCUMULATOR MUST BE CHECKED FOR NEGATIVE WITH 00915 M00S00832.compppr +++|* BIT 9 SET UPON RETURN FROM *WDS*. 00916 M00S00833.compppr +++|* THIS INDICATES THAT THE CURRENT SECTOR DATA WAS 00917 M00S00834.compppr +++|* DESTROYED AND THUS THE PP PROGRAM MUST REGENERATE THE 00918 M00S00835.compppr +++|* DATA AND LINKAGE BYTES AND REISSUE THE SECTOR TO WDS. 00919 M00S00836.compppr +++|* THE SECOND METHOD OF RECOVERING THESE ERRORS IS 00920 M00S00837.compppr +++|* SIMPLY TO SPECIFY A BUFFER ADDRESS IN WDSE. WHEN 00921 M00S00838.compppr +++|* THIS IS DONE THE DRIVER AUTOMATICALLY ATTEMPTS 00922 M00S00839.compppr +++|* RECOVERY OF THE PREVIOUS AND REISSUES THE CURRENT 00923 M00S00840.compppr +++|* SECTOR. 00924 M00S00841.compppr +++|* 00925 M00S00842.compppr +++|* EXIT (A) = 0 IF NO ERROR OR RECOVERED ERROR.
| Line S00843 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00926 M01S00843.253l688 ---|* = 1/1, 5/0, 12/(RDCT).
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00927 M01S00052.253l688 +++|* = 1/1, 5/0, 12/(RDCT) IF UNRECOVERED ERROR. 00928 M00S00844.compppr +++|* IF BIT 11B OF *RDCT* IS SET, AN ERROR ON THE 00929 M00S00845.compppr +++|* PREVIOUS SECTOR WAS RECOVERED, BUT BECAUSE NO 00930 M00S00846.compppr +++|* WRITE ERROR PROCESSING BUFFER WAS SPECIFIED, 00931 M00S00847.compppr +++|* THE CURRENT SECTOR BUFFER WAS USED TO RECOVER 00932 M00S00848.compppr +++|* THE PREVIOUS SECTOR ERROR. SO THE CURRENT 00933 M00S00849.compppr +++|* SECTOR BUFFER MUST BE REGENERATED AND THE WRITE 00934 M00S00850.compppr +++|* OPERATION REISSUED. 00935 M00S00851.compppr +++|* (T4) = CHANNEL. 00936 M00S00852.compppr +++|* 00937 M00S00853.compppr +++|* NOTE REFER TO *COMSMSP* FOR A DESCRIPTION OF THE CONTENTS 00938 M00S00854.compppr +++|* OF *RDCT*. 00939 M00S00855.compppr +++| EMS SPACE 4,20 00940 M00S00856.compppr +++|** EMS - END MASS STORAGE OPERATION. 00941 M00S00857.compppr +++|* 00942 M00S00858.compppr +++|* CAUTION, STORAGE MOVE MAY OCCUR. 00943 M00S00859.compppr +++|* 00944 M00S00860.compppr +++|* ENTRY DRIVER INITIALIZED (SETMS MACRO EXECUTED). 00945 M00S00861.compppr +++|* (T4) = CHANNEL, IF RESERVED. 00946 M00S00862.compppr +++|* (T5) = EQUIPMENT. 00947 M00S00863.compppr +++|* (T6) = TRACK. 00948 M00S00864.compppr +++|* (T7) = SECTOR. 00949 M00S00865.compppr +++|* 00950 M00S00866.compppr +++|* EXIT (A) = 0. 00951 M00S00867.compppr +++| SPACE 4,10 00952 M00S00868.compppr +++|** USING THE MASS STORAGE DRIVERS. 00953 M00S00869.compppr +++|* 00954 M00S00870.compppr +++|* THE *SETMS* MACRO IS USED TO INITIATE A DISK I/O SEQUENCE AND 00955 M00S00871.compppr +++|* THE *ENDMS* MACRO TERMINATES IT. FOLLOWING IS THE GENERAL 00956 M00S00872.compppr +++|* FLOW TO READ AND REWRITE A SECTOR- 00957 M00S00873.compppr +++|* 00958 M00S00874.compppr +++|* SET UP T5 00959 M00S00875.compppr +++|* SETMS IO 00960 M00S00876.compppr +++|* SET UP T6 AND T7 00961 M00S00877.compppr +++|* LDC BUF 00962 M00S00878.compppr +++|* RJM RDS 00963 M00S00879.compppr +++|* MJN ERR 00964 M00S00880.compppr +++|* LDC BUF+WLSF 00965 M00S00881.compppr +++|* RJM WDS 00966 M00S00882.compppr +++|* MJN ERR IF I/O ERROR OR INACCESSIBLE DEVICE 00967 M00S00883.compppr +++|* ENDMS 00968 M00S00884.compppr +++|* 00969 M00S00885.compppr +++|* DURING AN I/O SEQUENCE, THE *SETMS* MACRO MUST BE REISSUED 00970 M00S00886.compppr +++|* WHEN- 00971 M00S00887.compppr +++|* 1) CHANGING TO A DIFFERENT EQUIPMENT. 00972 M00S00888.compppr +++|* 2) CHANGING LOGICAL TRACKS IF IT IS POSSIBLE THAT 00973 M00S00889.compppr +++|* THE FIRST SECTOR ON THE NEW TRACK MAY BE EXACTLY 00974 M00S00890.compppr +++|* ONE GREATER THAN THE LAST SECTOR WRITTEN ON THE OLD 00975 M00S00891.compppr +++|* TRACK. IN THIS CASE USE THE *POSITION* OPTION TO 00976 M00S00892.compppr +++|* FORCE A SEEK ON THE FIRST ACCESS OF THE NEW TRACK 00977 M00S00893.compppr +++|* WITHOUT ISSUING AN *LMSM* MONITOR FUNCTION. 00978 M00S00894.compppr +++|* 3) CHANGING FROM A READ OPERATION TYPE TO A WRITE 00979 M00S00895.compppr +++|* OPERATION TYPE OR VISA VERSA IF IT IS POSSIBLE THAT 00980 M00S00896.compppr +++|* THE FIRST SECTOR TO BE READ/WRITTEN UNDER THE NEW 00981 M00S00897.compppr +++|* OPERATION TYPE IS EXACTLY ONE GREATER THAN THE LAST 00982 M00S00898.compppr +++|* SECTOR WRITTEN/READ UNDER THE FORMER OPERATION. 00983 M00S00899.compppr +++|* 4) CHANGING ERROR PROCESSING OPTIONS, CHANGING 00984 M00S00900.compppr +++|* SPECIFICATION OF A WRITE ERROR PROCESSING BUFFER, 00985 M00S00901.compppr +++|* OR CHANGING THE OPERATION TYPE (E. G. FROM *IO* TO 00986 M00S00902.compppr +++|* *READSYS*). 00987 M00S00903.compppr +++|* 00988 M00S00904.compppr +++|* UNLESS ONE OF THE ABOVE CONDITIONS EXISTS, A *SETMS* IS NOT 00989 M00S00905.compppr +++|* REQUIRED IN ORDER TO DO ADDITIONAL I/O AFTER AN *ENDMS*. 00990 M00S00906.compppr +++|* 00991 M00S00907.compppr +++|* THE CALLING PROGRAM IS RESPONSIBLE FOR ISSUING AN *ENDMS* 00992 M00S00908.compppr +++|* TO TERMINATE EVERY I/O SEQUENCE THAT DOES NOT ENCOUNTER AN 00993 M00S00909.compppr +++|* ERROR. IF THE DRIVER RETURNS AN ERROR STATUS, THE *ENDMS* 00994 M00S00910.compppr +++|* IS DONE AUTOMATICALLY BY THE DRIVER, UNLESS THE *DE* OPTION 00995 M00S00911.compppr +++|* WAS SPECIFIED ON THE *SETMS*. 00996 M00S00912.compppr +++| PRS TITLE INITIALIZATION. 00997 M00S00913.compppr +++|** PRS - INITIALIZATION. 00998 M00S00914.compppr +++|*
| Line S00915 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00999 M01S00915.273l780 ---|* ENTRY (T1) = CLEAR MEMORY FLAG. 01000 M01S00916.273l780 ---|* 0 = CLEAR MEMORY.
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01001 M01S00018.273l780 +++|* ENTRY (T1) = 0 TO CLEAR PP MEMORY AND DROP PP. 01002 M01S00019.273l780 +++|* (T1) .NE. 0 IF NO PP DROP. 01003 M00S00917.compppr +++|* (IA) = INPUT REGISTER ADDRESS. 01004 M00S00918.compppr +++|* (OA) = OUTPUT REGISTER ADDRESS. 01005 M00S00919.compppr +++|* (MA) = MESSAGE BUFFER ADDRESS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2447 |
Seq # *Modification Id* Act ----------------------------+ 01006 M01S00001.ns2447 +++|* (CP) = CONTROL POINT ADDRESS. 01007 M00S00920.compppr +++| 01008 M00S00921.compppr +++| 01009 M00S00922.compppr +++| PRS LJM PPR ENTRY/EXIT ENTERED BY *RJM* FROM *STL* 01010 M00S00923.compppr +++| .A IFC EQ,/".PP"/NPP/ 01011 M00S00924.compppr +++| LDD T1 SET FLAG TO IDENTIFY CALLER 01012 M00S00925.compppr +++| STM PRSG 01013 M00S00926.compppr +++| .A ENDIF
| Line S00927 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01014 M01S00927.273l780 ---| LDN PPCP READ PP COMMUNICATION POINTER 01015 M01S00928.273l780 ---| CRD CM
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01016 M01S00020.273l780 +++| LDK PPCP READ PP COMMUNICATION POINTER 01017 M01S00021.273l780 +++| CRD CM 01018 M00S00929.compppr +++| LDD IA SET PP NUMBER
| Line S00930 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01019 M01S00930.273l780 ---| SBD CM+4 01020 M01S00931.273l780 ---| SHN -3
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01021 M01S00022.273l780 +++| SBD CM+4 01022 M01S00023.273l780 +++| SHN -PPCES 01023 M00S00932.compppr +++| STD T2 01024 M00S00933.compppr +++| SBN 2 SET (PP NUMBER - 2) * 21 01025 M00S00934.compppr +++| STD T1 01026 M00S00935.compppr +++| SHN 4 01027 M00S00936.compppr +++| RAD T1 01028 M00S00937.compppr +++| LDN PXPP READ PP EXCHANGE STATUS 01029 M00S00938.compppr +++| CRD CM 01030 M00S00939.compppr +++| LDD T1 SET EXCHANGE PACKAGE ADDRESS 01031 M00S00940.compppr +++| RAD CM+4 01032 M00S00941.compppr +++| STM XJ3+1 01033 M00S00942.compppr +++| STM XJ4+1 01034 M00S00943.compppr +++| SHN -14 01035 M00S00944.compppr +++| RAD CM+3 01036 M00S00945.compppr +++| LMC LDCI 01037 M00S00946.compppr +++| STM XJ3 01038 M00S00947.compppr +++| STM XJ4 01039 M00S00948.compppr +++| LDD CM+4 SET EXCHANGE PACKAGE MA ADDRESS 01040 M00S00949.compppr +++| ADN 6 01041 M00S00950.compppr +++| STM XJ2+1 01042 M00S00951.compppr +++| SHN -14 01043 M00S00952.compppr +++| ADD CM+3 01044 M00S00953.compppr +++| LMC LDCI 01045 M00S00954.compppr +++| STM XJ2 01046 M00S00955.compppr +++| LDN PXPP+1 READ (P), (A0), (B0) 01047 M00S00956.compppr +++| CRM FTNA,ON 01048 M00S00957.compppr +++| LDC SHNI+6 RESET SHIFT INSTRUCTION 01049 M00S00958.compppr +++| STM FTNA+4 01050 M00S00959.compppr +++| LDN ACPL READ CPU 0 STATUS 01051 M00S00960.compppr +++| CRD CM 01052 M00S00961.compppr +++| LDD CM CHECK CPU 0 01053 M00S00962.compppr +++| SHN 6 01054 M00S00963.compppr +++| PJN PRS1 IF CPU 0 AVAILABLE 01055 M00S00964.compppr +++| AOM CP1 SET CPU 1 EXCHANGE 01056 M00S00965.compppr +++| LDD HN 01057 M00S00966.compppr +++| RAM FTNA+3 01058 M00S00967.compppr +++| PRS1 LDK MABL READ HARDWARE OPTIONS 01059 M00S00968.compppr +++| CRD CM
| Line S00969 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01060 M01S00969.273l780 ---| LDD CM+1 CHECK MAINFRAME TYPE 01061 M01S00970.273l780 ---| SHN 21-13 01062 M01S00971.273l780 ---| MJN PRS2 IF NOT CM EXTENSION 01063 M01S00972.273l780 ---| AOM FTNC CHANGE READ TO FLSW+1 01064 M01S00973.273l780 ---| PRS2 LDM PRSC,CM+4 GET DELAY FACTOR FOR PP SPEED
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01065 M01S00024.273l780 +++| LDM PRSC,CM+4 GET DELAY FACTOR FOR PP SPEED 01066 M00S00974.compppr +++| STM DLYA 01067 M00S00975.compppr +++| LDM PRSD,CM+4 01068 M00S00976.compppr +++| STM FTNB+1 SET REJECTED REQUEST RETRY DELAY 01069 M00S00977.compppr +++| LDM PRSE,CM+4 01070 M00S00978.compppr +++| STM FTNE SET EXCHANGE RETRY DELAY 01071 M00S00979.compppr +++| LDM PRSF,CM+4 01072 M00S00980.compppr +++| STM FTNF SET EXCHANGE TIMEOUT DELAY 01073 M00S00981.compppr +++| LDM PRSH,CM+4 SET DELAY COUNTER 01074 M00S00982.compppr +++| STM .DLY 01075 M00S00983.compppr +++| LDN ESTP SET EST POINTER 01076 M00S00984.compppr +++| CRD CM 01077 M00S00985.compppr +++| LDD CM 01078 M00S00986.compppr +++| RAM ESTA 01079 M00S00987.compppr +++| LDD CM+1 01080 M00S00988.compppr +++| STM ESTA+1 01081 M00S00989.compppr +++| .A IFC EQ,/".PP"/NPP/ 01082 M00S00990.compppr +++| LDN DFPP SET FWA OF DAYFILE DUMP BUFFER 01083 M00S00991.compppr +++| CRD CM 01084 M00S00992.compppr +++| LDD CM+2 01085 M00S00993.compppr +++| RAM DFMB 01086 M00S00994.compppr +++| LDD CM+3 01087 M00S00995.compppr +++| STM DFMB+1
| Line S00996 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01088 M01S00996.253l688 ---| ADC DFDS+3 01089 M01S00997.253l688 ---| STM FTNG+1 STORE LOADER BOOTSTRAP ADDRESS 01090 M01S00998.253l688 ---| SHN -14 01091 M01S00999.253l688 ---| ADD CM+2 01092 M01S01000.253l688 ---| RAM FTNG 01093 M00S01001.compppr +++| LDK MMFL CHECK MMF ENVIRONMENT 01094 M00S01002.compppr +++| CRD CM
| Line S01003 Modification History | |
|---|---|
M01 (Removed by) | pppr1 |
Seq # *Modification Id* Act ----------------------------+ 01095 M01S01003.pppr1 ---| LDD CM+1 CHECK IF INDEPENDENT SHARED MMF 01096 M01S01004.pppr1 ---| SHN 6 01097 M01S01005.pppr1 ---| MJN PRS3 IF INDEPENDENT SHARED MMF 01098 M01S01006.pppr1 ---| ISTORE FTND,(UJN FTN3) REMOVE SPECIAL MONITOR FUNCTION CHECK 01099 M01S01007.pppr1 ---| SOM FTNB ADJUST TIME DELAY
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | pppr1 |
Seq # *Modification Id* Act ----------------------------+ 01100 M01S00003.pppr1 +++| LDD CM+1 01101 M01S00004.pppr1 +++| SHN -12
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | pppr1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01102 M02S00005.253l688 ---| LMN 2 01103 M02S00006.253l688 ---| ZJN PRS3 IF INDEPENDENT SHARED MMF 01104 M02S00007.253l688 ---| LMN 1&2 01105 M02S00008.253l688 ---| ZJN PRS2.1 IF LOW SPEED PORT MMF
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01106 M01S00053.253l688 +++| NJN PRS3 IF ISHARED OR LOW SPEED PORT MMF
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | pppr1 |
Seq # *Modification Id* Act ----------------------------+ 01107 M01S00009.pppr1 +++| SOM FTNB ADJUST TIME DELAY
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | pppr1 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01108 M02S00010.253l688 ---| PRS2.1 ISTORE FTND,(UJN FTN3) REMOVE SPECIAL MONITOR FUNCTION CHECK 01109 M00S01008.compppr +++| PRS3 LDC ** 01110 M00S01009.compppr +++| PRSG EQU *-1 01111 M00S01010.compppr +++| NJN PRS5 IF NOT RETURNED PP 01112 M00S01011.compppr +++| LDC PPFW 01113 M00S01012.compppr +++| STD T2 01114 M00S01013.compppr +++| LDN 0 01115 M00S01014.compppr +++| PRS4 STI T2 01116 M00S01015.compppr +++| AOD T2 01117 M00S01016.compppr +++| SHN -14 01118 M00S01017.compppr +++| ZJN PRS4 IF MORE TO CLEAR 01119 M00S01018.compppr +++| MONITOR DPPM MAKE PP AVAILABLE 01120 M00S01019.compppr +++| PRS5 LJM PRS RETURN 01121 M00S01020.compppr +++| .A ELSE 01122 M00S01021.compppr +++| LDC PRSI GET TABLE OF LONG INSTRUCTIONS 01123 M00S01022.compppr +++| STD CM+4 01124 M00S01023.compppr +++| PRS6 LDI CM+4 GET NEXT INSTRUCTION ADDRESS 01125 M00S01024.compppr +++| ZJN PRS7 IF END OF LIST 01126 M00S01025.compppr +++| STD T3 01127 M00S01026.compppr +++| BLI T3 BUILD LONG INSTRUCTION 01128 M00S01027.compppr +++| AOD CM+4 01129 M00S01028.compppr +++| UJN PRS6 PROCESS NEXT INSTRUCTION 01130 M00S01029.compppr +++|
| Line S01030 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01131 M01S01030.273l780 ---| PRS7 LDD IA READ INPUT REGISTER
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
M02 (Removed by) | pppr2 |
Seq # *Modification Id* Act ----------------------------+ 01132 M02S00025.pppr2 ---| PRS7 LDD CP SET CP ADDRESS FOR MOVE CHECK 01133 M02S00026.pppr2 ---| STM FTNG 01134 M02S00027.pppr2 ---| ADN 1 SET *FTN* RETURN TO READ FLSW+1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | pppr2 |
Seq # *Modification Id* Act ----------------------------+ 01135 M01S00001.pppr2 +++| PRS7 LDD CP SET *FTN* RETURN TO READ FLSW+1 01136 M01S00002.pppr2 +++| ADN 1
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01137 M01S00028.273l780 +++| RAM FTNC+1 01138 M01S00029.273l780 +++| LDN ZERL SET *ACPP* PARAMETERS FOR CALLING CP 01139 M01S00030.273l780 +++| CRD CM 01140 M01S00031.273l780 +++| LDD CP 01141 M01S00032.273l780 +++| STD CM+4 01142 M01S00033.273l780 +++| STD CM+2 01143 M01S00034.273l780 +++| SHN -7 01144 M01S00035.273l780 +++| STD CM
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | pppr2 |
Seq # *Modification Id* Act ----------------------------+ 01145 M01S00003.pppr2 +++| STM FTNG SET CP NUMBER FOR MOVE CHECK
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01146 M01S00036.273l780 +++| LDK PPCP 01147 M01S00037.273l780 +++| CRD MP 01148 M01S00038.273l780 +++| LDD IA SET *ACPP* ADDRESS 01149 M01S00039.273l780 +++| SBD MP+4 01150 M01S00040.273l780 +++| SHN PPXES-PPCES 01151 M01S00041.273l780 +++| ADK ACPP 01152 M01S00042.273l780 +++| ADD MP+1 01153 M01S00043.273l780 +++| SHN 6 01154 M01S00044.273l780 +++| ADD MP 01155 M01S00045.273l780 +++| SHN 14 01156 M01S00046.273l780 +++| CWD CM SET *ACPP* TO CALLING CP 01157 M01S00047.273l780 +++| 01158 M01S00048.273l780 +++|* LOAD AND EXECUTE REQUESTED ROUTINE. 01159 M01S00049.273l780 +++| 01160 M01S00050.273l780 +++| LDD IA READ INPUT REGISTER 01161 M00S01031.compppr +++| CRD IR 01162 M00S01032.compppr +++| LDD MA READ MESSAGE BUFFER 01163 M00S01033.compppr +++| CRM MP,TR
| Line S01034 Modification History | |
|---|---|
M01 (Removed by) | ns2447 |
Seq # *Modification Id* Act ----------------------------+ 01164 M01S01034.ns2447 ---| LDD IR+1 SET CP ADDRESS 01165 M01S01035.ns2447 ---| LPN 37 01166 M01S01036.ns2447 ---| SHN 7 01167 M01S01037.ns2447 ---| STD CP 01168 M00S01038.compppr +++| LDC PPR1 SET RETURN FROM *PLL* 01169 M00S01039.compppr +++| STM PLL 01170 M00S01040.compppr +++| LDD IR+1 SET PACKAGE NAME 01171 M00S01041.compppr +++| SCN 77 01172 M00S01042.compppr +++| SHN 6 01173 M00S01043.compppr +++| LMD IR 01174 M00S01044.compppr +++| SHN 6 01175 M00S01045.compppr +++| LJM PLL+1 LOAD PROGRAM 01176 M00S01046.compppr +++| .A ENDIF 01177 M00S01047.compppr +++| 01178 M00S01048.compppr +++| 01179 M00S01049.compppr +++|* DELAYS FOR 1X, 2X, AND 4X PP SPEEDS. 01180 M00S01050.compppr +++| 01181 M00S01051.compppr +++| PRSC BSS 0 INPUT REGISTER READ DELAY 01182 M00S01052.compppr +++| LOC 0 01183 M00S01053.compppr +++| CON SBNI+20 1X PP SPEED 01184 M00S01054.compppr +++| CON SBNI+10 2X PP SPEED 01185 M00S01055.compppr +++| CON SBNI+4 4X PP SPEED 01186 M00S01056.compppr +++| LOC PRSC+* 01187 M00S01057.compppr +++| 01188 M00S01058.compppr +++| PRSD BSS 0 REJECTED REQUEST RETRY DELAY 01189 M00S01059.compppr +++| LOC 0 01190 M00S01060.compppr +++| CON SBNI+2 1X PP SPEED 01191 M00S01061.compppr +++| CON SBNI+1 2X PP SPEED 01192 M00S01062.compppr +++| CON SBNI+1 4X PP SPEED 01193 M00S01063.compppr +++| LOC PRSD+* 01194 M00S01064.compppr +++| 01195 M00S01065.compppr +++| PRSE BSS 0 EXCHANGE RETRY DELAY 01196 M00S01066.compppr +++| LOC 0 01197 M00S01067.compppr +++| CON SBNI+77 1X PP SPEED 01198 M00S01068.compppr +++| CON SBNI+40 2X PP SPEED 01199 M00S01069.compppr +++| CON SBNI+20 4X PP SPEED 01200 M00S01070.compppr +++| LOC PRSE+* 01201 M00S01071.compppr +++| 01202 M00S01072.compppr +++| PRSF BSS 0 EXCHANGE TIMEOUT DELAY 01203 M00S01073.compppr +++| LOC 0 01204 M00S01074.compppr +++| CON LCNI+3 1X PP SPEED 01205 M00S01075.compppr +++| CON LCNI+2 2X PP SPEED 01206 M00S01076.compppr +++| CON LCNI+2 4X PP SPEED 01207 M00S01077.compppr +++| LOC PRSF+* 01208 M00S01078.compppr +++| 01209 M00S01079.compppr +++| PRSH CON 75,173,370 1X, 2X, 4X PP SPEEDS 01210 M00S01080.compppr +++| 01211 M00S01081.compppr +++| IFC EQ,/".PP"/NPP/,1 01212 M00S01082.compppr +++| ERRPL *-PPFW PRESET CODE FOR NONCURRENT PPS IS TOO LONG 01213 M00S01083.compppr +++| 01214 M00S01084.compppr +++| PRSI BSS 0 TABLE OF LONG INSTRUCTIONS 01215 M00S01085.compppr +++| LIST16 01216 M00S01086.compppr +++| 01217 M00S01087.compppr +++| BSS 0 LWA + 1 OF PP RESIDENT PRESET 01218 M00S01088.compppr +++| LOC *O 01219 M00S01089.compppr +++| QUAL * 01220 M00S01090.compppr +++| ENDX
cdc/nos2.source/opl.opl871/common/compppr.txt · Last modified: by 127.0.0.1