{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: DOMONOP867)}}
====== DOMONOP867 ======
(George Source)
**Macros used:** [[george:macro:CHAIN|CHAIN]], [[george:macro:CLEARVDU|CLEARVDU]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:COMERR|COMERR]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERASE|ERASE]], [[george:macro:FCAPCA|FCAPCA]], [[george:macro:FJOCA|FJOCA]], [[george:macro:FPCACA|FPCACA]], [[george:macro:FPCAJO|FPCAJO]], [[george:macro:FREECORE|FREECORE]], [[george:macro:HUNT|HUNT]], [[george:macro:ISSUCOM|ISSUCOM]], [[george:macro:ISSUCOMB|ISSUCOMB]], [[george:macro:JBS|JBS]], [[george:macro:JLADJUST|JLADJUST]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:PROGBRKIN|PROGBRKIN]], [[george:macro:REPMON|REPMON]], [[george:macro:RINGTP|RINGTP]], [[george:macro:RUNPROG|RUNPROG]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETHKPCA|SETHKPCA]], [[george:macro:SETHOOK|SETHOOK]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SPRIVON|SPRIVON]], [[george:macro:STEPBACK|STEPBACK]], [[george:macro:TESTCOR|TESTCOR]], [[george:macro:TESTHKN|TESTHKN]], [[george:macro:TESTRCTP|TESTRCTP]], [[george:macro:TESTTP|TESTTP]], [[george:macro:UNPLUG|UNPLUG]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]], [[george:macro:VFREE|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