initint
        ld hl,imvec+1
        ld (hl),h
        ld a,h
        dec h
        ld (hl),a
        inc l
        jr nz,$-2
        dec a
        ld i,a
        ld a,0xc3 ;jp
        ld (imer),a
        ld hl,on_int
        ld (imer+1),hl
        im 2
        ret
