Hallo,
"K heb alles duidelijk en opnieuw uitgelegd helemaal onderaan!"
Dank,
Midnight
"K heb alles duidelijk en opnieuw uitgelegd helemaal onderaan!"
Dank,
Midnight
[ Voor 98% gewijzigd door Verwijderd op 15-03-2007 20:30 ]
[ Voor 98% gewijzigd door Verwijderd op 15-03-2007 20:30 ]
Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'
Give a man a game and he'll have fun for a day. Teach a man to make games and he'll never have fun again.
tags te plaatsen en erbij te vermelden wat voor architectuur je gebruikt, aangezien niet elke CPU dezelfde instructieset heeft..oisyn schreef op maandag 12 maart 2007 @ 11:39:
Daarnaast is het ook nog eens nuttig om je code in [rml][ code]...[ /code]
'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.
[ Voor 63% gewijzigd door een moderator op 12-03-2007 13:14 ]
Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'
Verwijderd
Somniferous whisperings of scarlet fields. Sleep calling me and in my dreams i wander. My reality is abandoned (I traverse afar). Not a care if I never everwake.
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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
| ;*********************************************************
;* Hieronder bevindt zich het hoofdprogramma!
;*********************************************************
Hoofdlus
call MinutenConv
call UurenConv
movf teleen, W
call Tabel
movwf ESD
movf teltwee, W
call Tabel
movwf TSD
movf teldrie, W
call Tabel
movwf DSD
movf telvier, W
call Tabel
movwf VSD
call Display
btfsc invert, 0
bsf IO3
btfss invert, 0
bcf IO3
goto Hoofdlus ;goto, Hoofdlus om het programma blijvend uit te voeren
;********************************************************
;********************************************************
Isr
movlw b'11011011'
movwf TMR1L
movlw b'00001011'
movwf TMR1H
bcf PIR1,TMR1IF
call Instel
incf invert, F
btfss invert, 0
return
incf sec, F
movf sec, W
sublw .60
btfss STATUS, Z
return
clrf sec
incf min, F
movf min, W
sublw .60
btfss STATUS, Z
return
clrf min
clrf sec
incf uur, F
movf uur, W
sublw .24
btfsc STATUS, Z
clrf uur
return
;********************************************************
;********************************************************
Tabel ;deze tabel bevat de 7segment-aansturing
addwf PCL,F ;bereken de jump via optellen van w met de laagste 8 bit van de Program Counter
retlw b'01111110' ;0 DP E G D C B A F
retlw b'01010000' ;1
retlw b'00111101' ;2
retlw b'01110101' ;3
retlw b'01010011' ;4
retlw b'01100111' ;5
retlw b'01101111' ;6
retlw b'01110000' ;7
retlw b'01111111' ;8
retlw b'01110111' ;9
;********************************************************
;********************************************************
Instel ;Subroutine voor het instellen van de clok
btfsc inmin
incf min, F
btfss inuur
incf uur, F
return
;********************************************************
;********************************************************
;* Hier moet de Time waarde nog omgezet worden naar 4-digits
MinutenConv
clrf teleen
clrf teltwee
movf sec,w
movwf teleen
call ConvLow
return
ConvLow
movlw .10
subwf teleen,w
btfss STATUS,C ;carry flag is 1 als het resultaat positief is en 0 als het negatief is
return
movwf teleen
incf teltwee,f
goto ConvLow
;;********************************************************
;********************************************************
;* Hier moet de Time waarde nog omgezet worden naar 4-digits
UurenConv
clrf teldrie
clrf telvier
movf uur, W
movwf teldrie
call ConvFirs
return
ConvFirs
movlw .10
subwf teldrie,w
btfss STATUS,C ;carry flag is 1 als het resultaat positief is en 0 als het negatief is
return
movwf teldrie
incf telvier,f
goto ConvFirs
;;******************************************************** |
Apple iPhone 17 LG OLED evo G5 Google Pixel 10 Samsung Galaxy S25 Star Wars: Outlaws Nintendo Switch 2 Apple AirPods Pro (2e generatie) Sony PlayStation 5 Pro
Tweakers is onderdeel van
DPG Media B.V.
Alle rechten voorbehouden - Auteursrecht © 1998 - 2025
•
Hosting door TrueFullstaq