Rewrite fputs in assembly

-28 bytes, -1% cycles
2024-01-30 17:51:00 +01:00
parent 51b946bf25
commit ba36071022
3 changed files with 82 additions and 28 deletions
--- a/libsrc/common/fputs.s
+++ b/libsrc/common/fputs.s
@@ -0,0 +1,42 @@
+;
+; Colin Leroy-Mira, 2024
+;
+; int __fastcall__ fputs (const char* s, register FILE* f)
+;
+
+        .export         _fputs
+        .importzp       ptr1, ptr2
+        .import         _write, _strlen
+        .import         swapstk, pushax, returnFFFF
+
+        .include        "stdio.inc"
+        .include        "_file.inc"
+
+_fputs:
+        sta     ptr1
+        stx     ptr1+1
+
+        ldy     #_FILE::f_flags
+        lda     (ptr1),y
+        tax
+        and     #_FOPEN         ; Check for file open
+        beq     ret_eof
+        txa
+        and     #(_FERROR|_FEOF); Check for error/eof
+        bne     ret_eof
+
+        ; Push _write parameters
+        ldy     #_FILE::f_fd
+        lda     (ptr1),y
+        ldx     #$00
+        jsr     swapstk         ; Push fd, get s
+
+        jsr     pushax          ; Push s
+        
+        jsr     _strlen         ; Get length
+        
+        ; Write
+        jmp     _write
+
+ret_eof:
+        jmp     returnFFFF