home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pi1 / putn.s < prev    next >
Text File  |  1980-02-17  |  333b  |  30 lines
  1. .text
  2. /
  3. / routines to save space on put calls
  4. /
  5. .globl _put, _put1, _put2, _put3, _put4
  6. /
  7. _put1:
  8.     mov    (sp),putret
  9.     mov    $1,(sp)
  10.     br    1f
  11. _put2:
  12.     mov    (sp),putret
  13.     mov    $2,(sp)
  14.     br    1f
  15. _put3:
  16.     mov    (sp),putret
  17.     mov    $3,(sp)
  18.     br    1f
  19. _put4:
  20.     mov    (sp),putret
  21.     mov    $4,(sp)
  22. 1:
  23.     mov    $1f,-(sp)
  24.     jmp    _put
  25. 1:
  26.     tst    (sp)+
  27.     jmp    *putret
  28. .bss
  29. putret: .=.+2
  30.