Return to pushframe.s CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / lisp / franz / tahoe

Annotation of 43BSDTahoe/ucb/lisp/franz/tahoe/pushframe.s, revision 1.1

1.1     ! root        1: /*
        !             2:  * pushframe : stack a frame 
        !             3:  * mess with the standard calls/callf call frame to put things in
        !             4:  * the proper order. On entry to _Pushframe we have:
        !             5:  * On entry to Pushframe:              On exit:
        !             6:  * ______________                      ______________  
        !             7:  * | second arg |                      | second arg |
        !             8:  * +------------+                      +------------+
        !             9:  * | first arg  |                      | first arg  |
        !            10:  * +------------+                      +------------+
        !            11:  * | 'class' arg|                      | 'class' arg|
        !            12:  * +------------+                      +------------+
        !            13:  * | saved fp   |  <<= fp              | return addr|
        !            14:  * +------------+                      +------------+
        !            15:  * |mask|removed|                      | old _errp  |
        !            16:  * +------------+                      +------------+
        !            17:  * |return addr.|  <<= sp              | saved _bnp |
        !            18:  * +------------+                      +------------+
        !            19:  *                                     | saved _np  |
        !            20:  *                                     +------------+
        !            21:  *                                     | saved lbot |  <<= d0
        !            22:  *                                     +------------+
        !            23:  *                                     | saved r13  |
        !            24:  *                                     |       ...  |
        !            25:  *                                     | saved r8   |  <<= sp
        !            26:  *                                     +------------+
        !            27:  */
        !            28:        .text
        !            29:        .globl  _Pushframe
        !            30:        .globl  _qpushframe
        !            31: 
        !            32: _qpushframe:
        !            33: _Pushframe:
        !            34:        .word 0x0
        !            35:        movl    (fp),fp         # give user his fp back
        !            36:        movl    (sp),r0         # put program counter in temporary
        !            37:        moval   12(sp),sp       # remove pc, 'mask', 'removed', and fp
        !            38:        pushl   r0              # stack the return address
        !            39:        pushl   _errp
        !            40:        pushl   _bnp
        !            41:        pushl   r6              # save _np
        !            42:        pushl   r7              # save _lbot
        !            43:        moval   (sp),r0         # return addr of lbot on stack to caller
        !            44:        moval   -24(sp),sp
        !            45:        storer  $0x3f00,(sp)    # save r13(fp), r12,r11,r10,r9,r8
        !            46:        clrl    _retval         # set retval to C_INITIAL
        !            47:        jmp     *40(sp)         # return to caller

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