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: 1601
Valid CSS Valid XHTML 1.0 Strict