org 00h
jmp config
org 03h
reti
org 0bh
reti
org 13h
reti
org 1bh
reti
org 23h
reti
config:
org 30h
clr 40h
clr 41h
clr 42h
clr 43h
mov 0e3h,#20h
mov 0e4h,#00h
mov 0e7h,#3
orl 0e7h,#10000000b
mov 0e5h,#1
mov 0e6h,#46h
mov 0e6h,#0b9h
nop
mov 0e7h,#0
mov 0e5h,#0
mov 0e6h,#0
mov r3,0e2h
mov 0e3h,#20h
mov 0e4h,#01h
mov 0e7h,#3
orl 0e7h,#10000000b
mov 0e5h,#1
mov 0e6h,#46h
mov 0e6h,#0b9h
nop
mov 0e7h,#0
mov 0e5h,#0
mov 0e6h,#0
mov r4,0e2h
mov 0e3h,#20h
mov 0e4h,#02h
mov 0e7h,#3
orl 0e7h,#10000000b
mov 0e5h,#1
mov 0e6h,#46h
mov 0e6h,#0b9h
nop
mov 0e7h,#0
mov 0e5h,#0
mov 0e6h,#0
mov r5,0e2h
mov 0e3h,#20h
mov 0e4h,#03h
mov 0e7h,#3
orl 0e7h,#10000000b
mov 0e5h,#1
mov 0e6h,#46h
mov 0e6h,#0b9h
nop
mov 0e7h,#0
mov 0e5h,#0
mov 0e6h,#0
mov r6,0e2h
main:jb p3.2,tingding
call k0
call k1
call k2
call k3
call bg
call js
call d1
call d2
inc r7
cjne r7,#4,main
mov r7,#0
jmp main
tingding:clr ea
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh
mov 0e3h,#20h
mov 0e4h,#00h
mov 0e7h,#3
orl 0e7h,#10000000b
mov 0e5h,#3
mov 0e6h,#46h
mov 0e6h,#0b9h
nop
mov 0e7h,#0
mov 0e5h,#0
mov 0e6h,#0
mov 0e2h,r3
mov 0e3h,#20h
mov 0e4h,#00h
mov 0e7h,#3
orl 0e7h,#10000000b
mov 0e5h,#2
mov 0e6h,#46h
mov 0e6h,#0b9h
nop
mov 0e7h,#0
mov 0e5h,#0
mov 0e6h,#0
mov 0e2h,r4
mov 0e3h,#20h
mov 0e4h,#01h
mov 0e7h,#3
orl 0e7h,#10000000b
mov 0e5h,#2
mov 0e6h,#46h
mov 0e6h,#0b9h
nop
mov 0e7h,#0
mov 0e5h,#0
mov 0e6h,#0
mov 0e2h,r5
mov 0e3h,#20h
mov 0e4h,#02h
mov 0e7h,#3
orl 0e7h,#10000000b
mov 0e5h,#2
mov 0e6h,#46h
mov 0e6h,#0b9h
nop
mov 0e7h,#0
mov 0e5h,#0
mov 0e6h,#0
mov 0e2h,r6
mov 0e3h,#20h
mov 0e4h,#03h
mov 0e7h,#3
orl 0e7h,#10000000b
mov 0e5h,#2
mov 0e6h,#46h
mov 0e6h,#0b9h
nop
mov 0e7h,#0
mov 0e5h,#0
mov 0e6h,#0
nop
jmp $
k0:setb p3.1
jb p3.1,k01
djnz 56h,$
jb p3.1,k01
setb 30h
setb 40h
jmp k02
k01:clr 30h
k02:jb 30h,k0end
djnz 56h,$
jb 30h,k0end
jnb 40h,k0end
djnz 56h,$
jnb 40h,k0end
clr 40h
mov r6,#0
mov r5,#0
k0end:ret
k1:setb p3.0
jb p3.0,k11
djnz 56h,$
jb p3.0,k11
setb 31h
setb 41h
jmp k12
k11:clr 31h
k12:jb 31h,k1end
djnz 56h,$
jb 31h,k1end
jnb 41h,k1end
djnz 56h,$
jnb 41h,k1end
clr 41h
mov r4,#0
mov r3,#0
k1end:ret
k2:setb p3.7
jb p3.7,k21
djnz 56h,$
jb p3.7,k21
setb 32h
setb 42h
jmp k22
k21:clr 32h
k22:
jb 32h,k2end
djnz 56h,$
jb 32h,k2end
jnb 42h,k2end
djnz 56h,$
jnb 42h,k2end
clr 42h
inc r6;這才是按鍵的功能
cjne r6,#100,k2end
mov r6,#0
inc r5
cjne r5,#100,k2end
mov r5,#0
k2end:ret
k3:setb p3.6
jb p3.6,k31
djnz 56h,$
jb p3.6,k31
setb 33h
setb 43h
jmp k32
k31:clr 33h
k32:jb 33h,k3end
djnz 56h,$
jb 33h,k3end
jnb 43h,k3end
djnz 56h,$
jnb 43h,k3end
clr 43h
inc r4;這才是按鍵的功能
cjne r4,#100,k3end
mov r4,#0
inc r3
cjne r3,#100,k3end
mov r3,#0
k3end:ret
bg:mov 38h,r5
mov a,r3
cjne a,38h,bg1
mov 38h,r6
mov a,r4
cjne a,38h,bg1
bg1:jc bgend
setb p3.5
clr p3.4
ret
bgend:
setb p3.4
clr p3.5
ret
js:mov a,r6
mov b,#10
div ab
mov 37h,b
mov 36h,a
mov a,r5
mov b,#10
div ab
mov 35h,b
mov 34h,a
mov a,r4
mov b,#10
div ab
mov 33h,b
mov 32h,a
mov a,r3
mov b,#10
div ab
mov 31h,b
mov 30h,a
ret
d1:mov p2,#0ffh
anl p0,#11110000b
ds0:cjne r7,#0,ds1
setb p0.3
mov a,30h
jmp ledtab
ds1:cjne r7,#1,ds2
setb p0.2
mov a,31h
jmp　ledtab
ds2:cjne r7,#2,ds3
setb p0.1
mov a,32h
jmp　ledtab
ds3:cjne r7,#3,ed1
setb p0.0
mov a,33h
jmp ledtab
ed1:ret
ledtab:
mov dptr,#table
movc a,@a+dptr
cpl a
mov p2,a
jmp ed1
d2:mov p1,#0ffh
anl p0,#00001111b
ds20:cjne r7,#0,ds21
setb p0.7
mov a,34h
jmp ledtab1
ds21:cjne r7,#1,ds22
setb p0.6
mov a,35h
jmp　ledtab1
ds22:cjne r7,#2,ds23
setb p0.5
mov a,36h
jmp　ledtab1
ds23:cjne r7,#3,ed2
setb p0.4
mov a,37h
jmp ledtab1
ed2:ret
ledtab1:
mov dptr,#table
movc a,@a+dptr
cpl a
mov p1,a
jmp ed2
table:
db 00111111b,00000110b,01011011b,01001111b,01100110b,01101101b,01111101b,00000111b
db 01111111b,01101111b;abcdefgh分別對應01234567
end