;›; cgetc(iocb)›;›  .globl  _fgetc›_fgetc:›  .globl  _cgetc›_cgetc:›  jsr  popax    ; get iocb›  tax›  lda  #0›  sta  icbll,x›  sta  icblh,x›  sta  icbal,x›  sta  icbah,x›  lda  #getchr›  sta  iccom,x›  jsr  ciov›  bpl  getc9›  cpy  #EOFERR    ; EOF?›  beq  getceof›  jmp  ioreturn  ; go return error›getc9:›  ldx  #0    ; return hi byte 0›  rts›getceof:›  lda  #$FF›  tax›  rts›;›