Program membuat running text

salam shodiq punya blogspot disini admin memberikan salah satu program membuat running text. postingan ini merupakan lanjutan dari cara membuat running texttanpa basa - basi admin akan memberkannya. simak  baik - baiknya
yuk cikidooot :)
berikut ini salah satu program membuat running text :


mulai:
acall ulangi                    
sjmp mulai

ulangi:
Mov dptr,#tulis_1

acall tampil          
tampil:
clr a                
Movc a,@a+dptr  
cjne a,#00h,kirim    
ret

Kirim:
acall terima        
acall tunda    
inc dptr          
sjmp tampil    

Terima:
Mov sbuf,a                  
jnb ti,$                      
clr ti                              
Ret          

Tunda:                        
Mov r7,#0ffh
Tnd:
Mov r6,#0ffh
djnz r6,$      
djnz r7,Tnd    
ret


tulis_1:
db 80h,26h,49h,49h,49h,32h,80h ; S
db 80h,7fh,49h,49h,49h,41h,80h   ; E
db 80h,7fh,40h,40h,40h,40h,80h ; L
db 80h,7eh,11h,11h,11h,7eh,80h   ; A
db 80h,7fh,82h,8ch,82h,7fh,80h ; M
db 80h,7eh,11h,11h,11h,7eh,80h   ; A
db 80H,01h,01h,7Fh,01h,01h,80h   ; T
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7fh,41h,41h,41h,3eh,80h   ; D
db 80h,7eh,11h,11h,11h,7eh,80h   ; A
db 80H,01h,01h,7Fh,01h,01h,80h   ; T
db 80h,7eh,11h,11h,11h,7eh,80h   ; A
db 80h,7fh,02h,04h,08h,7fh,80h ; N
db 80H,3eh,41h,49h,49h,3ah,80H   ; G
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7fh,41h,41h,41h,3eh,80h   ; D
db 80h,41h,7fh,41h,80h         ; I
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80H,01h,01h,7Fh,01h,01h,80h   ; T
db 80h,41h,7fh,41h,80h         ; I
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7fh,09h,09h,09h,06h,80h   ; P
db 00h,7fh,7fh,00h,00h,00h ; 1
db 39h,49h,49h,49h,0eh,00h ; 2
db 3eh,41h,41h,41h,3eh,00h ; 0
db 00h,7fh,7fh,00h,00h,00h ; 1
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7fh,41h,41h,41h,22h,80h  ; C
db 80h,7eh,08h,08h,08h,7fh,80h  ; H
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,7fh,02h,04h,08h,7fh,80h  ; N
db 80h,41h,7fh,41h,80h         ; I
db 80h,7fh,09h,09h,09h,01h,80h  ; F
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,07fh,09h,19h,29h,46h,80h  ; R
db 80h,7fh,09h,09h,09h,01h,80h  ; F
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,7fh,02h,04h,08h,7fh,80h  ; N
db 80h,41h,7fh,41h,80h         ; I
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 00h,7fh,7fh,00h,00h,00h ; 1
db 39h,49h,49h,49h,0eh,00h ; 2
db 00h,7fh,7fh,00h,00h,00h ; 1
db 00h,7fh,7fh,00h,00h,00h ; 1
db 3eh,41h,41h,41h,3eh,00h ; 0
db 3eh,41h,41h,41h,3eh,00h ; 0
db 0Fh,14h,24h,07Fh,04h,00h; 4
db 0Fh,14h,24h,07Fh,04h,00h; 4
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,07fh,09h,19h,29h,46h,80h  ; R
db 80h,07fh,49h,49h,49h,41h,80h  ; E
db 80h,061h,51h,049h,45h,43h,80h ; Z
db 80h,7eh,11h,11h,11h,7eh,80h   ; A
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,07fh,09h,19h,29h,46h,80h  ; R
db 80h,00h,00h,7fh,00h,00h,80h  ; I
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,7fh,02h,04h,08h,7fh,80h  ; N
db 80h,26h,49h,49h,49h,32h,80h  ; S
db 80h,01h,02h,7ch,02h,01h,80h  ; Y
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,7eh,08h,08h,08h,7fh,80h  ; H
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 00h,7fh,7fh,00h,00h,00h ; 1
db 39h,49h,49h,49h,0eh,00h ; 2
db 00h,7fh,7fh,00h,00h,00h ; 1
db 00h,7fh,7fh,00h,00h,00h ; 1
db 3eh,41h,41h,41h,3eh,00h ; 0
db 3eh,41h,41h,41h,3eh,00h ; 0
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7fh,49h,49h,49h,41h,80h  ; E
db 80h,7fh,02h,04h,08h,7fh,80h  ; N
db 80h,7fh,02h,04h,02h,7fh,80h  ; M
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,26h,49h,49h,49h,32h,80h  ; S
db 80h,01h,02h,7ch,02h,01h,80h  ; Y
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,7eh,08h,08h,08h,7fh,80h  ; H
db 80h,7fh,09h,09h,09h,06h,80h  ; P
db 80h,3fh,40h,40h,40h,3fh,80h  ; U
db 80h,01h,01h,7fh,01h,01h,80h  ; T
db 80h,7fh,09h,19h,29h,46h,80h  ; R
db 80h,00h,00h,7fh,00h,00h,80h  ; I
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 00h,7fh,7fh,00h,00h,00h ; 1
db 39h,49h,49h,49h,0eh,00h ; 2
db 00h,7fh,7fh,00h,00h,00h ; 1
db 00h,7fh,7fh,00h,00h,00h ; 1
db 3eh,41h,41h,41h,3eh,00h ; 0
db 3eh,41h,41h,41h,3eh,00h ; 0
db 79h,49h,49h,49h,46h,00h ;5
db 49h,49h,49h,49h,7Eh,00h ; 3
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7fh,41h,41h,41h,22h,80h  ; C
db 80h,41h,7fh,41h,80h         ; I
db 80h,01h,01h,7fh,01h,01h,80h  ; T
db 80h,7fh,09h,19h,29h,46h,80h  ; R
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7fh,09h,09h,09h,06h,80h  ; P
db 80h,3fh,40h,40h,40h,3fh,80h  ; U
db 80h,20h,40h,40h,40h,3fh,80h  ; J
db 80h,00h,00h,7fh,00h,00h,80h  ; I
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7fh,40h,40h,40h,40h,80h  ; L
db 80h,7fh,49h,49h,49h,41h,80h  ; E
db 80h,26h,49h,49h,49h,32h,80h  ; S
db 80h,01h,01h,7fh,01h,01h,80h  ; T
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,7fh,09h,19h,29h,46h,80h  ; R
db 80h,00h,00h,7fh,00h,00h,80h  ; I
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 00h,7fh,7fh,00h,00h,00h ; 1
db 39h,49h,49h,49h,0eh,00h ; 2
db 00h,7fh,7fh,00h,00h,00h ; 1
db 00h,7fh,7fh,00h,00h,00h ; 1
db 3eh,41h,41h,41h,3eh,00h ; 0
db 3eh,41h,41h,41h,3eh,00h ; 0
db 79h,49h,49h,49h,46h,00h ;5
db 3eh,41h,41h,41h,3eh,00h ; 0
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7fh,40h,40h,40h,40h,80h  ; L
db 80h,01h,02h,7ch,02h,01h,80h  ; Y
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,26h,49h,49h,49h,32h,80h  ; S
db 80h,01h,02h,7ch,02h,01h,80h  ; Y
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,7eh,08h,08h,08h,7fh,80h  ; H
db 80h,7fh,09h,09h,09h,01h,80h  ; F
db 80h,00h,00h,7fh,00h,00h,80h  ; I
db 80h,01h,01h,7fh,01h,01h,80h  ; T
db 80h,7fh,09h,19h,29h,46h,80h  ; R
db 80h,00h,00h,7fh,00h,00h,80h  ; I
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 00h,7fh,7fh,00h,00h,00h ; 1
db 39h,49h,49h,49h,0eh,00h ; 2
db 00h,7fh,7fh,00h,00h,00h ; 1
db 00h,7fh,7fh,00h,00h,00h ; 1
db 3eh,41h,41h,41h,3eh,00h ; 0
db 3eh,41h,41h,41h,3eh,00h ; 0
db 79h,49h,49h,49h,46h,00h ;5
db 40h,43h,40h,48h,70h,00h ;7
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7eh,08h,08h,08h,7fh,80h  ; H
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,7fh,09h,09h,09h,01h,80h  ; F
db 80h,41h,7fh,41h,80h         ; I
db 80h,20h,40h,40h,40h,3fh,80h  ; J
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80H,01h,01h,7Fh,01h,01h,80h  ; T
db 80h,3fh,40h,40h,40h,3fh,80h  ; U
db 80h,7fh,40h,40h,40h,40h,80h ; L
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 80h,7eh,08h,08h,08h,7fh,80h  ; H
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,26h,49h,49h,49h,32h,80h  ; S
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,7fh,02h,04h,08h,7fh,80h  ; N
db 80h,7eh,11h,11h,11h,7eh,80h  ; A
db 80h,7eh,08h,08h,08h,7fh,80h  ; H
db 80h,80h,80h,80h,80h,80h,80h   ; kosong
db 00h,7fh,7fh,00h,00h,00h ; 1
db 39h,49h,49h,49h,0eh,00h ; 2
db 00h,7fh,7fh,00h,00h,00h ; 1
db 00h,7fh,7fh,00h,00h,00h ; 1
db 3eh,41h,41h,41h,3eh,00h ; 0
db 3eh,41h,41h,41h,3eh,00h ; 0
db 79h,49h,49h,49h,46h,00h ;5
db 00h,7fh,7fh,00h,00h,00h ; 1
db 00h,00000000b,00000000b,00000000b,00h
db 00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,13h ;spasi
db 00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,00h,13h ;spasi
db 00h ; data untuk kembali ke awal
end