_cleanstack:
    ld hl, (sp)
    ld bc, sp
    or a
    sbc hl, bc
    push hl
    pop bc
    inc bc
    inc bc
    inc bc
    ld de, sp
    ld hl, sp
    ld (de), 0
    inc de
    dec bc
    ldir
    ex de, hl
    ld sp, hl
    ret