Adding telemon30 and telemon24 primitives

libsrc/telemon30/_read.s

@@ -1,29 +1,45 @@
 ;
-; Ullrich von Bassewitz, 2003-04-13
+; jede jede@oric.org 2017-01-22
 ;
 
-;
 
+		.FEATURE 		c_comments,labels_without_colons,pc_assignment, loose_char_term
         .export         _read
         .import         popax
-        .importzp       ptr1, ptr2, ptr3, tmp1, tmp2
-
+        
+        .include        "zeropage.inc"
         .include        "telemon30.inc"
 ;		int read (int fd, void* buf, unsigned count);
 
 .proc   _read
-		;jsr popax ; fp pointer don't care
-	sta tmp1 ; count
-	stx tmp2 ; count
-	jsr popax ; get buf
-	;lda #$00
-	;ldx #$a0
-	sta PTR_READ_DEST
-	stx PTR_READ_DEST+1
-	lda tmp1 ; 
-	ldy tmp2 ;
-	BRK_TELEMON XFREAD
+	
+	sta 			ptr1 ; count
+	stx 			ptr1+1 ; count
+	jsr 			popax ; get buf
 
+	sta	 			PTR_READ_DEST
+	stx 			PTR_READ_DEST+1
+	sta				ptr2 ; in order to calculate nb of bytes read
+	stx 			ptr2+1 ;
+	
+	;jsr popax ; fp pointer don't care in this version
+	
+	lda 			ptr1 ; 
+	ldy				ptr1+1 ;
+	BRK_TELEMON 	XFREAD ; calls telemon30 routine
+	;  compute nb of bytes read
+	lda 			PTR_READ_DEST+1
+	sec
+	sbc 			ptr2+1
+	tax				
+	lda 			PTR_READ_DEST
+	sec
+	sbc				ptr2
+	
+
+	
+	; Here A and X contains number of bytes read
+	
 	rts
 
 .endproc