Pemrograman Assembly - Program Menampilkan SemuaAngka pada 7 Segment

;======================================================
; Judul  : test1 (display 7-segment)
; port : port 0  => data 7-segment
; port 2.0 => 7-segment digit1
; port 2.1 => 7-segment digit2
; port 2.2 => 7-segment digit3
; port 2.3 => 7-segment digit4
; ketera : coba menampilkan angka semua segment
;======================================================
; oleh : ARC. Robotika Club
;======================================================

$mod51
org 00h
jmp start
org 100h
start:
mov p0,#11000000b ; data "0"
mov p2,#11111110b ; aktifkan digit 1
call delay1
mov p0,#11111001b ; data "1"
mov p2,#11111101b ; aktifkan digit 2
call delay1
mov p0,#10100100b ; data "2"
mov p2,#11111011b ; aktifkan digit 3
call delay1
mov p0,#10110000b ; data "3"
mov p2,#11110111b ; aktifkan digit 4
call delay1
jmp start
delay1:
mov r0,#100
loop1: mov r1,#20
loop2: mov r2,#10
loop3: djnz r2,loop3
djnz r1,loop2
djnz r0,loop1
ret
end