Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/surfmode.asm @ 254:8f20e8948b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working word-around for nofly issue
author heinrichsweikamp
date Fri, 08 Apr 2011 11:58:55 +0200
parents 3dbeacf42e9e
children f8f869bafd92
comparison
equal deleted inserted replaced
253:3a4096f32526 254:8f20e8948b97
1 1 f
2 ; OSTC - diving computer code 2 ; OSTC - diving computer code
3 ; Copyright (C) 2008 HeinrichsWeikamp GbR 3 ; Copyright (C) 2008 HeinrichsWeikamp GbR
4 4
5 ; This program is free software: you can redistribute it and/or modify 5 ; This program is free software: you can redistribute it and/or modify
6 ; it under the terms of the GNU General Public License as published by 6 ; it under the terms of the GNU General Public License as published by
265 btfsc nofly_active 265 btfsc nofly_active
266 btg LED_blue 266 btg LED_blue
267 return 267 return
268 268
269 calc_deko_surfmode: 269 calc_deko_surfmode:
270 bsf LED_red
271 ostc_debug 'I' ; Sends debug-information to screen if debugmode active 270 ostc_debug 'I' ; Sends debug-information to screen if debugmode active
272 271
273 movff last_surfpressure+0,int_I_pres_surface+0 ; copy surface air pressure to deco routine 272 movff last_surfpressure+0,int_I_pres_surface+0 ; copy surface air pressure to deco routine
274 movff last_surfpressure+1,int_I_pres_surface+1 273 movff last_surfpressure+1,int_I_pres_surface+1
275 clrf wait_temp ; Use as buffer 274 clrf wait_temp ; Use as buffer
286 movff WREG,char_I_desaturation_multiplier 285 movff WREG,char_I_desaturation_multiplier
287 286
288 call deco_calc_wo_deco_step_1_min ; calculate deco in surface mode 287 call deco_calc_wo_deco_step_1_min ; calculate deco in surface mode
289 movlb b'00000001' ; select ram bank 1 288 movlb b'00000001' ; select ram bank 1
290 ostc_debug 'J' ; Sends debug-information to screen if debugmode active 289 ostc_debug 'J' ; Sends debug-information to screen if debugmode active
291 bcf LED_red 290
291 movff int_O_desaturation_time+0,desaturation_time_buffer+0
292 movff int_O_desaturation_time+1,desaturation_time_buffer+1
293
292 return 294 return
293 295
294 296
295 test_charger: 297 test_charger:
296 bcf TRISC,1 ; CHRG_OUT output 298 bcf TRISC,1 ; CHRG_OUT output