📄 ad.lst
字号:
85B4 89 pshX
85B5 8B pshH
85B6 A7 F1 aiS #-15
85B8 95 tSX
85B9 AF 17 aiX #23
85BB CD 8844 jsr __tst_s32
85BE 26 03 bne 0x85C3
85C0 CC 86B8 jmp 0x86B8
85C3 95 tSX
85C4 AF 13 aiX #19
85C6 CD 8844 jsr __tst_s32
85C9 26 03 bne 0x85CE
85CB CC 86A2 jmp 0x86A2
85CE 95 tSX
85CF E6 17 ldA 23,X
85D1 E8 13 eor 19,X
85D3 E7 0E stA 14,X
85D5 E6 13 ldA 19,X
85D7 E7 09 stA 9,X
85D9 E6 14 ldA 20,X
85DB E7 0A stA 10,X
85DD E6 15 ldA 21,X
85DF E7 0B stA 11,X
85E1 E6 16 ldA 22,X
85E3 E7 0C stA 12,X
85E5 E6 17 ldA 23,X
85E7 E7 01 stA 1,X
85E9 E6 18 ldA 24,X
85EB E7 02 stA 2,X
85ED E6 19 ldA 25,X
85EF E7 03 stA 3,X
85F1 E6 1A ldA 26,X
85F3 E7 04 stA 4,X
85F5 AF 01 aiX #1
85F7 CD 8879 jsr unpack_u
85FA 95 tSX
85FB E7 08 stA 8,X
85FD AF 09 aiX #9
85FF CD 8879 jsr unpack_u
8602 95 tSX
8603 E7 0D stA 13,X
8605 64 01 lsr 1,X
8607 66 02 ror 2,X
8609 66 03 ror 3,X
860B 66 04 ror 4,X
860D 4F clrA
860E E7 00 stA 0,X
8610 E7 05 stA 5,X
8612 E7 06 stA 6,X
8614 E7 07 stA 7,X
8616 A6 20 ldA #32
8618 87 pshA
8619 68 07 lsl 7,X
861B 69 06 rol 6,X
861D 69 05 rol 5,X
861F 69 04 rol 4,X
8621 69 03 rol 3,X
8623 69 02 rol 2,X
8625 69 01 rol 1,X
8627 69 00 rol 0,X
8629 25 1A bcs 0x8645
862B E6 03 ldA 3,X
862D E0 0C sub 12,X
862F E7 03 stA 3,X
8631 E6 02 ldA 2,X
8633 E2 0B sbc 11,X
8635 E7 02 stA 2,X
8637 E6 01 ldA 1,X
8639 E2 0A sbc 10,X
863B E7 01 stA 1,X
863D E6 00 ldA 0,X
863F E2 09 sbc 9,X
8641 E7 00 stA 0,X
8643 20 18 bra 0x865D
8645 E6 03 ldA 3,X
8647 EB 0C add 12,X
8649 E7 03 stA 3,X
864B E6 02 ldA 2,X
864D E9 0B adc 11,X
864F E7 02 stA 2,X
8651 E6 01 ldA 1,X
8653 E9 0A adc 10,X
8655 E7 01 stA 1,X
8657 E6 00 ldA 0,X
8659 E9 09 adc 9,X
865B E7 00 stA 0,X
865D 2B 06 bmi 0x8665
865F E6 07 ldA 7,X
8661 AA 01 orA #1
8663 E7 07 stA 7,X
8665 86 pulA
8666 4A decA
8667 26 AF bne 0x8618
8669 E6 08 ldA 8,X
866B E0 0D sub 13,X
866D AB 7F add #127
866F E7 03 stA 3,X
8671 6D 04 tst 4,X
8673 26 2D bne 0x86A2
8675 6D 05 tst 5,X
8677 2B 0A bmi 0x8683
8679 68 07 lsl 7,X
867B 69 06 rol 6,X
867D 69 05 rol 5,X
867F 69 04 rol 4,X
8681 6A 03 dec 3,X
8683 E6 0E ldA 14,X
8685 87 pshA
8686 E6 03 ldA 3,X
8688 AF 04 aiX #4
868A CD 888E jsr pack
868D A7 01 aiS #1
868F 95 tSX
8690 E6 04 ldA 4,X
8692 E7 17 stA 23,X
8694 E6 05 ldA 5,X
8696 E7 18 stA 24,X
8698 E6 06 ldA 6,X
869A E7 19 stA 25,X
869C E6 07 ldA 7,X
869E E7 1A stA 26,X
86A0 20 16 bra 0x86B8
86A2 A6 7F ldA #127
86A4 E7 17 stA 23,X
86A6 A6 80 ldA #-128
86A8 E7 18 stA 24,X
86AA 6F 19 clr 25,X
86AC 6F 1A clr 26,X
86AE 6D 0E tst 14,X
86B0 2A 06 bpl 0x86B8
86B2 E6 17 ldA 23,X
86B4 AA 80 orA #-128
86B6 E7 17 stA 23,X
86B8 A7 0F aiS #15
86BA 8A pulH
86BB 88 pulX
86BC 81 rts
__long_to_SPfloat:
86BD 89 pshX
86BE 8B pshH
86BF A7 FE aiS #-2
86C1 95 tSX
86C2 AF 06 aiX #6
86C4 CD 8844 jsr __tst_s32
86C7 27 57 beq 0x8720
86C9 95 tSX
86CA A6 96 ldA #-106
86CC E7 01 stA 1,X
86CE E6 06 ldA 6,X
86D0 E7 00 stA 0,X
86D2 2A 14 bpl 0x86E8
86D4 4F clrA
86D5 E0 09 sub 9,X
86D7 E7 09 stA 9,X
86D9 4F clrA
86DA E2 08 sbc 8,X
86DC E7 08 stA 8,X
86DE 4F clrA
86DF E2 07 sbc 7,X
86E1 E7 07 stA 7,X
86E3 4F clrA
86E4 E2 06 sbc 6,X
86E6 E7 06 stA 6,X
86E8 6D 06 tst 6,X
86EA 27 1C beq 0x8708
86EC 20 0A bra 0x86F8
86EE 67 06 asr 6,X
86F0 66 07 ror 7,X
86F2 66 08 ror 8,X
86F4 66 09 ror 9,X
86F6 6C 01 inc 1,X
86F8 6D 06 tst 6,X
86FA 26 F2 bne 0x86EE
86FC 20 0E bra 0x870C
86FE 68 09 lsl 9,X
8700 69 08 rol 8,X
8702 69 07 rol 7,X
8704 69 06 rol 6,X
8706 6A 01 dec 1,X
8708 6D 07 tst 7,X
870A 2A F2 bpl 0x86FE
870C E6 01 ldA 1,X
870E 68 07 lsl 7,X
8710 E7 06 stA 6,X
8712 64 06 lsr 6,X
8714 66 07 ror 7,X
8716 6D 00 tst 0,X
8718 2A 06 bpl 0x8720
871A E6 06 ldA 6,X
871C AA 80 orA #-128
871E E7 06 stA 6,X
8720 A7 02 aiS #2
8722 8A pulH
8723 88 pulX
8724 81 rts
__SPFloat_mul:
8725 89 pshX
8726 8B pshH
8727 A7 F9 aiS #-7
8729 95 tSX
872A AF 0B aiX #11
872C CD 8844 jsr __tst_s32
872F 27 0B beq 0x873C
8731 95 tSX
8732 AF 0F aiX #15
8734 CD 8844 jsr __tst_s32
8737 26 12 bne 0x874B
8739 CC 883F jmp 0x883F
873C 9E6F 10 clr 16,S
873F 9E6F 11 clr 17,S
8742 9E6F 12 clr 18,S
8745 9E6F 13 clr 19,S
8748 CC 883F jmp 0x883F
874B 9EE6 0C ldA 12,S
874E 9EE8 10 eor 16,S
8751 9EE7 06 stA 6,S
8754 95 tSX
8755 AF 0B aiX #11
8757 CD 8879 jsr unpack_u
875A 9EE7 07 stA 7,S
875D 95 tSX
875E AF 0F aiX #15
8760 CD 8879 jsr unpack_u
8763 9EE7 05 stA 5,S
8766 9EE6 11 ldA 17,S
8769 9EEE 0D ldX 13,S
876C 42 mul
876D 9EEF 01 stX 1,S
8770 9EE7 02 stA 2,S
8773 9EE6 13 ldA 19,S
8776 9EEE 0D ldX 13,S
8779 42 mul
877A 9EEF 03 stX 3,S
877D 9EE7 04 stA 4,S
8780 9EE6 11 ldA 17,S
8783 9EEE 0F ldX 15,S
8786 42 mul
8787 9EEB 04 add 4,S
878A 9EE7 04 stA 4,S
878D 9F tXA
878E 9EE9 03 adc 3,S
8791 9EE7 03 stA 3,S
8794 4F clrA
8795 9EE9 02 adc 2,S
8798 9EE7 02 stA 2,S
879B 4F clrA
879C 9EE9 01 adc 1,S
879F 9EE7 01 stA 1,S
87A2 9EE6 11 ldA 17,S
87A5 9EEE 0E ldX 14,S
87A8 42 mul
87A9 9EEB 03 add 3,S
87AC 9EE7 03 stA 3,S
87AF 9F tXA
87B0 9EE9 02 adc 2,S
87B3 9EE7 02 stA 2,S
87B6 4F clrA
87B7 9EE9 01 adc 1,S
87BA 9EE7 01 stA 1,S
87BD 9EE6 12 ldA 18,S
87C0 9EEE 0D ldX 13,S
87C3 42 mul
87C4 9EEB 03 add 3,S
87C7 9EE7 03 stA 3,S
87CA 9F tXA
87CB 9EE9 02 adc 2,S
87CE 9EE7 02 stA 2,S
87D1 4F clrA
87D2 9EE9 01 adc 1,S
87D5 9EE7 01 stA 1,S
87D8 9EE6 12 ldA 18,S
87DB 9EEE 0E ldX 14,S
87DE 42 mul
87DF 9EEB 04 add 4,S
87E2 9EE7 04 stA 4,S
87E5 9F tXA
87E6 9EE9 03 adc 3,S
87E9 9EE7 03 stA 3,S
87EC 4F clrA
87ED 9EE9 02 adc 2,S
87F0 9EE7 02 stA 2,S
87F3 4F clrA
87F4 9EE9 01 adc 1,S
87F7 9EE7 01 stA 1,S
87FA 9EE6 05 ldA 5,S
87FD A0 7F sub #127
87FF 9EEB 07 add 7,S
8802 9EE7 05 stA 5,S
8805 9E6D 01 tst 1,S
8808 2A 05 bpl 0x880F
880A 9E6C 05 inc 5,S
880D 20 0C bra 0x881B
880F 9E68 04 lsl 4,S
8812 9E69 03 rol 3,S
8815 9E69 02 rol 2,S
8818 9E69 01 rol 1,S
881B 9E6F 10 clr 16,S
881E 9EE6 01 ldA 1,S
8821 9EE7 11 stA 17,S
8824 9EE6 02 ldA 2,S
8827 9EE7 12 stA 18,S
882A 9EE6 03 ldA 3,S
882D 9EE7 13 stA 19,S
8830 95 tSX
8831 9EE6 06 ldA 6,S
8834 87 pshA
8835 9EE6 06 ldA 6,S
8838 AF 0F aiX #15
883A CD 888E jsr pack
883D A7 01 aiS #1
883F A7 07 aiS #7
8841 8A pulH
8842 88 pulX
8843 81 rts
__tst_s32:
8844 7D tst 0,X
8845 26 0A bne 0x8851
8847 6D 01 tst 1,X
8849 26 06 bne 0x8851
884B 6D 02 tst 2,X
884D 26 02 bne 0x8851
884F 6D 03 tst 3,X
8851 81 rts
unpack_s:
8852 F6 ldA 0,X
8853 87 pshA
8854 AD 23 bsr 0x8879
8856 87 pshA
8857 41 0019 cbeqA #0,0x8873
885A 9E6D 02 tst 2,S
885D 2A 14 bpl 0x8873
885F 4F clrA
8860 E0 03 sub 3,X
8862 E7 03 stA 3,X
8864 4F clrA
8865 E2 02 sbc 2,X
8867 E7 02 stA 2,X
8869 4F clrA
886A E2 01 sbc 1,X
886C E7 01 stA 1,X
886E 4F clrA
886F E2 00 sbc 0,X
8871 E7 00 stA 0,X
8873 9EE6 01 ldA 1,S
8876 A7 02 aiS #2
8878 81 rts
unpack_u:
8879 68 01 lsl 1,X
887B 79 rol 0,X
887C F6 ldA 0,X
887D 87 pshA
887E 7F clr 0,X
887F 64 01 lsr 1,X
8881 9E6D 01 tst 1,S
8884 27 06 beq 0x888C
8886 E6 01 ldA 1,X
8888 AA 80 orA #-128
888A E7 01 stA 1,X
888C 86 pulA
888D 81 rts
pack:
888E F7 stA 0,X
888F 68 01 lsl 1,X
8891 74 lsr 0,X
8892 66 01 ror 1,X
8894 9E6D 03 tst 3,S
8897 2A 04 bpl 0x889D
8899 F6 ldA 0,X
889A AA 80 orA #-128
889C F7 stA 0,X
889D 81 rts
normalize:
889E 87 pshA
889F CD 8844 jsr __tst_s32
88A2 26 04 bne 0x88A8
88A4 86 pulA
88A5 4F clrA
88A6 20 2C bra 0x88D4
88A8 86 pulA
88A9 7D tst 0,X
88AA 27 0A beq 0x88B6
88AC 74 lsr 0,X
88AD 66 01 ror 1,X
88AF 66 02 ror 2,X
88B1 66 03 ror 3,X
88B3 4C incA
88B4 20 F3 bra 0x88A9
88B6 6D 01 tst 1,X
88B8 2B 09 bmi 0x88C3
88BA 68 03 lsl 3,X
88BC 69 02 rol 2,X
88BE 69 01 rol 1,X
88C0 4A decA
88C1 20 F3 bra 0x88B6
88C3 F7 stA 0,X
88C4 69 01 rol 1,X
88C6 74 lsr 0,X
88C7 66 01 ror 1,X
88C9 9E6D 03 tst 3,S
88CC 2A 04 bpl 0x88D2
88CE A6 80 ldA #-128
88D0 FA orA 0,X
88D1 F7 stA 0,X
88D2 A6 01 ldA #1
88D4 81 rts
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -