/*+
−
 * p2_deco_main_c_v108.c+
−
 *+
−
 *  Created on: 12.05.2009+
−
 *      Author: chsw+
−
 *+
−
 * Changes: debug / plausibiliy output+
−
 */+
−
+
−
//#include <p2_deco_header_c_v102d.h>+
−
+
−
+
−
// OSTC - diving computer code+
−
// Copyright (C) 2008 HeinrichsWeikamp GbR+
−
+
−
//    This program is free software: you can redistribute it and/or modify+
−
//    it under the terms of the GNU General Public License as published by+
−
//    the Free Software Foundation, either version 3 of the License, or+
−
//    (at your option) any later version.+
−
+
−
//    This program is distributed in the hope that it will be useful,+
−
//    but WITHOUT ANY WARRANTY; without even the implied warranty of+
−
//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the+
−
//    GNU General Public License for more details.+
−
+
−
//    You should have received a copy of the GNU General Public License+
−
//    along with this program.  If not, see <http://www.gnu.org/licenses/>.+
−
+
−
+
−
// *****************************+
−
// ** I N T R O D U C T I O N **+
−
// *****************************+
−
//+
−
// OSTC+
−
//+
−
// code:+
−
// p2_deco_main_c_v101.c+
−
// part2 of the OSTC code+
−
// code with constant O2 partial pressure routines+
−
// under construction !!+
−
//+
−
// summary:+
−
// decompression routines+
−
// for the OSTC experimental project+
−
// written by Christian Weikamp+
−
// last revision __________+
−
// comments added _________+
−
//+
−
// additional files:+
−
// p2_tables_v100.romdata (other files)+
−
// 18f4685_ostc_v100.lkr (linker script)+
−
//+
−
// history:+
−
// 01/03/08 v100: first release candidate+
−
// 03/13/08 v101: start of programming ppO2 code+
−
// 03/13/25 v101a: backup of interrim version with ppO2 calculation+
−
// 03/13/25 v101: open circuit gas change during deco+
−
// 03/13/25 v101: CNS_fraction calculation+
−
// 03/13/26 v101: optimization of tissue calc routines+
−
// 07/xx/08 v102a: debug of bottom time routine+
−
// 09/xx/08 v102d: Gradient Factor Model implemenation+
−
// 10/10/08 v104: renamed to build v103 for v118 stable+
−
// 10/14/08	v104: integration of temp_depth_last_deco for Gradient Model+
−
// 03/31/09 v107: integration of FONT Incon24+
−
// 05/23/10 v109: 5 gas changes & 1 min timer+
−
// 07/13/10 v110: cns vault added+
−
+
−
//+
−
// literature:+
−
// B"uhlmann, Albert: Tauchmedizin; 4. Auflage;+
−
// 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+
−
// Morrison, Stuart; 2000; DIY DECOMPRESSION; http://www.lizardland.co.uk/DIYDeco.html+
−
// Balthasar, Steffen; Dekompressionstheorie I: Neo Haldane Modelle; http://www.txfreak.de/dekompressionstheorie_1.pdf+
−
// Baker, Erik C.; Clearing Up The Confusion About "Deep Stops"+
−
// Baker, Erik C.; Understanding M-values; http://www.txfreak.de/understanding_m-values.pdf+
−
+
−
+
−
// *********************+
−
// ** I N C L U D E S **+
−
// *********************+
−
 #include <p18f4685.h>+
−
 #include <math.h>+
−
+
−
// ********************************+
−
// ** C O N F I G U R A T I O N  **+
−
// ** for simulation without asm **+
−
// ********************************+
−
 #pragma config OSC = IRCIO67+
−
 #pragma config FCMEN = OFF+
−
 #pragma config IESO = OFF+
−
 #pragma config PWRT = ON+
−
 #pragma config BOREN = OFF+
−
 #pragma config WDT = OFF+
−
 #pragma config WDTPS = 128+
−
 #pragma config MCLRE = ON+
−
 #pragma config LPT1OSC = OFF+
−
 #pragma config PBADEN = OFF+
−
 #pragma config DEBUG = OFF+
−
 #pragma config XINST = OFF+
−
 #pragma config LVP = OFF+
−
 #pragma config STVREN = OFF+
−
+
−
// ****************************+
−
// ** D E F I N E S          **+
−
// ** missing in  p18f4685.h **+
−
// ****************************+
−
#define INT0IF	1+
−
#define INT1IF	0+
−
#define TMR1IF	0+
−
+
−
#define oled_clk			PORTD, 0,0+
−
#define oled_data			PORTD, 1,0+
−
#define oled_en				PORTE, 0,0+
−
#define oled_rs				PORTE, 1,0+
−
#define flag5				0x29	// in Bank1+
−
//#define	no_sensor_int		flag5,7,1	// ; block any further access to pressure sensor+
−
+
−
#	define	DBG_c_gas	0b0000000000000001+
−
#	define	DBG_c_ppO2	0b0000000000000010+
−
#	define	DBG_RUN 	0b0000000000000100+
−
#	define	DBG_RESTART 0b0000000000001000+
−
+
−
#	define	DBG_CdeSAT 	0b0000000000010000+
−
#	define	DBG_C_MODE	0b0000000000100000+
−
#	define	DBG_C_SURF	0b0000000001000000+
−
#	define	DBG_HEwoHE 	0b0000000010000000+
−
+
−
#	define	DBG_C_DPPO2	0b0000000100000000+
−
#	define	DBG_C_DGAS 	0b0000001000000000+
−
#	define	DBG_C_DIST	0b0000010000000000+
−
#	define	DBG_C_LAST	0b0000100000000000+
−
+
−
#	define	DBG_C_GF	0b0001000000000000+
−
#	define	DBG_ZH16ERR	0b0010000000000000+
−
#	define	DBG_PHIGH	0b0100000000000000+
−
#	define	DBG_PLOW	0b1000000000000000+
−
+
−
+
−
#	define	DBS_mode	0b0000000000000001+
−
#	define	DBS_ppO2	0b0000000000000010+
−
#	define	DBS_HE_sat	0b0000000000000100+
−
#	define	DBS_ppO2chg 0b0000000000001000+
−
+
−
#	define	DBS_SAT2l	0b0000000000010000+
−
#	define	DBS_SAT2h	0b0000000000100000+
−
#	define	DBS_GFLOW2l	0b0000000001000000+
−
#	define	DBS_GFLOW2h	0b0000000010000000+
−
+
−
#	define	DBS_GFHGH2l	0b0000000100000000+
−
#	define	DBS_GFHGH2h	0b0000001000000000+
−
#	define	DBS_GASO22l	0b0000010000000000+
−
#	define	DBS_GASO22h	0b0000100000000000+
−
+
−
#	define	DBS_DIST2h 	0b0001000000000000+
−
#	define	DBS_LAST2h 	0b0010000000000000+
−
#	define	DBS_DECOO2l	0b0100000000000000+
−
#	define	DBS_DECOO2h	0b1000000000000000+
−
+
−
+
−
#	define	DBS2_PRES2h 0b0000000000000001+
−
#	define	DBS2_PRES2l 0b0000000000000010+
−
#	define	DBS2_SURF2l	0b0000000000000100+
−
#	define	DBS2_SURF2h	0b0000000000001000+
−
+
−
#	define DBS2_DESAT2l 0b0000000000010000+
−
#	define DBS2_DESAT2h 0b0000000000100000+
−
#	define	DBS2_GFDneg 0b0000000001000000+
−
#	define	DBS2_ 0b000000000000000+
−
+
−
#	define	DBS2_ 0b000000000000000+
−
#	define	DBS2_ 0b000000000000000+
−
#	define	DBS2_ 0b000000000000000+
−
#	define	DBS2_ 0b000000000000000+
−
+
−
// NDL_at_20mtr+
−
+
−
#	define	MBAR_REACH_GASCHANGE_AUTO_CHANGE_OFF	150+
−
+
−
// ***********************+
−
// ** V A R I A B L E S **+
−
// ***********************+
−
// prefixes etc:+
−
// _O_ = output for use in the assembler code+
−
// _I_ = input from the assembler code for the c code+
−
// char_ and int_ = used to identify output and input size+
−
// var = variable (from b"uhlmann)+
−
// pres = pressure+
−
// gtissue = guiding tissue, the one limiting the ascent+
−
// e2secs = exp of the b"uhlmann formula precalculated for a 2 second step+
−
// e1min = same for 1 minute step+
−
// sim = used in simulating the ascent to the surface+
−
// nullzeit = remaining ground/bottom time for "no deco"+
−
// hauptroutine = main+
−
+
−
#pragma udata bank0a=0x060+
−
volatile unsigned char dd2_stringstore[17];+
−
#pragma udata bank0b=0x071+
−
volatile unsigned char keep_free_bank0[21];+
−
+
−
#pragma udata bank0c=0x086+
−
volatile unsigned char dd2_left;		// 1 - 64+
−
volatile unsigned char dd2_top;			// 1 - 64+
−
volatile unsigned char dd2_heightmax; 	// 1 - 37+
−
volatile unsigned char dd2_oled_brightness_offset; // 0 - 15 (15 is pitch black always)+
−
volatile unsigned char dd2_fontwidth;	//  8, 12, 21 for Incon16, Incon24, Incon42+
−
volatile unsigned char dd2_fontheight;	// 14, 21, 37 for "+
−
volatile unsigned long dd2_pointer;		// for font lut+
−
volatile unsigned char dd2_i;+
−
volatile unsigned char dd2_j;+
−
volatile unsigned char dd2_k;+
−
volatile unsigned char dd2_char;+
−
volatile unsigned char dd2_lowbyte;+
−
volatile unsigned char dd2_temp;+
−
volatile unsigned char dd2_data;+
−
volatile unsigned long dd2_base;			// for font lut+
−
volatile unsigned char dd2_start;			// for font lut+
−
volatile unsigned char dd2_end;			// for font lut+
−
+
−
+
−
 #pragma udata bank1=0x100+
−
 const unsigned char keep_free_bank1[256]; // used by the assembler code+
−
+
−
 #pragma udata bank2a=0x200+
−
// output:+
−
 static unsigned int	int_O_tissue_for_debug[32];+
−
 static unsigned int	int_O_GF_spare____;						// 0x240+
−
 static unsigned int	int_O_GF_step;							// 0x242+
−
 static unsigned int 	int_O_gtissue_limit;					// 0x244+
−
 static unsigned int 	int_O_gtissue_press;					// 0x246+
−
 static unsigned int 	int_O_limit_GF_low;						// 0x248+
−
 static unsigned int 	int_O_gtissue_press_at_GF_low;			// 0x24A+
−
 volatile unsigned char	char_I_step_is_1min;					// 0x24C+
−
+
−
 // ...+
−
 #pragma udata bank2b=0x24E+
−
 static unsigned char	char_O_GF_low_pointer;					// 0x24E+
−
 static unsigned char	char_O_actual_pointer;					// 0x24F+
−
 #pragma udata bank2c=0x250+
−
 static unsigned char	char_O_deco_table[32];					// 0x250+
−
 #pragma udata bank2d=0x270+
−
 static unsigned char	char_I_table_deco_done[32];+
−
 #pragma udata bank2e=0x290+
−
 static unsigned int 	int_O_calc_tissue_call_counter;			// 0x290+
−
// internal:+
−
 unsigned char 			lock_GF_depth_list;+
−
 static float			temp_limit;+
−
 static float			GF_low;+
−
 static float			GF_high;+
−
 static float			GF_delta;+
−
 static float			GF_temp;+
−
 static float			GF_step;+
−
 static float			GF_step2;+
−
 static float			temp_pres_gtissue;+
−
 static float			temp_pres_gtissue_diff;+
−
 static float			temp_pres_gtissue_limit_GF_low;+
−
 static float			temp_pres_gtissue_limit_GF_low_below_surface;+
−
 static	unsigned int	temp_depth_limit;+
−
 static unsigned char	temp_decotime;+
−
 static unsigned char	temp_gtissue_no;+
−
 static	unsigned int	temp_depth_last_deco;				// new in v.101+
−
+
−
 static unsigned char	temp_depth_GF_low_meter;+
−
 static unsigned char	temp_depth_GF_low_number;+
−
 static unsigned char	internal_deco_pointer;+
−
+
−
 #pragma udata bank2f=0x2C8+
−
 static unsigned char	internal_deco_table[32];			//  0x2C8+
−
 static float			temp_pres_deco_GF_low;+
−
+
−
static unsigned int debug_temp;+
−
+
−
+
−
#pragma udata bank3a=0x300+
−
static char output[32];+
−
// used by the math routines+
−
#pragma udata bank3b=0x37C+
−
volatile float cns_vault;+
−
#pragma udata bank3c=0x380+
−
volatile float pres_tissue_vault[32];+
−
 #pragma udata bank4a=0x400+
−
// internal:+
−
 unsigned char			ci ; // don't move - used in _asm routines - if moved then modify movlb commands+
−
 unsigned char 			x;+
−
 unsigned int 			main_i;+
−
 unsigned int 			int_temp;+
−
 unsigned int 			int_temp2;+
−
 unsigned int 			int_temp_decostatus;+
−
 static float 			pres_respiration;+
−
 static float			pres_surface;+
−
 static float			temp1;+
−
 static float			temp2;+
−
 static float			temp3;+
−
 static float			temp4;+
−
 static float			temp_deco;+
−
 static float			temp_atem;+
−
 static float			temp2_atem;+
−
 static float			temp_tissue;+
−
 static float			temp_surface;+
−
 static float			N2_ratio;+
−
 static float			He_ratio;+
−
 static float			temp_ratio;+
−
 static float 			var_a;+
−
 static float 			var2_a;+
−
 static float 			var_b;+
−
 static float 			var2_b;+
−
 static float 			var_t05nc;+
−
 static float 			var2_t05nc;+
−
 static float  			var_e2secs;+
−
 static float  			var2_e2secs;+
−
 static float  			var_e1min;+
−
 static float  			var2_e1min;+
−
 static float  			var_halftimes;+
−
 static float  			var2_halftimes;+
−
 static float			pres_gtissue_limit;+
−
 static float			temp_pres_gtissue_limit;+
−
 static float			actual_ppO2;						// new in v.102+
−
+
−
 #pragma udata bank4b=0x480+
−
 static float			pres_tissue[32];+
−
+
−
 #pragma udata bank5=0x500+
−
// don't move positions in this bank, the registers are addressed directly from assembler code+
−
// input:+
−
 static unsigned int	int_I_pres_respiration;				// 0x500+
−
 static unsigned int	int_I_pres_surface;					// 0x502+
−
 static unsigned int	int_I_temp;							// 0x504  new in v101+
−
 static unsigned char	char_I_temp;						// 0x506  new in v101+
−
 static unsigned char	char_I_actual_ppO2;					// 0x507+
−
 static unsigned char char_I_deco_N2_ratio2;    // 0x508 new in v.109+
−
 static unsigned char char_I_deco_He_ratio2;    // 0x509 new in v.109+
−
 static unsigned char char_I_deco_N2_ratio3;    // 0x50A new in v.109+
−
 static unsigned char char_I_deco_He_ratio3;    // 0x50B new in v.109+
−
 static unsigned char char_I_deco_N2_ratio4;    // 0x50C new in v.109+
−
 static unsigned char char_I_deco_He_ratio4;    // 0x50D new in v.109+
−
 static unsigned char char_I_deco_N2_ratio5;    // 0x50E new in v.109+
−
 static unsigned char char_I_deco_He_ratio5;    // 0x50F new in v.109+
−
 static unsigned char	char_I_N2_ratio;					// 0x510+
−
 static unsigned char	char_I_He_ratio;					// 0x511+
−
 static unsigned char	char_I_saturation_multiplier;		// for conservatism/safety values 1.0 (no conservatism) to 1.5 (50% faster saturation+
−
 static 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()+
−
 static unsigned char	char_I_GF_High_percentage;			// 0x514	new in v.102+
−
 static unsigned char	char_I_GF_Low_percentage;			// 0x515	new in v.102+
−
 static unsigned char	char_I_spare;					// 0x516+
−
 static unsigned char	char_I_deco_distance;				// 0x517+
−
 static unsigned char	char_I_const_ppO2;					// 0x518	new in v.101+
−
 static unsigned char	char_I_deco_ppO2_change;			// 0x519	new in v.101+
−
 static unsigned char	char_I_deco_ppO2;					// 0x51A	new in v.101+
−
 static unsigned char	char_I_deco_gas_change;				// 0x51B	new in v.101+
−
 static unsigned char	char_I_deco_N2_ratio;				// 0x51C	new in v.101+
−
 static unsigned char	char_I_deco_He_ratio;				// 0x51D	new in v.101+
−
 static unsigned char	char_I_depth_last_deco;				// 0x51E	new in v.101 unit: [m]+
−
 static unsigned char	char_I_deco_model;					// 0x51F	new in v.102	( 1 = MultiGraF, sonst Std. mit (de-)saturation_multiplier)+
−
+
−
+
−
 // output:+
−
 static unsigned int	int_O_desaturation_time;			// 0x520+
−
 static unsigned char	char_O_nullzeit;					// 0x522+
−
 static unsigned char	char_O_deco_status;					// 0x523+
−
 static unsigned char	char_O_array_decotime[7];			// 0x524+
−
 static unsigned char	char_O_array_decodepth[6];			// 0x52B+
−
 static unsigned char	char_O_ascenttime;					// 0x531+
−
 static unsigned char	char_O_gradient_factor;				// 0x532+
−
 static unsigned char	char_O_tissue_saturation[32];		// 0x533+
−
 static unsigned char	char_O_array_gradient_weighted[16];	// 0x553+
−
 static unsigned char	char_O_gtissue_no;					// 0x563+
−
 static unsigned char	char_O_diluent;						// 0x564	new in v.101+
−
 static unsigned char	char_O_CNS_fraction;				// 0x565	new in v.101+
−
 static unsigned char	char_O_relative_gradient_GF;		// 0x566	new in v.102+
−
 static unsigned char char_I_deco_gas_change2;   // 0x567 new in v.109+
−
 static unsigned char char_I_deco_gas_change3;   // 0x568 new in v.109+
−
 static unsigned char char_I_deco_gas_change4;   // 0x569 new in v.109+
−
 static unsigned char char_I_deco_gas_change5;   // 0x56A new in v.109+
−
// internal:+
−
 static float			pres_tissue_limit[16];+
−
 static float			sim_pres_tissue_limit[16];+
−
 static float			pres_diluent;						// new in v.101+
−
 static float			deco_diluent;						// new in v.101+
−
 static float			const_ppO2;							// new in v.101+
−
 static float			deco_ppO2_change;					// new in v.101+
−
 static float			deco_ppO2;							// new in v.101+
−
+
−
+
−
+
−
 #pragma udata bank6=0x600+
−
// internal:+
−
 static float			sim_pres_tissue[32];+
−
 static float			sim_pres_tissue_backup[32];+
−
+
−
 #pragma udata bank7=0x700+
−
 const unsigned char keep_free_bank7[256]; // used by the assembler code (DD font2display)+
−
+
−
 #pragma udata bank8=0x800+
−
 static char			md_pi_subst[256];+
−
+
−
 #pragma udata bank9a=0x900+
−
// output:+
−
 static char			md_state[48];		// DONT MOVE !! // has to be at the beginning of bank 9 for the asm code!!!+
−
 #pragma udata bank9b=0x930+
−
// output:+
−
 static unsigned int	int_O_DBS_bitfield;					// 0x930	new in v.108+
−
 static unsigned int	int_O_DBS2_bitfield;				// 0x932	new in v.108+
−
 static unsigned int	int_O_DBG_pre_bitfield;				// 0x934	new in v.108+
−
 static unsigned int	int_O_DBG_post_bitfield;			// 0x936	new in v.108+
−
 static char			char_O_NDL_at_20mtr;				// 0x938	new in v.108 // 0xFF == undefined, max. 254+
−
// internal:+
−
 static char			md_t;+
−
 static char			md_buffer[16];+
−
 static char			md_cksum[16];+
−
 static char			md_i;+
−
 static char			md_j;+
−
 static char			md_temp;+
−
 static unsigned int	md_pointer;+
−
 static float			deco_N2_ratio;						// new in v.101+
−
 static float			deco_He_ratio;						// new in v.101+
−
 static float			calc_N2_ratio;						// new in v.101+
−
 static float			calc_He_ratio;						// new in v.101+
−
 static float			deco_gas_change;					// new in v.101+
−
 static float			CNS_fraction;						// new in v.101+
−
 static float			float_saturation_multiplier;		// new in v.101+
−
 static float			float_desaturation_multiplier;		// new in v.101+
−
 static float			float_deco_distance;				// new in v.101+
−
 // internal, dbg:+
−
 static unsigned char	DBG_char_I_deco_model;				// new in v.108+
−
 static unsigned char	DBG_char_I_depth_last_deco;			// new in v.108+
−
 static float			DBG_pres_surface;					// new in v.108+
−
 static float			DBG_GF_low;							// new in v.108+
−
 static float			DBG_GF_high;						// new in v.108+
−
 static float			DBG_const_ppO2;						// new in v.108+
−
 static float			DBG_deco_ppO2_change;				// new in v.108+
−
 static float			DBG_deco_ppO2;						// new in v.108+
−
 static float			DBG_deco_N2_ratio;					// new in v.108+
−
 static float			DBG_deco_He_ratio;					// new in v.108+
−
 static float			DBG_deco_gas_change;				// new in v.108+
−
 static float			DBG_float_saturation_multiplier;	// new in v.108+
−
 static float			DBG_float_desaturation_multiplier;	// new in v.108+
−
 static float			DBG_float_deco_distance;			// new in v.108+
−
 static float			DBG_deco_N2_ratio;					// new in v.108+
−
 static float			DBG_deco_He_ratio;					// new in v.108+
−
 static float			DBG_N2_ratio;						// new in v.108+
−
 static float			DBG_He_ratio;						// new in v.108+
−
 static char			flag_in_divemode;					// new in v.108+
−
 static	int 			int_dbg_i;							// new in v.108+
−
 unsigned int 			temp_DBS;+
−
+
−
 static float			deco_gas_change2;					// new in v.109+
−
 static float			deco_gas_change3;					// new in v.109+
−
 static float			deco_gas_change4;					// new in v.109+
−
 static float			deco_gas_change5;					// new in v.109+
−
+
−
 static float			deco_N2_ratio2;						// new in v.109+
−
 static float			deco_N2_ratio3;						// new in v.109+
−
 static float			deco_N2_ratio4;						// new in v.109+
−
 static float			deco_N2_ratio5;						// new in v.109+
−
 static float			deco_He_ratio2;						// new in v.109+
−
 static float			deco_He_ratio3;						// new in v.109+
−
 static float			deco_He_ratio4;						// new in v.109+
−
 static float			deco_He_ratio5;						// new in v.109+
