📄 hf0803.lst.bak
字号:
498 00:0301: AD xx xx LDA PageLocationY
499 00:0304: C9 03 CMP #3
500 00:0306: D0 25 BNE AddPage1Item4
501 00:0308: 9C xx xx STZ LCDX
502 00:030B: A9 03 LDA #3
503 00:030D: 8D xx xx STA LCDY
504 00:0310: A9 04 LDA #4
505 00:0312: 8D xx xx STA STRCNT
506 00:0315: 20 xx xx JSR InVideo
507 00:0318: EE xx xx INC PageLocationY
508 00:031B: 9C xx xx STZ LCDX
509 00:031E: AD xx xx LDA PageLocationY
510 00:0321: 8D xx xx STA LCDY
511 00:0324: A9 04 LDA #4 ;牌张数
512 00:0326: 8D xx xx STA STRCNT
513 00:0329: 20 xx xx JSR InVideo
514 00:032C: 60 RTS
515 AddPage1Item4:
516 00:032D: AD xx xx LDA PageLocationX
517 00:0330: C9 00 CMP #0
518 00:0332: D0 2C BNE AddPage1Item5
519 00:0334: AD xx xx LDA PageLocationY
520 00:0337: C9 04 CMP #4
521 00:0339: D0 25 BNE AddPage1Item5
522 00:033B: 9C xx xx STZ LCDX
523 00:033E: A9 04 LDA #4
524 00:0340: 8D xx xx STA LCDY
525 00:0343: A9 04 LDA #4
526 00:0345: 8D xx xx STA STRCNT
527 00:0348: 20 xx xx JSR InVideo
528 00:034B: EE xx xx INC PageLocationY
529 00:034E: 9C xx xx STZ LCDX
530 00:0351: AD xx xx LDA PageLocationY
531 00:0354: 8D xx xx STA LCDY
532 00:0357: A9 04 LDA #4 ;牌张数
533 00:0359: 8D xx xx STA STRCNT
534 00:035C: 20 xx xx JSR InVideo
535 00:035F: 60 RTS
536 AddPage1Item5:
537 00:0360: AD xx xx LDA PageLocationX
538 00:0363: C9 00 CMP #0
539 00:0365: D0 2C BNE AddPage1Item6
540 00:0367: AD xx xx LDA PageLocationY
541 00:036A: C9 05 CMP #5
542 00:036C: D0 25 BNE AddPage1Item6
543 00:036E: 9C xx xx STZ LCDX
544 00:0371: A9 05 LDA #5
545 00:0373: 8D xx xx STA LCDY
546 00:0376: A9 04 LDA #4
547 00:0378: 8D xx xx STA STRCNT
548 00:037B: 20 xx xx JSR InVideo
549 00:037E: EE xx xx INC PageLocationY
550 00:0381: 9C xx xx STZ LCDX
551 00:0384: AD xx xx LDA PageLocationY
552 00:0387: 8D xx xx STA LCDY
553 00:038A: A9 04 LDA #4 ;牌张数
554 00:038C: 8D xx xx STA STRCNT
555 00:038F: 20 xx xx JSR InVideo
556 00:0392: 60 RTS
557 AddPage1Item6:
558 00:0393: AD xx xx LDA PageLocationX
559 00:0396: C9 00 CMP #0
560 00:0398: D0 2C BNE AddPage1Item7
561 00:039A: AD xx xx LDA PageLocationY
562 00:039D: C9 06 CMP #6
563 00:039F: D0 25 BNE AddPage1Item7
564 00:03A1: 9C xx xx STZ LCDX
565 00:03A4: A9 06 LDA #6
566 00:03A6: 8D xx xx STA LCDY
567 00:03A9: A9 04 LDA #4
568 00:03AB: 8D xx xx STA STRCNT
569 00:03AE: 20 xx xx JSR InVideo
570 00:03B1: EE xx xx INC PageLocationY
571 00:03B4: 9C xx xx STZ LCDX
572 00:03B7: AD xx xx LDA PageLocationY
573 00:03BA: 8D xx xx STA LCDY
574 00:03BD: A9 04 LDA #4 ;牌张数
575 00:03BF: 8D xx xx STA STRCNT
576 00:03C2: 20 xx xx JSR InVideo
577 00:03C5: 60 RTS
578 AddPage1Item7:
579 00:03C6: AD xx xx LDA PageLocationX
580 00:03C9: C9 00 CMP #0
581 00:03CB: D0 2C BNE AddPage1Item8
582 00:03CD: AD xx xx LDA PageLocationY
583 00:03D0: C9 07 CMP #7
584 00:03D2: D0 25 BNE AddPage1Item8
585 00:03D4: 9C xx xx STZ LCDX
586 00:03D7: A9 07 LDA #7
587 00:03D9: 8D xx xx STA LCDY
588 00:03DC: A9 04 LDA #4
589 00:03DE: 8D xx xx STA STRCNT
590 00:03E1: 20 xx xx JSR InVideo
591 00:03E4: EE xx xx INC PageLocationY
592 00:03E7: 9C xx xx STZ LCDX
593 00:03EA: AD xx xx LDA PageLocationY
594 00:03ED: 8D xx xx STA LCDY
595 00:03F0: A9 04 LDA #4 ;牌张数
596 00:03F2: 8D xx xx STA STRCNT
597 00:03F5: 20 xx xx JSR InVideo
598 00:03F8: 60 RTS
599
600 AddPage1Item8:
601 00:03F9: AD xx xx LDA PageLocationX
602 00:03FC: C9 00 CMP #0
603 00:03FE: D0 2C BNE AddPage1Item9
604 00:0400: AD xx xx LDA PageLocationY
605 00:0403: C9 08 CMP #8
606 00:0405: D0 25 BNE AddPage1Item9
607 00:0407: 9C xx xx STZ LCDX
608 00:040A: A9 08 LDA #8
609 00:040C: 8D xx xx STA LCDY
610 00:040F: A9 04 LDA #4
611 00:0411: 8D xx xx STA STRCNT
612 00:0414: 20 xx xx JSR InVideo
613 00:0417: EE xx xx INC PageLocationY
614 00:041A: 9C xx xx STZ LCDX
615 00:041D: AD xx xx LDA PageLocationY
616 00:0420: 8D xx xx STA LCDY
617 00:0423: A9 04 LDA #4 ;牌张数
618 00:0425: 8D xx xx STA STRCNT
619 00:0428: 20 xx xx JSR InVideo
620 00:042B: 60 RTS
621 AddPage1Item9:
622 00:042C: AD xx xx LDA PageLocationX
623 00:042F: C9 00 CMP #0
624 00:0431: D0 2C BNE AddPage1Item1
625 00:0433: AD xx xx LDA PageLocationY
626 00:0436: C9 09 CMP #9
627 00:0438: D0 25 BNE AddPage1Item1
628 00:043A: 9C xx xx STZ LCDX
629 00:043D: A9 09 LDA #9
630 00:043F: 8D xx xx STA LCDY
631 00:0442: A9 04 LDA #4
632 00:0444: 8D xx xx STA STRCNT
633 00:0447: 20 xx xx JSR InVideo
634 00:044A: EE xx xx INC PageLocationY
635 00:044D: 9C xx xx STZ LCDX
636 00:0450: AD xx xx LDA PageLocationY
637 00:0453: 8D xx xx STA LCDY
638 00:0456: A9 04 LDA #4 ;牌张数
639 00:0458: 8D xx xx STA STRCNT
640 00:045B: 20 xx xx JSR InVideo
641 00:045E: 60 RTS
642 AddPage1Item1:
643 00:045F: 4C xx xx JMP AddMenuPage1
644 ;[P]------------------------------[P]
645 ; Initial LCD control registers.
646 ;[P]------------------------------[P]
647 00:0462: 48 InitialLCDC: pha ; Push a into stack.
648 00:0463: A9 40 lda #<LCD_BUF_START ; Initial LCD screen starting address from 200h.
649 00:0465: 85 40 sta <LSSAL
650 00:0467: A9 0D lda #>LCD_BUF_START
651 00:0469: 85 41 sta <LSSAH
652 00:046B: A9 0F lda #LCD_SEG/16 ; Initial LCD virtual page width = 240.
653 00:046D: 85 42 sta <LVPW
654 00:046F: A9 1E lda #LCD_SEG/8 ; Initial LCD screen width = 240.
655 00:0471: 85 43 sta <LXMAX
656 00:0473: A9 50 lda #LCD_COM/2 ; Initial LCD screen Hight = 160
657 00:0475: 85 44 sta <LYMAX
658
659 00:0477: 64 45 stz <LPAN ; Initial LCD panning offset = 0.
660
661 00:0479: A9 15 lda #LCD_LCK
662 00:047B: 85 48 sta <LCKR ; 4M Hz.
663
664 ; stz <LCTR ; Initial LCD control register.
665 00:047D: A9 00 lda #00000000B
666 00:047F: 85 47 sta <LCTR
667
668 00:0481: A9 04 lda #00000000b+4
669 00:0483: 85 49 sta <LFRA ; Frame rate = Hz.
670 00:0485: A9 01 lda #01h
671 00:0487: 85 4A sta <LAC ; Toggle AC signal every frame.
672 00:0489: A9 00 lda #00h
673 00:048B: 85 4B sta <LPWM ; Initial LCD PWM contrast control = MAX.
674 00:048D: A9 FF lda #0FFh
675 00:048F: 85 4F sta <PCL ; Set port-L as output mode.
676 00:0491: 64 4E stz <PL ; Output low.
677 00:0493: 68 pla ; Pop a from stack.
678 00:0494: 60 rts ; Return to superstructure.
679 ;[P]-----------------------------[P]
680 ; Fill LCD screen.
681 ; x : Data to be fill with.
682 ;[P]-----------------------------[P]
683 FillScreen: PUSH_ALL ; Push a, x, y, pointer & temporate into stack.
+ 683 00:0495: 48 pha
+ 683 00:0496: DA phx
+ 683 00:0497: 5A phy
+ 683 00:0498: 08 php
684 00:0499: A9 40 lda #<LCD_BUF_START ; Ptr = Starting address of LCD display RAM.
685 00:049B: 85 xx sta <PtrL
686 00:049D: A9 0D lda #>LCD_BUF_START
687 00:049F: 85 xx sta <PtrH
688 00:04A1: 8A txa ; Set filled data to a.
689 00:04A2: A2 00 ldx #0
690 00:04A4: A0 00 fs1: ldy #0
691 00:04A6: 92 xx fs2: sta (Ptr)
692 00:04A8: E6 xx inc <PtrL ; Ptr += 1.
693 00:04AA: D0 02 bne fs3
694 00:04AC: E6 xx inc <PtrH
695 00:04AE: C8 fs3: iny
696 00:04AF: C0 1E cpy #LCD_SEG/8
697 00:04B1: D0 F3 bne fs2 ; Skip if not finish X-axis.
698 00:04B3: E8 inx
699 00:04B4: E0 A0 cpx #160 ;#LCD_COM
700 00:04B6: D0 EC bne fs1 ; Skip if not finish Y-axis.
701 PULL_ALL ; Pop temporate & pointer y, x, a from stack.
+ 701 00:04B8: 28 plp
+ 701 00:04B9: 7A ply
+ 701 00:04BA: FA plx
+ 701 00:04BB: 68 pla
702 00:04BC: 60 rts ; Return to superstructure.
703
704 ;[P]---------------[P]
705 ; Delay 1 second.
706 ;[P]---------------[P]
707 Delay1S: PUSH_REG ; Push a, x, y into stack.
+ 707 00:04BD: 48 pha
+ 707 00:04BE: DA phx
+ 707 00:04BF: 5A phy
708 00:04C0: A0 04 ldy #4
709 00:04C2: 20 xx xx Dly1S: jsr Delay256 ; Delay about 256 mS.
710 00:04C5: 88 dey
711 00:04C6: D0 FA bne Dly1S
712 PULL_REG ; Pop y, x, a from stack.
+ 712 00:04C8: 7A ply
+ 712 00:04C9: FA plx
+ 712 00:04CA: 68 pla
713 00:04CB: 60 rts ; Return to superstructure.
714 ;[P]-------------------[P]
715 ; Delay about 256 mS.
716 ;[P]-------------------[P]
717 Delay256: PUSH_REG ; Push a, x, y into stack.
+ 717 00:04CC: 48 pha
+ 717 00:04CD: DA phx
+ 717 00:04CE: 5A phy
718 00:04CF: A2 00 ldx #0
719 00:04D1: A0 00 Dly2: ldy #0
720 00:04D3: EA Dly1: nop
721 00:04D4: EA nop
722 00:04D5: EA nop
723 00:04D6: EA nop
724 00:04D7: 88 dey
725 00:04D8: D0 F9 bne Dly1
726 00:04DA: CA dex
727 00:04DB: D0 F4 bne Dly2
728 PULL_REG ; Pop y, x, a from stack.
+ 728 00:04DD: 7A ply
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -