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

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

**Used in:** [[george:source:IPCSTART864|IPCSTART864]]

<code - EMSACT.mac.txt>
 ?T7Y ...[??? EMSACT SECT CENT FGN 32 DOC
 ?TCQ    #   
 ?TXB    # EMSACT GETS ABLOCK OF CORE FOR AN ACTIVITY BLOCK AT EARLY MORNING STAR
 ?WC2    # TIME. IT IS LOCKED PERMANENTLY AT THE TOP OF CORE 
 ?WWL    #   
 ?XB=    #MAC  EMSACT
 ?XTW    #STR  %B
 ?Y*G          LDN   2  %ALEN+%BLEN  
 ?YT6    #STR  %B
 ?^#Q    #SKI
 ?^SB          LDN   2  %ALEN
 #2#2          STO   2  GLOGLEN             [STORE LENGTH REQUIRED   
 #2RL          ADN   2  A1   
 #3?=          LDX   1  BFREE+1             [TOP BLOCK IN F/C CHAIN  
 #3QW          LDX   0  ASIZE(1)            [LENGTH  
 #4=G          SBS   2  AFREE
 #4Q6          SBS   2  CFREE
 #59Q          SBX   0  2
 #5PB          BPZ   0  MEMSACT1 
 #692    MEMSACT2
 #6NL          GEOERR   1,EMSCORE
 #78=    MEMSACT1
 #7MW          BZE   0  MEMSACT2 
 #87G          SBS   2  ASIZE(1)            [NEW SIZE
 #9LB          ADX   1  0                   [ADDR BLOCK  
 #=62          STO   2  ASIZE(1)            [SET SIZE
 #=7Y ...#UNS ISFC   
 #=9W ...(   
 #=?S ...      SBX   1  0                   [RETURN TO THE FREE BLOCK
 #=*Q ...      FREEOUT  1                   [DECHAIN FROM SIZE RING,AS SHORTER   
 #=CN ...      FREEIN   1                   [CHAIN INTO NEW SIZE RING
 #=FL ...      ADX   1  ASIZE(1)            [NOW BACK TO GOT BLOCK   
 #=HJ ...)   
 #=KL          LDN   0  #10                 [AND 
 #?5=          STO   0  AFLAG(1)            [LOCK BIT
 #?JW          LDX   2  GLOGLEN             [AND 
 ##4G          STO   2  ALOGLEN(1)          [LOGICAL LENGTH  
 ##J6    #STR  %B
 #*3Q          LDN   0  %A+%B
 #*HB    #STR  %B
 #B32    #SKI
 #BGL          LDN   0  %A   
 #C2=          SLL   0  12   
 #CFW          STO   0  ATYPE(1) 
 #C^G          STOZ     BACK1(1) 
 #DF6          STOZ     BACK2(1) 
 #DYQ          LDX   2  FX2  
 #FDB          STO   2  FPTR(1)             [CHAIN IN FRONT OF ACT   
 #FY2          LDX   2  BPTR(2)  
 #GCL          SMO      FX2  
 #GX=          STO   1  BPTR 
 #HBW          STO   1  FPTR(2)  
 #HWG          STO   2  BPTR(1)  
 #JB6          LDN   0  ACTRINGNUM   
 #JTQ    MEMSACT3
 #K*B          LDN   2  ARINGNO+1(1) 
 #KT2          STO   2  ARINGNO+1(1) 
 #L#L          STO   2  ARINGNO+2(1) 
 #LS=          BDX   1  £
 #M?W          BCT   0  MEMSACT3 
 #MRG          LDN   2  FILERING 
 #N?6          NGS   2  ARINGNO+1(1) 
 #NQQ          SBN   1  ACTRINGNUM*2 
 #P=B          STOZ     BACKCHAN(1)  
 #PQ2          LDX   2  ACTYPE   
 #Q9L          STO   2  ARINGNO(1)          [RING WORD   
 #QP=          LDN   2  ACTRING(1)          [RING ONTO ACT RING  
 #R8W          SMO      FX2  
 #RNG          LDN   1  ACTRING  
 #S86          STO   1  0(2) 
 #SMQ          LDX   1  1(1) 
 #T7B          SMO      FX2  
 #TM2          STO   2  ACTRING+1
 #W6L          STO   2  0(1) 
 #WL=          STO   1  1(2) 
 #X5W          LDN   0  ACC3-ACTRING(2)     [ZEROISE BLOCK   
 #XKG          LDN   1  ACC4-ACTRING(2)  
 #Y56          STOZ     ACC3-ACTRING(2)  
 #YJQ    #STR  %B
 #^4B          MOVE  0  %ALEN+%BLEN-ACC3+A1-1
 #^J2    #STR  %B
 *23L    #SKI
 *2H=          MOVE  0  %ALEN-ACC3+A1-1  
 *32W          LDX   0  ACTCOUNT 
 *3GG          STO   0  ACTNUM-ACC4(1)      [SET ACT NUMBER  
 *426          ADN   0  1
 *4FQ          STO   0  ACTCOUNT 
 *4KM ...#UNS  ICT   
 *4PJ ...#SKI
 *4TF ...(   
 *4^B          LDX   1  FX1  
 *5F2          LDX   2  FX2  
 *5JX ...)   
 *5NS ...#UNS  ICT   
 *5SP ...      APGA  %A,%B   
 *5YL    #NOR
</code>