Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 657:8dd730d3a5d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
show first diluent in simulator result screen (Instead of first gas)
author heinrichsweikamp
date Thu, 01 Nov 2012 20:36:19 +0100
parents 8c01edcf57fc
children 259e4c1bf3c2
comparison
equal deleted inserted replaced
656:5063fb9f07db 657:8dd730d3a5d7
4027 4027
4028 movlw d'3' ; list all three SP 4028 movlw d'3' ; list all three SP
4029 cpfseq decoplan_index ; All gases shown? 4029 cpfseq decoplan_index ; All gases shown?
4030 bra PLED_simdata_screen3_loop ;no 4030 bra PLED_simdata_screen3_loop ;no
4031 4031
4032 read_int_eeprom d'33' ; Read byte (stored in EEDATA) 4032 ; Show Diluent
4033 movff EEDATA,active_gas ; Read start gas (1-5) 4033 call get_first_diluent ; Read first diluent into lo(O2) and hi(He)
4034 decf active_gas,W ; Gas 0-4
4035 mullw d'4'
4036 movf PRODL,W
4037 addlw d'7' ; = address for He ratio
4038 movwf EEADR
4039 call read_eeprom ; Read He ratio
4040 movff EEDATA,hi ; And copy into hold register
4041 decf active_gas,W ; Gas 0-4
4042 mullw d'4'
4043 movf PRODL,W
4044 addlw d'6' ; = address for O2 ratio
4045 movwf EEADR
4046 call read_eeprom ; Read O2 ratio
4047 movff EEDATA, lo ; O2 ratio
4048
4049 WIN_LEFT .0 4034 WIN_LEFT .0
4050 WIN_TOP .110 4035 WIN_TOP .110
4051
4052 STRCPY TXT_DIL4 4036 STRCPY TXT_DIL4
4053 output_8 ; O2 Ratio 4037 output_8 ; O2 Ratio
4054 STRCAT "/" 4038 STRCAT "/"
4055 movff hi,lo 4039 movff hi,lo
4056 output_8 ; He Ratio 4040 output_8 ; He Ratio
4057 call word_processor 4041 call word_processor
4058 4042
4059 bcf leftbind 4043 bcf leftbind
4060 return ; Return (CC Mode) 4044 return ; Return (CC Mode)
4061 4045
4062
4063
4064 adjust_depth_with_salinity: ; computes salinity setting into lo:hi [mbar] 4046 adjust_depth_with_salinity: ; computes salinity setting into lo:hi [mbar]
4065 4047
4066 btfsc simulatormode_active ; Do apply salinity in Simulatormode 4048 btfsc simulatormode_active ; Do apply salinity in Simulatormode
4067 return 4049 return
4068 4050