Return to vmshlp.mar CVS log

Up to [Apple XNU] / GNUtools / bison

Annotation of GNUtools/bison/vmshlp.mar, revision 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.