User Tools

Site Tools


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

Deck VFYLIB

12 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.vfylib  +++|          IDENT  VFYLIB,FETS,VFYLIB
00002  M01S00002.vfylib  +++|          ABS
00003  M01S00003.vfylib  +++|          ENTRY  VFYLIB
00004  M01S00004.vfylib  +++|          ENTRY  MFL=
00005  M01S00005.vfylib  +++|          ENTRY  SSM=
00006  M01S00006.vfylib  +++|          SYSCOM B1
00007  M01S00007.vfylib  +++| VFYLIB   TITLE  VFYLIB - VERIFY LIBRARY FILES.
00008  M01S00008.vfylib  +++|*COMMENT  VFYLIB - VERIFY LIBRARY FILES.
Line S00009 Modification History
M01 (Added by) vfylib
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00009.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00010.vfylib  +++| VFYLIB   SPACE  4,10
00012  M01S00011.vfylib  +++|***       VFYLIB - VERIFY LIBRARY FILES.
00013  M01S00012.vfylib  +++|*         D. A. CAHLANDER.   69/02/16.
00014  M01S00013.vfylib  +++|*         P. D. HAAS.        73/10/10.
00015  M01S00014.vfylib  +++|*         A. D. FORET.       75/02/10.
00016  M01S00015.vfylib  +++|          SPACE  4
00017  M01S00016.vfylib  +++|***       VFYLIB COMPARES TWO LIBRARY FILES.  REPLACEMENTS, DELETIONS,
00018  M01S00017.vfylib  +++|*         INSERTIONS, AND CHANGES IN RESIDENCE ARE RECORDED ON FILE
00019  M01S00018.vfylib  +++|*         *OUTPUT*.
00020  M01S00019.vfylib  +++|          SPACE  4
Line S00020 Modification History
M01 (Added by) vfylib
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00020.v23l617 ---|***       CONTROL CARD CALL.
00022  M01S00001.v23l617 +++|***       COMMAND.
00023  M01S00021.vfylib  +++|*
00024  M01S00022.vfylib  +++|*                VFYLIB(OLD,NEW,OUTPUT,NR)
00025  M01S00023.vfylib  +++|*
00026  M01S00024.vfylib  +++|*                OLD = OLD LIBRARY FILE (*OLD* ASSUMED).
00027  M01S00025.vfylib  +++|*                NEW = NEW LIBRARY FILE (*NEW* ASSUMED).
00028  M01S00026.vfylib  +++|*                OUTPUT = OUTPUT FILE (*OUTPUT* ASSUMED).
00029  M01S00027.vfylib  +++|*                NR, IF SPECIFIED, OLD AND NEW ARE NOT REWOUND.
00030  M01S00028.vfylib  +++|          SPACE  4,20
00031  M01S00029.vfylib  +++|***       DAYFILE MESSAGES.
00032  M01S00030.vfylib  +++|*
00033  M01S00031.vfylib  +++|*         * FWA/LWA ERROR IN VFYLIB. * - FWA OF PROGRAM TEXT
00034  M01S00032.vfylib  +++|*           IS LESS THAN THE LWA + 1 OF PROGRAM TEXT.
00035  M01S00033.vfylib  +++|*
Line S00034 Modification History
M01 (Added by) vfylib
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00034.v23l617 ---|*         * ILLEGAL DEVICE TYPE -- LFN = XX. * - DISPLAYS ILLEGAL
00037  M01S00002.v23l617 +++|*         * UNKNOWN DEVICE TYPE -- LFN = XX. * - DISPLAYS UNKNOWN
00038  M01S00035.vfylib  +++|*           DEVICE TYPE.
00039  M01S00036.vfylib  +++|*
00040  M01S00037.vfylib  +++|*         * TABLE OVERFLOW. JOB ABORTED. * - INSUFFICIENT FIELD LENGTH.
00041  M01S00038.vfylib  +++|*
00042  M01S00039.vfylib  +++|*         * VERIFY GOOD. * - THE TWO FILES VERIFIED GOOD.
00043  M01S00040.vfylib  +++|*
00044  M01S00041.vfylib  +++|*         * VFYLIB COMPLETE. * - NORMAL TERMINATION MESSAGE.  THE
00045  M01S00042.vfylib  +++|*           DIFFERENCES BETWEEN *OLD* AND *NEW* FILES ARE LISTED
00046  M01S00043.vfylib  +++|*           ON THE OUTPUT FILE SPECIFIED.
00047  M01S00044.vfylib  +++|*
00048  M01S00045.vfylib  +++|*         * XXXXXX FIELD LENGTH REQUIRED. * - FIELD LENGTH REQUIRED.
00049  M01S00046.vfylib  +++|          SPACE  4
00050  M01S00047.vfylib  +++|****      ASSEMBLY CONSTANTS.
00051  M01S00048.vfylib  +++|
00052  M01S00049.vfylib  +++|
Line S00050 Modification History
M01 (Added by) vfylib
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00050.274l797 ---| OLDL     EQU    4011B       *OLD* BUFFER LENGTH
Line S00051 Modification History
M01 (Added by) vfylib
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00051.274l797 ---| NEWL     EQU    4011B       *NEW* BUFFER LENGTH
00055  M01S00001.274l797 +++| OLDL     EQU    30061B      *OLD* BUFFER LENGTH
00056  M01S00002.274l797 +++| NEWL     EQU    30061B      *NEW* BUFFER LENGTH
Line S00052 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00052.vfyli5  ---| ENTL     EQU    4           NUMBER OF WORDS/ENTRY IN *OPT* AND *NPT*
00058  M01S00001.vfyli5  +++| ENTL     EQU    5           NUMBER OF WORDS/ENTRY IN *OPT* AND *NPT*
00059  M01S00053.vfylib  +++| OUTL     EQU    2010B       *OUTPUT* BUFFER LENGTH
00060  M01S00054.vfylib  +++| MINBL    EQU    4000B       MINIMUM BUFFER LENGTH
00061  M01S00001.vfyli3  +++| MINC     EQU    1000B       MEMORY REQUEST INCREMENT
00062  M01S00003.274l797 +++| ODEBL    EQU    16          LENGTH OF OD FET EXTENSION
00063  M01S00055.vfylib  +++|****
00064  M01S00056.vfylib  +++|
00065  M01S00057.vfylib  +++|
00066  M01S00058.vfylib  +++|*         SPECIAL ENTRY POINT.
00067  M01S00059.vfylib  +++|
00068  M01S00060.vfylib  +++| SSM=     EQU    0           SUPPRESS DUMPS OF FIELD LENGTH
00069  M01S00061.vfylib  +++|          SPACE  4,10
00070  M01S00062.vfylib  +++|*CALL     COMCMAC
00071  M01S00001.ns22000 +++|*CALL     COMCCMD
00072  M01S00001.251l664 +++|*CALL     COMSSRT
00073  M01S00063.vfylib  +++|          TITLE  TABLE STRUCTURE.
00074  M01S00064.vfylib  +++|**        TABLE STRUCTURE.
00075  M01S00065.vfylib  +++|*         ALL TABLES ARE VARIABLE LENGTH MANAGED TABLES.  POINTERS
00076  M01S00066.vfylib  +++|*         TO TABLE ABC ARE:
00077  M01S00067.vfylib  +++|*                P.ABC = FWA OF TABLE ABC.
00078  M01S00068.vfylib  +++|*                L.ABC = LENGTH OF TABLE ABC.
00079  M01S00069.vfylib  +++|*                N.ABC = NUMBER OF WORDS/ENTRY.
00080  M01S00070.vfylib  +++|*                D.ABC = NUMBER OF WORDS THE LENGTH OF TABLE IS
00081  M01S00071.vfylib  +++|*                        INCREASED IF TABLE IS FULL.
00082  M01S00072.vfylib  +++|*
00083  M01S00073.vfylib  +++|*         OPT - OLD PROGRAM TABLE.
00084  M01S00074.vfylib  +++|*
00085  M01S00075.vfylib  +++|*                42/PROGRAM,12/LIB,6/TYPE
Line S00076 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00076.vfyli5  ---|*                30/CHECKSUM,30/INDEX
00087  M01S00002.vfyli5  +++|*                12/CHECKSUM,18/0,30/INDEX
00088  M01S00077.vfylib  +++|*                60/ULIB
00089  M01S00078.vfylib  +++|*                60/DATE
00090  M01S00079.vfylib  +++|*                  1. PROGRAM = PROGRAM NAME LEFT JUSTIFIED.
00091  M01S00080.vfylib  +++|*                  2. LIB = LIBRARY NUMBER.
Line S00081 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00081.vfyli5  ---|*                  3. TYPE = PROGRAM TYPE.
Line S00082 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00082.vfyli5  ---|*                    0 = *TEXT*
Line S00083 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00094  M02S00083.vfyli5  ---|*                    1 = *PP*
Line S00084 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00095  M02S00084.vfyli5  ---|*                    3 = *REL* RELOCATABLE
Line S00085 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00085.vfyli5  ---|*                    4 = *OVL* OVERLAY
Line S00086 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00086.vfyli5  ---|*                    5 = *ULIB* USER LIBRARY
Line S00087 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00087.vfyli5  ---|*                    6 = *OPL* OLD PROGRAM LIBRARY
Line S00088 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00088.vfyli5  ---|*                    7 = *OPLC* OLD PROGRAM LIBRARY COMMON DECK
Line S00089 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00100  M02S00089.vfyli5  ---|*                    8 = *OPLD* OLD PROGRAM LIBRARY DIRECTORY
Line S00090 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00090.vfyli5  ---|*                    9 = *ABS* ABSOLUTE PROGRAM
Line S00091 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00091.vfyli5  ---|*                    10 = *PPU* 7600 PPU PROGRAM
Line S00092 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00092.vfyli5  ---|*                    14 = *CAP* FAST DYNAMIC LOAD CAPSULE
Line S00093 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00093.vfyli5  ---|*                    16 = *PROC* PROCEDURE TYPE RECORD
Line S00002 Modification History
M01 (Added by) 251l664
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00105  M02S00002.vfyli5  ---|*                    20 = *PPL* 16-BIT PP PROGRAM
00106  M01S00003.vfyli5  +++|*                  3. TYPE = PROGRAM TYPE FROM *COMCSRT*.
00107  M01S00094.vfylib  +++|*                  4. CHECKSUM = CHECKSUM OF PROGRAM TEXT.
00108  M01S00095.vfylib  +++|*                  5. INDEX = INDEX TO COMMENT TABLE.
00109  M01S00096.vfylib  +++|*                  6. ULIB = ULIB NAME.
00110  M01S00097.vfylib  +++|*                  7. DATE = DATE FROM 7700 TABLE.
00111  M01S00098.vfylib  +++|*
00112  M01S00099.vfylib  +++|*         NPT - NEW PROGRAM TABLE.
00113  M01S00100.vfylib  +++|*
Line S00101 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00101.vfyli5  ---|*                42/PROGRAM,12/LIB,6/TYPE
Line S00102 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00102.vfyli5  ---|*                30/CHECKSUM,30/INDEX
Line S00103 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00103.vfyli5  ---|*                60/ULIB
Line S00104 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00104.vfyli5  ---|*                60/DATE
00118  M01S00004.vfyli5  +++|*                FORMAT THE SAME AS OLD PROGRAM TABLE.
00119  M01S00105.vfylib  +++|*
00120  M01S00106.vfylib  +++|*         CMT - COMMENT TABLE.
00121  M01S00107.vfylib  +++|*
00122  M01S00108.vfylib  +++|*                60/COMMENT TEXT
00123  M01S00109.vfylib  +++|*                60/COMMENT TEXT
00124  M01S00110.vfylib  +++|*                       ..
00125  M01S00111.vfylib  +++|*                48/COMMENT TEXT,12/0
00126  M01S00112.vfylib  +++|          TITLE  MACRO DEFINITIONS.
00127  M01S00113.vfylib  +++|**        CALL - SUBROUTINE CALL.
00128  M01S00114.vfylib  +++|*
00129  M01S00115.vfylib  +++|*         THIS MACRO SETS UP A STANDARD CALLING SEQUENCE.
00130  M01S00116.vfylib  +++|*
00131  M01S00117.vfylib  +++|*         CALL   SUB,P1,P2,P3,P4,P5,P6
00132  M01S00118.vfylib  +++|*
00133  M01S00119.vfylib  +++|*         ENTRY  SUB = SUBROUTINE NAME.
00134  M01S00120.vfylib  +++|*                PI = ADDRESS OF I-TH PARAMETER.
00135  M01S00121.vfylib  +++|*         PARAMETER ADDRESSES ARE PASSED IN B-REGISTERS (AS IN FORTRAN)
00136  M01S00122.vfylib  +++|*         WITH THE FIRST PARAMETER ADDRESS IN B2, SECOND IN B3, ETC.
00137  M01S00123.vfylib  +++|
00138  M01S00124.vfylib  +++|
00139  M01S00125.vfylib  +++| CALL     MACRO  SUB,P1,P2,P3,P4,P5,P6
00140  M01S00126.vfylib  +++|          IFC    NE,$P1$$,1
00141  M01S00127.vfylib  +++|          R=     B2,P1
00142  M01S00128.vfylib  +++|          IFC    NE,$P2$$,1
00143  M01S00129.vfylib  +++|          R=     B3,P2
00144  M01S00130.vfylib  +++|          IFC    NE,$P3$$,1
00145  M01S00131.vfylib  +++|          R=     B4,P3
00146  M01S00132.vfylib  +++|          IFC    NE,$P4$$,1
00147  M01S00133.vfylib  +++|          R=     B5,P4
00148  M01S00134.vfylib  +++|          IFC    NE,$P5$$,1
00149  M01S00135.vfylib  +++|          R=     B6,P5
00150  M01S00136.vfylib  +++|          IFC    NE,$P6$$,1
00151  M01S00137.vfylib  +++|          R=     B7,P6
00152  M01S00138.vfylib  +++|          ENDIF
00153  M01S00139.vfylib  +++|          RJ     SUB
00154  M01S00140.vfylib  +++|          ENDM
00155  M01S00141.vfylib  +++|          SPACE  4
00156  M01S00142.vfylib  +++|**        TABLE - DEFINE MANAGED TABLE POINTERS.
00157  M01S00143.vfylib  +++|*
00158  M01S00144.vfylib  +++|*         MANAGED TABLES HAVE 4 POINTERS ASSOCIATED WITH THEM:
00159  M01S00145.vfylib  +++|*         (P.NAME) = FWA OF MANAGED TABLE.
00160  M01S00146.vfylib  +++|*         (L.NAME) = LENGTH OF MANAGED TABLE.
00161  M01S00147.vfylib  +++|*         (N.NAME) = NUMBER OF WORDS IN AN ENTRY.
00162  M01S00148.vfylib  +++|*         (D.NAME) = NUMBER OF WORDS THE LENGTH OF TABLE IS
00163  M01S00149.vfylib  +++|*                    INCREASED IF TABLE IS FULL.
00164  M01S00150.vfylib  +++|*
00165  M01S00151.vfylib  +++|*         TABLE  NAME,WORD,DELTA
00166  M01S00152.vfylib  +++|*
00167  M01S00153.vfylib  +++|*         ENTRY  NAME = NAME OF TABLE.
00168  M01S00154.vfylib  +++|*                WORD = NUMBER OF WORDS/ENTRY.
00169  M01S00155.vfylib  +++|*                DELTA = SIZE OF TABLE INCREASE (NUMBER OF ENTRIES).
00170  M01S00156.vfylib  +++|
00171  M01S00157.vfylib  +++|
00172  M01S00158.vfylib  +++| TABLE    MACRO  NAME,WORD,DELTA
00173  M01S00159.vfylib  +++|          LOCAL  NW,DW
00174  M01S00160.vfylib  +++| NW       SET    WORD   1
00175  M01S00161.vfylib  +++| DW       SET    DELTA  4
00176  M01S00162.vfylib  +++| P.NAME   VFD    42D/0L_NAME,18D/BUF
00177  M01S00163.vfylib  +++| L.NAME   VFD    60D/0
00178  M01S00164.vfylib  +++| N.NAME   VFD    60D/NW
00179  M01S00165.vfylib  +++| D.NAME   VFD    60D/NW*DW
00180  M01S00166.vfylib  +++|          ENDM
00181  M01S00167.vfylib  +++|          SPACE  4
00182  M01S00168.vfylib  +++|**        SEARCH - SEARCH FOR ENTRY IN MANAGED TABLE.
00183  M01S00169.vfylib  +++|*
00184  M01S00170.vfylib  +++|*         THIS MACRO SETS UP A CALL TO SEARCH FOR AN ENTRY
00185  M01S00171.vfylib  +++|*         IN A MANAGED TABLE.
00186  M01S00172.vfylib  +++|*
00187  M01S00173.vfylib  +++|*         SEARCH TABLE,ENTRY,MASK,INDEX,RETURN
00188  M01S00174.vfylib  +++|*
00189  M01S00175.vfylib  +++|*         ENTRY  TABLE = NAME OF MANAGED TABLE.
00190  M01S00176.vfylib  +++|*                ENTRY = ADDRESS OF ENTRY.
00191  M01S00177.vfylib  +++|*                MASK = ADDRESS OF SEARCH MASK.
00192  M01S00178.vfylib  +++|*                INDEX = INDEX INTO TABLE.
00193  M01S00179.vfylib  +++|*                RETURN = ADDRESS OF RETURN PARAMETER.
00194  M01S00180.vfylib  +++|
00195  M01S00181.vfylib  +++|
00196  M01S00182.vfylib  +++| SEARCH   MACRO TABLE,ENTRY,MASK,INDEX,RETURN
00197  M01S00183.vfylib  +++|          SB2    P.TABLE
00198  M01S00184.vfylib  +++|          SB3    ENTRY
00199  M01S00185.vfylib  +++|          SB4    MASK   =77777777777777777777B
00200  M01S00186.vfylib  +++|          SB5    INDEX  B0
00201  M01S00187.vfylib  +++|          SB6    RETURN SMTA
00202  M01S00188.vfylib  +++|          RJ     SMT
00203  M01S00189.vfylib  +++|          ENDM
00204  M01S00190.vfylib  +++| READW    SPACE  4
00205  M01S00191.vfylib  +++|**        READW - REDEFINE READ WORDS MACRO TO USE CONTROL WORDS.
00206  M01S00192.vfylib  +++|
00207  M01S00193.vfylib  +++|
00208  M01S00194.vfylib  +++|          PURGMAC READW
00209  M01S00195.vfylib  +++|
00210  M01S00196.vfylib  +++| READW    MACRO F,S,N
00211  M01S00197.vfylib  +++|          R=     B6,S
00212  M01S00198.vfylib  +++|          R=     B7,N
00213  M01S00199.vfylib  +++|          R=     X2,F
00214  M01S00200.vfylib  +++|          RJ     RDA
00215  M01S00201.vfylib  +++|          ENDM
00216  M01S00202.vfylib  +++|          TITLE  FETS AND TEMPORARY STORAGE.
00217  M01S00203.vfylib  +++| FETS     SPACE  4,10
00218  M01S00204.vfylib  +++|**        FETS.
00219  M01S00205.vfylib  +++|
00220  M01S00206.vfylib  +++|
Line S00207 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00221  M02S00207.vfyli5  ---|          ORG    110B
00222  M01S00005.vfyli5  +++|          ORG    104B
00223  M01S00208.vfylib  +++| FETS     BSS    0
00224  M01S00209.vfylib  +++|
00225  M01S00210.vfylib  +++|          CON    -0
00226  M01S00211.vfylib  +++|          CON    0
Line S00212 Modification History
M01 (Added by) vfylib
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00212.274l797 ---| OLD      FILEB  OLDB,OLDL
00228  M01S00004.274l797 +++| OLD      FILEB  OLDB,OLDL,(FET=10)
00229  M01S00005.274l797 +++|          ORG    OLD+11B
00230  M01S00006.274l797 +++|          VFD    36/,6/ODEBL,18/OODEB POINTER TO *OD* EXT. BUFFER
00231  M01S00007.274l797 +++|          ORG    OLD+10
00232  M01S00213.vfylib  +++|
00233  M01S00214.vfylib  +++|          CON    -0
00234  M01S00215.vfylib  +++|          CON    0
Line S00216 Modification History
M01 (Added by) vfylib
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00216.274l797 ---| NEW      FILEB  NEWB,NEWL
00236  M01S00008.274l797 +++| NEW      FILEB  NEWB,NEWL,(FET=10)
00237  M01S00009.274l797 +++|          ORG    NEW+11B
00238  M01S00010.274l797 +++|          VFD    36/,6/ODEBL,18/NODEB POINTER TO *OD* EXT. BUFFER
00239  M01S00011.274l797 +++|          ORG    NEW+10
00240  M01S00217.vfylib  +++|
00241  M01S00218.vfylib  +++| O        BSS    0
Line S00219 Modification History
M01 (Added by) vfylib
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00219.ns22000 ---| OUTPUT   FILEC  OUTB,OUTL
00243  M01S00002.ns22000 +++| OUTPUT   FILEC  OUTB,OUTL,(FET=8)
00244  M01S00220.vfylib  +++| TEMP     SPACE  4,10
00245  M01S00012.274l797 +++|*         OPTICAL DISK EXTENSION BUFFERS.
00246  M01S00013.274l797 +++|
00247  M01S00014.274l797 +++| OODEB    BSSZ   ODEBL       *OLD*
00248  M01S00015.274l797 +++| NODEB    BSSZ   ODEBL       *NEW*
00249  M01S00221.vfylib  +++|**        TEMPORARY STORAGE.
00250  M01S00222.vfylib  +++|
00251  M01S00223.vfylib  +++|
00252  M01S00224.vfylib  +++| CREW     CON    0           CLEAR REWIND FLAG
Line S00225 Modification History
M01 (Added by) vfylib
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00253  M02S00225.ns22000 ---| LINE     CON    LINP        LINE NUMBER COUNT
00254  M01S00003.ns22000 +++| LINE     CON    99999,0     LINE NUMBER COUNT
00255  M01S00004.ns22000 +++| LL       EQU    LINE+1      LINE LIMIT - PAGE SIZE
00256  M01S00005.ns22000 +++| PD       CON    0,0         PRINT DENSITY FORMAT CONTROL
00257  M01S00006.ns22000 +++| TF       EQU    PD+1        TERMINAL FILE FLAG
00258  M01S00001.vfyli1  +++| PNUM     CON    0           PAGE NUMBER
00259  M01S00002.vfyli3  +++| CFL      CON    0           CURRENT FIELD LENGTH
00260  M01S00003.vfyli3  +++| MFL      VFD    30/-0,30/0  MAXIMUM FIELD LENGTH
00261  M01S00226.vfylib  +++|          TITLE  MAIN PROGRAM.
00262  M01S00227.vfylib  +++|**        VFYLIB - VERIFY LIBRARY FILES.
00263  M01S00228.vfylib  +++|*
00264  M01S00229.vfylib  +++|*         ENTRY  (ACTR) - ARGUMENT COUNT.
00265  M01S00230.vfylib  +++|*                1. FILE *OLD* AND *NEW* ARE READ TO CREATE DICTIONARY.
00266  M01S00231.vfylib  +++|*                2. REPLACEMENTS AND COPIES ARE CHECKED.
00267  M01S00232.vfylib  +++|*                3. RESIDENCE CHANGES ARE FOUND.
00268  M01S00233.vfylib  +++|*                4. DELETIONS ARE FOUND.
00269  M01S00234.vfylib  +++|*                5. INSERTIONS ARE FOUND.
00270  M01S00235.vfylib  +++|*
00271  M01S00236.vfylib  +++|*         USES   A - 1, 2, 6.
00272  M01S00237.vfylib  +++|*                B - 6.
00273  M01S00238.vfylib  +++|*                X - 0, 1, 2, 3, 6.
00274  M01S00239.vfylib  +++|*
00275  M01S00240.vfylib  +++|*         CALLS  ARG, CDP, COD, CRC, CRP, PRS, RDF.
00276  M01S00241.vfylib  +++|*
00277  M01S00242.vfylib  +++|*         MACROS CALL, ENDRUN, MESSAGE, REWIND, WRITER.
00278  M01S00243.vfylib  +++|
00279  M01S00244.vfylib  +++|
Line S00245 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00280  M02S00245.vfyli5  ---| VFYLIB   SB1    1
00281  M01S00006.vfyli5  +++| VFYLIB   BSS    0           ENTRY
00282  M01S00007.vfyli5  +++|          SB1    1           (B1) = 1
Line S00246 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00246.vfyli3  ---|          CALL   PRS         PRESET PROGRAM
Line S00247 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00284  M02S00247.vfyli3  ---| VFY1     SA6    B6          CLEAR BUFFER AREA
Line S00248 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00285  M02S00248.vfyli3  ---|          SB6    B6+B1
Line S00249 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00286  M02S00249.vfyli3  ---|          NE     B6,B7,VFY1  IF NOT COMPLETE
Line S00250 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00250.vfyli3  ---|          CALL   ARG         PROCESS ARGUMENTS
Line S00251 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00288  M02S00251.vfyli3  ---|          CALL   RDF         READ FILES
00289  M01S00004.vfyli3  +++|          RJ     PRS         PRESET PROGRAM
00290  M01S00005.vfyli3  +++|          RJ     ARG         PROCESS ARGUMENTS
00291  M01S00006.vfyli3  +++|          RJ     RDF         READ FILES
00292  M01S00252.vfylib  +++|          SX6    VFYA
00293  M01S00253.vfylib  +++|          SA6    OPND
Line S00254 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00254.vfyli5  ---|          CALL   CRP         CHECK REPLACED PROGRAMS
00295  M01S00008.vfyli5  +++|          RJ     CRP         CHECK REPLACED PROGRAMS
00296  M01S00255.vfylib  +++|          SX6    VFYB
00297  M01S00256.vfylib  +++|          SA6    OPND
Line S00257 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00298  M02S00257.vfyli5  ---|          CALL   CRC         CHECK RESIDENCE CHANGES
00299  M01S00009.vfyli5  +++|          RJ     CRC         CHECK RESIDENCE CHANGES
00300  M01S00258.vfylib  +++|          SX6    VFYC
00301  M01S00259.vfylib  +++|          SA6    OPND
00302  M01S00260.vfylib  +++|          CALL   CDP,(P.OPT) CHECK DELETED PROGRAMS
00303  M01S00261.vfylib  +++|          SX6    VFYD
00304  M01S00262.vfylib  +++|          SA6    OPND
00305  M01S00263.vfylib  +++|          CALL   CDP,(P.NPT) CHECK INSERTED PROGRAMS
00306  M01S00264.vfylib  +++|
00307  M01S00265.vfylib  +++|*         END PROGRAM.
00308  M01S00266.vfylib  +++|
00309  M01S00267.vfylib  +++|          SA1    P.BUF       ISSUE F.L. MESSAGE
00310  M01S00268.vfylib  +++|          MX0    -18
00311  M01S00269.vfylib  +++|          BX1    -X0*X1
00312  M01S00270.vfylib  +++|          RJ     COD
00313  M01S00271.vfylib  +++|          SA2    VFYE
00314  M01S00272.vfylib  +++|          MX1    6*6         BUILD FL REQUIRED MESSAGE
00315  M01S00273.vfylib  +++|          BX3    X1*X4
00316  M01S00274.vfylib  +++|          BX6    -X1*X2
00317  M01S00275.vfylib  +++|          BX6    X6+X3
00318  M01S00276.vfylib  +++|          SA6    A2
00319  M01S00277.vfylib  +++|          MESSAGE A6,3       FL REQUIRED
Line S00278 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
00320  M02S00278.vfyli1  ---|          SA1    OUTPUT+2    CLOSE OUT FILE *OUTPUT*
00321  M01S00002.vfyli1  +++|          SA1    PNUM        CHECK FOR PAGE NUMBER
00322  M01S00279.vfylib  +++|          SX0    =C* VERIFY GOOD.*
Line S00280 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
00323  M02S00280.vfyli1  ---|          SA2    A1+B1
Line S00281 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
00324  M02S00281.vfyli1  ---|          BX6    X1-X2
Line S00282 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
00325  M02S00282.vfyli1  ---|          ZR     X6,VFY2     IF NO OUTPUT
00326  M01S00003.vfyli1  +++|          ZR     X1,VFY2     IF NO PAGE NUMBER DETECTED
00327  M01S00283.vfylib  +++|          SX0    =C* VFYLIB COMPLETE.*
00328  M01S00284.vfylib  +++|          WRITER OUTPUT
00329  M01S00285.vfylib  +++| VFY2     SA1    CREW
00330  M01S00286.vfylib  +++|          NZ     X1,VFY3     IF NO REWIND FLAG SET
00331  M01S00287.vfylib  +++|          REWIND OLD
00332  M01S00288.vfylib  +++|          REWIND NEW
00333  M01S00289.vfylib  +++| VFY3     MESSAGE X0+
00334  M01S00290.vfylib  +++|          ENDRUN
00335  M01S00291.vfylib  +++|
Line S00292 Modification History
M01 (Added by) vfylib
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00336  M02S00292.ns22000 ---| VFYA     DATA   C*0     RECORDS REPLACED.*
00337  M01S00007.ns22000 +++| VFYA     DATA   C*      RECORDS REPLACED.*
00338  M01S00293.vfylib  +++|
Line S00294 Modification History
M01 (Added by) vfylib
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00339  M02S00294.ns22000 ---| VFYB     DATA   C*0     CHANGES IN RESIDENCE.*
00340  M01S00008.ns22000 +++| VFYB     DATA   C*      CHANGES IN RESIDENCE.*
00341  M01S00295.vfylib  +++|
Line S00296 Modification History
M01 (Added by) vfylib
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00296.ns22000 ---| VFYC     DATA   C*0     DELETED PROGRAMS.*
Line S00009 Modification History
M01 (Added by) ns22000
M02 (Updated by) vfyli6
Seq #  *Modification Id* Act 
----------------------------+
00343  M02S00009.vfyli6  ---| VFYC     DATA   C*      DELETED PROGRAMS.*
00344  M01S00001.vfyli6  +++| VFYC     DATA   C*      DELETED RECORDS.*
00345  M01S00297.vfylib  +++|
Line S00298 Modification History
M01 (Added by) vfylib
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00346  M02S00298.ns22000 ---| VFYD     DATA   C*0     INSERTED PROGRAMS.*
Line S00010 Modification History
M01 (Added by) ns22000
M02 (Updated by) vfyli6
Seq #  *Modification Id* Act 
----------------------------+
00347  M02S00010.vfyli6  ---| VFYD     DATA   C*      INSERTED PROGRAMS.*
00348  M01S00002.vfyli6  +++| VFYD     DATA   C*      INSERTED RECORDS.*
00349  M01S00299.vfylib  +++|
00350  M01S00300.vfylib  +++| VFYE     DATA   C*NNNNNN FIELD LENGTH REQUIRED.*
00351  M01S00301.vfylib  +++|          TITLE  SUBROUTINES.
00352  M01S00302.vfylib  +++|**        ABT - ABORT JOB.
00353  M01S00303.vfylib  +++|*
00354  M01S00010.vfyli5  +++|*         ENTRY  (X1) = ADDRESS OF MESSAGE.
00355  M01S00011.vfyli5  +++|*
00356  M01S00304.vfylib  +++|*         USES   A - 1, 2.
00357  M01S00305.vfylib  +++|*                X - 1, 2, 6.
00358  M01S00306.vfylib  +++|*
Line S00307 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00359  M02S00307.vfyli5  ---|*         MACROS ABORT, WRITER.
00360  M01S00012.vfyli5  +++|*         MACROS ABORT, MESSAGE, WRITER.
00361  M01S00308.vfylib  +++|
00362  M01S00309.vfylib  +++|
00363  M01S00310.vfylib  +++| ABT      SUBR               ENTRY/EXIT
00364  M01S00013.vfyli5  +++|          MESSAGE X1         ISSUE ERROR MESSAGE
00365  M01S00311.vfylib  +++|          SA1    OUTPUT+2    CLOSE OUT FILE *OUTPUT*
00366  M01S00312.vfylib  +++|          SA2    A1+B1
00367  M01S00313.vfylib  +++|          BX6    X1-X2
00368  M01S00314.vfylib  +++|          ZR     X6,ABT1     IF NO OUTPUT
00369  M01S00315.vfylib  +++|          WRITER OUTPUT
00370  M01S00316.vfylib  +++| ABT1     ABORT
00371  M01S00317.vfylib  +++|          SPACE  4
00372  M01S00318.vfylib  +++|**        ADD - ADD WORD(S) TO MANAGED TABLE.
00373  M01S00319.vfylib  +++|*
00374  M01S00320.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF TABLE POINTER.
00375  M01S00321.vfylib  +++|*                (B3) = FWA OF ENTRY.
00376  M01S00322.vfylib  +++|*
00377  M01S00323.vfylib  +++|*         USES   A - 1, 2, 3, 4, 5, 7.
00378  M01S00324.vfylib  +++|*                B - 4, 5, 6, 7.
00379  M01S00325.vfylib  +++|*                X - 1, 2, 3, 4, 5, 6, 7.
00380  M01S00326.vfylib  +++|*
00381  M01S00327.vfylib  +++|*         CALLS  ABT.
00382  M01S00328.vfylib  +++|*
Line S00329 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00329.vfyli3  ---|*         MACROS CALL, MESSAGE.
Line S00007 Modification History
M01 (Added by) vfyli3
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00007.vfyli5  ---|*         MACROS CALL, MEMORY, MESSAGE.
00385  M01S00014.vfyli5  +++|*         MACROS MEMORY.
00386  M01S00330.vfylib  +++|
00387  M01S00331.vfylib  +++|
00388  M01S00332.vfylib  +++| ADD      SUBR               ENTRY/EXIT
00389  M01S00333.vfylib  +++| ADD1     SA1    B2          SET TABLE ADDRESS
00390  M01S00334.vfylib  +++|          SA2    B2+B1
00391  M01S00335.vfylib  +++|          SA3    A2+B1
00392  M01S00336.vfylib  +++|          SA4    A3+B1
00393  M01S00337.vfylib  +++|          SA5    A4+B1
00394  M01S00338.vfylib  +++|          IX7    X2+X3
00395  M01S00339.vfylib  +++|          IX7    X7-X5
00396  M01S00340.vfylib  +++|          SB6    X1
00397  M01S00341.vfylib  +++|          SX6    B6+X7
00398  M01S00342.vfylib  +++|          PL     X6,ADD3     IF NO ROOM FOR ENTRY
00399  M01S00343.vfylib  +++|          SA1    B3          STORE ENTRY
00400  M01S00344.vfylib  +++| ADD2     BX7    X1
00401  M01S00345.vfylib  +++|          SA7    B6+X2
00402  M01S00346.vfylib  +++|          SX2    X2+B1
00403  M01S00347.vfylib  +++|          SA1    A1+B1
00404  M01S00348.vfylib  +++|          SX3    X3-1
00405  M01S00349.vfylib  +++|          NZ     X3,ADD2     LOOP FOR ENTIRE ENTRY
00406  M01S00350.vfylib  +++|          BX7    X2
00407  M01S00351.vfylib  +++|          SA7    A2
00408  M01S00352.vfylib  +++|          EQ     ADDX        RETURN
00409  M01S00353.vfylib  +++|
00410  M01S00354.vfylib  +++|*         NO ROOM FOR ENTRY.  MOVE OTHER TABLES UP TO MAKE ROOM FOR
00411  M01S00355.vfylib  +++|*         ENTRY.
00412  M01S00356.vfylib  +++|
00413  M01S00357.vfylib  +++| ADD3     SA1    P.BUF
00414  M01S00358.vfylib  +++|          SA2    L.BUF
00415  M01S00359.vfylib  +++|          IX6    X2-X4
00416  M01S00360.vfylib  +++|          PL     X6,ADD4     IF ENOUGH FL
Line S00361 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00361.vfyli3  ---|          MESSAGE (=C*TABLE OVERFLOW. JOB ABORTED.*)
Line S00362 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli3
Seq #  *Modification Id* Act 
----------------------------+
00418  M02S00362.vfyli3  ---|          CALL   ABT         ABORT JOB
00419  M01S00008.vfyli3  +++|          SA1    CFL         INCREMENT CURRENT FIELD LENGTH
00420  M01S00009.vfyli3  +++|          SA3    MFL         FIELD LENGTH LIMIT
00421  M01S00010.vfyli3  +++|          SX6    X1+MINC     NEW FIELD LENGTH
00422  M01S00011.vfyli3  +++|          SX7    X2+MINC     NEW LENGTH
00423  M01S00012.vfyli3  +++|          AX3    30
00424  M01S00013.vfyli3  +++|          SA6    A1
00425  M01S00014.vfyli3  +++|          SA7    A2+
00426  M01S00015.vfyli3  +++|          IX3    X3-X6
Line S00016 Modification History
M01 (Added by) vfyli3
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00427  M02S00016.vfyli5  ---|          NG     X3,ADD7     IF INSUFFICIENT FIELD LENGTH
00428  M01S00015.vfyli5  +++|          NG     X3,ADD8     IF INSUFFICIENT FIELD LENGTH
00429  M01S00017.vfyli3  +++|          BX1    X6
00430  M01S00018.vfyli3  +++|          MEMORY CM,,R,X1
00431  M01S00019.vfyli3  +++|          EQ     ADD1        RESTART ALLOCATION
00432  M01S00363.vfylib  +++|
00433  M01S00364.vfylib  +++| ADD4     SB5    X1          (B5) = LWA OF MOVE
00434  M01S00365.vfylib  +++|          SB6    X5          (B6) = FWA OF MOVE
00435  M01S00366.vfylib  +++|          SA6    A2
00436  M01S00367.vfylib  +++|          SB4    A1
00437  M01S00368.vfylib  +++| ADD5     SA1    B4          INCREMENT TABLE POINTERS
00438  M01S00369.vfylib  +++|          SB4    B4-4
00439  M01S00370.vfylib  +++|          IX7    X1+X4
00440  M01S00371.vfylib  +++|          SA7    A1
00441  M01S00372.vfylib  +++|          NE     B4,B2,ADD5  LOOP
00442  M01S00373.vfylib  +++|          SA2    B5
00443  M01S00374.vfylib  +++|          EQ     B5,B6,ADD1  JUMP IF NO DATA TO MOVE
00444  M01S00375.vfylib  +++|          SB7    X4+
00445  M01S00376.vfylib  +++| ADD6     SA1    A2-B1       MOVE TABLES
00446  M01S00377.vfylib  +++|          SA2    A1-B1
00447  M01S00378.vfylib  +++|          SB5    B5-2
00448  M01S00379.vfylib  +++|          BX6    X1
00449  M01S00380.vfylib  +++|          LX7    X2
00450  M01S00381.vfylib  +++|          SA6    A1+B7
00451  M01S00382.vfylib  +++|          SA7    A2+B7
00452  M01S00383.vfylib  +++|          NE     B5,B6,ADD6
00453  M01S00384.vfylib  +++|          SX7    B0          CLEAR NEW AREA
00454  M01S00385.vfylib  +++|          SB7    B6+B7
Line S00386 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00386.vfyli5  ---| +        SA7    B6
00456  M01S00016.vfyli5  +++| ADD7     SA7    B6
00457  M01S00387.vfylib  +++|          SB6    B6+B1
Line S00388 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00388.vfyli5  ---|          NE     B6,B7,*
00459  M01S00017.vfyli5  +++|          NE     B6,B7,ADD7  IF NOT END OF CLEAR
00460  M01S00389.vfylib  +++|          EQ     ADD1        MAKE ENTRY
00461  M01S00020.vfyli3  +++|
Line S00021 Modification History
M01 (Added by) vfyli3
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00021.vfyli5  ---| ADD7     MESSAGE (=C*TABLE OVERFLOW. JOB ABORTED.*)
Line S00022 Modification History
M01 (Added by) vfyli3
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00022.vfyli5  ---|          CALL   ABT         ABORT JOB
00464  M01S00018.vfyli5  +++| ADD8     SX1    =C*TABLE OVERFLOW. JOB ABORTED.*
00465  M01S00019.vfyli5  +++|          RJ     ABT         ABORT
00466  M01S00390.vfylib  +++|          SPACE  4
00467  M01S00391.vfylib  +++|**        ARG - PROCESS ARGUMENTS ON CONTROL CARD.
00468  M01S00392.vfylib  +++|*
00469  M01S00393.vfylib  +++|*         USES   A - 1, 2, 3, 4, 6.
00470  M01S00394.vfylib  +++|*                B - 6, 7.
00471  M01S00395.vfylib  +++|*                X - 0, 1, 2, 3, 4, 6.
00472  M01S00396.vfylib  +++|*
Line S00397 Modification History
M01 (Added by) vfylib
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00397.ns22000 ---|*         CALLS  CDT, SFN.
00474  M01S00011.ns22000 +++|*         CALLS  CDT, SFN, STF.
00475  M01S00398.vfylib  +++|*
Line S00399 Modification History
M01 (Added by) vfylib
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00399.ns22000 ---|*         MACROS CALL, OPEN, READCW, RECALL, REWIND.
00477  M01S00012.ns22000 +++|*         MACROS CALL, OPEN, READCW, RECALL, REWIND, WRITEW.
00478  M01S00400.vfylib  +++|
00479  M01S00401.vfylib  +++|
00480  M01S00402.vfylib  +++| ARG      SUBR               ENTRY/EXIT
00481  M01S00403.vfylib  +++|          SA1    ACTR        SET ARGUMENT COUNT
00482  M01S00404.vfylib  +++|          MX0    42
00483  M01S00405.vfylib  +++|          SB7    X1
00484  M01S00406.vfylib  +++|          SA1    ARGR
00485  M01S00407.vfylib  +++|          SA2    ARGA        SET LIST OF OPTIONS
00486  M01S00408.vfylib  +++| ARG1     ZR     B7,ARG3     IF END OF ARGUMENTS
00487  M01S00409.vfylib  +++|          BX6    X0*X1
00488  M01S00410.vfylib  +++|          SA3    X2
00489  M01S00411.vfylib  +++|          SB7    B7-B1
00490  M01S00412.vfylib  +++|          BX3    -X0*X3
00491  M01S00413.vfylib  +++|          ZR     X6,ARG2     IF NO FILE NAME
00492  M01S00414.vfylib  +++|          BX6    X6+X3
00493  M01S00415.vfylib  +++|          SA6    X2
00494  M01S00416.vfylib  +++| ARG2     SA1    A1+B1       READ NEXT PARAMETER
00495  M01S00417.vfylib  +++|          SA2    A2+B1
00496  M01S00418.vfylib  +++|          NZ     X2,ARG1     LOOP FOR NEXT PARAMETER
00497  M01S00013.ns22000 +++|
00498  M01S00014.ns22000 +++|*         SET TERMINAL FLAG.
00499  M01S00015.ns22000 +++|
00500  M01S00016.ns22000 +++| ARG3     SX2    O
00501  M01S00017.ns22000 +++|          RJ     STF         SET TERMINAL FILE
00502  M01S00018.ns22000 +++|          SA6    TF
00503  M01S00019.ns22000 +++|          WRITEW O,A6-B1,X6  CONDITIONALLY WRITE FORMAT EFFECTOR
00504  M01S00419.vfylib  +++|
00505  M01S00420.vfylib  +++|*         STORE FET POINTERS STARTING AT RA+2.
00506  M01S00421.vfylib  +++|
Line S00422 Modification History
M01 (Added by) vfylib
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00422.ns22000 ---| ARG3     SA1    ARGA        SET FET LIST
00508  M01S00020.ns22000 +++|          SA1    ARGA        SET FET LIST
00509  M01S00423.vfylib  +++|          SB6    ARGR
00510  M01S00424.vfylib  +++| ARG4     SA2    X1
00511  M01S00425.vfylib  +++|          BX6    X0*X2
00512  M01S00426.vfylib  +++|          BX6    X6+X1
00513  M01S00427.vfylib  +++|          SA6    B6
00514  M01S00428.vfylib  +++|          SB6    B6+B1
00515  M01S00429.vfylib  +++|          SA1    A1+B1
00516  M01S00430.vfylib  +++|          NZ     X1,ARG4     LOOP FOR ALL FILES
00517  M01S00431.vfylib  +++|          SX6    B0          TERMINATE LIST
00518  M01S00432.vfylib  +++|          SA6    B6
00519  M01S00433.vfylib  +++|
00520  M01S00434.vfylib  +++|*         SET FILE NAMES IN TITLE.
00521  M01S00435.vfylib  +++|
00522  M01S00436.vfylib  +++|          SA2    OLD
00523  M01S00437.vfylib  +++|          BX1    X0*X2
00524  M01S00438.vfylib  +++|          RJ     SFN         SPACE FILL NAME
00525  M01S00439.vfylib  +++|          SX1    1RN&1R
00526  M01S00440.vfylib  +++|          SA2    NEW
00527  M01S00441.vfylib  +++|          BX6    X6-X1
00528  M01S00442.vfylib  +++|          SA6    WPHB+3
00529  M01S00443.vfylib  +++|          BX1    X0*X2
00530  M01S00444.vfylib  +++|          SA4    CREW
00531  M01S00445.vfylib  +++|          RJ     SFN
00532  M01S00446.vfylib  +++|          SA6    WPHB+5
00533  M01S00447.vfylib  +++|          NZ     X4,ARG5     IF NO REWIND FLAG SET
Line S00448 Modification History
M01 (Added by) vfylib
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00534  M02S00448.274l797 ---|          REWIND OLD,R
Line S00449 Modification History
M01 (Added by) vfylib
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00535  M02S00449.274l797 ---|          REWIND NEW
Line S00450 Modification History
M01 (Added by) vfylib
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00536  M02S00450.274l797 ---| ARG5     OPEN   OLD,READNR,R
Line S00451 Modification History
M01 (Added by) vfylib
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00451.274l797 ---|          SA1    OLD+1       CHECK DEVICE TYPE
00538  M01S00016.274l797 +++|          OPEN   OLD,READ,R
00539  M01S00017.274l797 +++|          OPEN   NEW,READ,R
00540  M01S00018.274l797 +++|          EQ     ARG6        CONTINUE
00541  M01S00019.274l797 +++|
00542  M01S00020.274l797 +++| ARG5     OPEN   OLD,READNR,R
00543  M01S00021.274l797 +++|          OPEN   NEW,READNR,R
00544  M01S00022.274l797 +++| ARG6     SA1    OLD+1       CHECK DEVICE TYPE
00545  M01S00452.vfylib  +++|          RJ     CDT
Line S00453 Modification History
M01 (Added by) vfylib
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00546  M02S00453.v23l617 ---|          ZR     X7,IDT      IF ILLEGAL DEVICE
00547  M01S00003.v23l617 +++|          ZR     X7,IDT      IF UNKNOWN DEVICE
00548  M01S00454.vfylib  +++|          READCW OLD,17B
Line S00455 Modification History
M01 (Added by) vfylib
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00549  M02S00455.274l797 ---|          RECALL NEW
Line S00456 Modification History
M01 (Added by) vfylib
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00456.274l797 ---|          OPEN   X2,READNR,R
00551  M01S00457.vfylib  +++|          SA1    NEW+1       CHECK DEVICE TYPE
00552  M01S00458.vfylib  +++|          RJ     CDT
Line S00459 Modification History
M01 (Added by) vfylib
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00553  M02S00459.v23l617 ---|          ZR     X7,IDT      IF ILLEGAL DEVICE
00554  M01S00004.v23l617 +++|          ZR     X7,IDT      IF UNKNOWN DEVICE
00555  M01S00460.vfylib  +++|          READCW NEW,17B
00556  M01S00461.vfylib  +++|          EQ     ARGX        RETURN
00557  M01S00462.vfylib  +++|
00558  M01S00463.vfylib  +++| ARGA     CON    OLD         TABLE OF DEFAULT OPTIONS
00559  M01S00464.vfylib  +++|          CON    NEW
00560  M01S00465.vfylib  +++|          CON    OUTPUT
00561  M01S00466.vfylib  +++|          CON    CREW
00562  M01S00467.vfylib  +++|          CON    0
00563  M01S00468.vfylib  +++|          SPACE  4
00564  M01S00469.vfylib  +++|**        CCM - COPY COMMENT.
00565  M01S00470.vfylib  +++|*
00566  M01S00471.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF FILE PARAMETER AREA.
Line S00472 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00567  M02S00472.vfyli5  ---|*                (B3) = FWA OF PROGRAM TEXT.
00568  M01S00473.vfylib  +++|*                (B4) = ADDRESS OF WORKING STORAGE.
00569  M01S00020.vfyli5  +++|*
00570  M01S00021.vfyli5  +++|*         EXIT   (B3) = FWA OF PROGRAM TEXT.
00571  M01S00474.vfylib  +++|*
00572  M01S00475.vfylib  +++|*         USES   A - 1, 4, 6.
00573  M01S00476.vfylib  +++|*                B - 3, 6.
Line S00477 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00574  M02S00477.vfyli5  ---|*                X - 1, 3, 4, 6.
00575  M01S00022.vfyli5  +++|*                X - 1, 3, 4, 6, 7.
00576  M01S00478.vfylib  +++|*
00577  M01S00479.vfylib  +++|*         CALLS  CPT.
00578  M01S00480.vfylib  +++|
00579  M01S00481.vfylib  +++|
00580  M01S00482.vfylib  +++| CCM      SUBR               ENTRY/EXIT
Line S00483 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00581  M02S00483.vfyli5  ---|          SA4    B2+FPAL-2
00582  M01S00023.vfyli5  +++|          SA4    B2+.TL
00583  M01S00484.vfylib  +++|          SA1    B2+B1       INSERT LIBRARY NUMBER
00584  M01S00485.vfylib  +++|          LX4    6
00585  M01S00486.vfylib  +++|          BX6    X1+X4
00586  M01S00487.vfylib  +++|          SA6    A1
Line S00488 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00587  M02S00488.vfyli5  ---|          MX3    FPAL-7
00588  M01S00024.vfyli5  +++|          MX3    .CL-.RL     CLEAR FILE PARAMETER AREA
00589  M01S00489.vfylib  +++|          BX6    X6-X6
00590  M01S00490.vfylib  +++|          SB6    B2+ENTL+1
00591  M01S00491.vfylib  +++|          SA6    A4-B1       CLEAR FILE PARAMETER AREA
Line S00492 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00592  M02S00492.vfyli5  ---|          SA1    B4
00593  M01S00025.vfyli5  +++|          SX7    X1          SAVE RECORD TYPE
Line S00493 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00594  M02S00493.vfyli5  ---| +        LX3    1
00595  M01S00026.vfyli5  +++| CCM1     LX3    1
00596  M01S00494.vfylib  +++|          SA6    A6-B1
Line S00495 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00597  M02S00495.vfyli5  ---|          NG     X3,*        LOOP
00598  M01S00027.vfyli5  +++|          NG     X3,CCM1     IF NOT END OF CLEAR
00599  M01S00028.vfyli5  +++|          SA1    B4
00600  M01S00496.vfylib  +++|          SB3    B0
Line S00497 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00497.vfyli5  ---|          SA4    A6-B1       RESET (A6)
00602  M01S00029.vfyli5  +++|          SA4    A6          RESET (A6) FOR CPT
00603  M01S00498.vfylib  +++|          LX6    X4
00604  M01S00499.vfylib  +++|          SA6    A4
00605  M01S00030.vfyli5  +++|          ZR     X7,CCM2     IF TYPE TEXT SKIP PREFIX TABLE COMMENTS
00606  M01S00500.vfylib  +++|          RJ     CPT
Line S00501 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00501.vfyli5  ---|          ZR     X6,CCM1     IF LAST WORD EMPTY
00608  M01S00031.vfyli5  +++|          ZR     X6,CCM2     IF LAST WORD EMPTY
00609  M01S00502.vfylib  +++|          SB6    B6-1
Line S00503 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00610  M02S00503.vfyli5  ---| CCM1     SX6    A6-B6       SET COMMENT LENGTH
00611  M01S00032.vfyli5  +++| CCM2     SX6    A6-B6       SET COMMENT LENGTH
00612  M01S00504.vfylib  +++|          SB3    A1+B3
Line S00505 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00613  M02S00505.vfyli5  ---|          NG     X6,CCM      IF NO COMMENTS
Line S00506 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00614  M02S00506.vfyli5  ---|          SA6    B2+FPAL-3
00615  M01S00033.vfyli5  +++|          NG     X6,CCMX     IF NO COMMENTS
00616  M01S00034.vfyli5  +++|          SA6    B2+.CL      STORE COMMENT LENGTH
00617  M01S00507.vfylib  +++|          EQ     CCMX        RETURN
00618  M01S00508.vfylib  +++|          SPACE  4
00619  M01S00509.vfylib  +++|**        CCS - CALCULATE CHECKSUM.
00620  M01S00510.vfylib  +++|*
00621  M01S00511.vfylib  +++|*         CHECKSUM PROGRAM TEXT FROM (B3) TO (B4).
00622  M01S00512.vfylib  +++|*
00623  M01S00513.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF FILE PARAMETER AREA.
00624  M01S00514.vfylib  +++|*                (B3) = FIRST WORD ADDRESS OF PROGRAM TEXT.
00625  M01S00515.vfylib  +++|*                (B4) = LAST WORD ADDRESS + 1 OF PROGRAM TEXT.
00626  M01S00516.vfylib  +++|*
00627  M01S00517.vfylib  +++|*         USES   A - 1, 4, 6.
00628  M01S00518.vfylib  +++|*                B - 3.
00629  M01S00519.vfylib  +++|*                X - 1, 4, 6.
00630  M01S00520.vfylib  +++|*
00631  M01S00521.vfylib  +++|*         CALLS  ABT.
Line S00522 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00522.vfyli5  ---|*
Line S00523 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00523.vfyli5  ---|*         MACROS CALL, MESSAGE.
00634  M01S00524.vfylib  +++|
00635  M01S00525.vfylib  +++|
00636  M01S00526.vfylib  +++| CCS1     SA1    B3
00637  M01S00527.vfylib  +++|          SB3    B3+B1
Line S00528 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00528.vfyli2  ---|          LX4    1
00639  M01S00529.vfylib  +++|          BX4    X4-X1
00640  M01S00001.vfyli2  +++|          LX4    1
00641  M01S00530.vfylib  +++|          NE     B3,B4,CCS1  LOOP TO DETERMINE CHECKSUM
00642  M01S00531.vfylib  +++|          BX6    X4
00643  M01S00532.vfylib  +++|          SA6    A4
00644  M01S00533.vfylib  +++|
00645  M01S00534.vfylib  +++| CCS      SUBR               ENTRY/EXIT
Line S00535 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00535.vfyli5  ---|          SA4    B2+2
Line S00536 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00647  M02S00536.vfyli5  ---|          LT     B3,B4,CCS1  IF FWA < LWA+1
Line S00537 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00648  M02S00537.vfyli5  ---|          MESSAGE (=C* FWA/LWA ERROR IN VFYLIB.*)
Line S00538 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00649  M02S00538.vfyli5  ---|          CALL   ABT
00650  M01S00035.vfyli5  +++|          SA4    B2+.CS      GET CURRENT CHECKSUM
00651  M01S00036.vfyli5  +++|          SA1    B2+.RL      ADVANCE RECORD LENGTH
00652  M01S00037.vfyli5  +++|          SX6    B4-B3
00653  M01S00038.vfyli5  +++|          IX6    X1+X6
00654  M01S00039.vfyli5  +++|          SA6    A1+
00655  M01S00040.vfyli5  +++|          LT     B3,B4,CCS1  IF FWA .LT. LWA+1
00656  M01S00041.vfyli5  +++|          SX1    =C* FWA/LWA ERROR IN VFYLIB.*
00657  M01S00042.vfyli5  +++|          RJ     ABT         ABORT
00658  M01S00539.vfylib  +++|          SPACE  4
00659  M01S00540.vfylib  +++|**        CDP - CHECK FOR DELETED OR INSERTED PROGRAMS.
00660  M01S00541.vfylib  +++|*
00661  M01S00542.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF PROGRAM NAME TABLE POINTER.
00662  M01S00543.vfylib  +++|*
00663  M01S00544.vfylib  +++|*         USES   A - 1, 2, 3, 6, 7.
00664  M01S00545.vfylib  +++|*                B - 2, 6, 7.
00665  M01S00546.vfylib  +++|*                X - 0, 1, 2, 3, 6, 7.
00666  M01S00547.vfylib  +++|*
00667  M01S00548.vfylib  +++|*         CALLS  OPN.
00668  M01S00549.vfylib  +++|*
00669  M01S00550.vfylib  +++|*         MACROS CALL.
00670  M01S00551.vfylib  +++|
00671  M01S00552.vfylib  +++|
00672  M01S00553.vfylib  +++| CDP      SUBR               ENTRY/EXIT
00673  M01S00554.vfylib  +++|          SX6    B2
00674  M01S00555.vfylib  +++|          SX7    B0          SET TABLE INDEX
00675  M01S00556.vfylib  +++|          SA6    CDPA
00676  M01S00557.vfylib  +++|          SA7    CDPB
00677  M01S00558.vfylib  +++| CDP1     SA1    CDPA
00678  M01S00559.vfylib  +++|          SA1    X1
00679  M01S00560.vfylib  +++|          SA2    A1+B1
00680  M01S00561.vfylib  +++|          SA3    CDPB
00681  M01S00562.vfylib  +++|          SB6    X1
00682  M01S00563.vfylib  +++|          SB7    B6+X2
00683  M01S00564.vfylib  +++|          SB2    B6+X3
00684  M01S00565.vfylib  +++|          EQ     B2,B7,CDPX  IF END OF PROGRAM NAME TABLE - RETURN
00685  M01S00566.vfylib  +++|          SA1    B2
00686  M01S00567.vfylib  +++|          SX6    X3+ENTL
00687  M01S00568.vfylib  +++|          MX0    30
00688  M01S00569.vfylib  +++|          SA6    A3
00689  M01S00570.vfylib  +++|          ZR     X1,CDP1     IF ENTRY IS BLANK
00690  M01S00571.vfylib  +++|          CALL   OPN,B2      OUTPUT PROGRAM NAME
00691  M01S00572.vfylib  +++|          EQ     CDP1        LOOP
00692  M01S00573.vfylib  +++|
00693  M01S00574.vfylib  +++| CDPA     DATA   0           ADDRESS OF PROGRAM NAME TABLE POINTER
00694  M01S00575.vfylib  +++| CDPB     DATA   0           TABLE INDEX
00695  M01S00576.vfylib  +++|          SPACE  4
00696  M01S00577.vfylib  +++|**        CRC - CHECK RESIDENCE CHANGE.
00697  M01S00578.vfylib  +++|*
00698  M01S00579.vfylib  +++|*         USES   A - 1, 2, 3, 6, 7.
00699  M01S00580.vfylib  +++|*                B - 6, 7.
00700  M01S00581.vfylib  +++|*                X - 1, 2, 3, 6, 7.
00701  M01S00582.vfylib  +++|*
00702  M01S00583.vfylib  +++|*         CALLS  OPN.
00703  M01S00584.vfylib  +++|*
00704  M01S00585.vfylib  +++|*         MACROS CALL, SEARCH.
00705  M01S00586.vfylib  +++|
00706  M01S00587.vfylib  +++|
00707  M01S00588.vfylib  +++| CRC      SUBR               ENTRY/EXIT
00708  M01S00589.vfylib  +++|          SX7    B0          SET INDEX IN OPT
00709  M01S00590.vfylib  +++|          SA7    CRCA
00710  M01S00591.vfylib  +++| CRC1     SA1    P.OPT       CHECK RESIDENCE CHANGE
00711  M01S00592.vfylib  +++|          SA2    L.OPT
00712  M01S00593.vfylib  +++|          SA3    CRCA
00713  M01S00594.vfylib  +++|          SB6    X1
00714  M01S00595.vfylib  +++|          SB7    B6+X2
00715  M01S00596.vfylib  +++|          SB6    B6+X3
00716  M01S00597.vfylib  +++|          SA1    B6
00717  M01S00598.vfylib  +++|          EQ     B6,B7,CRCX  IF END OF OPT - RETURN
00718  M01S00599.vfylib  +++|          ZR     X1,CRC3     IF ENTRY IS BLANK
00719  M01S00600.vfylib  +++|          SEARCH NPT,B6
00720  M01S00601.vfylib  +++|          SA6    CRCC
00721  M01S00602.vfylib  +++|          SA1    P.OPT
00722  M01S00603.vfylib  +++|          SA3    CRCA
00723  M01S00604.vfylib  +++|          IX1    X1+X3
00724  M01S00605.vfylib  +++|          NZ     X6,CRC2     IF PROGRAM IN SAME LIBRARY
00725  M01S00606.vfylib  +++|          SEARCH NPT,X1,CRCB
00726  M01S00607.vfylib  +++|          ZR     X6,CRC3     IF PROGRAM NOT FOUND
00727  M01S00608.vfylib  +++|          SA6    CRCC
00728  M01S00609.vfylib  +++|          CALL   OPN,X6      OUTPUT PROGRAM NAME
00729  M01S00610.vfylib  +++| CRC2     SA1    P.OPT       CLEAR ENTRIES
00730  M01S00611.vfylib  +++|          SA2    CRCC
00731  M01S00612.vfylib  +++|          SA3    CRCA
00732  M01S00613.vfylib  +++|          IX1    X1+X3
00733  M01S00614.vfylib  +++|          MX7    0
00734  M01S00615.vfylib  +++|          SA7    X1
00735  M01S00616.vfylib  +++|          SA7    X2
00736  M01S00617.vfylib  +++| CRC3     SA1    CRCA        ADVANCE INDEX
00737  M01S00618.vfylib  +++|          SX6    X1+ENTL
00738  M01S00619.vfylib  +++|          SA6    A1
00739  M01S00620.vfylib  +++|          EQ     CRC1        LOOP
00740  M01S00621.vfylib  +++|
00741  M01S00622.vfylib  +++| CRCA     DATA   0           INDEX INTO OLD PROGRAM TABLE
00742  M01S00623.vfylib  +++| CRCB     DATA   77777777777777000077B
00743  M01S00624.vfylib  +++| CRCC     CON    0           NPT ADDRESS
00744  M01S00625.vfylib  +++|          SPACE  4
00745  M01S00626.vfylib  +++|**        CRP - CHECK REPLACED PROGRAMS.
00746  M01S00627.vfylib  +++|*
00747  M01S00628.vfylib  +++|*         USES   A - 1, 2, 3, 4, 6, 7.
00748  M01S00629.vfylib  +++|*                B - 6, 7.
00749  M01S00630.vfylib  +++|*                X - 0, 1, 2, 3, 4, 6, 7.
00750  M01S00631.vfylib  +++|*
00751  M01S00632.vfylib  +++|*         CALLS  OPN.
00752  M01S00633.vfylib  +++|*
00753  M01S00634.vfylib  +++|*         MACROS CALL, SEARCH.
00754  M01S00635.vfylib  +++|
00755  M01S00636.vfylib  +++|
00756  M01S00637.vfylib  +++| CRP      SUBR               ENTRY/EXIT
00757  M01S00638.vfylib  +++|          SX7    B0          SET INDEX IN OPT
00758  M01S00639.vfylib  +++|          SA7    CRPA
00759  M01S00640.vfylib  +++| CRP1     SA1    P.OPT       DO LOOP FOR CHECKING FOR REPLACED PROGRAMS
00760  M01S00641.vfylib  +++|          SA2    L.OPT
00761  M01S00642.vfylib  +++|          SA3    CRPA
00762  M01S00643.vfylib  +++|          SB6    X1
00763  M01S00644.vfylib  +++|          SB7    B6+X2
00764  M01S00645.vfylib  +++|          SB6    B6+X3
00765  M01S00646.vfylib  +++|          SA1    B6
00766  M01S00647.vfylib  +++|          EQ     B6,B7,CRPX  IF END OF OPT - RETURN
00767  M01S00648.vfylib  +++|          ZR     X1,CRP4     IF ENTRY IS BLANK
00768  M01S00649.vfylib  +++|          SEARCH NPT,B6
00769  M01S00650.vfylib  +++|          SA1    P.OPT       COMPARE CHECKSUMS
00770  M01S00651.vfylib  +++|          SA3    CRPA
00771  M01S00652.vfylib  +++|          IX1    X1+X3
00772  M01S00653.vfylib  +++|          ZR     X6,CRP2     IF PROGRAM IS NOT IN SAME LIBRARY
00773  M01S00654.vfylib  +++|          MX0    30
00774  M01S00655.vfylib  +++|          SA3    X1+B1
00775  M01S00656.vfylib  +++|          SA4    X6+B1
00776  M01S00657.vfylib  +++|          BX7    X3-X4
00777  M01S00658.vfylib  +++|          BX7    X0*X7
00778  M01S00659.vfylib  +++|          NZ     X7,CRP3     IF CHECKSUM CHANGE
00779  M01S00043.vfyli5  +++|          SA3    A3+.RL-.CS
00780  M01S00044.vfyli5  +++|          SA4    A4+.RL-.CS
00781  M01S00045.vfyli5  +++|          IX7    X4-X3
00782  M01S00046.vfyli5  +++|          NZ     X7,CRP3     IF LENGTH CHANGE
Line S00660 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5a
Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00660.vfyli5a ---|          SA7    A3-B1
Line S00661 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5a
Seq #  *Modification Id* Act 
----------------------------+
00784  M02S00661.vfyli5a ---|          SA7    A4-B1
Line S00662 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5a
Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00662.vfyli5a ---|          EQ     CRP4
00786  M01S00001.vfyli5a +++|          SA7    A3+.PD-.RL  CLEAR PROGRAM NAME AND TYPE
00787  M01S00002.vfyli5a +++|          SA7    A4+.PD-.RL
00788  M01S00003.vfyli5a +++|          EQ     CRP4        PROCESS NEXT RECORD
00789  M01S00663.vfylib  +++|
00790  M01S00047.vfyli5  +++|*         RECORD NOT IN SAME LIBRARY.
00791  M01S00048.vfyli5  +++|
00792  M01S00664.vfylib  +++| CRP2     SEARCH NPT,X1,CRPB
00793  M01S00665.vfylib  +++|          ZR     X6,CRP4     IF PROGRAM NOT FOUND
00794  M01S00666.vfylib  +++|          MX0    30
00795  M01S00667.vfylib  +++|          SA1    P.OPT       COMPARE CHECKSUMS
00796  M01S00668.vfylib  +++|          SA3    CRPA
00797  M01S00669.vfylib  +++|          IX1    X1+X3
00798  M01S00670.vfylib  +++|          SA3    X1+B1
00799  M01S00671.vfylib  +++|          SA4    X6+B1
00800  M01S00672.vfylib  +++|          BX7    X3-X4
00801  M01S00673.vfylib  +++|          BX7    X0*X7
Line S00674 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00802  M02S00674.vfyli5  ---|          ZR     X7,CRP4     IF NO CHECKSUM CHANGE
00803  M01S00049.vfyli5  +++|          NZ     X7,CRP3     IF CHECKSUM CHANGE
00804  M01S00050.vfyli5  +++|          SA3    A3+.RL-.CS
00805  M01S00051.vfyli5  +++|          SA4    A4+.RL-.CS
00806  M01S00052.vfyli5  +++|          IX7    X4-X3
00807  M01S00053.vfyli5  +++|          ZR     X7,CRP4     IF NO LENGTH CHANGE
00808  M01S00675.vfylib  +++| CRP3     CALL   OPN,X6      OUTPUT PROGRAM NAME
00809  M01S00676.vfylib  +++| CRP4     SA1    CRPA        ADVANCE INDEX
00810  M01S00677.vfylib  +++|          SX6    X1+ENTL
00811  M01S00678.vfylib  +++|          MX0    30
00812  M01S00679.vfylib  +++|          SA6    A1
00813  M01S00680.vfylib  +++|          EQ     CRP1        LOOP
00814  M01S00681.vfylib  +++|
00815  M01S00682.vfylib  +++| CRPA     DATA   0           INDEX INTO OLD PROGRAM TABLE
00816  M01S00683.vfylib  +++| CRPB     DATA   77777777777777000077B
00817  M01S00684.vfylib  +++| CRPC     DATA   0           RESIDENCE FLAG
00818  M01S00685.vfylib  +++|          SPACE  4
00819  M01S00686.vfylib  +++|**        C6S - CONVERT 6 DIGITS WITH LEADING ZERO SUPPRESSION.
00820  M01S00687.vfylib  +++|*
00821  M01S00688.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF RIGHT JUSTIFIED NUMBER.
00822  M01S00689.vfylib  +++|*                (B3) = ADDRESS TO STORE RESULT.
00823  M01S00690.vfylib  +++|*
00824  M01S00691.vfylib  +++|*         USES   A - 1, 2, 3, 4, 6.
00825  M01S00692.vfylib  +++|*                B - 2, 5, 6, 7.
00826  M01S00693.vfylib  +++|*                X - 0, 1, 2, 3, 4, 5, 6.
00827  M01S00694.vfylib  +++|
00828  M01S00695.vfylib  +++|
00829  M01S00696.vfylib  +++| C6S      SUBR               ENTRY/EXIT
00830  M01S00697.vfylib  +++|          SA2    =0.1000000001P48
00831  M01S00698.vfylib  +++|          SA3    =10.0P0
00832  M01S00699.vfylib  +++|          SA4    =1H
00833  M01S00700.vfylib  +++|          SB6    6
00834  M01S00701.vfylib  +++|          SB5    1R0-1R
00835  M01S00702.vfylib  +++|          SA1    B2
00836  M01S00703.vfylib  +++|          SB2    18
00837  M01S00704.vfylib  +++|          PX1    X1
00838  M01S00705.vfylib  +++|          BX6    X4
00839  M01S00706.vfylib  +++| C6S1     DX4    X1*X2
00840  M01S00707.vfylib  +++|          FX1    X1*X2
00841  M01S00708.vfylib  +++|          SB7    X1
00842  M01S00709.vfylib  +++|          LX6    54
00843  M01S00710.vfylib  +++|          SB2    B2+B6
00844  M01S00711.vfylib  +++|          FX5    X4*X3       CALCULATE REMAINDER DIGIT
00845  M01S00712.vfylib  +++|          SX0    X5+B5
00846  M01S00713.vfylib  +++|          IX6    X0+X6
00847  M01S00714.vfylib  +++|          NZ     B7,C6S1     IF NOT ENTIRE NUMBER
00848  M01S00715.vfylib  +++|          LX6    X6,B2       POSITION NUMBER
00849  M01S00716.vfylib  +++|          SA6    B3
00850  M01S00717.vfylib  +++|          EQ     C6SX        RETURN
00851  M01S00718.vfylib  +++|          SPACE  4
00852  M01S00719.vfylib  +++|**        LOL - LIST ONE LINE.
00853  M01S00720.vfylib  +++|*
00854  M01S00721.vfylib  +++|*         USES   A - 1, 6.
00855  M01S00722.vfylib  +++|*                X - 1, 2, 6.
00856  M01S00723.vfylib  +++|*
00857  M01S00724.vfylib  +++|*         CALLS  WPH.
00858  M01S00725.vfylib  +++|*
00859  M01S00726.vfylib  +++|*         MACROS WRITEC.
00860  M01S00727.vfylib  +++|
00861  M01S00728.vfylib  +++|
00862  M01S00729.vfylib  +++| LOL      SUBR               ENTRY/EXIT
00863  M01S00730.vfylib  +++|          SA1    LINE        CHECK LINE NUMBER
00864  M01S00731.vfylib  +++|          SX6    X1+B1
00865  M01S00732.vfylib  +++|          SA6    A1
Line S00733 Modification History
M01 (Added by) vfylib
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00866  M02S00733.ns22000 ---|          SX6    X6-LINP
00867  M01S00021.ns22000 +++|          SA1    A1+B1       GET LINE LIMIT
00868  M01S00022.ns22000 +++|          IX6    X6-X1
00869  M01S00734.vfylib  +++|          SX2    O
00870  M01S00735.vfylib  +++|          NG     X6,LOL1     IF NOT END OF PAGE
00871  M01S00736.vfylib  +++|          RJ     WPH
00872  M01S00737.vfylib  +++|          SX6    X6+2        ADVANCE LINE COUNT
00873  M01S00738.vfylib  +++|          SA6    LINE
00874  M01S00739.vfylib  +++|          WRITEC X2,(=1L )
00875  M01S00740.vfylib  +++| LOL1     WRITEC X2,OUTPUTB
00876  M01S00741.vfylib  +++|          EQ     LOLX        RETURN
00877  M01S00742.vfylib  +++|          SPACE  4
00878  M01S00743.vfylib  +++|**        OPN - OUTPUT PROGRAM NAME.
00879  M01S00744.vfylib  +++|*
00880  M01S00745.vfylib  +++|*         ENTRY  (B2) = ADDRESS OF PROGRAM NAME TABLE ENTRY.
00881  M01S00746.vfylib  +++|*
00882  M01S00747.vfylib  +++|*         USES   A - 1, 2, 3, 4, 6, 7.
00883  M01S00748.vfylib  +++|*                B - 6.
00884  M01S00749.vfylib  +++|*                X - 0, 1, 2, 3, 4, 6, 7.
00885  M01S00750.vfylib  +++|*
00886  M01S00751.vfylib  +++|*         CALLS  C6S, LOL, SFN, WPH.
00887  M01S00752.vfylib  +++|*
00888  M01S00753.vfylib  +++|*         MACROS CALL, WRITEC.
00889  M01S00754.vfylib  +++|
00890  M01S00755.vfylib  +++|
00891  M01S00756.vfylib  +++| OPN      SUBR               ENTRY/EXIT
00892  M01S00757.vfylib  +++|          SX6    B2
00893  M01S00758.vfylib  +++|          SA6    OPNA
00894  M01S00759.vfylib  +++|          SA1    OPND
00895  M01S00760.vfylib  +++|          ZR     X1,OPN2     IF HEADER WRITTEN
00896  M01S00761.vfylib  +++|          SA2    LINE        CHECK LINE POSITION
Line S00762 Modification History
M01 (Added by) vfylib
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00897  M02S00762.ns22000 ---|          SX6    X2-LINP+4
00898  M01S00023.ns22000 +++|          SX2    X2+4
00899  M01S00024.ns22000 +++|          SA1    A2+B1       GET LINE LIMIT
00900  M01S00025.ns22000 +++|          IX6    X2-X1
00901  M01S00763.vfylib  +++|          NG     X6,OPN1     IF NOT END OF PAGE
00902  M01S00764.vfylib  +++|          RJ     WPH
00903  M01S00765.vfylib  +++| OPN1     WRITEC O,(=1L )
00904  M01S00766.vfylib  +++|          SA4    OPND        GET HEADER MESSAGE ADDRESS
00905  M01S00767.vfylib  +++|          SA3    LINE
00906  M01S00768.vfylib  +++|          BX7    X7-X7
Line S00769 Modification History
M01 (Added by) vfylib
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00907  M02S00769.ns22000 ---|          SX6    X3+4        UPDATE LINE COUNT
00908  M01S00026.ns22000 +++|          SX6    X3+3        UPDATE LINE COUNT
00909  M01S00770.vfylib  +++|          SA7    A4
00910  M01S00771.vfylib  +++|          SA6    A3
00911  M01S00772.vfylib  +++|          WRITEC X2,X4       WRITE HEADER MESSAGE
00912  M01S00773.vfylib  +++|          WRITEC X2,(=1L )
00913  M01S00774.vfylib  +++|
00914  M01S00775.vfylib  +++|*         LIST PROGRAM NAME.
00915  M01S00776.vfylib  +++|
00916  M01S00777.vfylib  +++| OPN2     SA1    OPNA        OUTPUT PROGRAM NAME
00917  M01S00778.vfylib  +++|          SA4    X1
00918  M01S00779.vfylib  +++|          MX0    42
00919  M01S00780.vfylib  +++|          BX1    X0*X4
00920  M01S00781.vfylib  +++|          RJ     SFN         SPACE FILL NAME
00921  M01S00782.vfylib  +++|          SA3    A3
00922  M01S00783.vfylib  +++|          SA6    OUTPUTB+1
00923  M01S00784.vfylib  +++|          MX0    -6
00924  M01S00785.vfylib  +++|          LX7    X3
00925  M01S00786.vfylib  +++|          BX2    -X0*X4
00926  M01S00787.vfylib  +++|          SA1    OPNB+X2     OUTPUT PROGRAM TYPE
00927  M01S00788.vfylib  +++|          SA7    A6-B1
00928  M01S00789.vfylib  +++|          BX6    X1
00929  M01S00790.vfylib  +++|          AX4    6
00930  M01S00791.vfylib  +++|          SA6    A6+B1
00931  M01S00792.vfylib  +++|          MX0    7*6         OUTPUT ULIB NAME
00932  M01S00793.vfylib  +++|          SA1    OPNA
Line S00794 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00933  M02S00794.vfyli5  ---|          SA5    X1+2
00934  M01S00054.vfyli5  +++|          SA5    X1+.UN-.PD
00935  M01S00795.vfylib  +++|          BX1    X0*X5
00936  M01S00796.vfylib  +++|          RJ     SFN         SPACE FILL ULIB NAME
00937  M01S00797.vfylib  +++|          SA6    A6+B1
00938  M01S00798.vfylib  +++|          MX0    -12
00939  M01S00799.vfylib  +++|          BX7    -X0*X4      OUTPUT LIBRARY NUMBER
Line S00800 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00940  M02S00800.vfyli5  ---|          SX7    X7+B1
00941  M01S00055.vfyli5  +++|          SX7    X7+
00942  M01S00801.vfylib  +++|          SA7    OPNC
00943  M01S00802.vfylib  +++|          CALL   C6S,A7,A6+B1
00944  M01S00803.vfylib  +++|          SA1    OPNA        OUTPUT DATE AND COMMENT
Line S00804 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00945  M02S00804.vfyli5  ---|          SA1    X1+B1       X1 = COMMENT INDEX
Line S00805 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
00946  M02S00805.vfyli5  ---|          SA2    A1+2
00947  M01S00056.vfyli5  +++|          SA1    X1+.CS-.PD  X1 = COMMENT INDEX
00948  M01S00057.vfyli5  +++|          SA2    A1+.DT-.CS
00949  M01S00806.vfylib  +++|          MX0    -30
00950  M01S00807.vfylib  +++|          LX6    X2
00951  M01S00808.vfylib  +++|          BX4    -X0*X1
00952  M01S00809.vfylib  +++|          SA6    A6+B1
00953  M01S00810.vfylib  +++|          SA2    P.CMT
00954  M01S00811.vfylib  +++|          IX6    X2+X4
00955  M01S00812.vfylib  +++|          AX4    18
00956  M01S00813.vfylib  +++|          SB6    X4
00957  M01S00814.vfylib  +++|          ZR     X4,OPN4     IF NO COMMENTS
00958  M01S00815.vfylib  +++|          SA1    X6
00959  M01S00816.vfylib  +++| OPN3     BX6    X1          MOVE COMMENTS
00960  M01S00817.vfylib  +++|          SB6    B6-B1
00961  M01S00818.vfylib  +++|          SA1    A1+B1
00962  M01S00819.vfylib  +++|          SA6    A6+B1
00963  M01S00820.vfylib  +++| OPN4     NZ     B6,OPN3     LOOP
00964  M01S00821.vfylib  +++|          BX6    X6-X6
00965  M01S00822.vfylib  +++|          SA6    A6+B1
00966  M01S00823.vfylib  +++|          CALL   LOL
00967  M01S00824.vfylib  +++|          EQ     OPNX        RETURN
00968  M01S00825.vfylib  +++|
00969  M01S00826.vfylib  +++| OPNA     DATA   0           ADDRESS OF ENTRY
00970  M01S00827.vfylib  +++|
Line S00828 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00971  M02S00828.251l664 ---| OPNB     DATA   0HTEXT      0
Line S00829 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00972  M02S00829.251l664 ---|          DATA   0HPP        1
00973  M01S00003.251l664 +++| OPNB     BSS    0
00974  M01S00004.251l664 +++| .E       ECHO   ,RT=("RTMIC")
00975  M01S00005.251l664 +++| .A       IFC    NE,/RT//
00976  M01S00006.251l664 +++|          DATA   H/RT/
00977  M01S00007.251l664 +++| .A       ELSE
00978  M01S00830.vfylib  +++|          DATA   0           UNDEFINED RECORD TYPE
Line S00831 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00979  M02S00831.251l664 ---|          DATA   0HREL       3
Line S00832 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00980  M02S00832.251l664 ---|          DATA   0HOVL       4
Line S00833 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00981  M02S00833.251l664 ---|          DATA   0HULIB      5
Line S00834 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00982  M02S00834.251l664 ---|          DATA   0HOPL       6
Line S00835 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00983  M02S00835.251l664 ---|          DATA   0HOPLC      7
Line S00836 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00984  M02S00836.251l664 ---|          DATA   0HOPLD      8
Line S00837 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00985  M02S00837.251l664 ---|          DATA   0HABS       9
Line S00838 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00986  M02S00838.251l664 ---|          DATA   0HPPU       10
Line S00839 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00987  M02S00839.251l664 ---|          DATA   0           UNDEFINED RECORD TYPE
Line S00840 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00988  M02S00840.251l664 ---|          DATA   0           UNDEFINED RECORD TYPE
Line S00841 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00989  M02S00841.251l664 ---|          DATA   0           UNDEFINED RECORD TYPE
Line S00842 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00990  M02S00842.251l664 ---|          DATA   0HCAP       14
Line S00843 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00991  M02S00843.251l664 ---|          DATA   0           UNDEFINED RECORD TYPE
Line S00844 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00992  M02S00844.251l664 ---|          DATA   0HPROC      16
00993  M01S00008.251l664 +++| .A       ENDIF
00994  M01S00009.251l664 +++| .E       ENDD
00995  M01S00845.vfylib  +++|
00996  M01S00846.vfylib  +++| OPNC     DATA   0           GROUP NUMBER
00997  M01S00847.vfylib  +++| OPND     CON    0           HEADER MESSAGE ADDRESS
00998  M01S00848.vfylib  +++|          SPACE  4
00999  M01S00849.vfylib  +++|**        RDF - READ FILES.
01000  M01S00850.vfylib  +++|*
01001  M01S00851.vfylib  +++|*         BOTH FILES ARE READ SIMULTAINIOUSLY.  COMMON ROUTINES
01002  M01S00852.vfylib  +++|*         ARE USED BETWEEN THE TWO READS.  IN THESE ROUTINES
01003  M01S00853.vfylib  +++|*         (RDFB) = POINTER TO DATA AREA.
01004  M01S00854.vfylib  +++|*
01005  M01S00855.vfylib  +++|*         USES   A - 1, 2, 3, 4, 5, 6, 7.
01006  M01S00856.vfylib  +++|*                B - 2, 3, 4, 5, 6, 7.
01007  M01S00857.vfylib  +++|*                X - ALL.
01008  M01S00858.vfylib  +++|*
01009  M01S00859.vfylib  +++|*         CALLS  ADD, CCM, CCS, SFN.
01010  M01S00860.vfylib  +++|*
01011  M01S00861.vfylib  +++|*         MACROS CALL, MESSAGE, READW.
01012  M01S00862.vfylib  +++|
01013  M01S00863.vfylib  +++|
01014  M01S00864.vfylib  +++| RDF      SUBR               ENTRY/EXIT
01015  M01S00865.vfylib  +++|
01016  M01S00866.vfylib  +++| RDF1     EQ     RDF3
01017  M01S00867.vfylib  +++|          SA1    RDFA        TOGGLE BETWEEN FILE *OLD* AND *NEW*
01018  M01S00868.vfylib  +++|          SA2    A1+B1
01019  M01S00869.vfylib  +++|          SA3    A2+B1
01020  M01S00870.vfylib  +++|          SA4    RDF1
01021  M01S00871.vfylib  +++|          AX3    30
01022  M01S00872.vfylib  +++|          BX7    X4
01023  M01S00873.vfylib  +++|          SB5    X3
01024  M01S00874.vfylib  +++|          SA7    A3
01025  M01S00875.vfylib  +++|          BX6    X1
01026  M01S00876.vfylib  +++|          LX7    X2
01027  M01S00877.vfylib  +++|          SA6    A2
01028  M01S00878.vfylib  +++|          SA7    A1
01029  M01S00879.vfylib  +++|          SA2    X7
01030  M01S00880.vfylib  +++|          SA5    A1
01031  M01S00881.vfylib  +++|          JP     B5
01032  M01S00882.vfylib  +++|
01033  M01S00883.vfylib  +++|
Line S00884 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01034  M02S00884.vfyli5  ---| RDF2     SA1    X5+FPAL-2   ADVANCE LIBRARY NUMBER
01035  M01S00058.vfyli5  +++| RDF2     SA1    X5+.TL      ADVANCE LIBRARY NUMBER
01036  M01S00885.vfylib  +++|          SX6    X1+B1
01037  M01S00886.vfylib  +++|          SA6    A1
01038  M01S00887.vfylib  +++| RDF3     RJ     RDF1        START READ
01039  M01S00888.vfylib  +++|          READW  X2,WSA,WSAL
01040  M01S00889.vfylib  +++|          NG     X1,RDF16    IF EOF
01041  M01S00890.vfylib  +++|          SA5    RDFA        SET EOR INDICATOR
01042  M01S00891.vfylib  +++|          BX6    X1
01043  M01S00892.vfylib  +++|          SA6    RDFC
01044  M01S00893.vfylib  +++|          SB7    WSA
01045  M01S00894.vfylib  +++|          EQ     B6,B7,RDF2  IF ZERO LENGTH RECORD
01046  M01S00895.vfylib  +++|
01047  M01S00896.vfylib  +++|*         CHECK PROGRAM TYPE AND MAKE ENTRY INTO THE PROGRAM NAME TABLE.
01048  M01S00897.vfylib  +++|
01049  M01S00898.vfylib  +++|          SX1    B6          LWA+1 OF DATA READ
01050  M01S00899.vfylib  +++|          SX2    B7          FWA OF BUFFER (WSA)
01051  M01S00900.vfylib  +++|          RJ     SRT         SET RECORD TYPE
01052  M01S00901.vfylib  +++|          SA6    X5+B1
01053  M01S00902.vfylib  +++|          BX1    X7
01054  M01S00903.vfylib  +++|          BX7    X7-X7       CLEAR CHECKSUM WORD
01055  M01S00904.vfylib  +++|          SA7    A6+B1
01056  M01S00905.vfylib  +++|          MX0    -6          CHECK RECORD TYPE
01057  M01S00906.vfylib  +++|          BX4    -X0*X6
01058  M01S00907.vfylib  +++|          SB4    X4
Line S00908 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli4
Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00908.vfyli4  ---|          SB2    3
Line S00001 Modification History
M01 (Added by) vfyli4
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00001.251l664 ---|          SB2    8
01061  M01S00010.251l664 +++|          SB2    ODRT        TYPE = OPLD
Line S00909 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01062  M02S00909.vfyli5  ---|          SA4    X5+FPAL-1
01063  M01S00059.vfyli5  +++|          SA4    X5+.TU
01064  M01S00910.vfylib  +++|          ZR     X4,RDF5     IF ULIB .EQ. 0
Line S00911 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli4
Seq #  *Modification Id* Act 
----------------------------+
01065  M02S00911.vfyli4  ---|          NE     B4,B2,RDF4  IF REC TYPE .NE. REL
01066  M01S00002.vfyli4  +++|          EQ     B4,B2,RDF4  IF REC TYPE .EQ. OPLD
01067  M01S00912.vfylib  +++|          BX7    X4          SET UP ULIB IN TABLE ENTRY
01068  M01S00913.vfylib  +++|          SA7    A7+B1
01069  M01S00914.vfylib  +++|          EQ     RDF6        CONTINUE PROCESSING THE ENTRY
01070  M01S00915.vfylib  +++|
01071  M01S00916.vfylib  +++| RDF4     BX7    X7-X7       ZERO OUT ULIB
01072  M01S00917.vfylib  +++|          SA7    A7+B1
Line S00918 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01073  M02S00918.vfyli5  ---|          SA7    X5+FPAL-1
01074  M01S00060.vfyli5  +++|          SA7    X5+.TU
01075  M01S00919.vfylib  +++|          EQ     RDF6        CONTINUE PROCESSING THE ENTRY
01076  M01S00920.vfylib  +++|
Line S00921 Modification History
M01 (Added by) vfylib
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
01077  M02S00921.251l664 ---| RDF5     SB2    5           CHECK RECORD TYPE
01078  M01S00011.251l664 +++| RDF5     SB2    ULRT        CHECK RECORD TYPE
01079  M01S00922.vfylib  +++|          NE     B4,B2,RDF6  IF REC TYPE .NE. ULIB
01080  M01S00923.vfylib  +++|          MX0    7*6         SAVE ULIB
01081  M01S00924.vfylib  +++|          BX7    X0*X6
01082  M01S00925.vfylib  +++|          SA7    A7+B1       SET ULIB IN TABLE ENTRY
Line S00926 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01083  M02S00926.vfyli5  ---|          SA7    X5+FPAL-1
01084  M01S00061.vfyli5  +++|          SA7    X5+.TU
01085  M01S00927.vfylib  +++| RDF6     RJ     SFN         SPACE FILL NAME
01086  M01S00928.vfylib  +++|          AX5    54
01087  M01S00929.vfylib  +++|          SB5    X5
01088  M01S00930.vfylib  +++|          SA6    RDFF+X5
01089  M01S00931.vfylib  +++|          MESSAGE A6-B5,B1
01090  M01S00932.vfylib  +++|          SA5    A5
Line S00933 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01091  M02S00933.vfyli5  ---|          CALL   CCM,X5,B3,WSA
01092  M01S00062.vfyli5  +++|          CALL   CCM,X5,,WSA
01093  M01S00934.vfylib  +++|          SA5    RDFA
01094  M01S00935.vfylib  +++|          SA1    RDFC
01095  M01S00936.vfylib  +++|          NZ     X1,RDF7     IF EOR READ
01096  M01S00937.vfylib  +++|          SX1    WSA+WSAL
01097  M01S00938.vfylib  +++| RDF7     CALL   CCS,X5,B3,X1
01098  M01S00939.vfylib  +++|          SA1    RDFC
01099  M01S00940.vfylib  +++|          NZ     X1,RDF11    IF EOR READ
01100  M01S00941.vfylib  +++|
01101  M01S00942.vfylib  +++|*         READ REST OF RECORD.
01102  M01S00943.vfylib  +++|
01103  M01S00944.vfylib  +++| RDF8     RJ     RDF1
01104  M01S00945.vfylib  +++|          READW  X2,WSA,WSAL
01105  M01S00946.vfylib  +++|          BX6    X1          SET INDICATOR
01106  M01S00947.vfylib  +++|          SA6    RDFC
01107  M01S00948.vfylib  +++|          SX4    B6-WSA
01108  M01S00949.vfylib  +++|          ZR     X4,RDF11    IF NO DATA
01109  M01S00950.vfylib  +++|          PL     X1,RDF9     IF NO EOF
01110  M01S00951.vfylib  +++|          SX1    B6+         SET LWA+1
01111  M01S00952.vfylib  +++| RDF9     NZ     X1,RDF10    IF EOR OR EOF READ
01112  M01S00953.vfylib  +++|          SX1    WSA+WSAL
01113  M01S00954.vfylib  +++| RDF10    CALL   CCS,X5,WSA,X1
01114  M01S00955.vfylib  +++|          SA1    RDFC
01115  M01S00956.vfylib  +++|          ZR     X1,RDF8     IF NOT EOR READ
01116  M01S00957.vfylib  +++|
01117  M01S00958.vfylib  +++|*         ADD ENTRY TO PROGRAM NAME TABLE.
01118  M01S00959.vfylib  +++|
01119  M01S00960.vfylib  +++| RDF11    SA5    RDFA
01120  M01S00961.vfylib  +++|          SB2    P.CMT
01121  M01S00962.vfylib  +++|          SB3    X5+ENTL+1
Line S00963 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01122  M02S00963.vfyli5  ---|          SA1    X5+FPAL-3
01123  M01S00063.vfyli5  +++|          SA1    X5+.CL      CHECK COMMENT LENGTH
01124  M01S00964.vfylib  +++|          MX7    0
01125  M01S00965.vfylib  +++|          BX6    X1
01126  M01S00966.vfylib  +++|          ZR     X1,RDF15    IF NO COMMENTS
01127  M01S00967.vfylib  +++|          SA4    N.CMT
01128  M01S00968.vfylib  +++|          SA2    B2+B1
01129  M01S00969.vfylib  +++|          BX7    X6-X4       CHECK LENGTH OF PREVIOUS ENTRY
01130  M01S00970.vfylib  +++|          SA6    A4
01131  M01S00971.vfylib  +++|          NZ     X7,RDF13
01132  M01S00972.vfylib  +++|          SA3    B2
01133  M01S00973.vfylib  +++|          SB4    B0
01134  M01S00974.vfylib  +++|          IX1    X2-X4       (L.CMT) - (N.CMT)
01135  M01S00975.vfylib  +++|          SB6    X4
01136  M01S00976.vfylib  +++|          IX7    X3+X1
01137  M01S00977.vfylib  +++| RDF12    EQ     B4,B6,RDF14 IF SAME COMMENTS
01138  M01S00978.vfylib  +++|          SA3    B3+B4
01139  M01S00979.vfylib  +++|          SA4    X7+B4
01140  M01S00980.vfylib  +++|          BX1    X3-X4       COMPARE COMMENTS
01141  M01S00981.vfylib  +++|          SB4    B4+B1
01142  M01S00982.vfylib  +++|          ZR     X1,RDF12    IF MATCH
01143  M01S00983.vfylib  +++| RDF13    LX6    2
01144  M01S00984.vfylib  +++|          SA6    A6+B1
01145  M01S00985.vfylib  +++|          CALL   ADD,B2,B3
01146  M01S00986.vfylib  +++| RDF14    SA1    A2+B1       SAVE COMMENT TABLE INDEX
01147  M01S00987.vfylib  +++|          IX7    X2-X1
01148  M01S00988.vfylib  +++|          LX1    18          INSERT COMMENT LENGTH
01149  M01S00989.vfylib  +++|          BX7    X1+X7
01150  M01S00990.vfylib  +++| RDF15    SB3    B3-ENTL
Line S00991 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
01151  M02S00991.vfyli2  ---|          MX0    30
Line S00992 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
01152  M02S00992.vfyli2  ---|          SA1    B3+B1
Line S00993 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
01153  M02S00993.vfyli2  ---|          BX2    X0*X1       FOLD CHECKSUM
Line S00994 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
01154  M02S00994.vfyli2  ---|          LX1    30
Line S00995 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
01155  M02S00995.vfyli2  ---|          BX6    X0*X1
Line S00996 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
01156  M02S00996.vfyli2  ---|          BX6    X6-X2
Line S00997 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
01157  M02S00997.vfyli2  ---|          BX6    X6+X7
Line S00998 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli2
Seq #  *Modification Id* Act 
----------------------------+
01158  M02S00998.vfyli2  ---|          SA6    A1
01159  M01S00002.vfyli2  +++|          SA5    B3+B1       FOLD CHECKSUM
01160  M01S00003.vfyli2  +++|          MX0    -12
01161  M01S00004.vfyli2  +++|          BX1    -X0*X5
01162  M01S00005.vfyli2  +++|          AX5    12
01163  M01S00006.vfyli2  +++|          BX6    -X0*X5
01164  M01S00007.vfyli2  +++|          IX1    X1+X6
01165  M01S00008.vfyli2  +++|          AX5    12
01166  M01S00009.vfyli2  +++|          BX6    -X0*X5
01167  M01S00010.vfyli2  +++|          IX1    X1+X6
01168  M01S00011.vfyli2  +++|          AX5    12
01169  M01S00012.vfyli2  +++|          BX6    -X0*X5
01170  M01S00013.vfyli2  +++|          IX1    X1+X6
01171  M01S00014.vfyli2  +++|          AX5    12
01172  M01S00015.vfyli2  +++|          BX6    -X0*X5
01173  M01S00016.vfyli2  +++|          IX1    X1+X6
01174  M01S00017.vfyli2  +++|          IX6    X1+X0
01175  M01S00018.vfyli2  +++|          BX6    -X0*X6
01176  M01S00019.vfyli2  +++|          LX6    48
01177  M01S00020.vfyli2  +++|          BX6    X6+X7       MERGE FOLDED CHECKSUM AND COMMENT LENGTH
01178  M01S00021.vfyli2  +++|          SA6    A5
01179  M01S00999.vfylib  +++|          SA5    RDFA
01180  M01S01000.vfylib  +++|          AX5    30
01181  M01S01001.vfylib  +++|          CALL   ADD,X5,B3
01182  M01S01002.vfylib  +++|          EQ     RDF3        LOOP TO EOF
01183  M01S01003.vfylib  +++|
01184  M01S01004.vfylib  +++|*         WAIT FOR EOF ON BOTH FILES.
01185  M01S01005.vfylib  +++|
01186  M01S01006.vfylib  +++| RDF16    SA1    RDFB
01187  M01S01007.vfylib  +++|          NZ     X1,RDFX     IF BOTH FILES FINISHED - RETURN
01188  M01S01008.vfylib  +++|          SX6    B1          SET EOF FLAG
01189  M01S01009.vfylib  +++|          SA6    A1
01190  M01S01010.vfylib  +++|          SA5    RDFA
01191  M01S01011.vfylib  +++|          AX5    54
01192  M01S01012.vfylib  +++|          SA1    =H*END FILE.*
01193  M01S01013.vfylib  +++|          BX6    X1
01194  M01S01014.vfylib  +++|          SA6    RDFF+X5
01195  M01S01015.vfylib  +++|          MESSAGE RDFF,1
01196  M01S01016.vfylib  +++| RDF17    RJ     RDF1        WAIT FOR 2ND FILE TO COMPLETE
01197  M01S01017.vfylib  +++|          EQ     RDF17
01198  M01S01018.vfylib  +++|
01199  M01S01019.vfylib  +++| RDFA     VFD    6/1,24/P.OPT,30/RDFD
01200  M01S01020.vfylib  +++|          VFD    6/2,24/P.NPT,30/RDFE
01201  M01S01021.vfylib  +++|          EQ     RDF3
01202  M01S01022.vfylib  +++|
01203  M01S01023.vfylib  +++| RDFB     DATA   0           EOF INDICATOR
01204  M01S01024.vfylib  +++| RDFC     DATA   0           EOR INDICATOR
01205  M01S01025.vfylib  +++|
01206  M01S01026.vfylib  +++|*         FILE PARAMETER AREA.
01207  M01S01027.vfylib  +++|
Line S01028 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01208  M02S01028.vfyli5  ---| RDFD     BSS    0
01209  M01S00064.vfyli5  +++| RDFD     BSS    0           OLD FILE PARAMETER LIST
01210  M01S01029.vfylib  +++|
01211  M01S01030.vfylib  +++|          LOC    0
Line S01031 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01212  M02S01031.vfyli5  ---|          VFD    60/OLD
Line S01032 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01213  M02S01032.vfyli5  ---|          VFD    42/,12/,6/  42/PROGRAM,12/LIB,6/TYPE
Line S01033 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01214  M02S01033.vfyli5  ---|          VFD    60/         60/CHECKSUM
Line S01034 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01215  M02S01034.vfyli5  ---|          VFD    60/         60/ULIB
Line S01035 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01216  M02S01035.vfyli5  ---|          VFD    60/         60/DATE
Line S01036 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01217  M02S01036.vfyli5  ---|          DUP    13,1
Line S01037 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01218  M02S01037.vfyli5  ---|          VFD    60/         60/COMMENT TEXT
Line S01038 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01219  M02S01038.vfyli5  ---|          DATA   0           COMMENT LENGTH
Line S01039 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01220  M02S01039.vfyli5  ---|          DATA   0           LIBRARY NUMBER
Line S01040 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01221  M02S01040.vfyli5  ---|          DATA   0           TEMP LOC FOR CURRENT ULIB
Line S01041 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01222  M02S01041.vfyli5  ---|
Line S01042 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01223  M02S01042.vfyli5  ---|          ORG    *O
Line S01043 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01224  M02S01043.vfyli5  ---| FPAL     EQU    *-RDFD      FILE PARAMETER LENGTH
01225  M01S00065.vfyli5  +++| .PN      CON    OLD         OLD FILE FET FET ADDRESS
01226  M01S00066.vfyli5  +++| .PD      VFD    42/,12/,6/  42/PROGRAM,12/LIB,6/TYPE
01227  M01S00067.vfyli5  +++| .CS      CON    0           30/CHECKSUM,30/COMMENT INDEX
01228  M01S00068.vfyli5  +++| .UN      CON    0           USER LIBRARY NAME
01229  M01S00069.vfyli5  +++| .RL      CON    0           RECORD LENGTH
01230  M01S00070.vfyli5  +++| .DT      CON    0           DATE
01231  M01S00071.vfyli5  +++|          ERRNZ  *-ENTL-1    NPT/OPT TABLE LENGTH ERROR
01232  M01S00072.vfyli5  +++|
01233  M01S00073.vfyli5  +++| .CM      BSSZ   13          COMMENT TEXT
01234  M01S00074.vfyli5  +++| .CL      CON    0           COMMENT LENGTH
01235  M01S00075.vfyli5  +++| .TL      CON    1           CURRENT LIBRARY NUMBER OF FILE
01236  M01S00076.vfyli5  +++| .TU      CON    0           SAVE AREA FOR CURRENT ULIB
01237  M01S00077.vfyli5  +++|
01238  M01S00078.vfyli5  +++| FPAL     BSS    0           FILE PARAMETER LENGTH
01239  M01S00079.vfyli5  +++|          LOC    *O
01240  M01S01044.vfylib  +++|
Line S01045 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01241  M02S01045.vfyli5  ---| RDFE     BSS    0
01242  M01S00080.vfyli5  +++| RDFE     BSS    0           NEW FILE PARAMETER LIST
01243  M01S00081.vfyli5  +++|
01244  M01S01046.vfylib  +++|          LOC    0
Line S01047 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01245  M02S01047.vfyli5  ---|          VFD    60/NEW
Line S01048 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01246  M02S01048.vfyli5  ---|          VFD    42/,12/,6/  42/PROGRAM,12/LIB,6/TYPE
Line S01049 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01247  M02S01049.vfyli5  ---|          VFD    60/         60/CHECKSUM
Line S01050 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01248  M02S01050.vfyli5  ---|          VFD    60/         60/ULIB
Line S01051 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01249  M02S01051.vfyli5  ---|          VFD    60/         60/DATE
Line S01052 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01250  M02S01052.vfyli5  ---|          DUP    13,1
Line S01053 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01251  M02S01053.vfyli5  ---|          VFD    60/         60/COMMENT TEXT
Line S01054 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01252  M02S01054.vfyli5  ---|          DATA   0           COMMENT LENGTH
Line S01055 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01253  M02S01055.vfyli5  ---|          DATA   0           LIBRARY NUMBER
Line S01056 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01254  M02S01056.vfyli5  ---|          DATA   0           TEMP LOC FOR CURRENT ULIB
Line S01057 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli5
Seq #  *Modification Id* Act 
----------------------------+
01255  M02S01057.vfyli5  ---|          ORG    *O
01256  M01S00082.vfyli5  +++| .PN      CON    NEW         NEW FILE FET ADDRESS
01257  M01S00083.vfyli5  +++| .PD      VFD    42/,12/,6/  42/PROGRAM,12/LIB,6/TYPE
01258  M01S00084.vfyli5  +++| .CS      CON    0           30/CHECKSUM,30/COMMENT INDEX
01259  M01S00085.vfyli5  +++| .UN      CON    0           USER LIBRARY NAME
01260  M01S00086.vfyli5  +++| .RL      CON    0           RECORD LENGTH
01261  M01S00087.vfyli5  +++| .DT      CON    0           DATE
01262  M01S00088.vfyli5  +++|          ERRNZ  *-ENTL-1    NPT/OPT TABLE LENGTH ERROR
01263  M01S00089.vfyli5  +++|
01264  M01S00090.vfyli5  +++| .CM      BSSZ   13          COMMENT TEXT
01265  M01S00091.vfyli5  +++| .CL      CON    0           COMMENT LENGTH
01266  M01S00092.vfyli5  +++| .TL      CON    1           CURRENT LIBRARY NUMBER OF FILE
01267  M01S00093.vfyli5  +++| .TU      CON    0           SAVE AREA FOR CURRENT ULIB
01268  M01S00094.vfyli5  +++|
01269  M01S00095.vfyli5  +++| FPAL     BSS    0           FILE PARAMETER LENGTH
01270  M01S00096.vfyli5  +++|          LOC    *O
01271  M01S01058.vfylib  +++|
01272  M01S01059.vfylib  +++|*         DISPLAY MESSAGE.
01273  M01S01060.vfylib  +++|
01274  M01S01061.vfylib  +++| RDFF     DATA   H*READING   *
01275  M01S01062.vfylib  +++|          DATA   10H
01276  M01S01063.vfylib  +++|          DATA   10H
01277  M01S01064.vfylib  +++|          DATA   0
01278  M01S01065.vfylib  +++| RDA      SPACE  4
01279  M01S01066.vfylib  +++|**        RDA - READ DATA.
01280  M01S01067.vfylib  +++|*
01281  M01S01068.vfylib  +++|*         PROCESSES CALLS TO READ WORDS (RDW=).
01282  M01S01069.vfylib  +++|*         DEBLOCKS DATA IF CONTROL WORD READS.
01283  M01S01070.vfylib  +++|*
01284  M01S01071.vfylib  +++|*         USES   A - 1, 3, 6, 7.
01285  M01S01072.vfylib  +++|*                B - 5, 6, 7.
01286  M01S01073.vfylib  +++|*                X - 1, 3, 4, 6, 7.
01287  M01S01074.vfylib  +++|*
01288  M01S01075.vfylib  +++|*         CALLS  RDW=.
01289  M01S01076.vfylib  +++|
01290  M01S01077.vfylib  +++|
01291  M01S01078.vfylib  +++| RDA5     SX6    B5-B7       UPDATE WORDS REMAINING
01292  M01S01079.vfylib  +++|          SA6    A1
01293  M01S01080.vfylib  +++|          RJ     RDW=        READ WORDS
01294  M01S01081.vfylib  +++|
01295  M01S01082.vfylib  +++| RDA      SUBR               ENTRY/EXIT
01296  M01S01083.vfylib  +++| RDA1     SA1    X2-2        GET NUMBER OF WORDS BEFORE CONTROL WORD
01297  M01S01084.vfylib  +++|          SB5    X1+
01298  M01S01085.vfylib  +++|          PL     X1,RDA2     IF NOT FIRST READ
01299  M01S01086.vfylib  +++|          SX7    B7+         SET WORDS NEEDED
01300  M01S01087.vfylib  +++|          SA7    RDAA
01301  M01S01088.vfylib  +++|          JP     RDA4
01302  M01S01089.vfylib  +++|
01303  M01S01090.vfylib  +++| RDA2     GE     B5,B7,RDA5  IF ENOUGH DATA TO FILL BUFFER
01304  M01S01091.vfylib  +++|          SA3    X2-1        CHECK EOR FLAG
01305  M01S01092.vfylib  +++|          PL     X3,RDA3     IF NOT EOR ON FILE
01306  M01S01093.vfylib  +++|          MX6    1           SET NEW READ FLAG
01307  M01S01094.vfylib  +++|          SB7    B5+B1       SET WORDS TO READ
01308  M01S01095.vfylib  +++|          SA6    A3
01309  M01S01096.vfylib  +++|          SA6    A1
01310  M01S01097.vfylib  +++|          RJ     RDW=        READ WORDS
01311  M01S01098.vfylib  +++|          SA1    B6-B1       CHECK CONTROL WORD
01312  M01S01099.vfylib  +++|          AX1    48
01313  M01S01100.vfylib  +++|          SX6    X1-17B
01314  M01S01101.vfylib  +++|          MX1    -1
01315  M01S01102.vfylib  +++|          SB6    B6-B1       BACK UP LAST WORD ADDRESS
01316  M01S01103.vfylib  +++|          ZR     X6,RDA      IF *EOF* CONTROL WORD
01317  M01S01104.vfylib  +++|          SX1    B6          SET *EOR* INDICATION
01318  M01S01105.vfylib  +++|          EQ     RDAX        RETURN
01319  M01S01106.vfylib  +++|
01320  M01S01107.vfylib  +++| RDA3     SX6    B7-B5       SAVE ADDITIONAL WORDS NEEDED
01321  M01S01108.vfylib  +++|          SA6    RDAA
01322  M01S01109.vfylib  +++|          SB7    B5+B1       SET WORDS TO TRANSFER
01323  M01S01110.vfylib  +++|          RJ     RDW=        READ WORDS
01324  M01S01111.vfylib  +++|          SB6    B6-1        BACK UP OVER LAST CONTROL WORD
01325  M01S01112.vfylib  +++| RDA4     SB7    B1          READ CONTROL WORD
01326  M01S01113.vfylib  +++|          RJ     RDW=
01327  M01S01114.vfylib  +++|          NG     X1,RDA      IF EOF/EOI
01328  M01S01115.vfylib  +++|          SB6    B6-B1       BACK UP WORKING BUFFER
01329  M01S01116.vfylib  +++|          SA1    B6          CONTROL WORD
01330  M01S01117.vfylib  +++|          SX7    5
01331  M01S01118.vfylib  +++|          SX4    X1+4        ROUND UP
01332  M01S01119.vfylib  +++|          AX1    36          EXTRACT BLOCK SIZE
01333  M01S01120.vfylib  +++|          SX3    X1
01334  M01S01121.vfylib  +++|          IX7    X4/X7       WORDS IN BLOCK
01335  M01S01122.vfylib  +++|          IX6    X7-X3       SAVE EOR FLAG
01336  M01S01123.vfylib  +++|          SA7    X2-2        STORE WORD COUNT
01337  M01S01124.vfylib  +++|          SA6    X2-1        EOR FLAG
01338  M01S01125.vfylib  +++|          SA1    RDAA        RESET WORDS NEEDED
01339  M01S01126.vfylib  +++|          SB7    X1
01340  M01S01127.vfylib  +++|          JP     RDA1        LOOP
01341  M01S01128.vfylib  +++|
01342  M01S01129.vfylib  +++| RDAA     CON    0
01343  M01S01130.vfylib  +++| CDT      SPACE  4
01344  M01S01131.vfylib  +++|**        CDT - CHECK DEVICE TYPE.
01345  M01S01132.vfylib  +++|*
01346  M01S01133.vfylib  +++|*         ENTRY  (X1) = (FET+1).
01347  M01S01134.vfylib  +++|*
01348  M01S01135.vfylib  +++|*         EXIT   (X7) = 0, IF CONTROL WORD READ/WRITE NOT SUPPORTED
01349  M01S01136.vfylib  +++|*                       ON DEVICE.
01350  M01S01137.vfylib  +++|*
01351  M01S01138.vfylib  +++|*         USES   A - 2.
01352  M01S01139.vfylib  +++|*                X - 0, 1, 2, 6, 7.
01353  M01S01140.vfylib  +++|
01354  M01S01141.vfylib  +++|
01355  M01S01142.vfylib  +++| CDT2     LX1    12          CHECK *TT*
01356  M01S01143.vfylib  +++|          BX6    -X0*X1
01357  M01S01144.vfylib  +++|          SX7    X6-2RTT
01358  M01S01145.vfylib  +++|
01359  M01S01146.vfylib  +++| CDT      SUBR               ENTRY/EXIT
01360  M01S01147.vfylib  +++|          MX0    -12
01361  M01S01148.vfylib  +++|          PL     X1,CDT2     IF ALLOCATABLE
01362  M01S01149.vfylib  +++|          LX1    12
01363  M01S01150.vfylib  +++|          SA2    CDTA        SEARCH DEVICE TABLE
01364  M01S01151.vfylib  +++|          SX7    0           ASSUME NO FIND
01365  M01S01152.vfylib  +++| CDT1     ZR     X2,CDTX     IF NOT FOUND - RETURN
01366  M01S01153.vfylib  +++|          BX6    X1-X2
01367  M01S01154.vfylib  +++|          AX2    12
01368  M01S01155.vfylib  +++|          BX6    X2*X6
01369  M01S01156.vfylib  +++|          SA2    A2+B1
01370  M01S01157.vfylib  +++|          NZ     X6,CDT1     IF NOT MATCH
01371  M01S01158.vfylib  +++|          SX7    1           INDICATE CONTROL WORD POSSIBLE
01372  M01S01159.vfylib  +++|          EQ     CDTX        RETURN
01373  M01S01160.vfylib  +++|
01374  M01S01161.vfylib  +++| CDTA     VFD    36/,12/7703B,12/4002B
01375  M01S01162.vfylib  +++|          VFD    36/,12/7703B,12/4102B
01376  M01S01163.vfylib  +++|          VFD    36/,12/7777B,12/2RMT+4000B
01377  M01S01164.vfylib  +++|          VFD    36/,12/7777B,12/2RNT+4000B
01378  M01S00023.274l797 +++|          VFD    36/,12/7777B,12/2RCT+4000B
01379  M01S00024.274l797 +++|          VFD    36/,12/7777B,12/2RAT+4000B
01380  M01S01165.vfylib  +++|          CON    0
01381  M01S01166.vfylib  +++| IDT      SPACE  4
Line S01167 Modification History
M01 (Added by) vfylib
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01382  M02S01167.v23l617 ---|**        IDT - ISSUE ILLEGAL DEVICE MESSAGE.
01383  M01S00005.v23l617 +++|**        IDT - ISSUE UNKNOWN DEVICE MESSAGE.
01384  M01S01168.vfylib  +++|*
01385  M01S01169.vfylib  +++|*         ENTRY  (A1) = FET ADDRESS + 1.
01386  M01S01170.vfylib  +++|*                (X7) = 0.
01387  M01S01171.vfylib  +++|*
01388  M01S01172.vfylib  +++|*         EXIT   TO ABT.
01389  M01S01173.vfylib  +++|*
01390  M01S01174.vfylib  +++|*         USES   A - 1, 7.
01391  M01S01175.vfylib  +++|*                B - 4.
01392  M01S01176.vfylib  +++|*                X - 0, 1, 2, 3, 4, 6, 7.
01393  M01S01177.vfylib  +++|*
01394  M01S01178.vfylib  +++|*         CALLS  MSG=.
01395  M01S01179.vfylib  +++|
01396  M01S01180.vfylib  +++|
01397  M01S01181.vfylib  +++| IDT      MX0    42
01398  M01S01182.vfylib  +++|          SA1    A1-B1       READ FILE NAME
01399  M01S01183.vfylib  +++|          MX3    26+10
01400  M01S01184.vfylib  +++|          BX6    X0*X1
01401  M01S01185.vfylib  +++|          MX2    6
01402  M01S01186.vfylib  +++|          LX3    59          POSITION LEGAL CHARACTER MASK
01403  M01S01187.vfylib  +++|          BX1    X1-X1
01404  M01S01188.vfylib  +++|          MX0    -6
01405  M01S01189.vfylib  +++| IDT1     LX7    6
01406  M01S01190.vfylib  +++|          BX7    X7+X1       ASSEMBLE FILE NAME
01407  M01S01191.vfylib  +++|          LX6    6
01408  M01S01192.vfylib  +++|          BX1    -X0*X6
01409  M01S01193.vfylib  +++|          SB4    X1          FIND END OF FILE NAME
01410  M01S01194.vfylib  +++|          LX4    B4,X3
01411  M01S01195.vfylib  +++|          NG     X4,IDT1     IF NOT END OF NAME
01412  M01S01196.vfylib  +++|          LX7    6
01413  M01S01197.vfylib  +++|          SX1    1R.         ADD *.* TO FILE NAME
01414  M01S01198.vfylib  +++|          BX7    X7+X1
01415  M01S01199.vfylib  +++| +        LX7    6           LEFT JUSTIFY ASSEMBLY
01416  M01S01200.vfylib  +++|          BX6    X2*X7
01417  M01S01201.vfylib  +++|          ZR     X6,*        IF NOT LEFT JUSTIFIED
01418  M01S01202.vfylib  +++|          SA7    IDTB
01419  M01S01203.vfylib  +++|          MESSAGE IDTA
01420  M01S01204.vfylib  +++|          CALL   ABT
01421  M01S01205.vfylib  +++|
Line S01206 Modification History
M01 (Added by) vfylib
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01422  M02S01206.v23l617 ---| IDTA     DATA   30H ILLEGAL DEVICE TYPE -- LFN =
01423  M01S00006.v23l617 +++| IDTA     DATA   30H UNKNOWN DEVICE TYPE -- LFN =
01424  M01S01207.vfylib  +++| IDTB     CON    0
01425  M01S01208.vfylib  +++| WPH      SPACE  4
01426  M01S01209.vfylib  +++|**        WPH - WRITE PAGE HEADER.
01427  M01S01210.vfylib  +++|*
01428  M01S01211.vfylib  +++|*         EXIT   PAGE HEADER WRITTEN.
01429  M01S01212.vfylib  +++|*
01430  M01S01213.vfylib  +++|*         USES   A - 1, 2, 6, 7.
01431  M01S01214.vfylib  +++|*                X - 0, 1, 2, 6, 7.
01432  M01S01215.vfylib  +++|*
01433  M01S01216.vfylib  +++|*         CALLS  C6S, WTW=.
01434  M01S01217.vfylib  +++|
01435  M01S01218.vfylib  +++|
01436  M01S01219.vfylib  +++| WPH      SUBR               ENTRY/EXIT
Line S01220 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
01437  M02S01220.vfyli1  ---|          SA2    WPHA
01438  M01S00004.vfyli1  +++|          SA2    PNUM
01439  M01S01221.vfylib  +++|          SX6    X2+B1       ADVANCE PAGE NUMBER
01440  M01S01222.vfylib  +++|          SA6    A2
Line S01223 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
01441  M02S01223.vfyli1  ---|          CALL   C6S,A2,A6+B1
01442  M01S00005.vfyli1  +++|          CALL   C6S,A2,WPHA
01443  M01S01224.vfylib  +++|          LX6    36
01444  M01S01225.vfylib  +++|          MX0    -24
Line S01226 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
01445  M02S01226.vfyli1  ---|          SA1    B3+1
01446  M01S00006.vfyli1  +++|          SA1    WPHA+1
01447  M01S01227.vfylib  +++|          BX6    -X0*X6      INSERT PAGE NUMBER
01448  M01S01228.vfylib  +++|          IX7    X1+X6
01449  M01S01229.vfylib  +++|          SA7    CRPG
01450  M01S01230.vfylib  +++|          WRITEW O,WPHB,WPHD
01451  M01S01231.vfylib  +++|          SX6    3           SET LINE COUNT
01452  M01S01232.vfylib  +++|          SA6    LINE
01453  M01S01233.vfylib  +++|          EQ     WPHX        RETURN
01454  M01S01234.vfylib  +++|
Line S01235 Modification History
M01 (Added by) vfylib
M02 (Updated by) vfyli1
Seq #  *Modification Id* Act 
----------------------------+
01455  M02S01235.vfyli1  ---| WPHA     CON    0           PAGE NUMBER
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/vfylib.txt · Last modified: by 127.0.0.1