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