UNIX 6th Ed. - /usr/source/fort/fx/fx5.s

   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

Defined functions