home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / OTL-MC6.DMS / in.adf / libsrc.lha / LIBSRC / string_tok.asm < prev    next >
Encoding:
Assembly Source File  |  1994-04-16  |  565 b   |  38 lines
  1.  
  2. * Maxon C++ Library:
  3. * Modul "string_tok"
  4. * Jens Gelhar 11.09.91, 16.04.94
  5.  
  6.     xdef    _strtok,strtok__PcPCc
  7.  
  8.     xref    strpbrk__PCcPCc
  9.  
  10. _strtok:
  11. strtok__PcPCc:
  12.     tst.l    4(a7)
  13.     bne.b    firstcall
  14.     move.l    Pointer(pc),d0
  15.     move.l    d0,4(a7)
  16.     beq.b    naffink
  17. firstcall
  18.     move.l    8(a7),-(a7)
  19.     move.l    8(a7),-(a7)
  20.     jsr    strpbrk__PCcPCc        ; strpbrk mit selben Parametern
  21.     addq.l    #8,a7
  22.     tst.l    d0
  23.     beq.b    naffink
  24.     ; Eintrag gefunden:
  25.     exg    d0,a0
  26.     clr.b    (a0)+
  27.     move.l    a0,Pointer
  28.     exg    d0,a0
  29. ende    move.l    4(a7),d0
  30.     rts
  31. naffink    ; garnichts gefunden:
  32.     move.l    d0,Pointer
  33.     bra.b    ende
  34.  
  35. Pointer    dc.l    0
  36.  
  37.     end
  38.