home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / unary.s < prev   
Encoding:
Text File  |  1975-05-13  |  168 b   |  28 lines
  1. .globl succ
  2. .globl .ng,.nt,.cm
  3.  
  4. / !
  5.  
  6. .nt:
  7.     tst    (sp)
  8.     beq    1f
  9.     clr    (sp)
  10.     br    9f
  11. 1:
  12.     mov    $1,(sp)
  13.     br    9f
  14.  
  15. /unary -
  16.  
  17. .ng:
  18.     neg    (sp)
  19.     br    9f
  20.  
  21. / ~
  22.  
  23. .cm:
  24.     com    (sp)
  25.  
  26. 9:
  27.     jmp    succ
  28.