home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / fx / fx5.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  514 b   |  47 lines
  1. /
  2. /
  3.  
  4. / fx5 -- declare implicit
  5.  
  6. .globl    declimpl
  7. .globl    getname
  8.  
  9. declimpl:
  10.     bit    $7,symtab(r3)
  11.     bne    1f        / already declared
  12.     jsr    r5,getname
  13.     movb    symbuf,r0
  14.     cmp    r0,$'a
  15.     blo    2f
  16.     sub    $6,r0        / map 'a -> 'Z+1
  17. 2:
  18.     asl    r0
  19.     bis    imptab-[2*'A](r0),symtab(r3)
  20. 1:
  21.     bit    $70,symtab(r3)        / class
  22.     bne    1f
  23.     bis    $10,symtab(r3)        / simple
  24. 1:
  25.     rts    r5
  26.  
  27. getname:
  28.     mov    r3,-(sp)
  29.     clr    r3
  30.     mov    $namebuf,r0
  31. 1:
  32.     cmp    r3,(sp)
  33.     bhis    1f
  34. 2:
  35.     tstb    (r0)+
  36.     bne    2b
  37.     add    $8,r3
  38.     br    1b
  39. 1:
  40.     mov    $symbuf,r3
  41. 2:
  42.     movb    (r0)+,(r3)+
  43.     bne    2b
  44.     mov    (sp)+,r3
  45.     rts    r5
  46.  
  47.