作者 主題: [Perl] 抓取字串的問題  (閱讀 3133 次)

0 會員 與 1 訪客 正在閱讀本文。

aroundlioon

  • 可愛的小學生
  • *
  • 文章數: 1
    • 檢視個人資料
[Perl] 抓取字串的問題
« 於: 2007-10-11 22:48 »
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]