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 / fpdata / treen.s < prev    next >
Encoding:
Text File  |  1980-02-17  |  392 b   |  34 lines
  1. .data
  2. /
  3. / Routines to save space on tree calls
  4. /
  5. .globl _tree, _tree1, _tree2, _tree3, _tree4, _tree5
  6. /
  7. _tree1:
  8.     mov    (sp),trret
  9.     mov    $1,(sp)
  10.     br    1f
  11. _tree2:
  12.     mov    (sp),trret
  13.     mov    $2,(sp)
  14.     br    1f
  15. _tree3:
  16.     mov    (sp),trret
  17.     mov    $3,(sp)
  18.     br    1f
  19. _tree4:
  20.     mov    (sp),trret
  21.     mov    $4,(sp)
  22.     br    1f
  23. _tree5:
  24.     mov    (sp),trret
  25.     mov    $5,(sp)
  26. 1:
  27.     mov    $1f,-(sp)
  28.     jmp    _tree
  29. 1:
  30.     tst    (sp)+
  31.     jmp    *trret
  32. .bss
  33. trret:    . = .+2
  34.