FIXEMSACTX
(GIN Macro)
Defined in: MACROS GLJ
- 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