;test suite for init
#include syscalls.inc

#defnum ThreadCount 2

lsb ThreadCount
.make:
  lsi .code
  lsi .name
  cal .MakeThread
  dec
  dup
jnz .make
.loop:
  lsi .name
  scl FindThread
  hlt
  lsi -1
jne .loop
ret

#defnum NameAddr 100
; Args: Name->File->
; ret: void
.MakeThread:
  stv NameAddr
  scl CreateThread
  dup
  ldv NameAddr
  swp
  scl NameThread
  pop
  scl KickThread
  pop
ret

.code:
ds "hello.qdm"
.name:
ds "hello"