X-Git-Url: http://cloudbase.mooo.com/gitweb/avrcpm.git/blobdiff_plain/a17b9bbb1d4482a476629d3efdd20dc3ab01bc77..dd7aea8cf3e0f67cce1a9a2999404bfb5d05ffc5:/avrcpm/avr/dsk_cpm.asm

diff --git a/avrcpm/avr/dsk_cpm.asm b/avrcpm/avr/dsk_cpm.asm
index 599373a..e154e4b 100644
--- a/avrcpm/avr/dsk_cpm.asm
+++ b/avrcpm/avr/dsk_cpm.asm
@@ -47,12 +47,12 @@
 ; ====================================================================	
 
 cpm_hostparam:
-	lds	xl,hostdsk
+	lds	zl,hostdsk
 
 .if HOSTRW_DEBUG
-	mov     temp,xl
+	mov     temp,zl
 	subi	temp,-('A')
-	rcall	uartputc
+	lcall	uartputc
 	printstring ": "
 .endif
 
@@ -65,7 +65,7 @@ cpm_hostparam:
 .if HOSTRW_DEBUG
 	printstring "lba: "
 	clr	temp4
-	rcall	print_ultoa
+	lcall	print_ultoa
 .endif
 
 	ldd	xl,z+5			; get disksize