2 ; Ullrich von Bassewitz, 17.11.2002
4 ; Common stuff for the read/write routines
10 .importzp ptr1, ptr2, ptr3, tmp2
13 .include "filedes.inc"
16 ;--------------------------------------------------------------------------
17 ; rwcommon: Pop the parameters from stack, preprocess them and place them
18 ; into zero page locations. Return carry set if the handle is invalid,
19 ; return carry clear if it is ok. If the carry is clear, the handle is
28 sta ptr2+1 ; Remember -count-1
30 jsr popptr1 ; Get buf to ptr1, Y=0 by call
33 sty ptr3+1 ; Clear ptr3
35 jsr popax ; Get the handle
38 cmp #MAX_FDS ; Set carry if fd too large
40 @L9: rts ; Return with result in carry