[deliverable/binutils-gdb.git] / gas / testsuite / gas / z80 / sdcc.s

        .module longpolls
        .optsdcc -mz80

valueadr = 0x1234

	.globl	function
	.globl	_start
	.globl	_finish

	.area	_DABS (ABS)
	.area	_HOME
	.area	_CODE
_start::
;comment
	ld      hl, #4+0
00000$:
	adc	a, a
	adc	a, b
	adc	a, c
	adc	a, d
	adc	a, e
	adc	a, h
	adc	a, l
	adc	a, ixh
	adc	a, ixl
	adc	a, iyh
	adc	a, iyl
	adc	a, #0xa5
	adc	a, (hl)
	adc	a, 5 (ix)
	adc	a, -2 (iy)
00100$:
	add	a, a
	add	a, b
	add	a, c
	add	a, d
	add	a, e
	add	a, h
	add	a, l
	add	a, ixh
	add	a, ixl
	add	a, iyh
	add	a, iyl
	add	a, #0xa5
	add	a, (hl)
	add	a, 5 (ix)
	add	a, -2 (iy)
00200$:
	and	a, a
	and	a, b
	and	a, c
	and	a, d
	and	a, e
	and	a, h
	and	a, l
	and	a, ixh
	and	a, ixl
	and	a, iyh
	and	a, iyl
	and	a, #0xa5
	and	a, (hl)
	and	a, 5 (ix)
	and	a, -2 (iy)
00300$:
	cp	a, a
	cp	a, b
	cp	a, c
	cp	a, d
	cp	a, e
	cp	a, h
	cp	a, l
	cp	a, ixh
	cp	a, ixl
	cp	a, iyh
	cp	a, iyl
	cp	a, #0xa5
	cp	a, (hl)
	cp	a, 5 (ix)
	cp	a, -2 (iy)
00400$:
	or	a, a
	or	a, b
	or	a, c
	or	a, d
	or	a, e
	or	a, h
	or	a, l
	or	a, ixh
	or	a, ixl
	or	a, iyh
	or	a, iyl
	or	a, #0xa5
	or	a, (hl)
	or	a, 5 (ix)
	or	a, -2 (iy)
00500$:
	sbc	a, a
	sbc	a, b
	sbc	a, c
	sbc	a, d
	sbc	a, e
	sbc	a, h
	sbc	a, l
	sbc	a, ixh
	sbc	a, ixl
	sbc	a, iyh
	sbc	a, iyl
	sbc	a, #0xa5
	sbc	a, (hl)
	sbc	a, 5 (ix)
	sbc	a, -2 (iy)
00600$:
	sub	a, a
	sub	a, b
	sub	a, c
	sub	a, d
	sub	a, e
	sub	a, h
	sub	a, l
	sub	a, ixh
	sub	a, ixl
	sub	a, iyh
	sub	a, iyl
	sub	a, #0xa5
	sub	a, (hl)
	sub	a, 5 (ix)
	sub	a, -2 (iy)
00700$:
	xor	a, a
	xor	a, b
	xor	a, c
	xor	a, d
	xor	a, e
	xor	a, h
	xor	a, l
	xor	a, ixh
	xor	a, ixl
	xor	a, iyh
	xor	a, iyl
	xor	a, #0xa5
	xor	a, (hl)
	xor	a, 5 (ix)
	xor	a, -2 (iy)

	jp	0$
	jp	100$
	jp	200$
	jp	300$
	jp	500$
	jp	600$
	jp	700$
_func:
	ld	hl,0
	ld	(hl),#<function
00100$:
	inc	hl
	ld	(hl),#>function
00600$:
	jr	100$
