User Tools

Site Tools


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

Deck LO72

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.lo72    +++|          IDENT  LO72,FETS,LO72
00002  M01S00002.lo72    +++|*COMMENT  LO72 - COMPASS REFORMATTER.
Line S00003 Modification History
M01 (Added by) lo72
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00003  M02S00003.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP., 1970.
00004  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.lo72    +++|          ABS
00006  M01S00005.lo72    +++|          SST
00007  M01S00006.lo72    +++|          ENTRY  LO72
00008  M01S00007.lo72    +++|          ENTRY  RFL=
00009  M01S00008.lo72    +++|          SYSCOM B1                DEFINE (B1) = 1
00010  M01S00009.lo72    +++|          TITLE  LO72 - COMPRESS OUTPUT FILES.
00011  M01S00010.lo72    +++|          TITLE  PROGRAM DOCUMENTATION.
00012  M01S00011.lo72    +++|***       LO72 - LIST OUTPUT 72 COLUMNS.
00013  M01S00012.lo72    +++|*
00014  M01S00013.lo72    +++|*         J. K. DOWTY, JR.    70/08/01.
00015  M01S00014.lo72    +++|*
00016  M01S00015.lo72    +++|          SPACE  4
00017  M01S00016.lo72    +++|***           LIST OUTPUT 72 (LO72) IS A UTILITY PROGRAM WHICH CAN
00018  M01S00017.lo72    +++|*         BE USED TO RE-FORMAT FILES ORIGINALLY INTENDED FOR A
00019  M01S00018.lo72    +++|*         LINE PRINTER.  PROPER USE OF THE PARAMETERS ALLOWS THE
00020  M01S00019.lo72    +++|*         USER TO REARRANGE EACH OUTPUT LINE AS HE DESIRES, OR
00021  M01S00020.lo72    +++|*         THE PROGRAM WILL SELECT DEFAULT VALUES ACCORDING TO
00022  M01S00021.lo72    +++|*         THE TYPE OF SOURCE INPUT.  THE DEFAULT VALUES COMPRESS
00023  M01S00022.lo72    +++|*         ALL OUTPUT TO 72 COLUMNS FOR LISTING ON A TELETYPE.
00024  M01S00023.lo72    +++|*             IF THE JOB ORIGINATED FROM A TELETYPE, LO72 WILL
00025  M01S00024.lo72    +++|*         ASK THE ORIGINATOR IF HE DESIRES TO CHANGE ANY OF THE
00026  M01S00025.lo72    +++|*         RE-FORMAT PARAMETERS.  IF HE ENTERS *YES* THE PROGRAM
00027  M01S00026.lo72    +++|*         PRINTS THE CURRENT NAME OF THE INPUT FILE ON HIS TTY AND
00028  M01S00027.lo72    +++|*         THE USER CAN THEN ENTER THE NEW FILE NAME OR JUST *CR*
00029  M01S00028.lo72    +++|*         (CARRIAGE RETURN).  THE *CR* WILL NOT CHANGE ANYTHING AND
00030  M01S00029.lo72    +++|*         THE PROGRAM WILL OUTPUT THE NEXT VALUE.  THIS PROCEDURE
00031  M01S00030.lo72    +++|*         CONTINUES UNTIL ALL THE PARAMETERS HAVE BEEN COVERED.
00032  M01S00031.lo72    +++|*         IF AN *I* PARAMETER IS SPECIFIED, I.E. LO72(I=FNAME),
00033  M01S00032.lo72    +++|*         THEN EACH RECORD OF FILE *FNAME* MUST END WITH A
00034  M01S00033.lo72    +++|*         TERMINATOR CHARACTER.  THE FOLLOWING EXAMPLE OF FILE
00035  M01S00034.lo72    +++|*         *FNAME* REQUESTS LO72 TO READ A COMPASS TYPE SOURCE FILE
00036  M01S00035.lo72    +++|*         *SOURCE*, RE-FORMAT IT TO WRITE A 105 CHARACTER LINE
00037  M01S00036.lo72    +++|*         CONTAINING THE "P" ADDRESS (N1), THE OCTAL WORD
Line S00037 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00038  M02S00037.v23l617 ---|*         REPRESENTATION (N2), AND THE CONTENTS OF EACH CARD (N3)
00039  M01S00001.v23l617 +++|*         REPRESENTATION (N2), AND THE CONTENTS OF EACH COMMAND (N3)
00040  M01S00038.lo72    +++|*         TO THE OUTPUT FILE *OUTFILE*.  THE OUTPUT FILE WILL
00041  M01S00039.lo72    +++|*         EVENTUALLY BE LISTED ON A LINE PRINTER(LP), BUT IT IS NOT
00042  M01S00040.lo72    +++|*         TO BE REWOUND AT THIS TIME(NR).
00043  M01S00041.lo72    +++|*
00044  M01S00042.lo72    +++|*         COL. NO.           1         2         3
00045  M01S00043.lo72    +++|*                  1         1         1         1
00046  M01S00044.lo72    +++|*                  S=SOURCE,O=OUTFILE,T=C,H=105,LP,NR.
00047  M01S00045.lo72    +++|*                  N1=7,N2=21,N3=73.
00048  M01S00046.lo72    +++|*                  I1=9,I2=16,I3=40.
00049  M01S00047.lo72    +++|*                  O1=1,O2=8,O3=29.
00050  M01S00048.lo72    +++|*                  EOF.
00051  M01S00049.lo72    +++|*
00052  M01S00050.lo72    +++|          SPACE  4
Line S00051 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00051.v23l617 ---|***       CONTROL CARD CALLS.
00054  M01S00002.v23l617 +++|***       THE COMMAND.
00055  M01S00052.lo72    +++|*
00056  M01S00053.lo72    +++|*         LO72(I,S,L,T,H,NR)
00057  M01S00054.lo72    +++|          SPACE  4
00058  M01S00055.lo72    +++|***       PARAMETERS.
00059  M01S00056.lo72    +++|*
00060  M01S00057.lo72    +++|*         I        RE-FORMAT PARAMETERS ARE ON FILE *INPUT*.
00061  M01S00058.lo72    +++|*         I=FNAME  RE-FORMAT PARAMETERS ARE ON FILE *FNAME*.
Line S00059 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00059.v23l617 ---|*         I=0      RE-FORMAT PARAMETERS ARE ON THE CONTROL CARD OR
00063  M01S00003.v23l617 +++|*         I=0      RE-FORMAT PARAMETERS ARE ON THE COMMAND OR
00064  M01S00060.lo72    +++|*                  SELECT THE APPROPRIATE DEFAULT VALUES.
00065  M01S00061.lo72    +++|*
00066  M01S00062.lo72    +++|*         S        DATA TO BE RE-FORMATTED IS ON FILE *SCR*.
00067  M01S00063.lo72    +++|*         S=FNAME  DATA TO BE RE-FORMATTED IS ON FILE *FNAME*.
00068  M01S00064.lo72    +++|*
00069  M01S00065.lo72    +++|*         L        RE-FORMATTED DATA LISTED TO FILE *OUTPUT*.
00070  M01S00066.lo72    +++|*         L=FNAME  RE-FORMATTED DATA LISTED TO FILE *FNAME*.
00071  M01S00067.lo72    +++|*
00072  M01S00068.lo72    +++|*         T        FILE TO BE RE-FORMATTED IS OF TYPE B(BATCH).
00073  M01S00069.lo72    +++|*         T=X      FILE TO BE RE-FORMATTED IS OF TYPE X, WHERE X
00074  M01S00070.lo72    +++|*                  CAN BE:  M FOR MODIFY SOURCE DATA,
00075  M01S00071.lo72    +++|*                           C FOR COMPASS SOURCE DATA, OR
00076  M01S00072.lo72    +++|*                           B FOR MISCELLANEOUS SOURCE DATA.
00077  M01S00073.lo72    +++|*         T=0      FILE TYPE IS NOT GIVEN.
00078  M01S00074.lo72    +++|*
00079  M01S00075.lo72    +++|*         H        NUMBER OF CHARACTERS PER OUTPUT LINE IS 72.
00080  M01S00076.lo72    +++|*         H=X-X    NUMBER OF CHARACTERS PER OUTPUT LINE IS X-X
00081  M01S00077.lo72    +++|*                  (MAXIMUM ALLOWED IS 150 CHARACTERS).
00082  M01S00078.lo72    +++|*
00083  M01S00079.lo72    +++|*         LP       OUTPUT WILL BE FORMATTED FOR THE LINE PRINTER.
00084  M01S00080.lo72    +++|*
00085  M01S00081.lo72    +++|*         NR       OUTPUT FILE WILL NOT BE REWOUND.
00086  M01S00082.lo72    +++|*
00087  M01S00083.lo72    +++|*         NX=Y     SPECIFY NUMBER OF CHARACTERS TO BE MOVED.
00088  M01S00084.lo72    +++|*                  X=1 THRU 6; Y = NUMBER OF CHARACTERS.
00089  M01S00085.lo72    +++|*
00090  M01S00086.lo72    +++|*         IX=Y     SPECIFY FIRST COLUMN OF DATA TO BE MOVED.
00091  M01S00087.lo72    +++|*                  X=1 THRU 6; Y = COLUMN NUMBER.
00092  M01S00088.lo72    +++|*
00093  M01S00089.lo72    +++|*         OX=Y     SPECIFY FIRST COLUMN TO RECEIVE THE DATA.
00094  M01S00090.lo72    +++|*                  X=1 THRU 6; Y = COLUMN NUMBER.
00095  M01S00091.lo72    +++|*
00096  M01S00092.lo72    +++|*         IT       IGNORE TERMINAL.  IF SET, THE TERMINAL OPTION TO
Line S00093 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00093.v23l617 ---|*                  ALTER CONTROL CARD PARAMETERS WILL BE SUPPRESSED.
00098  M01S00004.v23l617 +++|*                  ALTER COMMAND PARAMETERS WILL BE SUPPRESSED.
00099  M01S00094.lo72    +++|*
00100  M01S00095.lo72    +++|*         NOTE: N1+N2+...+N6 MUST BE LESS THAN OR EQUAL TO H.
00101  M01S00096.lo72    +++|*
00102  M01S00097.lo72    +++|          EJECT
00103  M01S00098.lo72    +++|***       PARAMETER DEFAULT VALUES LISTED BY SOURCE FILE TYPES.
00104  M01S00099.lo72    +++|*         B(BATCH)           C(COMPASS)         M(MODIFY)
00105  M01S00100.lo72    +++|*
00106  M01S00101.lo72    +++|*         I=0                I=0                I=0
00107  M01S00102.lo72    +++|*         S=SCR              S=SCR              S=SCR
00108  M01S00103.lo72    +++|*         L=OUTPUT           L=OUTPUT           L=OUTPUT
00109  M01S00104.lo72    +++|*         T=B                T=C                T=M
00110  M01S00105.lo72    +++|*         H=72               H=72               H=72
00111  M01S00106.lo72    +++|*         NR     NOT SET     NR     NOT SET     NR     NOT SET
00112  M01S00107.lo72    +++|*         LP     NOT SET     LP     NOT SET     LP     NOT SET
00113  M01S00108.lo72    +++|*         N1=72              N1=7               N1=2
00114  M01S00109.lo72    +++|*         N2 THRU N6=0       N2=50              N2=48
00115  M01S00110.lo72    +++|*         I1=1               N3=15              N3=22
00116  M01S00111.lo72    +++|*         I2 THRU I6=0       N4 THRU N6=0       N4 THRU N6=0
00117  M01S00112.lo72    +++|*         O1=1               I1=9               I1=6
00118  M01S00113.lo72    +++|*         O2 THRU O6=0       I2=41              I2=10
00119  M01S00114.lo72    +++|*                            I3=112             I3=82
00120  M01S00115.lo72    +++|*                            I4 THRU I6=0       I4 THRU I6=0
00121  M01S00116.lo72    +++|*                            O1=1               O1=1
00122  M01S00117.lo72    +++|*                            O2=8               O2=3
00123  M01S00118.lo72    +++|*                            O3=58              O3=51
00124  M01S00119.lo72    +++|*                            O4 THRU O6=0       O4 THRU O6=0
00125  M01S00120.lo72    +++|*
00126  M01S00121.lo72    +++|          SPACE  4
00127  M01S00122.lo72    +++|***       DAYFILE MESSAGES.
00128  M01S00123.lo72    +++|*
00129  M01S00124.lo72    +++|*         *ARGUMENT ERROR.* = ARGUMENT PROCESSOR *COMCARG* RETURNED AN
00130  M01S00125.lo72    +++|*                ERROR STATUS.  CORRECT AND RE-SUBMIT THE JOB.
00131  M01S00126.lo72    +++|*         *INPUT FILE ERROR.* = AN ERROR WAS ENCOUNTERED BY *COMCUPC*
Line S00127 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00127.v23l617 ---|*                (UNPACK CONTROL CARD) WHILE UNPACKING AN INPUT RECORD.
00133  M01S00005.v23l617 +++|*                (UNPACK COMMAND) WHILE UNPACKING AN INPUT RECORD.
00134  M01S00128.lo72    +++|*         *UNRECOGNIZABLE TYPE SPECIFIED.* = THE TYPE SPECIFIED WAS
00135  M01S00129.lo72    +++|*                NOT *B*, *C*, OR *M*.
00136  M01S00130.lo72    +++|*         *FILE NAME CONFLICT.* = SOURCE AND OUTPUT FILE NAMES
00137  M01S00131.lo72    +++|*                ARE THE SAME.
00138  M01S00132.lo72    +++|*         *IX OR OX NOT DEFINED.* = THE *I* OR *O* PARAMETER WAS
00139  M01S00133.lo72    +++|*                NOT SPECIFIED FOR A SPECIFIED *N*, AND THERE ARE
00140  M01S00134.lo72    +++|*                NO DEFAULTS.
Line S00135 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00135.v23l617 ---|*         *INVALID PARAMETER.* = THE *S* OR *L* PARAMETER
00142  M01S00006.v23l617 +++|*         *INCORRECT PARAMETER.* = THE *S* OR *L* PARAMETER
00143  M01S00136.lo72    +++|*                WERE ENTERED AS ZERO.
Line S00137 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00144  M02S00137.v23l617 ---|*         *H VALUE INVALID.* = THE *H* PARAMETER ENTERED WAS
00145  M01S00007.v23l617 +++|*         *H VALUE INCORRECT.* = THE *H* PARAMETER ENTERED WAS
00146  M01S00138.lo72    +++|*                ZERO OR GREATER THAN BUFFER LENGTH.
Line S00139 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00147  M02S00139.v23l617 ---|*         *INVALID LINE LENGTH.* = ONE OF THE FOLLOWING OUT
00148  M01S00008.v23l617 +++|*         *INCORRECT LINE LENGTH.* = ONE OF THE FOLLOWING OUT
00149  M01S00140.lo72    +++|*                OF BOUNDS CONDITIONS EXISTS WITH RESPECT TO
00150  M01S00141.lo72    +++|*                *IX*, *NX*, *OX* AND *H*.
00151  M01S00142.lo72    +++|*                WHERE  X = 1...6.
00152  M01S00143.lo72    +++|*                ( O(X) + N(X) .GT. H )  OR
00153  M01S00144.lo72    +++|*                ( I(X) + N(X) .GT. BUFFER LENGTH ).
00154  M01S00145.lo72    +++|
00155  M01S00146.lo72    +++|          TITLE  MACROS AND ASSEMBLY CONSTANTS.
00156  M01S00147.lo72    +++|****      ASSEMBLY CONSTANTS.
00157  M01S00148.lo72    +++| IBUFL    EQU    1001B
00158  M01S00149.lo72    +++| OBUFL    EQU    1001B
00159  M01S00150.lo72    +++| IBUFF    EQU    101B
00160  M01S00151.lo72    +++| NPM      EQU    6                 NUMBER OF MOVES POSSIBLE
00161  M01S00152.lo72    +++|****
00162  M01S00153.lo72    +++|          SPACE  4
00163  M01S00154.lo72    +++|*         COMMON DECKS.
00164  M01S00155.lo72    +++|
00165  M01S00156.lo72    +++|
00166  M01S00157.lo72    +++|*CALL     COMCMAC
00167  M01S00158.lo72    +++|*CALL     COMSTCM
00168  M01S00159.lo72    +++|          TITLE  FETS, BUFFERS, AND STORAGE AREAS.
00169  M01S00160.lo72    +++|****      FETS AND BUFFERS.
00170  M01S00161.lo72    +++|          ORG    103B
00171  M01S00162.lo72    +++| FETS     BSS    0
00172  M01S00163.lo72    +++|
00173  M01S00164.lo72    +++| S        BSS    0
00174  M01S00165.lo72    +++| SCR      FILEC  IBUF,IBUFL
00175  M01S00166.lo72    +++|
00176  M01S00167.lo72    +++| O        BSS    0
00177  M01S00168.lo72    +++| OUTPUT   FILEC  OBUF,OBUFL
00178  M01S00169.lo72    +++|
00179  M01S00170.lo72    +++| XBUF     BSS    150
00180  M01S00171.lo72    +++| XBUFL    EQU    *-XBUF
00181  M01S00172.lo72    +++|
00182  M01S00173.lo72    +++| YBUF     BSS    150
00183  M01S00174.lo72    +++| YBUFL    EQU    *-YBUF
00184  M01S00175.lo72    +++|
00185  M01S00176.lo72    +++| FETSL    BSS    0
00186  M01S00177.lo72    +++|****
00187  M01S00178.lo72    +++|
00188  M01S00179.lo72    +++|**        STORAGE AREA FOR INPUT VALUES.
00189  M01S00180.lo72    +++| N1       CON    1R*
00190  M01S00181.lo72    +++| N2       CON    1R*
00191  M01S00182.lo72    +++| N3       CON    1R*
00192  M01S00183.lo72    +++| N4       CON    1R*
00193  M01S00184.lo72    +++| N5       CON    1R*
00194  M01S00185.lo72    +++| N6       CON    1R*
00195  M01S00186.lo72    +++| I1       DATA   0
00196  M01S00187.lo72    +++| I2       DATA   0
00197  M01S00188.lo72    +++| I3       DATA   0
00198  M01S00189.lo72    +++| I4       DATA   0
00199  M01S00190.lo72    +++| I5       DATA   0
00200  M01S00191.lo72    +++| I6       DATA   0
00201  M01S00192.lo72    +++| O1       DATA   0
00202  M01S00193.lo72    +++| O2       DATA   0
00203  M01S00194.lo72    +++| O3       DATA   0
00204  M01S00195.lo72    +++| O4       DATA   0
00205  M01S00196.lo72    +++| O5       DATA   0
00206  M01S00197.lo72    +++| O6       DATA   0
00207  M01S00198.lo72    +++|
00208  M01S00199.lo72    +++| T        VFD    60D/1LB           TYPE
00209  M01S00200.lo72    +++| H        VFD    60D/2L72          NUMBER OF CHARS./LINE
00210  M01S00201.lo72    +++| LP       DATA   0                 LINE PRINTER FLAG
00211  M01S00202.lo72    +++| NR       DATA   0                 NO REWIND FLAG(OUTPUT FILE ONLY)
00212  M01S00203.lo72    +++|          TITLE  LO72 - MAIN PROGRAM.
00213  M01S00204.lo72    +++|**        LO72 - MAIN PROGRAM LOOP.
00214  M01S00205.lo72    +++|*
00215  M01S00206.lo72    +++|*         EXIT- OUTPUT STRING BUFFER WRITTEN TO CIO BUFFER.
00216  M01S00207.lo72    +++|*
00217  M01S00208.lo72    +++|*         USES- X - 1, 6.
00218  M01S00209.lo72    +++|*               B - 1, 2.
00219  M01S00210.lo72    +++|*               A - 0, 1.
00220  M01S00211.lo72    +++|
00221  M01S00212.lo72    +++|
00222  M01S00213.lo72    +++| LO721    READ   S,R
00223  M01S00214.lo72    +++|          EQ     LO723
00224  M01S00215.lo72    +++|
00225  M01S00216.lo72    +++| LO722    SA1    H
00226  M01S00217.lo72    +++|          WRITES O,YBUF,X1
00227  M01S00218.lo72    +++| LO723    READS  S,XBUF,XBUFL
00228  M01S00219.lo72    +++|          NG     X1,LO724          IF EOF
00229  M01S00220.lo72    +++|          NZ     X1,LO721          IF EOR
00230  M01S00221.lo72    +++|          SA1    XBUF
00231  M01S00222.lo72    +++|          SX6    X1-1R1
00232  M01S00223.lo72    +++|          ZR     X6,PEJ
00233  M01S00224.lo72    +++|          SB2    A0                PROCESS A LINE
00234  M01S00225.lo72    +++|          JP     B2
00235  M01S00226.lo72    +++|
00236  M01S00227.lo72    +++| LO724    WRITEF O
00237  M01S00228.lo72    +++|          SA1    NR
00238  M01S00229.lo72    +++|          NZ     X1,LO725
00239  M01S00230.lo72    +++|          REWIND O
00240  M01S00231.lo72    +++| LO725    MESSAGE (=C* LO72 COMPLETE.*)
00241  M01S00232.lo72    +++|          ENDRUN R
00242  M01S00233.lo72    +++|          EJECT
00243  M01S00234.lo72    +++|
00244  M01S00235.lo72    +++|**        PEJ - PAGE EJECT AND SET HEADER LINE.
00245  M01S00236.lo72    +++|*
00246  M01S00237.lo72    +++|*         EXIT   (A0) = ADDRESS OF THE NEXT ROUTINE.
00247  M01S00238.lo72    +++|*                PAGE EJECT AND HEADER LINE IN OUTPUT STRING BUFFER.
00248  M01S00239.lo72    +++|*         USES   X - 1, 2, 3, 5, 7.
00249  M01S00240.lo72    +++|*                B - 1, 2, 7.
00250  M01S00241.lo72    +++|*                A - 0, 1, 2, 3, 5.
00251  M01S00242.lo72    +++|
00252  M01S00243.lo72    +++|
00253  M01S00244.lo72    +++| PEJ      RJ     BOB               BLANK OUTPUT BUFFER
00254  M01S00245.lo72    +++|          SA5    LP
00255  M01S00246.lo72    +++|          ZR     X5,PEJ0           IF FLAG NOT SET
00256  M01S00247.lo72    +++|          MOVE   1,XBUF,YBUF
00257  M01S00248.lo72    +++|          EQ     PEJ0.5
00258  M01S00249.lo72    +++|
00259  M01S00250.lo72    +++| PEJ0     WRITEC O,EJCT
00260  M01S00251.lo72    +++| PEJ0.5   MOVE   42,XBUF+8,YBUF+X5
00261  M01S00252.lo72    +++|          MOVE   20,XBUF+90,YBUF+42
00262  M01S00253.lo72    +++|          MOVE   5,XBUF+115,YBUF+62
00263  M01S00254.lo72    +++|          MOVE   5,XBUF+121,YBUF+67
00264  M01S00255.lo72    +++|          SA1    T
00265  M01S00256.lo72    +++|          SB2    X1
00266  M01S00257.lo72    +++|          JP     B2
00267  M01S00258.lo72    +++|
00268  M01S00259.lo72    +++| PEJ1     SA0    CKS               CHECK SUBTITLE LINE
00269  M01S00260.lo72    +++|          EQ     LO722
00270  M01S00261.lo72    +++| PEJ2     SB7    XBUF+10           SET ADDRESS
00271  M01S00262.lo72    +++|          RJ     ASC               ASSEMBLE CHARACTERS
00272  M01S00263.lo72    +++|          SA2    PEJA              GET FIRST LIST AREA
00273  M01S00264.lo72    +++|          SB2    B1+B1
00274  M01S00265.lo72    +++| PEJ3     BX7    X1-X2
00275  M01S00266.lo72    +++|          SA3    A2+B1
00276  M01S00267.lo72    +++|          ZR     X2,PEJ4           IF CHARACTERS MATCH AREA
00277  M01S00268.lo72    +++|          SA2    A2+B2
00278  M01S00269.lo72    +++|          NZ     X7,PEJ3
00279  M01S00270.lo72    +++| PEJ4     SA0    X3                SET THE ADDRESS
00280  M01S00271.lo72    +++|          EQ     LO722
00281  M01S00272.lo72    +++|
00282  M01S00273.lo72    +++| PEJ5     SA0    BAT1              SET BATCH ADDRESS
00283  M01S00274.lo72    +++|          EQ     LO722
00284  M01S00275.lo72    +++|
00285  M01S00276.lo72    +++| EJCT     CON    0
00286  M01S00277.lo72    +++| PEJA     VFD    24D/4LDECK,36D/0
00287  M01S00278.lo72    +++|          VFD    42D/0,18D/DKS
00288  M01S00279.lo72    +++|          CON    10HSTATISTICS,STS
00289  M01S00280.lo72    +++|          CON    0,LMO
00290  M01S00281.lo72    +++|          TITLE  BATCH SUBROUTINES.
00291  M01S00282.lo72    +++|
00292  M01S00283.lo72    +++|**        BAT1 - SET UP MISC. SOURCE INPUT.
00293  M01S00284.lo72    +++|*
00294  M01S00285.lo72    +++|*         EXIT   (A0) = ADDRESS OF THE NEXT ROUTINE.
00295  M01S00286.lo72    +++|*                SUBTITLE LINE IN OUTPUT STRING BUFFER.
00296  M01S00287.lo72    +++|*         USES   X - 5.
00297  M01S00288.lo72    +++|*                B - NONE.
00298  M01S00289.lo72    +++|*                A - 0, 5.
00299  M01S00290.lo72    +++|
00300  M01S00291.lo72    +++|
00301  M01S00292.lo72    +++| BAT1     RJ     BOB
00302  M01S00293.lo72    +++|          SA5    LP
00303  M01S00294.lo72    +++|          MOVE   43,XBUF+8,YBUF+X5 SET UP SUBTITLE LINE
00304  M01S00295.lo72    +++|          SA0    BAT2
00305  M01S00296.lo72    +++|          MOVE   29,XBUF+70,YBUF+43
00306  M01S00297.lo72    +++|          EQ     LO722
00307  M01S00298.lo72    +++|
00308  M01S00299.lo72    +++| BAT2     RJ     MMS
00309  M01S00300.lo72    +++|          EQ     LO722
00310  M01S00301.lo72    +++|          TITLE  COMPASS SUBROUTINES.
00311  M01S00302.lo72    +++|
00312  M01S00303.lo72    +++|**        CKS - CHECK SUBTITLE.
00313  M01S00304.lo72    +++|*
00314  M01S00305.lo72    +++|*         EXIT   (A0) = ADDRESS OF THE NEXT ROUTINE.
00315  M01S00306.lo72    +++|*                SUBTITLE LINE IN OUTPUT STRING BUFFER.
00316  M01S00307.lo72    +++|*         USES - X - 1, 2, 3, 5, 7.
00317  M01S00308.lo72    +++|*                B - 1, 2, 7.
00318  M01S00309.lo72    +++|*                A - 0, 2, 3, 5.
00319  M01S00310.lo72    +++|
00320  M01S00311.lo72    +++|
00321  M01S00312.lo72    +++| CKS      RJ     BOB
00322  M01S00313.lo72    +++|          SA5    LP
00323  M01S00314.lo72    +++|          MOVE   43,XBUF+8,YBUF+X5
00324  M01S00315.lo72    +++|          MOVE   29,XBUF+70,YBUF+43
00325  M01S00316.lo72    +++|          SB7    XBUF+8            SET ADDRESS
00326  M01S00317.lo72    +++|          RJ     ASC               ASSEMBLE CHARACTERS
00327  M01S00318.lo72    +++|          SA2    CKSA              GET SUBTITLE
00328  M01S00319.lo72    +++|          SB2    B1+B1
00329  M01S00320.lo72    +++| CKS1     BX7    X1-X2
00330  M01S00321.lo72    +++|          SA3    A2+B1             GET ASSOCIATED ADDRESS
00331  M01S00322.lo72    +++|          ZR     X2,CKS2           IF LAST WORD
00332  M01S00323.lo72    +++|          SA2    A2+B2
00333  M01S00324.lo72    +++|          NZ     X7,CKS1           IF SUBTITLES NOT EQUAL
00334  M01S00325.lo72    +++| CKS2     SA0    X3
00335  M01S00326.lo72    +++|          EQ     LO722
00336  M01S00327.lo72    +++|
00337  M01S00328.lo72    +++| CKSA     VFD    42D/7LSTORAGE,18D/0
00338  M01S00329.lo72    +++|          VFD    42D/0,18D/STA
00339  M01S00330.lo72    +++|          VFD    48D/8LSYMBOLIC,12D/0
00340  M01S00331.lo72    +++|          VFD    42D/0,18D/REF
00341  M01S00332.lo72    +++| CKSB     VFD    30D/5LERROR,30D/0
00342  M01S00333.lo72    +++|          VFD    42D/0,18D/LSL7
00343  M01S00334.lo72    +++|          CON    0,LSL
00344  M01S00335.lo72    +++|
00345  M01S00336.lo72    +++| LSL      SPACE  4
00346  M01S00337.lo72    +++|**        LSL - LIST A LINE FROM COMPASS.
00347  M01S00338.lo72    +++|*
00348  M01S00339.lo72    +++|*         EXIT   (A0) = ADDRESS OF NEXT ROUTINE IF END CARD NOT FOUND.
00349  M01S00340.lo72    +++|*                A LINE OF COMPASS SOURCE CODE PROCESSED.
00350  M01S00341.lo72    +++|*         USES   X - 0, 1, 2, 5, 6, 7.
00351  M01S00342.lo72    +++|*                B - 2, 3, 7.
00352  M01S00343.lo72    +++|*                A - 0, 1, 2, 5.
00353  M01S00344.lo72    +++|
00354  M01S00345.lo72    +++|
00355  M01S00346.lo72    +++| LSL      RJ     MMS
00356  M01S00347.lo72    +++|          SB7    XBUF+50
00357  M01S00348.lo72    +++|          RJ     ASC               ASSEMBLE OP-CODE
00358  M01S00349.lo72    +++|          SA2    LSLA
00359  M01S00350.lo72    +++|          BX7    X1-X2
00360  M01S00351.lo72    +++|          NZ     X7,LO722          IF NOT *END*
00361  M01S00352.lo72    +++|
00362  M01S00353.lo72    +++|**        PROCESS -STORAGE USED-, ETC.
00363  M01S00354.lo72    +++|*
00364  M01S00355.lo72    +++|          SA0    LSL2
00365  M01S00356.lo72    +++|          EQ     LO722
00366  M01S00357.lo72    +++|
00367  M01S00358.lo72    +++| LSL2     RJ     BOB
00368  M01S00359.lo72    +++|          SB7    XBUF+40
00369  M01S00360.lo72    +++|          RJ     ASC
00370  M01S00361.lo72    +++|          SA2    CKSA
00371  M01S00362.lo72    +++|          BX6    X1-X2
00372  M01S00363.lo72    +++|          NZ     X6,LSL3           IF NOT -STORAGE USED- LINE
00373  M01S00364.lo72    +++|          MOVE   17,XBUF+80,2      SAVE -XXXXXXXXX SYMBOLS-
00374  M01S00365.lo72    +++|          SA5    LP
00375  M01S00366.lo72    +++|          MOVE   9,XBUF+27,YBUF+X5 -STORAGE USED-
00376  M01S00367.lo72    +++|          MOVE   13,XBUF+39,YBUF+10
00377  M01S00368.lo72    +++|          MOVE   22,XBUF+58,YBUF+23 -STATEMENTS-
00378  M01S00369.lo72    +++|          MOVE   27,XBUF+99,YBUF+45 -INVENTED SYMBOLS-
00379  M01S00370.lo72    +++|          EQ     LO722
00380  M01S00371.lo72    +++|
00381  M01S00372.lo72    +++| LSL3     SB7    XBUF+51
00382  M01S00373.lo72    +++|          RJ     ASC
00383  M01S00374.lo72    +++|          ZR     X1,LMO
00384  M01S00375.lo72    +++|          MX0    30
00385  M01S00376.lo72    +++|          BX1    X0*X1             MASK THE *S* IN *ERRORS*
00386  M01S00377.lo72    +++|          SA2    CKSB
00387  M01S00378.lo72    +++|          BX6    X1-X2
00388  M01S00379.lo72    +++|          ZR     X6,LSL5           IF THERE WERE ASSEMBLY ERRORS
00389  M01S00380.lo72    +++|          SA5    LP
00390  M01S00381.lo72    +++|          MOVE   15,XBUF+38,YBUF+X5 -ASSEMBLY-
00391  M01S00382.lo72    +++|          MOVE   18,XBUF+59,YBUF+16 -SECONDS-
00392  M01S00383.lo72    +++|          MOVE   21,XBUF+80,YBUF+34 -REFERENCES-
00393  M01S00384.lo72    +++|          MOVE   17,2,YBUF+55       -SYMBOLS-
00394  M01S00385.lo72    +++|          MOVE   8,XBUF+29,2
00395  M01S00386.lo72    +++|          EQ     LO722
00396  M01S00387.lo72    +++|
00397  M01S00388.lo72    +++| LSL5     SA5    LP
00398  M01S00389.lo72    +++|          MOVE   55,XBUF+40,YBUF+X5 -ERRORS IN-
00399  M01S00390.lo72    +++|          EQ     LO722
00400  M01S00391.lo72    +++|
00401  M01S00392.lo72    +++|**        PROCESS ERROR DIRECTORY
00402  M01S00393.lo72    +++|*
00403  M01S00394.lo72    +++| LSL7     SA1    XBUF+21
00404  M01S00395.lo72    +++|          SX1    X1-1R
00405  M01S00396.lo72    +++|          ZR     X1,LMO
00406  M01S00397.lo72    +++|          RJ     BOB
00407  M01S00398.lo72    +++|          SA5    LP
00408  M01S00399.lo72    +++|          MOVE   13,XBUF+14,YBUF+X5 -TYPE ERROR-
00409  M01S00400.lo72    +++|          MOVE   59,XBUF+40,YBUF+14 DESCRIPTION OF ERROR
00410  M01S00401.lo72    +++|          SA0    LSL8
00411  M01S00402.lo72    +++|          EQ     LO722
00412  M01S00403.lo72    +++|
00413  M01S00404.lo72    +++| LSL8     SB7    XBUF+21
00414  M01S00405.lo72    +++|          RJ     ASC
00415  M01S00406.lo72    +++|          SA2    CKSB
00416  M01S00407.lo72    +++|          BX6    X1-X2
00417  M01S00408.lo72    +++|          ZR     X6,LSL7           IF *ERROR*
00418  M01S00409.lo72    +++|          RJ     BOB
00419  M01S00410.lo72    +++|          SA5    LP
00420  M01S00411.lo72    +++|          MOVE   18,XBUF+21,YBUF+X5
00421  M01S00412.lo72    +++|          MX0    1
00422  M01S00413.lo72    +++|          LX0    6
00423  M01S00414.lo72    +++|          SB2    XBUF+44
00424  M01S00415.lo72    +++|          SB3    YBUF+18
00425  M01S00416.lo72    +++| LSL9     MOVE   6,B2,B3           MOVE THE PAGE NUMBERS
00426  M01S00417.lo72    +++|          LX0    6
00427  M01S00418.lo72    +++|          SB2    B2+10
00428  M01S00419.lo72    +++|          SB3    B3+6
00429  M01S00420.lo72    +++|          PL     X0,LSL9
00430  M01S00421.lo72    +++|          EQ     LO722
00431  M01S00422.lo72    +++|
00432  M01S00423.lo72    +++| LSLA     VFD    18D/3LEND,42D/0
00433  M01S00424.lo72    +++|
00434  M01S00425.lo72    +++| STA      SPACE  4
00435  M01S00426.lo72    +++|**        STA - LIST STORAGE ALLOCATION
00436  M01S00427.lo72    +++|*
00437  M01S00428.lo72    +++|*         EXIT   STORAGE ALLOCATION CODE PROCESSED.
00438  M01S00429.lo72    +++|*         USES   X - 1, 5, 6.
00439  M01S00430.lo72    +++|*                B - NONE.
00440  M01S00431.lo72    +++|*                A - 1, 5.
00441  M01S00432.lo72    +++|
00442  M01S00433.lo72    +++|
00443  M01S00434.lo72    +++| STA      RJ     BOB
00444  M01S00435.lo72    +++|          SA5    LP
00445  M01S00436.lo72    +++|          SA1    XBUF+26           CHECK LINE TYPE
00446  M01S00437.lo72    +++|          SX6    X1-1R
00447  M01S00438.lo72    +++|          ZR     X6,STA1           IF NOT ALLOCATION
00448  M01S00439.lo72    +++|          MOVE   72,XBUF+18,YBUF+X5
00449  M01S00440.lo72    +++|          EQ     LO722
00450  M01S00441.lo72    +++|
00451  M01S00442.lo72    +++| STA1     MOVE   72,XBUF+38,YBUF+X5
00452  M01S00443.lo72    +++|          EQ     LO722
00453  M01S00444.lo72    +++|
00454  M01S00445.lo72    +++| REF      SPACE  4
00455  M01S00446.lo72    +++|**        REF - LIST CROSS REFERENCE TABLE.
00456  M01S00447.lo72    +++|*
00457  M01S00448.lo72    +++|*         EXIT   CROSS REFERENCE TABLE CODE PROCESSED.
00458  M01S00449.lo72    +++|*         USES   X - 1, 5, 6, 7.
00459  M01S00450.lo72    +++|*                B - 1, 2, 3, 4.
00460  M01S00451.lo72    +++|*                A - 1, 5, 7.
00461  M01S00452.lo72    +++|
00462  M01S00453.lo72    +++|
00463  M01S00454.lo72    +++| REF      RJ     BOB
00464  M01S00455.lo72    +++|          SA1    6                 CHECK FOR EXTRA PAGE/LINE
00465  M01S00456.lo72    +++|          SX6    X1-1R
00466  M01S00457.lo72    +++|          ZR     X6,REF2           IF NONE SAVED
00467  M01S00458.lo72    +++|          SA1    XBUF+22
00468  M01S00459.lo72    +++|          SX6    X1-1R
00469  M01S00460.lo72    +++|          ZR     X6,REF1           IF NOT NEW SYMBOL LINE
00470  M01S00461.lo72    +++|          MOVE   8,2,YBUF+16
00471  M01S00462.lo72    +++|          SA1    H
00472  M01S00463.lo72    +++|          WRITES O,YBUF,X1
00473  M01S00464.lo72    +++|          EQ     REF2
00474  M01S00465.lo72    +++|
00475  M01S00466.lo72    +++| REF1     MOVE   8,2,XBUF+15
00476  M01S00467.lo72    +++| REF2     MOVE   8,XBUF+29,2       BLANK OUT THE SAVE AREA
00477  M01S00468.lo72    +++|          SA1    XBUF+67
00478  M01S00469.lo72    +++|          SX6    X1-1R=
00479  M01S00470.lo72    +++|          NZ     X6,REF3           IF NOT QUALIFIER LINE
00480  M01S00471.lo72    +++|          SA5    LP
00481  M01S00472.lo72    +++|          MOVE   24,XBUF,YBUF+X5
00482  M01S00473.lo72    +++|          MOVE   48,XBUF+49,YBUF+24
00483  M01S00474.lo72    +++|          EQ     LO722
00484  M01S00475.lo72    +++|
00485  M01S00476.lo72    +++| REF3     SA5    LP
00486  M01S00477.lo72    +++|          MOVE   16,XBUF+8,YBUF+X5
00487  M01S00478.lo72    +++|          SB2    XBUF+40
00488  M01S00479.lo72    +++|          SB3    7                 SET COUNTER
00489  M01S00480.lo72    +++|          SB4    YBUF+16
00490  M01S00481.lo72    +++| REF4     SA1    B2+9
00491  M01S00482.lo72    +++|          SX6    X1-1R
00492  M01S00483.lo72    +++|          ZR     X6,REF5           IF NOT DEFINITION
00493  M01S00484.lo72    +++|          SX7    1R
00494  M01S00485.lo72    +++|          SA7    B2+5              BLANK OUT THE */*
00495  M01S00486.lo72    +++|          SA7    A7+B1             AND LINE NUMBER.
00496  M01S00487.lo72    +++|          SA7    A7+B1
00497  M01S00488.lo72    +++| REF5     ZR     B3,REF6           IF SEVEN PAGE/LINES LISTED
00498  M01S00489.lo72    +++|          MOVE   8,B2,B4
00499  M01S00490.lo72    +++|          SB2    B2+10             INCREMENT XBUF ADDRESS
00500  M01S00491.lo72    +++|          SB3    B3-B1
00501  M01S00492.lo72    +++|          SB4    B4+8              INCREMENT YBUF ADDRESS
00502  M01S00493.lo72    +++|          EQ     REF4
00503  M01S00494.lo72    +++|
00504  M01S00495.lo72    +++| REF6     SA1    XBUF+114
00505  M01S00496.lo72    +++|          SX6    X1-1R
00506  M01S00497.lo72    +++|          ZR     X6,LO722          IF NO EIGHTH PAGE/LINE
00507  M01S00498.lo72    +++|          MOVE   8,B2,2            SAVE EIGHTH PAGE/LINE
00508  M01S00499.lo72    +++|          EQ     LO722
00509  M01S00500.lo72    +++|          TITLE  MODIFY SUBROUTINES.
00510  M01S00501.lo72    +++|
00511  M01S00502.lo72    +++|**        LMO - PROCESS MODIFICATIONS
00512  M01S00503.lo72    +++|*
00513  M01S00504.lo72    +++|*         EXIT   A LINE OF MODIFY SOURCE CODE PROCESSED.
00514  M01S00505.lo72    +++|*         USES   X - 5.
00515  M01S00506.lo72    +++|*                B - 2.
00516  M01S00507.lo72    +++|*                A - 5.
00517  M01S00508.lo72    +++|
00518  M01S00509.lo72    +++|
00519  M01S00510.lo72    +++| LMO      SB2    XBUF+10
00520  M01S00511.lo72    +++| LMO1     RJ     BOB
00521  M01S00512.lo72    +++|          SA5    LP
00522  M01S00513.lo72    +++|          MOVE   72,B2,YBUF+X5
00523  M01S00514.lo72    +++|          EQ     LO722
00524  M01S00515.lo72    +++|
00525  M01S00516.lo72    +++| DKS      SPACE  4
00526  M01S00517.lo72    +++|**        DKS - PROCESS DECK STATUS
00527  M01S00518.lo72    +++|*
00528  M01S00519.lo72    +++|*         EXIT   DECK STATUS CODE; MODIFIER NAMES CODE; OR ACTIVE,
00529  M01S00520.lo72    +++|*                INACTIVE, AND INSERTED CARD(S) CODE PROCESSED.
00530  M01S00521.lo72    +++|*         USES   X - 1, 2, 5, 6, 7.
00531  M01S00522.lo72    +++|*                B - 2, 7.
00532  M01S00523.lo72    +++|*                A - 0, 1, 2, 5, 6.
00533  M01S00524.lo72    +++|
00534  M01S00525.lo72    +++|
00535  M01S00526.lo72    +++| DKS      SA0    DKS1
00536  M01S00527.lo72    +++|          SB2    XBUF+13
00537  M01S00528.lo72    +++|          EQ     LMO1
00538  M01S00529.lo72    +++|
00539  M01S00530.lo72    +++|**        CHECK FOR MODIFIERS
00540  M01S00531.lo72    +++|*
00541  M01S00532.lo72    +++| DKS1     SA1    XBUF+10
00542  M01S00533.lo72    +++|          SX1    X1-1R
00543  M01S00534.lo72    +++|          ZR     X1,LMO            IF NOT *MODIFIERS.* LINE
00544  M01S00535.lo72    +++|          SA0    DKS2
00545  M01S00536.lo72    +++|          SA1    DKS
00546  M01S00537.lo72    +++|          MX2    42
00547  M01S00538.lo72    +++|          LX2    30
00548  M01S00539.lo72    +++|          BX1    X1*X2             MASK OUT DKS1 ADDRESS
00549  M01S00540.lo72    +++|          SX2    DKS2              GET DKS2 ADDRESS
00550  M01S00541.lo72    +++|          LX2    30
00551  M01S00542.lo72    +++|          BX6    X1+X2             INSERT DKS2 ADDRESS
00552  M01S00543.lo72    +++|          SA6    A1                RE-STORE THE INSTRUCTION
00553  M01S00544.lo72    +++|          SB2    XBUF+2
00554  M01S00545.lo72    +++|          EQ     LMO1
00555  M01S00546.lo72    +++|
00556  M01S00547.lo72    +++|**        CHECK FOR MODIFIER NAMES, ACTIVE CARDS, OR MAIN SECTION.
00557  M01S00548.lo72    +++|*
00558  M01S00549.lo72    +++| DKS2     SA1    XBUF+5
00559  M01S00550.lo72    +++|          SA2    XBUF+6
00560  M01S00551.lo72    +++|          SX1    X1-1R
00561  M01S00552.lo72    +++|          NZ     X1,BAT2           IF IT IS *A* LINE
00562  M01S00553.lo72    +++|          SX2    X1-1R
00563  M01S00554.lo72    +++|          NZ     X1,BAT2           IF IT IS *D* LINE
00564  M01S00555.lo72    +++|          RJ     BOB
00565  M01S00556.lo72    +++|          SB7    XBUF+21
00566  M01S00557.lo72    +++|          RJ     ASC
00567  M01S00558.lo72    +++|          SA2    DKSA              GET *ACTIVE*
00568  M01S00559.lo72    +++|          BX7    X1-X2
00569  M01S00560.lo72    +++|          NZ     X7,DKS3           IF IT IS MODIFIER NAMES(S)
00570  M01S00561.lo72    +++|          SA5    LP
00571  M01S00562.lo72    +++|          MOVE   23,XBUF+14,YBUF+X5 -ACTIVE CARD(S)-
00572  M01S00563.lo72    +++|          MOVE   25,XBUF+44,YBUF+23 -INACTIVE CARD(S)-
00573  M01S00564.lo72    +++|          MOVE   24,XBUF+74,YBUF+48 -INSERTED CARD(S)-
00574  M01S00565.lo72    +++|          EQ     LO722
00575  M01S00566.lo72    +++|
00576  M01S00567.lo72    +++|**        PROCESS MODIFIER NAME(S)
00577  M01S00568.lo72    +++|*
00578  M01S00569.lo72    +++| DKS3     SA1    XBUF+11
00579  M01S00570.lo72    +++|          SX1    X1-1R
00580  M01S00571.lo72    +++|          ZR     X1,LMO            IF NO FIRST NAME
00581  M01S00572.lo72    +++|          SA5    LP
00582  M01S00573.lo72    +++|          MOVE   41,XBUF+10,YBUF+X5
00583  M01S00574.lo72    +++|          SA1    H
00584  M01S00575.lo72    +++|          WRITES O,YBUF,X1
00585  M01S00576.lo72    +++|          SA1    XBUF+51
00586  M01S00577.lo72    +++|          SX1    X1-1R
00587  M01S00578.lo72    +++|          ZR     X1,LO723          IF NO FIFTH NAME
00588  M01S00579.lo72    +++|          RJ     BOB
00589  M01S00580.lo72    +++|          SA5    LP
00590  M01S00581.lo72    +++|          MOVE   41,XBUF+50,YBUF+X5
00591  M01S00582.lo72    +++|          EQ     LO722
00592  M01S00583.lo72    +++|
00593  M01S00584.lo72    +++| DKSA     VFD    36D/6LACTIVE,24D/0
00594  M01S00585.lo72    +++|
00595  M01S00586.lo72    +++| STS      SPACE  4
00596  M01S00587.lo72    +++|**        STS - PROCESS STATISTICS
00597  M01S00588.lo72    +++|*
00598  M01S00589.lo72    +++|*         EXIT   STATISTICS CODE PROCESSED.
00599  M01S00590.lo72    +++|*         USES   X - 1, 5.
00600  M01S00591.lo72    +++|*                B - NONE.
00601  M01S00592.lo72    +++|*                A - 1, 5.
00602  M01S00593.lo72    +++|
00603  M01S00594.lo72    +++|
00604  M01S00595.lo72    +++| STS      SA1    XBUF+81
00605  M01S00596.lo72    +++|          SX1    X1-1R
00606  M01S00597.lo72    +++|          ZR     X1,LMO
00607  M01S00598.lo72    +++|          RJ     BOB
00608  M01S00599.lo72    +++|          SA5    LP
00609  M01S00600.lo72    +++|          MOVE   60,XBUF+10,YBUF+X5
00610  M01S00601.lo72    +++|          SA1    H
00611  M01S00602.lo72    +++|          WRITES O,YBUF,X1
00612  M01S00603.lo72    +++|          RJ     BOB
00613  M01S00604.lo72    +++|          SA5    LP
00614  M01S00605.lo72    +++|          MOVE   60,XBUF+70,YBUF+X5
00615  M01S00606.lo72    +++|          EQ     LO722
00616  M01S00607.lo72    +++|
00617  M01S00608.lo72    +++|          TITLE  GENERAL SUBROUTINES.
00618  M01S00609.lo72    +++|**        BOB - BLANK OUTPUT BUFFER
00619  M01S00610.lo72    +++|*         ENTRY- (B1) = 1.
00620  M01S00611.lo72    +++|*         USES-  X - 0.
00621  M01S00612.lo72    +++|*                B - 3, 4.
00622  M01S00613.lo72    +++|*                A - NONE.
00623  M01S00614.lo72    +++|*         EXIT   THE OUTPUT STRING BUFFER CONTAINS SPACE CODE
00624  M01S00615.lo72    +++|*                IN ALL 150 WORDS.
00625  M01S00616.lo72    +++|*
00626  M01S00617.lo72    +++|
00627  M01S00618.lo72    +++|
00628  M01S00619.lo72    +++| BOB      SUBR                     ENTRY/EXIT
00629  M01S00620.lo72    +++|          MX0    1
00630  M01S00621.lo72    +++|          SB3    YBUF              SET ADDRESS
00631  M01S00622.lo72    +++|          SB4    15                SET INCREMENT
00632  M01S00623.lo72    +++| BOB1     LX0    6
00633  M01S00624.lo72    +++|          MOVE   15,SPACES,B3      BLANK OUT YBUF
00634  M01S00625.lo72    +++|          SB3    B3+B4
00635  M01S00626.lo72    +++|          PL     X0,BOB1           IF NOT 10 TIMES
00636  M01S00627.lo72    +++|          EQ     BOBX              RETURN
00637  M01S00628.lo72    +++|
00638  M01S00629.lo72    +++| SPACES   VFD    60D/1R
00639  M01S00630.lo72    +++|          DUP    14
00640  M01S00631.lo72    +++|          VFD    60D/1R
00641  M01S00632.lo72    +++|          ENDD
00642  M01S00633.lo72    +++|
00643  M01S00634.lo72    +++| MMS      SPACE  4
00644  M01S00635.lo72    +++|**        MMS - MOVE MAIN SECTIONS
00645  M01S00636.lo72    +++|*         ENTRY- (B1) = 1.
00646  M01S00637.lo72    +++|*         USES-  X - 1, 2, 3.
00647  M01S00638.lo72    +++|*                B - 2, 3.
00648  M01S00639.lo72    +++|*                A - 1, 2, 3.
00649  M01S00640.lo72    +++|*         EXIT   THE OUTPUT STRING BUFFER CONTAINS THE CODE SPECIFIED
00650  M01S00641.lo72    +++|*                BY THE PARAMETERS IN THE PROGRAM.
00651  M01S00642.lo72    +++|*
00652  M01S00643.lo72    +++|
00653  M01S00644.lo72    +++|
00654  M01S00645.lo72    +++| MMS      SUBR                     ENTRY/EXIT
00655  M01S00646.lo72    +++|          RJ     BOB
00656  M01S00647.lo72    +++|          SB2    B0
00657  M01S00648.lo72    +++|          SB3    NPM               SET LOOP COUNTER
00658  M01S00649.lo72    +++| MMS2     SA1    B2+N1             GET NO. OF CHARACTERS
00659  M01S00650.lo72    +++|          ZR     X1,MMS3
00660  M01S00651.lo72    +++|          SA2    B2+I1             GET INPUT ADDRESS
00661  M01S00652.lo72    +++|          SA3    B2+O1             GET OUTPUT ADDRESS
00662  M01S00653.lo72    +++|          MOVE   X1,X2,X3
00663  M01S00654.lo72    +++| MMS3     SB2    B2+B1             INCREMENT THE ADDRESS
00664  M01S00655.lo72    +++|          SB3    B3-B1
00665  M01S00656.lo72    +++|          NZ     B3,MMS2           IF NOT NPM TIMES THRU
00666  M01S00657.lo72    +++|          EQ     MMSX              RETURN
00667  M01S00658.lo72    +++|
00668  M01S00659.lo72    +++| ASC      SPACE  4
00669  M01S00660.lo72    +++|**        ASC    ASSEMBLE CHARACTERS
00670  M01S00661.lo72    +++|*         ENTRY- (B7) = ADDRESS OF FIRST CHARACTER.
00671  M01S00662.lo72    +++|*                (B1) = 1.
00672  M01S00663.lo72    +++|*         USES:  X - 1.
00673  M01S00664.lo72    +++|*                B - 4, 5, 6.
00674  M01S00665.lo72    +++|*                A - 2.
00675  M01S00666.lo72    +++|*         EXIT-  (X1) = THE CHARACTERS, LEFT JUSTIFIED, WITH
00676  M01S00667.lo72    +++|*                       TRAILING ZEROS.
00677  M01S00668.lo72    +++|*
00678  M01S00669.lo72    +++|*         ASSEMBLES UP TO TEN CHARACTERS INTO (X1) UNLESS A LEFT
00679  M01S00670.lo72    +++|*         PAREN, A COMMA, A PERIOD, OR A BLANK IS ENCOUNTERED
00680  M01S00671.lo72    +++|*         FIRST.
00681  M01S00672.lo72    +++|*
00682  M01S00673.lo72    +++|
00683  M01S00674.lo72    +++|
00684  M01S00675.lo72    +++| ASC      SUBR                     ENTRY/EXIT
00685  M01S00676.lo72    +++|          SB5    60                SET SHIFT COUNTER
00686  M01S00677.lo72    +++|          SB6    6
00687  M01S00678.lo72    +++|          BX1    X1-X1
00688  M01S00679.lo72    +++| ASC1     LX1    6
00689  M01S00680.lo72    +++|          SA2    B7                GET A CHARACTER
00690  M01S00681.lo72    +++|          SB5    B5-B6             DECREMENT THE SHIFT COUNTER
00691  M01S00682.lo72    +++|          SB4    X2-1R
00692  M01S00683.lo72    +++|          ZR     B4,ASC2           IF A BLANK
00693  M01S00684.lo72    +++|          SB4    X2-1R(
00694  M01S00685.lo72    +++|          ZR     B4,ASC2           IF A LEFT PAREN
00695  M01S00686.lo72    +++|          SB4    X2-1R,
00696  M01S00687.lo72    +++|          ZR     B4,ASC2           IF A COMMA
00697  M01S00688.lo72    +++|          SB4    X2-1R.
00698  M01S00689.lo72    +++|          ZR     B4,ASC2           IF A PERIOD
00699  M01S00690.lo72    +++|          BX1    X1+X2             ADD IN THE CHARACTER
00700  M01S00691.lo72    +++|          NG     X1,ASCX
00701  M01S00692.lo72    +++|          SB7    B7+B1             INCREMENT THE ADDRESS
00702  M01S00693.lo72    +++|          NZ     B5,ASC1           IF NOT 10 CHARACTERS
00703  M01S00694.lo72    +++| ASC2     ZR     B5,ASCX
00704  M01S00695.lo72    +++|          LX1    B5,X1             LEFT JUSTIFY
00705  M01S00696.lo72    +++|          EQ     ASCX              RETURN
00706  M01S00697.lo72    +++|          SPACE  4
00707  M01S00698.lo72    +++|*         COMMON DECKS.
00708  M01S00699.lo72    +++|
00709  M01S00700.lo72    +++|*CALL     COMCCIO
00710  M01S00701.lo72    +++|*CALL     COMCMVE
00711  M01S00702.lo72    +++|*CALL     COMCRDC
00712  M01S00703.lo72    +++|*CALL     COMCRDS
00713  M01S00704.lo72    +++|*CALL     COMCRDW
00714  M01S00705.lo72    +++|*CALL     COMCWTC
00715  M01S00706.lo72    +++|*CALL     COMCWTS
00716  M01S00707.lo72    +++|*CALL     COMCWTW
00717  M01S00708.lo72    +++|*CALL     COMCSYS
00718  M01S00709.lo72    +++|
00719  M01S00710.lo72    +++| BUFFERS  SPACE  4
00720  M01S00711.lo72    +++|****      BUFFERS
00721  M01S00712.lo72    +++|*
00722  M01S00713.lo72    +++|          USE    //
00723  M01S00714.lo72    +++| IBUF     EQU    *
00724  M01S00715.lo72    +++| OBUF     EQU    IBUF+IBUFL
00725  M01S00716.lo72    +++| RFL=     EQU    OBUF+OBUFL  DEFAULT FIELD LENGTH
00726  M01S00717.lo72    +++|          USE    *
00727  M01S00718.lo72    +++|****
00728  M01S00719.lo72    +++|          TITLE  PRESET SUBROUTINES.
00729  M01S00720.lo72    +++|
00730  M01S00721.lo72    +++|          ORG    IBUF
00731  M01S00722.lo72    +++|          SEG
00732  M01S00723.lo72    +++| PRS      SPACE  4
00733  M01S00724.lo72    +++|**        PRESET SUBROUTINES.
00734  M01S00725.lo72    +++|*
00735  M01S00726.lo72    +++|*         THIS AREA IS OVERLAID BY THE I/O BUFFERS.
00736  M01S00727.lo72    +++|*
00737  M01S00728.lo72    +++|*         USES   X - ALL.
00738  M01S00729.lo72    +++|*                B - ALL.
00739  M01S00730.lo72    +++|*                A - ALL.
00740  M01S00731.lo72    +++|
00741  M01S00732.lo72    +++|
00742  M01S00733.lo72    +++| I        BSS    0
00743  M01S00734.lo72    +++| TEMP1    FILEC  I+15D,IBUFF
00744  M01S00735.lo72    +++|
00745  M01S00736.lo72    +++| OUT      BSS    0
00746  M01S00737.lo72    +++| TEMP2    FILEC  I+16D+IBUFF,IBUFF
00747  M01S00738.lo72    +++|
00748  M01S00739.lo72    +++|          ORG    I
00749  M01S00740.lo72    +++|          VFD    60D/1
00750  M01S00741.lo72    +++|          ORG    OUT
00751  M01S00742.lo72    +++|          VFD    60D/5
00752  M01S00743.lo72    +++|          ORG    I+17D+IBUFF+IBUFF
00753  M01S00744.lo72    +++|
00754  M01S00745.lo72    +++|**        CHECK THE JOB ORIGIN CODE.
00755  M01S00746.lo72    +++|*
00756  M01S00747.lo72    +++| LO72     SB1    1                 (B1) = 1
00757  M01S00748.lo72    +++| PRS      MX0    48
00758  M01S00749.lo72    +++|          SA1    JOPR        GET JOB ORIGIN CODE (BITS 24-35)
00759  M01S00750.lo72    +++|          AX1    24                RIGHT ADJUST BYTE 2
00760  M01S00751.lo72    +++|          BX2    -X0*X1            GET JOB ORIGIN CODE
00761  M01S00752.lo72    +++|          SX6    X2-TXOT
00762  M01S00753.lo72    +++|          SA6    TTO               SET TTY ORIGIN FLAG
00763  M01S00754.lo72    +++| PRS1     SA1    ACTR              GET ARGUMENT COUNT
00764  M01S00755.lo72    +++|          SB4    X1
00765  M01S00756.lo72    +++|          ZR     B4,PRS2           IF NO ARGUMENTS
00766  M01S00757.lo72    +++|          SB5    COPT              SET ARGUMENT TABLE ADDRESS
00767  M01S00758.lo72    +++|          SA4    ARGR              GET FIRST ARGUMENT
00768  M01S00759.lo72    +++|          RJ     ARG
00769  M01S00760.lo72    +++|          NZ     X1,PRSB           IF ERROR FOUND
00770  M01S00761.lo72    +++| PRS2     SB2    NPM
00771  M01S00762.lo72    +++|          SB3    B0
00772  M01S00763.lo72    +++|
00773  M01S00764.lo72    +++|**        VERIFY IF TYPE OF SOURCE FILE IS LEGAL
00774  M01S00765.lo72    +++|*
00775  M01S00766.lo72    +++|          SA1    T                 CHECK TYPE
00776  M01S00767.lo72    +++|          ZR     X1,PRS12
00777  M01S00768.lo72    +++|          LX1    6                 RIGHT JUSTIFY
00778  M01S00769.lo72    +++|          SX2    X1-1RB
00779  M01S00770.lo72    +++|          NZ     X2,PRS3           IF TYPE NOT = B
00780  M01S00771.lo72    +++|          SB4    BN1
00781  M01S00772.lo72    +++|          EQ     PRS8
00782  M01S00773.lo72    +++|
00783  M01S00774.lo72    +++| PRS3     SX2    X1-1RM
00784  M01S00775.lo72    +++|          NZ     X2,PRS4           IF TYPE NOT = M
00785  M01S00776.lo72    +++|          SB4    MN1
00786  M01S00777.lo72    +++|          EQ     PRS8
00787  M01S00778.lo72    +++|
00788  M01S00779.lo72    +++| PRS4     SX2    X1-1RC
00789  M01S00780.lo72    +++|          NZ     X2,PRS5           IF TYPE NOT = C
00790  M01S00781.lo72    +++|          SB4    CN1
00791  M01S00782.lo72    +++|          EQ     PRS8
00792  M01S00783.lo72    +++|
00793  M01S00784.lo72    +++| PRS5     SA1    TTO
00794  M01S00785.lo72    +++|          ZR     X1,PRS12    IF TERMINAL AVAILABLE
00795  M01S00786.lo72    +++| PRS6     MESSAGE (=C*UNRECOGNIZABLE TYPE SPECIFIED.*)
00796  M01S00787.lo72    +++| PRS7     ABORT  R
00797  M01S00788.lo72    +++| PRS8     SA1    B3+N1
00798  M01S00789.lo72    +++|          SB5    X1-1R*
00799  M01S00790.lo72    +++|          ZR     B5,PRS10    IF *N* VALUE WAS NOT GIVEN
00800  M01S00791.lo72    +++|
00801  M01S00792.lo72    +++|*         INSERT *IX* AND *OX* DEFAULTS IF NOT SPECIFIED WHEN
00802  M01S00793.lo72    +++|*         *NX* IS CHANGED.
00803  M01S00794.lo72    +++|
00804  M01S00795.lo72    +++|          SA3    B4+B3
00805  M01S00796.lo72    +++|          SA3    A3+NPM      GET *IX* DEFAULT VALUE
00806  M01S00797.lo72    +++|          SA2    A1+NPM
00807  M01S00798.lo72    +++|          NZ     X2,PRS8.3   IF *IX* SPECIFIED
00808  M01S00799.lo72    +++|          NZ     X3,PRS8.2   IF *IX* DEFAULT DEFINED
00809  M01S00800.lo72    +++| PRS8.1   MESSAGE (=C* IX OR OX NOT DEFINED.*)
00810  M01S00801.lo72    +++|          EQ     PRS7        ABORT
00811  M01S00802.lo72    +++|
00812  M01S00803.lo72    +++| PRS8.2   BX6    X3          SET *IX* DEFAULT VALUE
00813  M01S00804.lo72    +++|          SA6    A2
00814  M01S00805.lo72    +++| PRS8.3   SA2    A2+NPM      GET *OX* VALUE
00815  M01S00806.lo72    +++|          NZ     X2,PRS9     IF *OX* SPECIFIED
00816  M01S00807.lo72    +++|          SA3    A3+NPM
00817  M01S00808.lo72    +++|          ZR     X3,PRS8.1   IF NO *OX* DEFAULT
00818  M01S00809.lo72    +++|          BX6    X3          SET *OX* DEFAULT VALUE
00819  M01S00810.lo72    +++|          SA6    A2
00820  M01S00811.lo72    +++| PRS9     SB3    B3+B1
00821  M01S00812.lo72    +++|          SB2    B2-B1
00822  M01S00813.lo72    +++|          NZ     B2,PRS8
00823  M01S00814.lo72    +++|          EQ     PRS12
00824  M01S00815.lo72    +++|
00825  M01S00816.lo72    +++|**        INSERT DEFAULT VALUES FOR EACH TYPE IF NEEDED.
00826  M01S00817.lo72    +++|*
00827  M01S00818.lo72    +++| PRS10    SX4    A1
00828  M01S00819.lo72    +++|          SB5    3
00829  M01S00820.lo72    +++|          SB6    B4
00830  M01S00821.lo72    +++| PRS11    SA2    B3+B6             GET PROPER DEFAULT VALUE
00831  M01S00822.lo72    +++|          BX6    X2
00832  M01S00823.lo72    +++|          SA6    X4                STORE THE VALUE
00833  M01S00824.lo72    +++|          SX4    X4+NPM            INCREMENT ADDRESS
00834  M01S00825.lo72    +++|          SB6    B6+NPM
00835  M01S00826.lo72    +++|          SB5    B5-B1             DECREMENT COUNTER
00836  M01S00827.lo72    +++|          NZ     B5,PRS11
00837  M01S00828.lo72    +++|          EQ     PRS9
00838  M01S00829.lo72    +++|
00839  M01S00830.lo72    +++| PRS12    SA1    TTO
00840  M01S00831.lo72    +++|          NZ     X1,PRS13    IF TERMINAL NOT AVAILABLE
00841  M01S00832.lo72    +++|          SA1    I                 GET FILE NAME
00842  M01S00833.lo72    +++|          RJ     SFP               SET FET PARAMETERS
00843  M01S00834.lo72    +++|          SA2    =5LINPUT
00844  M01S00835.lo72    +++|          MX0    42
00845  M01S00836.lo72    +++|          BX6    X0*X1
00846  M01S00837.lo72    +++|          SA6    CKID              SAVE ORIGINAL FILE NAME
00847  M01S00838.lo72    +++|          BX3    -X0*X1
00848  M01S00839.lo72    +++|          BX6    X2+X3
00849  M01S00840.lo72    +++|          SA6    A1                INSERT *INPUT* INTO FET
00850  M01S00841.lo72    +++|          SA1    O                 GET FILE NAME
00851  M01S00842.lo72    +++|          BX6    X0*X1
00852  M01S00843.lo72    +++|          SA6    CKIG              SAVE ORIGINAL FILE NAME
00853  M01S00844.lo72    +++|          BX6    -X0*X1
00854  M01S00845.lo72    +++|          SA6    A1                ZREO OUT FILE NAME
00855  M01S00846.lo72    +++|          SA1    OUT
00856  M01S00847.lo72    +++|          RJ     SFP               SET FET PARAMETERS
00857  M01S00848.lo72    +++|          SA2    =6LOUTPUT
00858  M01S00849.lo72    +++|          SX6    A1
00859  M01S00850.lo72    +++|          BX6    X2+X6             ADD FET ADDRESS TO FILE NAME
00860  M01S00851.lo72    +++|          SA6    B1+B1             INSERT OUTPUT FET ADDRESS AT RA+2
00861  M01S00852.lo72    +++|          BX6    X1+X2
00862  M01S00853.lo72    +++|          SA6    A1                SET FILE NAME OUTPUT FOR TTY
00863  M01S00854.lo72    +++|          EQ     CKI
00864  M01S00855.lo72    +++| PRS13    SA1    I
00865  M01S00856.lo72    +++|          MX0    42
00866  M01S00857.lo72    +++|          BX2    X0*X1             MASK OFF FILE NAME
00867  M01S00858.lo72    +++|          ZR     X2,PRS14          IF NO FILE NAME
00868  M01S00859.lo72    +++|
00869  M01S00860.lo72    +++|**        READ THE INPUT FILE.
00870  M01S00861.lo72    +++|*
00871  M01S00862.lo72    +++| RIF      RJ     SFP               SET FET PARAMETERS
00872  M01S00863.lo72    +++|          SX0    B1+B1             FIRST ADDRESS
00873  M01S00864.lo72    +++| RIF1     READ   I,R
00874  M01S00865.lo72    +++|          READH  I,XBUF,XBUFL      READ INPUT FILE
00875  M01S00866.lo72    +++|          NG     X1,RIF3           IF -EOF-
00876  M01S00867.lo72    +++|          NZ     X1,RIF1           IF -EOR-
00877  M01S00868.lo72    +++|          SB7    X0
00878  M01S00869.lo72    +++|          SA5    XBUF              GET FIRST WORD
00879  M01S00870.lo72    +++|          RJ     UPC               UNPACK INPUT FILE
00880  M01S00871.lo72    +++|          SX0    B6+B7
00881  M01S00872.lo72    +++|          ZR     X6,RIF1           IF NO UNPACK ERROR
00882  M01S00873.lo72    +++|          MESSAGE (=C*INPUT FILE ERROR.*)
00883  M01S00874.lo72    +++|          EQ     PRS7
00884  M01S00875.lo72    +++|
00885  M01S00876.lo72    +++|**        PROCESS ARGUMENTS FROM INPUT FILE
00886  M01S00877.lo72    +++|*
00887  M01S00878.lo72    +++| RIF3     SB4    X0-2              SET ARGUMENT COUNT
00888  M01S00879.lo72    +++|          SA4    ARGR              GET FIRST ARGUMENT
00889  M01S00880.lo72    +++|          SB5    COPT              GET ARGUMENT TABLE ADDR.
00890  M01S00881.lo72    +++|          RJ     ARG               PROCESS ARGUMENTS
00891  M01S00882.lo72    +++|          NZ     X1,PRSB           IF ERROR FOUND
00892  M01S00883.lo72    +++|
00893  M01S00884.lo72    +++|**        CHECK FOR OUTPUT FILE NAME " SOURCE FILE NAME
00894  M01S00885.lo72    +++|*
00895  M01S00886.lo72    +++| PRS14    SA1    S                 GET *SCR* FILE NAME
00896  M01S00887.lo72    +++|          SA2    O                 GET *OUTPUT* FILE NAME
00897  M01S00888.lo72    +++|          MX0    42D
00898  M01S00889.lo72    +++|          BX1    X0*X1
00899  M01S00890.lo72    +++|          ZR     X1,PRSC     IF SOURCE FILE NAME NOT GIVEN
00900  M01S00891.lo72    +++|          BX2    X0*X2
00901  M01S00892.lo72    +++|          ZR     X2,PRSC     IF OUTPUT FILE NAME NOT GIVEN
00902  M01S00893.lo72    +++|          BX3    X1-X2
00903  M01S00894.lo72    +++|          NZ     X3,PRS15
00904  M01S00895.lo72    +++|          MESSAGE (=C*FILE NAME CONFLICT.*)
00905  M01S00896.lo72    +++|          EQ     PRS7
00906  M01S00897.lo72    +++|
00907  M01S00898.lo72    +++|**        SET NX VALUES AS BINARY NUMBERS
00908  M01S00899.lo72    +++|*
00909  M01S00900.lo72    +++| PRS15    SB7    B0
00910  M01S00901.lo72    +++|          SA5    H
00911  M01S00902.lo72    +++|          RJ     DXB
00912  M01S00903.lo72    +++|          ZR     X7,PRSD     IF OUTPUT LINE LENGTH NOT GIVEN
00913  M01S00904.lo72    +++|          SA7    A5
00914  M01S00905.lo72    +++|          SX7    X7-XBUFL-1
00915  M01S00906.lo72    +++|          PL     X7,PRSD     IF OUTPUT LENGTH .GT. XBUFL
00916  M01S00907.lo72    +++|          SB6    NPM-1       SET COUNTER + ADDRESS INCREMENT
00917  M01S00908.lo72    +++| PRS16    SA5    B6+N1             GET NX VALUE
00918  M01S00909.lo72    +++|          ZR     X5,PRS17
00919  M01S00910.lo72    +++|          RJ     DXB
00920  M01S00911.lo72    +++|          SA7    A5                RE-STORE AS BINARY NUMBER
00921  M01S00912.lo72    +++|
00922  M01S00913.lo72    +++|**        SET IX VALUES AS XBUF ADDRESSES
00923  M01S00914.lo72    +++|*
00924  M01S00915.lo72    +++|          SA5    A5+NPM            GET IX VALUE
00925  M01S00916.lo72    +++|          RJ     DXB
00926  M01S00917.lo72    +++|          SX7    X7-1
00927  M01S00918.lo72    +++|          SX2    XBUFL       GET INPUT LINE LENGTH
00928  M01S00919.lo72    +++|          SA3    B6+N1       ADD *NX* + *IX* VALUES
00929  M01S00920.lo72    +++|          IX6    X7+X3
00930  M01S00921.lo72    +++|          IX6    X2-X6
00931  M01S00922.lo72    +++|          NG     X6,PRSE     IF *IX* + *NX* .GT. INPUT BUFFER LENGTH
00932  M01S00923.lo72    +++|          SX7    X7+XBUF
00933  M01S00924.lo72    +++|          SA7    A5                RE-STORE AS AN ADDRESS
00934  M01S00925.lo72    +++|
00935  M01S00926.lo72    +++|**        SET OX VALUES AS YBUF ADDRESSES
00936  M01S00927.lo72    +++|*
00937  M01S00928.lo72    +++|          SA5    A5+NPM            GET OX VALUE
00938  M01S00929.lo72    +++|          RJ     DXB
00939  M01S00930.lo72    +++|          SX7    X7-1
00940  M01S00931.lo72    +++|          SA2    H           GET OUTPUT LINE LENGTH
00941  M01S00932.lo72    +++|          SA3    B6+N1       ADD *OX* + *NX* VALUES
00942  M01S00933.lo72    +++|          IX6    X7+X3
00943  M01S00934.lo72    +++|          IX6    X2-X6
00944  M01S00935.lo72    +++|          NG     X6,PRSE     IF *OX* + *NX* .GT. OUTPUT LENGTH
00945  M01S00936.lo72    +++|          SX7    X7+YBUF
00946  M01S00937.lo72    +++|          SA7    A5                RE-STORE AS AN ADDRESS
00947  M01S00938.lo72    +++| PRS17    SB6    B6-B1
00948  M01S00939.lo72    +++|          PL     B6,PRS16          IF NOT *NPM* TIMES THRU
00949  M01S00940.lo72    +++|
00950  M01S00941.lo72    +++|**        CONVERT T TO AN ADDRESS FOR *PEJ* ROUTINE
00951  M01S00942.lo72    +++|*
00952  M01S00943.lo72    +++| PRS19    SB2    B0
00953  M01S00944.lo72    +++|          MX0    42                SET ADDRESS MASK
00954  M01S00945.lo72    +++|          SA2    T                 GET TYPE
00955  M01S00946.lo72    +++|          MX1    6                 SET CHARACTER MASK
00956  M01S00947.lo72    +++| PRS20    SA3    B2+PRSA           GET FIRST CHARACTER AND ADDRESS
00957  M01S00948.lo72    +++|          ZR     X3,PRS6           IF END OF TABLE
00958  M01S00949.lo72    +++|          BX4    X1*X3             GET THE CHARACTER
00959  M01S00950.lo72    +++|          IX4    X2-X4
00960  M01S00951.lo72    +++|          ZR     X4,PRS21          IF A MATCH
00961  M01S00952.lo72    +++|          SB2    B2+B1
00962  M01S00953.lo72    +++|          EQ     PRS20
00963  M01S00954.lo72    +++| PRS21    BX6    -X0*X3
00964  M01S00955.lo72    +++|          SA6    T                 SET ADDRESS INTO *TYPE* LOCATION
00965  M01S00956.lo72    +++|
00966  M01S00957.lo72    +++|**        RESET FET PARAMETERS
00967  M01S00958.lo72    +++|*
00968  M01S00959.lo72    +++|          SA1    O
00969  M01S00960.lo72    +++|          RJ     SFP               SET FET PARAMETERS
00970  M01S00961.lo72    +++|          SA1    NR
00971  M01S00962.lo72    +++|          NZ     X1,PRS11.2  IF NO REWIND
00972  M01S00963.lo72    +++|          REWIND O,R
00973  M01S00964.lo72    +++| PRS11.2  SA1    S
00974  M01S00965.lo72    +++|          RJ     SFP               SET FET PARAMETERS
00975  M01S00966.lo72    +++|          REWIND S,R
00976  M01S00967.lo72    +++|
00977  M01S00968.lo72    +++|**        ADD LINE PRINTER FLAG TO FIRST YBUF ADDRESS
00978  M01S00969.lo72    +++|*
00979  M01S00970.lo72    +++|          SB3    B0
00980  M01S00971.lo72    +++|          SX2    YBUF
00981  M01S00972.lo72    +++| PRS22    SA1    B3+O1             GET OUTPUT ADDRESSES
00982  M01S00973.lo72    +++|          SA0    BAT2              SET DEFAULT ADDRESS
00983  M01S00974.lo72    +++|          IX3    X1-X2
00984  M01S00975.lo72    +++|          ZR     X3,PRS23          IF ADDRESSES THE SAME
00985  M01S00976.lo72    +++|          SB3    B3+B1
00986  M01S00977.lo72    +++|          SB5    B3-NPM
00987  M01S00978.lo72    +++|          ZR     B5,LO721          IF NPM TIMES
00988  M01S00979.lo72    +++|          EQ     PRS22
00989  M01S00980.lo72    +++|
00990  M01S00981.lo72    +++| PRS23    SA2    LP
00991  M01S00982.lo72    +++|          IX6    X1+X2             ADD LINE PRINTER FLAG TO FIRST ADDR
00992  M01S00983.lo72    +++|          SA6    A1
00993  M01S00984.lo72    +++|          EQ     LO721             RETURN
00994  M01S00985.lo72    +++|
00995  M01S00986.lo72    +++|
00996  M01S00987.lo72    +++| PRSA     VFD    6/1LB,54D/PEJ5
00997  M01S00988.lo72    +++|          VFD    6/1LC,54D/PEJ1
00998  M01S00989.lo72    +++|          VFD    6/1LM,54D/PEJ2
00999  M01S00990.lo72    +++|          CON    0
01000  M01S00991.lo72    +++|
01001  M01S00992.lo72    +++|
01002  M01S00993.lo72    +++| PRSB     MESSAGE (=C* ARGUMENT ERROR.*)
01003  M01S00994.lo72    +++|          EQ     PRS7
01004  M01S00995.lo72    +++|
Line S00996 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01005  M02S00996.v23l617 ---| PRSC     MESSAGE (=C* INVALID PARAMETER.*)
01006  M01S00009.v23l617 +++| PRSC     MESSAGE (=C* INCORRECT PARAMETER.*)
01007  M01S00997.lo72    +++|          EQ     PRS7
01008  M01S00998.lo72    +++|
Line S00999 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01009  M02S00999.v23l617 ---| PRSD     MESSAGE (=C* H VALUE INVALID.*)
01010  M01S00010.v23l617 +++| PRSD     MESSAGE (=C* H VALUE INCORRECT.*)
01011  M01S01000.lo72    +++|          EQ     PRS7        ABORT
01012  M01S01001.lo72    +++|
Line S01002 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01013  M02S01002.v23l617 ---| PRSE     MESSAGE (=C* INVALID LINE LENGTH.*)
01014  M01S00011.v23l617 +++| PRSE     MESSAGE (=C* INCORRECT LINE LENGTH.*)
01015  M01S01003.lo72    +++|          EQ     PRS7        ABORT
01016  M01S01004.lo72    +++|
01017  M01S01005.lo72    +++| COPT     BSS    0
01018  M01S01006.lo72    +++| S        ARG    =0LSCR,S
01019  M01S01007.lo72    +++| I        ARG    =0LINPUT,I
01020  M01S01008.lo72    +++| L        ARG    =0LOUTPUT,O
01021  M01S01009.lo72    +++| T        ARG    T,T
01022  M01S01010.lo72    +++| H        ARG    H,H
01023  M01S01011.lo72    +++| N1       ARG    BN1,N1
01024  M01S01012.lo72    +++| I1       ARG    BI1,I1
01025  M01S01013.lo72    +++| O1       ARG    BO1,O1
01026  M01S01014.lo72    +++| N2       ARG    BN2,N2
01027  M01S01015.lo72    +++| I2       ARG    BI2,I2
01028  M01S01016.lo72    +++| O2       ARG    BO2,O2
01029  M01S01017.lo72    +++| N3       ARG    BN3,N3
01030  M01S01018.lo72    +++| I3       ARG    BI3,I3
01031  M01S01019.lo72    +++| O3       ARG    BO3,O3
01032  M01S01020.lo72    +++| N4       ARG    BN4,N4
01033  M01S01021.lo72    +++| I4       ARG    BI4,I4
01034  M01S01022.lo72    +++| O4       ARG    BO4,O4
01035  M01S01023.lo72    +++| N5       ARG    BN5,N5
01036  M01S01024.lo72    +++| I5       ARG    BI5,I5
01037  M01S01025.lo72    +++| O5       ARG    BO5,O5
01038  M01S01026.lo72    +++| N6       ARG    BN6,N6
01039  M01S01027.lo72    +++| I6       ARG    BI6,I6
01040  M01S01028.lo72    +++| O6       ARG    BO6,O6
01041  M01S01029.lo72    +++| LP       ARG    -DFLP,LP
01042  M01S01030.lo72    +++| NR       ARG    -*,NR
01043  M01S01031.lo72    +++| IT       ARG    -*,TTO
01044  M01S01032.lo72    +++|          ARG
01045  M01S01033.lo72    +++|
01046  M01S01034.lo72    +++| DFLP     CON    1           DEFAULT PRINTER OPTION
01047  M01S01035.lo72    +++| TTO      CON    0           TERMINAL AVAILABLE OPTION
01048  M01S01036.lo72    +++|          TITLE  TERMINAL I/O ROUTINE.
01049  M01S01037.lo72    +++|
01050  M01S01038.lo72    +++|**        CKI - CHECK INPUT FROM TTY.
01051  M01S01039.lo72    +++|*
01052  M01S01040.lo72    +++|*         ENTRY - ORIGIN CODE (JOPR) CHECKED AND FOUND TO BE TELEX.
01053  M01S01041.lo72    +++|*
01054  M01S01042.lo72    +++|*         EXIT - ALL RE-FORMAT PARAMETERS CHECKED BY THE TERMINAL USER.
01055  M01S01043.lo72    +++|*
01056  M01S01044.lo72    +++|*         USES   X - ALL.
01057  M01S01045.lo72    +++|*                B - ALL.
01058  M01S01046.lo72    +++|*                A - ALL.
01059  M01S01047.lo72    +++|
01060  M01S01048.lo72    +++|
01061  M01S01049.lo72    +++| CKI      WRITEC OUT,CKIA
01062  M01S01050.lo72    +++|
01063  M01S01051.lo72    +++|          WRITEC OUT,CKIA1
01064  M01S01052.lo72    +++| CKI0     READ   I
01065  M01S01053.lo72    +++|          READC  I,XBUF,8D
01066  M01S01054.lo72    +++|
01067  M01S01055.lo72    +++|**        CHECK IF ANY ARGUMENT CHANGES ARE NEEDED
01068  M01S01056.lo72    +++|*
01069  M01S01057.lo72    +++|          NZ     X1,CKI26          IF *CR*
01070  M01S01058.lo72    +++|          SA1    XBUF              GET THE INPUT WORD
01071  M01S00001.lo721   +++|          RJ     SFN
01072  M01S01059.lo72    +++|          SA2    CKIB
Line S01060 Modification History
M01 (Added by) lo72
M02 (Updated by) lo721
Seq #  *Modification Id* Act 
----------------------------+
01073  M02S01060.lo721   ---|          BX3    X2-X1
01074  M01S00002.lo721   +++|          BX3    X6-X2
01075  M01S01061.lo72    +++|          ZR     X3,CKI1           IF *YES*
01076  M01S01062.lo72    +++|          SA2    A2+B1
01077  M01S01063.lo72    +++|          BX3    X2-X1
01078  M01S01064.lo72    +++|          ZR     X3,CKI26          IF *NO*
01079  M01S01065.lo72    +++|          SX6    CKI0
01080  M01S01066.lo72    +++|          SA6    SOBC              SET ERROR ADDRESS
01081  M01S01067.lo72    +++|          EQ     SOB4
01082  M01S01068.lo72    +++|
01083  M01S01069.lo72    +++|**        CHANGE INPUT FILE NAME(I)
01084  M01S01070.lo72    +++|*
01085  M01S01071.lo72    +++| CKI1     MX0    42
01086  M01S01072.lo72    +++|          SA1    CKID              GET INPUT FILE NAME
01087  M01S01073.lo72    +++|          RJ     SFN               SPACE FILL NAME
01088  M01S01074.lo72    +++|          BX6    X0*X6
01089  M01S01075.lo72    +++|          SA5    CKIC2             GET MESSAGE WORD
01090  M01S01076.lo72    +++|          BX6    X5+X6
01091  M01S01077.lo72    +++|          SA6    A5                STORE INTO MESSAGE
01092  M01S01078.lo72    +++|          WRITEC OUT,CKIC
01093  M01S01079.lo72    +++|          WRITEC OUT,CKIC1
01094  M01S01080.lo72    +++| CKI2     READ   I
01095  M01S01081.lo72    +++|          READC  I,XBUF,8D
01096  M01S01082.lo72    +++|          NZ     X1,CKI3           IF *CR*
01097  M01S01083.lo72    +++|          SB3    CKI2              SET ERROR ADDRESS
01098  M01S01084.lo72    +++|          SA1    XBUF              GET THE INPUT WORD
01099  M01S01085.lo72    +++|          RJ     SOB               STRIP OFF BLANKS
01100  M01S01086.lo72    +++|          SA6    CKID              TEMPORARILY STORE INPUT FILE NAME
01101  M01S01087.lo72    +++|
01102  M01S01088.lo72    +++|**        CHANGE SOURCE FILE NAME(S)
01103  M01S01089.lo72    +++|*
01104  M01S01090.lo72    +++| CKI3     SA5    S                 GET *SCR* FILE NAME
01105  M01S01091.lo72    +++|          BX1    X0*X5
01106  M01S01092.lo72    +++|          RJ     SFN
01107  M01S01093.lo72    +++|          BX6    X0*X6
01108  M01S01094.lo72    +++|          SA5    CKIE1             GET MESSAGE WORD
01109  M01S01095.lo72    +++|          BX6    X5+X6
01110  M01S01096.lo72    +++|          SA6    A5                STORE INTO MESSAGE
01111  M01S01097.lo72    +++|          WRITEC OUT,CKIE
01112  M01S01098.lo72    +++| CKI4     READ   I
01113  M01S01099.lo72    +++|          READC  I,XBUF,8D
01114  M01S01100.lo72    +++|          NZ     X1,CKI5           IF *CR*
01115  M01S01101.lo72    +++|          SB3    CKI4              SET ERROR ADDRESS
01116  M01S01102.lo72    +++|          SA1    XBUF              GET THE INPUT WORD
01117  M01S01103.lo72    +++|          RJ     SOB               STRIP OFF BLANKS
01118  M01S01104.lo72    +++|          BX1    -X0*X5
01119  M01S01105.lo72    +++|          BX6    X6+X1
01120  M01S01106.lo72    +++|          SA6    S                 STORE *SCR* FILE NAME
01121  M01S01107.lo72    +++|
01122  M01S01108.lo72    +++|**        CHANGE OUTPUT FILE NAME(O)
01123  M01S01109.lo72    +++|*
01124  M01S01110.lo72    +++| CKI5     SA1    CKIG              GET OUTPUT FILE NAME
01125  M01S01111.lo72    +++|          RJ     SFN
01126  M01S01112.lo72    +++|          BX6    X0*X6
01127  M01S01113.lo72    +++|          SA5    CKIF1             GET MESSAGE WORD
01128  M01S01114.lo72    +++|          BX6    X5+X6
01129  M01S01115.lo72    +++|          SA6    A5                STORE INTO MESSAGE
01130  M01S01116.lo72    +++|          WRITEC OUT,CKIF
01131  M01S01117.lo72    +++| CKI6     READ   I
01132  M01S01118.lo72    +++|          READC  I,XBUF,8D
01133  M01S01119.lo72    +++|          NZ     X1,CKI7           IF *CR*
01134  M01S01120.lo72    +++|          SB3    CKI6              SET ERROR ADDRESS
01135  M01S01121.lo72    +++|          SA1    XBUF              GET THE INPUT WORD
01136  M01S01122.lo72    +++|          RJ     SOB               STRIP OFF BLANKS
01137  M01S01123.lo72    +++|          BX1    -X0*X5
01138  M01S01124.lo72    +++|          BX6    X6+X1
01139  M01S01125.lo72    +++|          SA6    CKIG              TEMPORARILY STORE OUTPUT FILE NAME
01140  M01S01126.lo72    +++|
01141  M01S01127.lo72    +++|**        CHANGE TYPE OF SOURCE FILE(T)
01142  M01S01128.lo72    +++|*
01143  M01S01129.lo72    +++| CKI7     SA1    T
01144  M01S01130.lo72    +++|          NZ     X1,CKI8           IF TYPE NOT EMPTY
01145  M01S01131.lo72    +++|          SA2    CKIJ
01146  M01S01132.lo72    +++|          EQ     CKI12
01147  M01S01133.lo72    +++|
01148  M01S01134.lo72    +++| CKI8     LX1    6                 RIGHT JUSTIFY
01149  M01S01135.lo72    +++|          SX2    X1-1RB
01150  M01S01136.lo72    +++|          NZ     X2,CKI9           IF TYPE NOT BATCH
01151  M01S01137.lo72    +++|          SA2    CKIK
01152  M01S01138.lo72    +++|          EQ     CKI12
01153  M01S01139.lo72    +++|
01154  M01S01140.lo72    +++| CKI9     SX2    X1-1RM
01155  M01S01141.lo72    +++|          NZ     X2,CKI10          IF TYPE NOT MODIFY
01156  M01S01142.lo72    +++|          SA2    CKIL
01157  M01S01143.lo72    +++|          EQ     CKI12
01158  M01S01144.lo72    +++|
01159  M01S01145.lo72    +++| CKI10    SX2    X1-1RC
01160  M01S01146.lo72    +++|          NZ     X2,CKI12.1  IF TYPE NOT COMPASS
01161  M01S01147.lo72    +++|          SA2    CKIM
01162  M01S01148.lo72    +++| CKI12    BX6    X2
01163  M01S01149.lo72    +++|          SA6    CKIH1             STORE INTO MESSAGE
01164  M01S01150.lo72    +++|          BX7    X7-X7       SET END-OF-LINE
01165  M01S01151.lo72    +++|          SA7    A6+B1
01166  M01S01152.lo72    +++| CKI12.1  WRITEC OUT,CKIH
01167  M01S01153.lo72    +++| CKI13    READ   I
01168  M01S01154.lo72    +++|          READC  I,XBUF,8D
01169  M01S01155.lo72    +++|          NZ     X1,CKI15          IF *CR*
01170  M01S01156.lo72    +++|          MX0    6
01171  M01S01157.lo72    +++|          SA1    XBUF              GET THE INPUT WORD
01172  M01S01158.lo72    +++|          BX6    X0*X1             PICK OFF FIRST CHARACTER
01173  M01S01159.lo72    +++|          BX1    X6
01174  M01S01160.lo72    +++|          LX1    6                 RIGHT JUSTIFY
01175  M01S01161.lo72    +++|          SX2    X1-1RB
01176  M01S01162.lo72    +++|          ZR     X2,CKI14          IF TYPE = B
01177  M01S01163.lo72    +++|          SX2    X1-1RM
01178  M01S01164.lo72    +++|          ZR     X2,CKI14          IF TYPE = M
01179  M01S01165.lo72    +++|          SX2    X1-1RC
01180  M01S01166.lo72    +++|          ZR     X2,CKI14          IF TYPE = C
01181  M01S01167.lo72    +++|          SX6    CKI13
01182  M01S01168.lo72    +++|          SA6    SOBC              SET ERROR ADDRESS
01183  M01S01169.lo72    +++|          EQ     SOB4
01184  M01S01170.lo72    +++| CKI14    SA6    T                 STORE NEW TYPE
01185  M01S01171.lo72    +++|
01186  M01S01172.lo72    +++|**        CHANGE LENGTH OF OUTPUT LINE(H)
01187  M01S01173.lo72    +++|*
01188  M01S01174.lo72    +++| CKI15    SA1    H                 GET NO. OF CHARACTERS/LINE
01189  M01S01175.lo72    +++|          NZ     X1,CKI16
01190  M01S01176.lo72    +++|          SA1    =1L0
01191  M01S01177.lo72    +++| CKI16    MX0    6
01192  M01S01178.lo72    +++|          SA3    =1L
01193  M01S01179.lo72    +++|          SB2    B1+B1
01194  M01S01180.lo72    +++| CKI17    LX1    6
01195  M01S01181.lo72    +++|          BX2    X0*X1
01196  M01S01182.lo72    +++|          NZ     X2,CKI18          IF THERE IS A CHAR.
01197  M01S01183.lo72    +++|          BX1    X1+X3             ADD A SPACE
01198  M01S01184.lo72    +++| CKI18    SB2    B2-B1
01199  M01S01185.lo72    +++|          NZ     B2,CKI17
01200  M01S01186.lo72    +++|          LX1    48                SHIFT INTO BYTE 0
01201  M01S01187.lo72    +++|          SA2    CKIN1
01202  M01S01188.lo72    +++|          MX0    18
01203  M01S01189.lo72    +++|          BX2    -X0*X2      ALLOW RESET OF *H* CODED VALUE
01204  M01S01190.lo72    +++|          BX6    X1+X2
01205  M01S01191.lo72    +++|          SA6    A2                STORE INTO MESSAGE
01206  M01S01192.lo72    +++|          WRITEC OUT,CKIN
01207  M01S01193.lo72    +++| CKI19    READ   I
01208  M01S01194.lo72    +++|          READC  I,XBUF,8D
01209  M01S01195.lo72    +++|          NZ     X1,CKI20          IF *CR*
01210  M01S01196.lo72    +++|          SB3    CKI19             SET ERROR ADDRESS
01211  M01S01197.lo72    +++|          SA1    XBUF              GET THE INPUT WORD
01212  M01S01198.lo72    +++|          RJ     SOB               STRIP OFF BLANKS
01213  M01S01199.lo72    +++|          SA6    H                 STORE NEW NO. OF CHARS.
01214  M01S01200.lo72    +++|          BX5    X6
01215  M01S01201.lo72    +++|          RJ     DXB         CONVERT *H* TO DECIMAL VALUE
01216  M01S01202.lo72    +++|          ZR     X7,CKI19.1  IF ZERO LENGTH SPECIFIED
01217  M01S01203.lo72    +++|          SX7    X7-XBUFL-1
01218  M01S01204.lo72    +++|          NG     X7,CKI20    IF OUTPUT LENGTH .LT. XBUFL
01219  M01S01205.lo72    +++| CKI19.1  WRITEC OUT,CKIU
01220  M01S01206.lo72    +++|          EQ     CKI19       ALLOW RE-ENTRY OF *H* VALUE
01221  M01S01207.lo72    +++|
01222  M01S01208.lo72    +++|**        CHANGE NX, IX, AND OX VALUES
01223  M01S01209.lo72    +++|
01224  M01S01210.lo72    +++| CKI20    WRITEC OUT,CKIO
01225  M01S01211.lo72    +++|          WRITEC OUT,CKIO1
01226  M01S01212.lo72    +++|          WRITEC OUT,CKIO2
01227  M01S01213.lo72    +++|          SB3    CKIP
01228  M01S01214.lo72    +++|          SA1    B3-B1       GET COPY OF CKIP
01229  M01S01215.lo72    +++|          BX6    X1
01230  M01S01216.lo72    +++|          SA6    B3          RESTORE CKIP
01231  M01S01217.lo72    +++|          MX5    6
01232  M01S01218.lo72    +++|          LX5    30
01233  M01S01219.lo72    +++|          BX0    X0-X0
01234  M01S01220.lo72    +++| CKI21    SB6    CKIQ
01235  M01S01221.lo72    +++|          MX2    54
01236  M01S01222.lo72    +++|          SX7    B1
01237  M01S01223.lo72    +++|          SA3    CKIP
01238  M01S01224.lo72    +++|          LX3    12
01239  M01S01225.lo72    +++|          IX6    X3+X7             INCREMENT X
01240  M01S01226.lo72    +++|          LX6    48
01241  M01S01227.lo72    +++|          SA6    A3
01242  M01S01228.lo72    +++|          SA1    X0+N1             GET NX VALUES
01243  M01S01229.lo72    +++|          SB2    3
01244  M01S01230.lo72    +++|          SX4    55B
01245  M01S01231.lo72    +++| CKI22    NZ     X1,CKI23          IF NX IS SET
01246  M01S01232.lo72    +++|          SX1    1R0
01247  M01S01233.lo72    +++| CKI23    LX1    6
01248  M01S01234.lo72    +++|          BX3    -X2*X1
01249  M01S01235.lo72    +++|          NZ     X3,CKI23          IF THERE IS A CHAR.
01250  M01S01236.lo72    +++|          IX1    X1+X4             ADD IN A BLANK
01251  M01S01237.lo72    +++|          BX3    X5*X1
01252  M01S01238.lo72    +++|          ZR     X3,CKI23          IF NOT TO BIT 30
01253  M01S01239.lo72    +++|          BX6    X1+X6
01254  M01S01240.lo72    +++|          SA6    B6                STORE INTO MESSAGE
01255  M01S01241.lo72    +++|          SB6    B6+B1             INCREMENT CKIQ ADDRESS
01256  M01S01242.lo72    +++|          SB2    B2-B1             DECREMENT COUNTER
01257  M01S01243.lo72    +++|          SA1    A1+NPM            GET NEXT VALUES (IX + OX)
01258  M01S01244.lo72    +++|          SA3    B1+CKIP           GET SECOND WORD
01259  M01S01245.lo72    +++|          BX6    X3
01260  M01S01246.lo72    +++|          NZ     B2,CKI22
01261  M01S01247.lo72    +++|          SX0    X0+B1
01262  M01S01248.lo72    +++|          WRITEC OUT,CKIQ
01263  M01S01249.lo72    +++|          SX4    X0-NPM
01264  M01S01250.lo72    +++|          NZ     X4,CKI21          IF NOT NPM TIMES
01265  M01S01251.lo72    +++|          WRITEC OUT,CKIR
01266  M01S01252.lo72    +++|          WRITEC OUT,CKIR1
01267  M01S01253.lo72    +++|          WRITEC OUT,CKIR2
01268  M01S01254.lo72    +++|          WRITEC OUT,CKIR3
01269  M01S01255.lo72    +++|          WRITEC OUT,CKIR4
01270  M01S01256.lo72    +++|          WRITEC OUT,CKIR5
01271  M01S01257.lo72    +++|          MX0    18
01272  M01S01258.lo72    +++|          SA0    B0                INITIALIZE ARGUMENT COUNTER
01273  M01S01259.lo72    +++|          SA5    YBUF              SET ADDRESS FOR NEW VALUES
01274  M01S01260.lo72    +++|
01275  M01S01261.lo72    +++|**        READ NEW NX, IX, AND OX VALUES
01276  M01S01262.lo72    +++|
01277  M01S01263.lo72    +++| CKI24    READ   I
01278  M01S01264.lo72    +++|          READC  I,XBUF,8D
01279  M01S01265.lo72    +++|          NZ     X1,CKI25          IF *CR*
01280  M01S01266.lo72    +++|          SB3    CKI24             SET ERROR ADDRESS
01281  M01S01267.lo72    +++|          SA1    XBUF              GET THE INPUT WORD
01282  M01S01268.lo72    +++|          RJ     SOB               STRIP OFF BLANKS
01283  M01S01269.lo72    +++|          SX5    54B               SET EQUAL SIGN
01284  M01S01270.lo72    +++|          BX7    -X0*X6
01285  M01S01271.lo72    +++|          MX1    12
01286  M01S01272.lo72    +++|          BX6    X1*X6
01287  M01S01273.lo72    +++|          IX6    X6+X5             COMPLETE FIRST WORD
01288  M01S01274.lo72    +++|          LX7    18                LEFT JUSTIFY THE SECOND WORD
01289  M01S01275.lo72    +++|          SA6    A5                SET FIRST HALF OF ARGUMENT
01290  M01S01276.lo72    +++|          SA0    A0+B1             INCREMENT ARGUMENT COUNTER
01291  M01S01277.lo72    +++|          SA5    A5+B1             INCREMENT ADDRESS
01292  M01S01278.lo72    +++|          SA7    A5                SET SECOND HALF OF ARGUMENT
01293  M01S01279.lo72    +++|          SA0    A0+B1             INCREMENT ARGUMENT COUNTER
01294  M01S01280.lo72    +++|          SA5    A5+B1             INCREMENT ADDRESS
01295  M01S01281.lo72    +++|          EQ     CKI24
01296  M01S01282.lo72    +++| CKI25    SB4    A0                SET ARGUMENT COUNT
01297  M01S01283.lo72    +++|          ZR     B4,CKI26          IF NO ARGUMENTS
01298  M01S01284.lo72    +++|          SB5    COPT              SET ARGUMENT TABLE ADDRESS
01299  M01S01285.lo72    +++|          SA4    YBUF              GET FIRST ARGUMENT
01300  M01S01286.lo72    +++|          RJ     ARG               PROCESS ARGUMENTS
01301  M01S01287.lo72    +++|          ZR     X1,CKI26          IF NO ARGUMENT ERRORS
01302  M01S01288.lo72    +++|          WRITEC OUT,CKIT
01303  M01S01289.lo72    +++|          MX0    18
01304  M01S01290.lo72    +++|          SA0    B0                INITIALIZE ARGUMENT COUNTER
01305  M01S01291.lo72    +++|          SA5    YBUF              SET ADDRESS FOR NEW VALUES
01306  M01S01292.lo72    +++|          EQ     CKI24
01307  M01S01293.lo72    +++|
01308  M01S01294.lo72    +++| CKI26    SB6    NPM-1       SET COUNTER + ADDRESS INCREMENT
01309  M01S01295.lo72    +++|          MX0    54                SINGLE CHAR. MASK.
01310  M01S01296.lo72    +++| CKI27    SA5    B6+N1             GET NX
01311  M01S01297.lo72    +++|          ZR     X5,CKI28          IF NX=0
01312  M01S01298.lo72    +++|          RJ     DXB               CONVERT DISPLAY CODE TO BINARY
01313  M01S01299.lo72    +++|          SA7    SNX         SAVE *NX* VALUE
01314  M01S01300.lo72    +++|          SA5    A5+NPM      CONVERT *IX* VALUE
01315  M01S01301.lo72    +++|          RJ     DXB
01316  M01S01302.lo72    +++|          SA4    SNX         ADD *NX* + *IX* VALUES
01317  M01S01303.lo72    +++|          IX4    X4+X7
01318  M01S01304.lo72    +++|          SX4    X4-XBUFL-2  COMPARE SUM WITH BUFFER LENGTH
01319  M01S01305.lo72    +++|          PL     X4,CKI32    IF *NX* + *IX* .GT. XBUFL + 1
01320  M01S01306.lo72    +++|          SA5    A5+NPM      CONVERT *OX* CODED VALUE
01321  M01S01307.lo72    +++|          RJ     DXB
01322  M01S01308.lo72    +++|          SA7    SOX         SAVE *OX* VALUE
01323  M01S01309.lo72    +++|          SA5    H           CONVERT *H* CODED VALUE
01324  M01S01310.lo72    +++|          RJ     DXB
Line S01311 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01325  M02S01311.v23l617 ---|          NZ     X4,CKI19.1  IF INVALID *H* PARAMETER
01326  M01S00012.v23l617 +++|          NZ     X4,CKI19.1  IF INCORRECT *H* PARAMETER
01327  M01S01312.lo72    +++|          ZR     X7,CKI19.1  IF *H* VALUE = 0
01328  M01S01313.lo72    +++|          SX6    X6-XBUFL-1  COMPARE *H* WITH BUFFER LENGTH
01329  M01S01314.lo72    +++|          PL     X6,CKI19.1  IF *H* VALUE .GT. XBUFL
01330  M01S01315.lo72    +++|          SA3    A7          ADD *OX* + *NX* VALUES
01331  M01S01316.lo72    +++|          SA4    A4
01332  M01S01317.lo72    +++|          IX4    X3+X4       COMPARE SUM WITH OUTPUT LENGTH
01333  M01S01318.lo72    +++|          SX7    X7+B1
01334  M01S01319.lo72    +++|          IX4    X7-X4
01335  M01S01320.lo72    +++|          NG     X4,CKI32    IF *NX* + *OX* .GT. (*H* + 1)
01336  M01S01321.lo72    +++| CKI28    ZR     B6,CKI33    IF FIELD PARAMETER VALIDATION COMPLETE
01337  M01S01322.lo72    +++|          SB6    B6-B1
01338  M01S01323.lo72    +++|          EQ     CKI27
01339  M01S01324.lo72    +++|
01340  M01S01325.lo72    +++| CKI32    WRITEC OUT,CKIS
01341  M01S01326.lo72    +++|          WRITEC OUT,CKIS1
01342  M01S01327.lo72    +++|          EQ     CKI15
01343  M01S01328.lo72    +++|
01344  M01S01329.lo72    +++| CKI33    SA1    CKIG
01345  M01S01330.lo72    +++|          SA2    O
01346  M01S01331.lo72    +++|          MX0    42
01347  M01S01332.lo72    +++|          BX2    -X0*X2
01348  M01S01333.lo72    +++|          BX6    X1+X2
01349  M01S01334.lo72    +++|          SA6    A2                SET COMBINED NAME AND STATUS
01350  M01S01335.lo72    +++|          SA1    CKID
01351  M01S01336.lo72    +++|          ZR     X1,PRS14          IF NO INPUT FILE NAME
01352  M01S01337.lo72    +++|          SA2    I
01353  M01S01338.lo72    +++|          BX2    -X0*X2
01354  M01S01339.lo72    +++|          BX6    X1+X2
01355  M01S01340.lo72    +++|          SA6    A2                SET COMBINED NAME AND STATUS
01356  M01S01341.lo72    +++|          BX1    X6
01357  M01S01342.lo72    +++|          EQ     RIF               READ INPUT FILE
01358  M01S01343.lo72    +++|
01359  M01S01344.lo72    +++|****      MESSAGES OUTPUT TO TTY BY *CKI*.
01360  M01S01345.lo72    +++|*
01361  M01S01346.lo72    +++| CKIA     DIS    5,DO YOU WANT TO CHANGE ANY CONTROL ARGUMENT VALUES-
01362  M01S01347.lo72    +++|          CON    0
01363  M01S01348.lo72    +++| CKIA1    DATA   10HENTER: YES
01364  M01S01349.lo72    +++|          VFD    36/6L OR NO,24/0
Line S01350 Modification History
M01 (Added by) lo72
M02 (Updated by) lo721
Seq #  *Modification Id* Act 
----------------------------+
01365  M02S01350.lo721   ---| CKIB     DATA   3LYES
01366  M01S00003.lo721   +++| CKIB     DATA   3HYES
01367  M01S01351.lo72    +++|          VFD    60D/2LNO
01368  M01S01352.lo72    +++| CKIC     DIS    2,ARGUMENT
01369  M01S01353.lo72    +++|          VFD    36/6LVALUE ,24/0
01370  M01S01354.lo72    +++| CKIC1    DIS    2,INPUT FILE NAME:
01371  M01S01355.lo72    +++| CKIC2    VFD    42/0,18/3H "CB"
01372  M01S01356.lo72    +++|          CON    0
01373  M01S01357.lo72    +++| CKID     CON    0                 INPUT FILE NAME STORAGE
01374  M01S01358.lo72    +++| CKIE     DIS    2,SOURCE FILE NAME:
01375  M01S01359.lo72    +++| CKIE1    VFD    42/0,18/3H "CB"
01376  M01S01360.lo72    +++|          CON    0
01377  M01S01361.lo72    +++| CKIF     DIS    2,OUTPUT FILE NAME:
01378  M01S01362.lo72    +++| CKIF1    VFD    42/0,18/3H "CB"
01379  M01S01363.lo72    +++|          CON    0
01380  M01S01364.lo72    +++| CKIG     CON    0                 OUTPUT FILE NAME STORAGE
01381  M01S01365.lo72    +++| CKIH     DIS    2,SOURCE FILE TYPE:
01382  M01S01366.lo72    +++| CKIH1    DATA   C*NOT IDENTIFIABLE"CB"*
01383  M01S01367.lo72    +++| CKIJ     DATA   C*NONE"CB"*
01384  M01S01368.lo72    +++| CKIK     DATA   C*BATCH "CB"*
01385  M01S01369.lo72    +++| CKIL     DATA   C*MODIFY"CB"*
01386  M01S01370.lo72    +++| CKIM     DATA   C*COMPASS "CB"*
01387  M01S01371.lo72    +++| CKIN     DIS    2,OUTPUT LINE LENGTH:
01388  M01S01372.lo72    +++| CKIN1    VFD    18D/0,42D/7L CHARS.
01389  M01S01373.lo72    +++|          DATA   C*"CB"*
01390  M01S01374.lo72    +++| CKIO     DIS    3,   NO. OF  MOVED FROM  MOVED T
01391  M01S01375.lo72    +++|          VFD    12/2LO ,48/0
01392  M01S01376.lo72    +++| CKIO1    DIS    3,   CHARS.    COLUMN     COLUMN
01393  M01S01377.lo72    +++|          CON    0
01394  M01S01378.lo72    +++| CKIO2    DIS    2,(X) (NX)      (IX)
01395  M01S01379.lo72    +++|          VFD    48/8L    (OX),12/0
01396  M01S01380.lo72    +++|          CON    0
01397  M01S01381.lo72    +++|          VFD    30D/5L 0.  ,30D/0
01398  M01S01382.lo72    +++| CKIP     VFD    30D/5L 0.  ,30D/0
01399  M01S01383.lo72    +++|          VFD    30D/5L     ,30D/0
01400  M01S01384.lo72    +++| CKIQ     CON    0
01401  M01S01385.lo72    +++|          CON    0
01402  M01S01386.lo72    +++|          CON    0
01403  M01S01387.lo72    +++|          CON    0
01404  M01S01388.lo72    +++| CKIR     DATA   C*ENTER CHANGES IN THE FOLLOWING FORMAT: *
01405  M01S01389.lo72    +++| CKIR1    DATA   10HNX=AA*CR*
01406  M01S01390.lo72    +++|          CON    0
01407  M01S01391.lo72    +++| CKIR2    DATA   10HIX=BB*CR*
01408  M01S01392.lo72    +++|          CON    0
01409  M01S01393.lo72    +++| CKIR3    DATA   10HOX=CC*CR*
01410  M01S01394.lo72    +++|          CON    0
01411  M01S01395.lo72    +++| CKIR4    VFD    24/4LETC.,36/0
01412  M01S01396.lo72    +++| CKIR5    DATA   C/TO CONTINUE, ENTER *CR* ONLY. "CB"/
01413  M01S01397.lo72    +++| CKIS     DIS    5,ERROR- OUTPUT LINE LENGTH (H) IS TOO SMALL OR TOTA
01414  M01S01398.lo72    +++|          VFD    12/2LL ,48/0
01415  M01S01399.lo72    +++| CKIS1    DIS    5,NUMBER OF CHARACTERS TO BE MOVED (NX) IS TOO LARGE
01416  M01S01400.lo72    +++|          VFD    12/2L. ,48/0
01417  M01S01401.lo72    +++| CKIT     DIS    5,ARGUMENT ERROR. RE-ENTER ALL NX, IX, AND OX PARAME
01418  M01S01402.lo72    +++|          VFD    36/6LTERS. ,24/0
Line S01403 Modification History
M01 (Added by) lo72
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01419  M02S01403.v23l617 ---| CKIU     DATA   C* LENGTH INVALID. CORRECT AND RE-ENTER.*
01420  M01S00013.v23l617 +++| CKIU     DATA   C* LENGTH INCORRECT. CORRECT AND RE-ENTER.*
01421  M01S01404.lo72    +++|          CON    0
01422  M01S01405.lo72    +++|****
01423  M01S01406.lo72    +++|          SPACE  4
01424  M01S01407.lo72    +++|
01425  M01S01408.lo72    +++|**        SFP - SET FET PARAMETERS
01426  M01S01409.lo72    +++|*         ENTRY- (B1) = 1.
01427  M01S01410.lo72    +++|*                (A1) = ADDRESS OF FILE NAME.
01428  M01S01411.lo72    +++|*                (X1) = FILE NAME.
01429  M01S01412.lo72    +++|*         USES-  X - 2, 6.
01430  M01S01413.lo72    +++|*                B - NONE.
01431  M01S01414.lo72    +++|*                A - 2, 6.
01432  M01S01415.lo72    +++|*
01433  M01S01416.lo72    +++|*         SETS A 1 IN BIT ZERO OF WORD 1 IF NEEDED AND RESETS
01434  M01S01417.lo72    +++|*         IN = OUT = FIRST.
01435  M01S01418.lo72    +++|*
01436  M01S01419.lo72    +++|
01437  M01S01420.lo72    +++|
01438  M01S01421.lo72    +++| SFP      SUBR                     ENTRY/EXIT
01439  M01S01422.lo72    +++|          BX6    X1
01440  M01S01423.lo72    +++|          LX6    59
01441  M01S01424.lo72    +++|          NG     X6,SFP1           IF BIT ZERO SET
01442  M01S01425.lo72    +++|          SX2    B1
01443  M01S01426.lo72    +++|          LX6    1
01444  M01S01427.lo72    +++|          IX6    X6+X2             SET BIT ZERO
01445  M01S01428.lo72    +++|          BX1    X6
01446  M01S01429.lo72    +++|          SA6    A1
01447  M01S01430.lo72    +++| SFP1     SA2    A1+B1             GET FIRST
01448  M01S01431.lo72    +++|          BX6    X2
01449  M01S01432.lo72    +++|          SA6    A2+B1             SET IN = FIRST
01450  M01S01433.lo72    +++|          SA6    A6+B1             SET OUT = FIRST
01451  M01S01434.lo72    +++|          EQ     SFPX              RETURN
01452  M01S01435.lo72    +++|          SPACE  4
01453  M01S01436.lo72    +++|
01454  M01S01437.lo72    +++|**        SOB - STRIP OFF BLANKS
01455  M01S01438.lo72    +++|*         ENTRY- (X1) = DISPLAY CODE WITH TRAILING BLANKS POSSIBLE.
01456  M01S01439.lo72    +++|*                (B1) = 1.
01457  M01S01440.lo72    +++|*                (B3) = RETURN ADDRSS IF ERROR ENCOUNTERED.
01458  M01S01441.lo72    +++|*         USES-  X - 1, 2, 3, 6.
01459  M01S01442.lo72    +++|*                B - 3, 4, 5, 6, 7.
01460  M01S01443.lo72    +++|*                A - 1, 6.
01461  M01S01444.lo72    +++|*         EXIT-  (X6) = SAME DISPLAY CODE EXCEPT ZERO FILLED.
01462  M01S01445.lo72    +++|*
01463  M01S01446.lo72    +++|
01464  M01S01447.lo72    +++|
01465  M01S01448.lo72    +++| SOB      SUBR                     ENTRY/EXIT
01466  M01S01449.lo72    +++|          SX6    B3
01467  M01S01450.lo72    +++|          SA6    SOBC              SAVE ERROR ADDRESS
01468  M01S01451.lo72    +++|          SB4    6
01469  M01S01452.lo72    +++|          SB5    54D               SHIFT COUNTER
01470  M01S01453.lo72    +++|          MX2    54D               SINGLE CHARACTER MASK
01471  M01S01454.lo72    +++|          BX6    X6-X6
01472  M01S01455.lo72    +++|          BX1    X2*X1
01473  M01S01456.lo72    +++| SOB1     LX1    6
01474  M01S01457.lo72    +++|          BX3    -X2*X1            GET A CHARACTER
01475  M01S01458.lo72    +++|          ZR     X3,SOB3           IF NO MORE CHARACTERS
01476  M01S01459.lo72    +++|          SB6    B5-6
01477  M01S01460.lo72    +++|          ZR     B6,SOB6           IF INPUT TOO LONG
01478  M01S01461.lo72    +++|          SB7    X3-1R+
01479  M01S01462.lo72    +++|          NG     B7,SOB2           IF NOT SPECIAL CHARACTER
01480  M01S01463.lo72    +++|          SB7    X3-1R
01481  M01S01464.lo72    +++|          ZR     B7,SOB1           IF SPACE CHARACTER
01482  M01S01465.lo72    +++|          SB7    X3-1R=
01483  M01S01466.lo72    +++|          NZ     B7,SOB4           IF NOT EQUALS(=) CHARACTER
01484  M01S01467.lo72    +++|          SB7    B5-42D
01485  M01S01468.lo72    +++|          NZ     B7,SOB4           IF NOT THE THIRD CHARACTER
01486  M01S01469.lo72    +++| SOB2     SB5    B5-B4
01487  M01S01470.lo72    +++|          BX6    X3+X6             BUILD UP LEGAL INPUT
01488  M01S01471.lo72    +++|          LX6    6
01489  M01S01472.lo72    +++|          EQ     SOB1              LOOP
01490  M01S01473.lo72    +++| SOB3     LX6    B5,X6             LEFT JUSTIFY
01491  M01S01474.lo72    +++|          NZ     X6,SOBX           RETURN IF INPUT GOOD
01492  M01S01475.lo72    +++| SOB4     WRITEC OUT,SOBA
01493  M01S01476.lo72    +++| SOB5     SA1    SOBC
01494  M01S01477.lo72    +++|          SB3    X1                RESET ERROR ADDRESS
01495  M01S01478.lo72    +++|          JP     B3                RETURN TO READ AGAIN
01496  M01S01479.lo72    +++| SOB6     WRITEC OUT,SOBB
01497  M01S01480.lo72    +++|          EQ     SOB5
01498  M01S01481.lo72    +++| SOBA     DIS    3,INPUT ERROR. RE-ENTER SAME PAR
01499  M01S01482.lo72    +++|          VFD    48/8LAMETER. ,12/0
01500  M01S01483.lo72    +++|          DATA   2BS48
01501  M01S01484.lo72    +++| SOBB     DIS    4,PARAMETER TOO LONG. CORRECT AND RE-ENTER
01502  M01S01485.lo72    +++|          VFD    12/2L. ,12/0,12/2,24/0
01503  M01S01486.lo72    +++| SOBC     CON    0
01504  M01S01487.lo72    +++|          SPACE  4
01505  M01S01488.lo72    +++|
01506  M01S01489.lo72    +++|**        DEFAULT VALUES FOR BATCH.
01507  M01S01490.lo72    +++|
01508  M01S01491.lo72    +++| BN1      VFD    60D/2L72
01509  M01S01492.lo72    +++| BN2      DATA   0
01510  M01S01493.lo72    +++| BN3      DATA   0
01511  M01S01494.lo72    +++| BN4      DATA   0
01512  M01S01495.lo72    +++| BN5      DATA   0
01513  M01S01496.lo72    +++| BN6      DATA   0
01514  M01S01497.lo72    +++| BI1      VFD    60D/1L1
01515  M01S01498.lo72    +++| BI2      DATA   0
01516  M01S01499.lo72    +++| BI3      DATA   0
01517  M01S01500.lo72    +++| BI4      DATA   0
01518  M01S01501.lo72    +++| BI5      DATA   0
01519  M01S01502.lo72    +++| BI6      DATA   0
01520  M01S01503.lo72    +++| BO1      VFD    60D/1L1
01521  M01S01504.lo72    +++| BO2      DATA   0
01522  M01S01505.lo72    +++| BO3      DATA   0
01523  M01S01506.lo72    +++| BO4      DATA   0
01524  M01S01507.lo72    +++| BO5      DATA   0
01525  M01S01508.lo72    +++| BO6      DATA   0
01526  M01S01509.lo72    +++|
01527  M01S01510.lo72    +++|**        DEFAULT VALUES FOR COMPASS.
01528  M01S01511.lo72    +++|
01529  M01S01512.lo72    +++| CN1      VFD    60D/1L7
01530  M01S01513.lo72    +++| CN2      VFD    60D/2L50
01531  M01S01514.lo72    +++| CN3      VFD    60D/2L15
01532  M01S01515.lo72    +++| CN4      DATA   0
01533  M01S01516.lo72    +++| CN5      DATA   0
01534  M01S01517.lo72    +++| CN6      DATA   0
01535  M01S01518.lo72    +++| CI1      VFD    60D/1L9
01536  M01S01519.lo72    +++| CI2      VFD    60D/2L41
01537  M01S01520.lo72    +++| CI3      VFD    60D/3L112
01538  M01S01521.lo72    +++| CI4      DATA   0
01539  M01S01522.lo72    +++| CI5      DATA   0
01540  M01S01523.lo72    +++| CI6      DATA   0
01541  M01S01524.lo72    +++| CO1      VFD    60D/1L1
01542  M01S01525.lo72    +++| CO2      VFD    60D/1L8
01543  M01S01526.lo72    +++| CO3      VFD    60D/2L58
01544  M01S01527.lo72    +++| CO4      DATA   0
01545  M01S01528.lo72    +++| CO5      DATA   0
01546  M01S01529.lo72    +++| CO6      DATA   0
01547  M01S01530.lo72    +++|
01548  M01S01531.lo72    +++|**        DEFAULT VALUES FOR MODIFY.
01549  M01S01532.lo72    +++|
01550  M01S01533.lo72    +++| MN1      VFD    60D/1L2
01551  M01S01534.lo72    +++| MN2      VFD    60D/2L48
01552  M01S01535.lo72    +++| MN3      VFD    60D/2L22
01553  M01S01536.lo72    +++| MN4      DATA   0
01554  M01S01537.lo72    +++| MN5      DATA   0
01555  M01S01538.lo72    +++| MN6      DATA   0
01556  M01S01539.lo72    +++| MI1      VFD    60D/1L6
01557  M01S01540.lo72    +++| MI2      VFD    60D/2L10
01558  M01S01541.lo72    +++| MI3      VFD    60D/2L82
01559  M01S01542.lo72    +++| MI4      DATA   0
01560  M01S01543.lo72    +++| MI5      DATA   0
01561  M01S01544.lo72    +++| MI6      DATA   0
01562  M01S01545.lo72    +++| MO1      VFD    60D/1L1
01563  M01S01546.lo72    +++| MO2      VFD    60D/1L3
01564  M01S01547.lo72    +++| MO3      VFD    60D/2L51
01565  M01S01548.lo72    +++| MO4      DATA   0
01566  M01S01549.lo72    +++| MO5      DATA   0
01567  M01S01550.lo72    +++| MO6      DATA   0
01568  M01S01551.lo72    +++| SNX      DATA   0           *NX* VALUE
01569  M01S01552.lo72    +++| SOX      DATA   0           *OX* VALUE
01570  M01S01553.lo72    +++|
01571  M01S01554.lo72    +++|          SPACE  4,10
01572  M01S01555.lo72    +++|**        COMMON DECKS.
01573  M01S01556.lo72    +++|
01574  M01S01557.lo72    +++|
01575  M01S01558.lo72    +++|*CALL     COMCARG
01576  M01S01559.lo72    +++|*CALL     COMCDXB
01577  M01S01560.lo72    +++|*CALL     COMCRDH
01578  M01S01561.lo72    +++|*CALL     COMCSFN
01579  M01S01562.lo72    +++|*CALL     COMCUPC
01580  M01S01563.lo72    +++|
01581  M01S01564.lo72    +++|          END
cdc/nos2.source/opl.opl871/deck/lo72.txt ยท Last modified: by 127.0.0.1