Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/valconv.asm @ 807:c50296c3059e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
BUGFIX: Divetime had unwanted "." behind the minutes Change Copyright info 3.02 release
author heinrichsweikamp
date Sat, 07 Feb 2015 12:37:04 +0100
parents 6256a891b2a0
children 2a0e5d884fc3
comparison
equal deleted inserted replaced
806:66b3cdff04db 807:c50296c3059e
1 ; OSTC - diving computer code 1 ; OSTC - diving computer code
2 ; Copyright (C) 2008 HeinrichsWeikamp GbR 2 ; Copyright (C) 2015 HeinrichsWeikamp GbR
3 3
4 ; This program is free software: you can redistribute it and/or modify 4 ; This program is free software: you can redistribute it and/or modify
5 ; it under the terms of the GNU General Public License as published by 5 ; it under the terms of the GNU General Public License as published by
6 ; the Free Software Foundation, either version 3 of the License, or 6 ; the Free Software Foundation, either version 3 of the License, or
7 ; (at your option) any later version. 7 ; (at your option) any later version.
91 output8_call: 91 output8_call:
92 clrf ignore_digits 92 clrf ignore_digits
93 incf ignore_digits,F 93 incf ignore_digits,F
94 clrf temp4 94 clrf temp4
95 95
96 output8 96 output8:
97 movff lo, lo_temp 97 movff lo, lo_temp
98 clrf hi_temp 98 clrf hi_temp
99 bcf pre_zero_flag ; do not display leading zeros 99 bcf pre_zero_flag ; do not display leading zeros
100 100
101 movlw b'01100100' ; 100 101 movlw b'01100100' ; 100
106 106
107 output16_3_call: 107 output16_3_call:
108 clrf ignore_digits 108 clrf ignore_digits
109 incf ignore_digits,F 109 incf ignore_digits,F
110 bsf show_last3 110 bsf show_last3
111 clrf WREG
112 ; Limit to 3 111 ; Limit to 3
113 movlw .4 112 movlw .4
114 cpfslt hi 113 cpfslt hi
115 bra output16_3_call_2 114 bra output16_3_call_2
116 movlw .3 115 movlw .3
124 movlw LOW .999 123 movlw LOW .999
125 movwf lo 124 movwf lo
126 movlw HIGH .999 125 movlw HIGH .999
127 movwf hi 126 movwf hi
128 output16_3_call_3: 127 output16_3_call_3:
128 clrf WREG
129 bra output16 129 bra output16
130 130
131 output16_call: 131 output16_call:
132 clrf ignore_digits 132 clrf ignore_digits
133 incf ignore_digits,F 133 incf ignore_digits,F
134 clrf WREG 134 clrf WREG
135 135
136 output16 136 output16:
137 movwf temp4 ; Passed from output16dp macro, cleared by others. 137 movwf temp4 ; Passed from output16dp macro, cleared by others.
138 138
139 bcf all_zeros_flag ; do not display any zero from here unless there was at least one figure /zero 139 bcf all_zeros_flag ; do not display any zero from here unless there was at least one figure /zero
140 140
141 bsf leading_zeros 141 bsf leading_zeros