From 333b605b2afd472b823aeda0adf0e8b1ea9843c0 Mon Sep 17 00:00:00 2001
From: fishsoupisgood <github@madingley.org>
Date: Mon, 27 May 2019 02:41:51 +0100
Subject: initial commit from asl-1.41r8.tar.gz

---
 tests/t_96/t_96.asm | 217 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 217 insertions(+)
 create mode 100644 tests/t_96/t_96.asm

(limited to 'tests/t_96/t_96.asm')

diff --git a/tests/t_96/t_96.asm b/tests/t_96/t_96.asm
new file mode 100644
index 0000000..a98eef5
--- /dev/null
+++ b/tests/t_96/t_96.asm
@@ -0,0 +1,217 @@
+		cpu	80196
+
+                include reg96
+
+ax		equ	20h
+al		equ	ax
+ah		equ	ax+1
+eax		equ	ax
+bx		equ	24h
+bl		equ	bx
+bh		equ	bx+1
+ebx		equ	bx
+cx		equ	28h
+cl		equ	cx
+ch		equ	cx+1
+ecx		equ	cx
+dx		equ	2ch
+dl		equ	dx
+dh		equ	dx+1
+edx		equ	dx
+
+		CLRC
+		CLRVT
+		DI
+		EI
+		NOP
+		POPF
+		PUSHF
+		RET
+		RSC
+		SETC
+		TRAP
+                PUSHA
+                POPA
+                EPTS
+                DPTS
+
+targ:
+		JC 	targ
+		JE	targ
+		JGE	targ
+		JGT	targ
+		JH	targ
+		JLE	targ
+		JLT	targ
+		JNC	targ
+		JNE	targ
+		JNH	targ
+		JNST	targ
+		JNV	targ
+		JNVT	targ
+		JST	targ
+		JV	targ
+		JVT	targ
+
+                bmov	eax,cx
+                bmovi	eax,cx
+
+		add	ax,bx
+		add	ax,2000h
+		add	ax,[bx]
+		add	ax,[bx]+
+		add	ax,2[bx]
+		add	ax,-15[bx]
+		add	ax,700[bx]
+		add	ax,-300[bx]
+		add	ax,#1234h
+
+		add	ax,cx,bx
+		add	ax,cx,2000h
+		add	ax,cx,[bx]
+		add	ax,cx,[bx]+
+		add	ax,cx,2[bx]
+		add	ax,cx,-15[bx]
+		add	ax,cx,700[bx]
+		add	ax,cx,-300[bx]
+		add	ax,cx,#1234h
+
+		addb	al,bl
+		addb	al,2000h
+		addb	al,[bx]
+		addb	al,[bx]+
+		addb	al,2[bx]
+		addb	al,-15[bx]
+		addb	al,700[bx]
+		addb	al,-300[bx]
+		addb	al,#12h
+
+		addb	al,cl,bl
+		addb	al,cl,2000h
+		addb	al,cl,[bx]
+		addb	al,cl,[bx]+
+		addb	al,cl,2[bx]
+		addb	al,cl,-15[bx]
+		addb	al,cl,700[bx]
+		addb	al,cl,-300[bx]
+		addb	al,cl,#12h
+
+		and	dx,300h
+		mulu	eax,bx,cx
+		mulb	ax,cl,ch
+		subb	cl,#5
+
+		addc	ax,bx
+		addcb	al,[bx]
+		cmp	ax,[bx]+
+		cmpb	al,2[bx]
+                cmpl	ecx,edx
+		div	eax,-15[bx]
+		divb	ax,200[bx]
+		divu	eax,-300[bx]
+		divub	ax,200
+		ld	ax,#2345h
+		ldb	al,#16
+		st	ax,bx
+		stb	al,[bx]
+		subc	ax,[bx]+
+		subcb	al,2[bx]
+		xor	ax,-15[bx]
+		xorb	al,200[bx]
+
+		push	ax
+		push	[bx]
+		push	#1234h
+		pop	2000h
+		pop	10[cx]
+
+                xch	ax,bx
+                xch	ax,[bx]
+                xch	ax,10[bx]
+                xch	ax,-150[bx]
+                xch	ax,[bx]+
+                xch	ax,2000h
+                xchb	bl,al
+                xchb	[bx],al
+                xchb	10[bx],al
+                xchb	-150[bx],al
+                xchb	[bx]+,al
+                xchb	2000h,al
+
+		clr	ax
+		clrb	al
+		dec	bx
+		decb	bh
+		ext	eax
+		extb	ax
+		inc	cx
+		incb	cl
+		neg	dx
+		negb	dh
+		not	ax
+		notb	al
+
+		scall	targ
+		lcall	targ
+		call	targ
+
+		sjmp	targ
+		ljmp	targ
+		br	targ
+		br	[dx]
+
+		djnz	cl,$
+                djnzw	cx,$
+
+		jbc	dh,3,$
+		jbs	al,1,$
+
+                tijmp	bx,ax,#127
+
+		ldbse	ax,#-1
+		ldbze	cx,[bx]+
+
+		norml	eax,cl
+
+		shl	ax,#5
+		shl	ax,cl
+		shlb	al,#6
+		shlb	al,cl
+		shll	eax,#7
+		shll	eax,cl
+		shr	ax,#5
+		shr	ax,cl
+		shrb	al,#6
+		shrb	al,cl
+		shrl	eax,#7
+		shrl	eax,cl
+		shra	ax,#5
+		shra	ax,cl
+		shrab	al,#6
+		shrab	al,cl
+		shral	eax,#7
+		shral	eax,cl
+
+		skip	dl
+
+                idlpd	#2
+
+
+                ldb	al,100h		; lang
+                ldb	al,0c0h		; kurz
+                ldb	al,000h		; kurz
+                ldb	al,140h		; lang
+                ldb     al,[0c0h]
+                ldb     al,[000h]
+
+                assume	wsr:24h		; =100h..13fh auf 0c0h..0ffh
+
+                ldb	al,100h		; jetzt kurz
+                ldb	al,0c0h		; jetzt lang
+                ldb	al,000h		; immmer noch kurz
+                ldb	al,140h		; immer noch lang
+                ldb     al,[100h]
+                ldb     al,[000h]
+
+                bne     2000h
+                bc      2000h
-- 
cgit v1.2.3