lcdir02jm.lst

是一个用遥控器程序.能在数码管上显示键码.自己改动下就可以用,方便实用.

A51 MACRO ASSEMBLER  LCDIR02JM                                                            02/27/2008 01:33:18 PAGE     1


MACRO ASSEMBLER A51 V8.00d
OBJECT MODULE PLACED IN LCDIR02JM.OBJ
ASSEMBLER INVOKED BY: D:\开发设计\KEIL809A\C51\BIN\KA51.EXE LCDIR02JM.ASM SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

  00A3                 1     RS EQU P2.3                 ;这几个是LCD引脚.
  00A2                 2     RW EQU P2.2 
  00A4                 3     E EQU P2.4 
                       4     
  00B2                 5     IRR EQU P3.2                ;红外接收的输出接P3.2.
                       6     
  0030                 7     BUF EQU 30H ;30H-33H保存解码结果
                       8     
                       9     
                      10     ;=============================================
0000                  11     ORG 0000H
0000 0130             12     AJMP MAIN
                      13     
                      14     ;=============================================
0030                  15     ORG 0030H
0030                  16     MAIN:
0030 758170           17     MOV SP,#70H ;堆栈指针设到70H的地方
                      18     
0033 3153             19     ACALL INIT_LCD                                    ;初始化LCD
                      20     
0035 7F0A             21     MOV R7,#10
0037 311D             22     ACALL DELAY_MS
                      23     
0039 90009B           24     MOV DPTR,#MSG1
003C 316C             25     CALL DISPLAY_LINE1                        ;在第一行显示 Test8: IR Reader
003E 9000AD           26     MOV DPTR,#MSG2
0041 317E             27     CALL DISPLAY_LINE2                        ;在第二行显示huadaiaudio.com  
                      28     
                      29     
0043                  30     MAIN_LOOP:
0043 20B2FD           31     JB IRR,$ ;等待接收头信号为低
0046 3101             32     ACALL GET_LOW ;测量引导脉冲低电平
0048 C3               33     CLR C
0049 EF               34     MOV A,R7
004A 94A0             35     SUBB A,#(8000/50) ;SC6122的引导脉冲低电平为9000US,我们只要测到低电平的值在8000-10000US范围