Return to reset.s CVS log

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

Annotation of 40BSD/cmd/lisp/reset.s, revision 1.1.1.1

1.1       root        1:        .asciz  "@(#)reset.s    34.1    10/3/80"
                      2: # C library -- reset, setexit
                      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: # Changed by M. Marcus (4/4/80) to chain saved frames.  Should be rewritten
                     16: # to only use the stack, avoiding need for resexit and getexit.
                     17: # Setexit works as before, but getexit adds pointer
                     18: # to the saved block when it pushes saved state onto stack. 
                     19: # resexit restores this link by moving back extra word.
                     20: # getexit and setexit are to be thought of as an (almost) unitary action.
                     21: .globl _setexit
                     22: .globl _getexit
                     23: .globl _reset
                     24: .globl _resexit
                     25: .globl _setsav
                     26: .globl _exitlnk
                     27: .globl _svkludg
                     28: 
                     29: _setexit:
                     30:        .word   0x0000
                     31:        movab   _setsav,r0
                     32:        movq    r6,(r0)+
                     33:        movq    r8,(r0)+
                     34:        movq    r10,(r0)+
                     35:        movq    8(fp),(r0)+             # ap, fp
                     36:        movab   4(ap),(r0)+             # sp
                     37:        movl    16(fp),(r0)             # pc
                     38:        clrl    r0
                     39:        ret
                     40: 
                     41: _reset:
                     42:        .word   0x0000
                     43:        movl    4(ap),r0        # returned value
                     44:        movab   _setsav,r1
                     45:        movq    (r1)+,r6
                     46:        movq    (r1)+,r8
                     47:        movq    (r1)+,r10
                     48:        movq    (r1)+,r12
                     49:        movl    (r1)+,sp
                     50:        jmp     *(r1)
                     51: 
                     52: _resexit:
                     53:        .word   0x0000
                     54:        movc3   $44,*4(ap),_setsav
                     55:        ret
                     56: _svkludg:
                     57:        movl    (sp)+,out
                     58:        movq    r0,myregs
                     59:        movq    r2,myregs+8
                     60:        movq    r4,myregs+16
                     61:        subl2   $44,sp
                     62:        movc3   $44,_setsav,(sp)
                     63:        movq    myregs,r0
                     64:        movq    myregs+8,r2
                     65:        movq    myregs+16,r4
                     66:        jmp     *out
                     67: 
                     68: _getexit:
                     69:        .word   0x0000
                     70:        movc3   $44,_setsav,*4(ap)
                     71:        movl    4(ap), _exitlnk
                     72:        ret
                     73: 
                     74: #exitlnk is to be thought of as the last word of the setsav area (11 longs long)
                     75:        .data
                     76: _setsav:.space 10*4
                     77: _exitlnk:.space 4
                     78: out:   .space  4
                     79: myregs:        .space  6*4
                     80: 

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