User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:kronref

Deck KRONREF

6 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.kronref +++|          IDENT  KRONREF,FETS,KRONREF
00002  M01S00002.kronref +++|          ABS
00003  M01S00003.kronref +++|          ENTRY  KRONREF
00004  M01S00004.kronref +++|          ENTRY  MFL=
00005  M01S00005.kronref +++|          SYSCOM B1          DEFINE (B1) = 1
00006  M01S00006.kronref +++|*COMMENT  KRONREF - SYSTEM CROSS REFERENCE PROGRAM.
Line S00007 Modification History
M01 (Added by) kronref
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.kronref +++|          TITLE  KRONREF - KRONOS SYSTEM CROSS REFERENCE PROCESSOR.
00010  M01S00009.kronref +++|          SPACE  4
00011  M01S00010.kronref +++|*****     *KRONREF* - KRONOS SYSTEM CROSS REFERENCE PROCESSOR.
00012  M01S00011.kronref +++|*         G. R. MANSFIELD.   70/10/26.
00013  M01S00012.kronref +++|*         A. D. FORET.       75/04/18.
00014  M01S00013.kronref +++|          SPACE  4
00015  M01S00014.kronref +++|***              *KRONREF* GENERATES A CROSS REFERENCE OF SYSTEM
00016  M01S00015.kronref +++|*         SYMBOLS USED BY DECKS ON A MODIFY OPL.
00017  M01S00016.kronref +++|          SPACE  4
00018  M01S00017.kronref +++|***       CONTROL CARD CALL.
00019  M01S00018.kronref +++|*
00020  M01S00019.kronref +++|*
00021  M01S00020.kronref +++|*         KRONREF(P1,P2,P3)
00022  M01S00021.kronref +++|*                PN MAY BE OF THE FOLLOWING FORMS.
00023  M01S00022.kronref +++|*                            PN
00024  M01S00023.kronref +++|*                            PN=NAME
00025  M01S00024.kronref +++|*
00026  M01S00025.kronref +++|*         OPTIONS.
00027  M01S00026.kronref +++|*
00028  M01S00027.kronref +++|*                P           OPL INPUT FROM FILE *OPL*.
00029  M01S00028.kronref +++|*                P=FNAME     OPL INPUT FROM FILE *FNAME*.
00030  M01S00029.kronref +++|*
00031  M01S00030.kronref +++|*                L           LIST OUTPUT ON FILE *OUTPUT*.
00032  M01S00031.kronref +++|*                L=FNAME     LIST OUTPUT ON FILE *FNAME*.
00033  M01S00032.kronref +++|*
Line S00033 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00033.ns22000 ---|*                S           SYSTEMS TEXT FROM OVERLAY *SYSTEXT*.
00035  M01S00001.ns22000 +++|*                S           SYSTEMS TEXT FROM OVERLAY *NOSTEXT*.
00036  M01S00034.kronref +++|*                S=NAME      SYSTEMS TEXT FROM OVERLAY *NAME*.
00037  M01S00035.kronref +++|*
00038  M01S00036.kronref +++|*                G           SYSTEMS TEXT FROM FILE *TEXT*.
00039  M01S00037.kronref +++|*                G=FNAME     SYSTEMS TEXT FROM FILE *FNAME*.
00040  M01S00038.kronref +++|*                            OVERRIDES ANY *S* SELECTION.
00041  M01S00039.kronref +++|          SPACE  4
00042  M01S00040.kronref +++|***       DAYFILE MESSAGES.
00043  M01S00041.kronref +++|*
00044  M01S00042.kronref +++|*         * ERROR IN KRONREF ARGUMENTS. * - AN ILLEGAL CONTROL CARD
00045  M01S00043.kronref +++|*                                           WAS SELECTED.
00046  M01S00044.kronref +++|*
00047  M01S00045.kronref +++|*         * ERROR IN SYSTEM TEXT. * - DESIGNATED SYSTEM TEXT IS IN THE
00048  M01S00046.kronref +++|*                                     WRONG FORMAT.
00049  M01S00047.kronref +++|*
Line S00048 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00048.ns22000 ---|*         * KRONOS REFERENCE COMPLETE. * - NORMAL COMPLETION MESSAGE.
00051  M01S00002.ns22000 +++|*         * KRONREF COMPLETE.* - NORMAL COMPLETION MESSAGE.
00052  M01S00049.kronref +++|*
00053  M01S00050.kronref +++|*         * MEMORY OVERFLOW. * - NOT ENOUGH STORAGE AVAILABLE TO STORE
00054  M01S00051.kronref +++|*                                TABLES.
00055  M01S00052.kronref +++|*
Line S00053 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00053.ns22000 ---|*         * NO SYSTEM TEXT FOUND. * - NO SYSTEM TEXT IS AVAILABLE BY
Line S00054 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00054.ns22000 ---|*                                     THE NAME GIVEN.
Line S00055 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00058  M02S00055.ns22000 ---|*
Line S00056 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00056.ns22000 ---|*         * PL ERROR IN DECK. * - PL IS IMPROPERLY FORMATED.
Line S00057 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00057.ns22000 ---|*
Line S00058 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00058.ns22000 ---|*         * PROGRAM LIBRARY NOT AVAILABLE. * - P=0 WAS DESIGNATE WHICH
Line S00059 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00059.ns22000 ---|*                                              IS ILLEGAL.
Line S00060 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00060.ns22000 ---|          SPACE  4
00064  M01S00003.ns22000 +++|*         * NO REFERENCES LISTED.* - OPL FILE DID NOT REFERENCE ANY
00065  M01S00004.ns22000 +++|*                                    SYSTEM TEXT SYMBOLS.  CHECK FOR
00066  M01S00005.ns22000 +++|*                                    EMPTY OR INVALID OPL FILE OR BAD
00067  M01S00006.ns22000 +++|*                                    SYSTEM TEXT.
00068  M01S00007.ns22000 +++|*
00069  M01S00008.ns22000 +++|*         * PL ERROR IN DECK (NAME). * - BAD OPL/OPLC DECK.
00070  M01S00009.ns22000 +++|          SPACE  4,10
00071  M01S00061.kronref +++|***       OPERATOR MESSAGES.
00072  M01S00062.kronref +++|*
00073  M01S00063.kronref +++|*         * SCANNING DECKNAME * - WHERE DECKNAME IS CURRENTLY BEING
00074  M01S00064.kronref +++|*                                 PROCESSED.
00075  M01S00065.kronref +++|          SPACE  4
00076  M01S00066.kronref +++|****      ASSEMBLY CONSTANTS.
00077  M01S00067.kronref +++|
00078  M01S00068.kronref +++|
00079  M01S00069.kronref +++| BUFL     EQU    100B        SCRATCH BUFFER LENGTH
00080  M01S00070.kronref +++| PBUFL    EQU    4001B       OPL FILE BUFFER LENGTH
00081  M01S00071.kronref +++| MXCCL    EQU    37B         MAXIMUM LENGTH OF ONE COMPRESSED CARD
00082  M01S00072.kronref +++| MTBSL    EQU    26000B      NOMINAL TABLE LENGTH
00083  M01S00001.kronr1  +++| MINC     EQU    1000B       MEMORY INCREMENT FOR *TOV*
00084  M01S00010.ns22000 +++| LCFE     EQU    99999       LINE COUNT TO FORCE EJECT
00085  M01S00073.kronref +++|****
00086  M01S00074.kronref +++|          TITLE  MACRO DEFINITIONS.
00087  M01S00075.kronref +++| ADDWRD   SPACE  4
00088  M01S00011.ns22000 +++|**        COMMON DECKS.
00089  M01S00012.ns22000 +++|
00090  M01S00013.ns22000 +++|
00091  M01S00076.kronref +++|*CALL     COMCMAC
00092  M01S00077.kronref +++|*CALL     COMCCMD
00093  M01S00078.kronref +++|          SPACE  4
00094  M01S00079.kronref +++|**        ADDWRD - ADD WORD TO MANAGED TABLE.
00095  M01S00080.kronref +++|*
00096  M01S00081.kronref +++|*         ADDWRD TNAM,WORD
00097  M01S00082.kronref +++|*
00098  M01S00083.kronref +++|*         ENTRY  *TNAM* = TABLE NAME.
00099  M01S00084.kronref +++|*                *WORD* = -X- REGISTER CONTAINING WORD.
00100  M01S00085.kronref +++|*                *WORD* = BOOLEAN -X- REGISTER EXPRESSION.
00101  M01S00086.kronref +++|*
00102  M01S00087.kronref +++|*         USES   A0, X1.
00103  M01S00088.kronref +++|*
00104  M01S00089.kronref +++|*         CALLS  ADW.
00105  M01S00090.kronref +++|
00106  M01S00091.kronref +++|
00107  M01S00092.kronref +++|          PURGMAC  ADDWRD
00108  M01S00093.kronref +++| ADDWRD   MACRO  TNAM,WORD
00109  M01S00094.kronref +++|          IFC    NE,$X1$WORD$,1
00110  M01S00095.kronref +++|          BX1    WORD
00111  M01S00096.kronref +++|          R=     A0,TNAM
00112  M01S00097.kronref +++|          RJ     ADW
00113  M01S00098.kronref +++| ADDWRD   ENDM
00114  M01S00099.kronref +++| ALLOC    SPACE  4,10
00115  M01S00100.kronref +++|**        ALLOC - ALLOCATE TABLE SPACE.
00116  M01S00101.kronref +++|*
00117  M01S00102.kronref +++|*         ALLOC  TNAM,N
00118  M01S00103.kronref +++|*
00119  M01S00104.kronref +++|*         ENTRY  *TNAM* = TABLE NAME.
00120  M01S00105.kronref +++|*                *N* = NUMBER OF WORDS TO ADD.
00121  M01S00106.kronref +++|*
00122  M01S00107.kronref +++|*         USES   A0, X1.
00123  M01S00108.kronref +++|*
00124  M01S00109.kronref +++|*         CALLS  ATS.
00125  M01S00110.kronref +++|
00126  M01S00111.kronref +++|
00127  M01S00112.kronref +++|          PURGMAC  ALLOC
00128  M01S00113.kronref +++| ALLOC    MACRO  TNAM,N
00129  M01S00114.kronref +++|          R=     X1,N
00130  M01S00115.kronref +++|          R=     A0,TNAM
00131  M01S00116.kronref +++|          RJ     ATS
00132  M01S00117.kronref +++| ALLOC    ENDM
00133  M01S00118.kronref +++| OPC      SPACE  4,10
00134  M01S00119.kronref +++|**        OPC - OPCODE TABLE ENTRY.
00135  M01S00120.kronref +++|*
00136  M01S00121.kronref +++|*         OPC    OPCODE,ADDRESS
00137  M01S00122.kronref +++|*
00138  M01S00123.kronref +++|*         ENTRY  *OPCODE* = OPERATION CODE.
00139  M01S00124.kronref +++|*                *ADDRESS* = ADDRESS OF PROCESSOR.
00140  M01S00125.kronref +++|
00141  M01S00126.kronref +++|
00142  M01S00127.kronref +++|          PURGMAC  OPC
00143  M01S00128.kronref +++| OPC      MACRO  OPCODE,ADDR
00144  M01S00129.kronref +++|          VFD    60/0R;A
00145  M01S00130.kronref +++|          IFC    NE,*ADDR**
00146  M01S00131.kronref +++|          VFD    60/ADDR
00147  M01S00132.kronref +++|          ELSE   1
00148  M01S00133.kronref +++|          CON    OPCX
00149  M01S00134.kronref +++| OPC      ENDM
00150  M01S00135.kronref +++| TABLE    SPACE  4,10
00151  M01S00136.kronref +++|**        TABLE - GENERATE MANAGED TABLE POINTERS.
00152  M01S00137.kronref +++|*
00153  M01S00138.kronref +++|*         TABLE  TNAM
00154  M01S00139.kronref +++|*
00155  M01S00140.kronref +++|*         ENTRY  *TNAM* = TABLE NAME.
00156  M01S00141.kronref +++|*
00157  M01S00142.kronref +++|*         EXIT   *F.TNAM* = ADDRESS OF TABLE FWA POINTER.
00158  M01S00143.kronref +++|*                *L.TNAM* = ADDRESS OF TABLE LENGTH POINTER.
00159  M01S00144.kronref +++|
00160  M01S00145.kronref +++|
00161  M01S00146.kronref +++|          PURGMAC  TABLE
00162  M01S00147.kronref +++|          MACRO  TABLE,TNAM,N
00163  M01S00148.kronref +++| TNAM     EQU    *
00164  M01S00149.kronref +++|          VFD    60/MTBS
00165  M01S00150.kronref +++| F.TNAM   EQU    FTAB+TNAM
00166  M01S00151.kronref +++|          RMT
00167  M01S00152.kronref +++| L.TNAM   EQU    LTAB+TNAM
00168  M01S00153.kronref +++|          ORG    L.TNAM
00169  M01S00154.kronref +++|          DATA   0
00170  M01S00155.kronref +++|          ORG    NTAB+TNAM
00171  M01S00156.kronref +++|          VFD    60/N
00172  M01S00157.kronref +++|          RMT
00173  M01S00158.kronref +++| TABLE    ENDM
00174  M01S00159.kronref +++|          TITLE  FETS AND STORAGE ASSIGNMENTS.
00175  M01S00160.kronref +++| FETS     SPACE  4,10
00176  M01S00161.kronref +++|**        FETS.
00177  M01S00162.kronref +++|
00178  M01S00163.kronref +++|
00179  M01S00164.kronref +++|          ORG    103B
00180  M01S00165.kronref +++| FETS     BSS    0
00181  M01S00166.kronref +++|
00182  M01S00167.kronref +++| O        BSS    0
Line S00168 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00183  M02S00168.ns22000 ---| OUTPUT   FILEC  PBUF,PBUFL
00184  M01S00014.ns22000 +++| OUTPUT   FILEC  PBUF,PBUFL,(FET=6)
00185  M01S00169.kronref +++|
00186  M01S00170.kronref +++| P        BSS    0
00187  M01S00171.kronref +++| OPL      RFILEB PBUF,PBUFL,(FET=8),EPR
00188  M01S00172.kronref +++| FTAB     SPACE  4,10
00189  M01S00173.kronref +++|**        MANAGED TABLES ARE REFERENCED BY THE TABLE NUMBER *TNAM*.
00190  M01S00174.kronref +++|*         THE FWA OF A TABLE IS CONTAINED IN *F.TNAM*.
00191  M01S00175.kronref +++|*         THE LENGTH OF A TABLE IS CONTAINED IN *L.TNAM*.
00192  M01S00176.kronref +++|*         THESE SYMBOLS ARE GENERATED BY THE *TABLE* MACRO.
00193  M01S00177.kronref +++|
00194  M01S00178.kronref +++|
00195  M01S00179.kronref +++| FTAB     BSS    0
00196  M01S00180.kronref +++|          LOC    0
00197  M01S00181.kronref +++| TNME     SPACE  4,10
00198  M01S00182.kronref +++|**        TNME - TABLE OF REFERENCED NAMES.
00199  M01S00183.kronref +++|*         ENTRY = 1 WORD.
00200  M01S00184.kronref +++|*
00201  M01S00185.kronref +++|*T        12/,48/  *NAME*
Figure

029 *NAME*30474859 *NAME*

00202  M01S00186.kronref +++|*         NAME   NAME RIGHT JUSTIFIED
00203  M01S00187.kronref +++|
00204  M01S00188.kronref +++|
00205  M01S00189.kronref +++| TNME     TABLE  10          NAMES
00206  M01S00190.kronref +++| TREF     SPACE  4,10
00207  M01S00191.kronref +++|**        TREF - TABLE OF REFERENCES.
00208  M01S00192.kronref +++|*         ENTRY = 1 WORD.
00209  M01S00193.kronref +++|*
00210  M01S00194.kronref +++|*T        42/  *DECK*,18/  IN
Figure

0171829 IN *DECK*3059 *DECK*

