SOM forrige eksempel, blot overføres ref til streng på stak
	JMP start
hello: DB "AB" ; Variable
       DB 0	; String terminator

start:
	PUSH hello  ; ref to streng
	CALL strlen
	MOV B,255
	ADD A,0x30
	CALL prtbyte
	HLT
 
; input  på stak ref til streng
; stak som den ser ud lige efter call til strlen
; SP+4 | ref til streng               |
; SP+3 | return addr from CALL strlen | 
; SP+2 | B  |
; SP+1 | C  |
; SP ->| første ledige på stak |  
; output A: antal bytes i streng excl 0 karakter
; do not scramble any registers
strlen:
	PUSH B  
	PUSH C  
	MOV B, [SP+4]
	MOV A,0 ; inital count
	MOV C,0 ; for testing (0)
strlop:		
	CMP C, [B]
	JZ strexit
	INC A
	INC B
	JMP strlop
strexit:
	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