Program Seven Segment Menampilkan Display " ABC "

Untuk kali ini saya ingin mengshare program Seven segment menampilkan Huruf " ABC "
Menggunakan Mide dan Proteus

Menggunakan Perintah SETB dan CLR
Untuk lebih jelasnya , kita lihat .....................



ORG 0H
START: CLR P3.5 ; P3.5 ='0'
       CLR P3.6 ; P3.6 ='0'
       CLR P3.7 ; P3.7 ='0'
       MOV P0,#10001000B
       CALL DELAY
;
       SETB P3.5 ; P3.5 ='1'
       CLR P3.6 ; P3.6 ='0'
       CLR P3.7 ; P3.7 ='0'
       MOV P0,#10000011B
       CALL DELAY
;
       CLR P3.5 ; P3.5 ='0'
       SETB P3.6 ; P3.6 ='1'
       CLR P3.7 ; P3.7 ='0'
       MOV P0,#11000110B
       CALL DELAY
       SJMP START
DELAY: MOV R1,#25
DEL1:  MOV R2,#25
DEL2:  DJNZ R2,DEL2
DJNZ R1,DEL1
RET
END