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

helendcany

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


8 R) P) \: E+ E; _2 B( d( H  \

用8051与1601LCD设计的计算器仿真原理图如下：



部分汇编源码预览：


8 Z2 o$ Y6 Q3 [( u  n2 O/*******************************************************************************
************                 LABCENTER ELECTRONICS                  ************                              
************                Proteus VSM Sample Design Code                  ************                        
/ J/ e& X$ H) j7 \" @4 n) Z! Z) q+ {; G************               Integer Calculator ( 2K Code Limit)                ************
*******************************************************************************/
2 F; }, g" n  w; {# V0 c4 G
: W5 q9 e4 i) _
6 h9 [2 {2 e, X: R1 GNAME    KEYPAD
; This routine will read a character press from the keypad and return it in R7.
  U' o3 X' V1 y: \' Q- k3 `! ]

5 V, ]0 G, \* h1 ^, d;Set up Segments for the Input Routine - No parameters.
?PR?input?KEYPAD               SEGMENT CODE
        PUBLIC        input
?DT?input?KEYPAD               SEGMENT DATA


% a" q; U7 O  ~  F  I$ S7 KRSEG  ?DT?input?KEYPAD                          ; Local Variable Segment for Output Routine.

3 e+ b2 k! [0 _  a  q
KEY_ROW1        equ        0EFh
- J6 p# D( d5 Q! G3 Y6 Q; i5 ?4 HKEY_ROW2        equ        0DFh
2 c# Z5 d+ K4 `4 k8 pKEY_ROW3        equ        0BFh
KEY_ROW4        equ        07Fh


5 G7 \/ H% x$ {# q* g/ Kkeyflags:        ds        16
# u" A& s) D* r, M' D1 F

RSEG  ?PR?input?KEYPAD                          ; Code Segment for Output Routine.
. h8 x1 _( [6 Z" E' M3 einput:
' W6 J: H. x9 V" P% n
: N% O" K1 o3 a% [# y
keyscan:push DPH
                push DPL
( H6 K! R/ s, O               
                mov R0,#keyflags                 ; R0 addresses the key toggle bytes
' x5 o; e" q$ x                mov R1,#KEY_ROW1                ; R1 address the keyboard row address
. o8 Z$ n7 q" S( h: _9 Z                mov R2,#4                        ; R2 counts rows
ksrow:        mov P2,R1                        ; Set row address to port P2
8 C1 ~* \# v- `) |6 n" L$ t                nop
                mov A,P1                        ; Read column data from port P1
; o9 f4 S  I. Z                mov R3,#4                        ; R3 counts keys per row
                anl A,#3Fh
ks0:        rrc A                                ; Move next bit into carry
; @: e2 ^  @% d# p( }  V$ T/ R                mov R4,A                        ; R4 preserves the row data
' p' z1 f) g* l  u                jc ks1                                ; Jump if key not pressed
                mov A,@R0                        ; Test if key already pressed
0 _5 D) G+ E+ F                mov @R0,#1                        ; Flag pressed anyway
1 J) z8 d: N8 \0 |                jz ksnew                        ; Jump if key newly pressed
                jmp ks2
6 }  a9 f- l! H5 ~3 c, [% P9 Lks1:        mov @R0,#0                        ; Flag key as not pressed
, L& s/ r/ `8 }% p% iks2:        inc R0                                ; Loop for next key in this row
                mov A,R4
                djnz R3,ks0
! R  A# j/ {! f. @1 E9 ]2 k
1 ^8 K" h+ Q: s& N+ Q( s
                mov A,R1                        ; Jiggle R1 to address next row
( ~8 ~7 i' c, K                rl A
                mov R1,A
# D" s, K- y2 P5 R2 _9 w                djnz R2,ksrow

5 A/ {: C4 K6 L: J( o( K
                clr A                                
9 `% ?& P8 P  y                mov R7,A                        ; Return zero - no (new) key press.        
                jmp ksend
                                                
3 A8 F  `8 R! D; X5 b7 M+ Lksnew:        mov DPTR,#keycodes                ; We've found a new key since last time:
! D) l: r3 H/ @. O2 _                mov A,R0                        ; The key flag address (ordinal) is in R0
                clr C
! j- \+ {: U8 e6 S1 a% h+ [- E                subb A,#keyflags
                movc A,@A+DPTR
                mov R7,A                        ; Move the Key into R7 to be returned.
) s# M( z6 z0 F. Mksend:        mov P2,#0FFh
                pop DPL
0 m2 t+ R3 G& p- B4 C( [                pop DPH
                ret


) N; s2 f% S# W# ^2 g2 r. L* @;Data tables for returned row bits
keycodes:
7 l7 C" Y: {0 q5 \$ w        db         '7','8','9', '/'
# v" d. z( C; e$ v                db        '4','5','6', '*'
* h# b3 |* Q* R, T                db        '1','2','3', '-'
! ~- D% D1 J! P6 E7 w* H                db        'C','0','=', '+'

  t: Z* q( {7 U: G2 F
0 a: k# }. |! ], H# H! a5 q$ x3 o                END

' y0 M% g+ l/ M% v+ u7 g. n完整源码和仿真工程文件下载：
8 p; e2 O- Z0 E  Q% P1 @; C

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

3 `( ^0 U0 G6 T* L- D- [7 v

Colbie

看看楼主怎么弄的

cj223356

研究一下，谢谢分享