[z180-stamp.git] / z180 / freqloop.180

	.z80				; for M80, ignored by SLR assembler\r
	include z180reg.inc\r
\r
	aseg\r
	org	0\r
\r
	ld	bc,00*256+RCR\r
	xor	a\r
	out	(c),a\r
	out	(040H),a\r
				;Z80	Z180(0W) Z180(MaxW)\r
loop:				;--------------------------\r
	in	a,(050h)	;11       10     +3*3  19\r
	jp	loop		;10	   9	 +3*3  18\r
				;--------------------------\r
				;21       19           37\r
\r
	end\r
\r
; vim:set ts=8 noet nowrap\r
Commit	Line	Data
f6154a39 L	1	.z80 ; for M80, ignored by SLR assembler\r
	2	include z180reg.inc\r
	3	\r
	4	aseg\r
	5	org 0\r
	6	\r
	7	ld bc,00*256+RCR\r
	8	xor a\r
	9	out (c),a\r
	10	out (040H),a\r
	11	;Z80 Z180(0W) Z180(MaxW)\r
	12	loop: ;--------------------------\r
	13	in a,(050h) ;11 10 +3*3 19\r
	14	jp loop ;10 9 +3*3 18\r
	15	;--------------------------\r
	16	;21 19 37\r
	17	\r
	18	end\r
	19	\r
	20	; vim:set ts=8 noet nowrap\r