Server: Time and Date support

[z180-stamp.git] / z180 / init.180

diff --git a/z180/init.180 b/z180/init.180
index b1f835b19672f42b426910ed520a2d2915b802c5..d56975e7ae3b5021dec463d303853361961ae7e6 100644 (file)
--- a/z180/init.180
+++ b/z180/init.180
@@ -79,6 +79,7 @@ hwini0:
        db      3               ;count\r
        db      rcr,CREFSH      ;configure DRAM refresh\r
        db      dcntl,INIWAITS  ;wait states\r
+       db      cbr,SYS$CBR\r
        db      cbar,SYS$CBAR\r
     endif\r
        db     0\r
@@ -151,10 +152,10 @@ hw_reset:
 \r
 kstart:\r
     if CPU_Z180\r
-       ld      a,SYS$CBAR\r
-       out0    (cbar),a\r
        ld      a,SYS$CBR\r
        out0    (cbr),a\r
+       ld      a,SYS$CBAR\r
+       out0    (cbar),a\r
     endif\r
 \r
        ld      sp,$stack       ;01e1\r
@@ -220,7 +221,7 @@ wstart:
 \r
     if CPU_Z180\r
 ; TODO: SYS$CBR\r
-syscbr:        db      1\r
+syscbr:        db      0\r
     endif\r
 \r
 ;\r
@@ -360,9 +361,9 @@ buffers:
        db      1\r
        dw      mrx.fifo\r
        db      2\r
-       dw      co.fifo\r
-       db      3\r
        dw      ci.fifo\r
+       db      3\r
+       dw      co.fifo\r
 buftablen equ  ($ - buffers)/3\r
 \r
 inimsg:\r
@@ -415,6 +416,12 @@ ivt_i1:
 \r
 ;----------------------------------------------------------------------\r
 \r
+; Reload value for 10 ms Int. (0.1KHz):\r
+; tc10ms = phi/prescale/0.1KHz  = phi / (prescale/10)\r
+\r
+PRT_TC10MS     equ     18432 / (PRT_PRE/10)\r
+\r
+\r
     if CPU_Z180\r
 prt0_init:\r
        ld      a,i\r