LOCK

(GIN Macro)

Defined in: COREMACROS

Used in: ADDICT865, ASSIGN860, BACKMAP864, BMCNTRL866, BMJLIST864, BMSJRNL866, BSBLFAIL867, BSTS867, CARTCONT867, CLOSEONE867, COMPCHAN84, CORE867, COREALLF867, EMSENG864, ERASE867, FINDRUM866, GETNO865, GIVE867, INCEOT865, INLOOP84, IPBERROR867, IPBSCAN867, IPBSTARB867, IPBSTART867, IPCONG8, IPCOPENA83, IPCOPENB83, IPCPERI83, IPCSTART864, KARTCONT867, LABEL866, LIBREQCA867, LISTDEV866, LISTNIP865, LOADERR70, LOADFIN860, LOADPROG865, MONITOR36, MTDUMP860, OFFREL867, OLMTA85, OLMTB867, OLMTD65, OLMTE85, PERCON867, PROFLAG83, PROSTART867, REDONMT867, RELPER867, RENAMEMT867, RESTLIMB864, RESTMERG864, RETURN867, SAVEFILE860, SETUPA867, SPERION867, TRANFAIL866, TRANSFER70, TWINSETA866, UNSAVE867

LOCK.mac.txt

 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