kernalload
                lda #0                  ; Just in case
            sta $98

                lda #savenameend-savename
                ldx #<savename
                ldy #>savename
                jsr Rom_Setnam
                lda #datachan           ;Filenumber+Data channel
setdevice       ldx $ba                 ;put the value of $ba here
                ldy #0
                jsr Rom_SetLfs
                jsr Rom_Open            ;returns clc/sec on error
                bcs showerror_open
                ldx #datachan
                jsr Rom_Chkin           ;Set data channel to input