;;
  ;;  mur.sat
  ;;
  ;;  Somewhen in the year 20xx, 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-2015 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

  ;; -------------------------------------