GETNOR8
(George Source)
Macros used: EMPTY, FINDACTFB, FREECORE, GEOERR, HUNT2, MENDAREA, SEG, SEGENTRY, UP
- GETNOR8.txt
22FL SEG GETNOR,,J.R.BAILEY 22^= # 23DW SEGENTRY K1GETNOR,X1GETNOR 23YG SEGENTRY K3GETNOR,X3GETNOR 24D6 # 24XQ # DROPTASK 25CB X1GETNOR 25X2 LDX 3 ACOMMUNE1(2) 26BL LDX 6 ACOMMUNE2(2) 26W= # SEARCH QUEUE FOR TASK BLOCK BELONGING TO LINK 27*W Y1 LDX 3 FPTR(3) 27TG Y3 LDX 4 ATYPE(3) 28*6 SRL 4 12 28SQ LDN 5 #1501 29#B TXU 4 5 29S2 BCS Y2 2=?L LDX 4 A1(3) 2=R= TXU 4 6 2?=W BCS Y1 2?QG LDX 4 A1+1(3) 2#=6 SBN 4 2 2#PQ BZE 4 Y4 2*9B SBN 4 2 2*P2 BNZ 4 Y1 2B8L Y4 2BN= LDX 3 FPTR(3) 2C7W FREECORE BPTR(3) 2CMG BRN Y3 2D76 # GO UP IF REACHED AN ACTIVITY BLOCK 2DLQ Y2 SLL 4 12 2F6B TXL 4 CACT 2FL2 BCS Y1 2G5L UP 2GK= #SKIP IPCV4 2H4W ( 2HJG # FRENO 2J46 X3GETNOR 2JHQ HUNT2 1,IPCD,IPSTACK,FX2 2K3B LDX 0 ACOMMUNE1(2) 2KH2 LDN 2 A1(1) 2L2L PFN1 LDX 6 ARINGNO(1) 2LG= ANDN 6 #7777 2L^W PN1 TXU 0 ALINUM(2) 2MFG BCC PFN2 2M^6 ADN 2 ARECLEN 2NDQ BCT 6 PN1 2NYB GEOERR 1,LOSTRECF 2Q4Q ...PFN2 2Q63 ... LDX 1 FPTR(2) 2Q7# ... EMPTY FPTR(1) 2Q8K ... EMPTY FPTR(2) 2Q9W ... LDN 0 #40 2Q?7 ... ORS 0 ASTATUS2(2) 2Q#D ... LDX 2 FX2 2QC= FINDACTFB 2,,IPCA,INTERN,,FPTR 2QWW SMO FX2 2RBG LDX 0 ACOMMUNE1 2RW6 ANDN 0 #7777 2S*Q TXL 0 FRELINUM(2) 2STB BCS PFN3 2T*2 LDX 1 FRELINUM(2) 2TSL BNZ 1 PFNX 2W#= PFN3 STO 0 FRELINUM(2) 2WRW PFNX UP 2X?G ) 2XR6 MENDAREA 100,K2GETNOR 2Y=Q #END ^^^^ ...23716745000300000000