| 12345678910111213141516171819202122232425262728293031323334353637383940414243 |
- ;/* 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
|
