;name Kinch
;author Kevin (kwhyte@math.uchicago.edu)

bomb jmp pit,0
offset dat #436,#-436
     dat #0,#0
     dat #0,#0
     dat #0,#0
     dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
start  add offset,bomb
       jmz start,@bomb
       add #7,bomb
loop   mov #13,loop
get    mov bomb,<bomb
       djn get,loop
       add #6,bomb
change jmp start,0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
       dat #0,#0
new    mov #-10,0
       mov -2,-3
       mov -4,<-4
       djn -1,-3
       jmp -3,0
thing  jmp new-start,start
       jmp 13,0
       jmp 12,0
       jmp 11,0
       jmp 10,0
       jmp 9,0
       jmp 8,0
pit     jmp 7,0
       jmp 6,0
       jmp 5,0
       jmp 4,0
       jmp 3,0
       jmp 2,0
       jmp 1,0
       mov thing,@thing
       spl 0,0
       jmp -1,0
       end start