Deck CLDT Part 001

7 Modifications

Listing Sections

Deck CLDT Start
Deck CLDT Part 1 (Line 1924)

Source

Seq #  *Modification Id* Act 
----------------------------+
01924  M00S01886.cldt    +++|          MX0    8
01925  M00S01887.cldt    +++|          LX4    59-17
01926  M00S01888.cldt    +++|          BX6    X0*X4
01927  M00S01889.cldt    +++|          ZR     X6,PRS3     IF FILE FOUND
01928  M00S01890.cldt    +++|
01929  M00S01891.cldt    +++|*         THE LID FILE WAS NOT FOUND AND IS NOT LOCAL TO THE JOB.
01930  M00S01892.cldt    +++|*         DETERMINE IF *CLDT* WAS INTENDED TO CREATE AN LDT.  NO LDT
01931  M00S01893.cldt    +++|*         WILL BE CREATED AND NORMAL EXIT PROCESSING (ENDRUN) WILL
01932  M00S01894.cldt    +++|*         OCCUR IF ALL OF THE FOLLOWING CRITERIA ARE MET.
01933  M00S01895.cldt    +++|*           1) JOB HAS *DEADSTART SEQUENCE* SUBSYSTEM ID,

Line S01896 Modification History
`M01` (Removed by)	`cldt3`

Seq #  *Modification Id* Act 
----------------------------+
01934  M01S01896.cldt3   ---|*           2) NO LIDCMID FILE IS FOUND UNDER UN=SYSTEMX, AND
01935  M01S01897.cldt3   ---|*           3) NO SPACE WAS RESERVED FOR THE LDT (I.E., *LDT=0* OR
01936  M01S01898.cldt3   ---|*              NO *LDT=* ENTRY DEFINED IN THE CMRDECK).

Line S00001 Modification History
`M01` (Added by)	`cldt3`

Seq #  *Modification Id* Act 
----------------------------+
01937  M01S00001.cldt3   +++|*           2) NO LIDCMID FILE IS FOUND UNDER UN=SYSTEMX.
01938  M00S01899.cldt    +++|
01939  M00S01900.cldt    +++|          SA1    DSSQ
01940  M00S01901.cldt    +++|          NZ     X1,PRS6     IF NOT DEADSTART SEQUENCE

Line S01902 Modification History
`M01` (Removed by)	`cldt3`

