home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / BEEHIVE / ZCAT / STR.LBR / STRUPR.AS < prev    next >
Text File  |  2000-06-30  |  256b  |  22 lines
  1.     psect    text
  2.     
  3.     global    _strupr, toupr
  4.  
  5. _strupr:
  6.     pop    de
  7.     pop    hl
  8.     push    hl
  9.     push    de
  10.  
  11.     ld    d,h
  12.     ld    e,l
  13.  
  14. 1:    ld    a,(de)
  15.     or    a
  16.     ret    z
  17.  
  18.     call    toupr
  19.     ld    (de),a
  20.     inc    de
  21.     jr    1b
  22.