Return to SETRACE.s CVS log

Up to [Research Unix] / researchv10dc / cmd / pascal / libpc

Annotation of researchv10dc/cmd/pascal/libpc/SETRACE.s, revision 1.1.1.1

1.1       root        1: # Copyright (c) 1979 Regents of the University of California
                      2: #
                      3: # sccsid[] = "@(#)SETRACE.s 1.2 3/18/81";
                      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:        .set    PSW,4
                     11:        .set    FP,12
                     12: 
                     13:        .globl  _SETRACE
                     14: _SETRACE:
                     15:        .word   0
                     16:        movl    FP(fp),r0       #r0 has ptr to callers frame
                     17:        bisl2   $0x10,PSW(r0)   #set trace bit
                     18:        ret

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