assign byte screen 1024
assign vector cinv 788
reserve vector save_cinv

routine main {
  with sei {
    copy cinv save_cinv
    copy routine our_cinv to cinv
  }
}

routine our_cinv {
  inc screen
  jmp (save_cinv)
}