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

   1: /
   2: /
   3: 
   4: / fxc -- size of array
   5: 
   6: .globl  size
   7: .globl  nelem
   8: 
   9: .globl  error
  10: 
  11: size:
  12:         movb    symtab+1(r3),r0
  13:         jsr     r5,nelem
  14:         inc     r0
  15:         bic     $1,r0           / round to 0 mod 2
  16:         rts     r5
  17: 
  18: nelem:
  19:         mov     r1,-(sp)
  20:         mov     r0,r1
  21:         mov     symtab(r3),r0
  22:         bic     $!70,r0
  23:         cmp     r0,$20
  24:         bne     1f
  25:         mov     symtab+2(r3),r0
  26:         mov     (r0)+,-(sp)
  27: 2:
  28:         mpy     (r0)+,r1
  29:         dec     (sp)
  30:         bgt     2b
  31:         tst     (sp)+
  32: 1:
  33:         mov     r1,r0
  34:         mov     (sp)+,r1
  35:         rts     r5

Defined functions