Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/menu_settime.asm @ 123:6a94f96e9cea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
The big cleanup, again.
author JeanDo
date Thu, 30 Dec 2010 23:45:20 +0100
parents 263348f83485
children f5e9db793dd3
comparison
equal deleted inserted replaced
122:3003a8040b78 123:6a94f96e9cea
83 WIN_LEFT .70 83 WIN_LEFT .70
84 WIN_TOP .65 84 WIN_TOP .65
85 lfsr FSR2,letter 85 lfsr FSR2,letter
86 movff hours,lo 86 movff hours,lo
87 output_99x 87 output_99x
88 movlw ':' 88 PUTC ':'
89 movwf POSTINC2
90 movff mins,lo 89 movff mins,lo
91 output_99x 90 output_99x
92 movlw ' ' 91 STRCAT_PRINT " "
93 movwf POSTINC2
94 movlw ' '
95 movwf POSTINC2
96 call word_processor
97 92
98 set_date_refresh: 93 set_date_refresh:
99 WIN_LEFT .70 94 WIN_LEFT .70
100 WIN_TOP .95 95 WIN_TOP .95
101 lfsr FSR2,letter 96 lfsr FSR2,letter
102 movff month,convert_value_temp+0 97 movff month,convert_value_temp+0
103 movff day,convert_value_temp+1 98 movff day,convert_value_temp+1
104 movff year,convert_value_temp+2 99 movff year,convert_value_temp+2
105 call PLED_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2 100 call PLED_convert_date ; converts into "DD/MM/YY" or "MM/DD/YY" or "YY/MM/DD" in postinc2
106 movlw ' ' 101 STRCAT_PRINT " "
107 movwf POSTINC2 102 return
108 movlw ' '
109 movwf POSTINC2
110 call word_processor
111 return
112
113 103
114 set_time_done: ; Check date 104 set_time_done: ; Check date
115 movff month,lo ; new month 105 movff month,lo ; new month
116 dcfsnz lo,F 106 dcfsnz lo,F
117 movlw .31 107 movlw .31
164 WIN_LEFT .70 154 WIN_LEFT .70
165 WIN_TOP .65 155 WIN_TOP .65
166 lfsr FSR2,letter 156 lfsr FSR2,letter
167 movff hours,lo 157 movff hours,lo
168 output_99x 158 output_99x
169 movlw ':' 159 PUTC ':'
170 movwf POSTINC2
171 movff mins,lo 160 movff mins,lo
172 output_99x 161 output_99x
173 movlw ':' 162 PUTC ':'
174 movwf POSTINC2
175 movff secs,lo 163 movff secs,lo
176 output_99x 164 output_99x
177 movlw ' ' 165 STRCAT_PRINT " "
178 movwf POSTINC2
179 call word_processor
180 166
181 decfsz wait_temp,F 167 decfsz wait_temp,F
182 bra set_time_done_loop 168 bra set_time_done_loop
183 exit_settime: ;Exit 169 exit_settime: ;Exit
184 movlw d'1' 170 movlw d'1'
201 dcfsnz menupos3,F 187 dcfsnz menupos3,F
202 bsf set_year 188 bsf set_year
203 189
204 WIN_LEFT .32 190 WIN_LEFT .32
205 WIN_TOP .155 191 WIN_TOP .155
192 call PLED_standard_color
206 lfsr FSR2,letter 193 lfsr FSR2,letter
207 OUTPUTTEXT .94 ; Set 194 OUTPUTTEXT .94 ; Set
208 195
209 movff menupos2,menupos3 196 movff menupos2,menupos3
210 decfsz menupos3,F 197 decfsz menupos3,F