Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.docment +++| IDENT DOCMENT,FETS
00002 M00S00002.docment +++| ABS
00003 M00S00003.docment +++| ENTRY DOCMENT
00004 M00S00004.docment +++| ENTRY MFL=
00005 M00S00005.docment +++| SYSCOM B1
| Line S00001 Modification History |
M01 (Added by) | ns2573 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00001.ns2573 +++| LIST F
00007 M01S00002.ns2573 +++|
00008 M00S00006.docment +++| DOCMENT TITLE DOCMENT - INTERNAL/EXTERNAL DOCUMENTATION PROGRAM.
00009 M00S00007.docment +++|*COMMENT DOCMENT - INTERNAL/EXTERNAL DOCUMENTATION PROGRAM.
| Line S00008 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00010 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP., 1976.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00011 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00012 M00S00009.docment +++| SPACE 4,10
00013 M00S00010.docment +++|*** DOCMENT - INTERNAL/EXTERNAL DOCUMENTATION PROGRAM.
00014 M00S00011.docment +++|* R.S. HORECK 70/07/06.
00015 M00S00012.docment +++| SPACE 4
00016 M00S00013.docment +++|*** CONTROL CARD CALL.
00017 M00S00014.docment +++|*
00018 M00S00015.docment +++|* DOCMENT(P1,P2,P3,,,PN)
00019 M00S00016.docment +++|*
00020 M00S00017.docment +++|* THE PARAMETERS P(I) MAY INCLUDE THE FOLLOWING (IN ANY ORDER)
00021 M00S00018.docment +++|* AND MUST BE IN ONE OF THE FORMS -
00022 M00S00019.docment +++|*
00023 M00S00020.docment +++|* * * - (NONE) ASSUME FIRST DEFAULT VALUE.
00024 M00S00021.docment +++|* P - ASSUME ALTERNATE DEFAULT VALUE.
00025 M00S00022.docment +++|* P=X - SUBSTITUTE *X* FOR ANY ASSUMED VALUE OF *P*.
00026 M00S00023.docment +++|*
00027 M00S00024.docment +++|* ANY NUMERIC PARAMETER MAY BE SPECIFIED WITH A POST RADIX
00028 M00S00025.docment +++|* TO CLARIFY ITS VALUE. THE RADIX MAY BE *D* OR *B*.
00029 M00S00026.docment +++|*
00030 M00S00027.docment +++|* I - INPUT FILE NAME ON WHICH TO FIND PAGE FOOTING INFORMATION.
00031 M00S00028.docment +++|* THIS MUST BE A SINGLE CARD OF THE FORMAT -
00032 M00S00029.docment +++|* COLUMN(S) - CONTENTS -
00033 M00S00030.docment +++|* 2-45 DOCUMENT TITLE - COLUMN 1 MUST BE BLANK.
00034 M00S00031.docment +++|* 46-55 PUBLICATION NUMBER.
00035 M00S00032.docment +++|* 56-60 REVISION LEVEL.
00036 M00S00033.docment +++|* 61-70 REVISION DATE.
00037 M00S00034.docment +++|* S - FILE CONTAINING THE SOURCE CARD IMAGES FROM WHICH TO
00038 M00S00035.docment +++|* EXTRACT THE DOCUMENTATION. THIS FILE IS REWOUND
00039 M00S00036.docment +++|* UNLESS THE *NR* PARAMETER IS SPECIFIED.
00040 M00S00037.docment +++|* L - FILE ON WHICH DOCUMENTATION IS TO BE WRITTEN.
00041 M00S00038.docment +++|* N - NUMBER OF COPIES TO BE PRODUCED.
00042 M00S00039.docment +++|* T - DOCUMENTATION TYPE (INT OR EXT)
00043 M00S00040.docment +++|* C - CHECK CHARACTER FOR DOCUMENTATION.
00044 M00S00041.docment +++|* P - NUMBER OF PRINT LINES / PAGE.
00045 M00S00042.docment +++|* NR - DISABLE REWIND ON THE *S* (SOURCE) FILE.
00046 M00S00043.docment +++|* NT - NEGATE THE TABLE GENERATOR.
00047 M00S00044.docment +++|* TC - LIST TABLE OF CONTENTS.
00048 M00S00045.docment +++|*
00049 M00S00046.docment +++|* DEFAULT PARAMETER SUBSTITUTION VALUES -
00050 M00S00047.docment +++|*
00051 M00S00048.docment +++|* FIRST ALTERNATE
00052 M00S00049.docment +++|* PARAMETER DEFAULT DEFAULT - COMMENT -
00053 M00S00050.docment +++|*
00054 M00S00051.docment +++|* I *0* *INPUT* PAGE FOOT INFORMATION.
00055 M00S00052.docment +++|* S *COMPILE* *SOURCE* SOURCE CARD IMAGES.
00056 M00S00053.docment +++|* L *OUTPUT* *OUTPUT* LIST FILE.
00057 M00S00054.docment +++|* N 1 1 DECIMAL NUMBER OF COPIES.
00058 M00S00055.docment +++|* T *EXT* *INT* DOCUMENTATION TYPE.
00059 M00S00056.docment +++|* C -*- *03* CHECK CHAR. (2 OCTAL DIGITS)
| Line S00057 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00060 M01S00057.ns22000 ---|* P *60* *80* NUMBER OF PRINT LINES/PAGE.
| Line S00001 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00058.docment +++|* NR REWIND NO REWIND STATUS OF SOURCE FILE REWIND.
00065 M00S00059.docment +++|* NT ON OFF STATUS OF TABLE GENERATOR.
00066 M00S00060.docment +++|* TC OFF ON STATUS OF TABLE OF CONTENTS.
00067 M00S00061.docment +++| SPACE 4,10
00068 M00S00062.docment +++|*** DOCUMENTATION FOLLOWS THE FOLLOWING RULES.
00069 M00S00063.docment +++|*
00070 M00S00064.docment +++|* EXTERNAL DOCUMENTATION -
00071 M00S00065.docment +++|* THREE ASTERISKS STARTING IN COLUMN 1 START DOCUMEN-
00072 M00S00066.docment +++|* TATION WHICH CONTINUES UNTIL ALL CONSECUTIVE CARDS
00073 M00S00067.docment +++|* WITH COLUMN 1 ASTERISKS HAVE BEEN EXHAUSTED.
00074 M00S00068.docment +++|*
00075 M00S00069.docment +++|* INTERNAL DOCUMENTATION -
00076 M00S00070.docment +++|* TWO OR THREE ASTERISKS STARTING IN COLUMN 1 START DOC-
00077 M00S00071.docment +++|* UMENTATION WHICH CONTINUES UNTIL ALL CONSECUTIVE CARDS
00078 M00S00072.docment +++|* CONTAINING COLUMN 1 ASTERISKS HAVE BEEN EXHAUSTED.
00079 M00S00073.docment +++|*
00080 M00S00074.docment +++|* IN ADDITION, ANY CARD WITH FOUR (4) ASTERISKS STARTING
00081 M00S00075.docment +++|* IN COLUMN 1 ACTS AS A TOGGLE FOR DOCUMENTATION. IN THIS
00082 M00S00076.docment +++|* MANNER WHEN A CARD IS FOUND TO CONTAIN 4 ASTERISKS
00083 M00S00077.docment +++|* STARTING IN COLUMN 1, THAT CARD AND ALL SUCCEEDING
00084 M00S00078.docment +++|* CARDS THROUGH ANOTHER LIKE CARD (REGARDLESS OF THE
00085 M00S00079.docment +++|* COLUMN 1 CHARACTER) ARE CONSIDERED TO BE PART OF THE
00086 M00S00080.docment +++|* DOCUMENTATION.
00087 M00S00081.docment +++|*
00088 M00S00082.docment +++|* DOCUMENTATION FORMAT -
00089 M00S00083.docment +++|*
00090 M00S00084.docment +++|* EACH PAGE OF DOCUMENTATION IS COMPOSED OF 3 ELEMENTS
00091 M00S00085.docment +++|*
00092 M00S00086.docment +++|* 1. PAGE HEADER - THIS LINE GIVES THE FIRST 45 CHARAC-
00093 M00S00087.docment +++|* TERS (LEADING BLANKS SUPPRESSED) OF THE
00094 M00S00088.docment +++|* SUBPROGRAM HEADER (I.E. SUBROUTINE,IDENT,
00095 M00S00089.docment +++|* ETC.), THE CURRENT DATE, AND THE DOCUMEN-
00096 M00S00090.docment +++|* TATION TYPE (EXT OR INT).
00097 M00S00091.docment +++|* 2. DOCUMENTATION TEXT - DOCUMENTATION EXTRACTED FROM
00098 M00S00092.docment +++|* THE SOURCE CARDS (EACH SUBGROUP SEPARATED
00099 M00S00093.docment +++|* BY 4 BLANK LINES).
00100 M00S00094.docment +++|* 3. PAGE FOOTING - THIS LINE INCLUDES THE 70 CHARACTERS
00101 M00S00095.docment +++|* READ FROM THE *INPUT* FILE AND THE PAGE
00102 M00S00096.docment +++|* NUMBER OF THE FORM *X/Y* WHERE - X IS THE
00103 M00S00097.docment +++|* NUMBER OF THE SUBPROGRAM (CHAPTER) AND Y
00104 M00S00098.docment +++|* IS THE PAGE WITHIN THIS CHAPTER.
00105 M00S00099.docment +++|*
00106 M00S00100.docment +++|* SPECIAL CARD TYPES -
00107 M00S00101.docment +++|*
00108 M00S00102.docment +++|* DOCUMENTATION CARDS CONTAINING *E IN COLUMNS 1 AND 2 CAUSE
00109 M00S00103.docment +++|* THE PAGE TO BE EJECTED.
00110 M00S00104.docment +++|*
00111 M00S00105.docment +++|* DOCUMENTATION CARDS CONTAINING *T IN COLUMNS 1 AND 2 ACTIVATE
00112 M00S00106.docment +++|* THE TABLE WRITER.
00113 M00S00107.docment +++|* FOR EXAMPLE, THE CARD -
00114 M00S00108.docment +++|* *T EXAMPLE 24/PP PROGRAM NAME+RECALL,18/PARAMETER 1,18/PARAMETER 2
00115 M00S00109.docment +++|* WOULD GENERATE THE FOLLOWING TABLE PICTURE -
00116 M00S00110.docment +++|*
00117 M00S00111.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 M00S00112.docment +++|*
00119 M00S00113.docment +++|* THE IDENTIFICATION *EXAMPLE* MAY BE OMITTED.
00120 M00S00114.docment +++|* EACH TIME A NEW BLOCK OF *T CARDS IS ENCOUNTERED,
00121 M00S00115.docment +++|* A BIT POSITION HEADER IS LISTED. THIS HEADER IS NOT
00122 M00S00116.docment +++|* LISTED FOR EACH CONSECUTIVE TABLE CARD OR FOR ANY
00123 M00S00117.docment +++|* CARD CONTAINING A NON-BLANK CHARACTER IN COLUMN 3 OF
00124 M00S00118.docment +++|* THE FIRST *T CARD IN A BLOCK.
00125 M00S00119.docment +++|* CARD FORMAT IS THE SAME AS FOR THE COMPASS *VFD*
00126 M00S00120.docment +++|* PSEUDO INSTRUCTION, HOWEVER, NO *VFD* MAY BE PRESENT.
00127 M00S00121.docment +++|* A SLASH */* MUST IMMEDIATELY FOLLOW A BIT COUNT
00128 M00S00122.docment +++|* FIELD, BUT LEADING SPACES ARE IGNORED.
00129 M00S00123.docment +++|* ALL BIT COUNTS FOR FIELD WIDTHS MAY BE SPECIFIED IN
00130 M00S00124.docment +++|* EITHER OCTAL OR DECIMAL. DECIMAL COUNTS ARE ASSUMED
00131 M00S00125.docment +++|* IN THE ABSENCE OF A POST-RADIX (B) OR (D).
00132 M00S00126.docment +++|* MAXIMUM PICTURE WIDTH IS 60 BITS.
00133 M00S00127.docment +++|* A SLASH SEPARATES FIELDS IN THE PICTURE AND THE
00134 M00S00128.docment +++|* BIT POSITION IT OCCUPIES IS INCLUDED IN THE FIELD
00135 M00S00129.docment +++|* TO ITS LEFT. SINGLE BIT FIELDS ARE LISTED WITHOUT
00136 M00S00130.docment +++|* A SLASH FIELD SEPARATOR. ALL TABLE ENTRY
00137 M00S00131.docment +++|* DESCRIPTION CARDS WITHIN A *T BLOCK ARE CONSIDERED
00138 M00S00132.docment +++|* TO HAVE THE SAME TOTAL NUMBER OF BITS.
00139 M00S00133.docment +++|* FIELD LABELS ARE LEFT JUSTIFIED WITHIN THE FIELD
00140 M00S00134.docment +++|* AND WILL BE TRUNCATED IF THE LABEL CONTAINS MORE
00141 M00S00135.docment +++|* CHARACTERS THAN THE BIT COUNT MINUS 1.
00142 M00S00136.docment +++|* IF THE THIRD CHARACTER ON THE CARD IS NON-BLANK, NO
00143 M00S00137.docment +++|* BIT COUNT HEADER WILL BE PLACED ABOVE THE TABLE
00144 M00S00138.docment +++|* ENTRY. SINGLE BIT FIELDS WILL BE LISTED WITH A *+*
00145 M00S00139.docment +++|* BELOW THE FIELD POSITION. THE ONLY EXCEPTION TO THIS
00146 M00S00140.docment +++|* IS THE CASE WHERE ONLY ONE TABLE ENTRY IS LISTED. IN
00147 M00S00141.docment +++|* THIS INSTANCE THE *+* WILL BE LISTED BOTH ABOVE AND
00148 M00S00142.docment +++|* BELOW THE FIELD POSITION.
00149 M00S00143.docment +++|*
00150 M00S00144.docment +++|* ALL LOADER CONTROL CARDS (I.E. OVERLAY,SECTION,ETC.) ARE
00151 M00S00145.docment +++|* CONSIDERED SPECIAL AND THEIR IMAGES ARE PLACED ALONG
00152 M00S00146.docment +++|* WITH THE PAGE NUMBER AT THE FOOT OF EACH SUBPROGRAM
00153 M00S00147.docment +++|* ENCOMPASSED BY THE SCOPE OF THE DIRECTIVE.
00154 M00S00148.docment +++|* ALL *END* CARDS ARE CONSIDERED SPECIAL SINCE THEY TERMINATE A
00155 M00S00149.docment +++|* CHAPTER.
00156 M00S00150.docment +++|* IN COMPASS THE FOLLOWING CARDS ALSO HAVE SPECIAL MEANING -
00157 M00S00151.docment +++|* TITLE - THE FIRST TITLE CARD REPLACES THE PAGE HEADER
00158 M00S00152.docment +++|* WITH ITS CONTENTS (IF NON-BLANK).
00159 M00S00153.docment +++|* SUBSEQUENT TITLE CARDS ARE IGNORED.
00160 M00S00154.docment +++|* LIST - THE PARAMETERS *X* AND *L* ARE PROCESSED. IF A
00161 M00S00155.docment +++|* *-L* IS ENCOUNTERED ALL DOCUMENTATION IS
00162 M00S00156.docment +++|* SUPRESSED UNTIL A *LIST L* CARD IS ENCOUN-
00163 M00S00157.docment +++|* TERED. IF A *-X* (ASSUMED) IS ENCOUNTERED,
00164 M00S00158.docment +++|* NO DOCUMENTATION WILL BE PROCESSED ON
00165 M00S00159.docment +++|* COMMON TEXT *CTEXT* UNTIL A *LIST X* CARD
00166 M00S00160.docment +++|* IS FOUND. ONLY A DEFINED NUMBER OF LIST
00167 M00S00161.docment +++|* CARDS MAY BE PROCESSED. THIS NUMBER IS
00168 M00S00162.docment +++|* DEFINED BY THE TAG *NLCA*. EACH (LIST *)
00169 M00S00163.docment +++|* CARD ALLOWS AN EXTRA LIST CARD TO BE
00170 M00S00164.docment +++|* PROCESSED ABOVE THE NUMBER *NLCA*.
00171 M00S00165.docment +++|* CTEXT,ENDX - BRACKET CARDS SURROUNDING COMMON TEXT -
00172 M00S00166.docment +++|* NO DOCUMENTATION IS LISTED UNLESS A *LIST
00173 M00S00167.docment +++|* X* CARD HAS BEEN ENCOUNTERED.
| Line S00001 Modification History |
M01 (Added by) | docme2 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00168.docment +++| TITLE DATA DEFINITION.
00180 M00S00169.docment +++|* CONSTANTS.
00181 M00S00170.docment +++|
00182 M00S00171.docment +++| SBUFL EQU 201B LENGTH OF TABLE OF CONTENTS BUFFER
00183 M00S00172.docment +++| BFSZ EQU 3001B BUFFER SIZE
00184 M00S00173.docment +++| NBFS EQU 2 NUMBER OF BUFFERS
00185 M00S00174.docment +++| NCR EQU 72 NUMBER OF CHARACTERS TO READ FROM A CARD
00186 M00S00175.docment +++| NLCA EQU 24 NUMBER OF LIST CARDS ALLOWED
00187 M00S00176.docment +++| FLP EQU 7 NUMBER OF HEADER FOOTER LINES
| Line S00004 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00188 M01S00004.ns22000 +++| MPGS EQU 16D MINIMUM PAGE SIZE
00189 M00S00177.docment +++| SPACE 4,10
00190 M00S00178.docment +++|*CALL COMCMAC
| Line S00005 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00191 M01S00005.ns22000 +++|*CALL COMCCMD
00192 M00S00179.docment +++| SPACE 4,10
00193 M00S00180.docment +++| ORG 110B
00194 M00S00181.docment +++|
00195 M00S00182.docment +++| FETS BSS 0
00196 M00S00183.docment +++|
00197 M00S00184.docment +++|
00198 M00S00185.docment +++| S VFD 42/0LCOMPILE,18/3 FETS FOR INPUT AND SOURCE
00199 M00S00186.docment +++|
00200 M00S00187.docment +++| O VFD 42/0LOUTPUT,18/3 FETS FOR OUTPUT AND SCRATCH
00201 M00S00188.docment +++|
00202 M00S00189.docment +++| SCR1 FILEB BUF,BFSZ
00203 M00S00190.docment +++|
00204 M00S00191.docment +++| SCR2 FILEB SBUF,SBUFL
00205 M00S00192.docment +++|
00206 M00S00193.docment +++| I BSS 0
00207 M00S00194.docment +++| INPUT FILEB BUF+BFSZ,BFSZ
00208 M00S00195.docment +++| INPX EQU *
00209 M00S00196.docment +++| ORG INPUT
00210 M00S00197.docment +++| CON 0
00211 M00S00198.docment +++| ORG INPX
00212 M00S00199.docment +++|
00213 M00S00200.docment +++|* TABLE OF SPECIAL NAMES.
00214 M00S00201.docment +++|
00215 M00S00202.docment +++| TNM VFD 60/-0 10 CHAR MASK
00216 M00S00203.docment +++| DATA 10HSUBROUTINE
00217 M00S00204.docment +++| DATA 10HPRECISION
00218 M00S00205.docment +++| VFD 48/-0,12/ 8 CHAR MASK
00219 M00S00206.docment +++| DATA 8LFUNCTION
00220 M00S00207.docment +++| VFD 42/-0,18/ 7 CHAR MASK
00221 M00S00208.docment +++| DATA 7LPROGRAM
00222 M00S00209.docment +++| DATA 7LINTEGER
00223 M00S00210.docment +++| DATA 7LFORTRAN
00224 M00S00211.docment +++| DATA 7LLOGICAL
00225 M00S00212.docment +++| DATA 7LOVERLAY
00226 M00S00213.docment +++| DATA 7LSEGMENT
00227 M00S00214.docment +++| DATA 7LSECTION
00228 M00S00215.docment +++| DATA 7LSEGZERO
00229 M00S00216.docment +++| DATA 7LCHNLINK
00230 M00S00217.docment +++| VFD 36/-0,24/ 6 CHAR MASK
00231 M00S00218.docment +++| DATA 6LDOUBLE
00232 M00S00219.docment +++| DATA 6LSINGLE
00233 M00S00220.docment +++| VFD 30/-0,30/ 5 CHAR MASK
00234 M00S00221.docment +++| DATA 5LIDENT
00235 M00S00222.docment +++| DATA 5LBLOCK
00236 M00S00223.docment +++| VFD 24/-0,36/ 4 CHAR MASK
00237 M00S00224.docment +++| DATA 4LTYPE
00238 M00S00225.docment +++| DATA 4LDATA
00239 M00S00226.docment +++| DATA 4LREAL
00240 M00S00227.docment +++| VFD 12/-0,48/ 2 CHAR MASK
00241 M00S00228.docment +++| DATA 2LII
00242 M00S00229.docment +++| DATA 2LIV
00243 M00S00230.docment +++| DATA 2LVI
00244 M00S00231.docment +++| VFD 60/ END OF TABLE
00245 M00S00232.docment +++| SPACE 4
00246 M00S00233.docment +++|* VARIABLES.
00247 M00S00234.docment +++|
00248 M00S00235.docment +++| NAS DATA 20 NUMBER OF ASTERISKS NECESSARY IN THE FIRST
00249 M00S00236.docment +++| MAS DATA 3 MINIMUM NUMBER OF ASTERISKS NEEDED FOR DOC
00250 M00S00237.docment +++| XFL DATA 0 LIST X FLAG
00251 M00S00238.docment +++| FOUR COLUMNS TO TURN TOGGLE
00252 M00S00239.docment +++| TOG DATA 0 TOGGLE FOR **** CARDS (INT ONLY) 0=NO,1=YES
00253 M00S00240.docment +++| PTYP CON 0 PROGRAM TYPE (0=*COMPASS*, 1=FORTRAN)
00254 M00S00241.docment +++| FCR DATA 1 FIRST COLUMN TO CHECK ON INPUT CARD
| Line S00006 Modification History |
M01 (Added by) | docme2 |
Seq # *Modification Id* Act
----------------------------+
00255 M01S00006.docme2 +++| CCM DATA 30 COLUMN FOR COMMENTS
| Line S00242 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00256 M01S00242.ns22000 ---| LCT VFD 60/LINP+7 LINE COUNT
00257 M01S00243.ns22000 ---| LLM CON LINP MAXIMUM NUMBER OF LINES PER PAGE
| Line S00006 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00244.docment +++|
00266 M00S00245.docment +++| HDG BSS 5 HEADING LINE
00267 M00S00246.docment +++| HDG1 CON 0 DATE
00268 M00S00247.docment +++| HDG2 DATA 10H EXTERNAL
00269 M00S00248.docment +++| CON 0 END OF LINE
00270 M00S00249.docment +++|
| Line S00250 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00271 M01S00250.281l803 ---| FOT DATA 40H CONTROL DATA CORPORATION DOCUMENTATION.
| Line S00002 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00272 M01S00002.281l803 +++| FOT DATA 40H CONTROL DATA SYSTEMS DOCUMENTATION.
00273 M00S00251.docment +++| DATA 30H
00274 M00S00252.docment +++| BSSZ 1 END OF LINE FLAG
00275 M00S00253.docment +++| SBF DATA 10H
00276 M00S00254.docment +++| DUP 5,1
00277 M00S00255.docment +++| DATA 10H
00278 M00S00256.docment +++| PGE VFD 42/7H PAGE ,18/
00279 M00S00257.docment +++| BSSZ 1 SUBPAGE NUMBER
00280 M00S00258.docment +++|
00281 M00S00259.docment +++| CHP BSSZ 1 CHAPTER COUNT
00282 M00S00260.docment +++| SPG BSSZ 1 SUBCHAPTER PAGE COUNT
00283 M00S00261.docment +++| EDAS DATA 3 SAME AS MAS
00284 M00S00262.docment +++| IDAS DATA 20 SAME AS NAS
00285 M00S00263.docment +++| FLF DATA 0 FIRST LINE LISTED FLAG
00286 M00S00264.docment +++| PCT DATA 0 PAGE COUNT FOR PAGE PARITY CHECK
00287 M00S00265.docment +++|
00288 M00S00266.docment +++|* INPUT PARAMETERS.
00289 M00S00267.docment +++|
00290 M00S00268.docment +++| N CON 1L1
00291 M00S00269.docment +++| T CON 0LEXT
00292 M00S00270.docment +++| C CON 0L47B
| Line S00271 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00293 M01S00271.ns22000 ---| UCI DECMIC LINP,2
00294 M01S00272.ns22000 ---| P CON 0L"UCI"D
| Line S00013 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00295 M01S00013.ns22000 +++| P CON 0 LINES PER PAGE
00296 M00S00273.docment +++| NR CON 0 DISABLE SOURCE FILE REWIND
00297 M00S00274.docment +++| NT CON 0
00298 M00S00275.docment +++| TC CON 0
00299 M00S00276.docment +++| NI CON 0
00300 M00S00277.docment +++| TITLE MAIN PROGRAM.
00301 M00S00278.docment +++|** DOCMENT - MAIN PROGRAM.
00302 M00S00279.docment +++|
00303 M00S00280.docment +++|
00304 M00S00281.docment +++| DOCMENT SB1 1
| Line S00282 Modification History |
M01 (Removed by) | docme2 |
Seq # *Modification Id* Act
----------------------------+
00305 M01S00282.docme2 ---| RJ SES SET EQUAL SIGNS IN PARAMETER LIST
| Line S00014 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00306 M01S00014.ns22000 +++| RJ IPP INITIALIZE PAGE PARAMETERS
00307 M00S00283.docment +++| SA1 ACTR GET ARGUMENT COUNT
00308 M00S00284.docment +++| R= A4,ARGR FIRST ARGUMENT
00309 M00S00285.docment +++| SB4 X1
00310 M00S00286.docment +++| SB5 ARGA ADDRESS OF ARGUMENT TABLE
00311 M00S00287.docment +++| RJ ARG PROCESS ARGUMENTS
00312 M00S00288.docment +++| NZ X1,DOC7 IF ERROR IN ARGUMENTS
00313 M00S00289.docment +++| RJ CKO CHECK OPTIONS
| Line S00015 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00314 M01S00015.ns22000 +++| RJ CTF CHECK TERMINAL FILE
00315 M01S00016.ns22000 +++| RJ CTP CALCULATE TITLE PAGE
00316 M00S00290.docment +++| REWIND SCR2,R REWIND SCRATCH FILE
00317 M00S00291.docment +++| REWIND SCR1,R REWIND SCRATCH FILE
00318 M00S00292.docment +++| RJ RIF READ INPUT FILE
00319 M00S00293.docment +++| SA5 S CHANGE FILE NAME OF INPUT
00320 M00S00294.docment +++| BX6 X5
00321 M00S00295.docment +++| SA6 I
00322 M00S00296.docment +++| SA1 NR
00323 M00S00297.docment +++| NZ X1,DOC0.1 IF NO REWIND OF SOURCE FILE
00324 M00S00298.docment +++| REWIND A6,R REWIND SOURCE FILE
00325 M00S00299.docment +++| DOC0.1 READ I BEGIN READING SOURCE CODE
| Line S00300 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00326 M01S00300.ns22000 ---| SA2 LLM
00327 M01S00301.ns22000 ---| SX2 X2-61
00328 M01S00302.ns22000 ---| NG X2,DOC1
00329 M01S00303.ns22000 ---| SX6 1RT
00330 M01S00304.ns22000 ---| LX6 9*6
00331 M01S00305.ns22000 ---| WRITEO SCR1
00332 M01S00306.ns22000 ---| MX1 0
00333 M00S00307.docment +++| DOC1 READS I,DCD,NCR READ INPUT CARD
00334 M00S00308.docment +++| NZ X1,DOC2 IF EOR/EOF
00335 M00S00309.docment +++| RJ PRC PROCESS SUBPROGRAM
00336 M00S00310.docment +++| EQ DOC1
00337 M00S00311.docment +++|
00338 M00S00312.docment +++| DOC2 NG X1,DOC3 IF EOF
00339 M00S00313.docment +++| SA5 S
00340 M00S00314.docment +++| BX6 X5
00341 M00S00315.docment +++| SA6 X2 RESET FILE NAME
00342 M00S00316.docment +++| SA1 SBF CLEAR SUB-FOOT LINE
00343 M00S00317.docment +++| BX6 X1
00344 M00S00318.docment +++| LX7 X1
00345 M00S00319.docment +++| SA6 A1+B1 STORE FIRST BLANK
00346 M00S00320.docment +++| SA7 A6+B1 STORE SECOND BLANK
00347 M00S00321.docment +++| SA6 A7+B1 STORE THIRD BLANK
00348 M00S00322.docment +++| SA7 A6+B1 STORE FOURTH BLANK
00349 M00S00323.docment +++| SA6 A7+B1 STORE FIFTH BLANK
00350 M00S00324.docment +++| READ X2 INITIATE READ
00351 M00S00325.docment +++| EQ DOC1 GO TILL EOF
00352 M00S00326.docment +++|
00353 M00S00327.docment +++| DOC3 SA1 PCT CHECK PAGE PARITY
00354 M00S00328.docment +++| SX6 B1
00355 M00S00329.docment +++| BX6 X6*X1
00356 M00S00330.docment +++| ZR X6,DOC4 IF EVEN PAGE COUNT
00357 M00S00331.docment +++| WRITEC SCR1,(=2L1 )
00358 M00S00332.docment +++| DOC4 WRITER SCR1,R WRITE EOR ON SCRATCH FILE
00359 M00S00333.docment +++| WRITER SCR2,R
00360 M00S00334.docment +++| MESSAGE (=C* COPYING OUTPUT.*),1
00361 M00S00335.docment +++| RJ FCN FORMAT TABLE OF CONTENTS
00362 M00S00336.docment +++|
00363 M00S00337.docment +++| DOC5 REWIND SCR1,R REWIND SCRATCH FILE
00364 M00S00338.docment +++| SA5 O CHANGE FILE NAME ON INPUT
00365 M00S00339.docment +++| MX7 0
00366 M00S00340.docment +++| SA7 I
00367 M00S00341.docment +++| READ I SET FIRST=IN=OUT
00368 M00S00342.docment +++| BX6 X5
00369 M00S00343.docment +++| SA6 X2 STORE NEW FILE NAME
00370 M00S00344.docment +++| READ SCR1
00371 M00S00345.docment +++| RJ CPY COPY THE FILE TO OUTPUT
00372 M00S00346.docment +++| SA1 N
00373 M00S00347.docment +++| SX6 X1-1 DECREMENT COPY COUNT
00374 M00S00348.docment +++| SA6 A1
00375 M00S00349.docment +++| NZ X6,DOC5 IF NOT FINISHED
00376 M00S00350.docment +++| DOC6 RETURN SCR1,R
00377 M00S00351.docment +++| RETURN SCR2,R
00378 M00S00352.docment +++| MESSAGE (=C* DOCUMENTATION COMPLETE.*)
00379 M00S00353.docment +++| ENDRUN
00380 M00S00354.docment +++|
00381 M00S00355.docment +++| DOC7 MESSAGE (=C* ERROR IN DOCMENT ARGUMENTS.*)
00382 M00S00356.docment +++| ABORT
00383 M00S00357.docment +++| PRC TITLE SUBROUTINES.
00384 M00S00358.docment +++|** PRC - PROCESS SUBPROGRAM.
00385 M00S00359.docment +++|*
00386 M00S00360.docment +++|* ENTRY DCD - (DCD+NCR) = FIRST CARD FOLLOWING *END*.
00387 M00S00361.docment +++|*
00388 M00S00362.docment +++|* EXIT TO PROPER SUBPROGRAM MANAGER.
00389 M00S00363.docment +++|*
00390 M00S00364.docment +++|* USES A - 0, 2, 7.
00391 M00S00365.docment +++|* B - 2, 5.
00392 M00S00366.docment +++|* X - 0, 2, 3, 6, 7.
00393 M00S00367.docment +++|*
00394 M00S00368.docment +++|* CALLS GFW.
00395 M00S00369.docment +++|
00396 M00S00370.docment +++|
00397 M00S00371.docment +++| PRC PS 0 ENTRY/EXIT
00398 M00S00372.docment +++| SX7 B1 RESET FIRST CHARACTER SCAN
00399 M00S00373.docment +++| SA7 FCR
00400 M00S00374.docment +++| RJ GFW GET FIRST WORD
00401 M00S00375.docment +++| SB2 -B1 SET PARAMETER COUNT
00402 M00S00376.docment +++| SA2 TNM BASE OF MNEMONIC TABLE
00403 M00S00377.docment +++| PRC1 BX0 X2 SET MASK
00404 M00S00378.docment +++| PRC2 SA2 A2+B1 GET CHECK WORD
00405 M00S00379.docment +++| NG X2,PRC1 IF MASK WORD
00406 M00S00380.docment +++| SB2 B2+B1 BUMP PARAMETER COUNT
00407 M00S00381.docment +++| ZR X2,PRC IF NOT SPECIAL CARD - END OF TABLE REACHED
00408 M00S00382.docment +++| BX3 X0*X1
00409 M00S00383.docment +++| IX6 X3-X2 CHECK NAME
00410 M00S00384.docment +++| NZ X6,PRC2 NO MATCH - LOOP
00411 M00S00385.docment +++| JP B2+PRC3 EXIT TO ROUTINE
00412 M00S00386.docment +++|
00413 M00S00387.docment +++| PRC3 BSS 0 START OF TABLE
00414 M00S00388.docment +++| LOC 0
00415 M00S00389.docment +++| + EQ FTN *SUBROUTINE*
00416 M00S00390.docment +++|
00417 M00S00391.docment +++| + SB5 B5-B1 *PRECISION*
00418 M00S00392.docment +++| EQ SKP
00419 M00S00393.docment +++|
00420 M00S00394.docment +++| + SB5 B5-2 *FUNCTION*
00421 M00S00395.docment +++| EQ FTN
00422 M00S00396.docment +++|
00423 M00S00397.docment +++| + SB5 B5-3 *PROGRAM*
00424 M00S00398.docment +++| EQ FTN
00425 M00S00399.docment +++|
00426 M00S00400.docment +++| + SB5 B5-3 *INTEGER*
00427 M00S00401.docment +++| EQ SKP
00428 M00S00402.docment +++|
00429 M00S00403.docment +++| + SB5 B5-3 *FORTRAN*
00430 M00S00404.docment +++| EQ SKP
00431 M00S00405.docment +++|
00432 M00S00406.docment +++| + SB5 B5-3 *LOGICAL*
00433 M00S00407.docment +++| EQ SKP
00434 M00S00408.docment +++|
00435 M00S00409.docment +++| + SA0 PRC *OVERLAY*
00436 M00S00410.docment +++| EQ SPC
00437 M00S00411.docment +++|
00438 M00S00412.docment +++| + SA0 PRC *SEGMENT*
00439 M00S00413.docment +++| EQ SPC
00440 M00S00414.docment +++|
00441 M00S00415.docment +++| + SA0 PRC *SECTION*
00442 M00S00416.docment +++| EQ SPC
00443 M00S00417.docment +++|
00444 M00S00418.docment +++| + SA0 PRC *SEGZERO*
00445 M00S00419.docment +++| EQ SPC
00446 M00S00420.docment +++|
00447 M00S00421.docment +++| + SA0 PRC *CHNLINK*
00448 M00S00422.docment +++| EQ SPC
00449 M00S00423.docment +++|
00450 M00S00424.docment +++| + SB5 B5-4 *DOUBLE*
00451 M00S00425.docment +++| EQ SKP
00452 M00S00426.docment +++|
00453 M00S00427.docment +++| + SB5 B5-4 *SINGLE*
00454 M00S00428.docment +++| EQ SKP
00455 M00S00429.docment +++|
00456 M00S00430.docment +++| + SB5 B5-4 *IDENT*
00457 M00S00431.docment +++| EQ CMP
00458 M00S00432.docment +++|
00459 M00S00433.docment +++| + SB5 B5-5 *BLOCK*
00460 M00S00434.docment +++| EQ SKP
00461 M00S00435.docment +++|
00462 M00S00436.docment +++| + SB5 B5-6 *TYPE*
00463 M00S00437.docment +++| EQ SKP
00464 M00S00438.docment +++|
00465 M00S00439.docment +++| + SB5 B5-6 *DATA*
00466 M00S00440.docment +++| EQ BKD
00467 M00S00441.docment +++|
00468 M00S00442.docment +++| + SB5 B5-6 *REAL*
00469 M00S00443.docment +++| EQ SKP
00470 M00S00444.docment +++|
00471 M00S00445.docment +++| + SB5 B5-8 *II*
00472 M00S00446.docment +++| EQ SKP
00473 M00S00447.docment +++|
00474 M00S00448.docment +++| + SB5 B5-8 *IV*
00475 M00S00449.docment +++| EQ SKP
00476 M00S00450.docment +++|
00477 M00S00451.docment +++| + SB5 B5-8 *VI*
00478 M00S00452.docment +++| EQ SKP
00479 M00S00453.docment +++|
00480 M00S00454.docment +++| LOC *O
00481 M00S00455.docment +++| GFW SPACE 4,20
00482 M00S00456.docment +++|** GFW - GET FIRST WORD FROM CARD.
00483 M00S00457.docment +++|*
00484 M00S00458.docment +++|* ENTRY (FCR) = FIRST CHARACTER ON CARD TO ANALYZE.
00485 M00S00459.docment +++|* AT *SKP* FOR SPECIAL CARDS.
00486 M00S00460.docment +++|*
00487 M00S00461.docment +++|* EXIT (B5) = LOCATION OF NEXT CHARACTER TO READ.
00488 M00S00462.docment +++|* (X1) = FIRST 10 CHARACTERS FOLLOWING LEADING BLANKS.
00489 M00S00463.docment +++|*
00490 M00S00464.docment +++|* USES A - 2.
00491 M00S00465.docment +++|* B - 5, 7.
00492 M00S00466.docment +++|* X - 1, 2, 3, 4, 5, 6.
00493 M00S00467.docment +++|
00494 M00S00468.docment +++|
00495 M00S00469.docment +++| GFW PS 0 ENTRY/EXIT
00496 M00S00470.docment +++| SA2 FCR FIRST CHARACTER
00497 M00S00471.docment +++| SB5 X2+DCD-1
00498 M00S00472.docment +++|
00499 M00S00473.docment +++| SKP BSS 0 ENTRY FOR SKIP
00500 M00S00474.docment +++|
00501 M00S00475.docment +++| GFW1 SX1 0 CLEAR FLAG WORD
00502 M00S00476.docment +++| SX3 1R
00503 M00S00477.docment +++| SX4 1R0
00504 M00S00478.docment +++| SB7 9
00505 M00S00479.docment +++| GFW2 SA2 B5 READ CHARACTER
00506 M00S00480.docment +++| SB5 B5+B1
00507 M00S00481.docment +++| ZR X2,GFW END OF CARD
00508 M00S00482.docment +++| IX5 X2-X3
00509 M00S00483.docment +++| BX6 X2-X4
00510 M00S00484.docment +++| ZR X5,GFW2 IF BLANK
00511 M00S00485.docment +++| ZR X6,GFW2 IF ZERO
00512 M00S00486.docment +++|
00513 M00S00487.docment +++| GFW3 BX1 X1+X2
00514 M00S00488.docment +++| SA2 B5 READ NEXT CHARACTER
00515 M00S00489.docment +++| SB7 B7-B1 DECREMENT LOOP COUNT
00516 M00S00490.docment +++| LX1 6
00517 M00S00491.docment +++| SB5 B5+B1
00518 M00S00492.docment +++| NZ B7,GFW3 LOOP FOR 10 CHARS
00519 M00S00493.docment +++| BX1 X1+X2
00520 M00S00494.docment +++| EQ GFW EXIT
00521 M00S00495.docment +++| FTN SPACE 4,10
00522 M00S00496.docment +++|** FTN - PROCESS FORTRAN SUBPROGRAMS.
00523 M00S00497.docment +++|*
00524 M00S00498.docment +++|* ENTRY (B5) = ADDRESS OF NEXT CHARACTER TO READ.
00525 M00S00499.docment +++|*
00526 M00S00500.docment +++|* USES A - 0, 2, 6.
00527 M00S00501.docment +++|* B - 2.
00528 M00S00502.docment +++|* X - 0, 2, 3, 4, 6.
00529 M00S00503.docment +++|*
00530 M00S00504.docment +++|* CALLS CNT, CTA, GFW, LST, TTL.
00531 M00S00505.docment +++|
00532 M00S00506.docment +++|
00533 M00S00507.docment +++| FTN BSS 0 ENTRY
00534 M00S00508.docment +++| SX6 B1+ SET PROGRAM TYPE TO FORTRAN
00535 M00S00509.docment +++| SA6 PTYP
00536 M00S00510.docment +++| RJ CNT ADD TO TABLE OF CONTENTS
00537 M00S00511.docment +++| RJ TTL SET TITLE AND START NEW PAGE
00538 M00S00512.docment +++| SX6 7 SET STARTING CHAR FOR GFW
00539 M00S00513.docment +++| SA6 FCR
00540 M00S00514.docment +++|
00541 M00S00515.docment +++| FTN1 READS I,DCD,NCR READ NEXT CARD
| Line S00516 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00542 M01S00516.v23l617 ---| NZ X1,ABT IF PRE-MATURE EOR/EOF
| Line S00001 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00543 M01S00001.v23l617 +++| NZ X1,ABT IF PREMATURE EOR/EOF
00544 M00S00517.docment +++| RJ CTA COUNT ASTERISKS
00545 M00S00518.docment +++| ZR X1,FTN2 IF NOT A COMMENT
00546 M00S00519.docment +++| SA2 MAS MINIMUM NUMBER OF ASTERISKS TO DOCUMENT
00547 M00S00520.docment +++| IX4 X1-X2
00548 M00S00521.docment +++| NG X4,FTN1 IF NOT ENOUGH
00549 M00S00522.docment +++| RJ LST GO PROCESS COMMENT CARDS
00550 M00S00523.docment +++| FTN2 RJ GFW GET FIRST WORD
00551 M00S00524.docment +++| SB2 -B1 SET PARAMETER COUNT
00552 M00S00525.docment +++| SA2 FTNA BASE OF SPECIAL NAMES TABLE
00553 M00S00526.docment +++|
00554 M00S00527.docment +++| FTN3 BX0 X2 SET MASK
00555 M00S00528.docment +++| FTN4 SA2 A2+B1 GET CHECK WORD
00556 M00S00529.docment +++| NG X2,FTN3 IF MASK WORD
00557 M00S00530.docment +++| SB2 B2+B1 BUMP PARAMETER COUNT
00558 M00S00531.docment +++| ZR X2,FTN1 IF NOT SPECIAL CARD - END OF TABLE
00559 M00S00532.docment +++| BX3 X0*X1
00560 M00S00533.docment +++| IX6 X3-X2 CHECK NAME
00561 M00S00534.docment +++| NZ X6,FTN4 NO MATCH - LOOP
00562 M00S00535.docment +++| JP B2+FTN5 EXIT TO ROUTINE
00563 M00S00536.docment +++|
00564 M00S00537.docment +++| FTN5 BSS 0 JUMP TABLE
00565 M00S00538.docment +++| LOC 0
00566 M00S00539.docment +++| + SA0 PRC *END*
00567 M00S00540.docment +++| EQ EDC
00568 M00S00541.docment +++|
00569 M00S00542.docment +++| LOC *O
00570 M00S00543.docment +++|
00571 M00S00544.docment +++| FTNA VFD 24/-0,36/ 4 CHAR MASK
00572 M00S00545.docment +++| DATA 4LEND
00573 M00S00546.docment +++| VFD 60/ END OF TABLE
00574 M00S00547.docment +++| CMP SPACE 4,10
00575 M00S00548.docment +++|** CMP - PROCESS COMPASS SUBPROGRAM.
00576 M00S00549.docment +++|*
00577 M00S00550.docment +++|* ENTRY (B5) = ADDRESS OF NEXT CHARACTER TO READ.
00578 M00S00551.docment +++|*
00579 M00S00552.docment +++|* USES A - 0, 2, 5, 6, 7.
00580 M00S00553.docment +++|* B - 2, 5.
00581 M00S00554.docment +++|* X - 0, 2, 3, 4, 5, 6, 7.
00582 M00S00555.docment +++|*
00583 M00S00556.docment +++|* CALLS CNT, CTA, GFW, LST, TTL.
00584 M00S00557.docment +++|
00585 M00S00558.docment +++|
00586 M00S00559.docment +++| CMP BSS 0 ENTRY
00587 M00S00560.docment +++| SX6 B0+ SET PROGRAM TYPE TO *COMPASS*
00588 M00S00561.docment +++| SA6 PTYP
00589 M00S00562.docment +++| RJ CNT ADD TO TABLE OF CONTENTS
00590 M00S00563.docment +++| RJ TTL SET TITLE AND START NEW PAGE
00591 M00S00564.docment +++| SX6 11 SET STARTING COLUMN FOR GFW
00592 M00S00565.docment +++| SA6 FCR
| Line S00007 Modification History |
M01 (Added by) | docme2 |
Seq # *Modification Id* Act
----------------------------+
00593 M01S00007.docme2 +++| SX6 30 SET COLUMN NUMBER
00594 M01S00008.docme2 +++| SA6 CCM
00595 M00S00566.docment +++| SA5 CMPA RESET TITLE IN TABLE
00596 M00S00567.docment +++| BX7 X5
00597 M00S00568.docment +++| SA7 CMPC
00598 M00S00569.docment +++|
00599 M00S00570.docment +++| CMP1 READS I,DCD,NCR READ NEXT CARD
| Line S00571 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00600 M01S00571.v23l617 ---| NZ X1,ABT IF PRE-MATURE EOR/EOF
| Line S00002 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00601 M01S00002.v23l617 +++| NZ X1,ABT IF PREMATURE EOR/EOF
00602 M00S00572.docment +++| RJ CTA COUNT ASTERISKS
00603 M00S00573.docment +++| ZR X1,CMP2 IF NOT COMMENT CARD
00604 M00S00574.docment +++| SA2 MAS MINIMUM NUMBER OF ASTERISKS TO DOCUMENT
00605 M00S00575.docment +++| IX4 X1-X2
00606 M00S00576.docment +++| NG X4,CMP1 IF NOT ENOUGH
00607 M00S00577.docment +++| RJ LST GO PROCESS COMMENT CARDS
00608 M00S00578.docment +++| CMP2 RJ GFW GET FIRST WORD
| Line S00009 Modification History |
M01 (Added by) | docme2 |
Seq # *Modification Id* Act
----------------------------+
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 M00S00579.docment +++| SB2 -B1 SET PARAMETER COUNT
00614 M00S00580.docment +++| SA2 CMPB BASE OF SPECIAL NAMES TABLE
00615 M00S00581.docment +++|
00616 M00S00582.docment +++| CMP3 BX0 X2 SET MASK
00617 M00S00583.docment +++| CMP4 SA2 A2+B1 READ CHECK WORD
00618 M00S00584.docment +++| NG X2,CMP3 IF MASK
00619 M00S00585.docment +++| SB2 B2+B1 BUMP PARAMETER COUNT
00620 M00S00586.docment +++| ZR X2,CMP1 IF NOT SPECIAL WORD - END OF TABLE
00621 M00S00587.docment +++| BX3 X0*X1
00622 M00S00588.docment +++| IX6 X3-X2 CHECK NAME
00623 M00S00589.docment +++| NZ X6,CMP4 NO MATCH - LOOP
00624 M00S00590.docment +++| JP B2+CMP5 EXIT TO ROUTINE
00625 M00S00591.docment +++|
00626 M00S00592.docment +++| CMP5 BSS 0 START OF JUMP TABLE
00627 M00S00593.docment +++| LOC 0
00628 M00S00594.docment +++| + SB5 B5-2 *SEGMENT*
00629 M00S00595.docment +++| EQ NDK
00630 M00S00596.docment +++|
00631 M00S00597.docment +++| + SB5 B5-4 *CTEXT*
00632 M00S00598.docment +++| EQ CTX
00633 M00S00599.docment +++|
00634 M00S00600.docment +++| + SB5 B5-4 *IDENT*
00635 M00S00601.docment +++| EQ NDK
00636 M00S00602.docment +++|
00637 M00S00603.docment +++| + SB5 B5-5 *ENDX*
00638 M00S00604.docment +++| EQ EDX
00639 M00S00605.docment +++|
00640 M00S00606.docment +++| + SB5 B5-4 *LIST*
00641 M00S00607.docment +++| EQ LSC
| Line S00013 Modification History |
M01 (Added by) | docme2 |
Seq # *Modification Id* Act
----------------------------+
00642 M01S00013.docme2 +++|
00643 M01S00014.docme2 +++|+ SB5 B5-6 *COL*
00644 M01S00015.docme2 +++| EQ COL PROCESS *COL* CARD
00645 M00S00608.docment +++|
00646 M00S00609.docment +++| + SA0 PRC *END*
00647 M00S00610.docment +++| EQ EDC
00648 M00S00611.docment +++|
00649 M00S00612.docment +++| + SA0 CMP1 *LCC*
00650 M00S00613.docment +++| EQ LCC
00651 M00S00614.docment +++|
00652 M00S00615.docment +++| CMP6 SB5 B5-4 *TITLE*
00653 M00S00616.docment +++| EQ TIT
00654 M00S00617.docment +++|
00655 M00S00618.docment +++| LOC *O
00656 M00S00619.docment +++|
00657 M00S00620.docment +++| CMPA DATA 6LTITLE
00658 M00S00621.docment +++| CMPB VFD 48/-0,12/ 8 CHAR MASK
00659 M00S00622.docment +++| DATA 8LSEGMENT
00660 M00S00623.docment +++| VFD 36/-0,24/ 6 CHAR MASK
00661 M00S00624.docment +++| DATA 6LCTEXT
00662 M00S00625.docment +++| DATA 6LIDENT
00663 M00S00626.docment +++| VFD 30/-0,30/ 5 CHAR MASK
00664 M00S00627.docment +++| DATA 5LENDX
00665 M00S00628.docment +++| DATA 5LLIST
00666 M00S00629.docment +++| VFD 24/-0,36/ 4 CHAR MASK
| Line S00016 Modification History |
M01 (Added by) | docme2 |
Seq # *Modification Id* Act
----------------------------+
00667 M01S00016.docme2 +++| DATA 4LCOL
00668 M00S00630.docment +++| DATA 4LEND
00669 M00S00631.docment +++| DATA 4LLCC
00670 M00S00632.docment +++| VFD 36/-0,24/ 6 CHAR MASK FOR *TITLE* - MUST BE LAST
00671 M00S00633.docment +++|
00672 M00S00634.docment +++| CMPC DATA 6LTITLE
00673 M00S00635.docment +++| VFD 60/ END OF TABLE
00674 M00S00636.docment +++| NDK SPACE 4,10
00675 M00S00637.docment +++|** NDK - PROCESS NEW DECK *IDENT* OR *SEGMENT*.
00676 M00S00638.docment +++|*
00677 M00S00639.docment +++|* ENTRY (B5) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER.
00678 M00S00640.docment +++|* (X1) = FIRST 10 CHARACTERS OF SPECIAL CARD.
00679 M00S00641.docment +++|* (A0) = EXIT ADDRESS.
00680 M00S00642.docment +++|*
00681 M00S00643.docment +++|* USES A - 1, 7.
00682 M00S00644.docment +++|* X - 0, 1, 7.
00683 M00S00645.docment +++|*
00684 M00S00646.docment +++|* CALLS LSL, STB.
00685 M00S00647.docment +++|
00686 M00S00648.docment +++|
00687 M00S00649.docment +++| NDK SA1 FLF CHECK TO SEE IF AT TOP OF PAGE
00688 M00S00650.docment +++| ZR X1,CMP1 IF NO OUTPUT YET
00689 M00S00651.docment +++| SA1 LCT
00690 M00S00652.docment +++| BX0 X1
00691 M00S00653.docment +++| RJ STB
00692 M00S00654.docment +++| RJ LSL
00693 M00S00655.docment +++| MX7 0 CLEAR FIRST LINE LISTED FLAG
00694 M00S00656.docment +++| SA7 FLF
00695 M00S00657.docment +++| EQ CMP1 RETURN
00696 M00S00658.docment +++| SPC SPACE 4,20
00697 M00S00659.docment +++|** SPC - PROCESS SPECIAL CARDS.
00698 M00S00660.docment +++|*
00699 M00S00661.docment +++|* ENTRY (B5) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER.
00700 M00S00662.docment +++|* (X1) = FIRST 10 CHARACTERS OF SPECIAL CARD.
00701 M00S00663.docment +++|* (A0) = EXIT ADDRESS.
00702 M00S00664.docment +++|*
00703 M00S00665.docment +++|* EXIT IMAGE OF SPECIAL CARD IS PLACED IN SUB-FOOT LINE.
00704 M00S00666.docment +++|*
00705 M00S00667.docment +++|* USES A - 2, 7.
00706 M00S00668.docment +++|* B - 2, 6, 7.
00707 M00S00669.docment +++|* X - 2, 7.
00708 M00S00670.docment +++|
00709 M00S00671.docment +++|
00710 M00S00672.docment +++| SPC BX7 X1
00711 M00S00673.docment +++| SA2 B5 READ NEXT CHARACTER
00712 M00S00674.docment +++| SA7 SBF+1 STORE FIRST WORD
00713 M00S00675.docment +++| SB6 4 SET WORD COUNT
00714 M00S00676.docment +++| SB7 9 SET CHARACTER COUNT
00715 M00S00677.docment +++| BX7 X2
00716 M00S00678.docment +++| EQ SPC2 GO PACK WORD
00717 M00S00679.docment +++|
00718 M00S00680.docment +++| SPC1 SB7 10 SET CHARACTER COUNT
00719 M00S00681.docment +++| SA7 A7+B1 STORE NEXT WORD
00720 M00S00682.docment +++| SB6 B6-B1 DECREMENT WORD COUNT
00721 M00S00683.docment +++| MX7 0 CLEAR ENCODE WORD
00722 M00S00684.docment +++| ZR B6,SPC3 IF END OF SUB-FOOT LINE
00723 M00S00685.docment +++| SPC2 SA2 A2+B1 READ NEXT CHARACTER
00724 M00S00686.docment +++| LX7 6
00725 M00S00687.docment +++| SB7 B7-B1 DECREMENT CHARACTER COUNT
00726 M00S00688.docment +++| BX7 X2+X7
00727 M00S00689.docment +++| NZ B7,SPC2 LOOP FOR 10 CHARACTERS
00728 M00S00690.docment +++| EQ SPC1 STORE WORD
00729 M00S00691.docment +++|
00730 M00S00692.docment +++| SPC3 SB2 A0 SET EXIT ADDRESS
00731 M00S00693.docment +++| JP B2 EXIT
00732 M00S00694.docment +++| CNT SPACE 4,10
00733 M00S00695.docment +++|** CNT - SET TABLE OF CONTENTS.
00734 M00S00696.docment +++|*
00735 M00S00697.docment +++|* ENTRY (B5) = ADDRESS OF NEXT CHARACTER TO READ.
00736 M00S00698.docment +++|*
00737 M00S00699.docment +++|* EXIT SUBCHAPTER AND PAGE COUNTS UPDATED.
00738 M00S00700.docment +++|*
00739 M00S00701.docment +++|* USES A - 2, 3, 4, 6, 7.
00740 M00S00702.docment +++|* B - 6, 7.
00741 M00S00703.docment +++|* X - 0, 2, 3, 4, 5, 6, 7.
00742 M00S00704.docment +++|
00743 M00S00705.docment +++|
00744 M00S00706.docment +++| CNT5 SA2 A2 DECREMENT SUB-CHAPTER COUNT
00745 M00S00707.docment +++| SX6 X2-1
00746 M00S00708.docment +++| SA6 A2
00747 M00S00709.docment +++|
00748 M00S00710.docment +++| CNT PS 0 ENTRY/EXIT
00749 M00S00711.docment +++| SA2 CHP CHAPTER COUNT
00750 M00S00712.docment +++| MX7 0
00751 M00S00713.docment +++| SX6 X2+B1
00752 M00S00714.docment +++| SA7 SPG RESET SUB-CHAPTER PAGE COUNT
00753 M00S00715.docment +++| SA6 A2 RESET CHAPTER COUNT
00754 M00S00716.docment +++| SA3 B5-B1 DUMMY READ
00755 M00S00717.docment +++| SX2 1R
00756 M00S00718.docment +++| SB7 54
00757 M00S00719.docment +++| SB6 -1R,
00758 M00S00720.docment +++| SX5 1R(
00759 M00S00721.docment +++|
00760 M00S00722.docment +++| CNT1 SA3 A3+B1 READ NEXT CHARACTER
00761 M00S00723.docment +++| BX4 X3-X2
00762 M00S00724.docment +++| ZR X4,CNT1 IF BLANK
00763 M00S00725.docment +++| ZR X3,CNT4 IF END OF LINE
00764 M00S00726.docment +++|
00765 M00S00727.docment +++| CNT2 IX6 X3-X5
00766 M00S00728.docment +++| SX4 X3+B6
00767 M00S00729.docment +++| ZR X6,CNT3 IF TERMINATOR
00768 M00S00730.docment +++| ZR X4,CNT3
00769 M00S00731.docment +++| BX7 X7+X3
00770 M00S00732.docment +++| SB7 B7-6
00771 M00S00733.docment +++| SA3 A3+B1 READ NEXT CHARACTER
00772 M00S00734.docment +++| LX7 6
00773 M00S00735.docment +++| NZ B7,CNT2 LOOP FOR 10 CHARACTERS
00774 M00S00736.docment +++| CNT3 LX7 X7,B7
00775 M00S00737.docment +++| CNT4 ZR X7,CNT5 IF NO NAME FOUND
00776 M00S00738.docment +++| SA7 CNTB
00777 M00S00739.docment +++| SA4 CHP GET SUBCHAPTER COUNT
00778 M00S00740.docment +++| SX6 X4
00779 M00S00741.docment +++| MX0 42
00780 M00S00742.docment +++| BX7 X0*X7
00781 M00S00743.docment +++| BX6 X6+X7
00782 M00S00744.docment +++| WRITEO SCR2
00783 M00S00745.docment +++| MESSAGE CNTA,1
00784 M00S00746.docment +++| EQ CNT EXIT
00785 M00S00747.docment +++|
00786 M00S00748.docment +++| CNTA DATA 10H READING
00787 M00S00749.docment +++| CNTB DATA 0
00788 M00S00750.docment +++| DATA 0
00789 M00S00751.docment +++| CNTC CON 0
00790 M00S00752.docment +++| FCN SPACE 4,10
00791 M00S00753.docment +++|** FCN - FORMAT TABLE OF CONTENTS.
00792 M00S00754.docment +++|*
00793 M00S00755.docment +++|* USES A - 1, 2, 3, 4, 5, 6, 7.
00794 M00S00756.docment +++|* B - 3.
00795 M00S00757.docment +++|* X - ALL.
00796 M00S00758.docment +++|*
00797 M00S00759.docment +++|* CALLS CVT, SFN, SRT.
00798 M00S00760.docment +++|
00799 M00S00761.docment +++|
00800 M00S00762.docment +++| FCN4 WRITER SCR2,R
00801 M00S00763.docment +++| FCN PS 0 ENTRY/EXIT
00802 M00S00764.docment +++| REWIND SCR2,R
00803 M00S00765.docment +++| SA5 SCR2
00804 M00S00766.docment +++| MX7 0
00805 M00S00767.docment +++| SA7 I
00806 M00S00768.docment +++| READ I RESET FIRST=IN=OUT
00807 M00S00769.docment +++| BX6 X5
00808 M00S00770.docment +++| SA6 X2
00809 M00S00771.docment +++| SA1 TC CHECK FOR LIST OF TABLE OF CONTENTS
00810 M00S00772.docment +++| ZR X1,FCN4 EXIT
00811 M00S00773.docment +++| READ I,R
00812 M00S00774.docment +++| REWIND SCR2,R
00813 M00S00775.docment +++| SA1 LLM
00814 M00S00776.docment +++| SX1 X1-61
00815 M00S00777.docment +++| NG X1,FCN0 IF NOT MORE THAN 60 LINES PER PAGE
00816 M00S00778.docment +++| SX6 1RT
00817 M00S00779.docment +++| LX6 60-6
00818 M00S00780.docment +++| WRITEO SCR2
00819 M00S00781.docment +++| FCN0 WRITEW SCR2,FCNB,LFCB
00820 M00S00782.docment +++| SA1 PCT BUMP PAGE COUNT FOR PAGE PARITY
00821 M00S00783.docment +++| SX6 X1+B1
00822 M00S00784.docment +++| SA6 A1
00823 M00S00785.docment +++| SX7 4
00824 M00S00786.docment +++| SA7 LCT
00825 M00S00787.docment +++| RJ SRT SORT DECK NAME TABLE
00826 M00S00788.docment +++| SA5 I+2 IN
00827 M00S00789.docment +++| SA4 A5+B1 OUT
00828 M00S00790.docment +++| IX6 X5-X4 CALCULATE THE NUMBER OF ROWS TO PRINT
00829 M00S00791.docment +++| SX0 X4
00830 M00S00792.docment +++| SX6 X6+3
00831 M00S00793.docment +++| AX6 2 DIVIDE BY 4
00832 M00S00794.docment +++| SX7 -B1
00833 M00S00795.docment +++| SA6 FCNA+1 NUMBER OF ROWS
00834 M00S00796.docment +++| SA7 A6+B1 CURRENT ROW
00835 M00S00797.docment +++| SA6 A6-B1 INCREMENT
00836 M00S00798.docment +++| FCN1 SA1 FCNA+1 DECREMENT ROW COUNT
00837 M00S00799.docment +++| SX6 X1-1
00838 M00S00800.docment +++| ZR X1,FCN4 IF END OF TABLE
00839 M00S00801.docment +++| SA2 A1+B1 ADVANCE INCREMENT
00840 M00S00802.docment +++| SA6 A1
00841 M00S00803.docment +++| SX7 X2+B1
00842 M00S00804.docment +++| SA7 A2
00843 M00S00805.docment +++| SA1 I+3 OUT
00844 M00S00806.docment +++| IX0 X7+X1 SAVE ENTRY ADDRESS
00845 M00S00807.docment +++| SA6 DCD-1 INITIALIZE STORE ADDRESS
00846 M00S00808.docment +++| FCN2 SA3 X0 READ ENTRY
00847 M00S00809.docment +++| MX4 42
00848 M00S00810.docment +++| BX1 X4*X3 GET SUBPROGRAM NAME
00849 M00S00811.docment +++| SB3 X3
00850 M00S00812.docment +++| RJ SFN FILL NAME WITH SPACES
00851 M00S00813.docment +++| LX6 60-18 RIGHT JUSTIFY NAME
00852 M00S00814.docment +++| SX1 B3
00853 M00S00815.docment +++| SA6 A6+B1 STORE IN PRINT LINE
00854 M00S00816.docment +++| RJ CVT
00855 M00S00817.docment +++| LX6 X7,B7
00856 M00S00818.docment +++| LX6 6*4
00857 M00S00819.docment +++| SA6 A6+B1 STORE NUMBER
00858 M00S00820.docment +++| SA1 FCNA LENGTH OF ROW
00859 M00S00821.docment +++| IX0 X0+X1 BUMP TO NEXT ENTRY
00860 M00S00822.docment +++| IX6 X0-X5
00861 M00S00823.docment +++| NG X6,FCN2 LOOP TO END OF LINE
00862 M00S00824.docment +++| MX7 0
00863 M00S00825.docment +++| SA7 A6+B1
00864 M00S00826.docment +++| SA2 LCT
00865 M00S00827.docment +++| SA3 LLM
00866 M00S00828.docment +++| SX6 X2+B1 BUMP LINE COUNT
00867 M00S00829.docment +++| SA6 A2
00868 M00S00830.docment +++| IX7 X6-X3 CHECK FOR END OF PAGE
00869 M00S00831.docment +++| NG X7,FCN3
00870 M00S00832.docment +++| WRITEW SCR2,FCNB,LFCB
00871 M00S00833.docment +++| SA1 PCT BUMP PAGE COUNT
00872 M00S00834.docment +++| SX6 X1+B1
00873 M00S00835.docment +++| SA6 A1
00874 M00S00836.docment +++| SX7 4
00875 M00S00837.docment +++| SA7 LCT
00876 M00S00838.docment +++| FCN3 WRITEC SCR2,DCD
00877 M00S00839.docment +++| EQ FCN1 CONTINUE FOR ALL ROWS
00878 M00S00840.docment +++|
00879 M00S00841.docment +++| FCNA BSS 3 TEMPORARY STORAGE
00880 M00S00842.docment +++| FCNB DATA H*1 LIST OF SUB-PROGRAMS AND CORRESPONDING CHAPTERS*
00881 M00S00843.docment +++| DATA C* PROCESSED BY DOCMENT.*
00882 M00S00844.docment +++| DATA 2L0
00883 M00S00845.docment +++| LFCB EQU *-FCNB
00884 M00S00846.docment +++| SRT SPACE 4,10
00885 M00S00847.docment +++|** SRT - SORT DECK NAME TABLE.
00886 M00S00848.docment +++|*
00887 M00S00849.docment +++|* USES A - 0, 1, 2, 6, 7.
00888 M00S00850.docment +++|* B - 2, 3, 4, 5, 6, 7.
00889 M00S00851.docment +++|* X - 1, 2, 4, 5, 6, 7.
00890 M00S00852.docment +++|
00891 M00S00853.docment +++|
00892 M00S00854.docment +++| SRT PS 0 ENTRY/EXIT
00893 M00S00855.docment +++| SA1 I+2 LWA+1 TABLE
00894 M00S00856.docment +++| SA2 A1+B1
00895 M00S00857.docment +++| IX5 X1-X2 LENGTH = (B7) = N
00896 M00S00858.docment +++| SA0 X2-1
00897 M00S00859.docment +++| SB7 X5
00898 M00S00860.docment +++| SB6 X5
00899 M00S00861.docment +++|
00900 M00S00862.docment +++| SRT1 SX6 B6 N = N/2
00901 M00S00863.docment +++| AX6 1
00902 M00S00864.docment +++| SB6 X6
00903 M00S00865.docment +++| SB3 B1 J = 1
00904 M00S00866.docment +++| ZR B6,SRT RETURN IF M = 0
00905 M00S00867.docment +++| SB4 B7-B6 N = N-M
00906 M00S00868.docment +++| SB2 B3 I = J
00907 M00S00869.docment +++|
00908 M00S00870.docment +++| SRT2 SB5 B2+B6 L = I+M
00909 M00S00871.docment +++| SA1 A0+B2 A(I)
00910 M00S00872.docment +++| SA2 A0+B5 A(L)
00911 M00S00873.docment +++| IX4 X2-X1
00912 M00S00874.docment +++| PL X4,SRT3 IF A(L) > A(I)
00913 M00S00875.docment +++| BX6 X1 INTERCHANGE A(L) AND A(I)
00914 M00S00876.docment +++| LX7 X2
00915 M00S00877.docment +++| SA6 A2
00916 M00S00878.docment +++| SA7 A1
00917 M00S00879.docment +++| SB2 B2-B6 I = I-M
00918 M00S00880.docment +++| GT B2,SRT2 IF I > 0
00919 M00S00881.docment +++|
00920 M00S00882.docment +++| SRT3 SB3 B3+B1 J = J+1
00921 M00S00883.docment +++| SB2 B3 I = J
00922 M00S00884.docment +++| LE B3,B4,SRT2 IF J ;K
00923 M00S00885.docment +++| EQ SRT1
00924 M00S00886.docment +++| LCC SPACE 4,10
00925 M00S00887.docment +++|** LCC - PROCESS *LCC* CARDS.
00926 M00S00888.docment +++|*
00927 M00S00889.docment +++|* ENTRY (A0) = EXIT ADDRESS.
00928 M00S00890.docment +++|* (B5) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER.
00929 M00S00891.docment +++|*
00930 M00S00892.docment +++|* USES A - 2, 6.
00931 M00S00893.docment +++|* B - 2.
00932 M00S00894.docment +++|* X - 2, 6.
00933 M00S00895.docment +++|*
00934 M00S00896.docment +++|* CALLS GFW.
00935 M00S00897.docment +++|
00936 M00S00898.docment +++|
00937 M00S00899.docment +++| LCC SA2 FCR GET FIRST CHARACTER ADDRESS
00938 M00S00900.docment +++| SX6 B5-DCD
00939 M00S00901.docment +++| SX6 X6-6 SET FIRST CHARACTER FOR GFW
00940 M00S00902.docment +++| SB2 X2 SAVE ADDRESS OF OLD FIRST CHARACTER
00941 M00S00903.docment +++| SA6 A2
00942 M00S00904.docment +++| RJ GFW GET FIRST WORD SET UP FOR SPC
00943 M00S00905.docment +++| SX6 B2 RESTORE FCR
00944 M00S00906.docment +++| SA6 FCR
00945 M00S00907.docment +++| EQ SPC PROCESS AS SPECIAL CARD
00946 M00S00908.docment +++| TTL SPACE 4,10
00947 M00S00909.docment +++|** TTL - SET TITLE OF NEW SUBPROGRAM.
00948 M00S00910.docment +++|*
00949 M00S00911.docment +++|* USES A - 2, 3, 7.
00950 M00S00912.docment +++|* B - 6, 7.
00951 M00S00913.docment +++|* X - 0, 1, 2, 3, 6, 7.
00952 M00S00914.docment +++|*
00953 M00S00915.docment +++|* CALLS GFW.
00954 M00S00916.docment +++|
00955 M00S00917.docment +++|
00956 M00S00918.docment +++| TTL PS 0 ENTRY/EXIT
00957 M00S00919.docment +++| RJ GFW GET FIRST WORD
00958 M00S00920.docment +++| SA3 TTLA
00959 M00S00921.docment +++| MX0 12
00960 M00S00922.docment +++| LX1 48
00961 M00S00923.docment +++| BX6 -X0*X1 GET FIRST 8 CHARACTERS
00962 M00S00924.docment +++| BX7 X6+X3
00963 M00S00925.docment +++| SA7 HDG SET FIRST WORD OF HEADING
00964 M00S00926.docment +++| SB7 8 SET CHARACTER COUNT
00965 M00S00927.docment +++| BX7 X0*X1 GET LAST 2 CHARACTERS
00966 M00S00928.docment +++| SB6 4 SET WORD COUNT
00967 M00S00929.docment +++| LX7 12
00968 M00S00930.docment +++| EQ TTL2
00969 M00S00931.docment +++|
00970 M00S00932.docment +++| TTL1 SB7 10
00971 M00S00933.docment +++| SA7 A7+B1 STORE NEXT WORD
00972 M00S00934.docment +++| SB6 B6-B1
00973 M00S00935.docment +++| MX7 0
00974 M00S00936.docment +++| ZR B6,TTL IF END OF TITLE LINE
00975 M00S00937.docment +++| TTL2 SA2 A2+B1 READ NEXT CHARACTER
00976 M00S00938.docment +++| LX7 6
00977 M00S00939.docment +++| SB7 B7-B1
00978 M00S00940.docment +++| BX7 X7+X2
00979 M00S00941.docment +++| NZ B7,TTL2 LOOP FOR 10 CHARACTERS
00980 M00S00942.docment +++| EQ TTL1
00981 M00S00943.docment +++|
00982 M00S00944.docment +++| TTLA VFD 12/1H1,48/
00983 M00S00945.docment +++| LFL SPACE 4,10
00984 M00S00946.docment +++|** LFL - LIST FIRST LINE.
00985 M00S00947.docment +++|*
00986 M00S00948.docment +++|* USES A - 1, 6, 7.
00987 M00S00949.docment +++|* X - 1, 6, 7.
00988 M00S00950.docment +++|
00989 M00S00951.docment +++|
00990 M00S00952.docment +++| LFL PS 0 ENTRY/EXIT
00991 M00S00953.docment +++| SA1 SPG SUB-CHAPTER PAGE COUNT
00992 M00S00954.docment +++| SX6 X1+B1
00993 M00S00955.docment +++| SA6 A1 BUMP PAGE COUNT
00994 M00S00956.docment +++| SX7 FLP
00995 M00S00957.docment +++| SA7 LCT RESET LINE COUNT
00996 M00S00958.docment +++| WRITEC SCR1,HDG WRITE HEADING LINE
00997 M00S00959.docment +++| WRITEC X2,(=2L0 ) 2 BLANK LINES
00998 M00S00960.docment +++| SX7 X2 SET FIRST LINE LISTED FLAG
00999 M00S00961.docment +++| SA7 FLF
01000 M00S00962.docment +++| EQ LFL EXIT
01001 M00S00963.docment +++| CTA SPACE 4,10
01002 M00S00964.docment +++|** CTA - COUNT ASTERISKS.
01003 M00S00965.docment +++|*
01004 M00S00966.docment +++|* USES A - 2, 3, 6.
01005 M00S00967.docment +++|* B - 7.
01006 M00S00968.docment +++|* X - 1, 2, 3, 6, 7.
01007 M00S00969.docment +++|
01008 M00S00970.docment +++|
01009 M00S00971.docment +++| CTA PS 0 ENTRY/EXIT
01010 M00S00972.docment +++| MX1 0 SET INITIAL COUNT
01011 M00S00973.docment +++| SX6 1R
01012 M00S00974.docment +++| SA2 C READ CHECK CHARACTER
01013 M00S00975.docment +++| SA3 DCD
01014 M00S00976.docment +++| SB7 5
01015 M00S00977.docment +++| CTA1 BX7 X3-X2 CHECK FOR ASTERISK
01016 M00S00978.docment +++| SB7 B7-B1 DECREMENT LOOP COUNT
01017 M00S00979.docment +++| NZ X7,CTA IF NOT * EXIT
01018 M00S00980.docment +++| SA6 A3 REPLACE IT WITH A BLANK
01019 M00S00981.docment +++| SX1 X1+B1
01020 M00S00982.docment +++| SA3 A3+B1
01021 M00S00983.docment +++| NZ B7,CTA1 IF MORE CHARACTERS TO PROCESS
01022 M00S00984.docment +++| SX1 3 TREAT ***** LIKE *** STATEMENTS
01023 M00S00985.docment +++| EQ CTA EXIT
01024 M00S00986.docment +++| LST SPACE 4,10
01025 M00S00987.docment +++|** LST - LIST DOCUMENTATION.
01026 M00S00988.docment +++|*
01027 M00S00989.docment +++|* ENTRY (X1) - NUMBER OF ASTERISKS FOUND.
01028 M00S00990.docment +++|*
01029 M00S00991.docment +++|* EXIT TO *EDC* IF END CARD ENCOUNTERED.
01030 M00S00992.docment +++|*
01031 M00S00993.docment +++|* USES A - 0, 1, 2, 4, 5, 6, 7.
01032 M00S00994.docment +++|* X - ALL.
01033 M00S00995.docment +++|*
01034 M00S00996.docment +++|* CALLS CTA, GFW, LFL, LSL, STB, TAB.
01035 M00S00997.docment +++|
01036 M00S00998.docment +++|
01037 M00S00999.docment +++| LST PS 0 ENTRY/EXIT
01038 M00S01000.docment +++| SA2 NAS MINIMUM NUMBER OF ASTERISKS FOR INT DOC
01039 M00S01001.docment +++| IX3 X1-X2
01040 M00S01002.docment +++| PL X3,LST5 DO INTERNAL DOCUMENTATION
01041 M00S01003.docment +++| SX2 4 CHECK FOR EXTERNAL DOCUMENTATION
01042 M00S01004.docment +++| IX3 X1-X2
01043 M00S01005.docment +++| PL X3,LST IF NOT EXTERNAL
01044 M00S01006.docment +++|
01045 M00S01007.docment +++| LST1 SA2 FLF CHECK FIRST LINE FLAG
01046 M00S01008.docment +++| NZ X2,*+2 IF FIRST LINE HAS BEEN LISTED
01047 M00S01009.docment +++| + RJ LFL LIST FIRST LINE
01048 M00S01010.docment +++| SA1 LCT CHECK PAGE POSITION
01049 M00S01011.docment +++| SX5 X1-FLP CHECK FOR TOP OF PAGE
01050 M00S01012.docment +++| ZR X5,LST4 IF AT TOP
01051 M00S01013.docment +++| SX6 X1+4
01052 M00S01014.docment +++| SA6 A1 RESET LINE COUNT
01053 M00S01015.docment +++| SA4 LLM MAXIMUM NUMBER OF LINES ON PAGE
01054 M00S01016.docment +++| IX5 X6-X4
01055 M00S01017.docment +++| NG X5,LST3 IF NOT AT BOTTOM OF PAGE
01056 M00S01018.docment +++| BX6 X1 RESTORE LINE COUNT
01057 M00S01019.docment +++| SA6 A1
01058 M00S01020.docment +++| LST1A SA1 LCT
01059 M00S01021.docment +++| BX0 X1
01060 M00S01022.docment +++| RJ STB SKIP TO BOTTOM OF PAGE
01061 M00S01023.docment +++| LST2 RJ LSL LIST LAST LINE ON PAGE
01062 M00S01024.docment +++| RJ LFL LIST FIRST LINE
01063 M00S01025.docment +++| EQ LST4
01064 M00S01026.docment +++|
01065 M00S01027.docment +++| LST3 WRITEC SCR1,(=2L0 )
01066 M00S01028.docment +++| WRITEC SCR1,(=2L0 )
01067 M00S01029.docment +++| LST4 SA1 DCD+1 CHECK COLUMN 2 FOR TABLE FLAG
01068 M00S01030.docment +++| SX2 X1-1RE CHECK FOR EJECT
01069 M00S01031.docment +++| SX1 X1-1RT
01070 M00S01032.docment +++| NZ X2,LST4A IF NOT EJECT CARD
01071 M00S01033.docment +++| SA2 TOG
01072 M00S01034.docment +++| NZ X2,LST4B IF INTERNAL TOGGLE IS ON - LIST THE CARD
01073 M00S01035.docment +++| SX7 1R CLEAR *E*
01074 M00S01036.docment +++| SA7 DCD+1
01075 M00S01037.docment +++| WRITES SCR1,LNE,NCR+2
01076 M00S01038.docment +++| SA1 LCT
01077 M00S01039.docment +++| SX0 X1+1 SET SPACE COUNT
01078 M00S01040.docment +++| RJ STB
01079 M00S01041.docment +++| SA2 LLM
01080 M00S01042.docment +++| SX6 X2-1
01081 M00S01043.docment +++| SA6 LCT RESET LINE COUNT
01082 M00S01044.docment +++| EQ LST4D CONTINUE
01083 M00S01045.docment +++|
01084 M00S01046.docment +++| LST4A NZ X1,LST4B IF NOT TABLE CARD
01085 M00S01047.docment +++| SA2 TOG CHECK FOR INTERNAL NO ASTERISK
01086 M00S01048.docment +++| NZ X2,LST4B IF SO
01087 M00S01049.docment +++| SA2 NT CHECK STATUS OF TABLE GENERATOR
01088 M00S01050.docment +++| NZ X2,LST4B IF OFF
01089 M00S01051.docment +++| RJ TAB PROCESS TABLE
01090 M00S01052.docment +++| EQ LST4C PROCESS THE NEXT CARD
01091 M00S01053.docment +++|
01092 M00S01054.docment +++| LST4B WRITES SCR1,LNE,NCR+2 WRITE CARD TO DOC FILE
01093 M00S01055.docment +++| LST4D SA1 LCT BUMP LINE COUNT
01094 M00S01056.docment +++| SX6 X1+B1
01095 M00S01057.docment +++| SA6 A1
01096 M00S01058.docment +++| READS I,DCD,NCR READ NEXT CARD
| Line S01059 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01097 M01S01059.v23l617 ---| NZ X1,ABT IF PRE-MATURE EOR/EOF
| Line S00003 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01098 M01S00003.v23l617 +++| NZ X1,ABT IF PREMATURE EOR/EOF
01099 M00S01060.docment +++| RJ CTA COUNT ASTERISKS
01100 M00S01061.docment +++|
01101 M00S01062.docment +++| LST4C SA2 NAS CHECK FOR END OF INTERNAL DOCUMENTATION
01102 M00S01063.docment +++| IX4 X1-X2
01103 M00S01064.docment +++| PL X4,LST5 IF END
01104 M00S01065.docment +++| ZR X1,LST7 CHECK FOR END OF DOCUMENTATION
01105 M00S01066.docment +++| SA5 LCT CHECK FOR END OF PAGE
01106 M00S01067.docment +++| SA4 LLM LINE LIMIT
01107 M00S01068.docment +++| IX5 X5-X4
01108 M00S01069.docment +++| NG X5,LST4 IF NOT AT BOTTOM OF PAGE
01109 M00S01070.docment +++| EQ LST2
01110 M00S01071.docment +++|
01111 M00S01072.docment +++| LST5 SA1 TOG CHECK TOGGLE
01112 M00S01073.docment +++| NZ X1,LST6 IF ON
01113 M00S01074.docment +++| SA2 MAS SAVE MINIMUM EXT * COUNT
01114 M00S01075.docment +++| MX7 0
01115 M00S01076.docment +++| BX6 X2
01116 M00S01077.docment +++| SA7 A2 SET MINIMUM AST TO 0
01117 M00S01078.docment +++| SA6 A1 SET TOGGLE
01118 M00S01079.docment +++| EQ LST1 GO LIST CARD
01119 M00S01080.docment +++|
01120 M00S01081.docment +++| LST6 MX7 0 RESET TOGGLE
01121 M00S01082.docment +++| BX6 X1
01122 M00S01083.docment +++| SA7 A1
01123 M00S01084.docment +++| SA6 MAS RESET MINIMUM FOR EXT DOC
01124 M00S01085.docment +++| EQ LST1 GO LIST CARD
01125 M00S01086.docment +++|
01126 M00S01087.docment +++| LST7 SA1 TOG CHECK MODE
01127 M00S01088.docment +++| ZR X1,LST IF EXTERNAL
01128 M00S01089.docment +++| RJ GFW
01129 M00S01090.docment +++| MX0 24 CHECK FOR END CARD
01130 M00S01091.docment +++| SA2 =4LEND
01131 M00S01092.docment +++| BX6 X0*X1
01132 M00S01093.docment +++| BX6 X6-X2
01133 M00S01094.docment +++| SA0 PRC SET EXIT FOR END
01134 M00S01095.docment +++| ZR X6,EDC IF *END* CARD
01135 M00S01096.docment +++| SA5 LCT
01136 M00S01097.docment +++| SA4 LLM CHECK FOR END OF PAGE
01137 M00S01098.docment +++| IX5 X5-X4
01138 M00S01099.docment +++| NG X5,LST4 IF NOT AT BOTTOM OF PAGE
01139 M00S01100.docment +++| EQ LST2
01140 M00S01101.docment +++| LSL SPACE 4,10
01141 M00S01102.docment +++|** LSL - LIST LAST LINE.
01142 M00S01103.docment +++|*
01143 M00S01104.docment +++|* USES A - 1, 6, 7.
01144 M00S01105.docment +++|* X - 0, 1, 5, 6, 7.
01145 M00S01106.docment +++|*
01146 M00S01107.docment +++|* CALLS CVT.
01147 M00S01108.docment +++|
01148 M00S01109.docment +++|
01149 M00S01110.docment +++| LSL PS 0 ENTRY/EXIT
01150 M00S01111.docment +++| WRITEC SCR1,(=2L )
01151 M00S01112.docment +++| SA1 CHP CHAPTER COUNT
01152 M00S01113.docment +++| RJ CVT CONVERT THE CHAPTER COUNT TO DECIMAL DISP
01153 M00S01114.docment +++| LX7 X7,B7
01154 M00S01115.docment +++| MX0 60-18
01155 M00S01116.docment +++| SA1 PGE
01156 M00S01117.docment +++| BX7 -X0*X7
01157 M00S01118.docment +++| BX6 X0*X1
01158 M00S01119.docment +++| BX7 X6+X7
01159 M00S01120.docment +++| SA7 A1
01160 M00S01121.docment +++| SA1 SPG
01161 M00S01122.docment +++| RJ CVT
01162 M00S01123.docment +++| MX0 42
01163 M00S01124.docment +++| BX7 X0*X7 CLEAR LOW 18 BITS
01164 M00S01125.docment +++| SX5 1R/
01165 M00S01126.docment +++| BX7 X5+X7
01166 M00S01127.docment +++| LX7 54
01167 M00S01128.docment +++| SA7 A7+B1 SET SUBCHAPTER PAGE COUNT
01168 M00S01129.docment +++| WRITEC SCR1,FOT WRITE PAGE FOOTING
01169 M00S01130.docment +++| WRITEC SCR1,(=2L )
01170 M00S01131.docment +++| WRITEC SCR1,SBF WRITE PAGE SUB-FOOT
01171 M00S01132.docment +++| SA1 PCT BUMP PAGE COUNT
01172 M00S01133.docment +++| SX6 X1+B1
01173 M00S01134.docment +++| SA6 A1
01174 M00S01135.docment +++| EQ LSL EXIT
01175 M00S01136.docment +++| TAB SPACE 4,20
01176 M00S01137.docment +++|** TAB - PROCESS TABLE GENERATION.
01177 M00S01138.docment +++|* J.C. BOHNHOFF - 70/7/4.
01178 M00S01139.docment +++|*
01179 M00S01140.docment +++|* ENTRY (A1) = ADDRESS OF *T* CHARACTER IN CARD.
01180 M00S01141.docment +++|*
01181 M00S01142.docment +++|* EXIT TABLES GENERATED AND LISTED.
01182 M00S01143.docment +++|* GENERATION TERMINATED AT END OF *T* BLOCK.
01183 M00S01144.docment +++|*
01184 M00S01145.docment +++|* USES A - 1, 2, 6, 7.
01185 M00S01146.docment +++|* B - 7.
01186 M00S01147.docment +++|* X - 1, 2, 4, 6, 7.
01187 M00S01148.docment +++|*
01188 M00S01149.docment +++|* CALLS ASD, ASF, CTA, DXB, LFL, LSL, LTB, STL.
01189 M00S01150.docment +++|
01190 M00S01151.docment +++|
01191 M00S01152.docment +++| TAB PS 0 ENTRY/EXIT
01192 M00S01153.docment +++| SA1 A1+B1 READ SECOND CHARACTER TO CHECK FOR HEADER
01193 M00S01154.docment +++| *OFF*
01194 M00S01155.docment +++| SX6 1R,
01195 M00S01156.docment +++| MX7 0
01196 M00S01157.docment +++| SA6 DCD+NCR TERMINATE CARD STRING BUFFER
01197 M00S01158.docment +++| SA7 A6+1
01198 M00S01159.docment +++| SX6 X1-1R
01199 M00S01160.docment +++| SA6 PBP SET *PRINT BIT POSITIONS* FLAG
01200 M00S01161.docment +++|
01201 M00S01162.docment +++| TAB0 SX6 1R-
01202 M00S01163.docment +++| SB7 71
01203 M00S01164.docment +++| TAB0A SA6 AST+B7
01204 M00S01165.docment +++| SB7 B7-1
01205 M00S01166.docment +++| NZ B7,TAB0A
01206 M00S01167.docment +++| RJ STL SET TABLE LABEL
01207 M00S01168.docment +++| SX7 0 CLEAR TOTAL BIT COUNT
01208 M00S01169.docment +++| SX6 TCL AND SET POINTER TO BEGINNING OF CONTENT
01209 M00S01170.docment +++| LINE BUFFER
01210 M00S01171.docment +++| SA7 TBC
01211 M00S01172.docment +++| SA6 TCLP
01212 M00S01173.docment +++|
01213 M00S01174.docment +++| TAB1 RJ ASD ASSEMBLE DIGIT FIELD
01214 M00S01175.docment +++| ZR X1,TAB3 IF END OF CARD
01215 M00S01176.docment +++| RJ DXB CONVERT DIGIT FIELD TO BINARY
01216 M00S01177.docment +++| NZ X4,TAB2 IF DIGIT FIELD ERROR
01217 M00S01178.docment +++| SX7 X6-61 CHECK LEGALITY OF FIELD
01218 M00S01179.docment +++| PL X7,TAB2
01219 M00S01180.docment +++| RJ ASF ASSEMBLE TABLE FIELD
01220 M00S01181.docment +++| EQ TAB1 CONTINUE FORMING TABLE
01221 M00S01182.docment +++|
01222 M00S01183.docment +++| TAB2 WRITES SCR1,LNE,NCR+2 LIST THE BAD CARD NORMALLY
01223 M00S01184.docment +++| SA1 LCT ADVANCE LINE COUNT
01224 M00S01185.docment +++| SX7 X1+B1
01225 M00S01186.docment +++| SA7 A1
01226 M00S01187.docment +++| SA2 LLM CHECK FOR END OF PAGE
01227 M00S01188.docment +++| IX6 X7-X2
01228 M00S01189.docment +++| NG X6,TAB4 IF NOT AT BOTTOM OF PAGE
01229 M00S01190.docment +++| RJ LSL LIST LAST LINE ON PAGE
01230 M00S01191.docment +++| RJ LFL LIST FIRST LINE
01231 M00S01192.docment +++| EQ TAB4
01232 M00S01193.docment +++|
01233 M00S01194.docment +++| TAB3 RJ LTB LIST TABLE ENTRY
01234 M00S01195.docment +++|
01235 M00S01196.docment +++| TAB4 READS I,DCD,NCR READ NEXT CARD
01236 M00S01197.docment +++| NZ X1,ABT IF PREMATURE EOR/EOF
01237 M00S01198.docment +++| RJ CTA COUNT ASTERISKS
01238 M00S01199.docment +++| ZR X1,TAB **RETURN - IF NOT COMMENT CARD
01239 M00S01200.docment +++| SA2 DCD+1 CHECK FOR CONTINUATION OF TABLE BLOCK
01240 M00S01201.docment +++| SX4 X2-1RT
01241 M00S01202.docment +++| NZ X4,TAB **RETURN IF NOT *T CARD
01242 M00S01203.docment +++| SA1 A2+B1 READ NEXT CHARACTER FOR *STL*
01243 M00S01204.docment +++| EQ TAB0 GO PROCESS THE CARD
01244 M00S01205.docment +++| STL SPACE 4,20
01245 M00S01206.docment +++|** STL - SET TABLE LABEL IF ANY.
01246 M00S01207.docment +++|* J.C. BOHNHOFF - 70/07/11.
01247 M00S01208.docment +++|*
01248 M00S01209.docment +++|* ENTRY (A1) = ADDRESS+1 OF *T* CHARACTER.
01249 M00S01210.docment +++|*
01250 M00S01211.docment +++|* EXIT (A1) = ADDRESS OF LAST CHARACTER OF LABEL OR ADDRESS
01251 M00S01212.docment +++|* OF FIRST CHARACTER BEFORE DIGIT FIELD IF NO LABEL.
01252 M00S01213.docment +++|*
01253 M00S01214.docment +++|* USES A - 1, 2, 6, 7.
01254 M00S01215.docment +++|* X - 1, 2, 3, 4, 5, 6, 7.
01255 M00S01216.docment +++|*
01256 M00S01217.docment +++|* CALLS ASF, MVE.
01257 M00S01218.docment +++|
01258 M00S01219.docment +++|
01259 M00S01220.docment +++| STL1 SX4 1R SPACE
01260 M00S01221.docment +++| SA2 A1 PRESET (A2)
01261 M00S01222.docment +++| SX5 X4+B1 COMMA
01262 M00S01223.docment +++|
01263 M00S01224.docment +++| STL1A SA2 A2+1 SEARCH FOR END OF TAG
01264 M00S01225.docment +++| ZR X2,STL IF END OF CARD
01265 M00S01226.docment +++| IX3 X4-X2 COMPARE SPACE
01266 M00S01227.docment +++| BX7 X5-X2 COMPARE COMMA
01267 M00S01228.docment +++| ZR X7,STL1B IF COMMA
01268 M00S01229.docment +++| NZ X3,STL1A IF NOT SPACE
01269 M00S01230.docment +++| BX7 X5
01270 M00S01231.docment +++| SA7 A2 REPLACE SPACE WITH COMMA
01271 M00S01232.docment +++|
01272 M00S01233.docment +++| STL1B SX7 TCF+1 SET PARAMS FOR ASF
01273 M00S01234.docment +++| MX6 0 CLEAR RESIDUE FROM TOTAL BIT COUNT
01274 M00S01235.docment +++| SA6 TBC
01275 M00S01236.docment +++| SX6 9
01276 M00S01237.docment +++| SA7 TCLP
01277 M00S01238.docment +++| RJ ASF ASSEMBLE LABEL INTO LIST LINE
01278 M00S01239.docment +++|
01279 M00S01240.docment +++| STL PS
01280 M00S01241.docment +++| SX1 9 CLEAR BEGINNING OF CONTENT LINE
01281 M00S01242.docment +++| SX2 BLN
01282 M00S01243.docment +++| SX3 TCF
01283 M00S01244.docment +++| RJ =XMVE=
01284 M00S01245.docment +++|
01285 M00S01246.docment +++| STL2 SA1 A1+1 CHECK NEXT CHARACTER
01286 M00S01247.docment +++| SX3 X1-1R
01287 M00S01248.docment +++| ZR X1,STL IF END OF CARD
01288 M00S01249.docment +++| ZR X3,STL2 IF ANOTHER BLANK
01289 M00S01250.docment +++| SX3 X1-1RZ-1
01290 M00S01251.docment +++| SA1 A1-1 BACKSPACE
01291 M00S01252.docment +++| NG X3,STL1 IF ALPHA
01292 M00S01253.docment +++| EQ STL **RETURN - NO LABEL
01293 M00S01254.docment +++| ASD SPACE 4,20
01294 M00S01255.docment +++|** ASD - ASSEMBLE DIGIT FIELD.
01295 M00S01256.docment +++|* J.C. BOHNHOFF - 70/7/4.
01296 M00S01257.docment +++|*
01297 M00S01258.docment +++|* ENTRY (A1)= ADDRESS OF CHARACTER PRECEDING A SUPPOSED
01298 M00S01259.docment +++|* DIGIT FIELD.
01299 M00S01260.docment +++|* DCD MUST BE ZERO TERMINATED.
01300 M00S01261.docment +++|*
01301 M00S01262.docment +++|* EXIT (X5) = LEFT JUSTIFIED DISPLAY CODED DIGIT FIELD.
01302 M00S01263.docment +++|* (B7) = NONZERO.
01303 M00S01264.docment +++|* (X1) = 0 IF END OF CARD ENCOUNTERED BEFORE DIGIT FIELD.
01304 M00S01265.docment +++|* LEADING SPACES ARE IGNORED AND ASSEMBLY TERMINATES
01305 M00S01266.docment +++|* WHEN A */* IS ENCOUNTERED.
01306 M00S01267.docment +++|*
01307 M00S01268.docment +++|* USES A - 1.
01308 M00S01269.docment +++|* B - 2, 3, 7.
01309 M00S01270.docment +++|* X - 1, 3, 4, 5.
01310 M00S01271.docment +++|
01311 M00S01272.docment +++|
01312 M00S01273.docment +++| ASD1 ZR X1,ASD IF END OF CARD ENCOUNTERED
01313 M00S01274.docment +++| SX3 X1-1R CHECK FOR LEADING SPACE
01314 M00S01275.docment +++| NZ X3,ASD1A IF FIRST NON-BLANK CHARACTER
01315 M00S01276.docment +++| SA1 A1+1 READ NEXT CHARACTER
01316 M00S01277.docment +++| EQ ASD1 LOOP TILL END OF CARD OR FIRST NON-BLANK
01317 M00S01278.docment +++|
01318 M00S01279.docment +++| ASD1A SX3 X1-1R0 CHECK FOR LEADING NUMERIC
01319 M00S01280.docment +++| SX5 -1 FORCE DXB ERROR IF NOT NUMERIC
01320 M00S01281.docment +++| NG X3,ASD IF ALPHA
01321 M00S01282.docment +++| SX3 X3-10
01322 M00S01283.docment +++| NG X3,ASD2 IF NOT SPECIAL CHARACTER
01323 M00S01284.docment +++| SX3 X1-1R, CHECK FOR COMMA AS FIRST CHARACTER
01324 M00S01285.docment +++| NZ X3,ASD IF NOT COMMA
01325 M00S01286.docment +++| SX1 0 FLAG END-OF-CARD
01326 M00S01287.docment +++| EQ ASD **RETURN
01327 M00S01288.docment +++|
01328 M00S01289.docment +++| ASD2 SX3 X1-1R/ CHECK FOR FIELD SEPERATOR
01329 M00S01290.docment +++| ZR X1,ASD **RETURN - IF EOC
01330 M00S01291.docment +++| ZR X3,ASD3 IF SEPERATOR
01331 M00S01292.docment +++| LX4 6 SHIFT ASSEMBLY
01332 M00S01293.docment +++| BX4 X4+X1 INSERT NEXT CHARACTER
01333 M00S01294.docment +++| SB3 B3-B2 ADVANCE BIT COUNT
01334 M00S01295.docment +++| SA1 A1+B1 READ NEXT CHARACTER
01335 M00S01296.docment +++| EQ ASD2
01336 M00S01297.docment +++|
01337 M00S01298.docment +++| ASD3 LX5 X4,B3 LEFT JUSTIFY THE DIGITS
01338 M00S01299.docment +++| SB7 1
01339 M00S01300.docment +++|
01340 M00S01301.docment +++| ASD PS ENTRY/EXIT
01341 M00S01302.docment +++| SB2 6
01342 M00S01303.docment +++| SB3 60 INITIALIZE ASSEMBLY BIT COUNT
01343 M00S01304.docment +++| MX4 0 CLEAR ASSEMBLY REGISTER
01344 M00S01305.docment +++| SA1 A1+B1 READ FIRST CHARACTER TO BE CONSIDERED
01345 M00S01306.docment +++| EQ ASD1 GO ASSEMBLE
01346 M00S01307.docment +++| ASF SPACE 4,20
01347 M00S01308.docment +++|** ASF - ASSEMBLE TABLE FIELD INTO LINE.
01348 M00S01309.docment +++|* J.C. BOHNHOFF - 70/7/4.
01349 M00S01310.docment +++|*
01350 M00S01311.docment +++|* ENTRY (A1)= ADDRESS OF CHARACTER PRECEDING A SUPPOSED
01351 M00S01312.docment +++|* NAME FIELD.
01352 M00S01313.docment +++|* (X6) = NUMBER OF BITS IN FIELD.
01353 M00S01314.docment +++|*
01354 M00S01315.docment +++|* EXIT FIELD ASSEMBLED INTO TABLE LINE BUFFER.
01355 M00S01316.docment +++|*
01356 M00S01317.docment +++|* USES A - 1, 3, 4, 7.
01357 M00S01318.docment +++|* X - 1, 3, 4, 5, 6, 7.
01358 M00S01319.docment +++|
01359 M00S01320.docment +++|
01360 M00S01321.docment +++| ASF PS ENTRY/EXIT
01361 M00S01322.docment +++| SA3 TBC TOTAL BIT COUNT
01362 M00S01323.docment +++| SA4 TCLP TABLE CONTENT LINE POINTER
01363 M00S01324.docment +++| IX7 X3+X6 ADVANCE TOTAL BIT COUNT
01364 M00S01325.docment +++| SA7 A3
01365 M00S01326.docment +++| SX5 X6-1 DECREMENT NUMBER OF BITS IN FIELD
01366 M00S01327.docment +++| NG X5,ASF6 IF NEGATIVE BIT COUNT
01367 M00S01328.docment +++| NZ X5,ASF1 IF NOT SINGLE BIT FIELD
01368 M00S01329.docment +++| SX5 X4-TCL+AST+1
01369 M00S01330.docment +++| SX7 1R+
01370 M00S01331.docment +++| SA7 X5
01371 M00S01332.docment +++| SA1 A1+B1
01372 M00S01333.docment +++| BX7 X1
01373 M00S01334.docment +++| EQ ASF5
01374 M00S01335.docment +++|
01375 M00S01336.docment +++| ASF1 SA1 A1+B1 READ NAME CHARACTER
01376 M00S01337.docment +++| SX6 X6-1 DECREMENT BIT COUNT
01377 M00S01338.docment +++| BX7 X1
01378 M00S01339.docment +++| ZR X1,ASF4 IF END OF CARD
01379 M00S01340.docment +++| SX3 X1-1R, CHECK FOR COMMA SEPERATOR
01380 M00S01341.docment +++| ZR X3,ASF4 IF COMMA
01381 M00S01342.docment +++| ZR X6,ASF1A IF TIME TO INSERT FIELD SEPERATOR
01382 M00S01343.docment +++| SA7 X4 STORE CHARACTER IN FIELD
01383 M00S01344.docment +++| SX4 X4+B1 ADVANCE CHARACTER POINTER
01384 M00S01345.docment +++| EQ ASF1 CONTINUE
01385 M00S01346.docment +++|
01386 M00S01347.docment +++| ASF1A SA1 A1+1 SEARCH FOR END OF NAME FIELD
01387 M00S01348.docment +++| SX3 X1-1R,
| Line S00001 Modification History |
M01 (Added by) | docme1 |
Seq # *Modification Id* Act
----------------------------+
01388 M01S00001.docme1 +++| ZR X1,ASF2 IF END OF STATEMENT
01389 M00S01349.docment +++| NZ X3,ASF1A CONTINUE IF NOT END
01390 M00S01350.docment +++| ASF2 SX7 1R/ STORE FIELD SEPERATOR
01391 M00S01351.docment +++| SA7 X4
01392 M00S01352.docment +++| SX4 X4+B1 ADVANCE CHARACTER POINTER
01393 M00S01353.docment +++| ASF3 BX7 X4 RESTORE CHARACTER POINTER
01394 M00S01354.docment +++| SA7 A4
01395 M00S01355.docment +++| EQ ASF **RETURN
01396 M00S01356.docment +++|
01397 M00S01357.docment +++| ASF4 SX7 1R PROPAGATE SPACES UNTIL FIELD EXHAUSTED
01398 M00S01358.docment +++| ZR X6,ASF2 IF TIME TO INSERT FIELD SEPERATOR
01399 M00S01359.docment +++| SA7 X4 STORE CHARACTER IN FIELD
01400 M00S01360.docment +++| SX6 X6-1 DECREMENT BIT COUNT
01401 M00S01361.docment +++| SX4 X4+B1 ADVANCE CHARACTER POINTER
01402 M00S01362.docment +++| EQ ASF4 CONTINUE
01403 M00S01363.docment +++|
01404 M00S01364.docment +++| ASF5 SA7 X4 STORE SINGLE CHARACTER
01405 M00S01365.docment +++| SX4 X4+1 ADVANCE CHARACTER POINTER
01406 M00S01366.docment +++| ASF6 SA1 A1+1 SCAN TILL END OF FIELD
01407 M00S01367.docment +++| SX3 X1-1R,
| Line S00002 Modification History |
M01 (Added by) | docme1 |
Seq # *Modification Id* Act
----------------------------+
01408 M01S00002.docme1 +++| ZR X1,ASF3 IF END OF STATEMENT
01409 M00S01368.docment +++| ZR X3,ASF3 IF TERMINATOR
01410 M00S01369.docment +++| EQ ASF6 LOOP TILL TERMINATOR
01411 M00S01370.docment +++|
01412 M00S01371.docment +++| TBC BSSZ 1 HOLDS TOTAL BIT COUNT FOR ONE TABLE CARD
01413 M00S01372.docment +++| TCLP VFD 60/TCL TABLE CONTENT LINE POINTER
01414 M00S01373.docment +++| LTB SPACE 4,20
01415 M00S01374.docment +++|** LTB - LIST A TABLE ENTRY.
01416 M00S01375.docment +++|* J.C. BOHNHOFF - 70/7/4.
01417 M00S01376.docment +++|*
01418 M00S01377.docment +++|* ENTRY (TCL) = CONTENT LINE TO BE LISTED.
01419 M00S01378.docment +++|* (TCLP) = ADDRESS OF LIMIT OF *TCL*.
01420 M00S01379.docment +++|* (TBC) = TOTAL BIT COUNT FOR THIS TABLE ENTRY.
01421 M00S01380.docment +++|* (PBP) = 0 IF BIT POSITION HEADER LINES TO BE LISTED.
01422 M00S01381.docment +++|*
01423 M00S01382.docment +++|* EXIT TABLE ENTRY LISTED.
01424 M00S01383.docment +++|* (PBP) .NE. 0 IF ZERO ON ENTRY.
01425 M00S01384.docment +++|*
01426 M00S01385.docment +++|* USES A - 1, 3, 4, 5, 7.
01427 M00S01386.docment +++|* B - 6, 7.
01428 M00S01387.docment +++|* X - 0, 1, 2, 3, 4, 5, 7.
01429 M00S01388.docment +++|*
01430 M00S01389.docment +++|* CALLS LFL, LSL, MVE, STB, WTS.
01431 M00S01390.docment +++|
01432 M00S01391.docment +++|
01433 M00S01392.docment +++| LTB PS ENTRY/EXIT
01434 M00S01393.docment +++| SA4 LCT LINE COUNT
01435 M00S01394.docment +++| SX1 10 SET BLANKS AT BEGINNING OF LINE
01436 M00S01395.docment +++| MX7 0
01437 M00S01396.docment +++| SX2 BLN
01438 M00S01397.docment +++| BX0 X4 SAVE LINE COUNT
01439 M00S01398.docment +++| SX3 TPF
01440 M00S01399.docment +++| SA7 ATF CLEAR *ASTERS ONLY* FLAG
01441 M00S01400.docment +++| RJ =XMVE=
01442 M00S01401.docment +++| SA1 PBP *PRINT BIT POSITIONS* FLAG
01443 M00S01402.docment +++| SA5 TBC TOTAL BIT COUNT FOR THIS TABLE ENTRY
01444 M00S01403.docment +++| NG X1,LTBA IF SOME PART OF THE HEADER IS NOT TO BE
01445 M00S01404.docment +++| LISTED THIS TIME
01446 M00S01405.docment +++| ZR X1,LTBB IF FULL BIT POSITION HEADER TO BE LISTED
01447 M00S01406.docment +++| THIS BLOCK
01448 M00S01407.docment +++| LTBA MX7 60
01449 M00S01408.docment +++| BX7 X1-X7
01450 M00S01409.docment +++| ZR X7,LTB1 IF ALL HEADER IS OFF
01451 M00S01410.docment +++| SA7 ATF
01452 M00S01411.docment +++|
01453 M00S01412.docment +++| LTBB MX7 60 TOGGLE THE FLAG
01454 M00S01413.docment +++| SA7 A1
01455 M00S01414.docment +++| SA3 LLM LINE LIMIT
01456 M00S01415.docment +++| NO
01457 M00S01416.docment +++| SX7 X0+5
01458 M00S01417.docment +++| IX3 X7-X3
01459 M00S01418.docment +++| NG X3,LTB0 IF IT WILL FIT
01460 M00S01419.docment +++| RJ STB SKIP TO BOTTOM OF PAGE
01461 M00S01420.docment +++| RJ LSL LIST LAST LINE ON PAGE
01462 M00S01421.docment +++| RJ LFL LIST FIRST LINE ON PAGE
01463 M00S01422.docment +++| SA1 LCT RESTORE REGISTERS
01464 M00S01423.docment +++| SA5 TBC
01465 M00S01424.docment +++| BX0 X1
01466 M00S01425.docment +++|
01467 M00S01426.docment +++| LTB0 SA1 ATF
01468 M00S01427.docment +++| NZ X1,LTB0A IF ASTER LINE ONLY TO BE LISTED
01469 M00S01428.docment +++| LTBC SX2 BP1L
01470 M00S01429.docment +++| BX1 X5 SET WORD COUNT FOR MVE
01471 M00S01430.docment +++| IX2 X2-X5
01472 M00S01431.docment +++| SX3 TPL SET DESTINATION FOR MVE - (TABLE PRNT LINE)
01473 M00S01432.docment +++| RJ =XMVE= MOVE LINE INTO LIST BUFFER
01474 M00S01433.docment +++| SB7 X5+10 SET WORD COUNT FOR WRITE
01475 M00S01434.docment +++| SX2 SCR1 SET ADDRESS OF FET
01476 M00S01435.docment +++| SB6 TPF
01477 M00S01436.docment +++| RJ =XWTS= WRITE THE FIRST BIT POSITION HEADER LINE
01478 M00S01437.docment +++| SX0 X0+B1 BUMP LINE COUNT
01479 M00S01438.docment +++| SX2 BP2L SET UP FOR WRITE OF 2ND HEADER LINE
01480 M00S01439.docment +++| BX1 X5
01481 M00S01440.docment +++| SX3 TPL
01482 M00S01441.docment +++| IX2 X2-X5
01483 M00S01442.docment +++| RJ =XMVE= MOVE SECOND LINE INTO BUFFER
01484 M00S01443.docment +++| SX2 SCR1
01485 M00S01444.docment +++| SB6 TPF
01486 M00S01445.docment +++| SB7 X5+10
01487 M00S01446.docment +++| RJ =XWTS= WRITE SECOND BIT POSITION HEADER LINE
01488 M00S01447.docment +++| SX0 X0+1 BUMP LINE COUNT
01489 M00S01448.docment +++|
01490 M00S01449.docment +++| LTB0A SX2 AST MOVE ASTERISK LINE
01491 M00S01450.docment +++| SX3 TPL-1
01492 M00S01451.docment +++| SX1 X5+1
01493 M00S01452.docment +++| RJ =XMVE=
01494 M00S01453.docment +++| WRITES SCR1,TPF,X5+10 WRITE ASTERISK LINE TO DEFINE TOP OF ENT
01495 M00S01454.docment +++| SX0 X0+B1 BUMP LINE COUNT
01496 M00S01455.docment +++| EQ LTB2
01497 M00S01456.docment +++|
01498 M00S01457.docment +++| LTB1 SA3 LLM LINE LIMIT
01499 M00S01458.docment +++| SX7 X0+2 SEE IF ENTRY WILL FIT ON PAGE
01500 M00S01459.docment +++| NO
01501 M00S01460.docment +++| IX3 X7-X3
01502 M00S01461.docment +++| NG X3,LTB2 IF IT WILL FIT
01503 M00S01462.docment +++| RJ STB SKIP TO BOTTOM OF PAGE
01504 M00S01463.docment +++| RJ LSL LIST LAST LINE
01505 M00S01464.docment +++| RJ LFL LIST FIRST LINE
01506 M00S01465.docment +++| SA1 LCT RESTORE REGISTERS
01507 M00S01466.docment +++| SA5 TBC
01508 M00S01467.docment +++| BX0 X1
01509 M00S01468.docment +++| EQ LTBC WRITE NEW HEADER
01510 M00S01469.docment +++|
01511 M00S01470.docment +++| LTB2 WRITES SCR1,TCF,X5+10 WRITE TABLE CONTENT LINE
01512 M00S01471.docment +++| SX0 X0+B1 BUMP LINE COUNT
01513 M00S01472.docment +++| SX1 X5+B1
01514 M00S01473.docment +++| SX2 AST MOVE ASTERISKS
01515 M00S01474.docment +++| SX3 TPL-1
01516 M00S01475.docment +++| RJ =XMVE=
01517 M00S01476.docment +++| WRITES SCR1,TPF,X5+10 WRITE ASTERISK LINE TO DEFINE BTTM OF EN
01518 M00S01477.docment +++| SX7 X0+1
01519 M00S01478.docment +++| SA7 LCT RESTORE BUMPED LINE COUNT
01520 M00S01479.docment +++| EQ LTB **RETURN
01521 M00S01480.docment +++|
01522 M00S01481.docment +++| PBP BSSZ 1 PRINT BIT POSITIONS FLAG
01523 M00S01482.docment +++| ATF BSSZ 1 ASTERISK ONLY FLAG
01524 M00S01483.docment +++| STB SPACE 4,10
01525 M00S01484.docment +++|** STB - SKIP TO BOTTOM OF PAGE.
01526 M00S01485.docment +++|* J.C. BOHNHOFF - 70/07/11.
01527 M00S01486.docment +++|*
01528 M00S01487.docment +++|* ENTRY (X0) = CURRENT LINE COUNT.
01529 M00S01488.docment +++|*
01530 M00S01489.docment +++|* EXIT FORM POSITIONED AT *LINP*.
01531 M00S01490.docment +++|*
01532 M00S01491.docment +++|* USES A - 2.
01533 M00S01492.docment +++|* X - 0, 2, 5, 6.
01534 M00S01493.docment +++|
01535 M00S01494.docment +++|
01536 M00S01495.docment +++| STB PS
01537 M00S01496.docment +++| BX0 -X0
01538 M00S01497.docment +++| SA2 LLM
01539 M00S01498.docment +++| NO
01540 M00S01499.docment +++| IX0 X0+X2
01541 M00S01500.docment +++| AX5 X0,B1 /2= NUMBER OF DOUBLE SPACES NEEDED
01542 M00S01501.docment +++| LX6 X5,B1
01543 M00S01502.docment +++| IX0 X0-X6 NUMBER OF SINGLE SPACES NEEDEAFTER DOUBLES
01544 M00S01503.docment +++|
01545 M00S01504.docment +++| STB1 ZR X5,STB2 IF DONE DOUBLE SPACEING
01546 M00S01505.docment +++| WRITEC SCR1,(=2L0 )
01547 M00S01506.docment +++| SX5 X5-1
01548 M00S01507.docment +++| EQ STB1
01549 M00S01508.docment +++|
01550 M00S01509.docment +++| STB2 ZR X0,STB **RETURN - IF AT BOTTOM
01551 M00S01510.docment +++| WRITEC SCR1,(=2L )
01552 M00S01511.docment +++| EQ STB
01553 M00S01512.docment +++| CVT SPACE 4,10
01554 M00S01513.docment +++|** CVT - CONVERT NUMBER FROM OCTAL TO DECIMAL DISPLAY CODE.
01555 M00S01514.docment +++|*
01556 M00S01515.docment +++|* ENTRY (X1) = LOW 18 BITS OF NUMBER TO BE CONVERTED.
01557 M00S01516.docment +++|*
01558 M00S01517.docment +++|* EXIT (X7) = LEFT JUSTIFIED DISPLAY CODED NUMBER.
01559 M00S01518.docment +++|* (B7) = 6*NUMBER OF DIGITS IN CONVERTED NUMBER.
01560 M00S01519.docment +++|*
01561 M00S01520.docment +++|* USES A - 2, 3, 4.
01562 M00S01521.docment +++|* B - 0, 4, 5, 6, 7.
01563 M00S01522.docment +++|* X - 1, 2, 3, 4, 6, 7.
01564 M00S01523.docment +++|
01565 M00S01524.docment +++|
01566 M00S01525.docment +++| CVT1 DX7 X1*X2
01567 M00S01526.docment +++| FX1 X1*X2
01568 M00S01527.docment +++| LX4 54
01569 M00S01528.docment +++| SB4 X1
01570 M00S01529.docment +++| FX6 X3*X7 CALCULATE REMAINDER DIGIT
01571 M00S01530.docment +++| SB7 B7+B5
01572 M00S01531.docment +++| SX6 X6+B6
01573 M00S01532.docment +++| IX4 X6+X4
01574 M00S01533.docment +++| NZ B4,CVT1
01575 M00S01534.docment +++| BX7 X4 LEFT JUSTIFY NUMBER
01576 M00S01535.docment +++| LX7 54
01577 M00S01536.docment +++|
01578 M00S01537.docment +++| CVT PS 0 ENTRY/EXIT
01579 M00S01538.docment +++| SA2 CVTA
01580 M00S01539.docment +++| SA3 A2+B1
01581 M00S01540.docment +++| SA4 A3+B1
01582 M00S01541.docment +++| PX1 X1
01583 M00S01542.docment +++| SB7 B0 SET DIGIT COUNT
01584 M00S01543.docment +++| SB5 6
01585 M00S01544.docment +++| SB6 -22B
01586 M00S01545.docment +++| EQ CVT1
01587 M00S01546.docment +++|
01588 M00S01547.docment +++| CVTA DATA 0.1000000001P48
01589 M00S01548.docment +++| DATA 10.0P0
01590 M00S01549.docment +++| DATA 1H
01591 M00S01550.docment +++| ABT SPACE 4,10
| Line S01551 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01592 M01S01551.v23l617 ---|** ABT - TERMINATE ON PRE-MATURE EOR/EOF.
| Line S00004 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01593 M01S00004.v23l617 +++|** ABT - TERMINATE ON PREMATURE EOR/EOF.
01594 M00S01552.docment +++|*
01595 M00S01553.docment +++|* USES A - 7.
01596 M00S01554.docment +++|* X - 7.
01597 M00S01555.docment +++|
01598 M00S01556.docment +++|
01599 M00S01557.docment +++| ABT SX7 B1 SET NUMBER OF COPIES TO 1
01600 M00S01558.docment +++| SA7 N
01601 M00S01559.docment +++| WRITEC SCR1,(=2L )
01602 M00S01560.docment +++| WRITEC SCR1,(=2L )
| Line S01561 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01603 M01S01561.v23l617 ---| WRITEC SCR1,(=C* PRE-MATURE EOR/EOF ON SOURCE FILE.*)
| Line S00005 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01604 M01S00005.v23l617 +++| WRITEC SCR1,(=C* PREMATURE EOR/EOF ON SOURCE FILE.*)
01605 M00S01562.docment +++| EQ DOC3 EXIT
01606 M00S01563.docment +++| CPY SPACE 4,10
01607 M00S01564.docment +++|** CPY - COPY SCRATCH FILE TO OUTPUT FILE.
01608 M00S01565.docment +++|*
| Line S01566 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01609 M01S01566.ns22000 ---|* USES A - 1.
01610 M01S01567.ns22000 ---|* B - 7.
01611 M01S01568.ns22000 ---|* X - 1.
| Line S00017 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
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 M00S01569.docment +++|
01618 M00S01570.docment +++|
01619 M00S01571.docment +++| CPY PS 0 ENTRY/EXIT
| Line S01572 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01620 M01S01572.ns22000 ---| SA1 NI CHECK FOR NO INPUT FILE
| Line S00022 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
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 M00S01573.docment +++| ZR X1,CPY3 IF NONE
01628 M00S01574.docment +++| CPY1 READW SCR1,DCD,100B
01629 M00S01575.docment +++| NZ X1,CPY2 IF EOR/EOF
01630 M00S01576.docment +++| WRITEW I,DCD,100B WRITE FROM WORKING BUFFER
01631 M00S01577.docment +++| EQ CPY1 COPY SOME MORE
01632 M00S01578.docment +++|
01633 M00S01579.docment +++| CPY2 SB7 X1-DCD GET WORD COUNT OF LAST TRANSFER
01634 M00S01580.docment +++| WRITEW I,DCD,B7 TRANSFER LAST FEW WORDS
01635 M00S01581.docment +++| READ SCR1
01636 M00S01582.docment +++| CPY3 SA1 TC CHECK FOR TABLE OF CONTENTS
01637 M00S01583.docment +++| ZR X1,CPY6 IF NO TABLE OF CONTENTS
01638 M00S01584.docment +++| REWIND SCR2,R
01639 M00S01585.docment +++| READ SCR2
01640 M00S01586.docment +++| CPY4 READW SCR2,DCD,100B
01641 M00S01587.docment +++| NZ X1,CPY5 IF EOR/EOF
01642 M00S01588.docment +++| WRITEW I,DCD,100B WRITE FROM WORKING BUFFER
01643 M00S01589.docment +++| EQ CPY4 COPY SOME MORE
01644 M00S01590.docment +++|
01645 M00S01591.docment +++| CPY5 SB7 X1-DCD GET WORD COUNT OF LAST TRANSFER
01646 M00S01592.docment +++| WRITEW I,DCD,B7 TRANSFER LAST FEW WORDS
01647 M00S01593.docment +++| RECALL SCR2
01648 M00S01594.docment +++| CPY6 READW SCR1,DCD,100B
01649 M00S01595.docment +++| NZ X1,CPY7 IF EOR/EOF
01650 M00S01596.docment +++| WRITEW I,DCD,100B WRITE FROM WORKING BUFFER
01651 M00S01597.docment +++| EQ CPY6 COPY SOME MORE
01652 M00S01598.docment +++|
01653 M00S01599.docment +++| CPY7 SB7 X1-DCD GET WORD COUNT OF LAST TRANSFER
01654 M00S01600.docment +++| WRITEW I,DCD,B7 TRANSFER LAST FEW WORDS
01655 M00S01601.docment +++| WRITER I,R
01656 M00S01602.docment +++| RECALL SCR1
01657 M00S01603.docment +++| EQ CPY EXIT
01658 M00S01604.docment +++| EDC SPACE 4,10
01659 M00S01605.docment +++|** EDC - *END* CARD PROCESSOR.
01660 M00S01606.docment +++|*
01661 M00S01607.docment +++|* ENTRY (A0) - EXIT ADDRESS.
01662 M00S01608.docment +++|*
01663 M00S01609.docment +++|* USES A - 2, 4, 5, 6, 7.
01664 M00S01610.docment +++|* B - 2.
01665 M00S01611.docment +++|* X - 2, 4, 5, 6, 7.
01666 M00S01612.docment +++|*
01667 M00S01613.docment +++|* CALLS LSL.
01668 M00S01614.docment +++|
01669 M00S01615.docment +++|
01670 M00S01616.docment +++| EDC SA2 FLF CHECK TO SEE IF ANYTHING HAS BEEN LISTED
01671 M00S01617.docment +++| ZR X2,EDC3 IF NOT
01672 M00S01618.docment +++| SA5 LCT
01673 M00S01619.docment +++| SA4 LLM LINE LIMIT
01674 M00S01620.docment +++| IX5 X5-X4
01675 M00S01621.docment +++| BX6 X5
01676 M00S01622.docment +++| LX6 59-0 CHECK EVEN OR ODD
01677 M00S01623.docment +++| ZR X5,EDC2 IF AT BOTTOM OF PAGE
01678 M00S01624.docment +++| NG X6,EDC1 IF EVEN
01679 M00S01625.docment +++| WRITEC SCR1,(=2L )
01680 M00S01626.docment +++| SX5 X5+B1
01681 M00S01627.docment +++| EDC1 ZR X5,EDC2 IF AT BOTTOM OF PAGE
01682 M00S01628.docment +++| WRITEC SCR1,(=2L0 )
01683 M00S01629.docment +++| SX5 X5+2
01684 M00S01630.docment +++| EQ EDC1 LOOP TO BOTTOM OF PAGE
01685 M00S01631.docment +++|
01686 M00S01632.docment +++| EDC2 RJ LSL LIST LAST LINE
01687 M00S01633.docment +++| EDC3 MX7 0
01688 M00S01634.docment +++| SA7 FLF CLEAR FIRST LINE FLAG
01689 M00S01635.docment +++| SA7 LSCA CLEAR LIST CARD STACK
01690 M00S01636.docment +++| SA7 FCR RESET FIRST CHARACTER TO SCAN FROM
01691 M00S01637.docment +++| SA7 XFL CLEAR LIST *X* FLAG
01692 M00S01638.docment +++| SA7 TOG CLEAR TOGGLE
01693 M00S01639.docment +++| SA5 EDAS RESET ASTERISK COUNT FOR DOC TYPE
01694 M00S01640.docment +++| SA4 IDAS
01695 M00S01641.docment +++| BX6 X5
01696 M00S01642.docment +++| LX7 X4
01697 M00S01643.docment +++| SA6 MAS
01698 M00S01644.docment +++| SA7 NAS
01699 M00S01645.docment +++| SB2 A0
01700 M00S01646.docment +++| JP B2 EXIT
| Line S00017 Modification History |
M01 (Added by) | docme2 |
Seq # *Modification Id* Act
----------------------------+
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 M00S01647.docment +++| CTX SPACE 4,10
01731 M00S01648.docment +++|** CTX - PROCESS *CTEXT* CARDS.
01732 M00S01649.docment +++|*
01733 M00S01650.docment +++|* USES A - 1, 7.
01734 M00S01651.docment +++|* X - 1, 7.
01735 M00S01652.docment +++|
01736 M00S01653.docment +++|
01737 M00S01654.docment +++| CTX SA1 XFL CHECK LIST *X* FLAG
01738 M00S01655.docment +++| NZ X1,CMP1 EXIT IF ON
01739 M00S01656.docment +++| SX7 20 RESET LIST LIMITS
01740 M00S01657.docment +++| SA7 MAS
01741 M00S01658.docment +++| SA7 NAS
01742 M00S01659.docment +++| EQ CMP1 EXIT
01743 M00S01660.docment +++| EDX SPACE 4,10
01744 M00S01661.docment +++|** EDX - PROCESS *ENDX* CARDS.
01745 M00S01662.docment +++|*
01746 M00S01663.docment +++|* USES A - 1, 4, 5, 6, 7.
01747 M00S01664.docment +++|* X - 1, 4, 5, 6, 7.
01748 M00S01665.docment +++|
01749 M00S01666.docment +++|
01750 M00S01667.docment +++| EDX SA1 XFL CHECK LIST *X* FLAG
01751 M00S01668.docment +++| NZ X1,CMP1 EXIT IF ON
01752 M00S01669.docment +++| SA4 EDAS RESTORE LIMITS ON ASTERISK COUNTS
01753 M00S01670.docment +++| SA5 IDAS
01754 M00S01671.docment +++| BX6 X4
01755 M00S01672.docment +++| LX7 X5
01756 M00S01673.docment +++| SA6 MAS
01757 M00S01674.docment +++| SA7 NAS
01758 M00S01675.docment +++| EQ CMP1 EXIT
01759 M00S01676.docment +++| BKD SPACE 4,10
01760 M00S01677.docment +++|** BKD - PROCESS BLOCK DATA SUBPROGRAMS.
01761 M00S01678.docment +++|*
01762 M00S01679.docment +++|* ENTRY (B5) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER.
01763 M00S01680.docment +++|*
01764 M00S01681.docment +++|* EXIT TO *CMP1* IF *COMPASS* PROGRAM.
01765 M00S01682.docment +++|*
01766 M00S01683.docment +++|* A - 1, 2, 3, 4, 6.
01767 M00S01684.docment +++|* B - 6, 7.
01768 M00S01685.docment +++|* X - 0, 1, 2, 3, 4, 6, 7.
01769 M00S01686.docment +++|*
01770 M00S01687.docment +++|* CALLS CVT.
01771 M00S01688.docment +++|
01772 M00S01689.docment +++|
01773 M00S01690.docment +++| BKD BSS 0 ENTRY
01774 M00S01691.docment +++| SA4 PTYP
01775 M00S01692.docment +++| ZR X4,CMP1 IF *COMPASS* PROGRAM
01776 M00S01693.docment +++| SB6 B5 SAVE ADDRESS OF NEXT CHARACTER
01777 M00S01694.docment +++| SX2 1R
01778 M00S01695.docment +++| BKD1 SA3 B6 CHECK FOR PRESENCE OF NAME
01779 M00S01696.docment +++| SB6 B6+B1
01780 M00S01697.docment +++| IX6 X3-X2
01781 M00S01698.docment +++| ZR X3,BKD2 IF NO NAME FOUND
01782 M00S01699.docment +++| ZR X6,BKD1 SKIP BLANKS
01783 M00S01700.docment +++| EQ FTN GO PROCESS AS FORTRAN
01784 M00S01701.docment +++|
01785 M00S01702.docment +++| BKD2 SA1 BKDA BLOCK COUNT
01786 M00S01703.docment +++| SX6 X1+B1
01787 M00S01704.docment +++| SA6 A1
01788 M00S01705.docment +++| RJ CVT CONVERT BLOCK COUNT
01789 M00S01706.docment +++| MX0 42
01790 M00S01707.docment +++| SA2 BKDB
01791 M00S01708.docment +++| LX7 X7,B7
01792 M00S01709.docment +++| BX6 X0*X2
01793 M00S01710.docment +++| BX7 -X0*X7 GET NUMBER
01794 M00S01711.docment +++| BX7 X6+X7
01795 M00S01712.docment +++| MX0 60-6
01796 M00S01713.docment +++| SB7 10
01797 M00S01714.docment +++| SB6 B5
01798 M00S01715.docment +++|
01799 M00S01716.docment +++| BKD3 LX7 6 DECODE NAME
01800 M00S01717.docment +++| SB7 B7-B1
01801 M00S01718.docment +++| BX6 -X0*X7 GET CHARACTER
01802 M00S01719.docment +++| SA6 B6
01803 M00S01720.docment +++| SB6 B6+B1
01804 M00S01721.docment +++| NZ B7,BKD3 LOOP FOR 10 CHARACTERS
01805 M00S01722.docment +++| EQ FTN GO PROCESS AS FORTRAN
01806 M00S01723.docment +++|
01807 M00S01724.docment +++| BKDA DATA 1 BLOCK DATA SUBROUTINE COUNT
01808 M00S01725.docment +++| BKDB VFD 42/0HNUMBER-,18/
01809 M00S01726.docment +++| LSC SPACE 4,10
01810 M00S01727.docment +++|** LSC - PROCESS *LIST* CARD.
01811 M00S01728.docment +++|*
01812 M00S01729.docment +++|* ENTRY (B5) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER.
01813 M00S01730.docment +++|*
01814 M00S01731.docment +++|* USES A - 2, 4, 5, 6, 7.
01815 M00S01732.docment +++|* B - 7.
01816 M00S01733.docment +++|* X - 2, 3, 4, 5, 6, 7.
01817 M00S01734.docment +++|
01818 M00S01735.docment +++|
01819 M00S01736.docment +++| LSC SB7 B1 SET .NOT. *-* FLAG
01820 M00S01737.docment +++| SA2 B5 READ NEXT CHARACTER
01821 M00S01738.docment +++| SX3 1R
01822 M00S01739.docment +++| LSC1 ZR X2,CMP1 EXIT IF NO LIST PARAMETERS LEFT
01823 M00S01740.docment +++| IX6 X2-X3
01824 M00S01741.docment +++| BX4 X2
01825 M00S01742.docment +++| SA2 A2+B1 READ NEXT CHARACTER
01826 M00S01743.docment +++| ZR X6,LSC1 SKIP BLANKS
01827 M00S01744.docment +++| SA5 A2+B1 READ FOLLOWING CHARACTER
01828 M00S01745.docment +++| SB7 X4-1R- CHECK FOR *-*
01829 M00S01746.docment +++| ZR B7,LSC2 IF PRESENT
01830 M00S01747.docment +++| SA5 A2
01831 M00S01748.docment +++| SX2 X4
01832 M00S01749.docment +++| LSC2 SX6 X2-1RL *L*
01833 M00S01750.docment +++| SX7 X2-1RX *X*
01834 M00S01751.docment +++| SX2 X2-1R* ***
01835 M00S01752.docment +++| ZR X6,LSC4
01836 M00S01753.docment +++| ZR X7,LSC6
01837 M00S01754.docment +++| ZR X2,LSC9
| Line S00046 Modification History |
M01 (Added by) | docme2 |
Seq # *Modification Id* Act
----------------------------+
01838 M01S00046.docme2 +++| EQ LSC8 PUSH LIST OPTION ONTO STACK
01839 M00S01755.docment +++| LSC3 IX2 X5-X3 CHECK FOR END
01840 M00S01756.docment +++| ZR X2,CMP1 IF END OF CARD
01841 M00S01757.docment +++| SA2 A5+B1
01842 M00S01758.docment +++| EQ LSC1 CONTINUE SEARCH
01843 M00S01759.docment +++|
01844 M00S01760.docment +++| LSC4 NZ B7,LSC5 PROCESS *L*
01845 M00S01761.docment +++| SX7 20 PROCESS *-L*
01846 M00S01762.docment +++| SA7 MAS RESET LIST LIMITS
01847 M00S01763.docment +++| SA7 NAS
01848 M00S01764.docment +++| EQ LSC8 TRY AGAIN
01849 M00S01765.docment +++|
01850 M00S01766.docment +++| LSC5 SA4 EDAS RESET LIST LIMITS FOR *L* CARD
01851 M00S01767.docment +++| SA2 IDAS
01852 M00S01768.docment +++| BX6 X4
01853 M00S01769.docment +++| LX7 X2
01854 M00S01770.docment +++| SA6 MAS
01855 M00S01771.docment +++| SA7 NAS
01856 M00S01772.docment +++| EQ LSC8 TRY AGAIN
01857 M00S01773.docment +++|
01858 M00S01774.docment +++| LSC6 NZ B7,LSC7 PROCESS *X*
01859 M00S01775.docment +++| SA7 XFL CLEAR LIST X FLAG
01860 M00S01776.docment +++| EQ LSC8 TRY AGAIN
01861 M00S01777.docment +++| LSC7 SX6 1RX
01862 M00S01778.docment +++| SA6 XFL SET LIST X FLAG
01863 M00S01779.docment +++| LSC8 SA2 MAS
01864 M00S01780.docment +++| SA4 NAS
01865 M00S01781.docment +++| LX2 40
01866 M00S01782.docment +++| LX4 20
01867 M00S01783.docment +++| BX7 X2+X4
01868 M00S01784.docment +++| SA4 XFL
01869 M00S01785.docment +++| BX7 X7+X4
01870 M00S01786.docment +++| SA2 LSCA LIST OPTIONS TABLE
01871 M00S01787.docment +++| SX6 X2+B1
01872 M00S01788.docment +++| SA6 A2
01873 M00S01789.docment +++| SX4 X6-LSCBL
01874 M00S01790.docment +++| PL X4,LSC10 IF LIST CARD LIMIT REACHED
01875 M00S01791.docment +++| SA7 LSCB+X6
01876 M00S01792.docment +++| EQ LSC3 TRY AGAIN
01877 M00S01793.docment +++|
01878 M00S01794.docment +++| LSC9 SA2 LSCA
01879 M00S01795.docment +++| SX6 X2-1
01880 M00S01796.docment +++| NG X6,LSC3 IF NO STACK
01881 M00S01797.docment +++| SA6 A2+
01882 M00S01798.docment +++| SX4 X6-LSCBL
01883 M00S01799.docment +++| PL X4,LSC3 IF STILL ABOVE LIMIT
01884 M00S01800.docment +++| SA4 LSCB+X6
01885 M00S01801.docment +++| MX2 20
01886 M00S01802.docment +++| BX6 X2*X4 GET MAS
01887 M00S01803.docment +++| BX7 -X2*X4 GET NAS
01888 M00S01804.docment +++| LX6 20
01889 M00S01805.docment +++| LX7 40
01890 M00S01806.docment +++| SX7 X7
01891 M00S01807.docment +++| SA7 NAS
01892 M00S01808.docment +++| SA6 MAS
01893 M00S01809.docment +++| SX7 X4
01894 M00S01810.docment +++| SA7 XFL
01895 M00S01811.docment +++| EQ LSC3
01896 M00S01812.docment +++|
01897 M00S01813.docment +++| LSC10 MESSAGE (=C* LIST CARD LIMIT - CARD IGNORED.*)
01898 M00S01814.docment +++| EQ LSC3
01899 M00S01815.docment +++|
01900 M00S01816.docment +++|
01901 M00S01817.docment +++| LSCA CON 0
01902 M00S01818.docment +++| LSCB CON 0
01903 M00S01819.docment +++| BSSZ NLCA
01904 M00S01820.docment +++| LSCBL EQU *-LSCB
01905 M00S01821.docment +++| TIT SPACE 4,10
01906 M00S01822.docment +++|** TIT - PROCESS TITLE CARD.
01907 M00S01823.docment +++|*
01908 M00S01824.docment +++|* ENTRY (B5) = ADDRESS OF NEXT CHARACTER IN STRING BUFFER.
01909 M00S01825.docment +++|*
01910 M00S01826.docment +++|* USES A - 1, 2, 7.
01911 M00S01827.docment +++|* B - 5, 6, 7.
01912 M00S01828.docment +++|* X - 1, 2, 3, 6, 7.
01913 M00S01829.docment +++|
01914 M00S01830.docment +++|
01915 M00S01831.docment +++| TIT MX7 0 CLEAR TITLE FROM SPECIAL CARD LIST
01916 M00S01832.docment +++| SA7 CMPC
01917 M00S01833.docment +++| SA2 B5 READ NEXT CHARACTER
01918 M00S01834.docment +++| SA1 =5L
01919 M00S01835.docment +++| SX3 1R
01920 M00S01836.docment +++| TIT1 IX6 X2-X3 CHECK FOR BLANK
01921 M00S01837.docment +++| ZR X2,CMP1 EXIT IF NO TITLE
01922 M00S01838.docment +++| SA2 A2+B1 READ NEXT CHARACTER
01923 M00S01839.docment +++| ZR X6,TIT1 SKIP BLANKS
01924 M00S01840.docment +++| SX1 2R1
01925 M00S01841.docment +++| SB7 8
01926 M00S01842.docment +++| SB6 5 SET WORD COUNT
01927 M00S01843.docment +++| BX7 X1
01928 M00S01844.docment +++| SA2 A2-B1 READ LAST CHARACTER
01929 M00S01845.docment +++| SB5 B0
01930 M00S01846.docment +++| EQ TIT3
01931 M00S01847.docment +++|
01932 M00S01848.docment +++| TIT2 SB7 10
01933 M00S01849.docment +++| SA7 B5+HDG STORE WORD
01934 M00S01850.docment +++| SB6 B6-B1 DECREMENT LOOP COUNT
01935 M00S01851.docment +++| SB5 B5+B1
01936 M00S01852.docment +++| MX7 0