6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-11 20:29:36 +00:00
Code Issues Projects Releases Wiki Activity

Merge branch 'cc65:master' into master

Browse Source
This commit is contained in:
polluks2 2021-12-31 17:21:20 +01:00 committed by GitHub
commit 06725c166e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 12 deletions
Show Stats 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
;
@ -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