testasm.asm

这是对于Dsp函数库

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; THIS FILE IS USED TO TEST THE C FUNCTION CALL IN ASM FILES                 ;
;       THE HEAD IS PLACED IN TESTASM.HD                                     ;
;       THE TAIL IS PLACED IN TESTASM.TL                                     ;
; THIS PROGRAM IS DERIVED FROM THE EXAMPLE OF 'CORR'                         ;
;       AND THE RESULT IS THE SAME
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.mmregs

        ; HEAD
        .INCLUDE        "TESTASM.HD"

        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        ; DATA SEGMENT                ;
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        .DATA

        .GLOBAL _X
_X      .WORD   04000H, 02000H, 01000H, 00800H, 00400H, 00200H, 00100H, 00080H
        .WORD   00040H, 00020H, 00010H, 00008H, 00004H, 00002H, 00001H, 00000H
        .WORD   0FFFFH, 0FFFEH, 0FFFCH, 0FFF8H, 0FFF0H, 0FFE0H, 0FFC0H, 0FF80H
        .WORD   0FF00H, 0FE00H, 0FC00H, 0F800H, 0F000H, 0E000H, 0C000H, 08000H

        .GLOBAL _X1
_X1     .WORD   01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H
        .WORD   01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H
        .WORD   01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H
        .WORD   01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H

        .GLOBAL _Y
_Y      .WORD   01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H
        .WORD   01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H
        .WORD   01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H
        .WORD   01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H, 01000H

        .GLOBAL _R                                                       
_R      .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
        .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
        .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
        .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H

        .GLOBAL _OFLAG
        .BSS    _OFLAG, 1

        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        ; TEXT SEGMENT                ;
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        .TEXT

INIT:   LD      #0, ARP
        STM     #00280H, SP             ; STACK POINTER

        RSBX    C16
        RSBX    CMPT
        RSBX    FRCT

        ST      #16,*SP(3)
        ST      #16,*SP(2)
        ST      #_R,*SP(1)
        ST      #_Y,*SP(0)
        LD      #_X,A
        .REF    _corr_unbias
        CALL    #_corr_unbias
        LD      A,A
        STL     A,*(_OFLAG)
                  
        ST      #16,*SP(3)
        ST      #16,*SP(2)
        ST      #_R,*SP(1)
        ST      #_Y,*SP(0)
        LD      #_X1,A
        CALL    #_corr_unbias
        LD      A,A
        STL     A,*(_OFLAG)
                  
WAIT:   B       WAIT

        ; TAIL
        .INCLUDE        "TESTASM.TL"