home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / jget.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  470 b   |  47 lines
  1. f = r5
  2. .globl j,n
  3. .globl input
  4. .globl classtab
  5. .globl jget
  6.  
  7. jget:
  8.     inc    jgetc
  9. 3:
  10.     mov    j(f),r1
  11.     mov    r1,r0
  12.     bic    $inpt-1,r0
  13.     bic    r0,r1
  14.     cmp    r0,inpr
  15.     beq    1f
  16.     inc    readc
  17.     mov    r0,inpr
  18.     mov    input,r0
  19.     sys    seek
  20. inpr:        1;0
  21.     sys    read;inpb;inpt
  22. 2:
  23.     cmp    r0,$inpt
  24.     bge    1f
  25.     clrb    inpb(r0)
  26.     inc    r0
  27.     br    2b
  28. 1:
  29.     movb    inpb(r1),r0
  30.     asl    r0
  31.     bit    n(f),classtab(r0)
  32.     beq    1f
  33.     inc    j(f)
  34.     inc    r1
  35.     cmp    r1,$inpt
  36.     blt    1b
  37.     br    3b
  38. 1:
  39.     asr    r0
  40.     rts    pc
  41. inpt = 128.
  42. .bss
  43. inpb:    . = .+inpt
  44. .data
  45. jgetc:    0
  46. readc:    0
  47.