6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-08-08 06:25:17 +00:00
Code Issues Projects Releases Wiki Activity

Made cbm_open() be more efficient.

Browse Source 
The fastcall argument doesn't need to be put on a stack.  SETNAM can be called before SETLFS.
This commit is contained in:
Greg King
2021-12-23 22:24:55 -05:00
committed by greg-king5
parent 884f72637b
commit 6ac4aa4e20
1 changed files with 4 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
libsrc/cbm/cbm_open.s
View File

@@ -1,5 +1,6 @@
; ;
; Ullrich von Bassewitz, 22.06.2002 ; 2002-06-22, Ullrich von Bassewitz
; 2021-12-23, Greg King
; ;
; Original C code by Marc 'BlackJack' Rintsch, 18.03.2001 ; Original C code by Marc 'BlackJack' Rintsch, 18.03.2001
; ;
@@ -19,26 +20,17 @@
; ;
.export _cbm_open .export _cbm_open
.import popa .import popa
.import _cbm_k_setlfs, _cbm_k_setnam, _cbm_k_open .import _cbm_k_setlfs, _cbm_k_setnam, _cbm_k_open
.import __oserror .import __oserror
_cbm_open: _cbm_open:
pha jsr _cbm_k_setnam
txa
pha ; Save name
jsr popa ; Get sec_addr jsr popa ; Get sec_addr
jsr _cbm_k_setlfs ; Call SETLFS, pop all args jsr _cbm_k_setlfs ; Call SETLFS, pop all args
pla
tax
pla ; Get name
jsr _cbm_k_setnam
jsr _cbm_k_open jsr _cbm_k_open
sta __oserror sta __oserror
rts rts