Running Teks Sederhana Dengan Proteus

08.25 No Comments

Program sederhana untuk membuat huruf A : 
AA:
    mov sbuf,#0CFh
    jnb ti,$
    clr ti
    call delay
    mov sbuf,#0EFh
    jnb ti,$
    clr ti
    call delay
    mov sbuf,#03Ch
    jnb ti,$
    clr ti
    call delay
    mov sbuf,#03Ch
    jnb ti,$
    clr ti
    call delay
    mov sbuf,#0EFh
    jnb ti,$
    clr ti
    call delay
    mov sbuf,#0CFh
    jnb ti,$
    clr ti
    call delay
    call SPASI
    sjmp AA

SPASI:  
    mov sbuf,#00h
    jnb ti,$
    clr ti
    call delay
    mov sbuf,#00h
    jnb ti,$
    clr ti
    call delay
    RET
delay:
    mov r7,#230
dly:
    mov r6,#150
    djnz r6,$
    djnz r7,dly
    ret
end