LEX    'OFFSETLX'
* 5E 47 F H0033F OFFSET$  from DISASMLX on SWAP10
        ID     #5E      Copyright Michael Markov
        MSG    0
        POLL   0
        ENTRY  H0033F
        CHAR   #F
        KEY    'OFFSET$'  
        TOKEN  #47
        ENDTXT
H0030E  GOSBVL #136CB     =RNDAHX
        D1=D1+ 16         
        GONC   H00330     
H0031B  C=DAT1 1          
        P=     0          
        C=C+1  P          
        GONC   H0030E     
        GOSBVL #1C5A5     =ADDRCK
        A=B    A          
H00330  C=R3              
        A=A+C  A          
        R3=A              
        RTNCC             
        NIBHEX CCC23
*                         OFFSET$ entry point
H0033F  P=C    15         
        C=0    A          
        R3=C              
        ?P=    2
        GOYES  H00351     
        GOSUB  H0031B     
H00351  GOSUB  H0031B     
        GOSUB  H0031B     
        C=0    W          
        P=     4          
        CPEX   15         
        D=C    W          
        GOSBVL #17148     =HEXASC
        C=0    W          
        P=     0          
        LCHEX  A          
        GOSBVL #0F09A     =STRHDR
        P=C    0          
        P=P-1             
        A=B    W          
        DAT1=A WP         
        D1=D1- 16         
        P=     0          
        GOSBVL #1B38E     =REV$  
        GOVLNG #0F23C     =EXPR