6 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.docment +++|          IDENT  DOCMENT,FETS
00002  M01S00002.docment +++|          ABS
00003  M01S00003.docment +++|          ENTRY  DOCMENT
00004  M01S00004.docment +++|          ENTRY  MFL=
00005  M01S00005.docment +++|          SYSCOM B1
00006  M01S00001.ns2573  +++|          LIST   F
00007  M01S00002.ns2573  +++|
00008  M01S00006.docment +++| DOCMENT  TITLE  DOCMENT - INTERNAL/EXTERNAL DOCUMENTATION PROGRAM.
00009  M01S00007.docment +++|*COMMENT  DOCMENT - INTERNAL/EXTERNAL DOCUMENTATION PROGRAM.

Seq #  *Modification Id* Act 
----------------------------+
00010  M02S00008.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP., 1976.
00011  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00012  M01S00009.docment +++|          SPACE  4,10
00013  M01S00010.docment +++|***       DOCMENT - INTERNAL/EXTERNAL DOCUMENTATION PROGRAM.
00014  M01S00011.docment +++|*         R.S. HORECK        70/07/06.
00015  M01S00012.docment +++|          SPACE  4
00016  M01S00013.docment +++|***       CONTROL CARD CALL.
00017  M01S00014.docment +++|*
00018  M01S00015.docment +++|*         DOCMENT(P1,P2,P3,,,PN)
00019  M01S00016.docment +++|*
00020  M01S00017.docment +++|*         THE PARAMETERS P(I) MAY INCLUDE THE FOLLOWING (IN ANY ORDER)
00021  M01S00018.docment +++|*                  AND MUST BE IN ONE OF THE FORMS -
00022  M01S00019.docment +++|*
00023  M01S00020.docment +++|*                 * * - (NONE) ASSUME FIRST DEFAULT VALUE.
00024  M01S00021.docment +++|*                  P - ASSUME ALTERNATE DEFAULT VALUE.
00025  M01S00022.docment +++|*                 P=X - SUBSTITUTE *X* FOR ANY ASSUMED VALUE OF *P*.
00026  M01S00023.docment +++|*
00027  M01S00024.docment +++|*         ANY NUMERIC PARAMETER MAY BE SPECIFIED WITH A POST RADIX
00028  M01S00025.docment +++|*                TO CLARIFY ITS VALUE. THE RADIX MAY BE *D* OR *B*.
00029  M01S00026.docment +++|*
00030  M01S00027.docment +++|*         I - INPUT FILE NAME ON WHICH TO FIND PAGE FOOTING INFORMATION.
00031  M01S00028.docment +++|*                  THIS MUST BE A SINGLE CARD OF THE FORMAT -
00032  M01S00029.docment +++|*                  COLUMN(S)       - CONTENTS -
00033  M01S00030.docment +++|*                     2-45   DOCUMENT TITLE - COLUMN 1 MUST BE BLANK.
00034  M01S00031.docment +++|*                    46-55   PUBLICATION NUMBER.
00035  M01S00032.docment +++|*                    56-60   REVISION LEVEL.
00036  M01S00033.docment +++|*                    61-70   REVISION DATE.
00037  M01S00034.docment +++|*         S - FILE CONTAINING THE SOURCE CARD IMAGES FROM WHICH TO
00038  M01S00035.docment +++|*                EXTRACT THE DOCUMENTATION.  THIS FILE IS REWOUND
00039  M01S00036.docment +++|*                UNLESS THE *NR* PARAMETER IS SPECIFIED.
00040  M01S00037.docment +++|*         L - FILE ON WHICH DOCUMENTATION IS TO BE WRITTEN.
00041  M01S00038.docment +++|*         N - NUMBER OF COPIES TO BE PRODUCED.
00042  M01S00039.docment +++|*         T - DOCUMENTATION TYPE (INT OR EXT)
00043  M01S00040.docment +++|*         C - CHECK CHARACTER FOR DOCUMENTATION.
00044  M01S00041.docment +++|*         P - NUMBER OF PRINT LINES / PAGE.
00045  M01S00042.docment +++|*         NR - DISABLE REWIND ON THE *S* (SOURCE) FILE.
00046  M01S00043.docment +++|*         NT - NEGATE THE TABLE GENERATOR.
00047  M01S00044.docment +++|*         TC - LIST TABLE OF CONTENTS.
00048  M01S00045.docment +++|*
00049  M01S00046.docment +++|*         DEFAULT PARAMETER SUBSTITUTION VALUES -
00050  M01S00047.docment +++|*
00051  M01S00048.docment +++|*                      FIRST   ALTERNATE
00052  M01S00049.docment +++|*         PARAMETER   DEFAULT   DEFAULT   - COMMENT -
00053  M01S00050.docment +++|*
00054  M01S00051.docment +++|*            I          *0*     *INPUT*   PAGE FOOT INFORMATION.
00055  M01S00052.docment +++|*            S       *COMPILE*  *SOURCE*  SOURCE CARD IMAGES.
00056  M01S00053.docment +++|*            L        *OUTPUT*  *OUTPUT*  LIST FILE.
00057  M01S00054.docment +++|*            N           1         1      DECIMAL NUMBER OF COPIES.
00058  M01S00055.docment +++|*            T         *EXT*     *INT*    DOCUMENTATION TYPE.
00059  M01S00056.docment +++|*            C          -*-      *03*     CHECK CHAR. (2 OCTAL DIGITS)

Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00057.ns22000 ---|*            P         *60*      *80*     NUMBER OF PRINT LINES/PAGE.
00061  M01S00001.ns22000 +++|*            P          PS        SPS     NUMBER OF PRINT LINES/PAGE.
00062  M01S00002.ns22000 +++|*                                           PS  = JOB PAGE SIZE.
00063  M01S00003.ns22000 +++|*                                           SPS = SYSTEM PAGE SIZE.
00064  M01S00058.docment +++|*            NR       REWIND   NO REWIND  STATUS OF SOURCE FILE REWIND.
00065  M01S00059.docment +++|*            NT         ON        OFF     STATUS OF TABLE GENERATOR.
00066  M01S00060.docment +++|*            TC        OFF        ON      STATUS OF TABLE OF CONTENTS.
00067  M01S00061.docment +++|          SPACE  4,10
00068  M01S00062.docment +++|***       DOCUMENTATION FOLLOWS THE FOLLOWING RULES.
00069  M01S00063.docment +++|*
00070  M01S00064.docment +++|*         EXTERNAL DOCUMENTATION -
00071  M01S00065.docment +++|*                THREE ASTERISKS STARTING IN COLUMN 1 START DOCUMEN-
00072  M01S00066.docment +++|*                TATION WHICH CONTINUES UNTIL ALL CONSECUTIVE CARDS
00073  M01S00067.docment +++|*                WITH COLUMN 1 ASTERISKS HAVE BEEN EXHAUSTED.
00074  M01S00068.docment +++|*
00075  M01S00069.docment +++|*         INTERNAL DOCUMENTATION -
00076  M01S00070.docment +++|*                TWO OR THREE ASTERISKS STARTING IN COLUMN 1 START DOC-
00077  M01S00071.docment +++|*                UMENTATION WHICH CONTINUES UNTIL ALL CONSECUTIVE CARDS
00078  M01S00072.docment +++|*                CONTAINING COLUMN 1 ASTERISKS HAVE BEEN EXHAUSTED.
00079  M01S00073.docment +++|*
00080  M01S00074.docment +++|*                IN ADDITION, ANY CARD WITH FOUR (4) ASTERISKS STARTING
00081  M01S00075.docment +++|*                IN COLUMN 1 ACTS AS A TOGGLE FOR DOCUMENTATION. IN THIS
00082  M01S00076.docment +++|*                MANNER WHEN A CARD IS FOUND TO CONTAIN 4 ASTERISKS
00083  M01S00077.docment +++|*                STARTING IN COLUMN 1, THAT CARD AND ALL SUCCEEDING
00084  M01S00078.docment +++|*                CARDS THROUGH ANOTHER LIKE CARD (REGARDLESS OF THE
00085  M01S00079.docment +++|*                COLUMN 1 CHARACTER) ARE CONSIDERED TO BE PART OF THE
00086  M01S00080.docment +++|*                DOCUMENTATION.
00087  M01S00081.docment +++|*
00088  M01S00082.docment +++|*         DOCUMENTATION FORMAT -
00089  M01S00083.docment +++|*
00090  M01S00084.docment +++|*                EACH PAGE OF DOCUMENTATION IS COMPOSED OF 3 ELEMENTS
00091  M01S00085.docment +++|*
00092  M01S00086.docment +++|*                1. PAGE HEADER - THIS LINE GIVES THE FIRST 45 CHARAC-
00093  M01S00087.docment +++|*                            TERS (LEADING BLANKS SUPPRESSED) OF THE
00094  M01S00088.docment +++|*                            SUBPROGRAM HEADER (I.E. SUBROUTINE,IDENT,
00095  M01S00089.docment +++|*                            ETC.), THE CURRENT DATE, AND THE DOCUMEN-
00096  M01S00090.docment +++|*                            TATION TYPE (EXT OR INT).
00097  M01S00091.docment +++|*                2. DOCUMENTATION TEXT - DOCUMENTATION EXTRACTED FROM
00098  M01S00092.docment +++|*                            THE SOURCE CARDS (EACH SUBGROUP SEPARATED
00099  M01S00093.docment +++|*                            BY 4 BLANK LINES).
00100  M01S00094.docment +++|*                3. PAGE FOOTING - THIS LINE INCLUDES THE 70 CHARACTERS
00101  M01S00095.docment +++|*                            READ FROM THE *INPUT* FILE AND THE PAGE
00102  M01S00096.docment +++|*                            NUMBER OF THE FORM *X/Y* WHERE - X IS THE
00103  M01S00097.docment +++|*                            NUMBER OF THE SUBPROGRAM (CHAPTER) AND Y
00104  M01S00098.docment +++|*                            IS THE PAGE WITHIN THIS CHAPTER.
00105  M01S00099.docment +++|*
00106  M01S00100.docment +++|*         SPECIAL CARD TYPES -
00107  M01S00101.docment +++|*
00108  M01S00102.docment +++|*         DOCUMENTATION CARDS CONTAINING *E IN COLUMNS 1 AND 2 CAUSE
00109  M01S00103.docment +++|*                THE PAGE TO BE EJECTED.
00110  M01S00104.docment +++|*
00111  M01S00105.docment +++|*         DOCUMENTATION CARDS CONTAINING *T IN COLUMNS 1 AND 2 ACTIVATE
00112  M01S00106.docment +++|*                THE TABLE WRITER.
00113  M01S00107.docment +++|*                  FOR EXAMPLE, THE CARD -
00114  M01S00108.docment +++|*  *T  EXAMPLE  24/PP PROGRAM NAME+RECALL,18/PARAMETER 1,18/PARAMETER 2
00115  M01S00109.docment +++|*                  WOULD GENERATE THE FOLLOWING TABLE PICTURE -
00116  M01S00110.docment +++|*
00117  M01S00111.docment +++|*T  EXAMPLE  24/PP PROGRAM NAME+RECALL,18/PARAMETER 1,18/PARAMETER 2

