src/vmshlp.mar

   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