单片机原理与接口技术 基于8051计算器的汇编程序源代码.docx

-=-=-=-=-=-=-=-=-=-=-=-= SOURCE CODE =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

;;

;; 显示程序符号定义

;;

COM EQU 45H

DAT EQU 46H

CW_ADD EQU 5FFCH

CR_ADD EQU 5FFDH

DW_ADD EQU 5FFEH

; CALCULATE 使用 01, 当调用浮点程序库时 10

; 显示子程序，11

; ======================================================================

; 工作区使用注意：

; -=-= 1. 位寻址区 =-=-=-

; 20H-21H 两个字用作位状态(位地址 00H-0FH)

; 23H-27H ; NOT USE! ESP. 23H

; 28H-2FH 为显示区域与记录输入数字所用,RAWIN

PNTB BIT 10H ; 小数点位指示(位地址, POINT BIT)

POSB BIT 11H ; 位置位，POSB=1 表示创建 BCD 低位，POSB=0 表示创建 BCD 高位

; .6: FLOAT

; .5 & .4: OPERATOR

; VALUE MEANING:

; 00: ADD

; 01: SUB

; 10: MUL

; 11: DIV

; .3: OPERATOR PRESSED

; .2: CONSTRUCTING NUM2

; .1: CONSTRUCTING NUM1

; .0: EQUAL SIGN PRESSED

STAT EQU 20H

; -=-= 2. IRAM =-=-

; 30H-33H 为第一个操作数

; 48H-4FH 为临时存储区域

NUM2 EQU 34H

RAWIN EQU 38H

TEMP EQU 48H

; -=-=-= 3. REGISTERS =-=-=-

; 键盘扫描使用寄存器组 0，浮点程序使用寄存器组 2

; 其余数字组合部分用寄存器组 1

; 测试程序使用寄存器组 3

; ASCII TABLE

; '.' -> 2EH

; '*' -> 2AH

;///

;/// T H E [ M A I N ] P R O G R A M

;/// ZEROX@2005.7.14

;////////////////////////////////////////////////////////////////////

ORG 0000H

LJMP MAIN

ORG 0030H

MAIN:

; 寄存器组 00

CLR RS1

CLR RS0

INIT20TO5F:

MOV R0, #20H ; START AT 20H

MOV R7, #40H ; 64 BYTES TO ZERO

MOV @R0, #00H

DJNZ R7, LOOP20TO5F

; ---------------------------------

SETB STAT.0 ; 初始状态为等号状态

MOV SCON, #00H ; 串行工作方式 0

; -------------------------------------

;; DISPLAY INIT

; -------------------------------------

LCALL LCDINIT

MOV COM,#06H

LCALL PR1

MOV COM,#0C0H

LCALL PR1

MAIN_LOOP:

;; 键 盘 输 入

; 获取键盘输入，使用寄存器组 00

CLR RS0

; 获取输入

MOV A, #0F0H

WAITKEY:

NOP

CJNE A, #0F0H, WAITKEY_OK

LCALL KEY

SJMP WAITKEY

WAITKEY_OK:

MOV A, R7

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;

;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

CLR RS1

LCALL KEYPRESSED

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;

;; 显 示

;;

LCALL DISPLAY

SJMP MAIN_LOOP

; ========================================================

; ==

; == S U B R O U T I N E S

; ==

; ========================================================

KEYPRESSED:

; =========================================

MOV A, INPUT ; 取回数字，高位已经是 0

JB STAT.0, NEWNUM1

; 如果之前处于运算符状态，则此为 NUM2

JB STAT.3, NEWNUM2

JB STAT.1, INNUM1

JB STAT.2, INNUM2

; 否则出错！！

SETB STAT.7 ; ERROR BIT

; --------------------------

NEWNUM1:

CLR STAT.6 ; STAT.6 -> FLOATING POINT

SJMP NEWNUM

ANL STAT, #0F0H ; 操作状态清零(低 4 位)

SETB STAT.2 ; 计算器状态改为 NUM2

SJMP NEWNUM

NEWNUM:

; 准备开始一个新的操作数，首先清除显示缓冲区

; 清除小数点标志位

CLR PNTB

MOV DCOUNT, #00H ; 数字个数清零

; 判断数字是否为 0，0 则忽略

JZ IGNORE0

; 非零数字，保存

MOV RAWIN, A ; 此时 RAWPTR 单元的值，也就是地址

; 就是 RAWIN

INC RAWPTR

; 数字位数增 1

INC DCOUNT

IGNORE0:

INNUM1:

RET

INNUM_OK:

MOV R0, RAWPTR ; 使用 R0 间接寻址

MOV @R0, A

INC RAWPTR

INC DCOUNT

RET

; =========================================