Adding files for telemon30

2016-12-14 21:22:10 +01:00
parent bc94d53514
commit 252e4afb9c
36 changed files with 1899 additions and 55 deletions
--- a/libsrc/telemon30/write.s
+++ b/libsrc/telemon30/write.s
@@ -0,0 +1,61 @@
+;
+; 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        "telemon30.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_TELEMON  XWR0  ; Macro
+		lda #$0d ; return to the beggining of the line
+		BRK_TELEMON  XWR0  ; Macro ; 
+	
+
+        ldx     #$0D
+L3:     
+		BRK_TELEMON  XWR0  ; Macro
+
+        inc     ptr1
+        bne     L1
+        inc     ptr1+1
+        jmp     L1
+
+; No error, return count
+
+L9:     lda     ptr3
+        ldx     ptr3+1
+        rts
+
+.endproc
+
+