Seq #  *Modification Id* Act 
----------------------------+
01941  M01S01902.cldt3   ---|          SA2    LIDL
01942  M01S01903.cldt3   ---|          SB2    X2
01943  M01S01904.cldt3   ---|          GT     B2,B1,PRS6  IF SPACE RESERVED FOR LDT
01944  M00S01905.cldt    +++|          EQ     CLD1        * CLDT - NO LID TABLE CREATED.*
01945  M00S01906.cldt    +++|
01946  M00S01907.cldt    +++| PRS3     SA2    LIDL
01947  M00S01908.cldt    +++|          SB2    X2
01948  M00S01909.cldt    +++|          LE     B2,B1,PRS5  IF NO SPACE RESERVED FOR LDT
01949  M00S01910.cldt    +++|          REWIND I,R
01950  M00S01911.cldt    +++|          READ   I,R         INITIAL READ
01951  M00S01912.cldt    +++|          SA1    X2+1        GET *FIRST*
01952  M00S01913.cldt    +++|          SA3    RCRD
01953  M00S01914.cldt    +++|          SA1    X1          READ FIRST STATEMENT IN FILE
01954  M00S01915.cldt    +++|          MX0    42
01955  M00S01916.cldt    +++|          BX4    X1-X3
01956  M00S01917.cldt    +++|          BX6    X0*X4
01957  M00S01918.cldt    +++|          ZR     X6,PRSX     IF FIRST STATEMENT IS LIDCMID
01958  M00S01919.cldt    +++|          SA1    JORG
01959  M00S01920.cldt    +++|          NZ     X1,PRSX     IF NON-SYSTEM ORIGIN USER
01960  M00S01921.cldt    +++|          MESSAGE  PRSA      * FIRST STATEMENT NOT LIDCMXX.*
01961  M00S01922.cldt    +++|          EQ     CLD3        * CLDT ABORT.*
01962  M00S01923.cldt    +++|
01963  M00S01924.cldt    +++| PRS4     MESSAGE  PRSB      * CLDT - COMMAND ERROR.*
01964  M00S01925.cldt    +++|          EQ     CLD3        * CLDT ABORT.*
01965  M00S01926.cldt    +++|
01966  M00S01927.cldt    +++| PRS5     SA1    JORG
01967  M00S01928.cldt    +++|          NZ     X1,PRSX     IF NON-SYSTEM ORIGIN USER
01968  M00S01929.cldt    +++|          MESSAGE  CLDD      * NO LID TABLE CREATED.*
01969  M00S01930.cldt    +++|          MESSAGE  PRSC      * BUFFER TOO SMALL.*
01970  M00S01931.cldt    +++|          EQ     CLD3        * CLDT ABORT.*
01971  M00S01932.cldt    +++|
01972  M00S01933.cldt    +++| PRS6     MESSAGE  CLDD      * NO LID TABLE CREATED.*
01973  M00S01934.cldt    +++|          MESSAGE  PRSD      * FILE XXXXXXX NOT FOUND.*
01974  M00S01935.cldt    +++|          EQ     CLD3        * CLDT ABORT.*
01975  M00S01936.cldt    +++|
01976  M00S01937.cldt    +++|*         PRESET ERROR MESSAGES.
01977  M00S01938.cldt    +++|
01978  M00S01939.cldt    +++| PRSA     DATA   C* CLDT - FIRST STATEMENT NOT LIDCMXX.*
01979  M00S01940.cldt    +++| PRSB     DATA   C* CLDT - COMMAND ERROR.*
01980  M00S01941.cldt    +++| PRSC     DATA   C* CLDT - BUFFER TOO SMALL.*
01981  M00S01942.cldt    +++| PRSD     DATA   C* CLDT - FILE XXXXXXX NOT FOUND.*
01982  M00S01943.cldt    +++|          SPACE  4,10
01983  M00S01944.cldt    +++|*         PRESET STORAGE LOCATIONS.
01984  M00S01945.cldt    +++|
01985  M00S01946.cldt    +++| ERAD     BSS    8           ERROR MESSAGE RETURN ADDRESS
01986  M00S01947.cldt    +++| LDPT     VFD    12/0,12/1,18/LIDP,18/LDPT+1
01987  M00S01948.cldt    +++|          CON    -1
01988  M00S01949.cldt    +++| MACH     CON    0           MACHINE ID
01989  M00S01950.cldt    +++| RCRD     CON    0           FIRST RECORD ON FILE
01990  M00S01951.cldt    +++|          SPACE  4,10
01991  M00S01952.cldt    +++|*         ARGUMENT TABLE.
01992  M00S01953.cldt    +++|
01993  M00S01954.cldt    +++| TARG     BSS    0
01994  M00S01955.cldt    +++| I        ARG    I,I
01995  M00S01956.cldt    +++|          ARG
01996  M00S01957.cldt    +++| CFS      SPACE  4,30
01997  M00S01958.cldt    +++|**        CFS - CALCULATE FREE SPACE.
01998  M00S01959.cldt    +++|*
01999  M00S01960.cldt    +++|*         *CFS* WILL CALCULATE THE FREE SPACE FOR THE LID TABLE.  EACH
02000  M00S01961.cldt    +++|*         PID WILL HAVE AN EQUAL AMOUNT OF WORDS TO ALLOW NEW LID-S TO
02001  M00S01962.cldt    +++|*         BE ADDED.  THE SPACE FOR EACH PID IS CALCULATED BASED ON
02002  M00S01963.cldt    +++|*         THE FOLLOWING FORMULA.
02003  M00S01964.cldt    +++|*
02004  M00S01965.cldt    +++|*         FS = (LIDL-1 - NP*3 - SUM(I[NLID * 0.5]))/NP
02005  M00S01966.cldt    +++|*
02006  M00S01967.cldt    +++|*         WHERE
02007  M00S01968.cldt    +++|*         LIDL = TOTAL LENGTH OF LID TABLE IN CM WORD *LIDP*.
02008  M00S01969.cldt    +++|*         NP = TOTAL NUMBER OF PID-S.
02009  M00S01970.cldt    +++|*         NLID = TOTAL NUMBER OF LID-S OF PID.
02010  M00S01971.cldt    +++|*         I[ ] = INTEGER OF THE ARGUMENT.
02011  M00S01972.cldt    +++|*         SUM( ) = SUMMATION OF( ).
02012  M00S01973.cldt    +++|*
02013  M00S01974.cldt    +++|*         ENTRY = FILE LIDCM LOCAL.
02014  M00S01975.cldt    +++|*
02015  M00S01976.cldt    +++|*         EXIT  (FS) = FREE SPACE FOR EACH PID.
02016  M00S01977.cldt    +++|*                TO *CLD3* IF FATAL ERROR ENCOUNTERED.
02017  M00S01978.cldt    +++|*
02018  M00S01979.cldt    +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
02019  M00S01980.cldt    +++|*                A - 1, 2, 3, 6, 7.
02020  M00S01981.cldt    +++|*                B - 2, 5.
02021  M00S01982.cldt    +++|*
02022  M00S01983.cldt    +++|*         CALLS  CDD, PTL, SNM.
02023  M00S01984.cldt    +++|*
02024  M00S01985.cldt    +++|*         MACROS MESSAGE, READ, READC, REWIND.
02025  M00S01986.cldt    +++|*
02026  M00S01987.cldt    +++|*         NOTE   *CFS* WILL BE OVERLAID BY THE LDT.
02027  M00S01988.cldt    +++|
02028  M00S01989.cldt    +++|
02029  M00S01990.cldt    +++| CFS      SUBR               ENTRY/EXIT
02030  M00S01991.cldt    +++|          SA1    JORG
02031  M00S01992.cldt    +++|          ZR     X1,CFS0     IF SYSTEM ORIGIN JOB
02032  M00S01993.cldt    +++|          SX6    MXLDT+1     DEFAULT = MAXIMUM LDT SIZE FOR *VERIFY*
02033  M00S01994.cldt    +++|          SA6    LIDL
02034  M00S01995.cldt    +++| CFS0     REWIND I
02035  M00S01996.cldt    +++|          READ   X2          INITIATE READ
02036  M00S01997.cldt    +++|          READC  X2,WBUF,WBUFL  SKIP FIRST LINE
02037  M00S01998.cldt    +++| CFS1     RJ     PTL         PROCESS TEXT LINE
02038  M00S01999.cldt    +++|          SA2    CFSK
02039  M00S02000.cldt    +++|          NZ     X2,CFS8     IF AN UNRECOGNIZED DIRECTIVE ENCOUNTERED
02040  M00S02001.cldt    +++|          SA2    CFSL
02041  M00S02002.cldt    +++|          ZR     X2,CFS2     IF NOT INCORRECT CHARACTER
02042  M00S02003.cldt    +++|          BX6    X6-X6
02043  M00S02004.cldt    +++|          SA6    CFSL        CLEAR ERROR FLAG
02044  M00S02005.cldt    +++|          EQ     CFS1        READ NEXT STATEMENT
02045  M00S02006.cldt    +++|
02046  M00S02007.cldt    +++| CFS2     NZ     X1,CFS4     IF EOR/EOF
02047  M00S02008.cldt    +++|          SA1    UBUF
02048  M00S02009.cldt    +++|          SA2    CLTH+1      CHECK IF *NPID*
02049  M00S02010.cldt    +++|          MX0    42
02050  M00S02011.cldt    +++|          BX3    X1-X2
02051  M00S02012.cldt    +++|          BX3    X0*X3
02052  M00S02013.cldt    +++|          ZR     X3,CFS3     IF *NPID*
02053  M00S02014.cldt    +++|
02054  M00S02015.cldt    +++|*         INCREMENT NUMBER OF LID-S BY 1, AND PROCESS NEW LID.
02055  M00S02016.cldt    +++|
02056  M00S02017.cldt    +++|          SA1    CFSA
02057  M00S02018.cldt    +++|          SA2    A1+B1
02058  M00S02019.cldt    +++|          ERRNZ  CFSB-CFSA-1 CFSA AND CFSB MUST BE CONTIGUOUS
02059  M00S02020.cldt    +++|          SX6    X1+B1
02060  M00S02021.cldt    +++|          SX7    X2+B1
02061  M00S02022.cldt    +++|          SA6    A1
02062  M00S02023.cldt    +++|          SA7    A2+
02063  M00S02024.cldt    +++|          EQ     CFS1        READ NEXT STATEMENT
02064  M00S02025.cldt    +++|
02065  M00S02026.cldt    +++|*         PROCESS NEW PID.
02066  M00S02027.cldt    +++|
02067  M00S02028.cldt    +++| CFS3     SA1    CFSC        UPDATE NUMBER OF PID-S
02068  M00S02029.cldt    +++|          SA2    A1-B1       GET NUMBER OF LID OF PREVIOUS LID
02069  M00S02030.cldt    +++|          ERRNZ  CFSC-CFSB-1 CFSC AND CFSB MUST BE CONTIGUOUS
02070  M00S02031.cldt    +++|          SX6    X1+B1
02071  M00S02032.cldt    +++|          SA6    A1+
02072  M00S02033.cldt    +++|          SX3    X6-MXPID-1  CHECK MAXIMUM NUMBER OF PID-S
02073  M00S02034.cldt    +++|          PL     X3,CFS7     IF MAXIMUM NUMBER OF PID-S EXCEEDED
02074  M00S02035.cldt    +++|          SA3    CFSD
02075  M00S02036.cldt    +++|          IX7    X2+X3
02076  M00S02037.cldt    +++|          SA7    A3+         UPDATE NUMBER OF WORDS NEEDED FOR LID
02077  M00S02038.cldt    +++|          BX6    X6-X6
02078  M00S02039.cldt    +++|          SA6    CFSB        CLEAR LID COUNT
02079  M00S02040.cldt    +++|          EQ     CFS1        READ NEXT STATEMENT
02080  M00S02041.cldt    +++|
02081  M00S02042.cldt    +++|*         END OF FILE.
02082  M00S02043.cldt    +++|
02083  M00S02044.cldt    +++| CFS4     SA2    HOST
02084  M00S02045.cldt    +++|          NZ     X2,CFS5     IF HOST SPECIFIED
02085  M00S02046.cldt    +++|          SA2    CFSC
02086  M00S02047.cldt    +++|          SX2    X2+B1       ADD 1 FOR HOST PID
02087  M00S02048.cldt    +++|          BX6    X2
02088  M00S02049.cldt    +++|          SA6    CFSC
02089  M00S02050.cldt    +++|          SA2    CFSA
02090  M00S02051.cldt    +++|          SX2    X2+B1       ADD 1 FOR HOST LID
02091  M00S02052.cldt    +++|          BX6    X2
02092  M00S02053.cldt    +++|          SA6    CFSA
02093  M00S02054.cldt    +++| CFS5     BX6    X6-X6
02094  M00S02055.cldt    +++|          SA6    HOST        CLEAR HOST PID SPECIFIED
02095  M00S02056.cldt    +++|          SA2    CFSB        GET NUMBER OF LID-S OF LAST PID
02096  M00S02057.cldt    +++|          SA3    CFSD
02097  M00S02058.cldt    +++|          IX2    X2+X3
02098  M00S02059.cldt    +++|
02099  M00S02060.cldt    +++|*         CALCULATE FREE SPACE.
02100  M00S02061.cldt    +++|
02101  M00S02062.cldt    +++|          SA1    CFSC        NUMBER OF PID-S
02102  M00S02063.cldt    +++|          BX3    X1          MULTIPLIED BY 3
02103  M00S02064.cldt    +++|          LX3    1
02104  M00S02065.cldt    +++|          IX4    X3+X1       NUMBER OF WORDS FOR PID
02105  M00S02066.cldt    +++|          SA3    LIDL        GET TOTAL LENGTH

