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     ! 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.