📄 dzq.lst
字号:
8546 6F 02 clr 2,X
8548 6F 03 clr 3,X
854A 20 1D bra 0x8569
854C 40 negA
854D AB 17 add #23
854F 67 00 asr 0,X
8551 66 01 ror 1,X
8553 66 02 ror 2,X
8555 66 03 ror 3,X
8557 4A decA
8558 26 F5 bne 0x854F
855A 20 0D bra 0x8569
855C A0 17 sub #23
855E 68 03 lsl 3,X
8560 69 02 rol 2,X
8562 69 01 rol 1,X
8564 69 00 rol 0,X
8566 4A decA
8567 26 F5 bne 0x855E
8569 9E6D 01 tst 1,S
856C 2A 14 bpl 0x8582
856E 4F clrA
856F E0 03 sub 3,X
8571 E7 03 stA 3,X
8573 4F clrA
8574 E2 02 sbc 2,X
8576 E7 02 stA 2,X
8578 4F clrA
8579 E2 01 sbc 1,X
857B E7 01 stA 1,X
857D 4F clrA
857E E2 00 sbc 0,X
8580 E7 00 stA 0,X
8582 A7 01 aiS #1
8584 8A pulH
8585 88 pulX
8586 81 rts
__SPFloat_sub:
8587 89 pshX
8588 8B pshH
8589 95 tSX
858A AF 04 aiX #4
858C CD 8921 jsr __tst_s32
858F 27 06 beq 0x8597
8591 A6 80 ldA #-128
8593 E8 00 eor 0,X
8595 E7 00 stA 0,X
8597 8A pulH
8598 88 pulX
__SPFloat_add:
8599 89 pshX
859A 8B pshH
859B A7 FE aiS #-2
859D 95 tSX
859E AF 06 aiX #6
85A0 CD 8921 jsr __tst_s32
85A3 26 03 bne 0x85A8
85A5 CC 862B jmp 0x862B
85A8 95 tSX
85A9 AF 0A aiX #10
85AB CD 8921 jsr __tst_s32
85AE 26 13 bne 0x85C3
85B0 95 tSX
85B1 E6 06 ldA 6,X
85B3 E7 0A stA 10,X
85B5 E6 07 ldA 7,X
85B7 E7 0B stA 11,X
85B9 E6 08 ldA 8,X
85BB E7 0C stA 12,X
85BD E6 09 ldA 9,X
85BF E7 0D stA 13,X
85C1 20 68 bra 0x862B
85C3 95 tSX
85C4 AF 06 aiX #6
85C6 CD 892F jsr unpack_s
85C9 95 tSX
85CA E7 00 stA 0,X
85CC AF 0A aiX #10
85CE CD 892F jsr unpack_s
85D1 95 tSX
85D2 E7 01 stA 1,X
85D4 E0 00 sub 0,X
85D6 27 1B beq 0x85F3
85D8 24 05 bcc 0x85DF
85DA 40 negA
85DB AF 0A aiX #10
85DD 20 09 bra 0x85E8
85DF 95 tSX
85E0 87 pshA
85E1 E6 01 ldA 1,X
85E3 E7 00 stA 0,X
85E5 AF 06 aiX #6
85E7 86 pulA
85E8 77 asr 0,X
85E9 66 01 ror 1,X
85EB 66 02 ror 2,X
85ED 66 03 ror 3,X
85EF 4A decA
85F0 26 F6 bne 0x85E8
85F2 95 tSX
85F3 E6 0D ldA 13,X
85F5 EB 09 add 9,X
85F7 E7 0D stA 13,X
85F9 E6 0C ldA 12,X
85FB E9 08 adc 8,X
85FD E7 0C stA 12,X
85FF E6 0B ldA 11,X
8601 E9 07 adc 7,X
8603 E7 0B stA 11,X
8605 E6 0A ldA 10,X
8607 E9 06 adc 6,X
8609 E7 0A stA 10,X
860B 87 pshA
860C 2A 14 bpl 0x8622
860E 4F clrA
860F E0 0D sub 13,X
8611 E7 0D stA 13,X
8613 4F clrA
8614 E2 0C sbc 12,X
8616 E7 0C stA 12,X
8618 4F clrA
8619 E2 0B sbc 11,X
861B E7 0B stA 11,X
861D 4F clrA
861E E2 0A sbc 10,X
8620 E7 0A stA 10,X
8622 E6 00 ldA 0,X
8624 AF 0A aiX #10
8626 CD 897B jsr normalize
8629 A7 01 aiS #1
862B A7 02 aiS #2
862D 8A pulH
862E 88 pulX
862F 81 rts
__SPFloat_cmp_s:
8630 9EE6 07 ldA 7,S
8633 9EE8 03 eor 3,S
8636 2A 07 bpl 0x863F
8638 9E6D 07 tst 7,S
863B 2A 4D bpl 0x868A
863D 20 4F bra 0x868E
863F 9EE6 07 ldA 7,S
8642 2B 21 bmi 0x8665
8644 9EE1 03 cmp 3,S
8647 26 18 bne 0x8661
8649 9EE6 08 ldA 8,S
864C 9EE1 04 cmp 4,S
864F 26 10 bne 0x8661
8651 9EE6 09 ldA 9,S
8654 9EE1 05 cmp 5,S
8657 26 08 bne 0x8661
8659 9EE6 0A ldA 10,S
865C 9EE1 06 cmp 6,S
865F 27 24 beq 0x8685
8661 25 2B bcs 0x868E
8663 20 25 bra 0x868A
8665 9EE6 07 ldA 7,S
8668 9EE1 03 cmp 3,S
866B 26 1B bne 0x8688
866D 9EE6 08 ldA 8,S
8670 9EE1 04 cmp 4,S
8673 26 13 bne 0x8688
8675 9EE6 09 ldA 9,S
8678 9EE1 05 cmp 5,S
867B 26 0B bne 0x8688
867D 9EE6 0A ldA 10,S
8680 9EE1 06 cmp 6,S
8683 26 03 bne 0x8688
8685 4F clrA
8686 20 08 bra 0x8690
8688 22 04 bhi 0x868E
868A A6 01 ldA #1
868C 20 02 bra 0x8690
868E A6 FF ldA #-1
8690 81 rts
__SPFloat_div:
8691 89 pshX
8692 8B pshH
8693 A7 F1 aiS #-15
8695 95 tSX
8696 AF 17 aiX #23
8698 CD 8921 jsr __tst_s32
869B 26 03 bne 0x86A0
869D CC 8795 jmp 0x8795
86A0 95 tSX
86A1 AF 13 aiX #19
86A3 CD 8921 jsr __tst_s32
86A6 26 03 bne 0x86AB
86A8 CC 877F jmp 0x877F
86AB 95 tSX
86AC E6 17 ldA 23,X
86AE E8 13 eor 19,X
86B0 E7 0E stA 14,X
86B2 E6 13 ldA 19,X
86B4 E7 09 stA 9,X
86B6 E6 14 ldA 20,X
86B8 E7 0A stA 10,X
86BA E6 15 ldA 21,X
86BC E7 0B stA 11,X
86BE E6 16 ldA 22,X
86C0 E7 0C stA 12,X
86C2 E6 17 ldA 23,X
86C4 E7 01 stA 1,X
86C6 E6 18 ldA 24,X
86C8 E7 02 stA 2,X
86CA E6 19 ldA 25,X
86CC E7 03 stA 3,X
86CE E6 1A ldA 26,X
86D0 E7 04 stA 4,X
86D2 AF 01 aiX #1
86D4 CD 8956 jsr unpack_u
86D7 95 tSX
86D8 E7 08 stA 8,X
86DA AF 09 aiX #9
86DC CD 8956 jsr unpack_u
86DF 95 tSX
86E0 E7 0D stA 13,X
86E2 64 01 lsr 1,X
86E4 66 02 ror 2,X
86E6 66 03 ror 3,X
86E8 66 04 ror 4,X
86EA 4F clrA
86EB E7 00 stA 0,X
86ED E7 05 stA 5,X
86EF E7 06 stA 6,X
86F1 E7 07 stA 7,X
86F3 A6 20 ldA #32
86F5 87 pshA
86F6 68 07 lsl 7,X
86F8 69 06 rol 6,X
86FA 69 05 rol 5,X
86FC 69 04 rol 4,X
86FE 69 03 rol 3,X
8700 69 02 rol 2,X
8702 69 01 rol 1,X
8704 69 00 rol 0,X
8706 25 1A bcs 0x8722
8708 E6 03 ldA 3,X
870A E0 0C sub 12,X
870C E7 03 stA 3,X
870E E6 02 ldA 2,X
8710 E2 0B sbc 11,X
8712 E7 02 stA 2,X
8714 E6 01 ldA 1,X
8716 E2 0A sbc 10,X
8718 E7 01 stA 1,X
871A E6 00 ldA 0,X
871C E2 09 sbc 9,X
871E E7 00 stA 0,X
8720 20 18 bra 0x873A
8722 E6 03 ldA 3,X
8724 EB 0C add 12,X
8726 E7 03 stA 3,X
8728 E6 02 ldA 2,X
872A E9 0B adc 11,X
872C E7 02 stA 2,X
872E E6 01 ldA 1,X
8730 E9 0A adc 10,X
8732 E7 01 stA 1,X
8734 E6 00 ldA 0,X
8736 E9 09 adc 9,X
8738 E7 00 stA 0,X
873A 2B 06 bmi 0x8742
873C E6 07 ldA 7,X
873E AA 01 orA #1
8740 E7 07 stA 7,X
8742 86 pulA
8743 4A decA
8744 26 AF bne 0x86F5
8746 E6 08 ldA 8,X
8748 E0 0D sub 13,X
874A AB 7F add #127
874C E7 03 stA 3,X
874E 6D 04 tst 4,X
8750 26 2D bne 0x877F
8752 6D 05 tst 5,X
8754 2B 0A bmi 0x8760
8756 68 07 lsl 7,X
8758 69 06 rol 6,X
875A 69 05 rol 5,X
875C 69 04 rol 4,X
875E 6A 03 dec 3,X
8760 E6 0E ldA 14,X
8762 87 pshA
8763 E6 03 ldA 3,X
8765 AF 04 aiX #4
8767 CD 896B jsr pack
876A A7 01 aiS #1
876C 95 tSX
876D E6 04 ldA 4,X
876F E7 17 stA 23,X
8771 E6 05 ldA 5,X
8773 E7 18 stA 24,X
8775 E6 06 ldA 6,X
8777 E7 19 stA 25,X
8779 E6 07 ldA 7,X
877B E7 1A stA 26,X
877D 20 16 bra 0x8795
877F A6 7F ldA #127
8781 E7 17 stA 23,X
8783 A6 80 ldA #-128
8785 E7 18 stA 24,X
8787 6F 19 clr 25,X
8789 6F 1A clr 26,X
878B 6D 0E tst 14,X
878D 2A 06 bpl 0x8795
878F E6 17 ldA 23,X
8791 AA 80 orA #-128
8793 E7 17 stA 23,X
8795 A7 0F aiS #15
8797 8A pulH
8798 88 pulX
8799 81 rts
__long_to_SPfloat:
879A 89 pshX
879B 8B pshH
879C A7 FE aiS #-2
879E 95 tSX
879F AF 06 aiX #6
87A1 CD 8921 jsr __tst_s32
87A4 27 57 beq 0x87FD
87A6 95 tSX
87A7 A6 96 ldA #-106
87A9 E7 01 stA 1,X
87AB E6 06 ldA 6,X
87AD E7 00 stA 0,X
87AF 2A 14 bpl 0x87C5
87B1 4F clrA
87B2 E0 09 sub 9,X
87B4 E7 09 stA 9,X
87B6 4F clrA
87B7 E2 08 sbc 8,X
87B9 E7 08 stA 8,X
87BB 4F clrA
87BC E2 07 sbc 7,X
87BE E7 07 stA 7,X
87C0 4F clrA
87C1 E2 06 sbc 6,X
87C3 E7 06 stA 6,X
87C5 6D 06 tst 6,X
87C7 27 1C beq 0x87E5
87C9 20 0A bra 0x87D5
87CB 67 06 asr 6,X
87CD 66 07 ror 7,X
87CF 66 08 ror 8,X
87D1 66 09 ror 9,X
87D3 6C 01 inc 1,X
87D5 6D 06 tst 6,X
87D7 26 F2 bne 0x87CB
87D9 20 0E bra 0x87E9
87DB 68 09 lsl 9,X
87DD 69 08 rol 8,X
87DF 69 07 rol 7,X
87E1 69 06 rol 6,X
87E3 6A 01 dec 1,X
87E5 6D 07 tst 7,X
87E7 2A F2 bpl 0x87DB
87E9 E6 01 ldA 1,X
87EB 68 07 lsl 7,X
87ED E7 06 stA 6,X
87EF 64 06 lsr 6,X
87F1 66 07 ror 7,X
87F3 6D 00 tst 0,X
87F5 2A 06 bpl 0x87FD
87F7 E6 06 ldA 6,X
87F9 AA 80 orA #-128
87FB E7 06 stA 6,X
87FD A7 02 aiS #2
87FF 8A pulH
8800 88 pulX
8801 81 rts
__SPFloat_mul:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -