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

helendcany

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

0 a- m5 F5 u& P" X/ c% Q3 b

- s' P; B* f$ a1 ]! q' d
用8051与1601LCD设计的计算器仿真原理图如下：

2 X& k2 ?" V* q% W+ F

部分汇编源码预览：


/*******************************************************************************
************                 LABCENTER ELECTRONICS                  ************                              
% c9 `; ^% ?8 {************                Proteus VSM Sample Design Code                  ************                        
7 _3 u0 V) J, |3 F************               Integer Calculator ( 2K Code Limit)                ************
) m+ v! F3 T# i- w0 a; s*******************************************************************************/
8 N" q/ b& U, ]8 l

4 p8 M7 L5 w. d+ M% W- Z. a; g4 INAME    KEYPAD
4 ^- j9 e0 R) e+ c) t5 r) O  d; This routine will read a character press from the keypad and return it in R7.
9 Y: V1 g: `6 }9 M" d+ O

' W+ ~' e  }8 b1 o" y; Y2 V' V;Set up Segments for the Input Routine - No parameters.
?PR?input?KEYPAD               SEGMENT CODE
        PUBLIC        input
?DT?input?KEYPAD               SEGMENT DATA


RSEG  ?DT?input?KEYPAD                          ; Local Variable Segment for Output Routine.


KEY_ROW1        equ        0EFh
KEY_ROW2        equ        0DFh
KEY_ROW3        equ        0BFh
KEY_ROW4        equ        07Fh


keyflags:        ds        16


RSEG  ?PR?input?KEYPAD                          ; Code Segment for Output Routine.
0 S0 C' s# m! O# u7 @input:

2 P8 L: P' S$ O+ |) p
keyscan:push DPH
                push DPL
               
* p& v$ q8 v7 W0 s5 Q7 N+ q                mov R0,#keyflags                 ; R0 addresses the key toggle bytes
% z! y* W( Y+ k" ?; t1 h                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
                nop
                mov A,P1                        ; Read column data from port P1
5 ]9 Z9 d9 ~. j# x+ v; \+ t                mov R3,#4                        ; R3 counts keys per row
, S/ F, J, x+ x7 m& z                anl A,#3Fh
5 [8 [" X0 a( R  sks0:        rrc A                                ; Move next bit into carry
                mov R4,A                        ; R4 preserves the row data
* w9 ~8 o3 [" B! W                jc ks1                                ; Jump if key not pressed
                mov A,@R0                        ; Test if key already pressed
) [# V  b+ O; s3 R! I                mov @R0,#1                        ; Flag pressed anyway
                jz ksnew                        ; Jump if key newly pressed
                jmp ks2
ks1:        mov @R0,#0                        ; Flag key as not pressed
* o. t( X  \) [ks2:        inc R0                                ; Loop for next key in this row
                mov A,R4
3 {0 O8 S: e) I  E8 t0 M% y* Q$ C                djnz R3,ks0
+ ~; ^$ k6 m: [

                mov A,R1                        ; Jiggle R1 to address next row
" S8 c: m, R2 ?. I7 b; `: e; \. g, V' V- ?                rl A
% f% M% P3 g' X1 G- U                mov R1,A
                djnz R2,ksrow

# ^" z- P* F7 u* ?' x' l
                clr A                                
. l+ N( x5 W( b, U4 O" V* i                mov R7,A                        ; Return zero - no (new) key press.        
                jmp ksend
                                                
$ {, b4 p" _0 h4 jksnew:        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
9 n7 H* ]$ u3 A" Z! `, v2 e# q6 a                subb A,#keyflags
                movc A,@A+DPTR
                mov R7,A                        ; Move the Key into R7 to be returned.
4 S, U/ }8 s2 q/ R0 j: }4 M/ G+ {ksend:        mov P2,#0FFh
                pop DPL
- l  @  i; L7 k) p                pop DPH
                ret
2 R; @0 P4 w$ [* c: T' b

;Data tables for returned row bits
) w9 j4 z6 J# q9 L! n/ i/ F: S3 w& mkeycodes:
        db         '7','8','9', '/'
                db        '4','5','6', '*'
- o1 G* v& v, K+ a# c                db        '1','2','3', '-'
( C8 C; V0 w# {2 _2 n% p                db        'C','0','=', '+'
% g$ E; `+ a* e8 U" f

                END
: e- m' U' M( ~- |. x
完整源码和仿真工程文件下载：
& N! v& Z% e6 Z6 N

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

0 w, x8 r  F' o
4 q( j( P& w4 M' o$ b1 p( m

Colbie

看看楼主怎么弄的

cj223356

研究一下，谢谢分享