4.3BSD - /usr/src/ucb/lisp/franz/68k/callg.s

   1: | /* Copyright (c) 1982, Regents, University of California */
   2:         .text
   3:         .globl  _callg_
   4: _callg_:
   5:         link    a6,#0
   6:         movl    a6@(12),a0
   7:         movl    sp,a1
   8:         movl    a0@+,d0
   9:         asll    #2,d0
  10:         subl    d0,a1
  11:         tstb    a1@
  12:         movl    a1,sp
  13: .L13:
  14:         subql   #4,d0
  15:         blt     .L14
  16:         movl    a0@+,a1@+
  17:         bra     .L13
  18: .L14:
  19:         movl    a6@(8),a0
  20:         jsr     a0@
  21:         unlk    a6
  22:         rts

Defined functions