# 2.11BSD#431 - /usr/src/new/m11/debug.m11

       1: .mcall  (at)    always
       2: .globl  $write
       3:
       4: .globl  ndebug,sdebug, ..z,..zbuf
       5: .globl  savreg,dnc
       6: .globl  xx.flg
       7: always
       8:
       9: xitsec
      10: sdebug:
      11:         call    savreg
      12:         mov     r0,-(sp)
      13:
      14:         mov     #..s,r2
      15:         mov     ..z,r3
      16:         mov     #2,r0
      17: 1$:     movb    (r3)+,(r2)+
      18:         beq     2$
      19:         inc     r0
      20:         br      1$
      21: 2$:
      22:         movb    #12,(r2)
      23:         mov     r0,..n
      24: ddd:
      25:         tst     xx.flg
      26:         beq     100$
      27:         mov     ..n,-(sp)       ;write(2, ..s, ..n)
      28:         mov     #..s,-(sp)
      29:         mov     #2,-(sp)
      30:         tst     -(sp)           ;simulate return address stack spacing
      31:         $write
      32:         add     #8.,sp          ;toss syscall cruft
      33: 100$:
      34:         mov     (sp)+,r0
      35:         return
      36: ndebug:
      37:         call    savreg
      38:         mov     r0,-(sp)
      39:         mov     #..s,r2
      40:         mov     ..z,r1
      41:         call    dnc
      42:         movb    #12,(r2)+
      43:         mov     r2,..n
      44:         sub     #..s,..n
      45:         br      ddd
      46:
      47:         entsec  mixed
      48: ..n:    .blkw
      49: ..z:    .word
      50: ..s:    .blkw   100
      51: ..zbuf: .blkw   100
      52:
      53:         .end

Last modified: 1987-02-27 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 552 |