PWTABLE [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: PWTABLE)}}
====== PWTABLE ======
(GIN Macro)

**Defined in:** [[george:source:MES_INTLUDES|MES INTLUDES]]

**Used in:** 

<code - PWTABLE.mac.txt>
 22FL    #MAC PWTABLE
 22^=    #STR %A 
 23DW    (   
 23YG    #MEN INITJOB
 24D6    #TRA K21INITJOB 
 24XQ                   3H%A,3H%B,3H%C,3H%D,3H%E,3H%F,3H%G,3H%H  
 25CB    #END
 25X2    )   
 26BL    #DEF Z = 1? 
 26W=    #LIS 0%I
 27*W    #ORD
 27TG    #INT
 28*6    ZB  
 28SQ    #GAP K21INITJOB+8   
 29#B    SLINK          0
 29S2    PFA            +DINITJOB
 2=?L    SPS            4H   
 2=R=    #DEF SW = #20202020 
 2?=W    T1             24HPASSWORD CHECK SETTINGS ,+SW,+SW,+SW,#20202043
 2?QG                   8HENTRAL 
 2#=6    T1A            #20202062,8HEMOTE
 2#PQ    T2             #20206345,8HCURITY : 
 2*9B    T2A            #20545767,#20202056,#57625541,#54202020,#50514750
 2*P2    T31            28HLOGIN/CONNECT 
 2B8L    T32            16HJOB/RUNJOB/INPUT,#20202030,8HMOP) 
 2BN=    T33            16HJOB/RUNJOB/INPUT,#20203062,8HEADER)   
 2C7W    T34            #20202020,8HRUNJOB   
 2CMG                   #20202020,12H(OPERATOR)  
 2D76    T3             +T31,+T32,+T33,+T34  
 2DLQ    SIGN           #40000000
 2F6B    #   
 2FL2    P     STO   0  SLINK
 2G5L          CALL  3  18?+2]+5]
 2GK=          STOZ     18?+3]+20
 2H4W          LDN   5  ZB   
 2HJG          LDN   2  K21INITJOB+8 
 2J46          LDX   6  PFA  
 2JHQ          CALL  0  18?+2]+3]
 2K3B          CALL  3  18?+2]+10]   
 2KH2          CALL  0  NBL  
 2L2L          LDN   0  T1   
 2LG=          MOVE  0  12   
 2L^W          LDN   5  T1A  
 2MFG          LDN   6  16(1)
 2M^6          MOVE  5  3
 2NDQ          CALL  3  18?+2]+19]   
 2NYB          CALL  0  NBL  
 2PD2          LDN   5  T2   
 2PXL          LDN   6  4(1) 
 2QC=          MOVE  5  3
 2QWW          LDN   5  T2A  
 2RBG          LDN   6  8(1) 
 2RW6          MOVE  5  5
 2S*Q          LDN   6  15(1)
 2STB          MOVE  5  5
 2T*2          CALL  3  18?+2]+19]   
 2TSL          LDN   7  4
 2W#=    PL    CALL  0  NBL  
 2WRW          LDN   2  4
 2X?G          SBX   2  7
 2XR6          LDX   0  T3(2)
 2Y=Q          MOVE  0  7
 2YQB          ADN   1  8
 2^=2          ADX   1  SIGN 
 2^PL          LDX   6  ZB+K21INITJOB(2) 
 329=          CALL  0  PTAB 
 32NW          ADN   1  1
 338G          LDX   6  ZB+K21INITJOB+4(2)   
 33N6          CALL  0  PTAB 
 347Q          CALL  3  18?+2]+19]   
 34MB          BCT   7  PL   
 3572          CALL  3  18?+2]+10]   
 35LL          CALL  3  18?+2]+10]   
 366=          LDX   0  SLINK
 36KW          EXIT  0  0
 375G    #   
 37K6    PTAB  LDN   3  3
 384Q    PTC   LDN   5  0
 38JB          SLL   56 6
 3942          DCH   5  0(1) 
 39HL          SBN   5  #55  
 3=3=          BPZ   5  OK1  
 3=GW          ADN   5  #55-#46  
 3?2G          BZE   5  OK   
 3?G6    NOK   LDCT  5  #320 
 3?^Q          ORS   5  0(1) 
 3#FB          ORS   5  1(1) 
 3#^2          STO   5  18?+3]+20
 3*DL          BRN      OK   
 3*Y=    OK1   SBN   5  5
 3BCW          BPZ   5  NOK  
 3BXG    OK    ADN   1  2
 3CC6          BCT   3  PTC  
 3CWQ          EXIT  0  0
 3DBB    #   
 3DW2    NBL   CALL  3  18?+2]+10]   
 3F*L          CALL  5  18?+2]+20]   
 3FT=          LDX   1  18?+1]+62
 3G#W          LDN   2  1(1) 
 3GSG          LDX   5  SPS  
 3H#6          STO   5  0(1) 
 3HRQ          MOVE  1  29   
 3J?B          EXIT  0  0
 3JR2    #JUM P  
 3K=L    #EXT
 3KQ=    #LIS Z  
 3L9W    #SKI 20?
 3LPG    ! **** ERROR IN PASSWORD CHECK TABLE * * * * * * * * * * * * * * * * *  
 3M96    #FRL
 3MNQ    #NOR
</code>