{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: TEMPQ)}}
====== TEMPQ ======
(GIN Macro)

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

**Used in:** [[george:source:CONNECTA867|CONNECTA867]], [[george:source:EXPRESS864|EXPRESS864]], [[george:source:HLSEVENT867|HLSEVENT867]], [[george:source:NORMALUS864|NORMALUS864]]

<code - TEMPQ.mac.txt>
 B6X# ...[??? TEMPQ SECT CENT FGN 21 DOC 
 B776    [     THE FOLLOWING MACRO IS TO SET UP AN ENTRY IN TEMP. HLSQ FOR   
 B7LQ    [        A PARTICULAR JOB   
 B86B    #MAC  TEMPQ 
 B8L2          SETNCORE  AHLS,2,ADATA,JUNSWAP
 B95L          STOZ     A1(2)
 B9K=          LDN   0  A1(2)
 B=4W          LDN   1  A1+1(2)  
 B=JG          MOVE  0   AHLS-1  
 B?46          STO   %B HLSJONO(2)   
 B?HQ          ORS   %A HLSYONQ(2)   
 B#3B          ORS   %A HLSWAIT  
 B#H2          FJOCA    1,FX2,N  
 B*2L          LDX   0  JMISC(1) 
 B*G=          STO   0  HLSSTAT(2)   
 B*^W          LDX   1  2
 BBFG          LDN   2  BHTEMP   
 BB^6          LDX   2  BPTR(2)  
 BCDQ          CHAIN    1,2  
 BCYB          FON      #33  
 BDD2    #NOR
</code>