Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 3:3cf8af30b36e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
v1.51 beta
author heinrichsweikamp
date Thu, 04 Feb 2010 14:56:12 +0100
parents 96a35aeda5f2
children 2b5c52ae3923
comparison
equal deleted inserted replaced
2:d11ef8dc4b2c 3:3cf8af30b36e
21 ; written: 15/01/05 21 ; written: 15/01/05
22 ; last updated: 06/06/08 22 ; last updated: 06/06/08
23 ; known bugs: 23 ; known bugs:
24 ; ToDo: More comments 24 ; ToDo: More comments
25 25
26 PLED_standard_color:
27 GETCUSTOM8 d'35' ; Standard output color
28 call PLED_set_color
29 return
30
31
26 ostc_debug macro debug_temp 32 ostc_debug macro debug_temp
27 movlw debug_temp 33 movlw debug_temp
28 call ostc_debug1 34 call ostc_debug1
29 endm 35 endm
30 36
43 49
44 WIN_TOP .200 50 WIN_TOP .200
45 WIN_LEFT .100 51 WIN_LEFT .100
46 WIN_FONT FT_SMALL 52 WIN_FONT FT_SMALL
47 WIN_INVERT .0 ; Init new Wordprocessor 53 WIN_INVERT .0 ; Init new Wordprocessor
48 WIN_COLOR color_white 54 call PLED_standard_color
49 lfsr FSR2,letter 55 lfsr FSR2,letter
50 movf debug_char+0,W 56 movf debug_char+0,W
51 movwf POSTINC2 57 movwf POSTINC2
52 movf debug_char+1,W 58 movf debug_char+1,W
53 movwf POSTINC2 59 movwf POSTINC2
69 call set_LEDr 75 call set_LEDr
70 call clear_LEDnofly 76 call clear_LEDnofly
71 call PLED_boot ; PLED boot 77 call PLED_boot ; PLED boot
72 call PLED_ClearScreen ; clean up OLED 78 call PLED_ClearScreen ; clean up OLED
73 79
74 WIN_COLOR color_white 80 call PLED_standard_color
75 81
76 DISPLAYTEXT .133 82 DISPLAYTEXT .133
77 DISPLAYTEXT .134 83 DISPLAYTEXT .134
78 DISPLAYTEXT .135 84 DISPLAYTEXT .135
79 DISPLAYTEXT .136 ; Display Debug intro 85 DISPLAYTEXT .136 ; Display Debug intro
80 86
81 WIN_TOP .100 87 WIN_TOP .100
82 WIN_LEFT .10 88 WIN_LEFT .10
83 WIN_FONT FT_SMALL 89 WIN_FONT FT_SMALL
84 WIN_INVERT .0 ; Init new Wordprocessor 90 WIN_INVERT .0 ; Init new Wordprocessor
85 WIN_COLOR color_white 91 call PLED_standard_color
86 lfsr FSR2,letter 92 lfsr FSR2,letter
87 movf debug_char+0,W 93 movf debug_char+0,W
88 movwf POSTINC2 94 movwf POSTINC2
89 movf debug_char+1,W 95 movf debug_char+1,W
90 movwf POSTINC2 96 movwf POSTINC2
110 116
111 WIN_TOP .125 117 WIN_TOP .125
112 WIN_LEFT .10 118 WIN_LEFT .10
113 WIN_FONT FT_SMALL 119 WIN_FONT FT_SMALL
114 WIN_INVERT .0 ; Init new Wordprocessor 120 WIN_INVERT .0 ; Init new Wordprocessor
115 WIN_COLOR color_white 121 call PLED_standard_color
116 122
117 lfsr FSR2,letter 123 lfsr FSR2,letter
118 movff flag3,lo 124 movff flag3,lo
119 output_8 125 output_8
120 movlw ' ' 126 movlw ' '
137 143
138 WIN_TOP .150 144 WIN_TOP .150
139 WIN_LEFT .10 145 WIN_LEFT .10
140 WIN_FONT FT_SMALL 146 WIN_FONT FT_SMALL
141 WIN_INVERT .0 ; Init new Wordprocessor 147 WIN_INVERT .0 ; Init new Wordprocessor
142 WIN_COLOR color_white 148 call PLED_standard_color
143 149
144 lfsr FSR2,letter 150 lfsr FSR2,letter
145 movff flag8,lo 151 movff flag8,lo
146 output_8 152 output_8
147 movlw ' ' 153 movlw ' '
171 PLED_divemode_mask: ; Displays mask in Dive-Mode 177 PLED_divemode_mask: ; Displays mask in Dive-Mode
172 WIN_COLOR color_red 178 WIN_COLOR color_red
173 DISPLAYTEXTH .267 ; Max Depth 179 DISPLAYTEXTH .267 ; Max Depth
174 DISPLAYTEXT .86 ; Divetime 180 DISPLAYTEXT .86 ; Divetime
175 DISPLAYTEXT .87 ; Depth 181 DISPLAYTEXT .87 ; Depth
176 WIN_COLOR color_white 182 call PLED_standard_color
177 return 183 return
178 184
179 PLED_clear_decoarea: 185 PLED_clear_decoarea:
180 movlw .0 186 movlw .0
181 movff WREG,box_temp+0 ; Data 187 movff WREG,box_temp+0 ; Data
196 ; Clear Dekostop and Dekosum 202 ; Clear Dekostop and Dekosum
197 rcall PLED_clear_decoarea 203 rcall PLED_clear_decoarea
198 204
199 WIN_COLOR color_red 205 WIN_COLOR color_red
200 DISPLAYTEXT d'84' ; NoStop 206 DISPLAYTEXT d'84' ; NoStop
201 WIN_COLOR color_white 207 call PLED_standard_color
202 208
203 PLED_display_ndl_mask2: 209 PLED_display_ndl_mask2:
204 ; Clears Gradient Factor 210 ; Clears Gradient Factor
205 movlw d'8' 211 movlw d'8'
206 movwf temp1 212 movwf temp1
217 223
218 WIN_TOP .185 224 WIN_TOP .185
219 WIN_LEFT .119 225 WIN_LEFT .119
220 WIN_FONT FT_MEDIUM 226 WIN_FONT FT_MEDIUM
221 WIN_INVERT .0 ; Init new Wordprocessor 227 WIN_INVERT .0 ; Init new Wordprocessor
222 WIN_COLOR color_white 228 call PLED_standard_color
229
223 lfsr FSR2,letter 230 lfsr FSR2,letter
224 movff char_O_nullzeit,lo ; NDL in minutes 231 movff char_O_nullzeit,lo ; NDL in minutes
225 output_8 232 output_8
226 movlw 0x27 ; "'" 233 movlw 0x27 ; "'"
227 movwf POSTINC2 234 movwf POSTINC2
232 PLED_display_deko_mask: 239 PLED_display_deko_mask:
233 rcall PLED_clear_decoarea 240 rcall PLED_clear_decoarea
234 ; total deco time word 241 ; total deco time word
235 WIN_COLOR color_red 242 WIN_COLOR color_red
236 DISPLAYTEXT d'85' ; DECOSUM 243 DISPLAYTEXT d'85' ; DECOSUM
237 WIN_COLOR color_white 244 call PLED_standard_color
238 return 245 return
239 246
240 PLED_display_deko: 247 PLED_display_deko:
241 btfsc multi_gf_display ; Is the Multi-GF Table displayed? 248 btfsc multi_gf_display ; Is the Multi-GF Table displayed?
242 return ; Yes, No update and return! 249 return ; Yes, No update and return!
246 253
247 ostc_debug 'y' ; Sends debug-information to screen if debugmode active 254 ostc_debug 'y' ; Sends debug-information to screen if debugmode active
248 ; deco stop word 255 ; deco stop word
249 WIN_COLOR color_red 256 WIN_COLOR color_red
250 DISPLAYTEXT d'82' ; DEKOSTOP 257 DISPLAYTEXT d'82' ; DEKOSTOP
251 WIN_COLOR color_white 258 call PLED_standard_color
252 259
253 WIN_TOP .118 260 WIN_TOP .118
254 WIN_LEFT .94 261 WIN_LEFT .94
255 WIN_FONT FT_MEDIUM 262 WIN_FONT FT_MEDIUM
256 WIN_INVERT .0 ; Init new Wordprocessor 263 WIN_INVERT .0 ; Init new Wordprocessor
257 WIN_COLOR color_white 264 call PLED_standard_color
258 lfsr FSR2,letter 265 lfsr FSR2,letter
259 movff char_O_array_decodepth+0,lo ; Ceiling in m 266 movff char_O_array_decodepth+0,lo ; Ceiling in m
260 output_99 267 output_99
261 movlw 'm' ; "m" 268 movlw 'm' ; "m"
262 movwf POSTINC2 269 movwf POSTINC2
275 282
276 WIN_TOP .185 283 WIN_TOP .185
277 WIN_LEFT .119 284 WIN_LEFT .119
278 WIN_FONT FT_MEDIUM 285 WIN_FONT FT_MEDIUM
279 WIN_INVERT .0 ; Init new Wordprocessor 286 WIN_INVERT .0 ; Init new Wordprocessor
280 WIN_COLOR color_white 287 call PLED_standard_color
281 lfsr FSR2,letter 288 lfsr FSR2,letter
282 movff char_O_ascenttime,lo ; complete ascend time 289 movff char_O_ascenttime,lo ; complete ascend time
283 movlw d'199' ; limit display of total ascend time to 99mins.... 290 movlw d'199' ; limit display of total ascend time to 99mins....
284 cpfslt lo ; skip if 199 (WREG) > lo 291 cpfslt lo ; skip if 199 (WREG) > lo
285 movwf lo 292 movwf lo
300 ostc_debug 'w' ; Sends debug-information to screen if debugmode active 307 ostc_debug 'w' ; Sends debug-information to screen if debugmode active
301 ;GF 308 ;GF
302 WIN_TOP .145 309 WIN_TOP .145
303 WIN_LEFT .0 310 WIN_LEFT .0
304 WIN_FONT FT_SMALL 311 WIN_FONT FT_SMALL
305 WIN_COLOR color_white 312 call PLED_standard_color
306 lfsr FSR2,letter 313 lfsr FSR2,letter
307 movlw 'G' 314 movlw 'G'
308 movwf POSTINC2 315 movwf POSTINC2
309 movlw 'F' 316 movlw 'F'
310 movwf POSTINC2 317 movwf POSTINC2
321 328
322 PLED_simulator_data: 329 PLED_simulator_data:
323 WIN_TOP .65 330 WIN_TOP .65
324 WIN_LEFT .105 331 WIN_LEFT .105
325 WIN_FONT FT_SMALL 332 WIN_FONT FT_SMALL
326 WIN_COLOR color_white 333 call PLED_standard_color
327 lfsr FSR2,letter 334 lfsr FSR2,letter
328 movff logbook_temp1,lo 335 movff logbook_temp1,lo
329 bsf leftbind 336 bsf leftbind
330 output_8 337 output_8
331 bcf leftbind 338 bcf leftbind
340 call word_processor 347 call word_processor
341 348
342 WIN_TOP .95 349 WIN_TOP .95
343 WIN_LEFT .100 350 WIN_LEFT .100
344 WIN_FONT FT_SMALL 351 WIN_FONT FT_SMALL
345 WIN_COLOR color_white 352 call PLED_standard_color
346 lfsr FSR2,letter 353 lfsr FSR2,letter
347 movff logbook_temp2,lo 354 movff logbook_temp2,lo
348 bsf leftbind 355 bsf leftbind
349 output_8 356 output_8
350 bcf leftbind 357 bcf leftbind
361 368
362 ostc_debug 'v' ; Sends debug-information to screen if debugmode active 369 ostc_debug 'v' ; Sends debug-information to screen if debugmode active
363 WIN_TOP .90 370 WIN_TOP .90
364 WIN_LEFT .0 371 WIN_LEFT .0
365 WIN_FONT FT_SMALL 372 WIN_FONT FT_SMALL
366 WIN_COLOR color_white 373 call PLED_standard_color
367 lfsr FSR2,letter 374 lfsr FSR2,letter
368 movlw '-' 375 movlw '-'
369 btfsc neg_flag 376 btfsc neg_flag
370 movlw '+' 377 movlw '+'
371 movwf POSTINC2 378 movwf POSTINC2
415 ;use timeout_counter for this 422 ;use timeout_counter for this
416 WIN_TOP .50 423 WIN_TOP .50
417 WIN_LEFT .0 424 WIN_LEFT .0
418 WIN_FONT FT_SMALL 425 WIN_FONT FT_SMALL
419 WIN_INVERT .0 ; Init new Wordprocessor 426 WIN_INVERT .0 ; Init new Wordprocessor
420 WIN_COLOR color_white 427 call PLED_standard_color
428
421 lfsr FSR2,letter 429 lfsr FSR2,letter
422 430
423 movff surface_interval+0,lo 431 movff surface_interval+0,lo
424 tstfsz lo 432 tstfsz lo
425 bra PLED_clock0 ; Not Zero, switch between Interval and clock 433 bra PLED_clock0 ; Not Zero, switch between Interval and clock
512 PLED_menu_cursor: 520 PLED_menu_cursor:
513 WIN_TOP .35 521 WIN_TOP .35
514 WIN_LEFT .0 522 WIN_LEFT .0
515 WIN_FONT FT_SMALL 523 WIN_FONT FT_SMALL
516 WIN_INVERT .0 ; Init new Wordprocessor 524 WIN_INVERT .0 ; Init new Wordprocessor
517 WIN_COLOR color_white 525 call PLED_standard_color
526
518 lfsr FSR2,letter 527 lfsr FSR2,letter
519 movlw 0xB8 528 movlw 0xB8
520 movwf POSTINC2 529 movwf POSTINC2
521 call word_processor 530 call word_processor
522 531
523 WIN_TOP .65 532 WIN_TOP .65
524 WIN_LEFT .0 533 WIN_LEFT .0
525 WIN_FONT FT_SMALL 534 WIN_FONT FT_SMALL
526 WIN_INVERT .0 ; Init new Wordprocessor 535 WIN_INVERT .0 ; Init new Wordprocessor
527 WIN_COLOR color_white 536 call PLED_standard_color
537
528 lfsr FSR2,letter 538 lfsr FSR2,letter
529 movlw 0xB8 539 movlw 0xB8
530 movwf POSTINC2 540 movwf POSTINC2
531 call word_processor 541 call word_processor
532 542
533 WIN_TOP .95 543 WIN_TOP .95
534 WIN_LEFT .0 544 WIN_LEFT .0
535 WIN_FONT FT_SMALL 545 WIN_FONT FT_SMALL
536 WIN_INVERT .0 ; Init new Wordprocessor 546 WIN_INVERT .0 ; Init new Wordprocessor
537 WIN_COLOR color_white 547 call PLED_standard_color
548
538 lfsr FSR2,letter 549 lfsr FSR2,letter
539 movlw 0xB8 550 movlw 0xB8
540 movwf POSTINC2 551 movwf POSTINC2
541 call word_processor 552 call word_processor
542 553
543 WIN_TOP .125 554 WIN_TOP .125
544 WIN_LEFT .0 555 WIN_LEFT .0
545 WIN_FONT FT_SMALL 556 WIN_FONT FT_SMALL
546 WIN_INVERT .0 ; Init new Wordprocessor 557 WIN_INVERT .0 ; Init new Wordprocessor
547 WIN_COLOR color_white 558 call PLED_standard_color
559
548 lfsr FSR2,letter 560 lfsr FSR2,letter
549 movlw 0xB8 561 movlw 0xB8
550 movwf POSTINC2 562 movwf POSTINC2
551 call word_processor 563 call word_processor
552 564
553 WIN_TOP .155 565 WIN_TOP .155
554 WIN_LEFT .0 566 WIN_LEFT .0
555 WIN_FONT FT_SMALL 567 WIN_FONT FT_SMALL
556 WIN_INVERT .0 ; Init new Wordprocessor 568 WIN_INVERT .0 ; Init new Wordprocessor
557 WIN_COLOR color_white 569 call PLED_standard_color
570
558 lfsr FSR2,letter 571 lfsr FSR2,letter
559 movlw 0xB8 572 movlw 0xB8
560 movwf POSTINC2 573 movwf POSTINC2
561 call word_processor 574 call word_processor
562 575
563 WIN_TOP .185 576 WIN_TOP .185
564 WIN_LEFT .0 577 WIN_LEFT .0
565 WIN_FONT FT_SMALL 578 WIN_FONT FT_SMALL
566 WIN_INVERT .0 ; Init new Wordprocessor 579 WIN_INVERT .0 ; Init new Wordprocessor
567 WIN_COLOR color_white 580 call PLED_standard_color
581
568 lfsr FSR2,letter 582 lfsr FSR2,letter
569 movlw 0xB8 583 movlw 0xB8
570 movwf POSTINC2 584 movwf POSTINC2
571 call word_processor 585 call word_processor
572 586
586 600
587 movff WREG,win_top 601 movff WREG,win_top
588 WIN_LEFT .0 602 WIN_LEFT .0
589 WIN_FONT FT_SMALL 603 WIN_FONT FT_SMALL
590 WIN_INVERT .0 ; Init new Wordprocessor 604 WIN_INVERT .0 ; Init new Wordprocessor
591 WIN_COLOR color_white 605 call PLED_standard_color
606
592 lfsr FSR2,letter 607 lfsr FSR2,letter
593 movlw 0xB7 608 movlw 0xB7
594 movwf POSTINC2 609 movwf POSTINC2
595 call word_processor 610 call word_processor
596 return 611 return
681 movff temperature+1,last_temperature+1 696 movff temperature+1,last_temperature+1
682 WIN_TOP .100 697 WIN_TOP .100
683 WIN_LEFT .0 698 WIN_LEFT .0
684 WIN_FONT FT_SMALL 699 WIN_FONT FT_SMALL
685 WIN_INVERT .0 ; Init new Wordprocessor 700 WIN_INVERT .0 ; Init new Wordprocessor
686 WIN_COLOR color_white 701 call PLED_standard_color
702
687 lfsr FSR2,letter 703 lfsr FSR2,letter
688 movlw '-' 704 movlw '-'
689 btfsc neg_temp ; Show "-"? 705 btfsc neg_temp ; Show "-"?
690 movwf POSTINC2 ; Yes 706 movwf POSTINC2 ; Yes
691 movff temperature+0,lo 707 movff temperature+0,lo
716 732
717 WIN_TOP .216 733 WIN_TOP .216
718 WIN_LEFT .65 734 WIN_LEFT .65
719 WIN_FONT FT_SMALL 735 WIN_FONT FT_SMALL
720 WIN_INVERT .0 ; Init new Wordprocessor 736 WIN_INVERT .0 ; Init new Wordprocessor
721 WIN_COLOR color_white 737 call PLED_standard_color
738
722 lfsr FSR2,letter 739 lfsr FSR2,letter
723 movlw '-' 740 movlw '-'
724 btfsc neg_temp ; Show "-"? 741 btfsc neg_temp ; Show "-"?
725 movwf POSTINC2 ; Yes 742 movwf POSTINC2 ; Yes
726 movff temperature+0,lo 743 movff temperature+0,lo
740 PLED_show_ppO2: ; Show ppO2 757 PLED_show_ppO2: ; Show ppO2
741 ostc_debug 't' ; Sends debug-information to screen if debugmode active 758 ostc_debug 't' ; Sends debug-information to screen if debugmode active
742 WIN_TOP .120 759 WIN_TOP .120
743 WIN_LEFT .0 760 WIN_LEFT .0
744 WIN_FONT FT_SMALL 761 WIN_FONT FT_SMALL
745 WIN_COLOR color_white 762 call PLED_standard_color
763
746 lfsr FSR2,letter 764 lfsr FSR2,letter
747 movlw 'p' 765 movlw 'p'
748 movwf POSTINC2 766 movwf POSTINC2
749 movlw 'p' 767 movlw 'p'
750 movwf POSTINC2 768 movwf POSTINC2
790 ; gas 808 ; gas
791 WIN_TOP .192 809 WIN_TOP .192
792 WIN_LEFT .65 810 WIN_LEFT .65
793 WIN_FONT FT_SMALL 811 WIN_FONT FT_SMALL
794 WIN_INVERT .0 ; Init new Wordprocessor 812 WIN_INVERT .0 ; Init new Wordprocessor
795 WIN_COLOR color_white 813 call PLED_standard_color
814
796 815
797 movlw d'100' ; 100% in the tank 816 movlw d'100' ; 100% in the tank
798 movff char_I_N2_ratio,lo ; minus N2 817 movff char_I_N2_ratio,lo ; minus N2
799 bsf STATUS,C ; set borrow bit 818 bsf STATUS,C ; set borrow bit
800 subfwb lo,W 819 subfwb lo,W
851 tstfsz EEDATA 870 tstfsz EEDATA
852 bra show_decotype_surface2 871 bra show_decotype_surface2
853 872
854 ;ZH-L16 873 ;ZH-L16
855 WIN_TOP .125 874 WIN_TOP .125
856 WIN_COLOR color_white 875 call PLED_standard_color
876
857 lfsr FSR2,letter 877 lfsr FSR2,letter
858 movlw 'O' 878 movlw 'O'
859 movwf POSTINC2 879 movwf POSTINC2
860 call word_processor 880 call word_processor
861 WIN_LEFT .85 881 WIN_LEFT .85
862 WIN_FONT FT_SMALL 882 WIN_FONT FT_SMALL
863 WIN_INVERT .0 ; Init new Wordprocessor 883 WIN_INVERT .0 ; Init new Wordprocessor
864 WIN_TOP .150 884 WIN_TOP .150
865 WIN_COLOR color_white 885 call PLED_standard_color
886
866 lfsr FSR2,letter 887 lfsr FSR2,letter
867 movlw 'C' 888 movlw 'C'
868 movwf POSTINC2 889 movwf POSTINC2
869 call word_processor 890 call word_processor
870 return 891 return
879 decf EEDATA,F 900 decf EEDATA,F
880 tstfsz EEDATA 901 tstfsz EEDATA
881 bra show_decotype_surface4 902 bra show_decotype_surface4
882 ; const. ppO2 903 ; const. ppO2
883 WIN_TOP .125 904 WIN_TOP .125
884 WIN_COLOR color_white 905 call PLED_standard_color
906
885 lfsr FSR2,letter 907 lfsr FSR2,letter
886 movlw 'C' 908 movlw 'C'
887 movwf POSTINC2 909 movwf POSTINC2
888 WIN_LEFT .85 910 WIN_LEFT .85
889 WIN_FONT FT_SMALL 911 WIN_FONT FT_SMALL
890 WIN_INVERT .0 ; Init new Wordprocessor 912 WIN_INVERT .0 ; Init new Wordprocessor
891 call word_processor 913 call word_processor
892 WIN_TOP .150 914 WIN_TOP .150
893 WIN_COLOR color_white 915 call PLED_standard_color
916
894 lfsr FSR2,letter 917 lfsr FSR2,letter
895 movlw 'C' 918 movlw 'C'
896 movwf POSTINC2 919 movwf POSTINC2
897 WIN_LEFT .85 920 WIN_LEFT .85
898 WIN_FONT FT_SMALL 921 WIN_FONT FT_SMALL
915 movlw 'G' 938 movlw 'G'
916 movwf POSTINC2 939 movwf POSTINC2
917 WIN_LEFT .85 940 WIN_LEFT .85
918 WIN_FONT FT_SMALL 941 WIN_FONT FT_SMALL
919 WIN_INVERT .0 ; Init new Wordprocessor 942 WIN_INVERT .0 ; Init new Wordprocessor
920 WIN_COLOR color_white 943 call PLED_standard_color
944
921 call word_processor 945 call word_processor
922 WIN_TOP .150 946 WIN_TOP .150
923 lfsr FSR2,letter 947 lfsr FSR2,letter
924 movlw 'F' 948 movlw 'F'
925 movwf POSTINC2 949 movwf POSTINC2
926 WIN_LEFT .85 950 WIN_LEFT .85
927 WIN_FONT FT_SMALL 951 WIN_FONT FT_SMALL
928 WIN_INVERT .0 ; Init new Wordprocessor 952 WIN_INVERT .0 ; Init new Wordprocessor
929 WIN_COLOR color_white 953 call PLED_standard_color
954
930 call word_processor 955 call word_processor
931 return 956 return
932 957
933 show_decotype_surface6: 958 show_decotype_surface6:
934 ; Multi-GF CC 959 ; Multi-GF CC
937 movlw 'G' 962 movlw 'G'
938 movwf POSTINC2 963 movwf POSTINC2
939 WIN_LEFT .85 964 WIN_LEFT .85
940 WIN_FONT FT_SMALL 965 WIN_FONT FT_SMALL
941 WIN_INVERT .0 ; Init new Wordprocessor 966 WIN_INVERT .0 ; Init new Wordprocessor
942 WIN_COLOR color_white 967 call PLED_standard_color
968
943 call word_processor 969 call word_processor
944 WIN_TOP .150 970 WIN_TOP .150
945 lfsr FSR2,letter 971 lfsr FSR2,letter
946 movlw 'F' 972 movlw 'F'
947 movwf POSTINC2 973 movwf POSTINC2
948 WIN_LEFT .85 974 WIN_LEFT .85
949 WIN_FONT FT_SMALL 975 WIN_FONT FT_SMALL
950 WIN_INVERT .0 ; Init new Wordprocessor 976 WIN_INVERT .0 ; Init new Wordprocessor
951 WIN_COLOR color_white 977 call PLED_standard_color
978
952 call word_processor 979 call word_processor
953 return 980 return
954 981
955 982
956 PLED_active_gas_surfmode: ; Displays start gas/SP 1 983 PLED_active_gas_surfmode: ; Displays start gas/SP 1
968 ; In CC Mode 995 ; In CC Mode
969 WIN_TOP .135 996 WIN_TOP .135
970 WIN_LEFT .90 997 WIN_LEFT .90
971 WIN_FONT FT_SMALL 998 WIN_FONT FT_SMALL
972 WIN_INVERT .0 ; Init new Wordprocessor 999 WIN_INVERT .0 ; Init new Wordprocessor
973 WIN_COLOR color_white 1000 call PLED_standard_color
1001
974 lfsr FSR2,letter 1002 lfsr FSR2,letter
975 read_int_eeprom d'36' 1003 read_int_eeprom d'36'
976 movff EEDATA,lo ; copy to lo 1004 movff EEDATA,lo ; copy to lo
977 clrf hi 1005 clrf hi
978 output_16dp d'3' ; outputs into Postinc2! 1006 output_16dp d'3' ; outputs into Postinc2!
989 PLED_active_gas_surfmode2: 1017 PLED_active_gas_surfmode2:
990 WIN_TOP .130 1018 WIN_TOP .130
991 WIN_LEFT .100 1019 WIN_LEFT .100
992 WIN_FONT FT_MEDIUM 1020 WIN_FONT FT_MEDIUM
993 WIN_INVERT .0 ; Init new Wordprocessor 1021 WIN_INVERT .0 ; Init new Wordprocessor
994 WIN_COLOR color_white 1022 call PLED_standard_color
1023
995 1024
996 read_int_eeprom d'33' ; Read byte (stored in EEDATA) 1025 read_int_eeprom d'33' ; Read byte (stored in EEDATA)
997 movff EEDATA,active_gas ; Read start gas (1-5) 1026 movff EEDATA,active_gas ; Read start gas (1-5)
998 1027
999 decf active_gas,W ; Gas 0-4 1028 decf active_gas,W ; Gas 0-4
1117 movlw d'120' 1146 movlw d'120'
1118 movff WREG,win_top 1147 movff WREG,win_top
1119 WIN_LEFT .39 1148 WIN_LEFT .39
1120 WIN_FONT FT_SMALL 1149 WIN_FONT FT_SMALL
1121 WIN_INVERT .0 ; Init new Wordprocessor 1150 WIN_INVERT .0 ; Init new Wordprocessor
1122 WIN_COLOR color_white 1151 call PLED_standard_color
1152
1123 lfsr FSR2,letter 1153 lfsr FSR2,letter
1124 movlw 0xB7 ; Arrow for menu 1154 movlw 0xB7 ; Arrow for menu
1125 movwf POSTINC2 1155 movwf POSTINC2
1126 call word_processor 1156 call word_processor
1127 1157
1209 1239
1210 WIN_TOP .24 1240 WIN_TOP .24
1211 WIN_LEFT .0 1241 WIN_LEFT .0
1212 WIN_FONT FT_LARGE 1242 WIN_FONT FT_LARGE
1213 WIN_INVERT .0 ; Init new Wordprocessor 1243 WIN_INVERT .0 ; Init new Wordprocessor
1214 WIN_COLOR color_white 1244 call PLED_standard_color
1245
1215 1246
1216 movlw HIGH d'99' 1247 movlw HIGH d'99'
1217 movwf sub_a+1 1248 movwf sub_a+1
1218 movlw LOW d'99' 1249 movlw LOW d'99'
1219 movwf sub_a+0 1250 movwf sub_a+0
1237 bcf ignore_digit4 1268 bcf ignore_digit4
1238 1269
1239 WIN_FONT FT_MEDIUM 1270 WIN_FONT FT_MEDIUM
1240 WIN_TOP .50 1271 WIN_TOP .50
1241 WIN_LEFT .40 1272 WIN_LEFT .40
1242 WIN_COLOR color_white 1273 call PLED_standard_color
1274
1243 1275
1244 movff rel_pressure+1,hi 1276 movff rel_pressure+1,hi
1245 movff rel_pressure+0,lo 1277 movff rel_pressure+0,lo
1246 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar] 1278 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar]
1247 lfsr FSR2,letter 1279 lfsr FSR2,letter
1283 lfsr FSR2,letter 1315 lfsr FSR2,letter
1284 WIN_TOP .24 1316 WIN_TOP .24
1285 WIN_LEFT .0 1317 WIN_LEFT .0
1286 WIN_FONT FT_LARGE 1318 WIN_FONT FT_LARGE
1287 WIN_INVERT .0 ; Init new Wordprocessor 1319 WIN_INVERT .0 ; Init new Wordprocessor
1288 WIN_COLOR color_white 1320 call PLED_standard_color
1321
1289 bsf ignore_digit4 1322 bsf ignore_digit4
1290 bsf leftbind 1323 bsf leftbind
1291 output_16 1324 output_16
1292 bcf leftbind 1325 bcf leftbind
1293 call word_processor 1326 call word_processor
1320 ostc_debug 'h' 1353 ostc_debug 'h'
1321 WIN_TOP .150 1354 WIN_TOP .150
1322 WIN_LEFT .0 1355 WIN_LEFT .0
1323 WIN_FONT FT_SMALL 1356 WIN_FONT FT_SMALL
1324 WIN_INVERT .0 ; Init new Wordprocessor 1357 WIN_INVERT .0 ; Init new Wordprocessor
1325 WIN_COLOR color_white 1358 call PLED_standard_color
1359
1326 lfsr FSR2,letter 1360 lfsr FSR2,letter
1327 OUTPUTTEXT d'14' ; Desat 1361 OUTPUTTEXT d'14' ; Desat
1328 movlw ' ' 1362 movlw ' '
1329 movwf POSTINC2 1363 movwf POSTINC2
1330 movff int_O_desaturation_time+0,lo ; divide by 60... 1364 movff int_O_desaturation_time+0,lo ; divide by 60...
1347 ostc_debug 'g' 1381 ostc_debug 'g'
1348 WIN_TOP .125 1382 WIN_TOP .125
1349 WIN_LEFT .0 1383 WIN_LEFT .0
1350 WIN_FONT FT_SMALL 1384 WIN_FONT FT_SMALL
1351 WIN_INVERT .0 ; Init new Wordprocessor 1385 WIN_INVERT .0 ; Init new Wordprocessor
1352 WIN_COLOR color_white 1386 call PLED_standard_color
1387
1353 lfsr FSR2,letter 1388 lfsr FSR2,letter
1354 OUTPUTTEXT d'35' ; NoFly 1389 OUTPUTTEXT d'35' ; NoFly
1355 movlw ' ' 1390 movlw ' '
1356 movwf POSTINC2 1391 movwf POSTINC2
1357 movff nofly_time+0,lo ; divide by 60... 1392 movff nofly_time+0,lo ; divide by 60...
1381 ostc_debug 'b' ; Sends debug-information to screen if debugmode active 1416 ostc_debug 'b' ; Sends debug-information to screen if debugmode active
1382 WIN_TOP .25 1417 WIN_TOP .25
1383 WIN_LEFT .0 1418 WIN_LEFT .0
1384 WIN_FONT FT_SMALL 1419 WIN_FONT FT_SMALL
1385 WIN_INVERT .0 ; Init new Wordprocessor 1420 WIN_INVERT .0 ; Init new Wordprocessor
1386 WIN_COLOR color_white 1421 call PLED_standard_color
1422
1387 lfsr FSR2,letter 1423 lfsr FSR2,letter
1388 movff amb_pressure+0,lo 1424 movff amb_pressure+0,lo
1389 movff amb_pressure+1,hi 1425 movff amb_pressure+1,hi
1390 bsf leftbind 1426 bsf leftbind
1391 output_16 1427 output_16
1416 1452
1417 WIN_TOP .175 1453 WIN_TOP .175
1418 WIN_LEFT .0 1454 WIN_LEFT .0
1419 WIN_FONT FT_SMALL 1455 WIN_FONT FT_SMALL
1420 WIN_INVERT .0 ; Init new Wordprocessor 1456 WIN_INVERT .0 ; Init new Wordprocessor
1421 WIN_COLOR color_white 1457 call PLED_standard_color
1458
1422 lfsr FSR2,letter 1459 lfsr FSR2,letter
1423 movff batt_voltage+0,lo 1460 movff batt_voltage+0,lo
1424 movff batt_voltage+1,hi 1461 movff batt_voltage+1,hi
1425 movlw d'1' 1462 movlw d'1'
1426 movwf ignore_digits 1463 movwf ignore_digits
1511 movlw .1 1548 movlw .1
1512 movff WREG,box_temp+3 ; column left (0-159) 1549 movff WREG,box_temp+3 ; column left (0-159)
1513 movff wait_temp,box_temp+4 ; column right (0-159) 1550 movff wait_temp,box_temp+4 ; column right (0-159)
1514 call PLED_box 1551 call PLED_box
1515 1552
1516 WIN_COLOR color_white ; Reset Color 1553 GETCUSTOM8 d'35' ; Standard output color
1554 call PLED_set_color
1517 return 1555 return
1518 1556
1519 update_batt_voltage2_empty: 1557 update_batt_voltage2_empty:
1520 movlw d'1' 1558 movlw d'1'
1521 movwf wait_temp 1559 movwf wait_temp
1638 ostc_debug 'd' 1676 ostc_debug 'd'
1639 WIN_TOP .75 1677 WIN_TOP .75
1640 WIN_LEFT .0 1678 WIN_LEFT .0
1641 WIN_FONT FT_SMALL 1679 WIN_FONT FT_SMALL
1642 WIN_INVERT .0 ; Init new Wordprocessor 1680 WIN_INVERT .0 ; Init new Wordprocessor
1643 WIN_COLOR color_white 1681 call PLED_standard_color
1682
1644 lfsr FSR2,letter 1683 lfsr FSR2,letter
1645 1684
1646 movff month,convert_value_temp+0 1685 movff month,convert_value_temp+0
1647 movff day,convert_value_temp+1 1686 movff day,convert_value_temp+1
1648 movff year,convert_value_temp+2 1687 movff year,convert_value_temp+2
1672 1711
1673 WIN_TOP .184 1712 WIN_TOP .184
1674 WIN_LEFT .0 1713 WIN_LEFT .0
1675 WIN_FONT FT_MEDIUM 1714 WIN_FONT FT_MEDIUM
1676 WIN_INVERT .0 ; Init new Wordprocessor 1715 WIN_INVERT .0 ; Init new Wordprocessor
1677 WIN_COLOR color_white 1716 call PLED_standard_color
1717
1678 lfsr FSR2,letter 1718 lfsr FSR2,letter
1679 movff max_pressure+0,lo 1719 movff max_pressure+0,lo
1680 movff max_pressure+1,hi 1720 movff max_pressure+1,hi
1681 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar] 1721 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar]
1682 bsf leftbind 1722 bsf leftbind
1714 lfsr FSR2,letter 1754 lfsr FSR2,letter
1715 output_16_3 ; displays only last three figures from a 16Bit value (0-999) 1755 output_16_3 ; displays only last three figures from a 16Bit value (0-999)
1716 WIN_TOP .20 1756 WIN_TOP .20
1717 WIN_LEFT .120 1757 WIN_LEFT .120
1718 WIN_FONT FT_MEDIUM 1758 WIN_FONT FT_MEDIUM
1719 WIN_COLOR color_white 1759 call PLED_standard_color
1760
1720 call word_processor 1761 call word_processor
1721 WIN_FONT FT_SMALL 1762 WIN_FONT FT_SMALL
1722 return 1763 return
1723 1764
1724 PLED_display_apnoe_surface: 1765 PLED_display_apnoe_surface:
1725 btfsc menubit ; Divemode menu active? 1766 btfsc menubit ; Divemode menu active?
1726 return ; Yes, do not display surface mode timeout 1767 return ; Yes, do not display surface mode timeout
1727 1768
1728 WIN_COLOR color_red 1769 WIN_COLOR color_red
1729 DISPLAYTEXT d'140' ; "SURFACE" 1770 DISPLAYTEXT d'140' ; "SURFACE"
1730 WIN_COLOR color_white 1771 call PLED_standard_color
1772
1731 1773
1732 WIN_TOP .85 1774 WIN_TOP .85
1733 WIN_LEFT .90 1775 WIN_LEFT .90
1734 WIN_FONT FT_MEDIUM 1776 WIN_FONT FT_MEDIUM
1735 WIN_COLOR color_white 1777 call PLED_standard_color
1778
1736 1779
1737 movff apnoe_surface_mins,lo 1780 movff apnoe_surface_mins,lo
1738 bcf leftbind 1781 bcf leftbind
1739 lfsr FSR2,letter 1782 lfsr FSR2,letter
1740 output_8 1783 output_8
1763 1806
1764 1807
1765 PLED_display_apnoe_descent: 1808 PLED_display_apnoe_descent:
1766 WIN_COLOR color_red 1809 WIN_COLOR color_red
1767 DISPLAYTEXT d'139' ; "Descent" 1810 DISPLAYTEXT d'139' ; "Descent"
1768 WIN_COLOR color_white 1811 call PLED_standard_color
1812
1769 1813
1770 WIN_TOP .145 1814 WIN_TOP .145
1771 WIN_LEFT .90 1815 WIN_LEFT .90
1772 WIN_FONT FT_MEDIUM 1816 WIN_FONT FT_MEDIUM
1773 WIN_COLOR color_white 1817 call PLED_standard_color
1818
1774 1819
1775 movff apnoe_mins,lo 1820 movff apnoe_mins,lo
1776 lfsr FSR2,letter 1821 lfsr FSR2,letter
1777 output_8 1822 output_8
1778 movlw ':' 1823 movlw ':'
1797 movff divesecs,lo 1842 movff divesecs,lo
1798 output_99x 1843 output_99x
1799 WIN_TOP .20 1844 WIN_TOP .20
1800 WIN_LEFT .90 1845 WIN_LEFT .90
1801 WIN_FONT FT_MEDIUM 1846 WIN_FONT FT_MEDIUM
1802 WIN_COLOR color_white 1847 call PLED_standard_color
1848
1803 call word_processor 1849 call word_processor
1804 bcf show_last3 1850 bcf show_last3
1805 WIN_FONT FT_SMALL 1851 WIN_FONT FT_SMALL
1806 return 1852 return
1807 1853
1827 ostc_debug 'V' ; Sends debug-information to screen if debugmode active 1873 ostc_debug 'V' ; Sends debug-information to screen if debugmode active
1828 ; Stopwatch 1874 ; Stopwatch
1829 1875
1830 WIN_COLOR color_red 1876 WIN_COLOR color_red
1831 DISPLAYTEXTH d'283' ; Counter 1877 DISPLAYTEXTH d'283' ; Counter
1832 WIN_COLOR color_white 1878 call PLED_standard_color
1879
1833 1880
1834 WIN_TOP .80 1881 WIN_TOP .80
1835 WIN_LEFT .110 1882 WIN_LEFT .110
1836 WIN_FONT FT_SMALL 1883 WIN_FONT FT_SMALL
1837 WIN_COLOR color_white 1884 call PLED_standard_color
1885
1838 1886
1839 1887
1840 1888
1841 lfsr FSR2,letter 1889 lfsr FSR2,letter
1842 movff average_divesecs+0,lo ; Stopwatch 1890 movff average_divesecs+0,lo ; Stopwatch
1866 ostc_debug 'U' ; Sends debug-information to screen if debugmode active 1914 ostc_debug 'U' ; Sends debug-information to screen if debugmode active
1867 1915
1868 WIN_TOP .80 1916 WIN_TOP .80
1869 WIN_LEFT .62 1917 WIN_LEFT .62
1870 WIN_FONT FT_SMALL 1918 WIN_FONT FT_SMALL
1871 WIN_COLOR color_white 1919 call PLED_standard_color
1920
1872 1921
1873 lfsr FSR2,letter 1922 lfsr FSR2,letter
1874 movff avr_rel_pressure+0,lo 1923 movff avr_rel_pressure+0,lo
1875 movff avr_rel_pressure+1,hi 1924 movff avr_rel_pressure+1,hi
1876 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar] 1925 call adjust_depth_with_salinity ; computes salinity setting into lo:hi [mBar]
1890 ostc_debug 'a' ; Sends debug-information to screen if debugmode active 1939 ostc_debug 'a' ; Sends debug-information to screen if debugmode active
1891 WIN_TOP .0 1940 WIN_TOP .0
1892 WIN_LEFT .0 1941 WIN_LEFT .0
1893 WIN_FONT FT_SMALL 1942 WIN_FONT FT_SMALL
1894 WIN_INVERT .0 ; Init new Wordprocessor 1943 WIN_INVERT .0 ; Init new Wordprocessor
1895 WIN_COLOR color_white 1944 call PLED_standard_color
1945
1896 1946
1897 lfsr FSR2,letter 1947 lfsr FSR2,letter
1898 OUTPUTTEXTH d'262' ; "OSTC " 1948 OUTPUTTEXTH d'262' ; "OSTC "
1899 clrf EEADRH 1949 clrf EEADRH
1900 clrf EEADR ; Get Serial number LOW 1950 clrf EEADR ; Get Serial number LOW
1958 2008
1959 PLED_divemode_set_xgas: ; Displayes the "Set Gas" menu 2009 PLED_divemode_set_xgas: ; Displayes the "Set Gas" menu
1960 WIN_LEFT .100 2010 WIN_LEFT .100
1961 WIN_TOP .0 2011 WIN_TOP .0
1962 WIN_FONT FT_SMALL 2012 WIN_FONT FT_SMALL
1963 WIN_COLOR color_white 2013 call PLED_standard_color
2014
1964 lfsr FSR2,letter 2015 lfsr FSR2,letter
1965 movlw 'S' 2016 movlw 'S'
1966 movwf POSTINC2 2017 movwf POSTINC2
1967 movlw 'e' 2018 movlw 'e'
1968 movwf POSTINC2 2019 movwf POSTINC2
2300 ostc_debug 'l' ; Sends debug-information to screen if debugmode active 2351 ostc_debug 'l' ; Sends debug-information to screen if debugmode active
2301 WIN_TOP .0 2352 WIN_TOP .0
2302 WIN_LEFT .85 2353 WIN_LEFT .85
2303 WIN_FONT FT_SMALL 2354 WIN_FONT FT_SMALL
2304 WIN_INVERT .0 ; Init new Wordprocessor 2355 WIN_INVERT .0 ; Init new Wordprocessor
2305 WIN_COLOR color_white 2356 call PLED_standard_color
2306 lfsr FSR2,letter 2357 lfsr FSR2,letter
2307 movlw 0xB8 2358 movlw 0xB8
2308 movwf POSTINC2 2359 movwf POSTINC2
2309 call word_processor 2360 call word_processor
2310 WIN_TOP .25 2361 WIN_TOP .25
2311 WIN_LEFT .85 2362 WIN_LEFT .85
2312 WIN_FONT FT_SMALL 2363 WIN_FONT FT_SMALL
2313 WIN_INVERT .0 ; Init new Wordprocessor 2364 WIN_INVERT .0 ; Init new Wordprocessor
2314 WIN_COLOR color_white 2365 call PLED_standard_color
2315 lfsr FSR2,letter 2366 lfsr FSR2,letter
2316 movlw 0xB8 2367 movlw 0xB8
2317 movwf POSTINC2 2368 movwf POSTINC2
2318 call word_processor 2369 call word_processor
2319 WIN_TOP .50 2370 WIN_TOP .50
2320 WIN_LEFT .85 2371 WIN_LEFT .85
2321 WIN_FONT FT_SMALL 2372 WIN_FONT FT_SMALL
2322 WIN_INVERT .0 ; Init new Wordprocessor 2373 WIN_INVERT .0 ; Init new Wordprocessor
2323 WIN_COLOR color_white 2374 call PLED_standard_color
2324 lfsr FSR2,letter 2375 lfsr FSR2,letter
2325 movlw 0xB8 2376 movlw 0xB8
2326 movwf POSTINC2 2377 movwf POSTINC2
2327 call word_processor 2378 call word_processor
2328 WIN_TOP .75 2379 WIN_TOP .75
2329 WIN_LEFT .85 2380 WIN_LEFT .85
2330 WIN_FONT FT_SMALL 2381 WIN_FONT FT_SMALL
2331 WIN_INVERT .0 ; Init new Wordprocessor 2382 WIN_INVERT .0 ; Init new Wordprocessor
2332 WIN_COLOR color_white 2383 call PLED_standard_color
2333 lfsr FSR2,letter 2384 lfsr FSR2,letter
2334 movlw 0xB8 2385 movlw 0xB8
2335 movwf POSTINC2 2386 movwf POSTINC2
2336 call word_processor 2387 call word_processor
2337 WIN_TOP .100 2388 WIN_TOP .100
2338 WIN_LEFT .85 2389 WIN_LEFT .85
2339 WIN_FONT FT_SMALL 2390 WIN_FONT FT_SMALL
2340 WIN_INVERT .0 ; Init new Wordprocessor 2391 WIN_INVERT .0 ; Init new Wordprocessor
2341 WIN_COLOR color_white 2392 call PLED_standard_color
2342 lfsr FSR2,letter 2393 lfsr FSR2,letter
2343 movlw 0xB8 2394 movlw 0xB8
2344 movwf POSTINC2 2395 movwf POSTINC2
2345 call word_processor 2396 call word_processor
2346 2397
2358 movlw d'100' 2409 movlw d'100'
2359 movff WREG,win_top 2410 movff WREG,win_top
2360 WIN_LEFT .85 2411 WIN_LEFT .85
2361 WIN_FONT FT_SMALL 2412 WIN_FONT FT_SMALL
2362 WIN_INVERT .0 ; Init new Wordprocessor 2413 WIN_INVERT .0 ; Init new Wordprocessor
2363 WIN_COLOR color_white 2414 call PLED_standard_color
2415
2364 lfsr FSR2,letter 2416 lfsr FSR2,letter
2365 movlw 0xB7 ; Arrow for menu 2417 movlw 0xB7 ; Arrow for menu
2366 movwf POSTINC2 2418 movwf POSTINC2
2367 call word_processor 2419 call word_processor
2368 return 2420 return
2414 movlw '!' 2466 movlw '!'
2415 movwf POSTINC2 2467 movwf POSTINC2
2416 call word_processor 2468 call word_processor
2417 2469
2418 WIN_INVERT .0 ; Init new Wordprocessor 2470 WIN_INVERT .0 ; Init new Wordprocessor
2419 WIN_COLOR color_white 2471 call PLED_standard_color
2420 return 2472 return
2421 2473
2422 PLED_saturation_graph_divemode: 2474 PLED_saturation_graph_divemode:
2423 ostc_debug 'h' ; Sends debug-information to screen if debugmode active 2475 ostc_debug 'h' ; Sends debug-information to screen if debugmode active
2424 PLED_tissue_saturation_graph: 2476 PLED_tissue_saturation_graph:
2511 decfsz wait_temp,F 2563 decfsz wait_temp,F
2512 bra PLED_tissue_saturation_graph2 2564 bra PLED_tissue_saturation_graph2
2513 2565
2514 WIN_LEFT .84 2566 WIN_LEFT .84
2515 WIN_TOP .32 2567 WIN_TOP .32
2516 WIN_COLOR color_white 2568 call PLED_standard_color
2517 lfsr FSR2,letter 2569 lfsr FSR2,letter
2518 movlw 'N' 2570 movlw 'N'
2519 movwf POSTINC2 2571 movwf POSTINC2
2520 movlw '2' 2572 movlw '2'
2521 movwf POSTINC2 2573 movwf POSTINC2
2522 call word_processor 2574 call word_processor
2523 2575
2524 WIN_LEFT .84 2576 WIN_LEFT .84
2525 WIN_TOP .90 2577 WIN_TOP .90
2526 WIN_COLOR color_white 2578 call PLED_standard_color
2527 lfsr FSR2,letter 2579 lfsr FSR2,letter
2528 movlw 'H' 2580 movlw 'H'
2529 movwf POSTINC2 2581 movwf POSTINC2
2530 movlw 'e' 2582 movlw 'e'
2531 movwf POSTINC2 2583 movwf POSTINC2
2584 2636
2585 WIN_TOP .168 2637 WIN_TOP .168
2586 WIN_LEFT .65 2638 WIN_LEFT .65
2587 WIN_FONT FT_SMALL 2639 WIN_FONT FT_SMALL
2588 WIN_INVERT .0 ; Init new Wordprocessor 2640 WIN_INVERT .0 ; Init new Wordprocessor
2589 WIN_COLOR color_white 2641 call PLED_standard_color
2590 lfsr FSR2,letter 2642 lfsr FSR2,letter
2591 movff char_I_const_ppO2,lo 2643 movff char_I_const_ppO2,lo
2592 2644
2593 tstfsz lo ; In Bailout mode (char_I_const_ppO2=0)? 2645 tstfsz lo ; In Bailout mode (char_I_const_ppO2=0)?
2594 bra PLED_const_ppO2_value2 ; No, display Setpoint 2646 bra PLED_const_ppO2_value2 ; No, display Setpoint
2643 movlw ' ' 2695 movlw ' '
2644 movwf POSTINC2 2696 movwf POSTINC2
2645 WIN_LEFT .100 2697 WIN_LEFT .100
2646 WIN_TOP .25 2698 WIN_TOP .25
2647 WIN_FONT FT_SMALL 2699 WIN_FONT FT_SMALL
2648 WIN_COLOR color_white 2700 call PLED_standard_color
2649 call word_processor 2701 call word_processor
2650 2702
2651 lfsr FSR2,letter 2703 lfsr FSR2,letter
2652 lfsr FSR1,char_O_tissue_saturation+0 2704 lfsr FSR1,char_O_tissue_saturation+0
2653 incf wait_temp,F ; make 1-16 of 0-15 2705 incf wait_temp,F ; make 1-16 of 0-15
2661 movlw ' ' 2713 movlw ' '
2662 movwf POSTINC2 2714 movwf POSTINC2
2663 WIN_LEFT .100 2715 WIN_LEFT .100
2664 WIN_TOP .50 2716 WIN_TOP .50
2665 WIN_FONT FT_SMALL 2717 WIN_FONT FT_SMALL
2666 WIN_COLOR color_white 2718 call PLED_standard_color
2667 call word_processor 2719 call word_processor
2668 bcf leftbind 2720 bcf leftbind
2669 return 2721 return
2670 2722
2671 PLED_topline_box_clear: ; Writes an empty box 2723 PLED_topline_box_clear: ; Writes an empty box
2672 movlw .0 2724 movlw .0
2673 bra PLED_topline_box2 2725 bra PLED_topline_box2
2674 PLED_topline_box: ; Writes a filled box 2726 PLED_topline_box: ; Writes a filled box
2675 movlw .255 2727 GETCUSTOM8 d'35'
2676 PLED_topline_box2: 2728 PLED_topline_box2:
2677 movff WREG,box_temp+0 ; Data 2729 movff WREG,box_temp+0 ; Data
2678 movlw .000 2730 movlw .000
2679 movff WREG,box_temp+1 ; row top (0-239) 2731 movff WREG,box_temp+1 ; row top (0-239)
2680 movlw .026 2732 movlw .026
2702 ostc_debug 'k' ; Sends debug-information to screen if debugmode active 2754 ostc_debug 'k' ; Sends debug-information to screen if debugmode active
2703 2755
2704 WIN_TOP .090 2756 WIN_TOP .090
2705 WIN_LEFT .0 2757 WIN_LEFT .0
2706 WIN_FONT FT_SMALL 2758 WIN_FONT FT_SMALL
2707 WIN_COLOR color_white 2759 call PLED_standard_color
2760
2708 2761
2709 lfsr FSR2,letter 2762 lfsr FSR2,letter
2710 movlw 'C' 2763 movlw 'C'
2711 movwf POSTINC2 2764 movwf POSTINC2
2712 movlw 'N' 2765 movlw 'N'
2754 decfsz hi,F ; Max. numbers? 2807 decfsz hi,F ; Max. numbers?
2755 bra PLED_custom_text1 ; No, get next letters 2808 bra PLED_custom_text1 ; No, get next letters
2756 2809
2757 PLED_custom_text3: 2810 PLED_custom_text3:
2758 call word_processor 2811 call word_processor
2759 WIN_COLOR color_white 2812 call PLED_standard_color
2760 return 2813 return
2761 2814
2762 PLED_get_custom_letter: 2815 PLED_get_custom_letter:
2763 movff lo,EEADR ; Address for next custom text letter 2816 movff lo,EEADR ; Address for next custom text letter
2764 call read_eeprom ; Read letter 2817 call read_eeprom ; Read letter