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     ! 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.