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

**Defined in:** [[george:source:MACROS_PERI|MACROS PERI]]

**Used in:** [[george:source:BRADSPLT867|BRADSPLT867]], [[george:source:CAFSCTRL866|CAFSCTRL866]], [[george:source:DEAD867|DEAD867]], [[george:source:DRUM852|DRUM852]], [[george:source:DUMMYB867|DUMMYB867]], [[george:source:ENGAGE867|ENGAGE867]], [[george:source:FINDFS867|FINDFS867]], [[george:source:FREEPER867|FREEPER867]], [[george:source:GETFREE867|GETFREE867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:IPBSTART867|IPBSTART867]], [[george:source:LABEL866|LABEL866]], [[george:source:LIBINSEC864|LIBINSEC864]], [[george:source:LIBMANY867|LIBMANY867]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:LIBSEC867|LIBSEC867]], [[george:source:LISTDEV866|LISTDEV866]], [[george:source:LISTEXCP865|LISTEXCP865]], [[george:source:MODE866|MODE866]], [[george:source:MOPCOM867|MOPCOM867]], [[george:source:MOPCOMB865|MOPCOMB865]], [[george:source:NEWOWN865|NEWOWN865]], [[george:source:NEWPW867|NEWPW867]], [[george:source:ONLINEB867|ONLINEB867]], [[george:source:ONLINEC867|ONLINEC867]], [[george:source:REDON867|REDON867]], [[george:source:RETURNIT867|RETURNIT867]], [[george:source:RIGHT867|RIGHT867]], [[george:source:SCAN865|SCAN865]], [[george:source:SETUP867|SETUP867]], [[george:source:SETUPA867|SETUPA867]], [[george:source:TAPERING867|TAPERING867]], [[george:source:UNLOAD7|UNLOAD7]], [[george:source:UNLOADMT867|UNLOADMT867]], [[george:source:XENON|XENON]]

<code - SETALLOC.mac.txt>
 J=F6    #MAC  SETALLOC  
 J=YQ          LDN   0  1
 J?DB     MODD ORS   0  JPSTATE,%A,CPPTR(2)  
 J?Y2    #NOR
</code>