asm/utils.awa

   1 kill_all_threads:
   2   defloc: .cnt = -1
   3   psh 290  ; .cnt: more than max
   4 .loop:
   5   kil [.cnt]
   6   sub [.cnt], 1
   7   jne .loop, [.cnt], 0
   8   drp
   9   ret
  10
  11
  12 clear_stack:
  13   dpt
  14   jle .quit, 1
  15   swp
  16   pop
  17   jmp clear_stack
  18 .quit:
  19   ret