Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 339:cb77d1fa4535

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More cleanups in internal deco structures.
author JeanDo
date Wed, 18 May 2011 02:01:52 +0200
parents a7ed48daf597
children ecbbbd423e86
comparison
equal deleted inserted replaced
338:b75564fb3d4b 339:cb77d1fa4535
2787 movff WREG,win_leftx2 2787 movff WREG,win_leftx2
2788 call PLED_box 2788 call PLED_box
2789 PLED_no_graph_grid: 2789 PLED_no_graph_grid:
2790 2790
2791 ;---- Draw N2 Tissues ---------------------------------------------------- 2791 ;---- Draw N2 Tissues ----------------------------------------------------
2792 lfsr FSR2, char_O_tissue_saturation+.000 ; N2 2792 lfsr FSR2, char_O_tissue_N2_saturation
2793 movlw d'16' 2793 movlw d'16'
2794 movwf wait_temp ; 16 tissues 2794 movwf wait_temp ; 16 tissues
2795 clrf waitms_temp ; Row offset 2795 clrf waitms_temp ; Row offset
2796 2796
2797 movlw .1 2797 movlw .1
2833 2833
2834 decfsz wait_temp,F 2834 decfsz wait_temp,F
2835 bra PLED_tissue_saturation_graph3 2835 bra PLED_tissue_saturation_graph3
2836 2836
2837 ;---- Draw He Tissues ---------------------------------------------------- 2837 ;---- Draw He Tissues ----------------------------------------------------
2838 lfsr FSR2, char_O_tissue_saturation+.016 ; He 2838 lfsr FSR2, char_O_tissue_He_saturation
2839 movlw d'16' 2839 movlw d'16'
2840 movwf wait_temp ; 16 tissues 2840 movwf wait_temp ; 16 tissues
2841 clrf waitms_temp ; Row offset 2841 clrf waitms_temp ; Row offset
2842 2842
2843 PLED_tissue_saturation_graph2: 2843 PLED_tissue_saturation_graph2:
2893 btfsc divemode 2893 btfsc divemode
2894 return 2894 return
2895 2895
2896 movff char_O_gtissue_no,wait_temp ; used as temp 2896 movff char_O_gtissue_no,wait_temp ; used as temp
2897 2897
2898 lfsr FSR1,char_O_tissue_saturation+0 2898 lfsr FSR1,char_O_tissue_N2_saturation
2899 incf wait_temp,F ; make 1-16 of 0-15 2899 movf wait_temp,W ; W <- 0-15
2900 2900 movff PLUSW1,lo ; lo <- FSR1[W]
2901 PLED_tissue_saturation_graph4: ; point to leading tissue...
2902 movff POSTINC1,lo ; copy/overwrite to lo register
2903 decfsz wait_temp,F ; count until zero
2904 bra PLED_tissue_saturation_graph4 ;loop
2905 2901
2906 WIN_TOP .62 2902 WIN_TOP .62
2907 WIN_FONT FT_SMALL 2903 WIN_FONT FT_SMALL
2908 lfsr FSR2,letter 2904 lfsr FSR2,letter
2909 bsf leftbind 2905 bsf leftbind
3228 WIN_FONT FT_SMALL 3224 WIN_FONT FT_SMALL
3229 call PLED_standard_color 3225 call PLED_standard_color
3230 3226
3231 STRCAT_PRINT ") " 3227 STRCAT_PRINT ") "
3232 3228
3233 lfsr FSR1,char_O_tissue_saturation+0 3229 lfsr FSR1,char_O_tissue_N2_saturation
3234 incf wait_temp,F ; make 1-16 of 0-15 3230 movf wait_temp,W ; W <- 0-15
3235 PLED_show_leading_tissue3: ; point to leading tissue... 3231 movff PLUSW1,lo ; lo <- FSR1[W]
3236 movff POSTINC1,lo ; copy/overwrite to lo register
3237 decfsz wait_temp,F ; count until zero
3238 bra PLED_show_leading_tissue3 ;loop
3239 3232
3240 WIN_LEFT .95 3233 WIN_LEFT .95
3241 WIN_TOP .216 3234 WIN_TOP .216
3242 WIN_FONT FT_SMALL 3235 WIN_FONT FT_SMALL
3243 3236