cdc:nos2.source:opl.opl871:common:compgfp
Common COMPGFP
3 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.compgfp +++| CTEXT COMPGFP - MANAGED TABLE PROCESSOR. 00002 M01S00002.compgfp +++| SPACE 4,10 00003 M01S00003.compgfp +++| QUAL$ IF -DEF,QUAL$ 00004 M01S00004.compgfp +++| QUAL COMPGFP 00005 M01S00005.compgfp +++| QUAL$ ENDIF 00006 M01S00006.compgfp +++|*COMMENT COMPGFP - MANAGED TABLE PROCESSOR.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1981. 00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.compgfp +++| SPACE 4,10 00010 M01S00009.compgfp +++|*** COMPGFP - MANAGED TABLE PROCESSOR. 00011 M01S00010.compgfp +++|* J. L. LARSON. 81/04/03.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00012 M02S00011.271l750 ---| SPACE 4,35
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00013 M02S00012.271l750 ---|*** *COMPGFP* DEFINES THE MANAGED TABLE PROCESSORS NEEDED
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00014 M02S00013.271l750 ---|* TO ACCESS THE MANAGED TABLES (CLT, EJT, EST, SYSTEM FNT, AND
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00015 M02S00014.271l750 ---|* QFT). *COMPGFP* CONTAINS SUBROUTINES NEEDED TO PROCESS CALLS
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00016 M02S00015.271l750 ---|* FROM THE *SFA* MACRO. THE *SFA* MACRO IS INTENDED TO
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00017 M02S00016.271l750 ---|* BE THE ONLY MECHANISM TO GENERATE CALLS TO SUBROUTINES
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00018 M02S00017.271l750 ---|* *.CLT*, *.EJT*, *.EST*, *.FNT*, AND *.QFT* IN *COMPGFP*. 00019 M01S00001.271l750 +++| SPACE 4,35 00020 M01S00002.271l750 +++|*** *COMPGFP* DEFINES THE PROCESSORS NEEDED TO ACCESS ENTRIES IN
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00021 M02S00003.274l797 ---|* THE CLT, EJT, EST, SYSTEM FNT, JCB, AND QFT TABLES. 00022 M01S00001.274l797 +++|* THE CLT, EJT, EST, SYSTEM FNT, JCB, ORT AND QFT TABLES. 00023 M01S00004.271l750 +++|* *COMPGFP* CONTAINS SUBROUTINES NEEDED TO PROCESS CALLS FROM 00024 M01S00005.271l750 +++|* THE *SFA* MACRO. THE *SFA* MACRO IS INTENDED TO BE THE ONLY 00025 M01S00006.271l750 +++|* MECHANISM TO GENERATE CALLS TO SUBROUTINES *.CLT*, *.EJT*,
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00026 M02S00007.274l797 ---|* *.EST*, *.FNT*, *.JCB*, AND *.QFT* IN *COMPGFP*. 00027 M01S00002.274l797 +++|* *.EST*, *.FNT*, *.JCB*, *.ORT* AND *.QFT* IN *COMPGFP*. 00028 M01S00018.compgfp +++|* 00029 M01S00019.compgfp +++|* IN ADDITION, *COMPGFP* WILL GENERATE THE *.BLI* SUBROUTINE 00030 M01S00020.compgfp +++|* FOR USE BY THE *BLI* MACRO, WHICH BUILDS LONG (CYBER 180) 00031 M01S00021.compgfp +++|* INSTRUCTIONS. 00032 M01S00022.compgfp +++|* 00033 M01S00023.compgfp +++|* IF *BLI$* IS DEFINED, SUBROUTINE *.BLI* WILL BE ASSEMBLED 00034 M01S00024.compgfp +++|* TO BUILD LONG INSTRUCTIONS. WHEN *BLI$* IS USED, 00035 M01S00025.compgfp +++|* 1) THE *.BLI* SYMBOL DEFINED IN *NOSTEXT* MUST BE IGNORED BY 00036 M01S00026.compgfp +++|* INCLUDING IT ON THE *SST* PSEUDO-OP, AND 00037 M01S00027.compgfp +++|* 2) THE CONTENTS OF *.BLI* MUST HAVE 100000B ADDED TO IT TO 00038 M01S00028.compgfp +++|* CONVERT IT TO A *LONG* INSTRUCTION. 00039 M01S00029.compgfp +++|* 00040 M01S00030.compgfp +++|* IF *CLT$* IS DEFINED, SUBROUTINE *.CLT* WILL BE ASSEMBLED 00041 M01S00031.compgfp +++|* TO CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE 00042 M01S00032.compgfp +++|* COMMON LIBRARIES TABLE. 00043 M01S00033.compgfp +++|* 00044 M01S00034.compgfp +++|* IF *EJT$* IS DEFINED, SUBROUTINE *.EJT* WILL BE ASSEMBLED 00045 M01S00035.compgfp +++|* TO CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE 00046 M01S00036.compgfp +++|* EXECUTING JOB TABLE. 00047 M01S00037.compgfp +++|* 00048 M01S00038.compgfp +++|* IF *EST$* IS DEFINED, SUBROUTINE *.EST* WILL BE ASSEMBLED 00049 M01S00039.compgfp +++|* TO CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE 00050 M01S00040.compgfp +++|* EQUIPMENT STATUS TABLE. 00051 M01S00041.compgfp +++|*
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00052 M02S00042.271l750 ---|* IF *FNT$* IS DEFINED, SUBROUTINE *.FNT* WILL BE ASSEMBLED
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00053 M02S00043.271l750 ---|* TO CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00054 M02S00044.271l750 ---|* SYSTEM FNT TABLE. 00055 M01S00008.271l750 +++|* IF *FNT$* IS DEFINED, SUBROUTINE *.FNT* WILL BE ASSEMBLED TO 00056 M01S00009.271l750 +++|* CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE SYSTEM FILE 00057 M01S00010.271l750 +++|* NAME TABLE. 00058 M01S00011.271l750 +++|* 00059 M01S00012.271l750 +++|* IF *JCB$* IS DEFINED, SUBROUTINE *.JCB* WILL BE ASSEMBLED TO 00060 M01S00013.271l750 +++|* CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE JOB CONTROL 00061 M01S00014.271l750 +++|* BLOCK TABLE. 00062 M01S00045.compgfp +++|* 00063 M01S00046.compgfp +++|* IF *QFT$* IS DEFINED, SUBROUTINE *.QFT* WILL BE ASSEMBLED 00064 M01S00047.compgfp +++|* TO CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE 00065 M01S00048.compgfp +++|* QUEUE FILE TABLE. 00066 M01S00003.274l797 +++|* 00067 M01S00004.274l797 +++|* IF *ORT$* IS DEFINED, SUBROUTINE *.ORT* WILL BE ASSEMBLED 00068 M01S00005.274l797 +++|* TO CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE 00069 M01S00006.274l797 +++|* OPTICAL DISK REQUEST TABLE. 00070 M01S00049.compgfp +++|*
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00071 M02S00050.271l750 ---|* IF *IFP$* IS DEFINED, REMOTE CODE FOR SUBROUTINE *IFP*
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00072 M02S00051.271l750 ---|* WILL BE DEFINED TO INITIALIZE THE MANAGED TABLE PROCESSORS.
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00073 M02S00052.271l750 ---|* AN *IFP* LABELED *HERE* INSTRUCTION MUST BE SPECIFIED TO
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00074 M02S00053.271l750 ---|* CAUSE ASSEMBLY OF THE *IFP* SUBROUTINE AT THE APPROPRIATE
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00075 M02S00054.271l750 ---|* PLACE WITHIN THE CALLING PP PROGRAM (PRESET RECOMMENDED).
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00076 M02S00055.271l750 ---|* THE CALLING PP PROGRAM MUST RETURN JUMP TO *IFP* BEFORE
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00077 M02S00056.271l750 ---|* PROCESSING ANY *SFA* MACRO CALLS. IF *QUAL$* IS DEFINED
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00078 M02S00057.271l750 ---|* IN THE CALLING PROGRAM, THE SAME QUALIFIER MUST BE IN
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00079 M02S00058.271l750 ---|* EFFECT FOR *COMPGFP* AND FOR *IFP* REMOTE CODE. 00080 M01S00015.271l750 +++|* IF *IFP$* IS DEFINED, REMOTE CODE FOR SUBROUTINE *IFP* WILL 00081 M01S00016.271l750 +++|* BE DEFINED TO INITIALIZE THE MANAGED TABLE PROCESSORS. AN 00082 M01S00017.271l750 +++|* *IFP* LABELED *HERE* INSTRUCTION MUST BE SPECIFIED TO CAUSE 00083 M01S00018.271l750 +++|* ASSEMBLY OF THE *IFP* SUBROUTINE AT THE APPROPRIATE PLACE 00084 M01S00019.271l750 +++|* WITHIN THE CALLING PP PROGRAM (PRESET RECOMMENDED). THE 00085 M01S00020.271l750 +++|* CALLING PP PROGRAM MUST RETURN JUMP TO *IFP* BEFORE 00086 M01S00021.271l750 +++|* PROCESSING ANY *SFA* MACRO CALLS. IF *QUAL$* IS DEFINED IN 00087 M01S00022.271l750 +++|* THE CALLING PROGRAM, THE SAME QUALIFIER MUST BE IN EFFECT FOR 00088 M01S00023.271l750 +++|* *COMPGFP* AND FOR *IFP* REMOTE CODE. 00089 M01S00059.compgfp +++|*
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00090 M02S00060.271l750 ---|* IF *IFP$* IS NOT DEFINED, SUBROUTINE *IFP* WILL BE
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00091 M02S00061.271l750 ---|* ASSEMBLED IN-LINE, AND THE FIRST EXECUTION OF *.CLT*, *.EJT*,
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00092 M02S00062.271l750 ---|* *.EST*, *.FNT*, OR *.QFT* WILL INITIALIZE THE MANAGED TABLE 00093 M01S00024.271l750 +++|* IF *IFP$* IS NOT DEFINED, SUBROUTINE *IFP* WILL BE ASSEMBLED 00094 M01S00025.271l750 +++|* IN-LINE, AND THE FIRST EXECUTION OF *.CLT*, *.EJT*, *.EST*,
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00095 M02S00026.274l797 ---|* *.FNT*, *.JCB*, OR *.QFT* WILL INITIALIZE THE MANAGED TABLE
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00096 M02S00063.274l797 ---|* PROCESSORS. 00097 M01S00007.274l797 +++|* *.FNT*, *.JCB*, *.ORT* OR *.QFT* WILL INITIALIZE THE MANAGED 00098 M01S00008.274l797 +++|* TABLE PROCESSORS. 00099 M01S00064.compgfp +++|*
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00100 M02S00065.271l750 ---|* EXECUTION OF *IFP* DESTROYS DIRECT CELLS CM THROUGH
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00101 M02S00066.271l750 ---|* CM+4, AND MODIFIES CODE TO DISABLE FURTHER CALLS TO
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00102 M02S00067.271l750 ---|* *IFP* FROM *.CLT*, *.EJT*, *.EST*, *.FNT*, *.QFT*. 00103 M01S00027.271l750 +++|* EXECUTION OF *IFP* DESTROYS DIRECT CELLS CM THROUGH CM+4, AND 00104 M01S00028.271l750 +++|* MODIFIES CODE TO DISABLE FURTHER CALLS TO *IFP* FROM *.CLT*,
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00105 M02S00029.274l797 ---|* *.EJT*, *.EST*, *.FNT*, *.JCB*, AND *.QFT*. 00106 M01S00009.274l797 +++|* *.EJT*, *.EST*, *.FNT*, *.JCB*, *.ORT* AND *.QFT*. 00107 M01S00068.compgfp +++|* 00108 M01S00069.compgfp +++|* NOTE - IF MULTIPLE OVERLAYS CALL *COMPGFP*, CAUTION SHOULD 00109 M01S00070.compgfp +++|* BE OBSERVED TO ENSURE THAT ONLY THE CURRENT OVERLAY-S CODE 00110 M01S00071.compgfp +++|* IS MODIFIED. CODE DESTRUCTION AND MANY INTERESTING SYMPTOMS 00111 M01S00072.compgfp +++|* CAN OCCUR IF THIS IS NOT FOLLOWED. 00112 M01S00073.compgfp +++| .CLT SPACE 4,10 00113 M01S00074.compgfp +++| CLT$ IF DEF,CLT$ 00114 M01S00075.compgfp +++| .CLT SPACE 4,10 00115 M01S00076.compgfp +++|** .CLT - CALCULATE CLT ENTRY ADDRESS. 00116 M01S00077.compgfp +++|*
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 00117 M02S00078.271l750 ---|* ENTRY (A) = ORDINAL OF ENTRY ON CLT. 00118 M01S00030.271l750 +++|* ENTRY (A) = ORDINAL OF ENTRY IN CLT. 00119 M01S00079.compgfp +++|* 00120 M01S00080.compgfp +++|* EXIT (A) = ABSOLUTE ADDRESS OF CLT ENTRY. 00121 M01S00081.compgfp +++|* 00122 M01S00082.compgfp +++|* USES T0. 00123 M01S00083.compgfp +++|* 00124 M01S00084.compgfp +++|* CALLS IFP (FOR INITIALIZATION IF *IFP$* IS NOT DEFINED). 00125 M01S00085.compgfp +++|* 00126 M01S00086.compgfp +++|* MACROS CFI. 00127 M01S00087.compgfp +++| 00128 M01S00088.compgfp +++| CLT1 CFI CLT CALCULATE CLT ENTRY WORD INDEX 00129 M01S00089.compgfp +++| CLTB ADC ** (CLT FWA) 00130 M01S00090.compgfp +++| 00131 M01S00091.compgfp +++| .CLT SUBR ENTRY/EXIT 00132 M01S00092.compgfp +++| IFP$ IF -DEF,IFP$ 00133 M01S00093.compgfp +++| CLTA RJM IFP INITIALIZE MANAGED TABLE PROCESSORS 00134 M01S00094.compgfp +++|* UJN CLT1 (INITIALIZE COMPLETE) 00135 M01S00095.compgfp +++| IFP$ ENDIF 00136 M01S00096.compgfp +++| UJN CLT1 CALCULATE ABSOLUTE CLT ADDRESS 00137 M01S00097.compgfp +++| 00138 M01S00098.compgfp +++| CLT$ ENDIF 00139 M01S00099.compgfp +++| SPACE 4,10 00140 M01S00100.compgfp +++| EJT$ IF DEF,EJT$ 00141 M01S00101.compgfp +++| .EJT SPACE 4,10 00142 M01S00102.compgfp +++|** .EJT - CALCULATE EJT ENTRY ADDRESS. 00143 M01S00103.compgfp +++|* 00144 M01S00104.compgfp +++|* ENTRY (A) = ORDINAL OF ENTRY IN EJT. 00145 M01S00105.compgfp +++|* 00146 M01S00106.compgfp +++|* EXIT (A) = ABSOLUTE ADDRESS OF EJT ENTRY. 00147 M01S00107.compgfp +++|* 00148 M01S00108.compgfp +++|* USES T0. 00149 M01S00109.compgfp +++|* 00150 M01S00110.compgfp +++|* CALLS IFP (FOR INITIALIZATION IF *IFP$* IS NOT DEFINED). 00151 M01S00111.compgfp +++|* 00152 M01S00112.compgfp +++|* MACROS CFI. 00153 M01S00113.compgfp +++| 00154 M01S00114.compgfp +++| 00155 M01S00115.compgfp +++| EJT1 CFI EJT CALCULATE EJT ENTRY WORD INDEX 00156 M01S00116.compgfp +++| EJTB ADC ** (EJT FWA) 00157 M01S00117.compgfp +++| 00158 M01S00118.compgfp +++| .EJT SUBR ENTRY/EXIT 00159 M01S00119.compgfp +++| IFP$ IF -DEF,IFP$ 00160 M01S00120.compgfp +++| EJTA RJM IFP INITIALIZE MANAGED TABLE PROCESSORS 00161 M01S00121.compgfp +++|* UJN EJT1 (INITIALIZATION COMPLETE) 00162 M01S00122.compgfp +++| IFP$ ENDIF 00163 M01S00123.compgfp +++| UJN EJT1 CALCULATE ABSOLUTE EJT ADDRESS 00164 M01S00124.compgfp +++| 00165 M01S00125.compgfp +++| EJT$ ENDIF 00166 M01S00126.compgfp +++| 00167 M01S00127.compgfp +++| 00168 M01S00128.compgfp +++| EST$ IF DEF,EST$ 00169 M01S00129.compgfp +++| .EST SPACE 4,10 00170 M01S00130.compgfp +++|** .EST - CALCULATE EST ENTRY ADDRESS. 00171 M01S00131.compgfp +++|* 00172 M01S00132.compgfp +++|* ENTRY (A) = ORDINAL OF EST ENTRY. 00173 M01S00133.compgfp +++|* 00174 M01S00134.compgfp +++|* EXIT (A) = ABSOLUTE ADDRESS OF EST ENTRY. 00175 M01S00135.compgfp +++|* 00176 M01S00136.compgfp +++|* USES T0. 00177 M01S00137.compgfp +++|* 00178 M01S00138.compgfp +++|* CALLS IFP (FOR INITIALIZATION IF *IFP$* IS NOT DEFINED). 00179 M01S00139.compgfp +++|* 00180 M01S00140.compgfp +++|* MACROS CFI. 00181 M01S00141.compgfp +++| 00182 M01S00142.compgfp +++| 00183 M01S00143.compgfp +++| EST1 CFI EST CALCULATE EST ENTRY WORD INDEX 00184 M01S00144.compgfp +++| ESTB ADC ** (EST FWA) 00185 M01S00145.compgfp +++| 00186 M01S00146.compgfp +++| .EST SUBR ENTRY/EXIT 00187 M01S00147.compgfp +++| IFP$ IF -DEF,IFP$ 00188 M01S00148.compgfp +++| ESTA RJM IFP INITIALIZE MANAGED TABLE PROCESSORS 00189 M01S00149.compgfp +++|* UJN EST1 (INITIALIZATION COMPLETE) 00190 M01S00150.compgfp +++| IFP$ ENDIF 00191 M01S00151.compgfp +++| UJN EST1 CALCULATE ABSOLUTE EST ADDRESS 00192 M01S00152.compgfp +++| 00193 M01S00153.compgfp +++| EST$ ENDIF 00194 M01S00154.compgfp +++| 00195 M01S00155.compgfp +++| 00196 M01S00156.compgfp +++| BLI$ IF DEF,BLI$ 00197 M01S00157.compgfp +++| .BLI SPACE 4,15 00198 M01S00158.compgfp +++|** .BLI - BUILD LONG INSTRUCTION (CYBER 180-S ONLY). 00199 M01S00159.compgfp +++|* 00200 M01S00160.compgfp +++|* ENTRY (A) = THE LONG INSTRUCTION. 00201 M01S00161.compgfp +++|* (T3) = THE ADDRESS AT WHICH TO STORE THE INSTRUCTION. 00202 M01S00162.compgfp +++|* (.EST) = RETURN ADDRESS. 00203 M01S00163.compgfp +++|* 00204 M01S00164.compgfp +++|* NOTE - *.BLI* IS ONLY TO BE USED BY THE *BLI* MACRO. *.BLI* 00205 M01S00165.compgfp +++|* EXITS TO THE RETURN ADDRESS OF THE LAST CALL TO *.EST*. THIS 00206 M01S00166.compgfp +++|* IS A VERY UNUSUAL EXIT PATH, BUT IT ALLOWS THE BUILDING OF 00207 M01S00167.compgfp +++|* LONG INSTRUCTIONS TO BE ACCOMPLISHED IN A MINIMAL NUMBER OF 00208 M01S00168.compgfp +++|* BYTES OF RESIDENT CODE. 00209 M01S00169.compgfp +++| 00210 M01S00170.compgfp +++| 00211 M01S00171.compgfp +++| .BLI STI T3 00212 M01S00172.compgfp +++|* STIL T3 (SET BY CALLER-S CODE) 00213 M01S00173.compgfp +++| UJP .ESTX RETURN 00214 M01S00174.compgfp +++| 00215 M01S00175.compgfp +++| BLI$ ENDIF 00216 M01S00176.compgfp +++| 00217 M01S00177.compgfp +++| 00218 M01S00178.compgfp +++| FNT$ IF DEF,FNT$ 00219 M01S00179.compgfp +++| .FNT SPACE 4,10 00220 M01S00180.compgfp +++|** .FNT - CALCULATE SYSTEM FNT ENTRY ADDRESS. 00221 M01S00181.compgfp +++|* 00222 M01S00182.compgfp +++|* ENTRY (A) = ORDINAL OF ENTRY IN SYSTEM FNT. 00223 M01S00183.compgfp +++|* 00224 M01S00184.compgfp +++|* EXIT (A) = ABSOLUTE ADDRESS OF SYSTEM FNT ENTRY. 00225 M01S00185.compgfp +++|* 00226 M01S00186.compgfp +++|* USES T0. 00227 M01S00187.compgfp +++|* 00228 M01S00188.compgfp +++|* CALLS IFP (FOR INITIALIZATION IF *IFP$* IS NOT DEFINED). 00229 M01S00189.compgfp +++|* 00230 M01S00190.compgfp +++|* MACROS CFI. 00231 M01S00191.compgfp +++| 00232 M01S00192.compgfp +++| 00233 M01S00193.compgfp +++| FNT1 CFI FNT CALCULATE SYSTEM FNT ENTRY WORD INDEX 00234 M01S00194.compgfp +++| FNTB ADC ** (FNT FWA) 00235 M01S00195.compgfp +++| 00236 M01S00196.compgfp +++| .FNT SUBR ENTRY/EXIT 00237 M01S00197.compgfp +++| IFP$ IF -DEF,IFP$ 00238 M01S00198.compgfp +++| FNTA RJM IFP INITIALIZE MANAGED TABLE PROCESSORS 00239 M01S00199.compgfp +++|* UJN FNT1 (INITIALIZATION COMPLETE) 00240 M01S00200.compgfp +++| IFP$ ENDIF 00241 M01S00201.compgfp +++| UJN FNT1 CALCULATE ABSOLUTE FNT ADDRESS 00242 M01S00202.compgfp +++| 00243 M01S00203.compgfp +++| FNT$ ENDIF 00244 M01S00204.compgfp +++| 00245 M01S00205.compgfp +++| 00246 M01S00031.271l750 +++| JCB$ IF DEF,JCB$ 00247 M01S00032.271l750 +++| .JCB SPACE 4,10 00248 M01S00033.271l750 +++|** .JCB - CALCULATE JCB ENTRY ADDRESS. 00249 M01S00034.271l750 +++|* 00250 M01S00035.271l750 +++|* ENTRY (A) = ORDINAL OF ENTRY IN JCB. 00251 M01S00036.271l750 +++|* 00252 M01S00037.271l750 +++|* EXIT (A) = ABSOLUTE ADDRESS OF JCB ENTRY. 00253 M01S00038.271l750 +++|* 00254 M01S00039.271l750 +++|* USES T0. 00255 M01S00040.271l750 +++|* 00256 M01S00041.271l750 +++|* CALLS IFP (FOR INITIALIZATION IF *IFP$* IS NOT DEFINED). 00257 M01S00042.271l750 +++|* 00258 M01S00043.271l750 +++|* MACROS CFI. 00259 M01S00044.271l750 +++| 00260 M01S00045.271l750 +++| JCB1 CFI JCB CALCULATE JCB ENTRY WORD INDEX 00261 M01S00046.271l750 +++| JCBB ADC ** (JCB FWA) 00262 M01S00047.271l750 +++| 00263 M01S00048.271l750 +++| .JCB SUBR ENTRY/EXIT 00264 M01S00049.271l750 +++| IFP$ IF -DEF,IFP$ 00265 M01S00050.271l750 +++| JCBA RJM IFP INITIALIZE MANAGED TABLE PROCESSORS 00266 M01S00051.271l750 +++|* UJN JCB1 (INITIALIZE COMPLETE) 00267 M01S00052.271l750 +++| IFP$ ENDIF 00268 M01S00053.271l750 +++| UJN JCB1 CALCULATE ABSOLUTE JCB ADDRESS 00269 M01S00054.271l750 +++| 00270 M01S00055.271l750 +++| JCB$ ENDIF 00271 M01S00056.271l750 +++| 00272 M01S00057.271l750 +++| 00273 M01S00206.compgfp +++| QFT$ IF DEF,QFT$ 00274 M01S00207.compgfp +++| .QFT SPACE 4,10 00275 M01S00208.compgfp +++|** .QFT - CALCULATE QFT ENTRY ADDRESS. 00276 M01S00209.compgfp +++|* 00277 M01S00210.compgfp +++|* ENTRY (A) = ORDINAL OF ENTRY IN QFT. 00278 M01S00211.compgfp +++|* 00279 M01S00212.compgfp +++|* EXIT (A) = ABSOLUTE ADDRESS OF QFT ENTRY. 00280 M01S00213.compgfp +++|* 00281 M01S00214.compgfp +++|* USES T0. 00282 M01S00215.compgfp +++|* 00283 M01S00216.compgfp +++|* CALLS IFP (FOR INITIALIZATION IF *IFP$* IS NOT DEFINED). 00284 M01S00217.compgfp +++|* 00285 M01S00218.compgfp +++|* MACROS CFI. 00286 M01S00219.compgfp +++| 00287 M01S00220.compgfp +++| 00288 M01S00221.compgfp +++| QFT1 CFI QFT CALCULATE QFT ENTRY WORD INDEX 00289 M01S00222.compgfp +++| QFTB ADC ** (QFT FWA) 00290 M01S00223.compgfp +++| 00291 M01S00224.compgfp +++| .QFT SUBR ENTRY/EXIT 00292 M01S00225.compgfp +++| IFP$ IF -DEF,IFP$ 00293 M01S00226.compgfp +++| QFTA RJM IFP INITIALIZE MANAGED TABLE PROCESSORS 00294 M01S00227.compgfp +++|* UJN QFT1 (INITIALIZATION COMPLETE) 00295 M01S00228.compgfp +++| IFP$ ENDIF 00296 M01S00229.compgfp +++| UJN QFT1 CALCULATE ABSOLUTE QFT ADDRESS 00297 M01S00230.compgfp +++| 00298 M01S00231.compgfp +++| QFT$ ENDIF 00299 M01S00010.274l797 +++| .ORT SPACE 4,10 00300 M01S00011.274l797 +++| ORT$ IF DEF,ORT$ 00301 M01S00012.274l797 +++| .ORT SPACE 4,10 00302 M01S00013.274l797 +++|** .ORT - CALCULATE ORT ENTRY ADDRESS. 00303 M01S00014.274l797 +++|* 00304 M01S00015.274l797 +++|* ENTRY (A) = ORDINAL OF ENTRY ON ORT. 00305 M01S00016.274l797 +++|* 00306 M01S00017.274l797 +++|* EXIT (A) = ABSOLUTE ADDRESS OF ORT ENTRY. 00307 M01S00018.274l797 +++|* 00308 M01S00019.274l797 +++|* USES T0. 00309 M01S00020.274l797 +++|* 00310 M01S00021.274l797 +++|* CALLS IFP (FOR INITIALIZATION IF *IFP$* IS NOT DEFINED). 00311 M01S00022.274l797 +++|* 00312 M01S00023.274l797 +++|* MACROS CFI. 00313 M01S00024.274l797 +++| 00314 M01S00025.274l797 +++| ORT1 CFI ORT CALCULATE ORT ENTRY WORD INDEX 00315 M01S00026.274l797 +++| ORTB ADC ** (ORT FWA) 00316 M01S00027.274l797 +++| 00317 M01S00028.274l797 +++| .ORT SUBR ENTRY/EXIT 00318 M01S00029.274l797 +++| IFP$ IF -DEF,IFP$ 00319 M01S00030.274l797 +++| ORTA RJM IFP INITIALIZE MANAGED TABLE PROCESSORS 00320 M01S00031.274l797 +++|* UJN ORT1 (INITIALIZE COMPLETE) 00321 M01S00032.274l797 +++| IFP$ ENDIF 00322 M01S00033.274l797 +++| UJN ORT1 CALCULATE ABSOLUTE ORT ADDRESS 00323 M01S00034.274l797 +++| 00324 M01S00035.274l797 +++| ORT$ ENDIF 00325 M01S00232.compgfp +++| 00326 M01S00233.compgfp +++| 00327 M01S00234.compgfp +++| IFP$ IF DEF,IFP$ 00328 M01S00235.compgfp +++| IFP RMT 00329 M01S00236.compgfp +++| QUAL$ IF -DEF,QUAL$ 00330 M01S00237.compgfp +++| QUAL COMPGFP 00331 M01S00238.compgfp +++| QUAL$ ENDIF 00332 M01S00239.compgfp +++| IFP$ ENDIF 00333 M01S00240.compgfp +++| IFP SPACE 4,10 00334 M01S00241.compgfp +++|** IFP - INITIALIZE MANAGED TABLE PROCESSORS. 00335 M01S00242.compgfp +++|* 00336 M01S00243.compgfp +++|* ENTRY (A) = ORDINAL IF CALLED FROM *.CLT*, *.EJT*, *.EST*,
| Line S00244 Modification History | |
|---|---|
M01 (Added by) | compgfp |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00337 M02S00244.274l797 ---|* *.FNT*, OR *.QFT* (*IFP$* NOT DEFINED). 00338 M01S00036.274l797 +++|* *.FNT*, *.ORT* OR *.QFT* (*IFP$* NOT DEFINED). 00339 M01S00245.compgfp +++|* 00340 M01S00246.compgfp +++|* EXIT (A) = ORDINAL, IF *IFP$* NOT DEFINED. 00341 M01S00247.compgfp +++|* TABLE ADDRESS(ES) INSERTED AS APPROPRIATE. 00342 M01S00248.compgfp +++|* *UJN* INSTRUCTION(S) INSERTED AS APPROPRIATE. 00343 M01S00249.compgfp +++|* 00344 M01S00250.compgfp +++|* USES T0, CM - CM+4. 00345 M01S00251.compgfp +++| 00346 M01S00252.compgfp +++| 00347 M01S00253.compgfp +++| IFP SUBR ENTRY/EXIT 00348 M01S00254.compgfp +++| IFP$ IF -DEF,IFP$ 00349 M01S00255.compgfp +++| STD T0 SAVE (A) = ORDINAL 00350 M01S00256.compgfp +++| IFP$ ENDIF 00351 M01S00257.compgfp +++| CLT$ IF DEF,CLT$ 00352 M01S00258.compgfp +++| LDK CLTP GET CLT POINTER 00353 M01S00259.compgfp +++| CRD CM 00354 M01S00260.compgfp +++| LDD CM SET CLT FWA OF *.CLT* SUBROUTINE 00355 M01S00261.compgfp +++| RAM CLTB 00356 M01S00262.compgfp +++| LDD CM+1 00357 M01S00263.compgfp +++| STM CLTB+1 00358 M01S00264.compgfp +++| IFP$ IF -DEF,IFP$ 00359 M01S00265.compgfp +++| LDC ** REPLACE *IFP* CALL WITH *UJN CLT1* 00360 M01S00266.compgfp +++| ORG *-1 00361 M01S00267.compgfp +++| LOC CLTA 00362 M01S00268.compgfp +++| UJN CLT1 CALCULATE CLT ENTRY ADDRESS 00363 M01S00269.compgfp +++| LOC *O 00364 M01S00270.compgfp +++| STM CLTA 00365 M01S00271.compgfp +++| IFP$ ENDIF 00366 M01S00272.compgfp +++| CLT$ ENDIF 00367 M01S00273.compgfp +++| EJT$ IF DEF,EJT$ 00368 M01S00274.compgfp +++| LDK EJTP GET EJT POINTER 00369 M01S00275.compgfp +++| CRD CM 00370 M01S00276.compgfp +++| LDD CM SET EJT FWA OF *.EJT* SUBROUTINE 00371 M01S00277.compgfp +++| RAM EJTB 00372 M01S00278.compgfp +++| LDD CM+1 00373 M01S00279.compgfp +++| STM EJTB+1 00374 M01S00280.compgfp +++| IFP$ IF -DEF,IFP$ 00375 M01S00281.compgfp +++| LDC ** REPLACE *IFP* CALL WITH *UJN EJT1* 00376 M01S00282.compgfp +++| ORG *-1 00377 M01S00283.compgfp +++| LOC EJTA 00378 M01S00284.compgfp +++| UJN EJT1 CALCULATE EJT ENTRY ADDRESS 00379 M01S00285.compgfp +++| LOC *O 00380 M01S00286.compgfp +++| STM EJTA 00381 M01S00287.compgfp +++| IFP$ ENDIF 00382 M01S00288.compgfp +++| EJT$ ENDIF 00383 M01S00289.compgfp +++| EST$ IF DEF,EST$ 00384 M01S00290.compgfp +++| LDK ESTP READ EST POINTER 00385 M01S00291.compgfp +++| CRD CM 00386 M01S00292.compgfp +++| LDD CM SET EST FWA IN *.EST* SUBROUTINE 00387 M01S00293.compgfp +++| RAM ESTB 00388 M01S00294.compgfp +++| LDD CM+1 00389 M01S00295.compgfp +++| STM ESTB+1 00390 M01S00296.compgfp +++| IFP$ IF -DEF,IFP$ 00391 M01S00297.compgfp +++| LDC ** REPLACE *IFP* CALL WITH *UJN EST1* 00392 M01S00298.compgfp +++| ORG *-1 00393 M01S00299.compgfp +++| LOC ESTA 00394 M01S00300.compgfp +++| UJN EST1 CALCULATE EST ENTRY ADDRESS 00395 M01S00301.compgfp +++| LOC *O 00396 M01S00302.compgfp +++| STM ESTA 00397 M01S00303.compgfp +++| IFP$ ENDIF 00398 M01S00304.compgfp +++| EST$ ENDIF 00399 M01S00305.compgfp +++| FNT$ IF DEF,FNT$ 00400 M01S00306.compgfp +++| LDK FNTP GET SYSTEM FNT POINTER 00401 M01S00307.compgfp +++| CRD CM 00402 M01S00308.compgfp +++| LDD CM SET SYSTEM FNT FWA IN *.FNT* SUBROUTINE 00403 M01S00309.compgfp +++| RAM FNTB 00404 M01S00310.compgfp +++| LDD CM+1 00405 M01S00311.compgfp +++| STM FNTB+1 00406 M01S00312.compgfp +++| IFP$ IF -DEF,IFP$ 00407 M01S00313.compgfp +++| LDC ** REPLACE *IFP* CALL WITH *UJN FNT1* 00408 M01S00314.compgfp +++| ORG *-1 00409 M01S00315.compgfp +++| LOC FNTA 00410 M01S00316.compgfp +++| UJN FNT1 CALCULATE FNT ENTRY ADDRESS 00411 M01S00317.compgfp +++| LOC *O 00412 M01S00318.compgfp +++| STM FNTA 00413 M01S00319.compgfp +++| IFP$ ENDIF 00414 M01S00320.compgfp +++| FNT$ ENDIF 00415 M01S00058.271l750 +++| JCB$ IF DEF,JCB$ 00416 M01S00059.271l750 +++| LDK JBCP GET JCB POINTER 00417 M01S00060.271l750 +++| CRD CM 00418 M01S00061.271l750 +++| LDD CM SET JCB FWA OF *.JCB* SUBROUTINE 00419 M01S00062.271l750 +++| RAM JCBB 00420 M01S00063.271l750 +++| LDD CM+1 00421 M01S00064.271l750 +++| STM JCBB+1 00422 M01S00065.271l750 +++| IFP$ IF -DEF,IFP$ 00423 M01S00066.271l750 +++| LDC ** REPLACE *IFP* CALL WITH *UJN JCB1* 00424 M01S00067.271l750 +++| ORG *-1 00425 M01S00068.271l750 +++| LOC JCBA 00426 M01S00069.271l750 +++| UJN JCB1 CALCULATE JCB ENTRY ADDRESS 00427 M01S00070.271l750 +++| LOC *O 00428 M01S00071.271l750 +++| STM JCBA 00429 M01S00072.271l750 +++| IFP$ ENDIF 00430 M01S00073.271l750 +++| JCB$ ENDIF 00431 M01S00321.compgfp +++| QFT$ IF DEF,QFT$ 00432 M01S00322.compgfp +++| LDK QFTP GET QFT POINTER 00433 M01S00323.compgfp +++| CRD CM 00434 M01S00324.compgfp +++| LDD CM SET QFT FWA IN *.QFT* SUBROUTINE 00435 M01S00325.compgfp +++| RAM QFTB 00436 M01S00326.compgfp +++| LDD CM+1 00437 M01S00327.compgfp +++| STM QFTB+1 00438 M01S00328.compgfp +++| IFP$ IF -DEF,IFP$ 00439 M01S00329.compgfp +++| LDC ** REPLACE *IFP* CALL WITH *UJN QFT1* 00440 M01S00330.compgfp +++| ORG *-1 00441 M01S00331.compgfp +++| LOC QFTA 00442 M01S00332.compgfp +++| UJN QFT1 CALCULATE QFT ENTRY ADDRESS 00443 M01S00333.compgfp +++| LOC *O 00444 M01S00334.compgfp +++| STM QFTA 00445 M01S00335.compgfp +++| IFP$ ENDIF 00446 M01S00336.compgfp +++| QFT$ ENDIF 00447 M01S00037.274l797 +++| ORT$ IF DEF,ORT$ 00448 M01S00038.274l797 +++| LDK ORTP GET ORT POINTER 00449 M01S00039.274l797 +++| CRD CM 00450 M01S00040.274l797 +++| LDD CM SET ORT FWA OF *.ORT* SUBROUTINE 00451 M01S00041.274l797 +++| RAM ORTB 00452 M01S00042.274l797 +++| LDD CM+1 00453 M01S00043.274l797 +++| STM ORTB+1 00454 M01S00044.274l797 +++| IFP$ IF -DEF,IFP$ 00455 M01S00045.274l797 +++| LDC ** REPLACE *IFP* CALL WITH *UJN ORT1* 00456 M01S00046.274l797 +++| ORG *-1 00457 M01S00047.274l797 +++| LOC ORTA 00458 M01S00048.274l797 +++| UJN ORT1 CALCULATE ORT ENTRY ADDRESS 00459 M01S00049.274l797 +++| LOC *O 00460 M01S00050.274l797 +++| STM ORTA 00461 M01S00051.274l797 +++| IFP$ ENDIF 00462 M01S00052.274l797 +++| ORT$ ENDIF 00463 M01S00337.compgfp +++| IFP$ IF -DEF,IFP$ 00464 M01S00338.compgfp +++| LDD T0 RESTORE (A) = ORDINAL 00465 M01S00339.compgfp +++| IFP$ ENDIF 00466 M01S00340.compgfp +++| UJP IFPX RETURN 00467 M01S00341.compgfp +++| 00468 M01S00342.compgfp +++| IFP$ IF DEF,IFP$ 00469 M01S00343.compgfp +++| QUAL$ IF -DEF,QUAL$ 00470 M01S00344.compgfp +++| QUAL * 00471 M01S00345.compgfp +++| IFP EQU /COMPGFP/IFP 00472 M01S00346.compgfp +++| QUAL$ ENDIF 00473 M01S00347.compgfp +++| IFP RMT 00474 M01S00348.compgfp +++| IFP$ ENDIF 00475 M01S00349.compgfp +++| SPACE 4,10 00476 M01S00350.compgfp +++| QUAL$ IF -DEF,QUAL$ 00477 M01S00351.compgfp +++| QUAL * 00478 M01S00352.compgfp +++| BLI$ IF DEF,BLI$ 00479 M01S00353.compgfp +++| .BLI EQU /COMPGFP/.BLI 00480 M01S00354.compgfp +++| BLI$ ENDIF 00481 M01S00355.compgfp +++| CLT$ IF DEF,CLT$ 00482 M01S00356.compgfp +++| .CLT EQU /COMPGFP/.CLT 00483 M01S00357.compgfp +++| CLT$ ENDIF 00484 M01S00358.compgfp +++| EJT$ IF DEF,EJT$ 00485 M01S00359.compgfp +++| .EJT EQU /COMPGFP/.EJT 00486 M01S00360.compgfp +++| EJT$ ENDIF 00487 M01S00361.compgfp +++| EST$ IF DEF,EST$ 00488 M01S00362.compgfp +++| .EST EQU /COMPGFP/.EST 00489 M01S00363.compgfp +++| EST$ ENDIF 00490 M01S00364.compgfp +++| FNT$ IF DEF,FNT$ 00491 M01S00365.compgfp +++| .FNT EQU /COMPGFP/.FNT 00492 M01S00366.compgfp +++| FNT$ ENDIF 00493 M01S00074.271l750 +++| JCB$ IF DEF,JCB$ 00494 M01S00075.271l750 +++| .JCB EQU /COMPGFP/.JCB 00495 M01S00076.271l750 +++| JCB$ ENDIF 00496 M01S00367.compgfp +++| QFT$ IF DEF,QFT$ 00497 M01S00368.compgfp +++| .QFT EQU /COMPGFP/.QFT 00498 M01S00369.compgfp +++| QFT$ ENDIF 00499 M01S00053.274l797 +++| ORT$ IF DEF,ORT$ 00500 M01S00054.274l797 +++| .ORT EQU /COMPGFP/.ORT 00501 M01S00055.274l797 +++| ORT$ ENDIF 00502 M01S00370.compgfp +++| QUAL$ ENDIF 00503 M01S00371.compgfp +++| ENDX
cdc/nos2.source/opl.opl871/common/compgfp.txt · Last modified: by 127.0.0.1