{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: PLOCKSU)}}
====== PLOCKSU ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_EWDAS|MACROS EWDAS]]

**Used in:** [[george:source:CLOSBAC867|CLOSBAC867]], [[george:source:CLOSDEL867|CLOSDEL867]], [[george:source:CONTRACT866|CONTRACT866]], [[george:source:NEXTUNIT867|NEXTUNIT867]], [[george:source:RENAMEX867|RENAMEX867]], [[george:source:REQCART866|REQCART866]], [[george:source:SQOPEN867|SQOPEN867]]

<code - 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
</code>