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



  3 Responses to “Category : Assembly Language Source Code
Archive   : TASM30.ZIP
Filename : TEST70.ASM

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/