From 6ac4aa4e2076189ad5b5f3a9d33e1c5910d4e37c Mon Sep 17 00:00:00 2001
From: Greg King <gregdk@users.sf.net>
Date: Thu, 23 Dec 2021 22:24:55 -0500
Subject: [PATCH] Made cbm_open() be more efficient.

The fastcall argument doesn't need to be put on a stack.  SETNAM can be called before SETLFS.
---
 libsrc/cbm/cbm_open.s | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/libsrc/cbm/cbm_open.s b/libsrc/cbm/cbm_open.s
index 1842fc149..db4179db8 100644
--- a/libsrc/cbm/cbm_open.s
+++ b/libsrc/cbm/cbm_open.s
@@ -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
 ;
@@ -19,26 +20,17 @@
 ;
 
         .export         _cbm_open
+
         .import         popa
         .import         _cbm_k_setlfs, _cbm_k_setnam, _cbm_k_open
         .import         __oserror
 
 _cbm_open:
-        pha
-        txa
-        pha                     ; Save name
+        jsr     _cbm_k_setnam
 
         jsr     popa            ; Get sec_addr
         jsr     _cbm_k_setlfs   ; Call SETLFS, pop all args
 
-        pla
-        tax
-        pla                     ; Get name
-        jsr     _cbm_k_setnam
-
         jsr     _cbm_k_open
         sta     __oserror
-
         rts
-
-