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_296/t_296.asm | 132 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 132 insertions(+)
 create mode 100644 tests/t_296/t_296.asm

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

diff --git a/tests/t_296/t_296.asm b/tests/t_296/t_296.asm
new file mode 100644
index 0000000..27cdb60
--- /dev/null
+++ b/tests/t_296/t_296.asm
@@ -0,0 +1,132 @@
+	cpu	80296
+
+ax	equ	40
+al	equ	ax
+ah	equ	al+1
+bx	equ	42
+cx	equ	44
+dx	equ	46
+
+        reti
+
+        eld	ax,[bx]
+        eld	ax,0[bx]
+        eld	ax,100[bx]   	; nur 24-Bit-Displacement
+        eld	ax,1000[bx]
+        eld	ax,100000[bx]
+        eld	ax,-100[bx]
+        eld	ax,-1000[bx]
+        eld	ax,-100000[bx]
+	eld	ax,123456h
+
+        eldb	al,[bx]
+        eldb	al,0[bx]
+        eldb	al,100[bx]   	; nur 24-Bit-Displacement
+        eldb	al,1000[bx]
+        eldb	al,100000[bx]
+        eldb	al,-100[bx]
+        eldb	al,-1000[bx]
+        eldb	al,-100000[bx]
+	eldb	al,123456h
+
+        est	ax,[bx]
+        est	ax,0[bx]
+        est	ax,100[bx]   	; nur 24-Bit-Displacement
+        est	ax,1000[bx]
+        est	ax,100000[bx]
+        est	ax,-100[bx]
+        est	ax,-1000[bx]
+        est	ax,-100000[bx]
+	est	ax,123456h
+
+        estb	al,[bx]
+        estb	al,0[bx]
+        estb	al,100[bx]   	; nur 24-Bit-Displacement
+        estb	al,1000[bx]
+        estb	al,100000[bx]
+        estb	al,-100[bx]
+        estb	al,-1000[bx]
+        estb	al,-100000[bx]
+	estb	al,123456h
+
+	ecall	$+123456h
+	ejmp	$-10h
+        ebr	[bx]
+
+        ebmovi	cx,ax
+
+        mac     #12h
+        mac     ax,#12h
+
+        macr    bx
+        macr    ax,bx
+
+        macrz   10[bx]
+        macrz   ax,10[bx]
+
+        macz    -1000[bx]
+        macz    ax,-1000[bx]
+
+        smac    [cx]
+        smac    ax,[cx]
+
+        smacr   [cx]+
+        smacr   ax,[cx]+
+
+        smacrz  1000h
+        smacrz  ax,1000h
+
+        smacz   0ffc0h
+        smacz   ax,0ffc0h
+
+        msac	ax,#20
+
+        mvac	cx,al
+
+        rpt	ax
+        rptnst	#10
+        rptnh	[cx]
+        rptgt	[cx]+
+        rptnc	ax
+        rptnvt	#10
+        rptnv	[cx]
+        rptge	[cx]+
+        rptne	ax
+        rptst	#10
+        rpth	[cx]
+        rptle	[cx]+
+        rptc	ax
+        rptvt	#10
+        rptv	[cx]
+        rptlt	[cx]+
+        rpte	ax
+        rpti	#10
+        rptinst	[cx]
+        rptinh	[cx]+
+        rptigt	ax
+        rptinc	#10
+        rptinvt	[cx]
+        rptinv	[cx]+
+        rptige	ax
+        rptine	#10
+        rptist	[cx]
+        rptih	[cx]+
+        rptile	ax
+        rptic	#10
+        rptivt	[cx]
+        rptiv	[cx]+
+        rptilt	ax
+        rptie	#10
+
+        assume	wsr:3eh		; 1f80h...1fbfh --> 0c0h...0ffh
+        assume	wsr1:9eh	; 0f780h...0f7bfh --> 40h..7fh
+
+        ld	ax,3eh		; normal
+        ld	ax,44h		; muß absolut werden
+        ld	ax,92h		; wieder normal
+        ld	ax,0d0h		; muß wieder absolut werden
+        ld	ax,1000h	; muß absolut bleiben
+        ld	ax,1f90h	; mit WSR
+        ld	ax,2000h	; muß wieder absolut bleiben
+        ld      ax,0f7a0h	; mit WSR1
+        ld	ax,0fffeh	; muß wieder absolut bleiben
-- 
cgit v1.2.3