cpu	Z80	
	org	0800h	
;
	in	a,(10h)
	and	1fh
	cp	11h
	jp	z,X080c
	jp	X0845
;
	in	a,(10h)
	and	1fh
	cp	11h
	jp	z,X080c
	ld	l,a
	ld	h,19h
	inc	(hl)
	ld	a,(hl)
	and	1
	ld	(hl),a
	ld	b,10h
	ld	l,0fh
	ld	a,0
	or	(hl)
	dec	b
	ld	d,a
	ld	a,b
	cp	8
	jp	nz,X082d
	ld	e,d
	cp	0
	jp	z,X0838
	ld	a,d
	dec	l
	rla
	jp	X0823
;
	ld	a,d
	out	(15h),a
	out	(5),a
	ld	a,e
	out	(14h),a
	out	(4),a
	jp	X0800
;
	in	a,(10h)
	and	1fh
	cp	13h
	jp	z,X0851
	jp	X0800
;
	in	a,(10h)
	and	1fh
	cp	13h
	jp	z,X0851
	ld	d,a
	ld	a,0ffh
	out	(0fh),a
	ld	a,0
	out	(0fh),a
	ld	a,d
	out	(0dh),a
	out	(9),a
	ld	a,0
	out	(8),a
	jp	X0800
;
;	miscellaneous equates
;
;  these are addresses referenced in the code but
;  which are in the middle of a multibyte instruction
;  or are addresses outside the initialized space
;
X0800	equ	800h
X080c	equ	80ch
X0823	equ	823h
X082d	equ	82dh
X0838	equ	838h
X0845	equ	845h
X0851	equ	851h
;
	end
;