Common COMPGFP

Library Member Format: MODIFY

Source

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