;›; cputc(ch, iocb)›;›  .globl  _fputc›_fputc:›  .globl  _cputc›_cputc:›  jsr  popax    ; get iocb›  sta  tmp1›  jsr  popax    ; get char›  ldx  tmp1›  pha›  lda  #0›  sta  icbll,x›  sta  icblh,x›  sta  icbal,x›  sta  icbah,x›  lda  #putchr›  sta  iccom,x›  pla›  jsr  ciov›  bpl  putc9›  jmp  ioreturn  ; do common error stuff›putc9:›  tya›  ldx  #0›  rts›