� 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