17 22FL ...      SEG      DOIHEMS,,CENT(INSTALLATION HOOKS),,G400  
   4 22_=    [   
  15 23DW    [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
   4 23YG    [   
   4 24D6    #   
  11 24XQ          SEGENTRY K1DOIHEMS,QENTRY1
   4 25CB    #   
  14 25X2    #     INITIALISATION FOR COMMAND HOOKS :-   
   4 26BL    #   
  13 26W=    #      THIS CHAPTER IS FOR G3PLUS-IH MK2
   4 27*W    #   
  11 27TG    #     SET UP HOOK LIST BLOCK,   
  11 28*6    #     COPY IN ^PERMANENT^ HOOKS,
  15 28SQ    #     CHAIN BLOCK AT END OF MISCELLANEOUS CHAIN,
  17 29#B    #     MARK ALL HOOK FILES 'ALWAYSDUMP' AND 'DONTOFFLINE'
  18 29S2    #     AND MARK HOOKS DIRECTORY 'CONTAINS ALWAYSDUMP FILES'  
   4 2=?L    #   
   9 2=R=          SEGENTRY G400HKD4 
   9 2?=W    UHOOKS         12HHOOKS 
   9 2?QG    NLOC           1,0.2,0  
   4 2#=6    #   
   4 2#PQ    #   
  20 2*9B    #     ############################################################# 
   4 2*P2    #   
  11 2B8L    #           K    K            1 
  11 2BN=    #           K   K            11 
  11 2C7W    #           K  K              1 
  11 2CMG    #           K K               1 
  11 2D76    #           KKK               1 
  11 2DLQ    #           K  K              1 
  11 2F6B    #           K   K             1 
  11 2FL2    #           K    K            1 
  11 2G5L    #           K     K           1 
   4 2GK=    #   
  20 2H4W    #     ############################################################# 
   4 2HJG    #   
   5 2J46    QENTRY1 
  16 2JHQ          LDX   4  TABLE(1)            [NO OF ENTRIES   
   7 2K3B          LDX   5  4
   7 2KH2          SLL   5  2
  16 2L2L          ADX   5  4                   [MULTIPLY BY 5   
  16 2LG=          ADN   5  3                   [+3 FOR RED TAPE 
  17 2L_W          SETUPCORE 5,3,IUSER,G400BLK  [SET UP HOOKS BLOCK  
   7 2MFG          LDN   0  7
  15 2M_6          STO   0  A1(3)               [MARKER WORD 
  15 2NDQ          STOZ     A1+1(3)             [CONTROL WORD
   9 2NYB          LDN   2  TABLE(1) 
  16 2PD2          ADN   3  A1+2                [START OF TABLE  
  16 2PXL          SBN   5  2                   [COUNT IN WORDS  
   7 2QC=          SMO      5
  16 2QWW          MOVE  2  0                   [MOVE IN ENTRIES 
  19 2RBG          SBN   3  A1+2                [REDATUMISE TO START OFBLOCK 
  14 2RW6          CHAIN    3,BMISC+1           [CHAIN   
   4 2S*Q    #   
  16 2STB    #     NOW MARK THE DIRECTORY ENTRIES (IF PRESENT)   
   4 2T*2    #   
  11 2TSL          SETNCORE 10,2,FILE,FABSNB 
   9 2W#=          LDX   7  TABLE(1) 
  18 2WRW          BZE   7  NOMAC               [J IF NO HOOKS DECLARED  
  18 2X?G          LDN   3  0                   [ POINTER TO HOOK ENTRIES
   5 2XR6    WNEXT   
   7 2Y=Q          STO   3  5
  10 2YQB          MHUNT    2,FILE,FABSNB
   8 2_=2          LDN   0  10   
   8 2_PL          STO   0  A1(2)
   9 329=          ADN   1  UHOOKS   
   8 32NW          ADN   2  A1+1 
  17 338G          MVCH  1  12                  [HOOK DIRECTORY NAME 
   8 33N6          SMO      FX1  
  10 347Q          LDN   1  TABLE+2(3)   
  16 34MB          MVCH  1  12                  [HOOK FILENAME   
   8 3572          SMO      FX1  
   8 35LL          LDN   1  NLOC 
   8 366=          MVCH  1  12   
  20 36KW          OPENDIR  XBR,GENERAL,QUERY   [OPEN HOOK FILE DIRECTORY ENTRY  
  17 375G          TESTRPN2 OK,WONG             [J IF DOES NOT EXIST 
   7 37K6          TOPFCB2  1
  13 384Q          JBS      SETALREADY,1,BFALLINCS   
  13 38JB          MBS      1,BFALLINCS,BFDIRUPDATE  
   6 3942    SETALREADY  
  10 39HL          MHUNTW   1,FILE,ENT   
   9 3=3=          LDEX  6  ECOPS(1) 
   7 3=GW          FREECORE 1
   8 3?2G          BZE   6  WOFF 
   7 3?G6          BACKSPACE 
   4 3?_Q    WOFF
   7 3#FB          STEPAGAIN 
  12 3#_2          MBS      3,BNONLINE,BNALLINCS 
   8 3*DL          STEPREWRITE   
   7 3*Y=          CLOSETOP  
   4 3BCW    WONG
   7 3BXG          LDX   3  5
   7 3CC6          ADN   3  5
   8 3CWQ          BCT   7  WNEXT
   5 3DBB    NOMAC   
   5 3DW2          UP
   4 3F*L    XBR 
   9 3FT=          GEOERR   1,DOIHEMS
   4 3G#W    #   
  19 3GSG          SEGENTRY K90DOIHEMS          [MEND POINT-EXTRACODE MACRO  
   8 3H#6    TABLE          +0   
   5 3HRQ    #GAP 500
   4 3J?B    #END
   6 ____ ...030026560001