trs80m1: modify the hard disk helpers so they expected 4 byte calls

diff --git a/Kernel/platform-trs80m1/trs80.s b/Kernel/platform-trs80m1/trs80.s
index 93ecbcf..8f3d86e 100644 (file)
--- a/Kernel/platform-trs80m1/trs80.s
+++ b/Kernel/platform-trs80m1/trs80.s
@@ -139,8 +139,10 @@ outchar:
 ;
 _hd_xfer_in:
           pop de
+          pop bc
           pop hl
           push hl
+          push bc
           push de
           ld a, (_hd_page)
           or a
@@ -152,8 +154,10 @@ _hd_xfer_in:
 
 _hd_xfer_out:
           pop de
+          pop bc
           pop hl
           push hl
+          push bc
           push de
           ld a, (_hd_page)
           or a