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

helendcany

用8051与1601LCD设计的计算器 带仿真和汇编源程序
, h: ?# F: m# a

. m; _( _6 j' p% R7 n( ~

用8051与1601LCD设计的计算器仿真原理图如下：
' g! J( O6 B' P6 b4 t( Q& g
7 P# G/ c4 v1 U. V" @3 z

: w7 q4 M4 E/ A4 l2 e& x- F部分汇编源码预览：
3 Z$ t1 A; C- T+ z1 H' q" L0 J
1 v6 K7 \3 w9 E6 i* b  ^! S. P
/ T" J. d4 c, b4 c. z/*******************************************************************************
************                 LABCENTER ELECTRONICS                  ************                              
************                Proteus VSM Sample Design Code                  ************                        
************               Integer Calculator ( 2K Code Limit)                ************
3 j8 ], \# m' k' l) k7 w1 [" J; ^7 v*******************************************************************************/
5 I7 d# S$ M, X& X4 {2 j' ^

NAME    KEYPAD
6 X% _/ E0 o$ p) X1 L; This routine will read a character press from the keypad and return it in R7.

$ d6 y% n7 X. T0 Y5 ~. X
+ I/ I4 G6 z) q7 f6 p7 s" S;Set up Segments for the Input Routine - No parameters.
0 |3 X& Z: a% A?PR?input?KEYPAD               SEGMENT CODE
        PUBLIC        input
?DT?input?KEYPAD               SEGMENT DATA

4 O7 S" y( N* d! f! B$ K5 ]
* v& t. y  C' |8 P1 `( oRSEG  ?DT?input?KEYPAD                          ; Local Variable Segment for Output Routine.
8 b  P, k7 S& {- @

KEY_ROW1        equ        0EFh
KEY_ROW2        equ        0DFh
. b9 A$ Z6 j" |3 Z$ lKEY_ROW3        equ        0BFh
KEY_ROW4        equ        07Fh


" D: W) ~! X- \keyflags:        ds        16

/ m  z+ t8 u2 l& G1 p. @) A' l
0 o. k8 L8 \# fRSEG  ?PR?input?KEYPAD                          ; Code Segment for Output Routine.
" K8 A7 _0 M0 i/ ^" [" Ginput:

1 |4 q0 w: U2 z# t% J( _. z
keyscan:push DPH
+ h1 Q, o( I% R  n6 o) C% E& R! i                push DPL
               
+ @8 |% b. q4 ^/ ], F                mov R0,#keyflags                 ; R0 addresses the key toggle bytes
                mov R1,#KEY_ROW1                ; R1 address the keyboard row address
1 k7 j% t) ?5 `: ?- o! S6 j/ x                mov R2,#4                        ; R2 counts rows
- s: O; k' [. Y0 T. M& g: ]ksrow:        mov P2,R1                        ; Set row address to port P2
/ g! M9 t9 T) M4 i; v9 C                nop
                mov A,P1                        ; Read column data from port P1
                mov R3,#4                        ; R3 counts keys per row
2 s* J9 i3 h* p+ Z! d# {0 u                anl A,#3Fh
" H& @& r) D) m" e$ s. [3 S6 `9 Mks0:        rrc A                                ; Move next bit into carry
                mov R4,A                        ; R4 preserves the row data
3 A+ a; |8 b7 c2 o                jc ks1                                ; Jump if key not pressed
; R9 H9 a( F3 o                mov A,@R0                        ; Test if key already pressed
                mov @R0,#1                        ; Flag pressed anyway
9 Y9 p2 A0 `; E" M2 |                jz ksnew                        ; Jump if key newly pressed
                jmp ks2
ks1:        mov @R0,#0                        ; Flag key as not pressed
ks2:        inc R0                                ; Loop for next key in this row
5 k7 |$ j8 t. H/ m# Y$ ^( M; [& H                mov A,R4
3 K4 r* ~) f5 Q5 |& |2 d9 }$ e                djnz R3,ks0


, z7 |9 O$ m- @( D                mov A,R1                        ; Jiggle R1 to address next row
6 o+ G" h1 |( F                rl A
                mov R1,A
& F1 f$ b$ |& q( H                djnz R2,ksrow

( v9 N/ d# J) v+ ~8 {7 \
# M# O/ m+ f( y                clr A                                
! R( q' ]; Y; g. E                mov R7,A                        ; Return zero - no (new) key press.        
/ T5 b. P9 X. B% e                jmp ksend
                                                
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
2 i$ \5 D" P: v5 a* Y1 A: H; x/ }0 G                movc A,@A+DPTR
                mov R7,A                        ; Move the Key into R7 to be returned.
+ N2 C( |$ f$ J% o. Aksend:        mov P2,#0FFh
                pop DPL
                pop DPH
9 i! |2 U, C. S7 f. t                ret


;Data tables for returned row bits
keycodes:
        db         '7','8','9', '/'
, x( ~3 i0 Q' k" x7 P2 X) b                db        '4','5','6', '*'
                db        '1','2','3', '-'
( x2 s: ?5 d1 p. B4 o  A$ l                db        'C','0','=', '+'
0 }+ r8 L0 X+ H( V5 g. k! M2 F8 d

9 K: Y: t* Z" }% G' ^% _0 t! Z                END

完整源码和仿真工程文件下载：
6 E) d+ |  F3 O3 F( r

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

! i8 Y2 W; k% `

Colbie

看看楼主怎么弄的

cj223356

研究一下，谢谢分享