mirror of
https://github.com/cc65/cc65.git
synced 2024-11-20 12:32:58 +00:00
63 lines
1.4 KiB
ArmAsm
63 lines
1.4 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
|
||
|
|
|
||
|
|
; Limit the length of the name and store it into the zero page
|
||
|
|
|
||
|
|
cmp #16+1
|
||
|
|
bcc @L1
|
||
|
|
lda #16 ; Use a maximum of 16 chars
|
||
|
|
@L1: 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 DOS_FN1
|
||
|
|
|
||
|
|
ldy #$00
|
||
|
|
@L2: lda (TMPPTR),y
|
||
|
|
sta DOS_FN1,y
|
||
|
|
iny
|
||
|
|
cpy FNAM_LEN
|
||
|
|
bne @L2
|
||
|
|
|
||
|
|
; Load the new parameters for the low memory buffer
|
||
|
|
|
||
|
|
ldx #<DOS_FN1
|
||
|
|
ldy #>DOS_FN1
|
||
|
|
|
||
|
|
; 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
|
||
|
|
|
||
|
|
|