-;-------------------------------------------------------------------------------\r
-; Read internal register at address in L and IOBASE in H.\r
-;\r
-\r
-reg_in:\r
- ld a,h\r
- add a,l\r
- ld c,a\r
- ld b,0\r
- in a,(c)\r
- ret\r
-\r
-;-------------------------------------------------------------------------------\r
-; Write internal register at address in L and IOBASE in H.\r
-;\r
-\r
-reg_out:\r
- ld b,a\r
- ld a,h\r
- add a,l\r
- ld c,a\r
- ld a,b\r
- ld b,0\r
- out (c),a\r
- ret\r
-\r