cdc:nos2.source:opl.opl871:common:compppr
Common COMPPPR
10 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.compppr +++| CTEXT COMPPPR - NPP AND CPP RESIDENT CODE. 00002 M01S00002.compppr +++| SPACE 4,10 00003 M01S00003.compppr +++| .A IF DEF,CPP$ 00004 M01S00004.compppr +++| .PP MICRO 1,, CPP SET CPP ASSEMBLY FLAG 00005 M01S00005.compppr +++| .A ELSE 00006 M01S00006.compppr +++| .PP MICRO 1,, NPP SET NPP ASSEMBLY FLAG 00007 M01S00007.compppr +++| .A ENDIF 00008 M01S00008.compppr +++| QUAL UNQUALIFY THE SYMBOLS DEFINED
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M02S00009.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1986. 00010 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00011 M01S00010.compppr +++| PPR SPACE 4,10 00012 M01S00011.compppr +++|*** PPR - NPP AND CPP RESIDENT CODE. 00013 M01S00012.compppr +++|* 00014 M01S00013.compppr +++|* G. R. MANSFIELD. 70/12/12. 00015 M01S00014.compppr +++|* R. E. TATE. 73/01/05. 00016 M01S00015.compppr +++|* P. D. HAAS. 75/04/19. 00017 M01S00016.compppr +++|* W. E. GOEBEL. 78/04/29. 00018 M01S00017.compppr +++|* J. M. MAREK. 86/03/10. 00019 M01S00018.compppr +++| SPACE 4,10 00020 M01S00019.compppr +++|*** *COMPPPR* SUPPLIES THE CODE NECESSARY TO ASSEMBLE PP RESIDENT 00021 M01S00020.compppr +++|* FOR A NONCONCURRENT PP (NPP) AND A CONCURRENT PP (CPP). 00022 M01S00021.compppr +++|* CPP-S ARE ONLY AVAILABLE IN A CYBER 180 MODEL I4 IOU. THEY 00023 M01S00022.compppr +++|* HAVE 8K MEMORIES AND USE CONCURRENT CHANNELS (CCH), BUT 00024 M01S00023.compppr +++|* OTHERWISE THEY ARE VERY SIMILAR TO NPP-S. 00025 M01S00024.compppr +++|* 00026 M01S00025.compppr +++|* *COMPPPR* CONTAINS SEVERAL *LONG* INSTRUCTIONS WHICH ACCESS 00027 M01S00026.compppr +++|* THE FULL 16 BITS IN A CYBER 180 PP-S MEMORY. THESE INSTRUC- 00028 M01S00027.compppr +++|* TIONS ARE ASSEMBLED AS *SHORT* INSTRUCTIONS AND ARE CHANGED 00029 M01S00028.compppr +++|* INTO LONG INSTRUCTIONS BY PRESET CODE WHEN *PPR* IS LOADED 00030 M01S00029.compppr +++|* INTO A CONCURRENT PP. THE LONG INSTRUCTIONS ARE REQUIRED TO 00031 M01S00030.compppr +++|* HANDLED ADDRESSES THAT MAY ORIGINATE FROM ANYWHERE IN AN 8K 00032 M01S00031.compppr +++|* MEMORY. 00033 M01S00032.compppr +++|* 00034 M01S00033.compppr +++|* *CPP$* MUST BE UNDEFINED TO PRODUCE THE NPP RESIDENT CODE. 00035 M01S00034.compppr +++|* WHENEVER IT IS DEFINED, CPP RESIDENT CODE WILL BE PRODUCED. 00036 M01S00035.compppr +++|* 00037 M01S00036.compppr +++|* XREF COMPIOU, COMSMSC. 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 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00057 M02S00037.273l780 ---| COMMON SPACE 4,10
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00058 M02S00038.273l780 ---|* COMMON DECKS - IF NOT ALREADY CALLED.
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00059 M02S00039.273l780 ---|
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00060 M02S00040.273l780 ---|
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00061 M02S00041.273l780 ---|* CTEXT COMPIOU - IOU INSTRUCTION DEFINITIONS.
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00062 M02S00042.273l780 ---|* CTEXT COMSMSC - MISCELLANEOUS SYSTEM CONSTANTS.
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00063 M02S00043.273l780 ---|
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00064 M02S00044.273l780 ---| LIST -X
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00065 M02S00045.273l780 ---|*CALLC COMPIOU
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00066 M02S00046.273l780 ---|*CALLC COMSMSC
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00067 M02S00047.273l780 ---| LIST * 00068 M01S00048.compppr +++| SPACE 4,10 00069 M01S00049.compppr +++|**** ASSEMBLY CONSTANTS. 00070 M01S00050.compppr +++| 00071 M01S00051.compppr +++| 00072 M01S00052.compppr +++| DEC MICRO 1,, PPR DECK NAME 00073 M01S00053.compppr +++| DIRECT SPACE 4,10 00074 M01S00054.compppr +++|** DIRECT LOCATION ASSIGNMENTS. 00075 M01S00055.compppr +++| 00076 M01S00056.compppr +++| 00077 M01S00057.compppr +++| LOC 0 00078 M01S00058.compppr +++| T0 CON 0 TEMPORARY STORAGE 00079 M01S00059.compppr +++| T1 CON 0 00080 M01S00060.compppr +++| T2 CON 0 00081 M01S00061.compppr +++| T3 CON 0 00082 M01S00062.compppr +++| T4 CON 0 00083 M01S00063.compppr +++| T5 CON 0 00084 M01S00064.compppr +++| T6 CON 0 00085 M01S00065.compppr +++| T7 CON 0 00086 M01S00066.compppr +++| 00087 M01S00067.compppr +++| CM VFD 60/0 CM WORD BUFFER 00088 M01S00068.compppr +++| LA CON 0 PP PACKAGE LOAD ADDRESS 00089 M01S00069.compppr +++| T8 CON 0 TEMPORARY STORAGE 00090 M01S00070.compppr +++| T9 CON 0 00091 M01S00071.compppr +++| 00092 M01S00072.compppr +++|* THE FOLLOWING 15D DIRECT CELLS ARE NORMALLY UNUSED. 00093 M01S00073.compppr +++|* HOWEVER, FOR THE BENEFIT OF CERTAIN PP PROGRAMS, *PPR* 00094 M01S00074.compppr +++|* READS THE FIRST THREE WORDS OF THE PP MESSAGE BUFFER 00095 M01S00075.compppr +++|* INTO THIS AREA IMMEDIATELY AFTER PP ASSIGNMENT SO THAT 00096 M01S00076.compppr +++|* THE INFORMATION IS NOT DESTROYED BY LOADING OF THE PP. 00097 M01S00077.compppr +++| 00098 M01S00078.compppr +++| MP BSS 3*5 MESSAGE BUFFER PARAMETERS 00099 M01S00079.compppr +++| 00100 M01S00080.compppr +++| BSS 50-* UNUSED AREA 00101 M01S00081.compppr +++| 00102 M01S00082.compppr +++| IR VFD 60/0 INPUT REGISTER 00103 M01S00083.compppr +++| RA CON 0 REFERENCE ADDRESS/100 00104 M01S00084.compppr +++| FL CON 0 FIELD LENGTH/100 00105 M01S00085.compppr +++| CON 0 UNUSED 00106 M01S00086.compppr +++| 00107 M01S00087.compppr +++| BSS 70-* UNUSED 00108 M01S00088.compppr +++| 00109 M01S00089.compppr +++| ON CON 1 CONSTANT 1 00110 M01S00090.compppr +++| HN CON 100 CONSTANT 100 00111 M01S00091.compppr +++| D1 EQU HN USE FOR INDIRECT REFERENCE TO *DRSW* 00112 M01S00092.compppr +++| TH CON 1000 CONSTANT 1000 00113 M01S00093.compppr +++| TR CON 3 CONSTANT 3 00114 M01S00094.compppr +++| CP CON 0 CONTROL POINT ADDRESS 00115 M01S00095.compppr +++| IA CON 0 INPUT REGISTER ADDRESS 00116 M01S00096.compppr +++| OA CON 0 OUTPUT REGISTER ADDRESS 00117 M01S00097.compppr +++| MA CON 0 MESSAGE BUFFER ADDRESS 00118 M01S00098.compppr +++| DRSW CON 0 DRIVER SCRATCH 00119 M01S00099.compppr +++| ERRNZ DRSW-100 USE OF *D1* REQUIRES DRSW = 100 00120 M01S00100.compppr +++| 00121 M01S00101.compppr +++| WDSE CON 0 WRITE ERROR PROCESSING BUFFER ADDRESS 00122 M01S00102.compppr +++| ERXA CON 0 *RDS/WDS* EXIT ADDRESS FOR *7ES* 00123 M01S00103.compppr +++| RDCT CON 0 MS ERROR PROCESSOR INTERFACE WORD 00124 M01S00104.compppr +++| STSA CON 0 DEVICE STATUS 00125 M01S00105.compppr +++| STSB CON 0 DRIVER CHANNEL ERROR STATUS 00126 M01S00106.compppr +++| UERR CON 0 ERROR PROCESSING OPTIONS 00127 M01S00107.compppr +++| SLM CON 0 SECTOR LIMIT
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00128 M02S00108.252l678 ---| MSD CON 2R** MASS STORAGE DESIGNATOR WORD 00129 M01S00001.252l678 +++| MSD CON 77 MASS STORAGE DESIGNATOR WORD 00130 M01S00109.compppr +++| CHRV CON 0 CHANNEL RESERVATION INDICATOR 00131 M01S00110.compppr +++|**** 00132 M01S00111.compppr +++| PPR TITLE PP RESIDENT. 00133 M01S00112.compppr +++| FTN SPACE 4,10 00134 M01S00113.compppr +++|*** FTN - PROCESS MONITOR FUNCTION. 00135 M01S00114.compppr +++|* ALSO PAUSES WHEN ENTERED WITH (A) = 0. 00136 M01S00115.compppr +++|* 00137 M01S00116.compppr +++|* ENTRY (A) = FUNCTION. 00138 M01S00117.compppr +++|* (A) = 0 IF TO PAUSE FOR RELOCATION. 00139 M01S00118.compppr +++|* (CM+1 - CM+4) = PARAMETERS, IF FUNCTION PRESENT. 00140 M01S00119.compppr +++|* 00141 M01S00120.compppr +++|* EXIT (A) = 0. 00142 M01S00121.compppr +++|* (CM - CM+4) = CONTENTS OF OUTPUT REGISTER. 00143 M01S00122.compppr +++|* (RA) = REFERENCE ADDRESS. 00144 M01S00123.compppr +++|* (FL) = FIELD LENGTH. 00145 M01S00124.compppr +++| 00146 M01S00125.compppr +++| 00147 M01S00126.compppr +++| OFTNA SET *O 00148 M01S00127.compppr +++| FTNA VFD 6/0 00149 M01S00128.compppr +++| VFD 18/0 (P) 00150 M01S00129.compppr +++| VFD 18/0 (A0) 00151 M01S00130.compppr +++| VFD 18/0 (B0) 00152 M01S00131.compppr +++| ORG OFTNA+4 00153 M01S00132.compppr +++| LOC FTNA+4 00154 M01S00133.compppr +++| FTN7 SHN 21-13 CHECK RETRY OF REQUEST 00155 M01S00134.compppr +++| PJN FTN10 IF REQUEST NOT REJECTED 00156 M01S00135.compppr +++| SHN 21-11-21+13 CHECK FOR PARTIAL COMPLETION 00157 M01S00136.compppr +++| MJN FTN8 IF MORE PROCESSING
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | pppr1 |
Seq # *Modification Id* Act ----------------------------+ 00158 M02S00137.pppr1 ---| FTNB LDC SBNI+1+10000 (INDEPENDENT SHARED DEVICES)
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | pppr1 |
Seq # *Modification Id* Act ----------------------------+ 00159 M02S00138.pppr1 ---|* LDC SBNI+1 (NO INDEPENDENT SHARED DEVICES) 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 M01S00139.compppr +++|* SBN 1 IF 4X PPU 00163 M01S00140.compppr +++|* SBN 1 IF 2X PPU 00164 M01S00141.compppr +++|* SBN 2 IF 1X PPU 00165 M01S00142.compppr +++| NJN *-1 IF DELAY IS NOT COMPLETE 00166 M01S00143.compppr +++| FTN8 LDD CM RESET FUNCTION FOR RETRY 00167 M01S00144.compppr +++| LPC 177 00168 M01S00145.compppr +++| UJN FTN1 REISSUE FUNCTION 00169 M01S00146.compppr +++| 00170 M01S00147.compppr +++|* CHECK FOR MOVE REQUESTED. 00171 M01S00148.compppr +++| 00172 M01S00149.compppr +++| FTN9 LDN CMCL 00173 M01S00150.compppr +++| CRD CM 00174 M01S00151.compppr +++| LDD CM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00175 M02S00001.273l780 ---| SHN 7 CONVERT NUMBER TO ADDRESS
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00176 M02S00152.273l780 ---| LMD CP 00177 M01S00001.273l780 +++| LMC ** 00178 M01S00002.273l780 +++| FTNG EQU *-1 (ASSIGNED CP/PCP NUMBER) 00179 M01S00153.compppr +++| NJN FTN11 IF NOT AT MOVE 00180 M01S00154.compppr +++| LDN PRLM 00181 M01S00155.compppr +++| UJN FTN1 PAUSE FOR MOVE 00182 M01S00156.compppr +++| 00183 M01S00157.compppr +++| FTN10 LDC SBNI+20 DELAY 00184 M01S00158.compppr +++| PJN *-1 IF DELAY NOT COMPLETE 00185 M01S00159.compppr +++| LDD OA READ OUTPUT REGISTER 00186 M01S00160.compppr +++| CRD CM 00187 M01S00161.compppr +++| LDD CM
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00188 M02S00162.253l688 ---| SBN 2 00189 M01S00020.253l688 +++| ADK -BOTM 00190 M01S00163.compppr +++| .A IFC EQ,/".PP"/NPP/
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00191 M02S00164.253l688 ---| PJN FTN7 IF OUTPUT REGISTER NOT CLEAR 00192 M01S00021.253l688 +++| UJN FTN1.1 CHECK RESPONSE 00193 M01S00165.compppr +++| .A ELSE 00194 M01S00166.compppr +++| PJN FTN1.1 IF OUTPUT REGISTER NOT CLEAR 00195 M01S00167.compppr +++| .A ENDIF 00196 M01S00168.compppr +++| 00197 M01S00169.compppr +++|* RE-ENTER HERE FROM *1RU* AND *1FA*. 00198 M01S00170.compppr +++|
| Line S00171 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00199 M02S00171.273l780 ---| FTN11 LDD CP READ RA AND FL
| Line S00172 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00200 M02S00172.273l780 ---| FTNC ADN FLSW
| Line S00173 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00201 M02S00173.273l780 ---|* ADN FLSW+1 (CME PRESENT) 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 M01S00174.compppr +++| CRD CM 00209 M01S00175.compppr +++| LRD CM+1 00210 M01S00176.compppr +++| LDD CM+3 00211 M01S00177.compppr +++| STD RA 00212 M01S00178.compppr +++| LDD CM+4 00213 M01S00179.compppr +++| STD FL 00214 M01S00180.compppr +++| LDD OA REREAD OUTPUT REGISTER 00215 M01S00181.compppr +++| CRD CM 00216 M01S00182.compppr +++| LDN 0 00217 M01S00183.compppr +++| 00218 M01S00184.compppr +++| FTN SUBR ENTRY/EXIT 00219 M01S00185.compppr +++| ZJN FTN9 IF PAUSE REQUEST 00220 M01S00186.compppr +++| FTN1 STD CM STORE FUNCTION
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00221 M02S00187.273l780 ---| LDD OA ENTER OUTPUT REGISTER 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 M01S00188.compppr +++| CWD CM 00228 M01S00189.compppr +++| LDN CPUM-1 CHECK FUNCTION 00229 M01S00190.compppr +++| SBD CM 00230 M01S00191.compppr +++| 00231 M01S00192.compppr +++| .A IFC EQ,/".PP"/NPP/ 00232 M01S00193.compppr +++| FTN2 PJN FTN10 IF NOT CPU FUNCTION
| Line S00194 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00233 M02S00194.253l688 ---| FTND ADN ISDM-CPUM
| Line S00195 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00234 M02S00195.253l688 ---|*FTND UJN FTN3 (NO INDEPENDENT SHARED DEVICES)
| Line S00196 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00235 M02S00196.253l688 ---|*FTND UJN FTN3 (DURING 1RU/1FA PROCESSING)
| Line S00197 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00236 M02S00197.253l688 ---| MJN FTN3 IF NOT FUNCTION THAT ACCESSES ISD TABLES
| Line S00198 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00237 M02S00198.253l688 ---| LDD CM+1 CHECK FOR INDEPENDENT SHARED DEVICE
| Line S00199 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00238 M02S00199.253l688 ---| LPC 777
| Line S00200 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00239 M02S00200.253l688 ---| SFA EST CONVERT TO EST ENTRY ADDRESS
| Line S00201 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00240 M02S00201.253l688 ---| ADK EQDE
| Line S00202 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00241 M02S00202.253l688 ---| CRD CM
| Line S00203 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00242 M02S00203.253l688 ---| LDD CM
| Line S00204 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00243 M02S00204.253l688 ---| SHN 21-4
| Line S00205 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00244 M02S00205.253l688 ---| MJN FTN6 IF INDEPENDENT SHARED DEVICE 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 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00252 M02S00029.273l780 ---|* LOAD BOOTSTRAP SPECIFIED BY *BOTM*. 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. 00256 M01S00030.253l688 +++|
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00257 M02S00031.273l780 ---| FTN1.2 LDD CM+1 GET CM ADDRESS OF BOOTSTRAP. 00258 M01S00017.273l780 +++| FTN1.2 ADD CM+1 GET CM ADDRESS OF BOOTSTRAP 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 M01S00206.compppr +++| .A ELSE 00266 M01S00207.compppr +++| MJN FTN3 IF CPU FUNCTION 00267 M01S00208.compppr +++| FTN1.1 SBN CPUM-2 00268 M01S00209.compppr +++| PJP FTN7 IF CPU FUNCTION 00269 M01S00210.compppr +++| LDK PPRL SET MTR REQUEST FLAG 00270 M01S00211.compppr +++| CRD CM 00271 M01S00212.compppr +++| LDD OA 00272 M01S00213.compppr +++| STD CM 00273 M01S00214.compppr +++| LDK PPRL 00274 M01S00215.compppr +++| CWD CM 00275 M01S00216.compppr +++| FTN2 LJM FTN10 DELAY 00276 M01S00217.compppr +++| .A ENDIF 00277 M01S00218.compppr +++| 00278 M01S00219.compppr +++| FTN3 BSS 0 00279 M01S00220.compppr +++| XJ2 LDC ** READ (MA), (A6), (B6) 00280 M01S00221.compppr +++| CRD CM 00281 M01S00222.compppr +++| LDD CM CHECK (MA) 00282 M01S00223.compppr +++| ADD CM+1 00283 M01S00224.compppr +++| NJN FTN3 IF EXCHANGE PACKAGE NOT READY 00284 M01S00225.compppr +++| LDN PPXL SET *PP EXCHANGE PENDING* FLAG 00285 M01S00226.compppr +++| CWD HN 00286 M01S00227.compppr +++| 00287 M01S00228.compppr +++| FTN4 BSS 0 00288 M01S00229.compppr +++| XJ3 LDC ** STORE (P), (A0), (B0) 00289 M01S00230.compppr +++| CWM FTNA,ON 00290 M01S00231.compppr +++| 00291 M01S00232.compppr +++| FTN5 BSS 0 00292 M01S00233.compppr +++| XJ4 LDC * EXCHANGE CPU 00293 M01S00234.compppr +++| CP1 MXN 0 00294 M01S00235.compppr +++| CRD CM CHECK (B0) 00295 M01S00236.compppr +++| LDD CM+4 00296 M01S00237.compppr +++| ZJN FTN2 IF EXCHANGE TAKEN 00297 M01S00238.compppr +++| 00298 M01S00239.compppr +++|* DELAY FOR 20 MICS BEFORE RETRYING EXCHANGE. 00299 M01S00240.compppr +++|* (A) = 1006 = (FTNA+4) = DELAY VALUE. 00300 M01S00241.compppr +++| 00301 M01S00242.compppr +++| FTNE SBN 20 (4X PPU) 00302 M01S00243.compppr +++|* SBN 40 (2X PPU) 00303 M01S00244.compppr +++|* SBN 77 (1X PPU) 00304 M01S00245.compppr +++| PJN *-1 IF NOT END OF DELAY 00305 M01S00246.compppr +++| 00306 M01S00247.compppr +++|* CHECK FOR TIME OUT ON EXCHANGE REQUEST. 00307 M01S00248.compppr +++|* (T0) = P+1 OF *CWM FTNA* INSTRUCTION. 00308 M01S00249.compppr +++| 00309 M01S00250.compppr +++| FTNF LCN 2 (4X PPU) 00310 M01S00251.compppr +++|* LCN 2 (2X PPU) 00311 M01S00252.compppr +++|* LCN 3 (1X PPU) 00312 M01S00253.compppr +++| RAD T0 00313 M01S00254.compppr +++| PJN FTN5 IF NOT TO REQUEST PP EXCHANGE PRIORITY 00314 M01S00255.compppr +++| LDN CPSL HAVE CPUMTR NOTE PP REQUESTING EXCHANGE 00315 M01S00256.compppr +++| CWD CM 00316 M01S00257.compppr +++| UJN FTN4 RESET (T0)
| Line S00258 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00317 M02S00258.253l688 ---|
| Line S00259 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00318 M02S00259.253l688 ---| .A IFC EQ,/".PP"/NPP/
| Line S00260 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00319 M02S00260.253l688 ---| FTN6 BSS 0
| Line S00261 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00320 M02S00261.253l688 ---| FTNG LDC ** ADDRESS OF LOAD BOOTSTRAP
| Line S00262 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00321 M02S00262.253l688 ---| CRM 10001-5*3,TR READ THE BOOTSTRAP
| Line S00263 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00322 M02S00263.253l688 ---| .A ENDIF 00323 M01S00264.compppr +++| .BLI SPACE 4,20 00324 M01S00265.compppr +++|*** BLI - BUILD LONG INSTRUCTION (CPPS ONLY). 00325 M01S00266.compppr +++|* 00326 M01S00267.compppr +++|* *BLI* USES A *STIL* INSTRUCTION (WHICH IS BUILT BY *1MA*) TO 00327 M01S00268.compppr +++|* CREATE LONG INSTRUCTIONS IN A CYBER 180 CPP. 00328 M01S00269.compppr +++|* 00329 M01S00270.compppr +++|* ENTRY (A) = THE LONG INSTRUCTION. 00330 M01S00271.compppr +++|* (T3) = THE ADDRESS AT WHICH TO STORE THE INSTRUCTION. 00331 M01S00272.compppr +++|* (.EST) = RETURN ADDRESS. 00332 M01S00273.compppr +++|* 00333 M01S00274.compppr +++|* NOTE - *.BLI* IS ONLY TO BE USED BY THE *BLI* MACRO. *.BLI* 00334 M01S00275.compppr +++|* EXITS TO THE RETURN ADDRESS OF THE LAST CALL TO *.EST*. THIS 00335 M01S00276.compppr +++|* IS A VERY UNUSUAL EXIT PATH, BUT IT ALLOWS THE BUILDING OF 00336 M01S00277.compppr +++|* LONG INSTRUCTIONS TO BE ACCOMPLISHED AT THE COST OF ONLY ONE 00337 M01S00278.compppr +++|* BYTE IN PP RESIDENT. 00338 M01S00279.compppr +++| 00339 M01S00280.compppr +++| 00340 M01S00281.compppr +++| BSSZ .BLI-* (SPARES) 00341 M01S00282.compppr +++| 00342 M01S00283.compppr +++| .BLI STI T3 00343 M01S00284.compppr +++|* STIL T3 (SET BY *1MA* DURING CPP DEADSTART) 00344 M01S00285.compppr +++|* UJN .ESTX RETURN 00345 M01S00286.compppr +++| 00346 M01S00287.compppr +++| 00347 M01S00288.compppr +++| ERRNZ .BLI+1-.ESTX *BLI* ASSUMES THE RELATIONSHIP 00348 M01S00289.compppr +++| ERRNZ .BLI+2-.EST *BLI* ASSUMES THE RELATIONSHIP 00349 M01S00290.compppr +++| .EST SPACE 4,10 00350 M01S00291.compppr +++|** .EST - CONVERT EST ORDINAL TO EST ADDRESS. 00351 M01S00292.compppr +++|* 00352 M01S00293.compppr +++|* ENTRY (A) = EST ORDINAL. 00353 M01S00294.compppr +++|* 00354 M01S00295.compppr +++|* EXIT (A) = ADDRESS OF EST ENTRY. 00355 M01S00296.compppr +++|* 00356 M01S00297.compppr +++|* USES T0 (IF *ESTE* IS NOT A POWER OF 2). 00357 M01S00298.compppr +++|* 00358 M01S00299.compppr +++|* MACROS CFI. 00359 M01S00300.compppr +++| 00360 M01S00301.compppr +++| 00361 M01S00302.compppr +++| .EST SUBR ENTRY/EXIT 00362 M01S00303.compppr +++| CFI EST 00363 M01S00304.compppr +++| ESTA ADC ** (SET IN PRESET) 00364 M01S00305.compppr +++| UJN .ESTX RETURN 00365 M01S00001.ns2594 +++| 00366 M01S00002.ns2594 +++| BSSZ .DLY-* (SPARES FOR *CFI* MACRO IF *ESTE* CHANGES) 00367 M01S00306.compppr +++| DLY SPACE 4,10 00368 M01S00307.compppr +++|** .DLY - DELAY COUNT FOR 125 MICROSECONDS 00369 M01S00308.compppr +++|* 00370 M01S00309.compppr +++|* THE .DLY CELL IS FOR USE WITH THE DELAY MACRO TO FORM 00371 M01S00310.compppr +++|* A 125 MICROSECOND DELAY. IT ASSUMES THE FOLLOWING CODE 00372 M01S00311.compppr +++|* TO DELAY IS USED. 00373 M01S00312.compppr +++|* LDM .DLY 00374 M01S00313.compppr +++|* SBN 1 00375 M01S00314.compppr +++|* NJN *-1 IF NOT END OF DELAY 00376 M01S00315.compppr +++| 00377 M01S00316.compppr +++| 00378 M01S00317.compppr +++| .DLY CON 75 DELAY COUNT FOR 1X PPU 00379 M01S00318.compppr +++|* CON 173 DELAY COUNT FOR 2X PPU 00380 M01S00319.compppr +++|* CON 370 DELAY COUNT FOR 4X PPU 00381 M01S00320.compppr +++| 00382 M01S00321.compppr +++| DLYA SBN 20 1X PP 00383 M01S00322.compppr +++|* SBN 10 2X PP 00384 M01S00323.compppr +++|* SBN 4 4X PP 00385 M01S00324.compppr +++| SPACE 4 00386 M01S00325.compppr +++| 00387 M01S00326.compppr +++| ERRNG EFTN-* *FTN* HAS OVERFLOWED 00388 M01S00327.compppr +++| 00389 M01S00328.compppr +++| PPR SPACE 4,10 00390 M01S00329.compppr +++|*** PPR - PP RESIDENT. 00391 M01S00330.compppr +++|* 00392 M01S00331.compppr +++|* EVERY 128 MICROSECONDS, PPR READS THE INPUT REGISTER 00393 M01S00332.compppr +++|* AND CHECKS FOR THE PRESENCE OF A PROGRAM NAME. IF ONE IS 00394 M01S00333.compppr +++|* PRESENT *PLL* IS CALLED TO LOAD THE REQUESTED PROGRAM. 00395 M01S00334.compppr +++| 00396 M01S00335.compppr +++| 00397 M01S00336.compppr +++| BSSZ PPR-* (SPARES) 00398 M01S00337.compppr +++| 00399 M01S00338.compppr +++| .A IFC EQ,/".PP"/NPP/ 00400 M01S00339.compppr +++| PPR LDN PPRL FETCH LOAD PARAMETERS 00401 M01S00340.compppr +++| CRD CM 00402 M01S00341.compppr +++| UJN PLL9 LOAD PP IDLE LOOP 00403 M01S00342.compppr +++| .A ELSE 00404 M01S00343.compppr +++| PPR UJN * HANG TO AWAIT IDLE STATE 00405 M01S00344.compppr +++| .A ENDIF 00406 M01S00345.compppr +++| 00407 M01S00346.compppr +++| PPR1 LJM 5,LA ENTER PROGRAM 00408 M01S00347.compppr +++| PLL SPACE 4,15 00409 M01S00348.compppr +++|** PLL - PERIPHERAL LIBRARY LOADER. 00410 M01S00349.compppr +++|* 00411 M01S00350.compppr +++|* ENTRY (A) = PACKAGE NAME. 00412 M01S00351.compppr +++|* (LA) = LOAD ADDRESS FOR LOCATION FREE ROUTINES. 00413 M01S00352.compppr +++|* 00414 M01S00353.compppr +++|* USES CM - CM+4, LA. FOR *RPL* LOAD. 00415 M01S00354.compppr +++|* T1 - T7, CM - CM+4, LA, T8, T9. FOR *PLD* LOAD. 00416 M01S00355.compppr +++|* 00417 M01S00356.compppr +++|* CALLS LEP, RDS. 00418 M01S00357.compppr +++|* 00419 M01S00358.compppr +++|* MACROS ENDMS, MONITOR, MSERR, PAUSE, SETMS. 00420 M01S00359.compppr +++| 00421 M01S00360.compppr +++| 00422 M01S00361.compppr +++| BSSZ PLLA-1-* (SPARES) 00423 M01S00362.compppr +++| 00424 M01S00363.compppr +++| PLL8 LDC * 00425 M01S00364.compppr +++| PLLA EQU *-1 00426 M01S00365.compppr +++| STD CM+2 00427 M01S00366.compppr +++| LDC * 00428 M01S00367.compppr +++| PLLB EQU *-1 00429 M01S00368.compppr +++| STD CM+3 00430 M01S00369.compppr +++| MONITOR SPLM 00431 M01S00370.compppr +++| PLL9 UJN PLL2 LOAD PROGRAM 00432 M01S00371.compppr +++| 00433 M01S00372.compppr +++| PLL10 LMD CM+1 READ PACKAGE FROM RPL 00434 M01S00373.compppr +++| SHN 14 00435 M01S00374.compppr +++| ADD CM+2 00436 M01S00375.compppr +++| CRM **,CM+3 00437 M01S00376.compppr +++| PLLC EQU *-1 00438 M01S00377.compppr +++| PLL11 PAUSE NE 00439 M01S00038.253l688 +++| PLLD EQU *-1 00440 M01S00039.253l688 +++|* RJM PPFW-1 (*1BP* LOAD OF MAIN OVERLAY) 00441 M01S00378.compppr +++| 00442 M01S00379.compppr +++| PLL SUBR ENTRY/EXIT 00443 M01S00380.compppr +++| STM PLLB 00444 M01S00381.compppr +++| SHN -14 00445 M01S00382.compppr +++| STM PLLA 00446 M01S00383.compppr +++| LDD OA 00447 M01S00384.compppr +++| CRD CM 00448 M01S00385.compppr +++| SOD CM 00449 M01S00040.253l688 +++| ERRNZ ASCM-1 CODE DEPENDS ON VALUE 00450 M01S00386.compppr +++| NJN PLL8 IF LIBRARY NOT SEARCHED 00451 M01S00387.compppr +++| LDD OA 00452 M01S00388.compppr +++| CWD CM 00453 M01S00389.compppr +++| 00454 M01S00390.compppr +++|* RE-ENTER HERE FROM *7SE* TO RETRY AFTER ERRORS. 00455 M01S00391.compppr +++|* IF THE ERROR WAS FROM READING A PROGRAM FROM AN ALTERNATE 00456 M01S00392.compppr +++|* SYSTEM DEVICE *7SE* WILL HAVE DISABLED THE ALTERNATE 00457 M01S00393.compppr +++|* SYSTEM COPY OF THE PROGRAM. THE RETRY WILL THEN GO 00458 M01S00394.compppr +++|* TO A SYSTEM DEVICE. 00459 M01S00395.compppr +++| 00460 M01S00396.compppr +++| PLL2 LDD CM+4 SET LOAD ADDRESS 00461 M01S00397.compppr +++| NJN PLL3 IF NOT ZERO LEVEL OVERLAY 00462 M01S00398.compppr +++| LDDL LA 00463 M01S00399.compppr +++| PLL3 STDL LA 00464 M01S00400.compppr +++| 00465 M01S00401.compppr +++|* ENTRY FOR MASS STORAGE ERROR PROCESSOR LOADS. 00466 M01S00402.compppr +++| 00467 M01S00403.compppr +++| PLL4 STML PLLC STORE ADDRESS FOR *CRM* 00468 M01S00404.compppr +++| LDD CM+1 00469 M01S00405.compppr +++| LPC 300 00470 M01S00406.compppr +++| NJN PLL10 IF LOAD FROM RPL 00471 M01S00407.compppr +++| 00472 M01S00408.compppr +++|* PROCESS LOAD FROM SYSTEM OR ALTERNATE SYSTEM DEVICE. 00473 M01S00409.compppr +++| 00474 M01S00410.compppr +++| LDD OA SET EQUIPMENT FOR *SMS* 00475 M01S00411.compppr +++| CRD T4 00476 M01S00412.compppr +++| SETMS READSYS 00477 M01S00413.compppr +++| 00478 M01S00414.compppr +++| .A IFC EQ,/".PP"/NPP/ 00479 M01S00415.compppr +++| LDD LA SET READ ADDRESS POINTER 00480 M01S00416.compppr +++| SBN 2 00481 M01S00417.compppr +++| STD T3 00482 M01S00418.compppr +++| PLL5 LDI T3 SAVE TWO BYTES 00483 M01S00419.compppr +++| STD T8 00484 M01S00420.compppr +++| LDM 1,T3 00485 M01S00421.compppr +++| STD T9 00486 M01S00422.compppr +++| LDD T3 READ SECTOR 00487 M01S00423.compppr +++| RJM RDS 00488 M01S00424.compppr +++| MJN PLL7 IF READ ERROR 00489 M01S00425.compppr +++| AOD T7 SET NEXT SECTOR 00490 M01S00426.compppr +++| LMM SLM 00491 M01S00427.compppr +++| NJN PLL6 IF NOT NEW TRACK 00492 M01S00428.compppr +++| STD T7 00493 M01S00429.compppr +++| LDI T3 00494 M01S00430.compppr +++| STD T6 00495 M01S00431.compppr +++| PLL6 LDD T8 RESTORE TWO BYTES 00496 M01S00432.compppr +++| STI T3 00497 M01S00433.compppr +++| LDD T9 00498 M01S00434.compppr +++| STM 1,T3 00499 M01S00435.compppr +++| LDC 500 INCREMENT ADDRESS OF READ 00500 M01S00436.compppr +++| RAD T3 00501 M01S00437.compppr +++| SOM 3,LA 00502 M01S00438.compppr +++| NJN PLL5 IF NOT EOR 00503 M01S00439.compppr +++| ENDMS END MASS STORAGE 00504 M01S00440.compppr +++| LJM PLL11 RETURN 00505 M01S00441.compppr +++| 00506 M01S00442.compppr +++| PLL7 MSERR 7SE,* 00507 M01S00443.compppr +++| UJN LEP1 LOAD *7SE* 00508 M01S00444.compppr +++| 00509 M01S00445.compppr +++| .A ELSE 00510 M01S00446.compppr +++| RJM RDS READ OVERLAY 00511 M01S00447.compppr +++| MJN PLL5 IF READ ERROR 00512 M01S00448.compppr +++| ENDMS END MASS STORAGE 00513 M01S00449.compppr +++| LJM PLL11 RETURN 00514 M01S00450.compppr +++| 00515 M01S00451.compppr +++| PLL5 LDM PLL CHECK CALLER 00516 M01S00452.compppr +++| LMC PPR1 00517 M01S00453.compppr +++| ZJN PLL6 IF CALLED BY PRESET 00518 M01S00454.compppr +++| LDK HNGM-DPPM HANG THE CPP 00519 M01S00455.compppr +++| PLL6 ADK DPPM DROP THE CPP 00520 M01S00456.compppr +++| RJM FTN 00521 M01S00457.compppr +++| LJM PPR IDLE 00522 M01S00458.compppr +++| .A ENDIF 00523 M01S00459.compppr +++| 00524 M01S00460.compppr +++| 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 M01S00461.compppr +++| LEP SPACE 4,10 00536 M01S00462.compppr +++|** LEP - LOAD MASS STORAGE ERROR PROCESSING OVERLAY. 00537 M01S00463.compppr +++|* 00538 M01S00464.compppr +++|* ENTRY (A) = OVERLAY NAME & 3R7DP. 00539 M01S00465.compppr +++|* 00540 M01S00466.compppr +++|* USES T1. 00541 M01S00467.compppr +++| 00542 M01S00468.compppr +++| 00543 M01S00469.compppr +++| BSSZ LEP-* (SPARES) 00544 M01S00470.compppr +++| 00545 M01S00471.compppr +++| LMSE EQU 10001-3*5 00546 M01S00472.compppr +++| 00547 M01S00473.compppr +++| LEP MSERR 7EQ,* 00548 M01S00474.compppr +++| .A IFC EQ,/".PP"/NPP/ 00549 M01S00475.compppr +++| LEP1 LMC 3R7DQ 00550 M01S00476.compppr +++| STD T1 00551 M01S00477.compppr +++| LDN MSEL READ/EXECUTE PRELOADER 00552 M01S00478.compppr +++| CRM LMSE,TR 00553 M01S00479.compppr +++| .A ELSE 00554 M01S00480.compppr +++| UJN * HANG - ERROR PROCESSORS DO NOT WORK IN CPP 00555 M01S00481.compppr +++| .A ENDIF 00556 M01S00482.compppr +++| DFM SPACE 4,25 00557 M01S00483.compppr +++|*** DFM - SEND DAYFILE MESSAGE. 00558 M01S00484.compppr +++|* 00559 M01S00485.compppr +++|* CAUTION - DAYFILE MESSAGES SHOULD NOT BE ISSUED 00560 M01S00486.compppr +++|* WITH NON-DEDICATED CHANNEL(S) RESERVED. 00561 M01S00487.compppr +++|* 00562 M01S00488.compppr +++|* CAUTION - WHEN ISSUING A DAYFILE MESSAGE FROM A CONCURRENT 00563 M01S00489.compppr +++|* PP THE MESSAGE MUST BE BELOW 10000B. 00564 M01S00490.compppr +++|* 00565 M01S00491.compppr +++|* ENTRY (A) BITS 0 - 11 = BEGINNING ADDRESS OF MESSAGE. 00566 M01S00492.compppr +++|* (A) BITS 12 - 17 = MESSAGE CONTROL CODE. 00567 M01S00493.compppr +++|* MESSAGE TERMINATED BY 0000 BYTE. 00568 M01S00494.compppr +++|* (CM+1) = MESSAGE LENGTH IN PP WORDS IF BML MESSAGE. 00569 M01S00495.compppr +++|* 00570 M01S00496.compppr +++|* EXIT (A) = 0. 00571 M01S00497.compppr +++|* 00572 M01S00498.compppr +++|* USES T0 - T2, CM - CM+4. 00573 M01S00499.compppr +++|* 00574 M01S00500.compppr +++|* IF DAYFILE BUFFER DUMP REQUIRED- 00575 M01S00501.compppr +++|* SAVES AND RESTORES EPFW - 110, AND MASS STORAGE DRIVER, 00576 M01S00502.compppr +++|* AND FIRST PART OF PROGRAM. LOCATIONS 7764 TO END 00577 M01S00503.compppr +++|* OF THE PP ARE DESTROYED. 00578 M01S00504.compppr +++|* 00579 M01S00505.compppr +++|* CALLS *1DD*. 00580 M01S00506.compppr +++|* 00581 M01S00507.compppr +++|* MACROS MONITOR. 00582 M01S00508.compppr +++| 00583 M01S00509.compppr +++| 00584 M01S00510.compppr +++| BSSZ DFM-1-* (SPARES) 00585 M01S00511.compppr +++| 00586 M01S00512.compppr +++| DFM SUBR ENTRY/EXIT 00587 M01S00513.compppr +++| STM DFMA SAVE MESSAGE ADDRESS 00588 M01S00514.compppr +++| SBN 1 00589 M01S00515.compppr +++| STD T2 00590 M01S00516.compppr +++| SHN -14 SET MESSAGE OPTION 00591 M01S00517.compppr +++| STD CM+2 00592 M01S00518.compppr +++| LPN 17 00593 M01S00519.compppr +++| SBN BMLN/10000 00594 M01S00520.compppr +++| PJN DFM2 IF MAINTAINANCE LOG (*BMLN* OR *BMCN*) 00595 M01S00521.compppr +++| DFM1 AOD T2 ADVANCE MESSAGE ADDRESS 00596 M01S00522.compppr +++| LDI T2 00597 M01S00523.compppr +++| NJN DFM1 IF NOT END OF MESSAGE 00598 M01S00524.compppr +++| AOD T2 SET BYTE COUNT OF MESSAGE 00599 M01S00525.compppr +++| SBM DFMA 00600 M01S00526.compppr +++| STD CM+1 00601 M01S00527.compppr +++| DFM2 LDN 6 00602 M01S00528.compppr +++| STD T1 00603 M01S00529.compppr +++| LDD MA STORE MESSAGE IN MESSAGE BUFFER 00604 M01S00530.compppr +++| CWM *,T1 00605 M01S00531.compppr +++| DFMA EQU *-1 00606 M01S00532.compppr +++| DFM3 MONITOR DFMM PROCESS DAYFILE MESSAGE 00607 M01S00533.compppr +++| .A IFC EQ,/".PP"/NPP/ 00608 M01S00534.compppr +++| LDD CM+3 00609 M01S00535.compppr +++| ZJN DFMX IF BUFFER DUMP NOT REQUIRED 00610 M01S00536.compppr +++| DFMB LDC ** READ *1DD* LOAD CODE 00611 M01S00537.compppr +++| CRM 10003-3*5,TR 00612 M01S00538.compppr +++| .A ELSE 00613 M01S00539.compppr +++|* LDN 0 00614 M01S00540.compppr +++| UJN DFMX RETURN 00615 M01S00541.compppr +++| .A ENDIF 00616 M01S00542.compppr +++| EXR SPACE 4,15 00617 M01S00543.compppr +++|*** EXR - EXECUTE ROUTINE. 00618 M01S00544.compppr +++|* 00619 M01S00545.compppr +++|* CAUTION, ONE SHOULD NOT LOAD NON CM RESIDENT 00620 M01S00546.compppr +++|* OVERLAYS WITH NON-DEDICATED CHANNEL(S) RESERVED. 00621 M01S00547.compppr +++|* 00622 M01S00548.compppr +++|* ENTRY (A) = ROUTINE NAME. 00623 M01S00549.compppr +++|* (LA) = LOAD ADDRESS FOR LOCATION FREE ROUTINES. 00624 M01S00550.compppr +++|* 00625 M01S00551.compppr +++|* EXIT EXIT TO CALLED ROUTINE VIA SIMULATED RETURN JUMP FROM 00626 M01S00552.compppr +++|* CALLER. 00627 M01S00553.compppr +++|* 00628 M01S00554.compppr +++|* CALLS PLL. 00629 M01S00555.compppr +++| 00630 M01S00556.compppr +++| 00631 M01S00557.compppr +++| BSSZ EXR-* (SPARES) 00632 M01S00558.compppr +++| 00633 M01S00559.compppr +++| EXR CON 0 RETURN ADDRESS 00634 M01S00560.compppr +++| RJM PLL LOAD ROUTINE 00635 M01S00561.compppr +++| LDML EXR SET RETURN ADDRESS 00636 M01S00562.compppr +++| STML 6,LA 00637 M01S00563.compppr +++| LJM 7,LA ENTER ROUTINE 00638 M01S00564.compppr +++| SMS SPACE 4,20 00639 M01S00565.compppr +++|*** SMS - SET MASS STORAGE. 00640 M01S00566.compppr +++|* 00641 M01S00567.compppr +++|* ENTRY (T5) = EST ORDINAL. 00642 M01S00568.compppr +++|*
| Line S00569 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00643 M02S00569.ns2776 ---|* EXIT REFER TO *SETMS* INTERFACE INFORMATION SHOWN BELOW
| Line S00570 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00644 M02S00570.ns2776 ---|* IN THE *MASS STORAGE DRIVER OVERLAY AREA*. 00645 M01S00001.ns2776 +++|* EXIT (A) = 0. 00646 M01S00571.compppr +++|* 00647 M01S00572.compppr +++|* MACROS MONITOR, SFA. 00648 M01S00573.compppr +++|* 00649 M01S00574.compppr +++|* NOTE - THE *.SMS* ENTRY POINT IS SUPPORTED ONLY VIA THE 00650 M01S00575.compppr +++|* *SETMS* MACRO DEFINED IN *COMPMAC*. IF THIS LOCATION 00651 M01S00576.compppr +++|* CHANGES, THE DEFINITION OF *.SMS* MUST BE CHANGED IN 00652 M01S00577.compppr +++|* *PPCOM* AND *COMSMSP* AND ALL PROGRAMS USING THE *SETMS* 00653 M01S00578.compppr +++|* MACRO MUST BE REASSEMBLED. 00654 M01S00579.compppr +++| 00655 M01S00580.compppr +++| 00656 M01S00002.271l716 +++| .SMSX IFLT SMSX,* 00657 M01S00003.271l716 +++| ERR *SMSX* ENTRY POINT MOVED 00658 M01S00004.271l716 +++| .SMSX ELSE 00659 M01S00581.compppr +++| DUP SMSX-*,1 (SPARES) 00660 M01S00582.compppr +++| UJN * HANG-S 00661 M01S00005.271l716 +++| .SMSX ENDIF 00662 M01S00583.compppr +++|
| Line S00584 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00663 M02S00584.ns2776 ---| SMSX LDM MSD RETURN STATUS TO CALLER
| Line S00585 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00664 M02S00585.ns2776 ---| SHN 21-6
| Line S00586 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00665 M02S00586.ns2776 ---| MJN SMS3 IF DEVICE IS INACCESSIBLE
| Line S00587 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00666 M02S00587.ns2776 ---| LDN 0
| Line S00588 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00667 M02S00588.ns2776 ---| SMS2 NJN SMSX IF NO DRIVER PRESET
| Line S00589 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00668 M02S00589.ns2776 ---| SMS3 SHN 7
| Line S00590 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00669 M02S00590.ns2776 ---| SCN 77
| Line S00591 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00670 M02S00591.ns2776 ---| SHN 6 00671 M01S00002.ns2776 +++| SMSX LDN 0 00672 M01S00592.compppr +++| 00673 M01S00593.compppr +++| LJM * EXIT 00674 M01S00594.compppr +++| .SMS EQU *-1 00675 M01S00595.compppr +++| STD CM+4 *SETMS* AND ERROR PROCESSING OPTIONS 00676 M01S00596.compppr +++| SHN -14 00677 M01S00597.compppr +++| STD CM+3 00678 M01S00598.compppr +++| LDD T5 SET EQUIPMENT 00679 M01S00599.compppr +++| STD CM+1 00680 M01S00600.compppr +++| LDD MA WRITE MESSAGE BUFFER PARAMETERS 00681 M01S00601.compppr +++| CWM DRSW,TR 00682 M01S00602.compppr +++| MONITOR LMSM LOAD MASS STORAGE DRIVER 00683 M01S00603.compppr +++| LDD CM+1 00684 M01S00604.compppr +++| SHN 14 00685 M01S00605.compppr +++| ADD CM+2 00686 M01S00606.compppr +++| ZJN SMS1 IF NO DRIVER LOAD 00687 M01S00607.compppr +++| CRM MSFW,CM+3 00688 M01S00608.compppr +++| SMS1 LDD MA READ DRIVER CELLS 00689 M01S00609.compppr +++| CRM DRSW,CM+4 00690 M01S00610.compppr +++| CRD CM READ EST 00691 M01S00611.compppr +++| LDM STSA CHECK DRIVER PRESET EXECUTION
| Line S00612 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00692 M02S00612.ns2776 ---| NJN SMS2 IF NO DRIVER PRESET 00693 M01S00003.ns2776 +++| NJN SMSX IF NO DRIVER PRESET 00694 M01S00613.compppr +++| CON LJMI ENTER DRIVER PRESET 00695 M01S00614.compppr +++| SPACE 4 00696 M01S00615.compppr +++| ERRNZ MSFW-* CHECK PPR CONTIGUOUS WITH MS DRIVER 00697 M01S00616.compppr +++| MSD TITLE MASS STORAGE DRIVER OVERLAY AREA. 00698 M01S00617.compppr +++|*** MASS STORAGE DRIVERS ARE OVERLAYS LOADED BY PP RESIDENT 00699 M01S00618.compppr +++|* IN AN AREA BETWEEN PP RESIDENT AND THE FIRST WORD ADDRESS OF 00700 M01S00619.compppr +++|* PP PROGRAMS. 00701 M01S00620.compppr +++| SPACE 4 00702 M01S00621.compppr +++|** MASS STORAGE DRIVERS ARE CODED SUCH THAT THE ENTRY POINTS 00703 M01S00622.compppr +++|* REMAIN CONSTANT BETWEEN ALL DRIVERS. 00704 M01S00623.compppr +++|* 00705 M01S00624.compppr +++|* PARAMETERS PASSED TO THE DRIVER - 00706 M01S00625.compppr +++|* (T4) = CHANNEL, IF PREVIOUSLY RESERVED. 00707 M01S00626.compppr +++|* (T5) = EST ORDINAL. 00708 M01S00627.compppr +++|* (T6) = TRACK. 00709 M01S00628.compppr +++|* (T7) = SECTOR. 00710 M01S00629.compppr +++|* 00711 M01S00630.compppr +++|* THE RULES - 00712 M01S00631.compppr +++|* NAME = *6DN*, WHERE N IS A UNIQUE LETTER FOR EACH 00713 M01S00632.compppr +++|* DRIVER. DRIVER NAMES FOR AN EQUIPMENT 00714 M01S00633.compppr +++|* ARE DEFINED IN *COMSMSP*. 00715 M01S00634.compppr +++|* 00716 M01S00635.compppr +++|* ORIGIN = *MSFW* 00717 M01S00636.compppr +++|* 00718 M01S00637.compppr +++|* FIRST WORD = ADDRESS OF THE DRIVER INITIALIZATION 00719 M01S00638.compppr +++|* ROUTINE. THIS ENTRY IS USED BY *SMS* TO 00720 M01S00639.compppr +++|* CAUSE INITIALIZATION OF THE DRIVER. EXIT 00721 M01S00640.compppr +++|* FROM INITIALIZATION IS TO *SMSX*. 00722 M01S00641.compppr +++|* *SMS* ENTERS THE INITIALIZATION ROUTINE 00723 M01S00642.compppr +++|* WITH (CM - CM+4) = EST ENTRY. 00724 M01S00643.compppr +++|* 00725 M01S00644.compppr +++|* THE ENTRIES FOR READ, WRITE, AND ENDMS ORIGINED 00726 M01S00645.compppr +++|* AT THE APPROPRIATE SYMBOLIC NAMES. 00727 M01S00646.compppr +++|* I.E. *RDS*, *WDS*, *EMS*. 00728 M01S00647.compppr +++|* THESE ENTRIES ARE ENTERED VIA RETURN 00729 M01S00648.compppr +++|* JUMP, AND DUE TO THE DEFINITION OF THE 00730 M01S00649.compppr +++|* NAMES, TRANSFER CODE IS NECESSARY. 00731 M01S00650.compppr +++|* 00732 M01S00651.compppr +++|* THE DRIVER MUST NOT USE ANY DIRECT LOCATIONS 00733 M01S00652.compppr +++|* EXCEPT T1, T2, T4, AND CM - CM+4. 00734 M01S00653.compppr +++|* THE INTEGRITY OF THE MESSAGE BUFFER IS NOT 00735 M01S00654.compppr +++|* GUARANTEED DURING DRIVER PROCESSING. 00736 M01S00655.compppr +++|* *SETMS* PROCESSING IS CONSIDERED PART 00737 M01S00656.compppr +++|* OF DRIVER PROCESSING AND FOLLOWS THE 00738 M01S00657.compppr +++|* SAME RULES FOR DIRECT CELL AND MESSAGE 00739 M01S00658.compppr +++|* BUFFER USAGE. 00740 M01S00659.compppr +++|* 00741 M01S00660.compppr +++|* THE DRIVER WILL AUTOMATICALLY REQUEST THE CHANNEL AS 00742 M01S00661.compppr +++|* NECESSARY ON CALLS TO *RDS* AND *WDS*. 00743 M01S00662.compppr +++|* THE CALLING PROGRAM MUST REQUEST THE 00744 M01S00663.compppr +++|* DRIVER (BY USING THE *ENDMS* MACRO) TO 00745 M01S00664.compppr +++|* RETURN THE CHANNEL WHEN THE MASS STORAGE 00746 M01S00665.compppr +++|* OPERATION IS COMPLETE. T4 IS RESERVED FOR 00747 M01S00666.compppr +++|* THE DRIVER TO STORE THE CURRENT CHANNEL 00748 M01S00667.compppr +++|* NUMBER. THE CONTENTS OF T4 MUST NOT BE 00749 M01S00668.compppr +++|* CHANGED BETWEEN CALLS TO THE DRIVER BEFORE 00750 M01S00669.compppr +++|* THE *ENDMS*. 00751 M01S00670.compppr +++| 00752 M01S00671.compppr +++|* USE OF THE *IOCH* AND *PIOCH* DRIVER TYPES REQUIRES 00753 M01S00672.compppr +++|* CALLER TO STORE THE CHANNEL NUMBER IN *T4* 00754 M01S00673.compppr +++|* PRIOR TO CALLING THE DRIVER. 00755 M01S00674.compppr +++|* 00756 M01S00675.compppr +++|* THE ERROR PROCESSOR ORIGIN IS AT *EPFW* OR HIGHER AND 00757 M01S00676.compppr +++|* THE ERROR PROCESSOR EXTENDS TO THE END OF 00758 M01S00677.compppr +++|* PP MEMORY. THE ERROR PROCESSOR MAY BE 00759 M01S00678.compppr +++|* CALLED BY *RDS* AND *WDS*. 00760 M01S00679.compppr +++|* 00761 M01S00680.compppr +++|* THE DRIVER AND ITS ASSOCIATED ERROR PROCESSORS MUST 00762 M01S00681.compppr +++|* RESIDE IN RPL. 00763 M01S00682.compppr +++| SPACE 4,10 00764 M01S00683.compppr +++|** SETMS - SET MASS STORAGE DRIVER. 00765 M01S00684.compppr +++|* 00766 M01S00685.compppr +++|* CAUTION - NOT ALL *SETMS* CALLS CAUSE A DRIVER TO BE LOADED - 00767 M01S00686.compppr +++|* REFER TO THE OPERATION DESCRIPTIONS SHOWN BELOW. 00768 M01S00687.compppr +++|* CALLS TO DRIVER ROUTINES *RDS*, *WDS* AND *.EMS* 00769 M01S00688.compppr +++|* (CALLED BY *ENDMS* MACRO) MUST NOT BE MADE WITHOUT 00770 M01S00689.compppr +++|* FIRST ISSUING A *SETMS* CALL WITH AN OPTION THAT 00771 M01S00690.compppr +++|* DOES CAUSE A DRIVER LOAD. 00772 M01S00691.compppr +++|* 00773 M01S00692.compppr +++|* CALL 00774 M01S00693.compppr +++|* 00775 M01S00694.compppr +++|* SETMS OP,(EP),WB 00776 M01S00695.compppr +++|* OP = OPERATION TO PERFORM. 00777 M01S00696.compppr +++|* IO READ OR WRITE. 00778 M01S00697.compppr +++|* IOCH READ OR WRITE USING CHANNEL SELECTED BY 00779 M01S00698.compppr +++|* CALLER. 00780 M01S00699.compppr +++|* PIO READ OR WRITE PROTECTED SECTOR(S). 00781 M01S00700.compppr +++|* PIOCH READ OR WRITE PROTECTED SECTOR(S) USING 00782 M01S00701.compppr +++|* CHANNEL SELECTED BY CALLER. 00783 M01S00702.compppr +++|* STATUS RETURN EQUIPMENT STATUS. ALL *SETMS* EXIT 00784 M01S00703.compppr +++|* CONDITIONS ARE SATISFIED EXCEPT NO DRIVER 00785 M01S00704.compppr +++|* LOAD IS PERFORMED. 00786 M01S00705.compppr +++|* READSTR READ STREAM. VALID FOR BUFFERED I/O 00787 M01S00706.compppr +++|* DEVICES ONLY. 00788 M01S00707.compppr +++|* READSYS READ SYSTEM FILE. THIS OPTION DIRECTS 00789 M01S00708.compppr +++|* THE SYSTEM TO SELECT AN APPROPRIATE 00790 M01S00709.compppr +++|* DEVICE FROM WHICH TO READ. THIS OPTION 00791 M01S00710.compppr +++|* IMPLIES SELECTION OF THE *EPNS* ERROR 00792 M01S00711.compppr +++|* PROCESSING OPTION IN THAT *MTR* WILL NOT 00793 M01S00712.compppr +++|* RETURN THE *LNRE* ERROR FLAG FOR AN OFF OR 00794 M01S00713.compppr +++|* SUSPECT DEVICE IF THE *READSYS* OPERATION 00795 M01S00714.compppr +++|* TYPE IS IN EFFECT. 00796 M01S00715.compppr +++|* POSITION FORCE SEEK ON NEXT DRIVER CALL. NO DRIVER 00797 M01S00716.compppr +++|* LOAD OCCURS. 00798 M01S00717.compppr +++|* NODRIVER FORCE DRIVER LOAD ON NEXT *SETMS* CALL. 00799 M01S00718.compppr +++|* NO DRIVER LOAD OCCURS. THIS OPERATION IS 00800 M01S00719.compppr +++|* FORCED BY THE *PIO* AND *PIOCH* OPERATION 00801 M01S00720.compppr +++|* TYPES. 00802 M01S00721.compppr +++|* 00803 M01S00722.compppr +++|* EP ERROR PROCESSING OPTIONS. 00804 M01S00723.compppr +++|* AD = ALLOW ACCESS TO *DOWN* DEVICE. 00805 M01S00724.compppr +++|* AR = RETURN TO THE CALLER IMMEDIATELY FOR ANY TYPE 00806 M01S00725.compppr +++|* OF ERROR. NOTE - SELECTION OF AR IS EQUIVALENT 00807 M01S00726.compppr +++|* TO SELECTION OF NR, ER, AND RR. 00808 M01S00727.compppr +++|* DE = DISABLE *ENDMS*. 00809 M01S00728.compppr +++|* DF = DISABLE FAILURE EVALUATION. THE DEVICE WILL 00810 M01S00729.compppr +++|* NOT BE FLAGGED AS SUSPECT NOR WILL A TRACK BE SET 00811 M01S00730.compppr +++|* IN THE MST WHEN A MEDIA ERROR OCCURS. 00812 M01S00731.compppr +++|* ER = RETURN TO CALLER FOR NORMAL ERROR CONDITIONS. 00813 M01S00732.compppr +++|* NORMAL ERRORS ARE THOSE NOT INCLUDED IN RESERVE 00814 M01S00733.compppr +++|* ERROR TYPES. 00815 M01S00734.compppr +++|* ND = NO LEVEL 1 DIAGNOSTICS SHOULD BE RUN 00816 M01S00735.compppr +++|* (ISD DEVICES ONLY). 00817 M01S00736.compppr +++|* NF = NO FLUSH OF ECS BUFFER ON *WLSF* FUNCTION 00818 M01S00737.compppr +++|* (BUFFERED DEVICES ONLY). 00819 M01S00738.compppr +++|* NR = IMMEDIATE RETURN ON NOT READY ERRORS. THIS 00820 M01S00739.compppr +++|* INCLUDES THE FOLLOWING CONDITIONS - 00821 M01S00740.compppr +++|* A. HARDWARE NOT READY. 00822 M01S00741.compppr +++|* B. REDEFINITION IN PROGRESS. 00823 M01S00742.compppr +++|* C. DEVICE DOWN. 00824 M01S00743.compppr +++|* NS = IGNORE DEVICE STATE. THIS OPTION IS USED BY PP 00825 M01S00744.compppr +++|* PROGRAMS THAT WANT TO ATTEMPT ACCESSING A DEVICE 00826 M01S00745.compppr +++|* REGARDLESS OF ITS LOGICAL STATUS. 00827 M01S00746.compppr +++|* RR = IMMEDIATE RETURN ON RESERVE ERRORS. 00828 M01S00747.compppr +++|* RW = REWRITE DATA OPERATION, RECOPY OF EXISTING 00829 M01S00748.compppr +++|* DATA (BUFFERED DEVICES ONLY). 00830 M01S00749.compppr +++|* SM = DISALLOW *1DD* LOAD INTO THIS PP. 00831 M01S00750.compppr +++|*
| Line S00751 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00832 M02S00751.ns2776 ---|* THE SPECIFICATION OF *AD* OR *NS* HAVE NO EFFECT ON THE
| Line S00752 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00833 M02S00752.ns2776 ---|* STATUS RETURNED IN THE ACCUMULATOR BY *SETMS*.
| Line S00753 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00834 M02S00753.ns2776 ---|* 00835 M01S00754.compppr +++|* WB ADDRESS OF WRITE ERROR PROCESSING BUFFER. 00836 M01S00755.compppr +++|* 00837 M01S00756.compppr +++|* NOTE - THIS MACRO IS THE ONLY SUPPORTED INTERFACE TO THE 00838 M01S00757.compppr +++|* *.SMS* PPR ENTRY POINT. THE VALUE OF THIS SYMBOL IS 00839 M01S00758.compppr +++|* DEFINED IN *PPCOM*. 00840 M01S00759.compppr +++|*
| Line S00760 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00841 M02S00760.ns2776 ---|* EXIT (A) = 0 IF EQUIPMENT MAY BE ACCESSED.
| Line S00761 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00842 M02S00761.ns2776 ---|* = 010000B IF EQUIPMENT LOGICALLY INACCESSIBLE
| Line S00762 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00843 M02S00762.ns2776 ---|* BUT JOB IS A SUBSYSTEM SO ACCESS IS
| Line S00763 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00844 M02S00763.ns2776 ---|* ALLOWED.
| Line S00764 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00845 M02S00764.ns2776 ---|* = 410000B IF EQUIPMENT SHOULD NOT BE ACCESSED.
| Line S00765 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00846 M02S00765.ns2776 ---|* = 0 IF *POSITION* OR *NODRIVER* OPERATION. 00847 M01S00004.ns2776 +++|* EXIT (A) = 0. 00848 M01S00766.compppr +++|* (CM - CM+4) = *EQDE* WORD OF EST ENTRY. 00849 M01S00767.compppr +++|* (SLM) = MAXIMUM NUMBER OF SECTORS PER TRACK. 00850 M01S00768.compppr +++|* (UERR) = ERROR PROCESSING OPTIONS. 00851 M01S00769.compppr +++|* (MSD) = 1/S, 4/0, 1/F, 6/D 00852 M01S00770.compppr +++|* S = 1 IF JOB IS NOT A SUBSYSTEM. 00853 M01S00771.compppr +++|* F = 1 IF DEVICE IS INACCESSIBLE (DEVICE STATE 00854 M01S00772.compppr +++|* *OFF* OR *DOWN* OR SUSPECT FLAG SET). 00855 M01S00773.compppr +++|* THIS FLAG WILL ALWAYS BE CLEAR IF THE 00856 M01S00774.compppr +++|* *UCTM* JOB TERMINATION MODE IS SET. 00857 M01S00775.compppr +++|* D = DRIVER INDEX. 00858 M01S00776.compppr +++|* 0 NO DRIVER PRESENT IN PP. 00859 M01S00777.compppr +++|* 1 *6DI* PRESENT. 00860 M01S00778.compppr +++|* 2 *6DJ* PRESENT. 00861 M01S00779.compppr +++|* 3 *6DP* PRESENT. 00862 M01S00780.compppr +++|* 4 *6DE* PRESENT. 00863 M01S00781.compppr +++|* 5 *6DX* PRESENT. 00864 M01S00782.compppr +++| RDS SPACE 4,20 00865 M01S00783.compppr +++|** RDS - READ SECTOR. 00866 M01S00784.compppr +++|* 00867 M01S00785.compppr +++|* CAUTION, STORAGE MOVE MAY OCCUR. 00868 M01S00786.compppr +++|* 00869 M01S00787.compppr +++|* ENTRY DRIVER INITIALIZED (SETMS MACRO EXECUTED). 00870 M01S00788.compppr +++|* (T4) = CHANNEL IF PREVIOUSLY RESERVED OR THE OPERATION 00871 M01S00789.compppr +++|* TYPE IS *IOCH* OR *PIOCH*. 00872 M01S00790.compppr +++|* (T5) = EQUIPMENT. 00873 M01S00791.compppr +++|* (T6) = TRACK. 00874 M01S00792.compppr +++|* (T7) = SECTOR. 00875 M01S00793.compppr +++|* (A) = FWA OF DATA BUFFER. (502 WORD BUFFER NEEDED.) 00876 M01S00794.compppr +++|* 00877 M01S00795.compppr +++|* EXIT (A) = 0 IF NO ERROR OR RECOVERED ERROR.
| Line S00796 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00878 M02S00796.253l688 ---|* = 1/1, 5/0, 12/(RDCT). 00879 M01S00051.253l688 +++|* = 1/1, 5/0, 12/(RDCT) IF UNRECOVERED ERROR. 00880 M01S00797.compppr +++|* (T4) = CHANNEL. 00881 M01S00798.compppr +++|* 00882 M01S00799.compppr +++|* NOTE REFER TO *COMSMSP* FOR A DESCRIPTION OF THE CONTENTS 00883 M01S00800.compppr +++|* OF *RDCT*. 00884 M01S00801.compppr +++| WDS SPACE 4,30 00885 M01S00802.compppr +++|** WDS - WRITE SECTOR. 00886 M01S00803.compppr +++|* 00887 M01S00804.compppr +++|* CAUTION, STORAGE MOVE MAY OCCUR. 00888 M01S00805.compppr +++|* 00889 M01S00806.compppr +++|* ENTRY DRIVER INITIALIZED (SETMS MACRO EXECUTED). 00890 M01S00807.compppr +++|* (T4) = CHANNEL IF PREVIOUSLY RESERVED OR THE OPERATION 00891 M01S00808.compppr +++|* TYPE IS *IOCH* OR *PIOCH*. 00892 M01S00809.compppr +++|* (T5) = EQUIPMENT. 00893 M01S00810.compppr +++|* (T6) = TRACK. 00894 M01S00811.compppr +++|* (T7) = SECTOR. 00895 M01S00812.compppr +++|* (A) = 6/ WF,12/ BA. 00896 M01S00813.compppr +++|* WF = WRITE LAST SECTOR FLAG. 00897 M01S00814.compppr +++|* WCSF IS ADDED TO THE BUFFER ADDRESS WHEN 00898 M01S00815.compppr +++|* WRITING CONSECUTIVE SECTORS. 00899 M01S00816.compppr +++|* WLSF IS ADDED TO THE BUFFER ADDRESS WHEN 00900 M01S00817.compppr +++|* WRITING THE LAST SECTOR. 00901 M01S00818.compppr +++|* (WDSE) = FWA OF WRITE ERROR RETRY BUFFER. 00902 M01S00819.compppr +++|* THIS BUFFER IS USED TO RETRY ERRORS ON THE PREVIOUS 00903 M01S00820.compppr +++|* SECTOR WHICH CAN OCCUR WHEN WRITING IN FULL TRACK 00904 M01S00821.compppr +++|* MODE. (502 WORD BUFFER NEEDED) 00905 M01S00822.compppr +++|* WHENEVER WDS IS ENTERED WITH WCSF SPECIFIED AN ERROR 00906 M01S00823.compppr +++|* MAY OCCUR ON THAT SECTOR WHICH MAY NOT BE DETECTED 00907 M01S00824.compppr +++|* UNTILL WRITING THE NEXT SECTOR. THUS WHEN WRITING 00908 M01S00825.compppr +++|* ANY SECTOR FOLLOWING A WCSF SECTOR THE CALLING PPU 00909 M01S00826.compppr +++|* PROGRAM MUST MAKE ALLOWANCES FOR RECOVERING THE 00910 M01S00827.compppr +++|* PREVIOUS SECTOR. THERE ARE TWO OPTIONS AVAILABLE FOR 00911 M01S00828.compppr +++|* RECOVERING THESE ERRORS. FIRST, THE 00912 M01S00829.compppr +++|* PP PROGRAM CALLING WDS MAY ELECT NOT TO SET A 00913 M01S00830.compppr +++|* BUFFER ADDRESS IN WDSE. WHEN THIS IS DONE HOWEVER 00914 M01S00831.compppr +++|* THE ACCUMULATOR MUST BE CHECKED FOR NEGATIVE WITH 00915 M01S00832.compppr +++|* BIT 9 SET UPON RETURN FROM *WDS*. 00916 M01S00833.compppr +++|* THIS INDICATES THAT THE CURRENT SECTOR DATA WAS 00917 M01S00834.compppr +++|* DESTROYED AND THUS THE PP PROGRAM MUST REGENERATE THE 00918 M01S00835.compppr +++|* DATA AND LINKAGE BYTES AND REISSUE THE SECTOR TO WDS. 00919 M01S00836.compppr +++|* THE SECOND METHOD OF RECOVERING THESE ERRORS IS 00920 M01S00837.compppr +++|* SIMPLY TO SPECIFY A BUFFER ADDRESS IN WDSE. WHEN 00921 M01S00838.compppr +++|* THIS IS DONE THE DRIVER AUTOMATICALLY ATTEMPTS 00922 M01S00839.compppr +++|* RECOVERY OF THE PREVIOUS AND REISSUES THE CURRENT 00923 M01S00840.compppr +++|* SECTOR. 00924 M01S00841.compppr +++|* 00925 M01S00842.compppr +++|* EXIT (A) = 0 IF NO ERROR OR RECOVERED ERROR.
| Line S00843 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 00926 M02S00843.253l688 ---|* = 1/1, 5/0, 12/(RDCT). 00927 M01S00052.253l688 +++|* = 1/1, 5/0, 12/(RDCT) IF UNRECOVERED ERROR. 00928 M01S00844.compppr +++|* IF BIT 11B OF *RDCT* IS SET, AN ERROR ON THE 00929 M01S00845.compppr +++|* PREVIOUS SECTOR WAS RECOVERED, BUT BECAUSE NO 00930 M01S00846.compppr +++|* WRITE ERROR PROCESSING BUFFER WAS SPECIFIED, 00931 M01S00847.compppr +++|* THE CURRENT SECTOR BUFFER WAS USED TO RECOVER 00932 M01S00848.compppr +++|* THE PREVIOUS SECTOR ERROR. SO THE CURRENT 00933 M01S00849.compppr +++|* SECTOR BUFFER MUST BE REGENERATED AND THE WRITE 00934 M01S00850.compppr +++|* OPERATION REISSUED. 00935 M01S00851.compppr +++|* (T4) = CHANNEL. 00936 M01S00852.compppr +++|* 00937 M01S00853.compppr +++|* NOTE REFER TO *COMSMSP* FOR A DESCRIPTION OF THE CONTENTS 00938 M01S00854.compppr +++|* OF *RDCT*. 00939 M01S00855.compppr +++| EMS SPACE 4,20 00940 M01S00856.compppr +++|** EMS - END MASS STORAGE OPERATION. 00941 M01S00857.compppr +++|* 00942 M01S00858.compppr +++|* CAUTION, STORAGE MOVE MAY OCCUR. 00943 M01S00859.compppr +++|* 00944 M01S00860.compppr +++|* ENTRY DRIVER INITIALIZED (SETMS MACRO EXECUTED). 00945 M01S00861.compppr +++|* (T4) = CHANNEL, IF RESERVED. 00946 M01S00862.compppr +++|* (T5) = EQUIPMENT. 00947 M01S00863.compppr +++|* (T6) = TRACK. 00948 M01S00864.compppr +++|* (T7) = SECTOR. 00949 M01S00865.compppr +++|* 00950 M01S00866.compppr +++|* EXIT (A) = 0. 00951 M01S00867.compppr +++| SPACE 4,10 00952 M01S00868.compppr +++|** USING THE MASS STORAGE DRIVERS. 00953 M01S00869.compppr +++|* 00954 M01S00870.compppr +++|* THE *SETMS* MACRO IS USED TO INITIATE A DISK I/O SEQUENCE AND 00955 M01S00871.compppr +++|* THE *ENDMS* MACRO TERMINATES IT. FOLLOWING IS THE GENERAL 00956 M01S00872.compppr +++|* FLOW TO READ AND REWRITE A SECTOR- 00957 M01S00873.compppr +++|* 00958 M01S00874.compppr +++|* SET UP T5 00959 M01S00875.compppr +++|* SETMS IO 00960 M01S00876.compppr +++|* SET UP T6 AND T7 00961 M01S00877.compppr +++|* LDC BUF 00962 M01S00878.compppr +++|* RJM RDS 00963 M01S00879.compppr +++|* MJN ERR 00964 M01S00880.compppr +++|* LDC BUF+WLSF 00965 M01S00881.compppr +++|* RJM WDS 00966 M01S00882.compppr +++|* MJN ERR IF I/O ERROR OR INACCESSIBLE DEVICE 00967 M01S00883.compppr +++|* ENDMS 00968 M01S00884.compppr +++|* 00969 M01S00885.compppr +++|* DURING AN I/O SEQUENCE, THE *SETMS* MACRO MUST BE REISSUED 00970 M01S00886.compppr +++|* WHEN- 00971 M01S00887.compppr +++|* 1) CHANGING TO A DIFFERENT EQUIPMENT. 00972 M01S00888.compppr +++|* 2) CHANGING LOGICAL TRACKS IF IT IS POSSIBLE THAT 00973 M01S00889.compppr +++|* THE FIRST SECTOR ON THE NEW TRACK MAY BE EXACTLY 00974 M01S00890.compppr +++|* ONE GREATER THAN THE LAST SECTOR WRITTEN ON THE OLD 00975 M01S00891.compppr +++|* TRACK. IN THIS CASE USE THE *POSITION* OPTION TO 00976 M01S00892.compppr +++|* FORCE A SEEK ON THE FIRST ACCESS OF THE NEW TRACK 00977 M01S00893.compppr +++|* WITHOUT ISSUING AN *LMSM* MONITOR FUNCTION. 00978 M01S00894.compppr +++|* 3) CHANGING FROM A READ OPERATION TYPE TO A WRITE 00979 M01S00895.compppr +++|* OPERATION TYPE OR VISA VERSA IF IT IS POSSIBLE THAT 00980 M01S00896.compppr +++|* THE FIRST SECTOR TO BE READ/WRITTEN UNDER THE NEW 00981 M01S00897.compppr +++|* OPERATION TYPE IS EXACTLY ONE GREATER THAN THE LAST 00982 M01S00898.compppr +++|* SECTOR WRITTEN/READ UNDER THE FORMER OPERATION. 00983 M01S00899.compppr +++|* 4) CHANGING ERROR PROCESSING OPTIONS, CHANGING 00984 M01S00900.compppr +++|* SPECIFICATION OF A WRITE ERROR PROCESSING BUFFER, 00985 M01S00901.compppr +++|* OR CHANGING THE OPERATION TYPE (E. G. FROM *IO* TO 00986 M01S00902.compppr +++|* *READSYS*). 00987 M01S00903.compppr +++|* 00988 M01S00904.compppr +++|* UNLESS ONE OF THE ABOVE CONDITIONS EXISTS, A *SETMS* IS NOT 00989 M01S00905.compppr +++|* REQUIRED IN ORDER TO DO ADDITIONAL I/O AFTER AN *ENDMS*. 00990 M01S00906.compppr +++|* 00991 M01S00907.compppr +++|* THE CALLING PROGRAM IS RESPONSIBLE FOR ISSUING AN *ENDMS* 00992 M01S00908.compppr +++|* TO TERMINATE EVERY I/O SEQUENCE THAT DOES NOT ENCOUNTER AN 00993 M01S00909.compppr +++|* ERROR. IF THE DRIVER RETURNS AN ERROR STATUS, THE *ENDMS* 00994 M01S00910.compppr +++|* IS DONE AUTOMATICALLY BY THE DRIVER, UNLESS THE *DE* OPTION 00995 M01S00911.compppr +++|* WAS SPECIFIED ON THE *SETMS*. 00996 M01S00912.compppr +++| PRS TITLE INITIALIZATION. 00997 M01S00913.compppr +++|** PRS - INITIALIZATION. 00998 M01S00914.compppr +++|*
| Line S00915 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00999 M02S00915.273l780 ---|* ENTRY (T1) = CLEAR MEMORY FLAG.
| Line S00916 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01000 M02S00916.273l780 ---|* 0 = CLEAR MEMORY. 01001 M01S00018.273l780 +++|* ENTRY (T1) = 0 TO CLEAR PP MEMORY AND DROP PP. 01002 M01S00019.273l780 +++|* (T1) .NE. 0 IF NO PP DROP. 01003 M01S00917.compppr +++|* (IA) = INPUT REGISTER ADDRESS. 01004 M01S00918.compppr +++|* (OA) = OUTPUT REGISTER ADDRESS. 01005 M01S00919.compppr +++|* (MA) = MESSAGE BUFFER ADDRESS. 01006 M01S00001.ns2447 +++|* (CP) = CONTROL POINT ADDRESS. 01007 M01S00920.compppr +++| 01008 M01S00921.compppr +++| 01009 M01S00922.compppr +++| PRS LJM PPR ENTRY/EXIT ENTERED BY *RJM* FROM *STL* 01010 M01S00923.compppr +++| .A IFC EQ,/".PP"/NPP/ 01011 M01S00924.compppr +++| LDD T1 SET FLAG TO IDENTIFY CALLER 01012 M01S00925.compppr +++| STM PRSG 01013 M01S00926.compppr +++| .A ENDIF
| Line S00927 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01014 M02S00927.273l780 ---| LDN PPCP READ PP COMMUNICATION POINTER
| Line S00928 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01015 M02S00928.273l780 ---| CRD CM 01016 M01S00020.273l780 +++| LDK PPCP READ PP COMMUNICATION POINTER 01017 M01S00021.273l780 +++| CRD CM 01018 M01S00929.compppr +++| LDD IA SET PP NUMBER
| Line S00930 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01019 M02S00930.273l780 ---| SBD CM+4
| Line S00931 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01020 M02S00931.273l780 ---| SHN -3 01021 M01S00022.273l780 +++| SBD CM+4 01022 M01S00023.273l780 +++| SHN -PPCES 01023 M01S00932.compppr +++| STD T2 01024 M01S00933.compppr +++| SBN 2 SET (PP NUMBER - 2) * 21 01025 M01S00934.compppr +++| STD T1 01026 M01S00935.compppr +++| SHN 4 01027 M01S00936.compppr +++| RAD T1 01028 M01S00937.compppr +++| LDN PXPP READ PP EXCHANGE STATUS 01029 M01S00938.compppr +++| CRD CM 01030 M01S00939.compppr +++| LDD T1 SET EXCHANGE PACKAGE ADDRESS 01031 M01S00940.compppr +++| RAD CM+4 01032 M01S00941.compppr +++| STM XJ3+1 01033 M01S00942.compppr +++| STM XJ4+1 01034 M01S00943.compppr +++| SHN -14 01035 M01S00944.compppr +++| RAD CM+3 01036 M01S00945.compppr +++| LMC LDCI 01037 M01S00946.compppr +++| STM XJ3 01038 M01S00947.compppr +++| STM XJ4 01039 M01S00948.compppr +++| LDD CM+4 SET EXCHANGE PACKAGE MA ADDRESS 01040 M01S00949.compppr +++| ADN 6 01041 M01S00950.compppr +++| STM XJ2+1 01042 M01S00951.compppr +++| SHN -14 01043 M01S00952.compppr +++| ADD CM+3 01044 M01S00953.compppr +++| LMC LDCI 01045 M01S00954.compppr +++| STM XJ2 01046 M01S00955.compppr +++| LDN PXPP+1 READ (P), (A0), (B0) 01047 M01S00956.compppr +++| CRM FTNA,ON 01048 M01S00957.compppr +++| LDC SHNI+6 RESET SHIFT INSTRUCTION 01049 M01S00958.compppr +++| STM FTNA+4 01050 M01S00959.compppr +++| LDN ACPL READ CPU 0 STATUS 01051 M01S00960.compppr +++| CRD CM 01052 M01S00961.compppr +++| LDD CM CHECK CPU 0 01053 M01S00962.compppr +++| SHN 6 01054 M01S00963.compppr +++| PJN PRS1 IF CPU 0 AVAILABLE 01055 M01S00964.compppr +++| AOM CP1 SET CPU 1 EXCHANGE 01056 M01S00965.compppr +++| LDD HN 01057 M01S00966.compppr +++| RAM FTNA+3 01058 M01S00967.compppr +++| PRS1 LDK MABL READ HARDWARE OPTIONS 01059 M01S00968.compppr +++| CRD CM
| Line S00969 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01060 M02S00969.273l780 ---| LDD CM+1 CHECK MAINFRAME TYPE
| Line S00970 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01061 M02S00970.273l780 ---| SHN 21-13
| Line S00971 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01062 M02S00971.273l780 ---| MJN PRS2 IF NOT CM EXTENSION
| Line S00972 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01063 M02S00972.273l780 ---| AOM FTNC CHANGE READ TO FLSW+1
| Line S00973 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01064 M02S00973.273l780 ---| PRS2 LDM PRSC,CM+4 GET DELAY FACTOR FOR PP SPEED 01065 M01S00024.273l780 +++| LDM PRSC,CM+4 GET DELAY FACTOR FOR PP SPEED 01066 M01S00974.compppr +++| STM DLYA 01067 M01S00975.compppr +++| LDM PRSD,CM+4 01068 M01S00976.compppr +++| STM FTNB+1 SET REJECTED REQUEST RETRY DELAY 01069 M01S00977.compppr +++| LDM PRSE,CM+4 01070 M01S00978.compppr +++| STM FTNE SET EXCHANGE RETRY DELAY 01071 M01S00979.compppr +++| LDM PRSF,CM+4 01072 M01S00980.compppr +++| STM FTNF SET EXCHANGE TIMEOUT DELAY 01073 M01S00981.compppr +++| LDM PRSH,CM+4 SET DELAY COUNTER 01074 M01S00982.compppr +++| STM .DLY 01075 M01S00983.compppr +++| LDN ESTP SET EST POINTER 01076 M01S00984.compppr +++| CRD CM 01077 M01S00985.compppr +++| LDD CM 01078 M01S00986.compppr +++| RAM ESTA 01079 M01S00987.compppr +++| LDD CM+1 01080 M01S00988.compppr +++| STM ESTA+1 01081 M01S00989.compppr +++| .A IFC EQ,/".PP"/NPP/ 01082 M01S00990.compppr +++| LDN DFPP SET FWA OF DAYFILE DUMP BUFFER 01083 M01S00991.compppr +++| CRD CM 01084 M01S00992.compppr +++| LDD CM+2 01085 M01S00993.compppr +++| RAM DFMB 01086 M01S00994.compppr +++| LDD CM+3 01087 M01S00995.compppr +++| STM DFMB+1
| Line S00996 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01088 M02S00996.253l688 ---| ADC DFDS+3
| Line S00997 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01089 M02S00997.253l688 ---| STM FTNG+1 STORE LOADER BOOTSTRAP ADDRESS
| Line S00998 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01090 M02S00998.253l688 ---| SHN -14
| Line S00999 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01091 M02S00999.253l688 ---| ADD CM+2
| Line S01000 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01092 M02S01000.253l688 ---| RAM FTNG 01093 M01S01001.compppr +++| LDK MMFL CHECK MMF ENVIRONMENT 01094 M01S01002.compppr +++| CRD CM
| Line S01003 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | pppr1 |
Seq # *Modification Id* Act ----------------------------+ 01095 M02S01003.pppr1 ---| LDD CM+1 CHECK IF INDEPENDENT SHARED MMF
| Line S01004 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | pppr1 |
Seq # *Modification Id* Act ----------------------------+ 01096 M02S01004.pppr1 ---| SHN 6
| Line S01005 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | pppr1 |
Seq # *Modification Id* Act ----------------------------+ 01097 M02S01005.pppr1 ---| MJN PRS3 IF INDEPENDENT SHARED MMF
| Line S01006 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | pppr1 |
Seq # *Modification Id* Act ----------------------------+ 01098 M02S01006.pppr1 ---| ISTORE FTND,(UJN FTN3) REMOVE SPECIAL MONITOR FUNCTION CHECK
| Line S01007 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | pppr1 |
Seq # *Modification Id* Act ----------------------------+ 01099 M02S01007.pppr1 ---| SOM FTNB ADJUST TIME DELAY 01100 M01S00003.pppr1 +++| LDD CM+1 01101 M01S00004.pppr1 +++| SHN -12
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | pppr1 |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01102 M02S00005.253l688 ---| LMN 2
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | pppr1 |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01103 M02S00006.253l688 ---| ZJN PRS3 IF INDEPENDENT SHARED MMF
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | pppr1 |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01104 M02S00007.253l688 ---| LMN 1&2
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | pppr1 |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01105 M02S00008.253l688 ---| ZJN PRS2.1 IF LOW SPEED PORT MMF 01106 M01S00053.253l688 +++| NJN PRS3 IF ISHARED OR LOW SPEED PORT MMF 01107 M01S00009.pppr1 +++| SOM FTNB ADJUST TIME DELAY
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | pppr1 |
M02 (Updated by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 01108 M02S00010.253l688 ---| PRS2.1 ISTORE FTND,(UJN FTN3) REMOVE SPECIAL MONITOR FUNCTION CHECK 01109 M01S01008.compppr +++| PRS3 LDC ** 01110 M01S01009.compppr +++| PRSG EQU *-1 01111 M01S01010.compppr +++| NJN PRS5 IF NOT RETURNED PP 01112 M01S01011.compppr +++| LDC PPFW 01113 M01S01012.compppr +++| STD T2 01114 M01S01013.compppr +++| LDN 0 01115 M01S01014.compppr +++| PRS4 STI T2 01116 M01S01015.compppr +++| AOD T2 01117 M01S01016.compppr +++| SHN -14 01118 M01S01017.compppr +++| ZJN PRS4 IF MORE TO CLEAR 01119 M01S01018.compppr +++| MONITOR DPPM MAKE PP AVAILABLE 01120 M01S01019.compppr +++| PRS5 LJM PRS RETURN 01121 M01S01020.compppr +++| .A ELSE 01122 M01S01021.compppr +++| LDC PRSI GET TABLE OF LONG INSTRUCTIONS 01123 M01S01022.compppr +++| STD CM+4 01124 M01S01023.compppr +++| PRS6 LDI CM+4 GET NEXT INSTRUCTION ADDRESS 01125 M01S01024.compppr +++| ZJN PRS7 IF END OF LIST 01126 M01S01025.compppr +++| STD T3 01127 M01S01026.compppr +++| BLI T3 BUILD LONG INSTRUCTION 01128 M01S01027.compppr +++| AOD CM+4 01129 M01S01028.compppr +++| UJN PRS6 PROCESS NEXT INSTRUCTION 01130 M01S01029.compppr +++|
| Line S01030 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 01131 M02S01030.273l780 ---| PRS7 LDD IA READ INPUT REGISTER
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
M02 (Updated by) | pppr2 |
Seq # *Modification Id* Act ----------------------------+ 01132 M02S00025.pppr2 ---| PRS7 LDD CP SET CP ADDRESS FOR MOVE CHECK
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
M02 (Updated by) | pppr2 |
Seq # *Modification Id* Act ----------------------------+ 01133 M02S00026.pppr2 ---| STM FTNG
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
M02 (Updated by) | pppr2 |
Seq # *Modification Id* Act ----------------------------+ 01134 M02S00027.pppr2 ---| ADN 1 SET *FTN* RETURN TO READ FLSW+1 01135 M01S00001.pppr2 +++| PRS7 LDD CP SET *FTN* RETURN TO READ FLSW+1 01136 M01S00002.pppr2 +++| ADN 1 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 01145 M01S00003.pppr2 +++| STM FTNG SET CP NUMBER FOR MOVE CHECK 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 M01S01031.compppr +++| CRD IR 01162 M01S01032.compppr +++| LDD MA READ MESSAGE BUFFER 01163 M01S01033.compppr +++| CRM MP,TR
| Line S01034 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2447 |
Seq # *Modification Id* Act ----------------------------+ 01164 M02S01034.ns2447 ---| LDD IR+1 SET CP ADDRESS
| Line S01035 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2447 |
Seq # *Modification Id* Act ----------------------------+ 01165 M02S01035.ns2447 ---| LPN 37
| Line S01036 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2447 |
Seq # *Modification Id* Act ----------------------------+ 01166 M02S01036.ns2447 ---| SHN 7
| Line S01037 Modification History | |
|---|---|
M01 (Added by) | compppr |
M02 (Updated by) | ns2447 |
Seq # *Modification Id* Act ----------------------------+ 01167 M02S01037.ns2447 ---| STD CP 01168 M01S01038.compppr +++| LDC PPR1 SET RETURN FROM *PLL* 01169 M01S01039.compppr +++| STM PLL 01170 M01S01040.compppr +++| LDD IR+1 SET PACKAGE NAME 01171 M01S01041.compppr +++| SCN 77 01172 M01S01042.compppr +++| SHN 6 01173 M01S01043.compppr +++| LMD IR 01174 M01S01044.compppr +++| SHN 6 01175 M01S01045.compppr +++| LJM PLL+1 LOAD PROGRAM 01176 M01S01046.compppr +++| .A ENDIF 01177 M01S01047.compppr +++| 01178 M01S01048.compppr +++| 01179 M01S01049.compppr +++|* DELAYS FOR 1X, 2X, AND 4X PP SPEEDS. 01180 M01S01050.compppr +++| 01181 M01S01051.compppr +++| PRSC BSS 0 INPUT REGISTER READ DELAY 01182 M01S01052.compppr +++| LOC 0 01183 M01S01053.compppr +++| CON SBNI+20 1X PP SPEED 01184 M01S01054.compppr +++| CON SBNI+10 2X PP SPEED 01185 M01S01055.compppr +++| CON SBNI+4 4X PP SPEED 01186 M01S01056.compppr +++| LOC PRSC+* 01187 M01S01057.compppr +++| 01188 M01S01058.compppr +++| PRSD BSS 0 REJECTED REQUEST RETRY DELAY 01189 M01S01059.compppr +++| LOC 0 01190 M01S01060.compppr +++| CON SBNI+2 1X PP SPEED 01191 M01S01061.compppr +++| CON SBNI+1 2X PP SPEED 01192 M01S01062.compppr +++| CON SBNI+1 4X PP SPEED 01193 M01S01063.compppr +++| LOC PRSD+* 01194 M01S01064.compppr +++| 01195 M01S01065.compppr +++| PRSE BSS 0 EXCHANGE RETRY DELAY 01196 M01S01066.compppr +++| LOC 0 01197 M01S01067.compppr +++| CON SBNI+77 1X PP SPEED 01198 M01S01068.compppr +++| CON SBNI+40 2X PP SPEED 01199 M01S01069.compppr +++| CON SBNI+20 4X PP SPEED 01200 M01S01070.compppr +++| LOC PRSE+* 01201 M01S01071.compppr +++| 01202 M01S01072.compppr +++| PRSF BSS 0 EXCHANGE TIMEOUT DELAY 01203 M01S01073.compppr +++| LOC 0 01204 M01S01074.compppr +++| CON LCNI+3 1X PP SPEED 01205 M01S01075.compppr +++| CON LCNI+2 2X PP SPEED 01206 M01S01076.compppr +++| CON LCNI+2 4X PP SPEED 01207 M01S01077.compppr +++| LOC PRSF+* 01208 M01S01078.compppr +++| 01209 M01S01079.compppr +++| PRSH CON 75,173,370 1X, 2X, 4X PP SPEEDS 01210 M01S01080.compppr +++| 01211 M01S01081.compppr +++| IFC EQ,/".PP"/NPP/,1 01212 M01S01082.compppr +++| ERRPL *-PPFW PRESET CODE FOR NONCURRENT PPS IS TOO LONG 01213 M01S01083.compppr +++| 01214 M01S01084.compppr +++| PRSI BSS 0 TABLE OF LONG INSTRUCTIONS 01215 M01S01085.compppr +++| LIST16 01216 M01S01086.compppr +++| 01217 M01S01087.compppr +++| BSS 0 LWA + 1 OF PP RESIDENT PRESET 01218 M01S01088.compppr +++| LOC *O 01219 M01S01089.compppr +++| QUAL * 01220 M01S01090.compppr +++| ENDX
cdc/nos2.source/opl.opl871/common/compppr.txt · Last modified: by 127.0.0.1