Figure EXAMPL

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "PARAMETER 2", "bits": 18, "type": 3 },
{ "name": "PARAMETER 1", "bits": 18, "type": 2 },
{ "name": "PP PROGRAM NAME+RECALL", "bits": E  24, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00118  M01S00112.docment +++|*
00119  M01S00113.docment +++|*                  THE IDENTIFICATION *EXAMPLE* MAY BE OMITTED.
00120  M01S00114.docment +++|*                  EACH TIME A NEW BLOCK OF *T CARDS IS ENCOUNTERED,
00121  M01S00115.docment +++|*                  A BIT POSITION HEADER IS LISTED. THIS HEADER IS NOT
00122  M01S00116.docment +++|*                  LISTED FOR EACH CONSECUTIVE TABLE CARD OR FOR ANY
00123  M01S00117.docment +++|*                  CARD CONTAINING A NON-BLANK CHARACTER IN COLUMN 3 OF
00124  M01S00118.docment +++|*                  THE FIRST *T CARD IN A BLOCK.
00125  M01S00119.docment +++|*                  CARD FORMAT IS THE SAME AS FOR THE COMPASS *VFD*
00126  M01S00120.docment +++|*                  PSEUDO INSTRUCTION, HOWEVER, NO *VFD* MAY BE PRESENT.
00127  M01S00121.docment +++|*                  A SLASH */* MUST IMMEDIATELY FOLLOW A BIT COUNT
00128  M01S00122.docment +++|*                  FIELD, BUT LEADING SPACES ARE IGNORED.
00129  M01S00123.docment +++|*                  ALL BIT COUNTS FOR FIELD WIDTHS MAY BE SPECIFIED IN
00130  M01S00124.docment +++|*                  EITHER OCTAL OR DECIMAL. DECIMAL COUNTS ARE ASSUMED
00131  M01S00125.docment +++|*                  IN THE ABSENCE OF A POST-RADIX (B) OR (D).
00132  M01S00126.docment +++|*                  MAXIMUM PICTURE WIDTH IS 60 BITS.
00133  M01S00127.docment +++|*                  A SLASH SEPARATES FIELDS IN THE PICTURE AND THE
00134  M01S00128.docment +++|*                  BIT POSITION IT OCCUPIES IS INCLUDED IN THE FIELD
00135  M01S00129.docment +++|*                  TO ITS LEFT. SINGLE BIT FIELDS ARE LISTED WITHOUT
00136  M01S00130.docment +++|*                  A SLASH FIELD SEPARATOR. ALL TABLE ENTRY
00137  M01S00131.docment +++|*                  DESCRIPTION CARDS WITHIN A *T BLOCK ARE CONSIDERED
00138  M01S00132.docment +++|*                  TO HAVE THE SAME TOTAL NUMBER OF BITS.
00139  M01S00133.docment +++|*                  FIELD LABELS ARE LEFT JUSTIFIED WITHIN THE FIELD
00140  M01S00134.docment +++|*                  AND WILL BE TRUNCATED IF THE LABEL CONTAINS MORE
00141  M01S00135.docment +++|*                  CHARACTERS THAN THE BIT COUNT MINUS 1.
00142  M01S00136.docment +++|*                  IF THE THIRD CHARACTER ON THE CARD IS NON-BLANK, NO
00143  M01S00137.docment +++|*                  BIT COUNT HEADER WILL BE PLACED ABOVE THE TABLE
00144  M01S00138.docment +++|*                  ENTRY. SINGLE BIT FIELDS WILL BE LISTED WITH A *+*
00145  M01S00139.docment +++|*                  BELOW THE FIELD POSITION. THE ONLY EXCEPTION TO THIS
00146  M01S00140.docment +++|*                  IS THE CASE WHERE ONLY ONE TABLE ENTRY IS LISTED. IN
00147  M01S00141.docment +++|*                  THIS INSTANCE THE *+* WILL BE LISTED BOTH ABOVE AND
00148  M01S00142.docment +++|*                  BELOW THE FIELD POSITION.
00149  M01S00143.docment +++|*
00150  M01S00144.docment +++|*         ALL LOADER CONTROL CARDS (I.E. OVERLAY,SECTION,ETC.) ARE
00151  M01S00145.docment +++|*                CONSIDERED SPECIAL AND THEIR IMAGES ARE PLACED ALONG
00152  M01S00146.docment +++|*                WITH THE PAGE NUMBER AT THE FOOT OF EACH SUBPROGRAM
00153  M01S00147.docment +++|*                ENCOMPASSED BY THE SCOPE OF THE DIRECTIVE.
00154  M01S00148.docment +++|*         ALL *END* CARDS ARE CONSIDERED SPECIAL SINCE THEY TERMINATE A
00155  M01S00149.docment +++|*                CHAPTER.
00156  M01S00150.docment +++|*         IN COMPASS THE FOLLOWING CARDS ALSO HAVE SPECIAL MEANING -
00157  M01S00151.docment +++|*                TITLE - THE FIRST TITLE CARD REPLACES THE PAGE HEADER
00158  M01S00152.docment +++|*                            WITH ITS CONTENTS (IF NON-BLANK).
00159  M01S00153.docment +++|*                            SUBSEQUENT TITLE CARDS ARE IGNORED.
00160  M01S00154.docment +++|*                LIST - THE PARAMETERS *X* AND *L* ARE PROCESSED. IF A
00161  M01S00155.docment +++|*                            *-L* IS ENCOUNTERED ALL DOCUMENTATION IS
00162  M01S00156.docment +++|*                            SUPRESSED UNTIL A *LIST L* CARD IS ENCOUN-
00163  M01S00157.docment +++|*                            TERED. IF A *-X* (ASSUMED) IS ENCOUNTERED,
00164  M01S00158.docment +++|*                            NO DOCUMENTATION WILL BE PROCESSED ON
00165  M01S00159.docment +++|*                            COMMON TEXT *CTEXT* UNTIL A *LIST X* CARD
00166  M01S00160.docment +++|*                            IS FOUND.  ONLY A DEFINED NUMBER OF LIST
00167  M01S00161.docment +++|*                            CARDS MAY BE PROCESSED.  THIS NUMBER IS
00168  M01S00162.docment +++|*                            DEFINED BY THE TAG *NLCA*.  EACH (LIST *)
00169  M01S00163.docment +++|*                            CARD ALLOWS AN EXTRA LIST CARD TO BE
00170  M01S00164.docment +++|*                            PROCESSED ABOVE THE NUMBER *NLCA*.
00171  M01S00165.docment +++|*                CTEXT,ENDX - BRACKET CARDS SURROUNDING COMMON TEXT -
00172  M01S00166.docment +++|*                            NO DOCUMENTATION IS LISTED UNLESS A *LIST
00173  M01S00167.docment +++|*                            X* CARD HAS BEEN ENCOUNTERED.
00174  M01S00001.docme2  +++|*                COL - DATA BEYOND THE COMMENT COLUMN IS NOT
00175  M01S00002.docme2  +++|*                            EXAMINED FOR KEYWORDS.  IF A *COL*
00176  M01S00003.docme2  +++|*                            CARD IS ENCOUNTERED, THE COMMENT
00177  M01S00004.docme2  +++|*                            COLUMN IS CHANGED TO THE COLUMN
00178  M01S00005.docme2  +++|*                            SPECIFIED ON THE *COL* CARD.
00179  M01S00168.docment +++|          TITLE  DATA DEFINITION.
00180  M01S00169.docment +++|*         CONSTANTS.
00181  M01S00170.docment +++|
00182  M01S00171.docment +++| SBUFL    EQU    201B        LENGTH OF TABLE OF CONTENTS BUFFER
00183  M01S00172.docment +++| BFSZ     EQU    3001B       BUFFER SIZE
00184  M01S00173.docment +++| NBFS     EQU    2           NUMBER OF BUFFERS
00185  M01S00174.docment +++| NCR      EQU    72          NUMBER OF CHARACTERS TO READ FROM A CARD
00186  M01S00175.docment +++| NLCA     EQU    24          NUMBER OF LIST CARDS ALLOWED
00187  M01S00176.docment +++| FLP      EQU    7           NUMBER OF HEADER FOOTER LINES
00188  M01S00004.ns22000 +++| MPGS     EQU    16D         MINIMUM PAGE SIZE
00189  M01S00177.docment +++|          SPACE  4,10
00190  M01S00178.docment +++|*CALL     COMCMAC
00191  M01S00005.ns22000 +++|*CALL     COMCCMD
00192  M01S00179.docment +++|          SPACE  4,10
00193  M01S00180.docment +++|          ORG    110B
00194  M01S00181.docment +++|
00195  M01S00182.docment +++| FETS     BSS    0
00196  M01S00183.docment +++|
00197  M01S00184.docment +++|
00198  M01S00185.docment +++| S        VFD    42/0LCOMPILE,18/3 FETS FOR INPUT AND SOURCE
00199  M01S00186.docment +++|
00200  M01S00187.docment +++| O        VFD    42/0LOUTPUT,18/3  FETS FOR OUTPUT AND SCRATCH
00201  M01S00188.docment +++|
00202  M01S00189.docment +++| SCR1     FILEB  BUF,BFSZ
00203  M01S00190.docment +++|
00204  M01S00191.docment +++| SCR2     FILEB  SBUF,SBUFL
00205  M01S00192.docment +++|
00206  M01S00193.docment +++| I        BSS    0
00207  M01S00194.docment +++| INPUT    FILEB  BUF+BFSZ,BFSZ
00208  M01S00195.docment +++| INPX     EQU    *
00209  M01S00196.docment +++|          ORG    INPUT
00210  M01S00197.docment +++|          CON    0
00211  M01S00198.docment +++|          ORG    INPX
00212  M01S00199.docment +++|
00213  M01S00200.docment +++|*         TABLE OF SPECIAL NAMES.
00214  M01S00201.docment +++|
00215  M01S00202.docment +++| TNM      VFD    60/-0       10 CHAR MASK
00216  M01S00203.docment +++|          DATA   10HSUBROUTINE
00217  M01S00204.docment +++|          DATA   10HPRECISION
00218  M01S00205.docment +++|          VFD    48/-0,12/   8 CHAR MASK
00219  M01S00206.docment +++|          DATA   8LFUNCTION
00220  M01S00207.docment +++|          VFD    42/-0,18/   7 CHAR MASK
00221  M01S00208.docment +++|          DATA   7LPROGRAM
00222  M01S00209.docment +++|          DATA   7LINTEGER
00223  M01S00210.docment +++|          DATA   7LFORTRAN
00224  M01S00211.docment +++|          DATA   7LLOGICAL
00225  M01S00212.docment +++|          DATA   7LOVERLAY
00226  M01S00213.docment +++|          DATA   7LSEGMENT
00227  M01S00214.docment +++|          DATA   7LSECTION
00228  M01S00215.docment +++|          DATA   7LSEGZERO
00229  M01S00216.docment +++|          DATA   7LCHNLINK
00230  M01S00217.docment +++|          VFD    36/-0,24/   6 CHAR MASK
00231  M01S00218.docment +++|          DATA   6LDOUBLE
00232  M01S00219.docment +++|          DATA   6LSINGLE
00233  M01S00220.docment +++|          VFD    30/-0,30/   5 CHAR MASK
00234  M01S00221.docment +++|          DATA   5LIDENT
00235  M01S00222.docment +++|          DATA   5LBLOCK
00236  M01S00223.docment +++|          VFD    24/-0,36/   4 CHAR MASK
00237  M01S00224.docment +++|          DATA   4LTYPE
00238  M01S00225.docment +++|          DATA   4LDATA
00239  M01S00226.docment +++|          DATA   4LREAL
00240  M01S00227.docment +++|          VFD    12/-0,48/   2 CHAR MASK
00241  M01S00228.docment +++|          DATA   2LII
00242  M01S00229.docment +++|          DATA   2LIV
00243  M01S00230.docment +++|          DATA   2LVI
00244  M01S00231.docment +++|          VFD    60/         END OF TABLE
00245  M01S00232.docment +++|          SPACE  4
00246  M01S00233.docment +++|*         VARIABLES.
00247  M01S00234.docment +++|
00248  M01S00235.docment +++| NAS      DATA   20          NUMBER OF ASTERISKS NECESSARY IN THE FIRST
00249  M01S00236.docment +++| MAS      DATA   3           MINIMUM NUMBER OF ASTERISKS NEEDED FOR DOC
00250  M01S00237.docment +++| XFL      DATA   0           LIST X FLAG
00251  M01S00238.docment +++|                             FOUR COLUMNS TO TURN TOGGLE
00252  M01S00239.docment +++| TOG      DATA   0           TOGGLE FOR **** CARDS (INT ONLY) 0=NO,1=YES
00253  M01S00240.docment +++| PTYP     CON    0           PROGRAM TYPE (0=*COMPASS*, 1=FORTRAN)
00254  M01S00241.docment +++| FCR      DATA   1           FIRST COLUMN TO CHECK ON INPUT CARD
00255  M01S00006.docme2  +++| CCM      DATA   30          COLUMN FOR COMMENTS

Seq #  *Modification Id* Act 
----------------------------+
00256  M02S00242.ns22000 ---| LCT      VFD    60/LINP+7   LINE COUNT

Seq #  *Modification Id* Act 
----------------------------+
00257  M02S00243.ns22000 ---| LLM      CON    LINP        MAXIMUM NUMBER OF LINES PER PAGE
00258  M01S00006.ns22000 +++| LCT      BSS    1           LINE COUNT
00259  M01S00007.ns22000 +++| LLM      BSS    1           MAXIMUM NUMBER OF LINES PER PAGE
00260  M01S00008.ns22000 +++| PD       BSS    1           PRINT DENSITY
00261  M01S00009.ns22000 +++|
00262  M01S00010.ns22000 +++| HDSL1    BSS    1           HEADING SUBLENGTH 1
00263  M01S00011.ns22000 +++| HDSL2    BSS    1           HEADING SUBLENGTH 2
00264  M01S00012.ns22000 +++|
00265  M01S00244.docment +++|
00266  M01S00245.docment +++| HDG      BSS    5           HEADING LINE
00267  M01S00246.docment +++| HDG1     CON    0           DATE
00268  M01S00247.docment +++| HDG2     DATA   10H EXTERNAL
00269  M01S00248.docment +++|          CON    0           END OF LINE
00270  M01S00249.docment +++|

Seq #  *Modification Id* Act 
----------------------------+
00271  M02S00250.281l803 ---| FOT      DATA   40H CONTROL DATA CORPORATION DOCUMENTATION.
00272  M01S00002.281l803 +++| FOT      DATA   40H CONTROL DATA SYSTEMS DOCUMENTATION.
00273  M01S00251.docment +++|          DATA   30H
00274  M01S00252.docment +++|          BSSZ   1           END OF LINE FLAG
00275  M01S00253.docment +++| SBF      DATA   10H
00276  M01S00254.docment +++|          DUP    5,1
00277  M01S00255.docment +++|          DATA   10H
00278  M01S00256.docment +++| PGE      VFD    42/7H  PAGE ,18/
00279  M01S00257.docment +++|          BSSZ   1           SUBPAGE NUMBER
00280  M01S00258.docment +++|
00281  M01S00259.docment +++| CHP      BSSZ   1           CHAPTER COUNT
00282  M01S00260.docment +++| SPG      BSSZ   1           SUBCHAPTER PAGE COUNT
00283  M01S00261.docment +++| EDAS     DATA   3           SAME AS MAS
00284  M01S00262.docment +++| IDAS     DATA   20          SAME AS NAS
00285  M01S00263.docment +++| FLF      DATA   0           FIRST LINE LISTED FLAG
00286  M01S00264.docment +++| PCT      DATA   0           PAGE COUNT FOR PAGE PARITY CHECK
00287  M01S00265.docment +++|
00288  M01S00266.docment +++|*         INPUT PARAMETERS.
00289  M01S00267.docment +++|
00290  M01S00268.docment +++| N        CON    1L1
00291  M01S00269.docment +++| T        CON    0LEXT
00292  M01S00270.docment +++| C        CON    0L47B

Seq #  *Modification Id* Act 
----------------------------+
00293  M02S00271.ns22000 ---| UCI      DECMIC LINP,2

Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00272.ns22000 ---| P        CON    0L"UCI"D
00295  M01S00013.ns22000 +++| P        CON    0           LINES PER PAGE
00296  M01S00273.docment +++| NR       CON    0           DISABLE SOURCE FILE REWIND
00297  M01S00274.docment +++| NT       CON    0
00298  M01S00275.docment +++| TC       CON    0
00299  M01S00276.docment +++| NI       CON    0
00300  M01S00277.docment +++|          TITLE  MAIN PROGRAM.
00301  M01S00278.docment +++|**        DOCMENT - MAIN PROGRAM.
00302  M01S00279.docment +++|
00303  M01S00280.docment +++|
00304  M01S00281.docment +++| DOCMENT  SB1    1

Seq #  *Modification Id* Act 
----------------------------+
00305  M02S00282.docme2  ---|          RJ     SES         SET EQUAL SIGNS IN PARAMETER LIST
00306  M01S00014.ns22000 +++|          RJ     IPP         INITIALIZE PAGE PARAMETERS
00307  M01S00283.docment +++|          SA1    ACTR        GET ARGUMENT COUNT
00308  M01S00284.docment +++|          R=     A4,ARGR     FIRST ARGUMENT
00309  M01S00285.docment +++|          SB4    X1
00310  M01S00286.docment +++|          SB5    ARGA        ADDRESS OF ARGUMENT TABLE
00311  M01S00287.docment +++|          RJ     ARG         PROCESS ARGUMENTS
00312  M01S00288.docment +++|          NZ     X1,DOC7     IF ERROR IN ARGUMENTS
00313  M01S00289.docment +++|          RJ     CKO         CHECK OPTIONS
00314  M01S00015.ns22000 +++|          RJ     CTF         CHECK TERMINAL FILE
00315  M01S00016.ns22000 +++|          RJ     CTP         CALCULATE TITLE PAGE
00316  M01S00290.docment +++|          REWIND SCR2,R      REWIND SCRATCH FILE
00317  M01S00291.docment +++|          REWIND SCR1,R      REWIND SCRATCH FILE
00318  M01S00292.docment +++|          RJ     RIF         READ INPUT FILE
00319  M01S00293.docment +++|          SA5    S           CHANGE FILE NAME OF INPUT
00320  M01S00294.docment +++|          BX6    X5
00321  M01S00295.docment +++|          SA6    I
00322  M01S00296.docment +++|          SA1    NR
00323  M01S00297.docment +++|          NZ     X1,DOC0.1   IF NO REWIND OF SOURCE FILE
00324  M01S00298.docment +++|          REWIND A6,R        REWIND SOURCE FILE
00325  M01S00299.docment +++| DOC0.1   READ   I           BEGIN READING SOURCE CODE

Seq #  *Modification Id* Act 
----------------------------+
00326  M02S00300.ns22000 ---|          SA2    LLM

Seq #  *Modification Id* Act 
----------------------------+
00327  M02S00301.ns22000 ---|          SX2    X2-61

Seq #  *Modification Id* Act 
----------------------------+
00328  M02S00302.ns22000 ---|          NG     X2,DOC1

Seq #  *Modification Id* Act 
----------------------------+
00329  M02S00303.ns22000 ---|          SX6    1RT

Seq #  *Modification Id* Act 
----------------------------+
00330  M02S00304.ns22000 ---|          LX6    9*6

Seq #  *Modification Id* Act 
----------------------------+
00331  M02S00305.ns22000 ---|          WRITEO SCR1

Seq #  *Modification Id* Act 
----------------------------+
00332  M02S00306.ns22000 ---|          MX1    0
00333  M01S00307.docment +++| DOC1     READS  I,DCD,NCR   READ INPUT CARD
00334  M01S00308.docment +++|          NZ     X1,DOC2     IF EOR/EOF
00335  M01S00309.docment +++|          RJ     PRC         PROCESS SUBPROGRAM
00336  M01S00310.docment +++|          EQ     DOC1
00337  M01S00311.docment +++|
00338  M01S00312.docment +++| DOC2     NG     X1,DOC3     IF EOF
00339  M01S00313.docment +++|          SA5    S
00340  M01S00314.docment +++|          BX6    X5
00341  M01S00315.docment +++|          SA6    X2          RESET FILE NAME
00342  M01S00316.docment +++|          SA1    SBF         CLEAR SUB-FOOT LINE
00343  M01S00317.docment +++|          BX6    X1
00344  M01S00318.docment +++|          LX7    X1
00345  M01S00319.docment +++|          SA6    A1+B1       STORE FIRST BLANK
00346  M01S00320.docment +++|          SA7    A6+B1       STORE SECOND BLANK
00347  M01S00321.docment +++|          SA6    A7+B1       STORE THIRD BLANK
00348  M01S00322.docment +++|          SA7    A6+B1       STORE FOURTH BLANK
00349  M01S00323.docment +++|          SA6    A7+B1       STORE FIFTH BLANK
00350  M01S00324.docment +++|          READ   X2          INITIATE READ
00351  M01S00325.docment +++|          EQ     DOC1        GO TILL EOF
00352  M01S00326.docment +++|
00353  M01S00327.docment +++| DOC3     SA1    PCT         CHECK PAGE PARITY
00354  M01S00328.docment +++|          SX6    B1
00355  M01S00329.docment +++|          BX6    X6*X1
00356  M01S00330.docment +++|          ZR     X6,DOC4     IF EVEN PAGE COUNT
00357  M01S00331.docment +++|          WRITEC SCR1,(=2L1 )
00358  M01S00332.docment +++| DOC4     WRITER SCR1,R      WRITE EOR ON SCRATCH FILE
00359  M01S00333.docment +++|          WRITER SCR2,R
00360  M01S00334.docment +++|          MESSAGE (=C* COPYING OUTPUT.*),1
00361  M01S00335.docment +++|          RJ     FCN         FORMAT TABLE OF CONTENTS
00362  M01S00336.docment +++|
00363  M01S00337.docment +++| DOC5     REWIND SCR1,R      REWIND SCRATCH FILE
00364  M01S00338.docment +++|          SA5    O           CHANGE FILE NAME ON INPUT
00365  M01S00339.docment +++|          MX7    0
00366  M01S00340.docment +++|          SA7    I
00367  M01S00341.docment +++|          READ   I           SET FIRST=IN=OUT
00368  M01S00342.docment +++|          BX6    X5
00369  M01S00343.docment +++|          SA6    X2          STORE NEW FILE NAME
00370  M01S00344.docment +++|          READ   SCR1
00371  M01S00345.docment +++|          RJ     CPY         COPY THE FILE TO OUTPUT
00372  M01S00346.docment +++|          SA1    N
00373  M01S00347.docment +++|          SX6    X1-1        DECREMENT COPY COUNT
00374  M01S00348.docment +++|          SA6    A1
00375  M01S00349.docment +++|          NZ     X6,DOC5     IF NOT FINISHED
00376  M01S00350.docment +++| DOC6     RETURN SCR1,R
00377  M01S00351.docment +++|          RETURN SCR2,R
00378  M01S00352.docment +++|          MESSAGE (=C* DOCUMENTATION COMPLETE.*)
00379  M01S00353.docment +++|          ENDRUN
00380  M01S00354.docment +++|
00381  M01S00355.docment +++| DOC7     MESSAGE (=C* ERROR IN DOCMENT ARGUMENTS.*)
00382  M01S00356.docment +++|          ABORT
00383  M01S00357.docment +++| PRC      TITLE  SUBROUTINES.
00384  M01S00358.docment +++|**        PRC - PROCESS SUBPROGRAM.
00385  M01S00359.docment +++|*
00386  M01S00360.docment +++|*         ENTRY  DCD - (DCD+NCR) = FIRST CARD FOLLOWING *END*.
00387  M01S00361.docment +++|*
00388  M01S00362.docment +++|*         EXIT   TO PROPER SUBPROGRAM MANAGER.
00389  M01S00363.docment +++|*
00390  M01S00364.docment +++|*         USES   A - 0, 2, 7.
00391  M01S00365.docment +++|*                B - 2, 5.
00392  M01S00366.docment +++|*                X - 0, 2, 3, 6, 7.
00393  M01S00367.docment +++|*
00394  M01S00368.docment +++|*         CALLS  GFW.
00395  M01S00369.docment +++|
00396  M01S00370.docment +++|
00397  M01S00371.docment +++| PRC      PS     0           ENTRY/EXIT
00398  M01S00372.docment +++|          SX7    B1          RESET FIRST CHARACTER SCAN
00399  M01S00373.docment +++|          SA7    FCR
00400  M01S00374.docment +++|          RJ     GFW         GET FIRST WORD
00401  M01S00375.docment +++|          SB2    -B1         SET PARAMETER COUNT
00402  M01S00376.docment +++|          SA2    TNM         BASE OF MNEMONIC TABLE
00403  M01S00377.docment +++| PRC1     BX0    X2          SET MASK
00404  M01S00378.docment +++| PRC2     SA2    A2+B1       GET CHECK WORD
00405  M01S00379.docment +++|          NG     X2,PRC1     IF MASK WORD
00406  M01S00380.docment +++|          SB2    B2+B1       BUMP PARAMETER COUNT
00407  M01S00381.docment +++|          ZR     X2,PRC      IF NOT SPECIAL CARD - END OF TABLE REACHED
00408  M01S00382.docment +++|          BX3    X0*X1
00409  M01S00383.docment +++|          IX6    X3-X2       CHECK NAME
00410  M01S00384.docment +++|          NZ     X6,PRC2     NO MATCH - LOOP
00411  M01S00385.docment +++|          JP     B2+PRC3     EXIT TO ROUTINE
00412  M01S00386.docment +++|
00413  M01S00387.docment +++| PRC3     BSS    0           START OF TABLE
00414  M01S00388.docment +++|          LOC    0
00415  M01S00389.docment +++| +        EQ     FTN         *SUBROUTINE*
00416  M01S00390.docment +++|
00417  M01S00391.docment +++| +        SB5    B5-B1       *PRECISION*
00418  M01S00392.docment +++|          EQ     SKP
00419  M01S00393.docment +++|
00420  M01S00394.docment +++| +        SB5    B5-2        *FUNCTION*
00421  M01S00395.docment +++|          EQ     FTN
00422  M01S00396.docment +++|
00423  M01S00397.docment +++| +        SB5    B5-3        *PROGRAM*
00424  M01S00398.docment +++|          EQ     FTN
00425  M01S00399.docment +++|
00426  M01S00400.docment +++| +        SB5    B5-3        *INTEGER*
00427  M01S00401.docment +++|          EQ     SKP
00428  M01S00402.docment +++|
00429  M01S00403.docment +++| +        SB5    B5-3        *FORTRAN*
00430  M01S00404.docment +++|          EQ     SKP
00431  M01S00405.docment +++|
00432  M01S00406.docment +++| +        SB5    B5-3        *LOGICAL*
00433  M01S00407.docment +++|          EQ     SKP
00434  M01S00408.docment +++|
00435  M01S00409.docment +++| +        SA0    PRC         *OVERLAY*
00436  M01S00410.docment +++|          EQ     SPC
00437  M01S00411.docment +++|
00438  M01S00412.docment +++| +        SA0    PRC         *SEGMENT*
00439  M01S00413.docment +++|          EQ     SPC
00440  M01S00414.docment +++|
00441  M01S00415.docment +++| +        SA0    PRC         *SECTION*
00442  M01S00416.docment +++|          EQ     SPC
00443  M01S00417.docment +++|
00444  M01S00418.docment +++| +        SA0    PRC         *SEGZERO*
00445  M01S00419.docment +++|          EQ     SPC
00446  M01S00420.docment +++|
00447  M01S00421.docment +++| +        SA0    PRC         *CHNLINK*
00448  M01S00422.docment +++|          EQ     SPC
00449  M01S00423.docment +++|
00450  M01S00424.docment +++| +        SB5    B5-4        *DOUBLE*
00451  M01S00425.docment +++|          EQ     SKP
00452  M01S00426.docment +++|
00453  M01S00427.docment +++| +        SB5    B5-4        *SINGLE*
00454  M01S00428.docment +++|          EQ     SKP
00455  M01S00429.docment +++|
00456  M01S00430.docment +++| +        SB5    B5-4        *IDENT*
00457  M01S00431.docment +++|          EQ     CMP
00458  M01S00432.docment +++|
00459  M01S00433.docment +++| +        SB5    B5-5        *BLOCK*
00460  M01S00434.docment +++|          EQ     SKP
00461  M01S00435.docment +++|
00462  M01S00436.docment +++| +        SB5    B5-6        *TYPE*
00463  M01S00437.docment +++|          EQ     SKP
00464  M01S00438.docment +++|
00465  M01S00439.docment +++| +        SB5    B5-6        *DATA*
00466  M01S00440.docment +++|          EQ     BKD
00467  M01S00441.docment +++|
00468  M01S00442.docment +++| +        SB5    B5-6        *REAL*
00469  M01S00443.docment +++|          EQ     SKP
00470  M01S00444.docment +++|
00471  M01S00445.docment +++| +        SB5    B5-8        *II*
00472  M01S00446.docment +++|          EQ     SKP
00473  M01S00447.docment +++|
00474  M01S00448.docment +++| +        SB5    B5-8        *IV*
00475  M01S00449.docment +++|          EQ     SKP
00476  M01S00450.docment +++|
00477  M01S00451.docment +++| +        SB5    B5-8        *VI*
00478  M01S00452.docment +++|          EQ     SKP
00479  M01S00453.docment +++|
00480  M01S00454.docment +++|          LOC    *O
00481  M01S00455.docment +++| GFW      SPACE  4,20
00482  M01S00456.docment +++|**        GFW - GET FIRST WORD FROM CARD.
00483  M01S00457.docment +++|*
00484  M01S00458.docment +++|*         ENTRY  (FCR) = FIRST CHARACTER ON CARD TO ANALYZE.
00485  M01S00459.docment +++|*                AT *SKP* FOR SPECIAL CARDS.
00486  M01S00460.docment +++|*
00487  M01S00461.docment +++|*         EXIT   (B5) = LOCATION OF NEXT CHARACTER TO READ.
00488  M01S00462.docment +++|*                (X1) = FIRST 10 CHARACTERS FOLLOWING LEADING BLANKS.
00489  M01S00463.docment +++|*
00490  M01S00464.docment +++|*         USES   A - 2.
00491  M01S00465.docment +++|*                B - 5, 7.
00492  M01S00466.docment +++|*                X - 1, 2, 3, 4, 5, 6.
00493  M01S00467.docment +++|
00494  M01S00468.docment +++|
00495  M01S00469.docment +++| GFW      PS     0           ENTRY/EXIT
00496  M01S00470.docment +++|          SA2    FCR         FIRST CHARACTER
00497  M01S00471.docment +++|          SB5    X2+DCD-1
00498  M01S00472.docment +++|
00499  M01S00473.docment +++| SKP      BSS    0           ENTRY FOR SKIP
00500  M01S00474.docment +++|
00501  M01S00475.docment +++| GFW1     SX1    0           CLEAR FLAG WORD
00502  M01S00476.docment +++|          SX3    1R
00503  M01S00477.docment +++|          SX4    1R0
00504  M01S00478.docment +++|          SB7    9
00505  M01S00479.docment +++| GFW2     SA2    B5          READ CHARACTER
00506  M01S00480.docment +++|          SB5    B5+B1
00507  M01S00481.docment +++|          ZR     X2,GFW      END OF CARD
00508  M01S00482.docment +++|          IX5    X2-X3
00509  M01S00483.docment +++|          BX6    X2-X4
00510  M01S00484.docment +++|          ZR     X5,GFW2     IF BLANK
00511  M01S00485.docment +++|          ZR     X6,GFW2     IF ZERO
00512  M01S00486.docment +++|
00513  M01S00487.docment +++| GFW3     BX1    X1+X2
00514  M01S00488.docment +++|          SA2    B5          READ NEXT CHARACTER
00515  M01S00489.docment +++|          SB7    B7-B1       DECREMENT LOOP COUNT
00516  M01S00490.docment +++|          LX1    6
00517  M01S00491.docment +++|          SB5    B5+B1
00518  M01S00492.docment +++|          NZ     B7,GFW3     LOOP FOR 10 CHARS
00519  M01S00493.docment +++|          BX1    X1+X2
00520  M01S00494.docment +++|          EQ     GFW         EXIT
00521  M01S00495.docment +++| FTN      SPACE  4,10
00522  M01S00496.docment +++|**        FTN - PROCESS FORTRAN SUBPROGRAMS.
00523  M01S00497.docment +++|*
00524  M01S00498.docment +++|*         ENTRY  (B5) = ADDRESS OF NEXT CHARACTER TO READ.
00525  M01S00499.docment +++|*
00526  M01S00500.docment +++|*         USES   A - 0, 2, 6.
00527  M01S00501.docment +++|*                B - 2.
00528  M01S00502.docment +++|*                X - 0, 2, 3, 4, 6.
00529  M01S00503.docment +++|*
00530  M01S00504.docment +++|*         CALLS  CNT, CTA, GFW, LST, TTL.
00531  M01S00505.docment +++|
00532  M01S00506.docment +++|
00533  M01S00507.docment +++| FTN      BSS    0           ENTRY
00534  M01S00508.docment +++|          SX6    B1+         SET PROGRAM TYPE TO FORTRAN
00535  M01S00509.docment +++|          SA6    PTYP
00536  M01S00510.docment +++|          RJ     CNT         ADD TO TABLE OF CONTENTS
00537  M01S00511.docment +++|          RJ     TTL         SET TITLE AND START NEW PAGE
00538  M01S00512.docment +++|          SX6    7           SET STARTING CHAR FOR GFW
00539  M01S00513.docment +++|          SA6    FCR
00540  M01S00514.docment +++|
00541  M01S00515.docment +++| FTN1     READS  I,DCD,NCR   READ NEXT CARD

Seq #  *Modification Id* Act 
----------------------------+
00542  M02S00516.v23l617 ---|          NZ     X1,ABT      IF PRE-MATURE EOR/EOF
00543  M01S00001.v23l617 +++|          NZ     X1,ABT      IF PREMATURE EOR/EOF
00544  M01S00517.docment +++|          RJ     CTA         COUNT ASTERISKS
00545  M01S00518.docment +++|          ZR     X1,FTN2     IF NOT A COMMENT
00546  M01S00519.docment +++|          SA2    MAS         MINIMUM NUMBER OF ASTERISKS TO DOCUMENT
00547  M01S00520.docment +++|          IX4    X1-X2
00548  M01S00521.docment +++|          NG     X4,FTN1     IF NOT ENOUGH
00549  M01S00522.docment +++|          RJ     LST         GO PROCESS COMMENT CARDS
00550  M01S00523.docment +++| FTN2     RJ     GFW         GET FIRST WORD
00551  M01S00524.docment +++|          SB2    -B1         SET PARAMETER COUNT
00552  M01S00525.docment +++|          SA2    FTNA        BASE OF SPECIAL NAMES TABLE
00553  M01S00526.docment +++|
00554  M01S00527.docment +++| FTN3     BX0    X2          SET MASK
00555  M01S00528.docment +++| FTN4     SA2    A2+B1       GET CHECK WORD
00556  M01S00529.docment +++|          NG     X2,FTN3     IF MASK WORD
00557  M01S00530.docment +++|          SB2    B2+B1       BUMP PARAMETER COUNT
00558  M01S00531.docment +++|          ZR     X2,FTN1     IF NOT SPECIAL CARD - END OF TABLE
00559  M01S00532.docment +++|          BX3    X0*X1
00560  M01S00533.docment +++|          IX6    X3-X2       CHECK NAME
00561  M01S00534.docment +++|          NZ     X6,FTN4     NO MATCH - LOOP
00562  M01S00535.docment +++|          JP     B2+FTN5     EXIT TO ROUTINE
00563  M01S00536.docment +++|
00564  M01S00537.docment +++| FTN5     BSS    0           JUMP TABLE
00565  M01S00538.docment +++|          LOC    0
00566  M01S00539.docment +++| +        SA0    PRC         *END*
00567  M01S00540.docment +++|          EQ     EDC
00568  M01S00541.docment +++|
00569  M01S00542.docment +++|          LOC    *O
00570  M01S00543.docment +++|
00571  M01S00544.docment +++| FTNA     VFD    24/-0,36/   4 CHAR MASK
00572  M01S00545.docment +++|          DATA   4LEND
00573  M01S00546.docment +++|          VFD    60/         END OF TABLE
00574  M01S00547.docment +++| CMP      SPACE  4,10
00575  M01S00548.docment +++|**        CMP - PROCESS COMPASS SUBPROGRAM.
00576  M01S00549.docment +++|*
00577  M01S00550.docment +++|*         ENTRY  (B5) = ADDRESS OF NEXT CHARACTER TO READ.
00578  M01S00551.docment +++|*
00579  M01S00552.docment +++|*         USES   A - 0, 2, 5, 6, 7.
00580  M01S00553.docment +++|*                B - 2, 5.
00581  M01S00554.docment +++|*                X - 0, 2, 3, 4, 5, 6, 7.
00582  M01S00555.docment +++|*
00583  M01S00556.docment +++|*         CALLS  CNT, CTA, GFW, LST, TTL.
00584  M01S00557.docment +++|
00585  M01S00558.docment +++|
00586  M01S00559.docment +++| CMP      BSS    0           ENTRY
00587  M01S00560.docment +++|          SX6    B0+         SET PROGRAM TYPE TO *COMPASS*
00588  M01S00561.docment +++|          SA6    PTYP
00589  M01S00562.docment +++|          RJ     CNT         ADD TO TABLE OF CONTENTS
00590  M01S00563.docment +++|          RJ     TTL         SET TITLE AND START NEW PAGE
00591  M01S00564.docment +++|          SX6    11          SET STARTING COLUMN FOR GFW
00592  M01S00565.docment +++|          SA6    FCR
00593  M01S00007.docme2  +++|          SX6    30          SET COLUMN NUMBER
00594  M01S00008.docme2  +++|          SA6    CCM
00595  M01S00566.docment +++|          SA5    CMPA        RESET TITLE IN TABLE
00596  M01S00567.docment +++|          BX7    X5
00597  M01S00568.docment +++|          SA7    CMPC
00598  M01S00569.docment +++|
00599  M01S00570.docment +++| CMP1     READS  I,DCD,NCR   READ NEXT CARD

Seq #  *Modification Id* Act 
----------------------------+
00600  M02S00571.v23l617 ---|          NZ     X1,ABT      IF PRE-MATURE EOR/EOF
00601  M01S00002.v23l617 +++|          NZ     X1,ABT      IF PREMATURE EOR/EOF
00602  M01S00572.docment +++|          RJ     CTA         COUNT ASTERISKS
00603  M01S00573.docment +++|          ZR     X1,CMP2     IF NOT COMMENT CARD
00604  M01S00574.docment +++|          SA2    MAS         MINIMUM NUMBER OF ASTERISKS TO DOCUMENT
00605  M01S00575.docment +++|          IX4    X1-X2
00606  M01S00576.docment +++|          NG     X4,CMP1     IF NOT ENOUGH
00607  M01S00577.docment +++|          RJ     LST         GO PROCESS COMMENT CARDS
00608  M01S00578.docment +++| CMP2     RJ     GFW         GET FIRST WORD
00609  M01S00009.docme2  +++|          SX6    B5-DCD-10   CHECK WHICH COLUMN KEYWORD STARTED
00610  M01S00010.docme2  +++|          SA2    CCM
00611  M01S00011.docme2  +++|          IX6    X6-X2
00612  M01S00012.docme2  +++|          PL     X6,CMP1     IF STARTED AFTER COMMENT COLUMN
00613  M01S00579.docment +++|          SB2    -B1         SET PARAMETER COUNT
00614  M01S00580.docment +++|          SA2    CMPB        BASE OF SPECIAL NAMES TABLE
00615  M01S00581.docment +++|
00616  M01S00582.docment +++| CMP3     BX0    X2          SET MASK
00617  M01S00583.docment +++| CMP4     SA2    A2+B1       READ CHECK WORD
00618  M01S00584.docment +++|          NG     X2,CMP3     IF MASK
00619  M01S00585.docment +++|          SB2    B2+B1       BUMP PARAMETER COUNT
00620  M01S00586.docment +++|          ZR     X2,CMP1     IF NOT SPECIAL WORD - END OF TABLE
00621  M01S00587.docment +++|          BX3    X0*X1
00622  M01S00588.docment +++|          IX6    X3-X2       CHECK NAME
00623  M01S00589.docment +++|          NZ     X6,CMP4     NO MATCH - LOOP
00624  M01S00590.docment +++|          JP     B2+CMP5     EXIT TO ROUTINE
00625  M01S00591.docment +++|
00626  M01S00592.docment +++| CMP5     BSS    0           START OF JUMP TABLE
00627  M01S00593.docment +++|          LOC    0
00628  M01S00594.docment +++| +        SB5    B5-2        *SEGMENT*
00629  M01S00595.docment +++|          EQ     NDK
00630  M01S00596.docment +++|
00631  M01S00597.docment +++| +        SB5    B5-4        *CTEXT*
00632  M01S00598.docment +++|          EQ     CTX
00633  M01S00599.docment +++|
00634  M01S00600.docment +++| +        SB5    B5-4        *IDENT*
00635  M01S00601.docment +++|          EQ     NDK
00636  M01S00602.docment +++|
00637  M01S00603.docment +++| +        SB5    B5-5        *ENDX*
00638  M01S00604.docment +++|          EQ     EDX
00639  M01S00605.docment +++|
00640  M01S00606.docment +++| +        SB5    B5-4        *LIST*
00641  M01S00607.docment +++|          EQ     LSC
00642  M01S00013.docme2  +++|
00643  M01S00014.docme2  +++|+         SB5    B5-6        *COL*
00644  M01S00015.docme2  +++|          EQ     COL         PROCESS *COL* CARD
00645  M01S00608.docment +++|
00646  M01S00609.docment +++| +        SA0    PRC         *END*
00647  M01S00610.docment +++|          EQ     EDC
00648  M01S00611.docment +++|
00649  M01S00612.docment +++| +        SA0    CMP1        *LCC*
00650  M01S00613.docment +++|          EQ     LCC
00651  M01S00614.docment +++|
00652  M01S00615.docment +++| CMP6     SB5    B5-4        *TITLE*
00653  M01S00616.docment +++|          EQ     TIT
00654  M01S00617.docment +++|
00655  M01S00618.docment +++|          LOC    *O
00656  M01S00619.docment +++|
00657  M01S00620.docment +++| CMPA     DATA   6LTITLE
00658  M01S00621.docment +++| CMPB     VFD    48/-0,12/   8 CHAR MASK
00659  M01S00622.docment +++|          DATA   8LSEGMENT
00660  M01S00623.docment +++|          VFD    36/-0,24/   6 CHAR MASK
00661  M01S00624.docment +++|          DATA   6LCTEXT
00662  M01S00625.docment +++|          DATA   6LIDENT
00663  M01S00626.docment +++|          VFD    30/-0,30/   5 CHAR MASK
00664  M01S00627.docment +++|          DATA   5LENDX
00665  M01S00628.docment +++|          DATA   5LLIST
00666  M01S00629.docment +++|          VFD    24/-0,36/   4 CHAR MASK
00667  M01S00016.docme2  +++|          DATA   4LCOL
00668  M01S00630.docment +++|          DATA   4LEND
00669  M01S00631.docment +++|          DATA   4LLCC
00670  M01S00632.docment +++|          VFD    36/-0,24/   6 CHAR MASK FOR *TITLE* - MUST BE LAST
00671  M01S00633.docment +++|
00672  M01S00634.docment +++| CMPC     DATA   6LTITLE
00673  M01S00635.docment +++|          VFD    60/         END OF TABLE
00674  M01S00636.docment +++| NDK      SPACE  4,10
00675  M01S00637.docment +++|**        NDK - PROCESS NEW DECK *IDENT* OR *SEGMENT*.
00676  M01S00638.docment +++|*
00677  M01S00639.docment +++|*         ENTRY  (B5) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER.
00678  M01S00640.docment +++|*                (X1) = FIRST 10 CHARACTERS OF SPECIAL CARD.
00679  M01S00641.docment +++|*                (A0) = EXIT ADDRESS.
00680  M01S00642.docment +++|*
00681  M01S00643.docment +++|*         USES   A - 1, 7.
00682  M01S00644.docment +++|*                X - 0, 1, 7.
00683  M01S00645.docment +++|*
00684  M01S00646.docment +++|*         CALLS  LSL, STB.
00685  M01S00647.docment +++|
00686  M01S00648.docment +++|
00687  M01S00649.docment +++| NDK      SA1    FLF         CHECK TO SEE IF AT TOP OF PAGE
00688  M01S00650.docment +++|          ZR     X1,CMP1     IF NO OUTPUT YET
00689  M01S00651.docment +++|          SA1    LCT
00690  M01S00652.docment +++|          BX0    X1
00691  M01S00653.docment +++|          RJ     STB
00692  M01S00654.docment +++|          RJ     LSL
00693  M01S00655.docment +++|          MX7    0           CLEAR FIRST LINE LISTED FLAG
00694  M01S00656.docment +++|          SA7    FLF
00695  M01S00657.docment +++|          EQ     CMP1        RETURN
00696  M01S00658.docment +++| SPC      SPACE  4,20
00697  M01S00659.docment +++|**        SPC - PROCESS SPECIAL CARDS.
00698  M01S00660.docment +++|*
00699  M01S00661.docment +++|*         ENTRY  (B5) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER.
00700  M01S00662.docment +++|*                (X1) = FIRST 10 CHARACTERS OF SPECIAL CARD.
00701  M01S00663.docment +++|*                (A0) = EXIT ADDRESS.
00702  M01S00664.docment +++|*
00703  M01S00665.docment +++|*         EXIT   IMAGE OF SPECIAL CARD IS PLACED IN SUB-FOOT LINE.
00704  M01S00666.docment +++|*
00705  M01S00667.docment +++|*         USES   A - 2, 7.
00706  M01S00668.docment +++|*                B - 2, 6, 7.
00707  M01S00669.docment +++|*                X - 2, 7.
00708  M01S00670.docment +++|
00709  M01S00671.docment +++|
00710  M01S00672.docment +++| SPC      BX7    X1
00711  M01S00673.docment +++|          SA2    B5          READ NEXT CHARACTER
00712  M01S00674.docment +++|          SA7    SBF+1       STORE FIRST WORD
00713  M01S00675.docment +++|          SB6    4           SET WORD COUNT
00714  M01S00676.docment +++|          SB7    9           SET CHARACTER COUNT
00715  M01S00677.docment +++|          BX7    X2
00716  M01S00678.docment +++|          EQ     SPC2        GO PACK WORD
00717  M01S00679.docment +++|
00718  M01S00680.docment +++| SPC1     SB7    10          SET CHARACTER COUNT
00719  M01S00681.docment +++|          SA7    A7+B1       STORE NEXT WORD
00720  M01S00682.docment +++|          SB6    B6-B1       DECREMENT WORD COUNT
00721  M01S00683.docment +++|          MX7    0           CLEAR ENCODE WORD
00722  M01S00684.docment +++|          ZR     B6,SPC3     IF END OF SUB-FOOT LINE
00723  M01S00685.docment +++| SPC2     SA2    A2+B1       READ NEXT CHARACTER
00724  M01S00686.docment +++|          LX7    6
00725  M01S00687.docment +++|          SB7    B7-B1       DECREMENT CHARACTER COUNT
00726  M01S00688.docment +++|          BX7    X2+X7
00727  M01S00689.docment +++|          NZ     B7,SPC2     LOOP FOR 10 CHARACTERS
00728  M01S00690.docment +++|          EQ     SPC1        STORE WORD
00729  M01S00691.docment +++|
00730  M01S00692.docment +++| SPC3     SB2    A0          SET EXIT ADDRESS
00731  M01S00693.docment +++|          JP     B2          EXIT
00732  M01S00694.docment +++| CNT      SPACE  4,10
00733  M01S00695.docment +++|**        CNT - SET TABLE OF CONTENTS.
00734  M01S00696.docment +++|*
00735  M01S00697.docment +++|*         ENTRY  (B5) = ADDRESS OF NEXT CHARACTER TO READ.
00736  M01S00698.docment +++|*
00737  M01S00699.docment +++|*         EXIT   SUBCHAPTER AND PAGE COUNTS UPDATED.
00738  M01S00700.docment +++|*
00739  M01S00701.docment +++|*         USES   A - 2, 3, 4, 6, 7.
00740  M01S00702.docment +++|*                B - 6, 7.
00741  M01S00703.docment +++|*                X - 0, 2, 3, 4, 5, 6, 7.
00742  M01S00704.docment +++|
00743  M01S00705.docment +++|
00744  M01S00706.docment +++| CNT5     SA2    A2          DECREMENT SUB-CHAPTER COUNT
00745  M01S00707.docment +++|          SX6    X2-1
00746  M01S00708.docment +++|          SA6    A2
00747  M01S00709.docment +++|
00748  M01S00710.docment +++| CNT      PS     0           ENTRY/EXIT
00749  M01S00711.docment +++|          SA2    CHP         CHAPTER COUNT
00750  M01S00712.docment +++|          MX7    0
00751  M01S00713.docment +++|          SX6    X2+B1
00752  M01S00714.docment +++|          SA7    SPG         RESET SUB-CHAPTER PAGE COUNT
00753  M01S00715.docment +++|          SA6    A2          RESET CHAPTER COUNT
00754  M01S00716.docment +++|          SA3    B5-B1       DUMMY READ
00755  M01S00717.docment +++|          SX2    1R
00756  M01S00718.docment +++|          SB7    54
00757  M01S00719.docment +++|          SB6    -1R,
00758  M01S00720.docment +++|          SX5    1R(
00759  M01S00721.docment +++|
00760  M01S00722.docment +++| CNT1     SA3    A3+B1       READ NEXT CHARACTER
00761  M01S00723.docment +++|          BX4    X3-X2
00762  M01S00724.docment +++|          ZR     X4,CNT1     IF BLANK
00763  M01S00725.docment +++|          ZR     X3,CNT4     IF END OF LINE
00764  M01S00726.docment +++|
00765  M01S00727.docment +++| CNT2     IX6    X3-X5
00766  M01S00728.docment +++|          SX4    X3+B6
00767  M01S00729.docment +++|          ZR     X6,CNT3     IF TERMINATOR
00768  M01S00730.docment +++|          ZR     X4,CNT3
00769  M01S00731.docment +++|          BX7    X7+X3
00770  M01S00732.docment +++|          SB7    B7-6
00771  M01S00733.docment +++|          SA3    A3+B1       READ NEXT CHARACTER
00772  M01S00734.docment +++|          LX7    6
00773  M01S00735.docment +++|          NZ     B7,CNT2     LOOP FOR 10 CHARACTERS
00774  M01S00736.docment +++| CNT3     LX7    X7,B7
00775  M01S00737.docment +++| CNT4     ZR     X7,CNT5     IF NO NAME FOUND
00776  M01S00738.docment +++|          SA7    CNTB
00777  M01S00739.docment +++|          SA4    CHP         GET SUBCHAPTER COUNT
00778  M01S00740.docment +++|          SX6    X4
00779  M01S00741.docment +++|          MX0    42
00780  M01S00742.docment +++|          BX7    X0*X7
00781  M01S00743.docment +++|          BX6    X6+X7
00782  M01S00744.docment +++|          WRITEO SCR2
00783  M01S00745.docment +++|          MESSAGE CNTA,1
00784  M01S00746.docment +++|          EQ     CNT         EXIT
00785  M01S00747.docment +++|
00786  M01S00748.docment +++| CNTA     DATA   10H READING
00787  M01S00749.docment +++| CNTB     DATA   0
00788  M01S00750.docment +++|          DATA   0
00789  M01S00751.docment +++| CNTC     CON    0
00790  M01S00752.docment +++| FCN      SPACE  4,10
00791  M01S00753.docment +++|**        FCN - FORMAT TABLE OF CONTENTS.
00792  M01S00754.docment +++|*
00793  M01S00755.docment +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
00794  M01S00756.docment +++|*                B - 3.
00795  M01S00757.docment +++|*                X - ALL.
00796  M01S00758.docment +++|*
00797  M01S00759.docment +++|*         CALLS  CVT, SFN, SRT.
00798  M01S00760.docment +++|
00799  M01S00761.docment +++|
00800  M01S00762.docment +++| FCN4     WRITER SCR2,R
00801  M01S00763.docment +++| FCN      PS     0           ENTRY/EXIT
00802  M01S00764.docment +++|          REWIND SCR2,R
00803  M01S00765.docment +++|          SA5    SCR2
00804  M01S00766.docment +++|          MX7    0
00805  M01S00767.docment +++|          SA7    I
00806  M01S00768.docment +++|          READ   I           RESET FIRST=IN=OUT
00807  M01S00769.docment +++|          BX6    X5
00808  M01S00770.docment +++|          SA6    X2
00809  M01S00771.docment +++|          SA1    TC          CHECK FOR LIST OF TABLE OF CONTENTS
00810  M01S00772.docment +++|          ZR     X1,FCN4     EXIT
00811  M01S00773.docment +++|          READ   I,R
00812  M01S00774.docment +++|          REWIND SCR2,R
00813  M01S00775.docment +++|          SA1    LLM
00814  M01S00776.docment +++|          SX1    X1-61
00815  M01S00777.docment +++|          NG     X1,FCN0     IF NOT MORE THAN 60 LINES PER PAGE
00816  M01S00778.docment +++|          SX6    1RT
00817  M01S00779.docment +++|          LX6    60-6
00818  M01S00780.docment +++|          WRITEO SCR2
00819  M01S00781.docment +++| FCN0     WRITEW SCR2,FCNB,LFCB
00820  M01S00782.docment +++|          SA1    PCT         BUMP PAGE COUNT FOR PAGE PARITY
00821  M01S00783.docment +++|          SX6    X1+B1
00822  M01S00784.docment +++|          SA6    A1
00823  M01S00785.docment +++|          SX7    4
00824  M01S00786.docment +++|          SA7    LCT
00825  M01S00787.docment +++|          RJ     SRT         SORT DECK NAME TABLE
00826  M01S00788.docment +++|          SA5    I+2         IN
00827  M01S00789.docment +++|          SA4    A5+B1       OUT
00828  M01S00790.docment +++|          IX6    X5-X4       CALCULATE THE NUMBER OF ROWS TO PRINT
00829  M01S00791.docment +++|          SX0    X4
00830  M01S00792.docment +++|          SX6    X6+3
00831  M01S00793.docment +++|          AX6    2           DIVIDE BY 4
00832  M01S00794.docment +++|          SX7    -B1
00833  M01S00795.docment +++|          SA6    FCNA+1      NUMBER OF ROWS
00834  M01S00796.docment +++|          SA7    A6+B1       CURRENT ROW
00835  M01S00797.docment +++|          SA6    A6-B1       INCREMENT
00836  M01S00798.docment +++| FCN1     SA1    FCNA+1      DECREMENT ROW COUNT
00837  M01S00799.docment +++|          SX6    X1-1
00838  M01S00800.docment +++|          ZR     X1,FCN4     IF END OF TABLE
00839  M01S00801.docment +++|          SA2    A1+B1       ADVANCE INCREMENT
00840  M01S00802.docment +++|          SA6    A1
00841  M01S00803.docment +++|          SX7    X2+B1
00842  M01S00804.docment +++|          SA7    A2
00843  M01S00805.docment +++|          SA1    I+3         OUT
00844  M01S00806.docment +++|          IX0    X7+X1       SAVE ENTRY ADDRESS
00845  M01S00807.docment +++|          SA6    DCD-1       INITIALIZE STORE ADDRESS
00846  M01S00808.docment +++| FCN2     SA3    X0          READ ENTRY
00847  M01S00809.docment +++|          MX4    42
00848  M01S00810.docment +++|          BX1    X4*X3       GET SUBPROGRAM NAME
00849  M01S00811.docment +++|          SB3    X3
00850  M01S00812.docment +++|          RJ     SFN         FILL NAME WITH SPACES
00851  M01S00813.docment +++|          LX6    60-18       RIGHT JUSTIFY NAME
00852  M01S00814.docment +++|          SX1    B3
00853  M01S00815.docment +++|          SA6    A6+B1       STORE IN PRINT LINE
00854  M01S00816.docment +++|          RJ     CVT
00855  M01S00817.docment +++|          LX6    X7,B7
00856  M01S00818.docment +++|          LX6    6*4
00857  M01S00819.docment +++|          SA6    A6+B1       STORE NUMBER
00858  M01S00820.docment +++|          SA1    FCNA        LENGTH OF ROW
00859  M01S00821.docment +++|          IX0    X0+X1       BUMP TO NEXT ENTRY
00860  M01S00822.docment +++|          IX6    X0-X5
00861  M01S00823.docment +++|          NG     X6,FCN2     LOOP TO END OF LINE
00862  M01S00824.docment +++|          MX7    0
00863  M01S00825.docment +++|          SA7    A6+B1
00864  M01S00826.docment +++|          SA2    LCT
00865  M01S00827.docment +++|          SA3    LLM
00866  M01S00828.docment +++|          SX6    X2+B1       BUMP LINE COUNT
00867  M01S00829.docment +++|          SA6    A2
00868  M01S00830.docment +++|          IX7    X6-X3       CHECK FOR END OF PAGE
00869  M01S00831.docment +++|          NG     X7,FCN3
00870  M01S00832.docment +++|          WRITEW SCR2,FCNB,LFCB
00871  M01S00833.docment +++|          SA1    PCT         BUMP PAGE COUNT
00872  M01S00834.docment +++|          SX6    X1+B1
00873  M01S00835.docment +++|          SA6    A1
00874  M01S00836.docment +++|          SX7    4
00875  M01S00837.docment +++|          SA7    LCT
00876  M01S00838.docment +++| FCN3     WRITEC SCR2,DCD
00877  M01S00839.docment +++|          EQ     FCN1        CONTINUE FOR ALL ROWS
00878  M01S00840.docment +++|
00879  M01S00841.docment +++| FCNA     BSS    3           TEMPORARY STORAGE
00880  M01S00842.docment +++| FCNB     DATA   H*1  LIST OF SUB-PROGRAMS AND CORRESPONDING CHAPTERS*
00881  M01S00843.docment +++|          DATA   C* PROCESSED BY DOCMENT.*
00882  M01S00844.docment +++|          DATA   2L0
00883  M01S00845.docment +++| LFCB     EQU    *-FCNB
00884  M01S00846.docment +++| SRT      SPACE  4,10
00885  M01S00847.docment +++|**        SRT - SORT DECK NAME TABLE.
00886  M01S00848.docment +++|*
00887  M01S00849.docment +++|*         USES   A - 0, 1, 2, 6, 7.
00888  M01S00850.docment +++|*                B - 2, 3, 4, 5, 6, 7.
00889  M01S00851.docment +++|*                X - 1, 2, 4, 5, 6, 7.
00890  M01S00852.docment +++|
00891  M01S00853.docment +++|
00892  M01S00854.docment +++| SRT      PS     0           ENTRY/EXIT
00893  M01S00855.docment +++|          SA1    I+2         LWA+1 TABLE
00894  M01S00856.docment +++|          SA2    A1+B1
00895  M01S00857.docment +++|          IX5    X1-X2       LENGTH = (B7) = N
00896  M01S00858.docment +++|          SA0    X2-1
00897  M01S00859.docment +++|          SB7    X5
00898  M01S00860.docment +++|          SB6    X5
00899  M01S00861.docment +++|
00900  M01S00862.docment +++| SRT1     SX6    B6          N = N/2
00901  M01S00863.docment +++|          AX6    1
00902  M01S00864.docment +++|          SB6    X6
00903  M01S00865.docment +++|          SB3    B1          J = 1
00904  M01S00866.docment +++|          ZR     B6,SRT      RETURN IF M = 0
00905  M01S00867.docment +++|          SB4    B7-B6       N = N-M
00906  M01S00868.docment +++|          SB2    B3          I = J
00907  M01S00869.docment +++|
00908  M01S00870.docment +++| SRT2     SB5    B2+B6       L = I+M
00909  M01S00871.docment +++|          SA1    A0+B2       A(I)
00910  M01S00872.docment +++|          SA2    A0+B5       A(L)
00911  M01S00873.docment +++|          IX4    X2-X1
00912  M01S00874.docment +++|          PL     X4,SRT3     IF A(L) > A(I)
00913  M01S00875.docment +++|          BX6    X1          INTERCHANGE A(L) AND A(I)
00914  M01S00876.docment +++|          LX7    X2
00915  M01S00877.docment +++|          SA6    A2
00916  M01S00878.docment +++|          SA7    A1
00917  M01S00879.docment +++|          SB2    B2-B6       I = I-M
00918  M01S00880.docment +++|          GT     B2,SRT2     IF I > 0
00919  M01S00881.docment +++|
00920  M01S00882.docment +++| SRT3     SB3    B3+B1       J = J+1
00921  M01S00883.docment +++|          SB2    B3          I = J
00922  M01S00884.docment +++|          LE     B3,B4,SRT2  IF J ;K
00923  M01S00885.docment +++|          EQ     SRT1
00924  M01S00886.docment +++| LCC      SPACE  4,10
00925  M01S00887.docment +++|**        LCC - PROCESS *LCC* CARDS.
00926  M01S00888.docment +++|*
00927  M01S00889.docment +++|*         ENTRY  (A0) = EXIT ADDRESS.
00928  M01S00890.docment +++|*                (B5) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER.
00929  M01S00891.docment +++|*
00930  M01S00892.docment +++|*         USES   A - 2, 6.
00931  M01S00893.docment +++|*                B - 2.
00932  M01S00894.docment +++|*                X - 2, 6.
00933  M01S00895.docment +++|*
00934  M01S00896.docment +++|*         CALLS  GFW.
00935  M01S00897.docment +++|
00936  M01S00898.docment +++|
00937  M01S00899.docment +++| LCC      SA2    FCR         GET FIRST CHARACTER ADDRESS
00938  M01S00900.docment +++|          SX6    B5-DCD
00939  M01S00901.docment +++|          SX6    X6-6        SET FIRST CHARACTER FOR GFW
00940  M01S00902.docment +++|          SB2    X2          SAVE ADDRESS OF OLD FIRST CHARACTER
00941  M01S00903.docment +++|          SA6    A2
00942  M01S00904.docment +++|          RJ     GFW         GET FIRST WORD SET UP FOR SPC
00943  M01S00905.docment +++|          SX6    B2          RESTORE FCR
00944  M01S00906.docment +++|          SA6    FCR
00945  M01S00907.docment +++|          EQ     SPC         PROCESS AS SPECIAL CARD
00946  M01S00908.docment +++| TTL      SPACE  4,10
00947  M01S00909.docment +++|**        TTL - SET TITLE OF NEW SUBPROGRAM.
00948  M01S00910.docment +++|*
00949  M01S00911.docment +++|*         USES   A - 2, 3, 7.
00950  M01S00912.docment +++|*                B - 6, 7.
00951  M01S00913.docment +++|*                X - 0, 1, 2, 3, 6, 7.
00952  M01S00914.docment +++|*
00953  M01S00915.docment +++|*         CALLS  GFW.
00954  M01S00916.docment +++|
00955  M01S00917.docment +++|
00956  M01S00918.docment +++| TTL      PS     0           ENTRY/EXIT
00957  M01S00919.docment +++|          RJ     GFW         GET FIRST WORD
00958  M01S00920.docment +++|          SA3    TTLA
00959  M01S00921.docment +++|          MX0    12
00960  M01S00922.docment +++|          LX1    48
00961  M01S00923.docment +++|          BX6    -X0*X1      GET FIRST 8 CHARACTERS
00962  M01S00924.docment +++|          BX7    X6+X3
00963  M01S00925.docment +++|          SA7    HDG         SET FIRST WORD OF HEADING
00964  M01S00926.docment +++|          SB7    8           SET CHARACTER COUNT
00965  M01S00927.docment +++|          BX7    X0*X1       GET LAST 2 CHARACTERS
00966  M01S00928.docment +++|          SB6    4           SET WORD COUNT
00967  M01S00929.docment +++|          LX7    12
00968  M01S00930.docment +++|          EQ     TTL2
00969  M01S00931.docment +++|
00970  M01S00932.docment +++| TTL1     SB7    10
00971  M01S00933.docment +++|          SA7    A7+B1       STORE NEXT WORD
00972  M01S00934.docment +++|          SB6    B6-B1
00973  M01S00935.docment +++|          MX7    0
00974  M01S00936.docment +++|          ZR     B6,TTL      IF END OF TITLE LINE
00975  M01S00937.docment +++| TTL2     SA2    A2+B1       READ NEXT CHARACTER
00976  M01S00938.docment +++|          LX7    6
00977  M01S00939.docment +++|          SB7    B7-B1
00978  M01S00940.docment +++|          BX7    X7+X2
00979  M01S00941.docment +++|          NZ     B7,TTL2     LOOP FOR 10 CHARACTERS
00980  M01S00942.docment +++|          EQ     TTL1
00981  M01S00943.docment +++|
00982  M01S00944.docment +++| TTLA     VFD    12/1H1,48/
00983  M01S00945.docment +++| LFL      SPACE  4,10
00984  M01S00946.docment +++|**        LFL - LIST FIRST LINE.
00985  M01S00947.docment +++|*
00986  M01S00948.docment +++|*         USES   A - 1, 6, 7.
00987  M01S00949.docment +++|*                X - 1, 6, 7.
00988  M01S00950.docment +++|
00989  M01S00951.docment +++|
00990  M01S00952.docment +++| LFL      PS     0           ENTRY/EXIT
00991  M01S00953.docment +++|          SA1    SPG         SUB-CHAPTER PAGE COUNT
00992  M01S00954.docment +++|          SX6    X1+B1
00993  M01S00955.docment +++|          SA6    A1          BUMP PAGE COUNT
00994  M01S00956.docment +++|          SX7    FLP
00995  M01S00957.docment +++|          SA7    LCT         RESET LINE COUNT
00996  M01S00958.docment +++|          WRITEC SCR1,HDG    WRITE HEADING LINE
00997  M01S00959.docment +++|          WRITEC X2,(=2L0 )  2 BLANK LINES
00998  M01S00960.docment +++|          SX7    X2          SET FIRST LINE LISTED FLAG
00999  M01S00961.docment +++|          SA7    FLF
01000  M01S00962.docment +++|          EQ     LFL         EXIT
01001  M01S00963.docment +++| CTA      SPACE  4,10
01002  M01S00964.docment +++|**        CTA - COUNT ASTERISKS.
01003  M01S00965.docment +++|*
01004  M01S00966.docment +++|*         USES   A - 2, 3, 6.
01005  M01S00967.docment +++|*                B - 7.
01006  M01S00968.docment +++|*                X - 1, 2, 3, 6, 7.
01007  M01S00969.docment +++|
01008  M01S00970.docment +++|
01009  M01S00971.docment +++| CTA      PS     0           ENTRY/EXIT
01010  M01S00972.docment +++|          MX1    0           SET INITIAL COUNT
01011  M01S00973.docment +++|          SX6    1R
01012  M01S00974.docment +++|          SA2    C           READ CHECK CHARACTER
01013  M01S00975.docment +++|          SA3    DCD
01014  M01S00976.docment +++|          SB7    5
01015  M01S00977.docment +++| CTA1     BX7    X3-X2       CHECK FOR ASTERISK
01016  M01S00978.docment +++|          SB7    B7-B1       DECREMENT LOOP COUNT
01017  M01S00979.docment +++|          NZ     X7,CTA      IF NOT * EXIT
01018  M01S00980.docment +++|          SA6    A3          REPLACE IT WITH A BLANK
01019  M01S00981.docment +++|          SX1    X1+B1
01020  M01S00982.docment +++|          SA3    A3+B1
01021  M01S00983.docment +++|          NZ     B7,CTA1     IF MORE CHARACTERS TO PROCESS
01022  M01S00984.docment +++|          SX1    3           TREAT ***** LIKE *** STATEMENTS
01023  M01S00985.docment +++|          EQ     CTA         EXIT
01024  M01S00986.docment +++| LST      SPACE  4,10
01025  M01S00987.docment +++|**        LST - LIST DOCUMENTATION.
01026  M01S00988.docment +++|*
01027  M01S00989.docment +++|*         ENTRY  (X1) - NUMBER OF ASTERISKS FOUND.
01028  M01S00990.docment +++|*
01029  M01S00991.docment +++|*         EXIT   TO *EDC* IF END CARD ENCOUNTERED.
01030  M01S00992.docment +++|*
01031  M01S00993.docment +++|*         USES   A - 0, 1, 2, 4, 5, 6, 7.
01032  M01S00994.docment +++|*                X - ALL.
01033  M01S00995.docment +++|*
01034  M01S00996.docment +++|*         CALLS  CTA, GFW, LFL, LSL, STB, TAB.
01035  M01S00997.docment +++|
01036  M01S00998.docment +++|
01037  M01S00999.docment +++| LST      PS     0           ENTRY/EXIT
01038  M01S01000.docment +++|          SA2    NAS         MINIMUM NUMBER OF ASTERISKS FOR INT DOC
01039  M01S01001.docment +++|          IX3    X1-X2
01040  M01S01002.docment +++|          PL     X3,LST5     DO INTERNAL DOCUMENTATION
01041  M01S01003.docment +++|          SX2    4           CHECK FOR EXTERNAL DOCUMENTATION
01042  M01S01004.docment +++|          IX3    X1-X2
01043  M01S01005.docment +++|          PL     X3,LST      IF NOT EXTERNAL
01044  M01S01006.docment +++|
01045  M01S01007.docment +++| LST1     SA2    FLF         CHECK FIRST LINE FLAG
01046  M01S01008.docment +++|          NZ     X2,*+2      IF FIRST LINE HAS BEEN LISTED
01047  M01S01009.docment +++| +        RJ     LFL         LIST FIRST LINE
01048  M01S01010.docment +++|          SA1    LCT         CHECK PAGE POSITION
01049  M01S01011.docment +++|          SX5    X1-FLP      CHECK FOR TOP OF PAGE
01050  M01S01012.docment +++|          ZR     X5,LST4     IF AT TOP
01051  M01S01013.docment +++|          SX6    X1+4
01052  M01S01014.docment +++|          SA6    A1          RESET LINE COUNT
01053  M01S01015.docment +++|          SA4    LLM         MAXIMUM NUMBER OF LINES ON PAGE
01054  M01S01016.docment +++|          IX5    X6-X4
01055  M01S01017.docment +++|          NG     X5,LST3     IF NOT AT BOTTOM OF PAGE
01056  M01S01018.docment +++|          BX6    X1          RESTORE LINE COUNT
01057  M01S01019.docment +++|          SA6    A1
01058  M01S01020.docment +++| LST1A    SA1    LCT
01059  M01S01021.docment +++|          BX0    X1
01060  M01S01022.docment +++|          RJ     STB         SKIP TO BOTTOM OF PAGE
01061  M01S01023.docment +++| LST2     RJ     LSL         LIST LAST LINE ON PAGE
01062  M01S01024.docment +++|          RJ     LFL         LIST FIRST LINE
01063  M01S01025.docment +++|          EQ     LST4
01064  M01S01026.docment +++|
01065  M01S01027.docment +++| LST3     WRITEC SCR1,(=2L0 )
01066  M01S01028.docment +++|          WRITEC SCR1,(=2L0 )
01067  M01S01029.docment +++| LST4     SA1    DCD+1       CHECK COLUMN 2 FOR TABLE FLAG
01068  M01S01030.docment +++|          SX2    X1-1RE      CHECK FOR EJECT
01069  M01S01031.docment +++|          SX1    X1-1RT
01070  M01S01032.docment +++|          NZ     X2,LST4A    IF NOT EJECT CARD
01071  M01S01033.docment +++|          SA2    TOG
01072  M01S01034.docment +++|          NZ     X2,LST4B    IF INTERNAL TOGGLE IS ON - LIST THE CARD
01073  M01S01035.docment +++|          SX7    1R          CLEAR *E*
01074  M01S01036.docment +++|          SA7    DCD+1
01075  M01S01037.docment +++|          WRITES SCR1,LNE,NCR+2
01076  M01S01038.docment +++|          SA1    LCT
01077  M01S01039.docment +++|          SX0    X1+1        SET SPACE COUNT
01078  M01S01040.docment +++|          RJ     STB
01079  M01S01041.docment +++|          SA2    LLM
01080  M01S01042.docment +++|          SX6    X2-1
01081  M01S01043.docment +++|          SA6    LCT         RESET LINE COUNT
01082  M01S01044.docment +++|          EQ     LST4D       CONTINUE
01083  M01S01045.docment +++|
01084  M01S01046.docment +++| LST4A    NZ     X1,LST4B    IF NOT TABLE CARD
01085  M01S01047.docment +++|          SA2    TOG         CHECK FOR INTERNAL NO ASTERISK
01086  M01S01048.docment +++|          NZ     X2,LST4B    IF SO
01087  M01S01049.docment +++|          SA2    NT          CHECK STATUS OF TABLE GENERATOR
01088  M01S01050.docment +++|          NZ     X2,LST4B    IF OFF
01089  M01S01051.docment +++|          RJ     TAB         PROCESS TABLE
01090  M01S01052.docment +++|          EQ     LST4C       PROCESS THE NEXT CARD
01091  M01S01053.docment +++|
01092  M01S01054.docment +++| LST4B    WRITES SCR1,LNE,NCR+2  WRITE CARD TO DOC FILE
01093  M01S01055.docment +++| LST4D    SA1    LCT         BUMP LINE COUNT
01094  M01S01056.docment +++|          SX6    X1+B1
01095  M01S01057.docment +++|          SA6    A1
01096  M01S01058.docment +++|          READS  I,DCD,NCR   READ NEXT CARD

Seq #  *Modification Id* Act 
----------------------------+
01097  M02S01059.v23l617 ---|          NZ     X1,ABT      IF PRE-MATURE EOR/EOF
01098  M01S00003.v23l617 +++|          NZ     X1,ABT      IF PREMATURE EOR/EOF
01099  M01S01060.docment +++|          RJ     CTA         COUNT ASTERISKS
01100  M01S01061.docment +++|
01101  M01S01062.docment +++| LST4C    SA2    NAS         CHECK FOR END OF INTERNAL DOCUMENTATION
01102  M01S01063.docment +++|          IX4    X1-X2
01103  M01S01064.docment +++|          PL     X4,LST5     IF END
01104  M01S01065.docment +++|          ZR     X1,LST7     CHECK FOR END OF DOCUMENTATION
01105  M01S01066.docment +++|          SA5    LCT         CHECK FOR END OF PAGE
01106  M01S01067.docment +++|          SA4    LLM         LINE LIMIT
01107  M01S01068.docment +++|          IX5    X5-X4
01108  M01S01069.docment +++|          NG     X5,LST4     IF NOT AT BOTTOM OF PAGE
01109  M01S01070.docment +++|          EQ     LST2
01110  M01S01071.docment +++|
01111  M01S01072.docment +++| LST5     SA1    TOG         CHECK TOGGLE
01112  M01S01073.docment +++|          NZ     X1,LST6     IF ON
01113  M01S01074.docment +++|          SA2    MAS         SAVE MINIMUM EXT * COUNT
01114  M01S01075.docment +++|          MX7    0
01115  M01S01076.docment +++|          BX6    X2
01116  M01S01077.docment +++|          SA7    A2          SET MINIMUM AST TO 0
01117  M01S01078.docment +++|          SA6    A1          SET TOGGLE
01118  M01S01079.docment +++|          EQ     LST1        GO LIST CARD
01119  M01S01080.docment +++|
01120  M01S01081.docment +++| LST6     MX7    0           RESET TOGGLE
01121  M01S01082.docment +++|          BX6    X1
01122  M01S01083.docment +++|          SA7    A1
01123  M01S01084.docment +++|          SA6    MAS         RESET MINIMUM FOR EXT DOC
01124  M01S01085.docment +++|          EQ     LST1        GO LIST CARD
01125  M01S01086.docment +++|
01126  M01S01087.docment +++| LST7     SA1    TOG         CHECK MODE
01127  M01S01088.docment +++|          ZR     X1,LST      IF EXTERNAL
01128  M01S01089.docment +++|          RJ     GFW
01129  M01S01090.docment +++|          MX0    24          CHECK FOR END CARD
01130  M01S01091.docment +++|          SA2    =4LEND
01131  M01S01092.docment +++|          BX6    X0*X1
01132  M01S01093.docment +++|          BX6    X6-X2
01133  M01S01094.docment +++|          SA0    PRC         SET EXIT FOR END
01134  M01S01095.docment +++|          ZR     X6,EDC      IF *END* CARD
01135  M01S01096.docment +++|          SA5    LCT
01136  M01S01097.docment +++|          SA4    LLM         CHECK FOR END OF PAGE
01137  M01S01098.docment +++|          IX5    X5-X4
01138  M01S01099.docment +++|          NG     X5,LST4     IF NOT AT BOTTOM OF PAGE
01139  M01S01100.docment +++|          EQ     LST2
01140  M01S01101.docment +++| LSL      SPACE  4,10
01141  M01S01102.docment +++|**        LSL - LIST LAST LINE.
01142  M01S01103.docment +++|*
01143  M01S01104.docment +++|*         USES   A - 1, 6, 7.
01144  M01S01105.docment +++|*                X - 0, 1, 5, 6, 7.
01145  M01S01106.docment +++|*
01146  M01S01107.docment +++|*         CALLS  CVT.
01147  M01S01108.docment +++|
01148  M01S01109.docment +++|
01149  M01S01110.docment +++| LSL      PS     0           ENTRY/EXIT
01150  M01S01111.docment +++|          WRITEC SCR1,(=2L  )
01151  M01S01112.docment +++|          SA1    CHP         CHAPTER COUNT
01152  M01S01113.docment +++|          RJ     CVT         CONVERT THE CHAPTER COUNT TO DECIMAL DISP
01153  M01S01114.docment +++|          LX7    X7,B7
01154  M01S01115.docment +++|          MX0    60-18
01155  M01S01116.docment +++|          SA1    PGE
01156  M01S01117.docment +++|          BX7    -X0*X7
01157  M01S01118.docment +++|          BX6    X0*X1
01158  M01S01119.docment +++|          BX7    X6+X7
01159  M01S01120.docment +++|          SA7    A1
01160  M01S01121.docment +++|          SA1    SPG
01161  M01S01122.docment +++|          RJ     CVT
01162  M01S01123.docment +++|          MX0    42
01163  M01S01124.docment +++|          BX7    X0*X7       CLEAR LOW 18 BITS
01164  M01S01125.docment +++|          SX5    1R/
01165  M01S01126.docment +++|          BX7    X5+X7
01166  M01S01127.docment +++|          LX7    54
01167  M01S01128.docment +++|          SA7    A7+B1       SET SUBCHAPTER PAGE COUNT
01168  M01S01129.docment +++|          WRITEC SCR1,FOT    WRITE PAGE FOOTING
01169  M01S01130.docment +++|          WRITEC SCR1,(=2L  )
01170  M01S01131.docment +++|          WRITEC SCR1,SBF    WRITE PAGE SUB-FOOT
01171  M01S01132.docment +++|          SA1    PCT         BUMP PAGE COUNT
01172  M01S01133.docment +++|          SX6    X1+B1
01173  M01S01134.docment +++|          SA6    A1
01174  M01S01135.docment +++|          EQ     LSL         EXIT
01175  M01S01136.docment +++| TAB      SPACE  4,20
01176  M01S01137.docment +++|**        TAB - PROCESS TABLE GENERATION.
01177  M01S01138.docment +++|*                J.C. BOHNHOFF - 70/7/4.
01178  M01S01139.docment +++|*
01179  M01S01140.docment +++|*         ENTRY  (A1) = ADDRESS OF *T* CHARACTER IN CARD.
01180  M01S01141.docment +++|*
01181  M01S01142.docment +++|*         EXIT   TABLES GENERATED AND LISTED.
01182  M01S01143.docment +++|*                GENERATION TERMINATED AT END OF *T* BLOCK.
01183  M01S01144.docment +++|*
01184  M01S01145.docment +++|*         USES   A - 1, 2, 6, 7.
01185  M01S01146.docment +++|*                B - 7.
01186  M01S01147.docment +++|*                X - 1, 2, 4, 6, 7.
01187  M01S01148.docment +++|*
01188  M01S01149.docment +++|*         CALLS  ASD, ASF, CTA, DXB, LFL, LSL, LTB, STL.
01189  M01S01150.docment +++|
01190  M01S01151.docment +++|
01191  M01S01152.docment +++| TAB      PS     0           ENTRY/EXIT
01192  M01S01153.docment +++|          SA1    A1+B1       READ SECOND CHARACTER TO CHECK FOR HEADER
01193  M01S01154.docment +++|                             *OFF*
01194  M01S01155.docment +++|          SX6    1R,
01195  M01S01156.docment +++|          MX7    0
01196  M01S01157.docment +++|          SA6    DCD+NCR     TERMINATE CARD STRING BUFFER
01197  M01S01158.docment +++|          SA7    A6+1
01198  M01S01159.docment +++|          SX6    X1-1R
01199  M01S01160.docment +++|          SA6    PBP         SET *PRINT BIT POSITIONS* FLAG
01200  M01S01161.docment +++|
01201  M01S01162.docment +++| TAB0     SX6    1R-
01202  M01S01163.docment +++|          SB7    71
01203  M01S01164.docment +++| TAB0A    SA6    AST+B7
01204  M01S01165.docment +++|          SB7    B7-1
01205  M01S01166.docment +++|          NZ     B7,TAB0A
01206  M01S01167.docment +++|          RJ     STL         SET TABLE LABEL
01207  M01S01168.docment +++|          SX7    0           CLEAR TOTAL BIT COUNT
01208  M01S01169.docment +++|          SX6    TCL         AND SET POINTER TO BEGINNING OF CONTENT
01209  M01S01170.docment +++|                             LINE BUFFER
01210  M01S01171.docment +++|          SA7    TBC
01211  M01S01172.docment +++|          SA6    TCLP
01212  M01S01173.docment +++|
01213  M01S01174.docment +++| TAB1     RJ     ASD         ASSEMBLE DIGIT FIELD
01214  M01S01175.docment +++|          ZR     X1,TAB3     IF END OF CARD
01215  M01S01176.docment +++|          RJ     DXB         CONVERT DIGIT FIELD TO BINARY
01216  M01S01177.docment +++|          NZ     X4,TAB2     IF DIGIT FIELD ERROR
01217  M01S01178.docment +++|          SX7    X6-61       CHECK LEGALITY OF FIELD
01218  M01S01179.docment +++|          PL     X7,TAB2
01219  M01S01180.docment +++|          RJ     ASF         ASSEMBLE TABLE FIELD
01220  M01S01181.docment +++|          EQ     TAB1        CONTINUE FORMING TABLE
01221  M01S01182.docment +++|
01222  M01S01183.docment +++| TAB2     WRITES SCR1,LNE,NCR+2 LIST THE BAD CARD NORMALLY
01223  M01S01184.docment +++|          SA1    LCT         ADVANCE LINE COUNT
01224  M01S01185.docment +++|          SX7    X1+B1
01225  M01S01186.docment +++|          SA7    A1
01226  M01S01187.docment +++|          SA2    LLM         CHECK FOR END OF PAGE
01227  M01S01188.docment +++|          IX6    X7-X2
01228  M01S01189.docment +++|          NG     X6,TAB4     IF NOT AT BOTTOM OF PAGE
01229  M01S01190.docment +++|          RJ     LSL         LIST LAST LINE ON PAGE
01230  M01S01191.docment +++|          RJ     LFL         LIST FIRST LINE
01231  M01S01192.docment +++|          EQ     TAB4
01232  M01S01193.docment +++|
01233  M01S01194.docment +++| TAB3     RJ     LTB         LIST TABLE ENTRY
01234  M01S01195.docment +++|
01235  M01S01196.docment +++| TAB4     READS  I,DCD,NCR   READ NEXT CARD
01236  M01S01197.docment +++|          NZ     X1,ABT      IF PREMATURE EOR/EOF
01237  M01S01198.docment +++|          RJ     CTA         COUNT ASTERISKS
01238  M01S01199.docment +++|          ZR     X1,TAB      **RETURN - IF NOT COMMENT CARD
01239  M01S01200.docment +++|          SA2    DCD+1       CHECK FOR CONTINUATION OF TABLE BLOCK
01240  M01S01201.docment +++|          SX4    X2-1RT
01241  M01S01202.docment +++|          NZ     X4,TAB      **RETURN IF NOT *T CARD
01242  M01S01203.docment +++|          SA1    A2+B1       READ NEXT CHARACTER FOR *STL*
01243  M01S01204.docment +++|          EQ     TAB0        GO PROCESS THE CARD
01244  M01S01205.docment +++| STL      SPACE  4,20
01245  M01S01206.docment +++|**        STL - SET TABLE LABEL IF ANY.
01246  M01S01207.docment +++|*                J.C. BOHNHOFF - 70/07/11.
01247  M01S01208.docment +++|*
01248  M01S01209.docment +++|*         ENTRY  (A1) = ADDRESS+1 OF *T* CHARACTER.
01249  M01S01210.docment +++|*
01250  M01S01211.docment +++|*         EXIT   (A1) = ADDRESS OF LAST CHARACTER OF LABEL OR ADDRESS
01251  M01S01212.docment +++|*                OF FIRST CHARACTER BEFORE DIGIT FIELD IF NO LABEL.
01252  M01S01213.docment +++|*
01253  M01S01214.docment +++|*         USES   A - 1, 2, 6, 7.
01254  M01S01215.docment +++|*                X - 1, 2, 3, 4, 5, 6, 7.
01255  M01S01216.docment +++|*
01256  M01S01217.docment +++|*         CALLS  ASF, MVE.
01257  M01S01218.docment +++|
01258  M01S01219.docment +++|
01259  M01S01220.docment +++| STL1     SX4    1R          SPACE
01260  M01S01221.docment +++|          SA2    A1          PRESET (A2)
01261  M01S01222.docment +++|          SX5    X4+B1       COMMA
01262  M01S01223.docment +++|
01263  M01S01224.docment +++| STL1A    SA2    A2+1        SEARCH FOR END OF TAG
01264  M01S01225.docment +++|          ZR     X2,STL      IF END OF CARD
01265  M01S01226.docment +++|          IX3    X4-X2       COMPARE SPACE
01266  M01S01227.docment +++|          BX7    X5-X2       COMPARE COMMA
01267  M01S01228.docment +++|          ZR     X7,STL1B    IF COMMA
01268  M01S01229.docment +++|          NZ     X3,STL1A    IF NOT SPACE
01269  M01S01230.docment +++|          BX7    X5
01270  M01S01231.docment +++|          SA7    A2          REPLACE SPACE WITH COMMA
01271  M01S01232.docment +++|
01272  M01S01233.docment +++| STL1B    SX7    TCF+1       SET PARAMS FOR ASF
01273  M01S01234.docment +++|          MX6    0           CLEAR RESIDUE FROM TOTAL BIT COUNT
01274  M01S01235.docment +++|          SA6    TBC
01275  M01S01236.docment +++|          SX6    9
01276  M01S01237.docment +++|          SA7    TCLP
01277  M01S01238.docment +++|          RJ     ASF         ASSEMBLE LABEL INTO LIST LINE
01278  M01S01239.docment +++|
01279  M01S01240.docment +++| STL      PS
01280  M01S01241.docment +++|          SX1    9           CLEAR BEGINNING OF CONTENT LINE
01281  M01S01242.docment +++|          SX2    BLN
01282  M01S01243.docment +++|          SX3    TCF
01283  M01S01244.docment +++|          RJ     =XMVE=
01284  M01S01245.docment +++|
01285  M01S01246.docment +++| STL2     SA1    A1+1        CHECK NEXT CHARACTER
01286  M01S01247.docment +++|          SX3    X1-1R
01287  M01S01248.docment +++|          ZR     X1,STL      IF END OF CARD
01288  M01S01249.docment +++|          ZR     X3,STL2     IF ANOTHER BLANK
01289  M01S01250.docment +++|          SX3    X1-1RZ-1
01290  M01S01251.docment +++|          SA1    A1-1        BACKSPACE
01291  M01S01252.docment +++|          NG     X3,STL1     IF ALPHA
01292  M01S01253.docment +++|          EQ     STL         **RETURN - NO LABEL
01293  M01S01254.docment +++| ASD      SPACE  4,20
01294  M01S01255.docment +++|**        ASD - ASSEMBLE DIGIT FIELD.
01295  M01S01256.docment +++|*                J.C. BOHNHOFF - 70/7/4.
01296  M01S01257.docment +++|*
01297  M01S01258.docment +++|*         ENTRY  (A1)= ADDRESS OF CHARACTER PRECEDING A SUPPOSED
01298  M01S01259.docment +++|*                DIGIT FIELD.
01299  M01S01260.docment +++|*                DCD MUST BE ZERO TERMINATED.
01300  M01S01261.docment +++|*
01301  M01S01262.docment +++|*         EXIT   (X5) = LEFT JUSTIFIED DISPLAY CODED DIGIT FIELD.
01302  M01S01263.docment +++|*                (B7) = NONZERO.
01303  M01S01264.docment +++|*                (X1) = 0 IF END OF CARD ENCOUNTERED BEFORE DIGIT FIELD.
01304  M01S01265.docment +++|*                LEADING SPACES ARE IGNORED AND ASSEMBLY TERMINATES
01305  M01S01266.docment +++|*                WHEN A */* IS ENCOUNTERED.
01306  M01S01267.docment +++|*
01307  M01S01268.docment +++|*         USES   A - 1.
01308  M01S01269.docment +++|*                B - 2, 3, 7.
01309  M01S01270.docment +++|*                X - 1, 3, 4, 5.
01310  M01S01271.docment +++|
01311  M01S01272.docment +++|
01312  M01S01273.docment +++| ASD1     ZR     X1,ASD      IF END OF CARD ENCOUNTERED
01313  M01S01274.docment +++|          SX3    X1-1R       CHECK FOR LEADING SPACE
01314  M01S01275.docment +++|          NZ     X3,ASD1A    IF FIRST NON-BLANK CHARACTER
01315  M01S01276.docment +++|          SA1    A1+1        READ NEXT CHARACTER
01316  M01S01277.docment +++|          EQ     ASD1        LOOP TILL END OF CARD OR FIRST NON-BLANK
01317  M01S01278.docment +++|
01318  M01S01279.docment +++| ASD1A    SX3    X1-1R0      CHECK FOR LEADING NUMERIC
01319  M01S01280.docment +++|          SX5    -1          FORCE DXB ERROR IF NOT NUMERIC
01320  M01S01281.docment +++|          NG     X3,ASD      IF ALPHA
01321  M01S01282.docment +++|          SX3    X3-10
01322  M01S01283.docment +++|          NG     X3,ASD2     IF NOT SPECIAL CHARACTER
01323  M01S01284.docment +++|          SX3    X1-1R,      CHECK FOR COMMA AS FIRST CHARACTER
01324  M01S01285.docment +++|          NZ     X3,ASD      IF NOT COMMA
01325  M01S01286.docment +++|          SX1    0           FLAG END-OF-CARD
01326  M01S01287.docment +++|          EQ     ASD         **RETURN
01327  M01S01288.docment +++|
01328  M01S01289.docment +++| ASD2     SX3    X1-1R/      CHECK FOR FIELD SEPERATOR
01329  M01S01290.docment +++|          ZR     X1,ASD      **RETURN - IF EOC
01330  M01S01291.docment +++|          ZR     X3,ASD3     IF SEPERATOR
01331  M01S01292.docment +++|          LX4    6           SHIFT ASSEMBLY
01332  M01S01293.docment +++|          BX4    X4+X1       INSERT NEXT CHARACTER
01333  M01S01294.docment +++|          SB3    B3-B2       ADVANCE BIT COUNT
01334  M01S01295.docment +++|          SA1    A1+B1       READ NEXT CHARACTER
01335  M01S01296.docment +++|          EQ     ASD2
01336  M01S01297.docment +++|
01337  M01S01298.docment +++| ASD3     LX5    X4,B3       LEFT JUSTIFY THE DIGITS
01338  M01S01299.docment +++|          SB7    1
01339  M01S01300.docment +++|
01340  M01S01301.docment +++| ASD      PS                 ENTRY/EXIT
01341  M01S01302.docment +++|          SB2    6
01342  M01S01303.docment +++|          SB3    60          INITIALIZE ASSEMBLY BIT COUNT
01343  M01S01304.docment +++|          MX4    0           CLEAR ASSEMBLY REGISTER
01344  M01S01305.docment +++|          SA1    A1+B1       READ FIRST CHARACTER TO BE CONSIDERED
01345  M01S01306.docment +++|          EQ     ASD1        GO ASSEMBLE
01346  M01S01307.docment +++| ASF      SPACE  4,20
01347  M01S01308.docment +++|**        ASF - ASSEMBLE TABLE FIELD INTO LINE.
01348  M01S01309.docment +++|*                J.C. BOHNHOFF - 70/7/4.
01349  M01S01310.docment +++|*
01350  M01S01311.docment +++|*         ENTRY  (A1)= ADDRESS OF CHARACTER PRECEDING A SUPPOSED
01351  M01S01312.docment +++|*                NAME FIELD.
01352  M01S01313.docment +++|*                (X6) = NUMBER OF BITS IN FIELD.
01353  M01S01314.docment +++|*
01354  M01S01315.docment +++|*         EXIT   FIELD ASSEMBLED INTO TABLE LINE BUFFER.
01355  M01S01316.docment +++|*
01356  M01S01317.docment +++|*         USES   A - 1, 3, 4, 7.
01357  M01S01318.docment +++|*                X - 1, 3, 4, 5, 6, 7.
01358  M01S01319.docment +++|
01359  M01S01320.docment +++|
01360  M01S01321.docment +++| ASF      PS                 ENTRY/EXIT
01361  M01S01322.docment +++|          SA3    TBC         TOTAL BIT COUNT
01362  M01S01323.docment +++|          SA4    TCLP        TABLE CONTENT LINE POINTER
01363  M01S01324.docment +++|          IX7    X3+X6       ADVANCE TOTAL BIT COUNT
01364  M01S01325.docment +++|          SA7    A3
01365  M01S01326.docment +++|          SX5    X6-1        DECREMENT NUMBER OF BITS IN FIELD
01366  M01S01327.docment +++|          NG     X5,ASF6     IF NEGATIVE BIT COUNT
01367  M01S01328.docment +++|          NZ     X5,ASF1     IF NOT SINGLE BIT FIELD
01368  M01S01329.docment +++|          SX5    X4-TCL+AST+1
01369  M01S01330.docment +++|          SX7    1R+
01370  M01S01331.docment +++|          SA7    X5
01371  M01S01332.docment +++|          SA1    A1+B1
01372  M01S01333.docment +++|          BX7    X1
01373  M01S01334.docment +++|          EQ     ASF5
01374  M01S01335.docment +++|
01375  M01S01336.docment +++| ASF1     SA1    A1+B1       READ NAME CHARACTER
01376  M01S01337.docment +++|          SX6    X6-1        DECREMENT BIT COUNT
01377  M01S01338.docment +++|          BX7    X1
01378  M01S01339.docment +++|          ZR     X1,ASF4     IF END OF CARD
01379  M01S01340.docment +++|          SX3    X1-1R,      CHECK FOR COMMA SEPERATOR
01380  M01S01341.docment +++|          ZR     X3,ASF4     IF COMMA
01381  M01S01342.docment +++|          ZR     X6,ASF1A    IF TIME TO INSERT FIELD SEPERATOR
01382  M01S01343.docment +++|          SA7    X4          STORE CHARACTER IN FIELD
01383  M01S01344.docment +++|          SX4    X4+B1       ADVANCE CHARACTER POINTER
01384  M01S01345.docment +++|          EQ     ASF1        CONTINUE
01385  M01S01346.docment +++|
01386  M01S01347.docment +++| ASF1A    SA1    A1+1        SEARCH FOR END OF NAME FIELD
01387  M01S01348.docment +++|          SX3    X1-1R,
01388  M01S00001.docme1  +++|          ZR     X1,ASF2     IF END OF STATEMENT
01389  M01S01349.docment +++|          NZ     X3,ASF1A    CONTINUE IF NOT END
01390  M01S01350.docment +++| ASF2     SX7    1R/         STORE FIELD SEPERATOR
01391  M01S01351.docment +++|          SA7    X4
01392  M01S01352.docment +++|          SX4    X4+B1       ADVANCE CHARACTER POINTER
01393  M01S01353.docment +++| ASF3     BX7    X4          RESTORE CHARACTER POINTER
01394  M01S01354.docment +++|          SA7    A4
01395  M01S01355.docment +++|          EQ     ASF         **RETURN
01396  M01S01356.docment +++|
01397  M01S01357.docment +++| ASF4     SX7    1R          PROPAGATE SPACES UNTIL FIELD EXHAUSTED
01398  M01S01358.docment +++|          ZR     X6,ASF2     IF TIME TO INSERT FIELD SEPERATOR
01399  M01S01359.docment +++|          SA7    X4          STORE CHARACTER IN FIELD
01400  M01S01360.docment +++|          SX6    X6-1        DECREMENT BIT COUNT
01401  M01S01361.docment +++|          SX4    X4+B1       ADVANCE CHARACTER POINTER
01402  M01S01362.docment +++|          EQ     ASF4        CONTINUE
01403  M01S01363.docment +++|
01404  M01S01364.docment +++| ASF5     SA7    X4          STORE SINGLE CHARACTER
01405  M01S01365.docment +++|          SX4    X4+1        ADVANCE CHARACTER POINTER
01406  M01S01366.docment +++| ASF6     SA1    A1+1        SCAN TILL END OF FIELD
01407  M01S01367.docment +++|          SX3    X1-1R,
01408  M01S00002.docme1  +++|          ZR     X1,ASF3     IF END OF STATEMENT
01409  M01S01368.docment +++|          ZR     X3,ASF3     IF TERMINATOR
01410  M01S01369.docment +++|          EQ     ASF6        LOOP TILL TERMINATOR
01411  M01S01370.docment +++|
01412  M01S01371.docment +++| TBC      BSSZ   1           HOLDS TOTAL BIT COUNT FOR ONE TABLE CARD
01413  M01S01372.docment +++| TCLP     VFD    60/TCL      TABLE CONTENT LINE POINTER
01414  M01S01373.docment +++| LTB      SPACE  4,20
01415  M01S01374.docment +++|**        LTB - LIST A TABLE ENTRY.
01416  M01S01375.docment +++|*                J.C. BOHNHOFF - 70/7/4.
01417  M01S01376.docment +++|*
01418  M01S01377.docment +++|*         ENTRY  (TCL) = CONTENT LINE TO BE LISTED.
01419  M01S01378.docment +++|*                (TCLP) = ADDRESS OF LIMIT OF *TCL*.
01420  M01S01379.docment +++|*                (TBC) = TOTAL BIT COUNT FOR THIS TABLE ENTRY.
01421  M01S01380.docment +++|*                (PBP) = 0 IF BIT POSITION HEADER LINES TO BE LISTED.
01422  M01S01381.docment +++|*
01423  M01S01382.docment +++|*         EXIT   TABLE ENTRY LISTED.
01424  M01S01383.docment +++|*                (PBP) .NE. 0 IF ZERO ON ENTRY.
01425  M01S01384.docment +++|*
01426  M01S01385.docment +++|*         USES   A - 1, 3, 4, 5, 7.
01427  M01S01386.docment +++|*                B - 6, 7.
01428  M01S01387.docment +++|*                X - 0, 1, 2, 3, 4, 5, 7.
01429  M01S01388.docment +++|*
01430  M01S01389.docment +++|*         CALLS  LFL, LSL, MVE, STB, WTS.
01431  M01S01390.docment +++|
01432  M01S01391.docment +++|
01433  M01S01392.docment +++| LTB      PS                 ENTRY/EXIT
01434  M01S01393.docment +++|          SA4    LCT         LINE COUNT
01435  M01S01394.docment +++|          SX1    10          SET BLANKS AT BEGINNING OF LINE
01436  M01S01395.docment +++|          MX7    0
01437  M01S01396.docment +++|          SX2    BLN
01438  M01S01397.docment +++|          BX0    X4          SAVE LINE COUNT
01439  M01S01398.docment +++|          SX3    TPF
01440  M01S01399.docment +++|          SA7    ATF         CLEAR *ASTERS ONLY* FLAG
01441  M01S01400.docment +++|          RJ     =XMVE=
01442  M01S01401.docment +++|          SA1    PBP         *PRINT BIT POSITIONS* FLAG
01443  M01S01402.docment +++|          SA5    TBC         TOTAL BIT COUNT FOR THIS TABLE ENTRY
01444  M01S01403.docment +++|          NG     X1,LTBA     IF SOME PART OF THE HEADER IS NOT TO BE
01445  M01S01404.docment +++|                             LISTED THIS TIME
01446  M01S01405.docment +++|          ZR     X1,LTBB     IF FULL BIT POSITION HEADER TO BE LISTED
01447  M01S01406.docment +++|                             THIS BLOCK
01448  M01S01407.docment +++| LTBA     MX7    60
01449  M01S01408.docment +++|          BX7    X1-X7
01450  M01S01409.docment +++|          ZR     X7,LTB1     IF ALL HEADER IS OFF
01451  M01S01410.docment +++|          SA7    ATF
01452  M01S01411.docment +++|
01453  M01S01412.docment +++| LTBB     MX7    60          TOGGLE THE FLAG
01454  M01S01413.docment +++|          SA7    A1
01455  M01S01414.docment +++|          SA3    LLM         LINE LIMIT
01456  M01S01415.docment +++|          NO
01457  M01S01416.docment +++|          SX7    X0+5
01458  M01S01417.docment +++|          IX3    X7-X3
01459  M01S01418.docment +++|          NG     X3,LTB0     IF IT WILL FIT
01460  M01S01419.docment +++|          RJ     STB         SKIP TO BOTTOM OF PAGE
01461  M01S01420.docment +++|          RJ     LSL         LIST LAST LINE ON PAGE
01462  M01S01421.docment +++|          RJ     LFL         LIST FIRST LINE ON PAGE
01463  M01S01422.docment +++|          SA1    LCT         RESTORE REGISTERS
01464  M01S01423.docment +++|          SA5    TBC
01465  M01S01424.docment +++|          BX0    X1
01466  M01S01425.docment +++|
01467  M01S01426.docment +++| LTB0     SA1    ATF
01468  M01S01427.docment +++|          NZ     X1,LTB0A    IF ASTER LINE ONLY TO BE LISTED
01469  M01S01428.docment +++| LTBC     SX2    BP1L
01470  M01S01429.docment +++|          BX1    X5          SET WORD COUNT FOR MVE
01471  M01S01430.docment +++|          IX2    X2-X5
01472  M01S01431.docment +++|          SX3    TPL         SET DESTINATION FOR MVE - (TABLE PRNT LINE)
01473  M01S01432.docment +++|          RJ     =XMVE=      MOVE LINE INTO LIST BUFFER
01474  M01S01433.docment +++|          SB7    X5+10       SET WORD COUNT FOR WRITE
01475  M01S01434.docment +++|          SX2    SCR1        SET ADDRESS OF FET
01476  M01S01435.docment +++|          SB6    TPF
01477  M01S01436.docment +++|          RJ     =XWTS=      WRITE THE FIRST BIT POSITION HEADER LINE
01478  M01S01437.docment +++|          SX0    X0+B1       BUMP LINE COUNT
01479  M01S01438.docment +++|          SX2    BP2L        SET UP FOR WRITE OF 2ND HEADER LINE
01480  M01S01439.docment +++|          BX1    X5
01481  M01S01440.docment +++|          SX3    TPL
01482  M01S01441.docment +++|          IX2    X2-X5
01483  M01S01442.docment +++|          RJ     =XMVE=      MOVE SECOND LINE INTO BUFFER
01484  M01S01443.docment +++|          SX2    SCR1
01485  M01S01444.docment +++|          SB6    TPF
01486  M01S01445.docment +++|          SB7    X5+10
01487  M01S01446.docment +++|          RJ     =XWTS=      WRITE SECOND BIT POSITION HEADER LINE
01488  M01S01447.docment +++|          SX0    X0+1        BUMP LINE COUNT
01489  M01S01448.docment +++|
01490  M01S01449.docment +++| LTB0A    SX2    AST         MOVE ASTERISK LINE
01491  M01S01450.docment +++|          SX3    TPL-1
01492  M01S01451.docment +++|          SX1    X5+1
01493  M01S01452.docment +++|          RJ     =XMVE=
01494  M01S01453.docment +++|          WRITES SCR1,TPF,X5+10 WRITE ASTERISK LINE TO DEFINE TOP OF ENT
01495  M01S01454.docment +++|          SX0    X0+B1       BUMP LINE COUNT
01496  M01S01455.docment +++|          EQ     LTB2
01497  M01S01456.docment +++|
01498  M01S01457.docment +++| LTB1     SA3    LLM         LINE LIMIT
01499  M01S01458.docment +++|          SX7    X0+2        SEE IF ENTRY WILL FIT ON PAGE
01500  M01S01459.docment +++|          NO
01501  M01S01460.docment +++|          IX3    X7-X3
01502  M01S01461.docment +++|          NG     X3,LTB2     IF IT WILL FIT
01503  M01S01462.docment +++|          RJ     STB         SKIP TO BOTTOM OF PAGE
01504  M01S01463.docment +++|          RJ     LSL         LIST LAST LINE
01505  M01S01464.docment +++|          RJ     LFL         LIST FIRST LINE
01506  M01S01465.docment +++|          SA1    LCT         RESTORE REGISTERS
01507  M01S01466.docment +++|          SA5    TBC
01508  M01S01467.docment +++|          BX0    X1
01509  M01S01468.docment +++|          EQ     LTBC        WRITE NEW HEADER
01510  M01S01469.docment +++|
01511  M01S01470.docment +++| LTB2     WRITES SCR1,TCF,X5+10 WRITE TABLE CONTENT LINE
01512  M01S01471.docment +++|          SX0    X0+B1       BUMP LINE COUNT
01513  M01S01472.docment +++|          SX1    X5+B1
01514  M01S01473.docment +++|          SX2    AST         MOVE ASTERISKS
01515  M01S01474.docment +++|          SX3    TPL-1
01516  M01S01475.docment +++|          RJ     =XMVE=
01517  M01S01476.docment +++|          WRITES SCR1,TPF,X5+10 WRITE ASTERISK LINE TO DEFINE BTTM OF EN
01518  M01S01477.docment +++|          SX7    X0+1
01519  M01S01478.docment +++|          SA7    LCT         RESTORE BUMPED LINE COUNT
01520  M01S01479.docment +++|          EQ     LTB         **RETURN
01521  M01S01480.docment +++|
01522  M01S01481.docment +++| PBP      BSSZ   1           PRINT BIT POSITIONS FLAG
01523  M01S01482.docment +++| ATF      BSSZ   1           ASTERISK ONLY FLAG
01524  M01S01483.docment +++| STB      SPACE  4,10
01525  M01S01484.docment +++|**        STB - SKIP TO BOTTOM OF PAGE.
01526  M01S01485.docment +++|*                J.C. BOHNHOFF - 70/07/11.
01527  M01S01486.docment +++|*
01528  M01S01487.docment +++|*         ENTRY  (X0) = CURRENT LINE COUNT.
01529  M01S01488.docment +++|*
01530  M01S01489.docment +++|*         EXIT   FORM POSITIONED AT *LINP*.
01531  M01S01490.docment +++|*
01532  M01S01491.docment +++|*         USES   A - 2.
01533  M01S01492.docment +++|*                X - 0, 2, 5, 6.
01534  M01S01493.docment +++|
01535  M01S01494.docment +++|
01536  M01S01495.docment +++| STB      PS
01537  M01S01496.docment +++|          BX0    -X0
01538  M01S01497.docment +++|          SA2    LLM
01539  M01S01498.docment +++|          NO
01540  M01S01499.docment +++|          IX0    X0+X2
01541  M01S01500.docment +++|          AX5    X0,B1       /2= NUMBER OF DOUBLE SPACES NEEDED
01542  M01S01501.docment +++|          LX6    X5,B1
01543  M01S01502.docment +++|          IX0    X0-X6       NUMBER OF SINGLE SPACES NEEDEAFTER DOUBLES
01544  M01S01503.docment +++|
01545  M01S01504.docment +++| STB1     ZR     X5,STB2     IF DONE DOUBLE SPACEING
01546  M01S01505.docment +++|          WRITEC SCR1,(=2L0 )
01547  M01S01506.docment +++|          SX5    X5-1
01548  M01S01507.docment +++|          EQ     STB1
01549  M01S01508.docment +++|
01550  M01S01509.docment +++| STB2     ZR     X0,STB      **RETURN - IF AT BOTTOM
01551  M01S01510.docment +++|          WRITEC SCR1,(=2L  )
01552  M01S01511.docment +++|          EQ     STB
01553  M01S01512.docment +++| CVT      SPACE  4,10
01554  M01S01513.docment +++|**        CVT - CONVERT NUMBER FROM OCTAL TO DECIMAL DISPLAY CODE.
01555  M01S01514.docment +++|*
01556  M01S01515.docment +++|*         ENTRY  (X1) = LOW 18 BITS OF NUMBER TO BE CONVERTED.
01557  M01S01516.docment +++|*
01558  M01S01517.docment +++|*         EXIT   (X7) = LEFT JUSTIFIED DISPLAY CODED NUMBER.
01559  M01S01518.docment +++|*                (B7) = 6*NUMBER OF DIGITS IN CONVERTED NUMBER.
01560  M01S01519.docment +++|*
01561  M01S01520.docment +++|*         USES   A - 2, 3, 4.
01562  M01S01521.docment +++|*                B - 0, 4, 5, 6, 7.
01563  M01S01522.docment +++|*                X - 1, 2, 3, 4, 6, 7.
01564  M01S01523.docment +++|
01565  M01S01524.docment +++|
01566  M01S01525.docment +++| CVT1     DX7    X1*X2
01567  M01S01526.docment +++|          FX1    X1*X2
01568  M01S01527.docment +++|          LX4    54
01569  M01S01528.docment +++|          SB4    X1
01570  M01S01529.docment +++|          FX6    X3*X7       CALCULATE REMAINDER DIGIT
01571  M01S01530.docment +++|          SB7    B7+B5
01572  M01S01531.docment +++|          SX6    X6+B6
01573  M01S01532.docment +++|          IX4    X6+X4
01574  M01S01533.docment +++|          NZ     B4,CVT1
01575  M01S01534.docment +++|          BX7    X4          LEFT JUSTIFY NUMBER
01576  M01S01535.docment +++|          LX7    54
01577  M01S01536.docment +++|
01578  M01S01537.docment +++| CVT      PS     0           ENTRY/EXIT
01579  M01S01538.docment +++|          SA2    CVTA
01580  M01S01539.docment +++|          SA3    A2+B1
01581  M01S01540.docment +++|          SA4    A3+B1
01582  M01S01541.docment +++|          PX1    X1
01583  M01S01542.docment +++|          SB7    B0          SET DIGIT COUNT
01584  M01S01543.docment +++|          SB5    6
01585  M01S01544.docment +++|          SB6    -22B
01586  M01S01545.docment +++|          EQ     CVT1
01587  M01S01546.docment +++|
01588  M01S01547.docment +++| CVTA     DATA   0.1000000001P48
01589  M01S01548.docment +++|          DATA   10.0P0
01590  M01S01549.docment +++|          DATA   1H
01591  M01S01550.docment +++| ABT      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01592  M02S01551.v23l617 ---|**        ABT - TERMINATE ON PRE-MATURE EOR/EOF.
01593  M01S00004.v23l617 +++|**        ABT - TERMINATE ON PREMATURE EOR/EOF.
01594  M01S01552.docment +++|*
01595  M01S01553.docment +++|*         USES   A - 7.
01596  M01S01554.docment +++|*                X - 7.
01597  M01S01555.docment +++|
01598  M01S01556.docment +++|
01599  M01S01557.docment +++| ABT      SX7    B1          SET NUMBER OF COPIES TO 1
01600  M01S01558.docment +++|          SA7    N
01601  M01S01559.docment +++|          WRITEC SCR1,(=2L  )
01602  M01S01560.docment +++|          WRITEC SCR1,(=2L  )

Seq #  *Modification Id* Act 
----------------------------+
01603  M02S01561.v23l617 ---|          WRITEC SCR1,(=C* PRE-MATURE EOR/EOF ON SOURCE FILE.*)
01604  M01S00005.v23l617 +++|          WRITEC SCR1,(=C* PREMATURE EOR/EOF ON SOURCE FILE.*)
01605  M01S01562.docment +++|          EQ     DOC3        EXIT
01606  M01S01563.docment +++| CPY      SPACE  4,10
01607  M01S01564.docment +++|**        CPY - COPY SCRATCH FILE TO OUTPUT FILE.
01608  M01S01565.docment +++|*

Seq #  *Modification Id* Act 
----------------------------+
01609  M02S01566.ns22000 ---|*         USES   A - 1.

Seq #  *Modification Id* Act 
----------------------------+
01610  M02S01567.ns22000 ---|*                B - 7.

Seq #  *Modification Id* Act 
----------------------------+
01611  M02S01568.ns22000 ---|*                X - 1.
01612  M01S00017.ns22000 +++|*         USES   X - 1, 6.
01613  M01S00018.ns22000 +++|*                A - 1, 6.
01614  M01S00019.ns22000 +++|*                B - 7.
01615  M01S00020.ns22000 +++|*
01616  M01S00021.ns22000 +++|*         MACROS READ, READW, RECALL, REWIND, WRITER, WRITEW.
01617  M01S01569.docment +++|
01618  M01S01570.docment +++|
01619  M01S01571.docment +++| CPY      PS     0           ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
01620  M02S01572.ns22000 ---|          SA1    NI          CHECK FOR NO INPUT FILE
01621  M01S00022.ns22000 +++|          SA1    PD
01622  M01S00023.ns22000 +++|          ZR     X1,CPY0     IF FORMAT EFFECTOR NOT TO BE WRITTEN
01623  M01S00024.ns22000 +++|          WRITEW I,PD,1      WRITE FORMAT EFFECTOR
01624  M01S00025.ns22000 +++|          BX6    X6-X6
01625  M01S00026.ns22000 +++|          SA6    PD
01626  M01S00027.ns22000 +++| CPY0     SA1    NI          CHECK FOR NO INPUT FILE
01627  M01S01573.docment +++|          ZR     X1,CPY3    IF NONE
01628  M01S01574.docment +++| CPY1     READW  SCR1,DCD,100B
01629  M01S01575.docment +++|          NZ     X1,CPY2     IF EOR/EOF
01630  M01S01576.docment +++|          WRITEW I,DCD,100B  WRITE FROM WORKING BUFFER
01631  M01S01577.docment +++|          EQ     CPY1        COPY SOME MORE
01632  M01S01578.docment +++|
01633  M01S01579.docment +++| CPY2     SB7    X1-DCD      GET WORD COUNT OF LAST TRANSFER
01634  M01S01580.docment +++|          WRITEW I,DCD,B7    TRANSFER LAST FEW WORDS
01635  M01S01581.docment +++|          READ   SCR1
01636  M01S01582.docment +++| CPY3     SA1    TC          CHECK FOR TABLE OF CONTENTS
01637  M01S01583.docment +++|          ZR     X1,CPY6     IF NO TABLE OF CONTENTS
01638  M01S01584.docment +++|          REWIND SCR2,R
01639  M01S01585.docment +++|          READ   SCR2
01640  M01S01586.docment +++| CPY4     READW  SCR2,DCD,100B
01641  M01S01587.docment +++|          NZ     X1,CPY5     IF EOR/EOF
01642  M01S01588.docment +++|          WRITEW I,DCD,100B  WRITE FROM WORKING BUFFER
01643  M01S01589.docment +++|          EQ     CPY4        COPY SOME MORE
01644  M01S01590.docment +++|
01645  M01S01591.docment +++| CPY5     SB7    X1-DCD      GET WORD COUNT OF LAST TRANSFER
01646  M01S01592.docment +++|          WRITEW I,DCD,B7    TRANSFER LAST FEW WORDS
01647  M01S01593.docment +++|          RECALL SCR2
01648  M01S01594.docment +++| CPY6     READW  SCR1,DCD,100B
01649  M01S01595.docment +++|          NZ     X1,CPY7     IF EOR/EOF
01650  M01S01596.docment +++|          WRITEW I,DCD,100B  WRITE FROM WORKING BUFFER
01651  M01S01597.docment +++|          EQ     CPY6        COPY SOME MORE
01652  M01S01598.docment +++|
01653  M01S01599.docment +++| CPY7     SB7    X1-DCD      GET WORD COUNT OF LAST TRANSFER
01654  M01S01600.docment +++|          WRITEW I,DCD,B7    TRANSFER LAST FEW WORDS
01655  M01S01601.docment +++|          WRITER I,R
01656  M01S01602.docment +++|          RECALL SCR1
01657  M01S01603.docment +++|          EQ     CPY         EXIT
01658  M01S01604.docment +++| EDC      SPACE  4,10
01659  M01S01605.docment +++|**        EDC - *END* CARD PROCESSOR.
01660  M01S01606.docment +++|*
01661  M01S01607.docment +++|*         ENTRY  (A0) - EXIT ADDRESS.
01662  M01S01608.docment +++|*
01663  M01S01609.docment +++|*         USES   A - 2, 4, 5, 6, 7.
01664  M01S01610.docment +++|*                B - 2.
01665  M01S01611.docment +++|*                X - 2, 4, 5, 6, 7.
01666  M01S01612.docment +++|*
01667  M01S01613.docment +++|*         CALLS  LSL.
01668  M01S01614.docment +++|
01669  M01S01615.docment +++|
01670  M01S01616.docment +++| EDC      SA2    FLF         CHECK TO SEE IF ANYTHING HAS BEEN LISTED
01671  M01S01617.docment +++|          ZR     X2,EDC3     IF NOT
01672  M01S01618.docment +++|          SA5    LCT
01673  M01S01619.docment +++|          SA4    LLM         LINE LIMIT
01674  M01S01620.docment +++|          IX5    X5-X4
01675  M01S01621.docment +++|          BX6    X5
01676  M01S01622.docment +++|          LX6    59-0        CHECK EVEN OR ODD
01677  M01S01623.docment +++|          ZR     X5,EDC2     IF AT BOTTOM OF PAGE
01678  M01S01624.docment +++|          NG     X6,EDC1     IF EVEN
01679  M01S01625.docment +++|          WRITEC SCR1,(=2L  )
01680  M01S01626.docment +++|          SX5    X5+B1
01681  M01S01627.docment +++| EDC1     ZR     X5,EDC2     IF AT BOTTOM OF PAGE
01682  M01S01628.docment +++|          WRITEC SCR1,(=2L0 )
01683  M01S01629.docment +++|          SX5    X5+2
01684  M01S01630.docment +++|          EQ     EDC1        LOOP TO BOTTOM OF PAGE
01685  M01S01631.docment +++|
01686  M01S01632.docment +++| EDC2     RJ     LSL         LIST LAST LINE
01687  M01S01633.docment +++| EDC3     MX7    0
01688  M01S01634.docment +++|          SA7    FLF         CLEAR FIRST LINE FLAG
01689  M01S01635.docment +++|          SA7    LSCA        CLEAR LIST CARD STACK
01690  M01S01636.docment +++|          SA7    FCR         RESET FIRST CHARACTER TO SCAN FROM
01691  M01S01637.docment +++|          SA7    XFL         CLEAR LIST *X* FLAG
01692  M01S01638.docment +++|          SA7    TOG         CLEAR TOGGLE
01693  M01S01639.docment +++|          SA5    EDAS        RESET ASTERISK COUNT FOR DOC TYPE
01694  M01S01640.docment +++|          SA4    IDAS
01695  M01S01641.docment +++|          BX6    X5
01696  M01S01642.docment +++|          LX7    X4
01697  M01S01643.docment +++|          SA6    MAS
01698  M01S01644.docment +++|          SA7    NAS
01699  M01S01645.docment +++|          SB2    A0
01700  M01S01646.docment +++|          JP     B2          EXIT
01701  M01S00017.docme2  +++| COL      SPACE  4,10
01702  M01S00018.docme2  +++|**        COL - PROCESS *COL* CARDS.
01703  M01S00019.docme2  +++|*
01704  M01S00020.docme2  +++|*         USES   X - 2, 3, 4, 5, 6.
01705  M01S00021.docme2  +++|*                A - 2, 6.
01706  M01S00022.docme2  +++|*                B - 5, 7.
01707  M01S00023.docme2  +++|*
01708  M01S00024.docme2  +++|*         CALLS  DXB.
01709  M01S00025.docme2  +++|
01710  M01S00026.docme2  +++| COL      BSS    0           ENTRY
01711  M01S00027.docme2  +++| COL1     SA2    B5          FIND COLUMN NUMBER
01712  M01S00028.docme2  +++|          SX3    X2-1R       CHECK FOR SPACE
01713  M01S00029.docme2  +++|          SB5    B5+B1
01714  M01S00030.docme2  +++|          ZR     X2,CMP1     IF END OF LINE
01715  M01S00031.docme2  +++|          ZR     X3,COL1     IF A SPACE
01716  M01S00032.docme2  +++|          SB7    54          SET SHIFT COUNT
01717  M01S00033.docme2  +++|          SX5    B0+         INITIALIZE ASSEMBLY AREA
01718  M01S00034.docme2  +++| COL2     LX2    B7          SHIFT CHARACTER
01719  M01S00035.docme2  +++|          SB7    B7-6        ADJUST SHIFT COUNT
01720  M01S00036.docme2  +++|          BX5    X5+X2       ADD TO ASSEMBLED DATA
01721  M01S00037.docme2  +++|          SA2    B5          NEXT CHARACTER
01722  M01S00038.docme2  +++|          SB5    B5+B1
01723  M01S00039.docme2  +++|          ZR     X2,COL3     IF END OF CARD
01724  M01S00040.docme2  +++|          SX3    X2-1R
01725  M01S00041.docme2  +++|          NZ     X3,COL2     IF NOT SPACE
01726  M01S00042.docme2  +++| COL3     RJ     DXB         CONVERT COLUMN NUMBER
01727  M01S00043.docme2  +++|          NZ     X4,CMP1     IF NOT NUMERIC
01728  M01S00044.docme2  +++|          SA6    CCM         RESET COMMENT COLUMN
01729  M01S00045.docme2  +++|          EQ     CMP1        EXIT
01730  M01S01647.docment +++| CTX      SPACE  4,10
01731  M01S01648.docment +++|**        CTX - PROCESS *CTEXT* CARDS.
01732  M01S01649.docment +++|*
01733  M01S01650.docment +++|*         USES   A - 1, 7.
01734  M01S01651.docment +++|*                X - 1, 7.
01735  M01S01652.docment +++|
01736  M01S01653.docment +++|
01737  M01S01654.docment +++| CTX      SA1    XFL         CHECK LIST *X* FLAG
01738  M01S01655.docment +++|          NZ     X1,CMP1     EXIT IF ON
01739  M01S01656.docment +++|          SX7    20          RESET LIST LIMITS
01740  M01S01657.docment +++|          SA7    MAS
01741  M01S01658.docment +++|          SA7    NAS
01742  M01S01659.docment +++|          EQ     CMP1        EXIT
01743  M01S01660.docment +++| EDX      SPACE  4,10
01744  M01S01661.docment +++|**        EDX - PROCESS *ENDX* CARDS.
01745  M01S01662.docment +++|*
01746  M01S01663.docment +++|*         USES   A - 1, 4, 5, 6, 7.
01747  M01S01664.docment +++|*                X - 1, 4, 5, 6, 7.
01748  M01S01665.docment +++|
01749  M01S01666.docment +++|
01750  M01S01667.docment +++| EDX      SA1    XFL         CHECK LIST *X* FLAG
01751  M01S01668.docment +++|          NZ     X1,CMP1     EXIT IF ON
01752  M01S01669.docment +++|          SA4    EDAS        RESTORE LIMITS ON ASTERISK COUNTS
01753  M01S01670.docment +++|          SA5    IDAS
01754  M01S01671.docment +++|          BX6    X4
01755  M01S01672.docment +++|          LX7    X5
01756  M01S01673.docment +++|          SA6    MAS
01757  M01S01674.docment +++|          SA7    NAS
01758  M01S01675.docment +++|          EQ     CMP1        EXIT
01759  M01S01676.docment +++| BKD      SPACE  4,10
01760  M01S01677.docment +++|**        BKD - PROCESS BLOCK DATA SUBPROGRAMS.
01761  M01S01678.docment +++|*
01762  M01S01679.docment +++|*         ENTRY  (B5) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER.
01763  M01S01680.docment +++|*
01764  M01S01681.docment +++|*                EXIT TO *CMP1* IF *COMPASS* PROGRAM.
01765  M01S01682.docment +++|*
01766  M01S01683.docment +++|*                A - 1, 2, 3, 4, 6.
01767  M01S01684.docment +++|*                B - 6, 7.
01768  M01S01685.docment +++|*                X - 0, 1, 2, 3, 4, 6, 7.
01769  M01S01686.docment +++|*
01770  M01S01687.docment +++|*         CALLS  CVT.
01771  M01S01688.docment +++|
01772  M01S01689.docment +++|
01773  M01S01690.docment +++| BKD      BSS    0           ENTRY
01774  M01S01691.docment +++|          SA4    PTYP
01775  M01S01692.docment +++|          ZR     X4,CMP1     IF *COMPASS* PROGRAM
01776  M01S01693.docment +++|          SB6    B5          SAVE ADDRESS OF NEXT CHARACTER
01777  M01S01694.docment +++|          SX2    1R
01778  M01S01695.docment +++| BKD1     SA3    B6          CHECK FOR PRESENCE OF NAME
01779  M01S01696.docment +++|          SB6    B6+B1
01780  M01S01697.docment +++|          IX6    X3-X2
01781  M01S01698.docment +++|          ZR     X3,BKD2     IF NO NAME FOUND
01782  M01S01699.docment +++|          ZR     X6,BKD1     SKIP BLANKS
01783  M01S01700.docment +++|          EQ     FTN         GO PROCESS AS FORTRAN
01784  M01S01701.docment +++|
01785  M01S01702.docment +++| BKD2     SA1    BKDA        BLOCK COUNT
01786  M01S01703.docment +++|          SX6    X1+B1
01787  M01S01704.docment +++|          SA6    A1
01788  M01S01705.docment +++|          RJ     CVT         CONVERT BLOCK COUNT
01789  M01S01706.docment +++|          MX0    42
01790  M01S01707.docment +++|          SA2    BKDB
01791  M01S01708.docment +++|          LX7    X7,B7
01792  M01S01709.docment +++|          BX6    X0*X2
01793  M01S01710.docment +++|          BX7    -X0*X7      GET NUMBER
01794  M01S01711.docment +++|          BX7    X6+X7
01795  M01S01712.docment +++|          MX0    60-6
01796  M01S01713.docment +++|          SB7    10
01797  M01S01714.docment +++|          SB6    B5
01798  M01S01715.docment +++|
01799  M01S01716.docment +++| BKD3     LX7    6           DECODE NAME
01800  M01S01717.docment +++|          SB7    B7-B1
01801  M01S01718.docment +++|          BX6    -X0*X7      GET CHARACTER
01802  M01S01719.docment +++|          SA6    B6
01803  M01S01720.docment +++|          SB6    B6+B1
01804  M01S01721.docment +++|          NZ     B7,BKD3     LOOP FOR 10 CHARACTERS
01805  M01S01722.docment +++|          EQ     FTN         GO PROCESS AS FORTRAN
01806  M01S01723.docment +++|
01807  M01S01724.docment +++| BKDA     DATA   1           BLOCK DATA SUBROUTINE COUNT
01808  M01S01725.docment +++| BKDB     VFD    42/0HNUMBER-,18/
01809  M01S01726.docment +++| LSC      SPACE  4,10
01810  M01S01727.docment +++|**        LSC - PROCESS *LIST* CARD.
01811  M01S01728.docment +++|*
01812  M01S01729.docment +++|*         ENTRY  (B5) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER.
01813  M01S01730.docment +++|*
01814  M01S01731.docment +++|*         USES   A - 2, 4, 5, 6, 7.
01815  M01S01732.docment +++|*                B - 7.
01816  M01S01733.docment +++|*                X - 2, 3, 4, 5, 6, 7.
01817  M01S01734.docment +++|
01818  M01S01735.docment +++|
01819  M01S01736.docment +++| LSC      SB7    B1          SET .NOT. *-* FLAG
01820  M01S01737.docment +++|          SA2    B5          READ NEXT CHARACTER
01821  M01S01738.docment +++|          SX3    1R
01822  M01S01739.docment +++| LSC1     ZR     X2,CMP1     EXIT IF NO LIST PARAMETERS LEFT
01823  M01S01740.docment +++|          IX6    X2-X3
01824  M01S01741.docment +++|          BX4    X2
01825  M01S01742.docment +++|          SA2    A2+B1       READ NEXT CHARACTER
01826  M01S01743.docment +++|          ZR     X6,LSC1     SKIP BLANKS
01827  M01S01744.docment +++|          SA5    A2+B1       READ FOLLOWING CHARACTER
01828  M01S01745.docment +++|          SB7    X4-1R-      CHECK FOR *-*
01829  M01S01746.docment +++|          ZR     B7,LSC2     IF PRESENT
01830  M01S01747.docment +++|          SA5    A2
01831  M01S01748.docment +++|          SX2    X4
01832  M01S01749.docment +++| LSC2     SX6    X2-1RL      *L*
01833  M01S01750.docment +++|          SX7    X2-1RX      *X*
01834  M01S01751.docment +++|          SX2    X2-1R*      ***
01835  M01S01752.docment +++|          ZR     X6,LSC4
01836  M01S01753.docment +++|          ZR     X7,LSC6
01837  M01S01754.docment +++|          ZR     X2,LSC9
01838  M01S00046.docme2  +++|          EQ     LSC8        PUSH LIST OPTION ONTO STACK
01839  M01S01755.docment +++| LSC3     IX2    X5-X3       CHECK FOR END
01840  M01S01756.docment +++|          ZR     X2,CMP1     IF END OF CARD
01841  M01S01757.docment +++|          SA2    A5+B1
01842  M01S01758.docment +++|          EQ     LSC1        CONTINUE SEARCH
01843  M01S01759.docment +++|
01844  M01S01760.docment +++| LSC4     NZ     B7,LSC5     PROCESS *L*
01845  M01S01761.docment +++|          SX7    20          PROCESS *-L*
01846  M01S01762.docment +++|          SA7    MAS         RESET LIST LIMITS
01847  M01S01763.docment +++|          SA7    NAS
01848  M01S01764.docment +++|          EQ     LSC8        TRY AGAIN
01849  M01S01765.docment +++|
01850  M01S01766.docment +++| LSC5     SA4    EDAS        RESET LIST LIMITS FOR *L* CARD
01851  M01S01767.docment +++|          SA2    IDAS
01852  M01S01768.docment +++|          BX6    X4
01853  M01S01769.docment +++|          LX7    X2
01854  M01S01770.docment +++|          SA6    MAS
01855  M01S01771.docment +++|          SA7    NAS
01856  M01S01772.docment +++|          EQ     LSC8        TRY AGAIN
01857  M01S01773.docment +++|
01858  M01S01774.docment +++| LSC6     NZ     B7,LSC7     PROCESS *X*
01859  M01S01775.docment +++|          SA7    XFL         CLEAR LIST X FLAG
01860  M01S01776.docment +++|          EQ     LSC8        TRY AGAIN
01861  M01S01777.docment +++| LSC7     SX6    1RX
01862  M01S01778.docment +++|          SA6    XFL         SET LIST X FLAG
01863  M01S01779.docment +++| LSC8     SA2    MAS
01864  M01S01780.docment +++|          SA4    NAS
01865  M01S01781.docment +++|          LX2    40
01866  M01S01782.docment +++|          LX4    20
01867  M01S01783.docment +++|          BX7    X2+X4
01868  M01S01784.docment +++|          SA4    XFL
01869  M01S01785.docment +++|          BX7    X7+X4
01870  M01S01786.docment +++|          SA2    LSCA        LIST OPTIONS TABLE
01871  M01S01787.docment +++|          SX6    X2+B1
01872  M01S01788.docment +++|          SA6    A2
01873  M01S01789.docment +++|          SX4    X6-LSCBL
01874  M01S01790.docment +++|          PL     X4,LSC10    IF LIST CARD LIMIT REACHED
01875  M01S01791.docment +++|          SA7    LSCB+X6
01876  M01S01792.docment +++|          EQ     LSC3        TRY AGAIN
01877  M01S01793.docment +++|
01878  M01S01794.docment +++| LSC9     SA2    LSCA
01879  M01S01795.docment +++|          SX6    X2-1
01880  M01S01796.docment +++|          NG     X6,LSC3     IF NO STACK
01881  M01S01797.docment +++|          SA6    A2+
01882  M01S01798.docment +++|          SX4    X6-LSCBL
01883  M01S01799.docment +++|          PL     X4,LSC3     IF STILL ABOVE LIMIT
01884  M01S01800.docment +++|          SA4    LSCB+X6
01885  M01S01801.docment +++|          MX2    20
01886  M01S01802.docment +++|          BX6    X2*X4       GET MAS
01887  M01S01803.docment +++|          BX7    -X2*X4      GET NAS
01888  M01S01804.docment +++|          LX6    20
01889  M01S01805.docment +++|          LX7    40
01890  M01S01806.docment +++|          SX7    X7
01891  M01S01807.docment +++|          SA7    NAS
01892  M01S01808.docment +++|          SA6    MAS
01893  M01S01809.docment +++|          SX7    X4
01894  M01S01810.docment +++|          SA7    XFL
01895  M01S01811.docment +++|          EQ     LSC3
01896  M01S01812.docment +++|
01897  M01S01813.docment +++| LSC10    MESSAGE (=C* LIST CARD LIMIT - CARD IGNORED.*)
01898  M01S01814.docment +++|          EQ     LSC3
01899  M01S01815.docment +++|
01900  M01S01816.docment +++|
01901  M01S01817.docment +++| LSCA     CON    0
01902  M01S01818.docment +++| LSCB     CON    0
01903  M01S01819.docment +++|          BSSZ   NLCA
01904  M01S01820.docment +++| LSCBL    EQU    *-LSCB
01905  M01S01821.docment +++| TIT      SPACE  4,10
01906  M01S01822.docment +++|**        TIT - PROCESS TITLE CARD.
01907  M01S01823.docment +++|*
01908  M01S01824.docment +++|*         ENTRY  (B5) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER.
01909  M01S01825.docment +++|*
01910  M01S01826.docment +++|*         USES   A - 1, 2, 7.
01911  M01S01827.docment +++|*                B - 5, 6, 7.
01912  M01S01828.docment +++|*                X - 1, 2, 3, 6, 7.
01913  M01S01829.docment +++|
01914  M01S01830.docment +++|
01915  M01S01831.docment +++| TIT      MX7    0           CLEAR TITLE FROM SPECIAL CARD LIST
01916  M01S01832.docment +++|          SA7    CMPC
01917  M01S01833.docment +++|          SA2    B5          READ NEXT CHARACTER
01918  M01S01834.docment +++|          SA1    =5L
01919  M01S01835.docment +++|          SX3    1R
01920  M01S01836.docment +++| TIT1     IX6    X2-X3       CHECK FOR BLANK
01921  M01S01837.docment +++|          ZR     X2,CMP1     EXIT IF NO TITLE
01922  M01S01838.docment +++|          SA2    A2+B1       READ NEXT CHARACTER
01923  M01S01839.docment +++|          ZR     X6,TIT1     SKIP BLANKS
01924  M01S01840.docment +++|          SX1    2R1
01925  M01S01841.docment +++|          SB7    8
01926  M01S01842.docment +++|          SB6    5           SET WORD COUNT
01927  M01S01843.docment +++|          BX7    X1
01928  M01S01844.docment +++|          SA2    A2-B1       READ LAST CHARACTER
01929  M01S01845.docment +++|          SB5    B0
01930  M01S01846.docment +++|          EQ     TIT3
01931  M01S01847.docment +++|
01932  M01S01848.docment +++| TIT2     SB7    10
01933  M01S01849.docment +++|          SA7    B5+HDG      STORE WORD
01934  M01S01850.docment +++|          SB6    B6-B1       DECREMENT LOOP COUNT
01935  M01S01851.docment +++|          SB5    B5+B1
01936  M01S01852.docment +++|          MX7    0
01937  M01S01853.docment +++|          ZR     B6,CMP1     IF DONE
01938  M01S01854.docment +++| TIT3     LX7    6           ENCODE 10 CHARACTERS
01939  M01S01855.docment +++|          SB7    B7-B1       DECREMENT CHARACTER COUNT
01940  M01S01856.docment +++|          BX7    X7+X2
01941  M01S01857.docment +++|          SA2    A2+B1       READ NEXT CHARACTER
01942  M01S01858.docment +++|          NZ     B7,TIT3     LOOP FOR 10 CHARACTERS
01943  M01S01859.docment +++|          EQ     TIT2        GET NEXT WORD
01944  M01S01860.docment +++|          TITLE  COMMON DECKS.
01945  M01S01861.docment +++|**        COMMON DECKS.
01946  M01S01862.docment +++|
01947  M01S01863.docment +++|*CALL COMCSFN
01948  M01S01864.docment +++|*CALL COMCMVE
01949  M01S01865.docment +++|*CALL COMCWTO
01950  M01S01866.docment +++|*CALL COMCDXB
01951  M01S01867.docment +++|*CALL COMCRDC
01952  M01S01868.docment +++|*CALL COMCRDO
01953  M01S01869.docment +++|*CALL COMCRDH
01954  M01S01870.docment +++|*CALL COMCRDS
01955  M01S01871.docment +++|*CALL COMCRDW
01956  M01S01872.docment +++|*CALL COMCWTC
01957  M01S01873.docment +++|*CALL COMCWTS
01958  M01S01874.docment +++|*CALL COMCWTW
01959  M01S01875.docment +++|*CALL COMCCIO
01960  M01S01876.docment +++|*CALL COMCSYS
01961  M01S01877.docment +++|          TITLE  DECODING AREA.
01962  M01S01878.docment +++|          USE    DECODE      DECODE AREA
01963  M01S01879.docment +++|
01964  M01S01880.docment +++| TCF      BSS    0           TABLE CONTENT LINE
01965  M01S01881.docment +++|          DUP    9,1
01966  M01S01882.docment +++|          DATA   1R
01967  M01S01883.docment +++|          DATA   1R/
01968  M01S01884.docment +++|
01969  M01S01885.docment +++| TCL      BSSZ   73
01970  M01S01886.docment +++|

Proceed to Part 1