Category : Assembly Language Source Code
Archive   : TASM30.ZIP
Filename : TEST70.ASM
; $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
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/