mirror of
https://github.com/cc65/cc65.git
synced 2024-10-01 15:54:59 +00:00
65 lines
1.3 KiB
ArmAsm
65 lines
1.3 KiB
ArmAsm
;
|
|
; Ullrich von Bassewitz, 2003-08-12
|
|
;
|
|
; char* __fastcall__ getcwd (char* buf, size_t size);
|
|
;
|
|
|
|
.export _getcwd
|
|
|
|
.import popax
|
|
.import __cwd
|
|
.importzp ptr1, ptr2
|
|
|
|
.include "errno.inc"
|
|
|
|
|
|
;--------------------------------------------------------------------------
|
|
|
|
.proc _getcwd
|
|
|
|
; Remember -size-1 because this simplifies the following loop
|
|
|
|
eor #$FF
|
|
sta ptr2
|
|
txa
|
|
eor #$FF
|
|
sta ptr2+1
|
|
|
|
jsr popax ; Get buf
|
|
sta ptr1
|
|
stx ptr1+1 ; Save buf
|
|
|
|
; Copy __cwd to the given buffer checking the length
|
|
|
|
ldy #$00
|
|
loop: inc ptr2
|
|
bne @L1
|
|
inc ptr2+1
|
|
beq overflow
|
|
|
|
; Copy one character, end the loop if the zero terminator is reached
|
|
|
|
@L1: lda __cwd,y
|
|
sta (ptr1),y
|
|
bne loop
|
|
|
|
; Current working dir copied ok, A contains zero
|
|
|
|
tax ; Return zero in a/x
|
|
rts
|
|
|
|
; String overflow, return ERANGE
|
|
|
|
overflow:
|
|
lda #<ERANGE
|
|
sta __errno
|
|
lda #>ERANGE
|
|
sta __errno+1
|
|
lda #$FF
|
|
tax ; Return -1
|
|
rts
|
|
|
|
.endproc
|
|
|
|
|