annotate code_part1/OSTC_code_c_part2/p2_deco.c @ 130:d721b49b8934

Fixed profile view (Logbook)
author Heinrichsweikamp
date Tue, 04 Jan 2011 17:41:13 +0100
parents ed275788a291
children 144822282fa3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1 // **************************************************************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2 // p2_deco.c
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
3 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
4 // Created on: 12.05.2009
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
5 // Author: chsw
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
6 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
7 // **************************************************************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
8
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
9 //////////////////////////////////////////////////////////////////////////////
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
10 // OSTC - diving computer code
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
11 // Copyright (C) 2008 HeinrichsWeikamp GbR
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
12 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
13 // This program is free software: you can redistribute it and/or modify
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
14 // it under the terms of the GNU General Public License as published by
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
15 // the Free Software Foundation, either version 3 of the License, or
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
16 // (at your option) any later version.
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
17 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
18 // This program is distributed in the hope that it will be useful,
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
19 // but WITHOUT ANY WARRANTY; without even the implied warranty of
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
20 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
21 // GNU General Public License for more details.
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
22 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
23 // You should have received a copy of the GNU General Public License
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
24 // along with this program. If not, see <http://www.gnu.org/licenses/>.
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
25 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
26 //////////////////////////////////////////////////////////////////////////////
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
27
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
28 // *****************************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
29 // ** I N T R O D U C T I O N **
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
30 // *****************************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
31 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
32 // OSTC
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
33 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
34 // code:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
35 // p2_deco_main_c_v101.c
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
36 // part2 of the OSTC code
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
37 // code with constant O2 partial pressure routines
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
38 // under construction !!
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
39 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
40 // summary:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
41 // decompression routines
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
42 // for the OSTC experimental project
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
43 // written by Christian Weikamp
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
44 // last revision __________
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
45 // comments added _________
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
46 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
47 // additional files:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
48 // p2_tables_v100.romdata (other files)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
49 // 18f4685_ostc_v100.lkr (linker script)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
50 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
51 // history:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
52 // 01/03/08 v100: first release candidate
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
53 // 03/13/08 v101: start of programming ppO2 code
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
54 // 03/13/25 v101a: backup of interrim version with ppO2 calculation
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
55 // 03/13/25 v101: open circuit gas change during deco
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
56 // 03/13/25 v101: CNS_fraction calculation
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
57 // 03/13/26 v101: optimization of tissue calc routines
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
58 // 07/xx/08 v102a: debug of bottom time routine
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
59 // 09/xx/08 v102d: Gradient Factor Model implemenation
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
60 // 10/10/08 v104: renamed to build v103 for v118 stable
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
61 // 10/14/08 v104: integration of temp_depth_last_deco for Gradient Model
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
62 // 03/31/09 v107: integration of FONT Incon24
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
63 // 05/23/10 v109: 5 gas changes & 1 min timer
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
64 // 07/13/10 v110: cns vault added
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
65 // 12/25/10 v110: split in three files (deco.c, main.c, definitions.h)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
66 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
67 //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
68 // literature:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
69 // B"uhlmann, Albert: Tauchmedizin; 4. Auflage;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
70 // Schr"oder, Kai & Reith, Steffen; 2000; S"attigungsvorg"ange beim Tauchen, das Modell ZH-L16, Funktionsweise von Tauchcomputern; http://www.achim-und-kai.de/kai/tausim/saett_faq
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
71 // Morrison, Stuart; 2000; DIY DECOMPRESSION; http://www.lizardland.co.uk/DIYDeco.html
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
72 // Balthasar, Steffen; Dekompressionstheorie I: Neo Haldane Modelle; http://www.txfreak.de/dekompressionstheorie_1.pdf
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
73 // Baker, Erik C.; Clearing Up The Confusion About "Deep Stops"
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
74 // Baker, Erik C.; Understanding M-values; http://www.txfreak.de/understanding_m-values.pdf
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
75
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
76
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
77 // *********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
78 // ** I N C L U D E S **
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
79 // *********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
80 #include <math.h>
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
81
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
82 #include "p2_definitions.h"
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
83
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
84 // ***********************************************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
85 // ** V A R I A B L E S D E F I N I T I O N S **
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
86 // ***********************************************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
87
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
88
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
89 #pragma udata bank2a=0x200
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
90 // output:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
91 unsigned int int_O_tissue_for_debug[32];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
92 unsigned int int_O_GF_spare____; // 0x240
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
93 unsigned int int_O_GF_step; // 0x242
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
94 unsigned int int_O_gtissue_limit; // 0x244
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
95 unsigned int int_O_gtissue_press; // 0x246
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
96 unsigned int int_O_limit_GF_low; // 0x248
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
97 unsigned int int_O_gtissue_press_at_GF_low; // 0x24A
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
98 unsigned char char_I_step_is_1min; // 0x24C
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
99
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
100 // ...
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
101 #pragma udata bank2b=0x24E
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
102 unsigned char char_O_GF_low_pointer; // 0x24E
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
103 unsigned char char_O_actual_pointer; // 0x24F
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
104
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
105 #pragma udata bank2c=0x250
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
106 unsigned char char_O_deco_table[32]; // 0x250
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
107
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
108 #pragma udata bank2d=0x270
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
109 unsigned char char_I_table_deco_done[32];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
110
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
111 #pragma udata bank2e=0x290
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
112 unsigned int int_O_calc_tissue_call_counter; // 0x290
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
113
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
114 // internal:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
115 static unsigned char lock_GF_depth_list;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
116 static float temp_limit;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
117 static float GF_low;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
118 static float GF_high;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
119 static float GF_delta;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
120 static float GF_temp;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
121 static float GF_step;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
122 static float GF_step2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
123 static float temp_pres_gtissue;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
124 static float temp_pres_gtissue_diff;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
125 static float temp_pres_gtissue_limit_GF_low;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
126 static float temp_pres_gtissue_limit_GF_low_below_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
127 static unsigned int temp_depth_limit;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
128 static unsigned char temp_decotime;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
129 static unsigned char temp_gtissue_no;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
130 static unsigned int temp_depth_last_deco; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
131
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
132 static unsigned char temp_depth_GF_low_meter;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
133 static unsigned char temp_depth_GF_low_number;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
134 static unsigned char internal_deco_pointer;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
135
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
136 #pragma udata bank2f=0x2C8
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
137 static unsigned char internal_deco_table[32]; // 0x2C8
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
138 static float temp_pres_deco_GF_low;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
139
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
140 #pragma udata bank3a=0x300
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
141 static char output[32]; // used by the math routines
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
142
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
143 #pragma udata bank3b=0x37C
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
144 static float cns_vault;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
145
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
146 #pragma udata bank3c=0x380
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
147 static float pres_tissue_vault[32];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
148
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
149 #pragma udata bank4a=0x400
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
150 // internal:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
151 static unsigned char ci ; // don't move - used in _asm routines - if moved then modify movlb commands
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
152 static unsigned char x;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
153 static unsigned int main_i_dummy;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
154 static unsigned int int_temp;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
155 static unsigned int int_temp2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
156 static unsigned int int_temp_decostatus;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
157 static float pres_respiration;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
158 static float pres_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
159 static float temp1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
160 static float temp2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
161 static float temp3;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
162 static float temp4;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
163 static float temp_deco;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
164 static float temp_atem;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
165 static float temp2_atem;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
166 static float temp_tissue;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
167 static float temp_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
168 static float N2_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
169 static float He_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
170 static float temp_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
171 static float var_a;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
172 static float var2_a;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
173 static float var_b;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
174 static float var2_b;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
175 static float var_t05nc;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
176 static float var2_t05nc;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
177 static float var_e2secs;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
178 static float var2_e2secs;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
179 static float var_e1min;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
180 static float var2_e1min;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
181 static float var_halftimes;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
182 static float var2_halftimes;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
183 static float pres_gtissue_limit;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
184 static float temp_pres_gtissue_limit;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
185 static float actual_ppO2; // new in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
186
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
187 #pragma udata bank4b=0x480
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
188 static float pres_tissue[32];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
189
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
190 #pragma udata bank5=0x500
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
191 // don't move positions in this bank, the registers are addressed directly from assembler code
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
192 // input:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
193 unsigned int int_I_pres_respiration; // 0x500
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
194 unsigned int int_I_pres_surface; // 0x502
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
195 unsigned int int_I_temp; // 0x504 new in v101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
196 unsigned char char_I_temp; // 0x506 new in v101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
197 unsigned char char_I_actual_ppO2; // 0x507
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
198 unsigned char char_I_deco_N2_ratio2; // 0x508 new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
199 unsigned char char_I_deco_He_ratio2; // 0x509 new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
200 unsigned char char_I_deco_N2_ratio3; // 0x50A new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
201 unsigned char char_I_deco_He_ratio3; // 0x50B new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
202 unsigned char char_I_deco_N2_ratio4; // 0x50C new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
203 unsigned char char_I_deco_He_ratio4; // 0x50D new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
204 unsigned char char_I_deco_N2_ratio5; // 0x50E new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
205 unsigned char char_I_deco_He_ratio5; // 0x50F new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
206 unsigned char char_I_N2_ratio; // 0x510
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
207 unsigned char char_I_He_ratio; // 0x511
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
208 unsigned char char_I_saturation_multiplier; // for conservatism/safety values 1.0 (no conservatism) to 1.5 (50% faster saturation
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
209 unsigned char char_I_desaturation_multiplier; // for conservatism/safety values 0.66 (50% slower desaturation) to 1.0 (no conservatism)// consveratism used in calc_tissue(), calc_tissue_step_1_min() and sim_tissue_1min()
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
210 unsigned char char_I_GF_High_percentage; // 0x514 new in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
211 unsigned char char_I_GF_Low_percentage; // 0x515 new in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
212 unsigned char char_I_spare; // 0x516
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
213 unsigned char char_I_deco_distance; // 0x517
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
214 unsigned char char_I_const_ppO2; // 0x518 new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
215 unsigned char char_I_deco_ppO2_change; // 0x519 new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
216 unsigned char char_I_deco_ppO2; // 0x51A new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
217 unsigned char char_I_deco_gas_change; // 0x51B new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
218 unsigned char char_I_deco_N2_ratio; // 0x51C new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
219 unsigned char char_I_deco_He_ratio; // 0x51D new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
220 unsigned char char_I_depth_last_deco; // 0x51E new in v.101 unit: [m]
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
221 unsigned char char_I_deco_model; // 0x51F new in v.102 ( 1 = MultiGraF, sonst Std. mit (de-)saturation_multiplier)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
222
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
223 // output:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
224 unsigned int int_O_desaturation_time; // 0x520
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
225 unsigned char char_O_nullzeit; // 0x522
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
226 unsigned char char_O_deco_status; // 0x523
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
227 unsigned char char_O_array_decotime[7]; // 0x524
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
228 unsigned char char_O_array_decodepth[6]; // 0x52B
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
229 unsigned char char_O_ascenttime; // 0x531
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
230 unsigned char char_O_gradient_factor; // 0x532
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
231 unsigned char char_O_tissue_saturation[32]; // 0x533
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
232 unsigned char char_O_array_gradient_weighted[16]; // 0x553
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
233 unsigned char char_O_gtissue_no; // 0x563
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
234 unsigned char char_O_diluent; // 0x564 new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
235 unsigned char char_O_CNS_fraction; // 0x565 new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
236 unsigned char char_O_relative_gradient_GF; // 0x566 new in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
237 unsigned char char_I_deco_gas_change2; // 0x567 new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
238 unsigned char char_I_deco_gas_change3; // 0x568 new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
239 unsigned char char_I_deco_gas_change4; // 0x569 new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
240 unsigned char char_I_deco_gas_change5; // 0x56A new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
241
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
242 // internal:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
243 static float pres_tissue_limit[16];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
244 static float sim_pres_tissue_limit[16];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
245 static float pres_diluent; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
246 static float deco_diluent; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
247 static float const_ppO2; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
248 static float deco_ppO2_change; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
249 static float deco_ppO2; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
250
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
251 #pragma udata bank6=0x600
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
252 // internal:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
253 static float sim_pres_tissue[32];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
254 static float sim_pres_tissue_backup[32];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
255
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
256 #pragma udata bank8=0x800
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
257 static char md_pi_subst[256];
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
258 #define C_STACK md_pi_subst // Overlay C-code data stack here, too.
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
259
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
260 #pragma udata bank9a=0x900
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
261 // output:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
262 static char md_state[48]; // DONT MOVE !! // has to be at the beginning of bank 9 for the asm code!!!
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
263
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
264 #pragma udata bank9b=0x930
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
265 // output:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
266 unsigned int int_O_DBS_bitfield; // 0x930 new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
267 unsigned int int_O_DBS2_bitfield; // 0x932 new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
268 unsigned int int_O_DBG_pre_bitfield; // 0x934 new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
269 unsigned int int_O_DBG_post_bitfield; // 0x936 new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
270 unsigned char char_O_NDL_at_20mtr; // 0x938 new in v.108 // 0xFF == undefined, max. 254
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
271
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
272 // internal:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
273 static char md_t;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
274 static char md_buffer[16];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
275 static char md_cksum[16];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
276 static char md_i;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
277 static char md_j;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
278 static char md_temp;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
279 static unsigned int md_pointer;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
280 static float deco_N2_ratio; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
281 static float deco_He_ratio; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
282 static float calc_N2_ratio; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
283 static float calc_He_ratio; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
284 static float deco_gas_change; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
285 static float CNS_fraction; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
286 static float float_saturation_multiplier; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
287 static float float_desaturation_multiplier; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
288 static float float_deco_distance; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
289 // internal, dbg:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
290 static unsigned char DBG_char_I_deco_model; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
291 static unsigned char DBG_char_I_depth_last_deco; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
292 static float DBG_pres_surface; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
293 static float DBG_GF_low; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
294 static float DBG_GF_high; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
295 static float DBG_const_ppO2; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
296 static float DBG_deco_ppO2_change; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
297 static float DBG_deco_ppO2; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
298 static float DBG_deco_N2_ratio; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
299 static float DBG_deco_He_ratio; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
300 static float DBG_deco_gas_change; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
301 static float DBG_float_saturation_multiplier; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
302 static float DBG_float_desaturation_multiplier; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
303 static float DBG_float_deco_distance; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
304 static float DBG_deco_N2_ratio; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
305 static float DBG_deco_He_ratio; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
306 static float DBG_N2_ratio; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
307 static float DBG_He_ratio; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
308 static char flag_in_divemode; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
309 static int int_dbg_i; // new in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
310 static unsigned int temp_DBS;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
311
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
312 static float deco_gas_change2; // new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
313 static float deco_gas_change3; // new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
314 static float deco_gas_change4; // new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
315 static float deco_gas_change5; // new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
316
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
317 static float deco_N2_ratio2; // new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
318 static float deco_N2_ratio3; // new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
319 static float deco_N2_ratio4; // new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
320 static float deco_N2_ratio5; // new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
321 static float deco_He_ratio2; // new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
322 static float deco_He_ratio3; // new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
323 static float deco_He_ratio4; // new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
324 static float deco_He_ratio5; // new in v.109
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
325
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
326 // ***********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
327 // ***********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
328 // ** THE LOOKUP TABLES **
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
329 // ***********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
330 // ***********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
331
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
332 #pragma romdata tables = 0x10200
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
333 #include "p2_tables.romdata" // new table for deco_main_v.101 (var_a modified)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
334
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
335 #pragma romdata tables2 = 0x10600
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
336 rom const rom unsigned int md_pi[] =
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
337 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
338 0x292E, 0x43C9, 0xA2D8, 0x7C01, 0x3D36, 0x54A1, 0xECF0, 0x0613
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
339 , 0x62A7, 0x05F3, 0xC0C7, 0x738C, 0x9893, 0x2BD9, 0xBC4C, 0x82CA
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
340 , 0x1E9B, 0x573C, 0xFDD4, 0xE016, 0x6742, 0x6F18, 0x8A17, 0xE512
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
341 , 0xBE4E, 0xC4D6, 0xDA9E, 0xDE49, 0xA0FB, 0xF58E, 0xBB2F, 0xEE7A
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
342 , 0xA968, 0x7991, 0x15B2, 0x073F, 0x94C2, 0x1089, 0x0B22, 0x5F21
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
343 , 0x807F, 0x5D9A, 0x5A90, 0x3227, 0x353E, 0xCCE7, 0xBFF7, 0x9703
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
344 , 0xFF19, 0x30B3, 0x48A5, 0xB5D1, 0xD75E, 0x922A, 0xAC56, 0xAAC6
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
345 , 0x4FB8, 0x38D2, 0x96A4, 0x7DB6, 0x76FC, 0x6BE2, 0x9C74, 0x04F1
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
346 , 0x459D, 0x7059, 0x6471, 0x8720, 0x865B, 0xCF65, 0xE62D, 0xA802
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
347 , 0x1B60, 0x25AD, 0xAEB0, 0xB9F6, 0x1C46, 0x6169, 0x3440, 0x7E0F
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
348 , 0x5547, 0xA323, 0xDD51, 0xAF3A, 0xC35C, 0xF9CE, 0xBAC5, 0xEA26
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
349 , 0x2C53, 0x0D6E, 0x8528, 0x8409, 0xD3DF, 0xCDF4, 0x4181, 0x4D52
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
350 , 0x6ADC, 0x37C8, 0x6CC1, 0xABFA, 0x24E1, 0x7B08, 0x0CBD, 0xB14A
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
351 , 0x7888, 0x958B, 0xE363, 0xE86D, 0xE9CB, 0xD5FE, 0x3B00, 0x1D39
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
352 , 0xF2EF, 0xB70E, 0x6658, 0xD0E4, 0xA677, 0x72F8, 0xEB75, 0x4B0A
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
353 , 0x3144, 0x50B4, 0x8FED, 0x1F1A, 0xDB99, 0x8D33, 0x9F11, 0x8314
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
354 };
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
355
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
356 // *********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
357 // *********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
358 // ** THE SUBROUTINES **
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
359 // *********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
360 // *********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
361 // all new in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
362 // moved from 0x0D000 to 0x0C000 in v.108
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
363
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
364 #pragma code p2_deco = 0x0C000
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
365
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
366 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
367 // DBS - debug on start of dive //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
368 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
369 void create_dbs_set_dbg_and_ndl20mtr(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
370 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
371 int_O_DBS_bitfield = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
372 int_O_DBS2_bitfield = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
373 if(int_O_DBG_pre_bitfield & DBG_RUN)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
374 int_O_DBG_pre_bitfield = DBG_RESTART;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
375 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
376 int_O_DBG_pre_bitfield = DBG_RUN;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
377 int_O_DBG_post_bitfield = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
378 char_O_NDL_at_20mtr = 255;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
379
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
380 DBG_N2_ratio = N2_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
381 DBG_He_ratio = He_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
382 DBG_char_I_deco_model = char_I_deco_model;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
383 DBG_char_I_depth_last_deco = char_I_depth_last_deco;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
384 DBG_pres_surface = pres_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
385 DBG_GF_low = GF_low;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
386 DBG_GF_high = GF_high;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
387 DBG_const_ppO2 = const_ppO2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
388 DBG_deco_ppO2_change = deco_ppO2_change;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
389 DBG_deco_ppO2 = deco_ppO2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
390 DBG_deco_N2_ratio = deco_N2_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
391 DBG_deco_He_ratio = deco_He_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
392 DBG_deco_gas_change = deco_gas_change;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
393 DBG_float_saturation_multiplier = float_saturation_multiplier;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
394 DBG_float_desaturation_multiplier = float_desaturation_multiplier;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
395 DBG_float_deco_distance = float_deco_distance;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
396
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
397 if(char_I_deco_model)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
398 int_O_DBS_bitfield |= DBS_mode;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
399 if(const_ppO2)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
400 int_O_DBS_bitfield |= DBS_ppO2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
401 for(int_dbg_i = 16; int_dbg_i < 32; int_dbg_i++)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
402 if(pres_tissue[int_dbg_i])
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
403 int_O_DBS_bitfield |= DBS_HE_sat;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
404 if(deco_ppO2_change)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
405 int_O_DBS_bitfield |= DBS_ppO2chg;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
406 if(float_saturation_multiplier < 0.99)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
407 int_O_DBS_bitfield |= DBS_SAT2l;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
408 if(float_saturation_multiplier > 1.3)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
409 int_O_DBS_bitfield |= DBS_SAT2h;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
410 if(GF_low < 0.19)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
411 int_O_DBS_bitfield |= DBS_GFLOW2l;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
412 if(GF_low > 1.01)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
413 int_O_DBS_bitfield |= DBS_GFLOW2h;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
414 if(GF_high < 0.6)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
415 int_O_DBS_bitfield |= DBS_GFHGH2l;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
416 if(GF_high > 1.01)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
417 int_O_DBS_bitfield |= DBS_GFHGH2h;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
418 if((N2_ratio + He_ratio) > 0.95)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
419 int_O_DBS_bitfield |= DBS_GASO22l;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
420 if((N2_ratio + He_ratio) < 0.05)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
421 int_O_DBS_bitfield |= DBS_GASO22h;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
422 if(float_deco_distance > 0.25)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
423 int_O_DBS_bitfield |= DBS_DIST2h;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
424 if(char_I_depth_last_deco > 8)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
425 int_O_DBS_bitfield |= DBS_LAST2h;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
426 if(DBG_deco_gas_change && ((deco_N2_ratio + deco_He_ratio) > 0.95))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
427 int_O_DBS_bitfield |= DBS_DECOO2l;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
428 if(DBG_deco_gas_change && ((deco_N2_ratio + deco_He_ratio) < 0.05))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
429 int_O_DBS_bitfield |= DBS_DECOO2h;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
430 if(pres_respiration > 3.0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
431 int_O_DBS2_bitfield |= DBS2_PRES2h;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
432 if(pres_surface - pres_respiration > 0.2)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
433 int_O_DBS2_bitfield |= DBS2_PRES2l;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
434 if(pres_surface < 0.75)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
435 int_O_DBS2_bitfield |= DBS2_SURF2l;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
436 if(pres_surface > 1.11)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
437 int_O_DBS2_bitfield |= DBS2_SURF2h;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
438 if(float_desaturation_multiplier < 0.70)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
439 int_O_DBS2_bitfield |= DBS2_DESAT2l;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
440 if(float_desaturation_multiplier > 1.01)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
441 int_O_DBS2_bitfield |= DBS2_DESAT2h;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
442 if(GF_low > GF_high)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
443 int_O_DBS2_bitfield |= DBS2_GFDneg;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
444 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
445
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
446 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
447 // DBG - set DBG to end_of_dive //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
448 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
449 void set_dbg_end_of_dive(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
450 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
451 int_O_DBG_pre_bitfield &= (~DBG_RUN);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
452 int_O_DBG_post_bitfield &= (~DBG_RUN);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
453 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
454
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
455 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
456 // DBG - NDL at first 20 m. hit //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
457 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
458 void check_ndl(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
459 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
460 if((char_O_NDL_at_20mtr == -1) && (int_I_pres_respiration > 3000))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
461 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
462 char_O_NDL_at_20mtr = char_O_nullzeit;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
463 if(char_O_NDL_at_20mtr == 255)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
464 char_O_NDL_at_20mtr == 254;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
465 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
466 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
467
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
468 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
469 // DBG - multi main during dive //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
470 // -------------------------------
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
471 void check_dbg(static char is_post_check)
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
472 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
473 temp_DBS = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
474 if( (DBG_N2_ratio != N2_ratio) || (DBG_He_ratio != He_ratio) )
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
475 temp_DBS |= DBG_c_gas;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
476 if(DBG_const_ppO2 != const_ppO2)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
477 temp_DBS |= DBG_c_ppO2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
478 if((DBG_float_saturation_multiplier != float_saturation_multiplier) || (DBG_float_desaturation_multiplier != float_desaturation_multiplier))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
479 temp_DBS |= DBG_CdeSAT;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
480 if(DBG_char_I_deco_model != char_I_deco_model)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
481 temp_DBS |= DBG_C_MODE;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
482 if(DBG_pres_surface != pres_surface)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
483 temp_DBS |= DBG_C_SURF;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
484 if((!DBS_HE_sat) && (!He_ratio))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
485 for(int_dbg_i = 16; int_dbg_i < 32; int_dbg_i++)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
486 if(pres_tissue[int_dbg_i])
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
487 temp_DBS |= DBG_HEwoHE;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
488 if(DBG_deco_ppO2 != deco_ppO2)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
489 temp_DBS |= DBG_C_DPPO2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
490 if((DBG_deco_gas_change != deco_gas_change) || (DBG_deco_N2_ratio != deco_N2_ratio) || (DBG_deco_He_ratio != deco_He_ratio))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
491 temp_DBS |= DBG_C_DGAS;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
492 if(DBG_float_deco_distance != float_deco_distance)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
493 temp_DBS |= DBG_C_DIST;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
494 if(DBG_char_I_depth_last_deco != char_I_depth_last_deco)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
495 temp_DBS |= DBG_C_LAST;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
496 if((DBG_GF_low != GF_low) || (DBG_GF_high != GF_high))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
497 temp_DBS |= DBG_C_GF;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
498 if(pres_respiration > 13.0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
499 temp_DBS |= DBG_PHIGH;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
500 if(pres_surface - pres_respiration > 0.2)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
501 temp_DBS |= DBG_PLOW;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
502 if(is_post_check)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
503 int_O_DBG_post_bitfield |= temp_DBS;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
504 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
505 int_O_DBG_pre_bitfield |= temp_DBS;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
506 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
507
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
508 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
509 // DBG - prior to calc. of dive //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
510 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
511 void check_pre_dbg(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
512 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
513 check_dbg(0);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
514 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
515
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
516 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
517 // DBG - after decocalc of dive //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
518 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
519 void check_post_dbg(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
520 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
521 check_dbg(1);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
522 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
523
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
524 // -------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
525 // calc_next_decodepth_GF //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
526 // -------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
527 // new in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
528 void calc_nextdecodepth_GF(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
529 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
530 // INPUT, changing during dive:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
531 // temp_pres_gtissue_limit_GF_low
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
532 // temp_pres_gtissue_limit_GF_low_below_surface
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
533 // temp_pres_gtissue
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
534 // temp_pres_gtissue_diff
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
535 // lock_GF_depth_list
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
536
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
537 // INPUT, fixed during dive:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
538 // pres_surface
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
539 // GF_delta
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
540 // GF_high
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
541 // GF_low
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
542 // temp_depth_last_deco
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
543 // float_deco_distance
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
544
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
545 // OUTPUT
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
546 // GF_step
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
547 // temp_deco
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
548 // temp_depth_limt
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
549 // lock_GF_depth_list
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
550
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
551 // USES
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
552 // temp1
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
553 // temp2
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
554 // int_temp
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
555
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
556 char_I_table_deco_done[0] = 0; // safety if changed somewhere else. Needed for exit
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
557 if (char_I_deco_model == 1)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
558 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
559 if (lock_GF_depth_list == 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
560 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
561 temp2 = temp_pres_gtissue_limit_GF_low_below_surface / 0.29985; // = ... / 99.95 / 0.003;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
562 int_temp = (int) (temp2 + 0.99);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
563 if (int_temp > 31)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
564 int_temp = 31; // deepest deco at 93 meter (31 deco stops)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
565 if (int_temp < 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
566 int_temp = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
567 temp_depth_GF_low_number = int_temp;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
568 temp_depth_GF_low_meter = 3 * temp_depth_GF_low_number;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
569 temp2 = (float)temp_depth_GF_low_meter * 0.09995;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
570 temp_pres_deco_GF_low = temp2 + float_deco_distance + pres_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
571 if (temp_depth_GF_low_number == 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
572 GF_step = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
573 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
574 GF_step = GF_delta / (float)temp_depth_GF_low_number;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
575 if (GF_step < 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
576 GF_step = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
577 if (GF_step > GF_delta)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
578 GF_step = GF_delta;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
579 int_O_GF_step = (int)(GF_step * 10000);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
580 int_O_limit_GF_low = (int)(temp_pres_deco_GF_low * 1000);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
581 int_O_gtissue_press_at_GF_low = (int)(temp_pres_gtissue * 1000);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
582 char_O_GF_low_pointer = temp_depth_GF_low_number;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
583 lock_GF_depth_list = 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
584 internal_deco_pointer = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
585 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
586 if (internal_deco_pointer == 0) // new run
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
587 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
588 internal_deco_pointer = temp_depth_GF_low_number;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
589 GF_temp = GF_high - ((float)internal_deco_pointer * GF_step);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
590 int_temp = char_I_table_deco_done[internal_deco_pointer];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
591 output[8] = int_temp;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
592 output[9] = 33;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
593 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
594 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
595 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
596 int_temp = 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
597 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
598 while (int_temp == 1)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
599 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
600 int_temp = internal_deco_pointer - 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
601 if (int_temp == 1) // new in v104
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
602 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
603 temp2 = (float)(temp_depth_last_deco * int_temp) * 0.09995;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
604 GF_step2 = GF_step/3.0 * ((float)(6 - temp_depth_last_deco));
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
605 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
606 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
607 if (int_temp == 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
608 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
609 temp2 = 0.0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
610 GF_step2 = GF_high - GF_temp;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
611 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
612 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
613 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
614 temp2 = (float)(3 *int_temp) * 0.09995;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
615 GF_step2 = GF_step;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
616 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
617 temp2 = temp2 + pres_surface; // next deco stop to be tested
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
618 temp1 = ((GF_temp + GF_step2)* temp_pres_gtissue_diff) + temp_pres_gtissue; // upper limit (lowest pressure allowed) // changes GF_step2 in v104
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
619 if (temp1 > temp2) // check if ascent to next deco stop is ok
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
620 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
621 int_temp = 0; // no
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
622 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
623 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
624 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
625 internal_deco_pointer = int_temp;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
626 GF_temp = GF_temp + GF_step2; // changed in v104
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
627 int_temp = char_I_table_deco_done[internal_deco_pointer]; // yes and check for ascent to even next stop if deco_done is set
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
628 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
629 } // while
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
630 if (internal_deco_pointer > 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
631 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
632 temp2 = (float)(0.29985 * internal_deco_pointer);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
633 temp_deco = temp2 + float_deco_distance + pres_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
634 if (internal_deco_pointer == 1) // new in v104
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
635 temp_depth_limit = temp_depth_last_deco;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
636 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
637 temp_depth_limit = 3 * internal_deco_pointer;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
638 if (output[9] == 33)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
639 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
640 output[9] = internal_deco_pointer;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
641 output[10] = char_I_table_deco_done[internal_deco_pointer];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
642 output[12] = output[12] + 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
643 if (output[12] == 100)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
644 output[12] = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
645 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
646 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
647 else // if (char_I_deco_model == 1)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
648 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
649 temp_deco = pres_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
650 temp_depth_limit = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
651 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
652 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
653 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
654 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
655 // calc_nextdecodepth - original
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
656 // optimized in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
657 // depth_last_deco included in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
658
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
659 temp1 = temp_pres_gtissue_limit - pres_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
660 if (temp1 >= 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
661 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
662 temp1 = temp1 / 0.29985; // = temp1 / 99.95 / 0.003;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
663 temp_depth_limit = (int) (temp1 + 0.99);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
664 temp_depth_limit = 3 * temp_depth_limit; // depth for deco [m]
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
665 if (temp_depth_limit == 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
666 temp_deco = pres_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
667 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
668 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
669 if (temp_depth_limit < temp_depth_last_deco)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
670 temp_depth_limit = temp_depth_last_deco;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
671 temp1 = (float)temp_depth_limit * 0.09995;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
672 temp_deco = temp1 + float_deco_distance + pres_surface; // depth for deco [bar]
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
673 } // if (temp_depth_limit == 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
674 } // if (temp1 >= 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
675 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
676 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
677 temp_deco = pres_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
678 temp_depth_limit = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
679 } // if (temp1 >= 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
680 } // calc_nextdecodepth original
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
681 } // calc_nextdecodepth_GF
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
682
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
683
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
684 // ---------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
685 // copy_deco_table_GF //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
686 // ---------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
687 // new in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
688 void copy_deco_table_GF(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
689 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
690 if (char_I_deco_model == 1)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
691 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
692 for (ci=0;ci<32;ci++)
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
693 char_O_deco_table[ci] = internal_deco_table[ci];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
694 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
695 } // copy_deco_table_GF
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
696
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
697
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
698 // ------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
699 // clear_internal_deco_table_GF//
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
700 // ------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
701 // new in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
702 void clear_internal_deco_table_GF(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
703 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
704 if (char_I_deco_model == 1)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
705 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
706 for (ci=0;ci<32;ci++) // cycle through the 16 b"uhlmann tissues for Helium
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
707 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
708 internal_deco_table[ci] = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
709 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
710 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
711 } // clear_internal_deco_table_GF
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
712
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
713
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
714 // --------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
715 // update_internal_deco_table_GF //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
716 // --------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
717 // new in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
718 void update_internal_deco_table_GF(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
719 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
720 if ((char_I_deco_model == 1) && (internal_deco_table[internal_deco_pointer] < 255))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
721 internal_deco_table[internal_deco_pointer] = internal_deco_table[internal_deco_pointer] + 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
722 } // update_internal_deco_table_GF
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
723
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
724
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
725 // ---------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
726 // temp_tissue_safety //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
727 // ---------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
728 // outsourced in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
729 void temp_tissue_safety(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
730 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
731 if (char_I_deco_model != 1)
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
732 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
733 if (temp_tissue < 0.0)
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
734 temp_tissue *= float_desaturation_multiplier;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
735 else
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
736 temp_tissue *= float_saturation_multiplier;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
737 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
738 } // temp_tissue_safety
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
739
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
740 // **********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
741 // **********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
742 // ** THE JUMP-IN CODE **
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
743 // ** for the asm code **
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
744 // **********************
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
745 // **********************
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
746
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
747 void fillDataStack(void)
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
748 {
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
749 _asm
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
750 LFSR 1,C_STACK
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
751 MOVLW 0xCC
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
752 loop: MOVWF POSTINC1,0
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
753 TSTFSZ FSR1L,0
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
754 BRA loop
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
755
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
756 LFSR 1,C_STACK
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
757 LFSR 2,C_STACK
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
758 MOVLW 1
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
759 MOVWF TBLPTRU,0
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
760 _endasm
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
761 }
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
762
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
763 // When calling C code from ASM context, the data stack pointer and
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
764 // frames should be reset. Bank3 is dedicated to the stack (see the
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
765 // .lkr script).
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
766 #ifdef __DEBUG
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
767 # define RESET_C_STACK fillDataStack();
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
768 #else
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
769 # define RESET_C_STACK \
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
770 _asm \
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
771 LFSR 1, C_STACK \
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
772 LFSR 2, C_STACK \
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
773 MOVLW 1 \
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
774 MOVWF TBLPTRU,0 \
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
775 _endasm
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
776 #endif
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
777
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
778
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
779 void deco_calc_hauptroutine(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
780 {
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
781 RESET_C_STACK
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
782 calc_hauptroutine();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
783 int_O_desaturation_time = 65535;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
784 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
785
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
786 void deco_calc_without_deco(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
787 {
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
788 RESET_C_STACK
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
789 calc_without_deco();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
790 deco_calc_desaturation_time();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
791 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
792
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
793 void deco_clear_tissue(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
794 {
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
795 RESET_C_STACK
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
796 clear_tissue();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
797 char_I_depth_last_deco = 0; // for compatibility with v.101pre_no_last_deco
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
798 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
799
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
800 void deco_calc_wo_deco_step_1_min(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
801 {
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
802 RESET_C_STACK
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
803 calc_wo_deco_step_1_min();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
804 char_O_deco_status = 3; // surface new in v.102 overwrites value of calc_wo_deco_step_1_min
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
805 deco_calc_desaturation_time();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
806 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
807
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
808 void deco_debug(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
809 {
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
810 RESET_C_STACK
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
811 // debug();
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
812 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
813
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
814 // ---------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
815 // CLEAR tissue //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
816 // ---------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
817 // optimized in v.101 (var_a)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
818
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
819 #pragma code p2_deco_suite = 0x10700
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
820
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
821 void clear_tissue(void) // preload tissues with standard pressure for the given ambient pressure
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
822 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
823
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
824 flag_in_divemode = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
825 int_O_DBS_bitfield = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
826 int_O_DBS2_bitfield = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
827 int_O_DBG_pre_bitfield = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
828 int_O_DBG_post_bitfield = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
829 char_O_NDL_at_20mtr = 255;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
830
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
831 // N2_ratio = (float)char_I_N2_ratio; // the 0.0002 of 0.7902 are missing with standard air
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
832 N2_ratio = 0.7902; // N2_ratio / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
833 pres_respiration = (float)int_I_pres_respiration / 1000.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
834 for (ci=0;ci<16;ci++) // cycle through the 16 b"uhlmann tissues
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
835 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
836 pres_tissue[ci] = N2_ratio * (pres_respiration - 0.0627) ;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
837 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
838 movlw 0x02
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
839 movwf TBLPTRH,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
840 movlb 4 // fuer ci
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
841 movf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
842 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
843 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
844 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
845 addlw 0x80
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
846 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
847 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
848 movff TABLAT,var_a+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
849 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
850 movff TABLAT,var_a
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
851 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
852 movff TABLAT,var_a+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
853 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
854 movff TABLAT,var_a+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
855 addlw 0x80
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
856 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
857 incf TBLPTRH,1,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
858 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
859 movff TABLAT,var_b+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
860 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
861 movff TABLAT,var_b
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
862 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
863 movff TABLAT,var_b+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
864 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
865 movff TABLAT,var_b+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
866 _endasm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
867
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
868 pres_tissue_limit[ci] = (pres_tissue[ci] - var_a) * var_b ;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
869 // now update the guiding tissue
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
870 if (pres_tissue_limit[ci] < 0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
871 pres_tissue_limit[ci] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
872 } // for 0 to 16
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
873
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
874 for (ci=16;ci<32;ci++) // cycle through the 16 b"uhlmann tissues for Helium
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
875 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
876 pres_tissue[ci] = 0.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
877 } // for
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
878
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
879 clear_decoarray();
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
880 char_O_deco_status = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
881 char_O_nullzeit = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
882 char_O_ascenttime = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
883 char_O_gradient_factor = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
884 char_O_relative_gradient_GF = 0;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
885 } // clear_tissue(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
886
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
887
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
888 // --------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
889 // calc_without_deco //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
890 // fixed N2_ratio ! //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
891 // --------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
892 // optimized in v.101 (float_..saturation_multiplier)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
893
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
894 void calc_without_deco(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
895 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
896 N2_ratio = 0.7902; // FIXED RATIO !! sum as stated in b"uhlmann
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
897 pres_respiration = (float)int_I_pres_respiration / 1000.0; // assembler code uses different digit system
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
898 pres_surface = (float)int_I_pres_surface / 1000.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
899 temp_atem = N2_ratio * (pres_respiration - 0.0627); // 0.0627 is the extra pressure in the body
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
900 temp2_atem = 0.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
901 temp_surface = pres_surface; // the b"uhlmann formula using temp_surface does apply to the pressure without any inert ratio
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
902 float_desaturation_multiplier = char_I_desaturation_multiplier / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
903 float_saturation_multiplier = char_I_saturation_multiplier / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
904
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
905 calc_tissue(); // update the pressure in the 16 tissues in accordance with the new ambient pressure
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
906
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
907 clear_decoarray();
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
908 char_O_deco_status = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
909 char_O_nullzeit = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
910 char_O_ascenttime = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
911 calc_gradient_factor();
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
912 } // calc_without_deco
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
913
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
914
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
915 // --------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
916 // calc_hauptroutine //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
917 // --------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
918 // this is the major code in dive mode
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
919 // calculates:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
920 // the tissues,
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
921 // the bottom time
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
922 // and simulates the ascend with all deco stops
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
923
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
924 void calc_hauptroutine(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
925 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
926 calc_hauptroutine_data_input();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
927
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
928 if(!flag_in_divemode)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
929 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
930 flag_in_divemode = 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
931 create_dbs_set_dbg_and_ndl20mtr();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
932 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
933 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
934 check_pre_dbg();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
935
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
936 calc_hauptroutine_update_tissues();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
937 calc_gradient_factor();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
938
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
939
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
940 switch (char_O_deco_status) // toggle between calculation for nullzeit (bottom time), deco stops and more deco stops (continue)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
941 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
942 case 0:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
943 update_startvalues();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
944 calc_nullzeit();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
945 check_ndl();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
946 char_O_deco_status = 255; // calc deco next time
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
947 break;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
948 case 1:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
949 if (char_O_deco_status == 3)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
950 break;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
951 char_O_deco_status = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
952 calc_hauptroutine_calc_deco();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
953 break;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
954 case 3: // new dive
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
955 clear_decoarray();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
956 clear_internal_deco_table_GF();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
957 copy_deco_table_GF();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
958 internal_deco_pointer = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
959 lock_GF_depth_list = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
960 update_startvalues();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
961 calc_nextdecodepth_GF();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
962 char_O_deco_status = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
963 break;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
964 default:
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
965 update_startvalues();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
966 clear_decoarray();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
967 clear_internal_deco_table_GF();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
968 output[6] = 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
969 calc_hauptroutine_calc_ascend_to_deco();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
970 if (char_O_deco_status > 15) // can't go up to first deco, too deep to calculate in the given time slot
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
971 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
972 char_O_deco_status = 2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
973 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
974 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
975 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
976 calc_hauptroutine_calc_deco();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
977 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
978 break;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
979 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
980 calc_ascenttime();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
981 check_post_dbg();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
982 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
983
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
984 void calc_hauptroutine_data_input(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
985 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
986 pres_respiration = (float)int_I_pres_respiration / 1000.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
987 pres_surface = (float)int_I_pres_surface / 1000.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
988
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
989 N2_ratio = (float)char_I_N2_ratio / 100.0;; // the 0.0002 of 0.7902 are missing with standard air
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
990 He_ratio = (float)char_I_He_ratio / 100.0;;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
991 deco_N2_ratio = (float)char_I_deco_N2_ratio / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
992 deco_He_ratio = (float)char_I_deco_He_ratio / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
993 deco_N2_ratio2 = (float)char_I_deco_N2_ratio2 / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
994 deco_He_ratio2 = (float)char_I_deco_He_ratio2 / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
995 deco_N2_ratio3 = (float)char_I_deco_N2_ratio3 / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
996 deco_He_ratio3 = (float)char_I_deco_He_ratio3 / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
997 deco_N2_ratio4 = (float)char_I_deco_N2_ratio4 / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
998 deco_He_ratio4 = (float)char_I_deco_He_ratio4 / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
999 deco_N2_ratio5 = (float)char_I_deco_N2_ratio5 / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1000 deco_He_ratio5 = (float)char_I_deco_He_ratio5 / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1001 float_deco_distance = (float)char_I_deco_distance / 100.0;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1002
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1003 // ____________________________________________________
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1004 //
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1005 // _____________ G A S _ C H A N G E S ________________
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1006 // ____________________________________________________
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1007
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1008 int_temp = (int_I_pres_respiration - int_I_pres_surface) + MBAR_REACH_GASCHANGE_AUTO_CHANGE_OFF;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1009
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1010 deco_gas_change = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1011 deco_gas_change2 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1012 deco_gas_change3 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1013 deco_gas_change4 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1014 deco_gas_change5 = 0;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1015
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1016 if(char_I_deco_gas_change)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1017 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1018 int_temp2 = ((int)char_I_deco_gas_change) * 100;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1019 if(int_temp > int_temp2)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1020 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1021 deco_gas_change = (float)char_I_deco_gas_change / 9.995 + pres_surface;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1022 deco_gas_change += float_deco_distance;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1023 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1024 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1025 if(char_I_deco_gas_change2)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1026 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1027 int_temp2 = ((int)char_I_deco_gas_change2) * 100;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1028 if(int_temp > int_temp2)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1029 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1030 deco_gas_change2 = (float)char_I_deco_gas_change2 / 9.995 + pres_surface;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1031 deco_gas_change2 += float_deco_distance;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1032 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1033 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1034 if(char_I_deco_gas_change3)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1035 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1036 int_temp2 = ((int)char_I_deco_gas_change3) * 100;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1037 if(int_temp > int_temp2)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1038 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1039 deco_gas_change3 = (float)char_I_deco_gas_change3 / 9.995 + pres_surface;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1040 deco_gas_change3 += float_deco_distance;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1041 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1042 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1043 if(char_I_deco_gas_change4)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1044 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1045 int_temp2 = ((int)char_I_deco_gas_change4) * 100;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1046 if(int_temp > int_temp2)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1047 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1048 deco_gas_change4 = (float)char_I_deco_gas_change4 / 9.995 + pres_surface;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1049 deco_gas_change4 += float_deco_distance;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1050 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1051 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1052 if(char_I_deco_gas_change5)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1053 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1054 int_temp2 = ((int)char_I_deco_gas_change5) * 100;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1055 if(int_temp > int_temp2)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1056 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1057 deco_gas_change5 = (float)char_I_deco_gas_change5 / 9.995 + pres_surface;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1058 deco_gas_change5 += float_deco_distance;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1059 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1060 }
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1061
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1062 const_ppO2 = (float)char_I_const_ppO2 / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1063 deco_ppO2_change = (float)char_I_deco_ppO2_change / 99.95 + pres_surface;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1064 deco_ppO2_change = deco_ppO2_change + float_deco_distance;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1065 deco_ppO2 = (float)char_I_deco_ppO2 / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1066 float_desaturation_multiplier = char_I_desaturation_multiplier / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1067 float_saturation_multiplier = char_I_saturation_multiplier / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1068 GF_low = (float)char_I_GF_Low_percentage / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1069 GF_high = (float)char_I_GF_High_percentage / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1070 GF_delta = GF_high - GF_low;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1071
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1072 temp2 = (pres_respiration - pres_surface) / 0.29985;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1073 int_temp = (int)(temp2);
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1074 if (int_temp < 0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1075 int_temp = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1076 if (int_temp > 255)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1077 int_temp = 255;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1078 char_O_actual_pointer = int_temp;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1079
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1080 temp_depth_last_deco = (int)char_I_depth_last_deco;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1081 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1082
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1083 void calc_hauptroutine_update_tissues(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1084 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1085 int_O_calc_tissue_call_counter = int_O_calc_tissue_call_counter + 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1086 if (char_I_const_ppO2 == 0) // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1087 pres_diluent = pres_respiration; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1088 else // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1089 pres_diluent = ((pres_respiration - const_ppO2)/(N2_ratio + He_ratio)); // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1090 if (pres_diluent > pres_respiration) // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1091 pres_diluent = pres_respiration; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1092 if (pres_diluent > 0.0627) // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1093 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1094 temp_atem = N2_ratio * (pres_diluent - 0.0627); // changed in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1095 temp2_atem = He_ratio * (pres_diluent - 0.0627); // changed in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1096 char_O_diluent = (char)(pres_diluent/pres_respiration*100.0);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1097 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1098 else // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1099 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1100 temp_atem = 0.0; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1101 temp2_atem = 0.0; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1102 char_O_diluent = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1103 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1104 temp_surface = pres_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1105
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1106 if(!char_I_step_is_1min)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1107 calc_tissue();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1108 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1109 calc_tissue_step_1_min();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1110
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1111 int_O_gtissue_limit = (int)(pres_tissue_limit[char_O_gtissue_no] * 1000);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1112 int_O_gtissue_press = (int)((pres_tissue[char_O_gtissue_no] + pres_tissue[char_O_gtissue_no+16]) * 1000);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1113 if (char_I_deco_model == 1)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1114 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1115 temp1 = temp1 * GF_high;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1116 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1117 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1118 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1119 temp1 = temp_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1120 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1121 if (pres_gtissue_limit > temp1 && char_O_deco_status == 0) // if guiding tissue can not be exposed to surface pressure immediately
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1122 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1123 char_O_nullzeit = 0; // deco necessary
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1124 char_O_deco_status = 255; // calculate deco skip nullzeit calculation
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1125 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1126 } // calc_hauptroutine_update_tissues
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1127
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1128 void calc_hauptroutine_calc_deco(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1129 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1130 do
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1131 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1132 int_temp_decostatus = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1133 calc_nextdecodepth_GF();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1134 if (temp_depth_limit > 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1135 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1136 calc_N2_ratio = N2_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1137 calc_He_ratio = He_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1138
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1139 if (char_I_const_ppO2 == 0) // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1140 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1141 deco_diluent = temp_deco; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1142
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1143 if(deco_gas_change && (temp_deco < deco_gas_change))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1144 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1145 calc_N2_ratio = deco_N2_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1146 calc_He_ratio = deco_He_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1147 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1148 if(deco_gas_change2 && (temp_deco < deco_gas_change2))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1149 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1150 calc_N2_ratio = deco_N2_ratio2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1151 calc_He_ratio = deco_He_ratio2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1152 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1153 if(deco_gas_change3 && (temp_deco < deco_gas_change3))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1154 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1155 calc_N2_ratio = deco_N2_ratio3;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1156 calc_He_ratio = deco_He_ratio3;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1157 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1158 if(deco_gas_change4 && (temp_deco < deco_gas_change4))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1159 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1160 calc_N2_ratio = deco_N2_ratio4;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1161 calc_He_ratio = deco_He_ratio4;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1162 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1163 if(deco_gas_change5 && (temp_deco < deco_gas_change5))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1164 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1165 calc_N2_ratio = deco_N2_ratio5;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1166 calc_He_ratio = deco_He_ratio5;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1167 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1168 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1169 else // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1170 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1171 if (temp_deco > deco_ppO2_change)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1172 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1173 deco_diluent = ((temp_deco - const_ppO2)/(N2_ratio + He_ratio)); // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1174 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1175 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1176 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1177 deco_diluent = ((temp_deco - deco_ppO2)/(N2_ratio + He_ratio)); // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1178 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1179 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1180 if (deco_diluent > temp_deco) // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1181 deco_diluent = temp_deco; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1182 if (deco_diluent > 0.0627) // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1183 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1184 temp_atem = calc_N2_ratio * (deco_diluent - 0.0627); // changed in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1185 temp2_atem = calc_He_ratio * (deco_diluent - 0.0627); // changed in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1186 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1187 else // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1188 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1189 temp_atem = 0.0; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1190 temp2_atem = 0.0; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1191 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1192 sim_tissue_1min();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1193 update_internal_deco_table_GF();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1194 temp_decotime = 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1195 update_decoarray();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1196 char_O_deco_status = char_O_deco_status + 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1197 if (char_O_deco_status < 16)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1198 int_temp_decostatus = 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1199 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1200 else // if (temp_depth_limit > 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1201 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1202 char_O_deco_status = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1203 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1204 } while (int_temp_decostatus == 1);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1205 if (char_O_deco_status > 15)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1206 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1207 char_O_deco_status = 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1208 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1209 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1210 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1211 copy_deco_table_GF();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1212 char_O_deco_status = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1213 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1214 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1215
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1216 void calc_hauptroutine_calc_ascend_to_deco(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1217 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1218 update_startvalues();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1219 char_O_deco_status = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1220 temp_deco = pres_respiration;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1221 lock_GF_depth_list = 1; // new in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1222 do // go up to first deco
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1223 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1224 int_temp_decostatus = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1225 temp_deco = temp_deco - 1.0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1226 if ( char_I_deco_model == 1) // new in v.102 , 4 = deep stops
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1227 temp_limit = temp_pres_gtissue_limit_GF_low;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1228 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1229 temp_limit = temp_pres_gtissue_limit;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1230 if ((temp_deco > temp_limit) && (temp_deco > pres_surface)) // changes in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1231 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1232 lock_GF_depth_list = 0; // new in v.102, distance to first stop > 10 mtr.
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1233 output[6] = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1234 temp_deco += 0.5;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1235
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1236 calc_N2_ratio = N2_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1237 calc_He_ratio = He_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1238
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1239 if (char_I_const_ppO2 == 0) // new in v.101 // calculate at half of the ascent
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1240 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1241 deco_diluent = temp_deco; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1242
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1243 if(deco_gas_change && (temp_deco < deco_gas_change))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1244 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1245 calc_N2_ratio = deco_N2_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1246 calc_He_ratio = deco_He_ratio;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1247 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1248 if(deco_gas_change2 && (temp_deco < deco_gas_change2))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1249 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1250 calc_N2_ratio = deco_N2_ratio2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1251 calc_He_ratio = deco_He_ratio2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1252 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1253 if(deco_gas_change3 && (temp_deco < deco_gas_change3))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1254 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1255 calc_N2_ratio = deco_N2_ratio3;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1256 calc_He_ratio = deco_He_ratio3;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1257 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1258 if(deco_gas_change4 && (temp_deco < deco_gas_change4))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1259 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1260 calc_N2_ratio = deco_N2_ratio4;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1261 calc_He_ratio = deco_He_ratio4;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1262 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1263 if(deco_gas_change5 && (temp_deco < deco_gas_change5))
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1264 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1265 calc_N2_ratio = deco_N2_ratio5;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1266 calc_He_ratio = deco_He_ratio5;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1267 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1268 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1269 else // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1270 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1271 if (temp_deco > deco_ppO2_change)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1272 deco_diluent = ((temp_deco - const_ppO2)/(N2_ratio + He_ratio)); // new in v.101 // calculate at half of the ascent
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1273 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1274 deco_diluent = ((temp_deco - deco_ppO2)/(N2_ratio + He_ratio)); // new in v.101 // calculate at half of the ascent
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1275 if (deco_diluent > (temp_deco)) // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1276 deco_diluent = temp_deco; // new in v.101 // calculate at half of the ascent
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1277 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1278 temp_deco -= 0.5;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1279 if (deco_diluent > 0.0627) // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1280 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1281 temp_atem = calc_N2_ratio * (deco_diluent - 0.0627); // changed in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1282 temp2_atem = calc_He_ratio * (deco_diluent - 0.0627); // changed in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1283 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1284 else // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1285 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1286 temp_atem = 0.0; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1287 temp2_atem = 0.0; // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1288 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1289 sim_tissue_1min();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1290 char_O_deco_status = char_O_deco_status + 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1291 if (char_O_deco_status < 16) // 16 is the limit of calculations for one time slot
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1292 int_temp_decostatus = 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1293 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1294 } while (int_temp_decostatus == 1);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1295 } // calc_hauptroutine_calc_ascend_to_deco
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1296
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1297 // --------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1298 // calc_tissue //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1299 // --------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1300 // optimized in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1301
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1302 void calc_tissue(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1303 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1304 char_O_gtissue_no = 255;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1305 pres_gtissue_limit = 0.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1306
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1307 for (ci=0;ci<16;ci++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1308 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1309 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1310 movlw 0x02
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1311 movwf TBLPTRH,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1312 movlb 4 // fuer ci
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1313 movf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1314 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1315 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1316 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1317 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1318 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1319 movff TABLAT,var_e2secs+1 // the order is confussing
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1320 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1321 movff TABLAT,var_e2secs // low byte first, high afterwards
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1322 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1323 movff TABLAT,var_e2secs+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1324 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1325 movff TABLAT,var_e2secs+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1326 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1327 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1328 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1329 movff TABLAT,var2_e2secs+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1330 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1331 movff TABLAT,var2_e2secs
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1332 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1333 movff TABLAT,var2_e2secs+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1334 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1335 movff TABLAT,var2_e2secs+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1336 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1337 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1338 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1339 movff TABLAT,var_a+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1340 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1341 movff TABLAT,var_a
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1342 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1343 movff TABLAT,var_a+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1344 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1345 movff TABLAT,var_a+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1346 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1347 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1348 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1349 movff TABLAT,var2_a+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1350 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1351 movff TABLAT,var2_a
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1352 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1353 movff TABLAT,var2_a+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1354 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1355 movff TABLAT,var2_a+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1356 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1357 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1358 incf TBLPTRH,1,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1359 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1360 movff TABLAT,var_b+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1361 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1362 movff TABLAT,var_b
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1363 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1364 movff TABLAT,var_b+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1365 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1366 movff TABLAT,var_b+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1367 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1368 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1369 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1370 movff TABLAT,var2_b+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1371 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1372 movff TABLAT,var2_b
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1373 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1374 movff TABLAT,var2_b+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1375 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1376 movff TABLAT,var2_b+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1377 _endasm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1378 // the start values are the previous end values // write new values in temp
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1379
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1380 if( (var_e2secs < 0.0000363)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1381 || (var_e2secs > 0.00577)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1382 || (var2_e2secs < 0.0000961)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1383 || (var2_e2secs > 0.150)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1384 || (var_a < 0.231)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1385 || (var_a > 1.27)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1386 || (var_b < 0.504)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1387 || (var_b > 0.966)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1388 || (var2_a < 0.510)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1389 || (var2_a > 1.75)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1390 || (var2_b < 0.423)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1391 || (var2_b > 0.927)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1392 )
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1393 int_O_DBG_pre_bitfield |= DBG_ZH16ERR;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1394
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1395 // N2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1396 temp_tissue = (temp_atem - pres_tissue[ci]) * var_e2secs;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1397 temp_tissue_safety();
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1398 pres_tissue[ci] = pres_tissue[ci] + temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1399
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1400 // He
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1401 temp_tissue = (temp2_atem - pres_tissue[ci+16]) * var2_e2secs;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1402 temp_tissue_safety();
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1403 pres_tissue[ci+16] = pres_tissue[ci+16] + temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1404
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1405 temp_tissue = pres_tissue[ci] + pres_tissue[ci+16];
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1406
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1407 var_a = (var_a * pres_tissue[ci] + var2_a * pres_tissue[ci+16]) / temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1408 var_b = (var_b * pres_tissue[ci] + var2_b * pres_tissue[ci+16]) / temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1409 pres_tissue_limit[ci] = (temp_tissue - var_a) * var_b;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1410 if (pres_tissue_limit[ci] < 0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1411 pres_tissue_limit[ci] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1412 if (pres_tissue_limit[ci] > pres_gtissue_limit)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1413 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1414 pres_gtissue_limit = pres_tissue_limit[ci];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1415 char_O_gtissue_no = ci;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1416 }//if
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1417 } // for
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1418 }//calc_tissue(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1419
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1420 // ----------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1421 // calc_nullzeit //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1422 // ----------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1423 // calculates the remaining bottom time
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1424
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1425 // unchanged in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1426
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1427 void calc_nullzeit(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1428 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1429 char_O_nullzeit = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1430 int_temp = 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1431 do
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1432 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1433 backup_sim_pres_tissue();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1434 sim_tissue_10min();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1435 char_O_nullzeit = char_O_nullzeit + 10;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1436 int_temp = int_temp + 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1437 if (char_I_deco_model == 1)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1438 temp1 = GF_high * temp_pres_gtissue_diff + temp_pres_gtissue;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1439 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1440 temp1 = temp_pres_gtissue_limit;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1441 if (temp1 > temp_surface) // changed in v.102 , if guiding tissue can not be exposed to surface pressure immediately
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1442 int_temp = 255;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1443 } while (int_temp < 17);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1444 if (int_temp == 255)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1445 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1446 restore_sim_pres_tissue();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1447 char_O_nullzeit = char_O_nullzeit - 10;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1448 } //if int_temp == 255]
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1449 int_temp = 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1450 if (char_O_nullzeit < 60)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1451 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1452 do
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1453 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1454 sim_tissue_1min();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1455 char_O_nullzeit = char_O_nullzeit + 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1456 int_temp = int_temp + 1; // new in v.102a
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1457 if (char_I_deco_model == 1)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1458 temp1 = GF_high * temp_pres_gtissue_diff + temp_pres_gtissue;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1459 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1460 temp1 = temp_pres_gtissue_limit;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1461 if (temp1 > temp_surface) // changed in v.102 , if guiding tissue can not be exposed to surface pressure immediately
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1462 int_temp = 255;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1463 } while (int_temp < 10);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1464 if (int_temp == 255)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1465 char_O_nullzeit = char_O_nullzeit - 1;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1466 } // if char_O_nullzeit < 60
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1467 } //calc_nullzeit
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1468
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1469 // -------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1470 // backup_sim_pres_tissue //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1471 // -------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1472 void backup_sim_pres_tissue(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1473 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1474 for (x = 0;x<16;x++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1475 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1476 sim_pres_tissue_backup[x] = sim_pres_tissue[x];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1477 sim_pres_tissue_backup[x+16] = sim_pres_tissue[x+16];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1478 }
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1479 } // backup_sim
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1480
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1481 // --------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1482 // restore_sim_pres_tissue //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1483 // --------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1484 void restore_sim_pres_tissue(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1485 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1486 for (x = 0;x<16;x++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1487 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1488 sim_pres_tissue[x] = sim_pres_tissue_backup[x];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1489 sim_pres_tissue[x+16] = sim_pres_tissue_backup[x+16];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1490 }
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1491 } // restore_sim
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1492
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1493 // ------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1494 // calc_ascenttime //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1495 // ------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1496
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1497 void calc_ascenttime(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1498 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1499 if (pres_respiration > pres_surface)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1500 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1501 switch (char_O_deco_status)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1502 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1503 case 2:
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1504 char_O_ascenttime = 255;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1505 break;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1506 case 1:
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1507 break;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1508 default:
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1509 temp1 = pres_respiration - pres_surface + 0.6; // + 0.6 hence 1 minute ascent time from a depth of 4 meter on
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1510 if (temp1 < 0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1511 temp1 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1512 if (temp1 > 255)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1513 temp1 = 255;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1514 char_O_ascenttime = (char)temp1;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1515
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1516 for(ci=0;ci<7;ci++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1517 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1518 x = char_O_ascenttime + char_O_array_decotime[ci];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1519 if (x < char_O_ascenttime)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1520 char_O_ascenttime = 255;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1521 else
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1522 char_O_ascenttime = x;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1523 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1524 break;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1525 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1526 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1527 else
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1528 char_O_ascenttime = 0;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1529 } // calc_ascenttime()
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1530
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1531
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1532 // ---------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1533 // update_startvalues //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1534 // ---------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1535 // updated in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1536
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1537 void update_startvalues(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1538 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1539 temp_pres_gtissue_limit = pres_gtissue_limit;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1540 temp_pres_gtissue = pres_tissue[char_O_gtissue_no] + pres_tissue[char_O_gtissue_no+16];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1541 temp_pres_gtissue_diff = temp_pres_gtissue_limit - temp_pres_gtissue; // negative number
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1542 temp_pres_gtissue_limit_GF_low = GF_low * temp_pres_gtissue_diff + temp_pres_gtissue;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1543 temp_pres_gtissue_limit_GF_low_below_surface = temp_pres_gtissue_limit_GF_low - pres_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1544 if (temp_pres_gtissue_limit_GF_low_below_surface < 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1545 temp_pres_gtissue_limit_GF_low_below_surface = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1546
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1547 temp_gtissue_no = char_O_gtissue_no;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1548 for (x = 0;x<16;x++)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1549 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1550 sim_pres_tissue[x] = pres_tissue[x];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1551 sim_pres_tissue[x+16] = pres_tissue[x+16];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1552 sim_pres_tissue_limit[x] = pres_tissue_limit[x];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1553 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1554 } // update_startvalues
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1555
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1556
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1557 // ------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1558 // sim_tissue_1min //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1559 // ------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1560 // optimized in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1561
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1562 void sim_tissue_1min(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1563 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1564 temp_pres_gtissue_limit = 0.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1565 temp_gtissue_no = 255;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1566
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1567 for (ci=0;ci<16;ci++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1568 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1569 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1570 movlw 0x02
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1571 movwf TBLPTRH,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1572 movlb 4 // fuer ci
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1573 movf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1574 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1575 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1576 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1577 addlw 0x80
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1578 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1579 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1580 movff TABLAT,var_a+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1581 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1582 movff TABLAT,var_a
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1583 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1584 movff TABLAT,var_a+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1585 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1586 movff TABLAT,var_a+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1587 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1588 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1589 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1590 movff TABLAT,var2_a+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1591 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1592 movff TABLAT,var2_a
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1593 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1594 movff TABLAT,var2_a+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1595 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1596 movff TABLAT,var2_a+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1597 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1598 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1599 incf TBLPTRH,1,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1600 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1601 movff TABLAT,var_b+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1602 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1603 movff TABLAT,var_b
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1604 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1605 movff TABLAT,var_b+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1606 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1607 movff TABLAT,var_b+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1608 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1609 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1610 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1611 movff TABLAT,var2_b+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1612 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1613 movff TABLAT,var2_b
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1614 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1615 movff TABLAT,var2_b+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1616 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1617 movff TABLAT,var2_b+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1618 addlw 0xC0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1619 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1620 incf TBLPTRH,1,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1621 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1622 movff TABLAT,var_e1min+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1623 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1624 movff TABLAT,var_e1min
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1625 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1626 movff TABLAT,var_e1min+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1627 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1628 movff TABLAT,var_e1min+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1629 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1630 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1631 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1632 movff TABLAT,var2_e1min+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1633 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1634 movff TABLAT,var2_e1min
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1635 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1636 movff TABLAT,var2_e1min+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1637 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1638 movff TABLAT,var2_e1min+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1639 _endasm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1640
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1641 // N2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1642 temp_tissue = (temp_atem - sim_pres_tissue[ci]) * var_e1min;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1643 temp_tissue_safety();
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1644 sim_pres_tissue[ci] = sim_pres_tissue[ci] + temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1645
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1646 // He
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1647 temp_tissue = (temp2_atem - sim_pres_tissue[ci+16]) * var2_e1min;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1648 temp_tissue_safety();
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1649 sim_pres_tissue[ci+16] = sim_pres_tissue[ci+16] + temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1650
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1651 // pressure limit
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1652 temp_tissue = sim_pres_tissue[ci] + sim_pres_tissue[ci+16];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1653 var_a = (var_a * sim_pres_tissue[ci] + var2_a * sim_pres_tissue[ci+16]) / temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1654 var_b = (var_b * sim_pres_tissue[ci] + var2_b * sim_pres_tissue[ci+16]) / temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1655 sim_pres_tissue_limit[ci] = (temp_tissue - var_a) * var_b;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1656
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1657 if (sim_pres_tissue_limit[ci] < 0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1658 sim_pres_tissue_limit[ci] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1659 if (sim_pres_tissue_limit[ci] > temp_pres_gtissue_limit)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1660 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1661 temp_pres_gtissue = temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1662 temp_pres_gtissue_limit = sim_pres_tissue_limit[ci];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1663 temp_gtissue_no = ci;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1664 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1665 } // for
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1666
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1667 temp_pres_gtissue_diff = temp_pres_gtissue_limit - temp_pres_gtissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1668 temp_pres_gtissue_limit_GF_low = GF_low * temp_pres_gtissue_diff + temp_pres_gtissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1669 temp_pres_gtissue_limit_GF_low_below_surface = temp_pres_gtissue_limit_GF_low - pres_surface;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1670 if (temp_pres_gtissue_limit_GF_low_below_surface < 0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1671 temp_pres_gtissue_limit_GF_low_below_surface = 0;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1672 } //sim_tissue_1min()
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1673
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1674 //--------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1675 // sim_tissue_10min //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1676 //--------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1677
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1678 // Attention!! uses var_e1min und var2_e1min to load 10min data !!!
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1679 // is identical to sim_tissue_1min routine except for the different load of those variables
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1680
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1681 // optimized in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1682
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1683 void sim_tissue_10min(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1684 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1685 temp_pres_gtissue_limit = 0.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1686 temp_gtissue_no = 255;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1687
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1688 for (ci=0;ci<16;ci++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1689 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1690 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1691 movlw 0x02
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1692 movwf TBLPTRH,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1693 movlb 4 // fuer ci
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1694 movf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1695 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1696 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1697 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1698 addlw 0x80
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1699 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1700 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1701 movff TABLAT,var_a+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1702 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1703 movff TABLAT,var_a
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1704 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1705 movff TABLAT,var_a+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1706 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1707 movff TABLAT,var_a+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1708 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1709 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1710 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1711 movff TABLAT,var2_a+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1712 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1713 movff TABLAT,var2_a
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1714 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1715 movff TABLAT,var2_a+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1716 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1717 movff TABLAT,var2_a+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1718 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1719 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1720 incf TBLPTRH,1,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1721 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1722 movff TABLAT,var_b+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1723 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1724 movff TABLAT,var_b
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1725 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1726 movff TABLAT,var_b+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1727 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1728 movff TABLAT,var_b+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1729 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1730 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1731 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1732 movff TABLAT,var2_b+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1733 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1734 movff TABLAT,var2_b
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1735 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1736 movff TABLAT,var2_b+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1737 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1738 movff TABLAT,var2_b+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1739 addlw 0xC0 // different to 1 min
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1740 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1741 incf TBLPTRH,1,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1742 incf TBLPTRH,1,0 // different to 1 min
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1743 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1744 movff TABLAT,var_e1min+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1745 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1746 movff TABLAT,var_e1min
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1747 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1748 movff TABLAT,var_e1min+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1749 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1750 movff TABLAT,var_e1min+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1751 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1752 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1753 //incf TBLPTRH,1,0 // different to 1 min
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1754 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1755 movff TABLAT,var2_e1min+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1756 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1757 movff TABLAT,var2_e1min
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1758 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1759 movff TABLAT,var2_e1min+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1760 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1761 movff TABLAT,var2_e1min+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1762 _endasm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1763
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1764 // N2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1765 temp_tissue = (temp_atem - sim_pres_tissue[ci]) * var_e1min;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1766 temp_tissue_safety();
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1767 sim_pres_tissue[ci] = sim_pres_tissue[ci] + temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1768 // He
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1769 temp_tissue = (temp2_atem - sim_pres_tissue[ci+16]) * var2_e1min;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1770 temp_tissue_safety();
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1771 sim_pres_tissue[ci+16] = sim_pres_tissue[ci+16] + temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1772
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1773 // pressure limit
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1774 temp_tissue = sim_pres_tissue[ci] + sim_pres_tissue[ci+16];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1775 var_a = (var_a * sim_pres_tissue[ci] + var2_a * sim_pres_tissue[ci+16]) / temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1776 var_b = (var_b * sim_pres_tissue[ci] + var2_b * sim_pres_tissue[ci+16]) / temp_tissue;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1777
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1778 sim_pres_tissue_limit[ci] = (temp_tissue - var_a) * var_b;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1779 if (sim_pres_tissue_limit[ci] < 0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1780 sim_pres_tissue_limit[ci] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1781 if (sim_pres_tissue_limit[ci] > temp_pres_gtissue_limit)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1782 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1783 temp_pres_gtissue = temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1784 temp_pres_gtissue_limit = sim_pres_tissue_limit[ci];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1785 temp_gtissue_no = ci;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1786 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1787 } // for
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1788
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1789 temp_pres_gtissue_diff = temp_pres_gtissue_limit - temp_pres_gtissue; // negative number
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1790 temp_pres_gtissue_limit_GF_low = GF_low * temp_pres_gtissue_diff + temp_pres_gtissue;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1791 temp_pres_gtissue_limit_GF_low_below_surface = temp_pres_gtissue_limit_GF_low - pres_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1792 if (temp_pres_gtissue_limit_GF_low_below_surface < 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1793 temp_pres_gtissue_limit_GF_low_below_surface = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1794 } //sim_tissue_10min()
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1795
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1796
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1797 // ------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1798 // clear_decoarray //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1799 // ------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1800 // unchanged in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1801
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1802 void clear_decoarray(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1803 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1804 char_O_array_decodepth[0] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1805 char_O_array_decodepth[1] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1806 char_O_array_decodepth[2] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1807 char_O_array_decodepth[3] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1808 char_O_array_decodepth[4] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1809 char_O_array_decodepth[5] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1810 char_O_array_decotime[0] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1811 char_O_array_decotime[1] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1812 char_O_array_decotime[2] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1813 char_O_array_decotime[3] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1814 char_O_array_decotime[4] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1815 char_O_array_decotime[5] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1816 char_O_array_decotime[6] = 0;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1817 } // clear_decoarray
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1818
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1819
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1820 // -------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1821 // update_decoarray //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1822 // -------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1823 // unchanged in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1824
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1825 void update_decoarray()
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1826 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1827 x = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1828 do
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1829 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1830 if (char_O_array_decodepth[x] == temp_depth_limit)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1831 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1832 int_temp = char_O_array_decotime[x] + temp_decotime;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1833 if (int_temp < 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1834 int_temp = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1835 if (int_temp > 240)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1836 int_temp = 240;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1837 char_O_array_decotime[x] = int_temp;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1838 x = 10; // exit
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1839 } // if
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1840 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1841 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1842 if (char_O_array_decodepth[x] == 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1843 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1844 if (temp_depth_limit > 255)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1845 char_O_array_decodepth[x] = 255;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1846 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1847 char_O_array_decodepth[x] = (char)temp_depth_limit;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1848 int_temp = char_O_array_decotime[x] + temp_decotime;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1849 if (int_temp > 240)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1850 char_O_array_decotime[x] = 240;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1851 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1852 char_O_array_decotime[x] = (char)int_temp;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1853 x = 10; // exit
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1854 } // if
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1855 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1856 x++;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1857 } // else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1858 } while (x<6);
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1859 if (x == 6)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1860 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1861 int_temp = char_O_array_decotime[6] + temp_decotime;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1862 if (int_temp > 220)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1863 char_O_array_decotime[6] = 220;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1864 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1865 char_O_array_decotime[6] = (char)int_temp;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1866 } // if x == 6
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1867 } // update_decoarray
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1868
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1869
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1870 // -----------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1871 // calc_gradient_factor //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1872 // -----------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1873 // optimized in v.101 (var_a)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1874 // new code in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1875
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1876 void calc_gradient_factor(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1877 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1878 // tissue > respiration (entsaettigungsvorgang)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1879 // gradient ist wieviel prozent an limit mit basis tissue
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1880 // dh. 0% = respiration == tissue
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1881 // dh. 100% = respiration == limit
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1882 temp_tissue = pres_tissue[char_O_gtissue_no] + pres_tissue[char_O_gtissue_no+16];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1883 temp1 = temp_tissue - pres_respiration;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1884 temp2 = temp_tissue - pres_tissue_limit[char_O_gtissue_no]; // changed in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1885 temp2 = temp1/temp2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1886 temp2 = temp2 * 100; // displayed in percent
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1887 if (temp2 < 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1888 temp2 = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1889 if (temp2 > 255)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1890 temp2 = 255;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1891 if (temp1 < 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1892 char_O_gradient_factor = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1893 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1894 char_O_gradient_factor = (char)temp2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1895
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1896 temp3 = temp2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1897
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1898 if (char_I_deco_model == 1) // calculate relative gradient factor
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1899 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1900 temp1 = (float)temp_depth_GF_low_meter * 0.09995;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1901 temp2 = pres_respiration - pres_surface;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1902 if (temp2 <= 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1903 temp1 = GF_high;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1904 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1905 if (temp2 >= temp1)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1906 temp1 = GF_low;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1907 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1908 temp1 = GF_low + (temp1 - temp2)/temp1*GF_delta;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1909 if (temp_depth_GF_low_meter == 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1910 temp1 = GF_high;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1911 temp2 = temp3 / temp1; // temp3 is already in percent
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1912 if (temp2 < 0)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1913 temp2 = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1914 if (temp2 > 255)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1915 temp2 = 255;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1916 char_O_relative_gradient_GF = (char)temp2;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1917 } // calc relative gradient factor
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1918 else
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1919 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1920 char_O_relative_gradient_GF = char_O_gradient_factor;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1921 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1922 } // calc_gradient
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1923
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1924 // ---------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1925 // deco_gradient_array //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1926 // ---------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1927 // optimized in v.101 (var_a)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1928 // new code in v.102
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1929
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1930 void deco_gradient_array()
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1931 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1932 RESET_C_STACK
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1933 pres_respiration = (float)int_I_pres_respiration / 1000.0; // assembler code uses different digit system
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1934 for (ci=0;ci<16;ci++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1935 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1936 temp_tissue = pres_tissue[ci] + pres_tissue[ci+16];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1937 temp1 = temp_tissue - pres_respiration;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1938 temp2 = temp_tissue - pres_tissue_limit[ci];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1939 temp2 = temp1/temp2;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1940 temp2 = temp2 * 200; // because of output in (Double-)percentage
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1941 if (temp2 < 0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1942 temp2 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1943 if (temp2 > 255)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1944 temp2 = 255;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1945 if (temp1 < 0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1946 char_O_array_gradient_weighted[ci] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1947 else
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1948 char_O_array_gradient_weighted[ci] = (char)temp2;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1949 } // for
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1950 } // deco_gradient_array
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1951
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1952
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1953 // ------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1954 // deco_calc_desaturation_time //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1955 // ------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1956 // FIXED N2_ratio
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1957 // unchanged in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1958
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1959 void deco_calc_desaturation_time(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
1960 {
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
1961 RESET_C_STACK
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
1962
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1963 N2_ratio = 0.7902; // FIXED sum as stated in b"uhlmann
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1964 pres_surface = (float)int_I_pres_surface / 1000.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1965 temp_atem = N2_ratio * (pres_surface - 0.0627);
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1966 int_O_desaturation_time = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1967 float_desaturation_multiplier = char_I_desaturation_multiplier / 142.0; // new in v.101 (70,42%/100.=142)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1968
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1969 for (ci=0;ci<16;ci++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1970 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1971 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1972 movlw 0x04
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1973 movwf TBLPTRH,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1974 movlb 4 // fuer ci
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1975 movf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1976 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1977 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1978 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1979 addlw 0x80
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1980 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1981 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1982 movff TABLAT,var_halftimes+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1983 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1984 movff TABLAT,var_halftimes
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1985 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1986 movff TABLAT,var_halftimes+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1987 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1988 movff TABLAT,var_halftimes+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1989 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1990 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1991 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1992 movff TABLAT,var2_halftimes+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1993 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1994 movff TABLAT,var2_halftimes
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1995 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1996 movff TABLAT,var2_halftimes+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1997 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1998 movff TABLAT,var2_halftimes+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
1999 _endasm
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2000
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2001 // saturation_time (for flight) and N2_saturation in multiples of halftime
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2002 // version v.100: 1.1 = 10 percent distance to totally clean (totally clean is not possible, would take infinite time )
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2003 // new in version v.101: 1.07 = 7 percent distance to totally clean (totally clean is not possible, would take infinite time )
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2004 // changes in v.101: 1.05 = 5 percent dist to totally clean is new desaturation point for display and noFly calculations
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2005 // N2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2006 temp1 = 1.05 * temp_atem;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2007 temp1 = temp1 - pres_tissue[ci];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2008 temp2 = temp_atem - pres_tissue[ci];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2009 if (temp2 >= 0.0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2010 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2011 temp1 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2012 temp2 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2013 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2014 else
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2015 temp1 = temp1 / temp2;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2016 if (temp1 > 0.0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2017 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2018 temp1 = log(1.0 - temp1);
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2019 temp1 = temp1 / -0.6931; // temp1 is the multiples of half times necessary.
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2020 // 0.6931 is ln(2), because the math function log() calculates with a base of e not 2 as requested.
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2021 // minus because log is negative
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2022 temp2 = var_halftimes * temp1 / float_desaturation_multiplier; // time necessary (in minutes ) for complete desaturation (see comment about 10 percent) , new in v.101: float_desaturation_multiplier
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2023 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2024 else
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2025 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2026 temp1 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2027 temp2 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2028 }
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2029
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2030 // He
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2031 temp3 = 0.1 - pres_tissue[ci+16];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2032 if (temp3 >= 0.0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2033 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2034 temp3 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2035 temp4 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2036 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2037 else
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2038 temp3 = -1.0 * temp3 / pres_tissue[ci+16];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2039 if (temp3 > 0.0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2040 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2041 temp3 = log(1.0 - temp3);
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2042 temp3 = temp3 / -0.6931; // temp1 is the multiples of half times necessary.
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2043 // 0.6931 is ln(2), because the math function log() calculates with a base of e not 2 as requested.
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2044 // minus because log is negative
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2045 temp4 = var2_halftimes * temp3 / float_desaturation_multiplier; // time necessary (in minutes ) for "complete" desaturation, new in v.101 float_desaturation_multiplier
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2046 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2047 else
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2048 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2049 temp3 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2050 temp4 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2051 }
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2052
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2053 // saturation_time (for flight)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2054 if (temp4 > temp2)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2055 int_temp = (int)temp4;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2056 else
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2057 int_temp = (int)temp2;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2058 if(int_temp > int_O_desaturation_time)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2059 int_O_desaturation_time = int_temp;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2060
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2061 // N2 saturation in multiples of halftime for display purposes
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2062 temp2 = temp1 * 20.0; // 0 = 1/8, 120 = 0, 249 = 8
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2063 temp2 = temp2 + 80.0; // set center
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2064 if (temp2 < 0.0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2065 temp2 = 0.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2066 if (temp2 > 255.0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2067 temp2 = 255.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2068 char_O_tissue_saturation[ci] = (char)temp2;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2069 // He saturation in multiples of halftime for display purposes
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2070 temp4 = temp3 * 20.0; // 0 = 1/8, 120 = 0, 249 = 8
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2071 temp4 = temp4 + 80.0; // set center
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2072 if (temp4 < 0.0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2073 temp4 = 0.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2074 if (temp4 > 255.0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2075 temp4 = 255.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2076 char_O_tissue_saturation[ci+16] = (char)temp4;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2077 } // for
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2078 } // deco_calc_desaturation_time
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2079
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2080
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2081 // --------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2082 // calc_wo_deco_step_1_min //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2083 // --------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2084 // FIXED N2 Ratio
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2085 // optimized in v.101 (...saturation_multiplier)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2086 // desaturation slowed down to 70,42%
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2087
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2088 void calc_wo_deco_step_1_min(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2089 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2090 if(flag_in_divemode)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2091 {
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2092 flag_in_divemode = 0;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2093 set_dbg_end_of_dive();
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2094 }
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
2095
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2096 N2_ratio = 0.7902; // FIXED, sum lt. buehlmann
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2097 pres_respiration = (float)int_I_pres_respiration / 1000.0; // assembler code uses different digit system
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2098 pres_surface = (float)int_I_pres_surface / 1000.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2099 temp_atem = N2_ratio * (pres_respiration - 0.0627); // 0.0627 is the extra pressure in the body
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2100 temp2_atem = 0.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2101 temp_surface = pres_surface; // the b"uhlmann formula using temp_surface does not use the N2_ratio
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2102 float_desaturation_multiplier = char_I_desaturation_multiplier / 142.0; // new in v.101 (70,42%/100.=142)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2103 float_saturation_multiplier = char_I_saturation_multiplier / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2104
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2105 calc_tissue_step_1_min(); // update the pressure in the 16 tissues in accordance with the new ambient pressure
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2106 clear_decoarray();
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2107 char_O_deco_status = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2108 char_O_nullzeit = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2109 char_O_ascenttime = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2110 calc_gradient_factor();
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2111
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2112 } // calc_wo_deco_step_1_min(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2113
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2114
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2115 // -------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2116 // calc_tissue_step_1_min //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2117 // -------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2118 // optimized in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2119
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2120 void calc_tissue_step_1_min(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2121 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2122 char_O_gtissue_no = 255;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2123 pres_gtissue_limit = 0.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2124
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2125 for (ci=0;ci<16;ci++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2126 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2127 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2128 movlw 0x02
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2129 movwf TBLPTRH,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2130 movlb 4 // fuer ci
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2131 movf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2132 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2133 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2134 addwf ci,0,1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2135 addlw 0x80
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2136 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2137 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2138 movff TABLAT,var_a+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2139 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2140 movff TABLAT,var_a
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2141 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2142 movff TABLAT,var_a+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2143 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2144 movff TABLAT,var_a+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2145 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2146 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2147 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2148 movff TABLAT,var2_a+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2149 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2150 movff TABLAT,var2_a
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2151 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2152 movff TABLAT,var2_a+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2153 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2154 movff TABLAT,var2_a+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2155 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2156 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2157 incf TBLPTRH,1,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2158 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2159 movff TABLAT,var_b+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2160 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2161 movff TABLAT,var_b
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2162 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2163 movff TABLAT,var_b+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2164 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2165 movff TABLAT,var_b+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2166 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2167 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2168 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2169 movff TABLAT,var2_b+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2170 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2171 movff TABLAT,var2_b
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2172 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2173 movff TABLAT,var2_b+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2174 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2175 movff TABLAT,var2_b+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2176 addlw 0xC0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2177 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2178 incf TBLPTRH,1,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2179 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2180 movff TABLAT,var_e1min+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2181 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2182 movff TABLAT,var_e1min
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2183 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2184 movff TABLAT,var_e1min+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2185 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2186 movff TABLAT,var_e1min+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2187 addlw 0x40
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2188 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2189 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2190 movff TABLAT,var2_e1min+1
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2191 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2192 movff TABLAT,var2_e1min
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2193 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2194 movff TABLAT,var2_e1min+3
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2195 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2196 movff TABLAT,var2_e1min+2
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2197 _endasm
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2198
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2199 // N2 1 min
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2200 temp_tissue = (temp_atem - pres_tissue[ci]) * var_e1min;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2201 temp_tissue_safety();
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2202 pres_tissue[ci] = pres_tissue[ci] + temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2203
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2204 // He 1 min
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2205 temp_tissue = (temp2_atem - pres_tissue[ci+16]) * var2_e1min;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2206 temp_tissue_safety();
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2207 pres_tissue[ci+16] = pres_tissue[ci+16] + temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2208
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2209 temp_tissue = pres_tissue[ci] + pres_tissue[ci+16];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2210 var_a = (var_a * pres_tissue[ci] + var2_a * pres_tissue[ci+16]) / temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2211 var_b = (var_b * pres_tissue[ci] + var2_b * pres_tissue[ci+16]) / temp_tissue;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2212 pres_tissue_limit[ci] = (temp_tissue - var_a) * var_b;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2213 if (pres_tissue_limit[ci] < 0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2214 pres_tissue_limit[ci] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2215 if (pres_tissue_limit[ci] > pres_gtissue_limit)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2216 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2217 pres_gtissue_limit = pres_tissue_limit[ci];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2218 char_O_gtissue_no = ci;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2219 }//if
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2220
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2221 if(!char_I_step_is_1min)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2222 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2223 // gradient factor array for graphical display
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2224 // display range is 0 to 250! in steps of 5 for 1 pixel
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2225 // the display is divided in 6 blocks
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2226 // -> double the gradient 100% = 200
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2227 // tissue > respiration (entsaettigungsvorgang)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2228 // gradient ist wieviel prozent an limit von tissue aus
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2229 // dh. 0% = respiration == tissue
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2230 // dh. 100% = respiration == limit
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2231 temp1 = temp_tissue - pres_respiration;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2232 temp2 = temp_tissue - pres_tissue_limit[ci]; // changed in v.102
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2233 temp2 = temp1/temp2;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2234 temp2 = temp2 * 200; // because of output in (Double-)percentage
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2235 if (temp2 < 0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2236 temp2 = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2237 if (temp2 > 255)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2238 temp2 = 255;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2239 if (temp1 < 0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2240 char_O_array_gradient_weighted[ci] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2241 else
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2242 char_O_array_gradient_weighted[ci] = (char)temp2;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2243 }
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2244 } // for
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2245 } // calc wo deco 1min
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2246
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2247 // ----------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2248 // deco_hash //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2249 // ----------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2250 void deco_hash(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2251 {
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
2252 RESET_C_STACK
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2253
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2254 // init
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2255 for (md_i=0;md_i<16;md_i++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2256 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2257 md_state[md_i] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2258 md_cksum[md_i] = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2259 } // for md_i 16
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2260
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2261 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2262 movlw 0x01
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2263 movwf TBLPTRU,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2264 movlw 0x06
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2265 movwf TBLPTRH,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2266 movlw 0x00
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2267 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2268 _endasm;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2269 for (md_i=0;md_i<127;md_i++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2270 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2271 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2272 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2273 movff TABLAT,md_temp
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2274 _endasm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2275 md_pi_subst[md_i] = md_temp;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2276 } // for md_i 256
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2277 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2278 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2279 movff TABLAT,md_temp
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2280 _endasm;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2281 md_pi_subst[127] = md_temp;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2282 for (md_i=0;md_i<127;md_i++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2283 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2284 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2285 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2286 movff TABLAT,md_temp
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2287 _endasm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2288 md_pi_subst[md_i+128] = md_temp;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2289 } // for md_i 256
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2290 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2291 TBLRD
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2292 movff TABLAT,md_temp
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2293 _endasm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2294 md_pi_subst[255] = md_temp;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2295
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2296 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2297 movlw 0x00
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2298 movwf TBLPTRU,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2299 movlw 0x00
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2300 movwf TBLPTRH,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2301 movlw 0x00
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2302 movwf TBLPTRL,0
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2303 _endasm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2304 // cycle buffers
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2305 for (md_pointer=0x0000;md_pointer<0x17f3;md_pointer++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2306 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2307 md_t = 0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2308 for (md_i=0;md_i<16;md_i++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2309 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2310 if(md_pointer == 9)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2311 md_temp = md_cksum[md_i];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2312 else
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2313 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2314 _asm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2315 TBLRDPOSTINC
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2316 movff TABLAT,md_temp
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2317 _endasm
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2318 } // else
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2319 md_buffer[md_i] = md_temp;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2320 md_state[md_i+16] = md_buffer[md_i];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2321 md_state[md_i+32] = (unsigned char)(md_buffer[md_i] ^ md_state[md_i]);
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2322 } // for md_i 16
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2323
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2324 for (md_i=0;md_i<18;md_i++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2325 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2326 for (md_j=0;md_j<48;md_j++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2327 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2328 md_state[md_j] = (unsigned char)(md_state[md_j] ^ md_pi_subst[md_t]);
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2329 md_t = md_state[md_j];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2330 } // for md_j 48
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2331 md_t = (unsigned char)(md_t+1);
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2332 } // for md_i 18
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2333 md_t = md_cksum[15];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2334
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2335 for (md_i=0;md_i<16;md_i++)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2336 {
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2337 md_cksum[md_i] = (unsigned char)(md_cksum[md_i] ^ md_pi_subst[(md_buffer[md_i] ^ md_t)]);
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2338 md_t = md_cksum[md_i];
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2339 } // for md_i 16
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2340 } // for md_pointer
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2341 } // void deco_hash(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2342
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2343 // ---------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2344 // deco_clear_CNS_fraction //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2345 // ---------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2346 // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2347
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2348 void deco_clear_CNS_fraction(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2349 {
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
2350 RESET_C_STACK
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2351 CNS_fraction = 0.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2352 char_O_CNS_fraction = 0;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2353 } // void deco_clear_CNS_fraction(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2354
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2355
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2356 // -------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2357 // deco_calc_CNS_fraction //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2358 // -------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2359 // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2360 // optimized in v.102 : with new variables char_I_actual_ppO2 and actual_ppO2
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2361
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2362 // Input: char_I_actual_ppO2
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2363 // Output: char_O_CNS_fraction
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2364 // Uses and Updates: CNS_fraction
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2365 // Uses: acutal_ppO2
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2366
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2367 void deco_calc_CNS_fraction(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2368 {
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2369 RESET_C_STACK
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2370 actual_ppO2 = (float)char_I_actual_ppO2 / 100.0;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2371
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2372 if (char_I_actual_ppO2 < 50)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2373 CNS_fraction = CNS_fraction;// no changes
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2374 else if (char_I_actual_ppO2 < 60)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2375 CNS_fraction = 1/(-54000.0 * actual_ppO2 + 54000.0) + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2376 else if (char_I_actual_ppO2 < 70)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2377 CNS_fraction = 1/(-45000.0 * actual_ppO2 + 48600.0) + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2378 else if (char_I_actual_ppO2 < 80)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2379 CNS_fraction = 1/(-36000.0 * actual_ppO2 + 42300.0) + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2380 else if (char_I_actual_ppO2 < 90)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2381 CNS_fraction = 1/(-27000.0 * actual_ppO2 + 35100.0) + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2382 else if (char_I_actual_ppO2 < 110)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2383 CNS_fraction = 1/(-18000.0 * actual_ppO2 + 27000.0) + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2384 else if (char_I_actual_ppO2 < 150)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2385 CNS_fraction = 1/(-9000.0 * actual_ppO2 + 17100.0) + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2386 else if (char_I_actual_ppO2 < 160)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2387 CNS_fraction = 1/(-22500.0 * actual_ppO2 + 37350.0) + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2388 else if (char_I_actual_ppO2 < 165)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2389 CNS_fraction = 0.000755 + CNS_fraction; // Arieli et all.(2002): Modeling pulmonary and CNS O2 toxicity... Formula (A1) based on value for 1.55 and c=20
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2390 else if (char_I_actual_ppO2 < 170)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2391 CNS_fraction = 0.00102 + CNS_fraction; // example calculation: Sqrt((1.7/1.55)^20)*0.000404
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2392 else if (char_I_actual_ppO2 < 175)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2393 CNS_fraction = 0.00136 + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2394 else if (char_I_actual_ppO2 < 180)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2395 CNS_fraction = 0.00180 + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2396 else if (char_I_actual_ppO2 < 185)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2397 CNS_fraction = 0.00237 + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2398 else if (char_I_actual_ppO2 < 190)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2399 CNS_fraction = 0.00310 + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2400 else if (char_I_actual_ppO2 < 195)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2401 CNS_fraction = 0.00401 + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2402 else if (char_I_actual_ppO2 < 200)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2403 CNS_fraction = 0.00517 + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2404 else if (char_I_actual_ppO2 < 230)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2405 CNS_fraction = 0.0209 + CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2406 else
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2407 CNS_fraction = 0.0482 + CNS_fraction; // value for 2.5
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2408
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2409 if (CNS_fraction > 2.5)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2410 CNS_fraction = 2.5;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2411 if (CNS_fraction < 0.0)
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2412 CNS_fraction = 0.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2413
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2414 char_O_CNS_fraction = (char)((CNS_fraction + 0.005)* 100.0);
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2415 } // void deco_calc_CNS_fraction(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2416
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2417 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2418 // deco_calc_CNS_decrease_15min //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2419 // -------------------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2420 // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2421
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2422 // calculates the half time of 90 minutes in 6 steps of 15 min
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2423
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2424 // Output: char_O_CNS_fraction
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2425 // Uses and Updates: CNS_fraction
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2426
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2427 void deco_calc_CNS_decrease_15min(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2428 {
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
2429 RESET_C_STACK
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2430 CNS_fraction = 0.890899 * CNS_fraction;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2431 char_O_CNS_fraction = (char)((CNS_fraction + 0.005)* 100.0);
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2432 }// deco_calc_CNS_decrease_15min(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2433
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2434
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2435 // -----------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2436 // deco_calc_percentage //
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2437 // -----------------------
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2438 // new in v.101
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2439
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2440 // calculates int_I_temp * char_I_temp / 100
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2441 // output is int_I_temp
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2442
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2443 void deco_calc_percentage(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2444 {
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
2445 RESET_C_STACK
126
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2446 temp1 = (float)int_I_temp;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2447 temp2 = (float)char_I_temp / 100.0;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2448 temp3 = temp1 * temp2;
ed275788a291 Re-indent c-code. Add .o file.
JeanDo
parents: 122
diff changeset
2449 int_I_temp = (int)temp3;
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2450 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2451
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2452 void deco_push_tissues_to_vault(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2453 {
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
2454 RESET_C_STACK
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2455 cns_vault = CNS_fraction;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2456 for (ci=0;ci<32;ci++)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2457 pres_tissue_vault[ci] = pres_tissue[ci];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2458 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2459 void deco_pull_tissues_from_vault(void)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2460 {
122
3003a8040b78 FIX again reset C data stack and frame pointer when entering C code.
JeanDo
parents: 116
diff changeset
2461 RESET_C_STACK
116
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2462 CNS_fraction = cns_vault;
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2463 for (ci=0;ci<32;ci++)
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2464 pres_tissue[ci] = pres_tissue_vault[ci];
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2465 }
14a074e1a375 Split C code, and use direct linking.
JeanDo
parents:
diff changeset
2466