From 6154d1e29b4ada8fff64446b881c71a900bf38d8 Mon Sep 17 00:00:00 2001 From: CSRG Date: Fri, 27 May 1983 02:54:55 -0800 Subject: [PATCH] BSD 4_3_Net_2 development Work on file usr/src/usr.bin/lisp/franz/68k/callg.s Synthesized-from: CSRG/cd2/net.2 --- usr/src/usr.bin/lisp/franz/68k/callg.s | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 usr/src/usr.bin/lisp/franz/68k/callg.s diff --git a/usr/src/usr.bin/lisp/franz/68k/callg.s b/usr/src/usr.bin/lisp/franz/68k/callg.s new file mode 100644 index 0000000000..3fa1a57058 --- /dev/null +++ b/usr/src/usr.bin/lisp/franz/68k/callg.s @@ -0,0 +1,22 @@ +| /* Copyright (c) 1982, Regents, University of California */ + .text + .globl _callg_ +_callg_: + link a6,#0 + movl a6@(12),a0 + movl sp,a1 + movl a0@+,d0 + asll #2,d0 + subl d0,a1 + tstb a1@ + movl a1,sp +.L13: + subql #4,d0 + blt .L14 + movl a0@+,a1@+ + bra .L13 +.L14: + movl a6@(8),a0 + jsr a0@ + unlk a6 + rts -- 2.20.1