HALT+DI testing

    di
    ld a, 2
    ld [rIE], a
    ld a, $20
    ld [rSTAT], a

    xor a
    ld [rIF], a
    ld [$C001], a
    halt ; Wait until a Mode 2 int
    ld [rIF], a ; Clear it
    ei ; Enable Mode 2 int
REPT $100
    inc a
ENDR
    ld de, $9909
    ld a, [$C001]
    and a
    jr nz, .didInt
    ld b, "!"
.waitVRAMNoInt
    rst isVRAMOpen
    jr nz, .waitVRAMNoInt
    ld a, b
    ld [de], a
    inc de
    ld [de], a
    jr @
.didInt
    ld a, [$C000]
    call PrintHex

    jr @


; @ 0048, STAT handler :
STAT_int::
    ld hl, $C000
    ld [hli], a
    ld [hl], 1
    ret ; Don't re-enable interrupts