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
|
;;
;; mur.sat
;;
;; Somewhen in the year 2012, mur.at will have a nano satellite launched
;; into a low earth orbit (310 km above the surface of our planet). The
;; satellite itself is a TubeSat personal satellite kit, developed and
;; launched by interorbital systems. mur.sat is a joint venture of mur.at,
;; ESC im Labor and realraum.
;;
;; Please visit the project hompage at sat.mur.at for further information.
;;
;;
;; Copyright (C) 2011 Christian Pointner <equinox@mur.at>
;;
;; This file is part of mur.sat.
;;
;; mur.sat is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; any later version.
;;
;; mur.sat is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with mur.sat. If not, see <http://www.gnu.org/licenses/>.
;;
;; -------------------------------------
;; digit
digit
clrf PCLATH ; this table is betwenn 0x100 and 0x200
incf PCLATH,f ; load PCLATH without changing W
andlw b'00001111'
addwf PCL,f
retlw '0'
retlw '1'
retlw '2'
retlw '3'
retlw '4'
retlw '5'
retlw '6'
retlw '7'
retlw '8'
retlw '9'
retlw 'A'
retlw 'B'
retlw 'C'
retlw 'D'
retlw 'E'
retlw 'F'
mul10
clrf PCLATH ; this table is betwenn 0x100 and 0x200
incf PCLATH,f ; load PCLATH without changing W
addwf PCL,f
retlw .0
retlw .10
retlw .20
retlw .30
retlw .40
retlw .50
retlw .60
retlw .70
retlw .80
retlw .90
retlw .100
retlw .110
retlw .120
retlw .130
retlw .140
retlw .150
retlw .160
daysL
clrf PCLATH ; this table is betwenn 0x100 and 0x200
incf PCLATH,f ; load PCLATH without changing W
addwf PCL,f
retlw .0
retlw .0
retlw .31
retlw .60
retlw .91
retlw .121
retlw .152
retlw .182
retlw .213
retlw .244
retlw .18
retlw .49
retlw .79
daysH
clrf PCLATH ; this table is betwenn 0x100 and 0x200
incf PCLATH,f ; load PCLATH without changing W
addwf PCL,f
retlw .0
retlw .0
retlw .0
retlw .0
retlw .0
retlw .0
retlw .0
retlw .0
retlw .0
retlw .0
retlw .1
retlw .1
retlw .1
;; -------------------------------------
|
