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

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

**Used in:** [[george:source:ADDICT865|ADDICT865]], [[george:source:ASSIGN860|ASSIGN860]], [[george:source:BACKMAP864|BACKMAP864]], [[george:source:BMAPTWO860|BMAPTWO860]], [[george:source:BMCNTRL866|BMCNTRL866]], [[george:source:BMSJRNL866|BMSJRNL866]], [[george:source:BRADDATA867|BRADDATA867]], [[george:source:BRADEMUL867|BRADEMUL867]], [[george:source:BSBLFAIL867|BSBLFAIL867]], [[george:source:BSTS867|BSTS867]], [[george:source:CARTCONT867|CARTCONT867]], [[george:source:COMPCHAN84|COMPCHAN84]], [[george:source:CONTXCOD60|CONTXCOD60]], [[george:source:COREALLJ865|COREALLJ865]], [[george:source:DRUM852|DRUM852]], [[george:source:EMSENG864|EMSENG864]], [[george:source:ERASE867|ERASE867]], [[george:source:FINDRUM866|FINDRUM866]], [[george:source:GETNO865|GETNO865]], [[george:source:GETWORD867|GETWORD867]], [[george:source:GROPE867|GROPE867]], [[george:source:INCEOT865|INCEOT865]], [[george:source:INCMON865|INCMON865]], [[george:source:INCSTART865|INCSTART865]], [[george:source:INLOOP84|INLOOP84]], [[george:source:INRESTAR84|INRESTAR84]], [[george:source:IPBCCB867|IPBCCB867]], [[george:source:IPBERROR867|IPBERROR867]], [[george:source:IPBIN867|IPBIN867]], [[george:source:IPBOUT867|IPBOUT867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:IPBSTART867|IPBSTART867]], [[george:source:IPCONG8|IPCONG8]], [[george:source:IPCPERI83|IPCPERI83]], [[george:source:LABEL866|LABEL866]], [[george:source:LIBLOAD867|LIBLOAD867]], [[george:source:LIBLOADB867|LIBLOADB867]], [[george:source:LIBREQCA867|LIBREQCA867]], [[george:source:LISTDEV866|LISTDEV866]], [[george:source:LISTINIT867|LISTINIT867]], [[george:source:LISTINTC865|LISTINTC865]], [[george:source:LISTLOOP867|LISTLOOP867]], [[george:source:LISTNEXT867|LISTNEXT867]], [[george:source:LISTTPCP867|LISTTPCP867]], [[george:source:LOAD60|LOAD60]], [[george:source:LOADERR70|LOADERR70]], [[george:source:LOADFIN860|LOADFIN860]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:MONITOR36|MONITOR36]], [[george:source:MOVCART867|MOVCART867]], [[george:source:MTDUMP860|MTDUMP860]], [[george:source:OFFREL867|OFFREL867]], [[george:source:OLMTA85|OLMTA85]], [[george:source:OLMTE85|OLMTE85]], [[george:source:OPER864|OPER864]], [[george:source:OPERA864|OPERA864]], [[george:source:OPERIN867|OPERIN867]], [[george:source:PCTCIN8|PCTCIN8]], [[george:source:PCTCON8|PCTCON8]], [[george:source:PCTCOUT8|PCTCOUT8]], [[george:source:PCTCRTR8|PCTCRTR8]], [[george:source:PCTLPTP851|PCTLPTP851]], [[george:source:PERCON867|PERCON867]], [[george:source:PERFAIL866|PERFAIL866]], [[george:source:PERFLOGS866|PERFLOGS866]], [[george:source:PROFLAG83|PROFLAG83]], [[george:source:READLINE8|READLINE8]], [[george:source:REDONMT867|REDONMT867]], [[george:source:RENAMEMT867|RENAMEMT867]], [[george:source:RESTLIMB864|RESTLIMB864]], [[george:source:RESTMERG864|RESTMERG864]], [[george:source:RESTOREA866|RESTOREA866]], [[george:source:RESTOREG864|RESTOREG864]], [[george:source:RETURN867|RETURN867]], [[george:source:SAVEFILE860|SAVEFILE860]], [[george:source:SWAP865|SWAP865]], [[george:source:TAPEWAIT65|TAPEWAIT65]], [[george:source:TRANFAIL866|TRANFAIL866]], [[george:source:UNLOADMT867|UNLOADMT867]], [[george:source:UNPLUG867|UNPLUG867]]

<code - UNLOCK.mac.txt>
 2HS# ...[??? UNLOCK SECT CENT FGN 32 DOC
 2J46    #   
 2JHQ    [   
 2K3B    [ENTRY SEQUENCE FOR UNLOCKING A BLOCK ROUTINE   
 2KH2    [   
 2L2L    #MAC  UNLOCK
 2LG=    #STR  %A,2  
 2L^W          LDX   2  %A                  [ADDRESS OF BLOCK TO BE UNLOCKED 
 2MFG          CALL  0  (GUNL)   
 2M^6    #NOR
</code>