APDL Public Domain 1/APDL_PD1A.iso/program/assembler/tasm/ASM_TEST/TEST70

Text File | 1992-09-02 | 6.1 KB | 302 lines

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; TASM  test file
; Test all instructions and addressing modes.
; Processor: TMS7000
;



R0      .equ 0
R1      .equ 1
R2      .equ 2
R3      .equ 3
R12     .equ 12
R13     .equ 13
R7      .equ 7
data1   .equ $34
data2   .equ $1287
table   .equ $1234
P7      .equ 7

        .org $f000
start:
        ADC  B,A
        ADC  %data1,A
        ADC  %data1,B
        ADC  %data1,R7
        ADC  R12,A
        ADC  R13,B
        ADC  R12,R7

        ADD  B,A
        ADD  %data1,A
        ADD  %data1,B
        ADD  %data1,R7
        ADD  R12,A
        ADD  R13,B
        ADD  R12,R7

        AND  B,A
        AND  %data1,A
        AND  %data1,B
        AND  %data1,R7
        AND  R12,A
        AND  R13,B
        AND  R12,R7

        ANDP A,R7
        ANDP B,R7
        ANDP %data1,R7

        BTJO B,A,start
        BTJO %data1,A,start
        BTJO %data1,B,start
        BTJO %data1,R7,start
        BTJO R12,A,start
        BTJO R13,B,start
        BTJO R12,R7,start

loop1
         BTJOP   A,P7,loop1
         BTJOP   B,P7,loop1
         BTJOP   %data1,P7,loop1

         BTJZ B,A,loop1
         BTJZ %data1,A,loop1
         BTJZ %data1,B,loop1
         BTJZ %data1,R7,loop1
         BTJZ R12,A,loop1
         BTJZ R12,B,loop1
         BTJZ R12,R7,loop1

         BTJZP   A,P7,loop1
         BTJZP   B,P7,loop1
         BTJZP   %data1,P7,loop1

         BR      @start(B)
         BR      @start[B]
         BR      @start
         BR      *R7

         CALL    @sub1(B)
         CALL    @sub1
         CALL    *R7

sub1:    CLR     A
         CLR     B
         CLR     R12

         CLRC

         CMP     B,A
         CMP     %data1,A
         CMP     %data1,B
         CMP     %data1,R7
         CMP     R12,A
         CMP     R12,B
         CMP     R12,R7

         CMPA    @R7(B)
         CMPA    @R7[B]
         CMPA    @R7
         CMPA    *R7

         DAC     B,A
         DAC     %data1,A
         DAC     %data1,B
         DAC     %data1,R7
         DAC     R12,A
         DAC     R12,B
         DAC     R12,R7

         DEC     A
         DEC     B
         DEC     R7

         DECD    A
         DECD    B
         DECD    R7

         DINT

         DJNZ    A,loop2
         DJNZ    B,loop2
         DJNZ    R12,loop2

         DSB     B,A
         DSB     %data1,A
         DSB     %data1,B
         DSB     %data1,R7
         DSB     R12,A
         DSB     R12,B
         DSB     R12,R7

         EINT

         IDLE

         INC     A
         INC     B
         INC     R7

         INV     A
         INV     B
         INV     R7
loop2:
         JMP     loop2

         JC      loop2
         JEQ     loop2
         JGE     loop2
         JGT     loop2
         JHS     loop2
         JL      loop2
         JN      loop2
         JNC     loop2
         JNE     loop2
         JNZ     loop2
         JP      loop2
         JPZ     loop2
         JZ      loop2

         LDA     @table(B)
         LDA     @table
         LDA     *R7

         LDSP

         MOV     A,B
         MOV     B,A
         MOV     A,R7
         MOV     B,R7
         MOV     %data1,A
         MOV     %data1,B
         MOV     %data1,R7
         MOV     R12,A
         MOV     R12,B
         MOV     R12,R7

         MOVD    %data2,R7
         MOVD    %data2[B],R7
         MOVD    R12,R7

         MOVP    A,P7
         MOVP    B,P7
         MOVP    %data1,P7
         MOVP    P7,A
         MOVP    P7,B

         MPY     B,A
         MPY     %data1,A
         MPY     %data1,B
         MPY     %data1,R7
         MPY     R12,A
         MPY     R12,B
         MPY     R12,R7

         NOP

         OR      B,A
         OR      %data1,A
         OR      %data1,B
         OR      %data1,R7
         OR      R12,A
         OR      R12,B
         OR      R12,R7

         ORP     A,P7
         ORP     B,P7
         ORP     %data1,P7

         POP     A
         POP     B
         POP     R7

         POPST
         POP     ST

         PUSH    A
         PUSH    B
         PUSH    R7

         PUSHST
         PUSH    ST

         RETI

         RETS

         RL      A
         RL      B
         RL      R7

         RLC     A
         RLC     B
         RLC     R7

         RR      A
         RR      B
         RR      R7

         RRC     A
         RRC     B
         RRC     R7

         SBB     B,A
         SBB     %data1,A
         SBB     %data1,B
         SBB     %data1,R7
         SBB     R12,A
         SBB     R12,B
         SBB     R12,R7

         SETC

         STA     @table(B)
         STA     @table
         STA     *R7

         STSP

         SUB     B,A
         SUB     %data1,A
         SUB     %data1,B
         SUB     %data1,R7
         SUB     R12,A
         SUB     R12,B
         SUB     R12,R7

         SWAP    A
         SWAP    B
         SWAP    R7

         TRAP    0
         TRAP    1
         TRAP    6
         TRAP    12
         TRAP    23

         TST     A
         TSTA
         TST     B
         TSTB

         XCHB    A
         XCHB    R7

         XOR     B,A
         XOR     %data1,A
         XOR     %data1,B
         XOR     %data1,R7
         XOR     R12,A
         XOR     R12,B
         XOR     R12,R7

         XORP    A,P7
         XORP    B,P7
         XORP    %data1,P7


         .end