ir-12864lcd.lst

红外遥控键值解码12864液晶显示（汇编语言）

A51 MACRO ASSEMBLER  IR_12864LCD                                                          05/29/2005 22:32:38 PAGE     1


MACRO ASSEMBLER A51 V6.12
OBJECT MODULE PLACED IN .\IR-12864LCD.OBJ
ASSEMBLER INVOKED BY: C:\Keil\C51\BIN\A51.EXE .\IR-12864LCD.asm SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

                       1     
                       2     
                       3     
  0020                 4             IRCOM  EQU  20H       ;20H-23H IR使用
  0026                 5             X     EQU  26H        ;LCD 地址变量
                       6     
  00B2                 7             IRIN   EQU  P3.2
  00B7                 8             BEEP   EQU  P3.7
  0093                 9             RELAY  EQU  P1.3
                      10     
  00A0                11             RS      EQU     P2.0
  00A1                12             RW      EQU     P2.1
  00A2                13             EN      EQU     P2.2
  00A3                14             PSB     EQU     P2.3
  00A5                15             RST     EQU     P2.5
                      16     ;------------------------------------------------
0000                  17              ORG 0000H
0000 8003             18              JMP  MAIN
                      19     
0003                  20              ORG 0003H         ;外部中断INT0入口地址
0003 213B             21              JMP  IR_IN        ;中断服务程序
                      22     ;------------------------------------------------
0005                  23     MAIN:
0005 758140           24               MOV   SP,#40H
0008 7400             25               MOV   A,#00H
000A 7820             26               MOV   R0,#20H
000C F6               27     LOOP0:    MOV   @R0,A          ;20H-26H清零
000D 08               28               INC   R0
000E B827FB           29               CJNE  R0,#27H,LOOP0
0011 75A881           30               MOV  IE,#81H       ;允许总中断中断,使能 INT0 外部中断
0014 758801           31               MOV  TCON,#01H     ;触发方式为脉冲负边沿触发
0017 D2B2             32               SETB  IRIN
0019 D2A5             33               SETB  RST
001B 00               34               NOP
001C D2A3             35               SETB  PSB            ;8位示荩