mirror of
https://github.com/cc65/cc65.git
synced 2024-10-31 04:04:49 +00:00
7c29033b58
git-svn-id: svn://svn.cc65.org/cc65/trunk@2211 b7a2c559-68d2-44c3-8de9-860c34a00d81
46 lines
783 B
ArmAsm
46 lines
783 B
ArmAsm
;
|
|
; Ullrich von Bassewitz, 2003-06-12
|
|
;
|
|
; int __fastcall__ creat (const char* name, unsigned mode);
|
|
;
|
|
|
|
.export _creat
|
|
.import _open
|
|
.import pushax
|
|
|
|
.include "fcntl.inc"
|
|
|
|
|
|
; The call
|
|
;
|
|
; creat (name, mode);
|
|
;
|
|
; is equivalent to
|
|
;
|
|
; open (name, O_CREAT | O_WRONLY | O_TRUNC, mode);
|
|
;
|
|
|
|
|
|
.proc _creat
|
|
|
|
pha
|
|
txa
|
|
pha ; Save mode
|
|
|
|
lda #<(O_CREAT | O_WRONLY | O_TRUNC)
|
|
ldx #>(O_CREAT | O_WRONLY | O_TRUNC)
|
|
jsr pushax
|
|
|
|
pla
|
|
tax
|
|
pla
|
|
jsr pushax ; Push mode on argument stack
|
|
|
|
ldy #6 ; Number of argument bytes
|
|
jmp _open
|
|
|
|
.endproc
|
|
|
|
|
|
|