Line S00001 Modification History
`M01` (Added by)	`cldt2`

Seq #  *Modification Id* Act 
----------------------------+
02106  M01S00001.cldt2   +++|          SX3    X3-1        SET LENGTH FOR CALCULATING FREE SPACE
02107  M00S02067.cldt    +++|          IX6    X2+X4
02108  M00S02068.cldt    +++|          SA6    CFSE        MINIMUM WORDS FOR LDT
02109  M00S02069.cldt    +++|          IX7    X3-X6       TOTAL FREE SPACE
02110  M00S02070.cldt    +++|          NG     X7,CFS6     IF NOT ENOUGH SPACE
02111  M00S02071.cldt    +++|          BX3    X7          SAVE TOTAL FREE SPACE
02112  M00S02072.cldt    +++|          BX2    X1          SAVE NUMBER OF PID-S
02113  M00S02073.cldt    +++|          IX6    X7/X1       FREE SPACE PER PID
02114  M00S02074.cldt    +++|          IX7    X2*X6       CALCULATE REMAINDER
02115  M00S02075.cldt    +++|          IX7    X3-X7
02116  M00S02076.cldt    +++|          SA6    FS
02117  M00S02077.cldt    +++|          SA7    FSR         SAVE REMAINDER
02118  M00S02078.cldt    +++|          SX6    B1
02119  M00S02079.cldt    +++|          SA6    PTLF        *PTL* CALLED ONCE
02120  M00S02080.cldt    +++|          EQ     CFSX        RETURN
02121  M00S02081.cldt    +++|
02122  M00S02082.cldt    +++| CFS6     MESSAGE  CFSF      *UNABLE TO GENERATE LID TABLE *
02123  M00S02083.cldt    +++|          SA1    LIDL

