Mine

;	name	Pr6
	org	0
Pr6a:
	mov	R0, #8
	mov	R1, #1h
	mov	R2, #16

uloz:
	mov	@R0, 1
	inc	R0
	inc	R1
	djnz	R2, uloz

Pr6b:
	mov	R0, #8h
	mov	R1, #18h
	mov	R2, #16
	
prenes:
	mov	a, @R0
	mov	@R0, #0
	mov	@R1, a
	inc	R0
	inc	R1
	djnz	R2, prenes
		
	nop
	end