[bison.git] / src / 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
Commit	Line	Data
c55c697e JT	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