comparison code_part1/OSTC_code_asm_part1/menu_custom.asm @ 164:999abb01c78f

+ Change data allocation scheme
author JeanDo
date Fri, 21 Jan 2011 01:44:38 +0100
parents 6a94f96e9cea
children cb055a7d75f3
comparison
equal deleted inserted replaced
163:144822282fa3 164:999abb01c78f
64 ; 64 ;
65 CF_INT15 EQU 0x80; Default display. Flag for 15bit, typeless values. 65 CF_INT15 EQU 0x80; Default display. Flag for 15bit, typeless values.
66 66
67 ; Overlay our tmp data with some unused variables. But use more 67 ; Overlay our tmp data with some unused variables. But use more
68 ; meaningfull labels... 68 ; meaningfull labels...
69 cf32_x4 EQU divemins+0 ; CF# modulus 32, time 4. 69 #define cf32_x4 divemins+0 ; CF# modulus 32, time 4.
70 cf_type EQU divemins+1 ; Type of the edited CF 70 #define cf_type divemins+1 ; Type of the edited CF
71 cf_value EQU divesecs 71 #define cf_value divesecs
72 cf_min EQU apnoe_mins 72 #define cf_min apnoe_mins
73 cf_max EQU apnoe_secs 73 #define cf_max apnoe_secs
74 74
75 GETCUSTOM8 macro custom8 75 GETCUSTOM8 macro custom8
76 movlw custom8 76 movlw custom8
77 call getcustom8_1 77 call getcustom8_1
78 endm 78 endm
563 563
564 ;----------------------------------------------------------------------------- 564 ;-----------------------------------------------------------------------------
565 565
566 cf_fill_line: ; Mattias: No flicker if u clear just what you need... 566 cf_fill_line: ; Mattias: No flicker if u clear just what you need...
567 movf FSR2L,W ; How many chars lefts ? 567 movf FSR2L,W ; How many chars lefts ?
568 sublw (LOW letter) + .18 ; Remaining chars to fill: (letter + 18) - PTR 568 sublw letter + .18 ; Remaining chars to fill: (letter + 18) - PTR
569 btfsc STATUS,N ; Add chars until none left... 569 btfsc STATUS,N ; Add chars until none left...
570 return 570 return
571 PUTC ' ' 571 PUTC ' '
572 bra cf_fill_line 572 bra cf_fill_line
573 573