Common COMPVFN

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compvfn +++|          CTEXT  COMPVFN - VERIFY FILE NAME.
00002  M00S00002.compvfn +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compvfn +++|          QUAL   COMPVFN

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compvfn +++| VFN      SPACE  4
00006  M00S00005.compvfn +++|***       VFN - VERIFY FILE NAME.
00007  M00S00006.compvfn +++|*         G. R. MANSFIED.  09/27/69.
00008  M00S00007.compvfn +++| VFN      SPACE  4
00009  M00S00008.compvfn +++|***              VFN CHECKS THE FILE NAME FOR LEGALITY.
00010  M00S00009.compvfn +++|*         THE FILE NAME MUST BE 1-7 ALPHA/NUMERIC CHARACTERS LEFT
00011  M00S00010.compvfn +++|*         JUSTIFIED WITH TRAILING 0 FILL.

Line S00001 Modification History
`M01` (Added by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00001.ns2640  +++|*
00013  M00S00011.compvfn +++|*         ENTRY  (FN - FN+3) = FILE NAME.

Line S00012 Modification History
`M01` (Removed by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00012.ns2640  ---|*         EXIT   (A) " 0 IF FILE NAME IN CORRECT FORMAT.

Line S00002 Modification History
`M01` (Added by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00002.ns2640  +++|*
00016  M01S00003.ns2640  +++|*         EXIT   (A) .NE. 0 IF FILE NAME IN CORRECT FORMAT.
00017  M01S00004.ns2640  +++|*
00018  M00S00013.compvfn +++|*         USES   T1.
00019  M01S00005.ns2640  +++|*
00020  M01S00006.ns2640  +++|*         NOTE - IF *VFN$* IS DEFINED, THE ASTERISK (*) IS ALLOWED AS
00021  M01S00007.ns2640  +++|*                A VALID CHARACTER IN THE FILE NAME.
00022  M00S00014.compvfn +++|
00023  M00S00015.compvfn +++|
00024  M01S00008.ns2640  +++| VFN2     LDI    T1          CHECK REMAINDER OF NAME
00025  M01S00009.ns2640  +++|          NJN    VFN4        IF NOT BLANK
00026  M01S00010.ns2640  +++| VFN3     AOD    T1
00027  M01S00011.ns2640  +++|          LMN    FN+3
00028  M01S00012.ns2640  +++|          NJN    VFN2        IF CHARACTERS 1 - 6
00029  M01S00013.ns2640  +++|          LDD    FN+3        CHECK 7TH CHARACTER
00030  M01S00014.ns2640  +++|          SHN    -6
00031  M01S00015.ns2640  +++|          NJN    VFN4        IF NOT BLANK
00032  M01S00016.ns2640  +++|          LDD    FN          CHECK FIRST BYTE
00033  M01S00017.ns2640  +++|          UJN    VFNX        RETURN
00034  M01S00018.ns2640  +++|
00035  M00S00016.compvfn +++| VFN4     LDN    0           RETURN WITH (A) = 0
00036  M00S00017.compvfn +++|
00037  M00S00018.compvfn +++| VFN      SUBR               ENTRY/EXIT
00038  M00S00019.compvfn +++|          LDN    FN          SET BYTE ADDRESS
00039  M00S00020.compvfn +++|          STD    T1
00040  M00S00021.compvfn +++| VFN1     LDI    T1          CHECK UPPER CHRACTER
00041  M00S00022.compvfn +++|          SHN    -6
00042  M00S00023.compvfn +++|          ZJN    VFN2        IF BLANK
00043  M00S00024.compvfn +++|          SBN    1R9+1
00044  M01S00019.ns2640  +++| VFN$     IF     -DEF,VFN$
00045  M00S00025.compvfn +++|          PJN    VFN4        IF NOT ALPHA/NUMERIC

Line S00026 Modification History
`M01` (Removed by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00026.ns2640  ---|          LDI    T1          CHECK LOWER CHARACTER

Line S00020 Modification History
`M01` (Added by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00020.ns2640  +++| VFN$     ELSE
00048  M01S00021.ns2640  +++|          MJN    VFN1.1      IF ALPHANUMERIC
00049  M01S00022.ns2640  +++|          SBN    1R*-1R9-1
00050  M01S00023.ns2640  +++|          NJN    VFN4        IF NOT +*+
00051  M01S00024.ns2640  +++| VFN$     ENDIF
00052  M01S00025.ns2640  +++| VFN1.1   LDI    T1          CHECK LOWER CHARACTER
00053  M00S00027.compvfn +++|          LPN    77
00054  M00S00028.compvfn +++|          ZJN    VFN3        IF BLANK
00055  M00S00029.compvfn +++|          SBN    1R9+1
00056  M01S00026.ns2640  +++| VFN$     IF     -DEF,VFN$
00057  M00S00030.compvfn +++|          PJN    VFN4        IF NOT ALPHA/NUMERIC

Line S00031 Modification History
`M01` (Removed by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00031.ns2640  ---|          AOD    T1          ADVANCE BYTE ADDRESS

Line S00027 Modification History
`M01` (Added by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00059  M01S00027.ns2640  +++| VFN$     ELSE
00060  M01S00028.ns2640  +++|          MJN    VFN1.2      IF ALPHANUMERIC
00061  M01S00029.ns2640  +++|          SBN    1R*-1R9-1
00062  M01S00030.ns2640  +++|          NJN    VFN4        IF NOT +*+
00063  M01S00031.ns2640  +++| VFN$     ENDIF
00064  M01S00032.ns2640  +++| VFN1.2   AOD    T1          ADVANCE BYTE ADDRESS
00065  M00S00032.compvfn +++|          LMN    FN+3
00066  M00S00033.compvfn +++|          NJN    VFN1        LOOP FOR 6 CHARACTERS
00067  M00S00034.compvfn +++|          LDD    FN+3        CHECK 7TH CHARACTER
00068  M00S00035.compvfn +++|          SHN    -6
00069  M00S00036.compvfn +++|          SBN    1R9+1
00070  M00S00037.compvfn +++|          MJN    VFNX        RETURN IF ALPHA/NUMERIC
00071  M01S00033.ns2640  +++| VFN$     IF     DEF,VFN$
00072  M01S00034.ns2640  +++|          SBN    1R*-1R9-1
00073  M01S00035.ns2640  +++|          NJN    VFN4        IF NOT +*+
00074  M01S00036.ns2640  +++|          LDN    1           INDICATE SUCCESS
00075  M01S00037.ns2640  +++|          UJN    VFNX        RETURN
00076  M01S00038.ns2640  +++| VFN$     ELSE
00077  M00S00038.compvfn +++|          UJN    VFN4        PROCESS ERROR

Line S00039 Modification History
`M01` (Removed by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00078  M01S00039.ns2640  ---| VFN2     LDI    T1          CHECK REMAINDER OF NAME
00079  M01S00040.ns2640  ---|          NJN    VFN4        IF NOT BLANK
00080  M01S00041.ns2640  ---| VFN3     AOD    T1
00081  M01S00042.ns2640  ---|          LMN    FN+3
00082  M01S00043.ns2640  ---|          NJN    VFN2        LOOP FOR 6 CHARACTERS
00083  M01S00044.ns2640  ---|          LDD    FN+3        CHECK 7TH CHARACTER
00084  M01S00045.ns2640  ---|          SHN    -6
00085  M01S00046.ns2640  ---|          NJN    VFN4        IF NOT BLANK
00086  M01S00047.ns2640  ---|          LDD    FN          CHECK FIRST BYTE
00087  M01S00048.ns2640  ---|          UJN    VFNX        RETURN

Line S00039 Modification History
`M01` (Added by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00039.ns2640  +++| VFN$     ENDIF
00089  M00S00049.compvfn +++|          SPACE  4
00090  M00S00050.compvfn +++| QUAL$    IF     -DEF,QUAL$
00091  M00S00051.compvfn +++|          QUAL   *
00092  M00S00052.compvfn +++| VFN      EQU    /COMPVFN/VFN
00093  M00S00053.compvfn +++| QUAL$    ENDIF
00094  M00S00054.compvfn +++|          ENDX