ORG 1800H
LD A,1 ;
LD BC,STRING ; bc points to the string data in memory
LOOP: ;
LD A,(BC) ; Incarca A cu bitul din locatia BC
CP 0 ; Compara A cu 0(end of STRING data)
JR Z,EXIT ; Daca este egal cu 0 atunci sare la EXIT
RST $10 ; Afiseaza A pe ecran
INC BC ; Incrementeaza BC cu 1 pentru a sari la urmatorul bit
JR LOOP ; Sare la LOOP sa faca din nou
EXIT:
RET ; Ne intoarce la basic
STRING: ;
DEFB "Welcome to UP!"
DEFB 13,0 ; 13 este o noua linie si 0 inseamna sfarsit de data