mirror of
https://github.com/cc65/cc65.git
synced 2024-07-29 12:29:11 +00:00
20 lines
295 B
ArmAsm
20 lines
295 B
ArmAsm
|
;
|
||
|
|
; Ullrich von Bassewitz, 2003-12-18
|
||
|
|
;
|
||
|
|
; SETLFS replacement function
|
||
|
|
;
|
||
|
|
|
||
|
|
.export SETLFS
|
||
|
|
|
||
|
|
.include "cbm610.inc"
|
||
|
|
|
||
|
|
|
||
|
|
.proc SETLFS
|
||
|
|
sta LFN
|
||
|
|
stx DEVNUM
|
||
|
|
sty SECADR
|
||
|
|
rts ; Return to caller
|
||
|
|
.endproc
|
||
|
|
|
||
|
|
|