mirror of
https://github.com/cc65/cc65.git
synced 2024-10-19 16:24:46 +00:00
ba36071022
-28 bytes, -1% cycles
43 lines
952 B
ArmAsm
43 lines
952 B
ArmAsm
;
|
|
; 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
|