// test asm

asm(x)
  x = 0

plot(x,y,color)
  asm("st r1 1010")
  asm("st r2 1011")
  asm("trap r3 #15")

hline(x,y,len)
  i = x
  while( i < (x+len) )
    plot(i,y,1)
    i = i + 1

vline(x,y,len)
  i = y
  while( i < (y+len) )
    plot(x,i,1)
    i = i + 1

oh(x,y)
  hline(x,y,10)
  vline(x+10,y,20)
  hline(x,y+20,10)
  vline(x,y,20)

main()
  oh(10,10)