From 32d59eafa320f2eed8ac83fc3c3fa6ba7450e012 Mon Sep 17 00:00:00 2001
From: marcobaye <marcobaye@4df02467-bbd4-4a76-a152-e7ce94205b78>
Date: Mon, 27 Jul 2020 22:09:27 +0000
Subject: [PATCH] still more test sources and expected outputs

git-svn-id: https://svn.code.sf.net/p/acme-crossass/code-0/trunk@281 4df02467-bbd4-4a76-a152-e7ce94205b78
---
 testing/cpus/expected-4502.o     | Bin 0 -> 554 bytes
 testing/cpus/expected-6502.o     | Bin 0 -> 321 bytes
 testing/cpus/expected-65816.o    | Bin 0 -> 661 bytes
 testing/cpus/expected-65c02.o    | Bin 0 -> 375 bytes
 testing/cpus/expected-nmos6502.o | Bin 0 -> 488 bytes
 testing/cpus/expected-r65c02.o   | Bin 0 -> 455 bytes
 testing/cpus/expected-w65c02.o   | Bin 0 -> 457 bytes
 testing/cpus/test-4502.a         |  12 ++++
 testing/cpus/test-65816.a        | 116 +++++++++++++++++++++++++++++++
 9 files changed, 128 insertions(+)
 create mode 100644 testing/cpus/expected-4502.o
 create mode 100644 testing/cpus/expected-6502.o
 create mode 100644 testing/cpus/expected-65816.o
 create mode 100644 testing/cpus/expected-65c02.o
 create mode 100644 testing/cpus/expected-nmos6502.o
 create mode 100644 testing/cpus/expected-r65c02.o
 create mode 100644 testing/cpus/expected-w65c02.o
 create mode 100644 testing/cpus/test-4502.a
 create mode 100644 testing/cpus/test-65816.a

