Mercurial > public > mk2
comparison code_part1/OSTC_code_asm_part1/outputs.asm @ 759:ae830d5e63ef
Start on new decogas display
| author | heinrichsweikamp |
|---|---|
| date | Sat, 30 Nov 2013 20:41:43 +0100 |
| parents | 3096294bb06e |
| children | cc997dde80cf |
comparison
equal
deleted
inserted
replaced
| 758:3096294bb06e | 759:ae830d5e63ef |
|---|---|
| 887 PUTC ':' | 887 PUTC ':' |
| 888 movff hi,lo | 888 movff hi,lo |
| 889 output_99x | 889 output_99x |
| 890 STRCAT_PRINT " " | 890 STRCAT_PRINT " " |
| 891 return | 891 return |
| 892 | |
| 893 | |
| 894 DISP_show_deco_gas: ; Show the next decogas | |
| 895 WIN_LEFT .90 | |
| 896 WIN_FONT FT_SMALL | |
| 897 WIN_INVERT .0 ; Init new Wordprocessor | |
| 898 call DISP_divemask_color ; Set Color for Divemode mask | |
| 899 DISPLAYTEXTH .270 ; Decogas | |
| 900 | |
| 901 DISP_show_deco_gas1: | |
| 902 WIN_LEFT .90 | |
| 903 WIN_FONT FT_SMALL | |
| 904 WIN_INVERT .0 ; Init new Wordprocessor | |
| 905 call DISP_standard_color | |
| 906 WIN_TOP .192 | |
| 907 movff char_O_deco_gas+0,lo | |
| 908 tstfsz lo ; =0? | |
| 909 bra $+4 ; No | |
| 910 bra DISP_show_deco_gas2 | |
| 911 incf lo,F ;+1 | |
| 912 STRCPY TXT_GAS1 ; "G" | |
| 913 bsf leftbind | |
| 914 output_8 | |
| 915 STRCAT TXT_AT4 ; " at " | |
| 916 movlw .27 ; 28=Gas 1 | |
| 917 addwf lo,W | |
| 918 movwf EEADR | |
| 919 clrf EEADRH ; Get Change depth | |
| 920 call read_eeprom | |
| 921 movff EEDATA,lo | |
| 922 tstfsz lo ; =0? | |
| 923 bra $+4 ; No | |
| 924 bra DISP_show_deco_gas2 | |
| 925 output_8 ; Change depth | |
| 926 bcf leftbind | |
| 927 STRCAT "m " | |
| 928 clrf WREG | |
| 929 movff WREG,letter+9 ; Limit to 8 chars | |
| 930 STRCAT_PRINT "" | |
| 931 | |
| 932 WIN_TOP .216 | |
| 933 movff char_O_deco_gas+1,lo | |
| 934 tstfsz lo ; =0? | |
| 935 bra $+4 ; No | |
| 936 bra DISP_show_deco_gas3 | |
| 937 incf lo,F ;+1 | |
| 938 STRCPY TXT_GAS1 ; "G" | |
| 939 bsf leftbind | |
| 940 output_8 | |
| 941 STRCAT TXT_AT4 ; " at " | |
| 942 movlw .27 ; 28=Gas 1 | |
| 943 addwf lo,W | |
| 944 movwf EEADR | |
| 945 clrf EEADRH ; Get Change depth | |
| 946 call read_eeprom | |
| 947 movff EEDATA,lo | |
| 948 tstfsz lo ; =0? | |
| 949 bra $+4 ; No | |
| 950 bra DISP_show_deco_gas3 | |
| 951 output_8 ; Change depth | |
| 952 bcf leftbind | |
| 953 STRCAT "m " | |
| 954 clrf WREG | |
| 955 movff WREG,letter+9 ; Limit to 8 chars | |
| 956 STRCAT_PRINT "" | |
| 957 return | |
| 958 | |
| 959 DISP_show_deco_gas2: | |
| 960 WIN_BOX_BLACK .192, .239, .90, .159 ;top, bottom, left, right | |
| 961 return | |
| 962 | |
| 963 DISP_show_deco_gas3: | |
| 964 WIN_BOX_BLACK .216, .239, .90, .159 ;top, bottom, left, right | |
| 965 return | |
| 892 | 966 |
| 893 DISP_show_gf_customview: | 967 DISP_show_gf_customview: |
| 894 WIN_LEFT .93 | 968 WIN_LEFT .93 |
| 895 WIN_FONT FT_SMALL | 969 WIN_FONT FT_SMALL |
| 896 WIN_INVERT .0 ; Init new Wordprocessor | 970 WIN_INVERT .0 ; Init new Wordprocessor |