home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / salloc / getch.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  300 b   |  20 lines
  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
  20.