home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / putdec.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  309 b   |  30 lines
  1. .globl putch,obuild
  2. .globl putdec
  3.  
  4. putdec:
  5.     tst    r0
  6.     bge    1f
  7.     cmp    r0,$100000
  8.     beq    2f
  9.     mov    r0,-(sp)
  10.     mov    $'-,r0
  11.     jsr    pc,putch
  12.     mov    (sp)+,r0
  13.     neg    r0
  14. 1:
  15.     alsc    $-16.,r0
  16.     dvd    $10.,r0
  17.     beq    1f
  18.     mov    r1,-(sp)
  19.     jsr    pc,1b
  20.     mov    (sp)+,r1
  21. 1:
  22.     mov    r1,r0
  23.     add    $'0,r0
  24.     jmp    putch
  25. 2:
  26.     mov    $1f,r0
  27.     jmp    obuild
  28. 1:
  29.         <-32768\0>;.even
  30.