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

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

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

<code - WAKEHANGER.mac.txt>
 FDPY ...[??? WAKEHANG SECT COMM FGN 19 DOC  
 FDXS ...[ RECHAIN TASK BLOCK AND PUT HANGER ON ACTIVITY LIST
 FF5Q    #MAC  WAKEHANGER
 FFKB          LDX   0  %A   
 FG52          LDX   2  FX2  
 FGJL          ANDN  0  #7777
 FH4=          STO   0  ACOMMUNE1(2) 
 FHHW    MWHANGER1   
 FJ3G          FINDACTFB   2,,IPCA,HANGER,MWHANGERX,FPTR 
 FJH6          LDX   0  HLINKIPC(2)  
 FK2Q          SMO      FX2  
 FKGB          TXU   0  ACOMMUNE1
 FL22          BCS      MWHANGER1
 FLFL          LDX   0  BACKCHAN(2)  
 FL^=          BNZ   0  MWHANGERB
 FMDW          LDX   0  ATYPE(2) 
 FMYG          ANDN  0  #7777
 FND6          BNZ   0  MWHANGERB
 FNXQ          SMO      FX2  
 FPCB          STO   2  ACOMMUNE2
 FPX2          FPUT  
 FQBL          LDX   2  ACOMMUNE2(2) 
 FQW=    MWHANGER2   
 FR*W          HUNT     1,IPCD,ATASK 
 FRTG          BNG   1  MWHANGER3
 FS*6          LDX   0  A1(1)
 FSSQ          SMO      FX2  
 FT#B          TXU   0  ACOMMUNE1
 FTS2          BCS      MWHANGER3
 FW?L          LDN   0  1
 FWR=          TXU   0  A1+1(1)  
 FX=W          BCS      MWHANGER3
 FXQG          CHAIN    1,2  
 FY=6          BRN      MWHANGER3
 FYPQ    MWHANGERX   
 F^9B          GEOERR   1,NOHANGER   
 F^P2    MWHANGERB   
 G28L          GEOERR   1,HANGBUSY   
 G2N=    MWHANGER3   
 G37W    #NOR
</code>