Start:
		Call Init_LCD
		call Locate 0,0
		Call Print"Hallo"



		Set_Z_PTR Print_buf
		ldi	Dummy,0		;locate
		st 	Z+,Dummy
	        ldi	Dummy,0		;locate
		st      Z+,Dummy
		ldi	Dummy,5		;str_len
		st      Z+,Dummy

		call Read_screen	;!!!!!!!!!!! ????? 

		rcall CLS_T_dsip

		call Restore_screen    


END


;***********************************************************************************************
;***********************************************************************************************
;***********************************************************************************************
Read_screen:    Set_Z_PTR Print_buf
                ldi   	RxTxbyte,$46		      ;set csr
                rcall 	Comm
		ld    	RxTxbyte,Z+
                rcall 	Para
                ld    	RxTxbyte,Z+
                rcall 	Para
		ldi   	RxTxbyte,$43		      ;befehl lesen
                rcall 	Comm
 	      	
		clr	Dummy
	      	out	DDRC,Dummy		      ;Init I/O Port pins pordc eingänge
                ld	Dummy,Z+

Read_screen_1:	rcall Read		;		
                st    	Z+,RxTxbyte
                dec   	Dummy
                brne  	Read_screen_1
                ldi	Dummy,255
	      	out	DDRC,Dummy		      ;Init I/O Port pins pordc Ausgänge
                cbi	PortD,WR
		ret

;***********************************************************************************************

Restore_screen: 
		Set_Z_PTR Print_buf
                ldi   	RxTxbyte,$46
                rcall 	Comm
                ld    	RxTxbyte,Z+
                rcall 	Para
                ld    	RxTxbyte,Z+
                rcall 	Para 
                ldi   	RxTxbyte,$42
                rcall 	Comm
                ld    	Dummy,Z+

Restore_screen_1:
		ld	RxTxbyte,Z+
		rcall	Para
		dec	Dummy
		brne  	Restore_screen_1
                ret

;**** command **********************************************************************************
Comm:	        sbi   PortD,A0
                cbi   PortD,WR
		out   PortC,RxTxbyte	;setze Daten
		cbi   PortD,CS
                rcall Uebergabe		
		ret

;**** Parameter ********************************************************************************
Para:           cbi   PortD,A0
                out   PortC,RxTxbyte
		cbi   PortD,CS	        
		rcall Uebergabe
                ret

;**** Übergabe *********************************************************************************
Uebergabe:      sbi   PortD,RD  ;clock impuls
                nop
                nop
                cbi   PortD,RD
		sbi   PortD,CS
		ret

;**** Read *************************************************************************************

;  Hier funktioniert es nicht ich bekomme nur mülldaten

Read:		sbi   PortD,A0
		sbi   PortD,WR
		nop nop nop nop
		cbi   PortD,CS
		nop nop 

		sbi   PortD,RD		;clock impuls
		Delay_us 20
		in   RxTxbyte,PortC
		cbi   PortD,RD

            	sbi   PortD,CS

		ret
;***********************************************************************************************