用8051与1601LCD设计的计算器 带仿真和汇编源程序

helendcany

用8051与1601LCD设计的计算器 带仿真和汇编源程序


$ I  l: B8 U/ F

4 W' c& G1 w! ]& h. i用8051与1601LCD设计的计算器仿真原理图如下：
' {$ ~4 p; t+ R

" Y! N7 |$ M6 Q' p" m4 o
部分汇编源码预览：
' L( o6 ?. ?# K, k
! @7 r) U# r! @3 h; K3 W
) _7 K# [- a3 a/*******************************************************************************
************                 LABCENTER ELECTRONICS                  ************                              
9 Z. C7 w3 P( z% o  g8 @- {************                Proteus VSM Sample Design Code                  ************                        
. c4 W: q0 B: Q! j************               Integer Calculator ( 2K Code Limit)                ************
( o+ Z8 s- X8 a, b$ Q*******************************************************************************/


NAME    KEYPAD
7 t2 E- o+ x7 |( [2 S; This routine will read a character press from the keypad and return it in R7.
, ^; g7 ^/ m. F2 I+ f2 L

;Set up Segments for the Input Routine - No parameters.
?PR?input?KEYPAD               SEGMENT CODE
        PUBLIC        input
?DT?input?KEYPAD               SEGMENT DATA
* C0 j" B/ X) Y7 `( ?

, Z6 Q' R1 `, g& P7 i6 DRSEG  ?DT?input?KEYPAD                          ; Local Variable Segment for Output Routine.

3 x. x! [- b/ I9 I) G
2 ?) \9 G' j0 w- PKEY_ROW1        equ        0EFh
5 p" s5 ^, ^3 ^8 M4 R' W5 X3 BKEY_ROW2        equ        0DFh
: i0 l/ u& p7 ]" ^( z! D& yKEY_ROW3        equ        0BFh
KEY_ROW4        equ        07Fh


3 ]3 p  Z2 t) z6 z9 ]- B" n5 zkeyflags:        ds        16
+ Q, l* y2 c7 j. B& Z( j

RSEG  ?PR?input?KEYPAD                          ; Code Segment for Output Routine.
2 b7 Y5 i, c* q$ z. x$ v* einput:

- _8 E& ^8 \& k) w: r! J) |# r
keyscan:push DPH
                push DPL
0 {( |$ [9 d( A4 y; a               
                mov R0,#keyflags                 ; R0 addresses the key toggle bytes
; G8 y- f4 Z+ ]5 y                mov R1,#KEY_ROW1                ; R1 address the keyboard row address
                mov R2,#4                        ; R2 counts rows
ksrow:        mov P2,R1                        ; Set row address to port P2
9 C" B4 |/ ?- w6 V) P                nop
# T" p) C' e7 K* I" h' B                mov A,P1                        ; Read column data from port P1
                mov R3,#4                        ; R3 counts keys per row
9 z$ C8 N. D9 y/ h, ]                anl A,#3Fh
4 }2 X" g4 K. s5 }! U" Iks0:        rrc A                                ; Move next bit into carry
" F' M0 x+ q- @2 Y/ h( `) H& l                mov R4,A                        ; R4 preserves the row data
                jc ks1                                ; Jump if key not pressed
7 _/ V9 T" e; x3 t! @3 z8 \' Z                mov A,@R0                        ; Test if key already pressed
4 v* [" ^% [6 O+ X2 d8 t                mov @R0,#1                        ; Flag pressed anyway
                jz ksnew                        ; Jump if key newly pressed
                jmp ks2
/ |/ @: l. C  p" l( S$ X: m, }6 o" ?ks1:        mov @R0,#0                        ; Flag key as not pressed
6 @% @! A6 y  w& R7 O" E7 uks2:        inc R0                                ; Loop for next key in this row
3 z' L1 M$ x8 j& P                mov A,R4
9 T! q) q) K5 g+ P                djnz R3,ks0
( b* m  u3 k  v! F
2 i8 d5 R" @/ K7 I
                mov A,R1                        ; Jiggle R1 to address next row
                rl A
                mov R1,A
# V' _' _1 Y# P8 ]/ ]                djnz R2,ksrow
0 n) n# e, K6 c& `) ^
9 G! l& v  S0 @% G% Z2 S, m$ Y/ t7 c8 S
5 X$ f" G8 h. w2 _. H2 x- L                clr A                                
* f. i/ j! w. q/ A                mov R7,A                        ; Return zero - no (new) key press.        
4 w/ D2 E; p3 I                jmp ksend
7 |+ G9 M0 x2 `2 f& W: R                                                
ksnew:        mov DPTR,#keycodes                ; We've found a new key since last time:
                mov A,R0                        ; The key flag address (ordinal) is in R0
                clr C
                subb A,#keyflags
                movc A,@A+DPTR
                mov R7,A                        ; Move the Key into R7 to be returned.
ksend:        mov P2,#0FFh
8 ]2 w. n. m" y0 H) A- |- T                pop DPL
                pop DPH
                ret
, K; w# I1 S. N2 S) M) Y$ P

;Data tables for returned row bits
keycodes:
$ v. K* T; `  }* h* S        db         '7','8','9', '/'
& R8 L  {9 {7 f+ z) U( v% h                db        '4','5','6', '*'
4 W% X3 U& {; f( Y2 A" E5 M* V                db        '1','2','3', '-'
                db        'C','0','=', '+'
8 s+ t2 d( U+ ^/ d0 V! C
: h' w7 {) n7 Z' j" u( Y3 h
* d+ z1 ~& k( t. f6 u; s6 Y; X                END

$ S$ Y0 c4 v0 \* P8 a' \完整源码和仿真工程文件下载：

游客，如果您要查看本帖隐藏内容请回复

7 f3 a3 p9 b: w' e; u/ w! a7 n

Colbie

看看楼主怎么弄的

cj223356

研究一下，谢谢分享