diff options
author | marha <marha@users.sourceforge.net> | 2010-11-19 13:18:48 +0000 |
---|---|---|
committer | marha <marha@users.sourceforge.net> | 2010-11-19 13:18:48 +0000 |
commit | 12f606ce06ef926f366a03079c5e3107c23f18af (patch) | |
tree | 28d7be4328bca9c31c1ab0f7cb5924c196be23a0 /tools/bison++/vmshlp.mar | |
parent | 773752eab55047c33bad0d88006bb69f5c601502 (diff) | |
download | vcxsrv-12f606ce06ef926f366a03079c5e3107c23f18af.tar.gz vcxsrv-12f606ce06ef926f366a03079c5e3107c23f18af.tar.bz2 vcxsrv-12f606ce06ef926f366a03079c5e3107c23f18af.zip |
Added tool bison++-1.21.11
Diffstat (limited to 'tools/bison++/vmshlp.mar')
-rw-r--r-- | tools/bison++/vmshlp.mar | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/tools/bison++/vmshlp.mar b/tools/bison++/vmshlp.mar new file mode 100644 index 000000000..637d170d5 --- /dev/null +++ b/tools/bison++/vmshlp.mar @@ -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 |