PROGRAM PELUNCUR " ROCKET " PADA SEVEN SEGMENT

Program yang dibuat menggunakan aplikasi M-ide dan sistemnya
down counter / hitung mundur .



ORG 0H
START: JNB P2.0,ON
       JNB P2.1,STOP
       SJMP START
STOP : SETB P3.5
       SETB P3.6
       SETB P3.7
       MOV P0,#10111111B
       JNB P2.0,ON
       SJMP STOP
ON: MOV R1,#0
LOOP :MOV A,R1
      ACALL KONVERSI
      MOV P0,A
      ACALL DELAY
      INC R1
      CJNE R1,#100,LOOP
      SJMP GO
GO : SETB P3.5
     SETB P3.6
     SETB P3.7
     MOV P0,#10001100B
     ACALL DELAY1
     JNB P2.0,ON
     JNB P2.1,STOP
     LJMP GO
;----------------------------
DELAY: MOV R7,#5
del1: MOV R6,#255
del2: MOV R5,#255
     JNB P2.1,STOP
del3: DJNZ R5,del3
    DJNZ R6,del2
    DJNZ R7,del1
    RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
DELAY1: MOV R1,#40
DEL5:  MOV R2,#40
DEL6:  DJNZ R2,DEL6
       DJNZ R1,DEL5
       RET
KONVERSI: INC A
          MOVC A,@A+PC
          RET
;-----------------------------
     DB 10010000B
     DB 00000000B
     DB 11111000B
     DB 10000010B
     DB 10010010B
     DB 10011001B
     DB 10110000B
     DB 10100100B
     DB 11111001B
     DB 11000000B
END


Nama : Munay

Selamat mencoba