jafff

SET I, 255
SET [0x8000], 0x1

:loop         ADD [0x8000], 0x1
              SUB I, 1
              IFN I, 0
                 SET PC, loop

:crash        SET PC, crash

nullsauce

#
# ----------------------------------------------------------------------------
# "THE BEER-WARE LICENSE" (Revision 42):
# <flavio.roth@gmail.com> wrote this file. As long as you retain this notice you
# can do whatever you want with this stuff. If we meet some day, and you think
# this stuff is worth it, you can buy me a beer in return.
# ----------------------------------------------------------------------------
#