mov c *start
jump

label setpixel
mov 1 1f01
out 2 1
mov 1 1f02
out 3 1
mov 1 1f03
out 4 1
mov 1 1f00
out 0 1
subreturn

label setpixelnocolor
mov 1 1f02
out 3 1
mov 1 1f03
out 4 1
mov 1 1f00
out 0 1
subreturn


label start
mov 4 f
mov d 1f01
mov 2 ffff
out 2 d
mov c *setpixelnocolor
subr
