        LJUMP start
        ORG 03h
	SJMP end
	ORG 20h
start: 	adr_ERAM EQU 11h    ;def stalej adr_ERAM i wpisanie do niej adresu pam zewn ERAM
	MOV R0,#FF          ;Ilosc liter, ktore pozostaly do wykorzystania 
        MOV DPTR,#adr_ERAM
	CLR A
	MOV B,A	            ;kopia zapasowa A

petla: 	PUSH DPH            ;zapamietuje adres w pamieci ERAM
	PUSH DPL            ;gdzie kopiuje string
	MOV DPTR,#tab_zn    ;wpisuje adres stringu do DPTR
	MOVC A,@A+DPTR	    ;kopiuje wskazany bajt z EPROM do A
	JZ end              ;nie przepisuje 0 do ERAM
	POP DPL             ;zdejmuje adres w pamieci ERAM ze stosu
	POP DPH             ; i wpisuje go do DPTR
	MOVX @DPTR,A        ;kopiuje z A do pamieci zewnetrznej ERAM
	INC B               ;nastepny adres EPROM (kolejna litera)
	MOV A,B
	INC DPTR            ;kolejny adres w pamieci ERAM
	DJNZ R0,petla

end: 	MOV DPTR,#10
	MOV A,R0
	MOV @DPTR,A
	SJMP $
	ORG 40h

tab_zn: DB 'Ble Ble Ble'    ;wpisuje lancuch znakow do EPROM
	DB 0                ;konczy string '0' moze 
