Correcting doc adding telemon 2.4 primitives

2017-01-22 21:41:49 +01:00
parent d5ba063602
commit 038ac5a65a
13 changed files with 954 additions and 0 deletions
--- a/libsrc/telemon24/write.s
+++ b/libsrc/telemon24/write.s
@@ -0,0 +1,59 @@
+;
+; Ullrich von Bassewitz, 2003-04-13
+;
+; int write (int fd, const void* buf, int count);
+;
+; This function is a hack!
+;
+
+        .export         _write
+        .import         popax
+        .importzp       ptr1, ptr2, ptr3, tmp1
+
+        .include        "telemon24.inc"
+
+.proc   _write
+
+        sta     ptr3
+        stx     ptr3+1          ; save count as result
+
+        eor     #$FF
+        sta     ptr2
+        txa
+        eor     #$FF
+        sta     ptr2+1          ; Remember -count-1
+
+        jsr     popax           ; get buf
+        sta     ptr1
+        stx     ptr1+1
+        jsr     popax           ; get fd and discard
+L1:     inc     ptr2
+        bne     L2
+        inc     ptr2+1
+        beq     L9
+L2:     ldy     #0
+        lda     (ptr1),y
+        tax
+        cpx     #$0A            ; Check for \n
+        bne     L3
+	brk
+        .byt $10
+
+        ldx     #$0D
+L3:     
+	brk
+	.byt $10
+        inc     ptr1
+        bne     L1
+        inc     ptr1+1
+        jmp     L1
+
+; No error, return count
+
+L9:     lda     ptr3
+        ldx     ptr3+1
+        rts
+
+.endproc
+
+