Laser Tag Equipment - Shenzhen I/O

Here is my solution for Laser Tag Equipment (¥7,502,14)

  mov 0 p1
  teq x0 100
+ mov 100 dat
  teq x0 10
+ mov 0 dat
  mov dat p0
  teq x3 10
+ mov x2 acc
  teq x3 100
+ tgt acc 0
+ teq dat 100
+ sub 1
+ mov 100 p1
  slp 1