Line S00002 Modification History
`M01` (Added by)	`cldt2`

Seq #  *Modification Id* Act 
----------------------------+
02124  M01S00002.cldt2   +++|          SX1    X1-1
02125  M00S02084.cldt    +++|          RJ     CDD         CONVERT TO DISPLAY
02126  M00S02085.cldt    +++|          MX0    1
02127  M00S02086.cldt    +++|          SB2    B2-B1
02128  M00S02087.cldt    +++|          AX0    X0,B2
02129  M00S02088.cldt    +++|          BX1    X0*X4
02130  M00S02089.cldt    +++|          SB2    1RX         REPLACE CHARACTER
02131  M00S02090.cldt    +++|          SB5    CFSG        FWA OF MESSAGE
02132  M00S02091.cldt    +++|          RJ     SNM         SET NUMBER INTO CHARACTER
02133  M00S02092.cldt    +++|          MESSAGE  CFSG      *NUMBER OF WORDS AVAILABLE FOR LID - XXX.*
02134  M00S02093.cldt    +++|          SA1    CFSE        NUMBER OF WORDS NEEDED
02135  M00S02094.cldt    +++|          RJ     CDD         CONVERT TO DISPLAY
02136  M00S02095.cldt    +++|          MX0    1           ZERO OUT BLANKS
02137  M00S02096.cldt    +++|          SB2    B2-B1
02138  M00S02097.cldt    +++|          AX0    X0,B2
02139  M00S02098.cldt    +++|          BX1    X0*X4
02140  M00S02099.cldt    +++|          SB2    1RX
02141  M00S02100.cldt    +++|          SB5    CFSH        FWA OF MESSAGE
02142  M00S02101.cldt    +++|          RJ     SNM
02143  M00S02102.cldt    +++|          MESSAGE  CFSH      * NUMBER OF WORDS NEEDED FOR LID - XXX.*
02144  M00S02103.cldt    +++|          EQ     CLD3        * CLDT ABORT.*
02145  M00S02104.cldt    +++|
02146  M00S02105.cldt    +++|*         MAXIMUM NUMBER OF PID-S EXCEEDED.
02147  M00S02106.cldt    +++|
02148  M00S02107.cldt    +++| CFS7     SX1    MXPID
02149  M00S02108.cldt    +++|          RJ     CDD         CONVERT MAXIMUM NUMBER OF PID-S TO DISPLAY
02150  M00S02109.cldt    +++|          MX0    1           ZERO OUT BLANKS
02151  M00S02110.cldt    +++|          SB2    B2-B1
02152  M00S02111.cldt    +++|          AX0    X0,B2
02153  M00S02112.cldt    +++|          BX1    X0*X4

