📄 business_fn.lst
字号:
+0 512 512 ;V3.00S_PWR equ 0x17 ;'C*'
+0 513 513 ;V3.00S_PLS equ 0x01 ;' +'
+0 514 514 ;V3.00S_MIN equ 0x02 ;' -'
+0 515 515 ;V3.00S_SPC equ 0x00 ;' '
+0 516 516 ;V3.00S_SHP equ 0x26 ;' <>'
+0 517 517 ;V3.00S_TL equ 0x22 ;' *'
+0 518 518 ;V3.00S_TLGT equ 0x3c ;'*+'
+0 519 519 ;V3.00S_TLMGT equ 0x3d ;'*+'
+0 520 520 ;V3.00S_ST equ 0x08 ;' <>'
+0 521 521 ;V3.00S_MUL equ 0x03 ;' X'
+0 522 522 ;V3.00S_DIV equ 0x04 ;' /'
+0 523 523 ;V3.00S_EQU equ 0x05 ;' ='
+0 524 524 ;V3.00S_AST equ 0x22 ;' *'
+0 525 525 ;V3.00S_CLR equ 0x07 ;'c '
+0 526 526 ;V3.00S_MTL equ 0x0e ;'M*'
+0 527 527 ;V3.00S_MST equ 0x0d ;'M<>'
+0 528 528 ;V3.00S_MPL equ 0x0b ;'M+'
+0 529 529 ;V3.00S_MMI equ 0x0c ;'M-'
+0 530 530 ;V3.00S_M2TL equ 0x10 ;'G*'
+0 531 531 ;V3.00S_STASTA equ 0x77 ;'**'
+0 532 532 ;V3.00S_M2ST equ 0x0f ;'G<>'
+0 533 533 ;V3.00S_STAS equ 0x76 ;'*S'
+0 534 534 ;V3.00S_M2PL equ 0x3e ;'G+'
+0 535 535 ;V3.00S_STAPL equ 0x73 ;'*+'
+0 536 536 ;V3.00S_PLSTA equ 0x37 ;'+*'
+0 537 537 ;V3.00S_M2MI equ 0x3f ;'G-'
+0 538 538 ;V3.00S_STAMN equ 0x70 ;'*-'
+0 539 539 ;V3.00S_M2TLV equ 0x97 ;'G*'
+0 540 540 ;V3.00S_M2STV equ 0x96 ;'G<>'
+0 541 541 ;V3.00S_M2PLV equ 0x3e ;'G+'
+0 542 542 ;V3.00S_M2MIV equ 0x3f ;'G-'
+0 543 543 ;V3.00S_PER equ 0x06 ;' %'
+0 544 544 ;V3.00S_STAPER equ 0x71 ;'*%'
+0 545 545 ;V3.00S_PRDS equ 0x01 ;'-%'
+0 546 546 ;V3.00S_PRAD equ 0x31 ;'+%'
+0 547 547 ;V3.00S_DLTAL equ 0x82 ;delta+' '
+0 548 548 ;V3.00S_DLTA equ 0x28 ;' "+delta V1.26
+0 549 549 ;V3.00S_PRDL equ 0x81 ;delta+'%'
+0 550 550 ;V3.00S_DLAS equ 0x87 ;delta+'*'
+0 551 551 ;V3.00S_PRMU equ 0x21 ;' %'
+0 552 552 ;V3.00S_MKUP equ 0xa2 ;'M '
+0 553 553 ;V3.00S_RVS equ 0x22 ;' '
+0 554 554 ;V3.00S_AVR equ 0x27 ;' *'
+0 555 555 ;V3.00S_ROOT equ 0x22 ;' '
+0 556 556 ;V3.00S_TAX equ 0x12 ;'% '
+0 557 557 ;V3.00S_PRN equ 0x62 ;'<> '
+0 558 558 ;V3.00S_EUR equ 0x22 ;' '
+0 559 559 ;V3.00S_EUEQ equ 0xc2 ;'= '
+0 560 560 ;V3.00S_COST equ 0x2b ;' C'
+0 561 561 ;V3.00S_SELL equ 0x26 ;' <>'
+0 562 562 ;V3.00S_M equ 0x2a ;' M'
+0 563 563 ;V3.00S_MARG equ 0xa1 ;'M%'
+0 564 564 ;V3.00S_PERMARG equ 0x1a ;'%M'
+0 565 565 ;V3.00S_TAXA equ 0x27 ;' *'
+0 566 566 ;V3.00S_ICG equ 0x29 ;' G'
+0 567 567 ;V3.00S_ICGV equ 0x29 ;' G'
+0 568 568 ;V3.00S_ICM equ 0x2a ;' M'
+0 569 569 ;V3.00S_ASM equ 0x7a ;'*M'
+0 570 570 ;V3.00S_ASC equ 0x7b ;'*C'
+0 571 571 ;V3.00S_ASDL equ 0x78 ;'*'+delta
+0 572 572 ;V3.00S_MIPL equ 0x03 ;'-+'
+0 573 573 ;V3.00S_MIMI equ 0x00 ;'--'
+0 574 574 ;V3.00S_MIST equ 0x06 ;'-S'
+0 575 575 ;V3.00S_MITL equ 0x07 ;'-T'
+0 576 576 ;V3.00S_EUROS equ 0x29 ;' euro'
+0 577 577 ;V3.00S_G equ 0x9f ;'G '
+0 578 578 ;V3.00S_GPL equ 0x93 ;'G+'
+0 579 579 ;V3.00S_GAST equ 0x97 ;'G*'
+0 580 580 ;==============================================================================
00000020 +0 581 581 P_SPC equ 0x20 ;for print " "
+0 582 582 ;-----------------------------------------------------------
+0 583 583 ;interrupt enable flag set:
+0 584 584
00000004 +0 585 585 EF4 equ 4;(EIRL).4 /INT0
00000005 +0 586 586 EF5 equ 5;(EIRL).5 INTTC1
00000006 +0 587 587 EF6 equ 6;(EIRL).6 INT1
00000007 +0 588 588 EF7 equ 7;(EIRL).7 INTTBT
00000000 +0 589 589 EF8 equ 0;(EIRH).0 INTTC3
00000001 +0 590 590 EF9 equ 1;(EIRH).1 INTSIO(High speed SIO interrupt)
00000002 +0 591 591 EF10 equ 2;(EIRH).2 INTTC4
00000003 +0 592 592 EF11 equ 3;(EIRH).3 INT3
00000004 +0 593 593 EF12 equ 4;(EIRH).4 INT4
00000005 +0 594 594 EF13 equ 5;(EIRH).5 INTTC2
00000006 +0 595 595 EF14 equ 6;(EIRH).6 /INT5
00000007 +0 596 596 EF15 equ 7;(EIRH).7 INTADC or INT2
+0 597 597 ;interrupt request flag set:
00000002 +0 598 598 IL2 equ 2;(ILL).2 INTSWI
00000003 +0 599 599 IL3 equ 3;(ILL).3 INTATRAP
00000004 +0 600 600 IL4 equ 4;(ILL).4 /INT0
00000005 +0 601 601 IL5 equ 5;(ILL).5 INTTC1
00000006 +0 602 602 IL6 equ 6;(ILL).6 INT1
00000007 +0 603 603 IL7 equ 7;(ILL).7 INTTB
00000000 +0 604 604 IL8 equ 0;(ILH).0 INTTC3
00000001 +0 605 605 IL9 equ 1;(ILH).1 INTSIO
00000002 +0 606 606 IL10 equ 2;(ILH).2 INTTC4
00000003 +0 607 607 IL11 equ 3;(ILH).3 INT3
00000004 +0 608 608 IL12 equ 4;(ILH).4 INT4
00000005 +0 609 609 IL13 equ 5;(ILH).5 INTTC2
00000006 +0 610 610 IL14 equ 6;(ILH).6 /INT5
00000007 +0 611 611 IL15 equ 7;(ILH).7 INTADC or /INT2
+0 612 612 ; DBR_LCD_RATE equ (0x0f33<<4)+5 ;LCD DBR matrix point for "RATE"
+0 613 613 ; DBR_LCD1235_RATE equ (0x0f33<<4)+3 ;LCD DBR matrix point for "RATE"
+0 614 614 ; DBR_LCD1297_RATE equ (0x0f33<<4)+4 ;LCD DBR matrix point for "RATE"
+0 615 615 ; DBR_LCD120_RATE equ (0x0f33<<4)+4 ;LCD DBR matrix point for "RATE"
+0 616 616 ; DBR_LCD1297_GT equ (0x0f32<<4)+2 ;LCD DBR matrix point for "GT"
+0 617 617 ; ;LCD_PRN equ (0x0f31<<4)+3 ;LCD DBR matrix point for "PRINT"
+0 618 618 ; ;LCD_FIN equ (0x0f30<<4)+3 ;LCD DEB matrix point for "FIN"
+0 619 619
00007A12 +0 620 620 AUTOOFFTIME equ 31250;1500
+0 621 621 $list
+0 622 622
+0 623 623 public tax_plus,tax_minus,cost_key,sell_key,margin_key,tax_save,tax_recall,kychk_clcsm;wk_prn_2L
+0 624 624 public rate_key,euro_key,local_key,check_dp_over2,rate_ten_key;,keychk_amortize
+0 625 625 public euro_display,eurate_minus_key,eurate_plus_key,init_rate_dispaly,fix_euro_to_ten
+0 626 626 public tax2_plus,tax2_minus,tax_plus,tax_minus,tax_plus_a,tax12_plus,tax12_minus,tax_minus_a
+0 627 627 public keep_ten_6dig,euro_rate_recall_x,euro_set_sub
+0 628 628 extern function_end,no_operation,wk_round_0
+0 629 629 extern mem2_plus,mem2_minus,move_to_ten
+0 630 630 extern edit_prn ;V2.08
+0 631 631 public tax_plus_x,tax_minus_x ;V2.18
+0 632 632 public rate_ten_key_01,fix_euro_to_ten,euro_print
+0 633 633 extern euro_fix_rate_tbl,wk_print9
+0 634 634 public rate_ten_key_01 ;V4.12
+0 635 635
+0 636 636 ROM section code
00000096 +0 637 637 RATE_HOLD_TIM equ 150
+0 638 638 ;===============================================================================
+0 639 639 ; RATE key
+0 640 640 ;===============================================================================
00000000 +0 641 641 rate_ten_key:
00000000 E10000670A R +0 642 642 cmp (KEYIN),K_ZERO2
00000005 DA03FE0000 R +0 643 643 j ge,no_operation
0000000A 480000 R +0 644 644 ld wa,F_TNKEY
0000000D E10000FC R +0 645 645 test (F_TNKEY>>4).a ;bit -reverse-> jump status
00000011 8A +0 646 646 j t,rate_ten_key_00y ;if jump status is 1 -> branch
00000012 4B0000 R +0 647 647 ld hl,TENKEY ;V3.07
00000015 FD0000 R +0 648 648 call _zerock ;V3.07
00000018 D903FE0000 R +0 649 649 j eq,rate_ten_key_01 ;V3.07
0000001D +0 650 650 rate_ten_key_00y:
0000001D 480000 R +0 651 651 ld wa,EURO_PROG
00000020 E10000FA R +0 652 652 clr (EURO_PROG>>4).a
00000024 480000 R +0 653 653 ld wa,F_COUNTRY
00000027 E10000FC R +0 654 654 test (F_COUNTRY>>4).a ;bit -reverse-> jump status
0000002B DE5E +0 655 655 j t,rate_ten_key_0 ;if jump status is 1 -> branch
0000002D 480000 R +0 656 656 ld wa,F_COUNTRY
00000030 E10000FA R +0 657 657 clr (F_COUNTRY>>4).a
+0 658 658 ;V4.18 ld w,(COUNTRY_TEN)
+0 659 659 ;V4.18 ld a,10
+0 660 660 ;V4.18 mul w,a
+0 661 661 ;V4.18 clr cf
00000034 E1000040 R +0 662 662 ld a,(COUNTRY_TEN) ;V4.18
00000038 E1000001 R +0 663 663 add a,(KEYIN)
0000003C F1000078 R +0 664 664 ld (COUNTRY_TEN),a ;get country code
00000040 E100006711 R +0 665 665 cmp (COUNTRY_TEN),17
00000045 DB3A +0 666 666 j ge,rate_ten_key_00
00000047 480000 R +0 667 667 ld wa,EURO_PROG
0000004A E10000F2 R +0 668 668 set (EURO_PROG>>4).a
0000004E 480000 R +0 669 669 ld wa,F_TNKEY
00000051 E10000FC R +0 670 670 test (F_TNKEY>>4).a ;bit -reverse-> jump status
00000055 DF1D +0 671 671 j f,rate_ten_key_000 ;if jump status is 0 -> branch
00000057 E10000670C R +0 672 672 cmp (COUNTRY_TEN),12
0000005C DB06 +0 673 673 j ge,rate_ten_key_00x
+0 674 674
0000005E FD0000 R +0 675 675 call fix_euro_to_ten
+0 676 676
00000061 FE0000 R +0 677 677 jp rate_ten_key_001
00000064 +0 678 678 rate_ten_key_00x:
00000064 E1000040 R +0 679 679 ld a,(COUNTRY_TEN)
00000068 05 +0 680 680 set cf
00000069 630C +0 681 681 sub a,12
0000006B FD0000 R +0 682 682 call ee_to_ten
0000006E FD0000 R +0 683 683 call keep_ten_6dig
00000071 FE0000 R +0 684 684 jp rate_ten_key_001
+0 685 685
00000074 +0 686 686 rate_ten_key_000:
+0 687 687
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -