home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gnubison.zip / vmshlp.mar < prev    next >
Text File  |  1987-09-23  |  2KB  |  43 lines
  1. ;/* Macro help routines for the BISON/VMS program
  2. ;   Gabor Karsai, Vanderbilt University
  3. ;
  4. ;BISON is distributed in the hope that it will be useful, but WITHOUT ANY
  5. ;WARRANTY.  No author or distributor accepts responsibility to anyone
  6. ;for the consequences of using it or for whether it serves any
  7. ;particular purpose or works at all, unless he says so in writing.
  8. ;Refer to the BISON General Public License for full details.
  9. ;
  10. ;Everyone is granted permission to copy, modify and redistribute BISON,
  11. ;but only under the conditions described in the BISON General Public
  12. ;License.  A copy of this license is supposed to have been given to you
  13. ;along with BISON so you can know your rights and responsibilities.  It
  14. ;should be in a file named COPYING.  Among other things, the copyright
  15. ;notice and this notice must be preserved on all copies.
  16. ;
  17. ; In other words, you are welcome to use, share and improve this program.
  18. ; You are forbidden to forbid anyone else to use, share and improve
  19. ; what you give them.   Help stamp out software-hoarding!  */
  20. ;
  21.         .psect  vmshlp  pic,usr,rel,ovr,shr,long,exe,nowrt
  22.  
  23. alloca::
  24.         .word   0
  25.         subl2   ^X4(ap),sp
  26.         movl    ^X10(fp),r1
  27.         movq    ^X8(fp),ap
  28.         bicl2   #03,sp
  29.         addl2   #^X1c,sp
  30.         movl    sp,r0
  31.         jmp     (r1)
  32.  
  33. bcopy::
  34.         .word   ^X0e00
  35.         movl    ^X04(ap),r11
  36.         movl    ^X08(ap),r10
  37.         movl    ^X0c(ap),r9
  38.         brb     1$
  39. 2$:     movb    (r10)+,(r11)+
  40. 1$:     sobgeq  r9,2$
  41.         ret
  42.         .end
  43.