home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol089 / scapstr.mac < prev    next >
Text File  |  1984-04-29  |  615b  |  36 lines
  1. ;
  2. ; SYSLIB Module Name:  SCAPST
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    CAPSTR
  8. ; Module External References:
  9. ;    CAPS
  10. ;
  11.  
  12. ;
  13. ;  CAPSTR -- Capitalize String Pted to by HL
  14. ;    This routine simply capitalizes the <NULL>-terminated string
  15. ; pointed to by HL.  No Registers are affected.
  16. ;
  17.     EXT    CAPS
  18.  
  19. CAPSTR::
  20.     PUSH    PSW    ; SAVE REGS
  21.     PUSH    H
  22. CAPSLP:
  23.     MOV    A,M    ; GET CHAR
  24.     ORA    A    ; DONE?
  25.     JZ    CAPSDN
  26.     CALL    CAPS    ; CAPITALIZE IT
  27.     MOV    M,A    ; PUT IT BACK
  28.     INX    H    ; PT TO NEXT
  29.     JMP    CAPSLP
  30. CAPSDN:
  31.     POP    H    ; GET REGS
  32.     POP    PSW
  33.     RET
  34.  
  35.     END
  36.