_cleanstack:
    ld hl, (sp)
    ld bc, sp
    or a
    sbc hl, bc
    ld ix, 0
    add ix, hl
    lea bc, ix
    ld de, sp
    ld hl, sp
    ld (de), 0
    inc de
    dec bc
    ldir
    ex de, hl
    ld sp, hl
    ret