proc putchar
  0xCFFFFFFFFFFFFFFD st8
endproc 

proc getchar
  0xCFFFFFFFFFFFFFFE ld8
endproc 

proc main
  while 1 do 
    :getchar :putchar
  endwhile
endproc