Finally: Commodore file I/O

git-svn-id: svn://svn.cc65.org/cc65/trunk@1531 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/vic20/Makefile

@@ -21,8 +21,7 @@ OBJS =	_scrsize.o	\
 	cputc.o		\
 	kbhit.o		\
         randomize.o     \
-	readjoy.o      	\
-	write.o
+	readjoy.o      	
 
 all:	$(OBJS)
 

libsrc/vic20/read.s

@@ -1,51 +0,0 @@
-;
-; Ullrich von Bassewitz, 30.05.1998
-;
-; int read (int fd, void* buf, int count);
-;
-; THIS IS A HACK!
-;
-
-   	.export	      	_read
-	.import	      	popax
-	.importzp     	ptr1, ptr2, ptr3
-
-	.include       	"../cbm/cbm.inc"
-
-_read:	jsr	popax 		; get count
-     	sta	ptr2
-     	stx	ptr2+1		; save it for later
-     	jsr	popax 		; get buf
-     	sta	ptr1
-     	stx	ptr1+1
-     	jsr	popax 		; get fd and discard it
-   	lda	#0
-   	sta	ptr3
-   	sta	ptr3+1		; set count
-
-L1:    	lda	ptr2
-   	ora	ptr2+1		; count zero?
-   	beq	L9
-	dec	ptr2
-	bne	L1a
-	dec	ptr2+1
-L1a:   	jsr	BASIN
-   	ldy	#0
-   	sta	(ptr1),y	; save char
-   	inc	ptr1
-   	bne	L2
-   	inc	ptr1+1
-L2:    	inc    	ptr3  		; increment count
-	bne	L3
-	inc	ptr3+1
-L3:	cmp	#$0D 		; CR?
-	bne    	L1
-
-; Done, return the count
-
-L9:     lda	ptr3
-      	ldx	ptr3+1
-      	rts
-
-
-

libsrc/vic20/write.s

@@ -1,47 +0,0 @@
-;
-; Ullrich von Bassewitz, 30.05.1998
-;
-; int write (int fd, const void* buf, int count);
-;
-; THIS IS A HACK!
-;
-
-	.export		_write
-	.import		popax
-	.importzp	ptr1, ptr2, ptr3
-
-	.include 	"../cbm/cbm.inc"
-
-_write:	jsr	popax 		; get count
-       	sta    	ptr2
-	stx	ptr2+1		; save it for later
-	sta	ptr3
-	stx	ptr3+1		; save for function result
-	jsr	popax		; get buf
-	sta	ptr1
-	stx	ptr1+1
-	jsr	popax		; get fd and discard it
-
-L1:	lda	ptr2
-	ora	ptr2+1		; count zero?
-	beq	L9
-	ldy	#0
-	lda	(ptr1),y
-	jsr	BSOUT
-	inc	ptr1
-	bne	L2
-	inc	ptr1+1
-L2:	lda	ptr2
-	bne	L3
-	dec	ptr2
-	dec	ptr2+1
-	jmp	L1
-L3:	dec	ptr2
-	jmp	L1
-
-; No error, return count
-
-L9:   	lda	ptr3
-    	ldx	ptr3+1
-    	rts
-