home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / asmlib1.lbr / CAPSTR.AYM / CAPSTR.AYM
Encoding:
Text File  |  1994-05-31  |  768 b   |  33 lines
  1. ;----------------------------------------------------------------
  2. ;         This is a module in the ASMLIB library.
  3. ;
  4. ; This routine will capitalize the standard string pointed to by DE
  5. ; using the CAPS external routine.
  6. ;
  7. ;            Written            R.C.H.      1/10/83
  8. ;            Last Update    R.C.H.        1/10/83
  9. ;----------------------------------------------------------------
  10. ;
  11.     name    'capstr'
  12.     public    capstr
  13.     extrn    caps
  14.     maclib    z80
  15. ;
  16. capstr:
  17.     ldax    d            ; Get length
  18.     ora    a
  19.     rz                ; Exit if string empty
  20.     mov    b,a            ; Load as a counter
  21. caploop:
  22.     inx    d
  23.     ldax    d            ; Get a character
  24.     call    caps
  25.     stax    d            ; Send back the capitalized character
  26.     djnz    caploop            ; Keep on for all string
  27. ;
  28.     ret
  29.  
  30.     end
  31.  
  32.  
  33.