Jawaban UTS Mikrokontroller Nomor Ganjil

org 0h

mov R1, #6

mov R2, #5

mov R3, #4

mulai:

mov P1, #0FFh

mov A, P1

CPL A

add A, R1

mov R0, A

call konversi

mov p3, #10000000B

call delay

mov p3, #0

call delay

mov A, R2

add A, R4

mov R0, A

call konversi

mov p3, #01000000B

call delay

mov p3, #0

call delay

mov A, R3

mov R0, A

call konversi

mov p3, #00100000B

call delay

mov p3, #0

call delay

sjmp mulai

konversi:

cjne R0, #0, konversi1

mov p2, #11000000b

mov R4, #0

ret

konversi1:

cjne R0, #1, konversi2

mov p2, #11111001b

mov R4, #0

ret

konversi2:

cjne R0, #2, konversi3

mov p2, #10100100b

mov R4, #0

ret

konversi3:

cjne R0, #3, konversi4

mov p2, #10110000b

mov R4, #0

ret

konversi4:

cjne R0, #4, konversi5

mov p2, #10011001b

mov R4, #0

ret

konversi5:

cjne R0, #5, konversi6

mov p2, #10010010b

mov R4, #0

ret

konversi6:

cjne R0, #6, konversi7

mov p2, #10000010b

mov R4, #0

ret

konversi7:

cjne R0, #7, konversi8

mov p2, #11111000b

mov R4, #0

ret

konversi8:

cjne R0, #8, konversi9

mov p2, #10000000b

mov R4, #0

ret

konversi9:

cjne R0, #9, konversi10

mov p2, #10010000b

mov R4, #0

ret

konversi10:

mov A, R0

subb A, #10

mov R0, A

call konversi

mov R4, #1

ret

delay:

mov R7, #5

del1:

djnz R7, del1

ret

end