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 / ZSYS / SIMTEL20 / SYSLIB / SLIB1.LBR / SCAPSTR.Z80 < prev    next >
Text File  |  2000-06-30  |  640b  |  33 lines
  1. ;
  2. ; SYSLIB Module Name:  SCAPST
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    capstr
  8.  
  9. ;
  10. ;  CAPSTR -- Capitalize String Pted to by HL
  11. ;    This routine simply capitalizes the <NULL>-terminated string
  12. ; pointed to by HL.  No Registers are affected.
  13. ;
  14.     EXT    CAPS
  15.  
  16. CAPSTR:
  17.     PUSH    AF    ; SAVE REGS
  18.     PUSH    HL
  19. CAPSLP:
  20.     LD    A,(HL)    ; GET CHAR
  21.     OR    A    ; DONE?
  22.     JP    Z,CAPSDN
  23.     CALL    CAPS    ; CAPITALIZE IT
  24.     LD    (HL),A    ; PUT IT BACK
  25.     INC    HL    ; PT TO NEXT
  26.     JP    CAPSLP
  27. CAPSDN:
  28.     POP    HL    ; GET REGS
  29.     POP    AF
  30.     RET
  31.  
  32.     END
  33.