UNSETHK [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

**Defined in:** [[george:source:MACROS_IH|MACROS IH]]

**Used in:** [[george:source:COMPRO867|COMPRO867]], [[george:source:COMPROA867|COMPROA867]]

<code - UNSETHK.mac.txt>
 2L2L    #   
 2LG=    #MAC UNSETHK
 2L^W          MODD  LDX   0  EXT+9,%A,FX2   
 2MFG          SLL   0  11   
 2M^6          BPZ   0  MUNSETHK1      [ J IF NOT HOOK-STARTED   
 2NDQ          FJOCA    1,FX2
 2NYB          SPRIVOFF JSSTART,1      [ SWITCH OFF SYSTEM STARTED STATUS
 2PD2          LDX   1  FX1  
 2PXL    MUNSETHK1   
 2QC=          NGN   0  6
 2QWW          SLC   0  12             [ #77727777   
 2RBG          MODD  ANDS   0  EXT+9,%A,FX2   [ CLEAR HOOK & HOOK-STARTED BITS   
 2RW6    #NOR
</code>