{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: GETNOR8)}}
====== GETNOR8 ======
(George Source)

**Macros used:** [[george:macro:EMPTY|EMPTY]], [[george:macro:FINDACTFB|FINDACTFB]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT2|HUNT2]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:UP|UP]]

<code - 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
</code>