−
+
−
+
−
// *************************+
−
// ** P R O T O T Y P E S **+
−
// *************************+
−
void main_calc_hauptroutine(void);+
−
void main_calc_without_deco(void);+
−
void main_clear_tissue(void);+
−
void main_calc_percentage(void);+
−
void main_calc_wo_deco_step_1_min(void);+
−
void main_debug(void);+
−
void main_gradient_array(void);+
−
void main_hash(void);+
−
+
−
void calc_hauptroutine(void);+
−
void calc_tissue(void);+
−
void calc_nullzeit(void);+
−
void backup_sim_pres_tissue(void);+
−
void restore_sim_pres_tissue(void);+
−
+
−
void calc_without_deco(void);+
−
void clear_tissue(void);+
−
void calc_ascenttime(void);+
−
void update_startvalues(void);+
−
void clear_decoarray(void);+
−
void update_decoarray(void);+
−
void sim_tissue_1min(void);+
−
void sim_tissue_10min(void);+
−
void calc_gradient_factor(void);+
−
void calc_gradient_array_only(void);+
−
void calc_desaturation_time(void);+
−
void calc_wo_deco_step_1_min(void);+
−
void calc_tissue_step_1_min(void);+
−
//void debug(void);+
−
void hash(void);+
−
void clear_CNS_fraction(void);+
−
void calc_CNS_fraction(void);+
−
void calc_CNS_decrease_15min(void);+
−
void calc_percentage(void);+
−
void main(void);+
−
void calc_hauptroutine_data_input(void);+
−
void calc_hauptroutine_update_tissues(void);+
−
void calc_hauptroutine_calc_deco(void);+
−
void calc_hauptroutine_calc_ascend_to_deco(void);+
−
//void build_debug_output(void);+
−
void calc_nextdecodepth_GF(void);+
−
void copy_deco_table_GF(void);+
−
void clear_internal_deco_table_GF(void);+
−
void update_internal_deco_table_GF(void);+
−
void DD2_write(void);+
−
void DD2_write_incon42(void);+
−
void DD2_get_pointer_to_char(void);//dd2_char, &dd2_pointer);+
−
void DD2_set_column(void);//top, dd2_k);void DD2_load_background(void);//&dd2_columnstore, &dd2_background, dd2_top, dd2_left, dd2_heightmax);+
−
void DD2_load_background(void);+
−
void DD2_build_one_line_of_char(void);//&dd2_columnstore, &dd2_pointer, dd2_fontheight, dd2_lowbyte);+
−
void DD2_print_column(void);//&dd2_columnstore, dd2_heightmax);+
−
void DD2_CmdWrite(void);+
−
void DD2_DataWrite(void);+
−
void push_tissues_to_vault(void);+
−
void pull_tissues_from_vault(void);+
−
void main_push_tissues_to_vault(void);+
−
void main_pull_tissues_from_vault(void);+
−
+
−
// *******************************+
−
// ** start                     **+
−
// ** necessary for compilation **+
−
// *******************************+
−
#pragma romdata der_code = 0x0000+
−
#pragma code der_start = 0x0000+
−
void der_start(void)+
−
{+
−
_asm+
−
	goto	main+
−
_endasm+
−
}+
−
+
−
// ***********************************+
−
// ** main code for simulation /    **+
−
// ** tests without assembler code  **+
−
// ** is NOT a part of the OSTC     **+
−
// ***********************************+
−
#pragma code main = 0x9000+
−
void main(void)+
−
{+
−
#if 1+
−
// new main to test DR-5+
−
+
−
char_I_deco_model = 0;+
−
+
−
GF_low = 1.0;+
−
GF_high = 1.0;+
−
+
−
GF_temp = GF_low * GF_high;+
−
+
−
clear_CNS_fraction();+
−
//char_I_const_ppO2 = 100;+
−
//for (main_i=0;main_i<255;main_i++)+
−
//{+
−
//calc_CNS_fraction();+
−
//} //for+
−
+
−
+
−
+
−
+
−
int_I_pres_respiration = 1000;//980;+
−
int_I_pres_surface = 1000;//980;+
−
char_I_N2_ratio = 79; //38;+
−
char_I_He_ratio = 0; //50;+
−
char_I_deco_distance = 10; // 10 = 1 meter+
−
char_I_depth_last_deco = 3;	// values below 3 (meter) are ignored+
−
+
−
char_I_const_ppO2 = 0;+
−
char_I_deco_ppO2_change = 0; // [dm] 10 = 1 meter+
−
char_I_deco_ppO2 = 0;+
−
+
−
char_I_deco_gas_change = 20; // [m] 1 = 1 meter+
−
char_I_deco_N2_ratio = 50;+
−
char_I_deco_He_ratio = 0;+
−
+
−
char_I_deco_gas_change2 = 6; // [m] 1 = 1 meter+
−
char_I_deco_N2_ratio2 = 0;+
−
char_I_deco_He_ratio2 = 0;+
−
+
−
char_I_deco_gas_change3 = 0; // [m] 1 = 1 meter+
−
char_I_deco_gas_change4 = 0; // [m] 1 = 1 meter+
−
char_I_deco_gas_change5 = 0; // [m] 1 = 1 meter+
−
+
−
//char_I_actual_ppO2;					// 0x507+
−
char_I_GF_High_percentage = 100;			// 0x514	new in v.102+
−
char_I_GF_Low_percentage = 100;			// 0x515	new in v.102+
−
+
−
char_I_saturation_multiplier = 110;+
−
char_I_desaturation_multiplier = 90;+
−
+
−
+
−
main_clear_tissue();+
−
+
−
char_I_step_is_1min = 1;+
−
int_I_pres_respiration = 4500 + int_I_pres_surface;+
−
+
−
for (main_i=0;main_i<29;main_i++)+
−
{+
−
main_calc_hauptroutine();+
−
}+
−
+
−
char_I_step_is_1min = 0;+
−
char_O_deco_status = 255;+
−
while (char_O_deco_status)+
−
	main_calc_hauptroutine();+
−
_asm+
−
nop+
−
_endasm+
−
+
−
char_O_deco_status = 255;+
−
while (char_O_deco_status)+
−
	main_calc_hauptroutine();+
−
_asm+
−
nop+
−
_endasm+
−
+
−
int_I_pres_respiration = 10000;+
−
for (main_i=0;main_i<1500;main_i++)+
−
{+
−
main_calc_hauptroutine();+
−
}+
−
+
−
_asm+
−
nop+
−
_endasm+
−
+
−
+
−
int_I_pres_respiration = 3000;+
−
for (main_i=0;main_i<150;main_i++)+
−
{+
−
	calc_hauptroutine_data_input();+
−
	calc_hauptroutine_update_tissues();+
−
} //for+
−
+
−
			update_startvalues();+
−
			clear_decoarray();+
−
			clear_internal_deco_table_GF();+
−
			calc_hauptroutine_calc_ascend_to_deco();+
−
 			if (char_O_deco_status > 15)		// can't go up to first deco, too deep to calculate in the given time slot+
−
			{+
−
				char_O_deco_status = 2;+
−
//				char_O_lock_depth_list = 255;+
−
			}+
−
 			else+
−
			{+
−
//				char_O_lock_depth_list = lock_GF_depth_list;+
−
				calc_hauptroutine_calc_deco();+
−
			}+
−
//			build_debug_output();+
−
+
−
_asm+
−
nop+
−
_endasm+
−
while (char_O_deco_status == 1)+
−
{+
−
			char_O_deco_status = 0;+
−
//			char_O_lock_depth_list = 255;+
−
			calc_hauptroutine_calc_deco();+
−
//			build_debug_output();+
−
_asm+
−
nop+
−
_endasm+
−
};+
−
debug_temp = 60; // [mtr Aufstieg in 10 mtr/min (30steps'2sec/min]+
−
int_I_pres_respiration = 9980;+
−
for (main_i=0;main_i<debug_temp;main_i++)+
−
{+
−
int_I_pres_respiration = int_I_pres_respiration - 33;+
−
	calc_hauptroutine_data_input();+
−
	calc_hauptroutine_update_tissues();+
−
int_I_pres_respiration = int_I_pres_respiration - 33;+
−
	calc_hauptroutine_data_input();+
−
	calc_hauptroutine_update_tissues();+
−
int_I_pres_respiration = int_I_pres_respiration - 34;+
−
	calc_hauptroutine_data_input();+
−
	calc_hauptroutine_update_tissues();+
−
} //for+
−
_asm+
−
nop+
−
_endasm+
−
+
−
			update_startvalues();+
−
			clear_decoarray();+
−
			clear_internal_deco_table_GF();+
−
			calc_hauptroutine_calc_ascend_to_deco();+
−
 			if (char_O_deco_status > 15)		// can't go up to first deco, too deep to calculate in the given time slot+
−
			{+
−
				char_O_deco_status = 2;+
−
//				char_O_lock_depth_list = 255;+
−
			}+
−
 			else+
−
			{+
−
//				char_O_lock_depth_list = lock_GF_depth_list;+
−
				calc_hauptroutine_calc_deco();+
−
			}+
−
//			build_debug_output();+
−
+
−
_asm+
−
nop+
−
_endasm+
−
while (char_O_deco_status == 1)+
−
{+
−
			char_O_deco_status = 0;+
−
//			char_O_lock_depth_list = 255;+
−
			calc_hauptroutine_calc_deco();+
−
//			build_debug_output();+
−
_asm+
−
nop+
−
_endasm+
−
};+
−
_asm+
−
nop+
−
_endasm+
−
debug_temp = 60; // [mtr Aufstieg in 10 mtr/min (30steps'2sec/min]+
−
int_I_pres_respiration = 9980;+
−
debug_temp = debug_temp * 3;+
−
for (main_i=0;main_i<debug_temp;main_i++)+
−
{+
−
	calc_hauptroutine_data_input();+
−
	calc_hauptroutine_update_tissues();+
−
} //for+
−
_asm+
−
nop+
−
_endasm+
−
#endif+
−
// -----------------------+
−
+
−
} // main+
−
+
−
// ******************************************************+
−
// ******************************************************+
−
// ** THE FOLLOWING CODE HAS TO BE COPPIED TO THE OSTC **+
−
// ******************************************************+
−
// ******************************************************+
−
+
−
// ***********************+
−
// ***********************+
−
// ** THE SUBROUTINES 2 **+
−
// ***********************+
−
// ***********************+
−
// all new in v.102+
−
// moved from 0x0D000 to 0x0C000 in v.108+
−
+
−
#pragma code subroutines2 = 0x0C000	// can be adapted to fit the romdata tables ahead+
−
+
−
// -------------------------------+
−
// DBS - debug on start of dive //+
−
// -------------------------------+
−
void create_dbs_set_dbg_and_ndl20mtr(void)+
−
{+
−
	int_O_DBS_bitfield = 0;+
−
	int_O_DBS2_bitfield = 0;+
−
	if(int_O_DBG_pre_bitfield & DBG_RUN)+
−
		int_O_DBG_pre_bitfield = DBG_RESTART;+
−
	else+
−
		int_O_DBG_pre_bitfield = DBG_RUN;+
−
	int_O_DBG_post_bitfield = 0;+
−
	char_O_NDL_at_20mtr = 255;+
−
+
−
	DBG_N2_ratio = N2_ratio;+
−
	DBG_He_ratio = He_ratio;+
−
	DBG_char_I_deco_model = char_I_deco_model;+
−
	DBG_char_I_depth_last_deco = char_I_depth_last_deco;+
−
	DBG_pres_surface = pres_surface;+
−
	DBG_GF_low = GF_low;+
−
	DBG_GF_high = GF_high;+
−
	DBG_const_ppO2 = const_ppO2;+
−
	DBG_deco_ppO2_change = deco_ppO2_change;+
−
	DBG_deco_ppO2 = deco_ppO2;+
−
	DBG_deco_N2_ratio = deco_N2_ratio;+
−
	DBG_deco_He_ratio = deco_He_ratio;+
−
	DBG_deco_gas_change = deco_gas_change;+
−
	DBG_float_saturation_multiplier = float_saturation_multiplier;+
−
	DBG_float_desaturation_multiplier = float_desaturation_multiplier;+
−
	DBG_float_deco_distance = float_deco_distance;+
−
+
−
	if(char_I_deco_model)+
−
		int_O_DBS_bitfield |= DBS_mode;+
−
	if(const_ppO2)+
−
		int_O_DBS_bitfield |= DBS_ppO2;+
−
	for(int_dbg_i = 16; int_dbg_i < 32; int_dbg_i++)+
−
		if(pres_tissue[int_dbg_i])+
−
			int_O_DBS_bitfield |= DBS_HE_sat;+
−
	if(deco_ppO2_change)+
−
		int_O_DBS_bitfield |= DBS_ppO2chg;+
−
	if(float_saturation_multiplier < 0.99)+
−
		int_O_DBS_bitfield |= DBS_SAT2l;+
−
	if(float_saturation_multiplier > 1.3)+
−
		int_O_DBS_bitfield |= DBS_SAT2h;+
−
	if(GF_low < 0.19)+
−
		int_O_DBS_bitfield |= DBS_GFLOW2l;+
−
	if(GF_low > 1.01)+
−
		int_O_DBS_bitfield |= DBS_GFLOW2h;+
−
	if(GF_high < 0.6)+
−
		int_O_DBS_bitfield |= DBS_GFHGH2l;+
−
	if(GF_high > 1.01)+
−
		int_O_DBS_bitfield |= DBS_GFHGH2h;+
−
	if((N2_ratio + He_ratio) > 0.95)+
−
		int_O_DBS_bitfield |= DBS_GASO22l;+
−
	if((N2_ratio + He_ratio) < 0.05)+
−
		int_O_DBS_bitfield |= DBS_GASO22h;+
−
	if(float_deco_distance > 0.25)+
−
		int_O_DBS_bitfield |= DBS_DIST2h;+
−
	if(char_I_depth_last_deco > 8)+
−
		int_O_DBS_bitfield |= DBS_LAST2h;+
−
	if(DBG_deco_gas_change && ((deco_N2_ratio + deco_He_ratio) > 0.95))+
−
		int_O_DBS_bitfield |= DBS_DECOO2l;+
−
	if(DBG_deco_gas_change && ((deco_N2_ratio + deco_He_ratio) < 0.05))+
−
		int_O_DBS_bitfield |= DBS_DECOO2h;+
−
	if(pres_respiration > 3.0)+
−
		int_O_DBS2_bitfield |= DBS2_PRES2h;+
−
	if(pres_surface - pres_respiration > 0.2)+
−
		int_O_DBS2_bitfield |= DBS2_PRES2l;+
−
	if(pres_surface < 0.75)+
−
		int_O_DBS2_bitfield |= DBS2_SURF2l;+
−
	if(pres_surface > 1.11)+
−
		int_O_DBS2_bitfield |= DBS2_SURF2h;+
−
	if(float_desaturation_multiplier < 0.70)+
−
		int_O_DBS2_bitfield |= DBS2_DESAT2l;+
−
	if(float_desaturation_multiplier > 1.01)+
−
		int_O_DBS2_bitfield |= DBS2_DESAT2h;+
−
	if(GF_low > GF_high)+
−
		int_O_DBS2_bitfield |= DBS2_GFDneg;+
−
}+
−
+
−
// -------------------------------+
−
// DBG - set DBG to end_of_dive //+
−
// -------------------------------+
−
void set_dbg_end_of_dive(void)+
−
{+
−
	int_O_DBG_pre_bitfield &= (~DBG_RUN);+
−
	int_O_DBG_post_bitfield &= (~DBG_RUN);+
−
}+
−
+
−
// -------------------------------+
−
// DBG - NDL at first 20 m. hit //+
−
// -------------------------------+
−
void check_ndl(void)+
−
{+
−
	if((char_O_NDL_at_20mtr == -1) && (int_I_pres_respiration > 3000))+
−
	{+
−
		char_O_NDL_at_20mtr = char_O_nullzeit;+
−
		if(char_O_NDL_at_20mtr == 255)+
−
			char_O_NDL_at_20mtr == 254;+
−
	}+
−
}+
−
+
−
// -------------------------------+
−
// DBG - multi main during dive //+
−
// -------------------------------+
−
void check_dbg(char is_post_check)+
−
{+
−
	temp_DBS = 0;+
−
	if( (DBG_N2_ratio != N2_ratio) || (DBG_He_ratio != He_ratio) )+
−
		temp_DBS |= DBG_c_gas;+
−
	if(DBG_const_ppO2 != const_ppO2)+
−
		temp_DBS |= DBG_c_ppO2;+
−
	if((DBG_float_saturation_multiplier != float_saturation_multiplier) || (DBG_float_desaturation_multiplier != float_desaturation_multiplier))+
−
		temp_DBS |= DBG_CdeSAT;+
−
	if(DBG_char_I_deco_model != char_I_deco_model)+
−
		temp_DBS |= DBG_C_MODE;+
−
	if(DBG_pres_surface != pres_surface)+
−
		temp_DBS |= DBG_C_SURF;+
−
	if((!DBS_HE_sat) && (!He_ratio))+
−
		for(int_dbg_i = 16; int_dbg_i < 32; int_dbg_i++)+
−
			if(pres_tissue[int_dbg_i])+
−
				temp_DBS |= DBG_HEwoHE;+
−
	if(DBG_deco_ppO2 != deco_ppO2)+
−
		temp_DBS |= DBG_C_DPPO2;+
−
	if((DBG_deco_gas_change != deco_gas_change) || (DBG_deco_N2_ratio != deco_N2_ratio) || (DBG_deco_He_ratio != deco_He_ratio))+
−
		temp_DBS |= DBG_C_DGAS;+
−
	if(DBG_float_deco_distance != float_deco_distance)+
−
		temp_DBS |= DBG_C_DIST;+
−
	if(DBG_char_I_depth_last_deco != char_I_depth_last_deco)+
−
		temp_DBS |= DBG_C_LAST;+
−
	if((DBG_GF_low != GF_low) || (DBG_GF_high != GF_high))+
−
		temp_DBS |= DBG_C_GF;+
−
	if(pres_respiration > 13.0)+
−
		temp_DBS |= DBG_PHIGH;+
−
	if(pres_surface - pres_respiration > 0.2)+
−
		temp_DBS |= DBG_PLOW;+
−
/*+
−
	if()+
−
		temp_DBS |= ;+
−
	if()+
−
		temp_DBS |= ;+
−
 */+
−
	if(is_post_check)+
−
		int_O_DBG_post_bitfield |= temp_DBS;+
−
	else+
−
		int_O_DBG_pre_bitfield |= temp_DBS;+
−
}+
−
+
−
// -------------------------------+
−
// DBG - prior to calc. of dive //+
−
// -------------------------------+
−
void check_pre_dbg(void)+
−
{+
−
	check_dbg(0);+
−
}+
−
+
−
// -------------------------------+
−
// DBG - after decocalc of dive //+
−
// -------------------------------+
−
void check_post_dbg(void)+
−
{+
−
	check_dbg(1);+
−
}+
−
+
−
+
−
+
−
// -------------------------+
−
// calc_next_decodepth_GF //+
−
// -------------------------+
−
// new in v.102+
−
void calc_nextdecodepth_GF(void)+
−
{+
−
// INPUT, changing during dive:+
−
// temp_pres_gtissue_limit_GF_low+
−
// temp_pres_gtissue_limit_GF_low_below_surface+
−
// temp_pres_gtissue+
−
// temp_pres_gtissue_diff+
−
// lock_GF_depth_list+
−
+
−
// INPUT, fixed during dive:+
−
// pres_surface+
−
// GF_delta+
−
// GF_high+
−
// GF_low+
−
// temp_depth_last_deco+
−
// float_deco_distance+
−
+
−
// OUTPUT+
−
// GF_step+
−
// temp_deco+
−
// temp_depth_limt+
−
// lock_GF_depth_list+
−
+
−
// USES+
−
// temp1+
−
// temp2+
−
// int_temp+
−
+
−
	char_I_table_deco_done[0] = 0; // safety if changed somewhere else. Needed for exit+
−
	if (char_I_deco_model == 1)+
−
	{+
−
		if (lock_GF_depth_list == 0)+
−
		{+
−
			temp2 =  temp_pres_gtissue_limit_GF_low_below_surface / 0.29985; 					// = ... / 99.95 / 0.003;+
−
 			int_temp = (int) (temp2 + 0.99);+
−
			if (int_temp > 31)+
−
				int_temp = 31;						//	deepest deco at 93 meter (31 deco stops)+
−
			if (int_temp < 0)+
−
				int_temp = 0;+
−
			temp_depth_GF_low_number = int_temp;+
−
 			temp_depth_GF_low_meter = 3 * temp_depth_GF_low_number;+
−
			temp2 = (float)temp_depth_GF_low_meter * 0.09995;+
−
			temp_pres_deco_GF_low = temp2 + float_deco_distance + pres_surface;+
−
			if (temp_depth_GF_low_number == 0)+
−
				GF_step = 0;+
−
			else+
−
				GF_step = GF_delta / (float)temp_depth_GF_low_number;+
−
			if (GF_step < 0)+
−
				GF_step = 0;+
−
			if (GF_step > GF_delta)+
−
				GF_step = GF_delta;+
−
			int_O_GF_step = (int)(GF_step * 10000);+
−
			int_O_limit_GF_low = (int)(temp_pres_deco_GF_low * 1000);+
−
			int_O_gtissue_press_at_GF_low = (int)(temp_pres_gtissue * 1000);+
−
			char_O_GF_low_pointer = temp_depth_GF_low_number;+
−
			lock_GF_depth_list = 1;+
−
			internal_deco_pointer = 0;+
−
		}+
−
		if (internal_deco_pointer == 0)		// new run+
−
		{+
−
			internal_deco_pointer = temp_depth_GF_low_number;+
−
			GF_temp = GF_high - ((float)internal_deco_pointer * GF_step);+
−
			int_temp = char_I_table_deco_done[internal_deco_pointer];+
−
			output[8] = int_temp;+
−
			output[9] = 33;+
−
		}+
−
		else+
−
		{+
−
			int_temp = 1;+
−
		}+
−
		while (int_temp == 1)+
−
		{+
−
			int_temp = internal_deco_pointer - 1;+
−
			if (int_temp == 1)								// new in v104+
−
			{+
−
				temp2 = (float)(temp_depth_last_deco * int_temp) * 0.09995;+
−
				GF_step2 = GF_step/3.0 * ((float)(6 - temp_depth_last_deco));+
−
			}+
−
			else+
−
			if (int_temp == 0)+
−
			{+
−
				temp2 = 0.0;+
−
				GF_step2 = GF_high - GF_temp;+
−
			}+
−
			else+
−
			{+
−
				temp2 = (float)(3 *int_temp) * 0.09995;+
−
				GF_step2 = GF_step;+
−
			}+
−
			temp2 = temp2 + pres_surface; // next deco stop to be tested+
−
			temp1 = ((GF_temp + GF_step2)* temp_pres_gtissue_diff) + temp_pres_gtissue;	// upper limit (lowest pressure allowed) // changes GF_step2 in v104+
−
			if (temp1 > temp2) // check if ascent to next deco stop is ok+
−
			{+
−
				int_temp = 0;	// no+
−
			}+
−
			else+
−
			{+
−
				internal_deco_pointer = int_temp;+
−
				GF_temp = GF_temp + GF_step2; // changed in v104+
−
				int_temp = char_I_table_deco_done[internal_deco_pointer]; // yes and check for ascent to even next stop if deco_done is set+
−
			}+
−
		} // while+
−
		if (internal_deco_pointer > 0)+
−
		{+
−
			temp2 = (float)(0.29985 * internal_deco_pointer);+
−
			temp_deco = temp2 + float_deco_distance + pres_surface;+
−
			if (internal_deco_pointer == 1)						// new in v104+
−
				temp_depth_limit = temp_depth_last_deco;+
−
			else+
−
				temp_depth_limit = 3 * internal_deco_pointer;+
−
			if (output[9] == 33)+
−
			{+
−
				output[9] = internal_deco_pointer;+
−
				output[10] = char_I_table_deco_done[internal_deco_pointer];+
−
				output[12] = output[12] + 1;+
−
				if (output[12] == 100)+
−
					output[12] = 0;+
−
			}+
−
		}+
−
		else	// 	if (char_I_deco_model == 1)+
−
		{+
−
			temp_deco = pres_surface;+
−
			temp_depth_limit = 0;+
−
		}+
−
	}+
−
	else+
−
	{+
−
		// calc_nextdecodepth - original+
−
		// optimized in v.101+
−
		// depth_last_deco included in v.101+
−
+
−
		temp1 = temp_pres_gtissue_limit - pres_surface;+
−
		if (temp1 >= 0)+
−
 		{+
−
 			temp1 = temp1 / 0.29985; 									// = temp1 / 99.95 / 0.003;+
−
 			temp_depth_limit = (int) (temp1 + 0.99);+
−
 			temp_depth_limit = 3 * temp_depth_limit; 					// depth for deco [m]+
−
 			if (temp_depth_limit == 0)+
−
  				temp_deco = pres_surface;+
−
 			else+
−
  			{+
−
  				if (temp_depth_limit < temp_depth_last_deco)+
−
					temp_depth_limit = temp_depth_last_deco;+
−
  				temp1 = (float)temp_depth_limit * 0.09995;+
−
  				temp_deco = temp1 + float_deco_distance + pres_surface; 	// depth for deco [bar]+
−
  			} // if (temp_depth_limit == 0)+
−
 		} // if (temp1 >= 0)+
−
		else+
−
 		{+
−
 			temp_deco = pres_surface;+
−
 			temp_depth_limit = 0;+
−
 		} // if (temp1 >= 0)+
−
	} // calc_nextdecodepth original+
−
} // calc_nextdecodepth_GF+
−
+
−
+
−
#if 0+
−
void 			build_debug_output(void)+
−
{+
−
output[0] = 0; // not used in asm PLED output+
−
output[1] = (int) (GF_low * 100);+
−
output[2] = (int) (GF_high * 100);+
−
output[3] = (int) (GF_step * 100);+
−
output[4] = (int) temp_depth_GF_low_number;+
−
output[5] = (int) temp_depth_GF_low_meter;+
−
//output[6]+
−
output[7] = (int) internal_deco_pointer;+
−
//output[8] = char_I_table_deco_done[temp_depth_GF_low_number]+
−
//output[9] = internal_deco_pointer @ new run+
−
//output[10] = char_I_table_deco_done[internal_deco_pointer] @ new run+
−
output [11] = (int) (temp_pres_deco_GF_low * 10);+
−
}	// build_debug_output+
−
#endif+
−
+
−
// ---------------------+
−
// copy_deco_table_GF //+
−
// ---------------------+
−
// new in v.102+
−
void copy_deco_table_GF(void)+
−
{+
−
	if (char_I_deco_model == 1)+
−
	{+
−
		int_temp = 32;+
−
		for (ci=0;ci<int_temp;ci++)+
−
			char_O_deco_table[ci] = internal_deco_table[ci];+
−
	}+
−
}		// copy_deco_table_GF+
−
+
−
+
−
// ------------------------------+
−
// clear_internal_deco_table_GF//+
−
// ------------------------------+
−
// new in v.102+
−
void clear_internal_deco_table_GF(void)+
−
{+
−
	if (char_I_deco_model == 1)+
−
	{+
−
		for (ci=0;ci<32;ci++)  // cycle through the 16 b"uhlmann tissues for Helium+
−
		{+
−
			internal_deco_table[ci] = 0;+
−
		}+
−
	}+
−
}	// clear_internal_deco_table_GF+
−
+
−
+
−
// --------------------------------+
−
// update_internal_deco_table_GF //+
−
// --------------------------------+
−
// new in v.102+
−
void update_internal_deco_table_GF(void)+
−
{+
−
	if ((char_I_deco_model == 1) && (internal_deco_table[internal_deco_pointer] < 255))+
−
		internal_deco_table[internal_deco_pointer] = internal_deco_table[internal_deco_pointer] + 1;+
−
}	// update_internal_deco_table_GF+
−
+
−
+
−
// ---------------------+
−
// temp_tissue_safety //+
−
// ---------------------+
−
// outsourced in v.102+
−
void temp_tissue_safety(void)+
−
{+
−
	if (char_I_deco_model == 1)+
−
	{+
−
	}+
−
	else+
−
	{+
−
		if (temp_tissue < 0.0)+
−
			temp_tissue = temp_tissue * float_desaturation_multiplier;+
−
 		else+
−
			temp_tissue = temp_tissue * float_saturation_multiplier;+
−
	}+
−
} // temp_tissue_safety+
−
+
−
// ---------------------+
−
// dd2_write_incon42  //+
−
// ---------------------+
−
void DD2_write_incon42(void)+
−
{+
−
//dd2_fontwidth	= 21;+
−
//dd2_fontheight  = 30;+
−
dd2_fontwidth	= 19;+
−
dd2_fontheight  = 28;+
−
dd2_base = 0x0F500;+
−
dd2_start = '0';+
−
dd2_end = '9';+
−
DD2_write();+
−
}+
−
+
−
// ---------------------+
−
// dd2_write_incon24  //+
−
// ---------------------+
−
void DD2_write_incon24(void)+
−
{+
−
dd2_fontwidth	= 12;+
−
dd2_fontheight  = 16;+
−
dd2_base = 0x0E100;+
−
dd2_start = '.';+
−
dd2_end = '9' + 5;+
−
DD2_write();+
−
}+
−
+
−
+
−
void DD2_write(void)+
−
{+
−
	dd2_i = 0;+
−
_asm+
−
	movff	dd2_i, POSTINC2 // write 0x00 at the end of dd2_strinstore[]+
−
	bsf		oled_rs+
−
_endasm+
−
	dd2_stringstore[16] = 0;	// safety if more than 16 letters (max at font incon16) are written, the other space is used by font remap+
−
	if (dd2_top == 0) dd2_top = 1;+
−
	if (dd2_left == 0) dd2_left = 1;+
−
	if (dd2_heightmax > dd2_fontheight) dd2_heightmax = dd2_fontheight;+
−
	if ((dd2_top + dd2_heightmax) > 65) dd2_heightmax = 65 - dd2_top;+
−
+
−
	dd2_k = dd2_left;+
−
	dd2_j = 0;+
−
	dd2_char = dd2_stringstore[dd2_j++];+
−
	DD2_get_pointer_to_char();//dd2_char, &dd2_pointer);+
−
	dd2_i = 0;+
−
	dd2_lowbyte = 1;+
−
+
−
while (dd2_char != 0)+
−
{+
−
		if (dd2_lowbyte == 1)	DD2_load_background();//&dd2_columnstore, &dd2_background, dd2_top, dd2_left, dd2_heightmax);+
−
		DD2_build_one_line_of_char();	//&dd2_columnstore, &dd2_pointer, dd2_fontheight, dd2_lowbyte); 	// dd2_heightmax+
−
		dd2_lowbyte = dd2_lowbyte ^ 1;+
−
		if (dd2_lowbyte == 1)+
−
		{+
−
			DD2_set_column();//top, dd2_k); 				//+
−
			if(dd2_k < 64) dd2_k++;+
−
			DD2_print_column();//&dd2_columnstore, dd2_heightmax);				// dd2_column_store, dd2_heightmax+
−
		}+
−
		dd2_i++;+
−
		if ((dd2_i >= dd2_fontwidth) | (((dd2_char == '.') |(dd2_char == ':') | (dd2_char == '<')) & (dd2_i >= 4)))+
−
		{+
−
			dd2_char = dd2_stringstore[dd2_j++];+
−
			DD2_get_pointer_to_char();//dd2_char, &dd2_pointer);+
−
			dd2_i = 0;+
−
		}+
−
}+
−
}		// void dd2_write(void)+
−
+
−
void DD2_get_pointer_to_char(void)//dd2_char, &dd2_pointer);+
−
{+
−
		if((dd2_char < dd2_start) | (dd2_char > dd2_end))+
−
		{+
−
			dd2_pointer = 0;+
−
			dd2_temp = 0;+
−
		}+
−
		else+
−
		{+
−
			dd2_pointer = dd2_char - dd2_start;+
−
			dd2_pointer = dd2_pointer * ((dd2_fontheight+1)/2);+
−
			dd2_pointer = dd2_pointer * dd2_fontwidth;+
−
			dd2_pointer += dd2_base;+
−
			if((dd2_char == '.') | (dd2_char == ':') | (dd2_char == '<'))+
−
			{+
−
				dd2_pointer += 2 * dd2_fontheight;+
−
			}+
−
+
−
		}+
−
}		// void DD2_get_pointer_to_char(void)+
−
+
−
void DD2_set_column(void)//top, dd2_k);+
−
{+
−
	dd2_data = 0x75;+
−
	DD2_CmdWrite();+
−
	dd2_data = dd2_top - 1;+
−
	DD2_CmdWrite();+
−
	dd2_data = 0x3f;+
−
	DD2_CmdWrite();+
−
+
−
	dd2_data = 0x15;+
−
	DD2_CmdWrite();+
−
	dd2_data = dd2_k - 1;+
−
	DD2_CmdWrite();+
−
	dd2_data = dd2_k - 1;+
−
	DD2_CmdWrite();+
−
}		// DD2_set_column()+
−
+
−
void DD2_load_background(void)//&dd2_columnstore, &dd2_background, dd2_top, dd2_left, dd2_heightmax);+
−
{+
−
	for(dd2_temp = 0; dd2_temp < dd2_heightmax; dd2_temp++)+
−
		md_pi_subst[dd2_temp] = 0x00;+
−
}		// void DD2_load_background()+
−
+
−
void DD2_build_one_line_of_char(void)//&dd2_columnstore, &dd2_pointer, dd2_fontheight, dd2_lowbyte);+
−
{+
−
	if (dd2_pointer != 0)+
−
	{+
−
		dd2_temp = (char)(dd2_pointer & 255);+
−
_asm+
−
		movff	dd2_temp,TBLPTRL+
−
_endasm+
−
		dd2_temp = (char)((dd2_pointer >> 8) & 255);+
−
_asm+
−
		movff	dd2_temp,TBLPTRH+
−
_endasm+
−
		dd2_temp = (char)((dd2_pointer >> 16)& 255);+
−
_asm+
−
		movff	dd2_temp,TBLPTRU+
−
_endasm+
−
+
−
		for(dd2_temp = 0; dd2_temp < dd2_heightmax; dd2_temp += 2)+
−
		{+
−
_asm+
−
			TBLRDPOSTINC+
−
			movff	TABLAT,dd2_data+
−
_endasm+
−
			if (dd2_oled_brightness_offset != 0)+
−
			{+
−
				if ((dd2_oled_brightness_offset << 4) < (dd2_data & 0xF0))+
−
					dd2_data = dd2_data - (dd2_oled_brightness_offset << 4);+
−
				if ((dd2_oled_brightness_offset) < (dd2_data & 0x0F))+
−
					dd2_data = dd2_data - dd2_oled_brightness_offset;+
−
			}+
−
			if (dd2_lowbyte == 1)+
−
			{+
−
				md_pi_subst[dd2_temp]   = dd2_data & 0xF0;+
−
				md_pi_subst[dd2_temp+1] = (dd2_data << 4) & 0xF0;+
−
			}+
−
			else+
−
			{+
−
				md_pi_subst[dd2_temp]   = (md_pi_subst[dd2_temp] & 0xF0) | ((dd2_data >> 4) & 0x0F);+
−
				md_pi_subst[dd2_temp+1] = (md_pi_subst[dd2_temp+1] & 0xF0) | (dd2_data & 0x0F);+
−
			}+
−
		}//for+
−
		dd2_pointer += (dd2_fontheight+1)/2;+
−
	}//if+
−
}		//+
−
+
−
void DD2_print_column(void)//&dd2_columnstore, dd2_heightmax);+
−
{+
−
_asm+
−
		bsf	oled_rs+
−
_endasm+
−
	for(dd2_temp = 0; dd2_temp < dd2_heightmax; dd2_temp++)+
−
	{+
−
		dd2_data = md_pi_subst[dd2_temp];+
−
		DD2_DataWrite();+
−
	}+
−
}		// void DD2_print_column(void)+
−
+
−
//; -----------------------------+
−
//; DD Write Cmd via W+
−
//; two jump_ins:+
−
//;  DD_CmdWrite and DD_CmdWrite2+
−
//; -----------------------------+
−
void DD2_CmdWrite(void)+
−
{+
−
_asm+
−
	bcf		oled_rs+
−
_endasm+
−
	DD2_DataWrite();+
−
}+
−
+
−
void DD2_DataWrite(void)+
−
{+
−
_asm+
−
	movlb	1+
−
//	bsf		no_sensor_int					// flag5, no_sensor_int+
−
	bcf		oled_en+
−
	movlb	0+
−
	bcf		oled_clk				//; CLK=0+
−
	btfsc	dd2_data,7,1				//; Bit+
−
	bsf		oled_data+
−
	bcf		oled_clk				//; CLK=0+
−
	btfss	dd2_data,7,1+
−
	bcf		oled_data+
−
	bsf		oled_clk				//; CLK=1+
−
	btfsc	dd2_data,6,1				//; Bit+
−
	bsf		oled_data+
−
	bcf		oled_clk				//; CLK=0+
−
	btfss	dd2_data,6,1+
−
	bcf		oled_data+
−
	bsf		oled_clk				//; CLK=1+
−
	btfsc	dd2_data,5,1				//; Bit+
−
	bsf		oled_data+
−
	bcf		oled_clk				//; CLK=0+
−
	btfss	dd2_data,5,1+
−
	bcf		oled_data				//;+
−
	bsf		oled_clk				//; CLK=1+
−
	btfsc	dd2_data,4,1				//; Bit+
−
	bsf		oled_data+
−
	bcf		oled_clk				//; CLK=0+
−
	btfss	dd2_data,4,1+
−
	bcf		oled_data+
−
	bsf		oled_clk				//; CLK=1+
−
	btfsc	dd2_data,3,1				//; Bit+
−
	bsf		oled_data+
−
	bcf		oled_clk				//; CLK=0+
−
	btfss	dd2_data,3,1+
−
	bcf		oled_data+
−
	bsf		oled_clk				//; CLK=1+
−
	btfsc	dd2_data,2,1				//; Bit+
−
	bsf		oled_data+
−
	bcf		oled_clk				//; CLK=0+
−
	btfss	dd2_data,2,1+
−
	bcf		oled_data+
−
	bsf		oled_clk				//; CLK=1+
−
	btfsc	dd2_data,1,1				//; Bit+
−
	bsf		oled_data+
−
	bcf		oled_clk				//; CLK=0+
−
	btfss	dd2_data,1,1+
−
	bcf		oled_data+
−
	bsf		oled_clk				//; CLK=1+
−
	btfsc	dd2_data,0,1				//; Bit+
−
	bsf		oled_data+
−
	bcf		oled_clk				//; CLK=0+
−
	btfss	dd2_data,0,1+
−
	bcf		oled_data+
−
	bsf		oled_clk				//; CLK=1+
−
	bsf		oled_en					//; CS#=1+
−
	movlb	1+
−
//	bcf		no_sensor_int					// flag5, no_sensor_int+
−
	movlb	0+
−
_endasm+
−
	dd2_data	= 0; // to be sure that C knows we are in Bank0+
−
}+
−
#pragma romdata font_incon_24h15 = 0x0E100+
−
 rom const rom unsigned char incon24h15[] =+
