EMSACT
(GIN Macro)
Defined in: COREMACROS
Used in: IPCSTART864
- 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