.org $38
.section "Interrupt handler" force
  push af
    in a,(VDPStatus) ; satisfy interrupt
    push hl
      ld hl,(VBlankRoutine)
      call CallHL
    pop hl
  pop af
  ei
  reti

CallHL:
  jp (hl)
.ends