−
 {+
−
		  0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x80+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x6f, 0xf0+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3f, 0xe0+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x3a, 0xf0+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x4b, 0xff, 0xa0+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x5c, 0xff, 0x91, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x6d, 0xfe, 0x71, 0x00, 0x00+
−
		 ,0x00, 0x01, 0x7e, 0xfd, 0x60, 0x00, 0x00, 0x00+
−
		 ,0x01, 0x8f, 0xfd, 0x50, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x9f, 0xfb, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xfa, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x01, 0x69, 0xbc, 0xca, 0x72, 0x00, 0x00+
−
		 ,0x00, 0x9f, 0xfe, 0xdc, 0xdf, 0xff, 0xb2, 0x00+
−
		 ,0x1d, 0xf8, 0x20, 0x00, 0x05, 0xfd, 0xff, 0x30+
−
		 ,0xaf, 0x30, 0x00, 0x00, 0x9f, 0x90, 0x2e, 0xd0+
−
		 ,0xf8, 0x00, 0x00, 0x2c, 0xf5, 0x00, 0x06, 0xf0+
−
		 ,0xf8, 0x00, 0x04, 0xed, 0x30, 0x00, 0x05, 0xf0+
−
		 ,0xaf, 0x30, 0x8f, 0xb1, 0x00, 0x00, 0x0c, 0xe0+
−
		 ,0x1d, 0xfd, 0xf8, 0x00, 0x00, 0x16, 0xdf, 0x40+
−
		 ,0x00, 0x9f, 0xff, 0xdc, 0xde, 0xff, 0xc3, 0x00+
−
		 ,0x00, 0x01, 0x69, 0xbc, 0xca, 0x73, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x02, 0x90, 0x00, 0x00, 0x00, 0x00, 0x01, 0x30+
−
		 ,0x0a, 0xb0, 0x00, 0x00, 0x00, 0x00, 0x04, 0xf0+
−
		 ,0x2f, 0x60, 0x00, 0x00, 0x00, 0x00, 0x04, 0xf0+
−
		 ,0xaf, 0x97, 0x77, 0x77, 0x77, 0x77, 0x79, 0xf0+
−
		 ,0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xf0+
−
		 ,0x12, 0x22, 0x22, 0x22, 0x22, 0x22, 0x26, 0xf0+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xf0+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0xd0+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x40+
−
		 ,0x07, 0xd0, 0x00, 0x00, 0x00, 0x00, 0x7f, 0xf0+
−
		 ,0x4f, 0x80, 0x00, 0x00, 0x00, 0x1c, 0xfe, 0xf0+
−
		 ,0xcc, 0x00, 0x00, 0x00, 0x02, 0xef, 0x57, 0xf0+
−
		 ,0xf7, 0x00, 0x00, 0x00, 0x2e, 0xe2, 0x07, 0xf0+
−
		 ,0xf8, 0x00, 0x00, 0x01, 0xde, 0x20, 0x07, 0xf0+
−
		 ,0xce, 0x10, 0x00, 0x2d, 0xe2, 0x00, 0x07, 0xf0+
−
		 ,0x4f, 0xd6, 0x58, 0xfe, 0x30, 0x00, 0x07, 0xf0+
−
		 ,0x06, 0xff, 0xff, 0xb1, 0x00, 0x00, 0x07, 0xf0+
−
		 ,0x00, 0x14, 0x52, 0x00, 0x00, 0x00, 0x05, 0x80+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00+
−
		 ,0x09, 0x20, 0x00, 0x00, 0x00, 0x00, 0x7f, 0x50+
−
		 ,0x6f, 0x40, 0x00, 0x00, 0x00, 0x00, 0x2e, 0xd0+
−
		 ,0xdb, 0x00, 0x00, 0x59, 0x00, 0x00, 0x07, 0xf0+
−
		 ,0xf8, 0x00, 0x00, 0x8e, 0x00, 0x00, 0x04, 0xf0+
−
		 ,0xea, 0x00, 0x00, 0xcf, 0x10, 0x00, 0x06, 0xf0+
−
		 ,0x9f, 0x30, 0x07, 0xff, 0x90, 0x00, 0x1e, 0xe0+
−
		 ,0x1e, 0xfc, 0xdf, 0x87, 0xfb, 0x79, 0xef, 0x50+
−
		 ,0x01, 0x9d, 0xc6, 0x00, 0x7e, 0xff, 0xd5, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x21, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x2b, 0xb0, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x06, 0xff, 0xe0, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x02, 0xcf, 0x69, 0xe0, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x7f, 0xb1, 0x09, 0xe0, 0x00, 0x00+
−
		 ,0x00, 0x2c, 0xe6, 0x00, 0x09, 0xe0, 0x00, 0x00+
−
		 ,0x07, 0xfb, 0x10, 0x00, 0x09, 0xe0, 0x00, 0x00+
−
		 ,0xcf, 0xfc, 0xcc, 0xcc, 0xce, 0xfd, 0xdd, 0xd0+
−
		 ,0xde, 0xee, 0xee, 0xee, 0xef, 0xfe, 0xee, 0xe0+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x09, 0xe0, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x08, 0xc0, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x12, 0x00+
−
		 ,0x78, 0xab, 0xcd, 0xed, 0x00, 0x00, 0xce, 0x20+
−
		 ,0xff, 0xed, 0xcc, 0xfa, 0x00, 0x00, 0x5f, 0xb0+
−
		 ,0xf9, 0x00, 0x06, 0xf0, 0x00, 0x00, 0x08, 0xf0+
−
		 ,0xf9, 0x00, 0x0a, 0xb0, 0x00, 0x00, 0x04, 0xf0+
−
		 ,0xf9, 0x00, 0x0a, 0xc0, 0x00, 0x00, 0x04, 0xf0+
−
		 ,0xf9, 0x00, 0x08, 0xf3, 0x00, 0x00, 0x0b, 0xf0+
−
		 ,0xf9, 0x00, 0x01, 0xfe, 0x62, 0x13, 0xbf, 0x90+
−
		 ,0xf9, 0x00, 0x00, 0x4e, 0xff, 0xff, 0xfb, 0x00+
−
		 ,0x11, 0x00, 0x00, 0x01, 0x6a, 0xa9, 0x40, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x03, 0x56, 0x65, 0x30, 0x00, 0x00+
−
		 ,0x00, 0x4b, 0xff, 0xff, 0xff, 0xff, 0xa2, 0x00+
−
		 ,0x08, 0xfe, 0x96, 0x8f, 0x95, 0x6a, 0xff, 0x30+
−
		 ,0x6f, 0x90, 0x01, 0xf8, 0x00, 0x00, 0x3e, 0xd0+
−
		 ,0xec, 0x00, 0x08, 0xf0, 0x00, 0x00, 0x06, 0xf0+
−
		 ,0xf6, 0x00, 0x0a, 0xe0, 0x00, 0x00, 0x04, 0xf0+
−
		 ,0xf7, 0x00, 0x07, 0xf3, 0x00, 0x00, 0x09, 0xf0+
−
		 ,0xcd, 0x10, 0x01, 0xef, 0x72, 0x13, 0xaf, 0x90+
−
		 ,0x4d, 0x20, 0x00, 0x2d, 0xff, 0xff, 0xf9, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x47, 0x86, 0x10, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xfa, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xfa, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x90+
−
		 ,0xfa, 0x00, 0x00, 0x00, 0x00, 0x39, 0xef, 0xf0+
−
		 ,0xfa, 0x00, 0x00, 0x01, 0x7d, 0xff, 0xe9, 0x40+
−
		 ,0xfa, 0x00, 0x05, 0xbf, 0xff, 0x94, 0x00, 0x00+
−
		 ,0xfa, 0x18, 0xef, 0xfb, 0x50, 0x00, 0x00, 0x00+
−
		 ,0xfe, 0xff, 0xd7, 0x10, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xff, 0xb4, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x52, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x02, 0x78, 0x50, 0x00+
−
		 ,0x03, 0xad, 0xb4, 0x00, 0x7f, 0xff, 0xfc, 0x00+
−
		 ,0x3f, 0xfc, 0xff, 0x66, 0xfa, 0x43, 0xaf, 0xa0+
−
		 ,0xcd, 0x10, 0x1c, 0xfe, 0x70, 0x00, 0x0b, 0xf0+
−
		 ,0xf5, 0x00, 0x01, 0xfe, 0x00, 0x00, 0x05, 0xf0+
−
		 ,0xf5, 0x00, 0x00, 0xbf, 0x10, 0x00, 0x04, 0xf0+
−
		 ,0xec, 0x00, 0x07, 0xff, 0xb0, 0x00, 0x0a, 0xf0+
−
		 ,0x6f, 0xd9, 0xcf, 0x78, 0xfb, 0x32, 0x9f, 0x90+
−
		 ,0x07, 0xef, 0xe6, 0x00, 0x9f, 0xff, 0xfb, 0x00+
−
		 ,0x00, 0x01, 0x00, 0x00, 0x03, 0x88, 0x50, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x03, 0x55, 0x20, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x04, 0xdf, 0xff, 0xfb, 0x10, 0x00, 0x0b, 0x60+
−
		 ,0x4f, 0xd7, 0x45, 0x9f, 0xd0, 0x00, 0x1c, 0xe0+
−
		 ,0xdd, 0x00, 0x00, 0x05, 0xf5, 0x00, 0x05, 0xf0+
−
		 ,0xf7, 0x00, 0x00, 0x00, 0xf8, 0x00, 0x04, 0xf0+
−
		 ,0xf8, 0x00, 0x00, 0x00, 0xf7, 0x00, 0x08, 0xf0+
−
		 ,0xbe, 0x20, 0x00, 0x06, 0xf2, 0x00, 0x5f, 0xa0+
−
		 ,0x2e, 0xf9, 0x54, 0x7f, 0x94, 0x7c, 0xfc, 0x00+
−
		 ,0x02, 0xaf, 0xff, 0xff, 0xff, 0xfe, 0x70, 0x00+
−
		 ,0x00, 0x01, 0x46, 0x77, 0x75, 0x30, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x06, 0xa1, 0x00, 0x00, 0x09, 0x80+
−
		 ,0x00, 0x00, 0x1f, 0xf9, 0x00, 0x00, 0x6f, 0xf0+
−
		 ,0x00, 0x00, 0x0d, 0xf5, 0x00, 0x00, 0x3f, 0xe0+
−
		 ,0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xba, 0xae, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xff, 0xe9, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x53, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x97, 0x8c, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xff, 0xfb, 0x50, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x75, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x75, 0x6a, 0xe0, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xff, 0xfd, 0x70, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xa8, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x2c, 0xff, 0xa0, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xdd, 0x78, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xf2, 0x00, 0x5f, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xf0, 0x00, 0x4f, 0x10, 0x00, 0x00, 0x00, 0x00+
−
		 ,0xea, 0x23, 0xdc, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x4f, 0xff, 0xe2, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x01, 0x54, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x00, 0x11, 0x11, 0x11, 0x11, 0x11, 0x10+
−
		 ,0x00, 0x00, 0xff, 0xff, 0xff, 0xff, 0xff, 0xf0+
−
		 ,0x00, 0x00, 0x9f, 0xa7, 0x77, 0x77, 0x77, 0x70+
−
		 ,0x00, 0x00, 0xd6, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x02, 0xf3, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x01, 0xff, 0xcb, 0xbb, 0xbb, 0xbb, 0xb0+
−
		 ,0x00, 0x00, 0x4f, 0xfe, 0xee, 0xee, 0xee, 0xe0+
−
		 ,0x00, 0x00, 0xab, 0x20, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x01, 0xf1, 0x00, 0x00, 0x00, 0x00, 0x00+
−
		 ,0x00, 0x02, 0xfa, 0x55, 0x55, 0x55, 0x55, 0x50+
−
		 ,0x00, 0x00, 0xaf, 0xff, 0xff, 0xff, 0xff, 0xf0+
−
		 ,0x00, 0x00, 0x02, 0x44, 0x44, 0x44, 0x44, 0x40+
−
 };+
