di
mloop: ld sp,filestruct
    pop af
    jp z,0x6000
    ld bc,0x7ffd
    out (c),a
    ld ($+5),sp
    ld hl,0
    ld c,0x13
    call 0x3d13
    inc sp
    pop hl
    pop hl
    pop hl
    pop hl
    pop hl
    ld a,0xff
    ld c,0x0e
    call 0x3d13
    jr mloop
    defs 32
filestruct:
    defb 0x00,0x10,'0       C',0x00,0xc0
    defb 0x00,0x10,'code    C',0x00,0x60
    defb    0xff,'\r'