home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / powerd / lib / PowerD / UpperStr.ass < prev    next >
Encoding:
Text File  |  1999-09-21  |  263 b   |  17 lines
  1. ; (4,a7) - string
  2.  
  3.     xdef    _UpperStr
  4.  
  5. _UpperStr    move.l    (4,a7),a0
  6.     move.l    a0,d0        ; return value
  7. .loop    move.b    (a0)+,d1
  8.     beq.s    .finish
  9.     cmp.b    #97,d1
  10.     blt.s    .loop
  11.     cmp.b    #123,d1
  12.     bgt.s    .loop
  13.     sub.b    #32,d1
  14.     move.b    d1,(-1,a0)
  15.     bra.s    .loop
  16. .finish    rts            ; d0 is set above
  17.