Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 14:239cb2cdc0c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1.53 beta - very small fix
author heinrichsweikamp
date Thu, 25 Mar 2010 22:20:34 +0100
parents 3b30cd739782
children 68825abc35f7
comparison
equal deleted inserted replaced
13:3b30cd739782 14:239cb2cdc0c9
1051 PLED_pre_dive_screen2_loop1: 1051 PLED_pre_dive_screen2_loop1:
1052 rrcf EEDATA ; roll flags into carry 1052 rrcf EEDATA ; roll flags into carry
1053 decfsz lo,F ; max. 5 times... 1053 decfsz lo,F ; max. 5 times...
1054 bra PLED_pre_dive_screen2_loop1 1054 bra PLED_pre_dive_screen2_loop1
1055 1055
1056 btfss STATUS,C ; test carry 1056 btfsc STATUS,C ; test carry
1057 bra PLED_pre_dive_white 1057 bra PLED_pre_dive_white
1058 1058
1059 movlw color_grey 1059 movlw color_grey
1060 call PLED_set_color ; grey out inactive gases! 1060 call PLED_set_color ; grey out inactive gases!
1061 bra PLED_pre_dive_color_done 1061 bra PLED_pre_dive_color_done
1131 cpfseq temp5 ; All gases shown? 1131 cpfseq temp5 ; All gases shown?
1132 bra PLED_pre_dive_screen3_loop ;no 1132 bra PLED_pre_dive_screen3_loop ;no
1133 1133
1134 bcf leftbind 1134 bcf leftbind
1135 return ; Return (CC Mode) 1135 return ; Return (CC Mode)
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151 ;
1152 ;
1153 ; WIN_LEFT .100
1154 ; WIN_FONT FT_SMALL
1155 ; bsf leftbind
1156 ;
1157 ; movlw d'2'
1158 ; movwf wait_temp ; here: stores eeprom address for gas list
1159 ; movlw d'231'
1160 ; movwf waitms_temp ; here: stores row for gas list
1161 ; clrf hi ; here: Gas counter
1162 ;
1163 ;PLED_gas_list_loop:
1164 ; incf hi,F ; Increase Gas
1165 ; movlw d'4'
1166 ; addwf wait_temp,F ; Increase eeprom address for gas list
1167 ;; movlw d'25'
1168 ;; addwf waitms_temp,F ; Increase row
1169 ;; WIN_LEFT .100
1170 ;; movff waitms_temp,win_top ; Set Row
1171 ;
1172 ; lfsr FSR2,letter
1173 ; movlw 'G'
1174 ; movwf POSTINC2
1175 ; movff hi,lo ; copy gas number
1176 ; output_8 ; display gas number
1177 ; movlw ':'
1178 ; movwf POSTINC2
1179 ; movff wait_temp, EEADR; Gas #hi: %O2 - Set address in internal EEPROM
1180 ; call read_eeprom ; get byte (stored in EEDATA)
1181 ; movff EEDATA,lo ; copy to lo
1182 ; output_8 ; outputs into Postinc2!
1183 ; movlw '/'
1184 ; movwf POSTINC2
1185 ; incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM
1186 ; call read_eeprom ; get byte (stored in EEDATA)
1187 ; movff EEDATA,lo ; copy to lo
1188 ; output_8 ; outputs into Postinc2!
1189 ;
1190 ;
1191 ; read_int_eeprom d'27' ; read flag register
1192 ; movff hi,lo ; copy gas number
1193 ;PLED_gas_list_loop1:
1194 ; rrcf EEDATA ; roll flags into carry
1195 ; decfsz lo,F ; max. 5 times...
1196 ; bra PLED_gas_list_loop1
1197 ;
1198 ; movlw .015
1199 ; btfss STATUS,C ; test carry
1200 ; movlw .010
1201 ; movwf grayvalue ; grey out inactive gases!
1202 ;
1203 ; call word_processor
1204 ; movlw .015
1205 ; movwf grayvalue ; reset grey value for compatibility
1206 ;
1207 ; movlw d'5' ; list all five gases
1208 ; cpfseq hi ; All gases shown?
1209 ; bra PLED_gas_list_loop ; No
1210 ;
1211 ; return ; No, return (OC mode)
1212 ;
1213 ;PLED_splist_start:
1214 ; WIN_LEFT .100
1215 ; WIN_FONT FT_SMALL
1216 ; bsf leftbind
1217 ;
1218 ; ; list three SP in Gaslist
1219 ; movlw d'35' ; 36 = current SP position in EEPROM
1220 ; movwf wait_temp ; here: stores eeprom address for gas list
1221 ; movlw d'231'
1222 ; movwf waitms_temp ; here: stores row for gas list
1223 ; clrf temp5 ; here: SP counter
1224 ;
1225 ;PLED_splist_loop:
1226 ; incf wait_temp,F ; EEPROM address
1227 ; incf temp5,F ; Increase SP
1228 ;
1229 ; movlw d'25'
1230 ; addwf waitms_temp,F ; Increase row
1231 ; movff waitms_temp,win_top ; Set Row
1232 ; WIN_LEFT .100
1233 ;
1234 ; lfsr FSR2,letter
1235 ; movlw 'S'
1236 ; movwf POSTINC2
1237 ; movlw 'P'
1238 ; movwf POSTINC2
1239 ; movff temp5,lo ; copy gas number
1240 ; output_8 ; display gas number
1241 ; movlw ':'
1242 ; movwf POSTINC2
1243 ; movff wait_temp, EEADR; SP #hi position
1244 ; call read_eeprom ; get byte (stored in EEDATA)
1245 ; movff EEDATA,lo ; copy to lo
1246 ; clrf hi
1247 ; output_16dp d'3' ; outputs into Postinc2!
1248 ; call word_processor
1249 ;
1250 ; movlw d'3' ; list all three SP
1251 ; cpfseq temp5 ; All gases shown?
1252 ; bra PLED_splist_loop ; No
1253 ;
1254 ; bcf leftbind
1255 ; return ; no, return
1256 ;
1257 ;
1258 ;
1259 ;
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273 1136
1274 PLED_active_gas_surfmode: ; Displays start gas/SP 1 1137 PLED_active_gas_surfmode: ; Displays start gas/SP 1
1275 ostc_debug 'q' ; Sends debug-information to screen if debugmode active 1138 ostc_debug 'q' ; Sends debug-information to screen if debugmode active
1276 1139
1277 btfsc FLAG_apnoe_mode ; In Apnoe mode? 1140 btfsc FLAG_apnoe_mode ; In Apnoe mode?