Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/outputs.asm @ 682:8aaacf6eee3f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
right allignment
author heinrichsweikamp
date Fri, 25 Jan 2013 18:39:10 +0100
parents 6e456a6398e0
children f998411851b7
comparison
equal deleted inserted replaced
681:6e456a6398e0 682:8aaacf6eee3f
435 return ; Yes, return 435 return ; Yes, return
436 436
437 ostc_debug 'z' ; Sends debug-information to screen if debugmode active 437 ostc_debug 'z' ; Sends debug-information to screen if debugmode active
438 438
439 WIN_TOP .136 439 WIN_TOP .136
440 WIN_LEFT .119 440 WIN_LEFT .118
441 WIN_FONT FT_MEDIUM 441 WIN_FONT FT_MEDIUM
442 WIN_INVERT .0 ; Init new Wordprocessor 442 WIN_INVERT .0 ; Init new Wordprocessor
443 call DISP_standard_color 443 call DISP_standard_color
444 444
445 lfsr FSR2,letter 445 lfsr FSR2,letter
2718 btfss divemode ; In dive mode ? 2718 btfss divemode ; In dive mode ?
2719 sublw .240 ; No: bottom row in planning 2719 sublw .240 ; No: bottom row in planning
2720 movff WREG,win_height 2720 movff WREG,win_height
2721 2721
2722 WIN_LEFT .85 ; Full divemenu width 2722 WIN_LEFT .85 ; Full divemenu width
2723 movlw .160-.85+1 2723 movlw .159-.85+1
2724 movff WREG,win_width 2724 movff WREG,win_width
2725 2725
2726 clrf WREG ; Fill with black 2726 clrf WREG ; Fill with black
2727 movff WREG,win_color1 2727 movff WREG,win_color1
2728 movff WREG,win_color2 2728 movff WREG,win_color2
3099 3099
3100 bcf leftbind 3100 bcf leftbind
3101 return ; no, return 3101 return ; no, return
3102 3102
3103 DISP_clear_divemode_menu: 3103 DISP_clear_divemode_menu:
3104 WIN_BOX_BLACK .0, .168, .85, .160 ;top, bottom, left, right 3104 WIN_BOX_BLACK .0, .168, .85, .159 ;top, bottom, left, right
3105 return 3105 return
3106 3106
3107 DISP_divemenu_cursor: 3107 DISP_divemenu_cursor:
3108 ostc_debug 'l' ; Sends debug-information to screen if debugmode active 3108 ostc_debug 'l' ; Sends debug-information to screen if debugmode active
3109 3109
3538 ;============================================================================= 3538 ;=============================================================================
3539 ; Display TTS after extra time at the same depth. 3539 ; Display TTS after extra time at the same depth.
3540 ; 3540 ;
3541 DISP_show_@5: 3541 DISP_show_@5:
3542 WIN_FONT FT_SMALL 3542 WIN_FONT FT_SMALL
3543 WIN_LEFT .160-.70 ; 10 chars aligned right. 3543 WIN_LEFT .159-.70 ; 10 chars aligned right.
3544 WIN_TOP .170 3544 WIN_TOP .170
3545 call DISP_divemask_color ; Set Color for Divemode mask 3545 call DISP_divemask_color ; Set Color for Divemode mask
3546 lfsr FSR2,letter 3546 lfsr FSR2,letter
3547 3547
3548 OUTPUTTEXTH .305 ; "Future TTS" 3548 OUTPUTTEXTH .305 ; "Future TTS"
3632 return 3632 return
3633 3633
3634 ; Display pSCR ppO2 3634 ; Display pSCR ppO2
3635 DISP_show_pSCR_ppO2: 3635 DISP_show_pSCR_ppO2:
3636 WIN_FONT FT_SMALL 3636 WIN_FONT FT_SMALL
3637 WIN_LEFT .160-.63 ; 9 chars aligned right. 3637 WIN_LEFT .159-.63 ; 9 chars aligned right.
3638 WIN_TOP .170 3638 WIN_TOP .170
3639 call DISP_divemask_color ; Set Color for Divemode mask 3639 call DISP_divemask_color ; Set Color for Divemode mask
3640 lfsr FSR2,letter 3640 lfsr FSR2,letter
3641 OUTPUTTEXTH .266 ; "pSCR Info" 3641 OUTPUTTEXTH .266 ; "pSCR Info"
3642 call word_processor ; pCCR 3642 call word_processor ; pCCR
3683 ;============================================================================= 3683 ;=============================================================================
3684 ; Display cave consomation prediction (and warning). 3684 ; Display cave consomation prediction (and warning).
3685 ; 3685 ;
3686 DISP_show_cave_bailout: 3686 DISP_show_cave_bailout:
3687 WIN_FONT FT_SMALL 3687 WIN_FONT FT_SMALL
3688 WIN_LEFT .160-.70 ; 10 chars aligned right. 3688 WIN_LEFT .159-.70 ; 10 chars aligned right.
3689 WIN_TOP .170 3689 WIN_TOP .170
3690 call DISP_divemask_color ; Set Color for Divemode mask 3690 call DISP_divemask_color ; Set Color for Divemode mask
3691 lfsr FSR2,letter 3691 lfsr FSR2,letter
3692 3692
3693 OUTPUTTEXTH .311 ; "Cave Bail." 3693 OUTPUTTEXTH .311 ; "Cave Bail."