(George Source)
Macros used: BACKSPACE, CHAIN, CLOSETOP, FREECORE, GEOERR, JBS, MBS, MHUNT, MHUNTW, OPENDIR, SEG, SEGENTRY, SETNCORE, SETUPCORE, STEPAGAIN, STEPREWRITE, TESTRPN2, TOPFCB2, 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