📄 baseposfix.asl
字号:
03FE F5 00 544 lda0 .Buf3
0400 F9 00 545 sta0 .DataBuf
0402 F5 00 546 lda0 .Buf2
0404 F9 00 547 sta0 .DataBuf
0406 F5 00 548 lda0 .STDP
0408 3F 549 deca
0409 F9 00 550 sta0 .STDP
040B A7 FF 551 cmpe #0ffh
040D 07 03 AE 552 brnz .Push2Stack
0410 02 03 EE 553 br .Fstdp
+ 554
0413 555 .EndPushStk:
+ 556
0413 24 557 ret
0414 558 .Addnegtive::
0414 20 00 00 559 call .ClosEndPS
0417 F5 00 560 lda0 .DecFlag
0419 CB 01 561 anda #01h
041B 06 04 35 562 brz 1$
041E F3 00 563 lda #0h
0420 F9 00 564 sta0 .DecFlag
0422 F5 00 565 lda0 .DataBuf
0424 F9 00 566 sta0 .Buf3
0426 F3 A8 567 lda #0a8h
0428 F9 00 568 sta0 .DataBuf
042A F3 00 569 lda #0h
042C F9 00 570 sta0 .DecFlag
042E 20 00 00 571 call .StoFuncPS
0431 F5 00 572 lda0 .Buf3
0433 F9 00 573 sta0 .DataBuf
+ 574 1$:
0435 24 575 ret
+ 576 ;-------------------------------------------
0436 577 .Paricmp::
0436 F5 00 578 lda0 .DataBuf
0438 A7 10 579 cmpe #10h
043A 04 04 44 580 brc .OP1
043D F3 04 581 lda #04h
043F F9 00 582 sta0 .AfterPari
0441 02 05 10 583 br .EndParicmp
0444 584 .OP1:
0444 A7 B2 585 cmpe #.LC
0446 07 04 50 586 brnz .OP2
0449 F3 00 587 lda #0h
044B F9 00 588 sta0 .AfterPari
044D 02 05 10 589 br .EndParicmp
0450 590 .OP2:
0450 A7 B3 591 cmpe #.RC
0452 07 04 5C 592 brnz .OP3
0455 F3 00 593 lda #0h
0457 F9 00 594 sta0 .AfterPari
0459 02 05 10 595 br .EndParicmp
045C 596 .OP3:
045C A7 23 597 cmpe #.Xor
045E 07 04 68 598 brnz .OP4
0461 F3 07 599 lda #07h
0463 F9 00 600 sta0 .AfterPari
0465 02 05 10 601 br .EndParicmp
0468 602 .OP4:
0468 A7 22 603 cmpe #.Xnor
046A 07 04 74 604 brnz .OP5
046D F3 07 605 lda #07h
046F F9 00 606 sta0 .AfterPari
0471 02 05 10 607 br .EndParicmp
0474 608 .OP5:
0474 A7 21 609 cmpe #.Or
0476 07 04 80 610 brnz .OP6
0479 F3 07 611 lda #07h ;8
047B F9 00 612 sta0 .AfterPari
047D 02 05 10 613 br .EndParicmp
0480 614 .OP6:
0480 A7 20 615 cmpe #.And
0482 07 04 8C 616 brnz .OP7
0485 F3 09 617 lda #09h
0487 F9 00 618 sta0 .AfterPari
0489 02 05 10 619 br .EndParicmp
048C 620 .OP7:
048C A7 24 621 cmpe #.Not
048E 07 04 98 622 brnz .OP8
0491 F3 0E 623 lda #0eh
0493 F9 00 624 sta0 .AfterPari
0495 02 05 10 625 br .EndParicmp
0498 626 .OP8:
0498 A7 25 627 cmpe #.Neg
049A 07 04 A4 628 brnz .OP9
049D F3 0E 629 lda #0eh
049F F9 00 630 sta0 .AfterPari
04A1 02 05 10 631 br .EndParicmp
04A4 632 .OP9:
04A4 A7 A4 633 cmpe #.ADD
04A6 07 04 B0 634 brnz .OP10
04A9 F3 0C 635 lda #0ch
04AB F9 00 636 sta0 .AfterPari
04AD 02 05 10 637 br .EndParicmp
04B0 638 .OP10:
04B0 A7 A5 639 cmpe #.DEC
04B2 07 04 BC 640 brnz .OP11
04B5 F3 0C 641 lda #0ch
04B7 F9 00 642 sta0 .AfterPari
04B9 02 05 10 643 br .EndParicmp
04BC 644 .OP11:
04BC A7 A6 645 cmpe #.MUL
04BE 07 04 C8 646 brnz .OP12
04C1 F3 0D 647 lda #0dh
04C3 F9 00 648 sta0 .AfterPari
04C5 02 05 10 649 br .EndParicmp
04C8 650 .OP12:
04C8 A7 A7 651 cmpe #.DIV
04CA 07 04 D4 652 brnz .OP13
04CD F3 0D 653 lda #0dh
04CF F9 00 654 sta0 .AfterPari
04D1 02 05 10 655 br .EndParicmp
04D4 656 .OP13:
04D4 A7 26 657 cmpe #26h
04D6 07 04 E0 658 brnz .OP14
04D9 F3 0F 659 lda #0fh
04DB F9 00 660 sta0 .AfterPari
04DD 02 05 10 661 br .EndParicmp
04E0 662 .OP14:
04E0 A7 27 663 cmpe #27h
04E2 07 04 EC 664 brnz .OP15
04E5 F3 0F 665 lda #0fh
04E7 F9 00 666 sta0 .AfterPari
04E9 02 05 10 667 br .EndParicmp
04EC 668 .OP15:
04EC A7 28 669 cmpe #28h
04EE 07 04 F8 670 brnz .OP16
04F1 F3 0F 671 lda #0fh
04F3 F9 00 672 sta0 .AfterPari
04F5 02 05 10 673 br .EndParicmp
04F8 674 .OP16:
04F8 A7 29 675 cmpe #29h
04FA 07 05 04 676 brnz .OP17
04FD F3 0F 677 lda #0fh
04FF F9 00 678 sta0 .AfterPari
0501 02 05 10 679 br .EndParicmp
0504 680 .OP17:
0504 A7 A8 681 cmpe #0a8h
0506 07 05 10 682 brnz .EndParicmp
0509 F3 0E 683 lda #0eh
050B F9 00 684 sta0 .AfterPari
050D 02 05 10 685 br .EndParicmp
0510 686 .EndParicmp:
0510 24 687 ret
+ 688
+ 689 ;-------------------------------------------
0511 690 .InitBasePos:
0511 F3 50 691 lda #50h
0513 F9 00 692 sta0 .PSDP ;Postfix dp
0515 F3 00 693 lda #0h
0517 F9 00 694 sta0 .STDP ;stack dp
0519 F3 00 695 lda #0h
051B F9 00 696 sta0 .INDP
051D F9 00 697 sta0 .Buf1
051F F9 00 698 sta0 .DataBuf
0521 F9 00 699 sta0 .BeforePari
0523 F9 00 700 sta0 .DecFlag
0525 F9 00 701 sta0 .AfterPari
0527 20 00 00 702 call .ClrP2
052A 20 00 00 703 call .ClrP3
+ 704
+ 705
052D 706 .EndInitBasePos:
052D 24 707 ret
+
+Symbol Table
+
+ .ADD = 00A4
+ 1 .AddBase 021F R
+ 1 .AddBaseUnit 0225 R
+ 1 .AddMul 030F R
+ 1 .AddMulCls 030C R
+ 1 .Addnegtive 0414 GR
+ .AfterPari **** GX
+ .And = 0020
+ .BaseModeChk **** GX
+ 1 .BaseNPosfix 0000 GR
+ 1 .BasePosEnd 0043 R
+ .BeforePari **** GX
+ .Buf1 **** GX
+ .Buf2 **** GX
+ .Buf3 **** GX
+ .CheckMem **** GX
+ .CkRightC **** GX
+ .ClosEndPS **** GX
+ .ClrP2 **** GX
+ .ClrP3 **** GX
+ 1 .CmpOperand 0094 R
+ .DEC = 00A5
+ .DIV = 00A7
+ 1 .DO2Operand 01C0 R
+ 1 .DOLC 00CD R
+ 1 .DONotNeg 01D7 R
+ 1 .DORC 0115 R
+ 1 .DOaddec 016F R
+ 1 .DOmemSto 0128 R
+ 1 .DOmuldiv 019A R
+ 1 .DOnum 0156 R
+ .DataBuf **** GX
+ .DataDP **** GX
+ .DecFlag **** GX
+ 1 .EedBasen 0093 R
+ 1 .EndBasePos 0030 R
+ 1 .EndInitBasePos 052D R
+ 1 .EndParicmp 0510 R
+ 1 .EndPushStk 0413 R
+ 1 .Firstdp 0258 R
+ 1 .Fstdp 03EE R
+ 1 .GetPari 0249 GR
+ .INDP **** GX
+ 1 .InitBasePos 0511 R
+ 1 .IsADD 026F R
+ .LC = 00B2
+ 1 .LCAddMul 02AD R
+ 1 .LCAddMulCls 02A7 R
+ .MUL = 00A6
+ 1 .MemAddMul 0342 R
+ 1 .MemAddMulCls 0338 R
+ .Neg = 0025
+ 1 .NextDp 0021 R
+ .NoSignal **** GX
+ .Not = 0024
+ 1 .NotSave 007F R
+ 1 .NotSign 0399 R
+ 1 .OP1 0444 R
+ 1 .OP10 04B0 R
+ 1 .OP11 04BC R
+ 1 .OP12 04C8 R
+ 1 .OP13 04D4 R
+ 1 .OP14 04E0 R
+ 1 .OP15 04EC R
+ 1 .OP16 04F8 R
+ 1 .OP17 0504 R
+ 1 .OP2 0450 R
+ 1 .OP3 045C R
+ 1 .OP4 0468 R
+ 1 .OP5 0474 R
+ 1 .OP6 0480 R
+ 1 .OP7 048C R
+ 1 .OP8 0498 R
+ 1 .OP9 04A4 R
+ .Or = 0021
+ .PSDP **** GX
+ 1 .Paricmp 0436 GR
+ 1 .PopStk 03F8 R
+ 1 .PosEnd 0087 R
+ 1 .PosFixSto 037B R
+ 1 .Push2Stack 03AE R
+ 1 .PushStack 0279 R
+ 1 .PushStackCls 0276 R
+ .RC = 00B3
+ 1 .RCAddMul 02E9 R
+ 1 .RCAddMulCls 02E6 R
+ .STDP **** GX
+ 1 .Signal 0263 R
+ 1 .Sto2PS 0150 R
+ .StoFuncPS **** GX
+ .StoStack **** GX
+ 1 .SynError 0029 R
+ 1 .TOStack 0283 R
+ 1 .TransCode 01A0 R
+ 1 .TransbaseN 0003 R
+ .Xnor = 0022
+ .Xor = 0023
+ ErrorFlag **** GX
+
+
+Area Table
+
+ 0 . size 0 flags 0
+ 1 basepostfix size 52E flags 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -