Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 587:1b021a280e15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
NEW CF64: Configures color for inactive gases
author heinrichsweikamp
date Sun, 13 May 2012 15:40:21 +0200
parents ab2686087bce
children cda5b45b953f
comparison
equal deleted inserted replaced
586:b4a4aa5d169a 587:1b021a280e15
1284 PLED_white_gas: 1284 PLED_white_gas:
1285 GETCUSTOM8 d'35' ;movlw color_white 1285 GETCUSTOM8 d'35' ;movlw color_white
1286 goto PLED_set_color ; grey out inactive gases! 1286 goto PLED_set_color ; grey out inactive gases!
1287 1287
1288 PLED_grey_gas: 1288 PLED_grey_gas:
1289 movlw color_grey 1289 GETCUSTOM8 d'64' ;movlw color_grey
1290 goto PLED_set_color ; grey out inactive gases! 1290 goto PLED_set_color ; grey out inactive gases!
1291 1291
1292 ;----------------------------------------------------------------------------- 1292 ;-----------------------------------------------------------------------------
1293 ; Display Pre-Dive Screen 1293 ; Display Pre-Dive Screen
1294 1294
2370 WIN_LEFT .1 2370 WIN_LEFT .1
2371 WIN_FONT FT_SMALL 2371 WIN_FONT FT_SMALL
2372 WIN_INVERT .0 ; Init new Wordprocessor 2372 WIN_INVERT .0 ; Init new Wordprocessor
2373 2373
2374 ifdef __DEBUG 2374 ifdef __DEBUG
2375 movlw color_grey ; Write header in blue when 2375 GETCUSTOM8 d'64' ; Write header in blue when
2376 call PLED_set_color ; compiled in DEBUG mode... 2376 call PLED_set_color ; compiled in DEBUG mode...
2377 else 2377 else
2378 call PLED_standard_color 2378 call PLED_standard_color
2379 endif 2379 endif
2380 2380
2737 decfsz lo,F ; max. 5 times... 2737 decfsz lo,F ; max. 5 times...
2738 bra PLED_de_activelist_loop1 2738 bra PLED_de_activelist_loop1
2739 bc PLED_de_activelist_white 2739 bc PLED_de_activelist_white
2740 2740
2741 PLED_de_activelist_grey: ; grey out inactive gases! 2741 PLED_de_activelist_grey: ; grey out inactive gases!
2742 movlw color_grey 2742 GETCUSTOM8 d'64' ;movlw color_grey
2743 call PLED_set_color 2743 call PLED_set_color
2744 2744
2745 PLED_de_activelist_white: 2745 PLED_de_activelist_white:
2746 call word_processor 2746 call word_processor
2747 call PLED_standard_color 2747 call PLED_standard_color
2832 PLED_gas_list_loop1: 2832 PLED_gas_list_loop1:
2833 rrcf EEDATA ; roll flags into carry 2833 rrcf EEDATA ; roll flags into carry
2834 decfsz lo,F ; max. 5 times... 2834 decfsz lo,F ; max. 5 times...
2835 bra PLED_gas_list_loop1 2835 bra PLED_gas_list_loop1
2836 2836
2837 movlw color_grey
2838 btfss STATUS,C ; test carry 2837 btfss STATUS,C ; test carry
2839 call PLED_set_color ; grey out inactive gases! 2838 rcall PLED_gas_list_grey
2840 2839
2841 call word_processor 2840 call word_processor
2842 call PLED_standard_color 2841 call PLED_standard_color
2843 2842
2844 movlw d'5' ; list all five gases 2843 movlw d'5' ; list all five gases
2845 cpfseq hi ; All gases shown? 2844 cpfseq hi ; All gases shown?
2846 bra PLED_gas_list_loop ; No 2845 bra PLED_gas_list_loop ; No
2847 2846
2848 DISPLAYTEXT d'122' ; More 2847 DISPLAYTEXT d'122' ; More
2849 return ; return (OC mode) 2848 return ; return (OC mode)
2849
2850 PLED_gas_list_grey:
2851 GETCUSTOM8 d'64' ;movlw color_grey
2852 call PLED_set_color ; grey out inactive gases!
2853 return
2850 2854
2851 PLED_splist_start: 2855 PLED_splist_start:
2852 WIN_LEFT .100 2856 WIN_LEFT .100
2853 WIN_FONT FT_SMALL 2857 WIN_FONT FT_SMALL
2854 bsf leftbind 2858 bsf leftbind
2941 2945
2942 ;---- Draw grid ---------------------------------------------------------- 2946 ;---- Draw grid ----------------------------------------------------------
2943 btfss divemode 2947 btfss divemode
2944 bra PLED_no_graph_grid 2948 bra PLED_no_graph_grid
2945 2949
2946 movlw color_grey 2950 GETCUSTOM8 d'64' ;movlw color_grey
2947 call PLED_set_color 2951 call PLED_set_color
2948 2952
2949 movlw .169+.1 ; divemode 2953 movlw .169+.1 ; divemode
2950 movff WREG,win_top 2954 movff WREG,win_top
2951 movlw .239-.169-.1 ; divemode 2955 movlw .239-.169-.1 ; divemode
3789 3793
3790 tstfsz divemins ; Test change depth=0? 3794 tstfsz divemins ; Test change depth=0?
3791 bra PLED_simdata_white ; Is not zero 3795 bra PLED_simdata_white ; Is not zero
3792 3796
3793 PLED_simdata_grey: 3797 PLED_simdata_grey:
3794 movlw color_grey 3798 GETCUSTOM8 d'64' ;movlw color_grey
3795 call PLED_set_color ; grey out inactive gases! 3799 call PLED_set_color ; grey out inactive gases!
3796 bra PLED_simdata_color_done 3800 bra PLED_simdata_color_done
3797 3801
3798 PLED_simdata_white: 3802 PLED_simdata_white:
3799 call PLED_standard_color 3803 call PLED_standard_color