Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/dive_icons.asm @ 123:6a94f96e9cea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
The big cleanup, again.
author JeanDo
date Thu, 30 Dec 2010 23:45:20 +0100
parents e0f29e20bd24
children 8bda2452a532
comparison
equal deleted inserted replaced
122:3003a8040b78 123:6a94f96e9cea
26 ; RATIONALS: Enabled gazes are used to predict TTS in divemode, hence they 26 ; RATIONALS: Enabled gazes are used to predict TTS in divemode, hence they
27 ; are a critical aspect that should be double-checked before dive. 27 ; are a critical aspect that should be double-checked before dive.
28 ; 28 ;
29 ; Known bug: 29 ; Known bug:
30 ;============================================================================= 30 ;=============================================================================
31 mixtype_icons code
32
33 ;=============================================================================
31 ; Display either Air, Nitrox, or Trimix icon (in surface mode). 34 ; Display either Air, Nitrox, or Trimix icon (in surface mode).
32 ; Inputs: None: explore the gaz list. 35 ; Inputs: None: explore the gaz list.
33 ; Ouputs: None. 36 ; Ouputs: None.
34 ; Trashed: hi:lo, PROD, and registers trashed by color_processor.asm 37 ; Trashed: hi:lo, PROD, and registers trashed by color_processor.asm
35 dive_type_icons: 38 dive_type_icons:
44 btfss WREG,0 ; Set ? 47 btfss WREG,0 ; Set ?
45 return ; NO: return 48 return ; NO: return
46 49
47 ;---- Common setup ----------------------------------------------- 50 ;---- Common setup -----------------------------------------------
48 movlw .170 51 movlw .170
49 movff WREG, img_top 52 movff WREG, win_top
50 movlw .110 53 movlw .110
51 movff WREG, img_left 54 movff WREG, win_leftx2
52 movlw UPPER(dive_air_block) 55 movlw UPPER(dive_air_block)
53 movwf TBLPTRU 56 movwf TBLPTRU
54 57
55 ;---- Explore gas list ------------------------------------------- 58 ;---- Explore gas list -------------------------------------------
56 ; EEADR <-- gas# + 6 59 ; EEADR <-- gas# + 6
133 movwf TBLPTRH 136 movwf TBLPTRH
134 movlw LOW(dive_trimix_block) 137 movlw LOW(dive_trimix_block)
135 movwf TBLPTRL 138 movwf TBLPTRL
136 139
137 dive_gaz_99: 140 dive_gaz_99:
138 rcall color_image 141 call color_image
139 movlb 1 ; Back to bank 1. 142 movlb 1 ; Back to bank 1.
140 return 143 return
141 144
142 ;============================================================================= 145 ;=============================================================================
143 146