HLSEVENT

(GIN Macro)
Used in: CHTAB, FIXED867, HLSEVENT867, INKS
HLSEVENT.mac.txt
 8LWG ...#   
 8MB6 ...#     HERE FOLLOWS THE HLSEVENT MACRO. IT IS USED IN THE
 8MTQ ...#     HLS EVENT SEGMENT TO SET UP A 2 WORD ENTRY IN THE 
 8N*B ...#     TABLE OF EVENTS. ITS PARAMETERS ARE AS FOLLOWS.   
 8NT2 ...#     %A :- EVENT NAME  
 8P#L ...#     PLUS ANY OF THE FOLLOWING IN ANY ORDER
 8PS= ...#     OFF      :- IGNORE EVENT  
 8Q?W ...#     BACK     :- EVENT SIGNIFICANT FOR BACKGROUND JOBS 
 8QRG ...#     MOP      :- EVENT SIGNIFICANT FOR MOP JOBS
 8R?6 ...#     NOKICK   :- IF HLS NOT TO BE STARTED  
 8RQQ ...#     MAKETS   :- IF JOB TO BE MADE T/S 
 8S=B ...#     REQ      :- IF EVENT TO REQUEST HLS SANCTION  
 8SQ2 ...#     IGNOREFS :- IF EVENT TO BE IGNORED IF JOB F/S 
 8T9L ...#     NEVERREQ :- IF REQ MUST NEVER BE ALLOWED  
 8TP= ...#     #NUMBER  :- BIT SETTINGS FOR HLSYONQ  
 8W8W ...#   
 8WNG ...#MAC  HLSEVENT  
 8X86 ...#STR  @,%A  
 8XMQ ...(   
 8Y7B ...#OPT  MHLSEVNO=0
 8YM2 ...#OPT  MHLSBITS1=0   
 8^6L ...#OPT  MHLSBITS2=0   
 8^L= ...#DEF  20?=#70000000 
 925W ...#DEF  21?=0 
 92KG ...#DEF  22?=#17777777 
 9356 ...#DEF  24?=1 
 93JQ ...#STR  %B%C%D%E%F%G%H%I%J%K%L%M%N
 944B ...      HLSEVENT @,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N 
 94J2 ...      +20?+EVC%A
 953L ...      +21?  
 95H= ...#SKI  EV%A-MHLSEVNO 
 962W ...!  OUT OF ORDER 
 96GG ...#ALT  MHLSEVNO=MHLSEVNO+1   
 9726 ...#SKI  20?&#60000000*24? 
 97FQ ...(   
 97^B ...#DEF  22?=EV%A/24   
 98F2 ...#DEF  23?=EV%A-(24*22?) 
 98YL ...#SKI  22?<1$1   
 99D= ...#ALT  MHLSBITS1=MHLSBITS1^(#40000000@L-23?) 
 99XW ...#SKI  22?-1<1$1 
 9=CG ...#ALT  MHLSBITS2=MHLSBITS2^(#40000000@L-23?) 
 9=X6 ...)   
 9?BQ ...#EXI
 9?WB ...)   
 9#B2 ...#STR  %C%D%E%F%G%H%I%J%K%L%M%N  
 9#TL ...      HLSEVENT @,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N
 9**= ...#STR  %B
 9*SW ...#SKI
 9B#G ...#EXI
 9BS6 ...#STR  OFF,%B
 9C?Q ...#SKI
 9CRB ...(   
 9D?2 ...#DEF  24?=0 
 9DQL ...#EXI
 9F== ...)   
 9FPW ...#STR  BACK,%B   
 9G9G ...#SKI
 9GP6 ...(   
 9H8Q ...#DEF  20?=20?^#40000000 
 9HNB ...#DEF  22?=22?^#40000000 
 9J82 ...#DEF  20?=20?&22?   
 9JML ...#EXI
 9K7= ...)   
 9KLW ...#STR  MOP,%B
 9L6G ...#SKI
 9LL6 ...(   
 9M5Q ...#DEF  20?=20?^#20000000 
 9MKB ...#DEF  22?=22?^#20000000 
 9N52 ...#DEF  20?=20?&22?   
 9NJL ...#EXI
 9P4= ...)   
 9PHW ...#STR  NOKICK,%B 
 9Q3G ...#SKI
 9QH6 ...(   
 9R2Q ...#DEF  20?=20?&#67777777 
 9RGB ...#EXI
 9S22 ...)   
 9SFL ...#STR  MAKETS,%B 
 9S^= ...#SKI
 9TDW ...(   
 9TYG ...#DEF  20?=20?^#04000000 
 9WD6 ...#EXI
 9WXQ ...)   
 9XCB ...#STR  REQ,%B
 9XX2 ...#SKI
 9YBL ...(   
 9YW= ...#DEF  20?=20?^#02000000 
 9^*W ...#EXI
 9^TG ...)   
 =2*6 ...#STR  IGNOREFS,%B   
 =2SQ ...#SKI
 =3#B ...(   
 =3S2 ...#DEF  20?=20?^#01000000 
 =4?L ...#EXI
 =4R= ...)   
 =5=W ...#STR  NEVERREQ,%B   
 =5QG ...#SKI
 =6=6 ...(   
 =6PQ ...#DEF  20?=20?^#00400000 
 =79B ...#EXI
 =7P2 ...)   
 =88L ...#STR  SAVEABLE,%B   
 =8N= ...#SKI
 =97W ...(   
 =9MG ...#DEF  20?=20?^#00200000 
 ==76 ...#EXI
 ==LQ ...)   
 =?6B ...#STR  #,%B  
 =?L2 ...#SKI
 =#5L ...(   
 =#K= ...#DEF  21?=%B
 =*4W ...#EXI
 =*JG ...)   
 =B46 ...!     UNRECOGNISED PARAMETER
 =BHQ ...#NOR