ALIENDIR

(GIN Macro)
Used in:
ALIENDIR.mac.txt
 C5*7 ...[   
 C5SR ...[   
 C5SY ...[??? ALIENDIR SECT FILE FGN 67 DOC  
 C5T5 ...#MAC ALIENDIR   
 C5T= ...#STR %A 
 C5TC ...(   
 C5TJ ...#DEF MALDIRLST=1?   
 C5TP ...#LIS 0  
 C5TW ...#ORD
 C5W3 ...#INT
 C5W8 ...XNAME 12H%A 
 C5W* ...[   
 C5WG ...XSTART  
 C5WM ...      LDN   1  XNAME
 C5WS ...      LDX   7  2(1) 
 C5W^ ...      ANDN  7  #00007777           [LAST TWO CHARACTERS MUST BE SPACES  
 C5X6 ...      SBN   7  #2020
 C5X? ...      BZE   7  XLENTHOK 
 C5XD ...      STO   7  19?+0
 C5XK ...      LDN   7  0
 C5XQ ...      STO   7  19?+1
 C5XX ...      BRN      XEND 
 C5Y4 ...XLENTHOK
 C5Y9 ...      LDCH  7  0(1)                [VALIDATE FIRST CHARACTER
 C5YB ...      SBN   7  #41  
 C5YH ...      BNG   7  XCHARILL            [J IF INVALID
 C5YN ...      SBN   7  #73-#41  
 C5YT ...      BPZ   7  XCHARILL 
 C5^2 ...      LDN   6  1                   [X6 => COUNT OF CHARS IN NAME
 C5^7 ...      LDN   5  0                   [X5 => COUNT OF SPACES   
 C5^# ...      LDN   4  9                   [X4 => COUNT OF CHARS INSPECTED  
 C5^F ...NXCHAR  
 C5^L ...      BCHX  1  £
 C5^R ...      LDCH  7  0(1) 
 C5^Y ...      LDN   2  10   
 C625 ...      BXL   7  2,NCHAROK
 C62= ...      LDN   2  #20  
 C62C ...      BXE   7  2,XSPACE 
 C62J ...      LDN   2  #35  
 C62P ...      BXE   7  2,NCHAROK
 C62W ...      SBN   7  #41  
 C633 ...      BNG   7  XCHARILL 
 C638 ...      SBN   7  #73-#41  
 C63* ...      BPZ   7  XCHARILL 
 C63G ...NCHAROK 
 C63M ...      ADN   6  1
 C63S ...      ADX   6  5
 C63^ ...      LDN   5  0
 C646 ...NCHAROK1
 C64? ...      BCT   4  NXCHAR   
 C64D ...      STO   6  19?+2               [X6 => COUNT OF CHARS IN USERNAME
 C64K ...      STO   6  19?+1
 C64Q ...      STO   6  19?+0
 C64X ...      BRN      XEND 
 C654 ...XSPACE  
 C659 ...      ADN   5  1
 C65B ...      BRN      NCHAROK1 
 C65H ...XCHARILL
 C65N ...      LDN   7  0
 C65T ...      STO   7  19?+0
 C662 ...XEND
 C667 ...      EXIT   0  0   
 C66# ...#JUM XSTART 
 C66F ...#EXT
 C66L ...#LIS MALDIRLST  
 C66R ...#FRE MALDIRLST  
 C66Y ...#SKI 19?+0] 
 C675 ...(   
 C67= ...#SKI 19?+1] 
 C67C ...(   
 C67J ...#MEN SCHEDMTA   
 C67P ...#TRA K99SCHEDMTA
 C67W ...               +19?+2]  
 C683 ...               12H%A
 C688 ...#END
 C68* ...#EXI
 C68G ...)   
 C68M ...! USERNAME TOO LONG 
 C68S ...#EXI
 C68^ ...)   
 C696 ...! INVALID CHARACTER IN USERNAME 
 C69? ...#EXI
 C69D ...)   
 C69K ...! PARAMETER IS MISSING  
 C69Q ...#NOR