{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: KILLHANGER)}}
====== KILLHANGER ======
(GIN Macro)

**Defined in:** [[george:source:MACROSIPC|MACROSIPC]]

**Used in:** [[george:source:IPCONB8|IPCONB8]], [[george:source:IPQUAKE83|IPQUAKE83]]

<code - KILLHANGER.mac.txt>
 =YY? ...[??? KILLHANG SECT COMM FGN 19 DOC  
 =^=N ...[ CAUSE HANGER BLOCK TO COMMIT SUICIDE  
 =^K6    #MAC  KILLHANGER
 ?24Q          LDX   0  %A   
 ?2JB          LDX   2  FX2  
 ?342          STO   0  ACOMMUNE1(2)        [STORE LINK NUMBER   
 ?3HL          MFREE    IPCD,ATASK   
 ?43=          HUNT2    1,IPCD,IPSTACK,FX2   
 ?4GW          LDX   2  1
 ?52G          ADX   2  ALOGLEN(2)   
 ?5G6          LDN   1  A1(1)
 ?5^Q    MKHANGER2   
 ?6FB          LDX   0  ALINUM(1)
 ?6^2          SMO      FX2  
 ?7DL          ERX   0  ACOMMUNE1
 ?7Y=          ANDN  0  #7777
 ?8CW          BZE   0  MKHANGER1
 ?8XG          ADN   1  ARECLEN  
 ?9C6          LDN   0  A1-1(2)  
 ?9WQ          TXL   0  1
 ?=BB          BCC      MKHANGER2
 ?=W2    MKHANGER3   
 ??*L          GEOERR   1,NOLINK 
 ??T=    MKHANGER1   
 ?##W          LDCT  0  #10  
 ?#SG          ANDX  0  ASTATUS2(1)  
 ?*#6          BZE   0  MKHANGER3
 ?*RQ          ERS   0  ASTATUS2(1)  
 ?B?B          LDX   1  FX2  
 ?BR2    MKHANGER4   
 ?C=L          FINDACTFB 1,,IPCA,HANGER,,FPTR
 ?CQ=          LDX   0  HLINKIPC(1)  
 ?D9W          SMO      FX2  
 ?DPG          ERX   0  ACOMMUNE1
 ?F96          ANDN  0  #7777
 ?FNQ          BNZ   0  MKHANGER4
 ?G8B          LDX   0  GSIGN
 ?GN2          STO   0  HBRIN(1) 
 ?H7L          LDX   2  1
 ?HM=          FPUT  
 ?J6W    #NOR
</code>