Adding telemon30 and telemon24 primitives

2017-01-29 21:18:49 +01:00
parent 038ac5a65a
commit d1b5a6632d
11 changed files with 616 additions and 146 deletions
--- a/libsrc/telemon30/write.s
+++ b/libsrc/telemon30/write.s
@@ -27,6 +27,28 @@
        sta     ptr1
        stx     ptr1+1
        jsr     popax           ; get fd and discard
+
+		; if fd=0001 then it stdout
+		
+		
+		cpx 	#0
+		beq 	next
+		jmp 	L1
+next:		
+		cmp 	#1
+		beq 	L1		
+		
+		; Here it's a file opened
+		lda 	ptr1
+		sta  	PTR_READ_DEST
+		lda 	ptr1+1
+		sta  	PTR_READ_DEST+1
+		lda 	ptr3
+		ldy 	ptr3+1
+		BRK_TELEMON  XFWRITE
+		rts
+		
+		
 L1:     inc     ptr2
        bne     L2
        inc     ptr2+1