1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
;Sven Eisenhauer
;MPS1 Versuch 3 Aufgabe 2
;14.06.2005
LSTOUT-
$SFR80515.INC
LSTOUT+
ORG 0000h
MOV CCL3,#0F0H
MOV CCH3,#0D8H
MOV CRCL,#0E0H
MOV CRCH,#0B1H
MOV CCEN,#80H
MOV T2CON,#11H
;SETB P1.0
MOV DPTR,#0F803h
MOV A,#92h
MOVX @DPTR,A
MOV DPTR,#0F802h
MOV A,#00h
MOVX @DPTR,A
MOV P5,#00h
MOV R0,#00h
MOV R1,#00h
MOV R2,#00h
MOV R3,#00h
;WAIT: JB P1.0,WAIT
START: MOV A,R0
CLR C
CJNE A,#0FFh,CARRY
CARRY: JC LBINK
HBINK: INC R1
SJMP AUSG
LBINK: INC R0
SJMP AUSG
AUSG: LCALL PORTS
MOV A,R2
CJNE A,#099h,HUNDERT
HUNDERT: JC BCDL
BCDH: MOV A,R3
ADD A,#1h
DA A
MOV R3,A
MOV R2,#00h
SJMP BCDAUSG
BCDL: MOV A,R2
ADD A,#1h
DA A
MOV R2,A
SJMP BCDAUSG
BCDAUSG: LCALL BCDSEND
SJMP START
BCDSEND: MOV A,R3
SWAP A
ANL A,#0Fh
ADD A,#30h
LCALL SENDSE
MOV A,R3
ANL A,#0Fh
ADD A,#30h
LCALL SENDSE
MOV A,R2
SWAP A
ANL A,#0Fh
ADD A,#30h
LCALL SENDSE
MOV A,R2
ANL A,#0Fh
ADD A,#30h
LCALL SENDSE
MOV A,#20h
LCALL SENDSE
RET
;WAIT2: JNB P1.0,WAIT2
;SJMP WAIT
PORTS: MOV P5,R0
MOV DPTR,#0F802h
MOV A,R1
MOVX @DPTR,A
RET
SENDSE: MOV SBUF,A
CLR TI
WARTE: JNB TI, WARTE
RET
END
|