diff --git a/testing/cpus/expected-4502.o b/testing/cpus/expected-4502.o
new file mode 100644
index 0000000000000000000000000000000000000000..d8adab45585fb16bf6cb4370d77f342d6019b71c
GIT binary patch
literal 554
zcmV~$1%OOJ7y#h^v11HxX1vE>FoQkav3m9D=5()Sb#v<ESsg1@H&1tWcXzkbtj_NP
z!$2qzN=!%+$|z$r8CaGODMe~2rP4}km4VTWMkbUQWkK1plN`Ai&CO^YM)N^_tB@!x
ziWZZyq*kT0DpS^|fGVQORY=w9jMiYZCZn~Xj#XbY5RDp3*<7m@TD59zv_tJt$4;bk
zAQ0%vXg5ZCKu@c$=qCmYlyZnxL$w-Vj6$Q)7&LDD1V$$^I*HLKFx8qNW{OZ~_8cka
z&ev)YS!^sJ%g}PP0<Bt2)~sc89i!_R-3Xhktzw(l9@@D}%H4al+NafiDG!oE#!++(
z9Y-fmk<(`xJ;&&IMlZr8>zcSOZr+meo>up@dPp7_Pth~<9KC!+;@>d(meF^Net?hG
z7x7hm{~_fct^R6-G3Ss9r{|Cr=jBiYm*!9j*W%C+x8%?PcjwR_592TvPv$TSFXXTi
zZ{V;4AK-8TU*K>9Kj82Jzvu7`|Ks3tnWkymDO_pNnPvgo<0<a-dh6Ov+PZq#eLRC=
zVq%6vT--E!o@p-ddN<pb?c1O1p9vBsO%9OO?RG~+Mdd6AP@-IUpRZayfavI^et#Q)
zF1-N;$HtBX2nK`G0m9+%QorLkTLAV1gNOY`d}kcz3cyw0ox6_nIQEI}wc~sSh(sd4
JemhRH`2T`kq3i$v

literal 0
HcmV?d00001

diff --git a/testing/cpus/expected-6502.o b/testing/cpus/expected-6502.o
new file mode 100644
index 0000000000000000000000000000000000000000..cf2ed1cf1ed9609402d4915277846c9a5748bc40
GIT binary patch
literal 321
zcmV~$K`0+!6aet=J3Q@E@8vr@?H%5i71|c!Kpdv+Fd>#5rtM&H*c$zbgEfb(R;DFH
z@eifY$kvE5nUK{c#Igf%*s?;iY;l<8Kz=`CEkF!haxNALi7?K1&m7N}MMQ&!pb3Om
zY$7B<GF-jpuBQ;D5~dNRn+%`HS)83CawBMN(3`jHZODWC0#{f>SWI|_u*BT;_qder
zKM*Mk`Y>pDg?$8%;Yp>dibNvSgf)b<rq0*%Q-0PU@;vB^pf7DByn-fp-P}UhO4vr&
zZaRD?cX2e@-6PW57qs6E*g^LOhF};*-nw`12}cRX2*=HYpX3ib6`lSlGBX==F6g|-
zg8O7Y!xvbDrDeCWO1MV&m2lmB^BcU$TiYVvgZ>D*<9^y**n@reb>My<68<6lOL%0C
Q{Xah8|ED5nLC=F;0GCBrzyJUM

literal 0
HcmV?d00001

diff --git a/testing/cpus/expected-65816.o b/testing/cpus/expected-65816.o
new file mode 100644
index 0000000000000000000000000000000000000000..56b5af84fb8b790ac67c8d8efec249adbc15b9ea
GIT binary patch
literal 661
zcmYk%Wl&W?6bJCV+_zqjzFocdx?We^wF5h_pN)YX*xjPot=ReO#8$+_?heGn4s2A!
z#13qXonf5ud^+cM&irQ%(lm@y;FJKV2qlz~w8%6WOV2WJ&V>|Gima4m({kcmI5*Dg
z3;7CAQjn5DloUZl%@V96D_w^3@={cgqEcn88m^9O20*Pkl+>l99wiM>L$e8M%9^*}
zyp0rXrD)$l>w>%D?m^HaI5@Z$CA}%>i~5;^*kCqv80RCU7$wD6Z33Q%C*dhmr&BV6
zl9`muMsv*hYyk@mU9_0<CCjA<gH>8MtifyXI=mqQHg2Y53ng1A*^YLYyV)MLH+262
z&JP}z;)oPSIgf<n+DUv0pT=jS;oJpEE>d!dk}K${d4t_#x9@O%Uy27(#K9x&34V&7
z;TH+;@--!ID0xfCd-TEl%)YR1-#Py!#cwHGF1OolS?OFEGrQfzEI+@p9*?Jy)v~jz
zzctWrct}Xd807WNwU)WvD?FZ^)-~(yN9%`=kFFa=>NKis+i@~wQI%Z{IrKb6{=%v$
zZkKY(Ra9D~s_q}?U&E+fUuk1IFwno5)2g-V+o@$oggWWnjGleeJis2}j2NwO975yu
z$;Px<3g_7iouw-kuGZHZo3<(0W$$wi9aC~bKVzJ~tmL{K6LZVC7aJS<Q1N5^x$)|q
z;!k#BV&YflXHrtqALRhZ7f=A8AV6Ud4iSJNAsSE|B!GGlMMcHO1NcG!1VI>}a6l0d
c2`C!k040Feo4o%&Bl$+9s3R4luKwlx1^L6gZ~y=R

literal 0
HcmV?d00001

diff --git a/testing/cpus/expected-65c02.o b/testing/cpus/expected-65c02.o
new file mode 100644
index 0000000000000000000000000000000000000000..aaf64a6be42943ddfa938bd5099080567fc4b007
GIT binary patch
literal 375
zcmV~$acIp^6ae6R>mBXtcTVnYM?2cRZDrclwpfo?KjM$cG(r)pX{$}>ZEZs65w*#L
zOuSfVgb)iMgs9QTgqm1cTOnjZ5sG}D(i&h4WEnFS35jr=vX*%~=ZJ_8J_Mgfn6D>7
z0Zf9zB2!#KSV~w%I9W}xQ+XOspCK|c_*ucvo}(*aF3hVk^Q#FL5H2KKq!!zyyo{Hx
z5UCA*W$<<Nx)D~v>NRF<DwS#?Y$j|`t#$)%<V~AJwg$f~_#L_p+F>W`+P#NxFX2AI
z{i@R*<U^dv96ln_bu9R9b3&gqr{FZ4fwSk#`3r;>33~`Hsmt~%U*qeU8#hI6-46av
z@OMS-nftmI9>7EBdt@FzA?zo7O887Yw*&l=U%eK26Z}x{!)8Rkg?I2CK72HvJ`;`-
zej)s-zS$rAlYjjd`5XMd;1h``ik!<%OvsI*a+ge2#BsdD)ifm5x%J5{>2!L#>gYJ&
Rjz-b(IKJXuxWVu4&wpy-XV3ru

literal 0
HcmV?d00001

diff --git a/testing/cpus/expected-nmos6502.o b/testing/cpus/expected-nmos6502.o
new file mode 100644
index 0000000000000000000000000000000000000000..dbefd42cce0a7ab65eb04777624588e9d21da6af
GIT binary patch
literal 488
zcmV~$2j~xB7y#fqcP~D7?|ZJh4`1(n-;pgdS;<QFPFAv#{kM{ptjuiT_p|rjvNzeA
zWF;$GX0np;JeF+(<c7RL<U>Lt%x{IElm%oVrIa?>7+sjKh+PbdLkTEVT9heESdOqf
zVMVJ_SVdNq)oUnK%jnuh*R5wafQHbxiD=rKumxdD!q!%su$^o#J9bj4i_u+;?%u=h
z1-+qfKhZxYCubnxAi^Qm&~UgMAxDi?YOK-YjGkyuhAA)=rq7r~IGb<|;XG@8xKJ*V
znatuPN-bSs^lGujUMtqa2G|Ijw}`FV33m|gB;0N73HQnU@<8U$VWo~7Gy1sECzLuR
zPTObU9Gr)Xm&E0(gx3hK6W+9Lg?Hp#dH;b@kBok7^i%Q7egQAx6})*X-n}RMK=_gH
zv-KtXCcn#{zm)o8^k1WMIgab*aXrru{2=h7D2@xp%$%f2nkGe^l5T~-uN+m2YckhK
zllo30x0%-}@Y_Zm;?B(7(xj);#~t7e4*X%!$aoC%_%xZ|O>(BWGp)ISzaYwHmoYC-
zla<V?nAbU*+-=sbz~37k%pPSv$$ZAS;9l`=1pe*lUi^^xNt!%&Ub~+H|7-Lk{>}U^
GP5uKMB!S2P

