Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape25b_acorn_eu_1991_july.wav » InitDES

InitDES

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape25b_acorn_eu_1991_july.wav
Filename: InitDES
Read OK:
File size: 26A6 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM Data Encryption Standard
   20REM Machine code
   30REM By C.Dunkley 1990/91
   40:
   50MODE7
   60IFPAGE<>&2300 THENPAGE=&2300:CHAIN"INITDES"
   70P%=&1900
   80:
   90PRINTSPC(8)"DATA ENCRYPTION STANDARD"
  100PRINT'SPC(8)"By C.Dunkley  (Dec 1990)"
  110PRINT'STRING$(40,"-");
  120PRINT'"Initialising look-up tables"
  130PROCsetup_lookup_tables 
  140PRINT'"Assembling"
  150PROCassemble
  160PRINT'"Checking algorithm"
  170PROCcheck
  180PRINT'"Saving machine code"
  190*SAVE DES_MC 1900+9D0
  200PRINT'STRING$(40,"-"); 
  210PRINT'"Successfully, assembled DES_MC program."
  220PRINT'"Key = &";~initkey;"  Plain/cipher text = &";~inittext
  230PRINT"MC Loaded at &1900"
  240PRINT"Ensure page is set to &2300"
  250PRINT"Call &";~des;" to encrypt text"
  260PRINT"Call &";~ddes;" to decipher text"
  270END
  280REM *********
  290:
  300DEFPROCcheck
  310text$="12345678"
  320$initkey="12345678"
  330$inittext=text$
  340CALLdes
  350CALLddes
  360IFtext$<>$inittext THEN PRINT'"First check failed":END
  370text$=CHR$0+CHR$0+CHR$0+CHR$0+CHR$0+CHR$0+CHR$0+CHR$0
  380key$=text$
  390$initkey=key$
  400$inittext=text$
  410CALLdes
  420text$=CHR$140+CHR$166+CHR$77+CHR$233+CHR$193+CHR$177+CHR$35+CHR$167
  430IFtext$<>$inittext THEN PRINT'"Second check failed":END
  440ENDPROC
  450REM *********
  460:
  470DEFPROCassemble
  480R%=P%
  490FORN%=0TO2STEP2
  500P%=R%
  510[OPTN%
  520.copy
  530LDA(&70),Y:STA(&72),Y:DEY:BNEcopy:RTS
  540.transpose
  550LDA(&74),Y:STY&7F:TAY:LDA(&72),Y:LDY&7F:STA(&70),Y:DEY:BNEtranspose:RTS
  560.eor
  570LDA(&76),Y:EOR(&78),Y:STA(&7A),Y:DEY:BNEeor:RTS
  580.rotateleft
  590LDA#key% MOD256:STA&70
  600LDA#key% DIV256:STA&71
  610LDA#(key%+1) MOD256:STA&72
  620LDA#(key%+1) DIV256:STA&73
  630LDA#rotate1% MOD256:STA&74
  640LDA#rotate1% DIV256:STA&75
  650LDY&7E
  660LDA(&74),Y:TAX
  670.loop0
  680LDY#1:LDA(&70),Y:STA&7F
  690LDY#29:LDA(&70),Y:STA&80
  700LDY#1
  710.loop1
  720LDA(&72),Y:STA(&70),Y:INY:CPY#56:BNEloop1
  730LDY#28:LDA&7F:STA(&70),Y
  740LDY#56:LDA&80:STA(&70),Y
  750DEX
  760BNEloop0
  770RTS
  780.rotateright
  790LDA#key% MOD256:STA&70
  800LDA#key% DIV256:STA&71
  810LDA#(key%-1) MOD256:STA&72
  820LDA#(key%-1) DIV256:STA&73
  830LDA#rotate2% MOD256:STA&74
  840LDA#rotate2% DIV256:STA&75
  850LDY&7E
  860LDA(&74),Y:TAX:BNEloop00:RTS
  870.loop00
  880LDY#28:LDA(&70),Y:STA&7F
  890LDY#56:LDA(&70),Y:STA&80
  900LDY#56
  910.loop11
  920LDA(&72),Y:STA(&70),Y:DEY:CPY#1:BNEloop11
  930LDY#1:LDA&7F:STA(&70),Y
  940LDY#29:LDA&80:STA(&70),Y
  950DEX
  960BNEloop00
  970RTS
  980.reduce
  990LDA#(s_box%-64) MOD256:STA&74
 1000LDA#(s_box%-64) DIV256:STA&75
 1010LDX#8:STA&80
 1020.loop2
 1030LDA#6:CLC:ADC&70:STA&70:LDA#0:ADC&71:STA&71
 1040LDA#4:CLC:ADC&72:STA&72:LDA#0:ADC&73:STA&73
 1050LDA#64:CLC:ADC&74:STA&74:LDA#0:ADC&75:STA&75
 1060LDA#0:STA&7F
 1070       LDY#1:LDA(&70),Y:BEQnot32:LDA#32:STA&7F
 1080.not32 LDY#6:LDA(&70),Y:BEQnot16:LDA#16:CLC:ADC&7F:STA&7F
 1090.not16 LDY#2:LDA(&70),Y:BEQnot8 :LDA#8:CLC:ADC&7F:STA&7F
 1100.not8  LDY#3:LDA(&70),Y:BEQnot4 :LDA#4:CLC:ADC&7F:STA&7F
 1110.not4  LDY#4:LDA(&70),Y:BEQnot2 :INC&7F:INC&7F
 1120.not2  LDY#5:LDA(&70),Y:BEQnot1 :INC&7F
 1130.not1  LDY&7F:INY
 1140LDA(&74),Y:STA&7F
 1150                            LDY#1:LDX#0 :AND#8:BEQnbit8:LDX#1
 1160.nbit8 TXA:STA(&72),Y:LDX#0:LDY#2:LDA&7F:AND#4:BEQnbit4:LDX#1
 1170.nbit4 TXA:STA(&72),Y:LDX#0:LDY#3:LDA&7F:AND#2:BEQnbit2:LDX#1
 1180.nbit2 TXA:STA(&72),Y:LDX#0:LDY#4:LDA&7F:AND#1:BEQnbit1:LDX#1
 1190.nbit1 TXA:STA(&72),Y
 1200DEC&80:LDA&80:BEQfini:JMPloop2:.fini RTS
 1210.expand_text
 1220LDA#1:STA&80:LDA#0:STA&7F
 1230.loop6
 1240LDY&7F:INC&7F:LDA(&70),Y
 1250LDY&80
 1260                         LDX#0:STA&7E:AND#128:BEQn128:LDX#1
 1270.n128 TXA:STA(&72),Y:INY:LDX#0:LDA&7E:AND#64:BEQn64:LDX#1
 1280.n64  TXA:STA(&72),Y:INY:LDX#0:LDA&7E:AND#32:BEQn32:LDX#1
 1290.n32  TXA:STA(&72),Y:INY:LDX#0:LDA&7E:AND#16:BEQn16:LDX#1
 1300.n16  TXA:STA(&72),Y:INY:LDX#0:LDA&7E:AND#8 :BEQn8 :LDX#1
 1310.n8   TXA:STA(&72),Y:INY:LDX#0:LDA&7E:AND#4 :BEQn4 :LDX#1
 1320.n4   TXA:STA(&72),Y:INY:LDX#0:LDA&7E:AND#2 :BEQn2 :LDX#1
 1330.n2   TXA:STA(&72),Y:INY:LDX#0:LDA&7E:AND#1 :BEQn1 :LDX#1
 1340.n1   TXA:STA(&72),Y:INY:STY&80
 1350LDA&7F:CMP#8:BNEloop6:RTS
 1360.shrink_text
 1370LDX#0:LDY#1:STY&80
 1380.loop7
 1390LDA#0:STA&7F
 1400LDY&80
 1410LDA(&70),Y:BEQnn128:LDA#128:STA&7F
 1420.nn128 INY:LDA(&70),Y:BEQnn64:LDA#64:CLC:ADC&7F:STA&7F
 1430.nn64  INY:LDA(&70),Y:BEQnn32:LDA#32:CLC:ADC&7F:STA&7F
 1440.nn32  INY:LDA(&70),Y:BEQnn16:LDA#16:CLC:ADC&7F:STA&7F
 1450.nn16  INY:LDA(&70),Y:BEQnn8 :LDA#8 :CLC:ADC&7F:STA&7F
 1460.nn8   INY:LDA(&70),Y:BEQnn4 :LDA#4 :CLC:ADC&7F:STA&7F
 1470.nn4   INY:LDA(&70),Y:BEQnn2 :INC&7F:INC&7F
 1480.nn2   INY:LDA(&70),Y:BEQnn1 :INC&7F
 1490.nn1   INY
 1500STY&80
 1510TXA:TAY:LDA&7F:STA(&72),Y
 1520INX:CPX#8:BNEloop7
 1530RTS
 1540\**** main loop
 1550.initkey EQUD0:EQUD0:EQUB0
 1560.inittext EQUD0:EQUD0:EQUB0
 1570.ddes
 1580LDA#1:STA&81
 1590JMPstart
 1600.des
 1610LDA#0:STA&81
 1620.start
 1630OPT FNexpand_text(initkey,key%)
 1640OPT FNexpand_text(inittext,text%)
 1650OPT FNtranspose(key%,64,key_trans1%,56)
 1660OPT FNtranspose(text%,64,init_trans%,64)
 1670LDA#1:STA&7E
 1680.main
 1690  OPT FNcopy(text%,b%,64)
 1700  OPT FNcopy(text%+32,text%,32)
 1710  OPT FNcopy(text%,e%,64)
 1720  OPT FNtranspose(e%,64,bst%,48)
 1730  LDA&81:BNEnotleft:JSRrotateleft:JMPcont1
 1740  .notleft JSRrotateright 
 1750  .cont1
 1760  OPT FNcopy(key%,ikey%,56)
 1770  OPT FNtranspose(ikey%,56,key_trans2%,48)
 1780  OPT FNeor(e%,ikey%,48,y%)
 1790  OPT FNreduce(y%,x%)
 1800  OPT FNtranspose(x%,32,perm%,32)
 1810  OPT FNeor(b%,x%,32,text%+32)
 1820INC&7E:LDA&7E:CMP#17:BEQend_des:JMPmain:.end_des
 1830OPT FNtranspose(text%,64,swap%,64)
 1840OPT FNtranspose(text%,64,final_trans%,64) 
 1850OPT FNshrink_text(text%,inittext)
 1860RTS
 1870]NEXT
 1880ENDPROC
 1890REM *********
 1900:
 1910DEFFNreduce(source%,destination%)
 1920[OPTN%
 1930LDA#(source%-6) MOD256:STA&70
 1940LDA#(source%-6) DIV256:STA&71
 1950LDA#(destination%-4) MOD256:STA&72
 1960LDA#(destination%-4) DIV256:STA&73
 1970JSRreduce
 1980]:=N%
 1990ENDPROC
 2000REM *********
 2010:
 2020DEFFNeor(source1%,source2%,size%,destination%)
 2030[OPTN%
 2040LDA#source1% MOD256:STA&76
 2050LDA#source1% DIV256:STA&77
 2060LDA#source2% MOD256:STA&78
 2070LDA#source2% DIV256:STA&79
 2080LDA#destination% MOD256:STA&7A
 2090LDA#destination% DIV256:STA&7B
 2100LDY#size%
 2110JSReor
 2120]:=N%
 2130ENDPROC
 2140REM *********
 2150:
 2160DEFFNcopy(source%,destination%,size%)
 2170[OPTN%
 2180LDA#source% MOD256:STA&70
 2190LDA#source% DIV256:STA&71
 2200LDA#destination% MOD256:STA&72
 2210LDA#destination% DIV256:STA&73
 2220LDY#size%
 2230JSRcopy
 2240]:=N%
 2250ENDPROC
 2260REM *********
 2270:
 2280DEFFNtranspose(source%,old_length%,table%,new_length%)
 2290[OPTN%
 2300OPT FNcopy(source%,data%,old_length%)
 2310LDA#table% MOD256:STA&74
 2320LDA#table% DIV256:STA&75
 2330LDY#new_length%
 2340JSRtranspose
 2350]:=N%
 2360ENDPROC
 2370REM *********
 2380:
 2390DEFPROCsetup_lookup_tables
 2400RESTORE
 2410init_trans% =FNload-1
 2420final_trans%=FNload-1
 2430swap%       =FNload-1
 2440key_trans1% =FNload-1
 2450key_trans2% =FNload-1
 2460bst%        =FNload-1
 2470perm%       =FNload-1
 2480s_box%      =FNload-1
 2490FOR loop0%=1 TO 7
 2500  dummy%=FNload-1
 2510NEXT
 2520rotate1%     =FNload-1
 2530rotate2%    =FNload-1
 2540data%=P%-1
 2550P%=P%+64
 2560key%=P%-1
 2570P%=P%+64
 2580text%=P%-1
 2590P%=P%+64
 2600e%=P%-1
 2610P%=P%+64
 2620b%=P%-1
 2630P%=P%+64
 2640x%=P%-1
 2650P%=P%+32
 2660ikey%=P%-1
 2670P%=P%+56
 2680y%=P%-1
 2690P%=P%+48
 2700ENDPROC
 2710REM *********
 2720:
 2730DEFFNload
 2740Q%=P%
 2750FOR loop1%=1 TO 2
 2760V%=0
 2770  READ string$
 2780  FOR loop2%=1 TO LEN(string$) STEP2
 2790    ?P%=VAL(MID$(string$,loop2%,2))
 2800    V%=V%+?P%
 2810    P%=P%+1
 2820  NEXT
 2830READC%
 2840IFC%<>V% THEN PRINT'"Check sum error,"'"in : ";string$;:END
 2850NEXT
 2860=Q%
 2870REM *********
 2880:
 2890DEFFNexpand_text(source%,destination%)
 2900[OPTN%
 2910LDA#source% MOD256:STA&70
 2920LDA#source% DIV256:STA&71
 2930LDA#destination% MOD256:STA&72
 2940LDA#destination% DIV256:STA&73
 2950JSRexpand_text
 2960]:=N%
 2970ENDPROC
 2980REM *********
 2990:
 3000DEFFNshrink_text(source%,destination%)
 3010[OPTN%
 3020LDA#source% MOD256:STA&70
 3030LDA#source% DIV256:STA&71
 3040LDA#destination% MOD256:STA&72
 3050LDA#destination% DIV256:STA&73
 3060JSRshrink_text
 3070]:=N%
 3080REM *********
 3090:
 3100REM initial transposition
 3110DATA 5850423426181002605244362820120462544638302214066456484032241608,1056
 3120DATA 5749413325170901595143352719110361534537292113056355473931231507,1024
 3130:
 3140REM final transposition
 3150DATA 4008481656246432390747155523633138064614542262303705451353216129,1104
 3160DATA 3604441252206028350343115119592734024210501858263301410949175725,976
 3170:
 3180REM swap
 3190DATA 3334353637383940414243444546474849505152535455565758596061626364,1552
 3200DATA 0102030405060708091011121314151617181920212223242526272829303132,528
 3210:
 3220REM key transposition 1
 3230DATA 57494133251709015850423426181002595143352719110360524436,912
 3240DATA 63554739312315076254463830221406615345372921130528201204,880
 3250:
 3260REM key transposition 2
 3270DATA 141711240105032815062110231912042608160727201302,332
 3280DATA 415231374755304051453348444939563453464250362932,1020
 3290:
 3300REM bit selection table
 3310DATA 320102030405040506070809080910111213121314151617,236
 3320DATA 161718192021202122232425242526272829282930313201,556
 3330:
 3340REM permutation table
 3350DATA 16072021291228170115232605183110,279
 3360DATA 02082414322703091913300622110425,249
 3370:
 3380REM S boxes, 1 to 8
 3390DATA 1404130102151108031006120509000700150704140213011006121109050308,240
 3400DATA 0401140813060211151209070310050015120802040901070511031410000613,240
 3410:
 3420DATA 1501081406110304090702131200051003130407150208141200011006091105,240
 3430DATA 0014071110041301050812060903021513081001031504021106071200051409,240
 3440:
 3450DATA 1000091406031505011312071104020813070009030406100208051412111501,240
 3460DATA 1306040908150300110102120510140701101300060908070415140311050212,240
 3470:
 3480DATA 0713140300060910010208051112041513081105061500030407021201101409,240
 3490DATA 1006090012110713150103140502080403150006100113080904051112070214,240
 3500:
 3510DATA 0212040107101106080503151300140914110212040713010500151003090806,240
 3520DATA 0402011110130708150912050603001411081207011402130615000910040503,240
 3530:
 3540DATA 1201101509020608001303041407051110150402071209050601131400110308,240
 3550DATA 0914150502081203070004100113110604030212090515101114010706000813,240
 3560:
 3570DATA 0411021415000813031209070510060113001107040901101403051202150806,240
 3580DATA 0104111312030714101506080005090206111308010410070905001514020312,240
 3590:
 3600DATA 1302080406151101100903140500120701151308100307041205061100140902,240
 3610DATA 0711040109121402000610131503050802011407041008131512090003050611,240
 3620:
 3630REM rotate left
 3640DATA 0101020202020202,14
 3650DATA 0102020202020201,14
 3660:
 3670REM rotate right
 3680DATA 0001020202020202,13
 3690DATA 0102020202020201,14

