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 ptr1+1 ; Remember -count-1
36 sta ptr3+1 ; Clear ptr3
38 jsr popax ; Get the handle
44 rts ; Return with carry clear
51 rts ; Return with carry set