LEX    'HGLLEX'
        TITLE  HGL$($,?#) -Data Acquisition ROM
        ID     #FE
        MSG    0
        POLL   0
        ENTRY  HGL
        CHAR   #F
        KEY    'HGL$'
        TOKEN  #1F
EXPR    EQU    #0F23C
POP1S   EQU    #0BD38   pop string
        ENDTXT 
****************************************
*
* This keywords was extracted from LEX3421 in the data
* acquisition ROM.
*
* A$=HGL$(B$,<expr>)      If <expr> is evaluated as 
*                         non-zero, then A$=B$
*                         If <expr>=0 then A$ is equivalent
*                         to B$ with the high bit set,
*                         ie., in inverse video.
****************************************************
        NIBHEX 8412
HGL    C=C-1  S        
       ?C=0   S        
EDA1F  GOYES  EDA3B    
       GOSBVL #0E90C    
       SETHEX          
       A=0    S        
       C=0    S        
       ?A=0   W        
       GOYES  EDA38    
       C=C+1  S        
EDA38  D1=D1+ 16       
EDA3B  ?C#0   S        
       GOYES  EDA82    
       CD1EX           
       D1=C            
       R0=C            
       A=0    W        
       GOSBVL #0BD38    
       ASRB            
       ASL    W        
       ASL    W        
       ASL    W        
       LCHEX  80       
       D1=D1- 2        
EDA66  D1=D1+ 2        
       A=A-1  M        
EDA6C  GOC    EDA7C    
       A=DAT1 B        
       A=C!A  B        
       DAT1=A B        
       GONC   EDA66    
EDA7C  C=R0            
       D1=C            
EDA82  GOVLNG #0F23C    
        END