UNIX 6th Ed. - /usr/source/fort/f1/f15.s

   1: /
   2: /
   3: 
   4: / f15 -- subroutine/function
   5: 
   6: .globl  ssubr
   7: .globl  sfunc
   8: .globl  sbloc
   9: .globl  sfunc1
  10: .globl  funok
  11: 
  12: .globl  getsym
  13: .globl  error
  14: 
  15: ssubr:
  16:         mov     $2,progt
  17:         br      1f
  18: 
  19: sfunc:
  20:         mov     $4,progt
  21: 1:
  22:         clr     r0
  23:         br      2f
  24: 
  25: sfunc1:
  26:         mov     $4,progt
  27: 2:
  28:         tst     funok
  29:         beq     1f
  30:         jsr     r5,error; 11.
  31: 1:
  32:         add     $10,r0          / class=simple
  33:         mov     r0,-(sp)
  34:         jsr     r5,getsym
  35:         mov     (sp)+,r2
  36:         tst     r0
  37:         beq     1f
  38: 2:
  39:         jsr     r5,error; 12.
  40:         rts     r5
  41: 1:
  42:         mov     r2,symtab(r3)
  43:         jsr     r5,getsym
  44:         cmp     r0,$32.         / (
  45:         beq     1f
  46:         cmp     r0,$40. / eos
  47:         bne     2b
  48:         rts     r5
  49: 1:
  50:         clr     -(sp)
  51: 1:
  52:         add     $2,(sp)
  53:         jsr     r5,getsym
  54:         tst     r0
  55:         beq     3f
  56:         tst     (sp)+
  57:         br      2b
  58: 3:
  59:         bis     $200,symtab(r3) / param
  60:         mov     (sp),symtab+6(r3)       / param number
  61:         jsr     r5,getsym
  62:         cmp     r0,$36. / ,
  63:         beq     1b
  64:         tst     (sp)+
  65:         cmp     r0,$34.         / )
  66:         bne     2b
  67:         jsr     r5,getsym
  68:         cmp     r0,$40.
  69:         bne     2b
  70:         rts     r5
  71: 
  72: sbloc:
  73:         mov     $6,progt
  74:         jsr     r5,getsym
  75:         tst     funok
  76:         beq     1f
  77:         jsr     r5,error; 11.
  78: 1:
  79:         cmp     r0,$40.
  80:         beq     1f
  81:         jsr     r5,error; 13.
  82: 1:
  83:         rts     r5
  84: 
  85: .data
  86: funok:  0

Defined functions

Defined variables