diff options
| author | fishsoupisgood <github@madingley.org> | 2019-05-27 02:41:51 +0100 | 
|---|---|---|
| committer | fishsoupisgood <github@madingley.org> | 2019-05-27 02:41:51 +0100 | 
| commit | 333b605b2afd472b823aeda0adf0e8b1ea9843c0 (patch) | |
| tree | bc8f581317897e2e53f278f1716b4471fcdccd4f /tests/t_7700 | |
| download | asl-master.tar.gz asl-master.tar.bz2 asl-master.zip | |
Diffstat (limited to 'tests/t_7700')
| -rw-r--r-- | tests/t_7700/asflags | 0 | ||||
| -rw-r--r-- | tests/t_7700/t_7700.asm | 356 | ||||
| -rw-r--r-- | tests/t_7700/t_7700.doc | 5 | ||||
| -rw-r--r-- | tests/t_7700/t_7700.ori | bin | 0 -> 934 bytes | 
4 files changed, 361 insertions, 0 deletions
| diff --git a/tests/t_7700/asflags b/tests/t_7700/asflags new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/tests/t_7700/asflags diff --git a/tests/t_7700/t_7700.asm b/tests/t_7700/t_7700.asm new file mode 100644 index 0000000..f4537d9 --- /dev/null +++ b/tests/t_7700/t_7700.asm @@ -0,0 +1,356 @@ +        cpu     melps7751 +	page	0 + + +	ldt	#0 +	assume	pg:0,dt:0,dpr:0 + +accmode macro   size +	 switch	size +	  case   8 +	   sep    #$20 +	   assume m:1 +	  case	16 +	   clp    #$20 +	   assume m:0 +	  elsecase +	   fatal  "accmode: ungltige Operandengre: $\{SIZE}" +	 endcase +	endm + +idxmode macro	size +	 switch	size +	  case   8 +	   sep    #$10 +	   assume x:1 +	  case	16 +	   clp    #$10 +	   assume x:0 +	  elsecase +	   fatal  "idxmode: ungltige Operandengre: $\{SIZE}" +	 endcase +	endm + +	xab +	wit +	tyx +	tyb +	tya +	txy +	txs +	txb +	txa +	tsx +	tsb +	tsa +	tdb +	tda +	tby +	tbx +	tbs +	tbd +	tay +	tax +	tas +	tad +	stp +	sem +	sei +	sec +	rts +	rtl +	rti +	ply +	plx +	plt +	plp +	pld +	plb +	pla +	phy +	phx +	pht +	php +	phg +	phd +	phb +	pha +	nop +	iny +	inx +	dey +	dex +	clv +	clm +	cli +	clc + +	rla	#7 + +targ: +	bcc	targ +	bcs	targ +	beq	targ +	bmi	targ +	bne	targ +	bpl	targ +	bvc	targ +	bvs	targ +	bra	targ +	per	targ +	org	*+$100 +	bra	targ +	per	targ + +	accmode	8 +	idxmode	8 + +	adc	#20 +	and	a,#-1 +	cmp	b,#-$a + +targ2: +	bbc	#$80,$20,targ2 +	bbs	#$40,$2000,targ2 +	clb	#$20,$20 +	seb	#$10,$2000 + +	cpx	#$aa +	cpy     #$aa +	ldx	#$bb +	ldy	#$bb + +	ldm	#$aa,$20 +	ldm	#$aa,$2000 +	ldm	#$aa,$20,x +	ldm	#$aa,$2000,x + +	accmode	16 +	idxmode	16 + +	eor	#%0000111111110000 +	lda	a,#'AB' +	ora	b,#3000 + +	sbc	$20 +	sta	a,$2000 +	adc	b,$200000 + +	and	$30,x +	cmp	a,$3000,x +	eor	b,$300000,x + +	lda	$40,y +	ora	a,$4000,y +;	sbc	b,$400000,y + +	sta	($50) +;	adc	a,($5000) +;	and	b,($500000) + +	cmpl	($60) +;	eorl	a,($6000) +;	ldal	b,($600000) + +	ora	($70,x) +;	sbc	($7000,x) +;	sta	($700000,x) + +	adc	($80),y +;	and	($8000),y +;	cmp	($800000),y + +	eorl	($80),y +;	ldal	($8000),y +;	oral	($800000),y + +	sbc	b,3,s +	sta	a,(5,s),y + +	asl +	dec	a +	inc	b +	lsr	$20 +	rol	$2000 +	ror	$20,x +	asl	$2000,x + +targ3: +	bbs	#$80,$20,targ3 +	bbc	#$40,$2000,targ3 +	clb	#$20,$20 +	seb	#$10,$2000 + +	cpx	#$aa +	cpy     #$aa +	ldx	#$bb +	ldy	#$bb +	cpx	$20 +	cpy	$20 +	ldx	$20 +	ldy	$20 +	stx	$20 +	sty	$20 +	cpx	$2000 +	cpy	$2000 +	ldx	$2000 +	ldy	$2000 +	stx	$2000 +	sty	$2000 +	ldx	$30,y +	ldy	$30,x +	stx	$30,y +	sty	$30,x +	ldx	$3000,y +	ldy	$3000,x + +        mpy     #55 +        accmode 8 +        mpy     #55 +        accmode 16 +        mpy     $12 +        mpy     $12,x +        mpy     ($12) +        mpy     ($12,x) +        mpy     ($12),y +        mpyl    ($12) +        mpyl    ($12),y +        mpy     $1234 +        mpy     $1234,x +        mpy     $1234,y +        mpy     $123456 +        mpy     $123456,x +        mpy     $12,s +        mpy     ($12,s),y + +        div     #55 +        accmode 8 +        div     #55 +        accmode 16 +        div     $12 +        div     $12,x +        div     ($12) +        div     ($12,x) +        div     ($12),y +        divl    ($12) +        divl    ($12),y +        div     $1234 +        div     $1234,x +        div     $1234,y +        div     $123456 +        div     $123456,x +        div     $12,s +        div     ($12,s),y + +        jmp     $20 +	jmp	$2000 +	jmp	$200000 +	jmp	($3000) +	jmpl	($3000) +	jmp	($4000,x) +	jsr	$20 +	jsr	$2000 +	jsr	$200000 +	jsr	($4000,x) + +	ldm	#$aa,$20 +	ldm	#$aa,$2000 +	ldm	#$aa,$20,x +	ldm	#$aa,$2000,x + +	mvn	$200000,$300000 +	mvp	$200000,$300000 + +;- - - - - - - - - - - - - - - - - - - - - - - - - - - - + +	cpu     65816 + +	cop +	jml     $2000 +	jsl     $4000 +	brl     * +	rep     #$55 +	tsb     $33 +	trb     $66 +        tsb     $9999 +        trb     $cccc +        bit     $00 +	bit     $11,x +        bit     $2222 +        bit     $3333,x +        bit     #$44 +        stz     $55 +        stz     $6666 +        stz     $77,x +        stz     $8888,x +        cld +        sed +	tcs +	tsc +	phk +	tcd +	tdc +	phb +	plb +	wai +	xba +	xce + +;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + +        cpu     melps7750 + +        asr +        asr     a +        asr     b +        asr     $aa +        asr     $1234 +        asr     $aa,x +        asr     $1234,x + +        extz +        extz    a +        extz    b +        exts +        exts    a +        exts    b + +        mpys     #55 +        accmode 8 +        mpys     #55 +        accmode 16 +        mpys     $12 +        mpys     $12,x +        mpys     ($12) +        mpys     ($12,x) +        mpys     ($12),y +        mpysl    ($12) +        mpysl    ($12),y +        mpys     $1234 +        mpys     $1234,x +        mpys     $1234,y +        mpys     $123456 +        mpys     $123456,x +        mpys     $12,s +        mpys     ($12,s),y + +        divs     #55 +        accmode 8 +        divs     #55 +        accmode 16 +        divs     $12 +        divs     $12,x +        divs     ($12) +        divs     ($12,x) +        divs     ($12),y +        divsl    ($12) +        divsl    ($12),y +        divs     $1234 +        divs     $1234,x +        divs     $1234,y +        divs     $123456 +        divs     $123456,x +        divs     $12,s +        divs     ($12,s),y + + diff --git a/tests/t_7700/t_7700.doc b/tests/t_7700/t_7700.doc new file mode 100644 index 0000000..d7186e0 --- /dev/null +++ b/tests/t_7700/t_7700.doc @@ -0,0 +1,5 @@ ++------------------------- Test Application 7700 ----------------------------+ +|                                                                            | +|      This is a (synthetic) test of the MELPS/77xx instruction set          | +|                                                                            | ++----------------------------------------------------------------------------+ diff --git a/tests/t_7700/t_7700.ori b/tests/t_7700/t_7700.oriBinary files differ new file mode 100644 index 0000000..df9af4e --- /dev/null +++ b/tests/t_7700/t_7700.ori | 
