* ZSDOS clock driver updated.

git-svn-id: svn://cu.loc/avr-cpm/avrcpm/trunk@198 57430480-672e-4586-8877-bcf8adbbf3b7

diff --git a/cpm/BIOS.MAC b/cpm/BIOS.MAC
index a260ec85b6f9d976c6256026e595182ada085c67..813e813d4b45fc4006164934d3ef2d21e5f7c4d8 100644 (file)
--- a/cpm/BIOS.MAC
+++ b/cpm/BIOS.MAC
@@ -436,26 +436,34 @@ clock:
        inc     c\r
        ret     nz\r
 \r
-clk_read:\r
-       ex      de,hl\r
-       ld      bc,5*256 + CLOCKPORT-1\r
-clkg_l:\r
-       inc     c\r
-       ini\r
-       jr      nz,clkg_l\r
+clk_get:\r
+       ld      hl,5\r
+       add     hl,de\r
+       push    hl\r
+       ld      bc,6*256 + CLOCKPORT-1\r
        ld      e,(hl)\r
-       in      a,(CLOCKPORT+5)\r
-       ld      (hl),a\r
+clk_gl:\r
+       inc     c\r
+       ind\r
+       jr      nz,clk_gl\r
+       pop     hl\r
        jr      clk_e\r
 \r
+\r
 clk_set:\r
-       ld      hl,5\r
-       add     hl,de\r
+       ld      a,(hl)\r
+       cp      78h\r
+       ld      a,19h\r
+       jr      nc,clk_s1\r
+       ld      a,20h\r
+clk_s1:\r
+       out     (CLOCKPORT+6),a\r
        ld      bc,6*256 + CLOCKPORT+6\r
-clks_l:\r
+clk_sl:\r
        dec     c\r
-       outd\r
-       jr      nz,clks_l\r
+       outi\r
+       jr      nz,clk_sl\r
+       dec     hl\r
 clk_e:\r
        ld      a,1\r
        ret\r