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