;
; SYSLIB Module Name:  SCAPST
; Author:  Richard Conn
; SYSLIB Version Number:  2.0
; Module Version Number:  1.0
; Module Entry Points:
;       CAPSTR
; Module External References:
;       CAPS
;

;
;  CAPSTR -- Capitalize String Pted to by HL
;       This routine simply capitalizes the <NULL>-terminated string
; pointed to by HL.  No Registers are affected.
;
       EXT     CAPS

CAPSTR::
       PUSH    PSW     ; SAVE REGS
       PUSH    H
CAPSLP:
       MOV     A,M     ; GET CHAR
       ORA     A       ; DONE?
       JZ      CAPSDN
       CALL    CAPS    ; CAPITALIZE IT
       MOV     M,A     ; PUT IT BACK
       INX     H       ; PT TO NEXT
       JMP     CAPSLP
CAPSDN:
       POP     H       ; GET REGS
       POP     PSW
       RET

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.