mirror of
https://git.savannah.gnu.org/git/bison.git
synced 2026-03-17 00:03:03 +00:00
Add non-RCS files from /gd/gnu/bison.
This commit is contained in:
42
src/vmshlp.mar
Normal file
42
src/vmshlp.mar
Normal file
@@ -0,0 +1,42 @@
|
||||
;/* 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
|
||||
Reference in New Issue
Block a user