Category : Assembly Language Source Code
Archive   : TASM30.ZIP
Filename : TEST70.ASM

 
Output of file : TEST70.ASM contained in archive : TASM30.ZIP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; $Id: test70.asm 1.1 1993/08/02 01:24:21 toma Exp $
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 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