b0call --> b0hlcall

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

diff --git a/cbios/bioskrnl.180 b/cbios/bioskrnl.180
index 794e0ff4f1f191c0ccd5825233a4c0568ecae7c1..989b53c9a487c587375ddc91fbdc7ba24aef4302 100644 (file)
--- a/cbios/bioskrnl.180
+++ b/cbios/bioskrnl.180
@@ -2,8 +2,8 @@
 \r
        ; version 1.0 15 Sept 82\r
 \r
-       include config.inc\r
-       include z180reg.inc\r
+       maclib z180reg.inc\r
+       maclib config.inc\r
 \r
 \r
 ;                Copyright (C), 1982\r
@@ -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
@@ -454,10 +455,6 @@ bnksel:
        ;               in <HL>\r
 \r
 seldsk:\r
-       b0call  _seldsk\r
-       ret\r
-\r
-_seldsk:\r
        ld      a,c             ; save drive select code\r
        ld      (@adrv),a\r
        xor     a\r
@@ -482,13 +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
-       call    ijphl           ; call LOGIN\r
+       call    _b0hlcall\r
+\r
 notfirst:\r
        ld      hl,(@xdph)      ; recover DPH pointer\r
        ret\r
@@ -566,17 +565,14 @@ sectrn:
        ;               extended disk parameter header (XDPH).\r
 \r
 read:\r
-       b0call  _read\r
-       ret\r
-\r
-_read:\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
-       jp      (hl)\r
 \r
+       call    _b0hlcall\r
+       ret\r
 \r
        ; WRITE\r
        ;       Write physical sector from currently selected drive.\r
@@ -584,16 +580,14 @@ _read:
        ;               extended disk parameter header (XDPH).\r
 \r
 write:\r
-       b0call  _write\r
-       ret\r
-\r
-_write:\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
-       jp      (hl)\r
+\r
+       call    _b0hlcall\r
+       ret\r
 \r
 \r
 \r