guest 

 不知发在这儿合不合适，这段代码什么意思？
;------------------------------------------------------------------------------
; FUNCTION
;------------------------------------------------------------------------------
        MODULE   ALG1_srDelayPT1
                                        ;--------------------------------------
                                        ; INCLUDES
                                        ;--------------------------------------
        LSTOUT-

Ext     SET     OwnCodeBlock        ; Include all used external interfaces...
$ALG_CI.INC
; *HS*
  extern MAT_srSwapOp24
  extern MAT_srISub24
  extern MAT_srCom24
  extern MAT_srShr24
  extern MAT_srIAdd24

        LSTOUT+
                                        ;--------------------------------------
                                        ; EXPORT FUNCTION
                                        ;--------------------------------------
        PUBLIC  ALG_srDelayPT1

                                        ;--------------------------------------
                                        ; CODE
                                        ;--------------------------------------
%RsegN  CODE

ALG_srDelayPT1:

        push    bc                      ; save damping factors
        mov     b6,a                    ; transform Xe to
        mov     a,x                     ; ...internal PT1 format (24 bit)
        mov     b5,a                    ; ...Xe*256
        mov     b4,#0                   ; ...i.e. low byte=0

        call    MAT_srSwapOp24          ; prepare for subtraction
        call    MAT_srISub24            ; Xe-Xa_old >  0?
        bf      a.0,goPlus              ; yes: -->   goPlus

        call    MAT_srCom24             ; no: transform to Xa_old-Xe>  =0
        pop     ax                      ; restore damping factors
        mov     a,#0                    ; shifting with filler bit=0
        call    MAT_srShr24             ; ...(Xa_old-Xe) divided by k
        call    MAT_srSwapOp24          ; Xa=
        call    MAT_srISub24            ; ...Xa_old-(Xa_old-Xe)/k
        br      rtDelayPT1              ; return

goPlus: pop     ax                         ; restore damping factors
           mov     x,a                       ; valid damping factor k=DaRising
           mov     a,#0                     ; shifting with filler bit=0
           call    MAT_srShr24            ; (Xe-Xa_old) divided by k
           call    MAT_srIAdd24          ; Xa=Xa_old+(Xe-Xa_old)/k
rtDelayPT1:
           ret                                   ; return

            ENDMOD                          ; End


发表时间:2003年5月9日8:36:44