Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.compgfp +++| CTEXT COMPGFP - MANAGED TABLE PROCESSOR.
00002 M00S00002.compgfp +++| SPACE 4,10
00003 M00S00003.compgfp +++| QUAL$ IF -DEF,QUAL$
00004 M00S00004.compgfp +++| QUAL COMPGFP
00005 M00S00005.compgfp +++| QUAL$ ENDIF
00006 M00S00006.compgfp +++|*COMMENT COMPGFP - MANAGED TABLE PROCESSOR.
| Line S00007 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00007.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1981.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00008 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M00S00008.compgfp +++| SPACE 4,10
00010 M00S00009.compgfp +++|*** COMPGFP - MANAGED TABLE PROCESSOR.
00011 M00S00010.compgfp +++|* J. L. LARSON. 81/04/03.
| Line S00011 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
00012 M01S00011.271l750 ---| SPACE 4,35
00013 M01S00012.271l750 ---|*** *COMPGFP* DEFINES THE MANAGED TABLE PROCESSORS NEEDED
00014 M01S00013.271l750 ---|* TO ACCESS THE MANAGED TABLES (CLT, EJT, EST, SYSTEM FNT, AND
00015 M01S00014.271l750 ---|* QFT). *COMPGFP* CONTAINS SUBROUTINES NEEDED TO PROCESS CALLS
00016 M01S00015.271l750 ---|* FROM THE *SFA* MACRO. THE *SFA* MACRO IS INTENDED TO
00017 M01S00016.271l750 ---|* BE THE ONLY MECHANISM TO GENERATE CALLS TO SUBROUTINES
00018 M01S00017.271l750 ---|* *.CLT*, *.EJT*, *.EST*, *.FNT*, AND *.QFT* IN *COMPGFP*.
| Line S00001 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
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 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00021 M02S00003.274l797 ---|* THE CLT, EJT, EST, SYSTEM FNT, JCB, AND QFT TABLES.
| Line S00001 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00022 M01S00001.274l797 +++|* THE CLT, EJT, EST, SYSTEM FNT, JCB, ORT AND QFT TABLES.
| Line S00004 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
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 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00026 M02S00007.274l797 ---|* *.EST*, *.FNT*, *.JCB*, AND *.QFT* IN *COMPGFP*.
| Line S00002 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00027 M01S00002.274l797 +++|* *.EST*, *.FNT*, *.JCB*, *.ORT* AND *.QFT* IN *COMPGFP*.
00028 M00S00018.compgfp +++|*
00029 M00S00019.compgfp +++|* IN ADDITION, *COMPGFP* WILL GENERATE THE *.BLI* SUBROUTINE
00030 M00S00020.compgfp +++|* FOR USE BY THE *BLI* MACRO, WHICH BUILDS LONG (CYBER 180)
00031 M00S00021.compgfp +++|* INSTRUCTIONS.
00032 M00S00022.compgfp +++|*
00033 M00S00023.compgfp +++|* IF *BLI$* IS DEFINED, SUBROUTINE *.BLI* WILL BE ASSEMBLED
00034 M00S00024.compgfp +++|* TO BUILD LONG INSTRUCTIONS. WHEN *BLI$* IS USED,
00035 M00S00025.compgfp +++|* 1) THE *.BLI* SYMBOL DEFINED IN *NOSTEXT* MUST BE IGNORED BY
00036 M00S00026.compgfp +++|* INCLUDING IT ON THE *SST* PSEUDO-OP, AND
00037 M00S00027.compgfp +++|* 2) THE CONTENTS OF *.BLI* MUST HAVE 100000B ADDED TO IT TO
00038 M00S00028.compgfp +++|* CONVERT IT TO A *LONG* INSTRUCTION.
00039 M00S00029.compgfp +++|*
00040 M00S00030.compgfp +++|* IF *CLT$* IS DEFINED, SUBROUTINE *.CLT* WILL BE ASSEMBLED
00041 M00S00031.compgfp +++|* TO CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE
00042 M00S00032.compgfp +++|* COMMON LIBRARIES TABLE.
00043 M00S00033.compgfp +++|*
00044 M00S00034.compgfp +++|* IF *EJT$* IS DEFINED, SUBROUTINE *.EJT* WILL BE ASSEMBLED
00045 M00S00035.compgfp +++|* TO CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE
00046 M00S00036.compgfp +++|* EXECUTING JOB TABLE.
00047 M00S00037.compgfp +++|*
00048 M00S00038.compgfp +++|* IF *EST$* IS DEFINED, SUBROUTINE *.EST* WILL BE ASSEMBLED
00049 M00S00039.compgfp +++|* TO CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE
00050 M00S00040.compgfp +++|* EQUIPMENT STATUS TABLE.
00051 M00S00041.compgfp +++|*
| Line S00042 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
00052 M01S00042.271l750 ---|* IF *FNT$* IS DEFINED, SUBROUTINE *.FNT* WILL BE ASSEMBLED
00053 M01S00043.271l750 ---|* TO CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE
00054 M01S00044.271l750 ---|* SYSTEM FNT TABLE.
| Line S00008 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00045.compgfp +++|*
00063 M00S00046.compgfp +++|* IF *QFT$* IS DEFINED, SUBROUTINE *.QFT* WILL BE ASSEMBLED
00064 M00S00047.compgfp +++|* TO CALCULATE THE ABSOLUTE ADDRESS OF AN ENTRY IN THE
00065 M00S00048.compgfp +++|* QUEUE FILE TABLE.
| Line S00003 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00049.compgfp +++|*
| Line S00050 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
00071 M01S00050.271l750 ---|* IF *IFP$* IS DEFINED, REMOTE CODE FOR SUBROUTINE *IFP*
00072 M01S00051.271l750 ---|* WILL BE DEFINED TO INITIALIZE THE MANAGED TABLE PROCESSORS.
00073 M01S00052.271l750 ---|* AN *IFP* LABELED *HERE* INSTRUCTION MUST BE SPECIFIED TO
00074 M01S00053.271l750 ---|* CAUSE ASSEMBLY OF THE *IFP* SUBROUTINE AT THE APPROPRIATE
00075 M01S00054.271l750 ---|* PLACE WITHIN THE CALLING PP PROGRAM (PRESET RECOMMENDED).
00076 M01S00055.271l750 ---|* THE CALLING PP PROGRAM MUST RETURN JUMP TO *IFP* BEFORE
00077 M01S00056.271l750 ---|* PROCESSING ANY *SFA* MACRO CALLS. IF *QUAL$* IS DEFINED
00078 M01S00057.271l750 ---|* IN THE CALLING PROGRAM, THE SAME QUALIFIER MUST BE IN
00079 M01S00058.271l750 ---|* EFFECT FOR *COMPGFP* AND FOR *IFP* REMOTE CODE.
| Line S00015 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00059.compgfp +++|*
| Line S00060 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
00090 M01S00060.271l750 ---|* IF *IFP$* IS NOT DEFINED, SUBROUTINE *IFP* WILL BE
00091 M01S00061.271l750 ---|* ASSEMBLED IN-LINE, AND THE FIRST EXECUTION OF *.CLT*, *.EJT*,
00092 M01S00062.271l750 ---|* *.EST*, *.FNT*, OR *.QFT* WILL INITIALIZE THE MANAGED TABLE
| Line S00024 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
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 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00095 M02S00026.274l797 ---|* *.FNT*, *.JCB*, OR *.QFT* WILL INITIALIZE THE MANAGED TABLE
| Line S00063 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00096 M01S00063.274l797 ---|* PROCESSORS.
| Line S00007 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00097 M01S00007.274l797 +++|* *.FNT*, *.JCB*, *.ORT* OR *.QFT* WILL INITIALIZE THE MANAGED
00098 M01S00008.274l797 +++|* TABLE PROCESSORS.
00099 M00S00064.compgfp +++|*
| Line S00065 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
00100 M01S00065.271l750 ---|* EXECUTION OF *IFP* DESTROYS DIRECT CELLS CM THROUGH
00101 M01S00066.271l750 ---|* CM+4, AND MODIFIES CODE TO DISABLE FURTHER CALLS TO
00102 M01S00067.271l750 ---|* *IFP* FROM *.CLT*, *.EJT*, *.EST*, *.FNT*, *.QFT*.
| Line S00027 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
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 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00105 M02S00029.274l797 ---|* *.EJT*, *.EST*, *.FNT*, *.JCB*, AND *.QFT*.
| Line S00009 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00106 M01S00009.274l797 +++|* *.EJT*, *.EST*, *.FNT*, *.JCB*, *.ORT* AND *.QFT*.
00107 M00S00068.compgfp +++|*
00108 M00S00069.compgfp +++|* NOTE - IF MULTIPLE OVERLAYS CALL *COMPGFP*, CAUTION SHOULD
00109 M00S00070.compgfp +++|* BE OBSERVED TO ENSURE THAT ONLY THE CURRENT OVERLAY-S CODE
00110 M00S00071.compgfp +++|* IS MODIFIED. CODE DESTRUCTION AND MANY INTERESTING SYMPTOMS
00111 M00S00072.compgfp +++|* CAN OCCUR IF THIS IS NOT FOLLOWED.
00112 M00S00073.compgfp +++| .CLT SPACE 4,10
00113 M00S00074.compgfp +++| CLT$ IF DEF,CLT$
00114 M00S00075.compgfp +++| .CLT SPACE 4,10
00115 M00S00076.compgfp +++|** .CLT - CALCULATE CLT ENTRY ADDRESS.
00116 M00S00077.compgfp +++|*
| Line S00078 Modification History |
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
00117 M01S00078.271l750 ---|* ENTRY (A) = ORDINAL OF ENTRY ON CLT.
| Line S00030 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
00118 M01S00030.271l750 +++|* ENTRY (A) = ORDINAL OF ENTRY IN CLT.
00119 M00S00079.compgfp +++|*
00120 M00S00080.compgfp +++|* EXIT (A) = ABSOLUTE ADDRESS OF CLT ENTRY.
00121 M00S00081.compgfp +++|*
00122 M00S00082.compgfp +++|* USES T0.
00123 M00S00083.compgfp +++|*
00124 M00S00084.compgfp +++|* CALLS IFP (FOR INITIALIZATION IF *IFP$* IS NOT DEFINED).
00125 M00S00085.compgfp +++|*
00126 M00S00086.compgfp +++|* MACROS CFI.
00127 M00S00087.compgfp +++|
00128 M00S00088.compgfp +++| CLT1 CFI CLT CALCULATE CLT ENTRY WORD INDEX
00129 M00S00089.compgfp +++| CLTB ADC ** (CLT FWA)
00130 M00S00090.compgfp +++|
00131 M00S00091.compgfp +++| .CLT SUBR ENTRY/EXIT
00132 M00S00092.compgfp +++| IFP$ IF -DEF,IFP$
00133 M00S00093.compgfp +++| CLTA RJM IFP INITIALIZE MANAGED TABLE PROCESSORS
00134 M00S00094.compgfp +++|* UJN CLT1 (INITIALIZE COMPLETE)
00135 M00S00095.compgfp +++| IFP$ ENDIF
00136 M00S00096.compgfp +++| UJN CLT1 CALCULATE ABSOLUTE CLT ADDRESS
00137 M00S00097.compgfp +++|
00138 M00S00098.compgfp +++| CLT$ ENDIF
00139 M00S00099.compgfp +++| SPACE 4,10
00140 M00S00100.compgfp +++| EJT$ IF DEF,EJT$
00141 M00S00101.compgfp +++| .EJT SPACE 4,10
00142 M00S00102.compgfp +++|** .EJT - CALCULATE EJT ENTRY ADDRESS.
00143 M00S00103.compgfp +++|*
00144 M00S00104.compgfp +++|* ENTRY (A) = ORDINAL OF ENTRY IN EJT.
00145 M00S00105.compgfp +++|*
00146 M00S00106.compgfp +++|* EXIT (A) = ABSOLUTE ADDRESS OF EJT ENTRY.
00147 M00S00107.compgfp +++|*
00148 M00S00108.compgfp +++|* USES T0.
00149 M00S00109.compgfp +++|*
00150 M00S00110.compgfp +++|* CALLS IFP (FOR INITIALIZATION IF *IFP$* IS NOT DEFINED).
00151 M00S00111.compgfp +++|*
00152 M00S00112.compgfp +++|* MACROS CFI.
00153 M00S00113.compgfp +++|
00154 M00S00114.compgfp +++|
00155 M00S00115.compgfp +++| EJT1 CFI EJT CALCULATE EJT ENTRY WORD INDEX
00156 M00S00116.compgfp +++| EJTB ADC ** (EJT FWA)
00157 M00S00117.compgfp +++|
00158 M00S00118.compgfp +++| .EJT SUBR ENTRY/EXIT
00159 M00S00119.compgfp +++| IFP$ IF -DEF,IFP$
00160 M00S00120.compgfp +++| EJTA RJM IFP INITIALIZE MANAGED TABLE PROCESSORS
00161 M00S00121.compgfp +++|* UJN EJT1 (INITIALIZATION COMPLETE)
00162 M00S00122.compgfp +++| IFP$ ENDIF
00163 M00S00123.compgfp +++| UJN EJT1 CALCULATE ABSOLUTE EJT ADDRESS
00164 M00S00124.compgfp +++|
00165 M00S00125.compgfp +++| EJT$ ENDIF
00166 M00S00126.compgfp +++|
00167 M00S00127.compgfp +++|
00168 M00S00128.compgfp +++| EST$ IF DEF,EST$
00169 M00S00129.compgfp +++| .EST SPACE 4,10
00170 M00S00130.compgfp +++|** .EST - CALCULATE EST ENTRY ADDRESS.
00171 M00S00131.compgfp +++|*
00172 M00S00132.compgfp +++|* ENTRY (A) = ORDINAL OF EST ENTRY.
00173 M00S00133.compgfp +++|*
00174 M00S00134.compgfp +++|* EXIT (A) = ABSOLUTE ADDRESS OF EST ENTRY.
00175 M00S00135.compgfp +++|*
00176 M00S00136.compgfp +++|* USES T0.
00177 M00S00137.compgfp +++|*
00178 M00S00138.compgfp +++|* CALLS IFP (FOR INITIALIZATION IF *IFP$* IS NOT DEFINED).
00179 M00S00139.compgfp +++|*
00180 M00S00140.compgfp +++|* MACROS CFI.
00181 M00S00141.compgfp +++|
00182 M00S00142.compgfp +++|
00183 M00S00143.compgfp +++| EST1 CFI EST CALCULATE EST ENTRY WORD INDEX
00184 M00S00144.compgfp +++| ESTB ADC ** (EST FWA)
00185 M00S00145.compgfp +++|
00186 M00S00146.compgfp +++| .EST SUBR ENTRY/EXIT
00187 M00S00147.compgfp +++| IFP$ IF -DEF,IFP$
00188 M00S00148.compgfp +++| ESTA RJM IFP INITIALIZE MANAGED TABLE PROCESSORS
00189 M00S00149.compgfp +++|* UJN EST1 (INITIALIZATION COMPLETE)
00190 M00S00150.compgfp +++| IFP$ ENDIF
00191 M00S00151.compgfp +++| UJN EST1 CALCULATE ABSOLUTE EST ADDRESS
00192 M00S00152.compgfp +++|
00193 M00S00153.compgfp +++| EST$ ENDIF
00194 M00S00154.compgfp +++|
00195 M00S00155.compgfp +++|
00196 M00S00156.compgfp +++| BLI$ IF DEF,BLI$
00197 M00S00157.compgfp +++| .BLI SPACE 4,15
00198 M00S00158.compgfp +++|** .BLI - BUILD LONG INSTRUCTION (CYBER 180-S ONLY).
00199 M00S00159.compgfp +++|*
00200 M00S00160.compgfp +++|* ENTRY (A) = THE LONG INSTRUCTION.
00201 M00S00161.compgfp +++|* (T3) = THE ADDRESS AT WHICH TO STORE THE INSTRUCTION.
00202 M00S00162.compgfp +++|* (.EST) = RETURN ADDRESS.
00203 M00S00163.compgfp +++|*
00204 M00S00164.compgfp +++|* NOTE - *.BLI* IS ONLY TO BE USED BY THE *BLI* MACRO. *.BLI*
00205 M00S00165.compgfp +++|* EXITS TO THE RETURN ADDRESS OF THE LAST CALL TO *.EST*. THIS
00206 M00S00166.compgfp +++|* IS A VERY UNUSUAL EXIT PATH, BUT IT ALLOWS THE BUILDING OF
00207 M00S00167.compgfp +++|* LONG INSTRUCTIONS TO BE ACCOMPLISHED IN A MINIMAL NUMBER OF
00208 M00S00168.compgfp +++|* BYTES OF RESIDENT CODE.
00209 M00S00169.compgfp +++|
00210 M00S00170.compgfp +++|
00211 M00S00171.compgfp +++| .BLI STI T3
00212 M00S00172.compgfp +++|* STIL T3 (SET BY CALLER-S CODE)
00213 M00S00173.compgfp +++| UJP .ESTX RETURN
00214 M00S00174.compgfp +++|
00215 M00S00175.compgfp +++| BLI$ ENDIF
00216 M00S00176.compgfp +++|
00217 M00S00177.compgfp +++|
00218 M00S00178.compgfp +++| FNT$ IF DEF,FNT$
00219 M00S00179.compgfp +++| .FNT SPACE 4,10
00220 M00S00180.compgfp +++|** .FNT - CALCULATE SYSTEM FNT ENTRY ADDRESS.
00221 M00S00181.compgfp +++|*
00222 M00S00182.compgfp +++|* ENTRY (A) = ORDINAL OF ENTRY IN SYSTEM FNT.
00223 M00S00183.compgfp +++|*
00224 M00S00184.compgfp +++|* EXIT (A) = ABSOLUTE ADDRESS OF SYSTEM FNT ENTRY.
00225 M00S00185.compgfp +++|*
00226 M00S00186.compgfp +++|* USES T0.
00227 M00S00187.compgfp +++|*
00228 M00S00188.compgfp +++|* CALLS IFP (FOR INITIALIZATION IF *IFP$* IS NOT DEFINED).
00229 M00S00189.compgfp +++|*
00230 M00S00190.compgfp +++|* MACROS CFI.
00231 M00S00191.compgfp +++|
00232 M00S00192.compgfp +++|
00233 M00S00193.compgfp +++| FNT1 CFI FNT CALCULATE SYSTEM FNT ENTRY WORD INDEX
00234 M00S00194.compgfp +++| FNTB ADC ** (FNT FWA)
00235 M00S00195.compgfp +++|
00236 M00S00196.compgfp +++| .FNT SUBR ENTRY/EXIT
00237 M00S00197.compgfp +++| IFP$ IF -DEF,IFP$
00238 M00S00198.compgfp +++| FNTA RJM IFP INITIALIZE MANAGED TABLE PROCESSORS
00239 M00S00199.compgfp +++|* UJN FNT1 (INITIALIZATION COMPLETE)
00240 M00S00200.compgfp +++| IFP$ ENDIF
00241 M00S00201.compgfp +++| UJN FNT1 CALCULATE ABSOLUTE FNT ADDRESS
00242 M00S00202.compgfp +++|
00243 M00S00203.compgfp +++| FNT$ ENDIF
00244 M00S00204.compgfp +++|
00245 M00S00205.compgfp +++|
| Line S00031 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00206.compgfp +++| QFT$ IF DEF,QFT$
00274 M00S00207.compgfp +++| .QFT SPACE 4,10
00275 M00S00208.compgfp +++|** .QFT - CALCULATE QFT ENTRY ADDRESS.
00276 M00S00209.compgfp +++|*
00277 M00S00210.compgfp +++|* ENTRY (A) = ORDINAL OF ENTRY IN QFT.
00278 M00S00211.compgfp +++|*
00279 M00S00212.compgfp +++|* EXIT (A) = ABSOLUTE ADDRESS OF QFT ENTRY.
00280 M00S00213.compgfp +++|*
00281 M00S00214.compgfp +++|* USES T0.
00282 M00S00215.compgfp +++|*
00283 M00S00216.compgfp +++|* CALLS IFP (FOR INITIALIZATION IF *IFP$* IS NOT DEFINED).
00284 M00S00217.compgfp +++|*
00285 M00S00218.compgfp +++|* MACROS CFI.
00286 M00S00219.compgfp +++|
00287 M00S00220.compgfp +++|
00288 M00S00221.compgfp +++| QFT1 CFI QFT CALCULATE QFT ENTRY WORD INDEX
00289 M00S00222.compgfp +++| QFTB ADC ** (QFT FWA)
00290 M00S00223.compgfp +++|
00291 M00S00224.compgfp +++| .QFT SUBR ENTRY/EXIT
00292 M00S00225.compgfp +++| IFP$ IF -DEF,IFP$
00293 M00S00226.compgfp +++| QFTA RJM IFP INITIALIZE MANAGED TABLE PROCESSORS
00294 M00S00227.compgfp +++|* UJN QFT1 (INITIALIZATION COMPLETE)
00295 M00S00228.compgfp +++| IFP$ ENDIF
00296 M00S00229.compgfp +++| UJN QFT1 CALCULATE ABSOLUTE QFT ADDRESS
00297 M00S00230.compgfp +++|
00298 M00S00231.compgfp +++| QFT$ ENDIF
| Line S00010 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00232.compgfp +++|
00326 M00S00233.compgfp +++|
00327 M00S00234.compgfp +++| IFP$ IF DEF,IFP$
00328 M00S00235.compgfp +++| IFP RMT
00329 M00S00236.compgfp +++| QUAL$ IF -DEF,QUAL$
00330 M00S00237.compgfp +++| QUAL COMPGFP
00331 M00S00238.compgfp +++| QUAL$ ENDIF
00332 M00S00239.compgfp +++| IFP$ ENDIF
00333 M00S00240.compgfp +++| IFP SPACE 4,10
00334 M00S00241.compgfp +++|** IFP - INITIALIZE MANAGED TABLE PROCESSORS.
00335 M00S00242.compgfp +++|*
00336 M00S00243.compgfp +++|* ENTRY (A) = ORDINAL IF CALLED FROM *.CLT*, *.EJT*, *.EST*,
| Line S00244 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00337 M01S00244.274l797 ---|* *.FNT*, OR *.QFT* (*IFP$* NOT DEFINED).
| Line S00036 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00338 M01S00036.274l797 +++|* *.FNT*, *.ORT* OR *.QFT* (*IFP$* NOT DEFINED).
00339 M00S00245.compgfp +++|*
00340 M00S00246.compgfp +++|* EXIT (A) = ORDINAL, IF *IFP$* NOT DEFINED.
00341 M00S00247.compgfp +++|* TABLE ADDRESS(ES) INSERTED AS APPROPRIATE.
00342 M00S00248.compgfp +++|* *UJN* INSTRUCTION(S) INSERTED AS APPROPRIATE.
00343 M00S00249.compgfp +++|*
00344 M00S00250.compgfp +++|* USES T0, CM - CM+4.
00345 M00S00251.compgfp +++|
00346 M00S00252.compgfp +++|
00347 M00S00253.compgfp +++| IFP SUBR ENTRY/EXIT
00348 M00S00254.compgfp +++| IFP$ IF -DEF,IFP$
00349 M00S00255.compgfp +++| STD T0 SAVE (A) = ORDINAL
00350 M00S00256.compgfp +++| IFP$ ENDIF
00351 M00S00257.compgfp +++| CLT$ IF DEF,CLT$
00352 M00S00258.compgfp +++| LDK CLTP GET CLT POINTER
00353 M00S00259.compgfp +++| CRD CM
00354 M00S00260.compgfp +++| LDD CM SET CLT FWA OF *.CLT* SUBROUTINE
00355 M00S00261.compgfp +++| RAM CLTB
00356 M00S00262.compgfp +++| LDD CM+1
00357 M00S00263.compgfp +++| STM CLTB+1
00358 M00S00264.compgfp +++| IFP$ IF -DEF,IFP$
00359 M00S00265.compgfp +++| LDC ** REPLACE *IFP* CALL WITH *UJN CLT1*
00360 M00S00266.compgfp +++| ORG *-1
00361 M00S00267.compgfp +++| LOC CLTA
00362 M00S00268.compgfp +++| UJN CLT1 CALCULATE CLT ENTRY ADDRESS
00363 M00S00269.compgfp +++| LOC *O
00364 M00S00270.compgfp +++| STM CLTA
00365 M00S00271.compgfp +++| IFP$ ENDIF
00366 M00S00272.compgfp +++| CLT$ ENDIF
00367 M00S00273.compgfp +++| EJT$ IF DEF,EJT$
00368 M00S00274.compgfp +++| LDK EJTP GET EJT POINTER
00369 M00S00275.compgfp +++| CRD CM
00370 M00S00276.compgfp +++| LDD CM SET EJT FWA OF *.EJT* SUBROUTINE
00371 M00S00277.compgfp +++| RAM EJTB
00372 M00S00278.compgfp +++| LDD CM+1
00373 M00S00279.compgfp +++| STM EJTB+1
00374 M00S00280.compgfp +++| IFP$ IF -DEF,IFP$
00375 M00S00281.compgfp +++| LDC ** REPLACE *IFP* CALL WITH *UJN EJT1*
00376 M00S00282.compgfp +++| ORG *-1
00377 M00S00283.compgfp +++| LOC EJTA
00378 M00S00284.compgfp +++| UJN EJT1 CALCULATE EJT ENTRY ADDRESS
00379 M00S00285.compgfp +++| LOC *O
00380 M00S00286.compgfp +++| STM EJTA
00381 M00S00287.compgfp +++| IFP$ ENDIF
00382 M00S00288.compgfp +++| EJT$ ENDIF
00383 M00S00289.compgfp +++| EST$ IF DEF,EST$
00384 M00S00290.compgfp +++| LDK ESTP READ EST POINTER
00385 M00S00291.compgfp +++| CRD CM
00386 M00S00292.compgfp +++| LDD CM SET EST FWA IN *.EST* SUBROUTINE
00387 M00S00293.compgfp +++| RAM ESTB
00388 M00S00294.compgfp +++| LDD CM+1
00389 M00S00295.compgfp +++| STM ESTB+1
00390 M00S00296.compgfp +++| IFP$ IF -DEF,IFP$
00391 M00S00297.compgfp +++| LDC ** REPLACE *IFP* CALL WITH *UJN EST1*
00392 M00S00298.compgfp +++| ORG *-1
00393 M00S00299.compgfp +++| LOC ESTA
00394 M00S00300.compgfp +++| UJN EST1 CALCULATE EST ENTRY ADDRESS
00395 M00S00301.compgfp +++| LOC *O
00396 M00S00302.compgfp +++| STM ESTA
00397 M00S00303.compgfp +++| IFP$ ENDIF
00398 M00S00304.compgfp +++| EST$ ENDIF
00399 M00S00305.compgfp +++| FNT$ IF DEF,FNT$
00400 M00S00306.compgfp +++| LDK FNTP GET SYSTEM FNT POINTER
00401 M00S00307.compgfp +++| CRD CM
00402 M00S00308.compgfp +++| LDD CM SET SYSTEM FNT FWA IN *.FNT* SUBROUTINE
00403 M00S00309.compgfp +++| RAM FNTB
00404 M00S00310.compgfp +++| LDD CM+1
00405 M00S00311.compgfp +++| STM FNTB+1
00406 M00S00312.compgfp +++| IFP$ IF -DEF,IFP$
00407 M00S00313.compgfp +++| LDC ** REPLACE *IFP* CALL WITH *UJN FNT1*
00408 M00S00314.compgfp +++| ORG *-1
00409 M00S00315.compgfp +++| LOC FNTA
00410 M00S00316.compgfp +++| UJN FNT1 CALCULATE FNT ENTRY ADDRESS
00411 M00S00317.compgfp +++| LOC *O
00412 M00S00318.compgfp +++| STM FNTA
00413 M00S00319.compgfp +++| IFP$ ENDIF
00414 M00S00320.compgfp +++| FNT$ ENDIF
| Line S00058 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00321.compgfp +++| QFT$ IF DEF,QFT$
00432 M00S00322.compgfp +++| LDK QFTP GET QFT POINTER
00433 M00S00323.compgfp +++| CRD CM
00434 M00S00324.compgfp +++| LDD CM SET QFT FWA IN *.QFT* SUBROUTINE
00435 M00S00325.compgfp +++| RAM QFTB
00436 M00S00326.compgfp +++| LDD CM+1
00437 M00S00327.compgfp +++| STM QFTB+1
00438 M00S00328.compgfp +++| IFP$ IF -DEF,IFP$
00439 M00S00329.compgfp +++| LDC ** REPLACE *IFP* CALL WITH *UJN QFT1*
00440 M00S00330.compgfp +++| ORG *-1
00441 M00S00331.compgfp +++| LOC QFTA
00442 M00S00332.compgfp +++| UJN QFT1 CALCULATE QFT ENTRY ADDRESS
00443 M00S00333.compgfp +++| LOC *O
00444 M00S00334.compgfp +++| STM QFTA
00445 M00S00335.compgfp +++| IFP$ ENDIF
00446 M00S00336.compgfp +++| QFT$ ENDIF
| Line S00037 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00337.compgfp +++| IFP$ IF -DEF,IFP$
00464 M00S00338.compgfp +++| LDD T0 RESTORE (A) = ORDINAL
00465 M00S00339.compgfp +++| IFP$ ENDIF
00466 M00S00340.compgfp +++| UJP IFPX RETURN
00467 M00S00341.compgfp +++|
00468 M00S00342.compgfp +++| IFP$ IF DEF,IFP$
00469 M00S00343.compgfp +++| QUAL$ IF -DEF,QUAL$
00470 M00S00344.compgfp +++| QUAL *
00471 M00S00345.compgfp +++| IFP EQU /COMPGFP/IFP
00472 M00S00346.compgfp +++| QUAL$ ENDIF
00473 M00S00347.compgfp +++| IFP RMT
00474 M00S00348.compgfp +++| IFP$ ENDIF
00475 M00S00349.compgfp +++| SPACE 4,10
00476 M00S00350.compgfp +++| QUAL$ IF -DEF,QUAL$
00477 M00S00351.compgfp +++| QUAL *
00478 M00S00352.compgfp +++| BLI$ IF DEF,BLI$
00479 M00S00353.compgfp +++| .BLI EQU /COMPGFP/.BLI
00480 M00S00354.compgfp +++| BLI$ ENDIF
00481 M00S00355.compgfp +++| CLT$ IF DEF,CLT$
00482 M00S00356.compgfp +++| .CLT EQU /COMPGFP/.CLT
00483 M00S00357.compgfp +++| CLT$ ENDIF
00484 M00S00358.compgfp +++| EJT$ IF DEF,EJT$
00485 M00S00359.compgfp +++| .EJT EQU /COMPGFP/.EJT
00486 M00S00360.compgfp +++| EJT$ ENDIF
00487 M00S00361.compgfp +++| EST$ IF DEF,EST$
00488 M00S00362.compgfp +++| .EST EQU /COMPGFP/.EST
00489 M00S00363.compgfp +++| EST$ ENDIF
00490 M00S00364.compgfp +++| FNT$ IF DEF,FNT$
00491 M00S00365.compgfp +++| .FNT EQU /COMPGFP/.FNT
00492 M00S00366.compgfp +++| FNT$ ENDIF
| Line S00074 Modification History |
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
00493 M01S00074.271l750 +++| JCB$ IF DEF,JCB$
00494 M01S00075.271l750 +++| .JCB EQU /COMPGFP/.JCB
00495 M01S00076.271l750 +++| JCB$ ENDIF
00496 M00S00367.compgfp +++| QFT$ IF DEF,QFT$
00497 M00S00368.compgfp +++| .QFT EQU /COMPGFP/.QFT
00498 M00S00369.compgfp +++| QFT$ ENDIF
| Line S00053 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00499 M01S00053.274l797 +++| ORT$ IF DEF,ORT$
00500 M01S00054.274l797 +++| .ORT EQU /COMPGFP/.ORT
00501 M01S00055.274l797 +++| ORT$ ENDIF
00502 M00S00370.compgfp +++| QUAL$ ENDIF
00503 M00S00371.compgfp +++| ENDX