UNSETHK

(GIN Macro)

Defined in: MACROS IH

Used in: COMPRO867, COMPROA867

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