7x40 displayde kayan yazı nasıl oluşturulur

[mhefil]

arkadaşlar elimdeki örnek koddan yola çıkarak 7x40lık bir ekranda İSTANBUL ÜNİVERSİTESİ yazarak sağa kaydırmak istiyorum..
birde sadece İSTANBUL yazıp alltan yukarı kaydırmayla yazının görünmesini istiyorum.
acaba bu kodda neler değiştirmeliyim.

teşekkürler.

list	P=16F877
include   P16F877.ınc
_CONFIG_CP_OFF &_WDT_OFF &_BODEN_ON &_PWRTE_ON &_WRT_ENABLE_OFF &_LVP_OFF &_DEBUG_OFF &_CPD_OFF
org	0	;reset vektoru
;değişken atama
cblock h'20'
count1
count2
count3
Var
Varl
	endc
Clock	equ	1
Latch	equ	2
Datat	equ	0
ilk
	bcf	STATUS,0
	bsf	STATUS,RPO
	movlw	b'00000111'
	movwf	ADCON1
	CLRF	TRISD
	CLRF	TRISE
	bcf	STATUS,RPO
	clrf	PORTD
	clrf	VAR
;ana program
	movlw	B'00000001'
	movlw	PORTD
basla
	movlw	B'00000000'	;8.display
	movwlf		VAR
	call	gonder
	movlw	B'00000000'	;7.display
	movwlf		VAR
	call	gonder
movlw	B'00000000'	;6.display
	movwlf		VAR
	call	gonder
movlw	B'00000000'	;5.display
	movwlf		VAR
	call	gonder
movlw	B'00000000'	;4.display
	movwlf		VAR
	call	gonder
movlw	B'00000000'	;3.display
	movwlf		VAR
	call	gonder
movlw	B'00000000'	;2.display
	movwlf		VAR
	call	gonder
movlw	B'00011111'	;1.display
	movwlf		VAR
	call	gonder
	call	lac
	call	gecikme1
	goto	basla
;5 bit seri bilginin gönderilmesi
gonder
	movlw	.5
	movwf	Varl
Loop
	rrf	Var,f
	
btfss	STATUS,C
	bcf	PORTE,Datat
btfsc	STATUS,C
	bcf	PORTE,Datat
	
bsf	PORTE,Clock
	nop
	bcf	PORTE,Clock
	decfsz	Varl,f
	goto	Loop
	return
;lac işlemi
lac
	bsf	PORTE,Latc
	nop
	bcf	PORTE,Lach
	return
 
gecikme1
	return
	movlw	.3
	movwf	count1
	movlw	.135
	movwf	count2
dloop1
	decfsz	count2,f
	goto	dloop1
	decfsz	count1,f
	goto	dloop1
	return
end