home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 6 / 01 / mini-compiler / mini.ampk / Mini-Compiler / asm / Strgr.Lib < prev    next >
Encoding:
Text File  |  1995-06-01  |  809 b   |  34 lines
  1.        Idnt    _Strgr
  2.        Section _StrGr,COde
  3.  
  4.        Xdef Str_kl
  5.  
  6.     ; Stand 3-Jun-93
  7.     ; 
  8.     ; Umgestellt auf 256 Bytes pro String
  9.  
  10. Str_kl:    MOVEA.L    (A7)+,A4     ; RTS - Adresse
  11.            CLR.L     D0
  12.           CLR.L   D7            ; Ergebnis (False als Default)
  13.           CLR.L   D2
  14.     Move.l  a7,a0         ; Adresse String 1
  15.           move.b  (sp)+,d0         ; Log. Länge 1
  16.     Move.l  a7,a1    
  17.     adda.l    #256,a1         ; Adresse String 2
  18.         move.b     (a1)+,d2       ; Log. Länge 2
  19. loop      tst.l   d2               ; Leerstring ?
  20.           beq.s   true
  21.           tst.l   d0
  22.           beq.s   exit
  23.           cmpm.b  (a0)+,(a1)+
  24.     bmi.s   true
  25.           bne.s   exit
  26.           subq.l  #1,d0
  27.           subq.l  #1,d2
  28.           bra.s   loop
  29. true      not.l   d7               ; True
  30. exit    adda.l    #512,a7             ; Strings vom Stack entfernen
  31.            MOVE.W  D7,-(sp)
  32.     jmp    (a4)
  33.  END
  34.