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 46