导航: 
楼 主:
在做课程设计时做的小程序,用于键盘扫描并显示,有记数和定时两个功能,各位大虾献丑了PS:因为是小弟的第一张贴子比较仓促没有注释,不过简单得很,一看就知道
PS:支持原创!
org 0000h
ljmp main
org 000bh
ljmp it0p
org 0200h
main: mov 30h , #00h
mov 31h , #00h
mov 32h , #00h
mov 33h , #00h
mov p1 , #0fh
lcall delay1
mov a , p1
cjne a , #0fh , q
ljmp funtion1
q: lcall keyscan
lcall tran
cjne a , #0eh , funtion0
ljmp count
funtion0: cjne a , #0fh , funtion1
ljmp tnt
funtion1: lcall display
ljmp main
count: mov 30h , #00h
mov 31h , #00h
mov 32h , #00h
mov 33h , #00h
q3: mov p1 , #0fh
lcall delay1
mov a , p1
cjne a, #0fh , q1
ljmp q2
q1: lcall keyscan
lcall tran
cjne a , #0ah , funtion00
ljmp count1
funtion00: cjne a , #0bh , funtion11
ljmp count2
funtion11: mov 33h ,32h
mov 32h, 31h
mov 31h , 30h
mov 30h , a
q2: lcall display
ljmp q3
count1: mov a , 30h
inc a
mov 30h , a
cjne a , #0ah , q3
count10: mov 30h ,#00h
mov a , 31h
inc a
mov 31h , a
cjne a , #0ah , q3
count100: mov 31h , #00h
mov a , 32h
inc a
mov 32h ,a
cjne a , #0ah , q3
count1000: mov 32h , #00h
mov a , 33h
inc a
mov 33h , a
cjne a , #0ah ,q3
lcall sound1
mov 33h ,#00h
ljmp q3
count2: dec 30h
mov a , 30h
cjne a , #0ffh , q3
count20: mov 30h ,#09h
dec 31h
mov a , 31h
cjne a , #0ffh , q3
count200: mov 31h , #09h
dec 32h
mov a , 32h
cjne a , #0ffh , q4
count2000: mov 32h , #09h
dec 33h
mov a , 33h
cjne a , #0ffh ,q4
lcall sound1
mov 33h ,#09h
q4: ljmp q3
ret
tnt: mov tmod , #01h
mov 20h , #0ah
clr a
mov 40h , a
mov 41h , a
mov 42h , a
mov 43h , a
setb et0
setb ea
mov th0 , #3ch
mov tl0 , #0b0h
setb tr0
mov 30h , #00h
mov 31h , #00h
mov 32h , #00h
mov 33h , #00h
here: lcall display
ljmp here
ret
it0p: mov th0 , #3ch
mov tl0 , #0b0h
djnz 20h , return
mov 20h , #0ah
lcall sound
inc 40h
mov 30h , 40h
mov a , 40h
cjne A , #0ah , return
mov 40h , #00h
mov 30h , 40h
inc 41h
mov 31h , 41h
mov a , 41h
cjne a , #07h , return
mov 41h , #00h
mov 31h , 41h
inc 42h
mov 32h , 42h
mov a , 42h
cjne a, #0ah , return
mov 42h , #00h
mov 32h , 42h
inc 43h
mov 33h , 43h
mov a , 43h
cjne a , #07h , return
mov 43h , #00h
mov 33h , 43h
return: nop
reti
ljmp main
keyscan: lcall keyscan1
lcall delay1
lcall keyscan1
jnb p1.4 , value10
jnb p1.5 , value20
jnb p1.6 , value30
jnb p1.7 , value40
value10: mov r1 , #01h
ljmp row
value20: mov r1 , #02h
ljmp row
value30: mov r1 , #03h
ljmp row
value40: mov r1 ,#04h
row: lcall keyscan2
jnb p1.0 , value100
jnb p1.1 , value200
jnb p1.2 , value300
jnb p1.3 , value400
value100: mov r2 , #10h
ljmp value
value200: mov r2 , #20h
ljmp value
value300: mov r2 , #30h
ljmp value
value400: mov r2 , #40h
value: mov a , r1
add a , r2
lcall delay1
lcall keyscan3
ret
keyscan1: mov p1 , #0f0h
loop: lcall delay
mov a , p1
cjne a , #0f0h ,loop1
ljmp loop
loop1: nop
ret
keyscan2: mov p1 , #0fh
loop3: lcall delay
mov a , p1
cjne a , #0f0h ,loop4
ljmp loop3
loop4: nop
ret
keyscan3: mov p1 , #0fh
loop5: lcall delay
mov a , p1
cjne a , #0fh , loop5
lcall sound
ret
delay: mov r7 , #25 _/*延时500ms*/
del1: mov r6 , #200
del: djnz r6 , del
djnz r7 , del1
ret
delay1: mov r7 , #2
del00: mov r6 , #0ffh
del0: djnz r6 , del0
djnz r7 , del00
ret
tran: cjne r2 , #10h , lie2
ljmp panduanhang1
lie2: cjne r2 , #20h , lie3
ljmp panduanhang2
lie3: cjne r2 , #30h , lie4
ljmp panduanhang3
lie4: cjne r2 , #40h , tran
ljmp panduanhang4
ret
panduanhang1: cjne r1 ,#1h , hang2
ljmp value0
hang2: cjne r1 , #2h , hang3
ljmp value1
hang3: cjne r1 , #3h , hang4
ljmp value2
hang4: cjne r1 , #4h , panduanhang1
ljmp value3
ret
panduanhang2: cjne r1 ,#1h , hang22
ljmp value4
hang22: cjne r1 , #2h , hang32
ljmp value5
hang32: cjne r1 , #3h , hang42
ljmp value6
hang42: cjne r1 , #4h , panduanhang2
ljmp value7
ret
panduanhang3: cjne r1 ,#1h , hang23
ljmp value8
hang23: cjne r1 , #2h , hang33
ljmp value9
hang33: cjne r1 , #3h , hang43
ljmp valuea
hang43: cjne r1 , #4h , panduanhang3
ljmp valueb
ret
panduanhang4: cjne r1 , #1h , hang24_/*R2ÖеÄÄÚÈÝ´ú±íÐÐ*/
ljmp valuec
hang24: cjne r1 , #2h , hang34
ljmp valued
hang34: cjne r1 , #3h , hang44
ljmp valuee
hang44: cjne r1 , #4h , panduanhang4
ljmp valuef
ret
value0: mov a , #00h
ret
value1: mov a , #01h
ret
value2: mov a , #02h
ret
value3: mov a , #03h
ret
value4: mov a , #04h
ret
value5: mov a , #05h
ret
value6: mov a , #06h
ret
value7: mov a , #07h
ret
value8: mov a , #08h
ret
value9: mov a , #09h
ret
valuea: mov a , #0ah
ret
valueb: mov a , #0bh
ret
valuec: mov a , #0ch
ret
valued: mov a , #0dh
ret
valuee: mov a , #0eh
ret
valuef: mov a , #0fh
ret
sound: clr p3.4
lcall delay1
setb p3.4
ret
sound1: clr p3.4
lcall delay3
setb p3.4
ret
display: mov p2 , #0efh
mov a , 30h
lcall keydispaly
lcall delay1
mov p2 , #0dfh
mov a , 31h
lcall keydispaly
lcall delay1
mov p2 , #0bfh
mov a , 32h
lcall keydispaly
lcall delay1
mov p2 , #7fh
mov a , 33h
lcall keydispaly
lcall delay1
ret
delay3: mov r6 , #200
del2: djnz r6 , del2
ret
keydispaly:
mov dptr , #tab1
mov b , #03h
mul ab
mov r2 , a
mov a , b
add a , dph
mov dph , a
mov a , r2
jmp @a+dptr
tab1: ljmp keyvalue0_/*键值查表*/
ljmp keyvalue1
ljmp keyvalue2
ljmp keyvalue3
ljmp keyvalue4
ljmp keyvalue5
ljmp keyvalue6
ljmp keyvalue7
ljmp keyvalue8
ljmp keyvalue9
ljmp keyvaluea
ljmp keyvalueb
ljmp keyvaluec
ljmp keyvalued
ljmp keyvaluee
ljmp keyvaluef
ret
keyvalue0: mov p0 , #0c0h_/*译码程序*/
ret
keyvalue1: mov p0 , #0f9h
ret
keyvalue2: mov p0 , #0a4h
ret
keyvalue3: mov p0 , #0b0h
ret
keyvalue4: mov p0 , #99h
ret
keyvalue5: mov p0 , #92h
ret
keyvalue6: mov p0 , #82h
ret
keyvalue7: mov p0 , #0f8h
ret
keyvalue8: mov p0 , #80h
ret
keyvalue9: mov p0 , #90h
ret
keyvaluea: mov p0 , #88h
ret
keyvalueb: mov p0 , #83h
ret
keyvaluec: mov p0 , #0c6h
ret
keyvalued: mov p0 , #0a1h
ret
keyvaluee: mov p0 , #86h
ret
keyvaluef: mov p0 , #8eh
ret
end