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