Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/divemode.asm @ 47:56aea9fcdd8f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1.65beta release
author heinrichsweikamp
date Thu, 15 Jul 2010 18:09:58 +0200
parents 985607cfb813
children cd5b650920f6
comparison
equal deleted inserted replaced
46:8457bb96b860 47:56aea9fcdd8f
320 bra reset_decompression_gases ; While in NDL, do not set deompression gas 320 bra reset_decompression_gases ; While in NDL, do not set deompression gas
321 321
322 divemode_check_decogases: ; CALLed from Simulator 322 divemode_check_decogases: ; CALLed from Simulator
323 ; Copy active gases to char_I_deco_N2_ratio and char_I_deco_He_ratio 323 ; Copy active gases to char_I_deco_N2_ratio and char_I_deco_He_ratio
324 324
325 clrf EEADRH
325 setf hi ; # of gas (0-4) 326 setf hi ; # of gas (0-4)
326
327 lfsr FSR1, char_I_deco_He_ratio5 ; most shallow decogas 327 lfsr FSR1, char_I_deco_He_ratio5 ; most shallow decogas
328 divemode_check_decogases2: 328 divemode_check_decogases2:
329 incf hi,F ; increase (First time: hi=0) 329 incf hi,F ; increase (First time: hi=0)
330 rcall copy_decogas_info 330 rcall copy_decogas_info
331 movlw d'3' 331 movlw d'3'
391 ; call rs232_wait_tx ; wait for UART 391 ; call rs232_wait_tx ; wait for UART
392 ; movff char_I_deco_gas_change2,TXREG 392 ; movff char_I_deco_gas_change2,TXREG
393 ; call rs232_wait_tx ; wait for UART 393 ; call rs232_wait_tx ; wait for UART
394 ; movff char_I_deco_gas_change,TXREG 394 ; movff char_I_deco_gas_change,TXREG
395 ; call rs232_wait_tx ; wait for UART 395 ; call rs232_wait_tx ; wait for UART
396
397
398
399
400
396 return 401 return
397 402
398 copy_decogas_info: 403 copy_decogas_info:
399 movf hi,W ; Gas 1-4 404 movf hi,W ; Gas 1-4
400 mullw d'4' ; times 4... 405 mullw d'4' ; times 4...