📄 ad.lst
字号:
8319 A6 01 ldA #1
831B B7 3B stA 0x3B
831D 1A 36 Bset 5,0x36
831F 1E 37 Bset 7,0x37
8321 18 36 Bset 4,0x36
8323 81 rts
_SCIInit:
8324 A6 02 ldA #2
8326 B7 19 stA 0x19
8328 A6 40 ldA #64
832A B7 13 stA 0x13
832C A6 0C ldA #12
832E B7 14 stA 0x14
8330 81 rts
_SCISend1:
8331 95 tSX
8332 20 09 bra 0x833D
8334 0F 1606 BRclr 7,0x16,0x833D
8337 E6 02 ldA 2,X
8339 B7 18 stA 0x18
833B 20 02 bra 0x833F
833D 20 F5 bra 0x8334
833F 81 rts
_SCISendN:
8340 A7 FE aiS #-2
8342 95 tSX
8343 6F 01 clr 1,X
8345 7F clr 0,X
8346 20 1F bra 0x8367
8348 E6 01 ldA 1,X
834A EB 06 add 6,X
834C B7 41 stA *__r1
834E F6 ldA 0,X
834F E9 05 adc 5,X
8351 B7 40 stA *__r0
8353 55 40 ldHX *__r0
8355 F6 ldA 0,X
8356 87 pshA
8357 CD 8331 jsr _SCISend1
835A A7 01 aiS #1
835C 95 tSX
835D E6 01 ldA 1,X
835F AB 01 add #1
8361 E7 01 stA 1,X
8363 F6 ldA 0,X
8364 A9 00 adc #0
8366 F7 stA 0,X
8367 3F 40 clr *__r0
8369 E6 04 ldA 4,X
836B B7 41 stA *__r1
836D E6 01 ldA 1,X
836F B7 43 stA *__r3
8371 F6 ldA 0,X
8372 B7 42 stA *__r2
8374 55 42 ldHX *__r2
8376 75 40 cpHX *__r0
8378 95 tSX
8379 91 CD blt 0x8348
837B A7 02 aiS #2
837D 81 rts
_SCIRe1:
837E A7 FD aiS #-3
8380 95 tSX
8381 6F 02 clr 2,X
8383 6F 01 clr 1,X
8385 20 21 bra 0x83A8
8387 0B 1612 BRclr 5,0x16,0x839C
838A B6 18 ldA 0x18
838C F7 stA 0,X
838D E6 06 ldA 6,X
838F B7 41 stA *__r1
8391 E6 05 ldA 5,X
8393 B7 40 stA *__r0
8395 4F clrA
8396 55 40 ldHX *__r0
8398 F7 stA 0,X
8399 95 tSX
839A 20 1C bra 0x83B8
839C E6 02 ldA 2,X
839E AB 01 add #1
83A0 E7 02 stA 2,X
83A2 E6 01 ldA 1,X
83A4 A9 00 adc #0
83A6 E7 01 stA 1,X
83A8 E6 02 ldA 2,X
83AA B7 41 stA *__r1
83AC E6 01 ldA 1,X
83AE B7 40 stA *__r0
83B0 55 40 ldHX *__r0
83B2 65 FBBB cpHX #0xFBBB
83B5 95 tSX
83B6 25 CF bcs 0x8387
83B8 E6 02 ldA 2,X
83BA B7 41 stA *__r1
83BC E6 01 ldA 1,X
83BE B7 40 stA *__r0
83C0 55 40 ldHX *__r0
83C2 65 FBBB cpHX #0xFBBB
83C5 95 tSX
83C6 25 11 bcs 0x83D9
83C8 A6 FF ldA #-1
83CA F7 stA 0,X
83CB E6 06 ldA 6,X
83CD B7 41 stA *__r1
83CF E6 05 ldA 5,X
83D1 B7 40 stA *__r0
83D3 A6 01 ldA #1
83D5 55 40 ldHX *__r0
83D7 F7 stA 0,X
83D8 95 tSX
83D9 F6 ldA 0,X
83DA A7 03 aiS #3
83DC 81 rts
_SCIReN:
83DD A7 FD aiS #-3
83DF 95 tSX
83E0 6F 02 clr 2,X
83E2 6F 01 clr 1,X
83E4 20 31 bra 0x8417
83E6 89 pshX
83E7 8B pshH
83E8 CD 837E jsr _SCIRe1
83EB A7 02 aiS #2
83ED 95 tSX
83EE B7 41 stA *__r1
83F0 E6 02 ldA 2,X
83F2 EB 07 add 7,X
83F4 B7 43 stA *__r3
83F6 E6 01 ldA 1,X
83F8 E9 06 adc 6,X
83FA B7 42 stA *__r2
83FC B6 41 ldA *__r1
83FE 55 42 ldHX *__r2
8400 F7 stA 0,X
8401 95 tSX
8402 F6 ldA 0,X
8403 A1 01 cmp #1
8405 26 04 bne 0x840B
8407 A6 01 ldA #1
8409 20 22 bra 0x842D
840B E6 02 ldA 2,X
840D AB 01 add #1
840F E7 02 stA 2,X
8411 E6 01 ldA 1,X
8413 A9 00 adc #0
8415 E7 01 stA 1,X
8417 3F 40 clr *__r0
8419 E6 05 ldA 5,X
841B B7 41 stA *__r1
841D E6 02 ldA 2,X
841F B7 43 stA *__r3
8421 E6 01 ldA 1,X
8423 B7 42 stA *__r2
8425 55 42 ldHX *__r2
8427 75 40 cpHX *__r0
8429 95 tSX
842A 91 BA blt 0x83E6
842C 4F clrA
842D A7 03 aiS #3
842F 81 rts
_advalue:
8430 A7 FF aiS #-1
8432 95 tSX
8433 E6 03 ldA 3,X
8435 A4 1F and #31
8437 E7 03 stA 3,X
8439 B6 3C ldA 0x3C
843B A4 E0 and #-32
843D F7 stA 0,X
843E EA 03 orA 3,X
8440 F7 stA 0,X
8441 B7 3C stA 0x3C
8443 20 08 bra 0x844D
8445 0F 3C05 BRclr 7,0x3C,0x844D
8448 B6 3D ldA 0x3D
844A F7 stA 0,X
844B 20 02 bra 0x844F
844D 20 F6 bra 0x8445
844F F6 ldA 0,X
8450 A7 01 aiS #1
8452 81 rts
_admid:
8453 A7 FC aiS #-4
8455 95 tSX
8456 E6 06 ldA 6,X
8458 87 pshA
8459 CD 8430 jsr _advalue
845C A7 01 aiS #1
845E 95 tSX
845F B7 41 stA *__r1
8461 E7 02 stA 2,X
8463 E6 06 ldA 6,X
8465 87 pshA
8466 CD 8430 jsr _advalue
8469 A7 01 aiS #1
846B 95 tSX
846C B7 41 stA *__r1
846E E7 03 stA 3,X
8470 E6 06 ldA 6,X
8472 87 pshA
8473 CD 8430 jsr _advalue
8476 A7 01 aiS #1
8478 95 tSX
8479 B7 41 stA *__r1
847B F7 stA 0,X
847C E6 02 ldA 2,X
847E E1 03 cmp 3,X
8480 23 0A bls 0x848C
8482 E7 01 stA 1,X
8484 E6 03 ldA 3,X
8486 E7 02 stA 2,X
8488 E6 01 ldA 1,X
848A E7 03 stA 3,X
848C F6 ldA 0,X
848D E1 03 cmp 3,X
848F 25 06 bcs 0x8497
8491 E6 03 ldA 3,X
8493 E7 01 stA 1,X
8495 20 0D bra 0x84A4
8497 F6 ldA 0,X
8498 E1 02 cmp 2,X
849A 25 04 bcs 0x84A0
849C E7 01 stA 1,X
849E 20 04 bra 0x84A4
84A0 E6 02 ldA 2,X
84A2 E7 01 stA 1,X
84A4 E6 01 ldA 1,X
84A6 A7 04 aiS #4
84A8 81 rts
_adave:
84A9 A7 FD aiS #-3
84AB 95 tSX
84AC 6F 01 clr 1,X
84AE 7F clr 0,X
84AF 6F 02 clr 2,X
84B1 20 19 bra 0x84CC
84B3 E6 06 ldA 6,X
84B5 87 pshA
84B6 CD 8453 jsr _admid
84B9 A7 01 aiS #1
84BB 95 tSX
84BC B7 41 stA *__r1
84BE 3F 40 clr *__r0
84C0 E6 01 ldA 1,X
84C2 BB 41 add *__r1
84C4 E7 01 stA 1,X
84C6 F6 ldA 0,X
84C7 B9 40 adc *__r0
84C9 F7 stA 0,X
84CA 6C 02 inc 2,X
84CC E6 02 ldA 2,X
84CE E1 05 cmp 5,X
84D0 25 E1 bcs 0x84B3
84D2 3F 40 clr *__r0
84D4 E6 05 ldA 5,X
84D6 B7 41 stA *__r1
84D8 E6 01 ldA 1,X
84DA B7 45 stA *__rlo
84DC F6 ldA 0,X
84DD B7 44 stA *__rhi
84DF B6 41 ldA *__r1
84E1 87 pshA
84E2 B6 40 ldA *__r0
84E4 87 pshA
84E5 CD 8552 jsr __divmod16u
84E8 A7 02 aiS #2
84EA B6 44 ldA *__rhi
84EC F7 stA 0,X
84ED B6 45 ldA *__rlo
84EF E7 01 stA 1,X
84F1 A7 03 aiS #3
84F3 81 rts
__divmod16s:
84F4 89 pshX
84F5 8B pshH
84F6 A7 FF aiS #-1
84F8 95 tSX
84F9 6F 00 clr 0,X
84FB 3D 44 tst *__rhi
84FD 2A 0E bpl 0x850D
84FF A6 03 ldA #3
8501 E7 00 stA 0,X
8503 4F clrA
8504 B0 45 sub *__rlo
8506 B7 45 stA *__rlo
8508 4F clrA
8509 B2 44 sbc *__rhi
850B B7 44 stA *__rhi
850D 6D 05 tst 5,X
850F 2A 10 bpl 0x8521
8511 A6 02 ldA #2
8513 E8 00 eor 0,X
8515 E7 00 stA 0,X
8517 4F clrA
8518 E0 06 sub 6,X
851A E7 06 stA 6,X
851C 4F clrA
851D E2 05 sbc 5,X
851F E7 05 stA 5,X
8521 E6 06 ldA 6,X
8523 87 pshA
8524 E6 05 ldA 5,X
8526 87 pshA
8527 AD 29 bsr 0x8552
8529 86 pulA
852A E7 05 stA 5,X
852C 86 pulA
852D E7 06 stA 6,X
852F E6 00 ldA 0,X
8531 A5 02 bit #2
8533 27 0A beq 0x853F
8535 4F clrA
8536 B0 45 sub *__rlo
8538 B7 45 stA *__rlo
853A 4F clrA
853B B2 44 sbc *__rhi
853D B7 44 stA *__rhi
853F A5 01 bit #1
8541 27 0A beq 0x854D
8543 4F clrA
8544 E0 06 sub 6,X
8546 E7 06 stA 6,X
8548 4F clrA
8549 E2 05 sbc 5,X
854B E7 05 stA 5,X
854D A7 01 aiS #1
854F 8A pulH
8550 88 pulX
8551 81 rts
__divmod16u:
__divmodu_16X16_16:
8552 89 pshX
8553 8B pshH
8554 A7 FC aiS #-4
8556 95 tSX
8557 6F 02 clr 2,X
8559 6F 03 clr 3,X
855B A6 10 ldA #16
855D E7 00 stA 0,X
855F 38 45 lsl *__rlo
8561 39 44 rol *__rhi
8563 69 03 rol 3,X
8565 69 02 rol 2,X
8567 24 0E bcc 0x8577
8569 E6 09 ldA 9,X
856B EB 03 add 3,X
856D E7 03 stA 3,X
856F E6 08 ldA 8,X
8571 E9 02 adc 2,X
8573 E7 02 stA 2,X
8575 20 0C bra 0x8583
8577 E6 03 ldA 3,X
8579 E0 09 sub 9,X
857B E7 03 stA 3,X
857D E6 02 ldA 2,X
857F E2 08 sbc 8,X
8581 E7 02 stA 2,X
8583 2B 06 bmi 0x858B
8585 A6 01 ldA #1
8587 BA 45 orA *__rlo
8589 B7 45 stA *__rlo
858B 6A 00 dec 0,X
858D 26 D0 bne 0x855F
858F 6D 02 tst 2,X
8591 2A 0C bpl 0x859F
8593 E6 09 ldA 9,X
8595 EB 03 add 3,X
8597 E7 03 stA 3,X
8599 E6 08 ldA 8,X
859B E9 02 adc 2,X
859D E7 02 stA 2,X
859F E6 02 ldA 2,X
85A1 E7 08 stA 8,X
85A3 E6 03 ldA 3,X
85A5 E7 09 stA 9,X
85A7 A7 04 aiS #4
85A9 8A pulH
85AA 88 pulX
85AB 81 rts
__mul16:
85AC 89 pshX
85AD 8B pshH
85AE 9EEE 06 ldX 6,S
85B1 9EE6 08 ldA 8,S
85B4 42 mul
85B5 BF 44 stX *__rhi
85B7 B7 45 stA *__rlo
85B9 9EEE 05 ldX 5,S
85BC 9EE6 08 ldA 8,S
85BF 42 mul
85C0 BB 44 add *__rhi
85C2 B7 44 stA *__rhi
85C4 9EEE 06 ldX 6,S
85C7 9EE6 07 ldA 7,S
85CA 42 mul
85CB BB 44 add *__rhi
85CD B7 44 stA *__rhi
85CF 8A pulH
85D0 88 pulX
85D1 81 rts
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -