FINDGPUT

(GIN Macro)

Defined in: MACROS GLJ

Used in:

FINDGPUT.mac.txt

 B2=W    #MACRO         FINDGPUT 
 B2QG    #STRING        %B   
 B3=6    (   
 B3PQ    #MODIFIER      %B   
 B49B    (   
 B4P2    #STRING        %B,%A
 B58L          LDX   %A %B   
 B5N=     MOD  LDX   %A 0,%A 
 B67W    )   
 B6MG    #MODIFIER      %B   
 B776    #SKIP   
 B7LQ          LDX   %A 0(%B)
 B86B    )   
 B8L2          SRL   %A 10   
 B95L          ANDN  %A #7777
 B9K=          ADX   %A BGPUT%C  
 B=4W    #NORMAL