Mercurial > public > mk2
diff code_part1/OSTC_code_asm_part1/menu_gassetup.asm @ 50:c97c5514b165
1.70..
| author | heinrichsweikamp |
|---|---|
| date | Thu, 29 Jul 2010 13:23:08 +0200 |
| parents | cd5b650920f6 |
| children | 6f8e3a08011e |
line wrap: on
line diff
--- a/code_part1/OSTC_code_asm_part1/menu_gassetup.asm Wed Jul 28 15:40:03 2010 +0200 +++ b/code_part1/OSTC_code_asm_part1/menu_gassetup.asm Thu Jul 29 13:23:08 2010 +0200 @@ -1092,29 +1092,31 @@ WIN_LEFT .55 WIN_TOP .35 lfsr FSR2,letter - movlw '(' - movwf POSTINC2 - movlw 'p' - movwf POSTINC2 - movlw 'p' - movwf POSTINC2 - movlw 'O' - movwf POSTINC2 - movlw '2' - movwf POSTINC2 - movlw ':' - movwf POSTINC2 + OUTPUTTEXT d'149' ; (ppO2: +; movlw '(' +; movwf POSTINC2 +; movlw 'p' +; movwf POSTINC2 +; movlw 'p' +; movwf POSTINC2 +; movlw 'O' +; movwf POSTINC2 +; movlw '2' +; movwf POSTINC2 +; movlw ':' +; movwf POSTINC2 output_16dp d'3' - movlw 'B' - movwf POSTINC2 - movlw 'a' - movwf POSTINC2 - movlw 'r' - movwf POSTINC2 - movlw ')' - movwf POSTINC2 - movlw ' ' - movwf POSTINC2 + OUTPUTTEXT d'150' ; Bar: +; movlw 'B' +; movwf POSTINC2 +; movlw 'a' +; movwf POSTINC2 +; movlw 'r' +; movwf POSTINC2 +; movlw ')' +; movwf POSTINC2 +; movlw ' ' +; movwf POSTINC2 call word_processor return @@ -1324,17 +1326,17 @@ movlw d'0' addwfc FSR2H,F ; Point to Gas #logbook_temp3 (0-4) - btfsc menubit2 ; Change Start gas only 1x - bra gassetup_sort_store2 ; Skip -; First Gas: 33 (1-5) -; Was gas #logbook_temp3 first gas? - read_int_eeprom d'33' ; Get old first gas (1-5) - incf logbook_temp3,W ; Gas 1-5 -> WREG - cpfseq EEDATA ; Compare with EEDATA d'33' - bra gassetup_sort_store2 ; Was not first gas! - movff logbook_temp5,EEDATA ; Copy new first gas - write_int_eeprom d'123' ; Store - bsf menubit2 ; Done. Do not change again. +; btfsc menubit2 ; Change Start gas only 1x +; bra gassetup_sort_store2 ; Skip +;; First Gas: 33 (1-5) +;; Was gas #logbook_temp3 first gas? +; read_int_eeprom d'33' ; Get old first gas (1-5) +; incf logbook_temp3,W ; Gas 1-5 -> WREG +; cpfseq EEDATA ; Compare with EEDATA d'33' +; bra gassetup_sort_store2 ; Was not first gas! +; movff logbook_temp5,EEDATA ; Copy new first gas +; write_int_eeprom d'123' ; Store +; bsf menubit2 ; Done. Do not change again. gassetup_sort_store2: ; Was Gas #logbook_temp3 active? @@ -1359,7 +1361,6 @@ movf logbook_temp5,W ; 1-5 mullw d'4' movff PRODL,EEADR ; Point to EEPROM of Gas #logbook_temp5 - movlw d'90' ; +90 Offset to new... addwf EEADR,F ; ..sorted list!