git.sur5r.net Git - cc65/blob - libsrc/cbm510/ksetnam.s

   1 ;
   2 ; Ullrich von Bassewitz, 2003-12-18
   3 ;
   4 ; SETNAM kernal call.
   5 ;
   6 ; NOTE: The routine does not work like that in the CBM610 kernal (which works
   7 ; different than that on all other CBMs). Instead, it works like on all other
   8 ; Commodore machines. No segment has to be passed, the current segment is
   9 ; assumed.
  10
  11         .export         SETNAM
  12
  13         .import         sys_bank, restore_bank
  14         .import         sysp0: zp, ktmp: zp
  15
  16         .include        "cbm510.inc"
  17
  18 .proc   SETNAM
  19
  20         pha
  21         jsr     sys_bank
  22         sty     ktmp
  23
  24         txa
  25         ldy     #$90                    ; FNAM
  26         sta     (sysp0),y
  27
  28         lda     ktmp
  29         iny
  30         sta     (sysp0),y
  31
  32         lda     ExecReg                 ; Assume name is always in this segment
  33         ldy     #$92                    ; FNAM_SEG
  34         sta     (sysp0),y
  35
  36         ldy     #$9D                    ; FNAM_LEN
  37         pla
  38         sta     (sysp0),y
  39         ldy     ktmp
  40         jmp     restore_bank
  41
  42 .endproc
  43
  44
  45