home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / f1 / f16.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  375 b   |  38 lines
  1. /
  2. /
  3.  
  4. / f16 -- extrn, equiv, data
  5.  
  6. .globl    sextr
  7. .globl    sequi
  8.  
  9. .globl    getsym
  10. .globl    putc
  11. .globl    error
  12. .globl    ptemp
  13.  
  14. sextr:
  15.     jsr    r5,getsym
  16.     tst    r0
  17.     bne    1f
  18.     bit    $70,symtab(r3)
  19.     beq    2f
  20.     jsr    r5,error; 14.
  21. 2:
  22.     bis    $30,symtab(r3)
  23.     jsr    r5,getsym
  24.     cmp    r0,$36.        / ,
  25.     beq    sextr
  26.     cmp    r0,$40.        / eos
  27.     beq    2f
  28. 1:
  29.     jsr    r5,error; 15.
  30. 2:
  31.     rts    r5
  32.  
  33. sequi:
  34.     jsr    r5,ptemp; 'e; efno; line
  35.     rts    r5
  36.  
  37.  
  38.