home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / gccdist / gcc-src / vms / gcclib / bcmp.mar < prev    next >
Encoding:
Text File  |  1991-02-27  |  336 b   |  28 lines
  1.     .TITLE    BCMP    Compare 2 strings of bytes
  2.     .IDENT    /1.00/
  3.  
  4.  
  5.  
  6.     .PSECT    $CODE,LONG,PIC,REL,SHR,EXE,RD,NOWRT
  7.  
  8. ; bcmp(s1, s2, n)
  9.  
  10.     .ENTRY    BCMP,^M<R2,R3,R4,R5>
  11.     MOVL    4(AP),R1
  12.     MOVL    8(AP),R3
  13.     MOVL    12(AP),R4
  14. 1$:
  15.     MOVZWL    #65535,R0
  16.     CMPL    R4,R0
  17.     BLEQ    2$
  18.     SUBL2    R0,R4
  19.     CMPC3    R0,(R1),(R3)
  20.     BEQL    1$
  21.     ADDL2    R4,R0
  22.     RET
  23. 2$:
  24.     CMPC3    R4,(R1),(R3)
  25.     RET
  26.  
  27.     .END
  28.