extrn .nilchk, .xltusr, .bfinit, .fopnr ; ; initialize buffer hl^, size bc, attached file de^, user a ; for buffered file reads. ; a,f .bfropen:: call .nilchk ! rc call .xltusr push h mov h,a; save user xthl call .bfinit; initialize buffer xthl mov a,h pop h jmp .fopnr