Tæl karakter i streng
Print antal

byte strlen(str)  
reference til streng og resultat koerer rem og tilbage i A register

------
 
	JMP start
hello: DB "AB" ; Variable
       DB 0	; String terminator

start:
	MOV A, hello  ; ref to streng
	CALL strlen
	MOV B,255
	ADD A,0x30
	CALL prtbyte
	HLT
 
; input  A: ref til streng der skal findes laengde på
;           streng skal være 0 termineret
; output A: antal bytes i streng excl 0 karakter
; do not scramble any registers
strlen:
	PUSH B  ; used as counter
	PUSH C  ; used to hold byet to be tested
	MOV B,0
strlop:	MOV C,[A]
	CMP C,0
	JZ strexit
	INC A
	INC B
	JMP strlop
strexit:
	MOV A, B  ; save result
	POP C
	POP B
	RET
; ende strlen funktion 

; A chr to be printed
; B: position in memory (last display char is at 0xff/255
prtbyte:
	MOV [B], A
	RET