HLSINFORM

(GIN Macro)

Used in: COMPRO867, COMPROB867, CONNECTA867, CONTINUE867, CORE867, DEWELL867, DSCNCT867, ENWELLB867, EVENTS864, GIVE867, GROPE867, IPBSTARB867, JDWRITE867, JOBLIST867, JWELLONE867, LDSTART850, LOADERR70, LOADPROG865, MONFILEA864, MONJRNAL850, MONRESUM850, MOPCOM867, MOPCOMB865, PERFCHAP866, PROGISH850, PROSTART867, PUTPER85, QUOTA850, REALTIME867, REGEN865, RELPER867, REQESLIP861, SWITCH867, VCLASTWO867, VERBCLAS867, WAIT867

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