2?MJ ...[??? LOCK SECT CENT FGN 32 DOC  
 2?ML ...#   
 2?QG    [   
 2#=6    [ENTRY SEQUENCE FOR LOCKING A BLOCK ROUTINE 
 2#PQ    [   
 2*9B    #MAC  LOCK  
 2*P2    #STR  %A,2  
 2B8L          LDX   2  %A                  [ADDRESS OF BLOCK TO BE LOCKED   
 2BN=          CALL  0  (GLOCK)  
 2C7W    #NOR