.z80				; for M80, ignored by SLR assembler
	include z180reg.inc

	aseg
	org	0

	ld	bc,00*256+RCR
	xor	a
	out	(c),a
	out	(040H),a
				;Z80	Z180(0W) Z180(MaxW)
loop:				;--------------------------
	in	a,(050h)	;11       10     +3*3  19
	jp	loop		;10	   9	 +3*3  18
				;--------------------------
				;21       19           37

	end

; vim:set ts=8 noet nowrap