LOCK [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: LOCK)}}
====== LOCK ======
(GIN Macro)

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

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

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