Animasi LED berjalan dari pinggir ke tengah, begitu seterusnya menggunakan microcontroller 8051.
Contoh Program Assembly Flip-Flop Pinggir-Tengah
Source Code:
$MOD51 ; This includes 8051 definitions for the Metalink assembler
; Please insert your code here.
;---------------------------------------------------------------------------------
;
; Lampu bergerak dari pinggir ke tengah kemudian kembali lagi...
; author: www.bundet.com
;---------------------------------------------------------------------------------
Org 0h
Mulai:
Mov P0,#11100111B ; Dua lampu tengah menyala, P0.3 dan P0.4 (=0E7h)
Acall Delay ; lakukan penundaan sesaat...
Mov P0,#11011011B ; Dua lampu berikutnya menyala, P0.2 dan P0.5 (=0DBh)
Acall Delay ; lakukan penundaan sesaat...
Mov P0,#10111101B ; Dua lampu berikutnya menyala, P0.1 dan P0.6 (=0BDh)
Acall Delay
Mov P0,#01111110B ; Dua lampu berikutnya menyala, P0.0 dan P0.7 (=7Eh)
Acall Delay
Mov P0,#10111101B ; dua lampu berikutnya menyala, P0.1 dan P0.6 (=0BDh)
Acall Delay
Mov P0,#11011011B ; Dua lampu berikutnya menyala, P0.2 dan P0.5 (=0DBh)
Acall Delay
Sjmp Mulai ; Lompat ke alamat dg label Mulai
;-subrutin DELAY-----------------------------------------------------------
;
; subrutin ini hanya sekedar melakukan penundaan sesaat dengan cara
; mengulangi proses (pengurangan isi register) hingga dicapai suatu
; kondisi tertentu
;
;--------------------------------------------------------------------------
DELAY: MOV R0,#1H ; Isi Register R0 dengan 1 (1x ulang)
DELAY1: MOV R1,#1H ; Isi Register R1 dengan 1 (11x ulang
DELAY2: MOV R2,#0 ; Isi register R2 dengan 0 (12x ulang)
DJNZ R2,$ ; R2=R2-1, jika R2 belum 0 ulangi lagi
DJNZ R1,DELAY2 ; R1=R1-1, jika R1 belum 0 ulangi DELAY2
DJNZ R0,DELAY1 ; R0=R0-1, jika R0 belum 0 ulangi DELAY1
RET ; Kembali ke pemanggil subrutin DELAY
END
Demo:
https://youtu.be/hCfkA9Dp_C0
DOWNLOAD SCHEMATIC (117KB)
