1# @(#)reset.s 4.1 (Berkeley) 12/21/80 2# C library -- reset, setexit 3 4# reset(x) 5# will generate a "return" from 6# the last call to 7# setexit() 8# by restoring r6 - r12, ap, fp 9# and doing a return. 10# The returned value is x; on the original 11# call the returned value is 0. 12# 13# useful for going back to the main loop 14# after a horrible error in a lowlevel 15# routine. 16 17.globl _setexit 18.globl _reset 19 20 .align 1 21_setexit: 22 .word 0x0000 23 movab setsav,r0 24 movq r6,(r0)+ 25 movq r8,(r0)+ 26 movq r10,(r0)+ 27 movq 8(fp),(r0)+ # ap, fp 28 movab 4(ap),(r0)+ # sp 29 movl 16(fp),(r0) # pc 30 clrl r0 31 ret 32 33 .align 1 34_reset: 35 .word 0x0000 36 movl 4(ap),r0 # returned value 37 movab setsav,r1 38 movq (r1)+,r6 39 movq (r1)+,r8 40 movq (r1)+,r10 41 movq (r1)+,r12 42 movl (r1)+,sp 43 jmp *(r1) 44 45 .data 46setsav: .space 10*4 47