00211  M01S00195.kronref +++|*         DECK   DECK NAME
00212  M01S00196.kronref +++|*         IN     INDEX IN *TNME*
00213  M01S00197.kronref +++|
00214  M01S00198.kronref +++|
00215  M01S00199.kronref +++| TREF     TABLE  200
00216  M01S00200.kronref +++|
00217  M01S00201.kronref +++|*         REMAINDER OF MANAGED TABLE VALUES.
00218  M01S00202.kronref +++|
00219  M01S00203.kronref +++| FTABL    BSS    0
00220  M01S00204.kronref +++|          LOC    *O
00221  M01S00205.kronref +++|
00222  M01S00206.kronref +++|          VFD    60/MTBS     LWA+1 ALL TABLES
00223  M01S00207.kronref +++| LTAB     BSS    0
00224  M01S00208.kronref +++| NTAB     EQU    LTAB+FTABL
00225  M01S00209.kronref +++|          HERE
00226  M01S00210.kronref +++|          TITLE  STORAGE ASSIGNMENTS.
00227  M01S00211.kronref +++| DATA     SPACE  4,10
00228  M01S00212.kronref +++|*         COMMON DATA.
00229  M01S00213.kronref +++|
00230  M01S00214.kronref +++|
00231  M01S00215.kronref +++| T1       DATA   0           TEMPORARY STORAGE
00232  M01S00216.kronref +++| T2       DATA   0
00233  M01S00217.kronref +++| FL       DATA   0           FIELD LENGTH
00234  M01S00218.kronref +++| SL       DATA   0           SYSTEM SYMBOL LENGTH
00235  M01S00219.kronref +++| RF       DATA   0           REFERENCE FLAG
00236  M01S00220.kronref +++| PP       DATA   0           PP CODE
00237  M01S00221.kronref +++| DN       DATA   0           DECK NAME
00238  M01S00222.kronref +++| CH       DATA   0           NEXT CHARACTER
00239  M01S00223.kronref +++| CP       DATA   0           CHARACTER POINTER
00240  M01S00224.kronref +++| LIST     SPACE  4,10
00241  M01S00225.kronref +++|*         LIST CONTROLS.
00242  M01S00226.kronref +++|
00243  M01S00227.kronref +++|
Line S00228 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00244  M02S00228.ns22000 ---| LC       CON    LINP        LINE COUNT
00245  M01S00015.ns22000 +++| LC       CON    LCFE        LINE COUNT
00246  M01S00016.ns22000 +++| LL       CON    0           LINE LIMIT
00247  M01S00017.ns22000 +++| PD       CON    0           PRINT DENSITY
00248  M01S00229.kronref +++| PN       CON    1           PAGE NUMBER
00249  M01S00230.kronref +++| ST       CON    0,LSRA      ADDRESS OF SUBTITLE LINES
00250  M01S00231.kronref +++| TX       CON    0           SYSTEXT PRESENT FLAG
00251  M01S00232.kronref +++|          SPACE  4
00252  M01S00233.kronref +++|*         PROGRAM LIBRARY STATISTICS.
00253  M01S00234.kronref +++|
00254  M01S00235.kronref +++|
00255  M01S00236.kronref +++| BLANK    CON    0           BLANK STATEMENTS
00256  M01S00237.kronref +++| CALL     CON    0           *CALL STATEMENTS
00257  M01S00238.kronref +++| CODE     CON    0           LINES OF CODE NOT OTHERWISE COUNTED
00258  M01S00239.kronref +++| COMNT    CON    0           * TYPE COMMENT STATEMENTS
00259  M01S00240.kronref +++| INACT    CON    0           INACTIVE STATEMENTS
00260  M01S00241.kronref +++| BLOCK    SPACE  4
00261  M01S00242.kronref +++|*         BLOCK STORAGE.
00262  M01S00243.kronref +++|
00263  M01S00244.kronref +++|
00264  M01S00245.kronref +++|          USE    BUFFERS
00265  M01S00246.kronref +++|
00266  M01S00247.kronref +++|*         TITLE LINE.
00267  M01S00248.kronref +++|
00268  M01S00249.kronref +++| TITL     DATA   30H1  CROSS REFERENCE OF OPL.
00269  M01S00250.kronref +++|          DATA   10H OPL FILE=
00270  M01S00251.kronref +++| PLNM     DATA   10H
00271  M01S00252.kronref +++|          DATA   10HSYS. TEXT=
00272  M01S00253.kronref +++| TXNM     DATA   10H *NONE*
00273  M01S00254.kronref +++|          DATA   10H
00274  M01S00255.kronref +++|          DATA   10H
00275  M01S00256.kronref +++| DATE     DATA   1H
00276  M01S00257.kronref +++| TIME     DATA   1H
00277  M01S00258.kronref +++|          DATA   4APAGE
00278  M01S00259.kronref +++| PAGE     DATA   1H
00279  M01S00260.kronref +++| TITLL    EQU    *-TITL
00280  M01S00261.kronref +++|
00281  M01S00262.kronref +++| CDTX     BSS    MXCCL       CARD TEXT
00282  M01S00263.kronref +++|          USE    *
00283  M01S00264.kronref +++|          TITLE  MAIN PROGRAM.
00284  M01S00265.kronref +++| KRONREF  SPACE  4,10
00285  M01S00266.kronref +++|**        KRONREF - MAIN PROGRAM.
00286  M01S00267.kronref +++|*
00287  M01S00268.kronref +++|*         USES   X - 1, 6.
00288  M01S00269.kronref +++|*                A - 1, 6.
00289  M01S00270.kronref +++|*                B - 1.
00290  M01S00271.kronref +++|*
00291  M01S00272.kronref +++|*         CALLS  LCL, LNK, LOC, LSR, LSS, OPC, PRS, RMT, SCA.
00292  M01S00273.kronref +++|*
00293  M01S00274.kronref +++|*         MACROS ENDRUN, MESSAGE, RECALL, WRITEC, WRITER.
00294  M01S00275.kronref +++|
00295  M01S00276.kronref +++|
00296  M01S00277.kronref +++| KRONREF  SB1    1           (B1) = 1
00297  M01S00278.kronref +++|          RJ     PRS         PRESET PROGRAM
00298  M01S00279.kronref +++|          RJ     LSS         LOAD SYSTEMS SYMBOLS
00299  M01S00280.kronref +++|
00300  M01S00281.kronref +++|*         BEGIN NEW DECK.
00301  M01S00282.kronref +++|
00302  M01S00283.kronref +++| REF1     RJ     RMT         READ MODIFIER TABLE
00303  M01S00284.kronref +++|          NZ     X1,REF4     IF EOR
00304  M01S00285.kronref +++|
00305  M01S00286.kronref +++|*         SCAN DECK CARDS.
00306  M01S00287.kronref +++|
00307  M01S00288.kronref +++| REF2     RJ     RPF         READ CARD
00308  M01S00289.kronref +++|          NZ     X1,REF1     IF EOR
00309  M01S00290.kronref +++|          SA1    CDTX        CHECK FIRST CHARACTER
00310  M01S00291.kronref +++|          NZ     X1,REF3     IF NOT BLANK STATEMENT
00311  M01S00292.kronref +++|          SA1    BLANK       COUNT BLANK STATEMENT
00312  M01S00293.kronref +++|          SX6    B1
00313  M01S00294.kronref +++|          IX6    X6+X1
00314  M01S00295.kronref +++|          SA6    A1
00315  M01S00296.kronref +++|          EQ     REF2        LOOP FOR NEXT STATEMENT
00316  M01S00297.kronref +++|
00317  M01S00298.kronref +++| REF3     RJ     LOC         PROCESS LOCATION FIELD
00318  M01S00299.kronref +++|          ZR     X6,REF2     IF NO PROCESSING
00319  M01S00300.kronref +++|          SA1    TX
00320  M01S00301.kronref +++|          ZR     X1,REF2     IF NO SYSTEXT
00321  M01S00302.kronref +++|          RJ     OPC         PROCESS OPCODE
00322  M01S00303.kronref +++|          NZ     X1,REF2     IF NOT INTERESTING
00323  M01S00304.kronref +++|          SA2    RF
00324  M01S00305.kronref +++|          ZR     X2,REF2     IF REFERENCE FLAG OFF
00325  M01S00306.kronref +++|          RJ     SCA         SCAN ADDRESS
00326  M01S00307.kronref +++|          EQ     REF2        CONTINUE SCAN
00327  M01S00308.kronref +++|
00328  M01S00309.kronref +++|*         LIST REFERENCE TABLE.
00329  M01S00310.kronref +++|
00330  M01S00311.kronref +++| REF4     SA1    L.TREF
00331  M01S00312.kronref +++|          ZR     X1,REF6     IF NO REFERENCES
00332  M01S00313.kronref +++|          RJ     LNK         LINK TABLES
00333  M01S00314.kronref +++|          RECALL P
00334  M01S00315.kronref +++|          SA1    TX
00335  M01S00316.kronref +++|          ZR     X1,REF4.1   IF NO SYSTEXT
00336  M01S00317.kronref +++|          RJ     LSR         LIST SYMBOL REFERENCES
00337  M01S00318.kronref +++| REF4.1   RJ     LCL         LIST SPECIAL CALLS
00338  M01S00319.kronref +++|          RJ     PLS         ISSUE PROGRAM LIBRARY STATISTICS MESSAGES
00339  M01S00320.kronref +++|          SA1    PN
00340  M01S00321.kronref +++|          LX1    59
00341  M01S00322.kronref +++|          NG     X1,REF5     IF PAGE COUNT EVEN
00342  M01S00323.kronref +++|          WRITEC O,(=2L1 )
00343  M01S00324.kronref +++| REF5     WRITER O,R
Line S00325 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00325.ns22000 ---| REF6     MESSAGE (=C* KRONOS REFERENCE COMPLETE.*)
00345  M01S00018.ns22000 +++|          MESSAGE  (=C* KRONREF COMPLETE.*)
00346  M01S00326.kronref +++|          ENDRUN
00347  M01S00019.ns22000 +++|
00348  M01S00020.ns22000 +++| REF6     MESSAGE  (=C* NO REFERENCES LISTED.*)
00349  M01S00021.ns22000 +++|          ENDRUN
00350  M01S00327.kronref +++|          TITLE  DECK SCANNING.
00351  M01S00328.kronref +++| LOC      SPACE  4,10
00352  M01S00329.kronref +++|**        LOC - PROCESS LOCATION FIELD.
00353  M01S00330.kronref +++|*
00354  M01S00331.kronref +++|*         EXIT   (X6) = NEXT CHARACTER OR 0 IF NO NEXT CHARACTER.
00355  M01S00332.kronref +++|*
00356  M01S00333.kronref +++|*         USES   X - 1, 2, 5, 6, 7.
00357  M01S00334.kronref +++|*                A - 1, 2, 6.
00358  M01S00335.kronref +++|*
00359  M01S00336.kronref +++|*         CALLS  ASN, ESR, SNC.
00360  M01S00337.kronref +++|
00361  M01S00338.kronref +++|
00362  M01S00339.kronref +++| LOC4     SA1    COMNT       COUNT * TYPE COMMENT STATEMENTS
00363  M01S00340.kronref +++|          SX6    B1
00364  M01S00341.kronref +++|          IX6    X6+X1
00365  M01S00342.kronref +++|          SA6    A1+
00366  M01S00343.kronref +++|          SX6    B0+         CLEAR NEXT CHARACTER
00367  M01S00344.kronref +++|*         EQ     LOCX        RETURN
00368  M01S00345.kronref +++|
00369  M01S00346.kronref +++| LOC      SUBR               ENTRY/EXIT
00370  M01S00347.kronref +++|          SX1    B0          SET CHARACTER POINTER
00371  M01S00348.kronref +++|          PX6    X1,B0
00372  M01S00349.kronref +++|          SA6    CP
00373  M01S00350.kronref +++|          RJ     SNC         SET NEXT CHARACTER
00374  M01S00351.kronref +++|          SA2    CDTX
00375  M01S00352.kronref +++|          AX2    54
00376  M01S00353.kronref +++|          ZR     X2,LOC1     IF NO LOCATION FIELD
00377  M01S00354.kronref +++|          SX7    X6-1R*
00378  M01S00355.kronref +++|          ZR     X7,LOC2     IF FIRST CHARACTER = (*)
00379  M01S00356.kronref +++|          RJ     SNC         SET NEXT CHARACTER
00380  M01S00357.kronref +++|          RJ     ASN         ASSEMBLE NAME
00381  M01S00358.kronref +++| LOC1     RJ     SNC         SET NEXT CHARACTER
00382  M01S00359.kronref +++|          SA1    CODE        COUNT LINE OF CODE
00383  M01S00360.kronref +++|          SX6    B1
00384  M01S00361.kronref +++|          IX6    X6+X1
00385  M01S00362.kronref +++|          SA6    A1
00386  M01S00363.kronref +++|          EQ     LOCX        RETURN
00387  M01S00364.kronref +++|
00388  M01S00365.kronref +++| LOC2     RJ     SNC         SET NEXT CHARACTER
00389  M01S00366.kronref +++|          RJ     ASN         ASSEMBLE NAME
00390  M01S00367.kronref +++|          SA1    =4RCALL
00391  M01S00368.kronref +++|          BX2    X1-X6
Line S00369 Modification History
M01 (Added by) kronref
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00392  M02S00369.242l642 ---|          SX6    B0
Line S00370 Modification History
M01 (Added by) kronref
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00393  M02S00370.242l642 ---|          NZ     X2,LOC4     IF NOT *CALL
Line S00371 Modification History
M01 (Added by) kronref
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
00394  M02S00371.242l642 ---|          SA1    CALL        COUNT *CALL STATEMENT
00395  M01S00001.242l642 +++|          ZR     X2,LOC2.1   IF CALL FOUND
00396  M01S00002.242l642 +++|          SA1    =5RCALLC
00397  M01S00003.242l642 +++|          BX2    X1-X6       CHECK CALLC
Line S00004 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2403
Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00004.ns2403  ---|          NZ     X2,LOC4     IF NOT *CALLC
Line S00005 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2403
Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00005.ns2403  ---| LOC2.1   SA1    CALL        COUNT AS *CALL
00400  M01S00001.ns2403  +++|          ZR     X2,LOC2.1   IF *CALLC
00401  M01S00002.ns2403  +++|          SA1    =6RIFCALL
00402  M01S00003.ns2403  +++|          BX2    X1-X6       CHECK IFCALL
00403  M01S00004.ns2403  +++|          ZR     X2,LOC2.0   IF *IFCALL
00404  M01S00005.ns2403  +++|          SA1    =7RNIFCALL
00405  M01S00006.ns2403  +++|          BX2    X1-X6       CHECK IFCALL
00406  M01S00007.ns2403  +++|          NZ     X2,LOC4     IF NOT *IFCALL
00407  M01S00008.ns2403  +++| LOC2.0   RJ     SNC         SET NEXT CHARACTER
00408  M01S00009.ns2403  +++|          RJ     ASN         ASSEMBLE NAME
00409  M01S00010.ns2403  +++| LOC2.1   SA1    CALL        COUNT *CALL, *CALLC, *IF/NIFCALL
00410  M01S00372.kronref +++|          SX6    B1
00411  M01S00373.kronref +++|          IX6    X6+X1
00412  M01S00374.kronref +++|          SA6    A1
00413  M01S00375.kronref +++|          RJ     SNC         SET NEXT CHARACTER
00414  M01S00376.kronref +++|          SX2    X6-1R
00415  M01S00377.kronref +++|          NG     X2,LOC3     IF NEXT " SEPARATOR
00416  M01S00378.kronref +++|          RJ     SNC         SET NEXT CHARACTER
00417  M01S00379.kronref +++| LOC3     RJ     ASN         ASSEMBLE NAME
00418  M01S00380.kronref +++|          SX5    B0          ENTER COMMON DECK REFERENCE
00419  M01S00381.kronref +++|          RJ     ESR         ENTER SPECIAL REFERENCE
00420  M01S00382.kronref +++|          SX6    B0
00421  M01S00383.kronref +++|          EQ     LOCX        RETURN
00422  M01S00384.kronref +++| OPC      SPACE  4,10
00423  M01S00385.kronref +++|**        OPC - CHECK OP CODE.
00424  M01S00386.kronref +++|*
00425  M01S00387.kronref +++|*         ENTRY  (CP) = CHARACTER POINTER,
00426  M01S00388.kronref +++|*                (X0) = SEPARATOR MASK.
00427  M01S00389.kronref +++|*
00428  M01S00390.kronref +++|*         EXIT   (X1) = 0 IF ADDRESS FIELD TO BE PROCESSED.
00429  M01S00391.kronref +++|*
00430  M01S00392.kronref +++|*         USES   X - 1, 2, 6.
00431  M01S00393.kronref +++|*                A - 1, 2, 6.
00432  M01S00394.kronref +++|*                B - 2.
00433  M01S00395.kronref +++|*
00434  M01S00396.kronref +++|*         CALLS  ASN.
00435  M01S00397.kronref +++|
00436  M01S00398.kronref +++|
00437  M01S00399.kronref +++| OPC4     SA6    RF
00438  M01S00400.kronref +++|          SX1    B1
00439  M01S00401.kronref +++|
00440  M01S00402.kronref +++| OPC      SUBR               ENTRY/EXIT
00441  M01S00403.kronref +++|          RJ     ASN         ASSEMBLE NAME
00442  M01S00404.kronref +++|          SA1    TOPC        CHECK OPCODE TABLE
00443  M01S00405.kronref +++|          SB2    B1+B1
00444  M01S00406.kronref +++| OPC1     ZR     X1,OPCX     IF END OF TABLE - RETURN
00445  M01S00407.kronref +++|          BX2    X6-X1
00446  M01S00408.kronref +++|          SA1    A1+B2
00447  M01S00409.kronref +++|          NZ     X2,OPC1     LOOP IF NO MATCH FOUND
00448  M01S00410.kronref +++|          SA2    A1-B1       EXIT TO PROCESSOR
00449  M01S00411.kronref +++|          SB2    X2
00450  M01S00412.kronref +++|          JP     B2          GO TO PROCESSOR
00451  M01S00413.kronref +++|
00452  M01S00414.kronref +++| OPC2     SX6    1
00453  M01S00415.kronref +++|          EQ     OPC4        SET REFERENCE FLAG
00454  M01S00416.kronref +++|
00455  M01S00417.kronref +++| OPC3     SX6    0           CLEAR REFERENCE FLAG
00456  M01S00418.kronref +++|          SA6    PP          CLEAR PP CODE
00457  M01S00419.kronref +++|          EQ     OPC4        SET REFERENCE FLAG
00458  M01S00420.kronref +++| TOPC     SPACE  4,10
00459  M01S00421.kronref +++|**        TOPC - TABLE OF OPCODES.
00460  M01S00422.kronref +++|*
00461  M01S00423.kronref +++|*         ALL THOSE WITHOUT A SECOND ARGUMENT WILL NOT HAVE THE
00462  M01S00424.kronref +++|*         ADDRESS FIELD EVALUATED.
00463  M01S00425.kronref +++|
00464  M01S00426.kronref +++|
00465  M01S00427.kronref +++| TOPC     BSS    0
00466  M01S00428.kronref +++|          OPC    IDENT
00467  M01S00429.kronref +++|          OPC    SST,OPC2
00468  M01S00430.kronref +++|          OPC    END,OPC3
00469  M01S00431.kronref +++|          OPC    TITLE
00470  M01S00432.kronref +++|          OPC    EJECT
00471  M01S00433.kronref +++|          OPC    SPACE
00472  M01S00434.kronref +++|          OPC    PERIPH,PERIPH
00473  M01S00435.kronref +++|          OPC    EXECUTE,EXECUTE
00474  M01S00436.kronref +++|          OPC    SYSTEM,SYSTEM
00475  M01S00437.kronref +++|          OPC    ABS
00476  M01S00438.kronref +++|          OPC    STEXT
00477  M01S00439.kronref +++|          OPC    BASE
00478  M01S00440.kronref +++|          OPC    LIST
00479  M01S00441.kronref +++|          OPC    ENDM
00480  M01S00442.kronref +++|          OPC    ENDIF
00481  M01S00443.kronref +++|          OPC    ENDD
00482  M01S00444.kronref +++|          OPC    ENTRY,ENTRY
00483  M01S00445.kronref +++|          OPC    DIS
00484  M01S00446.kronref +++|          OPC    MICRO
00485  M01S00447.kronref +++|          OPC    IFC
00486  M01S00448.kronref +++|          OPC    XTEXT
00487  M01S00449.kronref +++|          OPC    NOLABEL
00488  M01S00450.kronref +++|          OPC    LIT
00489  M01S00451.kronref +++|          OPC    ERR
00490  M01S00452.kronref +++|          OPC    DATA
00491  M01S00453.kronref +++|          OPC    STEXT
00492  M01S00454.kronref +++|          OPC    COMMENT
00493  M01S00455.kronref +++|          OPC    MACRO
00494  M01S00456.kronref +++|          OPC    OPDEF
00495  M01S00457.kronref +++|          OPC    USE
00496  M01S00458.kronref +++|          DATA   0
00497  M01S00459.kronref +++|          TITLE  DECK SCANNING.
00498  M01S00460.kronref +++| ENTRY    SPACE  4,10
00499  M01S00461.kronref +++|**        ENTRY - PROCESS ENTRY FOR SPECIAL ENTRY POINTS.
00500  M01S00462.kronref +++|*
00501  M01S00463.kronref +++|*         ENTRY  (CP) = CHARACTER POINTER.
00502  M01S00464.kronref +++|*
00503  M01S00465.kronref +++|*         EXIT   (X1) = 0, IF ADDRESS FIELD TO BE PROCESSED.
00504  M01S00466.kronref +++|*
00505  M01S00467.kronref +++|*         USES   X - 1, 5.
00506  M01S00468.kronref +++|*                A - 1.
00507  M01S00469.kronref +++|*
00508  M01S00470.kronref +++|*         CALLS  ASN, ESR, SNC.
00509  M01S00471.kronref +++|
00510  M01S00472.kronref +++|
00511  M01S00473.kronref +++| ENTRY    BSS    0           ENTRY
00512  M01S00474.kronref +++|          SA1    PP
00513  M01S00475.kronref +++|          NZ     X1,OPCX     IF PP CODE
00514  M01S00476.kronref +++|          RJ     SNC         SET NEXT CHARACTER
00515  M01S00477.kronref +++|          RJ     ASN         ASSEMBLE NAME
00516  M01S00478.kronref +++|          SA1    ETRA-1      CHECK FOR SPECIAL ENTRY POINTS
00517  M01S00479.kronref +++| ETR1     SA1    A1+B1
00518  M01S00480.kronref +++|          ZR     X1,OPCX     IF END OF TABLE - SET NOT INTERESTING
00519  M01S00481.kronref +++|          BX1    X6-X1
00520  M01S00482.kronref +++|          NZ     X1,ETR1     IF NO MATCH
00521  M01S00483.kronref +++|          SX5    B1+B1
00522  M01S00484.kronref +++|          RJ     ESR         ENTER SPECIAL REFERENCE
00523  M01S00485.kronref +++|          SX1    B1
00524  M01S00486.kronref +++|          EQ     OPCX        RETURN
00525  M01S00487.kronref +++|
00526  M01S00488.kronref +++|*         TABLE OF SPECIAL ENTRY POINTS.
00527  M01S00489.kronref +++|
00528  M01S00490.kronref +++| ETRA     BSS    0
Line S00491 Modification History
M01 (Added by) kronref
M02 (Updated by) kronr2
Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00491.kronr2  ---|          CON    4RARG=
Line S00492 Modification History
M01 (Added by) kronref
M02 (Updated by) kronr2
Seq #  *Modification Id* Act 
----------------------------+
00530  M02S00492.kronr2  ---|          CON    4RDMP=
Line S00493 Modification History
M01 (Added by) kronref
M02 (Updated by) kronr2
Seq #  *Modification Id* Act 
----------------------------+
00531  M02S00493.kronr2  ---|          CON    4RMFL=
Line S00494 Modification History
M01 (Added by) kronref
M02 (Updated by) kronr2
Seq #  *Modification Id* Act 
----------------------------+
00532  M02S00494.kronr2  ---|          CON    4RRFL=
Line S00495 Modification History
M01 (Added by) kronref
M02 (Updated by) kronr2
Seq #  *Modification Id* Act 
----------------------------+
00533  M02S00495.kronr2  ---|          CON    4RSDM=
Line S00496 Modification History
M01 (Added by) kronref
M02 (Updated by) kronr2
Seq #  *Modification Id* Act 
----------------------------+
00534  M02S00496.kronr2  ---|          CON    4RSSJ=
Line S00497 Modification History
M01 (Added by) kronref
M02 (Updated by) kronr2
Seq #  *Modification Id* Act 
----------------------------+
00535  M02S00497.kronr2  ---|          CON    4RSSM=
Line S00498 Modification History
M01 (Added by) kronref
M02 (Updated by) kronr2
Seq #  *Modification Id* Act 
----------------------------+
00536  M02S00498.kronr2  ---|          CON    4RVAL=
00537  M01S00001.kronr2  +++|          CON    4RARG=      SUPPRESS ARGUMENT CRACKING
00538  M01S00002.kronr2  +++|          CON    4RCLB=      COMMAND LINE BUFFER FET
00539  M01S00003.kronr2  +++|          CON    4RDMP=      DUMP CONTROL
00540  M01S00004.kronr2  +++|          CON    4RDPA=      *DMP=* PROGRAM WITH ARGUMENTS
00541  M01S00005.kronr2  +++|          CON    4RLDR=      ALLOW EXECUTE-ONLY READ (LOADER)
00542  M01S00006.kronr2  +++|          CON    4RLIB=      ALLOW EXECUTE-ONLY READ (OTHER)
00543  M01S00007.kronr2  +++|          CON    4RMFL=      SET MINIMUM FIELD LENGTH
00544  M01S00008.kronr2  +++|          CON    4RNPC=      NOS PARAMETER CRACKING FORMAT FLAG
00545  M01S00009.kronr2  +++|          CON    4RRFL=      SET FIELD LENGTH
00546  M01S00010.kronr2  +++|          CON    4RSDM=      SUPPRESS DAYFILE MESSAGE
00547  M01S00011.kronr2  +++|          CON    4RSSJ=      SPECIAL SYSTEM JOB
00548  M01S00012.kronr2  +++|          CON    4RSSM=      SECURE SYSTEM MEMORY
00549  M01S00013.kronr2  +++|          CON    4RUTL=      PF UTILITY
00550  M01S00014.kronr2  +++|          CON    4RVAL=      VALIDATION JOB
00551  M01S00499.kronref +++|          CON    0
00552  M01S00500.kronref +++| EXECUTE  SPACE  4,10
00553  M01S00501.kronref +++|**        EXECUTE - PROCESS EXECUTE MACRO.
00554  M01S00502.kronref +++|*
00555  M01S00503.kronref +++|*         ENTRY  (CP) = CHARACTER POINTER.
00556  M01S00504.kronref +++|*
00557  M01S00505.kronref +++|*         EXIT   (X1) = 0, IF ADDRESS FIELD TO BE PROCESSED.
00558  M01S00506.kronref +++|*
00559  M01S00507.kronref +++|*         USES   X - 1.
00560  M01S00508.kronref +++|*                A - 1.
00561  M01S00509.kronref +++|*
00562  M01S00510.kronref +++|*         CALLS  ASN, ESR, SNC.
00563  M01S00511.kronref +++|
00564  M01S00512.kronref +++|
00565  M01S00513.kronref +++| EXECUTE  BSS    0           ENTRY
00566  M01S00514.kronref +++|          SA1    PP
00567  M01S00515.kronref +++|          ZR     X1,OPC      IF NOT PP CODE
00568  M01S00516.kronref +++|          RJ     SNC         ASSEMBLE CALLED PACKAGE
00569  M01S00517.kronref +++|          RJ     ASN         ASSEMBLE NAME
00570  M01S00518.kronref +++|          SX5    B1          ENTER PP CALL
00571  M01S00519.kronref +++|          RJ     ESR
00572  M01S00520.kronref +++|          SX1    B1          ADDRESS FIELD NOT TO BE PROCESSED
00573  M01S00521.kronref +++|          EQ     OPCX        EXIT
00574  M01S00522.kronref +++| PERIPH   SPACE  4,10
00575  M01S00523.kronref +++|**        PERIPH - PROCESS PERIPH.
00576  M01S00524.kronref +++|*
00577  M01S00525.kronref +++|*         ENTRY  (CP) = CHARACTER POINTER.
00578  M01S00526.kronref +++|*
00579  M01S00527.kronref +++|*         EXIT   (X1) = 0, IF ADDRESS FIELD TO BE PROCESSED.
00580  M01S00528.kronref +++|*
00581  M01S00529.kronref +++|*         USES   X - 1, 5.
00582  M01S00530.kronref +++|*                A - 1.
00583  M01S00531.kronref +++|*
00584  M01S00532.kronref +++|*         CALLS  ASN, ESR, SNC.
00585  M01S00533.kronref +++|
00586  M01S00534.kronref +++|
00587  M01S00535.kronref +++| PERIPH   BSS    0           ENTRY
00588  M01S00536.kronref +++|          SX6    B1          SET PP FLAG
00589  M01S00537.kronref +++|          SA6    PP
00590  M01S00538.kronref +++|          SX5    B1
00591  M01S00539.kronref +++|          RJ     ENT         ENTER PP NAME
00592  M01S00540.kronref +++|          EQ     OPCX        EXIT
00593  M01S00541.kronref +++| SYSTEM   SPACE  4,10
00594  M01S00542.kronref +++|**        SYSTEM - PROCESS SYSTEM.
00595  M01S00543.kronref +++|*
00596  M01S00544.kronref +++|*         ENTRY  (CP) = CHARACTER POINTER.
00597  M01S00545.kronref +++|*
00598  M01S00546.kronref +++|*         EXIT   (X1) = 0, IF ADDRESS FIELD TO BE PROCESSED.
00599  M01S00547.kronref +++|*
00600  M01S00548.kronref +++|*         USES   X - 1, 5.
00601  M01S00549.kronref +++|*                A - 1.
00602  M01S00550.kronref +++|*
00603  M01S00551.kronref +++|*         CALLS  ASN, ESR, SNC.
00604  M01S00552.kronref +++|
00605  M01S00553.kronref +++|
00606  M01S00554.kronref +++| SYSTEM   BSS    0           ENTRY
00607  M01S00555.kronref +++|          SA1    PP
00608  M01S00556.kronref +++|          NZ     X1,OPCX     IF PP CODE
00609  M01S00557.kronref +++|          RJ     SNC         SET NEXT CHARACTER
00610  M01S00558.kronref +++|          RJ     ASN         ASSEMBLE NAME
00611  M01S00559.kronref +++|          MX5    42          ONLY ENTER 3 CHARACTER NAME
00612  M01S00560.kronref +++|          BX5    X5*X6
00613  M01S00561.kronref +++|          NZ     X5,SYS1     IF MORE THAN 3 CHARACTERS IN NAME
00614  M01S00562.kronref +++|          SX5    3
00615  M01S00563.kronref +++|          RJ     ESR         ENTER SPECIAL REFERENCE
00616  M01S00564.kronref +++|          SX1    B1          SET INTERESTING FLAG
00617  M01S00565.kronref +++|          EQ     OPCX        RETURN
00618  M01S00566.kronref +++|
00619  M01S00567.kronref +++| SYS1     SX1    B0+         SET NOT INTERESTING FLAG
00620  M01S00568.kronref +++|          EQ     OPCX        RETURN
00621  M01S00569.kronref +++| SCA      SPACE  4,10
00622  M01S00570.kronref +++|**        SCA - SCAN ADDRESS.
00623  M01S00571.kronref +++|*
00624  M01S00572.kronref +++|*         ENTRY  (X0) = SEPARATOR MASK.
00625  M01S00573.kronref +++|*
00626  M01S00574.kronref +++|*         USES   X - 1, 2, 6, 7.
00627  M01S00575.kronref +++|*                A - 1, 2, 6.
00628  M01S00576.kronref +++|*                B - 2, 3, 4.
00629  M01S00577.kronref +++|*
00630  M01S00578.kronref +++|*         CALLS  ADW, ASN, SNC.
00631  M01S00579.kronref +++|*
00632  M01S00580.kronref +++|*         MACRO  ADDWRD.
00633  M01S00581.kronref +++|
00634  M01S00582.kronref +++|
00635  M01S00583.kronref +++| SCA      SUBR               ENTRY/EXIT
00636  M01S00584.kronref +++| SCA1     RJ     SNC         SET NEXT CHARACTER
00637  M01S00585.kronref +++| SCA2     SB2    X6-1R
00638  M01S00586.kronref +++|          ZR     B2,SCAX     IF END OF FIELD - RETURN
00639  M01S00587.kronref +++|          SB3    X6
00640  M01S00588.kronref +++|          LX7    X0,B3
00641  M01S00589.kronref +++|          NG     X7,SCA1     SKIP SEPARATOR
00642  M01S00590.kronref +++|          SB2    X6-1R0
00643  M01S00591.kronref +++|          NG     B2,SCA4     IF ALPHA
00644  M01S00592.kronref +++|          SB3    X6-1R+
00645  M01S00593.kronref +++|          NG     B3,SCA3     IF NUMERIC
00646  M01S00594.kronref +++|          SB2    X6-1R$
00647  M01S00595.kronref +++|          ZR     B2,SCA      IF *$* - RETURN
00648  M01S00596.kronref +++|          EQ     B2,B1,SCAX  IF *$*  - RETURN
00649  M01S00597.kronref +++|          EQ     SCA4        OTHER THAN *$*
00650  M01S00598.kronref +++|
00651  M01S00599.kronref +++| SCA3     RJ     SNC         NEXT CHARACTER
00652  M01S00600.kronref +++|          SB3    X6
00653  M01S00601.kronref +++|          LX7    X0,B3
00654  M01S00602.kronref +++|          PL     X7,SCA3     IF END OF ELEMENT
00655  M01S00603.kronref +++|          EQ     SCA2        PROCESS CHARACTER
00656  M01S00604.kronref +++|
00657  M01S00605.kronref +++| SCA4     RJ     ASN         ASSEMBLE NAME
00658  M01S00606.kronref +++|          SA1    SL
00659  M01S00607.kronref +++|          SA2    F.TNME
00660  M01S00608.kronref +++|          SB2    B1+B1
00661  M01S00609.kronref +++|          SB3    X1
00662  M01S00610.kronref +++|          SA1    X2
00663  M01S00611.kronref +++|          SB4    X2
00664  M01S00612.kronref +++| SCA5     BX7    X1-X6
00665  M01S00613.kronref +++|          SB3    B3-B2
00666  M01S00614.kronref +++|          ZR     X7,SCA6     IF FOUND
00667  M01S00615.kronref +++|          SA1    A1+B2
00668  M01S00616.kronref +++|          NZ     B3,SCA5     LOOP TO END OF TABLE
00669  M01S00617.kronref +++|          SA1    CH
00670  M01S00618.kronref +++|          BX6    X1
00671  M01S00619.kronref +++|          EQ     SCA2        PROCESS CHARACTER
00672  M01S00620.kronref +++|
00673  M01S00621.kronref +++| SCA6     MX4    1           SET REFERENCE FLAG
00674  M01S00622.kronref +++|          SA2    DN
00675  M01S00623.kronref +++|          BX6    X1+X4
00676  M01S00624.kronref +++|          SX3    A1-B4
00677  M01S00625.kronref +++|          SA6    A1
00678  M01S00626.kronref +++|          ADDWRD TREF,X2+X3  ENTER REFERENCE
00679  M01S00627.kronref +++|          SA1    CH
00680  M01S00628.kronref +++|          BX6    X1
00681  M01S00629.kronref +++|          EQ     SCA2        PROCESS CHARACTER
00682  M01S00630.kronref +++|          TITLE  LIST PROCESSORS.
00683  M01S00631.kronref +++| LCL      SPACE  4,10
00684  M01S00632.kronref +++|**        LCL - LIST SPECIAL CALLS.
00685  M01S00633.kronref +++|*
00686  M01S00634.kronref +++|*         USES   X - ALL.
00687  M01S00635.kronref +++|*                A - ALL.
00688  M01S00636.kronref +++|*
00689  M01S00637.kronref +++|*         CALLS  LRC, SFN, SSR.
00690  M01S00638.kronref +++|
00691  M01S00639.kronref +++|
00692  M01S00640.kronref +++| LCL      SUBR               ENTRY/EXIT
00693  M01S00641.kronref +++|          SA1    TX
00694  M01S00642.kronref +++|          NZ     X1,LCL0     IF SYSTEXT PRESENT
00695  M01S00643.kronref +++|          MX6    0           ZERO TITLES
00696  M01S00644.kronref +++|          SA6    LCLD
00697  M01S00645.kronref +++|          SA6    A6+B1
00698  M01S00646.kronref +++| LCL0     SA1    =1H
00699  M01S00647.kronref +++|          SA1    =1H
00700  M01S00648.kronref +++|          SX6    LCLA        SET SUBTITLE
00701  M01S00649.kronref +++|          BX7    X1
00702  M01S00650.kronref +++|          SA6    ST+1
00703  M01S00651.kronref +++|          SA7    BUF+1
00704  M01S00652.kronref +++|          RJ     SSR         SORT SPECIAL REFERENCES
00705  M01S00653.kronref +++| LCL1     SA1    LCLC        ADVANCE POINTER
00706  M01S00654.kronref +++|          SX6    X1+2
00707  M01S00655.kronref +++|          SA2    X6
00708  M01S00656.kronref +++|          SA6    A1
00709  M01S00657.kronref +++|          ZR     X2,LCLX     IF END OF TABLE - RETURN
00710  M01S00658.kronref +++|          SA4    A2+B1       TYPE CODE
00711  M01S00659.kronref +++|          SX6    X2          SET SUBTITLE
Line S00660 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00712  M02S00660.ns22000 ---|          SX7    LINP        FORCE EJECT
00713  M01S00022.ns22000 +++|          SX7    LCFE        FORCE EJECT
00714  M01S00661.kronref +++|          SA6    ST
00715  M01S00662.kronref +++|          SA7    LC
00716  M01S00663.kronref +++|          SA1    F.TNME      (X1) = FWA
00717  M01S00664.kronref +++|          SA2    SL          (X2) = LENGTH
00718  M01S00665.kronref +++|          IX1    X1+X2
00719  M01S00666.kronref +++|          SA3    L.TNME
00720  M01S00667.kronref +++|          IX2    X3-X2
00721  M01S00668.kronref +++| LCL2     ZR     X2,LCL1     IF END OF REFERENCE TABLE
00722  M01S00669.kronref +++|          SA3    X1+B1       NEXT ENTRY
00723  M01S00670.kronref +++|          BX6    X3-X4
00724  M01S00671.kronref +++|          ZR     X6,LCL4     IF REQUESTED TYPE
00725  M01S00672.kronref +++| LCL3     SX1    X1+2        ADVANCE TABLE
00726  M01S00673.kronref +++|          SX2    X2-2
00727  M01S00674.kronref +++|          EQ     LCL2        LOOP
00728  M01S00675.kronref +++|
00729  M01S00676.kronref +++| LCL4     SX6    X1          SAVE POSITION
00730  M01S00677.kronref +++|          SX7    X2
00731  M01S00678.kronref +++|          SA6    T1
00732  M01S00679.kronref +++|          SA7    A6+B1
00733  M01S00680.kronref +++|          MX0    42          SPACE FILL NAME
00734  M01S00681.kronref +++|          SA5    A3-B1
00735  M01S00682.kronref +++|          BX1    X0*X5
00736  M01S00683.kronref +++|          RJ     SFN         SPACE FILL NAME
00737  M01S00684.kronref +++|          LX6    -3*6
00738  M01S00685.kronref +++|          SA6    BUF
00739  M01S00686.kronref +++|          RJ     LRC         LIST REFERENCE CHAIN
00740  M01S00687.kronref +++|          SA1    T1          RESET POSITION
00741  M01S00688.kronref +++|          SA2    A1+B1
00742  M01S00689.kronref +++|          SA3    LCLC        RESET TYPE
00743  M01S00690.kronref +++|          SA4    X3+B1
00744  M01S00691.kronref +++|          EQ     LCL3        LOOP
00745  M01S00692.kronref +++|
00746  M01S00693.kronref +++| LCLA     DATA   10H   DECK
00747  M01S00694.kronref +++|          DATA   10H
00748  M01S00695.kronref +++|          DATA   C*DECK REFERENCES.*
00749  M01S00696.kronref +++|
00750  M01S00697.kronref +++| LCLB     BSS    0
00751  M01S00698.kronref +++|          CON    =C*   COMMON DECK CALLS.*
00752  M01S00699.kronref +++|          CON    0
00753  M01S00700.kronref +++|
00754  M01S00701.kronref +++| LCLD     BSS    0
00755  M01S00702.kronref +++|          CON    =C*   PP PACKAGES CALLED.*
00756  M01S00703.kronref +++|          CON    1
00757  M01S00704.kronref +++|
00758  M01S00705.kronref +++|          CON    =C*   SPECIAL ENTRY POINTS.*
00759  M01S00706.kronref +++|          CON    2
00760  M01S00707.kronref +++|
00761  M01S00708.kronref +++|          CON    =C*   SYSTEM MACRO REQUEST REFERENCES.*
00762  M01S00709.kronref +++|          CON    3
00763  M01S00710.kronref +++|
00764  M01S00711.kronref +++|          CON    0
00765  M01S00712.kronref +++|
00766  M01S00713.kronref +++| LCLC     CON    LCLB-2
00767  M01S00714.kronref +++| LNK      SPACE  4,10
00768  M01S00715.kronref +++|**        LNK - LINK TABLES.
00769  M01S00716.kronref +++|*
00770  M01S00717.kronref +++|*         USES   X - ALL.
00771  M01S00718.kronref +++|*                A - 1, 2, 3, 6, 7.
00772  M01S00719.kronref +++|*                B - 2, 3, 4.
00773  M01S00720.kronref +++|
00774  M01S00721.kronref +++|
00775  M01S00722.kronref +++| LNK      SUBR               ENTRY/EXIT
00776  M01S00723.kronref +++|          SA1    L.TNME      LEFT JUSTIFY NAMES
00777  M01S00724.kronref +++|          SA2    F.TNME
00778  M01S00725.kronref +++|          MX0    6
00779  M01S00726.kronref +++|          SB2    B1+B1
00780  M01S00727.kronref +++|          SB3    X1
00781  M01S00728.kronref +++|          SA1    X2
00782  M01S00729.kronref +++| LNK1     LX1    6
00783  M01S00730.kronref +++|          BX2    X0*X1
00784  M01S00731.kronref +++|          ZR     X2,LNK1     IF CHARACTER NOT LEFT JUSTIFIED
00785  M01S00732.kronref +++|          BX6    X1
00786  M01S00733.kronref +++|          SA6    A1
00787  M01S00734.kronref +++|          SB3    B3-B2
00788  M01S00735.kronref +++|          SA1    A1+B2
00789  M01S00736.kronref +++|          NZ     B3,LNK1     IF NOT THE LAST NAME
00790  M01S00737.kronref +++|          SA1    L.TREF      LINK REFERENCES
00791  M01S00738.kronref +++|          SA2    F.TREF
00792  M01S00739.kronref +++|          MX0    42
00793  M01S00740.kronref +++|          SB2    X1
00794  M01S00741.kronref +++|          SA3    F.TNME
00795  M01S00742.kronref +++|          SB2    B2-B1
00796  M01S00743.kronref +++|          SA2    X2+B2
00797  M01S00744.kronref +++|          SB4    X3
00798  M01S00745.kronref +++|          BX5    X0*X2
00799  M01S00746.kronref +++| LNK2     SA1    B4+X2
00800  M01S00747.kronref +++|          SX3    A2
00801  M01S00748.kronref +++|          BX4    X0*X1
00802  M01S00749.kronref +++|          SB2    B2-B1
00803  M01S00750.kronref +++|          SA2    A2-B1
00804  M01S00751.kronref +++|          BX7    -X0*X1
00805  M01S00752.kronref +++|          IX6    X4+X3
00806  M01S00753.kronref +++|          BX7    X5+X7
00807  M01S00754.kronref +++|          SA6    A1
00808  M01S00755.kronref +++|          SA7    A2+B1
00809  M01S00756.kronref +++|          BX5    X0*X2
00810  M01S00757.kronref +++|          PL     B2,LNK2     IF MORE REFERENCES
00811  M01S00758.kronref +++|          EQ     LNKX        RETURN
00812  M01S00759.kronref +++| LRC      SPACE  4,10
00813  M01S00760.kronref +++|**        LRC - LIST REFERENCE CHAIN.
00814  M01S00761.kronref +++|*
00815  M01S00762.kronref +++|*         ENTRY  (X5) = FIRST CHAIN ENTRY.
00816  M01S00763.kronref +++|*
00817  M01S00764.kronref +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
00818  M01S00765.kronref +++|*                A - 1, 2, 3, 6, 7.
00819  M01S00766.kronref +++|*                B - 2, 6.
00820  M01S00767.kronref +++|*
00821  M01S00768.kronref +++|*         CALLS  SFN, WOF.
00822  M01S00769.kronref +++|
00823  M01S00770.kronref +++|
00824  M01S00771.kronref +++| LRC6     MX6    0
00825  M01S00772.kronref +++|          SA6    A6+B1
00826  M01S00773.kronref +++|          SX1    BUF
00827  M01S00774.kronref +++|          RJ     WOF         WRITE LINE TO OUTPUT
00828  M01S00775.kronref +++|
00829  M01S00776.kronref +++| LRC      SUBR               ENTRY/EXIT
00830  M01S00777.kronref +++|          SA1    LC          CHECK LINE COUNT
Line S00778 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00831  M02S00778.ns22000 ---|          SX6    X1+3
Line S00779 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00832  M02S00779.ns22000 ---|          SB2    X6-LINP
Line S00780 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00833  M02S00780.ns22000 ---|          PL     B2,LRC2     IF NOT ROOM FOR FIRST LINE
00834  M01S00023.ns22000 +++|          SA2    LL          GET LINE LIMIT
00835  M01S00024.ns22000 +++|          SX6    X1+B1
00836  M01S00025.ns22000 +++|          IX2    X6-X2
00837  M01S00026.ns22000 +++|          PL     X2,LRC2     IF NOT ROOM FOR FIRST LINE
00838  M01S00781.kronref +++|          SA3    BUF+1       COMPARE CURRENT VALUE WITH LAST
00839  M01S00782.kronref +++|          SA2    =10H
00840  M01S00783.kronref +++|          BX7    X2-X3
00841  M01S00784.kronref +++|          ZR     X7,LRC1     IF NO VALUE
00842  M01S00785.kronref +++|          SA2    LRCB
00843  M01S00786.kronref +++|          BX7    X3
00844  M01S00787.kronref +++|          SA7    A2
00845  M01S00788.kronref +++|          BX2    X3-X2
00846  M01S00789.kronref +++|          BX6    X1          RESTORE *LC*
00847  M01S00790.kronref +++|          ZR     X2,LRC2     IF NO VALUE CHANGE
00848  M01S00791.kronref +++| LRC1     SX1    =C*  *
00849  M01S00792.kronref +++|          RJ     WOF         WRITE LINE TO OUTPUT
00850  M01S00793.kronref +++|          SA1    LC
00851  M01S00794.kronref +++|          BX6    X1
00852  M01S00795.kronref +++| LRC2     SA6    A1
00853  M01S00796.kronref +++|          SX5    X5
00854  M01S00797.kronref +++|          NZ     X5,LRC3     IF ANY REFERENCES
00855  M01S00798.kronref +++|          SA1    =10H **NONE**
00856  M01S00799.kronref +++|          MX6    0
00857  M01S00800.kronref +++|          BX7    X1
00858  M01S00801.kronref +++|          SA7    BUF+2
00859  M01S00802.kronref +++|          SA6    A7+B1
00860  M01S00803.kronref +++|          SX1    BUF
00861  M01S00804.kronref +++|          RJ     WOF         WRITE LINE TO OUTPUT
00862  M01S00805.kronref +++|          EQ     LRCX        RETURN
00863  M01S00806.kronref +++|
00864  M01S00807.kronref +++| LRC3     SA1    BUF         SAVE FIRST 2 WORDS OF BUFFER
00865  M01S00808.kronref +++|          SA2    A1+B1
00866  M01S00809.kronref +++|          BX6    X1
00867  M01S00810.kronref +++|          LX7    X2
00868  M01S00811.kronref +++|          MX0    42
00869  M01S00812.kronref +++|          SA6    LRCA
00870  M01S00813.kronref +++|          SA7    A6+B1
00871  M01S00814.kronref +++| LRC4     SB6    -11
00872  M01S00815.kronref +++|          ZR     X5,LRCX     IF END OF LIST - RETURN
00873  M01S00816.kronref +++| LRC5     ZR     X5,LRC6     IF END OF LIST
00874  M01S00817.kronref +++|          SA2    X5          NEXT ENTRY
00875  M01S00818.kronref +++|          BX1    X0*X2       SPACE FILL NAME
00876  M01S00819.kronref +++|          SX5    X2          SET NEXT ADDRESS
00877  M01S00820.kronref +++|          RJ     SFN         SPACE FILL NAME
00878  M01S00821.kronref +++|          LX6    60-6
00879  M01S00822.kronref +++|          SA6    BUF+13+B6
00880  M01S00823.kronref +++|          SB6    B6+B1
00881  M01S00824.kronref +++|          NG     B6,LRC5     IF NOT END OF LINE
00882  M01S00825.kronref +++|          MX6    0
00883  M01S00826.kronref +++|          SA6    A6+B1
00884  M01S00827.kronref +++|          SX1    BUF
00885  M01S00828.kronref +++|          RJ     WOF         WRITE LINE TO OUTPUT
Line S00829 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00886  M02S00829.ns22000 ---|          SA2    LC          CHECK LINE COUNT
00887  M01S00830.kronref +++|          SA1    =1H         CLEAR BUFFER
00888  M01S00831.kronref +++|          BX6    X1
00889  M01S00832.kronref +++|          LX7    X1
00890  M01S00833.kronref +++|          SA6    BUF
00891  M01S00834.kronref +++|          SA7    A6+B1
00892  M01S00835.kronref +++|          EQ     LRC4        LOOP
00893  M01S00836.kronref +++|
00894  M01S00837.kronref +++| LRCA     DATA   0,0
00895  M01S00838.kronref +++| LRCB     DATA   0           LAST VALUE
00896  M01S00839.kronref +++| LSR      SPACE  4,10
00897  M01S00840.kronref +++|**        LSR - LIST SYSTEM SYMBOL REFERENCES.
00898  M01S00841.kronref +++|*
00899  M01S00842.kronref +++|*         USES   X - ALL.
00900  M01S00843.kronref +++|*                A - 1, 2, 3, 4, 5, 6, 7.
00901  M01S00844.kronref +++|*
00902  M01S00845.kronref +++|*         CALLS  COD, LRC, SFN, WOF.
00903  M01S00846.kronref +++|
00904  M01S00847.kronref +++|
00905  M01S00848.kronref +++| LSR      SUBR               ENTRY/EXIT
00906  M01S00849.kronref +++|          SX3    B1+         SET NOT END OF REFERENCES
00907  M01S00850.kronref +++| LSR1     SA1    LSRC        ADVANCE SYMBOL CHECK
00908  M01S00851.kronref +++|          SX6    X1+3
00909  M01S00852.kronref +++|          SA2    X6          SUBTITLE LINE ADDRESS
00910  M01S00853.kronref +++|          SA6    A1
00911  M01S00854.kronref +++|          ZR     X3,LSRX     IF END OF SYMBOL LIST
00912  M01S00855.kronref +++|          ZR     X2,LSR2     IF NO SUBTITLE
00913  M01S00856.kronref +++|          SX7    X2          SET SUBTITLE
Line S00857 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00914  M02S00857.ns22000 ---|          SX6    LINP        FORCE EJECT
00915  M01S00027.ns22000 +++|          SX6    LCFE        FORCE EJECT
00916  M01S00858.kronref +++|          SA7    ST
00917  M01S00859.kronref +++|          SA6    LC
00918  M01S00860.kronref +++|          EQ     LSR3        SKIP LINE CHECK
00919  M01S00861.kronref +++|
00920  M01S00862.kronref +++| LSR2     SA1    LC          CHECK LINE COUNT
Line S00863 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00921  M02S00863.ns22000 ---|          SX7    X1-LINP+5
00922  M01S00028.ns22000 +++|          SA3    LL          GET LINE LIMIT
00923  M01S00029.ns22000 +++|          SX1    X1+2
00924  M01S00030.ns22000 +++|          IX7    X1-X3
00925  M01S00864.kronref +++|          PL     X7,LSR3     IF NO ROOM FOR LINE
00926  M01S00865.kronref +++|          SX1    =C*  *      LIST BLANK LINE
00927  M01S00866.kronref +++|          RJ     WOF         WRITE LINE TO OUTPUT
00928  M01S00867.kronref +++| LSR3     SA1    LSRC        SET MASK
00929  M01S00868.kronref +++|          SA3    X1+B1       MASK
00930  M01S00869.kronref +++|          SA4    A3+B1       CHARACTER MATCH
00931  M01S00870.kronref +++|          SA1    F.TNME      (X1) = FWA
00932  M01S00871.kronref +++|          SA2    SL          (X2) = LENGTH
00933  M01S00872.kronref +++| LSR4     SA5    X1          NEXT ENTRY
00934  M01S00873.kronref +++|          BX6    X5*X3
00935  M01S00874.kronref +++|          IX7    X6-X4
00936  M01S00875.kronref +++|          ZR     X7,LSR6     IF MATCH FOUND
00937  M01S00876.kronref +++|          SX1    X1+2        ADVANCE TABLE
00938  M01S00877.kronref +++| LSR5     SX2    X2-2
00939  M01S00878.kronref +++|          NZ     X2,LSR4     IF NOT END OF TABLE
00940  M01S00879.kronref +++|          EQ     LSR1        PROCESS NEXT SYMBOL TYPE
00941  M01S00880.kronref +++|
00942  M01S00881.kronref +++| LSR6     SX6    X1          SAVE POSITION
00943  M01S00882.kronref +++|          SX7    X2
00944  M01S00883.kronref +++|          SA6    T1
00945  M01S00884.kronref +++|          SA7    A6+B1
00946  M01S00885.kronref +++|          MX0    42          SPACE FILL NAME
00947  M01S00886.kronref +++|          BX1    X0*X5
00948  M01S00887.kronref +++|          RJ     SFN
00949  M01S00888.kronref +++|          LX6    -3*6
00950  M01S00889.kronref +++|          SA6    BUF
00951  M01S00890.kronref +++|          SA1    A5+B1       CONVERT VALUE
00952  M01S00891.kronref +++|          RJ     COD
00953  M01S00892.kronref +++|          LX6    3*6
00954  M01S00893.kronref +++|          SA6    A6+B1
00955  M01S00894.kronref +++|          MX7    -0          CLEAR ENTRY
00956  M01S00895.kronref +++|          SA7    A5
00957  M01S00896.kronref +++|          RJ     LRC         LIST REFERENCE CHAIN
00958  M01S00897.kronref +++|          SA1    T1          ADVANCE SYMBOL CHAIN
00959  M01S00898.kronref +++|          SA2    A1+B1
00960  M01S00899.kronref +++|          SX1    X1+2
00961  M01S00900.kronref +++|          SA3    LSRC        RESET MASK AND CHARACTER
00962  M01S00901.kronref +++|          SA3    X3+B1
00963  M01S00902.kronref +++|          SA4    A3+B1
00964  M01S00903.kronref +++|          EQ     LSR5        LOOP TO NEXT REFERENCE
00965  M01S00904.kronref +++|
00966  M01S00905.kronref +++| LSRA     DATA   10H   SYMBOL
00967  M01S00906.kronref +++|          DATA   10H  VALUE
00968  M01S00907.kronref +++|          DATA   C*DECK REFERENCES.*
00969  M01S00908.kronref +++|
00970  M01S00909.kronref +++| LSRB     BSS    0
00971  M01S00910.kronref +++|
00972  M01S00911.kronref +++|          CON    =C*   DIRECT LOCATIONS.*
00973  M01S00912.kronref +++|          VFD    12/0,30/7777777777B,18/0
00974  M01S00913.kronref +++|          CON    0
00975  M01S00914.kronref +++|
00976  M01S00915.kronref +++|          CON    =C*   PP RESIDENT ENTRY POINTS.*
00977  M01S00916.kronref +++|          VFD    18/0,24/77777777B,18/0
00978  M01S00917.kronref +++|          CON    0
00979  M01S00031.ns22000 +++|
00980  M01S00032.ns22000 +++|          CON    0
00981  M01S00033.ns22000 +++|          VFD    6/77B,18/0,18/777777B,18/0
00982  M01S00034.ns22000 +++|          VFD    6/1L.,54/0
00983  M01S00918.kronref +++|
00984  M01S00919.kronref +++|          CON    0
00985  M01S00920.kronref +++|          VFD    42/77777777777777B,18/0
00986  M01S00921.kronref +++|          CON    0LPPFW
00987  M01S00922.kronref +++|
00988  M01S00923.kronref +++|          CON    =C*   MONITOR FUNCTIONS.*
00989  M01S00924.kronref +++|          VFD    18/0,6/77B,36/0
00990  M01S00925.kronref +++|          VFD    18/0,6/1RM,36/0
00991  M01S00035.ns22000 +++|
00992  M01S00036.ns22000 +++|          CON    =C*   MASS STORAGE TABLE WORDS.*
00993  M01S00037.ns22000 +++|          VFD    12/0,18/777777B,30/0
00994  M01S00038.ns22000 +++|          VFD    12/0,18/2LGL,30/0
00995  M01S00039.ns22000 +++|
00996  M01S00040.ns22000 +++|          CON    0
00997  M01S00041.ns22000 +++|          VFD    12/0,18/777777B,30/0
00998  M01S00042.ns22000 +++|          VFD    12/0,18/2LLL,30/0
00999  M01S00043.ns22000 +++|
01000  M01S00044.ns22000 +++|          CON    =C*   GLOBAL/LOCAL FNT WORDS, ORDINALS.*
01001  M01S00045.ns22000 +++|          VFD    12/0,18/777777B,30/0
01002  M01S00046.ns22000 +++|          VFD    12/0,18/2LTG,30/0
01003  M01S00047.ns22000 +++|
01004  M01S00048.ns22000 +++|          CON    0
01005  M01S00049.ns22000 +++|          VFD    12/0,18/777777B,30/0
01006  M01S00050.ns22000 +++|          VFD    12/0,18/2LTL,30/0
01007  M01S00051.ns22000 +++|
01008  M01S00052.ns22000 +++|          CON    0
01009  M01S00053.ns22000 +++|          VFD    12/0,18/777777B,30/0
01010  M01S00054.ns22000 +++|          VFD    12/0,18/2LFO,30/0
01011  M01S00926.kronref +++|
01012  M01S00927.kronref +++|          CON    =C*   CENTRAL MEMORY POINTERS.*
Line S00928 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01013  M02S00928.ns22000 ---|          VFD    18/0,6/77B,36/0
01014  M01S00055.ns22000 +++|          VFD    18/0,12/7777B,30/0
01015  M01S00929.kronref +++|          VFD    18/0,6/1RP,36/0
01016  M01S00930.kronref +++|
01017  M01S00931.kronref +++|          CON    =C*   CENTRAL MEMORY LOCATIONS.*
01018  M01S00932.kronref +++|          VFD    18/0,12/7777B,30/0
01019  M01S00933.kronref +++|          VFD    18/0,12/1LL,30/0
01020  M01S00934.kronref +++|
01021  M01S00935.kronref +++|          CON    0
01022  M01S00936.kronref +++|          VFD    18/0,12/7777B,30/0
01023  M01S00937.kronref +++|          VFD    18/0,12/2RLL,30/0
01024  M01S00938.kronref +++|
01025  M01S00939.kronref +++|          CON    =C*   CONTROL POINT AREA WORDS.*
01026  M01S00940.kronref +++|          VFD    18/0,12/7777B,30/0
01027  M01S00941.kronref +++|          VFD    18/0,12/1LW,30/0
01028  M01S00942.kronref +++|
01029  M01S00943.kronref +++|          CON    0
01030  M01S00944.kronref +++|          VFD    18/0,12/7777B,30/0
01031  M01S00945.kronref +++|          VFD    18/0,12/2RWE,30/0
01032  M01S00946.kronref +++|
01033  M01S00947.kronref +++|          CON    0
01034  M01S00948.kronref +++|          VFD    18/0,12/7777B,30/0
01035  M01S00949.kronref +++|          VFD    18/0,12/2RWL,30/0
01036  M01S00056.ns22000 +++|
01037  M01S00057.ns22000 +++|          CON    =C*   EJT, EST, QFT RELATED.*
01038  M01S00058.ns22000 +++|          VFD    18/0,12/7777B,30/0
01039  M01S00059.ns22000 +++|          VFD    18/0,12/1LE,30/0
01040  M01S00060.ns22000 +++|
01041  M01S00061.ns22000 +++|          CON    0
01042  M01S00062.ns22000 +++|          VFD    18/0,12/7777B,30/0
01043  M01S00063.ns22000 +++|          VFD    18/0,12/1LQ,30/0
01044  M01S00950.kronref +++|
Line S00951 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01045  M02S00951.ns22000 ---|          CON    =C*   DAYFILE MESSAGE OPTIONS.*
01046  M01S00064.ns22000 +++|          CON    =C*   NFL SYMBOLS, AND DAYFILE MESSAGE OPTIONS.*
01047  M01S00952.kronref +++|          VFD    18/0,6/77B,36/0
01048  M01S00953.kronref +++|          VFD    18/0,6/1RN,36/0
01049  M01S00954.kronref +++|
01050  M01S00955.kronref +++|          CON    =C*   FILE TYPES, AND MASS STORAGE CONSTANTS.*
01051  M01S00956.kronref +++|          VFD    12/0,12/7777B,36/0
01052  M01S00957.kronref +++|          VFD    12/0,12/2RFT,36/0
01053  M01S00958.kronref +++|
01054  M01S00959.kronref +++|          CON    0
01055  M01S00960.kronref +++|          VFD    12/0,12/7777B,36/0
01056  M01S00961.kronref +++|          VFD    12/0,12/2RMS,36/0
01057  M01S00065.ns22000 +++|
01058  M01S00066.ns22000 +++|          CON    0
01059  M01S00067.ns22000 +++|          VFD    12/0,18/777777B,30/0
01060  M01S00068.ns22000 +++|          VFD    12/0,18/2LSF,30/0
01061  M01S00962.kronref +++|
01062  M01S00963.kronref +++|          CON    0
01063  M01S00964.kronref +++|          VFD    12/0,12/7777B,36/0
01064  M01S00965.kronref +++|          VFD    12/0,12/2RSS,36/0
01065  M01S00966.kronref +++|
01066  M01S00967.kronref +++|          CON    0
01067  M01S00968.kronref +++|          VFD    12/0,12/7777B,36/0
01068  M01S00969.kronref +++|          VFD    12/0,12/2RTS,36/0
01069  M01S00970.kronref +++|
Line S00971 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01070  M02S00971.ns22000 ---|
Line S00972 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01071  M02S00972.ns22000 ---|          CON    =C*   JOB ORIGIN TYPES, QUEUE TYPES, AND PRIORITIES.*
01072  M01S00069.ns22000 +++|          CON    =C*   ORIGIN TYPES AND QUEUE TYPES.*
01073  M01S00973.kronref +++|          VFD    12/0,12/7777B,36/0
01074  M01S00974.kronref +++|          VFD    12/0,12/2ROT,36/0
01075  M01S00070.ns22000 +++|
01076  M01S00975.kronref +++|          CON    0
01077  M01S00976.kronref +++|          VFD    12/0,12/7777B,36/0
01078  M01S00977.kronref +++|          VFD    12/0,12/2RQT,36/0
Line S00978 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01079  M02S00978.ns22000 ---|
Line S00979 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01080  M02S00979.ns22000 ---|          CON    0
Line S00980 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01081  M02S00980.ns22000 ---|          VFD    12/0,12/7777B,36/0
Line S00981 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01082  M02S00981.ns22000 ---|          VFD    12/0,12/2RPS,36/0
01083  M01S00982.kronref +++|
01084  M01S00983.kronref +++|          CON    =C*   ERROR FLAGS.*
01085  M01S00984.kronref +++|          VFD    12/0,12/7777B,36/0
01086  M01S00985.kronref +++|          VFD    12/0,12/2RET,36/0
01087  M01S00986.kronref +++|
01088  M01S00987.kronref +++|          CON    =C*   MISCELLANEOUS.*
01089  M01S00988.kronref +++|          VFD    36/0,6/77B,18/0
01090  M01S00989.kronref +++|          CON    0
01091  M01S00990.kronref +++|
01092  M01S00991.kronref +++|          CON    0,0
01093  M01S00992.kronref +++|
01094  M01S00993.kronref +++| LSRC     CON    LSRB-3
01095  M01S00994.kronref +++|          TITLE  SUBROUTINES.
01096  M01S00995.kronref +++| ABT      SPACE  4,10
01097  M01S00996.kronref +++|**        ABT - ABORT JOB.
01098  M01S00071.ns22000 +++|*
01099  M01S00997.kronref +++|*         ENTRY  (A0) = FWA OF MESSAGE.
01100  M01S00998.kronref +++|*
01101  M01S00999.kronref +++|*         MACROS ABORT, MESSAGE.
01102  M01S01000.kronref +++|
01103  M01S01001.kronref +++|
01104  M01S01002.kronref +++| ABT      MESSAGE A0,,R      OUTPUT MESSAGE
01105  M01S01003.kronref +++|          ABORT
01106  M01S01004.kronref +++| ADW      SPACE  4,10
01107  M01S01005.kronref +++|**        ADW - ADD ENTRY TO A TABLE.
01108  M01S01006.kronref +++|*
01109  M01S01007.kronref +++|*         ENTRY  (A0) = TABLE POINTER ADDRESS.
01110  M01S01008.kronref +++|*                (X1) = ENTRY.
01111  M01S01009.kronref +++|*
01112  M01S01010.kronref +++|*         EXIT   (X6) = ENTRY.
01113  M01S01011.kronref +++|*                (A6) = ADDRESS OF ENTRY.
01114  M01S01012.kronref +++|*                (X3) = INDEX OF ENTRY.
01115  M01S01013.kronref +++|*
01116  M01S01014.kronref +++|*         USES   X - 1, 2, 3, 4, 6, 7.
01117  M01S01015.kronref +++|*                A - 1, 2, 3, 4, 6, 7.
01118  M01S01016.kronref +++|*                B - 2.
01119  M01S01017.kronref +++|*
01120  M01S01018.kronref +++|*         CALLS  ATS.
01121  M01S01019.kronref +++|*
01122  M01S01020.kronref +++|*         MACROS ALLOC.
01123  M01S01021.kronref +++|
01124  M01S01022.kronref +++|
01125  M01S01023.kronref +++| ADW1     BX6    X1          ENTER WORD
01126  M01S01024.kronref +++|          SX7    X3+B1       ADVANCE LENGTH
01127  M01S01025.kronref +++|          SA6    X2+B2
01128  M01S01026.kronref +++|          SA7    A3
01129  M01S01027.kronref +++|
01130  M01S01028.kronref +++| ADW      SUBR               ENTRY/EXIT
01131  M01S01029.kronref +++|          SA2    FTAB+A0     CHECK TABLE ROOM
01132  M01S01030.kronref +++|          SA3    LTAB+A0
01133  M01S01031.kronref +++|          SA4    A2+B1
01134  M01S01032.kronref +++|          IX6    X2+X3
01135  M01S01033.kronref +++|          SB2    X3
01136  M01S01034.kronref +++|          IX7    X4-X6
01137  M01S01035.kronref +++|          NZ     X7,ADW1     IF ROOM FOR WORD
01138  M01S01036.kronref +++|          SA2    NTAB+A0     ALLOCATE TABLE
01139  M01S01037.kronref +++|          BX6    X1          SAVE WORD
01140  M01S01038.kronref +++|          SA6    ADWA
01141  M01S01039.kronref +++|          ALLOC  A0,X2
01142  M01S01040.kronref +++|          SA4    NTAB+A0     RESET LAST LENGTH
01143  M01S01041.kronref +++|          SA1    ADWA        RESTORE WORD
01144  M01S01042.kronref +++|          IX3    X3-X4
01145  M01S01043.kronref +++|          SB2    X3
01146  M01S01044.kronref +++|          EQ     ADW1        ENTER WORD
01147  M01S01045.kronref +++|
01148  M01S01046.kronref +++| ADWA     DATA   0
01149  M01S01047.kronref +++| ASN      SPACE  4,10
01150  M01S01048.kronref +++|**        ASN - ASSEMBLE NAME.
01151  M01S01049.kronref +++|*
01152  M01S01050.kronref +++|*         ENTRY  (CP) = CHARACTER POINTER.
01153  M01S01051.kronref +++|*                (X0) = SEPARATOR MASK.
01154  M01S01052.kronref +++|*
01155  M01S01053.kronref +++|*         EXIT   (X6) = NAME RIGHT JUSTIFIED, ZERO FILLED.
01156  M01S01054.kronref +++|*                (X6) = 0 IF FIRST CHARACTER = * *, OR MORE THAN
01157  M01S01055.kronref +++|*                            7 CHARACTERS ASSEMBLED.
01158  M01S01056.kronref +++|*
01159  M01S01057.kronref +++|*         USES   X - 1, 2, 5, 6.
01160  M01S01058.kronref +++|*                A - 1.
01161  M01S01059.kronref +++|*                B - 2.
01162  M01S01060.kronref +++|*
01163  M01S01061.kronref +++|*         CALLS  SNC.
01164  M01S01062.kronref +++|
01165  M01S01063.kronref +++|
01166  M01S01064.kronref +++| ASN      SUBR               ENTRY/EXIT
01167  M01S01065.kronref +++|          SA1    CH          FIRST CHARACTER
01168  M01S01066.kronref +++|          SB2    X1
01169  M01S01067.kronref +++|          LX6    X0,B2
01170  M01S01068.kronref +++|          MI     X6,ASNX     IF SEPARATOR - RETURN
01171  M01S01069.kronref +++|          SX5    B0          CLEAR ASSEMBLY
01172  M01S01070.kronref +++|          BX6    X1
01173  M01S01071.kronref +++| ASN1     LX5    6           SHIFT ASSEMBLY
01174  M01S01072.kronref +++|          BX5    X6+X5       MERGE NEW CHARACTER
01175  M01S01073.kronref +++|          RJ     SNC         SET NEXT CHARACTER
01176  M01S01074.kronref +++|          SB2    X6
01177  M01S01075.kronref +++|          LX2    X0,B2
01178  M01S01076.kronref +++|          PL     X2,ASN1     IF NOT A SEPARATOR
01179  M01S01077.kronref +++|          BX6    X5
01180  M01S01078.kronref +++|          EQ     ASNX        RETURN
01181  M01S01079.kronref +++| ATS      SPACE  4,10
01182  M01S01080.kronref +++|**        ATS - ALLOCATE TABLE SPACE.
01183  M01S01081.kronref +++|*
01184  M01S01082.kronref +++|*         ENTRY  (A0) = TABLE NUMBER.
01185  M01S00002.kronr1  +++|*                (X1) = NUMBER OF WORDS.
01186  M01S01083.kronref +++|*
01187  M01S01084.kronref +++|*         EXIT   (X2) = TABLE FWA.
01188  M01S01085.kronref +++|*                (X3) = TABLE LENGTH.
01189  M01S01086.kronref +++|*
01190  M01S01087.kronref +++|*         USES   X - 1, 2, 3, 4, 6, 7.
01191  M01S01088.kronref +++|*                A - 1, 2, 3, 4, 6, 7.
01192  M01S01089.kronref +++|*                B - 2, 3.
01193  M01S00003.kronr1  +++|*
01194  M01S00004.kronr1  +++|*         CALLS  TOV.
01195  M01S01090.kronref +++|
01196  M01S01091.kronref +++|
01197  M01S01092.kronref +++| ATS5     SA2    FTAB+A0     SET RESPONSE
01198  M01S01093.kronref +++|          SA3    LTAB+A0
01199  M01S01094.kronref +++|
01200  M01S01095.kronref +++| ATS      SUBR               ENTRY/EXIT
01201  M01S01096.kronref +++|          SA2    FTAB+A0     CHECK TABLE SPACE
01202  M01S01097.kronref +++|          SA3    LTAB+A0
01203  M01S01098.kronref +++|          IX7    X3+X1       ADVANCE LENGTH
01204  M01S01099.kronref +++|          SA4    A2+B1
01205  M01S01100.kronref +++|          IX6    X2+X7
01206  M01S01101.kronref +++|          SA7    A3
01207  M01S01102.kronref +++|          IX4    X4-X6
01208  M01S01103.kronref +++|          NG     X4,ATS1     IF NO ROOM FOR CHANGE
01209  M01S01104.kronref +++|          BX3    X7
01210  M01S01105.kronref +++|          EQ     ATSX        RETURN
01211  M01S01106.kronref +++|
01212  M01S01107.kronref +++|*         CHECK AVAILABLE STORAGE.
01213  M01S01108.kronref +++|
01214  M01S01109.kronref +++| ATS1     SA2    FTAB+FTABL  CHECK STORAGE
01215  M01S01110.kronref +++|          SA3    FL
01216  M01S01111.kronref +++|          IX6    X2+X1
01217  M01S01112.kronref +++|          IX7    X3-X6
01218  M01S01113.kronref +++|          NG     X7,ATS4     IF NO ROOM FOR INCREASE
01219  M01S01114.kronref +++|          SA6    A2          UPDATE LWA+1 OF ALL TABLES
01220  M01S01115.kronref +++|          SB2    A0+B1
01221  M01S01116.kronref +++|          SB3    FTABL
01222  M01S01117.kronref +++|          BX4    X2
01223  M01S01118.kronref +++|          EQ     B2,B3,ATS5  IF LAST TABLE - RETURN
01224  M01S01119.kronref +++|
01225  M01S01120.kronref +++|*         MOVE HIGHER TABLE UP.
01226  M01S01121.kronref +++|
01227  M01S01122.kronref +++| ATS2     SA2    A2-B1       ADVANCE FWA OF HIGHER TABLES
01228  M01S01123.kronref +++|          IX6    X2+X1
01229  M01S01124.kronref +++|          SA6    A2
01230  M01S01125.kronref +++|          SB2    B2+B1
01231  M01S01126.kronref +++|          NE     B2,B3,ATS2
01232  M01S01127.kronref +++|          IX3    X4-X2       (B2) = WORD COUNT
01233  M01S01128.kronref +++|          SB3    X1          (B3) = MOVE INCREMENT
01234  M01S01129.kronref +++|          ZR     X3,ATS5     IF NO MOVE NEEDED
01235  M01S01130.kronref +++|          SB2    X3
01236  M01S01131.kronref +++|          SA1    X4-1        BEGIN AT LWA
01237  M01S01132.kronref +++| ATS3     BX6    X1          MOVE TABLE UP
01238  M01S01133.kronref +++|          SA6    A1+B3
01239  M01S01134.kronref +++|          SB2    B2-B1
01240  M01S01135.kronref +++|          SA1    A1-B1
01241  M01S01136.kronref +++|          NZ     B2,ATS3     IF END OF MOVE
01242  M01S01137.kronref +++|          EQ     ATS5        RETURN
01243  M01S01138.kronref +++|
Line S01139 Modification History
M01 (Added by) kronref
M02 (Updated by) kronr1
Seq #  *Modification Id* Act 
----------------------------+
01244  M02S01139.kronr1  ---|*         MEMORY OVERFLOW ERROR.
01245  M01S00005.kronr1  +++|*         TABLE OVERFLOW.
01246  M01S01140.kronref +++|
Line S01141 Modification History
M01 (Added by) kronref
M02 (Updated by) kronr1
Seq #  *Modification Id* Act 
----------------------------+
01247  M02S01141.kronr1  ---| ATS4     SA0    =C* MEMORY OVERFLOW.*
Line S01142 Modification History
M01 (Added by) kronref
M02 (Updated by) kronr1
Seq #  *Modification Id* Act 
----------------------------+
01248  M02S01142.kronr1  ---|          EQ     ABT
01249  M01S00006.kronr1  +++| ATS4     SX6    A0          SAVE (A0)
01250  M01S00007.kronr1  +++|          SA6    ATSA
01251  M01S00008.kronr1  +++|          BX6    X1          SAVE (X1)
01252  M01S00009.kronr1  +++|          SA6    ATSA+1
01253  M01S00010.kronr1  +++|          RJ     TOV         PROCESS TABLE OVERFLOW
01254  M01S00011.kronr1  +++|          SA1    ATSA        RESTORE (A0)
01255  M01S00012.kronr1  +++|          SA0    X1
01256  M01S00013.kronr1  +++|          SA1    A1+B1       RESTORE (X1)
01257  M01S00014.kronr1  +++|          EQ     ATS1        RE-COMPUTE WITH NEW MEMORY
01258  M01S00015.kronr1  +++|
01259  M01S00016.kronr1  +++|
01260  M01S00017.kronr1  +++| ATSA     BSSZ   2           (A0) AND (X1) STORAGE
01261  M01S01143.kronref +++| ENT      SPACE  4,10
01262  M01S01144.kronref +++|**        ENT - ENTER NAME TABLE.
01263  M01S01145.kronref +++|*
01264  M01S01146.kronref +++|*         ENTRY  (X5) = REFERENCE TYPE.
01265  M01S01147.kronref +++|*
01266  M01S01148.kronref +++|*         USES   X - 1, 2, 3, 6, 7.
01267  M01S01149.kronref +++|*                A - 1, 2.
01268  M01S01150.kronref +++|*                B - 2, 3.
01269  M01S01151.kronref +++|*
01270  M01S01152.kronref +++|*         CALLS  ADW.
01271  M01S01153.kronref +++|*
01272  M01S01154.kronref +++|*         MACROS ADDWRD.
01273  M01S01155.kronref +++|
01274  M01S01156.kronref +++|
01275  M01S01157.kronref +++| ENT      SUBR               ENTRY/EXIT
01276  M01S01158.kronref +++|          SA1    DN          RIGHT JUSTIFY DECK NAME
01277  M01S01159.kronref +++|          MX2    -6
01278  M01S01160.kronref +++|          BX6    X1
01279  M01S01161.kronref +++| ENT1     LX6    -6
01280  M01S01162.kronref +++|          BX7    -X2*X6
01281  M01S01163.kronref +++|          ZR     X7,ENT1     IF NOT A CHARACTER
01282  M01S01164.kronref +++|          SA1    L.TNME
01283  M01S01165.kronref +++|          SA2    F.TNME
01284  M01S01166.kronref +++|          SB2    B1+B1
01285  M01S01167.kronref +++|          SB3    X1
01286  M01S01168.kronref +++|          SA1    X2
01287  M01S01169.kronref +++|          MX2    1
01288  M01S01170.kronref +++|          ZR     B3,ENT3     IF EMPTY TABLE
01289  M01S01171.kronref +++| ENT2     BX3    -X2*X1      SCAN NAME TABLE
01290  M01S01172.kronref +++|          IX7    X3-X6
01291  M01S01173.kronref +++|          SB3    B3-B2
01292  M01S01174.kronref +++|          ZR     X7,ENTX     IF FOUND - RETURN
01293  M01S01175.kronref +++|          SA1    A1+B2
01294  M01S01176.kronref +++|          NZ     B3,ENT2     IF NOT THE END OF THE TABLE
01295  M01S01177.kronref +++| ENT3     ADDWRD TNME,X6
01296  M01S01178.kronref +++|          ADDWRD A0,X5
01297  M01S01179.kronref +++|          EQ     ENTX        RETURN
01298  M01S01180.kronref +++| ESR      SPACE  4,10
01299  M01S01181.kronref +++|**        ESR - ENTER SPECIAL REFERENCE.
01300  M01S01182.kronref +++|*
01301  M01S01183.kronref +++|*         ENTRY  (X5) = REFERENCE TYPE.
01302  M01S01184.kronref +++|*                (X6) = NAME RIGHT JUSTIFIED.
01303  M01S01185.kronref +++|*
01304  M01S01186.kronref +++|*         USES   X - 1, 2, 3, 6, 7.
01305  M01S01187.kronref +++|*                A - 1, 2, 6.
01306  M01S01188.kronref +++|*                B - 2, 3, 4.
01307  M01S01189.kronref +++|*
01308  M01S01190.kronref +++|*         CALLS  ADW.
01309  M01S01191.kronref +++|*
01310  M01S01192.kronref +++|*         MACROS ADDWRD.
01311  M01S01193.kronref +++|
01312  M01S01194.kronref +++|
01313  M01S01195.kronref +++| ESR      SUBR               ENTRY/EXIT
01314  M01S01196.kronref +++|          MX1    6*3         TRUNCATE NAME TO 7 CHARACTERS
01315  M01S01197.kronref +++|          BX6    -X1*X6
01316  M01S01198.kronref +++|          SA1    L.TNME
01317  M01S01199.kronref +++|          SA2    F.TNME
01318  M01S01200.kronref +++|          SB2    B1+B1
01319  M01S01201.kronref +++|          SB3    X1
01320  M01S01202.kronref +++|          SA1    X2
01321  M01S01203.kronref +++|          SB4    X2
01322  M01S01204.kronref +++|          MX2    1
01323  M01S01205.kronref +++|          ZR     B3,ESR1.1   IF EMPTY TABLE
01324  M01S01206.kronref +++| ESR1     BX3    -X2*X1      SCAN NAME TABLE
01325  M01S01207.kronref +++|          IX7    X3-X6
01326  M01S01208.kronref +++|          SB3    B3-B2
01327  M01S01209.kronref +++|          ZR     X7,ESR2     IF FOUND
01328  M01S01210.kronref +++|          SA1    A1+B2
01329  M01S01211.kronref +++|          NZ     B3,ESR1     IF THE END OF THE TABLE
01330  M01S01212.kronref +++| ESR1.1   ADDWRD TNME,X6
01331  M01S01213.kronref +++|          ADDWRD A0,X5
01332  M01S01214.kronref +++|          SA1    A6-B1
01333  M01S01215.kronref +++|          MX2    1
01334  M01S01216.kronref +++| ESR2     MI     X1,ESRX     IF SYMBOL REFERENCED - EXIT
01335  M01S01217.kronref +++|          BX6    X1+X2       INDICATE REFERENCE
01336  M01S01218.kronref +++|          SA6    A1
01337  M01S01219.kronref +++|          SX3    A1-B4
01338  M01S01220.kronref +++|          SA2    DN
01339  M01S01221.kronref +++|          ADDWRD TREF,X2+X3  ENTER REFERENCE
01340  M01S01222.kronref +++|          EQ     ESRX        RETURN
01341  M01S01223.kronref +++| PLE      SPACE  4,10
01342  M01S01224.kronref +++|**        PLE - PROCESS LIBRARY ERROR.
01343  M01S01225.kronref +++|*
01344  M01S01226.kronref +++|*         ISSUE DAYFILE MESSAGE *PL ERROR IN DECK*.
01345  M01S01227.kronref +++|*         ABORT JOB.
01346  M01S01228.kronref +++|*
01347  M01S01229.kronref +++|*         USES   X - 1, 6.
01348  M01S01230.kronref +++|*                A - 0, 1, 6.
01349  M01S01231.kronref +++|*
01350  M01S01232.kronref +++|*         CALLS  ABT.
01351  M01S01233.kronref +++|
01352  M01S01234.kronref +++|
01353  M01S01235.kronref +++| PLE      SA1    DN          SET DECK NAME IN MESSAGE
01354  M01S01236.kronref +++|          BX6    X1
01355  M01S01237.kronref +++|          SA6    PLEB
01356  M01S01238.kronref +++|          SA0    PLEA
01357  M01S01239.kronref +++|          EQ     ABT         ABORT JOB
01358  M01S01240.kronref +++|
01359  M01S01241.kronref +++| PLEA     DATA   20H PL ERROR IN DECK
01360  M01S01242.kronref +++| PLEB     DATA   0
01361  M01S01243.kronref +++| PLS      SPACE  4,20
01362  M01S01244.kronref +++|**        PLS - ISSUE PROGRAM LIBRARY STATISTICS MESSAGES.
01363  M01S01245.kronref +++|*
01364  M01S01246.kronref +++|*         ENTRY  (BLANK) = ACTIVE BLANK STATEMENTS.
01365  M01S01247.kronref +++|*                (CALL) = ACTIVE *CALL STATEMENTS.
01366  M01S01248.kronref +++|*                (CODE) = ACTIVE NON-COMMENT, NON-BLANK STATEMENTS.
01367  M01S01249.kronref +++|*                (COMNT) = ACTIVE * TYPE COMMENT STATEMENTS.
01368  M01S01250.kronref +++|*                (INACT) = INACTIVE STATEMENTS.
01369  M01S01251.kronref +++|*
01370  M01S01252.kronref +++|*         EXIT   ALL DAYFILE MESSAGES ISSUED.
01371  M01S01253.kronref +++|*
01372  M01S01254.kronref +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
01373  M01S01255.kronref +++|*                A - 1, 2, 3, 4, 6.
01374  M01S01256.kronref +++|*
01375  M01S01257.kronref +++|*         CALLS  CDD, WOF.
01376  M01S01258.kronref +++|
01377  M01S01259.kronref +++|
01378  M01S01260.kronref +++| PLS      SUBR               ENTRY/EXIT
01379  M01S01261.kronref +++|          SA1    BLANK       CONVERT NUMBER OF BLANK STATEMENTS
01380  M01S01262.kronref +++|          RJ     CDD
01381  M01S01263.kronref +++|          SA6    PLSB+1
01382  M01S01264.kronref +++|          SA1    CALL        CONVERT NUMBER OF *CALL STATEMENTS
01383  M01S01265.kronref +++|          RJ     CDD
01384  M01S01266.kronref +++|          SA6    PLSC+1
01385  M01S01267.kronref +++|          SA1    CODE        CONVERT NUMBER OF LINES OF CODE
01386  M01S01268.kronref +++|          RJ     CDD
01387  M01S01269.kronref +++|          SA6    PLSD+1
01388  M01S01270.kronref +++|          SA1    COMNT       CONVERT NUMBER OF COMMENT STATEMENTS
01389  M01S01271.kronref +++|          RJ     CDD
01390  M01S01272.kronref +++|          SA6    PLSE+1
01391  M01S01273.kronref +++|          SA1    INACT       CONVERT NUMBER OF INACTIVE STATEMENTS
01392  M01S01274.kronref +++|          RJ     CDD
01393  M01S01275.kronref +++|          SA6    PLSF+1
01394  M01S01276.kronref +++|          SA1    BLANK       COMPUTE TOTAL NUMBER OF ACTIVE STATEMENTS
01395  M01S01277.kronref +++|          SA2    CALL
01396  M01S01278.kronref +++|          SA3    CODE
01397  M01S01279.kronref +++|          SA4    COMNT
01398  M01S01280.kronref +++|          IX5    X1+X2
01399  M01S01281.kronref +++|          IX7    X3+X4
01400  M01S01282.kronref +++|          IX1    X5+X7
01401  M01S01283.kronref +++|          RJ     CDD         CONVERT TOTAL ACTIVE STATEMENTS
01402  M01S01284.kronref +++|          SA6    PLSG+1
Line S01285 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01403  M02S01285.ns22000 ---|          SX7    LINP        FORCE PAGE EJECT
01404  M01S00072.ns22000 +++|          SX7    LCFE        FORCE EJECT
01405  M01S01286.kronref +++|          SX6    PLSA        SET SUBTITLE LINE
01406  M01S01287.kronref +++|          SA7    LC
01407  M01S01288.kronref +++|          SA6    ST
01408  M01S01289.kronref +++|          SX7    =C*  *      SET SUB-SUB TITLE LINE
01409  M01S01290.kronref +++|          SX1    PLSB        BLANK STATEMENTS
01410  M01S01291.kronref +++|          SA7    A6+1
01411  M01S01292.kronref +++|          RJ     WOF         WRITE OUTPUT FILE
01412  M01S01293.kronref +++|          SX1    PLSC        *CALL STATEMENTS
01413  M01S01294.kronref +++|          RJ     WOF         WRITE OUTPUT FILE
01414  M01S01295.kronref +++|          SX1    PLSD        LINES OF CODE
01415  M01S01296.kronref +++|          RJ     WOF         WRITE OUTPUT FILE
01416  M01S01297.kronref +++|          SX1    PLSE        * TYPE COMMENTS
01417  M01S01298.kronref +++|          RJ     WOF         WRITE OUTPUT FILE
01418  M01S01299.kronref +++|          SX1    PLSF        INACTIVE STATEMENTS
01419  M01S01300.kronref +++|          RJ     WOF         WRITE OUTPUT FILE
01420  M01S01301.kronref +++|          SX1    PLSG        ACTIVE STATEMENTS
01421  M01S01302.kronref +++|          RJ     WOF         WRITE OUTPUT FILE
01422  M01S01303.kronref +++|          EQ     PLSX        RETURN
01423  M01S01304.kronref +++|
01424  M01S01305.kronref +++| PLSA     DATA   C/   PROGRAM LIBRARY STATISTICS./
01425  M01S01306.kronref +++| PLSB     DATA   10H0
01426  M01S01307.kronref +++|          DATA   C/           BLANK STATEMENTS./
01427  M01S01308.kronref +++| PLSC     DATA   10H0
01428  M01S01309.kronref +++|          DATA   C/           *CALL STATEMENTS./
01429  M01S01310.kronref +++| PLSD     DATA   10H0
01430  M01S01311.kronref +++|          DATA   C/           LINES OF CODE./
01431  M01S01312.kronref +++| PLSE     DATA   10H0
01432  M01S01313.kronref +++|          DATA   C/           * TYPE COMMENT STATEMENTS./
01433  M01S01314.kronref +++| PLSF     DATA   10H0
01434  M01S01315.kronref +++|          DATA   C/           TOTAL INACTIVE STATEMENTS./
01435  M01S01316.kronref +++| PLSG     DATA   10H0
01436  M01S01317.kronref +++|          DATA   C/           TOTAL ACTIVE STATEMENTS./
01437  M01S01318.kronref +++| RMT      SPACE  4,10
01438  M01S01319.kronref +++|**        RMT - READ MODIFIER TABLE.
01439  M01S01320.kronref +++|*
01440  M01S01321.kronref +++|*         ENTRY  (DN) = DECK NAME.
01441  M01S01322.kronref +++|*                (MA) = MODIFICATION TABLE ADDRESS.
01442  M01S01323.kronref +++|*
01443  M01S01324.kronref +++|*         EXIT   (X0) = TERMINATOR CHARACTOR MASK.
01444  M01S01325.kronref +++|*
01445  M01S01326.kronref +++|*         USES   X - ALL.
01446  M01S01327.kronref +++|*                A - 1, 2, 3, 6.
01447  M01S01328.kronref +++|*                B - 2, 3.
01448  M01S01329.kronref +++|*
01449  M01S01330.kronref +++|*         CALLS  ENT.
01450  M01S01331.kronref +++|*
01451  M01S01332.kronref +++|*         MACROS MESSAGE, READ, READW.
01452  M01S01333.kronref +++|
01453  M01S01334.kronref +++|
01454  M01S01335.kronref +++| RMT      SUBR               ENTRY/EXIT
01455  M01S01336.kronref +++|          SA1    L.TNME      CLEAR REFERENCE INDICATORS
01456  M01S01337.kronref +++|          SA2    F.TNME
01457  M01S01338.kronref +++|          MX4    1
01458  M01S01339.kronref +++|          SB3    X1
01459  M01S01340.kronref +++|          SA1    X2
01460  M01S01341.kronref +++|          SB2    B1+B1
01461  M01S01342.kronref +++|          ZR     B3,RMT2     IF EMPTY TABLE
01462  M01S01343.kronref +++| RMT1     BX6    -X4*X1
01463  M01S01344.kronref +++|          SA6    A1
01464  M01S01345.kronref +++|          SB3    B3-B2
01465  M01S01346.kronref +++|          SA1    A1+B2
01466  M01S01347.kronref +++|          NZ     B3,RMT1     IF MORE REFERENCES
01467  M01S01348.kronref +++| RMT2     READ   P
01468  M01S01349.kronref +++|          READW  P,BUF,17B   READ IDENT TABLE
01469  M01S01350.kronref +++|          MI     X1,RMTX     IF EOF - RETURN
01470  M01S01351.kronref +++|          SA1    BUF
01471  M01S01352.kronref +++|          LX1    12
01472  M01S01353.kronref +++|          SB2    X1-7700B
01473  M01S01354.kronref +++|          NZ     B2,RMT7     IF NO IDENT TABLE
01474  M01S01355.kronref +++|          SA1    BUF+1       SET DECK NAME
01475  M01S01356.kronref +++|          BX6    X1
01476  M01S01357.kronref +++|          SA6    DN
01477  M01S01358.kronref +++|          SA6    RMTA+1
01478  M01S01359.kronref +++|          READW  P,T1,1      READ MODIFIER TABLE LENGTH
01479  M01S01360.kronref +++|          NZ     X1,PLE      IF EOR
01480  M01S01361.kronref +++|          SA1    T1          CHECK TABLE
01481  M01S01362.kronref +++|          LX1    18
01482  M01S01363.kronref +++|          SX6    B0
01483  M01S01364.kronref +++|          SB2    X1-700100B
01484  M01S01365.kronref +++|          SB3    X1-700200B
01485  M01S01366.kronref +++|          NZ     B2,RMT3     IF NOT NORMAL DECK
01486  M01S01367.kronref +++|          SA3    =0LCMDFILE  CHECK FOR *CMDFILE* - *HELP* TEXT
01487  M01S01368.kronref +++|          BX7    X3-X2
01488  M01S01369.kronref +++|          ZR     X7,RMT7     IF *CMDFILE* SKIP ENTIRE DECK
01489  M01S01370.kronref +++|          EQ     RMT4        PROCESS NORMAL DECK
01490  M01S01371.kronref +++|
01491  M01S01372.kronref +++|*         CHECK FOR A COMMON DECK.
01492  M01S01373.kronref +++|
01493  M01S01374.kronref +++| RMT3     NZ     B3,RMT7     IF NOT A COMMON DECK
01494  M01S01375.kronref +++|          SX5    B0          ENTER NAME TABLE
01495  M01S01376.kronref +++|          RJ     ENT
01496  M01S01377.kronref +++|          SA1    T1
01497  M01S01378.kronref +++|          LX1    18
01498  M01S01379.kronref +++|          SX6    B1          SET REFERENCE FLAG
01499  M01S01380.kronref +++|          MX4    4*6
01500  M01S01381.kronref +++|          SA6    RF
01501  M01S01382.kronref +++|          SA6    PP          SET PP
01502  M01S01383.kronref +++|          SA2    DN          GET DECK NAME
01503  M01S01384.kronref +++|          SA3    =0LCOMP
01504  M01S01385.kronref +++|          BX2    X4*X2
01505  M01S01386.kronref +++|          IX7    X2-X3
01506  M01S01387.kronref +++|          ZR     X7,RMT4     IF -COMPXXX-
01507  M01S01388.kronref +++|          SA3    =0LCOMD
01508  M01S01389.kronref +++|          IX7    X2-X3
01509  M01S01390.kronref +++|          SX6    B0
01510  M01S01391.kronref +++|          ZR     X7,RMT4     IF -COMDXXX-
01511  M01S01392.kronref +++|          SA6    PP
01512  M01S01393.kronref +++| RMT4     LX1    60-18
01513  M01S01394.kronref +++|          SX5    X1
01514  M01S01395.kronref +++|          ZR     X5,RMT6     IF NO MODIFIERS
01515  M01S01396.kronref +++| RMT5     READW  P,T1,1      READ OUT MODIFIERS
01516  M01S01397.kronref +++|          SX5    X5-1
01517  M01S01398.kronref +++|          NZ     X5,RMT5     IF NOT THE LAST WORD
01518  M01S01399.kronref +++| RMT6     MESSAGE RMTA,1
01519  M01S01400.kronref +++|          SA2    =36060020B  MASK FOR BL , + - * /
01520  M01S01401.kronref +++|          SX1    B0          RETURN WITH NO EOR
01521  M01S01402.kronref +++|          BX0    X2
01522  M01S01403.kronref +++|          EQ     RMTX        RETURN
01523  M01S01404.kronref +++|
01524  M01S01405.kronref +++| RMT7     READW  P,BUF,BUFL  READ TO EOR
01525  M01S01406.kronref +++|          ZR     X1,RMT7     IF NOT AN EOR
01526  M01S01407.kronref +++|          EQ     RMT2        BEGIN NEXT RECORD
01527  M01S01408.kronref +++|
01528  M01S01409.kronref +++| RMTA     DATA   10H SCANNING
01529  M01S01410.kronref +++|          DATA   0
01530  M01S01411.kronref +++| RPF      SPACE  4,10
01531  M01S01412.kronref +++|**        RPF - READ CARD FROM PROGRAM LIBRARY.
01532  M01S01413.kronref +++|*
01533  M01S01414.kronref +++|*         ENTRY  (A0) = ADDRESS OF BUFFER.
01534  M01S01415.kronref +++|*
01535  M01S01416.kronref +++|*         EXIT   (X1) .NE. 0 IF EOR READ.
01536  M01S01417.kronref +++|*                (CDTX) = TEXT OF COMPRESSED CARD.
01537  M01S01418.kronref +++|*
01538  M01S01419.kronref +++|*         USES   X - 1, 6.
01539  M01S01420.kronref +++|*                A - 1, 6.
01540  M01S01421.kronref +++|*
01541  M01S01422.kronref +++|*         MACROS READC.
01542  M01S01423.kronref +++|
01543  M01S01424.kronref +++|
01544  M01S01425.kronref +++| RPF      SUBR               ENTRY/EXIT
01545  M01S01426.kronref +++| RPF1     READC  P,BUF,BUFL  READ CARD HISTORY
01546  M01S01427.kronref +++|          NZ     X1,RPF      IF EOR - RETURN
01547  M01S01428.kronref +++|          READC  P,CDTX,MXCCL  READ COMPRESSED CARD
01548  M01S01429.kronref +++|          NZ     X1,RPF      IF EOR - RETURN
01549  M01S01430.kronref +++|          EQ     B6,B7,PLE   IF OVERFLOW
01550  M01S01431.kronref +++|          SA1    BUF
01551  M01S01432.kronref +++|          MI     X1,RPF2     IF CARD ACTIVE
01552  M01S01433.kronref +++|          SA1    INACT       COUNT INACTIVE CARD
01553  M01S01434.kronref +++|          SX6    B1
01554  M01S01435.kronref +++|          IX6    X6+X1
01555  M01S01436.kronref +++|          SA6    A1
01556  M01S01437.kronref +++|          EQ     RPF1        LOOP FOR NEXT CARD
01557  M01S01438.kronref +++|
01558  M01S01439.kronref +++| RPF2     BX1    X1-X1       SET NOT EOR FLAG
01559  M01S01440.kronref +++|          EQ     RPFX        RETURN
01560  M01S01441.kronref +++| SNC      SPACE  4,10
01561  M01S01442.kronref +++|**        SNC - SET NEXT CHARACTER.
01562  M01S01443.kronref +++|*
01563  M01S01444.kronref +++|*         ENTRY  (CP) = CHARACTER POINTER.
01564  M01S01445.kronref +++|*
01565  M01S01446.kronref +++|*         EXIT   (X6) = (CH) = CHARACTER.
01566  M01S01447.kronref +++|*                (CP) UPDATED.
01567  M01S01448.kronref +++|*                CHARACTER = * * IF END OF CARD REACHED.
01568  M01S01449.kronref +++|*
01569  M01S01450.kronref +++|*         USES   X - 1, 2, 3, 4, 6, 7.
01570  M01S01451.kronref +++|*                A - 1, 2, 6, 7.
01571  M01S01452.kronref +++|*                B - 2, 3, 4, 5.
01572  M01S01453.kronref +++|
01573  M01S01454.kronref +++|
01574  M01S01455.kronref +++| SNC3     SX4    X1+         SET POSITION
01575  M01S01456.kronref +++|          MI     B4,SNC4     IF NOT SPACE COUNT
01576  M01S01457.kronref +++|          SX6    1R          SUPPLY * *
01577  M01S01458.kronref +++|          EQ     SNC6        SPACE FILL
01578  M01S01459.kronref +++|
01579  M01S01460.kronref +++| SNC4     SX7    X6-1R       CHECK FOR CURRENT CHARACTER BLANK
Line S01461 Modification History
M01 (Added by) kronref
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01580  M02S01461.242l642 ---|          NZ     X7,SNC6     IF NOT BLANK
Line S01462 Modification History
M01 (Added by) kronref
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01581  M02S01462.242l642 ---|          SB5    B2+6        ADVANCE TO NEXT CHARACTER
01582  M01S00006.242l642 +++|          ZR     X7,SNC4.1   IF BLANK
01583  M01S00007.242l642 +++|          SX7    X6-76B      CHECK ESCAPE CODE
01584  M01S00008.242l642 +++|          NZ     X7,SNC6     IF NOT ESCAPE CODE
01585  M01S00009.242l642 +++| SNC4.1   SB5    B2+6
01586  M01S01463.kronref +++|          NE     B5,B3,SNC5  IF NOT AT END OF WORD
01587  M01S01464.kronref +++|          SB5    6           RESET POSITION
01588  M01S01465.kronref +++|          SX4    X4+B1       ADVANCE TO NEXT WORD
01589  M01S01466.kronref +++|          SA2    A2+B1       GET NEXT WORD OF CARD
01590  M01S01467.kronref +++| SNC5     LX7    X2,B5       POSITION CHARACTER
01591  M01S01468.kronref +++|          BX7    -X3*X7      CHECK FOR SECOND CONSECUTIVE BLANK
Line S01469 Modification History
M01 (Added by) kronref
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01592  M02S01469.242l642 ---|          SX7    X7-1R
Line S01470 Modification History
M01 (Added by) kronref
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01593  M02S01470.242l642 ---|          NZ     X7,SNC6     IF NOT A BLANK
Line S01471 Modification History
M01 (Added by) kronref
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
01594  M02S01471.242l642 ---|          SB2    B5          ADVANCE
01595  M01S00010.242l642 +++|          SX2    X7-1R
01596  M01S00011.242l642 +++|          ZR     X2,SNC5.1   IF BLANK
01597  M01S00012.242l642 +++|          ZR     X7,SNC6     IF *00* FOLLOWS 76B
01598  M01S00013.242l642 +++|          SX2    X6-76B
01599  M01S00014.242l642 +++|          NZ     X2,SNC6     IF NOT CONVERTING TO UPPER CASE
01600  M01S00015.242l642 +++|          SX2    X7-33B
01601  M01S00016.242l642 +++|          PL     X2,SNC6     IF NOT LOWER CASE ALPHABETIC CHARACTER
01602  M01S00017.242l642 +++|          BX6    X7
01603  M01S00018.242l642 +++| SNC5.1   SB2    B5
01604  M01S01472.kronref +++|          SX1    X4
01605  M01S01473.kronref +++| SNC6     PX7    X1,B2       PACK POSITION
01606  M01S01474.kronref +++|          SA6    CH          SET CHARACTER
01607  M01S01475.kronref +++|          SA7    A1
01608  M01S01476.kronref +++|
01609  M01S01477.kronref +++| SNC      SUBR               ENTRY/EXIT
01610  M01S01478.kronref +++|          SA1    CP          UNPACK POINTER
01611  M01S01479.kronref +++|          SA2    X1+CDTX     LOAD WORD FROM CARD
01612  M01S01480.kronref +++|          MX3    54
01613  M01S01481.kronref +++|          SB3    66
01614  M01S01482.kronref +++|          UX1,B2 X1
01615  M01S01483.kronref +++|          SB4    -B1
01616  M01S01484.kronref +++|          SX4    1R          PRESET * *
01617  M01S01485.kronref +++| SNC1     SB2    B2+6        ADVANCE CHARACTER INDEX
01618  M01S01486.kronref +++|          NE     B2,B3,SNC2  IF NOT LAST CHARACTER OF WORD
01619  M01S01487.kronref +++|          SB2    6           RESET CHARACTER
01620  M01S01488.kronref +++|          SX1    X1+B1       ADVANCE WORD
01621  M01S01489.kronref +++|          SA2    A2+B1
01622  M01S01490.kronref +++| SNC2     LX7    X2,B2       SHIFT TO CHARACTER
01623  M01S01491.kronref +++|          BX6    -X3*X7
01624  M01S01492.kronref +++|          NZ     X6,SNC3     IF NOT 00 CHARACTER
01625  M01S01493.kronref +++|          SB4    B4+B1
01626  M01S01494.kronref +++|          NE     B4,B1,SNC1  IF NOT THE LAST SPACE
01627  M01S01495.kronref +++|          BX6    X4
01628  M01S01496.kronref +++|          SA6    CH
01629  M01S01497.kronref +++|          EQ     SNCX        RETURN
01630  M01S01498.kronref +++| SSR      SPACE  4,10
01631  M01S01499.kronref +++|**        SSR - SORT SPECIAL REFERENCES.
01632  M01S01500.kronref +++|*
01633  M01S01501.kronref +++|*         USES   X - 1, 2, 3, 4, 6, 7.
01634  M01S01502.kronref +++|*                A - 0, 1, 2, 3, 4, 5, 6, 7.
01635  M01S01503.kronref +++|*                B - 2, 3, 4, 5, 6, 7.
01636  M01S01504.kronref +++|
01637  M01S01505.kronref +++|
01638  M01S01506.kronref +++| SSR      SUBR               ENTRY/EXIT
01639  M01S01507.kronref +++|          SA1    F.TNME      (A0) = FWA - 2
01640  M01S01508.kronref +++|          SA2    SL
01641  M01S01509.kronref +++|          IX6    X1+X2
01642  M01S01510.kronref +++|          SA3    L.TNME
01643  M01S01511.kronref +++|          IX7    X3-X2
01644  M01S01512.kronref +++|          SA0    X6-2
01645  M01S01513.kronref +++|          SB7    X7          N = LENGTH
01646  M01S01514.kronref +++|          SB6    B7          M = N
01647  M01S01515.kronref +++| SSR1     SX6    B6          M = M/2
01648  M01S01516.kronref +++|          AX6    2
01649  M01S01517.kronref +++|          LX6    1
01650  M01S01518.kronref +++|          SB6    X6
01651  M01S01519.kronref +++|          SB3    B1+B1       J = 1
01652  M01S01520.kronref +++|          ZR     B6,SSRX     IF M = 0 - RETURN
01653  M01S01521.kronref +++|          SB4    B7-B6       K = N-M
01654  M01S01522.kronref +++|          SB2    B3
01655  M01S01523.kronref +++| SSR2     SB5    B2+B6       L = I+M
01656  M01S01524.kronref +++|          SA1    A0+B2       A(I)
01657  M01S01525.kronref +++|          SA2    A0+B5       A(L)
01658  M01S01526.kronref +++|          IX6    X2-X1
01659  M01S01527.kronref +++|          PL     X6,SSR3     IF A(L) .GE. A(I)
01660  M01S01528.kronref +++|          SA3    A1+B1       INTERCHANGE A(L) AND A(I)
01661  M01S01529.kronref +++|          SA4    A2+B1
01662  M01S01530.kronref +++|          BX6    X1
01663  M01S01531.kronref +++|          LX7    X2
01664  M01S01532.kronref +++|          SA6    A2
01665  M01S01533.kronref +++|          SA7    A1
01666  M01S01534.kronref +++|          BX6    X3
01667  M01S01535.kronref +++|          BX7    X4
01668  M01S01536.kronref +++|          SA6    A4
01669  M01S01537.kronref +++|          SA7    A3
01670  M01S01538.kronref +++|          SB2    B2-B6       I = I-M
01671  M01S01539.kronref +++|          GT     B2,SSR2     IF I .GT. 0
01672  M01S01540.kronref +++| SSR3     SB3    B3+2        J = J+1
01673  M01S01541.kronref +++|          SB2    B3
01674  M01S01542.kronref +++|          LE     B3,B4,SSR2  IF J .LE. K
01675  M01S01543.kronref +++|          EQ     SSR1        LOOP
01676  M01S00018.kronr1  +++| TOV      SPACE  4,10
01677  M01S00019.kronr1  +++|**        TOV - TABLE OVERFLOW PROCESSOR.
01678  M01S00020.kronr1  +++|*
01679  M01S00021.kronr1  +++|*         ENTRY  (FL) = CURRENT FIELD LENGTH.
01680  M01S00022.kronr1  +++|*
01681  M01S00023.kronr1  +++|*         EXIT   (FL) = NEW FIELD LENGTH.
01682  M01S00024.kronr1  +++|*
01683  M01S00025.kronr1  +++|*         USES   A - 1, 6.
01684  M01S00026.kronr1  +++|*                X - 1, 6.
01685  M01S00027.kronr1  +++|*
01686  M01S00028.kronr1  +++|*         CALLS   ABT.
01687  M01S00029.kronr1  +++|*
01688  M01S00030.kronr1  +++|*         MACROS MEMORY.
01689  M01S00031.kronr1  +++|
01690  M01S00032.kronr1  +++|
01691  M01S00033.kronr1  +++| TOV      SUBR               ENTRY/EXIT
01692  M01S00034.kronr1  +++|          SA1    FL          INCREMENT FIELD LENGTH
01693  M01S00035.kronr1  +++|          SX6    X1+MINC
01694  M01S00036.kronr1  +++|          SA6    A1
01695  M01S00037.kronr1  +++|          LX6    30          POSITION FOR *MEM* CALL
01696  M01S00038.kronr1  +++|          SA6    TOVA
01697  M01S00039.kronr1  +++|          SA1    A6+B1       CHECK MEMORY LIMIT
01698  M01S00040.kronr1  +++|          IX1    X1-X6
01699  M01S00041.kronr1  +++|          NG     X1,TOV1     IF LIMIT REACHED.
01700  M01S00042.kronr1  +++|          MEMORY CM,TOVA,R
01701  M01S00043.kronr1  +++|          EQ     TOVX        RETURN
01702  M01S00044.kronr1  +++|
01703  M01S00045.kronr1  +++|
01704  M01S00046.kronr1  +++| TOV1     SA0    =C* MEMORY OVERFLOW.*
01705  M01S00047.kronr1  +++|          EQ     ABT         ABORT
01706  M01S00048.kronr1  +++|
01707  M01S00049.kronr1  +++|
01708  M01S00050.kronr1  +++| TOVA     CON    0           MEMORY CALL WORD
01709  M01S00051.kronr1  +++| TOVB     VFD    30/-0,30/0  MAXIMUM MEMORY LIMIT
01710  M01S01544.kronref +++| WOF      SPACE  4,10
01711  M01S01545.kronref +++|**        WOF - WRITE LINE TO OUTPUT.
01712  M01S01546.kronref +++|*
01713  M01S01547.kronref +++|*         ENTRY  (X1) = FWA LINE.
01714  M01S01548.kronref +++|*
01715  M01S01549.kronref +++|*         USES   X - 1, 2, 3, 6, 7.
01716  M01S01550.kronref +++|*                A - 1, 2, 3, 6, 7.
01717  M01S01551.kronref +++|*
01718  M01S01552.kronref +++|*         CALLS  CDD.
01719  M01S01553.kronref +++|*
01720  M01S01554.kronref +++|*         MACROS WRITEC, WRITEW.
01721  M01S01555.kronref +++|
01722  M01S01556.kronref +++|
01723  M01S01557.kronref +++| WOF      SUBR               ENTRY/EXIT
01724  M01S01558.kronref +++|          SA3    LC          ADVANCE LINE COUNT
01725  M01S01559.kronref +++|          SX6    X3+B1
01726  M01S01560.kronref +++|          SA6    A3
Line S01561 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01727  M02S01561.ns22000 ---|          SX7    X6-LINP+4
Line S01562 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01728  M02S01562.ns22000 ---|          NG     X7,WOF1     IF BOTTOM OF PAGE NOT REACHED
01729  M01S00073.ns22000 +++|          SA2    LL
01730  M01S00074.ns22000 +++|          IX2    X6-X2
01731  M01S00075.ns22000 +++|          NG     X2,WOF1     IF BOTTOM OF PAGE NOT REACHED
01732  M01S01563.kronref +++|          BX6    X1          SAVE REQUEST
01733  M01S01564.kronref +++|          SA6    WOFA
01734  M01S01565.kronref +++|          SA1    PN          ADVANCE PAGE NUMBER
Line S01566 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01735  M02S01566.ns22000 ---|          SX6    B0          RESET LINE COUNT
01736  M01S00076.ns22000 +++|          SX6    4           RESET LINE COUNT
01737  M01S01567.kronref +++|          SX7    X1+B1
01738  M01S01568.kronref +++|          SA6    A3
01739  M01S01569.kronref +++|          SA7    A1
01740  M01S01570.kronref +++|          RJ     CDD         CONVERT PAGE NUMBER
01741  M01S01571.kronref +++|          MX1    60-12
01742  M01S01572.kronref +++|          LX6    4*6         STORE PAGE NUMBER
01743  M01S01573.kronref +++|          BX6    X1*X6
01744  M01S01574.kronref +++|          SA6    PAGE
Line S01575 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01745  M02S01575.ns22000 ---|          WRITEW O,TITL,TITLL
01746  M01S00077.ns22000 +++|          SA1    PD
01747  M01S00078.ns22000 +++|          ZR     X1,WOF0     IF NO FORMAT EFFECTOR
01748  M01S00079.ns22000 +++|          WRITEW O,A1,1      WRITE FORMAT EFFECTOR
01749  M01S00080.ns22000 +++|          BX6    X6-X6
01750  M01S00081.ns22000 +++|          SA6    PD
01751  M01S00082.ns22000 +++| WOF0     WRITEW O,TITL,TITLL
01752  M01S01576.kronref +++|          SA1    ST
01753  M01S01577.kronref +++|          WRITEC X2,X1
01754  M01S01578.kronref +++|          SA1    ST+1
01755  M01S01579.kronref +++|          WRITEC X2,X1
01756  M01S01580.kronref +++|          WRITEC X2,(=C*  *)
01757  M01S01581.kronref +++|          SA1    WOFA        RESTORE REQUEST
Line S01582 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01758  M02S01582.ns22000 ---|          SA2    A1+B1
01759  M01S01583.kronref +++| WOF1     WRITEC O,X1
01760  M01S01584.kronref +++|          EQ     WOFX        RETURN
01761  M01S01585.kronref +++|
01762  M01S01586.kronref +++| WOFA     DATA   0
01763  M01S01587.kronref +++|          SPACE  4,10
Line S01588 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01764  M02S01588.ns22000 ---|*         COMMON DECKS.
01765  M01S00083.ns22000 +++|**        COMMON DECKS.
01766  M01S01589.kronref +++|
01767  M01S01590.kronref +++|
01768  M01S01591.kronref +++|*CALL     COMCRDC
01769  M01S01592.kronref +++|*CALL     COMCRDW
01770  M01S01593.kronref +++|*CALL     COMCWTC
01771  M01S01594.kronref +++|*CALL     COMCWTW
01772  M01S01595.kronref +++|*CALL     COMCCIO
01773  M01S01596.kronref +++|*CALL     COMCSYS
01774  M01S01597.kronref +++|*CALL     COMCCDD
01775  M01S01598.kronref +++|*CALL     COMCCOD
01776  M01S01599.kronref +++|*CALL     COMCSFN
01777  M01S01600.kronref +++|          SPACE  4,10
01778  M01S01601.kronref +++|          IDENT              FORCE LITERALS
01779  M01S01602.kronref +++| PRESET   TITLE  KRONREF PRESET.
01780  M01S01603.kronref +++| PRS      SPACE  4,10
01781  M01S01604.kronref +++|**        PRS - PRESET KRONREF.
01782  M01S01605.kronref +++|*
01783  M01S01606.kronref +++|*         ENTRY  (A0) = FL.
01784  M01S01607.kronref +++|*
01785  M01S01608.kronref +++|*         EXIT   (FL) = FL - 10B.
01786  M01S01609.kronref +++|*
Line S01610 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01787  M02S01610.ns22000 ---|*         USES   X - 1, 2, 3, 4, 6.
01788  M01S00084.ns22000 +++|*         USES   X - 1, 3, 4, 6.
01789  M01S01611.kronref +++|*                A - 0, 1, 4, 6.
01790  M01S01612.kronref +++|*                B - 4, 5.
01791  M01S01613.kronref +++|*
01792  M01S01614.kronref +++|*         CALLS  ARG, SFN.
01793  M01S01615.kronref +++|*
Line S01616 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01794  M02S01616.ns22000 ---|*         MACROS ASSIGN, CLOCK, DATE, REWIND.
01795  M01S00085.ns22000 +++|*         MACROS CLOCK, DATE, REWIND.
01796  M01S01617.kronref +++|
01797  M01S01618.kronref +++|
01798  M01S01619.kronref +++| PRS      SUBR               ENTRY/EXIT
01799  M01S01620.kronref +++|          SX6    A0-10B
01800  M01S01621.kronref +++|          SA6    FL
01801  M01S00052.kronr1  +++|          MEMORY CM,TOVB,R   GET CURRENT FL/MAXIMUM FL
01802  M01S01622.kronref +++|          CLOCK  TIME        REQUEST TIME
01803  M01S01623.kronref +++|          DATE   DATE        REQUEST DATE
01804  M01S01624.kronref +++|          SA1    ACTR        SET ARGUMENT COUNT
01805  M01S01625.kronref +++|          SB4    X1
01806  M01S01626.kronref +++|          ZR     B4,PRS1     IF NO ARGUMENTS
01807  M01S01627.kronref +++|          SB5    PRSA
01808  M01S01628.kronref +++|          SA4    ARGR
01809  M01S01629.kronref +++|          RJ     ARG         PROCESS ARGUMENTS
01810  M01S01630.kronref +++|          SA0    =C* ERROR IN KRONREF ARGUMENTS.*
01811  M01S01631.kronref +++|          NZ     X1,ABT      IF ARGUMENT ERRORS
01812  M01S01632.kronref +++| PRS1     REWIND P,R
Line S01633 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01813  M02S01633.ns22000 ---|          SA1    P+6
Line S01634 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01814  M02S01634.ns22000 ---|          NZ     X1,PRS2     IF FILE AVAILIABLE
Line S01635 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01815  M02S01635.ns22000 ---|          ASSIGN P
Line S01636 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01816  M02S01636.ns22000 ---|          SA1    P           CHECK STATUS
Line S01637 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01817  M02S01637.ns22000 ---|          SX2    X1
Line S01638 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01818  M02S01638.ns22000 ---|          AX2    10
Line S01639 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01819  M02S01639.ns22000 ---|          SA0    =C* PROGRAM LIBRARY NOT AVAILABLE.*
Line S01640 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01820  M02S01640.ns22000 ---|          NZ     X2,ABT      IF FILE NOT ASSIGNED
Line S01641 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01821  M02S01641.ns22000 ---|          REWIND P
Line S01642 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01822  M02S01642.ns22000 ---| PRS2     SA1    P
01823  M01S00086.ns22000 +++|          SA1    P
01824  M01S01643.kronref +++|          MX3    42
01825  M01S01644.kronref +++|          BX1    X3*X1
01826  M01S01645.kronref +++|          RJ     SFN         SPACE FILL FILE NAME
01827  M01S01646.kronref +++|          SA6    PLNM
01828  M01S00087.ns22000 +++|          RJ     IPP         INITALIZE PAGE PARAMETERS
01829  M01S01647.kronref +++|          EQ     PRSX        RETURN
01830  M01S01648.kronref +++| PRSA     SPACE  4,10
01831  M01S01649.kronref +++|**        PRSA - CONTROL CARD ARGUMENT VALUES.
01832  M01S01650.kronref +++|
01833  M01S01651.kronref +++|
01834  M01S01652.kronref +++| PRSA     BSS    0
01835  M01S01653.kronref +++| L        ARG    O,O         OUTPUT FILE
01836  M01S01654.kronref +++| P        ARG    P,P         OPL FILE NAME
01837  M01S01655.kronref +++| S        ARG    =0LNOSTEXT,LSSA
01838  M01S01656.kronref +++| G        ARG    =0LTEXT,LSSB USER SUPPLIED TEXT FILE
01839  M01S01657.kronref +++|          ARG                END OF THE TABLE
01840  M01S00088.ns22000 +++| IPP      SPACE  4,15
01841  M01S00089.ns22000 +++|**        IPP - INITIALIZE PAGE PARAMETERS.
01842  M01S00090.ns22000 +++|*
01843  M01S00091.ns22000 +++|*         EXIT   (LL) = LINE LIMIT.
01844  M01S00092.ns22000 +++|*                (PD) = PRINT DENSITY IF NOT TERMINAL OUTPUT FILE.
01845  M01S00093.ns22000 +++|*                     = 0 IF TERMINAL OUTPUT FILE.
01846  M01S00094.ns22000 +++|*
01847  M01S00095.ns22000 +++|*         USES   X - 2, 6.
01848  M01S00096.ns22000 +++|*                A - 6.
01849  M01S00097.ns22000 +++|*
01850  M01S00098.ns22000 +++|*         CALLS  STF.
01851  M01S00099.ns22000 +++|*
01852  M01S00100.ns22000 +++|*         MACROS GETPP.
01853  M01S00101.ns22000 +++|
01854  M01S00102.ns22000 +++|
01855  M01S00103.ns22000 +++| IPP      SUBR               ENTRY/EXIT
01856  M01S00104.ns22000 +++|          GETPP  IPPA,LL,PD
01857  M01S00105.ns22000 +++|          SX2    O           OUTPUT FILE FET ADDRESS
01858  M01S00106.ns22000 +++|          RJ     STF         SET TERMINAL FILE
01859  M01S00107.ns22000 +++|          NZ     X6,IPPX     IF NOT TERMINAL FILE
01860  M01S00108.ns22000 +++|          SA6    PD
01861  M01S00109.ns22000 +++|          EQ     IPPX        RETURN
01862  M01S00110.ns22000 +++|
01863  M01S00111.ns22000 +++| IPPA     BSS    2           *GETPP* RESPONSE BLOCK
01864  M01S01658.kronref +++| LSS      SPACE  4,10
01865  M01S01659.kronref +++|**        LSS - LOAD SYSTEMS SYMBOLS.
01866  M01S01660.kronref +++|*
01867  M01S01661.kronref +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
01868  M01S01662.kronref +++|*                A - 0, 1, 2, 3, 4, 6, 7.
01869  M01S01663.kronref +++|*                B - 2, 3, 4, 5, 6, 7.
01870  M01S01664.kronref +++|*
01871  M01S01665.kronref +++|*         CALLS  ATS, SFN.
01872  M01S01666.kronref +++|*
01873  M01S01667.kronref +++|*         MACROS ALLOC, OVERLAY, VERSION.
01874  M01S01668.kronref +++|
01875  M01S01669.kronref +++|
01876  M01S01670.kronref +++| LSS      SUBR               ENTRY/EXIT
01877  M01S01671.kronref +++|          SA1    LSSB        CHECK TEXT FROM LOCAL FILE
01878  M01S01672.kronref +++|          ZR     X1,LSS1     IF TEXT FROM SYSTEM
01879  M01S01673.kronref +++|          RJ     SFN         SET TEXT NAME
01880  M01S01674.kronref +++|          SA6    TX          SET SYSTEXT PRESENT
01881  M01S01675.kronref +++|          SA6    TXNM
01882  M01S01676.kronref +++|          OVERLAY LSSB,101B,,MTBS  LOAD TEXT
01883  M01S01677.kronref +++|          JP     LSS2        NO SYSTEM TEXT
01884  M01S01678.kronref +++|
01885  M01S01679.kronref +++| LSS1     SA1    LSSA        SET TEXT NAME
01886  M01S01680.kronref +++|          ZR     X1,LSSX     IF S=0
01887  M01S01681.kronref +++|          RJ     SFN
01888  M01S01682.kronref +++|          SA6    TX          SET SYSTEXT PRESENT
01889  M01S01683.kronref +++|          SA6    TXNM
01890  M01S01684.kronref +++|          VERSION LSSC
01891  M01S01685.kronref +++|          OVERLAY LSSA,101B,SYSTEM,MTBS LOAD TEXT
Line S01686 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01892  M02S01686.ns22000 ---| LSS2     SA0    =C* NO SYSTEM TEXT FOUND.*
Line S01687 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01893  M02S01687.ns22000 ---|          LX1    59-36
Line S01688 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01894  M02S01688.ns22000 ---|          MX0    42
Line S01689 Modification History
M01 (Added by) kronref
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01895  M02S01689.ns22000 ---|          NG     X1,ABT
01896  M01S00112.ns22000 +++| LSS2     MX0    42
01897  M01S01690.kronref +++|          SA0    =C* ERROR IN SYSTEM TEXT.*
01898  M01S01691.kronref +++|          SA1    MTBS+1      CHECK FIRST WORD OF TEXT
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/kronref.txt ยท Last modified: by 127.0.0.1