{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: HLSINFORM)}}
====== HLSINFORM ======
(GIN Macro)
**Defined in:** [[george:source:MACROS_WELL|MACROS WELL]]
**Used in:** [[george:source:COMPRO867|COMPRO867]], [[george:source:COMPROB867|COMPROB867]], [[george:source:CONNECTA867|CONNECTA867]], [[george:source:CONTINUE867|CONTINUE867]], [[george:source:CORE867|CORE867]], [[george:source:DEWELL867|DEWELL867]], [[george:source:DSCNCT867|DSCNCT867]], [[george:source:ENWELLB867|ENWELLB867]], [[george:source:EVENTS864|EVENTS864]], [[george:source:GIVE867|GIVE867]], [[george:source:GROPE867|GROPE867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:JDWRITE867|JDWRITE867]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:LDSTART850|LDSTART850]], [[george:source:LOADERR70|LOADERR70]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:MONFILEA864|MONFILEA864]], [[george:source:MONJRNAL850|MONJRNAL850]], [[george:source:MONRESUM850|MONRESUM850]], [[george:source:MOPCOM867|MOPCOM867]], [[george:source:MOPCOMB865|MOPCOMB865]], [[george:source:PERFCHAP866|PERFCHAP866]], [[george:source:PROGISH850|PROGISH850]], [[george:source:PROSTART867|PROSTART867]], [[george:source:PUTPER85|PUTPER85]], [[george:source:QUOTA850|QUOTA850]], [[george:source:REALTIME867|REALTIME867]], [[george:source:REGEN865|REGEN865]], [[george:source:RELPER867|RELPER867]], [[george:source:REQESLIP861|REQESLIP861]], [[george:source:SWITCH867|SWITCH867]], [[george:source:VCLASTWO867|VCLASTWO867]], [[george:source:VERBCLAS867|VERBCLAS867]], [[george:source:WAIT867|WAIT867]]
7?CW ...#
7?XG ...# HERE FOLLOWS THE HLSINFORM MACRO. IT IS USED TO
7#C6 ...# GENERATE (OPTIONALLY) AN ENTRY TO THE HLS. ITS
7#WQ ...# PARAMETERS ARE AS FOLLOWS.
7*BB ...# %A :- BREAKIN ADDRESS
7*W2 ...# %B :- EVENT NAME
7B*L ...# %C :- WORD CONTAINING JOB NUMBER
7BT= ...# %D :- WORD CONTAINING IN BITS 12-23 SUPPLEMENTARY HLSYONQA INFO
7C#W ...# %E :- LABEL OF SUBROUTINE USED TO SET UP ADATA/ASUP (LINK X7)
7CSG ...# %F :- COPY OF JLSTAT FOR WELL JOBS
7D#6 ...# %G ETC. :- OPTION ADDRESSES
7DRQ ...#
7F?B ...#MAC HLSINFORM
7FR2 ...#STR @,%A
7G=L ...(
7GQ= ... JBC MHLSI,,EVB%B
7H9W ... LDN 0 EV%B
7HPG ... SMO FX2
7J96 ... STO 0 ACOMMUNE1
7JNQ ...#STR %C
7K8B ... LDX 0 %C
7KN2 ...#STR %C
7L7L ...#SKI
7LM= ...(
7M6W ... SMO FX2
7MLG ... LDX 0 JOBNO
7N66 ...)
7NKQ ... SMO FX2
7P5B ... STO 0 ACOMMUNE2
7PK2 ...#STR %D
7Q4L ...(
7QJ= ... LDX 0 %D
7R3W ... SMO FX2
7RHG ... STO 0 ACOMMUNE4
7S36 ...)
7SGQ ...#STR %D
7T2B ...#SKI
7TG2 ...(
7T^L ... SMO FX2
7WF= ... STOZ ACOMMUNE4
7WYW ...)
7XDG ...#STR %F
7XY6 ...(
7YCQ ... LDX 0 %F
7YXB ... SMO FX2
7^C2 ... STO 0 ACOMMUNE3
7^WL ...)
82B= ...#STR %F
82TW ...#SKI
83*G ...(
83T6 ... SMO FX2
84#Q ... STOZ ACOMMUNE3
84SB ...)
85#2 ...#STR SAVEABLE,%A
85RL ...#SKI
86?= ...(
86QW ... LDX 0 %G
87=G ... SMO FX2
87Q6 ... STO 0 ACOMMUNE5
889Q ...)
88PB ...#STR %E
8992 ... CALL 7 %E
89NL ...#STR SAVEABLE,%A
8=8= ...#SKI
8=MW ...(
8?7G ... ACROSS HLSEVENT,1
8?FX ...#DEF MHLSI=0?
8?S# ...#FRE MHLSI
8#6Q ...#EXI
8#LB ...)
8*62 ... DOWN HLSEVENT,1
8*KL ...#STR %A
8B5= ... BRN %A
8BJW ...#STR %A
8C4G ...#SKI
8CJ6 ... BRN (GEOERR)
8D3Q ...#ALT EVC%B=0
8DHB ...#STR %G
8F32 ...(
8FGL ... BRN MHLSI
8G2= ... HLSINFOR @,%B,%G,%H,%I,%J,%K
8GFW ...)
8GS? ...#DEF MHLSI=0?
8H6N ...#FRE MHLSI
8HF6 ...#EXI
8HYQ ...)
8JDB ...#ALT EVC%B=EVC%B+1
8JY2 ... BRN %C
8KCL ...#STR %D
8KX= ... HLSINFOR @,%B,%D,%E,%F,%G
8LBW ...#NOR