📄 h08sci_1.lst
字号:
8401 91 E0 blt 0x83E3
8403 6F 03 clr 3,X
8405 6F 02 clr 2,X
8407 0A 1643 BRset 5,0x16,0x844D
840A 6E 0040 mov #0,*__r0
840D 6E 8041 mov #-128,*__r1
8410 E6 03 ldA 3,X
8412 A4 0F and #15
8414 27 06 beq 0x841C
8416 37 40 asr *__r0
8418 36 41 ror *__r1
841A 4B FA dbnzA 0x845D
841C B6 41 ldA *__r1
841E A8 FF eor #-1
8420 B7 41 stA *__r1
8422 B6 40 ldA *__r0
8424 A8 00 eor #0
8426 4E 4100 mov *__r1,0x00
8429 6F 07 clr 7,X
842B 6F 06 clr 6,X
842D CD 867B jsr _Delay1000
8430 95 tSX
8431 E6 07 ldA 7,X
8433 AB 01 add #1
8435 E7 07 stA 7,X
8437 E6 06 ldA 6,X
8439 A9 00 adc #0
843B E7 06 stA 6,X
843D E6 07 ldA 7,X
843F B7 41 stA *__r1
8441 E6 06 ldA 6,X
8443 B7 40 stA *__r0
8445 55 40 ldHX *__r0
8447 65 0400 cpHX #0x0400
844A 95 tSX
844B 91 E0 blt 0x842D
844D E6 03 ldA 3,X
844F AB 01 add #1
8451 E7 03 stA 3,X
8453 E6 02 ldA 2,X
8455 A9 00 adc #0
8457 E7 02 stA 2,X
8459 E6 03 ldA 3,X
845B B7 41 stA *__r1
845D E6 02 ldA 2,X
845F B7 40 stA *__r0
8461 55 40 ldHX *__r0
8463 65 0008 cpHX #0x0008
8466 95 tSX
8467 91 9E blt 0x8407
8469 A6 FF ldA #-1
846B B7 00 stA 0x00
846D CC 8675 jmp 0x8675
8470 B6 44 ldA *_SerialBuff
8472 A1 34 cmp #52
8474 27 03 beq 0x8479
8476 CC 85AA jmp 0x85AA
8479 45 800B ldHX #0x800B
847C 89 pshX
847D 8B pshH
847E A6 0A ldA #10
8480 87 pshA
8481 CD 86A6 jsr _SCISendN
8484 A7 03 aiS #3
8486 95 tSX
8487 A6 FF ldA #-1
8489 B7 00 stA 0x00
848B 6F 07 clr 7,X
848D 6F 06 clr 6,X
848F CD 867B jsr _Delay1000
8492 95 tSX
8493 E6 07 ldA 7,X
8495 AB 01 add #1
8497 E7 07 stA 7,X
8499 E6 06 ldA 6,X
849B A9 00 adc #0
849D E7 06 stA 6,X
849F E6 07 ldA 7,X
84A1 B7 41 stA *__r1
84A3 E6 06 ldA 6,X
84A5 B7 40 stA *__r0
84A7 55 40 ldHX *__r0
84A9 65 0400 cpHX #0x0400
84AC 95 tSX
84AD 91 E0 blt 0x848F
84AF 6F 03 clr 3,X
84B1 6F 02 clr 2,X
84B3 0A 1643 BRset 5,0x16,0x84F9
84B6 6E 0040 mov #0,*__r0
84B9 6E 0341 mov #3,*__r1
84BC E6 03 ldA 3,X
84BE A4 0F and #15
84C0 27 06 beq 0x84C8
84C2 38 41 lsl *__r1
84C4 39 40 rol *__r0
84C6 4B FA dbnzA 0x8509
84C8 B6 41 ldA *__r1
84CA A8 FF eor #-1
84CC B7 41 stA *__r1
84CE B6 40 ldA *__r0
84D0 A8 00 eor #0
84D2 4E 4100 mov *__r1,0x00
84D5 6F 07 clr 7,X
84D7 6F 06 clr 6,X
84D9 CD 867B jsr _Delay1000
84DC 95 tSX
84DD E6 07 ldA 7,X
84DF AB 01 add #1
84E1 E7 07 stA 7,X
84E3 E6 06 ldA 6,X
84E5 A9 00 adc #0
84E7 E7 06 stA 6,X
84E9 E6 07 ldA 7,X
84EB B7 41 stA *__r1
84ED E6 06 ldA 6,X
84EF B7 40 stA *__r0
84F1 55 40 ldHX *__r0
84F3 65 0400 cpHX #0x0400
84F6 95 tSX
84F7 91 E0 blt 0x84D9
84F9 E6 03 ldA 3,X
84FB AB 01 add #1
84FD E7 03 stA 3,X
84FF E6 02 ldA 2,X
8501 A9 00 adc #0
8503 E7 02 stA 2,X
8505 E6 03 ldA 3,X
8507 B7 41 stA *__r1
8509 E6 02 ldA 2,X
850B B7 40 stA *__r0
850D 55 40 ldHX *__r0
850F 65 0008 cpHX #0x0008
8512 95 tSX
8513 91 9E blt 0x84B3
8515 A6 FF ldA #-1
8517 B7 00 stA 0x00
8519 6F 07 clr 7,X
851B 6F 06 clr 6,X
851D CD 867B jsr _Delay1000
8520 95 tSX
8521 E6 07 ldA 7,X
8523 AB 01 add #1
8525 E7 07 stA 7,X
8527 E6 06 ldA 6,X
8529 A9 00 adc #0
852B E7 06 stA 6,X
852D E6 07 ldA 7,X
852F B7 41 stA *__r1
8531 E6 06 ldA 6,X
8533 B7 40 stA *__r0
8535 55 40 ldHX *__r0
8537 65 0400 cpHX #0x0400
853A 95 tSX
853B 91 E0 blt 0x851D
853D 6F 03 clr 3,X
853F 6F 02 clr 2,X
8541 0A 1643 BRset 5,0x16,0x8587
8544 6E 0040 mov #0,*__r0
8547 6E C041 mov #-64,*__r1
854A E6 03 ldA 3,X
854C A4 0F and #15
854E 27 06 beq 0x8556
8550 37 40 asr *__r0
8552 36 41 ror *__r1
8554 4B FA dbnzA 0x8597
8556 B6 41 ldA *__r1
8558 A8 FF eor #-1
855A B7 41 stA *__r1
855C B6 40 ldA *__r0
855E A8 00 eor #0
8560 4E 4100 mov *__r1,0x00
8563 6F 07 clr 7,X
8565 6F 06 clr 6,X
8567 CD 867B jsr _Delay1000
856A 95 tSX
856B E6 07 ldA 7,X
856D AB 01 add #1
856F E7 07 stA 7,X
8571 E6 06 ldA 6,X
8573 A9 00 adc #0
8575 E7 06 stA 6,X
8577 E6 07 ldA 7,X
8579 B7 41 stA *__r1
857B E6 06 ldA 6,X
857D B7 40 stA *__r0
857F 55 40 ldHX *__r0
8581 65 0400 cpHX #0x0400
8584 95 tSX
8585 91 E0 blt 0x8567
8587 E6 03 ldA 3,X
8589 AB 01 add #1
858B E7 03 stA 3,X
858D E6 02 ldA 2,X
858F A9 00 adc #0
8591 E7 02 stA 2,X
8593 E6 03 ldA 3,X
8595 B7 41 stA *__r1
8597 E6 02 ldA 2,X
8599 B7 40 stA *__r0
859B 55 40 ldHX *__r0
859D 65 0008 cpHX #0x0008
85A0 95 tSX
85A1 91 9E blt 0x8541
85A3 A6 FF ldA #-1
85A5 B7 00 stA 0x00
85A7 CC 8675 jmp 0x8675
85AA 45 8000 ldHX #0x8000
85AD 89 pshX
85AE 8B pshH
85AF A6 0A ldA #10
85B1 87 pshA
85B2 CD 86A6 jsr _SCISendN
85B5 A7 03 aiS #3
85B7 95 tSX
85B8 6F 03 clr 3,X
85BA 6F 02 clr 2,X
85BC 0A 1602 BRset 5,0x16,0x85C1
85BF 20 03 bra 0x85C4
85C1 CC 8652 jmp 0x8652
85C4 3F 00 clr 0x00
85C6 6F 07 clr 7,X
85C8 6F 06 clr 6,X
85CA 6F 05 clr 5,X
85CC 6F 04 clr 4,X
85CE CD 867B jsr _Delay1000
85D1 95 tSX
85D2 E6 05 ldA 5,X
85D4 AB 01 add #1
85D6 E7 05 stA 5,X
85D8 E6 04 ldA 4,X
85DA A9 00 adc #0
85DC E7 04 stA 4,X
85DE E6 05 ldA 5,X
85E0 B7 41 stA *__r1
85E2 E6 04 ldA 4,X
85E4 B7 40 stA *__r0
85E6 55 40 ldHX *__r0
85E8 65 0002 cpHX #0x0002
85EB 95 tSX
85EC 91 E0 blt 0x85CE
85EE E6 07 ldA 7,X
85F0 AB 01 add #1
85F2 E7 07 stA 7,X
85F4 E6 06 ldA 6,X
85F6 A9 00 adc #0
85F8 E7 06 stA 6,X
85FA E6 07 ldA 7,X
85FC B7 41 stA *__r1
85FE E6 06 ldA 6,X
8600 B7 40 stA *__r0
8602 55 40 ldHX *__r0
8604 65 0200 cpHX #0x0200
8607 95 tSX
8608 91 C0 blt 0x85CA
860A A6 FF ldA #-1
860C B7 00 stA 0x00
860E 6F 07 clr 7,X
8610 6F 06 clr 6,X
8612 6F 05 clr 5,X
8614 6F 04 clr 4,X
8616 CD 867B jsr _Delay1000
8619 95 tSX
861A E6 05 ldA 5,X
861C AB 01 add #1
861E E7 05 stA 5,X
8620 E6 04 ldA 4,X
8622 A9 00 adc #0
8624 E7 04 stA 4,X
8626 E6 05 ldA 5,X
8628 B7 41 stA *__r1
862A E6 04 ldA 4,X
862C B7 40 stA *__r0
862E 55 40 ldHX *__r0
8630 65 0002 cpHX #0x0002
8633 95 tSX
8634 91 E0 blt 0x8616
8636 E6 07 ldA 7,X
8638 AB 01 add #1
863A E7 07 stA 7,X
863C E6 06 ldA 6,X
863E A9 00 adc #0
8640 E7 06 stA 6,X
8642 E6 07 ldA 7,X
8644 B7 41 stA *__r1
8646 E6 06 ldA 6,X
8648 B7 40 stA *__r0
864A 55 40 ldHX *__r0
864C 65 0200 cpHX #0x0200
864F 95 tSX
8650 91 C0 blt 0x8612
8652 A6 FF ldA #-1
8654 B7 00 stA 0x00
8656 E6 03 ldA 3,X
8658 AB 01 add #1
865A E7 03 stA 3,X
865C E6 02 ldA 2,X
865E A9 00 adc #0
8660 E7 02 stA 2,X
8662 E6 03 ldA 3,X
8664 B7 41 stA *__r1
8666 E6 02 ldA 2,X
8668 B7 40 stA *__r0
866A 55 40 ldHX *__r0
866C 65 0004 cpHX #0x0004
866F 95 tSX
8670 90 03 bge 0x8675
8672 CC 85BC jmp 0x85BC
8675 CC 809C jmp 0x809C
8678 A7 08 aiS #8
867A 81 rts
_Delay1000:
867B A7 FF aiS #-1
867D 95 tSX
867E 7F clr 0,X
867F 20 01 bra 0x8682
8681 7C inc 0,X
8682 F6 ldA 0,X
8683 A1 6E cmp #110
8685 23 FA bls 0x8681
8687 A7 01 aiS #1
8689 81 rts
_SCIInit:
868A A6 02 ldA #2
868C B7 19 stA 0x19
868E A6 40 ldA #64
8690 B7 13 stA 0x13
8692 A6 0C ldA #12
8694 B7 14 stA 0x14
8696 81 rts
_SCISend1:
8697 95 tSX
8698 20 09 bra 0x86A3
869A 0F 1606 BRclr 7,0x16,0x86A3
869D E6 02 ldA 2,X
869F B7 18 stA 0x18
86A1 20 02 bra 0x86A5
86A3 20 F5 bra 0x869A
86A5 81 rts
_SCISendN:
86A6 A7 FE aiS #-2
86A8 95 tSX
86A9 6F 01 clr 1,X
86AB 7F clr 0,X
86AC 20 1F bra 0x86CD
86AE E6 01 ldA 1,X
86B0 EB 06 add 6,X
86B2 B7 41 stA *__r1
86B4 F6 ldA 0,X
86B5 E9 05 adc 5,X
86B7 B7 40 stA *__r0
86B9 55 40 ldHX *__r0
86BB F6 ldA 0,X
86BC 87 pshA
86BD CD 8697 jsr _SCISend1
86C0 A7 01 aiS #1
86C2 95 tSX
86C3 E6 01 ldA 1,X
86C5 AB 01 add #1
86C7 E7 01 stA 1,X
86C9 F6 ldA 0,X
86CA A9 00 adc #0
86CC F7 stA 0,X
86CD 3F 40 clr *__r0
86CF E6 04 ldA 4,X
86D1 B7 41 stA *__r1
86D3 E6 01 ldA 1,X
86D5 B7 43 stA *__r3
86D7 F6 ldA 0,X
86D8 B7 42 stA *__r2
86DA 55 42 ldHX *__r2
86DC 75 40 cpHX *__r0
86DE 95 tSX
86DF 91 CD blt 0x86AE
86E1 A7 02 aiS #2
86E3 81 rts
_SCIRe1:
86E4 A7 FD aiS #-3
86E6 95 tSX
86E7 6F 02 clr 2,X
86E9 6F 01 clr 1,X
86EB 20 21 bra 0x870E
86ED 0B 1612 BRclr 5,0x16,0x8702
86F0 B6 18 ldA 0x18
86F2 F7 stA 0,X
86F3 E6 06 ldA 6,X
86F5 B7 41 stA *__r1
86F7 E6 05 ldA 5,X
86F9 B7 40 stA *__r0
86FB 4F clrA
86FC 55 40 ldHX *__r0
86FE F7 stA 0,X
86FF 95 tSX
8700 20 1C bra 0x871E
8702 E6 02 ldA 2,X
8704 AB 01 add #1
8706 E7 02 stA 2,X
8708 E6 01 ldA 1,X
870A A9 00 adc #0
870C E7 01 stA 1,X
870E E6 02 ldA 2,X
8710 B7 41 stA *__r1
8712 E6 01 ldA 1,X
8714 B7 40 stA *__r0
8716 55 40 ldHX *__r0
8718 65 FBBB cpHX #0xFBBB
871B 95 tSX
871C 25 CF bcs 0x86ED
871E E6 02 ldA 2,X
8720 B7 41 stA *__r1
8722 E6 01 ldA 1,X
8724 B7 40 stA *__r0
8726 55 40 ldHX *__r0
8728 65 FBBB cpHX #0xFBBB
872B 95 tSX
872C 25 11 bcs 0x873F
872E A6 FF ldA #-1
8730 F7 stA 0,X
8731 E6 06 ldA 6,X
8733 B7 41 stA *__r1
8735 E6 05 ldA 5,X
8737 B7 40 stA *__r0
8739 A6 01 ldA #1
873B 55 40 ldHX *__r0
873D F7 stA 0,X
873E 95 tSX
873F F6 ldA 0,X
8740 A7 03 aiS #3
8742 81 rts
_SCIReN:
8743 A7 FD aiS #-3
8745 95 tSX
8746 6F 02 clr 2,X
8748 6F 01 clr 1,X
874A 20 31 bra 0x877D
874C 89 pshX
874D 8B pshH
874E CD 86E4 jsr _SCIRe1
8751 A7 02 aiS #2
8753 95 tSX
8754 B7 41 stA *__r1
8756 E6 02 ldA 2,X
8758 EB 07 add 7,X
875A B7 43 stA *__r3
875C E6 01 ldA 1,X
875E E9 06 adc 6,X
8760 B7 42 stA *__r2
8762 B6 41 ldA *__r1
8764 55 42 ldHX *__r2
8766 F7 stA 0,X
8767 95 tSX
8768 F6 ldA 0,X
8769 A1 01 cmp #1
876B 26 04 bne 0x8771
876D A6 01 ldA #1
876F 20 22 bra 0x8793
8771 E6 02 ldA 2,X
8773 AB 01 add #1
8775 E7 02 stA 2,X
8777 E6 01 ldA 1,X
8779 A9 00 adc #0
877B E7 01 stA 1,X
877D 3F 40 clr *__r0
877F E6 05 ldA 5,X
8781 B7 41 stA *__r1
8783 E6 02 ldA 2,X
8785 B7 43 stA *__r3
8787 E6 01 ldA 1,X
8789 B7 42 stA *__r2
878B 55 42 ldHX *__r2
878D 75 40 cpHX *__r0
878F 95 tSX
8790 91 BA blt 0x874C
8792 4F clrA
8793 A7 03 aiS #3
8795 81 rts
_isrDummy:
8796 8B pshH
8797 8A pulH
8798 80 rti
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -