📄 des.lst
字号:
0305 7408 688 Mov A, #8
0307 C3 689 Clr C
0308 22 690 Ret ;Normal Termination => Carry == 0 !
691
692
0309 120000 F 693 MacErr: Call GErrCrypt ;Invalid MAC
030C 00 694 DB R2MAC
695
030D 7402 696 VecExist: Mov A, #2
697 ; MovC A, @A+Dptr ;Acc := KeyType
030F 120000 F 698 lcall GetKey
0312 13 699 Rrc A ;Carry := InitialVectorExistance
0313 7401 700 Mov A, #1
701 ; MovC A, @A+Dptr ;Acc := HeaderLength
0315 120000 F 702 lcall GetKey
703 ; MovC A, @A+Dptr ;Acc := EntryCount
0318 120000 F 704 lcall GetKey
031B 14 705 Dec A
031C 7001 706 Jnz $+3 ;EntryCount > 1 ?
031E C3 707 Clr C ;EntryCount == 1 => C := 0
031F 7B08 708 Mov R3, #8
0321 22 709 Ret
710
0322 D083 711 GErrCrypt: Pop DPh
0324 D082 712 Pop DPl
0326 E4 713 Clr A
0327 93 714 MovC A,@A+DPtr
715
0328 C083 716 GetKey: Push DPH
032A C082 717 Push DPL
032C 2582 718 Add A, DPL
A51 MACRO ASSEMBLER DES 09/11/2002 09:44:25 PAGE 12
032E F582 719 Mov DPL, A
0330 E583 720 Mov A, DPH
0332 3400 721 Addc A, #0h
0334 F583 722 Mov DPH, A
0336 E0 723 MovX A, @Dptr ;Acc := ith byte of DES-Key
0337 D082 724 Pop DPL
0339 D083 725 Pop DPH
033B 22 726 ret
727
728
033C 729 SBoxes: ;BoxNr.: 2,1 4,3 6,5 8,7
033C F7E534B2 730 DB 0F7h,0E5h,034h,0B2h
0340 025B92E8 731 DB 002h,05Bh,092h,0E8h
0344 9C88015C 732 DB 09Ch,088h,001h,05Ch
0348 AFFDEF05 733 DB 0AFh,0FDh,0EFh,005h
034C 64069E6F 734 DB 064h,006h,09Eh,06Fh
0350 5B314593 735 DB 05Bh,031h,045h,093h
0354 3ADD7BAA 736 DB 03Ah,0DDh,07Bh,0AAh
0358 9CAA86F0 737 DB 09Ch,0AAh,086h,0F0h
035C 1B795214 738 DB 01Bh,079h,052h,014h
0360 E792F82D 739 DB 0E7h,092h,0F8h,02Dh
0364 4613CCC9 740 DB 046h,013h,0CCh,0C9h
0368 39C42356 741 DB 039h,0C4h,023h,056h
036C CD9F6DD1 742 DB 0CDh,09Fh,06Dh,0D1h
0370 B4EC3E7E 743 DB 0B4h,0ECh,03Eh,07Eh
0374 A024A736 744 DB 0A0h,024h,0A7h,036h
0378 4A17D0A9 745 DB 04Ah,017h,0D0h,0A9h
037C 82B0834D 746 DB 082h,0B0h,083h,04Dh
0380 786674D2 747 DB 078h,066h,074h,0D2h
0384 E54BBA93 748 DB 0E5h,04Bh,0BAh,093h
0388 1388096F 749 DB 013h,088h,009h,06Fh
038C DF6C45F0 750 DB 0DFh,06Ch,045h,0F0h
0390 26DF1B3C 751 DB 026h,0DFh,01Bh,03Ch
0394 0932E005 752 DB 009h,032h,0E0h,005h
0398 C545BCCA 753 DB 0C5h,045h,0BCh,0CAh
039C 78C7F827 754 DB 078h,0C7h,0F8h,027h
03A0 D109AD8B 755 DB 0D1h,009h,0ADh,08Bh
03A4 B3AE2F7E 756 DB 0B3h,0AEh,02Fh,07Eh
03A8 6E735AB1 757 DB 06Eh,073h,05Ah,0B1h
03AC 215A168B 758 DB 021h,05Ah,016h,08Bh
03B0 8DB0C147 759 DB 08Dh,0B0h,0C1h,047h
03B4 5EF1D9E8 760 DB 05Eh,0F1h,0D9h,0E8h
03B8 F02E6714 761 DB 0F0h,02Eh,067h,014h
03BC C0BB578B 762 DB 0C0h,0BBh,057h,08Bh
03C0 BFC82D46 763 DB 0BFh,0C8h,02Dh,046h
03C4 35246A37 764 DB 035h,024h,06Ah,037h
03C8 DA92D6F9 765 DB 0DAh,092h,0D6h,0F9h
03CC F76CE252 766 DB 0F7h,06Ch,0E2h,052h
03D0 C2569828 767 DB 0C2h,056h,098h,028h
03D4 69830C04 768 DB 069h,083h,00Ch,004h
03D8 053D65C7 769 DB 005h,03Dh,065h,0C7h
03DC 2ED024BD 770 DB 02Eh,0D0h,024h,0BDh
03E0 510B437B 771 DB 051h,00Bh,043h,07Bh
03E4 834ABF6A 772 DB 083h,04Ah,0BFh,06Ah
03E8 ECA78090 773 DB 0ECh,0A7h,080h,090h
03EC 1B069BE8 774 DB 01Bh,006h,09Bh,0E8h
03F0 28B1F415 775 DB 028h,0B1h,0F4h,015h
03F4 DC7FC191 776 DB 0DCh,07Fh,0C1h,091h
03F8 76441A6C 777 DB 076h,044h,01Ah,06Ch
03FC BF1EFDF0 778 DB 0BFh,01Eh,0FDh,0F0h
0400 13F5C18D 779 DB 013h,0F5h,0C1h,08Dh
0404 06E180AC 780 DB 006h,0E1h,080h,0ACh
0408 6D2F7F3A 781 DB 06Dh,02Fh,07Fh,03Ah
040C 44F23EC9 782 DB 044h,0F2h,03Eh,0C9h
0410 F989A752 783 DB 0F9h,089h,0A7h,052h
0414 9A5DD97F 784 DB 09Ah,05Dh,0D9h,07Fh
A51 MACRO ASSEMBLER DES 09/11/2002 09:44:25 PAGE 13
0418 A0EA02A4 785 DB 0A0h,0EAh,002h,0A4h
041C E2A9431E 786 DB 0E2h,0A9h,043h,01Eh
0420 84603EE1 787 DB 084h,060h,03Eh,0E1h
0424 5D3775D3 788 DB 05Dh,037h,075h,0D3h
0428 37DCE90F 789 DB 037h,0DCh,0E9h,00Fh
042C 78C5A825 790 DB 078h,0C5h,0A8h,025h
0430 4E1E5BBE 791 DB 04Eh,01Eh,05Bh,0BEh
0434 A1981646 792 DB 0A1h,098h,016h,046h
0438 9B73BCD3 793 DB 09Bh,073h,0BCh,0D3h
794
795 ;********** End of DES ******
796 End
A51 MACRO ASSEMBLER DES 09/11/2002 09:44:25 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 043CH 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 0328H 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 033CH 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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -