Return to reset.s CVS log

Up to [CSRG BSD Unix] / 3BSD / cmd / lisp

Annotation of 3BSD/cmd/lisp/reset.s, revision 1.1

1.1     ! root        1: # C library -- reset, setexit
        !             2: 
        !             3: #      reset(x)
        !             4: # will generate a "return" from
        !             5: # the last call to
        !             6: #      setexit()
        !             7: # by restoring r6 - r12, ap, fp
        !             8: # and doing a return.
        !             9: # The returned value is x; on the original
        !            10: # call the returned value is 0.
        !            11: #
        !            12: # useful for going back to the main loop
        !            13: # after a horrible error in a lowlevel
        !            14: # routine.
        !            15: 
        !            16: .globl _setexit
        !            17: .globl _getexit
        !            18: .globl _reset
        !            19: .globl _resexit
        !            20: .globl _setsav
        !            21: .globl _svkludg
        !            22: 
        !            23: _setexit:
        !            24:        .word   0x0000
        !            25:        movab   _setsav,r0
        !            26:        movq    r6,(r0)+
        !            27:        movq    r8,(r0)+
        !            28:        movq    r10,(r0)+
        !            29:        movq    8(fp),(r0)+             # ap, fp
        !            30:        movab   4(ap),(r0)+             # sp
        !            31:        movl    16(fp),(r0)             # pc
        !            32:        clrl    r0
        !            33:        ret
        !            34: 
        !            35: _reset:
        !            36:        .word   0x0000
        !            37:        movl    4(ap),r0        # returned value
        !            38:        movab   _setsav,r1
        !            39:        movq    (r1)+,r6
        !            40:        movq    (r1)+,r8
        !            41:        movq    (r1)+,r10
        !            42:        movq    (r1)+,r12
        !            43:        movl    (r1)+,sp
        !            44:        jmp     *(r1)
        !            45: 
        !            46: _resexit:
        !            47:        .word   0x0000
        !            48:        movc3   $40,*4(ap),_setsav
        !            49:        ret
        !            50: _svkludg:
        !            51:        movl    (sp)+,out
        !            52:        movq    r0,myregs
        !            53:        movq    r2,myregs+8
        !            54:        movq    r4,myregs+16
        !            55:        subl2   $40,sp
        !            56:        movc3   $40,_setsav,(sp)
        !            57:        movq    myregs,r0
        !            58:        movq    myregs+8,r2
        !            59:        movq    myregs+16,r4
        !            60:        jmp     *out
        !            61: 
        !            62: _getexit:
        !            63:        .word   0x0000
        !            64:        movc3   $40,_setsav,*4(ap)
        !            65:        ret
        !            66: 
        !            67: 
        !            68:        .data
        !            69: _setsav:.space 10*4
        !            70: out:   .space  4
        !            71: myregs:        .space  6*4
        !            72: 

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