_finish::
	ld	a, 2 (iy)
	ld	-1 (ix), a
	ld	a, (#valueadr+#0)
	ret
	.dw	#0x1f27
	.db	#0x2f
	.end
Commit	Line	Data
6655dba2 SB	1	.module longpolls
	2	.optsdcc -mz80
	3
	4	valueadr = 0x1234
	5
	6	.globl function
	7	.globl _start
	8	.globl _finish
	9
	10	.area _DABS (ABS)
	11	.area _HOME
	12	.area _CODE
	13	_start::
	14	;comment
	15	ld hl, #4+0
	16	00000$:
	17	adc a, a
	18	adc a, b
	19	adc a, c
	20	adc a, d
	21	adc a, e
	22	adc a, h
	23	adc a, l
	24	adc a, ixh
	25	adc a, ixl
	26	adc a, iyh
	27	adc a, iyl
	28	adc a, #0xa5
	29	adc a, (hl)
	30	adc a, 5 (ix)
	31	adc a, -2 (iy)
	32	00100$:
	33	add a, a
	34	add a, b
	35	add a, c
	36	add a, d
	37	add a, e
	38	add a, h
	39	add a, l
	40	add a, ixh
	41	add a, ixl
	42	add a, iyh
	43	add a, iyl
	44	add a, #0xa5
	45	add a, (hl)
	46	add a, 5 (ix)
	47	add a, -2 (iy)
	48	00200$:
	49	and a, a
	50	and a, b
	51	and a, c
	52	and a, d
	53	and a, e
	54	and a, h
	55	and a, l
	56	and a, ixh
	57	and a, ixl
	58	and a, iyh
	59	and a, iyl
	60	and a, #0xa5
	61	and a, (hl)
	62	and a, 5 (ix)
	63	and a, -2 (iy)
	64	00300$:
65	cp a, a
66	cp a, b
67	cp a, c
68	cp a, d
69	cp a, e
70	cp a, h
71	cp a, l
72	cp a, ixh
73	cp a, ixl
74	cp a, iyh
75	cp a, iyl
76	cp a, #0xa5
77	cp a, (hl)
78	cp a, 5 (ix)
79	cp a, -2 (iy)
80	00400$:
81	or a, a
82	or a, b
83	or a, c
84	or a, d
85	or a, e
86	or a, h
87	or a, l
88	or a, ixh
89	or a, ixl
90	or a, iyh
91	or a, iyl
92	or a, #0xa5
93	or a, (hl)
94	or a, 5 (ix)
95	or a, -2 (iy)
96	00500$:
97	sbc a, a
98	sbc a, b
99	sbc a, c
100	sbc a, d
101	sbc a, e
102	sbc a, h
103	sbc a, l
104	sbc a, ixh
105	sbc a, ixl
106	sbc a, iyh
107	sbc a, iyl
108	sbc a, #0xa5
109	sbc a, (hl)
110	sbc a, 5 (ix)
111	sbc a, -2 (iy)
112	00600$:
113	sub a, a
114	sub a, b
115	sub a, c
116	sub a, d
117	sub a, e
118	sub a, h
119	sub a, l
120	sub a, ixh
121	sub a, ixl
122	sub a, iyh
123	sub a, iyl
124	sub a, #0xa5
125	sub a, (hl)
126	sub a, 5 (ix)
127	sub a, -2 (iy)
128	00700$:
129	xor a, a
130	xor a, b
131	xor a, c
132	xor a, d
133	xor a, e
134	xor a, h
135	xor a, l
136	xor a, ixh
137	xor a, ixl
138	xor a, iyh
139	xor a, iyl
140	xor a, #0xa5
141	xor a, (hl)
142	xor a, 5 (ix)
143	xor a, -2 (iy)
144
145	jp 0$
146	jp 100$
147	jp 200$
148	jp 300$
149	jp 500$
150	jp 600$
151	jp 700$
fcaaac0a	152	_func:
6655dba2 SB	153	ld hl,0
	154	ld (hl),#<function
	155	00100$:
	156	inc hl
	157	ld (hl),#>function
	158	00600$:
	159	jr 100$
	160	_finish::
	161	ld a, 2 (iy)
	162	ld -1 (ix), a
	163	ld a, (#valueadr+#0)
	164	ret
	165	.dw #0x1f27
	166	.db #0x2f
	167	.end