call prt0_init\r
\r
\r
- call bufferinit\r
+;;; call bufferinit\r
\r
\r
call $coninit\r
;----------------------------------------------------------------------\r
;\r
\r
- extrn msginit,msg.sout,msg_fifo\r
- extrn tx.buf,rx.buf\r
-\r
-\r
;TODO: Make a ringbuffer module.\r
\r
global buf.init\r
\r
;----------------------------------------------------------------------\r
\r
+.comment *\r
+\r
+ extrn msginit,msg.sout,msg_fifo\r
+ extrn tx.buf,rx.buf\r
+\r
+\r
bufferinit:\r
call msginit\r
\r
db 0\r
inimsg_e:\r
\r
+ *\r
+\r
;\r
;----------------------------------------------------------------------\r
;\r
djnz ivt_i1\r
ret\r
\r
+;----------------------------------------------------------------------\r
\r
prt0_init:\r
ld a,i\r
db M_TIE0+M_TDE0 ;enable timer 0 interrupt and down count.\r
prt0it_e:\r
\r
+\r
;\r
;----------------------------------------------------------------------\r
;\r
pop hl ;041e\r
ret ;041f\r
\r
+;----------------------------------------------------------------------\r
+\r
;\r
; alloc\r
;\r
;\r
; OP: ahl = (a<<12) + (d<<8) + e\r
;\r
-;out ehl: Phys. (linear) Address\r
+;out ahl: Phys. (linear) Address\r
\r
\r
log2phys:\r
\r
; ---------------------------------------------------------\r
\r
+\r
iprt0:\r
push af\r
push hl\r