farlands/langs/wmc/wclib/stdio.wc

getc() {
  c;

  asm("in {c}");

  return c;
}

putc(c) {
  asm("out {c}");
}

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

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

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