home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / c / plstsrc / tcstuff / strcmp.s < prev    next >
Encoding:
Text File  |  1989-01-15  |  1.2 KB  |  59 lines
  1.         .globl strcmp
  2.         .text
  3. strcmp: tst     a0
  4.         beq     h6a048
  5.         tst     a1
  6.         beq     h6a044                
  7. h6a000: move.b  (a0)+,d0        ;1
  8.         beq     h6a04c
  9.         cmp.b   (a1)+,d0
  10.         bne     h6a040
  11.  
  12.         move.b  (a0)+,d0        ;2
  13.         beq     h6a04c
  14.         cmp.b   (a1)+,d0
  15.         bne     h6a040
  16.  
  17.         move.b  (a0)+,d0        ;3
  18.         beq     h6a04c
  19.         cmp.b   (a1)+,d0
  20.         bne     h6a040
  21.  
  22.         move.b  (a0)+,d0        ;4
  23.         beq     h6a04c
  24.         cmp.b   (a1)+,d0
  25.         bne     h6a040
  26.  
  27.         move.b  (a0)+,d0        ;5
  28.         beq     h6a04c
  29.         cmp.b   (a1)+,d0
  30.         bne     h6a040
  31.  
  32.         move.b  (a0)+,d0        ;6
  33.         beq     h6a04c
  34.         cmp.b   (a1)+,d0
  35.         bne     h6a040
  36.  
  37.         move.b  (a0)+,d0        ;7
  38.         beq     h6a04c
  39.         cmp.b   (a1)+,d0
  40.         bne     h6a040
  41.  
  42.         move.b  (a0)+,d0        ;8
  43.         beq     h6a04c
  44.         cmp.b   (a1)+,d0
  45.         beq     h6a000
  46.  
  47. h6a040: cmp.b   -(a1),d0
  48.         bcs     h6a048
  49. h6a044: moveq.l #1,d0
  50.         rts
  51. h6a048: moveq.l #-1,d0
  52.         rts
  53.  
  54. h6a04c: tst.b   (a1)
  55.         bne     h6a048
  56.         moveq.l #0,d0
  57.         rts
  58.         .end
  59.