DataMuseum.dk

top - download

    Length: 768 (0x300)
    Types: TextFile
    Names: »LC2UC.MAC«

└─⟦01b5c9619⟧ Bits:30005906 Microsoft Multiplan v1.05 og HELP
    └─ ⟦this⟧ »LC2UC.MAC« 

TextFile

;
;
;
;
;	Title		Lower-case to upper-case translation
;	Name:		LC2UC
;
;
;
;	Purpose:	Convert one ASCII character to upper case from
;			lower case if necessary
;
;	Entry:		Register A = Lower-case ASCII character
;
;	Exit:		Register A = Upper-case ASCII character if A
;			is lower case, else A is unchanged
;
;	Registers used:	AF
;
;	Time:		45 cycles if A is lower case, less otherwise
;
;	Size:		Program 11 bytes
;			Data     none
;
;
LC2UC:
	cp	'a'
	jr	c,exit		;Branch if < 'a' (Not lower case)
	cp	'z'+1
	jr	nc,exit		;Branch if > 'z' (not lower case)
	sub	'a'-'A'		;Change 'a'..'z' into 'A'..'Z'
exit:
	ret
«eof»