Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 619:85e8e1501fd8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New CF66: Show GF in NDL (If GF > CF08)
author heinrichsweikamp
date Fri, 27 Jul 2012 19:32:18 +0200
parents 227eaded4e1b
children 7e2c324aa333
comparison
equal deleted inserted replaced
618:6b9713b56bca 619:85e8e1501fd8
405 PLED_clear_decoarea: 405 PLED_clear_decoarea:
406 WIN_BOX_BLACK .54, .168, .90, .159 ;top, bottom, left, right 406 WIN_BOX_BLACK .54, .168, .90, .159 ;top, bottom, left, right
407 return 407 return
408 408
409 PLED_display_ndl_mask: 409 PLED_display_ndl_mask:
410 btfsc menubit ; Divemode menu active?
411 return ; Yes, return
412
413 ; Clear Dekostop and Dekosum
414 rcall PLED_clear_decoarea
415 call PLED_divemask_color ; Set Color for Divemode mask
416 DISPLAYTEXT d'84' ; NoStop
417 call PLED_standard_color
418
419 PLED_display_ndl_mask2:
420 ; Clears Gradient Factor 410 ; Clears Gradient Factor
421 movlw d'8' 411 movlw d'8'
422 movwf temp1 412 movwf temp1
423 WIN_TOP .145 413 WIN_TOP .145
424 WIN_LEFT .0 414 WIN_LEFT .0
425 call PLED_display_clear_common_y1 415 call PLED_display_clear_common_y1
416
417 btfsc menubit ; Divemode menu active?
418 return ; Yes, return
419
420 ; Clear Dekostop and Dekosum
421 rcall PLED_clear_decoarea
422 call PLED_divemask_color ; Set Color for Divemode mask
423 DISPLAYTEXT d'84' ; NoStop
424 call PLED_standard_color
426 return 425 return
427 426
428 PLED_display_ndl: 427 PLED_display_ndl:
428 GETCUSTOM8 d'66' ; Always show GF?
429 decfsz WREG,F ; WREG=1?
430 bra PLED_display_ndl2 ; No
431 rcall PLED_display_gf ; Show GF (If GF > CF08)
432
433 PLED_display_ndl2:
429 btfsc menubit ; Divemode menu active? 434 btfsc menubit ; Divemode menu active?
430 return ; Yes, return 435 return ; Yes, return
431 436
432 ostc_debug 'z' ; Sends debug-information to screen if debugmode active 437 ostc_debug 'z' ; Sends debug-information to screen if debugmode active
433 438
475 movff char_O_first_deco_time,lo ; length of first stop in m 480 movff char_O_first_deco_time,lo ; length of first stop in m
476 output_99 481 output_99
477 STRCAT_PRINT "'" 482 STRCAT_PRINT "'"
478 WIN_FONT FT_SMALL 483 WIN_FONT FT_SMALL
479 484
480 ;PLED_display_deko1:
481 ostc_debug 'x' ; Sends debug-information to screen if debugmode active 485 ostc_debug 'x' ; Sends debug-information to screen if debugmode active
482 486
483 WIN_TOP .136 487 WIN_TOP .136
484 WIN_LEFT .140 - 6*7 - 4 ; let space for sign + 5 digits + ' 488 WIN_LEFT .140 - 6*7 - 4 ; let space for sign + 5 digits + '
485 WIN_FONT FT_MEDIUM 489 WIN_FONT FT_MEDIUM
491 movff int_O_ascenttime+1,hi ; on 16bits 495 movff int_O_ascenttime+1,hi ; on 16bits
492 output_16 496 output_16
493 STRCAT_PRINT "'" 497 STRCAT_PRINT "'"
494 498
495 PLED_display_deko1: 499 PLED_display_deko1:
496 movff char_O_gradient_factor,lo ; gradient factor 500 rcall PLED_display_gf ; Show GF (If GF > CF08)
497 GETCUSTOM8 d'8' ; threshold for display 501 return ; Done.
498 cpfslt lo ; show value? 502
499 bra PLED_display_deko2 ; Yes 503 PLED_display_gf:
504 movff char_O_gradient_factor,lo ; gradient factor
505 GETCUSTOM8 d'8' ; threshold for display
506 cpfslt lo ; show value?
507 bra PLED_display_deko2 ; Yes
500 ; No 508 ; No
501 bra PLED_display_ndl_mask2 ; Clear gradient factor 509 ; Clears Gradient Factor
510 movlw d'8'
511 movwf temp1
512 WIN_TOP .145
513 WIN_LEFT .0
514 call PLED_display_clear_common_y1
515 return
502 516
503 PLED_display_deko2: 517 PLED_display_deko2:
504 ostc_debug 'w' ; Sends debug-information to screen if debugmode active 518 ostc_debug 'w' ; Sends debug-information to screen if debugmode active
505 ;GF 519 ;GF
506 WIN_TOP .145 520 WIN_TOP .145