;›; simple version of fgets›; cgets(str, size, iocb)›; char *str;›; int size, iocb;›;›  .globl  _cgets›_cgets:›  jsr  popax    ; get iocb›  sta  tmp1    ; stash iocb here›  jsr  popax    ; get size›  stx  tmp2    ; save x›  ldx  tmp1    ; get iocb›  sta  icbll,x    ; store size lo›  lda  tmp2›  sta  icblh,x    ; store size hi›  jsr  popax    ; get buf addr›  stx  ptr2+1    ; save x›  sta  ptr2    ; and a, we'll return it if not eof›  ldx  tmp1    ; get iocb›  sta  icbal,x    ; store size lo›  lda  tmp2›  sta  icbah,x    ; store size hi›  lda  #getrec    ; get a line›  sta  iccom,x›  jsr  ciov›  cpy  #0›  bmi  return0›  ldx  ptr2+1    ; return the pointer›  lda  ptr2›  rts›return0:›  lda  #0    ; return NULL›  tax›  rts›