Return to callg.s CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / franz / 68k

Annotation of 42BSD/ucb/lisp/franz/68k/callg.s, revision 1.1.1.1

1.1       root        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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.