1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
|
org 0000h
Home:
mov r0,#00h
mov a,r0
lcall CA
mov p2,a
mov r1,#00h
mov a,r1
lcall CA
mov p3,a
lcall delay
SEC1:
inc r0
mov a,r0
cjne a,#0ah,L1
mov r0,#00h
sjmp SEC2
L1:
lcall ca
mov p2,a
lcall delay
sjmp SEC1
SEC2:
inc r1
mov a,r1
cjne a,#06h,L2
mov r1,#00h
sjmp Home
L2:
lcall ca
mov p3,a
lcall delay
sjmp SEC2
CA:
cjne a,#01h,M1
mov a,#0F9h;1
ret
M1:
cjne a,#02h,M2
mov a,#0a4h;2
ret
M2:
cjne a,#03h,M3
mov a,#0b0h;3
ret
M3:
cjne a,#04h,M4
mov a,#099h;4
ret
M4:
cjne a,#05h,M5
mov a,#012h;5
ret
M5:
cjne a,#06h,M6
mov a,#082h;6
ret
M6:
cjne a,#07h,M7
mov a,#0f8h;7
ret
M7:
cjne a,#08h,M8
mov a,#080h;8
ret
M8:
cjne a,#09h,M9
mov a,#090h;9
ret
M9:
cjne a,#00h,M10
mov a,#0c0h;0
M10:
ret
delay: mov r0,#04h
mov r1,#080h
mov r2,#0ffh
djnz r2,$
djnz r1,$-2
djnz r0,$-4
ret
end |
Partager