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

**Defined in:** [[george:source:COREMACROS|COREMACROS]]

**Used in:** [[george:source:TAPEWAIT65|TAPEWAIT65]]

<code - LONGLOCK.mac.txt>
 54W4 ...[??? LONGLOCK SECT CENT FGN 32 DOC  
 555W    #   
 556^ ...#MAC  LONGLOCK  
 5584 ...      MOD      LDX 2 ALOGLEN,%A 
 5597 ...      CALL  0  (GCORE)  
 55== ...               +HMANDAT+HLONGLOCK:0 
 55?* ...#STR  %B
 55#D ...      CALL  1  %B   
 55*H ...      BLOCKCOPY 
 55*R ...      LDN   0  #4                  [SET THE LONGLOCK BIT
 55B3 ...      SMO      BDESTN   
 55B? ...      ORS   0  AFLAG
 55BL ...#NOR
</code>