UNLOCK

(GIN Macro)

Defined in: COREMACROS

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

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