literal 0
HcmV?d00001

diff --git a/testing/cpus/expected-r65c02.o b/testing/cpus/expected-r65c02.o
new file mode 100644
index 0000000000000000000000000000000000000000..966f5e561ae010c5d4a329b028c12e99fdab611c
GIT binary patch
literal 455
zcmV~$Wr$Tl6ae6J;T>m3?m6SVIO-8+RIssmCfE95;#y#W1vbyb=2>8^*yz(08yg!N
z6KrfS!2%l_OjzCTgCIaGfq7b&BqnAm1yN*e8Cy<7oOj;4N=%i5Dp(b(VU3!)R&Ay_
zOm&&+LxZT1ZETx16KUaHOYd5@3EE;i?9fqn>dchS)P<=VbdP%4UbatPk^bHd@NUrH
zU?>j55hL}eOeQm$X$;di7#~ftlkL=LA~U?3>D`=QF3!XGxNy;8rX@^EnU=$fXq8=U
zbGfyJBI`DIw^?rqw(4!T9e3ca-FnYnrhQENnGV9C=!iXPkL6CB6ghR;yEERM6*;dj
z1Q+oVUdF4}^z|D|H<@lR-GRH&efz*ZdMxtPyJz0L&@Y2m_!{5fyZ8FTN2X6qpP9bG
zx9ErcX@CC_De~^0cd1kuhH+dvRlY(PHjLBh=1G$Di2DsmO^7F^r)RU-*-%ihGF~5s
z8<XU4d@p|TJ^rhdF;G@jG*DgDGtfk}GSFUiHPBlPG%#F^H84fZGO$1`Gq6T&GO$w}
aFmPO*GjK)SHt<kAH}F<{G4M<MH&6`cpm~r0

literal 0
HcmV?d00001

diff --git a/testing/cpus/expected-w65c02.o b/testing/cpus/expected-w65c02.o
new file mode 100644
index 0000000000000000000000000000000000000000..f165790ac93887cc4b64299d4dc1e26556499ce9
GIT binary patch
literal 457
zcmV~$WvCTF6ae6}aF652o-^*^s7IVp!N%sAto6ghr@jX!SYUHaY_0{?6C1q-Ha0dk
zCfKcDV}XqgCK%rbL4a5Ui)vkrn3$<JM3J>6ZD|p4-g)oJGgSyGVkNAMRjcXhHJEBL
z)ncjxb))*Wfo;@Sq^Wn!ylc@iXoan@Z9Cn*15+MTN2bn@A9b-^ZTB7`y}aw~UEhAe
z033*ehv=c1OlBC<aHf$kDjI9Y*$ERxCVMx<yXnCUoQbn=&fIxS^O+VfErP|-QoGFN
zaw}GftXkvUdc7gos5jwe+=AP->m56pb}{W{+6()l1NNXjlsj@%<k)fVPIz}x<g`8$
zoW*l^9xq<fm#;EiW4g|C6K+L!>|J~RfyiU;o_P06KM!8uOMHcI-s*SnnLaRmWcmzW
zqHp%Q{rOAek9U8)OQpgvjN=liGG)WCUYt%hNs^=>?%6*zIv$grl+9+RL1E#Ncy$=A
zO_Kfb?fBu>__tEVKq*zuKowQnKtt8sKpWM`KsVLLz#uikz<4#)z-+b9z;d<Dz*e=#
cz+rXDzy)=~z&-WUz-#r%zz_A$z?Db;0o_1*HUIzs

literal 0
HcmV?d00001

