b0call --> b0hlcall

[z180-stamp-cpm3.git] / cbios / bioskrnl.180

diff --git a/cbios/bioskrnl.180 b/cbios/bioskrnl.180
index 0610b31207fde06760d2fa050d131d547d475e3d..989b53c9a487c587375ddc91fbdc7ba24aef4302 100644 (file)
--- a/cbios/bioskrnl.180
+++ b/cbios/bioskrnl.180
@@ -79,7 +79,7 @@ ccp   equ     0100h           ; Console Command Processor gets loaded
        public ?mltio,?flush,?mov,?tim,?bnksl,?stbnk,?xmov\r
 \r
        extrn bs$stack\r
-       extrn _b0call\r
+       extrn _b0hlcall\r
 \r
 \r
     ; BIOS Jump vector.\r
@@ -131,7 +131,7 @@ ccp equ     0100h           ; Console Command Processor gets loaded
 ?ioctl jp      ioctl           ;\r
 \r
 \r
-       rept    48\r
+       rept    32\r
         db     '|'\r
        endm\r
 boot$stack:\r
@@ -147,7 +147,7 @@ boot:
        out0    (cbr),a\r
        ld      a,USR$CBAR\r
        out0    (cbar),a\r
-       ld      sp,boot$stack\r
+       ld      sp,bs$stack\r
 \r
        call    hwinit          ; first time hardware initialisation\r
 \r
@@ -191,6 +191,7 @@ d$init$next:
        cseg    ; following in resident memory\r
 \r
 boot$1:\r
+       ld      sp,boot$stack\r
        call    set$jumps\r
        call    ?ldccp          ; fetch CCP for first time\r
        jp      ccp\r
@@ -478,16 +479,15 @@ seldsk:
        ld      a,(hl)\r
        ld      (@RDRV),a\r
        jr      nz,notfirst     ; examine login bit\r
-       ld      hl,-6\r
+\r
+       ld      hl,-6           ; call LOGIN\r
        add     hl,de\r
        ld      a,(hl)\r
        inc     hl\r
        ld      h,(hl)\r
        ld      l,a\r
-       ld      (bs$stack),sp\r
-       ld      sp,bs$stack\r
-       call    ijphl           ; call LOGIN\r
-       ld      sp,(bs$stack)\r
+       call    _b0hlcall\r
+\r
 notfirst:\r
        ld      hl,(@xdph)      ; recover DPH pointer\r
        ret\r
@@ -565,15 +565,13 @@ sectrn:
        ;               extended disk parameter header (XDPH).\r
 \r
 read:\r
-       ld      (bs$stack),sp\r
-       ld      sp,bs$stack\r
        ld      a,1\r
        ld      (@op),a\r
        ld      ix,(@xdph)      ; get drive descriptor pointer\r
        ld      l,(ix-8)        ; get read routine entry\r
        ld      h,(ix-7)\r
-       call    ijphl           ; call LOGIN\r
-       ld      sp,(bs$stack)\r
+\r
+       call    _b0hlcall\r
        ret\r
 \r
        ; WRITE\r
@@ -582,15 +580,13 @@ read:
        ;               extended disk parameter header (XDPH).\r
 \r
 write:\r
-       ld      (bs$stack),sp\r
-       ld      sp,bs$stack\r
        ld      a,2\r
        ld      (@op),a\r
        ld      ix,(@xdph)      ; get drive descriptor pointer\r
        ld      l,(ix-10)       ; get write routine entry\r
        ld      h,(ix- 9)\r
-       call    ijphl           ; call LOGIN\r
-       ld      sp,(bs$stack)\r
+\r
+       call    _b0hlcall\r
        ret\r
 \r
 \r