mirror of
https://github.com/cc65/cc65.git
synced 2024-11-19 06:31:31 +00:00
6ac4aa4e20
The fastcall argument doesn't need to be put on a stack. SETNAM can be called before SETLFS.
37 lines
1011 B
ArmAsm
37 lines
1011 B
ArmAsm
;
|
|
; 2002-06-22, Ullrich von Bassewitz
|
|
; 2021-12-23, Greg King
|
|
;
|
|
; Original C code by Marc 'BlackJack' Rintsch, 18.03.2001
|
|
;
|
|
; unsigned char __fastcall__ cbm_open (unsigned char lfn,
|
|
; unsigned char device,
|
|
; unsigned char sec_addr,
|
|
; const char* name);
|
|
; /* Opens a file. Works just like the BASIC command.
|
|
; ** Returns 0 if opening was successful, otherwise an errorcode (see table
|
|
; ** below).
|
|
; */
|
|
; {
|
|
; cbm_k_setlfs(lfn, device, sec_addr);
|
|
; cbm_k_setnam(name);
|
|
; return _oserror = cbm_k_open();
|
|
; }
|
|
;
|
|
|
|
.export _cbm_open
|
|
|
|
.import popa
|
|
.import _cbm_k_setlfs, _cbm_k_setnam, _cbm_k_open
|
|
.import __oserror
|
|
|
|
_cbm_open:
|
|
jsr _cbm_k_setnam
|
|
|
|
jsr popa ; Get sec_addr
|
|
jsr _cbm_k_setlfs ; Call SETLFS, pop all args
|
|
|
|
jsr _cbm_k_open
|
|
sta __oserror
|
|
rts
|