|
|
1.1 ! root 1: # Copyright (c) 1979 Regents of the University of California ! 2: # ! 3: # sccsid[] = "@(#)SETRACE.s 1.1 10/29/80"; ! 4: # ! 5: # set trace bit in return frame of calling routine ! 6: # this will cause core dump at point of return ! 7: # unless running a debugger, in which case a breakpoint ! 8: # will occur at the error point ! 9: # ! 10: .globl _SETRACE ! 11: _SETRACE: ! 12: .word 0 ! 13: movl FP(fp),r0 #r0 has ptr to callers frame ! 14: bisl2 $0x10,PSW(r0) #set trace bit ! 15: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.