EMSACTX
(GIN Macro)
Defined in: COREMACROS
Used in: CAFSCTRL866, LOADERII867, SETUPA867, SETUPB867
- 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