FREECORE [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: FREECORE)}}
====== FREECORE ======
(GIN Macro)

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

**Used in:** [[george:source:ABANDONA867|ABANDONA867]], [[george:source:ADDICT865|ADDICT865]], [[george:source:ADDJOB867|ADDJOB867]], [[george:source:ADJUNCTS85|ADJUNCTS85]], [[george:source:ALAS822|ALAS822]], [[george:source:ALASB867|ALASB867]], [[george:source:ALTINST60|ALTINST60]], [[george:source:ANALYSE865|ANALYSE865]], [[george:source:ANTIC867|ANTIC867]], [[george:source:APPEND864|APPEND864]], [[george:source:ARCHIVE867|ARCHIVE867]], [[george:source:ASSIGN860|ASSIGN860]], [[george:source:ASSOC867|ASSOC867]], [[george:source:ASTONIF867|ASTONIF867]], [[george:source:ATTACHA8|ATTACHA8]], [[george:source:ATTACHB866|ATTACHB866]], [[george:source:ATTACHC867|ATTACHC867]], [[george:source:ATTRIBUT867|ATTRIBUT867]], [[george:source:BACKMAP864|BACKMAP864]], [[george:source:BACKMARK850|BACKMARK850]], [[george:source:BACKROOM865|BACKROOM865]], [[george:source:BCAST867|BCAST867]], [[george:source:BEXTRA83|BEXTRA83]], [[george:source:BEXTSJ84|BEXTSJ84]], [[george:source:BMAPONE867|BMAPONE867]], [[george:source:BMAPTWO860|BMAPTWO860]], [[george:source:BMCNTRL866|BMCNTRL866]], [[george:source:BMFIXIT864|BMFIXIT864]], [[george:source:BMINDEX866|BMINDEX866]], [[george:source:BMJLCONV860|BMJLCONV860]], [[george:source:BMJLIST864|BMJLIST864]], [[george:source:BMJLSLAV864|BMJLSLAV864]], [[george:source:BMOUTPUT867|BMOUTPUT867]], [[george:source:BMQUEST866|BMQUEST866]], [[george:source:BMQUESTB866|BMQUESTB866]], [[george:source:BMSAVJOB864|BMSAVJOB864]], [[george:source:BMSJRNL866|BMSJRNL866]], [[george:source:BMSTREAM853|BMSTREAM853]], [[george:source:BRADDATA867|BRADDATA867]], [[george:source:BRADEMUL867|BRADEMUL867]], [[george:source:BRADSPLT867|BRADSPLT867]], [[george:source:BSALFAIL|BSALFAIL]], [[george:source:BSBLFAIL867|BSBLFAIL867]], [[george:source:BSQ867|BSQ867]], [[george:source:BSTS867|BSTS867]], [[george:source:BSUJSTAT867|BSUJSTAT867]], [[george:source:BUDGET84|BUDGET84]], [[george:source:BUDGONE83|BUDGONE83]], [[george:source:BUDGTWO84|BUDGTWO84]], [[george:source:CANCRVX864|CANCRVX864]], [[george:source:CANTDO867|CANTDO867]], [[george:source:CARTCONT867|CARTCONT867]], [[george:source:CDCIPB864|CDCIPB864]], [[george:source:CHEKPRIV867|CHEKPRIV867]], [[george:source:CHINERR867|CHINERR867]], [[george:source:CHINTEG867|CHINTEG867]], [[george:source:CHNUMCON867|CHNUMCON867]], [[george:source:CIMOP867|CIMOP867]], [[george:source:CLEAN867|CLEAN867]], [[george:source:CLOSBAC867|CLOSBAC867]], [[george:source:CLOSDEL867|CLOSDEL867]], [[george:source:CLOSEAB863|CLOSEAB863]], [[george:source:CLOSEALT864|CLOSEALT864]], [[george:source:CLOSEDIR867|CLOSEDIR867]], [[george:source:CLOSEND867|CLOSEND867]], [[george:source:CLOSFREZ867|CLOSFREZ867]], [[george:source:COMHOOK867|COMHOOK867]], [[george:source:COMMFILE82|COMMFILE82]], [[george:source:COMPRESS864|COMPRESS864]], [[george:source:COMPRO867|COMPRO867]], [[george:source:COMPROB867|COMPROB867]], [[george:source:CONCEPT85|CONCEPT85]], [[george:source:CONIPB8|CONIPB8]], [[george:source:CONMXA85|CONMXA85]], [[george:source:CONMXB8|CONMXB8]], [[george:source:CONMXC8|CONMXC8]], [[george:source:CONNECTA867|CONNECTA867]], [[george:source:CONSERNO6|CONSERNO6]], [[george:source:CONSET864|CONSET864]], [[george:source:CONSOLE867|CONSOLE867]], [[george:source:CONSROOT867|CONSROOT867]], [[george:source:CONTEND867|CONTEND867]], [[george:source:CONTINUE867|CONTINUE867]], [[george:source:CONTRACT866|CONTRACT866]], [[george:source:COOR865|COOR865]], [[george:source:COPYFILA867|COPYFILA867]], [[george:source:CORE867|CORE867]], [[george:source:COREALLF867|COREALLF867]], [[george:source:COREALLG82|COREALLG82]], [[george:source:COREALLJ865|COREALLJ865]], [[george:source:CORESHED861|CORESHED861]], [[george:source:CREALEX864|CREALEX864]], [[george:source:CREATE867|CREATE867]], [[george:source:DEAD867|DEAD867]], [[george:source:DECODE860|DECODE860]], [[george:source:DELCOM5|DELCOM5]], [[george:source:DELETE864|DELETE864]], [[george:source:DEMAND860|DEMAND860]], [[george:source:DEWELL867|DEWELL867]], [[george:source:DICTJOB82|DICTJOB82]], [[george:source:DICTWELL867|DICTWELL867]], [[george:source:DOC867|DOC867]], [[george:source:DOIHEMS867|DOIHEMS867]], [[george:source:DOMONOP867|DOMONOP867]], [[george:source:DOXCODE867|DOXCODE867]], [[george:source:DROBJ864|DROBJ864]], [[george:source:DRUM852|DRUM852]], [[george:source:DSCNCT867|DSCNCT867]], [[george:source:DTQUEST860|DTQUEST860]], [[george:source:DTSUBS867|DTSUBS867]], [[george:source:DTSUBSS867|DTSUBSS867]], [[george:source:DTWRONG867|DTWRONG867]], [[george:source:DUMMYB867|DUMMYB867]], [[george:source:DUMP860|DUMP860]], [[george:source:EDIT867|EDIT867]], [[george:source:EDITMFO867|EDITMFO867]], [[george:source:EDITOR867|EDITOR867]], [[george:source:EDITORA865|EDITORA865]], [[george:source:EDITPT867|EDITPT867]], [[george:source:EDOBJ864|EDOBJ864]], [[george:source:EDSTART860|EDSTART860]], [[george:source:EDWRITE867|EDWRITE867]], [[george:source:ENWELL867|ENWELL867]], [[george:source:ENWELLB867|ENWELLB867]], [[george:source:ERASEA867|ERASEA867]], [[george:source:EXINONE867|EXINONE867]], [[george:source:EXINTO867|EXINTO867]], [[george:source:EXMESS70|EXMESS70]], [[george:source:EXPRESS864|EXPRESS864]], [[george:source:EXTEND866|EXTEND866]], [[george:source:FAIL5|FAIL5]], [[george:source:FAILTWIN866|FAILTWIN866]], [[george:source:FBUFF860|FBUFF860]], [[george:source:FFFNORM7|FFFNORM7]], [[george:source:FHLIST867|FHLIST867]], [[george:source:FHOBJBL860|FHOBJBL860]], [[george:source:FHOBJDIR860|FHOBJDIR860]], [[george:source:FILELOG|FILELOG]], [[george:source:FINDFS867|FINDFS867]], [[george:source:FINDOC867|FINDOC867]], [[george:source:FLAW866|FLAW866]], [[george:source:FLAWMAP866|FLAWMAP866]], [[george:source:FREEPER867|FREEPER867]], [[george:source:FREEZE864|FREEZE864]], [[george:source:FSERR867|FSERR867]], [[george:source:GETBACK865|GETBACK865]], [[george:source:GETBAX865|GETBAX865]], [[george:source:GETFREE867|GETFREE867]], [[george:source:GETFREEB864|GETFREEB864]], [[george:source:GETNO865|GETNO865]], [[george:source:GETNOR8|GETNOR8]], [[george:source:GETON867|GETON867]], [[george:source:GETWORD867|GETWORD867]], [[george:source:GIVE867|GIVE867]], [[george:source:GLOBALS867|GLOBALS867]], [[george:source:GOTO867|GOTO867]], [[george:source:HALT5|HALT5]], [[george:source:HARDIDF867|HARDIDF867]], [[george:source:HARDWARA8|HARDWARA8]], [[george:source:HLSEMS864|HLSEMS864]], [[george:source:HLSEVENT867|HLSEVENT867]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:HOWBIG867|HOWBIG867]], [[george:source:IDFASAT867|IDFASAT867]], [[george:source:IDFCANC867|IDFCANC867]], [[george:source:IDFCHK867|IDFCHK867]], [[george:source:IDFCONF867|IDFCONF867]], [[george:source:IDFOFF867|IDFOFF867]], [[george:source:IDFPER867|IDFPER867]], [[george:source:IDFPROP867|IDFPROP867]], [[george:source:IFEXPAN867|IFEXPAN867]], [[george:source:IFNUMS867|IFNUMS867]], [[george:source:INCCHECK860|INCCHECK860]], [[george:source:INCDTA865|INCDTA865]], [[george:source:INCEND865|INCEND865]], [[george:source:INCEOT865|INCEOT865]], [[george:source:INCFIN864|INCFIN864]], [[george:source:INCMON865|INCMON865]], [[george:source:INCOBS867|INCOBS867]], [[george:source:INCOM864|INCOM864]], [[george:source:INCRCUBX860|INCRCUBX860]], [[george:source:INCRV850|INCRV850]], [[george:source:INCSTART865|INCSTART865]], [[george:source:INCTAPES867|INCTAPES867]], [[george:source:INCWRITE865|INCWRITE865]], [[george:source:INITJOB867|INITJOB867]], [[george:source:INLOOP84|INLOOP84]], [[george:source:INMOP867|INMOP867]], [[george:source:INPUTJDF82|INPUTJDF82]], [[george:source:INPUTMOP82|INPUTMOP82]], [[george:source:INRESTAR84|INRESTAR84]], [[george:source:INSERTFR6|INSERTFR6]], [[george:source:INSERTWO6|INSERTWO6]], [[george:source:INSTPARA867|INSTPARA867]], [[george:source:INTWIN866|INTWIN866]], [[george:source:IPBCCA867|IPBCCA867]], [[george:source:IPBCCB867|IPBCCB867]], [[george:source:IPBCCC867|IPBCCC867]], [[george:source:IPBCCD867|IPBCCD867]], [[george:source:IPBCONS867|IPBCONS867]], [[george:source:IPBERROR867|IPBERROR867]], [[george:source:IPBIN867|IPBIN867]], [[george:source:IPBINB867|IPBINB867]], [[george:source:IPBINC865|IPBINC865]], [[george:source:IPBLISTA867|IPBLISTA867]], [[george:source:IPBLISTC867|IPBLISTC867]], [[george:source:IPBLISTD867|IPBLISTD867]], [[george:source:IPBLOG866|IPBLOG866]], [[george:source:IPBMOP867|IPBMOP867]], [[george:source:IPBMOPB867|IPBMOPB867]], [[george:source:IPBMOPC867|IPBMOPC867]], [[george:source:IPBOUT867|IPBOUT867]], [[george:source:IPBSCAN867|IPBSCAN867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:IPBSTART867|IPBSTART867]], [[george:source:IPBTAPE867|IPBTAPE867]], [[george:source:IPCEN8|IPCEN8]], [[george:source:IPCGEO8|IPCGEO8]], [[george:source:IPCONC8|IPCONC8]], [[george:source:IPCOND864|IPCOND864]], [[george:source:IPCONF865|IPCONF865]], [[george:source:IPCPASS8|IPCPASS8]], [[george:source:IPQUAKER865|IPQUAKER865]], [[george:source:JDTWO864|JDTWO864]], [[george:source:JDWRITE867|JDWRITE867]], [[george:source:JOBDATA867|JOBDATA867]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:JSASCAN867|JSASCAN867]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:JWELLTWO867|JWELLTWO867]], [[george:source:JWUPDATE867|JWUPDATE867]], [[george:source:KARTCONT867|KARTCONT867]], [[george:source:LABEL866|LABEL866]], [[george:source:LDSTART850|LDSTART850]], [[george:source:LEXIFIND5|LEXIFIND5]], [[george:source:LIBCOM867|LIBCOM867]], [[george:source:LIBINSEC864|LIBINSEC864]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:LINECTRL864|LINECTRL864]], [[george:source:LIST867|LIST867]], [[george:source:LISTDEV866|LISTDEV866]], [[george:source:LISTDIR867|LISTDIR867]], [[george:source:LISTEND867|LISTEND867]], [[george:source:LISTFILE867|LISTFILE867]], [[george:source:LISTFIND867|LISTFIND867]], [[george:source:LISTFNDA865|LISTFNDA865]], [[george:source:LISTFREE867|LISTFREE867]], [[george:source:LISTHEAD863|LISTHEAD863]], [[george:source:LISTINIT867|LISTINIT867]], [[george:source:LISTINTC865|LISTINTC865]], [[george:source:LISTLOOP867|LISTLOOP867]], [[george:source:LISTMOP867|LISTMOP867]], [[george:source:LISTNEXT867|LISTNEXT867]], [[george:source:LISTNIP865|LISTNIP865]], [[george:source:LISTOPEN867|LISTOPEN867]], [[george:source:LISTPARS867|LISTPARS867]], [[george:source:LISTPREP865|LISTPREP865]], [[george:source:LISTPROC867|LISTPROC867]], [[george:source:LISTRING864|LISTRING864]], [[george:source:LISTSEAR867|LISTSEAR867]], [[george:source:LISTTPCP867|LISTTPCP867]], [[george:source:LOADERR70|LOADERR70]], [[george:source:LOADFIN860|LOADFIN860]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:LOADX60|LOADX60]], [[george:source:LOCATE84|LOCATE84]], [[george:source:LOGOUT867|LOGOUT867]], [[george:source:MACDEF8|MACDEF8]], [[george:source:MACRALAS864|MACRALAS864]], [[george:source:MAKEDIR84|MAKEDIR84]], [[george:source:MEXTSJ70|MEXTSJ70]], [[george:source:MODE866|MODE866]], [[george:source:MONEVENT867|MONEVENT867]], [[george:source:MONFIL865|MONFIL865]], [[george:source:MONITOR36|MONITOR36]], [[george:source:MONRESUM850|MONRESUM850]], [[george:source:MOPCOM867|MOPCOM867]], [[george:source:MOPCOMB865|MOPCOMB865]], [[george:source:MOPOUT85|MOPOUT85]], [[george:source:MOPSTART865|MOPSTART865]], [[george:source:MORNING867|MORNING867]], [[george:source:MOVCART867|MOVCART867]], [[george:source:MTCODE864|MTCODE864]], [[george:source:MTOBJ864|MTOBJ864]], [[george:source:MTSTART864|MTSTART864]], [[george:source:MULTIPLX864|MULTIPLX864]], [[george:source:NAMEPRIV|NAMEPRIV]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:NEWA867|NEWA867]], [[george:source:NEWDIR867|NEWDIR867]], [[george:source:NEWOWN865|NEWOWN865]], [[george:source:NEWPW867|NEWPW867]], [[george:source:NEXTUNIT867|NEXTUNIT867]], [[george:source:NORMALUS864|NORMALUS864]], [[george:source:OLMTC85|OLMTC85]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:ONLINEA867|ONLINEA867]], [[george:source:ONLINEC867|ONLINEC867]], [[george:source:ONOFFALT60|ONOFFALT60]], [[george:source:OPCA867|OPCA867]], [[george:source:OPCAXCOD5|OPCAXCOD5]], [[george:source:OPENREL865|OPENREL865]], [[george:source:OPENTWO867|OPENTWO867]], [[george:source:OPER864|OPER864]], [[george:source:OPERIN867|OPERIN867]], [[george:source:OPILLS70|OPILLS70]], [[george:source:OPILLSA206|OPILLSA206]], [[george:source:ORELEND860|ORELEND860]], [[george:source:ORELMAIN867|ORELMAIN867]], [[george:source:OWNERCHE84|OWNERCHE84]], [[george:source:PARAM865|PARAM865]], [[george:source:PARAMA865|PARAMA865]], [[george:source:PARAMB865|PARAMB865]], [[george:source:PARIDF8|PARIDF8]], [[george:source:PARSORT867|PARSORT867]], [[george:source:PATCH|PATCH]], [[george:source:PCTBEGIN863|PCTBEGIN863]], [[george:source:PCTCOUT8|PCTCOUT8]], [[george:source:PCTDIS8|PCTDIS8]], [[george:source:PCTLISTA867|PCTLISTA867]], [[george:source:PERFPASS864|PERFPASS864]], [[george:source:PERUSFIL84|PERUSFIL84]], [[george:source:PNTLAST860|PNTLAST860]], [[george:source:PREPREAD867|PREPREAD867]], [[george:source:PRINT70|PRINT70]], [[george:source:PRIVLEG84|PRIVLEG84]], [[george:source:PROCONTX867|PROCONTX867]], [[george:source:PROFLAG83|PROFLAG83]], [[george:source:PROGISH850|PROGISH850]], [[george:source:PROPERTY867|PROPERTY867]], [[george:source:PROSTART867|PROSTART867]], [[george:source:QUESCOM867|QUESCOM867]], [[george:source:RAECOMMS867|RAECOMMS867]], [[george:source:RAND864|RAND864]], [[george:source:READBULK867|READBULK867]], [[george:source:READFILE84|READFILE84]], [[george:source:READLINE8|READLINE8]], [[george:source:READOPLN867|READOPLN867]], [[george:source:READSPEC867|READSPEC867]], [[george:source:REALTIME867|REALTIME867]], [[george:source:REDONMT867|REDONMT867]], [[george:source:REGEN865|REGEN865]], [[george:source:RELIEF866|RELIEF866]], [[george:source:RENAMAG864|RENAMAG864]], [[george:source:RENAME864|RENAME864]], [[george:source:RENAMEX867|RENAMEX867]], [[george:source:REPERT867|REPERT867]], [[george:source:REPORT865|REPORT865]], [[george:source:REQCART866|REQCART866]], [[george:source:RESET83|RESET83]], [[george:source:RESTBLOK850|RESTBLOK850]], [[george:source:RETRIEVE864|RETRIEVE864]], [[george:source:REWRITE864|REWRITE864]], [[george:source:RIGHT867|RIGHT867]], [[george:source:SAVEBLOK65|SAVEBLOK65]], [[george:source:SAVEFILE860|SAVEFILE860]], [[george:source:SAVEJOB865|SAVEJOB865]], [[george:source:SCAN865|SCAN865]], [[george:source:SCEX866|SCEX866]], [[george:source:SCEXEND867|SCEXEND867]], [[george:source:SCHEDENX860|SCHEDENX860]], [[george:source:SCHEDJOB867|SCHEDJOB867]], [[george:source:SCHEDMTX867|SCHEDMTX867]], [[george:source:SCHEDULE867|SCHEDULE867]], [[george:source:SCRATCH866|SCRATCH866]], [[george:source:SETDISC866|SETDISC866]], [[george:source:SETIDF867|SETIDF867]], [[george:source:SETJD867|SETJD867]], [[george:source:SETLIST864|SETLIST864]], [[george:source:SETMON70|SETMON70]], [[george:source:SETPARAM867|SETPARAM867]], [[george:source:SETPB867|SETPB867]], [[george:source:SETPC867|SETPC867]], [[george:source:SETPE867|SETPE867]], [[george:source:SETPG867|SETPG867]], [[george:source:SETPN867|SETPN867]], [[george:source:SETPR867|SETPR867]], [[george:source:SETPRAMB867|SETPRAMB867]], [[george:source:SETUPA867|SETUPA867]], [[george:source:SETUPARA867|SETUPARA867]], [[george:source:SETUPB867|SETUPB867]], [[george:source:SHARE866|SHARE866]], [[george:source:SHOWCOMM864|SHOWCOMM864]], [[george:source:SJLOOP864|SJLOOP864]], [[george:source:SJMESS867|SJMESS867]], [[george:source:SOUP867|SOUP867]], [[george:source:SPEAK8|SPEAK8]], [[george:source:SPERION867|SPERION867]], [[george:source:SPUNLOAD867|SPUNLOAD867]], [[george:source:SQOPEN867|SQOPEN867]], [[george:source:STEP864|STEP864]], [[george:source:SUICIDE864|SUICIDE864]], [[george:source:SYSPROP867|SYSPROP867]], [[george:source:TAPERING867|TAPERING867]], [[george:source:TERM867|TERM867]], [[george:source:TPOBJ867|TPOBJ867]], [[george:source:TRANFAIL866|TRANFAIL866]], [[george:source:TRANSFER70|TRANSFER70]], [[george:source:TRAPCHEC867|TRAPCHEC867]], [[george:source:TRAPGO864|TRAPGO864]], [[george:source:TRAPPARA3|TRAPPARA3]], [[george:source:TRAPWORK864|TRAPWORK864]], [[george:source:TWINSET866|TWINSET866]], [[george:source:TWINSETA866|TWINSETA866]], [[george:source:TWINSETB866|TWINSETB866]], [[george:source:TWINSETD866|TWINSETD866]], [[george:source:UNJAMMER866|UNJAMMER866]], [[george:source:UNSAVE867|UNSAVE867]], [[george:source:USELEX5|USELEX5]], [[george:source:USERLIB867|USERLIB867]], [[george:source:USERSTRM867|USERSTRM867]], [[george:source:WA864|WA864]], [[george:source:WAIT867|WAIT867]], [[george:source:WFMOVE867|WFMOVE867]], [[george:source:WHATGENS867|WHATGENS867]], [[george:source:WHATPER867|WHATPER867]], [[george:source:WHATRVS867|WHATRVS867]], [[george:source:WHATRVSA867|WHATRVSA867]], [[george:source:WHTSTAT867|WHTSTAT867]], [[george:source:WLAA867|WLAA867]], [[george:source:WLB867|WLB867]], [[george:source:WLC867|WLC867]], [[george:source:WLE862|WLE862]], [[george:source:WLF862|WLF862]], [[george:source:WORKFILE860|WORKFILE860]], [[george:source:WSJOBS867|WSJOBS867]]

<code - FREECORE.mac.txt>
 3?=# ...[??? FREECORE SECT CENT FGN 32 DOC  
 3?G6    [   
 3?^Q    [ENTRY SEQUENCE FOR FREEING CORE ROUTINE
 3#FB    [   
 3#^2    #MAC  FREECORE  
 3*DL    #STR  %A,1  
 3*Y=          LDX   1  %A                  [ADDRESS OF BLOCK TO BE FREED
 3BCW          CALL  0  (GFREE)  
 3BXG    #NOR
</code>