home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / assubs / sep.s < prev   
Encoding:
Text File  |  1980-02-17  |  167 b   |  20 lines
  1.     .globl    _sep
  2. _sep:
  3.     clr    r0
  4.     sys    61.
  5.     cmp    r0,0
  6.     bne    succeed
  7.     inc    0
  8.     clr    r0
  9.     sys    61.
  10.     cmp    r0,0
  11.     beq    fail
  12.     dec    0
  13. succeed:
  14.     mov    $1,r0
  15.     rts    pc
  16. fail:
  17.     dec    0
  18.     clr    r0
  19.     rts    pc
  20.