UNIX 6th Ed. - /usr/source/salloc/getch.s

   1: .globl  getchar
   2: .globl  lookchar
   3: .globl  w, r, a, l
   4: /
   5: /
   6: /	routine to read next character from string
   7: /	pointer to by r1; character returned in r0
   8: /	c-bit set if character not availiable (eof)
   9: /
  10: /	mov	...,r1
  11: /	jsr	pc,getchar
  12: /	movb	r0,...
  13: /
  14: getchar:
  15:         jsr     pc,lookchar
  16:         bes     1f
  17:         inc     r(r1)
  18:         tst     r0
  19: 1:      rts     pc

Defined functions