Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/menu_ppO2.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 96a35aeda5f2
children ab962c4b19d6
comparison
equal deleted inserted replaced
122:3003a8040b78 123:6a94f96e9cea
54 OUTPUTTEXT .112 ; SP# 54 OUTPUTTEXT .112 ; SP#
55 movff decodata+0,lo 55 movff decodata+0,lo
56 incf lo,F 56 incf lo,F
57 bsf leftbind 57 bsf leftbind
58 output_99 58 output_99
59 movlw ' ' 59 STRCAT " ("
60 movwf POSTINC2
61 movlw '('
62 movwf POSTINC2
63 60
64 OUTPUTTEXT d'192' ; Dil. 61 OUTPUTTEXT d'192' ; Dil.
65 movlw ' ' 62 PUTC ' '
66 movwf POSTINC2
67 63
68 read_int_eeprom d'33' ; Read byte (stored in EEDATA) 64 read_int_eeprom d'33' ; Read byte (stored in EEDATA)
69 movff EEDATA,active_gas ; Read start gas (1-5) 65 movff EEDATA,active_gas ; Read start gas (1-5)
70 66
71 decf active_gas,W ; Gas 0-4 67 decf active_gas,W ; Gas 0-4
78 74
79 75
80 bsf leftbind 76 bsf leftbind
81 output_99 77 output_99
82 78
83 movlw '/' 79 PUTC '/'
84 movwf POSTINC2
85 80
86 decf active_gas,W ; Gas 0-4 81 decf active_gas,W ; Gas 0-4
87 mullw d'4' 82 mullw d'4'
88 movf PRODL,W 83 movf PRODL,W
89 addlw d'7' ; = address for He ratio 84 addlw d'7' ; = address for He ratio
91 call read_eeprom ; Read He ratio 86 call read_eeprom ; Read He ratio
92 movff EEDATA,lo ; And copy into hold register 87 movff EEDATA,lo ; And copy into hold register
93 88
94 bsf leftbind 89 bsf leftbind
95 output_99 90 output_99
96 movlw ')' 91 STRCAT_PRINT ")"
97 movwf POSTINC2
98 call word_processor
99 92
100 93
101 WIN_LEFT .20 94 WIN_LEFT .20
102 WIN_TOP .65 95 WIN_TOP .65
103 96
110 movff EEDATA,lo 103 movff EEDATA,lo
111 clrf hi 104 clrf hi
112 bsf leftbind 105 bsf leftbind
113 output_16dp d'3' 106 output_16dp d'3'
114 bcf leftbind 107 bcf leftbind
115 movlw 'B' 108 STRCAT_PRINT "Bar "
116 movwf POSTINC2
117 movlw 'a'
118 movwf POSTINC2
119 movlw 'r'
120 movwf POSTINC2
121 movlw ' '
122 movwf POSTINC2
123 call word_processor
124 109
125 WIN_LEFT .20 110 WIN_LEFT .20
126 WIN_TOP .95 111 WIN_TOP .95
127 112
128 lfsr FSR2,letter 113 lfsr FSR2,letter
139 WIN_LEFT .20 124 WIN_LEFT .20
140 WIN_TOP .155 125 WIN_TOP .155
141 126
142 lfsr FSR2,letter 127 lfsr FSR2,letter
143 OUTPUTTEXT .89 ; "Default: " 128 OUTPUTTEXT .89 ; "Default: "
144 movlw '1' 129 STRCAT_PRINT "1.00"
145 movwf POSTINC2
146 movlw '.'
147 movwf POSTINC2
148 movlw '0'
149 movwf POSTINC2
150 movlw '0'
151 movwf POSTINC2
152 call word_processor
153 130
154 DISPLAYTEXT .11 ; Exit 131 DISPLAYTEXT .11 ; Exit
155 call wait_switches ; Waits until switches are released, resets flag if button stays pressed! 132 call wait_switches ; Waits until switches are released, resets flag if button stays pressed!
156 call PLED_menu_cursor 133 call PLED_menu_cursor
157 134