1 SECTION code_clib 2 3 INCLUDE "target/msx/def/msxdos2.def" 4 5 PUBLIC readbyte 6 PUBLIC _readbyte 7 8 EXTERN MSXDOS 9 EXTERN msxdos_error 10 11.readbyte 12._readbyte 13 ld b,h ;fd 14 ld hl,0 15 push hl 16 add hl,sp 17 ex de,hl 18 ld hl,1 19 ld c,_READ 20 call MSXDOS 21 ld (msxdos_error),a 22 pop hl 23 and a 24 ret z 25 ld hl,-1 26 ret 27