h08sci_1.lst
来自「要用到开发工具SD-H08」· LST 代码 · 共 950 行 · 第 1/2 页
LST
950 行
83F1 95 tSX
83F2 91 E0 blt 0x83D4
83F4 6F 03 clr 3,X
83F6 6F 02 clr 2,X
83F8 6E 0040 mov #0,*__r0
83FB 6E 8041 mov #-128,*__r1
83FE E6 03 ldA 3,X
8400 A4 0F and #15
8402 27 06 beq 0x840A
8404 37 40 asr *__r0
8406 36 41 ror *__r1
8408 4B FA dbnzA 0x844B
840A B6 41 ldA *__r1
840C A8 FF eor #-1
840E B7 41 stA *__r1
8410 B6 40 ldA *__r0
8412 A8 00 eor #0
8414 4E 4100 mov *__r1,0x00
8417 6F 07 clr 7,X
8419 6F 06 clr 6,X
841B CD 865B jsr _Delay1000
841E 95 tSX
841F E6 07 ldA 7,X
8421 AB 01 add #1
8423 E7 07 stA 7,X
8425 E6 06 ldA 6,X
8427 A9 00 adc #0
8429 E7 06 stA 6,X
842B E6 07 ldA 7,X
842D B7 41 stA *__r1
842F E6 06 ldA 6,X
8431 B7 40 stA *__r0
8433 55 40 ldHX *__r0
8435 65 0400 cpHX #0x0400
8438 95 tSX
8439 91 E0 blt 0x841B
843B E6 03 ldA 3,X
843D AB 01 add #1
843F E7 03 stA 3,X
8441 E6 02 ldA 2,X
8443 A9 00 adc #0
8445 E7 02 stA 2,X
8447 E6 03 ldA 3,X
8449 B7 41 stA *__r1
844B E6 02 ldA 2,X
844D B7 40 stA *__r0
844F 55 40 ldHX *__r0
8451 65 0008 cpHX #0x0008
8454 95 tSX
8455 91 A1 blt 0x83F8
8457 A6 FF ldA #-1
8459 B7 00 stA 0x00
845B CC 8655 jmp 0x8655
845E B6 44 ldA *_SerialBuff
8460 A1 34 cmp #52
8462 27 03 beq 0x8467
8464 CC 8592 jmp 0x8592
8467 45 800B ldHX #0x800B
846A 89 pshX
846B 8B pshH
846C A6 0A ldA #10
846E 87 pshA
846F CD 8686 jsr _SCISendN
8472 A7 03 aiS #3
8474 95 tSX
8475 A6 FF ldA #-1
8477 B7 00 stA 0x00
8479 6F 07 clr 7,X
847B 6F 06 clr 6,X
847D CD 865B jsr _Delay1000
8480 95 tSX
8481 E6 07 ldA 7,X
8483 AB 01 add #1
8485 E7 07 stA 7,X
8487 E6 06 ldA 6,X
8489 A9 00 adc #0
848B E7 06 stA 6,X
848D E6 07 ldA 7,X
848F B7 41 stA *__r1
8491 E6 06 ldA 6,X
8493 B7 40 stA *__r0
8495 55 40 ldHX *__r0
8497 65 0400 cpHX #0x0400
849A 95 tSX
849B 91 E0 blt 0x847D
849D 6F 03 clr 3,X
849F 6F 02 clr 2,X
84A1 6E 0040 mov #0,*__r0
84A4 6E 0341 mov #3,*__r1
84A7 E6 03 ldA 3,X
84A9 A4 0F and #15
84AB 27 06 beq 0x84B3
84AD 38 41 lsl *__r1
84AF 39 40 rol *__r0
84B1 4B FA dbnzA 0x84F4
84B3 B6 41 ldA *__r1
84B5 A8 FF eor #-1
84B7 B7 41 stA *__r1
84B9 B6 40 ldA *__r0
84BB A8 00 eor #0
84BD 4E 4100 mov *__r1,0x00
84C0 6F 07 clr 7,X
84C2 6F 06 clr 6,X
84C4 CD 865B jsr _Delay1000
84C7 95 tSX
84C8 E6 07 ldA 7,X
84CA AB 01 add #1
84CC E7 07 stA 7,X
84CE E6 06 ldA 6,X
84D0 A9 00 adc #0
84D2 E7 06 stA 6,X
84D4 E6 07 ldA 7,X
84D6 B7 41 stA *__r1
84D8 E6 06 ldA 6,X
84DA B7 40 stA *__r0
84DC 55 40 ldHX *__r0
84DE 65 0400 cpHX #0x0400
84E1 95 tSX
84E2 91 E0 blt 0x84C4
84E4 E6 03 ldA 3,X
84E6 AB 01 add #1
84E8 E7 03 stA 3,X
84EA E6 02 ldA 2,X
84EC A9 00 adc #0
84EE E7 02 stA 2,X
84F0 E6 03 ldA 3,X
84F2 B7 41 stA *__r1
84F4 E6 02 ldA 2,X
84F6 B7 40 stA *__r0
84F8 55 40 ldHX *__r0
84FA 65 0008 cpHX #0x0008
84FD 95 tSX
84FE 91 A1 blt 0x84A1
8500 A6 FF ldA #-1
8502 B7 00 stA 0x00
8504 6F 07 clr 7,X
8506 6F 06 clr 6,X
8508 CD 865B jsr _Delay1000
850B 95 tSX
850C E6 07 ldA 7,X
850E AB 01 add #1
8510 E7 07 stA 7,X
8512 E6 06 ldA 6,X
8514 A9 00 adc #0
8516 E7 06 stA 6,X
8518 E6 07 ldA 7,X
851A B7 41 stA *__r1
851C E6 06 ldA 6,X
851E B7 40 stA *__r0
8520 55 40 ldHX *__r0
8522 65 0400 cpHX #0x0400
8525 95 tSX
8526 91 E0 blt 0x8508
8528 6F 03 clr 3,X
852A 6F 02 clr 2,X
852C 6E 0040 mov #0,*__r0
852F 6E C041 mov #-64,*__r1
8532 E6 03 ldA 3,X
8534 A4 0F and #15
8536 27 06 beq 0x853E
8538 37 40 asr *__r0
853A 36 41 ror *__r1
853C 4B FA dbnzA 0x857F
853E B6 41 ldA *__r1
8540 A8 FF eor #-1
8542 B7 41 stA *__r1
8544 B6 40 ldA *__r0
8546 A8 00 eor #0
8548 4E 4100 mov *__r1,0x00
854B 6F 07 clr 7,X
854D 6F 06 clr 6,X
854F CD 865B jsr _Delay1000
8552 95 tSX
8553 E6 07 ldA 7,X
8555 AB 01 add #1
8557 E7 07 stA 7,X
8559 E6 06 ldA 6,X
855B A9 00 adc #0
855D E7 06 stA 6,X
855F E6 07 ldA 7,X
8561 B7 41 stA *__r1
8563 E6 06 ldA 6,X
8565 B7 40 stA *__r0
8567 55 40 ldHX *__r0
8569 65 0400 cpHX #0x0400
856C 95 tSX
856D 91 E0 blt 0x854F
856F E6 03 ldA 3,X
8571 AB 01 add #1
8573 E7 03 stA 3,X
8575 E6 02 ldA 2,X
8577 A9 00 adc #0
8579 E7 02 stA 2,X
857B E6 03 ldA 3,X
857D B7 41 stA *__r1
857F E6 02 ldA 2,X
8581 B7 40 stA *__r0
8583 55 40 ldHX *__r0
8585 65 0008 cpHX #0x0008
8588 95 tSX
8589 91 A1 blt 0x852C
858B A6 FF ldA #-1
858D B7 00 stA 0x00
858F CC 8655 jmp 0x8655
8592 45 8000 ldHX #0x8000
8595 89 pshX
8596 8B pshH
8597 A6 0A ldA #10
8599 87 pshA
859A CD 8686 jsr _SCISendN
859D A7 03 aiS #3
859F 95 tSX
85A0 6F 03 clr 3,X
85A2 6F 02 clr 2,X
85A4 A6 FF ldA #-1
85A6 B7 00 stA 0x00
85A8 6F 07 clr 7,X
85AA 6F 06 clr 6,X
85AC 6F 05 clr 5,X
85AE 6F 04 clr 4,X
85B0 CD 865B jsr _Delay1000
85B3 95 tSX
85B4 E6 05 ldA 5,X
85B6 AB 01 add #1
85B8 E7 05 stA 5,X
85BA E6 04 ldA 4,X
85BC A9 00 adc #0
85BE E7 04 stA 4,X
85C0 E6 05 ldA 5,X
85C2 B7 41 stA *__r1
85C4 E6 04 ldA 4,X
85C6 B7 40 stA *__r0
85C8 55 40 ldHX *__r0
85CA 65 0002 cpHX #0x0002
85CD 95 tSX
85CE 91 E0 blt 0x85B0
85D0 E6 07 ldA 7,X
85D2 AB 01 add #1
85D4 E7 07 stA 7,X
85D6 E6 06 ldA 6,X
85D8 A9 00 adc #0
85DA E7 06 stA 6,X
85DC E6 07 ldA 7,X
85DE B7 41 stA *__r1
85E0 E6 06 ldA 6,X
85E2 B7 40 stA *__r0
85E4 55 40 ldHX *__r0
85E6 65 0400 cpHX #0x0400
85E9 95 tSX
85EA 91 C0 blt 0x85AC
85EC 3F 00 clr 0x00
85EE 6F 07 clr 7,X
85F0 6F 06 clr 6,X
85F2 6F 05 clr 5,X
85F4 6F 04 clr 4,X
85F6 CD 865B jsr _Delay1000
85F9 95 tSX
85FA E6 05 ldA 5,X
85FC AB 01 add #1
85FE E7 05 stA 5,X
8600 E6 04 ldA 4,X
8602 A9 00 adc #0
8604 E7 04 stA 4,X
8606 E6 05 ldA 5,X
8608 B7 41 stA *__r1
860A E6 04 ldA 4,X
860C B7 40 stA *__r0
860E 55 40 ldHX *__r0
8610 65 0002 cpHX #0x0002
8613 95 tSX
8614 91 E0 blt 0x85F6
8616 E6 07 ldA 7,X
8618 AB 01 add #1
861A E7 07 stA 7,X
861C E6 06 ldA 6,X
861E A9 00 adc #0
8620 E7 06 stA 6,X
8622 E6 07 ldA 7,X
8624 B7 41 stA *__r1
8626 E6 06 ldA 6,X
8628 B7 40 stA *__r0
862A 55 40 ldHX *__r0
862C 65 0400 cpHX #0x0400
862F 95 tSX
8630 91 C0 blt 0x85F2
8632 E6 03 ldA 3,X
8634 AB 01 add #1
8636 E7 03 stA 3,X
8638 E6 02 ldA 2,X
863A A9 00 adc #0
863C E7 02 stA 2,X
863E E6 03 ldA 3,X
8640 B7 41 stA *__r1
8642 E6 02 ldA 2,X
8644 B7 40 stA *__r0
8646 55 40 ldHX *__r0
8648 65 0004 cpHX #0x0004
864B 95 tSX
864C 90 03 bge 0x8651
864E CC 85A4 jmp 0x85A4
8651 A6 FF ldA #-1
8653 B7 00 stA 0x00
8655 CC 809C jmp 0x809C
8658 A7 08 aiS #8
865A 81 rts
_Delay1000:
865B A7 FF aiS #-1
865D 95 tSX
865E 7F clr 0,X
865F 20 01 bra 0x8662
8661 7C inc 0,X
8662 F6 ldA 0,X
8663 A1 6E cmp #110
8665 23 FA bls 0x8661
8667 A7 01 aiS #1
8669 81 rts
_SCIInit:
866A A6 02 ldA #2
866C B7 19 stA 0x19
866E A6 40 ldA #64
8670 B7 13 stA 0x13
8672 A6 0C ldA #12
8674 B7 14 stA 0x14
8676 81 rts
_SCISend1:
8677 95 tSX
8678 20 09 bra 0x8683
867A 0F 1606 BRclr 7,0x16,0x8683
867D E6 02 ldA 2,X
867F B7 18 stA 0x18
8681 20 02 bra 0x8685
8683 20 F5 bra 0x867A
8685 81 rts
_SCISendN:
8686 A7 FE aiS #-2
8688 95 tSX
8689 6F 01 clr 1,X
868B 7F clr 0,X
868C 20 1F bra 0x86AD
868E E6 01 ldA 1,X
8690 EB 06 add 6,X
8692 B7 41 stA *__r1
8694 F6 ldA 0,X
8695 E9 05 adc 5,X
8697 B7 40 stA *__r0
8699 55 40 ldHX *__r0
869B F6 ldA 0,X
869C 87 pshA
869D CD 8677 jsr _SCISend1
86A0 A7 01 aiS #1
86A2 95 tSX
86A3 E6 01 ldA 1,X
86A5 AB 01 add #1
86A7 E7 01 stA 1,X
86A9 F6 ldA 0,X
86AA A9 00 adc #0
86AC F7 stA 0,X
86AD 3F 40 clr *__r0
86AF E6 04 ldA 4,X
86B1 B7 41 stA *__r1
86B3 E6 01 ldA 1,X
86B5 B7 43 stA *__r3
86B7 F6 ldA 0,X
86B8 B7 42 stA *__r2
86BA 55 42 ldHX *__r2
86BC 75 40 cpHX *__r0
86BE 95 tSX
86BF 91 CD blt 0x868E
86C1 A7 02 aiS #2
86C3 81 rts
_SCIRe1:
86C4 A7 FD aiS #-3
86C6 95 tSX
86C7 6F 02 clr 2,X
86C9 6F 01 clr 1,X
86CB 20 21 bra 0x86EE
86CD 0B 1612 BRclr 5,0x16,0x86E2
86D0 B6 18 ldA 0x18
86D2 F7 stA 0,X
86D3 E6 06 ldA 6,X
86D5 B7 41 stA *__r1
86D7 E6 05 ldA 5,X
86D9 B7 40 stA *__r0
86DB 4F clrA
86DC 55 40 ldHX *__r0
86DE F7 stA 0,X
86DF 95 tSX
86E0 20 1C bra 0x86FE
86E2 E6 02 ldA 2,X
86E4 AB 01 add #1
86E6 E7 02 stA 2,X
86E8 E6 01 ldA 1,X
86EA A9 00 adc #0
86EC E7 01 stA 1,X
86EE E6 02 ldA 2,X
86F0 B7 41 stA *__r1
86F2 E6 01 ldA 1,X
86F4 B7 40 stA *__r0
86F6 55 40 ldHX *__r0
86F8 65 FBBB cpHX #0xFBBB
86FB 95 tSX
86FC 25 CF bcs 0x86CD
86FE E6 02 ldA 2,X
8700 B7 41 stA *__r1
8702 E6 01 ldA 1,X
8704 B7 40 stA *__r0
8706 55 40 ldHX *__r0
8708 65 FBBB cpHX #0xFBBB
870B 95 tSX
870C 25 11 bcs 0x871F
870E A6 FF ldA #-1
8710 F7 stA 0,X
8711 E6 06 ldA 6,X
8713 B7 41 stA *__r1
8715 E6 05 ldA 5,X
8717 B7 40 stA *__r0
8719 A6 01 ldA #1
871B 55 40 ldHX *__r0
871D F7 stA 0,X
871E 95 tSX
871F F6 ldA 0,X
8720 A7 03 aiS #3
8722 81 rts
_SCIReN:
8723 A7 FD aiS #-3
8725 95 tSX
8726 6F 02 clr 2,X
8728 6F 01 clr 1,X
872A 20 31 bra 0x875D
872C 89 pshX
872D 8B pshH
872E CD 86C4 jsr _SCIRe1
8731 A7 02 aiS #2
8733 95 tSX
8734 B7 41 stA *__r1
8736 E6 02 ldA 2,X
8738 EB 07 add 7,X
873A B7 43 stA *__r3
873C E6 01 ldA 1,X
873E E9 06 adc 6,X
8740 B7 42 stA *__r2
8742 B6 41 ldA *__r1
8744 55 42 ldHX *__r2
8746 F7 stA 0,X
8747 95 tSX
8748 F6 ldA 0,X
8749 A1 01 cmp #1
874B 26 04 bne 0x8751
874D A6 01 ldA #1
874F 20 22 bra 0x8773
8751 E6 02 ldA 2,X
8753 AB 01 add #1
8755 E7 02 stA 2,X
8757 E6 01 ldA 1,X
8759 A9 00 adc #0
875B E7 01 stA 1,X
875D 3F 40 clr *__r0
875F E6 05 ldA 5,X
8761 B7 41 stA *__r1
8763 E6 02 ldA 2,X
8765 B7 43 stA *__r3
8767 E6 01 ldA 1,X
8769 B7 42 stA *__r2
876B 55 42 ldHX *__r2
876D 75 40 cpHX *__r0
876F 95 tSX
8770 91 BA blt 0x872C
8772 4F clrA
8773 A7 03 aiS #3
8775 81 rts
_isrDummy:
8776 8B pshH
8777 8A pulH
8778 80 rti
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?