📄 ad.lst
字号:
82F0 F7 stA 0,X
82F1 3F 40 clr *__r0
82F3 E6 04 ldA 4,X
82F5 B7 41 stA *__r1
82F7 E6 01 ldA 1,X
82F9 B7 43 stA *__r3
82FB F6 ldA 0,X
82FC B7 42 stA *__r2
82FE 55 42 ldHX *__r2
8300 75 40 cpHX *__r0
8302 95 tSX
8303 91 CD blt 0x82D2
8305 A7 02 aiS #2
8307 81 rts
_SCIRe1:
8308 A7 FD aiS #-3
830A 95 tSX
830B 6F 02 clr 2,X
830D 6F 01 clr 1,X
830F 20 21 bra 0x8332
8311 0B 1612 BRclr 5,0x16,0x8326
8314 B6 18 ldA 0x18
8316 F7 stA 0,X
8317 E6 06 ldA 6,X
8319 B7 41 stA *__r1
831B E6 05 ldA 5,X
831D B7 40 stA *__r0
831F 4F clrA
8320 55 40 ldHX *__r0
8322 F7 stA 0,X
8323 95 tSX
8324 20 1C bra 0x8342
8326 E6 02 ldA 2,X
8328 AB 01 add #1
832A E7 02 stA 2,X
832C E6 01 ldA 1,X
832E A9 00 adc #0
8330 E7 01 stA 1,X
8332 E6 02 ldA 2,X
8334 B7 41 stA *__r1
8336 E6 01 ldA 1,X
8338 B7 40 stA *__r0
833A 55 40 ldHX *__r0
833C 65 FBBB cpHX #0xFBBB
833F 95 tSX
8340 25 CF bcs 0x8311
8342 E6 02 ldA 2,X
8344 B7 41 stA *__r1
8346 E6 01 ldA 1,X
8348 B7 40 stA *__r0
834A 55 40 ldHX *__r0
834C 65 FBBB cpHX #0xFBBB
834F 95 tSX
8350 25 11 bcs 0x8363
8352 A6 FF ldA #-1
8354 F7 stA 0,X
8355 E6 06 ldA 6,X
8357 B7 41 stA *__r1
8359 E6 05 ldA 5,X
835B B7 40 stA *__r0
835D A6 01 ldA #1
835F 55 40 ldHX *__r0
8361 F7 stA 0,X
8362 95 tSX
8363 F6 ldA 0,X
8364 A7 03 aiS #3
8366 81 rts
_SCIReN:
8367 A7 FD aiS #-3
8369 95 tSX
836A 6F 02 clr 2,X
836C 6F 01 clr 1,X
836E 20 31 bra 0x83A1
8370 89 pshX
8371 8B pshH
8372 CD 8308 jsr _SCIRe1
8375 A7 02 aiS #2
8377 95 tSX
8378 B7 41 stA *__r1
837A E6 02 ldA 2,X
837C EB 07 add 7,X
837E B7 43 stA *__r3
8380 E6 01 ldA 1,X
8382 E9 06 adc 6,X
8384 B7 42 stA *__r2
8386 B6 41 ldA *__r1
8388 55 42 ldHX *__r2
838A F7 stA 0,X
838B 95 tSX
838C F6 ldA 0,X
838D A1 01 cmp #1
838F 26 04 bne 0x8395
8391 A6 01 ldA #1
8393 20 22 bra 0x83B7
8395 E6 02 ldA 2,X
8397 AB 01 add #1
8399 E7 02 stA 2,X
839B E6 01 ldA 1,X
839D A9 00 adc #0
839F E7 01 stA 1,X
83A1 3F 40 clr *__r0
83A3 E6 05 ldA 5,X
83A5 B7 41 stA *__r1
83A7 E6 02 ldA 2,X
83A9 B7 43 stA *__r3
83AB E6 01 ldA 1,X
83AD B7 42 stA *__r2
83AF 55 42 ldHX *__r2
83B1 75 40 cpHX *__r0
83B3 95 tSX
83B4 91 BA blt 0x8370
83B6 4F clrA
83B7 A7 03 aiS #3
83B9 81 rts
_advalue:
83BA A7 FF aiS #-1
83BC 95 tSX
83BD E6 03 ldA 3,X
83BF A4 1F and #31
83C1 E7 03 stA 3,X
83C3 B6 3C ldA 0x3C
83C5 A4 E0 and #-32
83C7 F7 stA 0,X
83C8 EA 03 orA 3,X
83CA F7 stA 0,X
83CB B7 3C stA 0x3C
83CD 20 08 bra 0x83D7
83CF 0F 3C05 BRclr 7,0x3C,0x83D7
83D2 B6 3D ldA 0x3D
83D4 F7 stA 0,X
83D5 20 02 bra 0x83D9
83D7 20 F6 bra 0x83CF
83D9 F6 ldA 0,X
83DA A7 01 aiS #1
83DC 81 rts
_admid:
83DD A7 FC aiS #-4
83DF 95 tSX
83E0 E6 06 ldA 6,X
83E2 87 pshA
83E3 CD 83BA jsr _advalue
83E6 A7 01 aiS #1
83E8 95 tSX
83E9 B7 41 stA *__r1
83EB E7 02 stA 2,X
83ED E6 06 ldA 6,X
83EF 87 pshA
83F0 CD 83BA jsr _advalue
83F3 A7 01 aiS #1
83F5 95 tSX
83F6 B7 41 stA *__r1
83F8 E7 03 stA 3,X
83FA E6 06 ldA 6,X
83FC 87 pshA
83FD CD 83BA jsr _advalue
8400 A7 01 aiS #1
8402 95 tSX
8403 B7 41 stA *__r1
8405 F7 stA 0,X
8406 E6 02 ldA 2,X
8408 E1 03 cmp 3,X
840A 23 0A bls 0x8416
840C E7 01 stA 1,X
840E E6 03 ldA 3,X
8410 E7 02 stA 2,X
8412 E6 01 ldA 1,X
8414 E7 03 stA 3,X
8416 F6 ldA 0,X
8417 E1 03 cmp 3,X
8419 25 06 bcs 0x8421
841B E6 03 ldA 3,X
841D E7 01 stA 1,X
841F 20 0D bra 0x842E
8421 F6 ldA 0,X
8422 E1 02 cmp 2,X
8424 25 04 bcs 0x842A
8426 E7 01 stA 1,X
8428 20 04 bra 0x842E
842A E6 02 ldA 2,X
842C E7 01 stA 1,X
842E E6 01 ldA 1,X
8430 A7 04 aiS #4
8432 81 rts
_adave:
8433 A7 FD aiS #-3
8435 95 tSX
8436 6F 01 clr 1,X
8438 7F clr 0,X
8439 6F 02 clr 2,X
843B 20 19 bra 0x8456
843D E6 06 ldA 6,X
843F 87 pshA
8440 CD 83DD jsr _admid
8443 A7 01 aiS #1
8445 95 tSX
8446 B7 41 stA *__r1
8448 3F 40 clr *__r0
844A E6 01 ldA 1,X
844C BB 41 add *__r1
844E E7 01 stA 1,X
8450 F6 ldA 0,X
8451 B9 40 adc *__r0
8453 F7 stA 0,X
8454 6C 02 inc 2,X
8456 E6 02 ldA 2,X
8458 E1 05 cmp 5,X
845A 25 E1 bcs 0x843D
845C 3F 40 clr *__r0
845E E6 05 ldA 5,X
8460 B7 41 stA *__r1
8462 E6 01 ldA 1,X
8464 B7 45 stA *__rlo
8466 F6 ldA 0,X
8467 B7 44 stA *__rhi
8469 B6 41 ldA *__r1
846B 87 pshA
846C B6 40 ldA *__r0
846E 87 pshA
846F CD 84DC jsr __divmod16u
8472 A7 02 aiS #2
8474 B6 44 ldA *__rhi
8476 F7 stA 0,X
8477 B6 45 ldA *__rlo
8479 E7 01 stA 1,X
847B A7 03 aiS #3
847D 81 rts
__divmod16s:
847E 89 pshX
847F 8B pshH
8480 A7 FF aiS #-1
8482 95 tSX
8483 6F 00 clr 0,X
8485 3D 44 tst *__rhi
8487 2A 0E bpl 0x8497
8489 A6 03 ldA #3
848B E7 00 stA 0,X
848D 4F clrA
848E B0 45 sub *__rlo
8490 B7 45 stA *__rlo
8492 4F clrA
8493 B2 44 sbc *__rhi
8495 B7 44 stA *__rhi
8497 6D 05 tst 5,X
8499 2A 10 bpl 0x84AB
849B A6 02 ldA #2
849D E8 00 eor 0,X
849F E7 00 stA 0,X
84A1 4F clrA
84A2 E0 06 sub 6,X
84A4 E7 06 stA 6,X
84A6 4F clrA
84A7 E2 05 sbc 5,X
84A9 E7 05 stA 5,X
84AB E6 06 ldA 6,X
84AD 87 pshA
84AE E6 05 ldA 5,X
84B0 87 pshA
84B1 AD 29 bsr 0x84DC
84B3 86 pulA
84B4 E7 05 stA 5,X
84B6 86 pulA
84B7 E7 06 stA 6,X
84B9 E6 00 ldA 0,X
84BB A5 02 bit #2
84BD 27 0A beq 0x84C9
84BF 4F clrA
84C0 B0 45 sub *__rlo
84C2 B7 45 stA *__rlo
84C4 4F clrA
84C5 B2 44 sbc *__rhi
84C7 B7 44 stA *__rhi
84C9 A5 01 bit #1
84CB 27 0A beq 0x84D7
84CD 4F clrA
84CE E0 06 sub 6,X
84D0 E7 06 stA 6,X
84D2 4F clrA
84D3 E2 05 sbc 5,X
84D5 E7 05 stA 5,X
84D7 A7 01 aiS #1
84D9 8A pulH
84DA 88 pulX
84DB 81 rts
__divmod16u:
__divmodu_16X16_16:
84DC 89 pshX
84DD 8B pshH
84DE A7 FC aiS #-4
84E0 95 tSX
84E1 6F 02 clr 2,X
84E3 6F 03 clr 3,X
84E5 A6 10 ldA #16
84E7 E7 00 stA 0,X
84E9 38 45 lsl *__rlo
84EB 39 44 rol *__rhi
84ED 69 03 rol 3,X
84EF 69 02 rol 2,X
84F1 24 0E bcc 0x8501
84F3 E6 09 ldA 9,X
84F5 EB 03 add 3,X
84F7 E7 03 stA 3,X
84F9 E6 08 ldA 8,X
84FB E9 02 adc 2,X
84FD E7 02 stA 2,X
84FF 20 0C bra 0x850D
8501 E6 03 ldA 3,X
8503 E0 09 sub 9,X
8505 E7 03 stA 3,X
8507 E6 02 ldA 2,X
8509 E2 08 sbc 8,X
850B E7 02 stA 2,X
850D 2B 06 bmi 0x8515
850F A6 01 ldA #1
8511 BA 45 orA *__rlo
8513 B7 45 stA *__rlo
8515 6A 00 dec 0,X
8517 26 D0 bne 0x84E9
8519 6D 02 tst 2,X
851B 2A 0C bpl 0x8529
851D E6 09 ldA 9,X
851F EB 03 add 3,X
8521 E7 03 stA 3,X
8523 E6 08 ldA 8,X
8525 E9 02 adc 2,X
8527 E7 02 stA 2,X
8529 E6 02 ldA 2,X
852B E7 08 stA 8,X
852D E6 03 ldA 3,X
852F E7 09 stA 9,X
8531 A7 04 aiS #4
8533 8A pulH
8534 88 pulX
8535 81 rts
__SPFloat_to_long:
8536 89 pshX
8537 8B pshH
8538 95 tSX
8539 AF 04 aiX #4
853B CD 8844 jsr __tst_s32
853E 27 71 beq 0x85B1
8540 E6 00 ldA 0,X
8542 87 pshA
8543 68 01 lsl 1,X
8545 69 00 rol 0,X
8547 E6 00 ldA 0,X
8549 A0 7F sub #127
854B 87 pshA
854C 6F 00 clr 0,X
854E 64 01 lsr 1,X
8550 E6 01 ldA 1,X
8552 AA 80 orA #-128
8554 E7 01 stA 1,X
8556 86 pulA
8557 4D tstA
8558 2B 17 bmi 0x8571
855A A1 17 cmp #23
855C 25 1B bcs 0x8579
855E 27 36 beq 0x8596
8560 A1 20 cmp #32
8562 25 25 bcs 0x8589
8564 A6 FF ldA #-1
8566 E7 01 stA 1,X
8568 E7 02 stA 2,X
856A E7 03 stA 3,X
856C 44 lsrA
856D E7 00 stA 0,X
856F 20 25 bra 0x8596
8571 6F 01 clr 1,X
8573 6F 02 clr 2,X
8575 6F 03 clr 3,X
8577 20 1D bra 0x8596
8579 40 negA
857A AB 17 add #23
857C 67 00 asr 0,X
857E 66 01 ror 1,X
8580 66 02 ror 2,X
8582 66 03 ror 3,X
8584 4A decA
8585 26 F5 bne 0x857C
8587 20 0D bra 0x8596
8589 A0 17 sub #23
858B 68 03 lsl 3,X
858D 69 02 rol 2,X
858F 69 01 rol 1,X
8591 69 00 rol 0,X
8593 4A decA
8594 26 F5 bne 0x858B
8596 9E6D 01 tst 1,S
8599 2A 14 bpl 0x85AF
859B 4F clrA
859C E0 03 sub 3,X
859E E7 03 stA 3,X
85A0 4F clrA
85A1 E2 02 sbc 2,X
85A3 E7 02 stA 2,X
85A5 4F clrA
85A6 E2 01 sbc 1,X
85A8 E7 01 stA 1,X
85AA 4F clrA
85AB E2 00 sbc 0,X
85AD E7 00 stA 0,X
85AF A7 01 aiS #1
85B1 8A pulH
85B2 88 pulX
85B3 81 rts
__SPFloat_div:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -