2.9BSD - /usr/src/ucb/m11/debug.m11

   1: .mcall  (at)    always
   2: .globl  $write,$indir
   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:    mov     #2,r0
  25:         tst     xx.flg
  26:         beq     100$
  27:         $indir
  28:         sys
  29: 100$:
  30:         mov     (sp)+,r0
  31:         return
  32: ndebug:
  33:         call    savreg
  34:         mov     r0,-(sp)
  35:         mov     #..s,r2
  36:         mov     ..z,r1
  37:         call    dnc
  38:         movb    #12,(r2)+
  39:         mov     r2,..n
  40:         sub     #..s,..n
  41:         br      ddd
  42: 
  43:         entsec  mixed
  44: sys:    $write
  45:         ..s
  46: ..n:    .blkw
  47: ..z:    .word
  48: ..s:    .blkw   100
  49: ..zbuf: .blkw   100
  50: 
  51:         .end