📄 p762.lst
字号:
502
0226 0529 503 INC SEND_BYTE_NUM
504
0228 41E9 505 AJMP POC_SEND_RET
506
022A 507 Poc_Step7:
022A 752789 508 MOV SEND_BYTE,#089H
022D 752B08 509 MOV Next_Step,#08H
510
0230 0529 511 INC SEND_BYTE_NUM
512
0232 41E9 513 AJMP POC_SEND_RET
514
0234 515 Poc_Step8:
0234 7527C1 516 MOV SEND_BYTE,#0C1H
0237 752B09 517 MOV Next_Step,#09H
518
023A 0529 519 INC SEND_BYTE_NUM
520
A51 MACRO ASSEMBLER P762 30/11/00 21:46:04 PAGE 9
023C 41E9 521 AJMP POC_SEND_RET
522
023E 523 Poc_Step9:
023E 752797 524 MOV SEND_BYTE,#097H
0241 752B0A 525 MOV Next_Step,#0AH
526
0244 0529 527 INC SEND_BYTE_NUM
528
0246 E529 529 MOV A,SEND_BYTE_NUM
0248 03 530 RR A
0249 03 531 RR A
024A 03 532 RR A
024B 5407 533 ANL A,#07H
024D 6526 534 XRL A,ZHENG_HAO
024F 6003 535 JZ Poc_Step9_0
536
0251 752B06 537 MOV Next_Step,#06H
538
0254 539 Poc_Step9_0:
0254 752A00 540 MOV SEND_BYTE_NUM2,#00H
0257 41E9 541 AJMP POC_SEND_RET
542
0259 543 Poc_Step10:
544
0259 E52A 545 MOV A,SEND_BYTE_NUM2
025B 5407 546 ANL A,#07H
547
025D 2450 548 ADD A,#POCSAG_BUFFER
025F F8 549 MOV R0,A
0260 E6 550 MOV A,@R0
0261 F527 551 MOV SEND_BYTE,A
552
0263 0529 553 INC SEND_BYTE_NUM
0265 052A 554 INC SEND_BYTE_NUM2
555
0267 E529 556 MOV A,SEND_BYTE_NUM
0269 543F 557 ANL A,#03FH
558
026B 6008 559 JZ Poc_Step10_1
560
026D E52A 561 MOV A,SEND_BYTE_NUM2
026F 5407 562 ANL A,#07H
0271 600A 563 JZ Poc_Step10_2
564
0273 41E9 565 AJMP POC_SEND_RET
566
0275 567 Poc_Step10_1:
0275 752B0B 568 MOV Next_Step,#0BH
0278 752940 569 MOV SEND_BYTE_NUM,#040H
027B 41E9 570 AJMP POC_SEND_RET
571
027D 572 Poc_Step10_2:
573
027D E526 574 MOV A,ZHENG_HAO
027F 20E308 575 JB ACC.3,Poc_Step10_3
576
0282 752B0F 577 MOV Next_Step,#0FH
0285 752940 578 MOV SEND_BYTE_NUM,#040H
0288 41E9 579 AJMP POC_SEND_RET
580
028A 581 Poc_Step10_3:
028A 752A00 582 MOV SEND_BYTE_NUM2,#00H
028D 41E9 583 AJMP POC_SEND_RET
584
028F 585 Poc_Step11:
028F 75277C 586 MOV SEND_BYTE,#07CH
A51 MACRO ASSEMBLER P762 30/11/00 21:46:04 PAGE 10
0292 752B0C 587 MOV Next_Step,#0CH
588
0295 41E9 589 AJMP POC_SEND_RET
590
0297 591 Poc_Step12:
0297 7527D2 592 MOV SEND_BYTE,#0D2H
029A 752B0D 593 MOV Next_Step,#0DH
594
029D 41E9 595 AJMP POC_SEND_RET
596
029F 597 Poc_Step13:
029F 752715 598 MOV SEND_BYTE,#015H
02A2 752B0E 599 MOV Next_Step,#0EH
600
02A5 41E9 601 AJMP POC_SEND_RET
602
02A7 603 Poc_Step14:
02A7 7527D8 604 MOV SEND_BYTE,#0D8H
02AA 752B0F 605 MOV Next_Step,#0FH
606
02AD 41E9 607 AJMP POC_SEND_RET
608
609 ; TONGBU_TABLE: DB 07CH,0D2H,015H,0D8H
610 ; KONXIAN_TABLE: DB 07AH,089H,0C1H,097H
611
02AF 612 Poc_Step15:
02AF 75277A 613 MOV SEND_BYTE,#07AH
02B2 752B10 614 MOV Next_Step,#10H
615
02B5 41E9 616 AJMP POC_SEND_RET
617
02B7 618 Poc_Step16:
02B7 752789 619 MOV SEND_BYTE,#089H
02BA 752B11 620 MOV Next_Step,#11H
621
02BD 41E9 622 AJMP POC_SEND_RET
623
02BF 624 Poc_Step17:
02BF 7527C1 625 MOV SEND_BYTE,#0C1H
02C2 752B12 626 MOV Next_Step,#12H
627
02C5 41E9 628 AJMP POC_SEND_RET
629
02C7 630 Poc_Step18:
02C7 752797 631 MOV SEND_BYTE,#097H
02CA 752B13 632 MOV Next_Step,#13H
633
02CD 41E9 634 AJMP POC_SEND_RET
635
02CF 636 Poc_Step19:
02CF 00 637 NOP
638
02D0 752B00 639 MOV Next_Step,#00H
02D3 C287 640 CLR SEND_PTT ; SEND_END
02D5 C200 641 CLR SYS_STATUS.0
642
02D7 D0E0 643 POP ACC
02D9 A8E0 644 MOV R0,ACC
02DB D082 645 POP DPL
02DD D083 646 POP DPH
02DF D0D0 647 POP PSW
02E1 D0E0 648 POP ACC
02E3 C2A9 649 CLR ET0
02E5 32 650 RETI
651
02E6 00 652 NOP
A51 MACRO ASSEMBLER P762 30/11/00 21:46:04 PAGE 11
02E7 00 653 NOP
02E8 00 654 NOP
655
02E9 656 POC_SEND_RET:
02E9 D0E0 657 POP ACC
02EB A8E0 658 MOV R0,ACC
02ED D082 659 POP DPL
02EF D083 660 POP DPH
02F1 D0D0 661 POP PSW
02F3 D0E0 662 POP ACC
02F5 D2A9 663 SETB ET0
02F7 32 664 RETI
665
666 ;*********************************************************************
667 ; Build Pocsag coding programe
668 ;
669 ; Input : ACC Start POC_POINTER , 3 BYTES = 20 BIT
670 ; C C=0 Address
671 ; C=1 Information
672 ;
673 ; Output : Start POC_POINTER , 4 BYTE 32 BIT
674 ;
675 ; MACHINE CYCLES ( LCALL ): MAX = 549 , MIN = 377
676 ; AFFECTED : R1 - R5 , PSW , ACC
677 ; STACK : 2
678 ;*********************************************************************
02F8 679 POCSAG_BUILD:
02F8 F9 680 MOV R1,A
02F9 7A15 681 MOV R2,#15H ; TOTAL NEED MOVE 21 BIT
682
02FB E7 683 MOV A,@R1 ; POCSAG 1ST BYTE
02FC 13 684 RRC A
02FD FB 685 MOV R3,A
02FE F7 686 MOV @R1,A
687
02FF 09 688 INC R1 ; POCSAG 2ND BYTE
0300 E7 689 MOV A,@R1
0301 13 690 RRC A
0302 FC 691 MOV R4,A
0303 F7 692 MOV @R1,A
693
0304 09 694 INC R1 ; POCSAG 3RD BYTE
0305 E7 695 MOV A,@R1
0306 54F0 696 ANL A,#0F0H
0308 13 697 RRC A
0309 FD 698 MOV R5,A
030A F7 699 MOV @R1,A
700
030B 09 701 INC R1 ; POCSAG 4TH BYTE
702
030C 703 MOVE_CONT:
030C 8BE0 704 MOV ACC,R3
030E 30E708 705 JNB ACC.7,MOVE_CONT1
706
0311 EB 707 MOV A,R3
0312 64ED 708 XRL A,#0EDH
0314 FB 709 MOV R3,A
0315 EC 710 MOV A,R4
0316 6420 711 XRL A,#020H
0318 FC 712 MOV R4,A
713
0319 714 MOVE_CONT1:
0319 C3 715 CLR C
031A ED 716 MOV A,R5
031B 33 717 RLC A
031C FD 718 MOV R5,A
A51 MACRO ASSEMBLER P762 30/11/00 21:46:04 PAGE 12
719
031D EC 720 MOV A,R4
031E 33 721 RLC A
031F FC 722 MOV R4,A
723
0320 EB 724 MOV A,R3
0321 33 725 RLC A
0322 FB 726 MOV R3,A
727
0323 DAE7 728 DJNZ R2,MOVE_CONT
729
0325 730 MOVE_END:
0325 EB 731 MOV A,R3
0326 13 732 RRC A
0327 FB 733 MOV R3,A
734
0328 EC 735 MOV A,R4
0329 13 736 RRC A
032A C4 737 SWAP A
032B 540E 738 ANL A,#0EH
032D FC 739 MOV R4,A
740
032E EB 741 MOV A,R3
032F C4 742 SWAP A
0330 54F0 743 ANL A,#0F0H
0332 4C 744 ORL A,R4
0333 C3 745 CLR C
0334 13 746 RRC A
0335 F7 747 MOV @R1,A
748
0336 19 749 DEC R1 ; POCSAG 3TH BYTE
0337 EB 750 MOV A,R3
0338 C4 751 SWAP A
0339 5407 752 ANL A,#07H
033B 47 753 ORL A,@R1
033C F7 754 MOV @R1,A
755
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -