2 ; Ullrich von Bassewitz, 30.05.1998
4 ; int read (int fd, void* buf, int count);
11 .importzp ptr1, ptr2, ptr3
13 .include "../cbm/cbm.inc"
15 _read: jsr popax ; get count
17 stx ptr2+1 ; save it for later
21 jsr popax ; get fd and discard it
24 sta ptr3+1 ; set count
27 ora ptr2+1 ; count zero?
34 sta (ptr1),y ; save char
38 L2: inc ptr3 ; increment count
44 ; Done, return the count