4x4 keyboard (1).lst

Proteus在MCS-51％26ARM7系统中的应用百例 Proteus在MCS-51％26ARM7系统中的应用百例

A51 MACRO ASSEMBLER  4X4_KEYBOARD__1_                                                     07/27/2006 17:22:43 PAGE     1


MACRO ASSEMBLER A51 V8.00
OBJECT MODULE PLACED IN 4X4 KeyBoard (1).OBJ
ASSEMBLER INVOKED BY: e:\Program Files\Keil\C51\BIN\A51.EXE 4X4 KeyBoard (1).asm SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

  0030                 1     DBUF    EQU     30H
  0040                 2     TEMP    EQU             40H
0000                   3                     ORG             00H
0000 7410              4                     MOV     A,#16
0002 1154              5     MAIN:   ACALL   DISP 
0004 1108              6                     ACALL   KEY1
0006 0102              7                     AJMP    MAIN      
0008 7590F0            8     KEY1:   MOV             P1,#0F0H                ;读P1口前先写1
000B E590              9                     MOV             A,P1                    ;读取键状态
000D B4F002           10                     CJNE    A,#0F0H,K11     ;判断是否有键按下
0010 0108             11     K10:    AJMP    KEY1
0012 1181             12     K11:    ACALL   DELAY 
0014 7590F0           13                     MOV             P1,#0F0H  
0017 E590             14                     MOV             A,P1   
0019 B5F002           15                     CJNE    A,0F0H,K12              ;消除按键抖动
001C 80F2             16                     SJMP    K10
001E F5F0             17     K12:    MOV             B,A                             ;存列值
0020 75900F           18                     MOV             P1,#0FH                         
0023 E590             19                     MOV             A,P1                    ;读行值
0025 55F0             20                     ANL             A,B                                     
0027 F5F0             21                     MOV             B,A                             ;存键码
0029 7910             22                     MOV             R1,#10H
002B 7A00             23                     MOV             R2,#0
002D 900044           24                     MOV             DPTR,#K1TAB             ;键码表首地址
0030 EA               25     K14:    MOV             A,R2
0031 93               26                     MOVC    A,@A+DPTR
0032 B5F00A           27                     CJNE    A,B,K16                 ;比较,计算键值
0035 75900F           28                     MOV             P1,#0FH
0038 E590             29     K15:    MOV             A,P1
003A B40FFB           30                     CJNE    A,#0FH,K15              ;等待按键释放
003D EA               31                     MOV             A,R2
003E 22               32                     RET
003F 0A               33     K16:    INC             R2
0040 D9EE             34                     DJNZ    R1,K14
0042 0110             35                     AJMP    K10                                     
0044 81412111         36     K1TAB:  DB              81H,41H,21H,11H ;键码表
0048 82422212         37                     DB              82H,42H,22H,12H
004C 84442414         38                     DB              84H,44H,24H,14H
0050 88482818         39                     DB              88H,48H,28H,18H
0054 F530             40     DISP:   MOV             DBUF,A                  ;键值存入缓存
0056 7830             41                     MOV             R0,#DBUF
0058 7940             42                     MOV             R1,#TEMP
005A 90006F           43     DP10:   MOV             DPTR,#SEGTAB
005D E6               44                     MOV             A,@R0
005E 93               45                     MOVC    A,@A+DPTR               ;根据键值查表取段码
005F F7               46                     MOV             @R1,A                   ;暂存段码
0060 7840             47                     MOV             R0,#TEMP
0062 7A08             48     DP12:   MOV             R2,#8                   ;设置移位次数
0064 E6               49                     MOV             A,@R0
0065 33               50     DP13:   RLC             A                               ;段码移位输出
0066 92B0             51                     MOV             P3.0,C
0068 C2B1             52                     CLR     P3.1
006A D2B1             53                     SETB    P3.1                    ;输出移位脉冲
006C DAF7             54                     DJNZ    R2,DP13
006E 22               55                     RET
006F 3F065B4F         56     SEGTAB: DB      3FH,06H,5BH,4FH,66H,6DH       
0073 666D                    
0075 7D077F6F         57                     DB      7DH,07H,7FH,6FH,77H,7CH          
A51 MACRO ASSEMBLER  4X4_KEYBOARD__1_                                                     07/27/2006 17:22:43 PAGE     2

0079 777C                    
007B 585E7971         58                     DB      58H,5EH,79H,71H,00H,40H        
007F 0040                    
0081 7C01             59     DELAY:  MOV             R4,#01H                
0083 7D88             60     AA1:    MOV             R5,#088H
0085 00               61     AA:     NOP
0086 DDFD             62                     DJNZ    R5,AA
0088 DCF9             63                     DJNZ    R4,AA1
008A 22               64                     RET
                      65                     END
A51 MACRO ASSEMBLER  4X4_KEYBOARD__1_                                                     07/27/2006 17:22:43 PAGE     3

SYMBOL TABLE LISTING
------ ----- -------


N A M E             T Y P E  V A L U E   ATTRIBUTES

AA . . . . . . . .  C ADDR   0085H   A   
AA1. . . . . . . .  C ADDR   0083H   A   
B. . . . . . . . .  D ADDR   00F0H   A   
DBUF . . . . . . .  N NUMB   0030H   A   
DELAY. . . . . . .  C ADDR   0081H   A   
DISP . . . . . . .  C ADDR   0054H   A   
DP10 . . . . . . .  C ADDR   005AH   A   
DP12 . . . . . . .  C ADDR   0062H   A   
DP13 . . . . . . .  C ADDR   0065H   A   
K10. . . . . . . .  C ADDR   0010H   A   
K11. . . . . . . .  C ADDR   0012H   A   
K12. . . . . . . .  C ADDR   001EH   A   
K14. . . . . . . .  C ADDR   0030H   A   
K15. . . . . . . .  C ADDR   0038H   A   
K16. . . . . . . .  C ADDR   003FH   A   
K1TAB. . . . . . .  C ADDR   0044H   A   
KEY1 . . . . . . .  C ADDR   0008H   A   
MAIN . . . . . . .  C ADDR   0002H   A   
P1 . . . . . . . .  D ADDR   0090H   A   
P3 . . . . . . . .  D ADDR   00B0H   A   
SEGTAB . . . . . .  C ADDR   006FH   A   
TEMP . . . . . . .  N NUMB   0040H   A   


REGISTER BANK(S) USED: 0 


ASSEMBLY COMPLETE.  0 WARNING(S), 0 ERROR(S)