;
; z80 assembler test instruction file
;
;
	org	100h		; test org pseudo op
;
;
label1	equ	$		; test equ pseudo op
;
	defw	label1		; test defw pseudo op
	defb	03fh		; test defb pseudo op form 1
	defb	'this is a test' ; test defb pseudo op form 2
	defs	55		; test defs pseudo op
;
; the next three lines use the ibm pseudo which was added to facilitate
; screen formatting.
;
; the format is:  ibm hex,ascii,hex,ascii,... with no quotes around the
; ascii
;
; if the user whishes to use ascii first then the first byte must begin
; with a quote.
;
; the hex numbers must be in pairs and must not have 'h' after them the
; ascii strings can include any characters (including quotes and semi-
; colons except no commas
;
;
;
	ibm	1a0000,top of screen on	lear seigler adm3,0d0a0d0a,down	3 lines
	ibm	0fad,ascii coding,0fe4,screen formatting
	ibm	'ASCII FIRST,0DFF,THEN HEX
;
	ld	a,b		; test load
	ld	a,0ffh
	ld	a,(hl)
	ld	a,(ix+5)
	ld	a,(iy+6)
	ld	(hl),b
	ld	(ix+5),b
	ld	(iy+5),b
	ld	(hl),23
	ld	(ix+1),24
	ld	(iy+1),25
	ld	(bc),a
	ld	(de),a
	ld	(label1),a
	ld	a,(bc)
	ld	a,(de)
	ld	a,(label1)
	ld	a,i
	ld	a,r
	ld	i,a
	ld	r,a
	ld	bc,label1
	ld	de,label1
	ld	hl,label1
	ld	sp,label1
	ld	ix,label1
	ld	iy,label1
	ld	hl,(label1)
	ld	ix,(label1)
	ld	iy,(label1)
	ld	(label1),hl
	ld	(label1),bc
	ld	(label1),de
	ld	(label1),ix
	ld	(label1),iy
	ld	sp,hl
	ld	sp,ix
	ld	sp,iy
	push	bc
	push	de
	push	hl
	push	af
	push	ix
	push	iy
	pop	bc
	pop	de
	pop	hl
	pop	ix
	pop	iy
	pop	af
	ex	de,hl
	ex	af,af'
	exx
	ex	(sp),hl
	ex	(sp),ix
	ex	(sp),iy
	ldi
	ldir
	ldd
	lddr
	cpi
	cpir
	cpd
	cpdr
	add	a
	add	0ffh
	add	(hl)
	add	(ix+5)
	add	(iy+6)
	adc	a
	sub	a
	sbc	a
	and	a
	or	a
	xor	a
	cp	a
	inc	a
	inc	(hl)
	inc	(ix+3)
	inc	(iy+5)
	dec	(hl)
	daa
	cpl
	neg
	ccf
	scf
	nop
	halt
	di
	ei
	im0
	im1
	im2
	add	hl,bc
	adc	hl,de
	sbc	hl,de
	add	ix,bc
	add	iy,de
	inc	ix
	inc	iy
	dec	ix
	dec	iy
	rlca
	rla
	rrca
	rra
	rlc	b
	rlc	(hl)
	rlc	(ix+5)
	rlc	(iy+4)
	rl	b
	rrc	b
	rr	b
	sla	b
	sra	b
	srl	b
	rld
	rrd
	bit	5,e
	bit	5,(hl)
	bit	5,(ix+5)
	bit	5,(iy+4)
	set	4,b
	set	4,(hl)
	set	4,(ix+5)
	set	4,(iy+4)
	res	4,e
	res	4,(hl)
	jp	label1
	jp	nz,label1
	jp	c,label1
	jr	+6
	jr	c,5
	jr	nc,5
	jr	z,5
	jr	nz,5
	jp	(hl)
	jp	(ix)
	jp	(iy)
	djnz	5
	call	label1
	call	nz,label1
	ret
	ret	nz
	reti
	retn
	rst	38h
	in	a,(03h)
	in	b,(c)
	ini
	inir
	ind
	indr
	out	(034h),a
	out	(c),e
	outi
	otir
	outd
	otdr
;
	end	$
