(George Source)
Macros used: CHAIN, CLEARVDU, CLOSETOP, COMERR, ENDCOM, ERASE, FCAPCA, FJOCA, FPCACA, FPCAJO, FREECORE, HUNT, ISSUCOM, ISSUCOMB, JBS, JLADJUST, MFREE, MHUNT, MHUNTW, PROGBRKIN, REPMON, RINGTP, RUNPROG, SEG, SEGENTRY, SETHKPCA, SETHOOK, SETNCORE, SPRIVON, STEPBACK, TESTCOR, TESTHKN, TESTRCTP, TESTTP, UNPLUG, UP, UPPLUS, VFREE
22FL ... SEG DOMONOP,,CENT(INSTALLATION HOOKS),,G400 22^= [ 23DW [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 23YG [ 24D6 # 24XQ # THIS CHAPTER IS FOR G3PLUS-IH MK2 25CB # 25X2 # IT IMPLEMENTS THE SPECIAL HOOKS FOR 26BL # 1) OPEN MODE PERI'S (*MT AND *DA) 26W= # 2) DEWELLMENT OF A JOB (MOP AND BACK) 27*W # 3) THE END OF A JOB (FOR ANY REASON) 27TG # 28*6 # ENTRY POINTS 28SQ SEGENTRY K1DOMONOP,START [FROM OPCA 29#B SEGENTRY K2DOMONOP,RETURN [FROM RETURN 29S2 SEGENTRY K3DOMONOP,PASSWORD 2=?L SEGENTRY K4DOMONOP,XLT 2=R= SEGENTRY K5DOMONOP,XVC [ CLEAR VDU SCREEN 2?=W # 2?QG # 2#=6 XOB 4HOB : 2#PQ # ENTRY POINTS TO SET UP MACRO NAMES 2*9B SEGENTRY G400HKD3 2*P2 XHKD3 12HHOOKS 2B8L 4H. 2BN= SEGENTRY G400OPNMT 2C7W XOPNMT 12HOPENMT 2CMG SEGENTRY G400OPNDA 2D76 XOPNDA 12HOPENDA 2DLQ SEGENTRY G400DEWELL 2F6B XDEWELL 12HDEWELL 2FL2 SEGENTRY G400JOBEND 2G5L XJOBEND 12HJOBEND 2GK= # 2H4W # RESET USER NAME IN CPREFIX 2HJG # 2J46 XUSER 2JHQ LDX 2 FX2 2K3B FJOCA 3,2 2KH2 LDN 4 JUSER(3) 2L2L LDN 5 CPREFIX(2) 2LG= MOVE 4 3 2L^W EXIT 7 0 2MFG # 2M^6 # 2NDQ # SET UP FILE/FABSNB BLOCK WITH JDF NAME 2NYB # 2PD2 SFABSNB 2PXL HUNT 3,FILE,FABSNB [ USE EXISTING FABSNB... 2QC= SBX 7 FX1 2QWW BPZ 3 STUF 2RBG SETNCORE 10,3,FILE,FABSNB 2RW6 STUF 2S*Q LDN 0 10 2STB STO 0 A1(3) 2T*2 MHUNTW 2,JWELL,AJDF 2TSL LDX 0 JDFGEN(2) [ GENERATION NO. 2W#= STO 0 A1+8(3) 2WRW LDX 0 JDFLANG(2) [ LANGUAGE CODE 2X?G STO 0 A1+9(3) 2XR6 LDN 4 JDFDIR(2) [ DIRECTORY 2Y=Q LDN 5 A1+1(3) 2YQB MOVE 4 3 2^=2 LDN 4 JDFNAME(2) [ FILENAME 2^PL LDN 5 A1+4(3) 329= MOVE 4 3 32NW LDN 0 1 338G STO 0 A1+7(3) 33N6 ADX 7 FX1 347Q EXIT 7 0 34MB # 3572 # LOCATE STATUS WORD IN JWELL/COPYSYS 35LL # 366= WELL3 36KW STO 0 GEN0 375G MHUNTW 3,JWELL,COPYSYS 37K6 JLADJUST 3 384Q BRN (GEN0) 38JB # 3942 # ############################################################# 39HL # 3=3= # K K 1 3=GW # K K 11 3?2G # K K 1 3?G6 # K K 1 3?^Q # KKK 1 3#FB # K K 1 3#^2 # K K 1 3*DL # K K 1 3*Y= # K K 1 3BCW # 3BXG # ############################################################# 3CC6 # 3CWQ START 3DBB # 3DW2 # OPEN MODE PERI HOOK 3F*L # 3FT= SETHKPCA 3G#W SETNCORE 2,3,IUSER,G400BLK [MARKER BLK 3GSG LDN 0 5 3H#6 STO 0 A1(3) [KIND OF BLK 3HRQ LDX 0 4 3J?B SRL 0 15 [TYPE 3JR2 STO 0 A1+1(3) [SAVE TYPE 3K=L FCAPCA 2 3KQ= CHAIN 3,2 3L9W LDX 6 4 3LPG LDX 7 EVENT2(2) 3M96 LDXC 5 AWORK1(2) 3MNQ BCC NUP 3N8B UNPLUG 3NN2 NUP 3P7L REPMON [GENERATE MESSAGE 3PM= # 3Q6W # ############################################################# 3QLG # 3R66 # K K 222 3RKQ # K K 2 2 3S5B # K K 2 3SK2 # K K 2 3T4L # KKK 2 3TJ= # K K 2 3W3W # K K 2 3WHG # K K 2 3X36 # K K 2222222 3XGQ # 3Y2B # ############################################################# 3YG2 # 3Y^L RETURN 3^F= # 3^YW # ENTRY FROM MONRESUM 42DG # 42Y6 FJOCA 3,2 [RETURN FROM REPMON 43CQ TESTRCTP 3,NOTR 43XB BRN SHOOK 44C2 NOTR 44WL FPCAJO 3 45B= TESTTP 3,SHOOK 45TW RINGTP 3 46*G SHOOK [SET UP BLOCK FOR HOOK MACRO 46T6 SETNCORE CPDATA-A1+8,3,ADATA,CREADL 47#Q LDN 0 29 [LENGTH OF COMMAND 47SB STO 0 A1(3) 48#2 LDN 4 XOB(1) 48RL LDN 5 CPDATA(3) 49?= MVCH 4 17 [ SET UP 'OB :USERNAME.' 49QW MHUNT 2,IUSER,G400BLK 4==G LDX 4 A1+1(2) [TYPE OF PERI 4=Q6 SBN 4 5 4?9Q BZE 4 XMT [ J IF *MT 4?PB LDN 4 XOPNDA(1) 4#92 BRN XS 4#NL # 4*8= XMT 4*MW LDN 4 XOPNMT(1) 4B7G XS 4BM6 MVCH 4 12 [ SET UP HOOK MACRONAME 4C6Q ISSUCOMB XERR,XBRK [ ISSUE THE COMMAND 4CLB VFREE APED,ANEVENT 4D62 MHUNT 3,IUSER,G400BLK [IF OK,TEST IF "MR" EXIT 4DKL LDX 0 A1+1(3) 4F5= BPZ 0 XEND [NOT MR 4FJW FJOCA 2 [FIND JOB BLOCK 4G4G TESTCOR 2,XS1 [J IF CORE IMAGE 4GJ6 BRN XEND [ELSE TREAT AS EX(NO PARAM) 4H3Q XS1 4HHB FPCACA 2,FX2 4J32 CHAIN 3,2 [CHAIN BLK AFTER PCA 4JGL STEPBACK 4K2= RUNPROG [RESTART PROGRAM 4KFW XEND 4K^G MFREE IUSER,G400BLK 4LF6 ENDCOM [CONTINUE AT COMMAND LEVEL 4LYQ XBRK 4MDB VFREE APED,ANEVENT 4MY2 STEPBACK 4NCL PROGBRKIN 4NX= XERR 4PBW VFREE APED,ANEVENT 4PWG MHUNT 3,IUSER,G400BLK 4QB6 LDX 0 GSIGN [SET B0=1 4QTQ ERS 0 EXT+8(2) [SET COMERR STATUS 4R*B LDX 0 CONTEXT(2) 4RT2 SLL 0 15 4S#L BNG 0 XEND [J IF NO CORE IMAGE 4SS= BRN XS1 4T?W # 4TRG # ############################################################# 4W?6 # 4WQQ # K K 3333 4X=B # K K 3 3 4XQ2 # K K 3 4Y9L # K K 3 4YP= # KKK 33 4^8W # K K 3 4^NG # K K 3 5286 # K K 3 3 52MQ # K K 3333 537B # 53M2 # ############################################################# 546L # 54L= PASSWORD 555W # 55KG # HOOK ON JOB DEWELLMENT 5656 # 56JQ SETNCORE CPDATA-A1+6,3,ADATA,CREADL 574B LDN 4 XOB(1) 57J2 LDN 5 CPDATA(3) 583L MVCH 4 17 [ SET UP 'OB :USERNAME.' 58H= LDN 4 XDEWELL(1) 592W MVCH 4 12 [ SET UP MACRONAME 59GG LDN 4 29 5=26 STO 4 A1(3) 5=FQ LDX 2 FX2 5=^B SETHOOK [ SET HOOK STATUS 5#D= ISSUCOMB XUPC,XUPA 5CTL HUNT 2,IUSER,G400BLK [CHECK EXIT 5D*= BNG 2 XUPB 5DSW LDX 0 A1(2) [MARKER NO 5F#G SBN 0 6 5FS6 BNZ 0 XUPB [CONTINUE IF NOT AB 5G?Q FREECORE 2 [FREE MARKER BLK 5GRB XUPC 5HQL CALL 0 WELL3 5J== JBS SER,3,JLBMOP 5JPW CALL 7 SFABSNB 5K9G CLOSETOP [CLOSE JDF 5KP6 CALL 0 WELL3 [X3->JWEL/COPYSYS 5L8Q JBS SER,3,JLBRJ [J IF TEMP ABOR RJ 5LNB ERASE 5M82 SER 5MML UPPLUS 2 [ABORT EXIT 5N7= XUPA 5NLW CALL 0 WELL3 5P6G JBS XUPA1,3,JLBMOP 5PL6 CALL 7 SFABSNB 5Q5Q CLOSETOP 5QKB CALL 0 WELL3 5R52 JBS XUPA1,3,JLBRJ 5RJL LDX 3 FX2 5S4= JBS XUPA1,3,EXABTEMP 5SHW ERASE 5T3G XUPA1 5TH6 UP [ BREAKIN EXIT 5W2Q XUPB 5X22 UPPLUS 1 5XFL # 5X^= # ############################################################# 5YDW # 5YYG # K K 4 5^D6 # K K 44 5^XQ # K K 4 4 62CB # K K 4 4 62X2 # KKK 4 4 63BL # K K 4444444 63W= # K K 4 64*W # K K 4 64TG # K K 4 65*6 # 65SQ # ############################################################# 66#B # 66S2 XLT 67?L # 67R= # HOOK ON THE END OF A JOB FOR ANY REASON 68=W # 68QG FJOCA 3,FX2 69=6 SPRIVON JSSTART,3 [SET SYSTEM STARTED STATUS 69PQ LDN 0 62 6=9B STO 0 ACOREP(3) [GIVE JOB A HIGH CORE AND 6=P2 LDX 0 ISISSMP [MILL PRIORITY 6?8L STO 0 AMILLP(3) 6?N= SETNCORE CPDATA-A1+8,3,ADATA,CREADL 6#7W LDN 0 29 [LENGTH OF COMMAND 6#MG STO 0 A1(3) 6*76 LDN 4 XOB(1) 6*LQ LDN 5 CPDATA(3) 6B6B MVCH 4 17 [SET UP 'OB :HOOKS.---' 6BL2 LDN 4 XJOBEND(1) 6C5L MVCH 4 12 [SET UP MACRONAME 6CK= SETHOOK [GIVE JOB HOOK STATUS 6D4W ISSUCOM XUP 6DJG XUP 6F46 UP 6FHQ XUPLUS 6G3B UPPLUS 1 6GH2 # 6H2L # 6HG= # ############################################################# 6H^W # 6JFG # K K 5555555 6J^6 # K K 5 6KDQ # K K 5 6KYB # K K 5 6LD2 # KKK 555555 6LXL # K K 5 6MC= # K K 5 6MWW # K K 5 5 6NBG # K K 55555 6NW6 # 6P*Q # ############################################################# 6PTB # 6Q*2 # 6QSL SEGENTRY G400VC 6R#= XVC 6RRW TESTHKN XVC3 [ J IF NOT IN HOOK 6S?G CLEARVDU 6SR6 SEGENTRY G400VC2 6T=Q XVC2 6TQB ENDCOM 6W=2 SEGENTRY G400VC3 6WPL XVC3 6X9= COMERR ANOTKNOWN 6XNW # 6Y8G #END ^^^^ ...521212210002