farlands/langs/wm/wclib/stdio.wc

getc() {
  c;

  asm("mov IO {c}");

  return c;
}

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');
}