D^J* ...[   
 D^LY ...[   
 D^PJ ...[??? TRF SECT FILE FGN 24 DOC   
 D^^B    #MAC           TRF                 [P,F,P,F 
 F2F2    #SKI           (%D@L-19)-(%B@L-19)&#40000000
 F2YL    ! MOVING FIELD TO SMALLER FIELD 
 F3D=    #SKI            %D@L-19-23  
 F3XW          FC       %C,%D
 F4CG          LFUN     %A,%B
 F4X6    #DEF           21?=%B&#37-(%D&#37)  
 F5BQ    [              - => R SHIFT 
 F5WB    #SKI           21?  
 F6B2    (   
 F6TL    #SKI           21?&#40000000
 F7*=    (   
 F7SW          SRL   0  -21?                [-VE => R SHIFT  
 F8#G    )   
 F8S6    #SKI            21?&#40000000<1$1   
 F9?Q          SLL   0  21?  
 F9RB    )   
 F=?2    #SKI           %D@L-19-23   
 F=QL    (   
 F?==          OP    %C,%D,ORS   
 F?PW    #EXI
 F#9G    )   
 F#P6          OP    %C,%D,STO   
 F*8Q    #NOR