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

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

**Used in:** [[george:source:CAFSCTRL866|CAFSCTRL866]], [[george:source:LOADERII867|LOADERII867]], [[george:source:SETUPA867|SETUPA867]], [[george:source:SETUPB867|SETUPB867]]

<code - EMSACTX.mac.txt>
 *68D ...[??? EMSACTX SECT CENT FGN 32 DOC   
 *6D=    #   
 *6XW    # X VERSION OF EMSACT(SEE ABOVE 
 *7CG    #   
 *7X6    #MAC  EMSACTX   
 *8BQ    #STR  %B,2  
 *8WB          LDX   2  %B   
 *9B2          STO   2  GLOGLEN             [STORE LENGTH REQUIRED   
 *9TL          ADN   2  A1   
 *=*=          LDX   1  BFREE+1             [TOP BLOCK IN F/C CHAIN  
 *=SW          LDX   0  ASIZE(1)            [LENGTH  
 *?#G          SBS   2  AFREE
 *?S6          SBS   2  CFREE
 *#?Q          SBX   0  2
 *#RB          BPZ   0  MEMSACTX1
 **?2    MEMSACTX2   
 **QL          GEOERR   1,EMSCORE
 *B==    MEMSACTX1   
 *BPW          BZE   0  MEMSACTX2
 *C9G          SBS   2  ASIZE(1)            [NEW SIZE
 *DNB          ADX   1  0                   [ADDR BLOCK  
 *F82          STO   2  ASIZE(1)            [SET SIZE
 *F9Y ...#UNS ISFC   
 *F?W ...(   
 *F*S ...      SBX   1  0                   [RETURN TO FREE BLOCK
 *FCQ ...      FREEOUT  1                   [DECHAIN FROM SIZE RING, AS SHORTER  
 *FFN ...      FREEIN   1                   [CHAIN INTO NEW SIZE RING
 *FHL ...      ADX   1  ASIZE(1) 
 *FKJ ...)   
 *FML          LDN   0  #10                 [AND 
 *G7=          STO   0  AFLAG(1)            [LOCK BIT
 *GLW          LDX   2  GLOGLEN             [AND 
 *H6G          STO   2  ALOGLEN(1)          [LOGICAL LENGTH  
 *HL6          STO   %A ATYPE(1) 
 *J5Q          STOZ     BACK1(1) 
 *JKB          STOZ     BACK2(1) 
 *K52          LDX   2  FX2  
 *KJL          STO   2  FPTR(1)             [CHAIN IN FRONT OF ACT   
 *L4=          LDX   2  BPTR(2)  
 *LHW          SMO      FX2  
 *M3G          STO   1  BPTR 
 *MH6          STO   1  FPTR(2)  
 *N2Q          STO   2  BPTR(1)  
 *NGB          LDN   0  ACTRINGNUM   
 *P22    MEMSACTX3   
 *PFL          LDN   2  ARINGNO+1(1) 
 *P^=          STO   2  ARINGNO+1(1) 
 *QDW          STO   2  ARINGNO+2(1) 
 *QYG          BDX   1  £
 *RD6          BCT   0  MEMSACTX3
 *RXQ          LDN   2  FILERING 
 *SCB          NGS   2  ARINGNO+1(1) 
 *SX2          SBN   1  ACTRINGNUM*2 
 *TBL          STOZ     BACKCHAN(1)  
 *TW=          LDX   2  ACTYPE   
 *W*W          STO   2  ARINGNO(1)          [RING WORD   
 *WTG          LDN   2  ACTRING(1)          [RING ONTO ACT RING  
 *X*6          SMO      FX2  
 *XSQ          LDN   1  ACTRING  
 *Y#B          STO   1  0(2) 
 *YS2          LDX   1  1(1) 
 *^?L          SMO      FX2  
 *^R=          STO   2  ACTRING+1
 B2=W          STO   2  0(1) 
 B2QG          STO   1  1(2) 
 B3=6          LDN   0  ACC3-ACTRING(2)     [ZEROISE BLOCK   
 B3PQ          LDN   1  ACC4-ACTRING(2)  
 B49B          STOZ     ACC3-ACTRING(2)  
 B4P2          LDX   2  GLOGLEN  
 B58L          SBN   2  ACC3-A1+1
 B5N=          MOVE  0  0(2) 
 B67W          LDX   0  ACTCOUNT 
 B6MG          STO   0  ACTNUM-ACC4(1)      [SET ACT NUMBER  
 B776          ADN   0  1
 B7LQ          STO   0  ACTCOUNT 
 B7QM ...#UNS  ICT   
 B7WJ ...#SKI
 B82F ...(   
 B86B          LDX   1  FX1  
 B8L2          LDX   2  FX2  
 B8PX ...)   
 B8TS ...#UNS  ICT   
 B8^P ...      APGAX  %A 
 B95L    #NOR
</code>