des.lst
来自「51系列计算DES的方法之一.....,很小的测试程序....」· LST 代码 · 共 896 行 · 第 1/5 页
LST
896 行
692
693
0309 120000 F 694 MacErr: Call GErrCrypt ;Invalid MAC
030C 00 695 DB R2MAC
696
030D 7402 697 VecExist: Mov A, #2
698 ; MovC A, @A+Dptr ;Acc := KeyType
030F 120000 F 699 lcall GetKey
0312 13 700 Rrc A ;Carry := InitialVectorExistance
0313 7401 701 Mov A, #1
702 ; MovC A, @A+Dptr ;Acc := HeaderLength
0315 120000 F 703 lcall GetKey
704 ; MovC A, @A+Dptr ;Acc := EntryCount
0318 120000 F 705 lcall GetKey
031B 14 706 Dec A
031C 7001 707 Jnz $+3 ;EntryCount > 1 ?
031E C3 708 Clr C ;EntryCount == 1 => C := 0
031F 7B08 709 Mov R3, #8
0321 22 710 Ret
711
0322 D083 712 GErrCrypt: Pop DPh
0324 D082 713 Pop DPl
0326 E4 714 Clr A
0327 93 715 MovC A,@A+DPtr
0328 22 716 ret
717
0329 C083 718 GetKey: Push DPH
A51 MACRO ASSEMBLER DES 09/18/2002 08:53:03 PAGE 12
032B C082 719 Push DPL
032D 2582 720 Add A, DPL
032F F582 721 Mov DPL, A
0331 E583 722 Mov A, DPH
0333 3400 723 Addc A, #0h
0335 F583 724 Mov DPH, A
0337 E0 725 MovX A, @Dptr ;Acc := ith byte of DES-Key
0338 D082 726 Pop DPL
033A D083 727 Pop DPH
033C 22 728 ret
729
730
033D 731 SBoxes: ;BoxNr.: 2,1 4,3 6,5 8,7
033D F7E534B2 732 DB 0F7h,0E5h,034h,0B2h
0341 025B92E8 733 DB 002h,05Bh,092h,0E8h
0345 9C88015C 734 DB 09Ch,088h,001h,05Ch
0349 AFFDEF05 735 DB 0AFh,0FDh,0EFh,005h
034D 64069E6F 736 DB 064h,006h,09Eh,06Fh
0351 5B314593 737 DB 05Bh,031h,045h,093h
0355 3ADD7BAA 738 DB 03Ah,0DDh,07Bh,0AAh
0359 9CAA86F0 739 DB 09Ch,0AAh,086h,0F0h
035D 1B795214 740 DB 01Bh,079h,052h,014h
0361 E792F82D 741 DB 0E7h,092h,0F8h,02Dh
0365 4613CCC9 742 DB 046h,013h,0CCh,0C9h
0369 39C42356 743 DB 039h,0C4h,023h,056h
036D CD9F6DD1 744 DB 0CDh,09Fh,06Dh,0D1h
0371 B4EC3E7E 745 DB 0B4h,0ECh,03Eh,07Eh
0375 A024A736 746 DB 0A0h,024h,0A7h,036h
0379 4A17D0A9 747 DB 04Ah,017h,0D0h,0A9h
037D 82B0834D 748 DB 082h,0B0h,083h,04Dh
0381 786674D2 749 DB 078h,066h,074h,0D2h
0385 E54BBA93 750 DB 0E5h,04Bh,0BAh,093h
0389 1388096F 751 DB 013h,088h,009h,06Fh
038D DF6C45F0 752 DB 0DFh,06Ch,045h,0F0h
0391 26DF1B3C 753 DB 026h,0DFh,01Bh,03Ch
0395 0932E005 754 DB 009h,032h,0E0h,005h
0399 C545BCCA 755 DB 0C5h,045h,0BCh,0CAh
039D 78C7F827 756 DB 078h,0C7h,0F8h,027h
03A1 D109AD8B 757 DB 0D1h,009h,0ADh,08Bh
03A5 B3AE2F7E 758 DB 0B3h,0AEh,02Fh,07Eh
03A9 6E735AB1 759 DB 06Eh,073h,05Ah,0B1h
03AD 215A168B 760 DB 021h,05Ah,016h,08Bh
03B1 8DB0C147 761 DB 08Dh,0B0h,0C1h,047h
03B5 5EF1D9E8 762 DB 05Eh,0F1h,0D9h,0E8h
03B9 F02E6714 763 DB 0F0h,02Eh,067h,014h
03BD C0BB578B 764 DB 0C0h,0BBh,057h,08Bh
03C1 BFC82D46 765 DB 0BFh,0C8h,02Dh,046h
03C5 35246A37 766 DB 035h,024h,06Ah,037h
03C9 DA92D6F9 767 DB 0DAh,092h,0D6h,0F9h
03CD F76CE252 768 DB 0F7h,06Ch,0E2h,052h
03D1 C2569828 769 DB 0C2h,056h,098h,028h
03D5 69830C04 770 DB 069h,083h,00Ch,004h
03D9 053D65C7 771 DB 005h,03Dh,065h,0C7h
03DD 2ED024BD 772 DB 02Eh,0D0h,024h,0BDh
03E1 510B437B 773 DB 051h,00Bh,043h,07Bh
03E5 834ABF6A 774 DB 083h,04Ah,0BFh,06Ah
03E9 ECA78090 775 DB 0ECh,0A7h,080h,090h
03ED 1B069BE8 776 DB 01Bh,006h,09Bh,0E8h
03F1 28B1F415 777 DB 028h,0B1h,0F4h,015h
03F5 DC7FC191 778 DB 0DCh,07Fh,0C1h,091h
03F9 76441A6C 779 DB 076h,044h,01Ah,06Ch
03FD BF1EFDF0 780 DB 0BFh,01Eh,0FDh,0F0h
0401 13F5C18D 781 DB 013h,0F5h,0C1h,08Dh
0405 06E180AC 782 DB 006h,0E1h,080h,0ACh
0409 6D2F7F3A 783 DB 06Dh,02Fh,07Fh,03Ah
040D 44F23EC9 784 DB 044h,0F2h,03Eh,0C9h
A51 MACRO ASSEMBLER DES 09/18/2002 08:53:03 PAGE 13
0411 F989A752 785 DB 0F9h,089h,0A7h,052h
0415 9A5DD97F 786 DB 09Ah,05Dh,0D9h,07Fh
0419 A0EA02A4 787 DB 0A0h,0EAh,002h,0A4h
041D E2A9431E 788 DB 0E2h,0A9h,043h,01Eh
0421 84603EE1 789 DB 084h,060h,03Eh,0E1h
0425 5D3775D3 790 DB 05Dh,037h,075h,0D3h
0429 37DCE90F 791 DB 037h,0DCh,0E9h,00Fh
042D 78C5A825 792 DB 078h,0C5h,0A8h,025h
0431 4E1E5BBE 793 DB 04Eh,01Eh,05Bh,0BEh
0435 A1981646 794 DB 0A1h,098h,016h,046h
0439 9B73BCD3 795 DB 09Bh,073h,0BCh,0D3h
796
797 ;********** End of DES ******
798 End
A51 MACRO ASSEMBLER DES 09/18/2002 08:53:03 PAGE 14
SYMBOL TABLE LISTING
------ ----- -------
N A M E T Y P E V A L U E ATTRIBUTES
?ID?XADES. . . . . I SEG 0010H REL=UNIT
ACC. . . . . . . . D ADDR 00E0H A
B. . . . . . . . . D ADDR 00F0H A
BM0. . . . . . . . D ADDR ----- EXT
BM1. . . . . . . . D ADDR ----- EXT
BM2. . . . . . . . D ADDR ----- EXT
BM3. . . . . . . . D ADDR ----- EXT
BM4. . . . . . . . D ADDR ----- EXT
BM5. . . . . . . . D ADDR ----- EXT
BM6. . . . . . . . D ADDR ----- EXT
BM7. . . . . . . . D ADDR ----- EXT
CALCAREA . . . . . I ADDR 0000H R SEG=?ID?XADES
DECODE . . . . . . B ADDR 00E0H.5 A
DECSHIFT2. . . . . C ADDR 01CDH R SEG=DES_PROC
DESACTION. . . . . C ADDR 0092H R SEG=DES_PROC
DESEND . . . . . . C ADDR 02D0H R SEG=DES_PROC
DESGETKEY. . . . . C ADDR 001CH R SEG=DES_PROC
DESLGOK. . . . . . C ADDR 0082H R SEG=DES_PROC
DESMODEOK. . . . . C ADDR 0072H R SEG=DES_PROC
DESRET . . . . . . C ADDR 02EDH R SEG=DES_PROC
DESSAVE. . . . . . C ADDR 008EH R SEG=DES_PROC
DES_ . . . . . . . C ADDR 0010H R SEG=DES_PROC
DES_PROC . . . . . C SEG 043DH REL=UNIT
DPH. . . . . . . . D ADDR 0083H A
DPL. . . . . . . . D ADDR 0082H A
ENCSHIFT2. . . . . C ADDR 0107H R SEG=DES_PROC
EXPXORSBOX . . . . C ADDR 01E7H R SEG=DES_PROC
GERRCRYPT. . . . . C ADDR 0322H R SEG=DES_PROC
GETKEY . . . . . . C ADDR 0329H R SEG=DES_PROC
INITEND. . . . . . C ADDR 00C8H R SEG=DES_PROC
INITEXPAND . . . . C ADDR 01DCH R SEG=DES_PROC
INITPERM . . . . . C ADDR 00A2H R SEG=DES_PROC
INVITPERM. . . . . C ADDR 0291H R SEG=DES_PROC
LENERR . . . . . . C ADDR 0000H A
MAC. . . . . . . . B ADDR 00E0H.4 A
MACERR . . . . . . C ADDR 0309H R SEG=DES_PROC
MODEERR. . . . . . C ADDR 0000H A
NOCBCDEC . . . . . C ADDR 02CDH R SEG=DES_PROC
NOMAC. . . . . . . C ADDR 0303H R SEG=DES_PROC
ONEROUND . . . . . C ADDR 00EFH R SEG=DES_PROC
PADDING. . . . . . C ADDR 00ADH R SEG=DES_PROC
PREOUTPUT. . . . . C ADDR 0276H R SEG=DES_PROC
PSW. . . . . . . . D ADDR 00D0H A
R2MAC. . . . . . . C ADDR 0000H A
ROUNDKEY . . . . . C ADDR 0117H R SEG=DES_PROC
SBOXES . . . . . . C ADDR 033DH R SEG=DES_PROC
SETKEYNXT. . . . . C ADDR 0038H R SEG=DES_PROC
TESTEND. . . . . . C ADDR 02BAH R SEG=DES_PROC
VECEXIST . . . . . C ADDR 030DH R SEG=DES_PROC
_DES . . . . . . . C ADDR 0000H R SEG=DES_PROC
REGISTER BANK(S) USED: 0
ASSEMBLY COMPLETE. 0 WARNING(S), 0 ERROR(S)
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?