PLOCKSU

(GIN Macro)
Used in: CLOSBAC867, CLOSDEL867, CONTRACT866, NEXTUNIT867, RENAMEX867, REQCART866, SQOPEN867
PLOCKSU.mac.txt
 62X2    #   
 63BL    # **********************************************************************
 63W=    # *                                                                     
 64*W    # *             SCA LOCK-OUT SYSTEM MACROS                              
 64TG    # *                                                                     
 65*6    # *           PLOCKSU,TPLOCKSU,UNLOCKSU,LOCKM                           
 65SQ    # **********************************************************************
 66#B    #   
 66S2    [???                                PLOCKSU 
 67?L    #                                   ******* 
 67R=    #MAC  PLOCKSU   
 68=W    #   
 68QG          LDX   0  %A   
 69=6          SMO      FX2  
 69PQ          STO   0  ACOMMUNE9
 6=9B    #STR  %D
 6=P2          DOWN     TWINSETB,11  
 6?8L    #STR  %D
 6?N=    #SKI
 6#7W          DOWN     TWINSETB,4   
 6#MG          BRN      %B   
 6*76          BRN      %C   
 6*LQ    MPLOCKSU2   
 6B6B          MFINDSU  1,ACOMMUNE9(2)   
 6BL2          LDX   0  ASMARK(1)
 6C5L          BPZ   0  MPLOCKSU1
 6CK=          COOR3    #72  
 6D4W          BRN      MPLOCKSU2
 6DJG    MPLOCKSU1   
 6F46          LDCT  0  #400 
 6FHQ          ORS   0  ASMARK(1)
 6G3B    #NOR