Line S02113 Modification History
`M01` (Removed by)	`ns2250`

Seq #  *Modification Id* Act 
----------------------------+
02154  M01S02113.ns2250  ---|          SB2    1RX

Line S00019 Modification History
`M01` (Added by)	`ns2250`

Seq #  *Modification Id* Act 
----------------------------+
02155  M01S00019.ns2250  +++|          SB2    1R$
02156  M00S02114.cldt    +++|          SB5    CFSI        FWA OF MESSAGE
02157  M00S02115.cldt    +++|          RJ     SNM
02158  M00S02116.cldt    +++|          MESSAGE  CFSI      * EXCEEDED MAXIMUM NUMBER OF PID-S - XXX.*
02159  M00S02117.cldt    +++|          EQ     CLD3        * CLDT ABORT.*
02160  M00S02118.cldt    +++|
02161  M00S02119.cldt    +++|*         UNRECOGNIZED DIRECTIVE.
02162  M00S02120.cldt    +++|
02163  M00S02121.cldt    +++| CFS8     BX6    X6-X6
02164  M00S02122.cldt    +++|          SA6    CFSK        CLEAR *CFS* FATAL ERROR FLAG
02165  M00S02123.cldt    +++|          ZR     X1,CFS9     IF NOT EOR/EOF
02166  M00S02124.cldt    +++|          SX6    B1+
02167  M00S02125.cldt    +++|          SA6    CFSK        SET *CFS* FATAL ERROR FLAG TO SHOW EOR/EOF
02168  M00S02126.cldt    +++| CFS9     MESSAGE  CFSJ      * CLDT - UNRECOGNIZABLE DIRECTIVE.*
02169  M00S02127.cldt    +++|          MESSAGE  CPEG      *ERROR IN THE FOLLOWING STATEMENT.*
02170  M00S02128.cldt    +++|          MESSAGE  WBUF
02171  M00S02129.cldt    +++|          SA2    CFSK
02172  M00S02130.cldt    +++|          NZ     X2,CFS4     IF EOR/EOF
02173  M00S02131.cldt    +++|          BX6    X6-X6
02174  M00S02132.cldt    +++|          SA6    CFSK        CLEAR *CFS* FATAL ERROR FLAG
02175  M00S02133.cldt    +++|          EQ     CFS1        READ NEXT STATEMENT
02176  M00S02134.cldt    +++|
02177  M00S02135.cldt    +++|
02178  M00S02136.cldt    +++| CFSA     BSSZ   1           COUNTER FOR TOTAL NUMBER OF LID-S
02179  M00S02137.cldt    +++| CFSB     BSSZ   1           COUNTER FOR LID-S OF PID
02180  M00S02138.cldt    +++| CFSC     BSSZ   1           COUNTER FOR TOTAL NUMBER OF PID-S
02181  M00S02139.cldt    +++| CFSD     BSSZ   1           NUMBER OF WORDS FOR LID-S
02182  M00S02140.cldt    +++| CFSE     BSSZ   1           NUMBER OF WORDS NEEDED FOR LIDT
02183  M00S02141.cldt    +++| CFSF     DATA   C* CLDT - UNABLE TO GENERATE LID TABLE.*
02184  M00S02142.cldt    +++| CFSG     DATA   C*        NUMBER OF WORDS AVAILABLE FOR LID - XXX.*
02185  M00S02143.cldt    +++| CFSH     DATA   C*        NUMBER OF WORDS NEEDED FOR LID - XXX.*

