A51 MACRO ASSEMBLER  123                                                                  07/12/2008 10:33:41 PAGE     1


MACRO ASSEMBLER A51 V7.10
OBJECT MODULE PLACED IN 123.OBJ
ASSEMBLER INVOKED BY: C:\Keil\C51\Bin\a51.exe 123.ASM DB GENONLY RB(0) XREF

LOC  OBJ            LINE     SOURCE

                       1     ;電子密碼鎖  
0000                   2       ORG 0000H
0000 020030            3       LJMP START  
0030                   4       ORG 0030H
0030 755000            5     START: MOV 50H,#0          ;初始密碼值012345
0033 755101            6            MOV 51H,#1
0036 755202            7            MOV 52H,#2
0039 755303            8            MOV 53H,#3
003C 755404            9            MOV 54H,#4
003F 755505           10            MOV 55H,#5
                      11            
0042 753000           12            MOV 30H,#0          ;顯示初值000000
0045 753100           13            MOV 31H,#0
0048 753200           14            MOV 32H,#0
004B 753300           15            MOV 33H,#0
004E 753400           16            MOV 34H,#0
0051 753500           17            MOV 35H,#0
                      18            
0054 7830             19            MOV R0,#30H
                      20      
0056 11D1             21       MAIN:ACALL DIR4          ;調用鍵盤顯示子程序
0058 1169             22            ACALL KEY           ;轉向按鍵位置確定子程序           
005A B40E03           23            CJNE A,#14,FUWEI    ;復位鍵
005D 020030           24            LJMP START
                      25            
0060 B40FF3           26      FUWEI:CJNE A,#15,MAIN     ;確定鍵
0063 1200B3           27            LCALL BIJIAO        ;調用比較子程序        
0066 020030           28            LJMP START 
                      29            
                      30     ;*********************************************
                      31     ;           鍵盤程序，查詢方式
                      32     ;*********************************************
                      33     
0069 7590F0           34     KEY:MOV P1,#0F0H    ;行線置低點平，列線置輸入態
006C E590             35     KEY0:MOV A,P1
006E F4               36          CPL A
006F 54F0             37          ANL A,#0F0H
0071 FC               38          MOV R4,A
0072 603E             39          JZ GRET       ;判斷有無鍵按下，沒有就跳出子程序
0074 75900F           40     KEY1:MOV P1,#0FH
0077 E590             41          MOV A,P1
0079 F4               42          CPL A
007A 540F             43          ANL A,#0FH
007C FA               44          MOV R2,A
007D 6033             45          JZ GRET
007F 10D50A           46          JBC F0,WAIT
0082 D2D5             47          SETB F0
0084 1200F7           48          LCALL DELAY
0087 80E0             49          SJMP KEY
0089 75900F           50          MOV P1,#0FH
008C E590             51     WAIT:MOV A,P1
008E F4               52          CPL A
008F 540F             53          ANL A,#0FH
0091 70F9             54          JNZ WAIT
0093 EC               55     KEY2:MOV A,R4
0094 7C03             56          MOV R4,#03H
0096 7B03             57          MOV R3,#03H
0098 C3               58          CLR C
A51 MACRO ASSEMBLER  123                                                                  07/12/2008 10:33:41 PAGE     2

0099 33               59     KEY3:RLC A
009A 4003             60          JC KEY4
009C 1C               61          DEC R4
009D DBFA             62          DJNZ R3,KEY3
009F EA               63     KEY4:MOV A,R2
00A0 7A00             64          MOV R2,#00H
00A2 7B03             65          MOV R3,#03H
00A4 C3               66          CLR C
00A5 13               67     KEY5:RRC A
00A6 4003             68          JC KEY6
00A8 0A               69          INC R2
00A9 DBFA             70          DJNZ R3,KEY5
00AB EA               71     KEY6:MOV A,R2
00AC C3               72          CLR C
00AD 33               73          RLC A
00AE 33               74          RLC A
00AF 2C               75          ADD A,R4 
                      76          
00B0 F6               77     CHUAN:MOV @R0,A   ;示菟腿牖撼邇