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

**Macros used:** [[george:macro:BXE|BXE]], [[george:macro:COOR1|COOR1]], [[george:macro:DSCA|DSCA]], [[george:macro:EMPTY|EMPTY]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETPERNEXT|GETPERNEXT]], [[george:macro:HUNT|HUNT]], [[george:macro:HUNT2|HUNT2]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:QTASK|QTASK]], [[george:macro:QTASKW|QTASKW]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:TRACE|TRACE]], [[george:macro:VFREE|VFREE]]

<code - IPCPASS8.txt>22FL ...      SEG      IPCPASS,,KEITH MARTIN
22^=    #   
23DW    #   
23YG          SEGENTRY K1IPCPASS,X1IPCPASS  
24D6          SEGENTRY K2IPCPASS,X2IPCPASS  
24XQ    #   
25CB    #   
25X2    X1IPCPASS   
266S ...      TRACE   2,IPCPASS1
26BL          LDX   0  HBRIN(2) 
26W=          BNG   0  XFIN 
27*W          HUNT     3,IPCD,ATASK 
27TG          QTASKW   3
28*6          COOR1 
28SQ    X2IPCPASS   
294J ...      TRACE   2,IPCPASS2
29#B          LDX   0  HBRIN(2) 
29S2          BNG   0  XFIN 
2=?L          LDN   7  28   
2=R=          SLL   7  18   
2?=W          GETPERNEXT   7,XFIN,3,XNEXT   
2?QG          LDX   0  HBRIN(2) 
2#=6          BNG   0  XFIN 
2#PQ          STO   3  6
2*9B          HUNT     1,IPCD,ATASK 
2*P2          HUNT2    2,IPCD,IPSTACK,  
2B8L          LDX   5  A1(1)
2BN=          LDN   3  A1(2)
2B^L ...XAG   LDX   4  ALINUM(3)
2C?2 ...      ANDN  4  #7777
2CJB ...      TXU   4  5
2CTQ ...      BCC      XMARK
2D76          ADN   3  ARECLEN  
2DLQ          SMO      ALOGLEN(2)   
2F6B          LDN   4  A1(2)
2FL2          TXL   3  4
2G5L          BCS      XAG  
2GK=          GEOERR   1,LOSTRECH   
2GPN ...XMARK LDX   0  ASTATUS2(3)  
2GW6 ...      SLL   0  1
2H2J ...      BPZ   0  XAE  
2H72 ...      LDX   0  BPTR(3)  
2H?D ...      BZE   0  XAE  
2HCW ...      LDX   2  FX2  
2HJG          LDX   4  1
2J46          LDX   0  HBRIN(2) 
2JHQ          SRC   0  1
2K3B          BPZ   0  XPOS 
2KH2          LDN   0  1
2L2L          ERS   0  HBRIN(2) 
2LG=          SRC   0  5
2L^W          ORS   0  ASTATUS2(3)  
2MFG    XPOS  BPZ   6  XCONT
2M^6 ...XAE   LDN   0  1
2NDQ          SLL   0  18   
2NYB          ERS   0  ASTATUS2(3)  
2PD2          BRN      XFIN 
2PXL    XCONT LDX   0  HBRIN(2) 
2QC=          BNG   0  XFIN 
2QWW          DSCA     ,LDX,3,CHADD 
2RBG          SBN   3  CHAINADD 
2RL# ...      LDN   3  0(3) 
2RW6          QTASK    4,0,3
2S*Q          COOR1 
2STB          LDX   0  HBRIN(2) 
2T*2          BNG   0  XFIN 
2TSL          LDX   3  CPPTR(3) 
2W#=          BRN      XNEXT
2WRW    XFIN  HUNT     3,IPCD,ATASK 
2X?G          BNG   3  XAP  
2XR6          HUNT2    1,IPCD,IPSTACK,2 
2Y=Q          LDX   0  A1(3)
2YQB          LDN   2  A1(1)
2^=2    XOV   LDX   0  ALINUM(2)
2^PL          ANDN  0  #7777
329=          BXE   0  A1(3),XFD
32NW          ADN   2  ARECLEN  
338G          SMO      ALOGLEN(1)   
33N6          LDN   4  A1(1)
347Q          TXL   2  4
34MB          BCS      XOV  
3572          GEOERR   1,LOSTRECK   
35LL    XFD   LDX   0  BPTR(2)  
366=          BNZ   0  XFC  
37?Q ...      LDX   1  FPTR(2)  
37*# ...      EMPTY    FPTR(1)  
37BW ...      EMPTY    FPTR(2)  
37DD ...      LDN   0  #40  
37G2 ...      ORS   0  ASTATUS2(2)  
37K6    XFC   FREECORE 3
384Q    XAP   VFREE    APERI,APROPNOS   
387W ...#  STOPS THIS HANGER BEING  
38?2 ...#   PICKED UP WHILE SUICIDE ING 
38B6 ...      LDX   2  FX2  
38F= ...      STOZ     HLINKIPC(2)  
38JB          SUICIDE   
3942    #   
39HL    #   
3=3=          MENDAREA 100,K99IPCPASS   
3=GW    #   
3?2G    #   
3?G6    #END
^^^^ ...14424457001000000000
</code>