hwos_code: src/compass_ops.asm annotate

annotate src/compass_ops.asm @ 339:692903c50788

minor: fix calc_deko_divemode_sensor

author	heinrichsweikamp
date	Fri, 03 Jul 2015 15:08:15 +0200
parents	508d7fb98b34
children	67e631aa5b8c

rev	line source
275 653a3ab08062 rename into hwOS heinrichsweikamp parents: 264 diff changeset	1 #include "hwos.inc"
147 fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	2 #include "i2c.inc"
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	3 #include "tft_outputs.inc"
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	4 #include "isr.inc"
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	5 #include "tft.inc"
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	6 #include "strings.inc"
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	7 #include "wait.inc" ; speed_*
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	8 #include "surfmode.inc"
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	9 #include "divemode.inc"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	10 #include "math.inc"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	11 #include "convert.inc"
147 fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	12
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	13
11d4fc797f74 init heinrichsweikamp parents: diff changeset	14 ; Make sure symbols from the .inc are available to the C code:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	15 ; Filtered data
11d4fc797f74 init heinrichsweikamp parents: diff changeset	16 global compass_DX_f, compass_DY_f, compass_DZ_f
11d4fc797f74 init heinrichsweikamp parents: diff changeset	17 global accel_DX_f, accel_DY_f, accel_DZ_f
11d4fc797f74 init heinrichsweikamp parents: diff changeset	18
11d4fc797f74 init heinrichsweikamp parents: diff changeset	19 ; Calibration data
11d4fc797f74 init heinrichsweikamp parents: diff changeset	20 global compass_CX_f
11d4fc797f74 init heinrichsweikamp parents: diff changeset	21 global compass_CY_f
11d4fc797f74 init heinrichsweikamp parents: diff changeset	22 global compass_CZ_f
11d4fc797f74 init heinrichsweikamp parents: diff changeset	23
11d4fc797f74 init heinrichsweikamp parents: diff changeset	24 ; Tmp values to pass Q15 arithmetics around
11d4fc797f74 init heinrichsweikamp parents: diff changeset	25 global compass_a
11d4fc797f74 init heinrichsweikamp parents: diff changeset	26 global compass_b
11d4fc797f74 init heinrichsweikamp parents: diff changeset	27
11d4fc797f74 init heinrichsweikamp parents: diff changeset	28 ; Result
214 a17359244d93 compass changes heinrichsweikamp parents: 148 diff changeset	29 global compass_heading; , compass_roll, compass_pitch
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	30
147 fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	31 extern compass
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	32 extern compass_reset_calibration
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	33 extern compass_add_calibration
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	34 extern compass_solve_calibration
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	35
337 508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu heinrichsweikamp parents: 300 diff changeset	36 extern menu_processor_bottom_line
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu heinrichsweikamp parents: 300 diff changeset	37
282 7d9edd3b8c86 Make a more compact COMPASS calibration code (<7KB), and add more tests. jDG parents: 275 diff changeset	38 compass_ops code
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	39 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	40 ; Filter compass values
11d4fc797f74 init heinrichsweikamp parents: diff changeset	41 ;
11d4fc797f74 init heinrichsweikamp parents: diff changeset	42 ; Apply linear filtering to input parameters.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	43
11d4fc797f74 init heinrichsweikamp parents: diff changeset	44 ; Apply filtering formula:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	45 ; reg_f += (reg - reg_f) / 4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	46 FILTER16 MACRO reg, reg_f
11d4fc797f74 init heinrichsweikamp parents: diff changeset	47 movf reg_f+0,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	48 subwf reg+0,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	49 movwf PRODL
11d4fc797f74 init heinrichsweikamp parents: diff changeset	50 movf reg_f+1,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	51 subwfb reg+1,W
148 022b886eddaf some cleanup heinrichsweikamp parents: 147 diff changeset	52 rcall filter_16_common
022b886eddaf some cleanup heinrichsweikamp parents: 147 diff changeset	53 addwf reg_f+0,F
022b886eddaf some cleanup heinrichsweikamp parents: 147 diff changeset	54 movf PRODH,W
022b886eddaf some cleanup heinrichsweikamp parents: 147 diff changeset	55 addwfc reg_f+1,F
022b886eddaf some cleanup heinrichsweikamp parents: 147 diff changeset	56 ENDM
022b886eddaf some cleanup heinrichsweikamp parents: 147 diff changeset	57
022b886eddaf some cleanup heinrichsweikamp parents: 147 diff changeset	58 filter_16_common:
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	59 movwf PRODH
11d4fc797f74 init heinrichsweikamp parents: diff changeset	60
11d4fc797f74 init heinrichsweikamp parents: diff changeset	61 bcf STATUS,C ; Copy sign bit into carry
11d4fc797f74 init heinrichsweikamp parents: diff changeset	62 btfsc PRODH,7
11d4fc797f74 init heinrichsweikamp parents: diff changeset	63 bsf STATUS,C
11d4fc797f74 init heinrichsweikamp parents: diff changeset	64 rrcf PRODH,F ; 16bit shift right
11d4fc797f74 init heinrichsweikamp parents: diff changeset	65 rrcf PRODL,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	66
11d4fc797f74 init heinrichsweikamp parents: diff changeset	67 bcf STATUS,C ; Copy sign bit into carry
11d4fc797f74 init heinrichsweikamp parents: diff changeset	68 btfsc PRODH,7
11d4fc797f74 init heinrichsweikamp parents: diff changeset	69 bsf STATUS,C
11d4fc797f74 init heinrichsweikamp parents: diff changeset	70 rrcf PRODH,F ; 16bit shift right
11d4fc797f74 init heinrichsweikamp parents: diff changeset	71 rrcf PRODL,W
148 022b886eddaf some cleanup heinrichsweikamp parents: 147 diff changeset	72 return
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	73
147 fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	74 global compass_filter
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	75 compass_filter:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	76 banksel compass_DX
11d4fc797f74 init heinrichsweikamp parents: diff changeset	77
11d4fc797f74 init heinrichsweikamp parents: diff changeset	78 FILTER16 compass_DX, compass_DX_f
11d4fc797f74 init heinrichsweikamp parents: diff changeset	79 FILTER16 compass_DY, compass_DY_f
11d4fc797f74 init heinrichsweikamp parents: diff changeset	80 FILTER16 compass_DZ, compass_DZ_f
11d4fc797f74 init heinrichsweikamp parents: diff changeset	81 FILTER16 accel_DX, accel_DX_f
11d4fc797f74 init heinrichsweikamp parents: diff changeset	82 FILTER16 accel_DY, accel_DY_f
11d4fc797f74 init heinrichsweikamp parents: diff changeset	83 FILTER16 accel_DZ, accel_DZ_f
11d4fc797f74 init heinrichsweikamp parents: diff changeset	84 banksel common
11d4fc797f74 init heinrichsweikamp parents: diff changeset	85 return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	86
11d4fc797f74 init heinrichsweikamp parents: diff changeset	87 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	88
11d4fc797f74 init heinrichsweikamp parents: diff changeset	89 compass_filter_init:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	90 movff compass_DX+0, compass_DX_f+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	91 movff compass_DX+1, compass_DX_f+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	92 movff compass_DY+0, compass_DY_f+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	93 movff compass_DY+1, compass_DY_f+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	94 movff compass_DZ+0, compass_DZ_f+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	95 movff compass_DZ+1, compass_DZ_f+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	96 movff accel_DX+0, accel_DX_f+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	97 movff accel_DX+1, accel_DX_f+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	98 movff accel_DY+0, accel_DY_f+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	99 movff accel_DY+1, accel_DY_f+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	100 movff accel_DZ+0, accel_DZ_f+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	101 movff accel_DZ+1, accel_DZ_f+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	102 return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	103
11d4fc797f74 init heinrichsweikamp parents: diff changeset	104 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	105 ; Q15 fractional numbers: a * b / 2**16 (UNSIGNED)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	106 ;
11d4fc797f74 init heinrichsweikamp parents: diff changeset	107 ; Uses 16x16->16 multiply, for positiv integers, keeping only the most
11d4fc797f74 init heinrichsweikamp parents: diff changeset	108 ; revelant bits.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	109 ;
11d4fc797f74 init heinrichsweikamp parents: diff changeset	110 ; Used to multiply two Q15 numbers, in the range 0..1,
11d4fc797f74 init heinrichsweikamp parents: diff changeset	111 ; represented as 0..32767, that is a / 2**15.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	112 ;
11d4fc797f74 init heinrichsweikamp parents: diff changeset	113 ; (a/2*15) (b/2*15) = ab / 2*30 = (ab/216) / 214.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	114 ; So to get back a Q15 number, we need a shift-left...
11d4fc797f74 init heinrichsweikamp parents: diff changeset	115 global compass_umul
11d4fc797f74 init heinrichsweikamp parents: diff changeset	116 compass_umul:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	117 rcall compass_mul_16
11d4fc797f74 init heinrichsweikamp parents: diff changeset	118
11d4fc797f74 init heinrichsweikamp parents: diff changeset	119 ; The 2x time, by left-shifting inserting the missing bit:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	120 compass_mul_2:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	121 rlcf compass_r+2,F ; Missing bit into carry
11d4fc797f74 init heinrichsweikamp parents: diff changeset	122 rlcf compass_r+0,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	123 rlcf compass_r+1,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	124 movff compass_r+0,PRODL ; return value into ProdH:L
11d4fc797f74 init heinrichsweikamp parents: diff changeset	125 movff compass_r+1,PRODH
11d4fc797f74 init heinrichsweikamp parents: diff changeset	126 return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	127
11d4fc797f74 init heinrichsweikamp parents: diff changeset	128 ; The 16x16-> multiply:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	129 compass_mul_16:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	130 banksel compass_a
11d4fc797f74 init heinrichsweikamp parents: diff changeset	131
11d4fc797f74 init heinrichsweikamp parents: diff changeset	132 movf compass_a+1,W ; Block ah*bh
11d4fc797f74 init heinrichsweikamp parents: diff changeset	133 mulwf compass_b+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	134 movff PRODL,compass_r+0 ; and copy
11d4fc797f74 init heinrichsweikamp parents: diff changeset	135 movff PRODH,compass_r+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	136
11d4fc797f74 init heinrichsweikamp parents: diff changeset	137 movf compass_a+0,W ; Block al*bl
11d4fc797f74 init heinrichsweikamp parents: diff changeset	138 mulwf compass_b+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	139 movff PRODH,compass_r+2 ; Into fraction byte
11d4fc797f74 init heinrichsweikamp parents: diff changeset	140
11d4fc797f74 init heinrichsweikamp parents: diff changeset	141 movf compass_a+1,W ; Block ah*bl
11d4fc797f74 init heinrichsweikamp parents: diff changeset	142 mulwf compass_b+0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	143 movf PRODL,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	144 addwf compass_r+2,F ; Fraction part to carry.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	145 movf PRODH,W ; and add16
11d4fc797f74 init heinrichsweikamp parents: diff changeset	146 addwfc compass_r+0,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	147 movlw 0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	148 addwfc compass_r+1,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	149
11d4fc797f74 init heinrichsweikamp parents: diff changeset	150 movf compass_a+0,W ; Block al*bh
11d4fc797f74 init heinrichsweikamp parents: diff changeset	151 mulwf compass_b+1
11d4fc797f74 init heinrichsweikamp parents: diff changeset	152 movf PRODL,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	153 addwf compass_r+2,F ; Fraction part to carry.
11d4fc797f74 init heinrichsweikamp parents: diff changeset	154 movf PRODH,W ; and add16
11d4fc797f74 init heinrichsweikamp parents: diff changeset	155 addwfc compass_r+0,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	156 movlw 0
11d4fc797f74 init heinrichsweikamp parents: diff changeset	157 addwfc compass_r+1,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	158
11d4fc797f74 init heinrichsweikamp parents: diff changeset	159 return
11d4fc797f74 init heinrichsweikamp parents: diff changeset	160
11d4fc797f74 init heinrichsweikamp parents: diff changeset	161 ;-----------------------------------------------------------------------------
11d4fc797f74 init heinrichsweikamp parents: diff changeset	162 ; Q15 fractional numbers: a * b / 2**16 (SIGNED)
11d4fc797f74 init heinrichsweikamp parents: diff changeset	163
11d4fc797f74 init heinrichsweikamp parents: diff changeset	164 global compass_imul
11d4fc797f74 init heinrichsweikamp parents: diff changeset	165 compass_imul:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	166 rcall compass_mul_16
11d4fc797f74 init heinrichsweikamp parents: diff changeset	167
11d4fc797f74 init heinrichsweikamp parents: diff changeset	168 btfss compass_b+1,7
11d4fc797f74 init heinrichsweikamp parents: diff changeset	169 bra compass_mul_3
11d4fc797f74 init heinrichsweikamp parents: diff changeset	170
11d4fc797f74 init heinrichsweikamp parents: diff changeset	171 movf compass_a+0,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	172 subwf compass_r+0,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	173 movf compass_a+1,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	174 subwfb compass_r+1,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	175
11d4fc797f74 init heinrichsweikamp parents: diff changeset	176 compass_mul_3:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	177 btfss compass_a+1,7
11d4fc797f74 init heinrichsweikamp parents: diff changeset	178 bra compass_mul_4
11d4fc797f74 init heinrichsweikamp parents: diff changeset	179
11d4fc797f74 init heinrichsweikamp parents: diff changeset	180 movf compass_b+0,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	181 subwf compass_r+0,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	182 movf compass_b+1,W
11d4fc797f74 init heinrichsweikamp parents: diff changeset	183 subwfb compass_r+1,F
11d4fc797f74 init heinrichsweikamp parents: diff changeset	184
11d4fc797f74 init heinrichsweikamp parents: diff changeset	185 compass_mul_4:
11d4fc797f74 init heinrichsweikamp parents: diff changeset	186 bcf compass_r+1,6 ; Copy bit 7 to 6, so keep it after 2x
11d4fc797f74 init heinrichsweikamp parents: diff changeset	187 btfsc compass_r+1,7
11d4fc797f74 init heinrichsweikamp parents: diff changeset	188 bsf compass_r+1,6
11d4fc797f74 init heinrichsweikamp parents: diff changeset	189 bra compass_mul_2
11d4fc797f74 init heinrichsweikamp parents: diff changeset	190
147 fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	191 global compass_calibration_loop
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	192 compass_calibration_loop: ; Compass calibration
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	193 bsf no_sensor_int ; No Sensor ISR
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	194 call I2C_sleep_accelerometer ; Stop accelerometer
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	195 call I2C_sleep_compass ; Stop compass
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	196 call TFT_ClearScreen
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	197 ; Mask
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	198 WIN_COLOR color_greenish
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	199 WIN_SMALL .16,.0
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	200 STRCPY_TEXT_PRINT tCompassMenu
337 508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu heinrichsweikamp parents: 300 diff changeset	201
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu heinrichsweikamp parents: 300 diff changeset	202 call menu_processor_bottom_line
508d7fb98b34 cleanup menu, add "Auto SP" option (Not working yet), minor layout change in compass menu heinrichsweikamp parents: 300 diff changeset	203 btfss switch_right2 ; wait until right button is released
147 fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	204 bra $-4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	205
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	206 call TFT_standard_color
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	207 ; WIN_SMALL .0,.215
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	208 ; STRCPY_TEXT_PRINT tExit
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	209 WAITMS d'255'
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	210 WAITMS d'255'
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	211 movlw .7 ; Gain init
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	212 movff WREG,opt_compass_gain
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	213 compass_calibration_gainset: ; Reduce the gain, set bank here!
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	214 banksel opt_compass_gain
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	215 decf opt_compass_gain,F ; Reduce by one
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	216 btfsc STATUS,N ; <0?
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	217 clrf opt_compass_gain ; Yes, keep at zero
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	218
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	219 banksel common
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	220 call I2C_init_accelerometer
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	221 call I2C_init_compass_fast
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	222 rcall TFT_compass_show_gain ; Show the current compass gain
147 fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	223
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	224 WAITMS d'100'
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	225
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	226 clrf timeout_counter2
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	227 clrf timeout_counter3
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	228
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	229 call speed_fastest
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	230 call I2C_RX_compass ; read compass
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	231 call I2C_RX_accelerometer ; read Accelerometer
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	232
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	233 ; Test all axes for +4096 (Hi byte=16)
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	234 banksel compass_DX+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	235 movlw .16
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	236 cpfseq compass_DX+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	237 bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	238 bra compass_calibration_gainset
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	239 cpfseq compass_DY+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	240 bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	241 bra compass_calibration_gainset
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	242 cpfseq compass_DZ+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	243 bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	244 bra compass_calibration_gainset
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	245
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	246 ; Test all axes for -4096 (Hi byte=240)
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	247 movlw .240
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	248 cpfseq compass_DX+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	249 bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	250 bra compass_calibration_gainset
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	251 cpfseq compass_DY+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	252 bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	253 bra compass_calibration_gainset
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	254 cpfseq compass_DZ+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	255 bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	256 bra compass_calibration_gainset
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	257 banksel common
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	258
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	259 rcall compass_filter_init ; set DX_f values
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	260 call compass_reset_calibration ; Reset CX_f values
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	261 banksel common
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	262
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	263 compass_calibration_loop2:
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	264 call I2C_RX_compass ; read compass
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	265 call I2C_RX_accelerometer ; Test Accelerometer
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	266 rcall compass_filter ; Filter compass raw data
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	267 banksel common
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	268
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	269 ; Twice
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	270 call I2C_RX_compass ; read compass
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	271 call I2C_RX_accelerometer ; Test Accelerometer
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	272 rcall compass_filter ; Filter compass raw data
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	273 banksel common
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	274
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	275 ; Test all axes for +4096 (Hi byte=16)
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	276 banksel compass_DX+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	277 movlw .16
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	278 cpfseq compass_DX+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	279 bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	280 bra compass_calibration_gainset
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	281 cpfseq compass_DY+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	282 bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	283 bra compass_calibration_gainset
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	284 cpfseq compass_DZ+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	285 bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	286 bra compass_calibration_gainset
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	287
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	288 ; Test all axes for -4096 (Hi byte=240)
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	289 movlw .240
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	290 cpfseq compass_DX+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	291 bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	292 bra compass_calibration_gainset
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	293 cpfseq compass_DY+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	294 bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	295 bra compass_calibration_gainset
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	296 cpfseq compass_DZ+1
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	297 bra $+4
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	298 bra compass_calibration_gainset
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	299 banksel common
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	300 ;
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	301 ; ; Three
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	302 ; call I2C_RX_compass ; read compass
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	303 ; call I2C_RX_accelerometer ; Test Accelerometer
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	304 ; call compass_filter ; Filter compass raw data
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	305 ; banksel common
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	306 ;
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	307 ; ; Four times to get cleaner values
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	308 ; call I2C_RX_compass ; read compass
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	309 ; call I2C_RX_accelerometer ; Test Accelerometer
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	310 ; call compass_filter ; Filter compass raw data
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	311
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	312 ; And register only one value out of four:
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	313 call compass_add_calibration ; check and store new max/min values
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	314 banksel common
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	315
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	316 call TFT_compass_fast ; show values
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	317
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	318 btfsc sleepmode ; Sleepmode active?
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	319 bra compass_calibration_exit ; Yes, exit
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	320
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	321 ; btfsc switch_left ; Button pressed?
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	322 ; bra compass_calibration_exit ; Yes, exit
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	323
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	324 btfss onesecupdate ; do every second tasks?
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	325 bra compass_calibration_loop2 ; no, loop here
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	326
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	327 movlw .60
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	328 call timeout_testmode ; check timeout
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	329 movlw .60
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	330 rcall TFT_show_timeout_testmode ; Show the timeout
147 fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	331
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	332 bcf onesecupdate ; clear flag
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	333
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	334 bra compass_calibration_loop2 ; loop here
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	335
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	336 compass_calibration_exit:
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	337 call compass_solve_calibration
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	338 banksel common
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	339 extern option_save_all
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	340 call option_save_all ; save all settings into EEPROM
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	341 bcf sleepmode ; Clear the flag before exiting to surfacemode
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	342 movlw .6
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	343 movwf customview_surfmode ; Set to compass view...
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	344 goto surfloop ; ...and exit
fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	345
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	346 global TFT_compass_fast
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	347 TFT_compass_fast:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	348 WIN_TINY .20,.50
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	349 STRCPY "X:"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	350 movff compass_DX+0,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	351 movff compass_DX+1,hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	352 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	353 output_16
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	354 STRCAT " Y:"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	355 movff compass_DY+0,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	356 movff compass_DY+1,hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	357 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	358 output_16
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	359 STRCAT " Z:"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	360 movff compass_DZ+0,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	361 movff compass_DZ+1,hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	362 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	363 output_16
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	364 STRCAT_PRINT " "
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	365 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	366
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	367 TFT_show_timeout_testmode: ; With timeout in WREG...
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	368 movwf hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	369 WIN_TINY .20,.68
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	370 STRCPY "T:"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	371 movf timeout_counter2,W ; current timeout
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	372 subwf hi,W ; subtract from timeout value
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	373 addlw .1 ; +1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	374 movwf lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	375 bsf leftbind
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	376 output_8 ; Display timeout
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	377 bcf leftbind
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	378 STRCAT_PRINT "s "
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	379 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	380
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	381
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	382 TFT_compass_show_gain: ; Show the current compass gain
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	383 movff opt_compass_gain,lo ; 0-7 (230LSB/Gauss to 1370LSB/Gaus)
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	384 tstfsz lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	385 return ; Do not show unless gain=0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	386 WIN_TINY .20,.86
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	387 STRCPY_TEXT tCompassGain
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	388 movff opt_compass_gain,lo ; 0-7 (230LSB/Gauss to 1370LSB/Gaus)
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	389 bsf leftbind
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	390 output_8
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	391 bcf leftbind
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	392 STRCAT_PRINT "!"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	393 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	394
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	395 global TFT_surface_compass_mask
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	396 TFT_surface_compass_mask:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	397 WIN_SMALL surf_compass_mask_column,surf_compass_mask_row
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	398 call TFT_standard_color
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	399 STRCPY_TEXT_PRINT tHeading ; Heading:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	400 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	401
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	402 global TFT_dive_compass_mask
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	403 TFT_dive_compass_mask:
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	404 WIN_FRAME_STD dm_custom_compass_graph_row, dm_custom_compass_graph_row+dm_custom_compass_graph_height, .0, .159
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	405 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	406
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	407 global TFT_surface_compass_heading
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	408 TFT_surface_compass_heading:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	409 rcall compass_heading_common
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	410 WIN_STD surf_compass_head_column,surf_compass_head_row
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	411 call TFT_standard_color
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	412 TFT_surface_compass_heading_com: ; Show "000� N"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	413 movff compass_heading+0,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	414 movff compass_heading+1,hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	415 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	416
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	417 ; Shown and actual identical?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	418 movff compass_heading_shown+0,WREG
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	419 cpfseq lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	420 bra TFT_surface_compass_heading_com1 ; Not equal
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	421 movff compass_heading_shown+1,WREG
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	422 cpfseq hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	423 bra TFT_surface_compass_heading_com1 ; Not equal
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	424 bra TFT_surface_compass_heading_com3 ; equal, skip smoothing
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	425
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	426 TFT_surface_compass_heading_com1:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	427 movff lo,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	428 movff hi,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	429 movff compass_heading_shown+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	430 movff compass_heading_shown+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	431 call subU16
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	432 btfsc neg_flag
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	433 bra TFT_surface_compass_heading_com2 ; shown > actual
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	434 ; shown < actual
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	435 banksel compass_heading_shown
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	436 infsnz compass_heading_shown+0,F
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	437 incf compass_heading_shown+1,F ; +1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	438 bra TFT_surface_compass_heading_com3
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	439
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	440 TFT_surface_compass_heading_com2:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	441 banksel compass_heading_shown
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	442 movlw d'1'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	443 subwf compass_heading_shown+0,F
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	444 movlw d'0'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	445 subwfb compass_heading_shown+1,F ; -1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	446
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	447 TFT_surface_compass_heading_com3:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	448 banksel common
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	449 movff compass_heading_shown+0,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	450 movff compass_heading_shown+1,hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	451 bsf leftbind
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	452 output_16dp .2 ; Result is "0.000"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	453 bcf leftbind
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	454 ; rearrange figures to "000"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	455 movff buffer+2,buffer+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	456 movff buffer+3,buffer+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	457 movff buffer+4,buffer+2
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	458 lfsr FSR2,buffer+3
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	459 STRCAT "� "
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	460 rcall tft_compass_cardinal ; Add cardinal and ordinal to POSTINC2
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	461 clrf WREG
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	462 movff WREG,buffer+.7 ; limit to 7 chars
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	463 STRCAT_PRINT ""
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	464 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	465
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	466 global TFT_dive_compass_heading
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	467 TFT_dive_compass_heading:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	468 rcall compass_heading_common
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	469 ; ; ToDo - these are for development only, hardcoding the bearing position
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	470 ; ; 244� : SW - W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	471 ; movlw low(d'244')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	472 ; movff WREG,compass_bearing+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	473 ; movlw high(d'244')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	474 ; movff WREG,compass_bearing+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	475
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	476 movff compass_heading_shown+0,xA+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	477 movff compass_heading_shown+1,xA+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	478 ; xRD and xRDlft
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	479 ; 1. 160� viewing angle: +360 offset if xA<=292; for non-negative scale
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	480 movlw high(d'292')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	481 movff WREG,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	482 movlw low(d'292')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	483 movff WREG,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	484 movff xA+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	485 movff xA+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	486 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	487 btfsc neg_flag ; xA>292
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	488 bra TFT_dive_compass_heading_1 ;yes
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	489 ; no, xA<=292
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	490 movlw high(d'360')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	491 addwf xA+1,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	492 movlw low(d'360')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	493 addwf xA+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	494 btfsc STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	495 incf xA+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	496 TFT_dive_compass_heading_1:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	497 ; 2. -80: left pixel offset from the center
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	498 movlw low( d'80' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	499 subwf xA+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	500 btfss STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	501 decf xA+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	502 ; 3. save it to xRD
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	503 movff xA+0,xRD+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	504 movff xA+1,xRD+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	505 ; 4. add 160 (display px width)
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	506 movlw high(d'160')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	507 addwf xA+1,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	508 movlw low(d'160')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	509 addwf xA+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	510 btfsc STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	511 incf xA+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	512 ; 5. save it to xRDr
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	513 movff xA+0,xRDr+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	514 movff xA+1,xRDr+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	515
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	516 ; ; Bearing ?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	517 ; ; We can skip this xRD180 calculation if no bearing is set
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	518 ; bcf compass_bearing_set
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	519 ; movff compass_bearing+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	520 ; movff compass_bearing+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	521 ; movlw d'0'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	522 ; cpfseq sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	523 ; bra TFT_dive_compass_bearing ; something set, calculate xRD180
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	524 ; movlw d'0'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	525 ; cpfseq sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	526 ; bra TFT_dive_compass_bearing ; something set, calculate xRD180
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	527 ; bra TFT_dive_compass_ruler ; no value in the bearing, skip calc
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	528 ;
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	529 ;TFT_dive_compass_bearing:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	530 ; bsf compass_bearing_set
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	531
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	532 btfss compass_bearing_set
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	533 bra TFT_dive_compass_ruler ; no value in the bearing, skip calc
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	534
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	535 ; we have bearing set, we will need xRD180 calculated
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	536 ; xRD180 is xRDr-180
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	537 movff xRDr+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	538 movff xRDr+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	539 movlw high(d'180')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	540 movff WREG,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	541 movlw low(d'180')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	542 movff WREG,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	543 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	544 movff sub_c+1,xRD180+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	545 movff sub_c+0,xRD180+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	546
258 da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	547 TFT_dive_compass_bearing_1:
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	548 ; calculate bearing position and visibility (ahead or behind)
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	549 bcf compass_bearing_vis ; default is not-visibly
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	550 bcf compass_bearing_ahd ; default is behind
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	551 ; get the bearing virtual display offset, store it to divA
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	552 movff compass_bearing+0,xA+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	553 movff compass_bearing+1,xA+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	554 movlw high(d'360')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	555 addwf xA+1,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	556 movlw low(d'360')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	557 addwf xA+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	558 btfsc STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	559 incf xA+1
258 da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	560 ; save it to reuse for upper/lower turns and ahead/behind checks
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	561 movff xA+1,divA+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	562 movff xA+0,divA+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	563
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	564 ; check if it's ahead
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	565 ; load the bearing offset into sub_a
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	566 movff divA+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	567 movff divA+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	568 ; load the display offset back to sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	569 movff xRD+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	570 movff xRD+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	571 rcall TFT_dive_compass_bearing_ap
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	572 ;test if we found it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	573 btfsc compass_bearing_vis
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	574 bra TFT_dive_compass_bearing_dir
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	575
258 da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	576 ; check if it's ahead with an upper turn
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	577 ; load the bearing offset into sub_a
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	578 movff divA+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	579 movff divA+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	580 ; load the display offset back to sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	581 movff xRD+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	582 movff xRD+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	583 movlw high(d'360')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	584 addwf sub_b+1,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	585 movlw low(d'360')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	586 addwf sub_b+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	587 btfsc STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	588 incf sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	589 rcall TFT_dive_compass_bearing_ap
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	590 ;test if we found it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	591 btfsc compass_bearing_vis
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	592 bra TFT_dive_compass_bearing_dir
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	593
258 da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	594 ; check if it's ahead with a lower turn
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	595 ; load the bearing offset into sub_a
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	596 movff divA+1,sub_a+1
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	597 movff divA+0,sub_a+0
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	598 movlw high(d'360')
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	599 addwf sub_a+1,1
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	600 movlw low(d'360')
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	601 addwf sub_a+0,1
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	602 btfsc STATUS,C
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	603 incf sub_a+1
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	604 ; load the display offset back to sub_b
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	605 movff xRD+0,sub_b+0
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	606 movff xRD+1,sub_b+1
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	607 rcall TFT_dive_compass_bearing_ap
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	608 ;test if we found it
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	609 btfsc compass_bearing_vis
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	610 bra TFT_dive_compass_bearing_dir
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	611
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	612 ; marker is not ahead of us, check if it's behind us
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	613 ; use the (160 - (xRD180 - xCM)) formula to see if it's on the display
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	614 ; load the display offset back to sub_a
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	615 movff xRD180+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	616 movff xRD180+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	617 ; load the marker's offset into sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	618 movff divA+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	619 movff divA+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	620 rcall TFT_dive_compass_bearing_bp
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	621 ;test if we found it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	622 btfsc compass_bearing_vis
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	623 bra TFT_dive_compass_bearing_dir
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	624
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	625 ;check if it's behind with the lower turn
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	626 movff xRD180+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	627 movff xRD180+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	628 movlw high(d'360')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	629 addwf sub_a+1,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	630 movlw low(d'360')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	631 addwf sub_a+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	632 btfsc STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	633 incf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	634 ; load the marker's offset into sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	635 movff divA+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	636 movff divA+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	637 rcall TFT_dive_compass_bearing_bp
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	638 ;test if we found it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	639 btfsc compass_bearing_vis
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	640 bra TFT_dive_compass_bearing_dir
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	641
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	642 ; check if it's behind with the upper turn
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	643 movff divA+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	644 movff divA+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	645 movlw high(d'360')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	646 addwf sub_b+1,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	647 movlw low(d'360')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	648 addwf sub_b+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	649 btfsc STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	650 incf sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	651 rcall TFT_dive_compass_bearing_bp
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	652 bra TFT_dive_compass_bearing_dir
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	653
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	654 TFT_dive_compass_bearing_ap:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	655 ; xCM received in sub_a
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	656 ; xRD received in sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	657 ; 1/a. check if it's viewable from the left side
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	658 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	659 btfsc neg_flag ; xRD>divA
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	660 return ;no,
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	661 ; yes, store the RO=RP-RD for drawing
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	662 movff sub_c+0,xC+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	663 movff sub_c+1,xC+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	664 ; 1/b. check if it's viewable from the right side?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	665 movlw d'2' ; avoid thin mess on the side of the display
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	666 addwf sub_a+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	667 btfsc STATUS, C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	668 incf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	669 ; load the display offset right side into sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	670 movlw high(d'160')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	671 addwf sub_b+1,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	672 movlw low(d'160')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	673 addwf sub_b+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	674 btfsc STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	675 incf sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	676 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	677 btfss neg_flag ; xRDr>xA(+2)
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	678 return ; no,
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	679 ; print the bearing lines on the screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	680 movff xC+0,xCM
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	681 bsf compass_bearing_vis ; set visible
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	682 bsf compass_bearing_ahd ; set ahead
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	683 return ; done,
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	684
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	685 TFT_dive_compass_bearing_bp:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	686 ; use the (160 - (xRD180 - xCM)) formula to see if it's on the display
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	687 ; the marker's offset received in sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	688 ; the xRD180 display offset received in sub_a
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	689 ; xRD180 - xCM
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	690 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	691 btfsc neg_flag ; CM>xRD180
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	692 return ; no, not on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	693 ; 160 - (X)
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	694 movlw high(d'160')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	695 movff WREG,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	696 movlw low(d'160')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	697 movff WREG,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	698 movff sub_c+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	699 movff sub_c+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	700 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	701 btfsc neg_flag ; X>160
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	702 return ; no, not on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	703 ; check if not overflow - this sounds a double check...
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	704 movlw d'1'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	705 cpfslt sub_c+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	706 return ; high set, >160
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	707 movlw d'160'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	708 cpfslt sub_c+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	709 return ; low >160
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	710 ; print the bearing lines on the screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	711 movff sub_c+0,xCM
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	712 bsf compass_bearing_vis
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	713 return ; done
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	714
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	715 TFT_dive_compass_bearing_dir:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	716 ; check if bearing to heading, and calculate the direction
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	717 bcf compass_bearing_eq
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	718 btfss compass_bearing_vis
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	719 bra TFT_dive_compass_bearing_lr
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	720 btfss compass_bearing_ahd
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	721 bra TFT_dive_compass_bearing_lr
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	722 movff xCM,xA+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	723 movlw d'80'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	724 cpfseq xA+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	725 bra TFT_dive_compass_bearing_lr
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	726 bsf compass_bearing_eq
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	727 bra TFT_dive_compass_ruler ; bearing points to heading, no signs are required, go to the ruler
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	728
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	729 TFT_dive_compass_bearing_lr:
258 da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	730 ; get the bearing virtual display offset
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	731 movff compass_bearing+0,xA+0
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	732 movff compass_bearing+1,xA+1
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	733 ; divA =IF (U10>292;U10;U10+360)
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	734 movlw high(d'292')
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	735 movff WREG,sub_a+1
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	736 movlw low(d'292')
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	737 movff WREG,sub_a+0
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	738 movff xA+1,sub_b+1
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	739 movff xA+0,sub_b+0
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	740 call subU16 ; sub_c = sub_a - sub_b
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	741 btfsc neg_flag ; xA>292
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	742 bra TFT_dive_compass_bearing_lr_1 ;yes
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	743 ; no, xA<=292
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	744 movlw high(d'360')
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	745 addwf xA+1,1
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	746 movlw low(d'360')
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	747 addwf xA+0,1
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	748 btfsc STATUS,C
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	749 incf xA+1
da9074180bff patch for bearing issue heinrichsweikamp parents: 257 diff changeset	750 TFT_dive_compass_bearing_lr_1:
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	751 ; 1. calculate whether bearing is to left or to right
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	752 bsf compass_bearing_lft ; to the left by default
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	753 ; xC: save center value to compare the direction to front value
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	754 movff xA+1,xC+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	755 movff xA+0,xC+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	756 ; xB: we need the left side for comparism... left = -180
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	757 movff xA+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	758 movff xA+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	759 movlw high(d'180')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	760 movff WREG,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	761 movlw low(d'180')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	762 movff WREG,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	763 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	764 movff sub_c+1,xB+1 ; xB has the left side of the 180� distance center
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	765 movff sub_c+0,xB+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	766 ; xA = IF(xRD>(xC+100);xRD-280;xRD+80)
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	767 movff xC+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	768 movff xC+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	769 movlw d'100'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	770 addwf sub_a+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	771 btfsc STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	772 incf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	773 movff xRD+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	774 movff xRD+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	775 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	776 btfsc neg_flag ; xRD>xC+100
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	777 bra TFT_dive_compass_bearing_lr_2 ; yes, xA=xRD-280
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	778 ; no, xA = xRD+80
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	779 movff xRD+1,xA+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	780 movff xRD+0,xA+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	781 movlw d'80'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	782 addwf xA+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	783 btfsc STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	784 incf xA+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	785 bra TFT_dive_compass_bearing_lr_c
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	786
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	787 TFT_dive_compass_bearing_lr_2:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	788 ; xA=xRD-280
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	789 movff xRD+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	790 movff xRD+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	791 movlw high(d'280')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	792 movff WREG,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	793 movlw low(d'280')
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	794 movff WREG,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	795 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	796 movff sub_c+1,xA+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	797 movff sub_c+0,xA+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	798 ;bra TFT_dive_compass_bearing_lr_c
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	799
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	800 TFT_dive_compass_bearing_lr_c:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	801 ; xB < xA < xC => right, otherwise left (default)
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	802 movff xA+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	803 movff xA+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	804 movff xB+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	805 movff xB+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	806 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	807 btfss neg_flag ; xA>xB ?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	808 bra TFT_dive_compass_ruler ; No, xB >= xA, keep default left
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	809 movff xA+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	810 movff xA+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	811 movff xC+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	812 movff xC+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	813 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	814 btfss neg_flag ; xC>xA ?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	815 bra TFT_dive_compass_ruler ; No, xA >= xC, keep default left
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	816 bcf compass_bearing_lft
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	817
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	818 TFT_dive_compass_ruler:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	819 ; calculate mod15 for the ticks
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	820 movff xRD+0,xA+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	821 movff xRD+1,xA+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	822 movlw d'15'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	823 movwf xB+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	824 clrf xB+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	825 call div16x16 ;xA/xB=xC with xA+0 as remainder
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	826 ; check xA+0, it has the remainder
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	827 movlw d'0'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	828 cpfsgt xA+0 ; mod15 > 0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	829 bra TFT_dive_compass_ruler_1 ; no, RM = 0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	830 ; yes RM = 15 - RDmod15
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	831 movlw d'15'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	832 subfwb xA+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	833 TFT_dive_compass_ruler_1:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	834 ; xA+0 holds the RM, store it to 'lo'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	835 movff xA+0,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	836 ; init DD to zero, store it to 'hi'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	837 movlw d'0'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	838 movff WREG,hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	839
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	840 TFT_dive_compass_ruler_loop:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	841 ; 1. check if we run of from the display
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	842 movlw d'160' ; Looks like 160 works because TFT_box limits the dispay
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	843 cpfslt lo,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	844 bra TFT_dive_compass_ruler_lend ; xRM >= W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	845 ; 2. Clear the tick area from DD to RM - in segments to avoid blinking
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	846 ; don't do a clear if we are at 0 (zero) otherwise it will blink
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	847 ; because of the width underflow
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	848 movlw d'0'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	849 cpfsgt lo,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	850 bra TFT_dive_compass_ruler_loop_zz
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	851 rcall TFT_dive_compass_clr_ruler
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	852 TFT_dive_compass_ruler_loop_zz:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	853 ; 3. Draw the markers @ RM
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	854 rcall TFT_dive_compass_ruler_print
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	855 ; 4. If D<82 and RM>79: means we put something over the center line
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	856 ; redraw the center line
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	857 movlw d'82'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	858 cpfslt hi,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	859 bra TFT_dive_compass_ruler_loop_zz2
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	860 movlw d'79'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	861 cpfsgt lo,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	862 bra TFT_dive_compass_ruler_loop_zz2
264 9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	863 rcall TFT_dive_compass_cline ;enough to print cline as bearing marker is not in the ticker area
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	864 TFT_dive_compass_ruler_loop_zz2:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	865 ; 5. set D = RM + 2 : position after the 2px tick
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	866 movff lo,hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	867 movlw d'2'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	868 addwf hi,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	869 ; 6. set RM = RM + 15 : position to the next tick
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	870 movlw d'15'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	871 addwf lo,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	872 ; 7. loop
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	873 bra TFT_dive_compass_ruler_loop
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	874
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	875 TFT_dive_compass_ruler_lend: ; loop end
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	876 ; 8. clear the rest of the tick area if D<160
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	877 movlw d'160'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	878 cpfslt hi,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	879 bra TFT_dive_compass_ruler_lend2 ; D >= W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	880 ; 9. position left to end of display to clear the remaining area
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	881 movlw d'160'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	882 movwf lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	883 ; 10. clear it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	884 rcall TFT_dive_compass_clr_ruler
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	885
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	886 TFT_dive_compass_ruler_lend2:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	887 ; done with the compass ruler, put the labels on the screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	888 ; get the RD abck to sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	889 movff xRD+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	890 movff xRD+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	891 ; hi stores the display position
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	892 movlw d'0'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	893 movwf hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	894 ; lo stores the last item's display position
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	895 movlw d'0'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	896 movwf lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	897 bcf print_compass_label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	898
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	899 movlw d'14'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	900 movwf up ; up stores the width of hte label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	901 movlw low( d'219' ) ; position of the label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	902 movwf sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	903 movlw high( d'219' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	904 movwf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	905 rcall TFT_dive_compass_label_proc ; check if the label should be on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	906 btfss print_compass_label ; Yes?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	907 bra dcr_1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	908 STRCPY_TEXT_PRINT tSW ; yes - print it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	909 dcr_1:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	910 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	911
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	912 movlw d'7'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	913 movwf up ; up stores the width of hte label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	914 movlw low( d'267' ) ; position of the label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	915 movwf sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	916 movlw high( d'267' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	917 movwf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	918 rcall TFT_dive_compass_label_proc ; check if the label should be on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	919 btfss print_compass_label ; Yes?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	920 bra dcr_2
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	921 STRCPY_TEXT_PRINT tW ; yes - print it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	922 dcr_2:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	923 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	924
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	925 movlw d'14'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	926 movwf up ; up stores the width of hte label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	927 movlw low( d'309' ) ; position of the label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	928 movwf sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	929 movlw high( d'309' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	930 movwf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	931 rcall TFT_dive_compass_label_proc ; check if the label should be on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	932 btfss print_compass_label ; Yes?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	933 bra dcr_3
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	934 STRCPY_TEXT_PRINT tNW ; yes - print it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	935 dcr_3:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	936 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	937
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	938 movlw d'6'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	939 movwf up ; up stores the width of hte label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	940 movlw low( d'358' ) ; position of the label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	941 movwf sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	942 movlw high( d'358' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	943 movwf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	944 rcall TFT_dive_compass_label_proc ; check if the label should be on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	945 btfss print_compass_label ; Yes?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	946 bra dcr_4
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	947 STRCPY_TEXT_PRINT tN ; yes - print it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	948 dcr_4:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	949 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	950
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	951 movlw d'13'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	952 movwf up ; up stores the width of hte label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	953 movlw low( d'399' ) ; position of the label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	954 movwf sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	955 movlw high( d'399' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	956 movwf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	957 rcall TFT_dive_compass_label_proc ; check if the label should be on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	958 btfss print_compass_label ; Yes?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	959 bra dcr_5
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	960 STRCPY_TEXT_PRINT tNE ; yes - print it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	961 dcr_5:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	962 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	963
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	964 movlw d'6'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	965 movwf up ; up stores the width of hte label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	966 movlw low( d'448' ) ; position of the label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	967 movwf sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	968 movlw high( d'448' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	969 movwf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	970 rcall TFT_dive_compass_label_proc ; check if the label should be on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	971 btfss print_compass_label ; Yes?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	972 bra dcr_6
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	973 STRCPY_TEXT_PRINT tE ; yes - print it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	974 dcr_6:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	975 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	976
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	977 movlw d'13'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	978 movwf up ; up stores the width of hte label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	979 movlw low( d'489' ) ; position of the label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	980 movwf sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	981 movlw high( d'489' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	982 movwf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	983 rcall TFT_dive_compass_label_proc ; check if the label should be on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	984 btfss print_compass_label ; Yes?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	985 bra dcr_7
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	986 STRCPY_TEXT_PRINT tSE ; yes - print it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	987 dcr_7:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	988 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	989
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	990 movlw d'6'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	991 movwf up ; up stores the width of hte label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	992 movlw low( d'538' ) ; position of the label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	993 movwf sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	994 movlw high( d'538' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	995 movwf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	996 rcall TFT_dive_compass_label_proc ; check if the label should be on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	997 btfss print_compass_label ; Yes?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	998 bra dcr_8
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	999 STRCPY_TEXT_PRINT tS ; yes - print it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1000 dcr_8:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1001 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1002
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1003 movlw d'14'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1004 movwf up ; up stores the width of hte label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1005 movlw low( d'579' ) ; position of the label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1006 movwf sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1007 movlw high( d'579' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1008 movwf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1009 rcall TFT_dive_compass_label_proc ; check if the label should be on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1010 btfss print_compass_label ; Yes?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1011 bra dcr_9
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1012 STRCPY_TEXT_PRINT tSW ; yes - print it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1013 dcr_9:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1014 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1015
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1016 movlw d'7'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1017 movwf up ; up stores the width of hte label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1018 movlw low( d'627' ) ; position of the label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1019 movwf sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1020 movlw high( d'627' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1021 movwf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1022 rcall TFT_dive_compass_label_proc ; check if the label should be on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1023 btfss print_compass_label ; Yes?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1024 bra dcr_10
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1025 STRCPY_TEXT_PRINT tW ; yes - print it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1026 dcr_10:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1027 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1028
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1029 movlw d'14'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1030 movwf up ; up stores the width of hte label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1031 movlw low( d'669' ) ; position of the label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1032 movwf sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1033 movlw high( d'669' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1034 movwf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1035 rcall TFT_dive_compass_label_proc ; check if the label should be on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1036 btfss print_compass_label ; Yes?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1037 bra dcr_11
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1038 STRCPY_TEXT_PRINT tNW ; yes - print it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1039 dcr_11:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1040 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1041
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1042 movlw d'6'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1043 movwf up ; up stores the width of hte label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1044 movlw low( d'718' ) ; position of the label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1045 movwf sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1046 movlw high( d'718' )
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1047 movwf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1048 rcall TFT_dive_compass_label_proc ; check if the label should be on screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1049 btfss print_compass_label ; Yes?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1050 bra dcr_12
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1051 STRCPY_TEXT_PRINT tN ; yes - print it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1052 dcr_12:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1053 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1054
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1055 TFT_dive_compass_label_end:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1056 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1057 ; restore lo and hi for the final cleanup
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1058 movff xLO,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1059 movff xHI,hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1060 ; clear the rest of the SQ area if there are more space
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1061 movlw d'160'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1062 cpfslt hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1063 bra TFT_dive_compass_label_end2 ; D >= 160, no more space
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1064 ; position left to end of display to clear the remaining area
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1065 movlw d'160'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1066 movff WREG,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1067 ; clear it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1068 rcall TFT_dive_compass_clr_label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1069 TFT_dive_compass_label_end2:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1070 rcall TFT_dive_compass_c_mk ; check if label is on the center line or the marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1071 ; do we have bearing set?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1072 btfsc compass_bearing_set
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1073 bra TFT_dive_compass_dir_text ; bearing_set=1 - go and print the dir (<< or >>)
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1074 rcall TFT_dive_compass_dir_lclr ; no, clear the area (e.g. we had but removed)
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1075 rcall TFT_dive_compass_dir_rclr
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1076 bra TFT_dive_compass_text
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1077
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1078 TFT_dive_compass_dir_text:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1079 ; bearing set, but does it point to heading?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1080 btfss compass_bearing_eq
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1081 bra TFT_dive_compass_dir_text_2 ; bearing != heading - go and print the dir
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1082 rcall TFT_dive_compass_dir_lclr ; bearing = heading, no need for direction markers
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1083 rcall TFT_dive_compass_dir_rclr
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1084 bra TFT_dive_compass_text
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1085
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1086 TFT_dive_compass_dir_text_2:
257 5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1087 movlw color_green
5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1088 call TFT_set_color
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1089 btfsc compass_bearing_lft
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1090 bra TFT_dive_compass_dir_ldir ; bearing_lft=1, print the left marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1091 ;TFT_dive_compass_text_rdir:
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1092 WIN_SMALL dm_custom_compass_rdir_column, dm_custom_compass_head_row
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1093 STRCPY_PRINT ">>"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1094 ; do not forget to clear the left
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1095 rcall TFT_dive_compass_dir_lclr
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1096 bra TFT_dive_compass_text
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1097
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1098 TFT_dive_compass_dir_ldir:
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1099 WIN_SMALL dm_custom_compass_ldir_column, dm_custom_compass_head_row
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1100 STRCPY_PRINT "<<"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1101 ; do not forget to clear the right
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1102 rcall TFT_dive_compass_dir_rclr
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1103 ;bra TFT_dive_compass_text
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1104
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1105 TFT_dive_compass_text:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1106 ; Text output
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1107 call TFT_standard_color
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1108 WIN_SMALL dm_custom_compass_head_column, dm_custom_compass_head_row
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1109 rcall TFT_surface_compass_heading_com ; Show "000� N"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1110 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1111
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1112 TFT_dive_compass_dir_lclr:
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1113 WIN_SMALL dm_custom_compass_ldir_column, dm_custom_compass_head_row
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1114 STRCPY_PRINT " "
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1115 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1116
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1117 TFT_dive_compass_dir_rclr:
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1118 WIN_SMALL dm_custom_compass_rdir_column, dm_custom_compass_head_row
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1119 STRCPY_PRINT " "
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1120 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1121
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1122 TFT_dive_compass_label_proc:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1123 ; Input:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1124 ; xHI: DD - display'a current position
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1125 ; xRD: RD - ruler display offset
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1126 ; sub_a: RP - item's ruler display offset
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1127 ; get the RD abck to sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1128 movff xHI,hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1129 bcf print_compass_label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1130 ; 1/a. check if it's viewable ? sub_a(RP) >= sub_b(RD) ?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1131 ; set the carry flag if sub_b(xRD) is equal to or greater than sub_a(xRP):
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1132 movff xRD+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1133 movff xRD+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1134 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1135 btfsc neg_flag ; >=0?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1136 return ; No
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1137 ; store the RO=RP-RD for drawing
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1138 movff sub_c+0,xC+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1139 movff sub_c+1,xC+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1140
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1141 ; 1/b. check if it's viewable ? sub_a(RP)+up(width) < sub_b(RD)+160
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1142 ; if already above, no need to process the rest of the labels
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1143 ;movff up,WREG ; don't worry about the width, low level call prevents overload
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1144 movlw d'2' ; .. but still avoid thin mess on the side of the display
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1145 addwf sub_a+0,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1146 btfsc STATUS, C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1147 incf sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1148
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1149 movff xRDr+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1150 movff xRDr+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1151 call subU16 ; sub_c = sub_a - sub_b
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1152 btfss neg_flag ; ? <0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1153 bra TFT_dive_compass_label_end ; No
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1154
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1155 ; 2. restore RO=RP-RD from 1/a.
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1156 movff xC+0,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1157
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1158 ; 3. Clear the segment from DD(hi) to lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1159 ; don't do a clear if we are at 0 (zero) otherwise it will blink
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1160 ; ?because of the width underflow?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1161 movlw d'0'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1162 cpfsgt lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1163 bra TFT_dive_compass_label_proc_p
257 5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1164 rcall TFT_dive_compass_clr_label
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1165 TFT_dive_compass_label_proc_p:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1166 ; 4. print the SQ on the screen
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1167 call TFT_standard_color
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1168 bsf print_compass_label
257 5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1169 ;TFT_dive_compass_label_print:
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1170 movlw dm_custom_compass_label_row
257 5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1171 movff WREG,win_top
5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1172 movff lo,win_leftx2
5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1173 movlw FT_SMALL
5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1174 movff WREG,win_font
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1175 ; 6. retain the new display positions
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1176 movff hi,divB ; old-hi will be used by the c_mk : clear+marker printing
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1177 movff lo,hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1178 movff up,WREG
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1179 addwf hi,1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1180 movff lo,xLO
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1181 movff hi,xHI
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1182 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1183
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1184 TFT_dive_compass_c_mk:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1185 ; Common task to draw center line and marker
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1186 ; until a proper implementation make it simple:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1187 rcall TFT_dive_compass_mk
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1188 rcall TFT_dive_compass_cline
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1189 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1190
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1191 TFT_dive_compass_mk:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1192 ; draw the bearing on the screen if visible and if we just put something over it
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1193 btfss compass_bearing_set
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1194 return ; bearing_set=0 nothing to display
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1195
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1196 btfss compass_bearing_vis
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1197 return ; bearing set but not visible
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1198
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1199 ; save lo/hi from trashing
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1200 movff lo,xA+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1201 movff hi,xA+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1202
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1203 ; did we just update the marker's position?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1204 ; DD.......DD
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1205 ; CM+2>=DD(old) or CM-2<=DD
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1206 ; ToDo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1207
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1208 btfss compass_bearing_ahd
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1209 bra TFT_dive_compass_mk_rear
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1210 ;TFT_dive_compass_mk_front:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1211 clrf lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1212 movff xCM,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1213 bsf print_compass_label ; set=green marker
257 5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1214 rcall TFT_dive_compass_mk_print
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1215 bcf print_compass_label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1216 bra TFT_dive_compass_mk_end
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1217
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1218 TFT_dive_compass_mk_rear:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1219 clrf lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1220 movff xCM,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1221 bcf print_compass_label ; set=red marker
257 5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1222 rcall TFT_dive_compass_mk_print
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1223
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1224 TFT_dive_compass_mk_end:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1225 movff xA+0,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1226 movff xA+1,hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1227 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1228
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1229 TFT_dive_compass_mk_print:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1230 movlw d'1'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1231 cpfsgt lo
264 9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1232 bra TFT_dive_compass_mk_print_2 ; lo<=1, skip the first line
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1233 movlw d'2'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1234 subwf lo,0
257 5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1235 ; movff WREG,win_leftx2
5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1236 rcall TFT_dive_compass_mk_print_3
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1237 TFT_dive_compass_mk_print_2:
264 9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1238 ; save hi/lo
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1239 movff hi,divA+1
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1240 movff lo,divA+0
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1241 ; clear the middle of hte bearing marker
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1242 movff lo,hi
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1243 movlw d'2'
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1244 addwf lo,1
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1245 rcall TFT_dive_compass_clr_label
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1246 ; restore hi/lo
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1247 movff divA+1,hi
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1248 movff divA+0,lo
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1249 ; print a dot on the middle
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1250 movff lo,WREG
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1251 rcall TFT_dive_compass_mk_print_dot
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1252 ; finally print the right marker line
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1253 movlw d'2'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1254 addwf lo,0
257 5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1255 ; rcall TFT_dive_compass_mk_print_3
5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1256 ; return
5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1257 TFT_dive_compass_mk_print_3:
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1258 movff WREG,win_leftx2
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1259 movlw dm_custom_compass_label_row
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1260 movff WREG,win_top
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1261 movlw dm_custom_compass_label_height-.2
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1262 movff WREG,win_height
264 9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1263 bra TFT_dive_compass_mk_print_4
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1264 TFT_dive_compass_mk_print_dot:
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1265 movff WREG,win_leftx2
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1266 movlw dm_custom_compass_label_row + .9
264 9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1267 movff WREG,win_top
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1268 movlw d'4'
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1269 movff WREG,win_height
9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1270 TFT_dive_compass_mk_print_4:
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1271 movlw d'2'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1272 movff WREG,win_width
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1273 movff WREG,win_bargraph
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1274 movlw color_green
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1275 btfss print_compass_label
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1276 movlw color_red
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1277 call TFT_set_color
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1278 call TFT_box
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1279 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1280
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1281 TFT_dive_compass_clr_label:
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1282 movlw dm_custom_compass_label_row-.2 ; set top & height
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1283 movff WREG,win_top
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1284 movlw dm_custom_compass_label_height+.2
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1285 movff WREG,win_height
257 5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1286 rcall TFT_dive_compass_clear
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1287 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1288
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1289 TFT_dive_compass_clr_ruler:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1290 ; top tick
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1291 movlw dm_custom_compass_tick_top_top ; set top & height
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1292 movff WREG,win_top
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1293 movlw dm_custom_compass_tick_height
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1294 movff WREG,win_height
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1295 rcall TFT_dive_compass_clear
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1296 ;bottom tick
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1297 movlw dm_custom_compass_tick_bot_top ; set top & height
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1298 movff WREG,win_top
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1299 movlw dm_custom_compass_tick_height
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1300 movff WREG,win_height
257 5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1301 ; rcall TFT_dive_compass_clear
5dd0f39d05d4 minor speed and size improvements for the compass routine heinrichsweikamp parents: 256 diff changeset	1302 ; return
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1303 TFT_dive_compass_clear:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1304 ; we receive RM in lo and DD in hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1305 ; calculate width = RM-D
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1306 movff hi,WREG
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1307 subwf lo,0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1308 movff WREG,win_width ; RM-DD
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1309 movff WREG,win_bargraph
259 151148e2281f minor cleanup heinrichsweikamp parents: 258 diff changeset	1310 ; incf hi,W ; +1 pixel to avopid clipping of chars
151148e2281f minor cleanup heinrichsweikamp parents: 258 diff changeset	1311 ; movff WREG,win_leftx2
151148e2281f minor cleanup heinrichsweikamp parents: 258 diff changeset	1312 movff hi,win_leftx2
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1313 movlw color_black
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1314 call TFT_set_color
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1315 call TFT_box
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1316 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1317
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1318 TFT_dive_compass_ruler_print:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1319 ; we receive RM in lo and DD in hi
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1320 movlw dm_custom_compass_tick_top_top
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1321 movff WREG,win_top
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1322 movlw dm_custom_compass_tick_height
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1323 movff WREG,win_height
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1324 movlw d'2'
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1325 movff WREG,win_width
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1326 movff WREG,win_bargraph
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1327 movff lo,win_leftx2 ; 0..159
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1328 call TFT_standard_color
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1329 call TFT_box
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1330 movlw dm_custom_compass_tick_bot_top
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1331 movff WREG,win_top
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1332 movlw dm_custom_compass_tick_height
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1333 movff WREG,win_height
264 9dbdb060d44c Fix compass ruler's missing bottom ticks; Clear between the bearing marker lines and draw a dot. janos_kovacs <kovjanos@gmail.com> parents: 259 diff changeset	1334 call TFT_standard_color ; color in WREG is trashed, must be set again!
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1335 call TFT_box
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1336 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1337
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1338 TFT_dive_compass_cline:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1339 movlw color_yellow
300 5ad479f2a868 Merged Screen layout mod #1 into Screen layout work #3 Janos Kovacs <kovjanos@gmail.com> parents: 282 diff changeset	1340 WIN_BOX_COLOR dm_custom_compass_tick_top_top, dm_custom_compass_tick_bot_bot,.80,.81
256 5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1341 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1342
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1343 tft_compass_cardinal:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1344 btfsc hi,0 ; Heading >255�?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1345 bra tft_compass_cardinal2 ; Yes must be W, NW or N
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1346 ; No, Must be W, SW, S, SE, E, NE or N
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1347 movlw .23
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1348 subwf lo,W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1349 btfss STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1350 bra tft_compass_cardinal_N
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1351 movlw .68
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1352 subwf lo,W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1353 btfss STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1354 bra tft_compass_cardinal_NE
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1355 movlw .113
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1356 subwf lo,W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1357 btfss STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1358 bra tft_compass_cardinal_E
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1359 movlw .158
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1360 subwf lo,W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1361 btfss STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1362 bra tft_compass_cardinal_SE
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1363 movlw .203
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1364 subwf lo,W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1365 btfss STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1366 bra tft_compass_cardinal_S
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1367 movlw .248
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1368 subwf lo,W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1369 btfss STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1370 bra tft_compass_cardinal_SW
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1371 bra tft_compass_cardinal_W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1372
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1373 tft_compass_cardinal2:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1374 movlw .37
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1375 subwf lo,W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1376 btfss STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1377 bra tft_compass_cardinal_W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1378 movlw .82
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1379 subwf lo,W
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1380 btfss STATUS,C
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1381 bra tft_compass_cardinal_NW
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1382 ; bra tft_compass_cardinal_N
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1383 tft_compass_cardinal_N:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1384 STRCAT_TEXT tN
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1385 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1386 tft_compass_cardinal_NE:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1387 STRCAT_TEXT tNE
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1388 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1389 tft_compass_cardinal_E:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1390 STRCAT_TEXT tE
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1391 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1392 tft_compass_cardinal_SE:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1393 STRCAT_TEXT tSE
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1394 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1395 tft_compass_cardinal_S:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1396 STRCAT_TEXT tS
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1397 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1398 tft_compass_cardinal_SW:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1399 STRCAT_TEXT tSW
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1400 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1401 tft_compass_cardinal_W:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1402 STRCAT_TEXT tW
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1403 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1404 tft_compass_cardinal_NW:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1405 STRCAT_TEXT tNW
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1406 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1407
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1408 compass_heading_common:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1409 call speed_normal
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1410 movlw compass_averaging ; numbers of extra averaging
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1411 movwf up
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1412 compass_heading_common2:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1413 rcall TFT_get_compass
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1414 decfsz up,F
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1415 bra compass_heading_common2
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1416 extern compass
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1417 call compass ; Do compass corrections.
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1418 banksel common
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1419
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1420 ; More then compass_fast_treshold?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1421 movff compass_heading_old+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1422 movff compass_heading_old+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1423 movff compass_heading+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1424 movff compass_heading+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1425 call sub16
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1426 btfss neg_flag ; <0?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1427 bra compass_heading_common3 ; No, test for threshold
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1428 ; Yes, subtract the other way round
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1429 movff compass_heading+0,sub_a+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1430 movff compass_heading+1,sub_a+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1431 movff compass_heading_old+0,sub_b+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1432 movff compass_heading_old+1,sub_b+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1433 call sub16
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1434 compass_heading_common3:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1435 movff compass_heading+0,compass_heading_old+0 ; copy new "old"
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1436 movff compass_heading+1,compass_heading_old+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1437
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1438 bcf compass_fast_mode
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1439 movlw compass_fast_treshold
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1440 cpfslt sub_c+0 ; > compass_fast_treshold?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1441 bsf compass_fast_mode ; Yes!
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1442
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1443 btfss compass_fast_mode ; In fast mode?
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1444 return ; No.
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1445 ; Yes.
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1446 movff compass_heading+0,lo
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1447 movff compass_heading+1,hi
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1448 call TFT_convert_signed_16bit ; converts lo:hi into signed-short and adds '-' to POSTINC2 if required
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1449 movff lo,compass_heading_shown+0
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1450 movff hi,compass_heading_shown+1
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1451 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1452
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1453 TFT_get_compass:
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1454 call I2C_RX_compass ; Test Compass
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1455 call I2C_RX_accelerometer ; Test Accelerometer
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1456 call compass_filter ; Filter Raw compass + accel readings.
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1457 banksel common
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1458 return
5b4ef0b9090d place compass display code into compass_ops.asm heinrichsweikamp parents: 214 diff changeset	1459
147 fdd4e30846ae some cleanup heinrichsweikamp parents: 0 diff changeset	1460
0 11d4fc797f74 init heinrichsweikamp parents: diff changeset	1461 END

Mercurial > public > hwos_code

annotate src/compass_ops.asm @ 339:692903c50788