−
+
−
#pragma romdata font_incon_42 = 0x0F500+
−
 rom const rom unsigned char incon42[] =+
−
 {+
−
	 // 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
	  0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
	  ,0x00, 0x00, 0x00, 0x03, 0x7a, 0xcd, 0xee, 0xdc, 0xa8, 0x40, 0x00, 0x00, 0x00, 0x00+
−
	  ,0x00, 0x00, 0x18, 0xdf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xfe, 0x92, 0x00, 0x00, 0x00+
−
	  ,0x00, 0x07, 0xef, 0xff, 0xff, 0xdc, 0xbb, 0xce, 0xff, 0xff, 0xff, 0x91, 0x00, 0x00+
−
	  ,0x00, 0xbf, 0xff, 0xc7, 0x65, 0x43, 0x22, 0x33, 0x57, 0xbf, 0xff, 0xfd, 0x20, 0x00+
−
	  ,0x0b, 0xff, 0xc4, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x24, 0x6e, 0xff, 0xd1, 0x00+
−
	  ,0x7f, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0xbf, 0xfa, 0x00+
−
	  ,0xef, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0d, 0xff, 0x20+
−
	  ,0xff, 0x60, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x05, 0xff, 0x60+
−
	  ,0xff, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0xff, 0x70+
−
	  ,0xff, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0xff, 0x50+
−
	  ,0xcf, 0xf3, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1d, 0xff, 0x10+
−
	  ,0x4f, 0xfe, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0xcf, 0xf8, 0x00+
−
	  ,0x07, 0xff, 0xd7, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x7e, 0xff, 0xb0, 0x00+
−
	  ,0x00, 0x5e, 0xff, 0xfb, 0x98, 0x54, 0x33, 0x34, 0x58, 0xbf, 0xff, 0xfa, 0x00, 0x00+
−
	  ,0x00, 0x01, 0x9f, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xfd, 0x50, 0x00, 0x00+
−
	  ,0x00, 0x00, 0x01, 0x7b, 0xff, 0xff, 0xff, 0xff, 0xff, 0xe9, 0x40, 0x00, 0x00, 0x00+
−
	  ,0x00, 0x00, 0x00, 0x00, 0x02, 0x46, 0x77, 0x65, 0x41, 0x00, 0x00, 0x00, 0x00, 0x00+
−
	  ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
	 // ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
+
−
#if 0+
−
// 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x03, 0x7a, 0xcd, 0xee, 0xdc, 0xa8, 0x40, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x18, 0xdf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xfe, 0x92, 0x00, 0x00, 0x00+
−
 ,0x00, 0x07, 0xef, 0xff, 0xff, 0xdc, 0xbb, 0xce, 0xff, 0xff, 0xff, 0x91, 0x00, 0x00+
−
 ,0x00, 0xbf, 0xff, 0xc7, 0x20, 0x00, 0x00, 0x00, 0x1c, 0xff, 0xff, 0xfd, 0x20, 0x00+
−
 ,0x0b, 0xff, 0xc4, 0x00, 0x00, 0x00, 0x00, 0x02, 0xcf, 0xfc, 0x6e, 0xff, 0xd1, 0x00+
−
 ,0x7f, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x00, 0x5e, 0xff, 0x90, 0x01, 0xbf, 0xfa, 0x00+
−
 ,0xef, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x09, 0xff, 0xe5, 0x00, 0x00, 0x0d, 0xff, 0x20+
−
 ,0xff, 0x60, 0x00, 0x00, 0x00, 0x02, 0xcf, 0xfc, 0x20, 0x00, 0x00, 0x05, 0xff, 0x60+
−
 ,0xff, 0x40, 0x00, 0x00, 0x00, 0x5e, 0xff, 0x90, 0x00, 0x00, 0x00, 0x03, 0xff, 0x70+
−
 ,0xff, 0x80, 0x00, 0x00, 0x08, 0xff, 0xf6, 0x00, 0x00, 0x00, 0x00, 0x06, 0xff, 0x50+
−
 ,0xcf, 0xf3, 0x00, 0x01, 0xcf, 0xfd, 0x30, 0x00, 0x00, 0x00, 0x00, 0x1d, 0xff, 0x10+
−
 ,0x4f, 0xfe, 0x50, 0x4e, 0xff, 0xa1, 0x00, 0x00, 0x00, 0x00, 0x01, 0xcf, 0xf8, 0x00+
−
 ,0x07, 0xff, 0xfd, 0xff, 0xf7, 0x00, 0x00, 0x00, 0x00, 0x01, 0x7e, 0xff, 0xb0, 0x00+
−
 ,0x00, 0x5e, 0xff, 0xff, 0xd8, 0x54, 0x33, 0x34, 0x58, 0xbf, 0xff, 0xfa, 0x00, 0x00+
−
 ,0x00, 0x01, 0x9f, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xfd, 0x50, 0x00, 0x00+
−
 ,0x00, 0x00, 0x01, 0x7b, 0xff, 0xff, 0xff, 0xff, 0xff, 0xe9, 0x40, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x02, 0x46, 0x77, 0x65, 0x41, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
// ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
#endif+
−
//+
−
// ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x1f, 0xa0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x44, 0x00+
−
 ,0x00, 0x9f, 0x90, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x02, 0xff, 0x50, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x0a, 0xff, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x3f, 0xfc, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0xbf, 0xfc, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x79, 0xff, 0x00+
−
 ,0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00+
−
 ,0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00+
−
 ,0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x36, 0xff, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0xcc, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
// ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //+
−
// ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x08, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x2a, 0xff, 0x00+
−
 ,0x00, 0xbf, 0xd1, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0xff, 0x00+
−
 ,0x0a, 0xff, 0xb3, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0xdf, 0xff, 0xff, 0x00+
−
 ,0x4f, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x6f, 0xff, 0xdb, 0xff, 0x00+
−
 ,0xcf, 0xe0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0xf8, 0x08, 0xff, 0x00+
−
 ,0xff, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x9f, 0xfe, 0x40, 0x08, 0xff, 0x00+
−
 ,0xff, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0xff, 0xd2, 0x00, 0x08, 0xff, 0x00+
−
 ,0xff, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x9f, 0xfd, 0x10, 0x00, 0x08, 0xff, 0x00+
−
 ,0xff, 0x80, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0xd1, 0x00, 0x00, 0x08, 0xff, 0x00+
−
 ,0xff, 0xe0, 0x00, 0x00, 0x00, 0x00, 0x8f, 0xfe, 0x20, 0x00, 0x00, 0x08, 0xff, 0x00+
−
 ,0x9f, 0xfa, 0x00, 0x00, 0x00, 0x1a, 0xff, 0xe2, 0x00, 0x00, 0x00, 0x08, 0xff, 0x00+
−
 ,0x2e, 0xff, 0xd6, 0x21, 0x38, 0xef, 0xfd, 0x20, 0x00, 0x00, 0x00, 0x08, 0xff, 0x00+
−
 ,0x04, 0xff, 0xff, 0xff, 0xff, 0xff, 0xc1, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0x00+
−
 ,0x00, 0x3d, 0xff, 0xff, 0xff, 0xe7, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0x00+
−
 ,0x00, 0x00, 0x59, 0xbb, 0x95, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0b, 0xff, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //+
−
// ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x5e, 0x30, 0x00+
−
 ,0x04, 0xf8, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0xd0, 0x00+
−
 ,0x1e, 0xfe, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xdf, 0xf8, 0x00+
−
 ,0x7f, 0xf5, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x2f, 0xfe, 0x00+
−
 ,0xdf, 0xc0, 0x00, 0x00, 0x00, 0x07, 0x95, 0x00, 0x00, 0x00, 0x00, 0x09, 0xff, 0x30+
−
 ,0xff, 0x70, 0x00, 0x00, 0x00, 0x0c, 0xf7, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x60+
−
 ,0xff, 0x50, 0x00, 0x00, 0x00, 0x0e, 0xf8, 0x00, 0x00, 0x00, 0x00, 0x03, 0xff, 0x70+
−
 ,0xff, 0x60, 0x00, 0x00, 0x00, 0x2f, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x60+
−
 ,0xff, 0xb0, 0x00, 0x00, 0x00, 0x7f, 0xfe, 0x00, 0x00, 0x00, 0x00, 0x09, 0xff, 0x30+
−
 ,0xbf, 0xf4, 0x00, 0x00, 0x02, 0xef, 0xff, 0x70, 0x00, 0x00, 0x00, 0x2f, 0xfe, 0x00+
−
 ,0x4f, 0xfe, 0x60, 0x00, 0x5e, 0xfd, 0xbf, 0xf5, 0x00, 0x00, 0x03, 0xef, 0xf7, 0x00+
−
 ,0x09, 0xff, 0xff, 0xdf, 0xff, 0xf3, 0x2f, 0xff, 0xb6, 0x56, 0xbf, 0xff, 0xc0, 0x00+
−
 ,0x00, 0x8f, 0xff, 0xff, 0xfe, 0x40, 0x04, 0xff, 0xff, 0xff, 0xff, 0xfc, 0x10, 0x00+
−
 ,0x00, 0x02, 0x8c, 0xdb, 0x71, 0x00, 0x00, 0x2b, 0xff, 0xff, 0xfe, 0x80, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x15, 0x66, 0x30, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //+
−
// ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xef, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0xaf, 0xff, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x5e, 0xff, 0xff, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x1b, 0xff, 0xd4, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x06, 0xef, 0xf8, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x02, 0xbf, 0xfc, 0x30, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x7f, 0xff, 0x70, 0x00, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x2c, 0xff, 0xb2, 0x00, 0x00, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x07, 0xff, 0xe6, 0x00, 0x00, 0x00, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x03, 0xcf, 0xfa, 0x10, 0x00, 0x00, 0x00, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x8f, 0xff, 0xea, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xef, 0xea, 0xaa, 0xaa, 0xaa, 0x00+
−
 ,0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00+
−
 ,0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00+
−
 ,0x44, 0x44, 0x44, 0x44, 0x44, 0x44, 0x44, 0x44, 0xdf, 0xd4, 0x44, 0x44, 0x44, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x79, 0x70, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //+
−
// ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x12, 0x34, 0x56, 0x72, 0x00, 0x00, 0x00, 0x03, 0xf8, 0x00, 0x00+
−
 ,0xab, 0xcd, 0xef, 0xff, 0xff, 0xff, 0xf8, 0x00, 0x00, 0x00, 0x1e, 0xff, 0x80, 0x00+
−
 ,0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xf9, 0x00, 0x00, 0x00, 0x28, 0xff, 0xf3, 0x00+
−
 ,0xff, 0xda, 0xa9, 0x87, 0x67, 0xff, 0xb0, 0x00, 0x00, 0x00, 0x00, 0x7f, 0xfb, 0x00+
−
 ,0xff, 0x70, 0x00, 0x00, 0x06, 0xff, 0x10, 0x00, 0x00, 0x00, 0x00, 0x0c, 0xff, 0x10+
−
 ,0xff, 0x70, 0x00, 0x00, 0x0b, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x00, 0x05, 0xff, 0x50+
−
 ,0xff, 0x70, 0x00, 0x00, 0x0d, 0xf7, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0xff, 0x70+
−
 ,0xff, 0x70, 0x00, 0x00, 0x0e, 0xf7, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0xff, 0x70+
−
 ,0xff, 0x70, 0x00, 0x00, 0x0e, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x60+
−
 ,0xff, 0x70, 0x00, 0x00, 0x0b, 0xfe, 0x10, 0x00, 0x00, 0x00, 0x00, 0x0a, 0xff, 0x30+
−
 ,0xff, 0x70, 0x00, 0x00, 0x06, 0xff, 0xb0, 0x00, 0x00, 0x00, 0x00, 0x6f, 0xfd, 0x00+
−
 ,0xff, 0x70, 0x00, 0x00, 0x00, 0xdf, 0xfd, 0x40, 0x00, 0x00, 0x29, 0xff, 0xf5, 0x00+
−
 ,0xff, 0x70, 0x00, 0x00, 0x00, 0x3f, 0xff, 0xfe, 0xba, 0xbd, 0xff, 0xff, 0x90, 0x00+
−
 ,0xff, 0x70, 0x00, 0x00, 0x00, 0x03, 0xdf, 0xff, 0xff, 0xff, 0xff, 0xf8, 0x00, 0x00+
−
 ,0x55, 0x20, 0x00, 0x00, 0x00, 0x00, 0x07, 0xdf, 0xff, 0xff, 0xea, 0x30, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x34, 0x42, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //+
−
// ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x12, 0x33, 0x33, 0x21, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x49, 0xce, 0xff, 0xff, 0xff, 0xff, 0xeb, 0x71, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x7e, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x90, 0x00, 0x00+
−
 ,0x00, 0x3d, 0xff, 0xff, 0xfc, 0xba, 0xff, 0xfb, 0xab, 0xef, 0xff, 0xfd, 0x20, 0x00+
−
 ,0x04, 0xff, 0xfe, 0x83, 0x00, 0x1c, 0xfd, 0x20, 0x00, 0x02, 0x8e, 0xff, 0xd1, 0x00+
−
 ,0x1e, 0xff, 0x90, 0x00, 0x00, 0xbf, 0xe1, 0x00, 0x00, 0x00, 0x01, 0xcf, 0xf9, 0x00+
−
 ,0xaf, 0xf7, 0x00, 0x00, 0x05, 0xff, 0x50, 0x00, 0x00, 0x00, 0x00, 0x1d, 0xff, 0x10+
−
 ,0xff, 0xb0, 0x00, 0x00, 0x0a, 0xfe, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0xff, 0x50+
−
 ,0xff, 0x50, 0x00, 0x00, 0x0d, 0xfb, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0xff, 0x70+
−
 ,0xff, 0x20, 0x00, 0x00, 0x0d, 0xfc, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0xff, 0x60+
−
 ,0xff, 0x30, 0x00, 0x00, 0x0a, 0xff, 0x20, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0x30+
−
 ,0xff, 0x70, 0x00, 0x00, 0x05, 0xff, 0xc1, 0x00, 0x00, 0x00, 0x00, 0x4f, 0xfd, 0x00+
−
 ,0xef, 0xe1, 0x00, 0x00, 0x00, 0xcf, 0xfd, 0x50, 0x00, 0x00, 0x28, 0xff, 0xf4, 0x00+
−
 ,0x7f, 0xfd, 0x00, 0x00, 0x00, 0x2d, 0xff, 0xff, 0xdb, 0xcd, 0xff, 0xff, 0x70, 0x00+
−
 ,0x0c, 0xd2, 0x00, 0x00, 0x00, 0x01, 0xbf, 0xff, 0xff, 0xff, 0xff, 0xe5, 0x00, 0x00+
−
 ,0x01, 0x10, 0x00, 0x00, 0x00, 0x00, 0x03, 0x9d, 0xff, 0xfe, 0xb6, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //+
−
// ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0xcc, 0x70, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0xff, 0x90, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0xff, 0x90, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00+
−
 ,0xff, 0x90, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x49, 0xef, 0x00+
−
 ,0xff, 0x90, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x9e, 0xff, 0xff, 0x00+
−
 ,0xff, 0x90, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x38, 0xdf, 0xff, 0xff, 0xfe, 0x00+
−
 ,0xff, 0x90, 0x00, 0x00, 0x00, 0x00, 0x01, 0x7d, 0xff, 0xff, 0xff, 0xd9, 0x40, 0x00+
−
 ,0xff, 0x90, 0x00, 0x00, 0x00, 0x05, 0xbf, 0xff, 0xff, 0xfd, 0x83, 0x00, 0x00, 0x00+
−
 ,0xff, 0x90, 0x00, 0x00, 0x39, 0xef, 0xff, 0xff, 0xe8, 0x30, 0x00, 0x00, 0x00, 0x00+
−
 ,0xff, 0x90, 0x00, 0x6c, 0xff, 0xff, 0xfe, 0x94, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0xff, 0x92, 0x8e, 0xff, 0xff, 0xfb, 0x50, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0xff, 0xef, 0xff, 0xff, 0xd7, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0xff, 0xff, 0xff, 0xa4, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0xff, 0xfd, 0x71, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0xba, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //+
−
// ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0x67, 0x62, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x24, 0x42, 0x00, 0x00, 0x00, 0x04, 0xdf, 0xff, 0xff, 0xb2, 0x00, 0x00+
−
 ,0x00, 0x3c, 0xff, 0xff, 0xc4, 0x00, 0x00, 0x8f, 0xff, 0xff, 0xff, 0xfe, 0x30, 0x00+
−
 ,0x05, 0xff, 0xff, 0xff, 0xff, 0x70, 0x08, 0xff, 0xfb, 0x77, 0xaf, 0xff, 0xe1, 0x00+
−
 ,0x3f, 0xff, 0xa7, 0x8d, 0xff, 0xf6, 0x4f, 0xfc, 0x20, 0x00, 0x02, 0xdf, 0xf9, 0x00+
−
 ,0xbf, 0xe3, 0x00, 0x00, 0x8f, 0xfe, 0xdf, 0xb0, 0x00, 0x00, 0x00, 0x2e, 0xff, 0x00+
−
 ,0xff, 0x60, 0x00, 0x00, 0x08, 0xff, 0xfe, 0x10, 0x00, 0x00, 0x00, 0x08, 0xff, 0x40+
−
 ,0xff, 0x10, 0x00, 0x00, 0x00, 0xcf, 0xf7, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x60+
−
 ,0xff, 0x00, 0x00, 0x00, 0x00, 0x3f, 0xf9, 0x00, 0x00, 0x00, 0x00, 0x03, 0xff, 0x60+
−
 ,0xff, 0x20, 0x00, 0x00, 0x00, 0x5f, 0xff, 0x10, 0x00, 0x00, 0x00, 0x05, 0xff, 0x50+
−
 ,0xff, 0x80, 0x00, 0x00, 0x03, 0xef, 0xff, 0xa0, 0x00, 0x00, 0x00, 0x0a, 0xff, 0x20+
−
 ,0xdf, 0xf6, 0x00, 0x00, 0x5e, 0xfc, 0xcf, 0xf8, 0x00, 0x00, 0x00, 0x4f, 0xfd, 0x00+
−
 ,0x4f, 0xff, 0xc8, 0x9d, 0xff, 0xf3, 0x3f, 0xff, 0xa2, 0x00, 0x06, 0xff, 0xf5, 0x00+
−
 ,0x07, 0xff, 0xff, 0xff, 0xfe, 0x40, 0x06, 0xff, 0xff, 0xdc, 0xef, 0xff, 0xa0, 0x00+
−
 ,0x00, 0x4c, 0xff, 0xff, 0x91, 0x00, 0x00, 0x5e, 0xff, 0xff, 0xff, 0xfa, 0x00, 0x00+
−
 ,0x00, 0x00, 0x24, 0x30, 0x00, 0x00, 0x00, 0x01, 0x8e, 0xff, 0xfb, 0x40, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x11, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 //+
−
// ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x02, 0x21, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x01, 0x7d, 0xff, 0xff, 0xea, 0x30, 0x00, 0x00, 0x00, 0x00, 0x04, 0x40, 0x00+
−
 ,0x00, 0x6e, 0xff, 0xff, 0xff, 0xff, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x6f, 0xe2, 0x00+
−
 ,0x08, 0xff, 0xff, 0xb9, 0x9b, 0xef, 0xff, 0xc0, 0x00, 0x00, 0x00, 0xbf, 0xfa, 0x00+
−
 ,0x4f, 0xff, 0x70, 0x00, 0x00, 0x05, 0xef, 0xf8, 0x00, 0x00, 0x00, 0x0c, 0xff, 0x10+
−
 ,0xdf, 0xf3, 0x00, 0x00, 0x00, 0x00, 0x1e, 0xff, 0x10, 0x00, 0x00, 0x06, 0xff, 0x50+
−
 ,0xff, 0x80, 0x00, 0x00, 0x00, 0x00, 0x06, 0xff, 0x50, 0x00, 0x00, 0x04, 0xff, 0x60+
−
 ,0xff, 0x40, 0x00, 0x00, 0x00, 0x00, 0x01, 0xff, 0x70, 0x00, 0x00, 0x04, 0xff, 0x60+
−
 ,0xff, 0x30, 0x00, 0x00, 0x00, 0x00, 0x01, 0xff, 0x70, 0x00, 0x00, 0x07, 0xff, 0x40+
−
 ,0xff, 0x70, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x40, 0x00, 0x00, 0x0d, 0xfe, 0x00+
−
 ,0xef, 0xe2, 0x00, 0x00, 0x00, 0x00, 0x0b, 0xfd, 0x00, 0x00, 0x00, 0x9f, 0xf8, 0x00+
−
 ,0x7f, 0xfd, 0x30, 0x00, 0x00, 0x00, 0x7f, 0xf4, 0x00, 0x00, 0x1a, 0xff, 0xd1, 0x00+
−
 ,0x0b, 0xff, 0xfb, 0x52, 0x00, 0x08, 0xff, 0x60, 0x13, 0x6a, 0xff, 0xfe, 0x20, 0x00+
−
 ,0x00, 0xaf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xef, 0xff, 0xff, 0xff, 0xc2, 0x00, 0x00+
−
 ,0x00, 0x04, 0xbf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xc5, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x02, 0x69, 0xcd, 0xef, 0xff, 0xed, 0xb9, 0x62, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
// ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 };+
−
+
−
#if 0+
−
#pragma romdata font_incon_42 = 0x0E000+
−
 rom const rom unsigned char incon42[] =+
−
 {+
−
  0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x03, 0x7a, 0xcd, 0xee, 0xdc, 0xa8, 0x40, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x18, 0xdf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xfe, 0x92, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x07, 0xef, 0xff, 0xff, 0xdc, 0xbb, 0xce, 0xff, 0xff, 0xff, 0x91, 0x00, 0x00+
−
 ,0x00, 0x00, 0xbf, 0xff, 0xc7, 0x20, 0x00, 0x00, 0x00, 0x1c, 0xff, 0xff, 0xfd, 0x20, 0x00+
−
 ,0x00, 0x0b, 0xff, 0xc4, 0x00, 0x00, 0x00, 0x00, 0x02, 0xcf, 0xfc, 0x6e, 0xff, 0xd1, 0x00+
−
 ,0x00, 0x7f, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x00, 0x5e, 0xff, 0x90, 0x01, 0xbf, 0xfa, 0x00+
−
 ,0x00, 0xef, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x09, 0xff, 0xe5, 0x00, 0x00, 0x0d, 0xff, 0x20+
−
 ,0x03, 0xff, 0x60, 0x00, 0x00, 0x00, 0x02, 0xcf, 0xfc, 0x20, 0x00, 0x00, 0x05, 0xff, 0x60+
−
 ,0x04, 0xff, 0x40, 0x00, 0x00, 0x00, 0x5e, 0xff, 0x90, 0x00, 0x00, 0x00, 0x03, 0xff, 0x70+
−
 ,0x02, 0xff, 0x80, 0x00, 0x00, 0x08, 0xff, 0xf6, 0x00, 0x00, 0x00, 0x00, 0x06, 0xff, 0x50+
−
 ,0x00, 0xcf, 0xf3, 0x00, 0x01, 0xcf, 0xfd, 0x30, 0x00, 0x00, 0x00, 0x00, 0x1d, 0xff, 0x10+
−
 ,0x00, 0x4f, 0xfe, 0x50, 0x4e, 0xff, 0xa1, 0x00, 0x00, 0x00, 0x00, 0x01, 0xcf, 0xf8, 0x00+
−
 ,0x00, 0x07, 0xff, 0xfd, 0xff, 0xf7, 0x00, 0x00, 0x00, 0x00, 0x01, 0x7e, 0xff, 0xb0, 0x00+
−
 ,0x00, 0x00, 0x5e, 0xff, 0xff, 0xd8, 0x54, 0x33, 0x34, 0x58, 0xbf, 0xff, 0xfa, 0x00, 0x00+
−
 ,0x00, 0x00, 0x01, 0x9f, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xfd, 0x50, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x01, 0x7b, 0xff, 0xff, 0xff, 0xff, 0xff, 0xe9, 0x40, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x46, 0x77, 0x65, 0x41, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x1f, 0xa0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x44, 0x00+
−
 ,0x00, 0x00, 0x9f, 0x90, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x00, 0x02, 0xff, 0x50, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x00, 0x0a, 0xff, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x00, 0x3f, 0xfc, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x00, 0xbf, 0xfc, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x79, 0xff, 0x00+
−
 ,0x02, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00+
−
 ,0x02, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00+
−
 ,0x00, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x33, 0x36, 0xff, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0xcc, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x08, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x2a, 0xff, 0x00+
−
 ,0x00, 0x00, 0xbf, 0xd1, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0xff, 0x00+
−
 ,0x00, 0x0a, 0xff, 0xb3, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0xdf, 0xff, 0xff, 0x00+
−
 ,0x00, 0x4f, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x6f, 0xff, 0xdb, 0xff, 0x00+
−
 ,0x00, 0xcf, 0xe0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0xf8, 0x08, 0xff, 0x00+
−
 ,0x01, 0xff, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x9f, 0xfe, 0x40, 0x08, 0xff, 0x00+
−
 ,0x04, 0xff, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0xff, 0xd2, 0x00, 0x08, 0xff, 0x00+
−
 ,0x04, 0xff, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x9f, 0xfd, 0x10, 0x00, 0x08, 0xff, 0x00+
−
 ,0x03, 0xff, 0x80, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0xd1, 0x00, 0x00, 0x08, 0xff, 0x00+
−
 ,0x00, 0xff, 0xe0, 0x00, 0x00, 0x00, 0x00, 0x8f, 0xfe, 0x20, 0x00, 0x00, 0x08, 0xff, 0x00+
−
 ,0x00, 0x9f, 0xfa, 0x00, 0x00, 0x00, 0x1a, 0xff, 0xe2, 0x00, 0x00, 0x00, 0x08, 0xff, 0x00+
−
 ,0x00, 0x2e, 0xff, 0xd6, 0x21, 0x38, 0xef, 0xfd, 0x20, 0x00, 0x00, 0x00, 0x08, 0xff, 0x00+
−
 ,0x00, 0x04, 0xff, 0xff, 0xff, 0xff, 0xff, 0xc1, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0x00+
−
 ,0x00, 0x00, 0x3d, 0xff, 0xff, 0xff, 0xe7, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0x00+
−
 ,0x00, 0x00, 0x00, 0x59, 0xbb, 0x95, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0b, 0xff, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x5e, 0x30, 0x00+
−
 ,0x00, 0x04, 0xf8, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0xd0, 0x00+
−
 ,0x00, 0x1e, 0xfe, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xdf, 0xf8, 0x00+
−
 ,0x00, 0x7f, 0xf5, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x2f, 0xfe, 0x00+
−
 ,0x00, 0xdf, 0xc0, 0x00, 0x00, 0x00, 0x07, 0x95, 0x00, 0x00, 0x00, 0x00, 0x09, 0xff, 0x30+
−
 ,0x01, 0xff, 0x70, 0x00, 0x00, 0x00, 0x0c, 0xf7, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x60+
−
 ,0x03, 0xff, 0x50, 0x00, 0x00, 0x00, 0x0e, 0xf8, 0x00, 0x00, 0x00, 0x00, 0x03, 0xff, 0x70+
−
 ,0x03, 0xff, 0x60, 0x00, 0x00, 0x00, 0x2f, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x60+
−
 ,0x01, 0xff, 0xb0, 0x00, 0x00, 0x00, 0x7f, 0xfe, 0x00, 0x00, 0x00, 0x00, 0x09, 0xff, 0x30+
−
 ,0x00, 0xbf, 0xf4, 0x00, 0x00, 0x02, 0xef, 0xff, 0x70, 0x00, 0x00, 0x00, 0x2f, 0xfe, 0x00+
−
 ,0x00, 0x4f, 0xfe, 0x60, 0x00, 0x5e, 0xfd, 0xbf, 0xf5, 0x00, 0x00, 0x03, 0xef, 0xf7, 0x00+
−
 ,0x00, 0x09, 0xff, 0xff, 0xdf, 0xff, 0xf3, 0x2f, 0xff, 0xb6, 0x56, 0xbf, 0xff, 0xc0, 0x00+
−
 ,0x00, 0x00, 0x8f, 0xff, 0xff, 0xfe, 0x40, 0x04, 0xff, 0xff, 0xff, 0xff, 0xfc, 0x10, 0x00+
−
 ,0x00, 0x00, 0x02, 0x8c, 0xdb, 0x71, 0x00, 0x00, 0x2b, 0xff, 0xff, 0xfe, 0x80, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x15, 0x66, 0x30, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xef, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0xaf, 0xff, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x5e, 0xff, 0xff, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x1b, 0xff, 0xd4, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0xef, 0xf8, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x02, 0xbf, 0xfc, 0x30, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x7f, 0xff, 0x70, 0x00, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x2c, 0xff, 0xb2, 0x00, 0x00, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x07, 0xff, 0xe6, 0x00, 0x00, 0x00, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x03, 0xcf, 0xfa, 0x10, 0x00, 0x00, 0x00, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x8f, 0xff, 0xea, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xef, 0xea, 0xaa, 0xaa, 0xaa, 0x00+
−
 ,0x02, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00+
−
 ,0x02, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x00+
−
 ,0x00, 0x44, 0x44, 0x44, 0x44, 0x44, 0x44, 0x44, 0x44, 0xdf, 0xd4, 0x44, 0x44, 0x44, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xcf, 0xc0, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x79, 0x70, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x12, 0x34, 0x56, 0x72, 0x00, 0x00, 0x00, 0x03, 0xf8, 0x00, 0x00+
−
 ,0x01, 0xab, 0xcd, 0xef, 0xff, 0xff, 0xff, 0xf8, 0x00, 0x00, 0x00, 0x1e, 0xff, 0x80, 0x00+
−
 ,0x02, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xf9, 0x00, 0x00, 0x00, 0x28, 0xff, 0xf3, 0x00+
−
 ,0x02, 0xff, 0xda, 0xa9, 0x87, 0x67, 0xff, 0xb0, 0x00, 0x00, 0x00, 0x00, 0x7f, 0xfb, 0x00+
−
 ,0x02, 0xff, 0x70, 0x00, 0x00, 0x06, 0xff, 0x10, 0x00, 0x00, 0x00, 0x00, 0x0c, 0xff, 0x10+
−
 ,0x02, 0xff, 0x70, 0x00, 0x00, 0x0b, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x00, 0x05, 0xff, 0x50+
−
 ,0x02, 0xff, 0x70, 0x00, 0x00, 0x0d, 0xf7, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0xff, 0x70+
−
 ,0x02, 0xff, 0x70, 0x00, 0x00, 0x0e, 0xf7, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0xff, 0x70+
−
 ,0x02, 0xff, 0x70, 0x00, 0x00, 0x0e, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x60+
−
 ,0x02, 0xff, 0x70, 0x00, 0x00, 0x0b, 0xfe, 0x10, 0x00, 0x00, 0x00, 0x00, 0x0a, 0xff, 0x30+
−
 ,0x02, 0xff, 0x70, 0x00, 0x00, 0x06, 0xff, 0xb0, 0x00, 0x00, 0x00, 0x00, 0x6f, 0xfd, 0x00+
−
 ,0x02, 0xff, 0x70, 0x00, 0x00, 0x00, 0xdf, 0xfd, 0x40, 0x00, 0x00, 0x29, 0xff, 0xf5, 0x00+
−
 ,0x02, 0xff, 0x70, 0x00, 0x00, 0x00, 0x3f, 0xff, 0xfe, 0xba, 0xbd, 0xff, 0xff, 0x90, 0x00+
−
 ,0x02, 0xff, 0x70, 0x00, 0x00, 0x00, 0x03, 0xdf, 0xff, 0xff, 0xff, 0xff, 0xf8, 0x00, 0x00+
−
 ,0x01, 0x55, 0x20, 0x00, 0x00, 0x00, 0x00, 0x07, 0xdf, 0xff, 0xff, 0xea, 0x30, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x34, 0x42, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x12, 0x33, 0x33, 0x21, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x49, 0xce, 0xff, 0xff, 0xff, 0xff, 0xeb, 0x71, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x7e, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x90, 0x00, 0x00+
−
 ,0x00, 0x00, 0x3d, 0xff, 0xff, 0xfc, 0xba, 0xff, 0xfb, 0xab, 0xef, 0xff, 0xfd, 0x20, 0x00+
−
 ,0x00, 0x04, 0xff, 0xfe, 0x83, 0x00, 0x1c, 0xfd, 0x20, 0x00, 0x02, 0x8e, 0xff, 0xd1, 0x00+
−
 ,0x00, 0x1e, 0xff, 0x90, 0x00, 0x00, 0xbf, 0xe1, 0x00, 0x00, 0x00, 0x01, 0xcf, 0xf9, 0x00+
−
 ,0x00, 0xaf, 0xf7, 0x00, 0x00, 0x05, 0xff, 0x50, 0x00, 0x00, 0x00, 0x00, 0x1d, 0xff, 0x10+
−
 ,0x01, 0xff, 0xb0, 0x00, 0x00, 0x0a, 0xfe, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0xff, 0x50+
−
 ,0x04, 0xff, 0x50, 0x00, 0x00, 0x0d, 0xfb, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0xff, 0x70+
−
 ,0x06, 0xff, 0x20, 0x00, 0x00, 0x0d, 0xfc, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0xff, 0x60+
−
 ,0x06, 0xff, 0x30, 0x00, 0x00, 0x0a, 0xff, 0x20, 0x00, 0x00, 0x00, 0x00, 0x08, 0xff, 0x30+
−
 ,0x03, 0xff, 0x70, 0x00, 0x00, 0x05, 0xff, 0xc1, 0x00, 0x00, 0x00, 0x00, 0x4f, 0xfd, 0x00+
−
 ,0x00, 0xef, 0xe1, 0x00, 0x00, 0x00, 0xcf, 0xfd, 0x50, 0x00, 0x00, 0x28, 0xff, 0xf4, 0x00+
−
 ,0x00, 0x7f, 0xfd, 0x00, 0x00, 0x00, 0x2d, 0xff, 0xff, 0xdb, 0xcd, 0xff, 0xff, 0x70, 0x00+
−
 ,0x00, 0x0c, 0xd2, 0x00, 0x00, 0x00, 0x01, 0xbf, 0xff, 0xff, 0xff, 0xff, 0xe5, 0x00, 0x00+
−
 ,0x00, 0x01, 0x10, 0x00, 0x00, 0x00, 0x00, 0x03, 0x9d, 0xff, 0xfe, 0xb6, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x02, 0xcc, 0x70, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x02, 0xff, 0x90, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x02, 0xff, 0x90, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00+
−
 ,0x02, 0xff, 0x90, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x49, 0xef, 0x00+
−
 ,0x02, 0xff, 0x90, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x9e, 0xff, 0xff, 0x00+
−
 ,0x02, 0xff, 0x90, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x38, 0xdf, 0xff, 0xff, 0xfe, 0x00+
−
 ,0x02, 0xff, 0x90, 0x00, 0x00, 0x00, 0x00, 0x01, 0x7d, 0xff, 0xff, 0xff, 0xd9, 0x40, 0x00+
−
 ,0x02, 0xff, 0x90, 0x00, 0x00, 0x00, 0x05, 0xbf, 0xff, 0xff, 0xfd, 0x83, 0x00, 0x00, 0x00+
−
 ,0x02, 0xff, 0x90, 0x00, 0x00, 0x39, 0xef, 0xff, 0xff, 0xe8, 0x30, 0x00, 0x00, 0x00, 0x00+
−
 ,0x02, 0xff, 0x90, 0x00, 0x6c, 0xff, 0xff, 0xfe, 0x94, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x02, 0xff, 0x92, 0x8e, 0xff, 0xff, 0xfb, 0x50, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x02, 0xff, 0xef, 0xff, 0xff, 0xd7, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x02, 0xff, 0xff, 0xff, 0xa4, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x02, 0xff, 0xfd, 0x71, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x02, 0xba, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0x67, 0x62, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x24, 0x42, 0x00, 0x00, 0x00, 0x04, 0xdf, 0xff, 0xff, 0xb2, 0x00, 0x00+
−
 ,0x00, 0x00, 0x3c, 0xff, 0xff, 0xc4, 0x00, 0x00, 0x8f, 0xff, 0xff, 0xff, 0xfe, 0x30, 0x00+
−
 ,0x00, 0x05, 0xff, 0xff, 0xff, 0xff, 0x70, 0x08, 0xff, 0xfb, 0x77, 0xaf, 0xff, 0xe1, 0x00+
−
 ,0x00, 0x3f, 0xff, 0xa7, 0x8d, 0xff, 0xf6, 0x4f, 0xfc, 0x20, 0x00, 0x02, 0xdf, 0xf9, 0x00+
−
 ,0x00, 0xbf, 0xe3, 0x00, 0x00, 0x8f, 0xfe, 0xdf, 0xb0, 0x00, 0x00, 0x00, 0x2e, 0xff, 0x00+
−
 ,0x01, 0xff, 0x60, 0x00, 0x00, 0x08, 0xff, 0xfe, 0x10, 0x00, 0x00, 0x00, 0x08, 0xff, 0x40+
−
 ,0x05, 0xff, 0x10, 0x00, 0x00, 0x00, 0xcf, 0xf7, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x60+
−
 ,0x06, 0xff, 0x00, 0x00, 0x00, 0x00, 0x3f, 0xf9, 0x00, 0x00, 0x00, 0x00, 0x03, 0xff, 0x60+
−
 ,0x06, 0xff, 0x20, 0x00, 0x00, 0x00, 0x5f, 0xff, 0x10, 0x00, 0x00, 0x00, 0x05, 0xff, 0x50+
−
 ,0x03, 0xff, 0x80, 0x00, 0x00, 0x03, 0xef, 0xff, 0xa0, 0x00, 0x00, 0x00, 0x0a, 0xff, 0x20+
−
 ,0x00, 0xdf, 0xf6, 0x00, 0x00, 0x5e, 0xfc, 0xcf, 0xf8, 0x00, 0x00, 0x00, 0x4f, 0xfd, 0x00+
−
 ,0x00, 0x4f, 0xff, 0xc8, 0x9d, 0xff, 0xf3, 0x3f, 0xff, 0xa2, 0x00, 0x06, 0xff, 0xf5, 0x00+
−
 ,0x00, 0x07, 0xff, 0xff, 0xff, 0xfe, 0x40, 0x06, 0xff, 0xff, 0xdc, 0xef, 0xff, 0xa0, 0x00+
−
 ,0x00, 0x00, 0x4c, 0xff, 0xff, 0x91, 0x00, 0x00, 0x5e, 0xff, 0xff, 0xff, 0xfa, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x24, 0x30, 0x00, 0x00, 0x00, 0x01, 0x8e, 0xff, 0xfb, 0x40, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x11, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x02, 0x21, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x01, 0x7d, 0xff, 0xff, 0xea, 0x30, 0x00, 0x00, 0x00, 0x00, 0x04, 0x40, 0x00+
−
 ,0x00, 0x00, 0x6e, 0xff, 0xff, 0xff, 0xff, 0xfa, 0x00, 0x00, 0x00, 0x00, 0x6f, 0xe2, 0x00+
−
 ,0x00, 0x08, 0xff, 0xff, 0xb9, 0x9b, 0xef, 0xff, 0xc0, 0x00, 0x00, 0x00, 0xbf, 0xfa, 0x00+
−
 ,0x00, 0x4f, 0xff, 0x70, 0x00, 0x00, 0x05, 0xef, 0xf8, 0x00, 0x00, 0x00, 0x0c, 0xff, 0x10+
−
 ,0x00, 0xdf, 0xf3, 0x00, 0x00, 0x00, 0x00, 0x1e, 0xff, 0x10, 0x00, 0x00, 0x06, 0xff, 0x50+
−
 ,0x03, 0xff, 0x80, 0x00, 0x00, 0x00, 0x00, 0x06, 0xff, 0x50, 0x00, 0x00, 0x04, 0xff, 0x60+
−
 ,0x05, 0xff, 0x40, 0x00, 0x00, 0x00, 0x00, 0x01, 0xff, 0x70, 0x00, 0x00, 0x04, 0xff, 0x60+
−
 ,0x06, 0xff, 0x30, 0x00, 0x00, 0x00, 0x00, 0x01, 0xff, 0x70, 0x00, 0x00, 0x07, 0xff, 0x40+
−
 ,0x04, 0xff, 0x70, 0x00, 0x00, 0x00, 0x00, 0x04, 0xff, 0x40, 0x00, 0x00, 0x0d, 0xfe, 0x00+
−
 ,0x00, 0xef, 0xe2, 0x00, 0x00, 0x00, 0x00, 0x0b, 0xfd, 0x00, 0x00, 0x00, 0x9f, 0xf8, 0x00+
−
 ,0x00, 0x7f, 0xfd, 0x30, 0x00, 0x00, 0x00, 0x7f, 0xf4, 0x00, 0x00, 0x1a, 0xff, 0xd1, 0x00+
−
 ,0x00, 0x0b, 0xff, 0xfb, 0x52, 0x00, 0x08, 0xff, 0x60, 0x13, 0x6a, 0xff, 0xfe, 0x20, 0x00+
−
 ,0x00, 0x00, 0xaf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xef, 0xff, 0xff, 0xff, 0xc2, 0x00, 0x00+
−
 ,0x00, 0x00, 0x04, 0xbf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xc5, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x02, 0x69, 0xcd, 0xef, 0xff, 0xed, 0xb9, 0x62, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 ,0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00+
−
 };+
−
#endif+
−
+
−
// **********************+
−
// **********************+
−
// ** THE JUMP-IN CODE **+
−
// ** for the asm code **+
−
// **********************+
−
// **********************+
−
#pragma code main_calc_hauptroutine = 0x10000+
−
void main_calc_hauptroutine(void)+
−
{+
−
calc_hauptroutine();+
−
int_O_desaturation_time = 65535;+
−
}				// divemode+
−
#pragma code main_without_deco = 0x10020+
−
void main_calc_without_deco(void)+
−
{+
−
calc_without_deco();+
−
calc_desaturation_time();+
−
}+
−
+
−
#pragma code main_clear_CNS_fraction = 0x10030+
−
void main_clear_CNS_fraction(void)+
−
{+
−
clear_CNS_fraction();+
−
}+
−
+
−
#pragma code main_calc_CNS_decrease_15min = 0x10034+
−
void main_calc_CNS_decrease_15min(void)+
−
{+
−
calc_CNS_decrease_15min();+
−
}+
−
+
−
#pragma code main_calc_percentage = 0x10038+
−
void main_calc_percentage (void)+
−
{+
−
calc_percentage();+
−
}+
−
+
−
#pragma code main_clear_tissue = 0x10040+
−
void main_clear_tissue(void)+
−
{+
−
clear_tissue();+
−
char_I_depth_last_deco	= 0;		// for compatibility with v.101pre_no_last_deco+
−
}+
−
+
−
#pragma code main_calc_CNS_fraction = 0x10050+
−
void main_calc_CNS_fraction(void)+
−
{+
−
calc_CNS_fraction();+
−
}+
−
+
−
#pragma code main_calc_desaturation_time = 0x10060+
−
void main_calc_desaturation_time(void)+
−
{+
−
calc_desaturation_time();+
−
}+
−
+
−
#pragma code main_calc_wo_deco_step_1_min = 0x10080+
−
void main_calc_wo_deco_step_1_min(void)+
−
{+
−
calc_wo_deco_step_1_min();+
−
char_O_deco_status = 3; // surface new in v.102 overwrites value of calc_wo_deco_step_1_min+
−
calc_desaturation_time();+
−
}			// surface mode+
−
+
−
#pragma code main_debug = 0x100A0+
−
void main_debug(void)+
−
{+
−
//debug();+
−
}+
−
+
−
#pragma code main_DD2_write_incon42 = 0x100B0+
−
void main_DD2_write_incon42(void)+
−
{+
−
	DD2_write_incon42();+
−
}+
−
+
−
#pragma code main_DD2_write_incon24 = 0x100B4+
−
void main_DD2_write_incon24(void)+
−
{+
−
	DD2_write_incon24();+
−
}+
−
+
−
#pragma code main_gradient_array = 0x100C0+
−
void main_gradient_array(void)+
−
{+
−
calc_gradient_array_only();+
−
}+
−
#pragma code main_push_tissues = 0x100C4+
−
void main_push_tissues_to_vault(void)+
−
{+
−
	push_tissues_to_vault();+
−
}+
−
#pragma code main_pull_tissues = 0x100C8+
−
void main_pull_tissues_from_vault(void)+
−
{+
−
	pull_tissues_from_vault();+
−
}+
−
+
−
#pragma code main_hash = 0x100E0+
−
void main_hash(void)+
−
{+
−
hash();+
−
}+
−
+
−
// ***********************+
−
// ***********************+
−
// ** THE LOOKUP TABLES **+
−
// ***********************+
−
// ***********************+
−
+
−
#pragma romdata tables = 0x10200+
−
#include	"p2_tables.romdata" 		// new table for deco_main_v.101 (var_a modified)+
−
+
−
#pragma romdata tables2 = 0x10600+
−
rom const rom unsigned int md_pi[] =+
−
{+
−
    0x292E, 0x43C9, 0xA2D8, 0x7C01, 0x3D36, 0x54A1, 0xECF0, 0x0613+
−
  , 0x62A7, 0x05F3, 0xC0C7, 0x738C, 0x9893, 0x2BD9, 0xBC4C, 0x82CA+
−
  , 0x1E9B, 0x573C, 0xFDD4, 0xE016, 0x6742, 0x6F18, 0x8A17, 0xE512+
−
  , 0xBE4E, 0xC4D6, 0xDA9E, 0xDE49, 0xA0FB, 0xF58E, 0xBB2F, 0xEE7A+
−
  , 0xA968, 0x7991, 0x15B2, 0x073F, 0x94C2, 0x1089, 0x0B22, 0x5F21+
−
  , 0x807F, 0x5D9A, 0x5A90, 0x3227, 0x353E, 0xCCE7, 0xBFF7, 0x9703+
−
  , 0xFF19, 0x30B3, 0x48A5, 0xB5D1, 0xD75E, 0x922A, 0xAC56, 0xAAC6+
−
  , 0x4FB8, 0x38D2, 0x96A4, 0x7DB6, 0x76FC, 0x6BE2, 0x9C74, 0x04F1+
−
  , 0x459D, 0x7059, 0x6471, 0x8720, 0x865B, 0xCF65, 0xE62D, 0xA802+
−
  , 0x1B60, 0x25AD, 0xAEB0, 0xB9F6, 0x1C46, 0x6169, 0x3440, 0x7E0F+
−
  , 0x5547, 0xA323, 0xDD51, 0xAF3A, 0xC35C, 0xF9CE, 0xBAC5, 0xEA26+
−
  , 0x2C53, 0x0D6E, 0x8528, 0x8409, 0xD3DF, 0xCDF4, 0x4181, 0x4D52+
−
  , 0x6ADC, 0x37C8, 0x6CC1, 0xABFA, 0x24E1, 0x7B08, 0x0CBD, 0xB14A+
−
  , 0x7888, 0x958B, 0xE363, 0xE86D, 0xE9CB, 0xD5FE, 0x3B00, 0x1D39+
−
  , 0xF2EF, 0xB70E, 0x6658, 0xD0E4, 0xA677, 0x72F8, 0xEB75, 0x4B0A+
−
  , 0x3144, 0x50B4, 0x8FED, 0x1F1A, 0xDB99, 0x8D33, 0x9F11, 0x8314+
−
};+
−
+
−
// *********************+
−
// *********************+
−
// ** THE SUBROUTINES **+
−
// *********************+
−
// *********************+
−
+
−
#pragma code subroutines = 0x10700	// can be adapted to fit the romdata tables ahead+
−
+
−
+
−
// ---------------+
−
// CLEAR tissue //+
−
// ---------------+
−
// optimized in v.101 (var_a)+
−
+
−
void clear_tissue(void)    // preload tissues with standard pressure for the given ambient pressure+
−
{+
−
+
−
	flag_in_divemode = 0;+
−
	int_O_DBS_bitfield = 0;+
−
	int_O_DBS2_bitfield = 0;+
−
	int_O_DBG_pre_bitfield = 0;+
−
	int_O_DBG_post_bitfield = 0;+
−
	char_O_NDL_at_20mtr = 255;+
−
+
−
_asm+
−
lfsr 1, 0x300 // C math routines shall use this variable bank+
−
movlw	0x01+
−
movwf	TBLPTRU,0+
−
_endasm+
−
+
−
// N2_ratio = (float)char_I_N2_ratio; // the 0.0002 of 0.7902 are missing with standard air+
−
 N2_ratio = 0.7902; // N2_ratio / 100.0;+
−
 pres_respiration = (float)int_I_pres_respiration / 1000.0;+
−
for (ci=0;ci<16;ci++)  // cycle through the 16 b"uhlmann tissues+
−
{+
−
 pres_tissue[ci] =  N2_ratio * (pres_respiration -  0.0627) ;+
−
_asm+
−
movlw	0x02+
−
movwf	TBLPTRH,0+
−
movlb	4 // fuer ci+
−
movf ci,0,1+
−
addwf	ci,0,1+
−
addwf	ci,0,1+
−
addwf	ci,0,1+
−
addlw	0x80+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+3+
−
TBLRD+
−
movff	TABLAT,var_a+2+
−
addlw	0x80+
−
movwf	TBLPTRL,0+
−
incf	TBLPTRH,1,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+3+
−
TBLRD+
−
movff	TABLAT,var_b+2+
−
_endasm+
−
+
−
pres_tissue_limit[ci] = (pres_tissue[ci] - var_a) * var_b ;+
−
// now update the guiding tissue+
−
if (pres_tissue_limit[ci] < 0)+
−
pres_tissue_limit[ci] = 0;+
−
} // for 0 to 16+
−
+
−
for (ci=16;ci<32;ci++)  // cycle through the 16 b"uhlmann tissues for Helium+
−
{+
−
 pres_tissue[ci] = 0.0;+
−
}  // for+
−
+
−
 clear_decoarray();+
−
 char_O_deco_status = 0;+
−
 char_O_nullzeit = 0;+
−
 char_O_ascenttime = 0;+
−
 char_O_gradient_factor = 0;+
−
 char_O_relative_gradient_GF = 0;+
−
} // clear_tissue(void)+
−
+
−
+
−
// --------------------+
−
// calc_without_deco //+
−
// fixed N2_ratio !  //+
−
// --------------------+
−
// optimized in v.101 (float_..saturation_multiplier)+
−
+
−
void calc_without_deco(void)+
−
{+
−
_asm+
−
 lfsr 1, 0x300+
−
_endasm+
−
 N2_ratio = 0.7902; // FIXED RATIO !! sum as stated in b"uhlmann+
−
 pres_respiration = (float)int_I_pres_respiration / 1000.0; // assembler code uses different digit system+
−
 pres_surface = (float)int_I_pres_surface / 1000.0;+
−
 temp_atem = N2_ratio * (pres_respiration - 0.0627); // 0.0627 is the extra pressure in the body+
−
 temp2_atem = 0.0;+
−
 temp_surface = pres_surface; // the b"uhlmann formula using temp_surface does apply to the pressure without any inert ratio+
−
 float_desaturation_multiplier = char_I_desaturation_multiplier / 100.0;+
−
 float_saturation_multiplier = char_I_saturation_multiplier / 100.0;+
−
+
−
 calc_tissue();  // update the pressure in the 16 tissues in accordance with the new ambient pressure+
−
+
−
 clear_decoarray();+
−
 char_O_deco_status = 0;+
−
 char_O_nullzeit = 0;+
−
 char_O_ascenttime = 0;+
−
 calc_gradient_factor();+
−
+
−
} // calc_without_deco+
−
+
−
+
−
// --------------------+
−
// calc_hauptroutine //+
−
// --------------------+
−
// this is the major code in dive mode+
−
// calculates:+
−
// 		the tissues,+
−
//		the bottom time+
−
//		and simulates the ascend with all deco stops+
−
+
−
void calc_hauptroutine(void)+
−
{+
−
	calc_hauptroutine_data_input();+
−
+
−
	if(!flag_in_divemode)+
−
	{+
−
		flag_in_divemode = 1;+
−
		create_dbs_set_dbg_and_ndl20mtr();+
−
	}+
−
	else+
−
		check_pre_dbg();+
−
+
−
	calc_hauptroutine_update_tissues();+
−
	calc_gradient_factor();+
−
+
−
+
−
	switch (char_O_deco_status)	// toggle between calculation for nullzeit (bottom time), deco stops and more deco stops (continue)+
−
	{+
−
 		case 0:+
−
			update_startvalues();+
−
			calc_nullzeit();+
−
			check_ndl();+
−
			char_O_deco_status = 255; // calc deco next time+
−
			break;+
−
		case 1:+
−
			if (char_O_deco_status == 3)+
−
				break;+
−
			char_O_deco_status = 0;+
−
//			char_O_lock_depth_list = 255;+
−
			calc_hauptroutine_calc_deco();+
−
//			build_debug_output();+
−
			break;+
−
		case 3:				// new dive+
−
			clear_decoarray();+
−
			clear_internal_deco_table_GF();+
−
			copy_deco_table_GF();+
−
			internal_deco_pointer = 0;+
−
			lock_GF_depth_list = 0;+
−
			update_startvalues();+
−
			calc_nextdecodepth_GF();+
−
			char_O_deco_status = 0;+
−
			break;+
−
		default:+
−
			update_startvalues();+
−
			clear_decoarray();+
−
			clear_internal_deco_table_GF();+
−
			output[6] = 1;+
−
			calc_hauptroutine_calc_ascend_to_deco();+
−
 			if (char_O_deco_status > 15)		// can't go up to first deco, too deep to calculate in the given time slot+
−
			{+
−
				char_O_deco_status = 2;+
−
//				char_O_lock_depth_list = 255;+
−
			}+
−
 			else+
−
			{+
−
//				char_O_lock_depth_list = lock_GF_depth_list;+
−
				calc_hauptroutine_calc_deco();+
−
			}+
−
//			build_debug_output();+
−
			break;+
−
	}+
−
	calc_ascenttime();+
−
	check_post_dbg();+
−
}+
−
+
−
void calc_hauptroutine_data_input(void)+
−
{+
−
 pres_respiration = (float)int_I_pres_respiration / 1000.0;+
−
 pres_surface = (float)int_I_pres_surface / 1000.0;+
−
+
−
 N2_ratio = (float)char_I_N2_ratio / 100.0;; // the 0.0002 of 0.7902 are missing with standard air+
−
 He_ratio = (float)char_I_He_ratio / 100.0;;+
−
 deco_N2_ratio = (float)char_I_deco_N2_ratio / 100.0;+
−
 deco_He_ratio = (float)char_I_deco_He_ratio / 100.0;+
−
 deco_N2_ratio2 = (float)char_I_deco_N2_ratio2 / 100.0;+
−
 deco_He_ratio2 = (float)char_I_deco_He_ratio2 / 100.0;+
−
 deco_N2_ratio3 = (float)char_I_deco_N2_ratio3 / 100.0;+
−
 deco_He_ratio3 = (float)char_I_deco_He_ratio3 / 100.0;+
−
 deco_N2_ratio4 = (float)char_I_deco_N2_ratio4 / 100.0;+
−
 deco_He_ratio4 = (float)char_I_deco_He_ratio4 / 100.0;+
−
 deco_N2_ratio5 = (float)char_I_deco_N2_ratio5 / 100.0;+
−
 deco_He_ratio5 = (float)char_I_deco_He_ratio5 / 100.0;+
−
 float_deco_distance = (float)char_I_deco_distance / 100.0;+
−
+
−
// ____________________________________________________+
−
//+
−
// _____________ G A S _ C H A N G E S ________________+
−
// ____________________________________________________+
−
+
−
int_temp = (int_I_pres_respiration - int_I_pres_surface) + MBAR_REACH_GASCHANGE_AUTO_CHANGE_OFF;+
−
+
−
 deco_gas_change = 0;+
−
 deco_gas_change2 = 0;+
−
 deco_gas_change3 = 0;+
−
 deco_gas_change4 = 0;+
−
 deco_gas_change5 = 0;+
−
+
−
 if(char_I_deco_gas_change)+
−
 {+
−
	int_temp2 = ((int)char_I_deco_gas_change) * 100;+
−
	if(int_temp > int_temp2)+
−
	{+
−
		deco_gas_change = (float)char_I_deco_gas_change / 9.995 + pres_surface;+
−
		deco_gas_change += float_deco_distance;+
−
 	}+
−
 }+
−
 if(char_I_deco_gas_change2)+
−
 {+
−
	int_temp2 = ((int)char_I_deco_gas_change2) * 100;+
−
	if(int_temp > int_temp2)+
−
	{+
−
		deco_gas_change2 = (float)char_I_deco_gas_change2 / 9.995 + pres_surface;+
−
		deco_gas_change2 += float_deco_distance;+
−
 	}+
−
 }+
−
 if(char_I_deco_gas_change3)+
−
 {+
−
	int_temp2 = ((int)char_I_deco_gas_change3) * 100;+
−
	if(int_temp > int_temp2)+
−
	{+
−
		deco_gas_change3 = (float)char_I_deco_gas_change3 / 9.995 + pres_surface;+
−
		deco_gas_change3 += float_deco_distance;+
−
 	}+
−
 }+
−
 if(char_I_deco_gas_change4)+
−
 {+
−
	int_temp2 = ((int)char_I_deco_gas_change4) * 100;+
−
	if(int_temp > int_temp2)+
−
	{+
−
		deco_gas_change4 = (float)char_I_deco_gas_change4 / 9.995 + pres_surface;+
−
		deco_gas_change4 += float_deco_distance;+
−
 	}+
−
 }+
−
 if(char_I_deco_gas_change5)+
−
 {+
−
	int_temp2 = ((int)char_I_deco_gas_change5) * 100;+
−
	if(int_temp > int_temp2)+
−
	{+
−
		deco_gas_change5 = (float)char_I_deco_gas_change5 / 9.995 + pres_surface;+
−
		deco_gas_change5 += float_deco_distance;+
−
 	}+
−
 }+
−
+
−
 const_ppO2 = (float)char_I_const_ppO2 / 100.0;+
−
 deco_ppO2_change = (float)char_I_deco_ppO2_change / 99.95 + pres_surface;+
−
 deco_ppO2_change = deco_ppO2_change + float_deco_distance;+
−
 deco_ppO2 = (float)char_I_deco_ppO2 / 100.0;+
−
 float_desaturation_multiplier = char_I_desaturation_multiplier / 100.0;+
−
 float_saturation_multiplier = char_I_saturation_multiplier / 100.0;+
−
 GF_low = (float)char_I_GF_Low_percentage / 100.0;+
−
 GF_high = (float)char_I_GF_High_percentage / 100.0;+
−
 GF_delta = GF_high - GF_low;+
−
+
−
 temp2 = (pres_respiration - pres_surface) / 0.29985;+
−
 int_temp = (int)(temp2);+
−
 if (int_temp < 0)+
−
	int_temp = 0;+
−
 if (int_temp > 255)+
−
	int_temp = 255;+
−
 char_O_actual_pointer = int_temp;+
−
+
−
 temp_depth_last_deco = (int)char_I_depth_last_deco;+
−
}+
−
+
−
void calc_hauptroutine_update_tissues(void)+
−
{+
−
	int_O_calc_tissue_call_counter = int_O_calc_tissue_call_counter + 1;+
−
 	if (char_I_const_ppO2 == 0)																// new in v.101+
−
  		pres_diluent = pres_respiration;															// new in v.101+
−
 	else																						// new in v.101+
−
  		pres_diluent = ((pres_respiration - const_ppO2)/(N2_ratio + He_ratio));					// new in v.101+
−
 	if (pres_diluent > pres_respiration)														// new in v.101+
−
  		pres_diluent = pres_respiration;															// new in v.101+
−
 	if (pres_diluent > 0.0627)																	// new in v.101+
−
 	{+
−
 		temp_atem = N2_ratio * (pres_diluent - 0.0627);											// changed in v.101+
−
 		temp2_atem = He_ratio * (pres_diluent - 0.0627);											// changed in v.101+
−
 		char_O_diluent = (char)(pres_diluent/pres_respiration*100.0);+
−
 	}+
−
 	else																						// new in v.101+
−
 	{+
−
 		temp_atem = 0.0;																			// new in v.101+
−
 		temp2_atem = 0.0;																			// new in v.101+
−
 		char_O_diluent = 0;+
−
 	}+
−
 	temp_surface = pres_surface;+
−
+
−
 	if(!char_I_step_is_1min)+
−
 		calc_tissue();+
−
 	else+
−
 		calc_tissue_step_1_min();+
−
+
−
 	int_O_gtissue_limit = (int)(pres_tissue_limit[char_O_gtissue_no] * 1000);+
−
	int_O_gtissue_press = (int)((pres_tissue[char_O_gtissue_no] + pres_tissue[char_O_gtissue_no+16]) * 1000);+
−
 	if (char_I_deco_model == 1)+
−
 	{+
−
		temp1 = temp1 * GF_high;+
−
 	}+
−
	else+
−
	{+
−
	temp1 = temp_surface;+
−
	}+
−
	if (pres_gtissue_limit > temp1 && char_O_deco_status == 0)  // if guiding tissue can not be exposed to surface pressure immediately+
−
 	{+
−
  		char_O_nullzeit = 0; // deco necessary+
−
  		char_O_deco_status = 255; // calculate deco skip nullzeit calculation+
−
 	}+
−
} 		// calc_hauptroutine_update_tissues+
−
void calc_hauptroutine_calc_deco(void)+
−
{+
−
 	do+
−
  	{+
−
  		int_temp_decostatus = 0;+
−
  		calc_nextdecodepth_GF();+
−
  		if (temp_depth_limit > 0)+
−
   		{+
−
  			calc_N2_ratio = N2_ratio;+
−
			calc_He_ratio = He_ratio;+
−
+
−
			if (char_I_const_ppO2 == 0)																// new in v.101+
−
	 		{+
−
     			deco_diluent = temp_deco;																// new in v.101+
−
+
−
  				if(deco_gas_change && (temp_deco < deco_gas_change))+
−
 	 			{+
−
	 				calc_N2_ratio = deco_N2_ratio;+
−
	 				calc_He_ratio = deco_He_ratio;+
−
	 			}+
−
  				if(deco_gas_change2 && (temp_deco < deco_gas_change2))+
−
 	 			{+
−
	 				calc_N2_ratio = deco_N2_ratio2;+
−
	 				calc_He_ratio = deco_He_ratio2;+
−
	 			}+
−
  				if(deco_gas_change3 && (temp_deco < deco_gas_change3))+
−
 	 			{+
−
	 				calc_N2_ratio = deco_N2_ratio3;+
−
	 				calc_He_ratio = deco_He_ratio3;+
−
	 			}+
−
  				if(deco_gas_change4 && (temp_deco < deco_gas_change4))+
−
 	 			{+
−
	 				calc_N2_ratio = deco_N2_ratio4;+
−
	 				calc_He_ratio = deco_He_ratio4;+
−
	 			}+
−
  				if(deco_gas_change5 && (temp_deco < deco_gas_change5))+
−
 	 			{+
−
	 				calc_N2_ratio = deco_N2_ratio5;+
−
	 				calc_He_ratio = deco_He_ratio5;+
−
	 			}+
−
	 		}+
−
    		else																					// new in v.101+
−
	 		{+
−
	 			if (temp_deco > deco_ppO2_change)+
−
				{+
−
      				deco_diluent = ((temp_deco - const_ppO2)/(N2_ratio + He_ratio));			// new in v.101+
−
				}+
−
	 			else+
−
				{+
−
      				deco_diluent = ((temp_deco - deco_ppO2)/(N2_ratio + He_ratio));			// new in v.101+
−
				}+
−
	 		}+
−
    		if (deco_diluent > temp_deco)															// new in v.101+
−
     			deco_diluent = temp_deco;																// new in v.101+
−
 			if (deco_diluent > 0.0627)																// new in v.101+
−
    		{+
−
     			temp_atem = calc_N2_ratio * (deco_diluent - 0.0627);										// changed in v.101+
−
				temp2_atem = calc_He_ratio * (deco_diluent - 0.0627);										// changed in v.101+
−
    		}+
−
    		else																					// new in v.101+
−
    		{+
−
     			temp_atem = 0.0;																		// new in v.101+
−
     			temp2_atem = 0.0;																		// new in v.101+
−
    		}+
−
   			sim_tissue_1min();+
−
			update_internal_deco_table_GF();+
−
   			temp_decotime = 1;+
−
   			update_decoarray();+
−
   			char_O_deco_status = char_O_deco_status + 1;+
−
   			if (char_O_deco_status < 16)+
−
     			int_temp_decostatus = 1;+
−
   		}+
−
  		else // if (temp_depth_limit > 0)+
−
		{+
−
   		char_O_deco_status = 0;+
−
		}+
−
	} while (int_temp_decostatus == 1);+
−
	if (char_O_deco_status > 15)+
−
	{+
−
   		char_O_deco_status = 1;+
−
	}+
−
  	else+
−
  	{+
−
		copy_deco_table_GF();+
−
		char_O_deco_status = 0;+
−
  	}+
−
}+
−
+
−
void calc_hauptroutine_calc_ascend_to_deco(void)+
−
{+
−
 	update_startvalues();+
−
 	char_O_deco_status = 0;+
−
   	temp_deco = pres_respiration;+
−
 	lock_GF_depth_list = 1; 																// new in v.102+
−
 	do								// go up to first deco+
−
  	{+
−
  		int_temp_decostatus = 0;+
−
  		temp_deco = temp_deco - 1.0;+
−
  		if ( char_I_deco_model == 1)																// new in v.102 , 4 = deep stops+
−
			temp_limit = temp_pres_gtissue_limit_GF_low;+
−
  		else+
−
			temp_limit = temp_pres_gtissue_limit;+
−
  		if ((temp_deco > temp_limit) && (temp_deco > pres_surface)) 								// changes in v.102+
−
   		{+
−
   			lock_GF_depth_list = 0; 																	// new in v.102, distance to first stop > 10 mtr.+
−
			output[6] = 0;+
−
	 		temp_deco += 0.5;+
−
+
−
	 		calc_N2_ratio = N2_ratio;+
−
			calc_He_ratio = He_ratio;+
−
+
−
			if (char_I_const_ppO2 == 0)																// new in v.101 // calculate at half of the ascent+
−
			{+
−
    			deco_diluent = temp_deco;															// new in v.101+
−
+
−
  				if(deco_gas_change && (temp_deco < deco_gas_change))+
−
 	 			{+
−
	 				calc_N2_ratio = deco_N2_ratio;+
−
	 				calc_He_ratio = deco_He_ratio;+
−
	 			}+
−
  				if(deco_gas_change2 && (temp_deco < deco_gas_change2))+
−
 	 			{+
−
	 				calc_N2_ratio = deco_N2_ratio2;+
−
	 				calc_He_ratio = deco_He_ratio2;+
−
	 			}+
−
  				if(deco_gas_change3 && (temp_deco < deco_gas_change3))+
−
 	 			{+
−
	 				calc_N2_ratio = deco_N2_ratio3;+
−
	 				calc_He_ratio = deco_He_ratio3;+
−
	 			}+
−
  				if(deco_gas_change4 && (temp_deco < deco_gas_change4))+
−
 	 			{+
−
	 				calc_N2_ratio = deco_N2_ratio4;+
−
	 				calc_He_ratio = deco_He_ratio4;+
−
	 			}+
−
  				if(deco_gas_change5 && (temp_deco < deco_gas_change5))+
−
 	 			{+
−
	 				calc_N2_ratio = deco_N2_ratio5;+
−
	 				calc_He_ratio = deco_He_ratio5;+
−
	 			}+
−
			}+
−
   			else																						// new in v.101+
−
			{+
−
					if (temp_deco > deco_ppO2_change)+
−
     					deco_diluent = ((temp_deco - const_ppO2)/(N2_ratio + He_ratio));	// new in v.101 // calculate at half of the ascent+
−
					else+
−
     					deco_diluent = ((temp_deco - deco_ppO2)/(N2_ratio + He_ratio));	// new in v.101 // calculate at half of the ascent+
−
    				if (deco_diluent > (temp_deco))															// new in v.101+
−
     					deco_diluent = temp_deco;															// new in v.101 // calculate at half of the ascent+
−
			}+
−
	 		temp_deco -= 0.5;+
−
   			if (deco_diluent > 0.0627)																// new in v.101+
−
    		{+
−
    			temp_atem = calc_N2_ratio * (deco_diluent - 0.0627);											// changed in v.101+
−
    			temp2_atem = calc_He_ratio * (deco_diluent - 0.0627);										// changed in v.101+
−
    		}+
−
   			else																						// new in v.101+
−
    		{+
−
    			temp_atem = 0.0;																		// new in v.101+
−
    			temp2_atem = 0.0;																		// new in v.101+
−
    		}+
−
   			sim_tissue_1min();+
−
   			char_O_deco_status = char_O_deco_status + 1;+
−
   			if (char_O_deco_status < 16)  // 16 is the limit of calculations for one time slot+
−
    			int_temp_decostatus = 1;+
−
   		}+
−
	} while (int_temp_decostatus == 1);+
−
}	// calc_hauptroutine_calc_ascend_to_deco+
−
+
−
// --------------+
−
// calc_tissue //+
−
// --------------+
−
// optimized in v.101+
−
+
−
void calc_tissue(void)+
−
{+
−
_asm+
−
lfsr 1, 0x300+
−
movlw	0x01+
−
movwf	TBLPTRU,0+
−
_endasm+
−
+
−
 char_O_gtissue_no = 255;+
−
 pres_gtissue_limit = 0.0;+
−
+
−
for (ci=0;ci<16;ci++)+
−
{+
−
_asm+
−
movlw	0x02+
−
movwf	TBLPTRH,0+
−
movlb	4 // fuer ci+
−
movf ci,0,1+
−
addwf	ci,0,1+
−
addwf	ci,0,1+
−
addwf	ci,0,1+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_e2secs+1 // the order is confussing+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_e2secs	// low byte first, high afterwards+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_e2secs+3+
−
TBLRD+
−
movff	TABLAT,var_e2secs+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_e2secs+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_e2secs+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_e2secs+3+
−
TBLRD+
−
movff	TABLAT,var2_e2secs+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+3+
−
TBLRD+
−
movff	TABLAT,var_a+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_a+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_a+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_a+3+
−
TBLRD+
−
movff	TABLAT,var2_a+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
incf	TBLPTRH,1,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+3+
−
TBLRD+
−
movff	TABLAT,var_b+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_b+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_b+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_b+3+
−
TBLRD+
−
movff	TABLAT,var2_b+2+
−
_endasm+
−
 // the start values are the previous end values // write new values in temp+
−
+
−
	if(	(var_e2secs < 0.0000363)+
−
		|| (var_e2secs > 0.00577)+
−
		|| (var2_e2secs < 0.0000961)+
−
		|| (var2_e2secs > 0.150)+
−
		|| (var_a < 0.231)+
−
		|| (var_a > 1.27)+
−
		|| (var_b < 0.504)+
−
		|| (var_b > 0.966)+
−
		|| (var2_a < 0.510)+
−
		|| (var2_a > 1.75)+
−
		|| (var2_b < 0.423)+
−
		|| (var2_b > 0.927)+
−
		)+
−
		int_O_DBG_pre_bitfield |= DBG_ZH16ERR;+
−
+
−
// N2+
−
 temp_tissue = (temp_atem - pres_tissue[ci]) * var_e2secs;+
−
 temp_tissue_safety();+
−
 pres_tissue[ci] = pres_tissue[ci] + temp_tissue;+
−
+
−
// He+
−
 temp_tissue = (temp2_atem - pres_tissue[ci+16]) * var2_e2secs;+
−
 temp_tissue_safety();+
−
 pres_tissue[ci+16] = pres_tissue[ci+16] + temp_tissue;+
−
+
−
 temp_tissue = pres_tissue[ci] + pres_tissue[ci+16];+
−
+
−
 var_a = (var_a * pres_tissue[ci] + var2_a * pres_tissue[ci+16]) / temp_tissue;+
−
 var_b = (var_b * pres_tissue[ci] + var2_b * pres_tissue[ci+16]) / temp_tissue;+
−
 pres_tissue_limit[ci] = (temp_tissue - var_a) * var_b;+
−
 if (pres_tissue_limit[ci] < 0)+
−
  pres_tissue_limit[ci] = 0;+
−
 if (pres_tissue_limit[ci] > pres_gtissue_limit)+
−
  {+
−
  pres_gtissue_limit = pres_tissue_limit[ci];+
−
  char_O_gtissue_no = ci;+
−
  }//if+
−
} // for+
−
}//calc_tissue(void)+
−
+
−
// ----------------+
−
// calc_nullzeit //+
−
// ----------------+
−
// calculates the remaining bottom time+
−
+
−
// unchanged in v.101+
−
+
−
void calc_nullzeit(void)+
−
{+
−
	char_O_nullzeit = 0;+
−
	int_temp = 1;+
−
 	do+
−
	{+
−
  		backup_sim_pres_tissue();+
−
  		sim_tissue_10min();+
−
  		char_O_nullzeit = char_O_nullzeit + 10;+
−
  		int_temp = int_temp + 1;+
−
		if (char_I_deco_model == 1)+
−
			temp1 = GF_high * temp_pres_gtissue_diff + temp_pres_gtissue;+
−
		else+
−
			temp1 = temp_pres_gtissue_limit;+
−
		if (temp1 > temp_surface)  // changed in v.102 , if guiding tissue can not be exposed to surface pressure immediately+
−
			int_temp = 255;+
−
 	} while (int_temp < 17);+
−
 	if (int_temp == 255)+
−
 	{+
−
  		restore_sim_pres_tissue();+
−
  		char_O_nullzeit = char_O_nullzeit - 10;+
−
 	} //if int_temp == 255]+
−
 	int_temp = 1;+
−
 	if (char_O_nullzeit < 60)+
−
 	{+
−
  		do+
−
		{+
−
   			sim_tissue_1min();+
−
   			char_O_nullzeit = char_O_nullzeit + 1;+
−
   			int_temp = int_temp + 1;			// new in v.102a+
−
		if (char_I_deco_model == 1)+
−
			temp1 = GF_high * temp_pres_gtissue_diff + temp_pres_gtissue;+
−
		else+
−
			temp1 = temp_pres_gtissue_limit;+
−
		if (temp1 > temp_surface)  // changed in v.102 , if guiding tissue can not be exposed to surface pressure immediately+
−
			int_temp = 255;+
−
  		} while (int_temp < 10);+
−
  		if (int_temp == 255)+
−
   			char_O_nullzeit = char_O_nullzeit - 1;+
−
 	} // if char_O_nullzeit < 60+
−
} //calc_nullzeit+
−
+
−
// -------------------------+
−
// backup_sim_pres_tissue //+
−
// -------------------------+
−
void backup_sim_pres_tissue(void)+
−
{+
−
  for (x = 0;x<16;x++)+
−
  {+
−
   sim_pres_tissue_backup[x] = sim_pres_tissue[x];+
−
   sim_pres_tissue_backup[x+16] = sim_pres_tissue[x+16];+
−
  }+
−
} // backup_sim+
−
+
−
// --------------------------+
−
// restore_sim_pres_tissue //+
−
// --------------------------+
−
void restore_sim_pres_tissue(void)+
−
{+
−
  for (x = 0;x<16;x++)+
−
  {+
−
   sim_pres_tissue[x] = sim_pres_tissue_backup[x];+
−
   sim_pres_tissue[x+16] = sim_pres_tissue_backup[x+16];+
−
  }+
−
} // restore_sim+
−
+
−
// ------------------+
−
// calc_ascenttime //+
−
// ------------------+
−
+
−
void calc_ascenttime(void)+
−
{+
−
if (pres_respiration > pres_surface)+
−
 {+
−
 switch (char_O_deco_status)+
−
  {+
−
  case 2:+
−
	char_O_ascenttime = 255;+
−
	break;+
−
  case 1:+
−
	break;+
−
  default:+
−
	temp1 = pres_respiration - pres_surface + 0.6; // + 0.6 hence 1 minute ascent time from a depth of 4 meter on+
−
	if (temp1 < 0)+
−
		temp1 = 0;+
−
	if (temp1 > 255)+
−
		temp1 = 255;+
−
    char_O_ascenttime = (char)temp1;+
−
+
−
	for(ci=0;ci<7;ci++)+
−
	{+
−
	x = char_O_ascenttime + char_O_array_decotime[ci];+
−
	if (x < char_O_ascenttime)+
−
		char_O_ascenttime = 255;+
−
	else+
−
		char_O_ascenttime = x;+
−
	}+
−
  }+
−
 }+
−
else+
−
 char_O_ascenttime = 0;+
−
} // calc_ascenttime()+
−
+
−
+
−
// ---------------------+
−
// update_startvalues //+
−
// ---------------------+
−
// updated in v.102+
−
+
−
void update_startvalues(void)+
−
{+
−
  	temp_pres_gtissue_limit = pres_gtissue_limit;+
−
  	temp_pres_gtissue = pres_tissue[char_O_gtissue_no] + pres_tissue[char_O_gtissue_no+16];+
−
  	temp_pres_gtissue_diff = temp_pres_gtissue_limit - temp_pres_gtissue;						// negative number+
−
	temp_pres_gtissue_limit_GF_low = GF_low * temp_pres_gtissue_diff + temp_pres_gtissue;+
−
  	temp_pres_gtissue_limit_GF_low_below_surface = temp_pres_gtissue_limit_GF_low - pres_surface;+
−
	if (temp_pres_gtissue_limit_GF_low_below_surface < 0)+
−
		temp_pres_gtissue_limit_GF_low_below_surface = 0;+
−
+
−
	temp_gtissue_no = char_O_gtissue_no;+
−
  	for (x = 0;x<16;x++)+
−
  	{+
−
   		sim_pres_tissue[x] = pres_tissue[x];+
−
   		sim_pres_tissue[x+16] = pres_tissue[x+16];+
−
   		sim_pres_tissue_limit[x] = pres_tissue_limit[x];+
−
  	}+
−
} // update_startvalues+
−
+
−
+
−
// ------------------+
−
// sim_tissue_1min //+
−
// ------------------+
−
// optimized in v.101+
−
+
−
void sim_tissue_1min(void)+
−
{+
−
temp_pres_gtissue_limit = 0.0;+
−
temp_gtissue_no = 255;+
−
+
−
_asm+
−
lfsr 1, 0x300+
−
movlw	0x01+
−
movwf	TBLPTRU,0+
−
_endasm+
−
+
−
+
−
for (ci=0;ci<16;ci++)+
−
{+
−
_asm+
−
movlw	0x02+
−
movwf	TBLPTRH,0+
−
movlb	4 // fuer ci+
−
movf ci,0,1+
−
addwf	ci,0,1+
−
addwf	ci,0,1+
−
addwf	ci,0,1+
−
addlw	0x80+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+3+
−
TBLRD+
−
movff	TABLAT,var_a+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_a+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_a+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_a+3+
−
TBLRD+
−
movff	TABLAT,var2_a+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
incf	TBLPTRH,1,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+3+
−
TBLRD+
−
movff	TABLAT,var_b+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_b+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_b+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_b+3+
−
TBLRD+
−
movff	TABLAT,var2_b+2+
−
addlw	0xC0+
−
movwf	TBLPTRL,0+
−
incf	TBLPTRH,1,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_e1min+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_e1min+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_e1min+3+
−
TBLRD+
−
movff	TABLAT,var_e1min+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_e1min+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_e1min+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_e1min+3+
−
TBLRD+
−
movff	TABLAT,var2_e1min+2+
−
_endasm+
−
// N2+
−
 temp_tissue = (temp_atem - sim_pres_tissue[ci]) * var_e1min;+
−
 temp_tissue_safety();+
−
 sim_pres_tissue[ci] = sim_pres_tissue[ci] + temp_tissue;+
−
// He+
−
 temp_tissue = (temp2_atem - sim_pres_tissue[ci+16]) * var2_e1min;+
−
 temp_tissue_safety();+
−
 sim_pres_tissue[ci+16] = sim_pres_tissue[ci+16] + temp_tissue;+
−
// pressure limit+
−
 temp_tissue = sim_pres_tissue[ci] + sim_pres_tissue[ci+16];+
−
 var_a = (var_a * sim_pres_tissue[ci] + var2_a * sim_pres_tissue[ci+16]) / temp_tissue;+
−
 var_b = (var_b * sim_pres_tissue[ci] + var2_b * sim_pres_tissue[ci+16]) / temp_tissue;+
−
 sim_pres_tissue_limit[ci] = (temp_tissue - var_a) * var_b;+
−
+
−
 if (sim_pres_tissue_limit[ci] < 0)+
−
  sim_pres_tissue_limit[ci] = 0;+
−
 if (sim_pres_tissue_limit[ci] > temp_pres_gtissue_limit)+
−
  {+
−
  temp_pres_gtissue = temp_tissue;+
−
  temp_pres_gtissue_limit = sim_pres_tissue_limit[ci];+
−
  temp_gtissue_no = ci;+
−
  }+
−
} // for+
−
  	temp_pres_gtissue_diff = temp_pres_gtissue_limit - temp_pres_gtissue;+
−
	temp_pres_gtissue_limit_GF_low = GF_low * temp_pres_gtissue_diff + temp_pres_gtissue;+
−
  	temp_pres_gtissue_limit_GF_low_below_surface = temp_pres_gtissue_limit_GF_low - pres_surface;+
−
	if (temp_pres_gtissue_limit_GF_low_below_surface < 0)+
−
		temp_pres_gtissue_limit_GF_low_below_surface = 0;+
−
} //sim_tissue_1min()+
−
+
−
//--------------------+
−
// sim_tissue_10min //+
−
//--------------------+
−
+
−
// Attention!! uses var_e1min und var2_e1min to load 10min data !!!+
−
// is identical to sim_tissue_1min routine except for the different load of those variables+
−
+
−
// optimized in v.101+
−
+
−
void sim_tissue_10min(void)+
−
{+
−
temp_pres_gtissue_limit = 0.0;+
−
temp_gtissue_no = 255;+
−
+
−
_asm+
−
lfsr 1, 0x300+
−
movlw	0x01+
−
movwf	TBLPTRU,0+
−
_endasm+
−
+
−
for (ci=0;ci<16;ci++)+
−
{+
−
_asm+
−
movlw	0x02+
−
movwf	TBLPTRH,0+
−
movlb	4 // fuer ci+
−
movf ci,0,1+
−
addwf	ci,0,1+
−
addwf	ci,0,1+
−
addwf	ci,0,1+
−
addlw	0x80+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+3+
−
TBLRD+
−
movff	TABLAT,var_a+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_a+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_a+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_a+3+
−
TBLRD+
−
movff	TABLAT,var2_a+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
incf	TBLPTRH,1,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+3+
−
TBLRD+
−
movff	TABLAT,var_b+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_b+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_b+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_b+3+
−
TBLRD+
−
movff	TABLAT,var2_b+2+
−
addlw	0xC0				// different to 1 min+
−
movwf	TBLPTRL,0+
−
incf	TBLPTRH,1,0+
−
incf	TBLPTRH,1,0			// different to 1 min+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_e1min+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_e1min+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_e1min+3+
−
TBLRD+
−
movff	TABLAT,var_e1min+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
//incf	TBLPTRH,1,0			// different to 1 min+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_e1min+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_e1min+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_e1min+3+
−
TBLRD+
−
movff	TABLAT,var2_e1min+2+
−
_endasm+
−
// N2+
−
 temp_tissue = (temp_atem - sim_pres_tissue[ci]) * var_e1min;+
−
 temp_tissue_safety();+
−
 sim_pres_tissue[ci] = sim_pres_tissue[ci] + temp_tissue;+
−
// He+
−
 temp_tissue = (temp2_atem - sim_pres_tissue[ci+16]) * var2_e1min;+
−
 temp_tissue_safety();+
−
 sim_pres_tissue[ci+16] = sim_pres_tissue[ci+16] + temp_tissue;+
−
// pressure limit+
−
temp_tissue = sim_pres_tissue[ci] + sim_pres_tissue[ci+16];+
−
 var_a = (var_a * sim_pres_tissue[ci] + var2_a * sim_pres_tissue[ci+16]) / temp_tissue;+
−
 var_b = (var_b * sim_pres_tissue[ci] + var2_b * sim_pres_tissue[ci+16]) / temp_tissue;+
−
+
−
sim_pres_tissue_limit[ci] = (temp_tissue - var_a) * var_b;+
−
 if (sim_pres_tissue_limit[ci] < 0)+
−
  sim_pres_tissue_limit[ci] = 0;+
−
 if (sim_pres_tissue_limit[ci] > temp_pres_gtissue_limit)+
−
  {+
−
  temp_pres_gtissue = temp_tissue;+
−
  temp_pres_gtissue_limit = sim_pres_tissue_limit[ci];+
−
  temp_gtissue_no = ci;+
−
  }+
−
} // for+
−
  	temp_pres_gtissue_diff = temp_pres_gtissue_limit - temp_pres_gtissue;							// negative number+
−
	temp_pres_gtissue_limit_GF_low = GF_low * temp_pres_gtissue_diff + temp_pres_gtissue;+
−
  	temp_pres_gtissue_limit_GF_low_below_surface = temp_pres_gtissue_limit_GF_low - pres_surface;+
−
	if (temp_pres_gtissue_limit_GF_low_below_surface < 0)+
−
		temp_pres_gtissue_limit_GF_low_below_surface = 0;+
−
} //sim_tissue_10min()+
−
+
−
+
−
// ------------------+
−
// clear_decoarray //+
−
// ------------------+
−
// unchanged in v.101+
−
+
−
void clear_decoarray(void)+
−
{+
−
char_O_array_decodepth[0] = 0;+
−
char_O_array_decodepth[1] = 0;+
−
char_O_array_decodepth[2] = 0;+
−
char_O_array_decodepth[3] = 0;+
−
char_O_array_decodepth[4] = 0;+
−
char_O_array_decodepth[5] = 0;+
−
char_O_array_decotime[0] = 0;+
−
char_O_array_decotime[1] = 0;+
−
char_O_array_decotime[2] = 0;+
−
char_O_array_decotime[3] = 0;+
−
char_O_array_decotime[4] = 0;+
−
char_O_array_decotime[5] = 0;+
−
char_O_array_decotime[6] = 0;+
−
} // clear_decoarray+
−
+
−
+
−
// -------------------+
−
// update_decoarray //+
−
// -------------------+
−
// unchanged in v.101+
−
+
−
void update_decoarray()+
−
{+
−
	x = 0;+
−
	do+
−
	{+
−
		if (char_O_array_decodepth[x] == temp_depth_limit)+
−
		{+
−
			int_temp = char_O_array_decotime[x] + temp_decotime;+
−
			if (int_temp < 0)+
−
				int_temp = 0;+
−
			if (int_temp > 240)+
−
				int_temp = 240;+
−
 			char_O_array_decotime[x] = int_temp;+
−
			x = 10; // exit+
−
		} // if+
−
		else+
−
 		{+
−
 			if (char_O_array_decodepth[x] == 0)+
−
  			{+
−
  				if (temp_depth_limit > 255)+
−
   					char_O_array_decodepth[x] = 255;+
−
  				else+
−
   					char_O_array_decodepth[x] = (char)temp_depth_limit;+
−
  				int_temp = char_O_array_decotime[x] + temp_decotime;+
−
  				if (int_temp > 240)+
−
   					char_O_array_decotime[x] = 240;+
−
  				else+
−
   					char_O_array_decotime[x] = (char)int_temp;+
−
  				x = 10; // exit+
−
  			} // if+
−
 			else+
−
  				x++;+
−
 		} // else+
−
	} while (x<6);+
−
	if (x == 6)+
−
 	{+
−
 		int_temp = char_O_array_decotime[6] + temp_decotime;+
−
 		if (int_temp > 220)+
−
  			char_O_array_decotime[6] = 220;+
−
 		else+
−
  			char_O_array_decotime[6] = (char)int_temp;+
−
 	} // if x == 6+
−
} // update_decoarray+
−
+
−
+
−
// -----------------------+
−
// calc_gradient_factor //+
−
// -----------------------+
−
// optimized in v.101 (var_a)+
−
// new code in v.102+
−
+
−
void calc_gradient_factor(void)+
−
{+
−
	// tissue > respiration (entsaettigungsvorgang)+
−
	// gradient ist wieviel prozent an limit mit basis tissue+
−
	// dh. 0% = respiration == tissue+
−
	// dh. 100% = respiration == limit+
−
	temp_tissue = pres_tissue[char_O_gtissue_no] + pres_tissue[char_O_gtissue_no+16];+
−
	temp1 = temp_tissue - pres_respiration;+
−
	temp2 = temp_tissue - pres_tissue_limit[char_O_gtissue_no];	// changed in v.102+
−
	temp2 = temp1/temp2;+
−
	temp2 = temp2 * 100; // displayed in percent+
−
	if (temp2 < 0)+
−
		temp2 = 0;+
−
	if (temp2 > 255)+
−
		temp2 = 255;+
−
	if (temp1 < 0)+
−
 		char_O_gradient_factor = 0;+
−
	else+
−
 		char_O_gradient_factor = (char)temp2;+
−
+
−
	temp3 = temp2;+
−
+
−
	if (char_I_deco_model == 1)		// calculate relative gradient factor+
−
	{+
−
		temp1 = (float)temp_depth_GF_low_meter * 0.09995;+
−
		temp2 = pres_respiration - pres_surface;+
−
		if (temp2 <= 0)+
−
			temp1 = GF_high;+
−
		else+
−
		if (temp2 >= temp1)+
−
			temp1 = GF_low;+
−
		else+
−
			temp1 = GF_low + (temp1 - temp2)/temp1*GF_delta;+
−
		if (temp_depth_GF_low_meter == 0)+
−
			temp1 = GF_high;+
−
		temp2 = temp3 / temp1; // temp3 is already in percent+
−
		if (temp2 < 0)+
−
			temp2 = 0;+
−
		if (temp2 > 255)+
−
			temp2 = 255;+
−
		char_O_relative_gradient_GF  = (char)temp2;+
−
	}	// calc relative gradient factor+
−
	else+
−
	{+
−
 			char_O_relative_gradient_GF = char_O_gradient_factor;+
−
	}+
−
} // calc_gradient+
−
+
−
// ---------------------------+
−
// calc_gradient_array_only //+
−
// ---------------------------+
−
// optimized in v.101 (var_a)+
−
// new code in v.102+
−
+
−
void calc_gradient_array_only()+
−
{+
−
 pres_respiration = (float)int_I_pres_respiration / 1000.0; // assembler code uses different digit system+
−
for (ci=0;ci<16;ci++)+
−
{+
−
	temp_tissue = pres_tissue[ci] + pres_tissue[ci+16];+
−
	temp1 = temp_tissue - pres_respiration;+
−
	temp2 = temp_tissue - pres_tissue_limit[ci];+
−
	temp2 = temp1/temp2;+
−
	temp2 = temp2 * 200; // because of output in (Double-)percentage+
−
	if (temp2 < 0)+
−
		temp2 = 0;+
−
	if (temp2 > 255)+
−
		temp2 = 255;+
−
	if (temp1 < 0)+
−
 		char_O_array_gradient_weighted[ci] = 0;+
−
	else+
−
 		char_O_array_gradient_weighted[ci] = (char)temp2;+
−
} // for+
−
} // calc_gradient_array_only+
−
+
−
+
−
// -------------------------+
−
// calc_desaturation_time //+
−
// -------------------------+
−
// FIXED N2_ratio+
−
// unchanged in v.101+
−
+
−
void calc_desaturation_time(void)+
−
{+
−
_asm+
−
lfsr 1, 0x300+
−
movlw	0x01+
−
movwf	TBLPTRU,0+
−
_endasm+
−
 N2_ratio = 0.7902; // FIXED sum as stated in b"uhlmann+
−
 pres_surface = (float)int_I_pres_surface / 1000.0;+
−
 temp_atem = N2_ratio * (pres_surface - 0.0627);+
−
 int_O_desaturation_time = 0;+
−
 float_desaturation_multiplier = char_I_desaturation_multiplier / 142.0; // new in v.101	(70,42%/100.=142)+
−
+
−
for (ci=0;ci<16;ci++)+
−
{+
−
_asm+
−
movlw	0x04+
−
movwf	TBLPTRH,0+
−
movlb	4 // fuer ci+
−
movf ci,0,1+
−
addwf	ci,0,1+
−
addwf	ci,0,1+
−
addwf	ci,0,1+
−
addlw	0x80+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_halftimes+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_halftimes+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_halftimes+3+
−
TBLRD+
−
movff	TABLAT,var_halftimes+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_halftimes+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_halftimes+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_halftimes+3+
−
TBLRD+
−
movff	TABLAT,var2_halftimes+2+
−
_endasm+
−
+
−
// saturation_time (for flight) and N2_saturation in multiples of halftime+
−
// version v.100: 1.1 = 10 percent distance to totally clean (totally clean is not possible, would take infinite time )+
−
// new in version v.101: 1.07 = 7 percent distance to totally clean (totally clean is not possible, would take infinite time )+
−
// changes in v.101: 1.05 = 5 percent dist to totally clean is new desaturation point for display and noFly calculations+
−
// N2+
−
 temp1 = 1.05 * temp_atem;+
−
 temp1 = temp1 - pres_tissue[ci];+
−
 temp2 = temp_atem - pres_tissue[ci];+
−
  if (temp2 >= 0.0)+
−
	{+
−
	temp1 = 0;+
−
	temp2 = 0;+
−
	}+
−
 else+
−
    temp1 = temp1 / temp2;+
−
  if (temp1 > 0.0)+
−
	{+
−
	temp1 = log(1.0 - temp1);+
−
	temp1 = temp1 / -0.6931; // temp1 is the multiples of half times necessary.+
−
							 // 0.6931 is ln(2), because the math function log() calculates with a base of e not 2 as requested.+
−
							 // minus because log is negative+
−
	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+
−
	}+
−
 else+
−
	{+
−
	temp1 = 0;+
−
	temp2 = 0;+
−
	}+
−
+
−
// He+
−
 temp3 = 0.1 - pres_tissue[ci+16];+
−
if (temp3 >= 0.0)+
−
	{+
−
	temp3 = 0;+
−
	temp4 = 0;+
−
	}+
−
 else+
−
    temp3 = -1.0 * temp3 / pres_tissue[ci+16];+
−
  if (temp3 > 0.0)+
−
	{+
−
	temp3 = log(1.0 - temp3);+
−
	temp3 = temp3 / -0.6931; // temp1 is the multiples of half times necessary.+
−
							 // 0.6931 is ln(2), because the math function log() calculates with a base of e  not 2 as requested.+
−
							 // minus because log is negative+
−
	temp4 = var2_halftimes * temp3 / float_desaturation_multiplier; // time necessary (in minutes ) for "complete" desaturation, new in v.101 float_desaturation_multiplier+
−
	}+
−
 else+
−
	{+
−
	temp3 = 0;+
−
	temp4 = 0;+
−
	}+
−
+
−
// saturation_time (for flight)+
−
 if (temp4 > temp2)+
−
	 int_temp = (int)temp4;+
−
 else+
−
	 int_temp = (int)temp2;+
−
 if(int_temp > int_O_desaturation_time)+
−
	int_O_desaturation_time = int_temp;+
−
+
−
// N2 saturation in multiples of halftime for display purposes+
−
 temp2 = temp1 * 20.0;  // 0 = 1/8, 120 = 0, 249 = 8+
−
 temp2 = temp2 + 80.0; // set center+
−
 if (temp2 < 0.0)+
−
	 temp2 = 0.0;+
−
 if (temp2 > 255.0)+
−
 	 temp2 = 255.0;+
−
 char_O_tissue_saturation[ci] = (char)temp2;+
−
// He saturation in multiples of halftime for display purposes+
−
 temp4 = temp3 * 20.0;  // 0 = 1/8, 120 = 0, 249 = 8+
−
 temp4 = temp4 + 80.0; // set center+
−
 if (temp4 < 0.0)+
−
	 temp4 = 0.0;+
−
 if (temp4 > 255.0)+
−
 	 temp4 = 255.0;+
−
 char_O_tissue_saturation[ci+16] = (char)temp4;+
−
} // for+
−
} // calc_desaturation_time+
−
+
−
+
−
// --------------------------+
−
// calc_wo_deco_step_1_min //+
−
// --------------------------+
−
// FIXED N2 Ratio+
−
// optimized in v.101 (...saturation_multiplier)+
−
// desaturation slowed down to 70,42%+
−
+
−
void calc_wo_deco_step_1_min(void)+
−
{+
−
	if(flag_in_divemode)+
−
	{+
−
		flag_in_divemode = 0;+
−
		set_dbg_end_of_dive();+
−
	}+
−
_asm+
−
 lfsr 1, 0x300+
−
_endasm+
−
 N2_ratio = 0.7902; // FIXED, sum lt. buehlmann+
−
 pres_respiration = (float)int_I_pres_respiration / 1000.0; // assembler code uses different digit system+
−
 pres_surface = (float)int_I_pres_surface / 1000.0;+
−
 temp_atem = N2_ratio * (pres_respiration - 0.0627); // 0.0627 is the extra pressure in the body+
−
 temp2_atem = 0.0;+
−
 temp_surface = pres_surface; // the b"uhlmann formula using temp_surface does not use the N2_ratio+
−
 float_desaturation_multiplier = char_I_desaturation_multiplier / 142.0; // new in v.101	(70,42%/100.=142)+
−
 float_saturation_multiplier = char_I_saturation_multiplier / 100.0;+
−
+
−
 calc_tissue_step_1_min();  // update the pressure in the 16 tissues in accordance with the new ambient pressure+
−
 clear_decoarray();+
−
 char_O_deco_status = 0;+
−
 char_O_nullzeit = 0;+
−
 char_O_ascenttime = 0;+
−
 calc_gradient_factor();+
−
+
−
} // calc_wo_deco_step_1_min(void)+
−
+
−
+
−
// -------------------------+
−
// calc_tissue_step_1_min //+
−
// -------------------------+
−
// optimized in v.101+
−
+
−
void calc_tissue_step_1_min(void)+
−
{+
−
_asm+
−
lfsr 1, 0x300+
−
movlw	0x01+
−
movwf	TBLPTRU,0+
−
_endasm+
−
+
−
 char_O_gtissue_no = 255;+
−
 pres_gtissue_limit = 0.0;+
−
+
−
for (ci=0;ci<16;ci++)+
−
{+
−
_asm+
−
movlw	0x02+
−
movwf	TBLPTRH,0+
−
movlb	4 // fuer ci+
−
movf ci,0,1+
−
addwf	ci,0,1+
−
addwf	ci,0,1+
−
addwf	ci,0,1+
−
addlw	0x80+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_a+3+
−
TBLRD+
−
movff	TABLAT,var_a+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_a+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_a+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_a+3+
−
TBLRD+
−
movff	TABLAT,var2_a+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
incf	TBLPTRH,1,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_b+3+
−
TBLRD+
−
movff	TABLAT,var_b+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_b+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_b+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_b+3+
−
TBLRD+
−
movff	TABLAT,var2_b+2+
−
addlw	0xC0+
−
movwf	TBLPTRL,0+
−
incf	TBLPTRH,1,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_e1min+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_e1min+
−
TBLRDPOSTINC+
−
movff	TABLAT,var_e1min+3+
−
TBLRD+
−
movff	TABLAT,var_e1min+2+
−
addlw	0x40+
−
movwf	TBLPTRL,0+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_e1min+1+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_e1min+
−
TBLRDPOSTINC+
−
movff	TABLAT,var2_e1min+3+
−
TBLRD+
−
movff	TABLAT,var2_e1min+2+
−
_endasm+
−
+
−
// N2 1 min+
−
 temp_tissue = (temp_atem - pres_tissue[ci]) * var_e1min;+
−
 temp_tissue_safety();+
−
 pres_tissue[ci] = pres_tissue[ci] + temp_tissue;+
−
+
−
// He 1 min+
−
 temp_tissue = (temp2_atem - pres_tissue[ci+16]) * var2_e1min;+
−
 temp_tissue_safety();+
−
 pres_tissue[ci+16] = pres_tissue[ci+16] + temp_tissue;+
−
+
−
 temp_tissue = pres_tissue[ci] + pres_tissue[ci+16];+
−
 var_a = (var_a * pres_tissue[ci] + var2_a * pres_tissue[ci+16]) / temp_tissue;+
−
 var_b = (var_b * pres_tissue[ci] + var2_b * pres_tissue[ci+16]) / temp_tissue;+
−
 pres_tissue_limit[ci] = (temp_tissue - var_a) * var_b;+
−
 if (pres_tissue_limit[ci] < 0)+
−
  pres_tissue_limit[ci] = 0;+
−
 if (pres_tissue_limit[ci] > pres_gtissue_limit)+
−
  {+
−
  pres_gtissue_limit = pres_tissue_limit[ci];+
−
  char_O_gtissue_no = ci;+
−
  }//if+
−
+
−
 if(!char_I_step_is_1min)+
−
 {+
−
	 // gradient factor array for graphical display+
−
	 // display range is 0 to 250! in steps of 5 for 1 pixel+
−
	 // the display is divided in 6 blocks+
−
	 // -> double the gradient 100% = 200+
−
	 // tissue > respiration (entsaettigungsvorgang)+
−
	 // gradient ist wieviel prozent an limit von tissue aus+
−
	 // dh. 0% = respiration == tissue+
−
	 // dh. 100% = respiration == limit+
−
	 temp1 = temp_tissue - pres_respiration;+
−
	 temp2 = temp_tissue - pres_tissue_limit[ci];	// changed in v.102+
−
	 temp2 = temp1/temp2;+
−
	 temp2 = temp2 * 200; // because of output in (Double-)percentage+
−
	 if (temp2 < 0)+
−
	 	temp2 = 0;+
−
	 if (temp2 > 255)+
−
	 	temp2 = 255;+
−
	 if (temp1 < 0)+
−
	  char_O_array_gradient_weighted[ci] = 0;+
−
	 else+
−
	  char_O_array_gradient_weighted[ci] = (char)temp2;+
−
 }+
−
} // for+
−
} // calc wo deco 1min+
−
+
−
#if 0+
−
// --------+
−
// debug //+
−
// --------+
−
void debug(void)+
−
{+
−
for (ci=0;ci<32;ci++)+
−
{+
−
 int_O_tissue_for_debug[ci] = (unsigned int)(pres_tissue[ci] *1000);+
−
}+
−
} // void debug(void)+
−
#endif+
−
+
−
// ----------+
−
// md hash //+
−
// ----------+
−
void hash(void)+
−
{+
−
// init+
−
 for (md_i=0;md_i<16;md_i++)+
−
 {+
−
  md_state[md_i] = 0;+
−
  md_cksum[md_i] = 0;+
−
 } // for md_i 16+
−
+
−
_asm+
−
 movlw	0x01+
−
 movwf	TBLPTRU,0+
−
 movlw	0x06+
−
 movwf	TBLPTRH,0+
−
 movlw	0x00+
−
 movwf	TBLPTRL,0+
−
_endasm;+
−
 for (md_i=0;md_i<127;md_i++)+
−
 {+
−
_asm+
−
 TBLRDPOSTINC+
−
 movff	TABLAT,md_temp+
−
_endasm+
−
  md_pi_subst[md_i] = md_temp;+
−
 } // for md_i 256+
−
_asm+
−
 TBLRDPOSTINC+
−
 movff	TABLAT,md_temp+
−
_endasm;+
−
  md_pi_subst[127] = md_temp;+
−
 for (md_i=0;md_i<127;md_i++)+
−
 {+
−
_asm+
−
 TBLRDPOSTINC+
−
 movff	TABLAT,md_temp+
−
_endasm+
−
  md_pi_subst[md_i+128] = md_temp;+
−
 } // for md_i 256+
−
_asm+
−
 TBLRD+
−
 movff	TABLAT,md_temp+
−
_endasm+
−
  md_pi_subst[255] = md_temp;+
−
+
−
_asm+
−
 movlw	0x00+
−
 movwf	TBLPTRU,0+
−
 movlw	0x00+
−
 movwf	TBLPTRH,0+
−
 movlw	0x00+
−
 movwf	TBLPTRL,0+
−
_endasm+
−
// cycle buffers+
−
for (md_pointer=0x0000;md_pointer<0x17f3;md_pointer++)+
−
{+
−
 md_t = 0;+
−
 for (md_i=0;md_i<16;md_i++)+
−
 {+
−
  if(md_pointer == 9)+
−
   md_temp = md_cksum[md_i];+
−
  else+
−
  {+
−
_asm+
−
  TBLRDPOSTINC+
−
  movff	TABLAT,md_temp+
−
_endasm+
−
  } // else+
−
  md_buffer[md_i] = md_temp;+
−
  md_state[md_i+16] = md_buffer[md_i];+
−
  md_state[md_i+32] = (unsigned char)(md_buffer[md_i] ^ md_state[md_i]);+
−
 } // for md_i 16+
−
+
−
 for (md_i=0;md_i<18;md_i++)+
−
 {+
−
  for (md_j=0;md_j<48;md_j++)+
−
  {+
−
   md_state[md_j] = (unsigned char)(md_state[md_j] ^ md_pi_subst[md_t]);+
−
   md_t = md_state[md_j];+
−
  } // for md_j 48+
−
  md_t = (unsigned char)(md_t+1);+
−
 } // for md_i 18+
−
 md_t = md_cksum[15];+
−
+
−
 for (md_i=0;md_i<16;md_i++)+
−
 {+
−
  md_cksum[md_i] = (unsigned char)(md_cksum[md_i] ^ md_pi_subst[(md_buffer[md_i] ^ md_t)]);+
−
  md_t = md_cksum[md_i];+
−
 } // for md_i 16+
−
} // for md_pointer+
−
} // void hash(void)+
−
+
−
// ---------------------+
−
// clear_CNS_fraction //+
−
// ---------------------+
−
// new in v.101+
−
+
−
void clear_CNS_fraction(void)+
−
{+
−
 CNS_fraction = 0.0;+
−
 char_O_CNS_fraction = 0;+
−
} // void clear_CNS_fraction(void)+
−
+
−
+
−
// --------------------+
−
// calc_CNS_fraction //+
−
// --------------------+
−
// new in v.101+
−
// optimized in v.102 : with new variables char_I_actual_ppO2 and actual_ppO2+
−
+
−
// Input: char_I_actual_ppO2+
−
// Output: char_O_CNS_fraction+
−
// Uses and Updates: CNS_fraction+
−
// Uses: acutal_ppO2+
−
+
−
void calc_CNS_fraction(void)+
−
{+
−
 actual_ppO2 = (float)char_I_actual_ppO2 / 100.0;+
−
+
−
 if (char_I_actual_ppO2 < 50)+
−
  CNS_fraction = CNS_fraction;// no changes+
−
 else if (char_I_actual_ppO2 < 60)+
−
  CNS_fraction = 1/(-54000.0 * actual_ppO2 + 54000.0) + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 70)+
−
  CNS_fraction = 1/(-45000.0 * actual_ppO2 + 48600.0) + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 80)+
−
  CNS_fraction = 1/(-36000.0 * actual_ppO2 + 42300.0) + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 90)+
−
  CNS_fraction = 1/(-27000.0 * actual_ppO2 + 35100.0) + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 110)+
−
  CNS_fraction = 1/(-18000.0 * actual_ppO2 + 27000.0) + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 150)+
−
  CNS_fraction = 1/(-9000.0 * actual_ppO2 + 17100.0) + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 160)+
−
  CNS_fraction = 1/(-22500.0 * actual_ppO2 + 37350.0) + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 165)+
−
  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+
−
 else if (char_I_actual_ppO2 < 170)+
−
  CNS_fraction =  0.00102 + CNS_fraction; // example calculation: Sqrt((1.7/1.55)^20)*0.000404+
−
 else if (char_I_actual_ppO2 < 175)+
−
  CNS_fraction =  0.00136 + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 180)+
−
  CNS_fraction =  0.00180 + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 185)+
−
  CNS_fraction =  0.00237 + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 190)+
−
  CNS_fraction =  0.00310 + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 195)+
−
  CNS_fraction =  0.00401 + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 200)+
−
  CNS_fraction =  0.00517 + CNS_fraction;+
−
 else if (char_I_actual_ppO2 < 230)+
−
  CNS_fraction =  0.0209 + CNS_fraction;+
