\r
public intinit\r
- public bufinit\r
public cpu_frq\r
public get_tmr\r
\r
- public fifolst\r
-\r
extrn div32_r,?pmsg\r
extrn msg.sm,msg.recv,hwl2phy\r
\r
- include config.inc\r
- include z180reg.inc\r
+ maclib z180reg.inc\r
+ maclib config.inc\r
\r
\r
;----------------------------------------------------------------------\r
pop de\r
ret\r
\r
-;--------------------------------------------------------------------\r
-\r
- dseg\r
-\r
-fifolst:\r
- rept 4\r
- dw 0\r
- endm\r
-\r
-;--------------------------------------------------------------------\r
-\r
- dseg\r
-\r
-bufinit:\r
- ld (ix+o.in_idx),0 ;reset pointers (empty fifo)\r
- ld (ix+o.out_idx),0\r
- ld a,(ix+o.id)\r
- ld hl,fifolst\r
- ld e,a\r
- ld d,0\r
- add hl,de\r
- add hl,de\r
- push ix\r
- pop de\r
- cp 4\r
- jr nc,bfi_skip\r
-\r
- ld (hl),e\r
- inc hl\r
- ld (hl),d\r
-\r
-bfi_skip:\r
- ex de,hl\r
- call hwl2phy ;get phys. address of fifo\r
- ld c,a\r
- ld a,(ix+o.id) ;fifo id\r
- or a ;test if fifo 0\r
- ret z\r
-\r
- ld b,a\r
- push bc ;c: bank-addr, b: ignored\r
- push hl ;address\r
- ld c,0\r
- push bc ;c: function, b:subf\r
- ld b,5\r
- ld h,c\r
- ld l,c\r
- add hl,sp\r
- call msg.sm\r
- pop hl\r
- pop hl\r
- pop hl\r
- ret\r
-\r
;----------------------------------------------------------------------\r
\r
-\r
end\r