farlands/langs/wm/stdio.wc

putc(c) {
  asm("mov {c} IO");
}

putd(n) {
  asm("mov {n} Z");
}

puts(s) {
  for (i=0;s[i];i++)
    putc(s[i]);
}

nl() {
  putc('\n');
}