📄 sub.lst
字号:
+0 484 484 ;V3.00S_TLGT equ 0x3c ;'*+'
+0 485 485 ;V3.00S_TLMGT equ 0x3d ;'*+'
+0 486 486 ;V3.00S_ST equ 0x08 ;' <>'
+0 487 487 ;V3.00S_MUL equ 0x03 ;' X'
+0 488 488 ;V3.00S_DIV equ 0x04 ;' /'
+0 489 489 ;V3.00S_EQU equ 0x05 ;' ='
+0 490 490 ;V3.00S_AST equ 0x22 ;' *'
+0 491 491 ;V3.00S_CLR equ 0x07 ;'c '
+0 492 492 ;V3.00S_MTL equ 0x0e ;'M*'
+0 493 493 ;V3.00S_MST equ 0x0d ;'M<>'
+0 494 494 ;V3.00S_MPL equ 0x0b ;'M+'
+0 495 495 ;V3.00S_MMI equ 0x0c ;'M-'
+0 496 496 ;V3.00S_M2TL equ 0x10 ;'G*'
+0 497 497 ;V3.00S_STASTA equ 0x77 ;'**'
+0 498 498 ;V3.00S_M2ST equ 0x0f ;'G<>'
+0 499 499 ;V3.00S_STAS equ 0x76 ;'*S'
+0 500 500 ;V3.00S_M2PL equ 0x3e ;'G+'
+0 501 501 ;V3.00S_STAPL equ 0x73 ;'*+'
+0 502 502 ;V3.00S_PLSTA equ 0x37 ;'+*'
+0 503 503 ;V3.00S_M2MI equ 0x3f ;'G-'
+0 504 504 ;V3.00S_STAMN equ 0x70 ;'*-'
+0 505 505 ;V3.00S_M2TLV equ 0x97 ;'G*'
+0 506 506 ;V3.00S_M2STV equ 0x96 ;'G<>'
+0 507 507 ;V3.00S_M2PLV equ 0x3e ;'G+'
+0 508 508 ;V3.00S_M2MIV equ 0x3f ;'G-'
+0 509 509 ;V3.00S_PER equ 0x06 ;' %'
+0 510 510 ;V3.00S_STAPER equ 0x71 ;'*%'
+0 511 511 ;V3.00S_PRDS equ 0x01 ;'-%'
+0 512 512 ;V3.00S_PRAD equ 0x31 ;'+%'
+0 513 513 ;V3.00S_DLTAL equ 0x82 ;delta+' '
+0 514 514 ;V3.00S_DLTA equ 0x28 ;' "+delta V1.26
+0 515 515 ;V3.00S_PRDL equ 0x81 ;delta+'%'
+0 516 516 ;V3.00S_DLAS equ 0x87 ;delta+'*'
+0 517 517 ;V3.00S_PRMU equ 0x21 ;' %'
+0 518 518 ;V3.00S_MKUP equ 0xa2 ;'M '
+0 519 519 ;V3.00S_RVS equ 0x22 ;' '
+0 520 520 ;V3.00S_AVR equ 0x27 ;' *'
+0 521 521 ;V3.00S_ROOT equ 0x22 ;' '
+0 522 522 ;V3.00S_TAX equ 0x12 ;'% '
+0 523 523 ;V3.00S_PRN equ 0x62 ;'<> '
+0 524 524 ;V3.00S_EUR equ 0x22 ;' '
+0 525 525 ;V3.00S_EUEQ equ 0xc2 ;'= '
+0 526 526 ;V3.00S_COST equ 0x2b ;' C'
+0 527 527 ;V3.00S_SELL equ 0x26 ;' <>'
+0 528 528 ;V3.00S_M equ 0x2a ;' M'
+0 529 529 ;V3.00S_MARG equ 0xa1 ;'M%'
+0 530 530 ;V3.00S_PERMARG equ 0x1a ;'%M'
+0 531 531 ;V3.00S_TAXA equ 0x27 ;' *'
+0 532 532 ;V3.00S_ICG equ 0x29 ;' G'
+0 533 533 ;V3.00S_ICGV equ 0x29 ;' G'
+0 534 534 ;V3.00S_ICM equ 0x2a ;' M'
+0 535 535 ;V3.00S_ASM equ 0x7a ;'*M'
+0 536 536 ;V3.00S_ASC equ 0x7b ;'*C'
+0 537 537 ;V3.00S_ASDL equ 0x78 ;'*'+delta
+0 538 538 ;V3.00S_MIPL equ 0x03 ;'-+'
+0 539 539 ;V3.00S_MIMI equ 0x00 ;'--'
+0 540 540 ;V3.00S_MIST equ 0x06 ;'-S'
+0 541 541 ;V3.00S_MITL equ 0x07 ;'-T'
+0 542 542 ;V3.00S_EUROS equ 0x29 ;' euro'
+0 543 543 ;V3.00S_G equ 0x9f ;'G '
+0 544 544 ;V3.00S_GPL equ 0x93 ;'G+'
+0 545 545 ;V3.00S_GAST equ 0x97 ;'G*'
+0 546 546 ;==============================================================================
00000020 +0 547 547 P_SPC equ 0x20 ;for print " "
+0 548 548 ;-----------------------------------------------------------
+0 549 549 ;interrupt enable flag set:
+0 550 550
00000004 +0 551 551 EF4 equ 4;(EIRL).4 /INT0
00000005 +0 552 552 EF5 equ 5;(EIRL).5 INTTC1
00000006 +0 553 553 EF6 equ 6;(EIRL).6 INT1
00000007 +0 554 554 EF7 equ 7;(EIRL).7 INTTBT
00000000 +0 555 555 EF8 equ 0;(EIRH).0 INTTC3
00000001 +0 556 556 EF9 equ 1;(EIRH).1 INTSIO(High speed SIO interrupt)
00000002 +0 557 557 EF10 equ 2;(EIRH).2 INTTC4
00000003 +0 558 558 EF11 equ 3;(EIRH).3 INT3
00000004 +0 559 559 EF12 equ 4;(EIRH).4 INT4
00000005 +0 560 560 EF13 equ 5;(EIRH).5 INTTC2
00000006 +0 561 561 EF14 equ 6;(EIRH).6 /INT5
00000007 +0 562 562 EF15 equ 7;(EIRH).7 INTADC or INT2
+0 563 563 ;interrupt request flag set:
00000002 +0 564 564 IL2 equ 2;(ILL).2 INTSWI
00000003 +0 565 565 IL3 equ 3;(ILL).3 INTATRAP
00000004 +0 566 566 IL4 equ 4;(ILL).4 /INT0
00000005 +0 567 567 IL5 equ 5;(ILL).5 INTTC1
00000006 +0 568 568 IL6 equ 6;(ILL).6 INT1
00000007 +0 569 569 IL7 equ 7;(ILL).7 INTTB
00000000 +0 570 570 IL8 equ 0;(ILH).0 INTTC3
00000001 +0 571 571 IL9 equ 1;(ILH).1 INTSIO
00000002 +0 572 572 IL10 equ 2;(ILH).2 INTTC4
00000003 +0 573 573 IL11 equ 3;(ILH).3 INT3
00000004 +0 574 574 IL12 equ 4;(ILH).4 INT4
00000005 +0 575 575 IL13 equ 5;(ILH).5 INTTC2
00000006 +0 576 576 IL14 equ 6;(ILH).6 /INT5
00000007 +0 577 577 IL15 equ 7;(ILH).7 INTADC or /INT2
+0 578 578 ; DBR_LCD_RATE equ (0x0f33<<4)+5 ;LCD DBR matrix point for "RATE"
+0 579 579 ; DBR_LCD1235_RATE equ (0x0f33<<4)+3 ;LCD DBR matrix point for "RATE"
+0 580 580 ; DBR_LCD1297_RATE equ (0x0f33<<4)+4 ;LCD DBR matrix point for "RATE"
+0 581 581 ; DBR_LCD120_RATE equ (0x0f33<<4)+4 ;LCD DBR matrix point for "RATE"
+0 582 582 ; DBR_LCD1297_GT equ (0x0f32<<4)+2 ;LCD DBR matrix point for "GT"
+0 583 583 ; ;LCD_PRN equ (0x0f31<<4)+3 ;LCD DBR matrix point for "PRINT"
+0 584 584 ; ;LCD_FIN equ (0x0f30<<4)+3 ;LCD DEB matrix point for "FIN"
+0 585 585
00007A12 +0 586 586 AUTOOFFTIME equ 31250;1500
+0 587 587 $list
+0 588 588
+0 589 589 public w1_clear,w2_clear,w3_clear,ten_clear,acc_clear,gt_clear,mem1_clear,w1_zerock,ten_zerock
+0 590 590 public calc_add,calc_mult,calc_div,stg_sfl47,stg_sfr47,stg_sfl49,stg_sfr49
+0 591 591 public spc_prnbuf,spc_dt,spc_disp,_spaceck
+0 592 592 public ten_to_w2,ten_to_w2dp,wk_update,ic_update,add_mode,ten_to_w1,ten_to_w1dp
+0 593 593 public w1_to_ten,w2_to_ten,mem1_to_w2,gt_to_w2,w1_to_w2,acc_to_w2,w2_to_w1,const_to_w1,w1_to_const,w2_to_const,wk_round
+0 594 594 public exchg_w12,const_to_w2,w2_to_tax,cost_to_w2,w2_to_cost,sell_to_w2,w2_to_sell,marg_to_w2,w2_to_marg,marg_to_w1,sell_to_w1,cost_to_w1
+0 595 595 public dt_to_prn,prn_to_dt,dp_adjust,_zerock,wk_round_0,wkrnd_zsp0
+0 596 596 public move_to_w1,move_to_w2,move_9byte,clear_9byte
+0 597 597 public euro1_to_w2,euro2_to_w2,w2_to_euro1,w2_to_euro2,ten_to_euro1,ten_to_euro2,euro1_to_ten,euro2_to_ten
+0 598 598 public tax2_to_w1,tax2_to_w2,tax_to_w1,tax_to_w2
+0 599 599 public w2_to_tax2,w1_to_acc,w2_to_acc,acc_to_ten,wk_round_with_ten_dp
+0 600 600 public const_clear,wk_round_with_const_dp,wk_round_with_2DP
+0 601 601 public wk_round_down,wk_round_up
+0 602 602 public w2_print,w2_round_print,w2_round
+0 603 603 public w1_print,w1_round_print,w1_round
+0 604 604 public w1_to_w4,w4_to_w1,w2_to_w4,w4_to_w2,w1_to_ftemp,ftemp_to_w2
+0 605 605 public move_to_ten
+0 606 606 extern wk_print
+0 607 607 ROM section code
+0 608 608 ;===================================================
+0 609 609 ; Data clear use resister: hl, c, a
+0 610 610 ;===================================================
+0 611 611 ;clear work resister...............
00000000 +0 612 612 const_clear:
00000000 4B0000 R +0 613 613 ld hl,CONST
00000003 FC5D +0 614 614 j clear_9byte
00000005 +0 615 615 w1_clear:
00000005 4B0000 R +0 616 616 ld hl,W1
00000008 FC58 +0 617 617 j clear_9byte
0000000A +0 618 618 w2_clear:
0000000A 4B0000 R +0 619 619 ld hl,W2
0000000D FC53 +0 620 620 j clear_9byte
0000000F +0 621 621 w3_clear:
0000000F 4B0000 R +0 622 622 ld hl,W3
00000012 FC4E +0 623 623 j clear_9byte
00000014 +0 624 624 ten_clear:
00000014 0A0000 R +0 625 625 ld (TEN_CT),0 ;V3.08
00000017 4B0000 R +0 626 626 ld hl,TENKEY
0000001A FC46 +0 627 627 j clear_9byte
+0 628 628 ;clear work resister & item counter...............
0000001C +0 629 629 acc_clear:
+0 630 630 ;V2.03 @CLB (ACC_STORE) ;V1.26 only used for V1297
0000001C 4B0000 R +0 631 631 ld hl,ACC
0000001F FD0000 R +0 632 632 call clear_9byte
00000022 FC10 +0 633 633 j ica_clear
00000024 +0 634 634 mem1_clear:
00000024 4B0000 R +0 635 635 ld hl,MEM1
00000027 FD0000 R +0 636 636 call clear_9byte
0000002A FC0D +0 637 637 j icm_clear
0000002C +0 638 638 gt_clear:
0000002C 4B0000 R +0 639 639 ld hl,MEMGT
0000002F FD0000 R +0 640 640 call clear_9byte
00000032 FC0A +0 641 641 j icg_clear
+0 642 642
+0 643 643 ;clear item counter.................
00000034 +0 644 644 ica_clear:
00000034 4B0000 R +0 645 645 ld hl,IC_A
00000037 FC23 +0 646 646 j clear_2byte
00000039 +0 647 647 icm_clear:
00000039 4B0000 R +0 648 648 ld hl,IC_M
0000003C FC1E +0 649 649 j clear_2byte
0000003E +0 650 650 icg_clear:
0000003E 4B0000 R +0 651 651 ld hl,IC_G
00000041 FC19 +0 652 652 j clear_2byte
+0 653 653
+0 654 654 ;space clear.......................
00000043 +0 655 655 spc_dt:
00000043 4B0000 R +0 656 656 ld hl,DT_BUF
00000046 18FF +0 657 657 ld a,0xff
00000048 FC1A +0 658 658 j fill_9byte
0000004A +0 659 659 spc_prnbuf:
+0 660 660 ;V4.03 ld (PRN_BUF_S),P_SPC ;clear prn_buff sign "+" or "-"
0000004A 4B0000 R +0 661 661 ld hl,PRN_BUF
0000004D +0 662 662 spc_prnbuf0:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -