//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    // Set correct working path

    // SETMSG (Turn off KERNAL Messages)
    lda #$00
    jsr $ff90

    // SETLFS
    ldx #12    // Drive No
    ldy #15    // Command Channel
    lda #1     // Logical File No
    jsr $ffba

    // SETNAM
    lda #PathNameEnd-PathName
    ldx #<PathName
    ldy #>PathName
    jsr $ffbd

    // OPEN (Sends Command)
    jsr $ffc0

    // Close Logical File
    lda #$01
    jsr $ffc3

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    // Load the File

    // SETLFS
    ldx #12    // Device Number
    ldy #0     // Command (0 = Read / 1 = write / 255 = No Command)
    lda #1     // Logical File Number
    jsr $ffba

    // SETNAM
    lda #FileNameEnd-FileName
    ldx #<FileName
    ldy #>FileName
    jsr $ffbd

    // OPEN the file
    jsr $ffc0

    // CHKIN
    ldx #$01
    jsr $ffc6

    // CHRIN to load the data
    ldy #$00
!:  jsr $ffcf
    sta $1000,y
    dey
    bne !-

    // Close Logical File
    lda #$01
    jsr $ffc3
    rts

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
PathName:
    .text "CD:XXX"
    PathNameEnd:
FileName:
    .text "YYY"
    FileNameEnd:
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

; set device number to 8 if it is less than 8
        lda     #8
        cmp     $ba
        bcc     skp
        sta     $ba
skp: