Mercurial > public > mk2

changeset 593:46e9ccd0eca7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
pSCR CNS in simulator
author heinrichsweikamp
date Mon, 28 May 2012 18:02:07 +0200
parents cda5b45b953f
children 6520bcda1a00
files code_part1/OSTC_code_asm_part1/divemode.asm code_part1/OSTC_code_asm_part1/simulator.asm
diffstat 2 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/code_part1/OSTC_code_asm_part1/divemode.asm	Mon May 28 17:54:43 2012 +0200
+++ b/code_part1/OSTC_code_asm_part1/divemode.asm	Mon May 28 18:02:07 2012 +0200
@@ -285,7 +285,7 @@
 	bra			calc_deko_divemode1a
 	; in PSCR mode
 	call		compute_pscr_ppo2		; pSCR ppO2 into sub_c:2
-;    tstfsz      sub_c+1                 ; Is ppO2 > 2.55bar ?
+;    tstfsz      sub_c+1                 ; Is ppO2 > 2.55bar ? mH
 ;    setf        sub_c+0                 ; yes: bound to 2.55... better than wrap around.
     movff		sub_c+0,char_I_actual_ppO2	; copy last ppO2 to buffer register
 
--- a/code_part1/OSTC_code_asm_part1/simulator.asm	Mon May 28 17:54:43 2012 +0200
+++ b/code_part1/OSTC_code_asm_part1/simulator.asm	Mon May 28 18:02:07 2012 +0200
@@ -383,7 +383,7 @@
 	call	divemode_check_decogases    ; Checks for decogases and sets the gases
 	call	divemode_prepare_flags_for_deco
 	call    set_first_gas               ; Set current N2/He/O2 ratios.
-    call    set_actual_ppo2             ; Then configure char_I_actual_ppO2
+    call    set_actual_ppo2             ; Then configure char_I_actual_ppO2 (For CNS)
 
 	read_int_eeprom d'34'				; Read deco data
 	movlw		.6	
@@ -391,6 +391,10 @@
 	bra			simulator_calc_deco1
 	; in PSCR mode, compute fO2 into char_I_O2_ratio
 	call		compute_pscr_ppo2		; pSCR ppO2 into sub_c:2
+;    tstfsz      sub_c+1                 ; Is ppO2 > 2.55bar ? mH
+;    setf        sub_c+0                 ; yes: bound to 2.55... better than wrap around.
+    movff		sub_c+0,char_I_actual_ppO2	; copy last ppO2 to buffer register
+
 	movff		sub_c+0,xA+0
 	movff		sub_c+1,xA+1
 	movlw		LOW		.10
@@ -399,15 +403,12 @@
 	movwf		xB+1
 	call		mult16x16		;xA*xB=xC	-> xC:4 = ppO2*1000
 
-    tstfsz      xA+1                    	; Is ppO2 > 2.55bar ?
-    setf        xA+0                    	; yes: bound to 2.55... better than wrap around.
-    movff		xA+0, char_I_actual_ppO2	; copy last ppO2 to buffer register
-
 	SAFE_2BYTE_COPY amb_pressure, xB
 	call		div32x16	 	; xC:4 / xB:2 = xC+3:xC+2 with xC+1:xC+0 as remainder
 	; xC+0 has O2 in percent
 	movff	xC+0,char_I_O2_ratio
 
+
 simulator_calc_deco1:
     ; First minute is special: init everything.
 	movlw	d'3'                        ; Begin of deco cycle (reset table).