aboutsummaryrefslogtreecommitdiffstats
path: root/tests/t_56000/t_56000.asm
blob: acf594f3dc9aa0b61f6c93a8103ef0a8631ce7bf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
		page	0

		cpu	56000

                include stddef56k.inc

		segment	code
		org	$300

		nop
		enddo
		illegal
		reset
		rti
		rts
		stop
		swi
		wait

		jmp	$214
		jsr	$889
		jmp	$3567
		jsr	$2340
		jmp	(r3)
		jsr	(r5)
		jmp	(r6)+
		jsr	(r1)+
		jmp	(r4)-
		jsr	(r2)-
		jmp	-(r5)
		jsr	-(r0)
		jmp	(r3+n3)
		jsr	(r7+n7)
		jmp	(r2)+n2
		jsr	(r6)+n6
		jmp	(r5)-n5
		jsr	(r3)-n3

		jcc	$123
		jge	$2345
		jne	(r7)
		jpl	(r6)-
		jnn	(r5)+
		jec	-(r4)
		jlc	(r3+n3)
		jgt	(r2)+n2
		jcs	(r1)-n1
		jlt	$123
		jeq	$2345
		jmi	(r0)
		jnr	(r1)-
		jes	(r2)+
		jls	-(r3)
		jle	(r4+n4)
		jhs	(r5)+n5
		jlo	(r6)-n6

		jsnn	$768
		jsle	(r0)


		move	(r3)+n3
		move	(r4)-n4
		move	(r2)-
		move	(r6)+

		move	n5,a2
		move	r4,b1
		move	a0,b2
		move	a,r4

		move	#$30,n5
		move	#$ff,r3

		move	x:#$123456,a0
		move	y:#$234567,y1
		move	  #$345678,r5
		move	y:#$456789,n1

		move	x:$12,b2
		move	y:$34,n6
		move	x:$1234,a
		move	y:$2345,b2
		move	b2,x:$12
		move	n6,y:$34
		move	a,x:$1234
		move	b2,y:$2345

		move	x:(r3),a0
		move	y:(r4)+n4,x1
		move	a0,x:(r3)
		move	x1,y:(r4)+n4

		move	l:$12,ab
		move	$3456,y
		move	ab,l:$12
		move	y,$3456

		move	b,x:(r1)+ x0,b
		move	y0,b b,y:(r1)+

		move	x1,x:(r2)+ a,y:(r5)+n5
		move	x:(r2)+,x1 a,y:(r5)+n5
		move	x:(r2)+,x1 y:(r5)+n5,a

		move	x:(r5),x1    a,y1
		move	a,x:-(r1)    b,y0
		move	b,x:$1234    a,y0
		move	#$234567,x0  b,y1

		move	b,x1 y:(r6)-n6,b

		abs	a #$123456,x0 a,y0
		asl	a (r3)-
		asr	b x:-(r3),r3
		clr	a #$7f,n0
		lsl	b #$7f,r0
		lsr	a a1,n4
		neg	b x1,x:(r3)+ y:(r6)-,a
		not	a ab,l:(r2)+
		rnd	a #$123456,x1 b,y1
		rol	a #$314,n2
		ror	b #$1234,r2
		tst	a #$345678,b
		adc	y,b a10,l:$4
		sbc	y,b a10,l:$4
		add	x0,a a,x1 a,y:(r1)+
		cmp	y0,b x0,x:(r6)+n6 y1,y:(r0)-
		cmpm	x1,a ba,l:-(r4)
		sub	x1,a x:(r2)+n2,r0
		addl	a,b #$0,r0
		addr	b,a x0,x:(r1)+n1 y0,y:(r4)-
		subl	a,b y:(r5+n5),r7
		subr	b,a n5,y:-(r5)
		and	x0,a (r5)-n5
		eor	y1,b (r2)+
		or	y1,b ba,l:$1234
		mac	x0,x0,a x:(r2)+n2,y1
		macr	x0,y0,b y:(r4)+n4,y0
		mpy	-x1,y1,a #$543210,y0
		mpyr	-y0,y0,b (r3)-n3

		bchg	#$7,x:$ffe2
		bclr	#$e,x:$ffe4
		bset	#$0,x:$ffe5
		btst	#$1,x:$ffee
		bclr    #$4,y:$ffe0
		bclr	#$5,x:$0020
		bclr	#$6,y:$0012
		bclr	#$7,x:$1234
		bclr	#$8,y:(r3)+
		bclr	#$9,r5
		bclr    #$a,m6
		bclr	#$b,omr

		div	x1,b

		do	x:(r3),$1234
		do	y:(r5+n5),$2345
		do	x:$12,$3456
		do	y:$23,$4567
		do	#$123,$5678
		do	n7,$6789

		jclr	#$5,x:$fff1,$1234
		jsclr	#$1,y:$ffe3,$1357
		jset	#12,x:$fff2,$4321
		jsset	#$17,y:$3f,$100
		jclr	#21,x:(r5),$6789
		jclr	#22,ssh,$5678

		lua	(r0)+n0,r1

		movec	m0,m2
		movec	m4,r2
		movec	n5,ssl
		movec	#0,omr
		movec	#123456,ssh
		movec	x:$12,m2
		movec	m2,x:$12
		movec	y:$23,m2
		movec	m2,y:$23
		movec	x:(r4),m5
		movec	m5,y:(r4)
		movec	y:(r4),m5
		movec	m5,x:(r4)

		movem	m4,$12
		movem	$12,m4
		movem	$123,m4
		movem	m4,$123

		andi	#2,ccr
		ori	#5,omr

		norm	r5,a
		norm	r2,b

		rep	r4
		rep	#$987
		rep	x:$12
		rep	y:$23
		rep	x:(r3)
		rep	y:$12

		movep	x:(r3),x:$ffe0
		movep	y:(r3),x:$ffe1
		movep	#$123456,x:$ffe2
		movep	x:$ffe3,x:(r3)
		movep	x:$ffe4,y:(r3)
		movep	x:(r3),y:$ffe5
		movep	y:(r3),y:$ffe6
		movep	#$123456,y:$ffe7
		movep	y:$ffe8,x:(r3)
		movep	y:$ffe9,y:(r3)
		movep	p:(r3),x:$ffea
		movep	x:$ffeb,p:(r3)
		movep	p:(r3),y:$ffec
		movep	y:$ffed,p:(r3)
		movep	a1,x:$ffef
		movep	x:$fff0,r3
		movep	n5,y:$fff1
		movep	y:$fff2,m1

		tfr	a,b a,x1 y:(r4+n4),y0
		tfr	y0,a

		tgt	x0,a r0,r1
		tne	y1,a

		dc	"Hallo"
		dc	'123'
		dc	$123456
		dc	"Dies ist ein Test, Leute" 0

		segment	xdata

		org	$123
var1:   	ds	1

		segment	ydata

		org	$234
var2:		ds	1