1
0
mirror of https://github.com/cc65/cc65.git synced 2024-06-02 19:42:23 +00:00
cc65/libsrc/cbm/c_setlfs.s

22 lines
551 B
ArmAsm

;
; Ullrich von Bassewitz, 03.06.1999
;
; void __fastcall__ cbm_k_setlfs (unsigned char LFN,
; unsigned char DEV,
; unsigned char SA);
;
.include "cbm.inc"
.export _cbm_k_setlfs
.import popa
.importzp tmp1
_cbm_k_setlfs:
sta tmp1 ; Save SA
jsr popa ; Get DEV
tax
jsr popa ; Get LFN
ldy tmp1 ; Get SA
jmp SETLFS