Return to vmshlp.mar CVS log

Up to [Apple XNU] / GNUtools / bison

Annotation of GNUtools/bison/vmshlp.mar, revision 1.1.1.1

1.1       root        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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.