� Data Encryption Standard
� Machine code
� By C.Dunkley 1990/91
(:
2�7
<!�<>&2300 ��=&2300:�"INITDES"
FP%=&1900
P:
Z#�(8)"DATA ENCRYPTION STANDARD"
d$�'�(8)"By C.Dunkley  (Dec 1990)"
n�'�40,"-");
x#�'"Initialising look-up tables"
��setup_lookup_tables 
��'"Assembling"
�
�assemble
��'"Checking algorithm"
�
�check
��'"Saving machine code"
�*SAVE DES_MC 1900+9D0
��'�40,"-"); 
�/�'"Successfully, assembled DES_MC program."
�<�'"Key = &";~initkey;"  Plain/cipher text = &";~inittext
��"MC Loaded at &1900"
�"�"Ensure page is set to &2300"
�%�"Call &";~des;" to encrypt text"
'�"Call &";~ddes;" to decipher text"
�
� *********
":
,��check
6text$="12345678"
@$initkey="12345678"
J$inittext=text$
T�des
^	�ddes
h0�text$<>$inittext � �'"First check failed":�
r!text$=�0+�0+�0+�0+�0+�0+�0+�0
|key$=text$
�$initkey=key$
�$inittext=text$
��des
�/text$=�140+�166+�77+�233+�193+�177+�35+�167
�1�text$<>$inittext � �'"Second check failed":�
��
�� *********
�:
���assemble
�	R%=P%
�
�N%=0�2�2
�	P%=R%
�
[OPTN%
	.copy
)LDA(&70),Y:STA(&72),Y:DEY:BNEcopy:RTS
.transpose
&KLDA(&74),Y:STY&7F:TAY:LDA(&72),Y:LDY&7F:STA(&70),Y:DEY:BNEtranspose:RTS
0.eor
:1LDA(&76),Y:�(&78),Y:STA(&7A),Y:DEY:BNEeor:RTS
D.rotateleft
NLDA#key% �256:STA&70
XLDA#key% �256:STA&71
bLDA#(key%+1) �256:STA&72
lLDA#(key%+1) �256:STA&73
vLDA#rotate1% �256:STA&74
�LDA#rotate1% �256:STA&75
�
LDY&7E
�LDA(&74),Y:TAX
�
.loop0
�LDY#1:LDA(&70),Y:STA&7F
�LDY#29:LDA(&70),Y:STA&80
�	LDY#1
�
.loop1
�-LDA(&72),Y:STA(&70),Y:INY:CPY#56:BNEloop1
�LDY#28:LDA&7F:STA(&70),Y
�LDY#56:LDA&80:STA(&70),Y
�DEX
�BNEloop0
RTS
.rotateright
LDA#key% �256:STA&70
 LDA#key% �256:STA&71
*LDA#(key%-1) �256:STA&72
4LDA#(key%-1) �256:STA&73
>LDA#rotate2% �256:STA&74
HLDA#rotate2% �256:STA&75
R
LDY&7E
\ LDA(&74),Y:TAX:BNEloop00:RTS
f.loop00
pLDY#28:LDA(&70),Y:STA&7F
zLDY#56:LDA(&70),Y:STA&80
�
LDY#56
�.loop11
�-LDA(&72),Y:STA(&70),Y:DEY:CPY#1:BNEloop11
�LDY#1:LDA&7F:STA(&70),Y
�LDY#29:LDA&80:STA(&70),Y
�DEX
�
BNEloop00
�RTS
�.reduce
�LDA#(s_box%-64) �256:STA&74
�LDA#(s_box%-64) �256:STA&75
�LDX#8:STA&80
�
.loop2
/LDA#6:CLC:ADC&70:STA&70:LDA#0:ADC&71:STA&71
/LDA#4:CLC:ADC&72:STA&72:LDA#0:ADC&73:STA&73
0LDA#64:CLC:ADC&74:STA&74:LDA#0:ADC&75:STA&75
$LDA#0:STA&7F
.2       LDY#1:LDA(&70),Y:BEQnot32:LDA#32:STA&7F
8=.not32 LDY#6:LDA(&70),Y:BEQnot16:LDA#16:CLC:ADC&7F:STA&7F
B<.not16 LDY#2:LDA(&70),Y:BEQnot8 :LDA#8:CLC:ADC&7F:STA&7F
L<.not8  LDY#3:LDA(&70),Y:BEQnot4 :LDA#4:CLC:ADC&7F:STA&7F
V2.not4  LDY#4:LDA(&70),Y:BEQnot2 :INC&7F:INC&7F
`+.not2  LDY#5:LDA(&70),Y:BEQnot1 :INC&7F
j.not1  LDY&7F:INY
tLDA(&74),Y:STA&7F
~?                            LDY#1:LDX#0 :�#8:BEQnbit8:LDX#1
�?.nbit8 TXA:STA(&72),Y:LDX#0:LDY#2:LDA&7F:�#4:BEQnbit4:LDX#1
�?.nbit4 TXA:STA(&72),Y:LDX#0:LDY#3:LDA&7F:�#2:BEQnbit2:LDX#1
�?.nbit2 TXA:STA(&72),Y:LDX#0:LDY#4:LDA&7F:�#1:BEQnbit1:LDX#1
�.nbit1 TXA:STA(&72),Y
�,DEC&80:LDA&80:BEQfini:JMPloop2:.fini RTS
�.expand_text
�LDA#1:STA&80:LDA#0:STA&7F
�
.loop6
�LDY&7F:INC&7F:LDA(&70),Y
�
LDY&80
�=                         LDX#0:STA&7E:�#128:BEQn128:LDX#1
�;.n128 TXA:STA(&72),Y:INY:LDX#0:LDA&7E:�#64:BEQn64:LDX#1
;.n64  TXA:STA(&72),Y:INY:LDX#0:LDA&7E:�#32:BEQn32:LDX#1

;.n32  TXA:STA(&72),Y:INY:LDX#0:LDA&7E:�#16:BEQn16:LDX#1
;.n16  TXA:STA(&72),Y:INY:LDX#0:LDA&7E:�#8 :BEQn8 :LDX#1
;.n8   TXA:STA(&72),Y:INY:LDX#0:LDA&7E:�#4 :BEQn4 :LDX#1
(;.n4   TXA:STA(&72),Y:INY:LDX#0:LDA&7E:�#2 :BEQn2 :LDX#1
2;.n2   TXA:STA(&72),Y:INY:LDX#0:LDA&7E:�#1 :BEQn1 :LDX#1
<#.n1   TXA:STA(&72),Y:INY:STY&80
FLDA&7F:CMP#8:BNEloop6:RTS
P.shrink_text
ZLDX#0:LDY#1:STY&80
d
.loop7
nLDA#0:STA&7F
x
LDY&80
�&LDA(&70),Y:BEQnn128:LDA#128:STA&7F
�:.nn128 INY:LDA(&70),Y:BEQnn64:LDA#64:CLC:ADC&7F:STA&7F
�:.nn64  INY:LDA(&70),Y:BEQnn32:LDA#32:CLC:ADC&7F:STA&7F
�:.nn32  INY:LDA(&70),Y:BEQnn16:LDA#16:CLC:ADC&7F:STA&7F
�:.nn16  INY:LDA(&70),Y:BEQnn8 :LDA#8 :CLC:ADC&7F:STA&7F
�:.nn8   INY:LDA(&70),Y:BEQnn4 :LDA#4 :CLC:ADC&7F:STA&7F
�/.nn4   INY:LDA(&70),Y:BEQnn2 :INC&7F:INC&7F
�(.nn2   INY:LDA(&70),Y:BEQnn1 :INC&7F
�.nn1   INY
�
STY&80
�TXA:TAY:LDA&7F:STA(&72),Y
�INX:CPX#8:BNEloop7
�RTS
\**** main loop
.initkey EQUD0:EQUD0:EQUB0
.inittext EQUD0:EQUD0:EQUB0
"	.ddes
,LDA#1:STA&81
6JMPstart
@.des
JLDA#0:STA&81
T
.start
^"OPT �expand_text(initkey,key%)
h$OPT �expand_text(inittext,text%)
r*OPT �transpose(key%,64,key_trans1%,56)
|+OPT �transpose(text%,64,init_trans%,64)
�LDA#1:STA&7E
�	.main
�  OPT �copy(text%,b%,64)
�"  OPT �copy(text%+32,text%,32)
�  OPT �copy(text%,e%,64)
�#  OPT �transpose(e%,64,bst%,48)
�.  LDA&81:BNEnotleft:JSRrotateleft:JMPcont1
�  .notleft JSRrotateright 
�  .cont1
�  OPT �copy(key%,ikey%,56)
�-  OPT �transpose(ikey%,56,key_trans2%,48)
�  OPT �eor(e%,ikey%,48,y%)
�  OPT �reduce(y%,x%)
$  OPT �transpose(x%,32,perm%,32)
!  OPT �eor(b%,x%,32,text%+32)
4INC&7E:LDA&7E:CMP#17:BEQend_des:JMPmain:.end_des
&%OPT �transpose(text%,64,swap%,64)
0-OPT �transpose(text%,64,final_trans%,64) 
:$OPT �shrink_text(text%,inittext)
DRTS
N]�
X�
b� *********
l:
v"ݤreduce(source%,destination%)
�
[OPTN%
�LDA#(source%-6) �256:STA&70
�LDA#(source%-6) �256:STA&71
�$LDA#(destination%-4) �256:STA&72
�$LDA#(destination%-4) �256:STA&73
�
JSRreduce
�	]:=N%
��
�� *********
�:
�/ݤeor(source1%,source2%,size%,destination%)
�
[OPTN%
�LDA#source1% �256:STA&76
LDA#source1% �256:STA&77
LDA#source2% �256:STA&78
LDA#source2% �256:STA&79
  LDA#destination% �256:STA&7A
* LDA#destination% �256:STA&7B
4
LDY#size%
>
JSReor
H	]:=N%
R�
\� *********
f:
p&ݤcopy(source%,destination%,size%)
z
[OPTN%
�LDA#source% �256:STA&70
�LDA#source% �256:STA&71
� LDA#destination% �256:STA&72
� LDA#destination% �256:STA&73
�
LDY#size%
�JSRcopy
�	]:=N%
��
�� *********
�:
�7ݤtranspose(source%,old_length%,table%,new_length%)
�
[OPTN%
�(OPT �copy(source%,data%,old_length%)
	LDA#table% �256:STA&74
	LDA#table% �256:STA&75
	LDY#new_length%
	$JSRtranspose
	.	]:=N%
	8�
	B� *********
	L:
	V��setup_lookup_tables
	`�
	jinit_trans% =�load-1
	tfinal_trans%=�load-1
	~swap%       =�load-1
	�key_trans1% =�load-1
	�key_trans2% =�load-1
	�bst%        =�load-1
	�perm%       =�load-1
	�s_box%      =�load-1
	�� loop0%=1 � 7
	�  dummy%=�load-1
	��
	�rotate1%     =�load-1
	�rotate2%    =�load-1
	�data%=P%-1
	�P%=P%+64

key%=P%-1

P%=P%+64
text%=P%-1
P%=P%+64
(e%=P%-1
2P%=P%+64
<b%=P%-1
FP%=P%+64
Px%=P%-1
ZP%=P%+32
dikey%=P%-1
nP%=P%+56
xy%=P%-1
�P%=P%+48
��
�� *********
�:
�
ݤload
�	Q%=P%
�� loop1%=1 � 2
�V%=0
�  � string$
�   � loop2%=1 � �(string$) �2
�!    ?P%=�(�string$,loop2%,2))
�    V%=V%+?P%
�    P%=P%+1
  �
�C%
5�C%<>V% � �'"Check sum error,"'"in : ";string$;:�
"�
,=Q%
6� *********
@:
J'ݤexpand_text(source%,destination%)
T
[OPTN%
^LDA#source% �256:STA&70
hLDA#source% �256:STA&71
r LDA#destination% �256:STA&72
| LDA#destination% �256:STA&73
�JSRexpand_text
�	]:=N%
��
�� *********
�:
�'ݤshrink_text(source%,destination%)
�
[OPTN%
�LDA#source% �256:STA&70
�LDA#source% �256:STA&71
� LDA#destination% �256:STA&72
� LDA#destination% �256:STA&73
�JSRshrink_text
�	]:=N%
� *********
:
� initial transposition
&K� 5850423426181002605244362820120462544638302214066456484032241608,1056
0K� 5749413325170901595143352719110361534537292113056355473931231507,1024
::
D� final transposition
NK� 4008481656246432390747155523633138064614542262303705451353216129,1104
XJ� 3604441252206028350343115119592734024210501858263301410949175725,976
b:
l
� swap
vK� 3334353637383940414243444546474849505152535455565758596061626364,1552
�J� 0102030405060708091011121314151617181920212223242526272829303132,528
�:
�� key transposition 1
�B� 57494133251709015850423426181002595143352719110360524436,912
�B� 63554739312315076254463830221406615345372921130528201204,880
�:
�� key transposition 2
�:� 141711240105032815062110231912042608160727201302,332
�;� 415231374755304051453348444939563453464250362932,1020
�:
�� bit selection table
�:� 320102030405040506070809080910111213121314151617,236
�:� 161718192021202122232425242526272829282930313201,556

:

� permutation table

*� 16072021291228170115232605183110,279

 *� 02082414322703091913300622110425,249

*:

4� S boxes, 1 to 8

>J� 1404130102151108031006120509000700150704140213011006121109050308,240

HJ� 0401140813060211151209070310050015120802040901070511031410000613,240

R:

\J� 1501081406110304090702131200051003130407150208141200011006091105,240

fJ� 0014071110041301050812060903021513081001031504021106071200051409,240

p:

zJ� 1000091406031505011312071104020813070009030406100208051412111501,240

�J� 1306040908150300110102120510140701101300060908070415140311050212,240

�:

�J� 0713140300060910010208051112041513081105061500030407021201101409,240

�J� 1006090012110713150103140502080403150006100113080904051112070214,240

�:

�J� 0212040107101106080503151300140914110212040713010500151003090806,240

�J� 0402011110130708150912050603001411081207011402130615000910040503,240

�:

�J� 1201101509020608001303041407051110150402071209050601131400110308,240

�J� 0914150502081203070004100113110604030212090515101114010706000813,240

�:

�J� 0411021415000813031209070510060113001107040901101403051202150806,240

�J� 0104111312030714101506080005090206111308010410070905001514020312,240
:
J� 1302080406151101100903140500120701151308100307041205061100140902,240
J� 0711040109121402000610131503050802011407041008131512090003050611,240
$:
.� rotate left
8� 0101020202020202,14
B� 0102020202020201,14
L:
V� rotate right
`� 0001020202020202,13
j� 0102020202020201,14
�
00000000  0d 00 0a 1e f4 20 44 61  74 61 20 45 6e 63 72 79  |..... Data Encry|
00000010  70 74 69 6f 6e 20 53 74  61 6e 64 61 72 64 0d 00  |ption Standard..|
00000020  14 12 f4 20 4d 61 63 68  69 6e 65 20 63 6f 64 65  |... Machine code|
00000030  0d 00 1e 1a f4 20 42 79  20 43 2e 44 75 6e 6b 6c  |..... By C.Dunkl|
00000040  65 79 20 31 39 39 30 2f  39 31 0d 00 28 05 3a 0d  |ey 1990/91..(.:.|
00000050  00 32 06 eb 37 0d 00 3c  21 e7 90 3c 3e 26 32 33  |.2..7..<!..<>&23|
00000060  30 30 20 8c d0 3d 26 32  33 30 30 3a d7 22 49 4e  |00 ..=&2300:."IN|
00000070  49 54 44 45 53 22 0d 00  46 0c 50 25 3d 26 31 39  |ITDES"..F.P%=&19|
00000080  30 30 0d 00 50 05 3a 0d  00 5a 23 f1 89 28 38 29  |00..P.:..Z#..(8)|
00000090  22 44 41 54 41 20 45 4e  43 52 59 50 54 49 4f 4e  |"DATA ENCRYPTION|
000000a0  20 53 54 41 4e 44 41 52  44 22 0d 00 64 24 f1 27  | STANDARD"..d$.'|
000000b0  89 28 38 29 22 42 79 20  43 2e 44 75 6e 6b 6c 65  |.(8)"By C.Dunkle|
000000c0  79 20 20 28 44 65 63 20  31 39 39 30 29 22 0d 00  |y  (Dec 1990)"..|
000000d0  6e 0f f1 27 c4 34 30 2c  22 2d 22 29 3b 0d 00 78  |n..'.40,"-");..x|
000000e0  23 f1 27 22 49 6e 69 74  69 61 6c 69 73 69 6e 67  |#.'"Initialising|
000000f0  20 6c 6f 6f 6b 2d 75 70  20 74 61 62 6c 65 73 22  | look-up tables"|
00000100  0d 00 82 19 f2 73 65 74  75 70 5f 6c 6f 6f 6b 75  |.....setup_looku|
00000110  70 5f 74 61 62 6c 65 73  20 0d 00 8c 12 f1 27 22  |p_tables .....'"|
00000120  41 73 73 65 6d 62 6c 69  6e 67 22 0d 00 96 0d f2  |Assembling".....|
00000130  61 73 73 65 6d 62 6c 65  0d 00 a0 1a f1 27 22 43  |assemble.....'"C|
00000140  68 65 63 6b 69 6e 67 20  61 6c 67 6f 72 69 74 68  |hecking algorith|
00000150  6d 22 0d 00 aa 0a f2 63  68 65 63 6b 0d 00 b4 1b  |m".....check....|
00000160  f1 27 22 53 61 76 69 6e  67 20 6d 61 63 68 69 6e  |.'"Saving machin|
00000170  65 20 63 6f 64 65 22 0d  00 be 19 2a 53 41 56 45  |e code"....*SAVE|
00000180  20 44 45 53 5f 4d 43 20  31 39 30 30 2b 39 44 30  | DES_MC 1900+9D0|
00000190  0d 00 c8 10 f1 27 c4 34  30 2c 22 2d 22 29 3b 20  |.....'.40,"-"); |
000001a0  0d 00 d2 2f f1 27 22 53  75 63 63 65 73 73 66 75  |.../.'"Successfu|
000001b0  6c 6c 79 2c 20 61 73 73  65 6d 62 6c 65 64 20 44  |lly, assembled D|
000001c0  45 53 5f 4d 43 20 70 72  6f 67 72 61 6d 2e 22 0d  |ES_MC program.".|
000001d0  00 dc 3c f1 27 22 4b 65  79 20 3d 20 26 22 3b 7e  |..<.'"Key = &";~|
000001e0  69 6e 69 74 6b 65 79 3b  22 20 20 50 6c 61 69 6e  |initkey;"  Plain|
000001f0  2f 63 69 70 68 65 72 20  74 65 78 74 20 3d 20 26  |/cipher text = &|
00000200  22 3b 7e 69 6e 69 74 74  65 78 74 0d 00 e6 19 f1  |";~inittext.....|
00000210  22 4d 43 20 4c 6f 61 64  65 64 20 61 74 20 26 31  |"MC Loaded at &1|
00000220  39 30 30 22 0d 00 f0 22  f1 22 45 6e 73 75 72 65  |900"..."."Ensure|
00000230  20 70 61 67 65 20 69 73  20 73 65 74 20 74 6f 20  | page is set to |
00000240  26 32 33 30 30 22 0d 00  fa 25 f1 22 43 61 6c 6c  |&2300"...%."Call|
00000250  20 26 22 3b 7e 64 65 73  3b 22 20 74 6f 20 65 6e  | &";~des;" to en|
00000260  63 72 79 70 74 20 74 65  78 74 22 0d 01 04 27 f1  |crypt text"...'.|
00000270  22 43 61 6c 6c 20 26 22  3b 7e 64 64 65 73 3b 22  |"Call &";~ddes;"|
00000280  20 74 6f 20 64 65 63 69  70 68 65 72 20 74 65 78  | to decipher tex|
00000290  74 22 0d 01 0e 05 e0 0d  01 18 0f f4 20 2a 2a 2a  |t".......... ***|
000002a0  2a 2a 2a 2a 2a 2a 0d 01  22 05 3a 0d 01 2c 0b dd  |******..".:..,..|
000002b0  f2 63 68 65 63 6b 0d 01  36 14 74 65 78 74 24 3d  |.check..6.text$=|
000002c0  22 31 32 33 34 35 36 37  38 22 0d 01 40 17 24 69  |"12345678"..@.$i|
000002d0  6e 69 74 6b 65 79 3d 22  31 32 33 34 35 36 37 38  |nitkey="12345678|
000002e0  22 0d 01 4a 13 24 69 6e  69 74 74 65 78 74 3d 74  |"..J.$inittext=t|
000002f0  65 78 74 24 0d 01 54 08  d6 64 65 73 0d 01 5e 09  |ext$..T..des..^.|
00000300  d6 64 64 65 73 0d 01 68  30 e7 74 65 78 74 24 3c  |.ddes..h0.text$<|
00000310  3e 24 69 6e 69 74 74 65  78 74 20 8c 20 f1 27 22  |>$inittext . .'"|
00000320  46 69 72 73 74 20 63 68  65 63 6b 20 66 61 69 6c  |First check fail|
00000330  65 64 22 3a e0 0d 01 72  21 74 65 78 74 24 3d bd  |ed":...r!text$=.|
00000340  30 2b bd 30 2b bd 30 2b  bd 30 2b bd 30 2b bd 30  |0+.0+.0+.0+.0+.0|
00000350  2b bd 30 2b bd 30 0d 01  7c 0e 6b 65 79 24 3d 74  |+.0+.0..|.key$=t|
00000360  65 78 74 24 0d 01 86 11  24 69 6e 69 74 6b 65 79  |ext$....$initkey|
00000370  3d 6b 65 79 24 0d 01 90  13 24 69 6e 69 74 74 65  |=key$....$initte|
00000380  78 74 3d 74 65 78 74 24  0d 01 9a 08 d6 64 65 73  |xt=text$.....des|
00000390  0d 01 a4 2f 74 65 78 74  24 3d bd 31 34 30 2b bd  |.../text$=.140+.|
000003a0  31 36 36 2b bd 37 37 2b  bd 32 33 33 2b bd 31 39  |166+.77+.233+.19|
000003b0  33 2b bd 31 37 37 2b bd  33 35 2b bd 31 36 37 0d  |3+.177+.35+.167.|
000003c0  01 ae 31 e7 74 65 78 74  24 3c 3e 24 69 6e 69 74  |..1.text$<>$init|
000003d0  74 65 78 74 20 8c 20 f1  27 22 53 65 63 6f 6e 64  |text . .'"Second|
000003e0  20 63 68 65 63 6b 20 66  61 69 6c 65 64 22 3a e0  | check failed":.|
000003f0  0d 01 b8 05 e1 0d 01 c2  0f f4 20 2a 2a 2a 2a 2a  |.......... *****|
00000400  2a 2a 2a 2a 0d 01 cc 05  3a 0d 01 d6 0e dd f2 61  |****....:......a|
00000410  73 73 65 6d 62 6c 65 0d  01 e0 09 52 25 3d 50 25  |ssemble....R%=P%|
00000420  0d 01 ea 0d e3 4e 25 3d  30 b8 32 88 32 0d 01 f4  |.....N%=0.2.2...|
00000430  09 50 25 3d 52 25 0d 01  fe 0a 5b 4f 50 54 4e 25  |.P%=R%....[OPTN%|
00000440  0d 02 08 09 2e 63 6f 70  79 0d 02 12 29 4c 44 41  |.....copy...)LDA|
00000450  28 26 37 30 29 2c 59 3a  53 54 41 28 26 37 32 29  |(&70),Y:STA(&72)|
00000460  2c 59 3a 44 45 59 3a 42  4e 45 63 6f 70 79 3a 52  |,Y:DEY:BNEcopy:R|
00000470  54 53 0d 02 1c 0e 2e 74  72 61 6e 73 70 6f 73 65  |TS.....transpose|
00000480  0d 02 26 4b 4c 44 41 28  26 37 34 29 2c 59 3a 53  |..&KLDA(&74),Y:S|
00000490  54 59 26 37 46 3a 54 41  59 3a 4c 44 41 28 26 37  |TY&7F:TAY:LDA(&7|
000004a0  32 29 2c 59 3a 4c 44 59  26 37 46 3a 53 54 41 28  |2),Y:LDY&7F:STA(|
000004b0  26 37 30 29 2c 59 3a 44  45 59 3a 42 4e 45 74 72  |&70),Y:DEY:BNEtr|
000004c0  61 6e 73 70 6f 73 65 3a  52 54 53 0d 02 30 08 2e  |anspose:RTS..0..|
000004d0  65 6f 72 0d 02 3a 31 4c  44 41 28 26 37 36 29 2c  |eor..:1LDA(&76),|
000004e0  59 3a 82 28 26 37 38 29  2c 59 3a 53 54 41 28 26  |Y:.(&78),Y:STA(&|
000004f0  37 41 29 2c 59 3a 44 45  59 3a 42 4e 45 65 6f 72  |7A),Y:DEY:BNEeor|
00000500  3a 52 54 53 0d 02 44 0f  2e 72 6f 74 61 74 65 6c  |:RTS..D..rotatel|
00000510  65 66 74 0d 02 4e 18 4c  44 41 23 6b 65 79 25 20  |eft..N.LDA#key% |
00000520  83 32 35 36 3a 53 54 41  26 37 30 0d 02 58 18 4c  |.256:STA&70..X.L|
00000530  44 41 23 6b 65 79 25 20  81 32 35 36 3a 53 54 41  |DA#key% .256:STA|
00000540  26 37 31 0d 02 62 1c 4c  44 41 23 28 6b 65 79 25  |&71..b.LDA#(key%|
00000550  2b 31 29 20 83 32 35 36  3a 53 54 41 26 37 32 0d  |+1) .256:STA&72.|
00000560  02 6c 1c 4c 44 41 23 28  6b 65 79 25 2b 31 29 20  |.l.LDA#(key%+1) |
00000570  81 32 35 36 3a 53 54 41  26 37 33 0d 02 76 1c 4c  |.256:STA&73..v.L|
00000580  44 41 23 72 6f 74 61 74  65 31 25 20 83 32 35 36  |DA#rotate1% .256|
00000590  3a 53 54 41 26 37 34 0d  02 80 1c 4c 44 41 23 72  |:STA&74....LDA#r|
000005a0  6f 74 61 74 65 31 25 20  81 32 35 36 3a 53 54 41  |otate1% .256:STA|
000005b0  26 37 35 0d 02 8a 0a 4c  44 59 26 37 45 0d 02 94  |&75....LDY&7E...|
000005c0  12 4c 44 41 28 26 37 34  29 2c 59 3a 54 41 58 0d  |.LDA(&74),Y:TAX.|
000005d0  02 9e 0a 2e 6c 6f 6f 70  30 0d 02 a8 1b 4c 44 59  |....loop0....LDY|
000005e0  23 31 3a 4c 44 41 28 26  37 30 29 2c 59 3a 53 54  |#1:LDA(&70),Y:ST|
000005f0  41 26 37 46 0d 02 b2 1c  4c 44 59 23 32 39 3a 4c  |A&7F....LDY#29:L|
00000600  44 41 28 26 37 30 29 2c  59 3a 53 54 41 26 38 30  |DA(&70),Y:STA&80|
00000610  0d 02 bc 09 4c 44 59 23  31 0d 02 c6 0a 2e 6c 6f  |....LDY#1.....lo|
00000620  6f 70 31 0d 02 d0 2d 4c  44 41 28 26 37 32 29 2c  |op1...-LDA(&72),|
00000630  59 3a 53 54 41 28 26 37  30 29 2c 59 3a 49 4e 59  |Y:STA(&70),Y:INY|
00000640  3a 43 50 59 23 35 36 3a  42 4e 45 6c 6f 6f 70 31  |:CPY#56:BNEloop1|
00000650  0d 02 da 1c 4c 44 59 23  32 38 3a 4c 44 41 26 37  |....LDY#28:LDA&7|
00000660  46 3a 53 54 41 28 26 37  30 29 2c 59 0d 02 e4 1c  |F:STA(&70),Y....|
00000670  4c 44 59 23 35 36 3a 4c  44 41 26 38 30 3a 53 54  |LDY#56:LDA&80:ST|
00000680  41 28 26 37 30 29 2c 59  0d 02 ee 07 44 45 58 0d  |A(&70),Y....DEX.|
00000690  02 f8 0c 42 4e 45 6c 6f  6f 70 30 0d 03 02 07 52  |...BNEloop0....R|
000006a0  54 53 0d 03 0c 10 2e 72  6f 74 61 74 65 72 69 67  |TS.....rotaterig|
000006b0  68 74 0d 03 16 18 4c 44  41 23 6b 65 79 25 20 83  |ht....LDA#key% .|
000006c0  32 35 36 3a 53 54 41 26  37 30 0d 03 20 18 4c 44  |256:STA&70.. .LD|
000006d0  41 23 6b 65 79 25 20 81  32 35 36 3a 53 54 41 26  |A#key% .256:STA&|
000006e0  37 31 0d 03 2a 1c 4c 44  41 23 28 6b 65 79 25 2d  |71..*.LDA#(key%-|
000006f0  31 29 20 83 32 35 36 3a  53 54 41 26 37 32 0d 03  |1) .256:STA&72..|
00000700  34 1c 4c 44 41 23 28 6b  65 79 25 2d 31 29 20 81  |4.LDA#(key%-1) .|
00000710  32 35 36 3a 53 54 41 26  37 33 0d 03 3e 1c 4c 44  |256:STA&73..>.LD|
00000720  41 23 72 6f 74 61 74 65  32 25 20 83 32 35 36 3a  |A#rotate2% .256:|
00000730  53 54 41 26 37 34 0d 03  48 1c 4c 44 41 23 72 6f  |STA&74..H.LDA#ro|
00000740  74 61 74 65 32 25 20 81  32 35 36 3a 53 54 41 26  |tate2% .256:STA&|
00000750  37 35 0d 03 52 0a 4c 44  59 26 37 45 0d 03 5c 20  |75..R.LDY&7E..\ |
00000760  4c 44 41 28 26 37 34 29  2c 59 3a 54 41 58 3a 42  |LDA(&74),Y:TAX:B|
00000770  4e 45 6c 6f 6f 70 30 30  3a 52 54 53 0d 03 66 0b  |NEloop00:RTS..f.|
00000780  2e 6c 6f 6f 70 30 30 0d  03 70 1c 4c 44 59 23 32  |.loop00..p.LDY#2|
00000790  38 3a 4c 44 41 28 26 37  30 29 2c 59 3a 53 54 41  |8:LDA(&70),Y:STA|
000007a0  26 37 46 0d 03 7a 1c 4c  44 59 23 35 36 3a 4c 44  |&7F..z.LDY#56:LD|
000007b0  41 28 26 37 30 29 2c 59  3a 53 54 41 26 38 30 0d  |A(&70),Y:STA&80.|
000007c0  03 84 0a 4c 44 59 23 35  36 0d 03 8e 0b 2e 6c 6f  |...LDY#56.....lo|
000007d0  6f 70 31 31 0d 03 98 2d  4c 44 41 28 26 37 32 29  |op11...-LDA(&72)|
000007e0  2c 59 3a 53 54 41 28 26  37 30 29 2c 59 3a 44 45  |,Y:STA(&70),Y:DE|
000007f0  59 3a 43 50 59 23 31 3a  42 4e 45 6c 6f 6f 70 31  |Y:CPY#1:BNEloop1|
00000800  31 0d 03 a2 1b 4c 44 59  23 31 3a 4c 44 41 26 37  |1....LDY#1:LDA&7|
00000810  46 3a 53 54 41 28 26 37  30 29 2c 59 0d 03 ac 1c  |F:STA(&70),Y....|
00000820  4c 44 59 23 32 39 3a 4c  44 41 26 38 30 3a 53 54  |LDY#29:LDA&80:ST|
00000830  41 28 26 37 30 29 2c 59  0d 03 b6 07 44 45 58 0d  |A(&70),Y....DEX.|
00000840  03 c0 0d 42 4e 45 6c 6f  6f 70 30 30 0d 03 ca 07  |...BNEloop00....|
00000850  52 54 53 0d 03 d4 0b 2e  72 65 64 75 63 65 0d 03  |RTS.....reduce..|
00000860  de 1f 4c 44 41 23 28 73  5f 62 6f 78 25 2d 36 34  |..LDA#(s_box%-64|
00000870  29 20 83 32 35 36 3a 53  54 41 26 37 34 0d 03 e8  |) .256:STA&74...|
00000880  1f 4c 44 41 23 28 73 5f  62 6f 78 25 2d 36 34 29  |.LDA#(s_box%-64)|
00000890  20 81 32 35 36 3a 53 54  41 26 37 35 0d 03 f2 10  | .256:STA&75....|
000008a0  4c 44 58 23 38 3a 53 54  41 26 38 30 0d 03 fc 0a  |LDX#8:STA&80....|
000008b0  2e 6c 6f 6f 70 32 0d 04  06 2f 4c 44 41 23 36 3a  |.loop2.../LDA#6:|
000008c0  43 4c 43 3a 41 44 43 26  37 30 3a 53 54 41 26 37  |CLC:ADC&70:STA&7|
000008d0  30 3a 4c 44 41 23 30 3a  41 44 43 26 37 31 3a 53  |0:LDA#0:ADC&71:S|
000008e0  54 41 26 37 31 0d 04 10  2f 4c 44 41 23 34 3a 43  |TA&71.../LDA#4:C|
000008f0  4c 43 3a 41 44 43 26 37  32 3a 53 54 41 26 37 32  |LC:ADC&72:STA&72|
00000900  3a 4c 44 41 23 30 3a 41  44 43 26 37 33 3a 53 54  |:LDA#0:ADC&73:ST|
00000910  41 26 37 33 0d 04 1a 30  4c 44 41 23 36 34 3a 43  |A&73...0LDA#64:C|
00000920  4c 43 3a 41 44 43 26 37  34 3a 53 54 41 26 37 34  |LC:ADC&74:STA&74|
00000930  3a 4c 44 41 23 30 3a 41  44 43 26 37 35 3a 53 54  |:LDA#0:ADC&75:ST|
00000940  41 26 37 35 0d 04 24 10  4c 44 41 23 30 3a 53 54  |A&75..$.LDA#0:ST|
00000950  41 26 37 46 0d 04 2e 32  20 20 20 20 20 20 20 4c  |A&7F...2       L|
00000960  44 59 23 31 3a 4c 44 41  28 26 37 30 29 2c 59 3a  |DY#1:LDA(&70),Y:|
00000970  42 45 51 6e 6f 74 33 32  3a 4c 44 41 23 33 32 3a  |BEQnot32:LDA#32:|
00000980  53 54 41 26 37 46 0d 04  38 3d 2e 6e 6f 74 33 32  |STA&7F..8=.not32|
00000990  20 4c 44 59 23 36 3a 4c  44 41 28 26 37 30 29 2c  | LDY#6:LDA(&70),|
000009a0  59 3a 42 45 51 6e 6f 74  31 36 3a 4c 44 41 23 31  |Y:BEQnot16:LDA#1|
000009b0  36 3a 43 4c 43 3a 41 44  43 26 37 46 3a 53 54 41  |6:CLC:ADC&7F:STA|
000009c0  26 37 46 0d 04 42 3c 2e  6e 6f 74 31 36 20 4c 44  |&7F..B<.not16 LD|
000009d0  59 23 32 3a 4c 44 41 28  26 37 30 29 2c 59 3a 42  |Y#2:LDA(&70),Y:B|
000009e0  45 51 6e 6f 74 38 20 3a  4c 44 41 23 38 3a 43 4c  |EQnot8 :LDA#8:CL|
000009f0  43 3a 41 44 43 26 37 46  3a 53 54 41 26 37 46 0d  |C:ADC&7F:STA&7F.|
00000a00  04 4c 3c 2e 6e 6f 74 38  20 20 4c 44 59 23 33 3a  |.L<.not8  LDY#3:|
00000a10  4c 44 41 28 26 37 30 29  2c 59 3a 42 45 51 6e 6f  |LDA(&70),Y:BEQno|
00000a20  74 34 20 3a 4c 44 41 23  34 3a 43 4c 43 3a 41 44  |t4 :LDA#4:CLC:AD|
00000a30  43 26 37 46 3a 53 54 41  26 37 46 0d 04 56 32 2e  |C&7F:STA&7F..V2.|
00000a40  6e 6f 74 34 20 20 4c 44  59 23 34 3a 4c 44 41 28  |not4  LDY#4:LDA(|
00000a50  26 37 30 29 2c 59 3a 42  45 51 6e 6f 74 32 20 3a  |&70),Y:BEQnot2 :|
00000a60  49 4e 43 26 37 46 3a 49  4e 43 26 37 46 0d 04 60  |INC&7F:INC&7F..`|
00000a70  2b 2e 6e 6f 74 32 20 20  4c 44 59 23 35 3a 4c 44  |+.not2  LDY#5:LD|
00000a80  41 28 26 37 30 29 2c 59  3a 42 45 51 6e 6f 74 31  |A(&70),Y:BEQnot1|
00000a90  20 3a 49 4e 43 26 37 46  0d 04 6a 15 2e 6e 6f 74  | :INC&7F..j..not|
00000aa0  31 20 20 4c 44 59 26 37  46 3a 49 4e 59 0d 04 74  |1  LDY&7F:INY..t|
00000ab0  15 4c 44 41 28 26 37 34  29 2c 59 3a 53 54 41 26  |.LDA(&74),Y:STA&|
00000ac0  37 46 0d 04 7e 3f 20 20  20 20 20 20 20 20 20 20  |7F..~?          |
00000ad0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ae0  20 20 4c 44 59 23 31 3a  4c 44 58 23 30 20 3a 80  |  LDY#1:LDX#0 :.|
00000af0  23 38 3a 42 45 51 6e 62  69 74 38 3a 4c 44 58 23  |#8:BEQnbit8:LDX#|
00000b00  31 0d 04 88 3f 2e 6e 62  69 74 38 20 54 58 41 3a  |1...?.nbit8 TXA:|
00000b10  53 54 41 28 26 37 32 29  2c 59 3a 4c 44 58 23 30  |STA(&72),Y:LDX#0|
00000b20  3a 4c 44 59 23 32 3a 4c  44 41 26 37 46 3a 80 23  |:LDY#2:LDA&7F:.#|
00000b30  34 3a 42 45 51 6e 62 69  74 34 3a 4c 44 58 23 31  |4:BEQnbit4:LDX#1|
00000b40  0d 04 92 3f 2e 6e 62 69  74 34 20 54 58 41 3a 53  |...?.nbit4 TXA:S|
00000b50  54 41 28 26 37 32 29 2c  59 3a 4c 44 58 23 30 3a  |TA(&72),Y:LDX#0:|
00000b60  4c 44 59 23 33 3a 4c 44  41 26 37 46 3a 80 23 32  |LDY#3:LDA&7F:.#2|
00000b70  3a 42 45 51 6e 62 69 74  32 3a 4c 44 58 23 31 0d  |:BEQnbit2:LDX#1.|
00000b80  04 9c 3f 2e 6e 62 69 74  32 20 54 58 41 3a 53 54  |..?.nbit2 TXA:ST|
00000b90  41 28 26 37 32 29 2c 59  3a 4c 44 58 23 30 3a 4c  |A(&72),Y:LDX#0:L|
00000ba0  44 59 23 34 3a 4c 44 41  26 37 46 3a 80 23 31 3a  |DY#4:LDA&7F:.#1:|
00000bb0  42 45 51 6e 62 69 74 31  3a 4c 44 58 23 31 0d 04  |BEQnbit1:LDX#1..|
00000bc0  a6 19 2e 6e 62 69 74 31  20 54 58 41 3a 53 54 41  |...nbit1 TXA:STA|
00000bd0  28 26 37 32 29 2c 59 0d  04 b0 2c 44 45 43 26 38  |(&72),Y...,DEC&8|
00000be0  30 3a 4c 44 41 26 38 30  3a 42 45 51 66 69 6e 69  |0:LDA&80:BEQfini|
00000bf0  3a 4a 4d 50 6c 6f 6f 70  32 3a 2e 66 69 6e 69 20  |:JMPloop2:.fini |
00000c00  52 54 53 0d 04 ba 10 2e  65 78 70 61 6e 64 5f 74  |RTS.....expand_t|
00000c10  65 78 74 0d 04 c4 1d 4c  44 41 23 31 3a 53 54 41  |ext....LDA#1:STA|
00000c20  26 38 30 3a 4c 44 41 23  30 3a 53 54 41 26 37 46  |&80:LDA#0:STA&7F|
00000c30  0d 04 ce 0a 2e 6c 6f 6f  70 36 0d 04 d8 1c 4c 44  |.....loop6....LD|
00000c40  59 26 37 46 3a 49 4e 43  26 37 46 3a 4c 44 41 28  |Y&7F:INC&7F:LDA(|
00000c50  26 37 30 29 2c 59 0d 04  e2 0a 4c 44 59 26 38 30  |&70),Y....LDY&80|
00000c60  0d 04 ec 3d 20 20 20 20  20 20 20 20 20 20 20 20  |...=            |
00000c70  20 20 20 20 20 20 20 20  20 20 20 20 20 4c 44 58  |             LDX|
00000c80  23 30 3a 53 54 41 26 37  45 3a 80 23 31 32 38 3a  |#0:STA&7E:.#128:|
00000c90  42 45 51 6e 31 32 38 3a  4c 44 58 23 31 0d 04 f6  |BEQn128:LDX#1...|
00000ca0  3b 2e 6e 31 32 38 20 54  58 41 3a 53 54 41 28 26  |;.n128 TXA:STA(&|
00000cb0  37 32 29 2c 59 3a 49 4e  59 3a 4c 44 58 23 30 3a  |72),Y:INY:LDX#0:|
00000cc0  4c 44 41 26 37 45 3a 80  23 36 34 3a 42 45 51 6e  |LDA&7E:.#64:BEQn|
00000cd0  36 34 3a 4c 44 58 23 31  0d 05 00 3b 2e 6e 36 34  |64:LDX#1...;.n64|
00000ce0  20 20 54 58 41 3a 53 54  41 28 26 37 32 29 2c 59  |  TXA:STA(&72),Y|
00000cf0  3a 49 4e 59 3a 4c 44 58  23 30 3a 4c 44 41 26 37  |:INY:LDX#0:LDA&7|
00000d00  45 3a 80 23 33 32 3a 42  45 51 6e 33 32 3a 4c 44  |E:.#32:BEQn32:LD|
00000d10  58 23 31 0d 05 0a 3b 2e  6e 33 32 20 20 54 58 41  |X#1...;.n32  TXA|
00000d20  3a 53 54 41 28 26 37 32  29 2c 59 3a 49 4e 59 3a  |:STA(&72),Y:INY:|
00000d30  4c 44 58 23 30 3a 4c 44  41 26 37 45 3a 80 23 31  |LDX#0:LDA&7E:.#1|
00000d40  36 3a 42 45 51 6e 31 36  3a 4c 44 58 23 31 0d 05  |6:BEQn16:LDX#1..|
00000d50  14 3b 2e 6e 31 36 20 20  54 58 41 3a 53 54 41 28  |.;.n16  TXA:STA(|
00000d60  26 37 32 29 2c 59 3a 49  4e 59 3a 4c 44 58 23 30  |&72),Y:INY:LDX#0|
00000d70  3a 4c 44 41 26 37 45 3a  80 23 38 20 3a 42 45 51  |:LDA&7E:.#8 :BEQ|
00000d80  6e 38 20 3a 4c 44 58 23  31 0d 05 1e 3b 2e 6e 38  |n8 :LDX#1...;.n8|
00000d90  20 20 20 54 58 41 3a 53  54 41 28 26 37 32 29 2c  |   TXA:STA(&72),|
00000da0  59 3a 49 4e 59 3a 4c 44  58 23 30 3a 4c 44 41 26  |Y:INY:LDX#0:LDA&|
00000db0  37 45 3a 80 23 34 20 3a  42 45 51 6e 34 20 3a 4c  |7E:.#4 :BEQn4 :L|
00000dc0  44 58 23 31 0d 05 28 3b  2e 6e 34 20 20 20 54 58  |DX#1..(;.n4   TX|
00000dd0  41 3a 53 54 41 28 26 37  32 29 2c 59 3a 49 4e 59  |A:STA(&72),Y:INY|
00000de0  3a 4c 44 58 23 30 3a 4c  44 41 26 37 45 3a 80 23  |:LDX#0:LDA&7E:.#|
00000df0  32 20 3a 42 45 51 6e 32  20 3a 4c 44 58 23 31 0d  |2 :BEQn2 :LDX#1.|
00000e00  05 32 3b 2e 6e 32 20 20  20 54 58 41 3a 53 54 41  |.2;.n2   TXA:STA|
00000e10  28 26 37 32 29 2c 59 3a  49 4e 59 3a 4c 44 58 23  |(&72),Y:INY:LDX#|
00000e20  30 3a 4c 44 41 26 37 45  3a 80 23 31 20 3a 42 45  |0:LDA&7E:.#1 :BE|
00000e30  51 6e 31 20 3a 4c 44 58  23 31 0d 05 3c 23 2e 6e  |Qn1 :LDX#1..<#.n|
00000e40  31 20 20 20 54 58 41 3a  53 54 41 28 26 37 32 29  |1   TXA:STA(&72)|
00000e50  2c 59 3a 49 4e 59 3a 53  54 59 26 38 30 0d 05 46  |,Y:INY:STY&80..F|
00000e60  1d 4c 44 41 26 37 46 3a  43 4d 50 23 38 3a 42 4e  |.LDA&7F:CMP#8:BN|
00000e70  45 6c 6f 6f 70 36 3a 52  54 53 0d 05 50 10 2e 73  |Eloop6:RTS..P..s|
00000e80  68 72 69 6e 6b 5f 74 65  78 74 0d 05 5a 16 4c 44  |hrink_text..Z.LD|
00000e90  58 23 30 3a 4c 44 59 23  31 3a 53 54 59 26 38 30  |X#0:LDY#1:STY&80|
00000ea0  0d 05 64 0a 2e 6c 6f 6f  70 37 0d 05 6e 10 4c 44  |..d..loop7..n.LD|
00000eb0  41 23 30 3a 53 54 41 26  37 46 0d 05 78 0a 4c 44  |A#0:STA&7F..x.LD|
00000ec0  59 26 38 30 0d 05 82 26  4c 44 41 28 26 37 30 29  |Y&80...&LDA(&70)|
00000ed0  2c 59 3a 42 45 51 6e 6e  31 32 38 3a 4c 44 41 23  |,Y:BEQnn128:LDA#|
00000ee0  31 32 38 3a 53 54 41 26  37 46 0d 05 8c 3a 2e 6e  |128:STA&7F...:.n|
00000ef0  6e 31 32 38 20 49 4e 59  3a 4c 44 41 28 26 37 30  |n128 INY:LDA(&70|
00000f00  29 2c 59 3a 42 45 51 6e  6e 36 34 3a 4c 44 41 23  |),Y:BEQnn64:LDA#|
00000f10  36 34 3a 43 4c 43 3a 41  44 43 26 37 46 3a 53 54  |64:CLC:ADC&7F:ST|
00000f20  41 26 37 46 0d 05 96 3a  2e 6e 6e 36 34 20 20 49  |A&7F...:.nn64  I|
00000f30  4e 59 3a 4c 44 41 28 26  37 30 29 2c 59 3a 42 45  |NY:LDA(&70),Y:BE|
00000f40  51 6e 6e 33 32 3a 4c 44  41 23 33 32 3a 43 4c 43  |Qnn32:LDA#32:CLC|
00000f50  3a 41 44 43 26 37 46 3a  53 54 41 26 37 46 0d 05  |:ADC&7F:STA&7F..|
00000f60  a0 3a 2e 6e 6e 33 32 20  20 49 4e 59 3a 4c 44 41  |.:.nn32  INY:LDA|
00000f70  28 26 37 30 29 2c 59 3a  42 45 51 6e 6e 31 36 3a  |(&70),Y:BEQnn16:|
00000f80  4c 44 41 23 31 36 3a 43  4c 43 3a 41 44 43 26 37  |LDA#16:CLC:ADC&7|
00000f90  46 3a 53 54 41 26 37 46  0d 05 aa 3a 2e 6e 6e 31  |F:STA&7F...:.nn1|
00000fa0  36 20 20 49 4e 59 3a 4c  44 41 28 26 37 30 29 2c  |6  INY:LDA(&70),|
00000fb0  59 3a 42 45 51 6e 6e 38  20 3a 4c 44 41 23 38 20  |Y:BEQnn8 :LDA#8 |
00000fc0  3a 43 4c 43 3a 41 44 43  26 37 46 3a 53 54 41 26  |:CLC:ADC&7F:STA&|
00000fd0  37 46 0d 05 b4 3a 2e 6e  6e 38 20 20 20 49 4e 59  |7F...:.nn8   INY|
00000fe0  3a 4c 44 41 28 26 37 30  29 2c 59 3a 42 45 51 6e  |:LDA(&70),Y:BEQn|
00000ff0  6e 34 20 3a 4c 44 41 23  34 20 3a 43 4c 43 3a 41  |n4 :LDA#4 :CLC:A|
00001000  44 43 26 37 46 3a 53 54  41 26 37 46 0d 05 be 2f  |DC&7F:STA&7F.../|
00001010  2e 6e 6e 34 20 20 20 49  4e 59 3a 4c 44 41 28 26  |.nn4   INY:LDA(&|
00001020  37 30 29 2c 59 3a 42 45  51 6e 6e 32 20 3a 49 4e  |70),Y:BEQnn2 :IN|
00001030  43 26 37 46 3a 49 4e 43  26 37 46 0d 05 c8 28 2e  |C&7F:INC&7F...(.|
00001040  6e 6e 32 20 20 20 49 4e  59 3a 4c 44 41 28 26 37  |nn2   INY:LDA(&7|
00001050  30 29 2c 59 3a 42 45 51  6e 6e 31 20 3a 49 4e 43  |0),Y:BEQnn1 :INC|
00001060  26 37 46 0d 05 d2 0e 2e  6e 6e 31 20 20 20 49 4e  |&7F.....nn1   IN|
00001070  59 0d 05 dc 0a 53 54 59  26 38 30 0d 05 e6 1d 54  |Y....STY&80....T|
00001080  58 41 3a 54 41 59 3a 4c  44 41 26 37 46 3a 53 54  |XA:TAY:LDA&7F:ST|
00001090  41 28 26 37 32 29 2c 59  0d 05 f0 16 49 4e 58 3a  |A(&72),Y....INX:|
000010a0  43 50 58 23 38 3a 42 4e  45 6c 6f 6f 70 37 0d 05  |CPX#8:BNEloop7..|
000010b0  fa 07 52 54 53 0d 06 04  13 5c 2a 2a 2a 2a 20 6d  |..RTS....\**** m|
000010c0  61 69 6e 20 6c 6f 6f 70  0d 06 0e 1e 2e 69 6e 69  |ain loop.....ini|
000010d0  74 6b 65 79 20 45 51 55  44 30 3a 45 51 55 44 30  |tkey EQUD0:EQUD0|
000010e0  3a 45 51 55 42 30 0d 06  18 1f 2e 69 6e 69 74 74  |:EQUB0.....initt|
000010f0  65 78 74 20 45 51 55 44  30 3a 45 51 55 44 30 3a  |ext EQUD0:EQUD0:|
00001100  45 51 55 42 30 0d 06 22  09 2e 64 64 65 73 0d 06  |EQUB0.."..ddes..|
00001110  2c 10 4c 44 41 23 31 3a  53 54 41 26 38 31 0d 06  |,.LDA#1:STA&81..|
00001120  36 0c 4a 4d 50 73 74 61  72 74 0d 06 40 08 2e 64  |6.JMPstart..@..d|
00001130  65 73 0d 06 4a 10 4c 44  41 23 30 3a 53 54 41 26  |es..J.LDA#0:STA&|
00001140  38 31 0d 06 54 0a 2e 73  74 61 72 74 0d 06 5e 22  |81..T..start..^"|
00001150  4f 50 54 20 a4 65 78 70  61 6e 64 5f 74 65 78 74  |OPT .expand_text|
00001160  28 69 6e 69 74 6b 65 79  2c 6b 65 79 25 29 0d 06  |(initkey,key%)..|
00001170  68 24 4f 50 54 20 a4 65  78 70 61 6e 64 5f 74 65  |h$OPT .expand_te|
00001180  78 74 28 69 6e 69 74 74  65 78 74 2c 74 65 78 74  |xt(inittext,text|
00001190  25 29 0d 06 72 2a 4f 50  54 20 a4 74 72 61 6e 73  |%)..r*OPT .trans|
000011a0  70 6f 73 65 28 6b 65 79  25 2c 36 34 2c 6b 65 79  |pose(key%,64,key|
000011b0  5f 74 72 61 6e 73 31 25  2c 35 36 29 0d 06 7c 2b  |_trans1%,56)..|+|
000011c0  4f 50 54 20 a4 74 72 61  6e 73 70 6f 73 65 28 74  |OPT .transpose(t|
000011d0  65 78 74 25 2c 36 34 2c  69 6e 69 74 5f 74 72 61  |ext%,64,init_tra|
000011e0  6e 73 25 2c 36 34 29 0d  06 86 10 4c 44 41 23 31  |ns%,64)....LDA#1|
000011f0  3a 53 54 41 26 37 45 0d  06 90 09 2e 6d 61 69 6e  |:STA&7E.....main|
00001200  0d 06 9a 1c 20 20 4f 50  54 20 a4 63 6f 70 79 28  |....  OPT .copy(|
00001210  74 65 78 74 25 2c 62 25  2c 36 34 29 0d 06 a4 22  |text%,b%,64)..."|
00001220  20 20 4f 50 54 20 a4 63  6f 70 79 28 74 65 78 74  |  OPT .copy(text|
00001230  25 2b 33 32 2c 74 65 78  74 25 2c 33 32 29 0d 06  |%+32,text%,32)..|
00001240  ae 1c 20 20 4f 50 54 20  a4 63 6f 70 79 28 74 65  |..  OPT .copy(te|
00001250  78 74 25 2c 65 25 2c 36  34 29 0d 06 b8 23 20 20  |xt%,e%,64)...#  |
00001260  4f 50 54 20 a4 74 72 61  6e 73 70 6f 73 65 28 65  |OPT .transpose(e|
00001270  25 2c 36 34 2c 62 73 74  25 2c 34 38 29 0d 06 c2  |%,64,bst%,48)...|
00001280  2e 20 20 4c 44 41 26 38  31 3a 42 4e 45 6e 6f 74  |.  LDA&81:BNEnot|
00001290  6c 65 66 74 3a 4a 53 52  72 6f 74 61 74 65 6c 65  |left:JSRrotatele|
000012a0  66 74 3a 4a 4d 50 63 6f  6e 74 31 0d 06 cc 1e 20  |ft:JMPcont1.... |
000012b0  20 2e 6e 6f 74 6c 65 66  74 20 4a 53 52 72 6f 74  | .notleft JSRrot|
000012c0  61 74 65 72 69 67 68 74  20 0d 06 d6 0c 20 20 2e  |ateright ....  .|
000012d0  63 6f 6e 74 31 0d 06 e0  1e 20 20 4f 50 54 20 a4  |cont1....  OPT .|
000012e0  63 6f 70 79 28 6b 65 79  25 2c 69 6b 65 79 25 2c  |copy(key%,ikey%,|
000012f0  35 36 29 0d 06 ea 2d 20  20 4f 50 54 20 a4 74 72  |56)...-  OPT .tr|
00001300  61 6e 73 70 6f 73 65 28  69 6b 65 79 25 2c 35 36  |anspose(ikey%,56|
00001310  2c 6b 65 79 5f 74 72 61  6e 73 32 25 2c 34 38 29  |,key_trans2%,48)|
00001320  0d 06 f4 1e 20 20 4f 50  54 20 a4 65 6f 72 28 65  |....  OPT .eor(e|
00001330  25 2c 69 6b 65 79 25 2c  34 38 2c 79 25 29 0d 06  |%,ikey%,48,y%)..|
00001340  fe 18 20 20 4f 50 54 20  a4 72 65 64 75 63 65 28  |..  OPT .reduce(|
00001350  79 25 2c 78 25 29 0d 07  08 24 20 20 4f 50 54 20  |y%,x%)...$  OPT |
00001360  a4 74 72 61 6e 73 70 6f  73 65 28 78 25 2c 33 32  |.transpose(x%,32|
00001370  2c 70 65 72 6d 25 2c 33  32 29 0d 07 12 21 20 20  |,perm%,32)...!  |
00001380  4f 50 54 20 a4 65 6f 72  28 62 25 2c 78 25 2c 33  |OPT .eor(b%,x%,3|
00001390  32 2c 74 65 78 74 25 2b  33 32 29 0d 07 1c 34 49  |2,text%+32)...4I|
000013a0  4e 43 26 37 45 3a 4c 44  41 26 37 45 3a 43 4d 50  |NC&7E:LDA&7E:CMP|
000013b0  23 31 37 3a 42 45 51 65  6e 64 5f 64 65 73 3a 4a  |#17:BEQend_des:J|
000013c0  4d 50 6d 61 69 6e 3a 2e  65 6e 64 5f 64 65 73 0d  |MPmain:.end_des.|
000013d0  07 26 25 4f 50 54 20 a4  74 72 61 6e 73 70 6f 73  |.&%OPT .transpos|
000013e0  65 28 74 65 78 74 25 2c  36 34 2c 73 77 61 70 25  |e(text%,64,swap%|
000013f0  2c 36 34 29 0d 07 30 2d  4f 50 54 20 a4 74 72 61  |,64)..0-OPT .tra|
00001400  6e 73 70 6f 73 65 28 74  65 78 74 25 2c 36 34 2c  |nspose(text%,64,|
00001410  66 69 6e 61 6c 5f 74 72  61 6e 73 25 2c 36 34 29  |final_trans%,64)|
00001420  20 0d 07 3a 24 4f 50 54  20 a4 73 68 72 69 6e 6b  | ..:$OPT .shrink|
00001430  5f 74 65 78 74 28 74 65  78 74 25 2c 69 6e 69 74  |_text(text%,init|
00001440  74 65 78 74 29 0d 07 44  07 52 54 53 0d 07 4e 06  |text)..D.RTS..N.|
00001450  5d ed 0d 07 58 05 e1 0d  07 62 0f f4 20 2a 2a 2a  |]...X....b.. ***|
00001460  2a 2a 2a 2a 2a 2a 0d 07  6c 05 3a 0d 07 76 22 dd  |******..l.:..v".|
00001470  a4 72 65 64 75 63 65 28  73 6f 75 72 63 65 25 2c  |.reduce(source%,|
00001480  64 65 73 74 69 6e 61 74  69 6f 6e 25 29 0d 07 80  |destination%)...|
00001490  0a 5b 4f 50 54 4e 25 0d  07 8a 1f 4c 44 41 23 28  |.[OPTN%....LDA#(|
000014a0  73 6f 75 72 63 65 25 2d  36 29 20 83 32 35 36 3a  |source%-6) .256:|
000014b0  53 54 41 26 37 30 0d 07  94 1f 4c 44 41 23 28 73  |STA&70....LDA#(s|
000014c0  6f 75 72 63 65 25 2d 36  29 20 81 32 35 36 3a 53  |ource%-6) .256:S|
000014d0  54 41 26 37 31 0d 07 9e  24 4c 44 41 23 28 64 65  |TA&71...$LDA#(de|
000014e0  73 74 69 6e 61 74 69 6f  6e 25 2d 34 29 20 83 32  |stination%-4) .2|
000014f0  35 36 3a 53 54 41 26 37  32 0d 07 a8 24 4c 44 41  |56:STA&72...$LDA|
00001500  23 28 64 65 73 74 69 6e  61 74 69 6f 6e 25 2d 34  |#(destination%-4|
00001510  29 20 81 32 35 36 3a 53  54 41 26 37 33 0d 07 b2  |) .256:STA&73...|
00001520  0d 4a 53 52 72 65 64 75  63 65 0d 07 bc 09 5d 3a  |.JSRreduce....]:|
00001530  3d 4e 25 0d 07 c6 05 e1  0d 07 d0 0f f4 20 2a 2a  |=N%.......... **|
00001540  2a 2a 2a 2a 2a 2a 2a 0d  07 da 05 3a 0d 07 e4 2f  |*******....:.../|
00001550  dd a4 65 6f 72 28 73 6f  75 72 63 65 31 25 2c 73  |..eor(source1%,s|
00001560  6f 75 72 63 65 32 25 2c  73 69 7a 65 25 2c 64 65  |ource2%,size%,de|
00001570  73 74 69 6e 61 74 69 6f  6e 25 29 0d 07 ee 0a 5b  |stination%)....[|
00001580  4f 50 54 4e 25 0d 07 f8  1c 4c 44 41 23 73 6f 75  |OPTN%....LDA#sou|
00001590  72 63 65 31 25 20 83 32  35 36 3a 53 54 41 26 37  |rce1% .256:STA&7|
000015a0  36 0d 08 02 1c 4c 44 41  23 73 6f 75 72 63 65 31  |6....LDA#source1|
000015b0  25 20 81 32 35 36 3a 53  54 41 26 37 37 0d 08 0c  |% .256:STA&77...|
000015c0  1c 4c 44 41 23 73 6f 75  72 63 65 32 25 20 83 32  |.LDA#source2% .2|
000015d0  35 36 3a 53 54 41 26 37  38 0d 08 16 1c 4c 44 41  |56:STA&78....LDA|
000015e0  23 73 6f 75 72 63 65 32  25 20 81 32 35 36 3a 53  |#source2% .256:S|
000015f0  54 41 26 37 39 0d 08 20  20 4c 44 41 23 64 65 73  |TA&79..  LDA#des|
00001600  74 69 6e 61 74 69 6f 6e  25 20 83 32 35 36 3a 53  |tination% .256:S|
00001610  54 41 26 37 41 0d 08 2a  20 4c 44 41 23 64 65 73  |TA&7A..* LDA#des|
00001620  74 69 6e 61 74 69 6f 6e  25 20 81 32 35 36 3a 53  |tination% .256:S|
00001630  54 41 26 37 42 0d 08 34  0d 4c 44 59 23 73 69 7a  |TA&7B..4.LDY#siz|
00001640  65 25 0d 08 3e 0a 4a 53  52 65 6f 72 0d 08 48 09  |e%..>.JSReor..H.|
00001650  5d 3a 3d 4e 25 0d 08 52  05 e1 0d 08 5c 0f f4 20  |]:=N%..R....\.. |
00001660  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 08 66 05 3a 0d 08  |*********..f.:..|
00001670  70 26 dd a4 63 6f 70 79  28 73 6f 75 72 63 65 25  |p&..copy(source%|
00001680  2c 64 65 73 74 69 6e 61  74 69 6f 6e 25 2c 73 69  |,destination%,si|
00001690  7a 65 25 29 0d 08 7a 0a  5b 4f 50 54 4e 25 0d 08  |ze%)..z.[OPTN%..|
000016a0  84 1b 4c 44 41 23 73 6f  75 72 63 65 25 20 83 32  |..LDA#source% .2|
000016b0  35 36 3a 53 54 41 26 37  30 0d 08 8e 1b 4c 44 41  |56:STA&70....LDA|
000016c0  23 73 6f 75 72 63 65 25  20 81 32 35 36 3a 53 54  |#source% .256:ST|
000016d0  41 26 37 31 0d 08 98 20  4c 44 41 23 64 65 73 74  |A&71... LDA#dest|
000016e0  69 6e 61 74 69 6f 6e 25  20 83 32 35 36 3a 53 54  |ination% .256:ST|
000016f0  41 26 37 32 0d 08 a2 20  4c 44 41 23 64 65 73 74  |A&72... LDA#dest|
00001700  69 6e 61 74 69 6f 6e 25  20 81 32 35 36 3a 53 54  |ination% .256:ST|
00001710  41 26 37 33 0d 08 ac 0d  4c 44 59 23 73 69 7a 65  |A&73....LDY#size|
00001720  25 0d 08 b6 0b 4a 53 52  63 6f 70 79 0d 08 c0 09  |%....JSRcopy....|
00001730  5d 3a 3d 4e 25 0d 08 ca  05 e1 0d 08 d4 0f f4 20  |]:=N%.......... |
00001740  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 08 de 05 3a 0d 08  |*********....:..|
00001750  e8 37 dd a4 74 72 61 6e  73 70 6f 73 65 28 73 6f  |.7..transpose(so|
00001760  75 72 63 65 25 2c 6f 6c  64 5f 6c 65 6e 67 74 68  |urce%,old_length|
00001770  25 2c 74 61 62 6c 65 25  2c 6e 65 77 5f 6c 65 6e  |%,table%,new_len|
00001780  67 74 68 25 29 0d 08 f2  0a 5b 4f 50 54 4e 25 0d  |gth%)....[OPTN%.|
00001790  08 fc 28 4f 50 54 20 a4  63 6f 70 79 28 73 6f 75  |..(OPT .copy(sou|
000017a0  72 63 65 25 2c 64 61 74  61 25 2c 6f 6c 64 5f 6c  |rce%,data%,old_l|
000017b0  65 6e 67 74 68 25 29 0d  09 06 1a 4c 44 41 23 74  |ength%)....LDA#t|
000017c0  61 62 6c 65 25 20 83 32  35 36 3a 53 54 41 26 37  |able% .256:STA&7|
000017d0  34 0d 09 10 1a 4c 44 41  23 74 61 62 6c 65 25 20  |4....LDA#table% |
000017e0  81 32 35 36 3a 53 54 41  26 37 35 0d 09 1a 13 4c  |.256:STA&75....L|
000017f0  44 59 23 6e 65 77 5f 6c  65 6e 67 74 68 25 0d 09  |DY#new_length%..|
00001800  24 10 4a 53 52 74 72 61  6e 73 70 6f 73 65 0d 09  |$.JSRtranspose..|
00001810  2e 09 5d 3a 3d 4e 25 0d  09 38 05 e1 0d 09 42 0f  |..]:=N%..8....B.|
00001820  f4 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 09 4c 05 3a  |. *********..L.:|
00001830  0d 09 56 19 dd f2 73 65  74 75 70 5f 6c 6f 6f 6b  |..V...setup_look|
00001840  75 70 5f 74 61 62 6c 65  73 0d 09 60 05 f7 0d 09  |up_tables..`....|
00001850  6a 18 69 6e 69 74 5f 74  72 61 6e 73 25 20 3d a4  |j.init_trans% =.|
00001860  6c 6f 61 64 2d 31 0d 09  74 18 66 69 6e 61 6c 5f  |load-1..t.final_|
00001870  74 72 61 6e 73 25 3d a4  6c 6f 61 64 2d 31 0d 09  |trans%=.load-1..|
00001880  7e 18 73 77 61 70 25 20  20 20 20 20 20 20 3d a4  |~.swap%       =.|
00001890  6c 6f 61 64 2d 31 0d 09  88 18 6b 65 79 5f 74 72  |load-1....key_tr|
000018a0  61 6e 73 31 25 20 3d a4  6c 6f 61 64 2d 31 0d 09  |ans1% =.load-1..|
000018b0  92 18 6b 65 79 5f 74 72  61 6e 73 32 25 20 3d a4  |..key_trans2% =.|
000018c0  6c 6f 61 64 2d 31 0d 09  9c 18 62 73 74 25 20 20  |load-1....bst%  |
000018d0  20 20 20 20 20 20 3d a4  6c 6f 61 64 2d 31 0d 09  |      =.load-1..|
000018e0  a6 18 70 65 72 6d 25 20  20 20 20 20 20 20 3d a4  |..perm%       =.|
000018f0  6c 6f 61 64 2d 31 0d 09  b0 18 73 5f 62 6f 78 25  |load-1....s_box%|
00001900  20 20 20 20 20 20 3d a4  6c 6f 61 64 2d 31 0d 09  |      =.load-1..|
00001910  ba 12 e3 20 6c 6f 6f 70  30 25 3d 31 20 b8 20 37  |... loop0%=1 . 7|
00001920  0d 09 c4 14 20 20 64 75  6d 6d 79 25 3d a4 6c 6f  |....  dummy%=.lo|
00001930  61 64 2d 31 0d 09 ce 05  ed 0d 09 d8 19 72 6f 74  |ad-1.........rot|
00001940  61 74 65 31 25 20 20 20  20 20 3d a4 6c 6f 61 64  |ate1%     =.load|
00001950  2d 31 0d 09 e2 18 72 6f  74 61 74 65 32 25 20 20  |-1....rotate2%  |
00001960  20 20 3d a4 6c 6f 61 64  2d 31 0d 09 ec 0e 64 61  |  =.load-1....da|
00001970  74 61 25 3d 50 25 2d 31  0d 09 f6 0c 50 25 3d 50  |ta%=P%-1....P%=P|
00001980  25 2b 36 34 0d 0a 00 0d  6b 65 79 25 3d 50 25 2d  |%+64....key%=P%-|
00001990  31 0d 0a 0a 0c 50 25 3d  50 25 2b 36 34 0d 0a 14  |1....P%=P%+64...|
000019a0  0e 74 65 78 74 25 3d 50  25 2d 31 0d 0a 1e 0c 50  |.text%=P%-1....P|
000019b0  25 3d 50 25 2b 36 34 0d  0a 28 0b 65 25 3d 50 25  |%=P%+64..(.e%=P%|
000019c0  2d 31 0d 0a 32 0c 50 25  3d 50 25 2b 36 34 0d 0a  |-1..2.P%=P%+64..|
000019d0  3c 0b 62 25 3d 50 25 2d  31 0d 0a 46 0c 50 25 3d  |<.b%=P%-1..F.P%=|
000019e0  50 25 2b 36 34 0d 0a 50  0b 78 25 3d 50 25 2d 31  |P%+64..P.x%=P%-1|
000019f0  0d 0a 5a 0c 50 25 3d 50  25 2b 33 32 0d 0a 64 0e  |..Z.P%=P%+32..d.|
00001a00  69 6b 65 79 25 3d 50 25  2d 31 0d 0a 6e 0c 50 25  |ikey%=P%-1..n.P%|
00001a10  3d 50 25 2b 35 36 0d 0a  78 0b 79 25 3d 50 25 2d  |=P%+56..x.y%=P%-|
00001a20  31 0d 0a 82 0c 50 25 3d  50 25 2b 34 38 0d 0a 8c  |1....P%=P%+48...|
00001a30  05 e1 0d 0a 96 0f f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |....... ********|
00001a40  2a 0d 0a a0 05 3a 0d 0a  aa 0a dd a4 6c 6f 61 64  |*....:......load|
00001a50  0d 0a b4 09 51 25 3d 50  25 0d 0a be 12 e3 20 6c  |....Q%=P%..... l|
00001a60  6f 6f 70 31 25 3d 31 20  b8 20 32 0d 0a c8 08 56  |oop1%=1 . 2....V|
00001a70  25 3d 30 0d 0a d2 0f 20  20 f3 20 73 74 72 69 6e  |%=0....  . strin|
00001a80  67 24 0d 0a dc 20 20 20  e3 20 6c 6f 6f 70 32 25  |g$...   . loop2%|
00001a90  3d 31 20 b8 20 a9 28 73  74 72 69 6e 67 24 29 20  |=1 . .(string$) |
00001aa0  88 32 0d 0a e6 21 20 20  20 20 3f 50 25 3d bb 28  |.2...!    ?P%=.(|
00001ab0  c1 73 74 72 69 6e 67 24  2c 6c 6f 6f 70 32 25 2c  |.string$,loop2%,|
00001ac0  32 29 29 0d 0a f0 11 20  20 20 20 56 25 3d 56 25  |2))....    V%=V%|
00001ad0  2b 3f 50 25 0d 0a fa 0f  20 20 20 20 50 25 3d 50  |+?P%....    P%=P|
00001ae0  25 2b 31 0d 0b 04 07 20  20 ed 0d 0b 0e 07 f3 43  |%+1....  ......C|
00001af0  25 0d 0b 18 35 e7 43 25  3c 3e 56 25 20 8c 20 f1  |%...5.C%<>V% . .|
00001b00  27 22 43 68 65 63 6b 20  73 75 6d 20 65 72 72 6f  |'"Check sum erro|
00001b10  72 2c 22 27 22 69 6e 20  3a 20 22 3b 73 74 72 69  |r,"'"in : ";stri|
00001b20  6e 67 24 3b 3a e0 0d 0b  22 05 ed 0d 0b 2c 07 3d  |ng$;:..."....,.=|
00001b30  51 25 0d 0b 36 0f f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |Q%..6.. ********|
00001b40  2a 0d 0b 40 05 3a 0d 0b  4a 27 dd a4 65 78 70 61  |*..@.:..J'..expa|
00001b50  6e 64 5f 74 65 78 74 28  73 6f 75 72 63 65 25 2c  |nd_text(source%,|
00001b60  64 65 73 74 69 6e 61 74  69 6f 6e 25 29 0d 0b 54  |destination%)..T|
00001b70  0a 5b 4f 50 54 4e 25 0d  0b 5e 1b 4c 44 41 23 73  |.[OPTN%..^.LDA#s|
00001b80  6f 75 72 63 65 25 20 83  32 35 36 3a 53 54 41 26  |ource% .256:STA&|
00001b90  37 30 0d 0b 68 1b 4c 44  41 23 73 6f 75 72 63 65  |70..h.LDA#source|
00001ba0  25 20 81 32 35 36 3a 53  54 41 26 37 31 0d 0b 72  |% .256:STA&71..r|
00001bb0  20 4c 44 41 23 64 65 73  74 69 6e 61 74 69 6f 6e  | LDA#destination|
00001bc0  25 20 83 32 35 36 3a 53  54 41 26 37 32 0d 0b 7c  |% .256:STA&72..||
00001bd0  20 4c 44 41 23 64 65 73  74 69 6e 61 74 69 6f 6e  | LDA#destination|
00001be0  25 20 81 32 35 36 3a 53  54 41 26 37 33 0d 0b 86  |% .256:STA&73...|
00001bf0  12 4a 53 52 65 78 70 61  6e 64 5f 74 65 78 74 0d  |.JSRexpand_text.|
00001c00  0b 90 09 5d 3a 3d 4e 25  0d 0b 9a 05 e1 0d 0b a4  |...]:=N%........|
00001c10  0f f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 0b ae 05  |.. *********....|
00001c20  3a 0d 0b b8 27 dd a4 73  68 72 69 6e 6b 5f 74 65  |:...'..shrink_te|
00001c30  78 74 28 73 6f 75 72 63  65 25 2c 64 65 73 74 69  |xt(source%,desti|
00001c40  6e 61 74 69 6f 6e 25 29  0d 0b c2 0a 5b 4f 50 54  |nation%)....[OPT|
00001c50  4e 25 0d 0b cc 1b 4c 44  41 23 73 6f 75 72 63 65  |N%....LDA#source|
00001c60  25 20 83 32 35 36 3a 53  54 41 26 37 30 0d 0b d6  |% .256:STA&70...|
00001c70  1b 4c 44 41 23 73 6f 75  72 63 65 25 20 81 32 35  |.LDA#source% .25|
00001c80  36 3a 53 54 41 26 37 31  0d 0b e0 20 4c 44 41 23  |6:STA&71... LDA#|
00001c90  64 65 73 74 69 6e 61 74  69 6f 6e 25 20 83 32 35  |destination% .25|
00001ca0  36 3a 53 54 41 26 37 32  0d 0b ea 20 4c 44 41 23  |6:STA&72... LDA#|
00001cb0  64 65 73 74 69 6e 61 74  69 6f 6e 25 20 81 32 35  |destination% .25|
00001cc0  36 3a 53 54 41 26 37 33  0d 0b f4 12 4a 53 52 73  |6:STA&73....JSRs|
00001cd0  68 72 69 6e 6b 5f 74 65  78 74 0d 0b fe 09 5d 3a  |hrink_text....]:|
00001ce0  3d 4e 25 0d 0c 08 0f f4  20 2a 2a 2a 2a 2a 2a 2a  |=N%..... *******|
00001cf0  2a 2a 0d 0c 12 05 3a 0d  0c 1c 1b f4 20 69 6e 69  |**....:..... ini|
00001d00  74 69 61 6c 20 74 72 61  6e 73 70 6f 73 69 74 69  |tial transpositi|
00001d10  6f 6e 0d 0c 26 4b dc 20  35 38 35 30 34 32 33 34  |on..&K. 58504234|
00001d20  32 36 31 38 31 30 30 32  36 30 35 32 34 34 33 36  |2618100260524436|
00001d30  32 38 32 30 31 32 30 34  36 32 35 34 34 36 33 38  |2820120462544638|
00001d40  33 30 32 32 31 34 30 36  36 34 35 36 34 38 34 30  |3022140664564840|
00001d50  33 32 32 34 31 36 30 38  2c 31 30 35 36 0d 0c 30  |32241608,1056..0|
00001d60  4b dc 20 35 37 34 39 34  31 33 33 32 35 31 37 30  |K. 5749413325170|
00001d70  39 30 31 35 39 35 31 34  33 33 35 32 37 31 39 31  |9015951433527191|
00001d80  31 30 33 36 31 35 33 34  35 33 37 32 39 32 31 31  |1036153453729211|
00001d90  33 30 35 36 33 35 35 34  37 33 39 33 31 32 33 31  |3056355473931231|
00001da0  35 30 37 2c 31 30 32 34  0d 0c 3a 05 3a 0d 0c 44  |507,1024..:.:..D|
00001db0  19 f4 20 66 69 6e 61 6c  20 74 72 61 6e 73 70 6f  |.. final transpo|
00001dc0  73 69 74 69 6f 6e 0d 0c  4e 4b dc 20 34 30 30 38  |sition..NK. 4008|
00001dd0  34 38 31 36 35 36 32 34  36 34 33 32 33 39 30 37  |4816562464323907|
00001de0  34 37 31 35 35 35 32 33  36 33 33 31 33 38 30 36  |4715552363313806|
00001df0  34 36 31 34 35 34 32 32  36 32 33 30 33 37 30 35  |4614542262303705|
00001e00  34 35 31 33 35 33 32 31  36 31 32 39 2c 31 31 30  |451353216129,110|
00001e10  34 0d 0c 58 4a dc 20 33  36 30 34 34 34 31 32 35  |4..XJ. 360444125|
00001e20  32 32 30 36 30 32 38 33  35 30 33 34 33 31 31 35  |2206028350343115|
00001e30  31 31 39 35 39 32 37 33  34 30 32 34 32 31 30 35  |1195927340242105|
00001e40  30 31 38 35 38 32 36 33  33 30 31 34 31 30 39 34  |0185826330141094|
00001e50  39 31 37 35 37 32 35 2c  39 37 36 0d 0c 62 05 3a  |9175725,976..b.:|
00001e60  0d 0c 6c 0a f4 20 73 77  61 70 0d 0c 76 4b dc 20  |..l.. swap..vK. |
00001e70  33 33 33 34 33 35 33 36  33 37 33 38 33 39 34 30  |3334353637383940|
00001e80  34 31 34 32 34 33 34 34  34 35 34 36 34 37 34 38  |4142434445464748|
00001e90  34 39 35 30 35 31 35 32  35 33 35 34 35 35 35 36  |4950515253545556|
00001ea0  35 37 35 38 35 39 36 30  36 31 36 32 36 33 36 34  |5758596061626364|
00001eb0  2c 31 35 35 32 0d 0c 80  4a dc 20 30 31 30 32 30  |,1552...J. 01020|
00001ec0  33 30 34 30 35 30 36 30  37 30 38 30 39 31 30 31  |3040506070809101|
00001ed0  31 31 32 31 33 31 34 31  35 31 36 31 37 31 38 31  |1121314151617181|
00001ee0  39 32 30 32 31 32 32 32  33 32 34 32 35 32 36 32  |9202122232425262|
00001ef0  37 32 38 32 39 33 30 33  31 33 32 2c 35 32 38 0d  |72829303132,528.|
00001f00  0c 8a 05 3a 0d 0c 94 19  f4 20 6b 65 79 20 74 72  |...:..... key tr|
00001f10  61 6e 73 70 6f 73 69 74  69 6f 6e 20 31 0d 0c 9e  |ansposition 1...|
00001f20  42 dc 20 35 37 34 39 34  31 33 33 32 35 31 37 30  |B. 5749413325170|
00001f30  39 30 31 35 38 35 30 34  32 33 34 32 36 31 38 31  |9015850423426181|
00001f40  30 30 32 35 39 35 31 34  33 33 35 32 37 31 39 31  |0025951433527191|
00001f50  31 30 33 36 30 35 32 34  34 33 36 2c 39 31 32 0d  |10360524436,912.|
00001f60  0c a8 42 dc 20 36 33 35  35 34 37 33 39 33 31 32  |..B. 63554739312|
00001f70  33 31 35 30 37 36 32 35  34 34 36 33 38 33 30 32  |3150762544638302|
00001f80  32 31 34 30 36 36 31 35  33 34 35 33 37 32 39 32  |2140661534537292|
00001f90  31 31 33 30 35 32 38 32  30 31 32 30 34 2c 38 38  |1130528201204,88|
00001fa0  30 0d 0c b2 05 3a 0d 0c  bc 19 f4 20 6b 65 79 20  |0....:..... key |
00001fb0  74 72 61 6e 73 70 6f 73  69 74 69 6f 6e 20 32 0d  |transposition 2.|
00001fc0  0c c6 3a dc 20 31 34 31  37 31 31 32 34 30 31 30  |..:. 14171124010|
00001fd0  35 30 33 32 38 31 35 30  36 32 31 31 30 32 33 31  |5032815062110231|
00001fe0  39 31 32 30 34 32 36 30  38 31 36 30 37 32 37 32  |9120426081607272|
00001ff0  30 31 33 30 32 2c 33 33  32 0d 0c d0 3b dc 20 34  |01302,332...;. 4|
00002000  31 35 32 33 31 33 37 34  37 35 35 33 30 34 30 35  |1523137475530405|
00002010  31 34 35 33 33 34 38 34  34 34 39 33 39 35 36 33  |1453348444939563|
00002020  34 35 33 34 36 34 32 35  30 33 36 32 39 33 32 2c  |453464250362932,|
00002030  31 30 32 30 0d 0c da 05  3a 0d 0c e4 19 f4 20 62  |1020....:..... b|
00002040  69 74 20 73 65 6c 65 63  74 69 6f 6e 20 74 61 62  |it selection tab|
00002050  6c 65 0d 0c ee 3a dc 20  33 32 30 31 30 32 30 33  |le...:. 32010203|
00002060  30 34 30 35 30 34 30 35  30 36 30 37 30 38 30 39  |0405040506070809|
00002070  30 38 30 39 31 30 31 31  31 32 31 33 31 32 31 33  |0809101112131213|
00002080  31 34 31 35 31 36 31 37  2c 32 33 36 0d 0c f8 3a  |14151617,236...:|
00002090  dc 20 31 36 31 37 31 38  31 39 32 30 32 31 32 30  |. 16171819202120|
000020a0  32 31 32 32 32 33 32 34  32 35 32 34 32 35 32 36  |2122232425242526|
000020b0  32 37 32 38 32 39 32 38  32 39 33 30 33 31 33 32  |2728292829303132|
000020c0  30 31 2c 35 35 36 0d 0d  02 05 3a 0d 0d 0c 17 f4  |01,556....:.....|
000020d0  20 70 65 72 6d 75 74 61  74 69 6f 6e 20 74 61 62  | permutation tab|
000020e0  6c 65 0d 0d 16 2a dc 20  31 36 30 37 32 30 32 31  |le...*. 16072021|
000020f0  32 39 31 32 32 38 31 37  30 31 31 35 32 33 32 36  |2912281701152326|
00002100  30 35 31 38 33 31 31 30  2c 32 37 39 0d 0d 20 2a  |05183110,279.. *|
00002110  dc 20 30 32 30 38 32 34  31 34 33 32 32 37 30 33  |. 02082414322703|
00002120  30 39 31 39 31 33 33 30  30 36 32 32 31 31 30 34  |0919133006221104|
00002130  32 35 2c 32 34 39 0d 0d  2a 05 3a 0d 0d 34 15 f4  |25,249..*.:..4..|
00002140  20 53 20 62 6f 78 65 73  2c 20 31 20 74 6f 20 38  | S boxes, 1 to 8|
00002150  0d 0d 3e 4a dc 20 31 34  30 34 31 33 30 31 30 32  |..>J. 1404130102|
00002160  31 35 31 31 30 38 30 33  31 30 30 36 31 32 30 35  |1511080310061205|
00002170  30 39 30 30 30 37 30 30  31 35 30 37 30 34 31 34  |0900070015070414|
00002180  30 32 31 33 30 31 31 30  30 36 31 32 31 31 30 39  |0213011006121109|
00002190  30 35 30 33 30 38 2c 32  34 30 0d 0d 48 4a dc 20  |050308,240..HJ. |
000021a0  30 34 30 31 31 34 30 38  31 33 30 36 30 32 31 31  |0401140813060211|
000021b0  31 35 31 32 30 39 30 37  30 33 31 30 30 35 30 30  |1512090703100500|
000021c0  31 35 31 32 30 38 30 32  30 34 30 39 30 31 30 37  |1512080204090107|
000021d0  30 35 31 31 30 33 31 34  31 30 30 30 30 36 31 33  |0511031410000613|
000021e0  2c 32 34 30 0d 0d 52 05  3a 0d 0d 5c 4a dc 20 31  |,240..R.:..\J. 1|
000021f0  35 30 31 30 38 31 34 30  36 31 31 30 33 30 34 30  |5010814061103040|
00002200  39 30 37 30 32 31 33 31  32 30 30 30 35 31 30 30  |9070213120005100|
00002210  33 31 33 30 34 30 37 31  35 30 32 30 38 31 34 31  |3130407150208141|
00002220  32 30 30 30 31 31 30 30  36 30 39 31 31 30 35 2c  |200011006091105,|
00002230  32 34 30 0d 0d 66 4a dc  20 30 30 31 34 30 37 31  |240..fJ. 0014071|
00002240  31 31 30 30 34 31 33 30  31 30 35 30 38 31 32 30  |1100413010508120|
00002250  36 30 39 30 33 30 32 31  35 31 33 30 38 31 30 30  |6090302151308100|
00002260  31 30 33 31 35 30 34 30  32 31 31 30 36 30 37 31  |1031504021106071|
00002270  32 30 30 30 35 31 34 30  39 2c 32 34 30 0d 0d 70  |200051409,240..p|
00002280  05 3a 0d 0d 7a 4a dc 20  31 30 30 30 30 39 31 34  |.:..zJ. 10000914|
00002290  30 36 30 33 31 35 30 35  30 31 31 33 31 32 30 37  |0603150501131207|
000022a0  31 31 30 34 30 32 30 38  31 33 30 37 30 30 30 39  |1104020813070009|
000022b0  30 33 30 34 30 36 31 30  30 32 30 38 30 35 31 34  |0304061002080514|
000022c0  31 32 31 31 31 35 30 31  2c 32 34 30 0d 0d 84 4a  |12111501,240...J|
000022d0  dc 20 31 33 30 36 30 34  30 39 30 38 31 35 30 33  |. 13060409081503|
000022e0  30 30 31 31 30 31 30 32  31 32 30 35 31 30 31 34  |0011010212051014|
000022f0  30 37 30 31 31 30 31 33  30 30 30 36 30 39 30 38  |0701101300060908|
00002300  30 37 30 34 31 35 31 34  30 33 31 31 30 35 30 32  |0704151403110502|
00002310  31 32 2c 32 34 30 0d 0d  8e 05 3a 0d 0d 98 4a dc  |12,240....:...J.|
00002320  20 30 37 31 33 31 34 30  33 30 30 30 36 30 39 31  | 071314030006091|
00002330  30 30 31 30 32 30 38 30  35 31 31 31 32 30 34 31  |0010208051112041|
00002340  35 31 33 30 38 31 31 30  35 30 36 31 35 30 30 30  |5130811050615000|
00002350  33 30 34 30 37 30 32 31  32 30 31 31 30 31 34 30  |3040702120110140|
00002360  39 2c 32 34 30 0d 0d a2  4a dc 20 31 30 30 36 30  |9,240...J. 10060|
00002370  39 30 30 31 32 31 31 30  37 31 33 31 35 30 31 30  |9001211071315010|
00002380  33 31 34 30 35 30 32 30  38 30 34 30 33 31 35 30  |3140502080403150|
00002390  30 30 36 31 30 30 31 31  33 30 38 30 39 30 34 30  |0061001130809040|
000023a0  35 31 31 31 32 30 37 30  32 31 34 2c 32 34 30 0d  |51112070214,240.|
000023b0  0d ac 05 3a 0d 0d b6 4a  dc 20 30 32 31 32 30 34  |...:...J. 021204|
000023c0  30 31 30 37 31 30 31 31  30 36 30 38 30 35 30 33  |0107101106080503|
000023d0  31 35 31 33 30 30 31 34  30 39 31 34 31 31 30 32  |1513001409141102|
000023e0  31 32 30 34 30 37 31 33  30 31 30 35 30 30 31 35  |1204071301050015|
000023f0  31 30 30 33 30 39 30 38  30 36 2c 32 34 30 0d 0d  |1003090806,240..|
00002400  c0 4a dc 20 30 34 30 32  30 31 31 31 31 30 31 33  |.J. 040201111013|
00002410  30 37 30 38 31 35 30 39  31 32 30 35 30 36 30 33  |0708150912050603|
00002420  30 30 31 34 31 31 30 38  31 32 30 37 30 31 31 34  |0014110812070114|
00002430  30 32 31 33 30 36 31 35  30 30 30 39 31 30 30 34  |0213061500091004|
00002440  30 35 30 33 2c 32 34 30  0d 0d ca 05 3a 0d 0d d4  |0503,240....:...|
00002450  4a dc 20 31 32 30 31 31  30 31 35 30 39 30 32 30  |J. 1201101509020|
00002460  36 30 38 30 30 31 33 30  33 30 34 31 34 30 37 30  |6080013030414070|
00002470  35 31 31 31 30 31 35 30  34 30 32 30 37 31 32 30  |5111015040207120|
00002480  39 30 35 30 36 30 31 31  33 31 34 30 30 31 31 30  |9050601131400110|
00002490  33 30 38 2c 32 34 30 0d  0d de 4a dc 20 30 39 31  |308,240...J. 091|
000024a0  34 31 35 30 35 30 32 30  38 31 32 30 33 30 37 30  |4150502081203070|
000024b0  30 30 34 31 30 30 31 31  33 31 31 30 36 30 34 30  |0041001131106040|
000024c0  33 30 32 31 32 30 39 30  35 31 35 31 30 31 31 31  |3021209051510111|
000024d0  34 30 31 30 37 30 36 30  30 30 38 31 33 2c 32 34  |4010706000813,24|
000024e0  30 0d 0d e8 05 3a 0d 0d  f2 4a dc 20 30 34 31 31  |0....:...J. 0411|
000024f0  30 32 31 34 31 35 30 30  30 38 31 33 30 33 31 32  |0214150008130312|
00002500  30 39 30 37 30 35 31 30  30 36 30 31 31 33 30 30  |0907051006011300|
00002510  31 31 30 37 30 34 30 39  30 31 31 30 31 34 30 33  |1107040901101403|
00002520  30 35 31 32 30 32 31 35  30 38 30 36 2c 32 34 30  |051202150806,240|
00002530  0d 0d fc 4a dc 20 30 31  30 34 31 31 31 33 31 32  |...J. 0104111312|
00002540  30 33 30 37 31 34 31 30  31 35 30 36 30 38 30 30  |0307141015060800|
00002550  30 35 30 39 30 32 30 36  31 31 31 33 30 38 30 31  |0509020611130801|
00002560  30 34 31 30 30 37 30 39  30 35 30 30 31 35 31 34  |0410070905001514|
00002570  30 32 30 33 31 32 2c 32  34 30 0d 0e 06 05 3a 0d  |020312,240....:.|
00002580  0e 10 4a dc 20 31 33 30  32 30 38 30 34 30 36 31  |..J. 13020804061|
00002590  35 31 31 30 31 31 30 30  39 30 33 31 34 30 35 30  |5110110090314050|
000025a0  30 31 32 30 37 30 31 31  35 31 33 30 38 31 30 30  |0120701151308100|
000025b0  33 30 37 30 34 31 32 30  35 30 36 31 31 30 30 31  |3070412050611001|
000025c0  34 30 39 30 32 2c 32 34  30 0d 0e 1a 4a dc 20 30  |40902,240...J. 0|
000025d0  37 31 31 30 34 30 31 30  39 31 32 31 34 30 32 30  |7110401091214020|
000025e0  30 30 36 31 30 31 33 31  35 30 33 30 35 30 38 30  |0061013150305080|
000025f0  32 30 31 31 34 30 37 30  34 31 30 30 38 31 33 31  |2011407041008131|
00002600  35 31 32 30 39 30 30 30  33 30 35 30 36 31 31 2c  |512090003050611,|
00002610  32 34 30 0d 0e 24 05 3a  0d 0e 2e 11 f4 20 72 6f  |240..$.:..... ro|
00002620  74 61 74 65 20 6c 65 66  74 0d 0e 38 19 dc 20 30  |tate left..8.. 0|
00002630  31 30 31 30 32 30 32 30  32 30 32 30 32 30 32 2c  |101020202020202,|
00002640  31 34 0d 0e 42 19 dc 20  30 31 30 32 30 32 30 32  |14..B.. 01020202|
00002650  30 32 30 32 30 32 30 31  2c 31 34 0d 0e 4c 05 3a  |02020201,14..L.:|
00002660  0d 0e 56 12 f4 20 72 6f  74 61 74 65 20 72 69 67  |..V.. rotate rig|
00002670  68 74 0d 0e 60 19 dc 20  30 30 30 31 30 32 30 32  |ht..`.. 00010202|
00002680  30 32 30 32 30 32 30 32  2c 31 33 0d 0e 6a 19 dc  |02020202,13..j..|
00002690  20 30 31 30 32 30 32 30  32 30 32 30 32 30 32 30  | 010202020202020|
000026a0  31 2c 31 34 0d ff                                 |1,14..|
000026a6
InitDES.m0
InitDES.m1
InitDES.m2
InitDES.m4
InitDES.m5