RosettaCodeData/Task/Hello-world-Text/Z80-Assembly/hello-world-text.z80

org		$4000

txt_output:	equ	$bb5a

		push	hl
		ld	hl,world

print:		ld	a,(hl)
		cp	0
		jr	z,end
		call	txt_output
		inc	hl
		jr	print

end:		pop	hl
		ret

world:		defm	"Hello world!\r\n\0"
langs a-z 2013-04-10 22:43:41 -07:00			`org $4000`

			`txt_output: equ $bb5a`

			`push hl`
			`ld hl,world`

			`print: ld a,(hl)`
			`cp 0`
			`jr z,end`
			`call txt_output`
			`inc hl`
			`jr print`

			`end: pop hl`
			`ret`

Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`world: defm "Hello world!\r\n\0"`