home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / fx / fxc.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  364 b   |  37 lines
  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
  36.  
  37.