HLSINFORM [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{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]]

<code - HLSINFORM.mac.txt>
 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
</code>