UNIX 6th Ed. - /usr/source/fort/rt/rb.s

   1: /
   2: /
   3: 
   4: / rb -- funct/subr stuff
   5: 
   6: .globl  call
   7: .globl  callp
   8: .globl  retrn
   9: .globl  stsp
  10: 
  11: callp:
  12:         mov     (r4)+,r0
  13:         add     r3,r0
  14:         mov     (r0),r0
  15:         br      1f
  16: 
  17: call:
  18:         mov     (r4)+,r0
  19: 1:
  20:         mov     r3,-(sp)
  21:         mov     (r4)+,r3
  22:         mov     r4,-(sp)
  23:         mov     r0,r4
  24:         mov     (r4)+,-(sp)             / lv of funct
  25:         jmp     *(r4)+
  26: 
  27: retrn:
  28:         mov     r3,r0
  29:         mov     (sp)+,r1                / lv of funct
  30:         mov     (sp)+,r4
  31:         mov     (sp)+,r3
  32:         mov     (r0),sp
  33:         tst     (r4)+           / arg count
  34:         mov     (r4)+,r0                / return byte count
  35:         inc     r0
  36:         bic     $1,r0
  37:         add     r0,r1
  38: 1:
  39:         sub     $2,r0
  40:         blt     1f
  41:         mov     -(r1),-(sp)
  42:         br      1b
  43: 1:
  44:         jmp     *(r4)+
  45: 
  46: stsp:
  47:         mov     sp,*(r4)+
  48:         jmp     *(r4)+

Defined functions