Mercurial > public > mk2
diff code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 3:3cf8af30b36e
v1.51 beta
author | heinrichsweikamp |
---|---|
date | Thu, 04 Feb 2010 14:56:12 +0100 |
parents | 96a35aeda5f2 |
children | 2b5c52ae3923 |
line wrap: on
line diff
--- a/code_part1/OSTC_code_asm_part1/pled_outputs.asm Wed Jan 20 15:17:37 2010 +0100 +++ b/code_part1/OSTC_code_asm_part1/pled_outputs.asm Thu Feb 04 14:56:12 2010 +0100 @@ -23,6 +23,12 @@ ; known bugs: ; ToDo: More comments +PLED_standard_color: + GETCUSTOM8 d'35' ; Standard output color + call PLED_set_color + return + + ostc_debug macro debug_temp movlw debug_temp call ostc_debug1 @@ -45,7 +51,7 @@ WIN_LEFT .100 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movf debug_char+0,W movwf POSTINC2 @@ -71,7 +77,7 @@ call PLED_boot ; PLED boot call PLED_ClearScreen ; clean up OLED - WIN_COLOR color_white + call PLED_standard_color DISPLAYTEXT .133 DISPLAYTEXT .134 @@ -82,7 +88,7 @@ WIN_LEFT .10 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movf debug_char+0,W movwf POSTINC2 @@ -112,7 +118,7 @@ WIN_LEFT .10 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movff flag3,lo @@ -139,7 +145,7 @@ WIN_LEFT .10 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movff flag8,lo @@ -173,7 +179,7 @@ DISPLAYTEXTH .267 ; Max Depth DISPLAYTEXT .86 ; Divetime DISPLAYTEXT .87 ; Depth - WIN_COLOR color_white + call PLED_standard_color return PLED_clear_decoarea: @@ -198,7 +204,7 @@ WIN_COLOR color_red DISPLAYTEXT d'84' ; NoStop - WIN_COLOR color_white + call PLED_standard_color PLED_display_ndl_mask2: ; Clears Gradient Factor @@ -219,7 +225,8 @@ WIN_LEFT .119 WIN_FONT FT_MEDIUM WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movff char_O_nullzeit,lo ; NDL in minutes output_8 @@ -234,7 +241,7 @@ ; total deco time word WIN_COLOR color_red DISPLAYTEXT d'85' ; DECOSUM - WIN_COLOR color_white + call PLED_standard_color return PLED_display_deko: @@ -248,13 +255,13 @@ ; deco stop word WIN_COLOR color_red DISPLAYTEXT d'82' ; DEKOSTOP - WIN_COLOR color_white + call PLED_standard_color WIN_TOP .118 WIN_LEFT .94 WIN_FONT FT_MEDIUM WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movff char_O_array_decodepth+0,lo ; Ceiling in m output_99 @@ -277,7 +284,7 @@ WIN_LEFT .119 WIN_FONT FT_MEDIUM WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movff char_O_ascenttime,lo ; complete ascend time movlw d'199' ; limit display of total ascend time to 99mins.... @@ -302,7 +309,7 @@ WIN_TOP .145 WIN_LEFT .0 WIN_FONT FT_SMALL - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movlw 'G' movwf POSTINC2 @@ -323,7 +330,7 @@ WIN_TOP .65 WIN_LEFT .105 WIN_FONT FT_SMALL - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movff logbook_temp1,lo bsf leftbind @@ -342,7 +349,7 @@ WIN_TOP .95 WIN_LEFT .100 WIN_FONT FT_SMALL - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movff logbook_temp2,lo bsf leftbind @@ -363,7 +370,7 @@ WIN_TOP .90 WIN_LEFT .0 WIN_FONT FT_SMALL - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movlw '-' btfsc neg_flag @@ -417,7 +424,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movff surface_interval+0,lo @@ -514,7 +522,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 0xB8 movwf POSTINC2 @@ -524,7 +533,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 0xB8 movwf POSTINC2 @@ -534,7 +544,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 0xB8 movwf POSTINC2 @@ -544,7 +555,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 0xB8 movwf POSTINC2 @@ -554,7 +566,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 0xB8 movwf POSTINC2 @@ -564,7 +577,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 0xB8 movwf POSTINC2 @@ -588,7 +602,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 0xB7 movwf POSTINC2 @@ -683,7 +698,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw '-' btfsc neg_temp ; Show "-"? @@ -718,7 +734,8 @@ WIN_LEFT .65 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw '-' btfsc neg_temp ; Show "-"? @@ -742,7 +759,8 @@ WIN_TOP .120 WIN_LEFT .0 WIN_FONT FT_SMALL - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 'p' movwf POSTINC2 @@ -792,7 +810,8 @@ WIN_LEFT .65 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + movlw d'100' ; 100% in the tank movff char_I_N2_ratio,lo ; minus N2 @@ -853,7 +872,8 @@ ;ZH-L16 WIN_TOP .125 - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 'O' movwf POSTINC2 @@ -862,7 +882,8 @@ WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor WIN_TOP .150 - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 'C' movwf POSTINC2 @@ -881,7 +902,8 @@ bra show_decotype_surface4 ; const. ppO2 WIN_TOP .125 - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 'C' movwf POSTINC2 @@ -890,7 +912,8 @@ WIN_INVERT .0 ; Init new Wordprocessor call word_processor WIN_TOP .150 - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 'C' movwf POSTINC2 @@ -917,7 +940,8 @@ WIN_LEFT .85 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + call word_processor WIN_TOP .150 lfsr FSR2,letter @@ -926,7 +950,8 @@ WIN_LEFT .85 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + call word_processor return @@ -939,7 +964,8 @@ WIN_LEFT .85 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + call word_processor WIN_TOP .150 lfsr FSR2,letter @@ -948,7 +974,8 @@ WIN_LEFT .85 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + call word_processor return @@ -970,7 +997,8 @@ WIN_LEFT .90 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter read_int_eeprom d'36' movff EEDATA,lo ; copy to lo @@ -991,7 +1019,8 @@ WIN_LEFT .100 WIN_FONT FT_MEDIUM WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + read_int_eeprom d'33' ; Read byte (stored in EEDATA) movff EEDATA,active_gas ; Read start gas (1-5) @@ -1119,7 +1148,8 @@ WIN_LEFT .39 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 0xB7 ; Arrow for menu movwf POSTINC2 @@ -1211,7 +1241,8 @@ WIN_LEFT .0 WIN_FONT FT_LARGE WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + movlw HIGH d'99' movwf sub_a+1 @@ -1239,7 +1270,8 @@ WIN_FONT FT_MEDIUM WIN_TOP .50 WIN_LEFT .40 - WIN_COLOR color_white + call PLED_standard_color + movff rel_pressure+1,hi movff rel_pressure+0,lo @@ -1285,7 +1317,8 @@ WIN_LEFT .0 WIN_FONT FT_LARGE WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + bsf ignore_digit4 bsf leftbind output_16 @@ -1322,7 +1355,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter OUTPUTTEXT d'14' ; Desat movlw ' ' @@ -1349,7 +1383,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter OUTPUTTEXT d'35' ; NoFly movlw ' ' @@ -1383,7 +1418,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movff amb_pressure+0,lo movff amb_pressure+1,hi @@ -1418,7 +1454,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movff batt_voltage+0,lo movff batt_voltage+1,hi @@ -1513,7 +1550,8 @@ movff wait_temp,box_temp+4 ; column right (0-159) call PLED_box - WIN_COLOR color_white ; Reset Color + GETCUSTOM8 d'35' ; Standard output color + call PLED_set_color return update_batt_voltage2_empty: @@ -1640,7 +1678,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movff month,convert_value_temp+0 @@ -1674,7 +1713,8 @@ WIN_LEFT .0 WIN_FONT FT_MEDIUM WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movff max_pressure+0,lo movff max_pressure+1,hi @@ -1716,7 +1756,8 @@ WIN_TOP .20 WIN_LEFT .120 WIN_FONT FT_MEDIUM - WIN_COLOR color_white + call PLED_standard_color + call word_processor WIN_FONT FT_SMALL return @@ -1727,12 +1768,14 @@ WIN_COLOR color_red DISPLAYTEXT d'140' ; "SURFACE" - WIN_COLOR color_white + call PLED_standard_color + WIN_TOP .85 WIN_LEFT .90 WIN_FONT FT_MEDIUM - WIN_COLOR color_white + call PLED_standard_color + movff apnoe_surface_mins,lo bcf leftbind @@ -1765,12 +1808,14 @@ PLED_display_apnoe_descent: WIN_COLOR color_red DISPLAYTEXT d'139' ; "Descent" - WIN_COLOR color_white + call PLED_standard_color + WIN_TOP .145 WIN_LEFT .90 WIN_FONT FT_MEDIUM - WIN_COLOR color_white + call PLED_standard_color + movff apnoe_mins,lo lfsr FSR2,letter @@ -1799,7 +1844,8 @@ WIN_TOP .20 WIN_LEFT .90 WIN_FONT FT_MEDIUM - WIN_COLOR color_white + call PLED_standard_color + call word_processor bcf show_last3 WIN_FONT FT_SMALL @@ -1829,12 +1875,14 @@ WIN_COLOR color_red DISPLAYTEXTH d'283' ; Counter - WIN_COLOR color_white + call PLED_standard_color + WIN_TOP .80 WIN_LEFT .110 WIN_FONT FT_SMALL - WIN_COLOR color_white + call PLED_standard_color + @@ -1868,7 +1916,8 @@ WIN_TOP .80 WIN_LEFT .62 WIN_FONT FT_SMALL - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movff avr_rel_pressure+0,lo @@ -1892,7 +1941,8 @@ WIN_LEFT .0 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter OUTPUTTEXTH d'262' ; "OSTC " @@ -1960,7 +2010,8 @@ WIN_LEFT .100 WIN_TOP .0 WIN_FONT FT_SMALL - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 'S' movwf POSTINC2 @@ -2302,7 +2353,7 @@ WIN_LEFT .85 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movlw 0xB8 movwf POSTINC2 @@ -2311,7 +2362,7 @@ WIN_LEFT .85 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movlw 0xB8 movwf POSTINC2 @@ -2320,7 +2371,7 @@ WIN_LEFT .85 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movlw 0xB8 movwf POSTINC2 @@ -2329,7 +2380,7 @@ WIN_LEFT .85 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movlw 0xB8 movwf POSTINC2 @@ -2338,7 +2389,7 @@ WIN_LEFT .85 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movlw 0xB8 movwf POSTINC2 @@ -2360,7 +2411,8 @@ WIN_LEFT .85 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 0xB7 ; Arrow for menu movwf POSTINC2 @@ -2416,7 +2468,7 @@ call word_processor WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color return PLED_saturation_graph_divemode: @@ -2513,7 +2565,7 @@ WIN_LEFT .84 WIN_TOP .32 - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movlw 'N' movwf POSTINC2 @@ -2523,7 +2575,7 @@ WIN_LEFT .84 WIN_TOP .90 - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movlw 'H' movwf POSTINC2 @@ -2586,7 +2638,7 @@ WIN_LEFT .65 WIN_FONT FT_SMALL WIN_INVERT .0 ; Init new Wordprocessor - WIN_COLOR color_white + call PLED_standard_color lfsr FSR2,letter movff char_I_const_ppO2,lo @@ -2645,7 +2697,7 @@ WIN_LEFT .100 WIN_TOP .25 WIN_FONT FT_SMALL - WIN_COLOR color_white + call PLED_standard_color call word_processor lfsr FSR2,letter @@ -2663,7 +2715,7 @@ WIN_LEFT .100 WIN_TOP .50 WIN_FONT FT_SMALL - WIN_COLOR color_white + call PLED_standard_color call word_processor bcf leftbind return @@ -2672,7 +2724,7 @@ movlw .0 bra PLED_topline_box2 PLED_topline_box: ; Writes a filled box - movlw .255 + GETCUSTOM8 d'35' PLED_topline_box2: movff WREG,box_temp+0 ; Data movlw .000 @@ -2704,7 +2756,8 @@ WIN_TOP .090 WIN_LEFT .0 WIN_FONT FT_SMALL - WIN_COLOR color_white + call PLED_standard_color + lfsr FSR2,letter movlw 'C' @@ -2756,7 +2809,7 @@ PLED_custom_text3: call word_processor - WIN_COLOR color_white + call PLED_standard_color return PLED_get_custom_letter: