Mercurial > public > mk2
diff code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 14:239cb2cdc0c9
1.53 beta - very small fix
author | heinrichsweikamp |
---|---|
date | Thu, 25 Mar 2010 22:20:34 +0100 |
parents | 3b30cd739782 |
children | 68825abc35f7 |
line wrap: on
line diff
--- a/code_part1/OSTC_code_asm_part1/pled_outputs.asm Thu Mar 25 22:16:19 2010 +0100 +++ b/code_part1/OSTC_code_asm_part1/pled_outputs.asm Thu Mar 25 22:20:34 2010 +0100 @@ -1053,7 +1053,7 @@ decfsz lo,F ; max. 5 times... bra PLED_pre_dive_screen2_loop1 - btfss STATUS,C ; test carry + btfsc STATUS,C ; test carry bra PLED_pre_dive_white movlw color_grey @@ -1134,143 +1134,6 @@ bcf leftbind return ; Return (CC Mode) - - - - - - - - - - - - - - -; -; -; WIN_LEFT .100 -; WIN_FONT FT_SMALL -; bsf leftbind -; -; movlw d'2' -; movwf wait_temp ; here: stores eeprom address for gas list -; movlw d'231' -; movwf waitms_temp ; here: stores row for gas list -; clrf hi ; here: Gas counter -; -;PLED_gas_list_loop: -; incf hi,F ; Increase Gas -; movlw d'4' -; addwf wait_temp,F ; Increase eeprom address for gas list -;; movlw d'25' -;; addwf waitms_temp,F ; Increase row -;; WIN_LEFT .100 -;; movff waitms_temp,win_top ; Set Row -; -; lfsr FSR2,letter -; movlw 'G' -; movwf POSTINC2 -; movff hi,lo ; copy gas number -; output_8 ; display gas number -; movlw ':' -; movwf POSTINC2 -; movff wait_temp, EEADR; Gas #hi: %O2 - Set address in internal EEPROM -; call read_eeprom ; get byte (stored in EEDATA) -; movff EEDATA,lo ; copy to lo -; output_8 ; outputs into Postinc2! -; movlw '/' -; movwf POSTINC2 -; incf EEADR,F ; Gas #hi: %He - Set address in internal EEPROM -; call read_eeprom ; get byte (stored in EEDATA) -; movff EEDATA,lo ; copy to lo -; output_8 ; outputs into Postinc2! -; -; -; read_int_eeprom d'27' ; read flag register -; movff hi,lo ; copy gas number -;PLED_gas_list_loop1: -; rrcf EEDATA ; roll flags into carry -; decfsz lo,F ; max. 5 times... -; bra PLED_gas_list_loop1 -; -; movlw .015 -; btfss STATUS,C ; test carry -; movlw .010 -; movwf grayvalue ; grey out inactive gases! -; -; call word_processor -; movlw .015 -; movwf grayvalue ; reset grey value for compatibility -; -; movlw d'5' ; list all five gases -; cpfseq hi ; All gases shown? -; bra PLED_gas_list_loop ; No -; -; return ; No, return (OC mode) -; -;PLED_splist_start: -; WIN_LEFT .100 -; WIN_FONT FT_SMALL -; bsf leftbind -; -; ; list three SP in Gaslist -; movlw d'35' ; 36 = current SP position in EEPROM -; movwf wait_temp ; here: stores eeprom address for gas list -; movlw d'231' -; movwf waitms_temp ; here: stores row for gas list -; clrf temp5 ; here: SP counter -; -;PLED_splist_loop: -; incf wait_temp,F ; EEPROM address -; incf temp5,F ; Increase SP -; -; movlw d'25' -; addwf waitms_temp,F ; Increase row -; movff waitms_temp,win_top ; Set Row -; WIN_LEFT .100 -; -; lfsr FSR2,letter -; movlw 'S' -; movwf POSTINC2 -; movlw 'P' -; movwf POSTINC2 -; movff temp5,lo ; copy gas number -; output_8 ; display gas number -; movlw ':' -; movwf POSTINC2 -; movff wait_temp, EEADR; SP #hi position -; call read_eeprom ; get byte (stored in EEDATA) -; movff EEDATA,lo ; copy to lo -; clrf hi -; output_16dp d'3' ; outputs into Postinc2! -; call word_processor -; -; movlw d'3' ; list all three SP -; cpfseq temp5 ; All gases shown? -; bra PLED_splist_loop ; No -; -; bcf leftbind -; return ; no, return -; -; -; -; - - - - - - - - - - - - - - PLED_active_gas_surfmode: ; Displays start gas/SP 1 ostc_debug 'q' ; Sends debug-information to screen if debugmode active