Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/menu_gassetup.asm @ 398:ab962c4b19d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixing issue 50, correct "Bar" to "bar" in texts and comments
author heinrichsweikamp
date Sun, 26 Jun 2011 12:24:54 +0200
parents be71e563ac09
children 6e57b5bb98ce
comparison
equal deleted inserted replaced
396:0386c7e1374a 398:ab962c4b19d6
337 WIN_LEFT .90 337 WIN_LEFT .90
338 OUTPUTTEXTH .298 ; END: 338 OUTPUTTEXTH .298 ; END:
339 GETCUSTOM8 .18 ; ppO2 warnvalue in WREG 339 GETCUSTOM8 .18 ; ppO2 warnvalue in WREG
340 mullw d'10' 340 mullw d'10'
341 movff PRODL,xA+0 341 movff PRODL,xA+0
342 movff PRODH,xA+1 ; ppO2 in [0.01Bar] * 10 342 movff PRODH,xA+1 ; ppO2 in [0.01bar] * 10
343 movf divemins+0,W 343 movf divemins+0,W
344 addlw 0x06 344 addlw 0x06
345 movwf EEADR 345 movwf EEADR
346 call read_eeprom ; O2 value 346 call read_eeprom ; O2 value
347 movff EEDATA,xB+0 347 movff EEDATA,xB+0
689 lfsr FSR2,letter 689 lfsr FSR2,letter
690 rcall gassetup_show_ppO2 ; Display the ppO2 of the change depth with the current gas 690 rcall gassetup_show_ppO2 ; Display the ppO2 of the change depth with the current gas
691 691
692 movff xC+0,sub_a+0 692 movff xC+0,sub_a+0
693 movff xC+1,sub_a+1 693 movff xC+1,sub_a+1
694 GETCUSTOM8 d'46' ; color-code ppO2 warning [cBar] 694 GETCUSTOM8 d'46' ; color-code ppO2 warning [cbar]
695 movwf sub_b+0 695 movwf sub_b+0
696 clrf sub_b+1 696 clrf sub_b+1
697 call sub16 ; sub_c = sub_a - sub_b 697 call sub16 ; sub_c = sub_a - sub_b
698 btfss neg_flag 698 btfss neg_flag
699 bra gassetup_color_code_ppo2_1; too high -> Warning Color! 699 bra gassetup_color_code_ppo2_1; too high -> Warning Color!
1049 movff PRODH,xA+1 1049 movff PRODH,xA+1
1050 movlw d'10' 1050 movlw d'10'
1051 movwf xB+0 1051 movwf xB+0
1052 clrf xB+1 1052 clrf xB+1
1053 call div16x16 ;xA/xB=xC with xA as remainder 1053 call div16x16 ;xA/xB=xC with xA as remainder
1054 movff xC+0,lo ; ((Depth+10m)*O2)/10 = [0.01Bar] ppO2 1054 movff xC+0,lo ; ((Depth+10m)*O2)/10 = [0.01bar] ppO2
1055 movff xC+1,hi 1055 movff xC+1,hi
1056 output_16dp d'3' 1056 output_16dp d'3'
1057 OUTPUTTEXT d'150' ; bar: 1057 OUTPUTTEXT d'150' ; bar:
1058 return 1058 return
1059 1059
1060 gassetup_get_mod: 1060 gassetup_get_mod:
1061 GETCUSTOM8 .18 ; ppO2 warnvalue in WREG 1061 GETCUSTOM8 .18 ; ppO2 warnvalue in WREG
1062 mullw d'10' 1062 mullw d'10'
1063 movff PRODL,xA+0 1063 movff PRODL,xA+0
1064 movff PRODH,xA+1 ; ppO2 in [0.01Bar] * 10 1064 movff PRODH,xA+1 ; ppO2 in [0.01bar] * 10
1065 movf divemins+0,W 1065 movf divemins+0,W
1066 addlw 0x06 1066 addlw 0x06
1067 movwf EEADR 1067 movwf EEADR
1068 call read_eeprom ; O2 value 1068 call read_eeprom ; O2 value
1069 movff EEDATA,xB+0 1069 movff EEDATA,xB+0