Merge pull request #453 from mrdudz/waitvsync

[cc65] / libsrc / cbm610 / ksetnam.s

diff --git a/libsrc/cbm610/ksetnam.s b/libsrc/cbm610/ksetnam.s
index 47273fe958db8f23707637ffd5b843e9d7610f77..ab5c6d730749f89f73c3c24d119109b155d76239 100644 (file)
--- a/libsrc/cbm610/ksetnam.s
+++ b/libsrc/cbm610/ksetnam.s
@@ -10,14 +10,34 @@
 
         .export         SETNAM
 
-       .include        "cbm610.inc"
+        .import         sys_bank, restore_bank
+        .import         sysp0: zp, ktmp: zp
+                                                  
+        .include        "cbm610.inc"
 
 .proc   SETNAM
 
-        sta     FNAM_LEN
-        stx     FNAM_ADR 
-        sty     FNAM_ADR+1
-        rts
+        pha
+        jsr     sys_bank
+        sty     ktmp
+
+        txa
+        ldy     #$90                    ; FNAM
+        sta     (sysp0),y
+
+        lda     ktmp
+        iny
+        sta     (sysp0),y
+
+        lda     ExecReg                 ; Assume name is always in this segment
+        ldy     #$92                    ; FNAM_SEG
+        sta     (sysp0),y
+
+        ldy     #$9D                    ; FNAM_LEN
+        pla
+        sta     (sysp0),y
+        ldy     ktmp
+        jmp     restore_bank
 
 .endproc