Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 369:93c0cb14b0d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Dive interval function * Adding interval menu
author JeanDo
date Fri, 10 Jun 2011 01:14:38 +0200
parents 06299199dfb9
children 61742b3ef842
comparison
equal deleted inserted replaced
368:de3b267e1fd9 369:93c0cb14b0d2
513 ; Update simulator menu with time/depth 513 ; Update simulator menu with time/depth
514 ; Note: because translations might change a bit the string length, we reprint 514 ; Note: because translations might change a bit the string length, we reprint
515 ; that part of the mask to be sure the numbers fit in the right places. 515 ; that part of the mask to be sure the numbers fit in the right places.
516 PLED_simulator_data: 516 PLED_simulator_data:
517 WIN_LEFT .20 517 WIN_LEFT .20
518 WIN_TOP .65 518 WIN_FONT FT_SMALL
519 WIN_FONT FT_SMALL 519 call PLED_standard_color
520 call PLED_standard_color 520
521 lfsr FSR2,letter 521 ;---- Updates interval line ----------------------------------------------
522 WIN_TOP .35
523 lfsr FSR2,letter
524 OUTPUTTEXTH .306 ; Interval:
525
526 movff char_I_dive_interval,lo
527 movf lo,W
528 bnz PLED_simulator_data_1
529 OUTPUTTEXTH .307 ; Now
530 clrf POSTINC2 ; End buffer.
531 bra PLED_simulator_data_2
532
533 PLED_simulator_data_1:
534 bsf leftbind
535 output_8
536 STRCAT "0min"
537
538 PLED_simulator_data_2:
539 call word_processor
540
541 ;---- Updates bottom time line -------------------------------------------
542 WIN_TOP .95
543 lfsr FSR2,letter
522 OUTPUTTEXTH .277 ; Bottom Time: 544 OUTPUTTEXTH .277 ; Bottom Time:
523 545
524 movff logbook_temp1,lo 546 movff logbook_temp1,lo
525 bsf leftbind 547 bsf leftbind
526 output_8 548 output_8
527 bcf leftbind
528 STRCAT_PRINT "min " 549 STRCAT_PRINT "min "
529 550
530 WIN_LEFT .20 551 ;---- Updates depth line -------------------------------------------------
531 WIN_TOP .95 552 WIN_TOP .125
532 lfsr FSR2,letter 553 lfsr FSR2,letter
533 OUTPUTTEXTH .278 ; Max. Depth: 554 OUTPUTTEXTH .278 ; Max. Depth:
534 555
535 movff logbook_temp2,lo 556 movff logbook_temp2,lo
536 bsf leftbind 557 bsf leftbind
537 output_8 558 output_8
538 bcf leftbind
539 STRCAT_PRINT "m " 559 STRCAT_PRINT "m "
560
561 bcf leftbind
540 return 562 return
541 563
542 ;============================================================================= 564 ;=============================================================================
543 565
544 PLED_display_velocity: 566 PLED_display_velocity:
930 952
931 PLED_simulator_mask: 953 PLED_simulator_mask:
932 call PLED_topline_box 954 call PLED_topline_box
933 WIN_INVERT .1 ; Init new Wordprocessor 955 WIN_INVERT .1 ; Init new Wordprocessor
934 DISPLAYTEXT .248 ; OSTC Simulator 956 DISPLAYTEXT .248 ; OSTC Simulator
935 WIN_INVERT .0 ; Init new Wordprocessor 957 WIN_INVERT .0 ; Init new Wordprocessor
936 DISPLAYTEXT .249 ; Start Dive 958 DISPLAYTEXTH .306 ; Interval:
937 DISPLAYTEXTH .277 ; Bottom Time: 959 DISPLAYTEXT .249 ; Start Dive
938 DISPLAYTEXTH .278 ; Max. Depth: 960 DISPLAYTEXTH .277 ; Bottom Time:
939 DISPLAYTEXTH .279 ; Calculate Deco 961 DISPLAYTEXTH .278 ; Max. Depth:
940 DISPLAYTEXTH .280 ; Show Decoplan 962 DISPLAYTEXTH .279 ; Calculate Deco
941 DISPLAYTEXT .11 ; Exit 963 DISPLAYTEXT .11 ; Exit
942 return 964 return
943 965
944 PLED_temp_surfmode: 966 PLED_temp_surfmode:
945 ostc_debug 'e' 967 ostc_debug 'e'
946 SAFE_2BYTE_COPY temperature, last_temperature 968 SAFE_2BYTE_COPY temperature, last_temperature