Mercurial > public > mk2

comparison code_part1/OSTC_code_asm_part1/pled_outputs.asm @ 66:6aee3a07f370

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1.71beta in work...
author heinrichsweikamp
date Thu, 07 Oct 2010 21:07:24 +0200
parents 5ad68065e4e6
children 73b9719a40ec
comparison
equal deleted inserted replaced
65:5ad68065e4e6 66:6aee3a07f370
2434 PLED_decoplan_gf_page_current: 2434 PLED_decoplan_gf_page_current:
2435 movlw d'0' 2435 movlw d'0'
2436 cpfseq temp8 2436 cpfseq temp8
2437 bra PLED_decoplan_gf_page2 ; =1: Dispplay Page 2 2437 bra PLED_decoplan_gf_page2 ; =1: Dispplay Page 2
2438 bra PLED_decoplan_gf_page1 ; =0, Display Page 1 2438 bra PLED_decoplan_gf_page1 ; =0, Display Page 1
2439 ;PLED_decoplan_gf_page_current0: 2439
2440 ; movlw d'1'
2441 ; cpfseq temp8
2442 ; bra PLED_decoplan_gf_page_current1
2443 ; bra PLED_decoplan_gf_page2 ; =1: Dispplay Page 2
2444 ;PLED_decoplan_gf_page_current1:
2445 ; movlw d'2'
2446 ; cpfseq temp8
2447 ; bra PLED_decoplan_gf_page4 ; >2: Display Page 4
2448 ; bra PLED_decoplan_gf_page3 ; =1: Dispplay Page 3
2449 ;
2450 PLED_decoplan_gf_page1: 2440 PLED_decoplan_gf_page1:
2451 ostc_debug 'n' ; Sends debug-information to screen if debugmode active 2441 ostc_debug 'n' ; Sends debug-information to screen if debugmode active
2452 2442
2453 movff char_O_array_decodepth+0,lo ; Get Depth 2443 movff char_O_array_decodepth+0,lo ; Get Depth
2454 tstfsz lo 2444 tstfsz lo
2455 bra PLED_decoplan_gf_page1x 2445 bra PLED_decoplan_gf_page1x
2456 ; No Deco, show "no Deco" 2446 ; No Deco, show "no Deco"
2457 DISPLAYTEXT d'239' ;"No Deco" 2447 DISPLAYTEXT d'239' ;"No Deco"
2458 return 2448 return
2459 2449
2460 ;PLED_decoplan_gf_page4:
2461 ; ; temp7 holds last displayed depth
2462 ; ; temp5 list entry
2463 ; movlw .231
2464 ; movwf temp6 ; row
2465 ; movff temp5,temp9 ; save
2466 ; movff temp7,temp10 ; save
2467 ;PLED_decoplan_gf_page4y:
2468 ; movlw d'3'
2469 ; addwf temp7,F ; Add 3m for next stop
2470 ; movlw d'25'
2471 ; addwf temp6,F
2472 ; incf temp5,F
2473 ; call PLED_decoplan_show_stop_gf
2474 ; movlw d'23' ; Stops 18-23
2475 ; cpfseq temp5
2476 ; bra PLED_decoplan_gf_page4y
2477 ; movff temp9,temp5 ; restore
2478 ; movff temp10,temp7 ; restore
2479 ; bsf last_ceiling_gf_shown ; Set flag
2480 ; return
2481 ;
2482 ;PLED_decoplan_gf_page3:
2483 ; ; temp7 holds last displayed depth
2484 ; ; temp5 list entry
2485 ; movff temp5,temp9 ; save
2486 ; movff temp7,temp10 ; save
2487 ; movlw .231
2488 ; movwf temp6 ; row
2489 ;PLED_decoplan_gf_page3y:
2490 ; movlw d'3'
2491 ; addwf temp7,F ; Add 3m for next stop
2492 ; movlw d'25'
2493 ; addwf temp6,F
2494 ; incf temp5,F
2495 ; call PLED_decoplan_show_stop_gf
2496 ; movlw d'17' ; Stops 12-17
2497 ; cpfseq temp5
2498 ; bra PLED_decoplan_gf_page3y
2499 ; movff temp9,temp5 ; restore
2500 ; movff temp10,temp7 ; restore
2501 ; return
2502
2503 PLED_decoplan_gf_page2: 2450 PLED_decoplan_gf_page2:
2504 ; temp7 holds last displayed depth 2451 ; temp7 holds last displayed depth
2505 ; temp5 list entry 2452 ; temp5 list entry
2506 ; movff temp5,temp9 ; save 2453 movff temp5,temp9 ; save
2507 ; movff temp7,temp10 ; save 2454 movff temp7,temp10 ; save
2508 movlw .231 2455 movlw .231
2509 movwf temp6 ; row 2456 movwf temp6 ; row
2510 PLED_decoplan_gf_page2y: 2457 PLED_decoplan_gf_page2y:
2511 movlw d'3' 2458 movlw d'3'
2512 addwf temp7,F ; Add 3m for next stop 2459 addwf temp7,F ; Add 3m for next stop
2515 incf temp5,F 2462 incf temp5,F
2516 call PLED_decoplan_show_stop_gf 2463 call PLED_decoplan_show_stop_gf
2517 movlw d'15' ; the next 8 Stops... 2464 movlw d'15' ; the next 8 Stops...
2518 cpfseq temp5 2465 cpfseq temp5
2519 bra PLED_decoplan_gf_page2y 2466 bra PLED_decoplan_gf_page2y
2520 ; movff temp9,temp5 ; restore 2467 movff temp9,temp5 ; restore
2521 ; movff temp10,temp7 ; restore 2468 movff temp10,temp7 ; restore
2522 bsf last_ceiling_gf_shown ; Set flag 2469 bsf last_ceiling_gf_shown ; Set flag
2523 return 2470 return
2524 2471
2525 PLED_decoplan_gf_page1x: 2472 PLED_decoplan_gf_page1x:
2526 clrf temp8 ; Page 0-3 of deco list 2473 clrf temp8 ; Page 0-3 of deco list
2534 movlw d'25' 2481 movlw d'25'
2535 addwf temp6,F 2482 addwf temp6,F
2536 incf temp5,F 2483 incf temp5,F
2537 call PLED_decoplan_show_stop_gf 2484 call PLED_decoplan_show_stop_gf
2538 GETCUSTOM8 d'29' ; Last Deco in m 2485 GETCUSTOM8 d'29' ; Last Deco in m
2539 movlb .1
2540 movwf temp7 ; Last deco 2486 movwf temp7 ; Last deco
2541 movlw d'4' 2487 movlw d'4'
2542 cpfslt temp7 ; >=3m? 2488 cpfslt temp7 ; >=3m?
2543 ; cpfslt temp7 ; >=3m?
2544 bra PLED_decoplan_gf_page1x_next_6m 2489 bra PLED_decoplan_gf_page1x_next_6m
2545 2490
2546 movlw d'3' 2491 movlw d'3'
2547 movwf temp7 2492 movwf temp7
2548 bra PLED_decoplan_gf_page1y 2493 bra PLED_decoplan_gf_page1y
2549 2494
2550 PLED_decoplan_gf_page1x_next_6m: 2495 PLED_decoplan_gf_page1x_next_6m:
2551 movlw d'6' 2496 movlw d'6'
2552 movwf temp7 2497 movwf temp7
2498 incf temp5,F
2553 PLED_decoplan_gf_page1y: 2499 PLED_decoplan_gf_page1y:
2554 movlw d'3' 2500 movlw d'3'
2555 addwf temp7,F ; Add 3m for next stop 2501 addwf temp7,F ; Add 3m for next stop
2556 movlw d'25' 2502 movlw d'25'
2557 addwf temp6,F 2503 addwf temp6,F
2572 cpfslt temp7 ; Ceiling already displayed? 2518 cpfslt temp7 ; Ceiling already displayed?
2573 goto PLED_decoplan_delete ; Yes, quit display and RETURN 2519 goto PLED_decoplan_delete ; Yes, quit display and RETURN
2574 movff temp7,lo ; Decodepth 2520 movff temp7,lo ; Decodepth
2575 2521
2576 lfsr FSR2,letter 2522 lfsr FSR2,letter
2577 output_8 ; outputs into Postinc2! 2523 output_99x ; outputs into Postinc2!
2578 movlw 'm' 2524 movlw 'm'
2579 movwf POSTINC2 2525 movwf POSTINC2
2580 call word_processor 2526 call word_processor
2581 WIN_LEFT .140 2527 WIN_LEFT .140
2582 movff temp6,win_top 2528 movff temp6,win_top