assign byte screen 1024
assign vector cinv 788
reserve vector save_cinv

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

routine our_cinv {
  inc screen
  jmp save_cinv
}