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

**Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]]

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

<code - FIXEMSACTX.mac.txt>
 =JWW    #MAC  FIXEMSACTX
 =KBG    #STR  %B,2  
 =KW6          LDX   2  %B   
 =L*Q          STO   2  GLOGLEN  
 =LTB          ADN   2  A1   
 =M*2          LDX   0  GFIXFREE 
 =MSL          SBX   0  2
 =N#=          BNG   0  MFIXEMSACTX  
 =NRW          LDX   1  BSUT 
 =P?G          SBX   1  GFIXFREE 
 =PR6          SBS   2  GFIXFREE 
 =Q=Q    MFXEMSACTX2 
 =QQB          STO   2  ASIZE(1) 
 =R=2    #SKI  CAMK7<5-5 
 =RPL    (   
 =S9=          LDCT  0  #200 
 =SNW          ORS   0  ASIZE(1) 
 =T8G    )   
 =TN6          LDX   2  GLOGLEN  
 =W7Q          STO   2  ALOGLEN(1)   
 =WMB          STO   %A ATYPE(1) 
 =X72          STOZ     BACK1(1) 
 =XLL          STOZ     BACK2(1) 
 =Y6=    #SKI  CAMK7>4-4 
 =YKW    (   
 =^5G          LDN   0  #10  
 =^K6          STO   0  AFLAG(1)            [LOCK IT 
 ?24Q    )   
 ?2JB    #SKI  CAMK7<5-5 
 ?342          STOZ     AFLAG(1) 
 ?3HL          LDX   2  FX2  
 ?43=          STO   2  FPTR(1)  
 ?4GW          LDX   2  BPTR(2)  
 ?52G          SMO      FX2  
 ?5G6          STO   1  BPTR 
 ?5^Q          STO   1  FPTR(2)  
 ?6FB          STO   2  BPTR(1)  
 ?6^2          LDN   0  ACTRINGNUM   
 ?7DL          LDN   2  ARINGNO+1(1) 
 ?7Y=    MFXE1 STO   2  FPTR(2)  
 ?8CW          STO   2  BPTR(2)  
 ?8XG          ADN   2  2
 ?9C6          BCT   0  MFXE1
 ?9WQ          STOZ     BACKCHAN(1)  
 ?=BB          LDN   2  FILERING 
 ?=W2          NGS   2  FILERING+BSTART(1)   
 ??*L          LDX   2  ACTYPE   
 ??T=          STO   2  ARINGNO(1)   
 ?##W          LDN   2  ACTRING(1)   
 ?#SG          SMO      FX2  
 ?*#6          LDN   1  ACTRING  
 ?*RQ          STO   1  0(2) 
 ?B?B          LDX   1  1(1) 
 ?BR2          SMO      FX2  
 ?C=L          STO   2  ACTRING+1
 ?CQ=          STO   2  0(1) 
 ?D9W          STO   1  1(2) 
 ?DPG          LDN   0  ACC3-ACTRING(2)  
 ?F96          LDN   1  ACC4-ACTRING(2)  
 ?FNQ          STOZ     ACC3-ACTRING(2)  
 ?G8B          LDX   2  GLOGLEN  
 ?GN2          SBN   2  ACC3-A1+1
 ?H7L          MOVE  0  0(2) 
 ?HM=          LDX   0  ACTCOUNT 
 ?J6W          STO   0  ACTNUM-ACC4(1)   
 ?JLG          ADN   0  1
 ?K66          STO   0  ACTCOUNT 
 ?KKQ          LDX   1  FX1  
 ?L5B          LDX   2  FX2  
 ?LK2          BRN      MFXEMSACTX1  
 ?M4L    #STR  %C
 ?MJ=    (   
 ?N3W    MLABEL  
 ?NHG          LDX   2  %B                  [ ENTRY HERE IF NORMAL EMSACTX REQD. 
 ?P36    #DEF  %C=MLABEL 
 ?PGQ          STO   2  GLOGLEN  
 ?Q2B          ADN   2  A1   
 ?QG2    )   
 ?Q^L    MFIXEMSACTX 
 ?RF=          LDX   1  BFREE+1  
 ?RYW    #SKI  CAMK7>4-4 
 ?SDG          LDX   0  ASIZE(1) 
 ?SY6    #SKI  CAMK7<5-5 
 ?TCQ    (   
 ?TXB          SMO      ASIZE(1) 
 ?WC2          LDN   0  0
 ?WWL    )   
 ?XB=          SBS   2  AFREE
 ?XTW          SBS   2  CFREE
 ?Y*G          SBX   0  2
 ?YT6          BPZ   0  MFXEMSACTX3  
 ?^#Q    MFXEMSACTX4 
 ?^SB          GEOERR   1,EMSCORE
 #2#2    MFXEMSACTX3 
 #2RL          BZE   0  MFXEMSACTX4  
 #3?=          SBS   2  ASIZE(1) 
 #3QW          ADX   1  0
 #4=G          BRN      MFXEMSACTX2  
 #4Q6    MFXEMSACTX1 
 #59Q    #NOR
</code>