1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00
cc65/libsrc/plus4/ksetnam.s
cuz d0c237bcd8 Allow longer file names, use BASIC input buffer
git-svn-id: svn://svn.cc65.org/cc65/trunk@1813 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-12-21 00:06:28 +00:00

60 lines
1.3 KiB
ArmAsm

;
; Ullrich von Bassewitz, 22.11.2002
;
; SETNAM replacement function
;
.export SETNAM
.include "plus4.inc"
; This function is special in that the name must reside in low memory,
; otherwise it is not accessible by the ROM code.
.segment "LOWCODE" ; Must go into low memory
.proc SETNAM
; Store the length of the name into the zero page
sta FNAM_LEN
; Check if we have to copy the name to low memory
cmp #$00 ; Length zero?
beq @L3 ; Yes: Copying not needed
cpy #$00 ; Is the name in low memory?
bpl @L3 ; Yes: Copying not needed
; Store the length and the pointer to the name
stx TMPPTR
sty TMPPTR+1 ; Store pointer to name in TMPPTR
; Copy the given name into INBUF.
ldy #$00
@L2: lda (TMPPTR),y
sta INBUF,y
iny
cpy FNAM_LEN
bne @L2
; Load the new parameters for the low memory buffer
ldx #<INBUF
ldy #>INBUF
; Instead of banking in the ROM, store the values directly into the zeropage
@L3: stx FNAM_ADR
sty FNAM_ADR+1
; Return to caller
rts
.endproc