酷!學園

Dear all:

        I am new to Perl.
        If I wish to get a stream from the following file (tmp.txt),
        the stream is from mov to ; r9: high base-addr (Red part).
        How can I implement it with Perl???

Thanks!!!

//------------------tmp.txt---------------------------------

        ld      r8, [sp, 0]    ; r8 = y_tile_number
       
        push    r13

        ;; R5 DMA parameter init ;;
       
;        mov      r12, 0x0
;        stw.di   r12, [R5_RESET_REG]

       mov     r9, r0
        bmsk    r0, r0, 15          ; r0: low base-addr
        asr     r9, r9, 16
        bmsk    r9, r9, 11          ; r9: high base-addr        
       
        mov      r12, 0x0
        mov      r13, 0x1
               
        stw.di   r13, [R5_RESET_REG]            ;

• : R5 reset        

        stw.di   r0, [R5_BASE_ADR_LO_REG]
        stw.di   r9, [R5_BASE_ADR_HI_REG]