Common COMPVFN

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compvfn +++|          CTEXT  COMPVFN - VERIFY FILE NAME.
00002  M01S00002.compvfn +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compvfn +++|          QUAL   COMPVFN
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compvfn +++| VFN      SPACE  4
00006  M01S00005.compvfn +++|***       VFN - VERIFY FILE NAME.
00007  M01S00006.compvfn +++|*         G. R. MANSFIED.  09/27/69.
00008  M01S00007.compvfn +++| VFN      SPACE  4
00009  M01S00008.compvfn +++|***              VFN CHECKS THE FILE NAME FOR LEGALITY.
00010  M01S00009.compvfn +++|*         THE FILE NAME MUST BE 1-7 ALPHA/NUMERIC CHARACTERS LEFT
00011  M01S00010.compvfn +++|*         JUSTIFIED WITH TRAILING 0 FILL.
00012  M01S00001.ns2640  +++|*
00013  M01S00011.compvfn +++|*         ENTRY  (FN - FN+3) = FILE NAME.

Line S00012 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00014  M02S00012.ns2640  ---|*         EXIT   (A) " 0 IF FILE NAME IN CORRECT FORMAT.
00015  M01S00002.ns2640  +++|*
00016  M01S00003.ns2640  +++|*         EXIT   (A) .NE. 0 IF FILE NAME IN CORRECT FORMAT.
00017  M01S00004.ns2640  +++|*
00018  M01S00013.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  M01S00014.compvfn +++|
00023  M01S00015.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  M01S00016.compvfn +++| VFN4     LDN    0           RETURN WITH (A) = 0
00036  M01S00017.compvfn +++|
00037  M01S00018.compvfn +++| VFN      SUBR               ENTRY/EXIT
00038  M01S00019.compvfn +++|          LDN    FN          SET BYTE ADDRESS
00039  M01S00020.compvfn +++|          STD    T1
00040  M01S00021.compvfn +++| VFN1     LDI    T1          CHECK UPPER CHRACTER
00041  M01S00022.compvfn +++|          SHN    -6
00042  M01S00023.compvfn +++|          ZJN    VFN2        IF BLANK
00043  M01S00024.compvfn +++|          SBN    1R9+1
00044  M01S00019.ns2640  +++| VFN$     IF     -DEF,VFN$
00045  M01S00025.compvfn +++|          PJN    VFN4        IF NOT ALPHA/NUMERIC

Line S00026 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00026.ns2640  ---|          LDI    T1          CHECK LOWER CHARACTER
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  M01S00027.compvfn +++|          LPN    77
00054  M01S00028.compvfn +++|          ZJN    VFN3        IF BLANK
00055  M01S00029.compvfn +++|          SBN    1R9+1
00056  M01S00026.ns2640  +++| VFN$     IF     -DEF,VFN$
00057  M01S00030.compvfn +++|          PJN    VFN4        IF NOT ALPHA/NUMERIC

Line S00031 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00058  M02S00031.ns2640  ---|          AOD    T1          ADVANCE BYTE ADDRESS
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  M01S00032.compvfn +++|          LMN    FN+3
00066  M01S00033.compvfn +++|          NJN    VFN1        LOOP FOR 6 CHARACTERS
00067  M01S00034.compvfn +++|          LDD    FN+3        CHECK 7TH CHARACTER
00068  M01S00035.compvfn +++|          SHN    -6
00069  M01S00036.compvfn +++|          SBN    1R9+1
00070  M01S00037.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  M01S00038.compvfn +++|          UJN    VFN4        PROCESS ERROR

Line S00039 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00039.ns2640  ---| VFN2     LDI    T1          CHECK REMAINDER OF NAME

Line S00040 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00040.ns2640  ---|          NJN    VFN4        IF NOT BLANK

Line S00041 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00080  M02S00041.ns2640  ---| VFN3     AOD    T1

Line S00042 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00042.ns2640  ---|          LMN    FN+3

Line S00043 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00043.ns2640  ---|          NJN    VFN2        LOOP FOR 6 CHARACTERS

Line S00044 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00044.ns2640  ---|          LDD    FN+3        CHECK 7TH CHARACTER

Line S00045 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00084  M02S00045.ns2640  ---|          SHN    -6

Line S00046 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00046.ns2640  ---|          NJN    VFN4        IF NOT BLANK

Line S00047 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00086  M02S00047.ns2640  ---|          LDD    FN          CHECK FIRST BYTE

Line S00048 Modification History
`M01` (Added by)	`compvfn`
`M02` (Updated by)	`ns2640`

Seq #  *Modification Id* Act 
----------------------------+
00087  M02S00048.ns2640  ---|          UJN    VFNX        RETURN
00088  M01S00039.ns2640  +++| VFN$     ENDIF
00089  M01S00049.compvfn +++|          SPACE  4
00090  M01S00050.compvfn +++| QUAL$    IF     -DEF,QUAL$
00091  M01S00051.compvfn +++|          QUAL   *
00092  M01S00052.compvfn +++| VFN      EQU    /COMPVFN/VFN
00093  M01S00053.compvfn +++| QUAL$    ENDIF
00094  M01S00054.compvfn +++|          ENDX