title	test z80.lib macro extensions

fcbfn	equ	fcb+1
label:	db	3fh

labela	set	30	; V 1.3
labela	dl	25	; V 1.3

LABELS:	LXIX	0040H
	Lxiy	005ch

LABELX::LDX	A,RTCEN
LABELY:: LDX	A,RTCEN
LABELZ::	LDX	A,RTCEN
	ldy	a,fcbfn

.comment ~
This is an example of the M80 comment directive.
It should allow comments of this type to be inserted anywhere
in the source code and to be terminated by ~

	ldai ! ldar ! stai ! star

	mvix	20h,rtcen
	
	ldai
	ldar
	stai
	star

	bit	7,a
	bit	7,B
	setb	7,a
	res	7,b

	bitx	7,rtclk
	bity	7,rtcyr
	setx	7,fcbfn
	resx	7,fcbfn

	IN	5	; V 1.3
	in	port
	inp	d
	INP	D	; V 1.3
	out	5
	out	port
	outp	e	; V 1.3
	OUTP	D	; V 1.3

	rlcr	a
	ralr	b
	rrcr	c
	rarr	d
	slar	e
	srar	h
	srlr	h

	inxix
	dcxix
	pushix
	pushiy
	popix
	popiy

	pcix
	pciy		; V 1.3
	PCIX		; V 1.3

	EXAF
	exaf		; V 1.3

	XTIX		; V 1.3
	xtiy		; V 1.3

	dadc	d
	dadc	b
	dsbc	b
	dsbc	d
	
	lbcd	work
	lded	work
	lspd	work

	sbcd	work		
	sded	work
	sixd	work
	siyd	work

	jr	label
	jmpr	label	; V 1.3
	jrc	label
	jrnc	label
	jrz	label
	jrnz	label
	djnz	label

	addx	rtcsec
	addy	rtcsec
	adcx	rtcsec
	adcy	rtcsec
	subx	rtcsec
	sbcx	rtcsec
	andx	rtcsec
	xorx	rtcsec
	orx	rtcsec
	cmpx	rtcsec
	inrx	rtcsec
	dcrx	rtcsec
	rlcx	rtcyr

	cci
	ccir
	ccd
	ccdr
	neg
	im0
	IM1
	IM2
	ini
	inir
	ind
	indr
	ldi
	ldir
	ldd
	lddr	
	outi
	outir
	outd
	outdr
	reti
	retn
	rld
	rrd

work:	dw	0000
	end