−
 else+
−
  CNS_fraction =  0.0482 + CNS_fraction; // value for 2.5+
−
+
−
 if (CNS_fraction > 2.5)+
−
  CNS_fraction = 2.5;+
−
 if (CNS_fraction < 0.0)+
−
  CNS_fraction = 0.0;+
−
 char_O_CNS_fraction = (char)((CNS_fraction + 0.005)* 100.0);+
−
} // void calc_CNS_fraction(void)+
−
+
−
// --------------------------+
−
// calc_CNS_decrease_15min //+
−
// --------------------------+
−
// new in v.101+
−
+
−
// calculates the half time of 90 minutes in 6 steps of 15 min+
−
+
−
// Output: char_O_CNS_fraction+
−
// Uses and Updates: CNS_fraction+
−
+
−
void calc_CNS_decrease_15min(void)+
−
{+
−
 CNS_fraction =  0.890899 * CNS_fraction;+
−
 char_O_CNS_fraction = (char)((CNS_fraction + 0.005)* 100.0);+
−
}// calc_CNS_decrease_15min(void)+
−
+
−
+
−
// ------------------+
−
// calc_percentage //+
−
// ------------------+
−
// new in v.101+
−
+
−
// calculates int_I_temp * char_I_temp / 100+
−
// output is int_I_temp+
−
+
−
void calc_percentage(void)+
−
{+
−
 temp1 = (float)int_I_temp;+
−
 temp2 = (float)char_I_temp / 100.0;+
−
 temp3 = temp1 * temp2;+
−
 int_I_temp = (int)temp3;+
−
}+
−
void push_tissues_to_vault(void)+
−
{+
−
	cns_vault = CNS_fraction;+
−
	for (ci=0;ci<32;ci++)+
−
		pres_tissue_vault[ci] = pres_tissue[ci];+
−
}+
−
void pull_tissues_from_vault(void)+
−
{+
−
	CNS_fraction = cns_vault;+
−
	for (ci=0;ci<32;ci++)+
−
		pres_tissue[ci] = pres_tissue_vault[ci];+
−
}+
−
+
−