Line S02144 Modification History
`M01` (Removed by)	`ns2250`

Seq #  *Modification Id* Act 
----------------------------+
02186  M01S02144.ns2250  ---| CFSI     DATA   C* CLDT - EXCEEDED MAXIMUM NUMBER OF PID-S - XXX.*

Line S00020 Modification History
`M01` (Added by)	`ns2250`

Seq #  *Modification Id* Act 
----------------------------+
02187  M01S00020.ns2250  +++| CFSI     DATA   C* CLDT - EXCEEDED MAXIMUM NUMBER OF PID-S - $$$.*
02188  M00S02145.cldt    +++| CFSJ     DATA   C* CLDT - UNRECOGNIZABLE DIRECTIVE.*
02189  M00S02146.cldt    +++| CFSK     CON    0           FATAL ERROR FLAG UNRECOGNIZED DIRECTIVE
02190  M00S02147.cldt    +++| CFSL     CON    0           FATAL ERROR FLAG INCORRECT CHARACTER
02191  M00S02148.cldt    +++|          SPACE  4
02192  M00S02149.cldt    +++|*         PRESET COMMON DECKS.
02193  M00S02150.cldt    +++|
02194  M00S02151.cldt    +++|*CALL     COMCARG
02195  M00S02152.cldt    +++|*CALL     COMCCDD
02196  M00S02153.cldt    +++|*CALL     COMCLFM
02197  M00S02154.cldt    +++|*CALL     COMCSNM
02198  M00S02155.cldt    +++|          SPACE  4,10
02199  M00S02156.cldt    +++|*         RESERVE SUFFICIENT SPACE TO HOLD THE MAXIMUM SIZE OF THE LDT.
02200  M00S02157.cldt    +++|
02201  M00S02158.cldt    +++|          ERRNZ  PRS-LIDT-1  WORDS MUST BE CONTIGUOUS
02202  M00S02159.cldt    +++| LENGTH   EQU    *-PRS       LENGTH OF OVERLAYABLE ROUTINES
02203  M00S02160.cldt    +++| MAXLTH   EQU    MXLDT-LENGTH  MAX LDT SIZE - OVERLAYABLE LENGTH
02204  M00S02161.cldt    +++|          BSSZ   MAXLTH      ADDITIONAL CM WORDS REQUIRED TO HOLD LDT
02205  M00S02162.cldt    +++| RFL=     EQU    *
02206  M00S02163.cldt    +++|          END    CLDT