home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / s5 / reset.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  423 b   |  32 lines
  1. / C library -- reset, setexit
  2.  
  3. /    reset()
  4. / will generate a "return" from
  5. / the last call to
  6. /    setexit()
  7. / by restoring sp, r5
  8. / and doing a return.
  9. /
  10. / useful for going back to the main loop
  11. / after a horrible error in a lowlevel
  12. / routine.
  13.  
  14. .globl    _setexit
  15. .globl    _reset
  16. .globl    csv, cret
  17.  
  18. _setexit:
  19.     jsr    r5,csv
  20.     mov    r5,sr5
  21.     mov    2(r5),spc
  22.     jmp    cret
  23.  
  24. _reset:
  25.     mov    sr5,r5
  26.     mov    spc,2(r5)
  27.     jmp    cret
  28.  
  29. .bss
  30. sr5:    .=.+2
  31. spc:    .=.+2
  32.