* This code is experimental and may destroy data on disk images!

[avrcpm.git] / avrcpm / avr / dsk_cpm.asm

diff --git a/avrcpm/avr/dsk_cpm.asm b/avrcpm/avr/dsk_cpm.asm
index 599373a4c4d060d68da1e75c732077499f4e2ccc..e154e4bcc851cca5b82caddfbaa43a821c4fe3f8 100644 (file)
--- 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