Org	*
Capitalize:          
	Cjne	A,#'a',Periksa_Carry	;Acc A >= 'a'?
					;
Periksa_Carry:				;
	Jnc	lebih_kecil_z?		;Ya! periksa terhadap 'z'
	Ret				;Tidak! Tidak ada perubahan

lebih_kecil_z?:				;Acc A =< 'z'?  
	Cjne	A,#'z',Periksa_Carry2	;
	Ajmp	Kapital			;Ya! Ubah menjadi kapital

Periksa_Carry2:
	Jc	Kapital			;
	Ret				;Tidak! Tidak ada perubahan

Kapital:
	Clr	C
	Subb	A,#20H
	Ret