📄 dg_1_51.lst
字号:
A51 MACRO ASSEMBLER DG_1_51 08/27/2008 10:23:59 PAGE 1
MACRO ASSEMBLER A51 V6.02
OBJECT MODULE PLACED IN C:\cai01\PROTEL\南邮张老师\ASM程序\DG_1_51.OBJ
ASSEMBLER INVOKED BY: C:\Manley\COMP51V6\A51.EXE C:\cai01\PROTEL\南邮张老师\ASM程序\DG_1_51.ASM DB
LOC OBJ LINE SOURCE
1 ;--南邮电工实验箱实验仪--按键电平及1HZ信号发生器 (AT8951)----2008/08/24----------
2 ; 使用扫描键盘,及BEEP,OSC=12MHz
3 ;--------------------- 2004/11/04 ---------------------------------------------------------
-----
4
0090 5 KEY1 BIT P1.0
0091 6 KEY2 BIT P1.1
0092 7 KEY3 BIT P1.2
0093 8 KEY4 BIT P1.3
0094 9 KEY5 BIT P1.4
0095 10 KEY6 BIT P1.5
0096 11 KEY7 BIT P1.6
0097 12 KEY8 BIT P1.7
0080 13 LED1 BIT P0.0
0081 14 LED2 BIT P0.1
0082 15 LED3 BIT P0.2
0083 16 LED4 BIT P0.3
0084 17 LED5 BIT P0.4
0085 18 LED6 BIT P0.5
0086 19 LED7 BIT P0.6
0087 20 LED8 BIT P0.7
00A0 21 SOUT1 BIT P2.0
00A1 22 SOUT2 BIT P2.1
00A2 23 SOUT3 BIT P2.2
00A3 24 SOUT4 BIT P2.3
00A4 25 SOUT5 BIT P2.4
00A5 26 SOUT6 BIT P2.5
00A6 27 SOUT7 BIT P2.6
00A7 28 SOUT8 BIT P2.7
0080 29 LED_PORT EQU P0
0090 30 KEY_PORT EQU P1
00A0 31 SOUT_PORT EQU P2
00B3 32 KEY_PLS BIT P3.3
00B7 33 SOUT_PLS BIT P3.7
00B6 34 SOUT_NPLS BIT P3.6
00B1 35 SOUT_1HZ BIT P3.1
36
0024 37 BUFF_T0 EQU 24H ; FOR TIME0
0025 38 SCAN_LP EQU 25H ; FOR LAMP
0026 39 BUFF_SPEED EQU 26H
0027 40 BUFF_KEY EQU 27H
0028 41 BUFF_FKEY EQU 28H
0029 42 BUFF_SOUT EQU 29H
002A 43 BUFF_DEL EQU 2AH
00DC 44 TH0_NUM EQU 220 ;T0=5MS
0000 45 TL0_NUM EQU 00
46
0000 47 ORG 000H
0000 803E 48 JMP MSTART
0003 49 ORG 003H
0003 80FB 50 JMP 000H
000B 51 ORG 00BH
000B 2161 52 JMP TIMER0 ;产生1HZ信号
0013 53 ORG 013H
0013 80EB 54 JMP 000H
001B 55 ORG 01BH
001B 80E3 56 JMP 000H
0023 57 ORG 023H
A51 MACRO ASSEMBLER DG_1_51 08/27/2008 10:23:59 PAGE 2
0023 80DB 58 JMP 000H
002B 59 ORG 02BH
002B 80D3 60 JMP 000H
0040 61 ORG 040H
0040 75A800 62 MSTART: MOV IE,#00H
0043 7590FF 63 MOV P1,#0FFH
0046 75B0FF 64 MOV P3,#0FFH
0049 758000 65 MOV P0,#00H
004C 75D000 66 MOV PSW,#00H
004F 758140 67 MOV SP,#40H
0052 7400 68 MOV A,#00H
0054 787F 69 MOV R0,#7FH
0056 F6 70 CLR_RAM: MOV @R0,A ;清20-7FH
0057 D8FD 71 DJNZ R0,CLR_RAM
0059 758911 72 MOV TMOD,#11H
005C 758CB1 73 MOV TH0,#HIGH(65536-20000) ;TH0_NUM
005F 758AE0 74 MOV TL0,#LOW(65536-20000) ;TL0_NUM
0062 752AC8 75 MOV BUFF_DEL,#200
0065 12013B 76 LCALL DEL1MS
0068 7590FF 77 MOV KEY_PORT,#0FFH
006B 75A000 78 MOV SOUT_PORT,#00H
006E C2B7 79 CLR SOUT_PLS
0070 D2B6 80 SETB SOUT_NPLS
0072 7580FF 81 MOV LED_PORT,#0FFH
0075 D28C 82 SETB TR0
0077 D2A9 83 SETB ET0
0079 D2AF 84 SETB EA
007B 752A32 85 MAIN_LP: MOV BUFF_DEL,#50
007E 12013B 86 LCALL DEL1MS
0081 30B314 87 JNB KEY_PLS,PROC_KPLS
0084 E590 88 MOV A,KEY_PORT
0086 F527 89 MOV BUFF_KEY,A
0088 752A32 90 MOV BUFF_DEL,#50
008B 12013B 91 LCALL DEL1MS
008E E590 92 MOV A,KEY_PORT
0090 B527E8 93 CJNE A,BUFF_KEY,MAIN_LP
0093 B4FF15 94 CJNE A,#0FFH,JUD_KEYS
0096 80E3 95 JMP MAIN_LP
0098 B2B7 96 PROC_KPLS:CPL SOUT_PLS ;产生单脉冲信号!
009A B2B6 97 CPL SOUT_NPLS
009C 752A32 98 MOV BUFF_DEL,#50
009F 12013B 99 LCALL DEL1MS
00A2 B2B7 100 CPL SOUT_PLS ;产生单脉冲信号!
00A4 B2B6 101 CPL SOUT_NPLS
00A6 30B3FD 102 JNB KEY_PLS,$
00A9 80D0 103 JMP MAIN_LP
00AB 309015 104 JUD_KEYS: JNB KEY1,PROC_K1
00AE 309121 105 JNB KEY2,PROC_K2
00B1 30922D 106 JNB KEY3,PROC_K3
00B4 309339 107 JNB KEY4,PROC_K4
00B7 309445 108 JNB KEY5,PROC_K5
00BA 309551 109 JNB KEY6,PROC_K6
00BD 30965D 110 JNB KEY7,PROC_K7
00C0 309769 111 JNB KEY8,PROC_K8
00C3 B280 112 PROC_K1: CPL LED1
00C5 B2A0 113 CPL SOUT1
00C7 3090FD 114 JNB KEY1,$
00CA 752A64 115 MOV BUFF_DEL,#100
00CD 12013B 116 LCALL DEL1MS
00D0 80A9 117 JMP MAIN_LP
00D2 B281 118 PROC_K2: CPL LED2
00D4 B2A1 119 CPL SOUT2
00D6 3091FD 120 JNB KEY2,$
00D9 752A64 121 MOV BUFF_DEL,#100
00DC 12013B 122 LCALL DEL1MS
00DF 809A 123 JMP MAIN_LP
A51 MACRO ASSEMBLER DG_1_51 08/27/2008 10:23:59 PAGE 3
00E1 B282 124 PROC_K3: CPL LED3
00E3 B2A2 125 CPL SOUT3
00E5 3092FD 126 JNB KEY3,$
00E8 752A64 127 MOV BUFF_DEL,#100
00EB 12013B 128 LCALL DEL1MS
00EE 808B 129 JMP MAIN_LP
00F0 B283 130 PROC_K4: CPL LED4
00F2 B2A3 131 CPL SOUT4
00F4 3093FD 132 JNB KEY4,$
00F7 752A64 133 MOV BUFF_DEL,#100
00FA 12013B 134 LCALL DEL1MS
00FD 017B 135 JMP MAIN_LP
00FF B284 136 PROC_K5: CPL LED5
0101 B2A4 137 CPL SOUT5
0103 3094FD 138 JNB KEY5,$
0106 752A64 139 MOV BUFF_DEL,#100
0109 12013B 140 LCALL DEL1MS
010C 017B 141 JMP MAIN_LP
010E B285 142 PROC_K6: CPL LED6
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -