xdef  _main
  xdef  _ti89
  include  "tios.h"
_main:
  jsr  tios::ScreenClear
  move.w  #2,-(sp)
  jsr  tios::FontSetSys
  addq.l  #2,sp
  lea.l  NewInt5(pc),a0
  lea.l  OldInt5(pc),a1
  move.l  $74,(a1)    ;save old auto-int 5
  bclr.b  #2,$600001
  move.l  (a0),$74    ;install new interrupt handler
  bset.b  #2,$600001
Loop:
  tst.w  KEY_PRESSED_FLAG  ;loop waiting for a key
  beq  Quit
  lea.l  Flag(pc),a0
  tst.w  (a0)
  beq  Loop
  bsr  DispText
  bra  Loop
Quit:
  lea.l  OldInt5(pc),a1
  bclr.b  #2,$600001
  move.l  (a1),$74    ;restore old interrupt handler
  bset.b  #2,$600001
  rts

NewInt5:
  lea.l  Counter(pc),a0
  subq.w  #1,(a0)
  bne  \quit
  move.w  #20,(a0)
  lea.l  Flag(pc),a0
  move.w  #1,(a0)
\quit:
  rte

DispText:
  lea.l  Flag(pc),a0
  clr.w  (a0)
  jsr  tios::ScreenClear
  lea.l  X(pc),a2
  lea.l  Y(pc),a3
  lea.l  XOffset(pc),a4
  lea.l  YOffset(pc),a5
  move.w  #1,-(sp)
  pea.l  TextLN(pc)
  move.w  (a3),-(sp)
  move.w  (a2),-(sp)
  jsr  tios::DrawStr
  lea.l  10(sp),sp
  move.w  (a2),d0
  move.w  (a3),d1
  add.w  (a4),d0
  add.w  (a5),d1
  move.w  d0,(a2)    ;update X
  move.w  d1,(a3)    ;update Y
  tst.w  (a2)
  bne  \suite1
  move.w  #1,(a4)
\suite1:
  tst.w  (a3)
  bne  \suite2
  move.w  #1,(a5)
\suite2:
  cmpi.w  #60,(a2)
  bne  \suite3
  move.w  #-1,(a4)
\suite3:
  cmpi.w  #99,(a3)
  bne  \suite4
  move.w  #-1,(a5)
\suite4:
  rts

X:    dc.w  1
Y:    dc.w  1
XOffset:  dc.w  1
YOffset:  dc.w  1
OldInt5:  dc.l  0
Counter:  dc.w  20
Flag:    dc.w  0
TextLN:    dc.b  "Mars<3LN43V3R",0