; test of CODE in M2

	dw	end-start	; indicate the size of the file to TM2

start:
	jr	rstart		; HL has (START)
	DB	'CODETEST: demo of absolute data addressing$'
rstart:
	inc	hl
	inc	hl		; bypass JR
	ex	de,hl
	ld	hl,(6)		; get BDOS
	ld	c,9		; print string service
	jp	(hl)		; let BDOS supply RET

end:	end