+ ld de,msg_tx_fifo\r
+ in0 a,cbr\r
+ call log2phys\r
+ ld (40h+0),hl\r
+ ld (40h+2),a\r
+\r
+; ld (bufdat+1),hl\r
+; ld (bufdat+3),a\r
+; ld a,1\r
+; ld (bufdat+0),a\r
+; ld hl,inimsg\r
+; call msg.sout\r
+\r
+ ld de,msg_rx_fifo\r
+ in0 a,cbr\r
+ call log2phys\r
+ ld (bufdat+1),hl\r
+ ld (bufdat+3),a\r
+ ld a,2\r
+ ld (bufdat+0),a\r
+ ld hl,inimsg\r
+ call msg.sout\r
+\r
+ ret\r
+\r
+inimsg:\r
+ db inimsg_e - $ - 1\r
+ db 0AEh\r
+ db inimsg_e - $ - 1\r
+ db 0\r
+bufdat:\r
+ db 0\r
+ dw 0\r
+ db 0\r
+inimsg_e:\r
+\r
+endif\r
+;----------------------------------------------------------------------\r
+;\r
+\r
+ extrn msginit,msg.sout\r
+ extrn mtx.fifo,mrx.fifo\r
+ extrn co.fifo,ci.fifo\r