www.pudn.com > bison.zip > vmshlp.mar

;/* Macro help routines for the BISON/VMS program 
;   Gabor Karsai, Vanderbilt University 
; 
;BISON is distributed in the hope that it will be useful, but WITHOUT ANY 
;WARRANTY.  No author or distributor accepts responsibility to anyone 
;for the consequences of using it or for whether it serves any 
;particular purpose or works at all, unless he says so in writing. 
;Refer to the BISON General Public License for full details. 
; 
;Everyone is granted permission to copy, modify and redistribute BISON, 
;but only under the conditions described in the BISON General Public 
;License.  A copy of this license is supposed to have been given to you 
;along with BISON so you can know your rights and responsibilities.  It 
;should be in a file named COPYING.  Among other things, the copyright 
;notice and this notice must be preserved on all copies. 
; 
; In other words, you are welcome to use, share and improve this program. 
; You are forbidden to forbid anyone else to use, share and improve 
; what you give them.   Help stamp out software-hoarding!  */ 
; 
        .psect  vmshlp  pic,usr,rel,ovr,shr,long,exe,nowrt 
 
alloca:: 
        .word   0 
        subl2   ^X4(ap),sp 
        movl    ^X10(fp),r1 
        movq    ^X8(fp),ap 
        bicl2   #03,sp 
        addl2   #^X1c,sp 
        movl    sp,r0 
        jmp     (r1) 
 
bcopy:: 
        .word   ^X0e00 
        movl    ^X04(ap),r11 
        movl    ^X08(ap),r10 
        movl    ^X0c(ap),r9 
        brb     1$ 
2$:     movb    (r10)+,(r11)+ 
1$:     sobgeq  r9,2$ 
        ret 
        .end