di
    ld sp,0x6000
    jp loadprog
namecode:
    defb 'code    C'
name0:
    defb 'code0   C'
loadblok
    ld bc,0x7ffd
    out (c),a
    ld c,0x13
    call 0x3d13
laddr
    ld hl,0x6000
    ld a,0xff
    ld c,0x0e
    call 0x3d13
    ret
loadprog
    ld hl,namecode
    ld a,0x10
    call loadblok
    ld a,0xc0
    ld (laddr+2),a
    ld a,0x10
    ld hl,name0
    call loadblok
    jp 0x6000