Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/divemode.asm @ 75:35d947d7a6e7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1.73beta started, small fixes
author heinrichsweikamp
date Sun, 05 Dec 2010 21:40:58 +0100
parents a1ccb92b59cd
children 3e351e25f5d1
comparison
equal deleted inserted replaced
74:a1ccb92b59cd 75:35d947d7a6e7
1052 goto end_dive_common ; No, discard everything 1052 goto end_dive_common ; No, discard everything
1053 1053
1054 btfsc simulatormode_active ; Are we in simulator mode? 1054 btfsc simulatormode_active ; Are we in simulator mode?
1055 goto end_dive_common ; Yes, discard everything 1055 goto end_dive_common ; Yes, discard everything
1056 1056
1057 ; Dive finished (and longer then one minute or Apnoe timeout occured) 1057 ; Dive finished (and longer then one minute or Apnoe timeout occured and no simulated dive)
1058 ;new 1.73beta:
1059 clrf surface_interval+0
1060 clrf surface_interval+1 ; Clear surface interval timer
1058 1061
1059 btfsc FLAG_apnoe_mode ; Calc max. depth (again) for very short apnoe dives 1062 btfsc FLAG_apnoe_mode ; Calc max. depth (again) for very short apnoe dives
1060 rcall apnoe_calc_maxdepth 1063 rcall apnoe_calc_maxdepth
1061 1064
1062 ; calculate desaturation time 1065 ; calculate desaturation time
1310 call simulator_restore_tissue_data ; Yes! 1313 call simulator_restore_tissue_data ; Yes!
1311 1314
1312 call deco_main_gradient_array 1315 call deco_main_gradient_array
1313 movlb b'00000001' ; select ram bank 1 1316 movlb b'00000001' ; select ram bank 1
1314 1317
1315 btfss restore_deco_data ; Restore decodata?
1316 goto surfloop ; and return to surfaceloop
1317 ;new 1.71beta:
1318 clrf surface_interval+0
1319 clrf surface_interval+1 ; Clear surface interval timer
1320 goto surfloop ; and return to surfaceloop 1318 goto surfloop ; and return to surfaceloop
1321 1319
1322 timeout_divemode: 1320 timeout_divemode:
1323 btfss realdive ; Dive longer then one minute 1321 btfss realdive ; Dive longer then one minute
1324 return 1322 return