home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / lang / getpargs.sha / freepval.s < prev    next >
Text File  |  1985-01-17  |  455b  |  19 lines
  1. | freepval - Free space on the stack previously allocated with allocpval.
  2. |
  3. | Frees the requested number of bytes (must be even) from top of the stack.
  4. |
  5. |    freepval(numbytes);
  6. |
  7. | The number of bytes must correspond to that allocated with allocpval.
  8. |
  9. | History
  10. | 01/10/84    Moy    Created.
  11. |
  12.     .globl    freepval
  13. freepval:
  14.     movl    sp,a0        | current stack position
  15.     addl    sp@(4),a0    | new stack top
  16.     movl    sp@,a0@        | move return address
  17.     movl    a0,sp        | adjust stack
  18.     rts
  19.