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