diff --git a/testing/cpus/test-4502.a b/testing/cpus/test-4502.a
new file mode 100644
index 0000000..e4b3c8e
--- /dev/null
+++ b/testing/cpus/test-4502.a
@@ -0,0 +1,12 @@
+;ACME 0.97
+	!cpu 4502
+	!to "out-4502.o", plain
+	*=$1000
+	!src "include-6502.a"
+;	!src "include-65c02.a"	; not used, because 65ce02 changes "(zp)" to "(zp), z"
+	!src "include-bitmanips.a"
+	!src "include-65ce02.a"
+; this differs between 65ce02 and 4502:
+		map		; $5c
+; this is an alias for NOP:
+		eom		; $ea, "end of mapping"
diff --git a/testing/cpus/test-65816.a b/testing/cpus/test-65816.a
new file mode 100644
index 0000000..b58503b
--- /dev/null
+++ b/testing/cpus/test-65816.a
@@ -0,0 +1,116 @@
+;ACME 0.97
+	!cpu 65816
+	!to "out-65816.o", plain
+	*=$1000
+	!src "include-6502.a"
+	!src "include-65c02.a"
+;	!src "include-bitmanips.a"	65816 does not support these
+
+	; new instructions of 65816:
+		cop $02		; 02
+		ora $03, s	; 03
+		ora [$07]	; 07
+		phd		; 0b
+		ora $0f0f0f	; 0f
+		ora ($13, s), y	; 13
+		ora [$17], y	; 17
+		tcs		; 1b
+		ora $1f1f1f, x	; 1f
+		jsr $0f0f0f	; 22
+		and $03, s	; 23
+		and [$07]	; 27
+		pld		; 2b
+		and $0f0f0f	; 2f
+		and ($13, s), y	; 33
+		and [$17], y	; 37
+		tsc		; 3b
+		and $1f1f1f, x	; 3f
+		wdm		; 42
+		eor $03, s	; 43
+		mvp $44, $54	; 44
+		eor [$07]	; 47
+		phk		; 4b
+		eor $0f0f0f	; 4f
+		eor ($13, s), y	; 53
+		mvn $44, $54	; 54
+		eor [$17], y	; 57
+		tcd		; 5b
+		jmp $0f0f0f	; 5c
+		eor $1f1f1f, x	; 5f
+		per * + 3	; 62
+		adc $03, s	; 63
+		adc [$07]	; 67
+		rtl		; 6b
+		adc $0f0f0f	; 6f
+		adc ($13, s), y	; 73
+		adc [$17], y	; 77
+		tdc		; 7b
+		adc $1f1f1f, x	; 7f
+		brl * + 3	; 82
+		sta $03, s	; 83
+		sta [$07]	; 87
+		phb		; 8b
+		sta $0f0f0f	; 8f
+		sta ($13, s), y	; 93
+		sta [$17], y	; 97
+		txy		; 9b
+		sta $1f1f1f, x	; 9f
+		lda $03, s	; a3
+		lda [$07]	; a7
+		plb		; ab
+		lda $0f0f0f	; af
+		lda ($13, s), y	; b3
+		lda [$17], y	; b7
+		tyx		; bb
+		lda $1f1f1f, x	; bf
+;		rep #$c2	; c2, see below
+		cmp $03, s	; c3
+		cmp [$07]	; c7
+		wai		; cb
+		cmp $0f0f0f	; cf
+		cmp ($13, s), y	; d3
+		pei ($d4)	; d4
+		cmp [$17], y	; d7
+		stp		; db
+		jmp [$dcdc]	; dc
+		cmp $1f1f1f, x	; df
+;		sep #$e2	; e2, see below
+		sbc $03, s	; e3
+		sbc [$07]	; e7
+		xba		; eb
+		sbc $0f0f0f	; ef
+		sbc ($13, s), y	; f3
+		pea $f4f4	; f4
+		sbc [$17], y	; f7
+		xce		; fb
+		jsr ($fcfc, x)	; fc
+		sbc $1f1f1f, x	; ff
+
+; immediate addressing for register length checks:
+!macro immediates {
+; from 6502:
+		ora #$09	; 09, a
+		and #$09	; 29, a
+		eor #$09	; 49, a
+		adc #$09	; 69, a
+		ldy #$09	; a0, r
+		ldx #$09	; a2, r
+		lda #$09	; a9, a
+		cpy #$09	; c0, r
+		cmp #$09	; c9, a
+		cpx #$09	; e0, r
+		sbc #$09	; e9, a
+; from 65c02:
+		bit #$89	; 89, a
+; from 65816:
+		rep #$c2	; c2, always 8 bits
+		sep #$e2	; e2, always 8 bits
+}
+	!al
+	+immediates
+	!as
+	!rl
+	+immediates
+	!al
+	!rl
+	+immediates