Adding telemon30 and telemon24 primitives

[cc65] / libsrc / telemon30 / write.s

diff --git a/libsrc/telemon30/write.s b/libsrc/telemon30/write.s
index 32965fe3d98c090f5fde6e40fbb4fdc43513289d..d762eb92cd148a75ed5b2328eddf54b5ad9cf27c 100644 (file)
--- 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