Kako's Codes of Warrior (Corewar) Page


My codes


elf

;elf by Eiji Kako
ORG     SPL     0
        DJN     0,&lt-3
        JMP     -1

kirin2

;kirin2 by Eiji Kako
A	DAT	#1024
B	DAT	#9003
H1	SPL	0
H2	JMP	-1
ORG	MOV	#1024,A
	MOV	H2,<B
	MOV	H1,<B
	ADD	#826,B
	DJN	-3,A
	JMP	PROG2
	SPL	0
	JMP	-1
PROG2	MOV	#-20,C
	MOV	C,<C
	DJN	-1,<C
	JMP	ORG
	JMP	0
C	DAT	#-20

cancer cells

;cancer cells by Eiji-Kako
ORG     SPL     P1
        SPL     P2
        SPL     P3
        SPL     P4
        SPL     P5
        SPL     P6
        SPL     P7
        SPL     P8
        SPL     P9
        SPL     P10
        SPL     P11
        SPL     P12
        SPL     P13
        SPL     P14
        SPL     P15
        SPL     P16
        SPL     P17
        SPL     P18
        SPL     P19
        SPL     P20
        SPL     P21
        SPL     P22
        SPL     P23
        SPL     P24
        SPL     P25
        SPL     P26
        SPL     P27
        SPL     P28
        SPL     P29
        SPL     P30
        SPL     P31
        SPL     P32
P1      MOV     #-1603,6
        MOV     #6,-1
        ADD     #-1867,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P2      MOV     #-710,6
        MOV     #6,-1
        ADD     #-794,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P3      MOV     #-839,6
        MOV     #6,-1
        ADD     #-786,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P4      MOV     #-1064,6
        MOV     #6,-1
        ADD     #-1465,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P5      MOV     #-1683,6
        MOV     #6,-1
        ADD     #-703,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P6      MOV     #-657,6
        MOV     #6,-1
        ADD     #-1097,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P7      MOV     #-721,6
        MOV     #6,-1
        ADD     #-1062,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P8      MOV     #-1416,6
        MOV     #6,-1
        ADD     #-547,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P9      MOV     #-1560,6
        MOV     #6,-1
        ADD     #-862,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P10     MOV     #-1309,6
        MOV     #6,-1
        ADD     #-1092,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P11     MOV     #-607,6
        MOV     #6,-1
        ADD     #-1457,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P12     MOV     #-1490,6
        MOV     #6,-1
        ADD     #-754,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P13     MOV     #-1822,6
        MOV     #6,-1
        ADD     #-884,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P14     MOV     #-1823,6
        MOV     #6,-1
        ADD     #-822,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P15     MOV     #-1188,6
        MOV     #6,-1
        ADD     #-1315,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P16     MOV     #-1237,6
        MOV     #6,-1
        ADD     #-948,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P17     MOV     #-1801,6
        MOV     #6,-1
        ADD     #-1913,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P18     MOV     #-1498,6
        MOV     #6,-1
        ADD     #-943,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P19     MOV     #-1680,6
        MOV     #6,-1
        ADD     #-636,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P20     MOV     #-623,6
        MOV     #6,-1
        ADD     #-1813,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P21     MOV     #-687,6
        MOV     #6,-1
        ADD     #-1783,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P22     MOV     #-1491,6
        MOV     #6,-1
        ADD     #-785,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P23     MOV     #-1054,6
        MOV     #6,-1
        ADD     #-1238,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P24     MOV     #-956,6
        MOV     #6,-1
        ADD     #-1970,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P25     MOV     #-1299,6
        MOV     #6,-1
        ADD     #-869,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P26     MOV     #-1473,6
        MOV     #6,-1
        ADD     #-1869,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P27     MOV     #-1965,6
        MOV     #6,-1
        ADD     #-1177,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P28     MOV     #-1060,6
        MOV     #6,-1
        ADD     #-1372,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P29     MOV     #-1056,6
        MOV     #6,-1
        ADD     #-1285,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P30     MOV     #-545,6
        MOV     #6,-1
        ADD     #-1523,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P31     MOV     #-1517,6
        MOV     #6,-1
        ADD     #-1370,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0
P32     MOV     #-1000,6
        MOV     #6,-1
        ADD     #-1999,4
        MOV     @-3,&lt3
        DJN     -1,-4
        SPL     -4
        JMP     @0

srider net

;spider net (for 8kWord version of MARS)  by Eiji Kako
        MOV     X, 4095
        MOV     X, 4085
        MOV     X, 4102
        MOV     X, 4074
        MOV     X, 4109
        MOV     X, 4063
        MOV     X, 4116
        MOV     X, 4052
        MOV     X, 4123
        MOV     X, 4041
        MOV     X, 4130
        MOV     X, 4030
        MOV     X, 4137
        MOV     X, 4019
        MOV     X, 4144
        MOV     X, 4008
        MOV     X, 4151
        MOV     X, 3997
        MOV     X, 4158
        MOV     X, 3986
        MOV     X, 4165
        MOV     X, 3975
        MOV     X, 4172
        MOV     X, 3964
        MOV     X, 4179
        MOV     X, 3953
        MOV     X, 4186
        MOV     X, 3942
        MOV     X, 4193
        MOV     X, 3931
        MOV     X, 4200
        MOV     X, 3920
        MOV     X, 4207
        MOV     X, 3909
        MOV     X, 4214
        MOV     X, 3898
        MOV     X, 4221
        MOV     X, 3887
        MOV     X, 4228
        MOV     X, 3876
        MOV     X, 4235
        MOV     X, 3865
        MOV     X, 4242
        MOV     X, 3854
        MOV     X, 4249
        MOV     X, 3843
        MOV     X, 4256
        MOV     X, 3832
        MOV     X, 4263
        MOV     X, 3821
        MOV     X, 4270
        MOV     X, 3810
        MOV     X, 4277
        MOV     X, 3799
        MOV     X, 4284
        MOV     X, 3788
        MOV     X, 4291
        MOV     X, 3777
        MOV     X, 4298
        MOV     X, 3766
        MOV     X, 4305
        MOV     X, 3755
        MOV     X, 4312
        MOV     X, 3744
        MOV     X, 4319
        MOV     X, 3733
        MOV     X, 4326
        MOV     X, 3722
        MOV     X, 4333
        MOV     X, 3711
        MOV     X, 4340
        MOV     X, 3700
        MOV     X, 4347
        MOV     X, 3689
        MOV     X, 4354
        MOV     X, 3678
        MOV     X, 4361
        MOV     X, 3667
        MOV     X, 4368
        MOV     X, 3656
        MOV     X, 4375
        MOV     X, 3645
        MOV     X, 4382
        MOV     X, 3634
        MOV     X, 4389
        MOV     X, 3623
        MOV     X, 4396
        MOV     X, 3612
        MOV     X, 4403
        MOV     X, 3601
        MOV     X, 4410
        MOV     X, 3590
        MOV     X, 4417
        MOV     X, 3579
        MOV     X, 4424
        MOV     X, 3568
        MOV     X, 4431
        MOV     X, 3557
        MOV     X, 4438
        MOV     X, 3546
        MOV     X, 4445
        MOV     Y,0
        MOV     X, 3534
        MOV     X, 4451
        MOV     X, 3523
        MOV     X, 4458
        MOV     X, 3512
        MOV     X, 4465
        MOV     X, 3501
        MOV     X, 4472
        MOV     X, 3490
        MOV     X, 4479
        MOV     X, 3479
        MOV     X, 4486
        MOV     X, 3468
        MOV     X, 4493
        MOV     X, 3457
        MOV     X, 4500
        MOV     X, 3446
        MOV     X, 4507
        MOV     X, 3435
        MOV     X, 4514
        MOV     X, 3424
        MOV     X, 4521
        MOV     X, 3413
        MOV     X, 4528
        MOV     X, 3402
        MOV     X, 4535
        MOV     X, 3391
        MOV     X, 4542
        MOV     X, 3380
        MOV     X, 4549
        MOV     X, 3369
        MOV     X, 4556
        MOV     X, 3358
        MOV     X, 4563
        MOV     X, 3347
        MOV     X, 4570
        MOV     X, 3336
        MOV     X, 4577
        MOV     X, 3325
        MOV     X, 4584
        MOV     X, 3314
        MOV     X, 4591
        MOV     X, 3303
        MOV     X, 4598
        MOV     X, 3292
        MOV     X, 4605
        MOV     X, 3281
        MOV     X, 4612
        MOV     X, 3270
        MOV     X, 4619
        MOV     X, 3259
        MOV     X, 4626
        MOV     X, 3248
        MOV     X, 4633
        MOV     X, 3237
        MOV     X, 4640
        MOV     X, 3226
        MOV     X, 4647
        MOV     X, 3215
        MOV     X, 4654
        MOV     X, 3204
        MOV     X, 4661
        MOV     X, 3193
        MOV     X, 4668
        MOV     X, 3182
        MOV     X, 4675
        MOV     X, 3171
        MOV     X, 4682
        MOV     X, 3160
        MOV     X, 4689
        MOV     X, 3149
        MOV     X, 4696
        MOV     X, 3138
        MOV     X, 4703
        MOV     X, 3127
        MOV     X, 4710
        MOV     X, 3116
        MOV     X, 4717
        MOV     X, 3105
        MOV     X, 4724
        MOV     X, 3094
        MOV     X, 4731
        MOV     X, 3083
        MOV     X, 4738
        MOV     X, 3072
        MOV     X, 4745
        MOV     X, 3061
        MOV     X, 4752
        MOV     X, 3050
        MOV     X, 4759
        MOV     X, 3039
        MOV     X, 4766
        MOV     X, 3028
        MOV     X, 4773
        MOV     X, 3017
        MOV     X, 4780
        MOV     X, 3006
        MOV     X, 4787
        MOV     X, 2995
        MOV     X, 4794
        MOV     Y,0
        MOV     X, 2983
        MOV     X, 4800
        MOV     X, 2972
        MOV     X, 4807
        MOV     X, 2961
        MOV     X, 4814
        MOV     X, 2950
        MOV     X, 4821
        MOV     X, 2939
        MOV     X, 4828
        MOV     X, 2928
        MOV     X, 4835
        MOV     X, 2917
        MOV     X, 4842
        MOV     X, 2906
        MOV     X, 4849
        MOV     X, 2895
        MOV     X, 4856
        MOV     X, 2884
        MOV     X, 4863
        MOV     X, 2873
        MOV     X, 4870
        MOV     X, 2862
        MOV     X, 4877
        MOV     X, 2851
        MOV     X, 4884
        MOV     X, 2840
        MOV     X, 4891
        MOV     X, 2829
        MOV     X, 4898
        MOV     X, 2818
        MOV     X, 4905
        MOV     X, 2807
        MOV     X, 4912
        MOV     X, 2796
        MOV     X, 4919
        MOV     X, 2785
        MOV     X, 4926
        MOV     X, 2774
        MOV     X, 4933
        MOV     X, 2763
        MOV     X, 4940
        MOV     X, 2752
        MOV     X, 4947
        MOV     X, 2741
        MOV     X, 4954
        MOV     X, 2730
        MOV     X, 4961
        MOV     X, 2719
        MOV     X, 4968
        MOV     X, 2708
        MOV     X, 4975
        MOV     X, 2697
        MOV     X, 4982
        MOV     X, 2686
        MOV     X, 4989
        MOV     X, 2675
        MOV     X, 4996
        MOV     X, 2664
        MOV     X, 5003
        MOV     X, 2653
        MOV     X, 5010
        MOV     X, 2642
        MOV     X, 5017
        MOV     X, 2631
        MOV     X, 5024
        MOV     X, 2620
        MOV     X, 5031
        MOV     X, 2609
        MOV     X, 5038
        MOV     X, 2598
        MOV     X, 5045
        MOV     X, 2587
        MOV     X, 5052
        MOV     X, 2576
        MOV     X, 5059
        MOV     X, 2565
        MOV     X, 5066
        MOV     X, 2554
        MOV     X, 5073
        MOV     X, 2543
        MOV     X, 5080
        MOV     X, 2532
        MOV     X, 5087
        MOV     X, 2521
        MOV     X, 5094
        MOV     X, 2510
        MOV     X, 5101
        MOV     X, 2499
        MOV     X, 5108
        MOV     X, 2488
        MOV     X, 5115
        MOV     X, 2477
        MOV     X, 5122
        MOV     X, 2466
        MOV     X, 5129
        MOV     X, 2455
        MOV     X, 5136
        MOV     X, 2444
        MOV     X, 5143
        MOV     Y,0
        MOV     X, 2432
        MOV     X, 5149
        MOV     X, 2421
        MOV     X, 5156
        MOV     X, 2410
        MOV     X, 5163
        MOV     X, 2399
        MOV     X, 5170
        MOV     X, 2388
        MOV     X, 5177
        MOV     X, 2377
        MOV     X, 5184
        MOV     X, 2366
        MOV     X, 5191
        MOV     X, 2355
        MOV     X, 5198
        MOV     X, 2344
        MOV     X, 5205
        MOV     X, 2333
        MOV     X, 5212
        MOV     X, 2322
        MOV     X, 5219
        MOV     X, 2311
        MOV     X, 5226
        MOV     X, 2300
        MOV     X, 5233
        MOV     X, 2289
        MOV     X, 5240
        MOV     X, 2278
        MOV     X, 5247
        MOV     X, 2267
        MOV     X, 5254
        MOV     X, 2256
        MOV     X, 5261
        MOV     X, 2245
        MOV     X, 5268
        MOV     X, 2234
        MOV     X, 5275
        MOV     X, 2223
        MOV     X, 5282
        MOV     X, 2212
        MOV     X, 5289
        MOV     X, 2201
        MOV     X, 5296
        MOV     X, 2190
        MOV     X, 5303
        MOV     X, 2179
        MOV     X, 5310
        MOV     X, 2168
        MOV     X, 5317
        MOV     X, 2157
        MOV     X, 5324
        MOV     X, 2146
        MOV     X, 5331
        MOV     X, 2135
        MOV     X, 5338
        MOV     X, 2124
        MOV     X, 5345
        MOV     X, 2113
        MOV     X, 5352
        MOV     X, 2102
        MOV     X, 5359
        MOV     X, 2091
        MOV     X, 5366
        MOV     X, 2080
        MOV     X, 5373
        MOV     X, 2069
        MOV     X, 5380
        MOV     X, 2058
        MOV     X, 5387
        MOV     X, 2047
        MOV     X, 5394
        MOV     X, 2036
        MOV     X, 5401
        MOV     X, 2025
        MOV     X, 5408
        MOV     X, 2014
        MOV     X, 5415
        MOV     X, 2003
        MOV     X, 5422
        MOV     X, 1992
        MOV     X, 5429
        MOV     X, 1981
        MOV     X, 5436
        MOV     X, 1970
        MOV     X, 5443
        MOV     X, 1959
        MOV     X, 5450
        MOV     X, 1948
        MOV     X, 5457
        MOV     X, 1937
        MOV     X, 5464
        MOV     X, 1926
        MOV     X, 5471
        MOV     X, 1915
        MOV     X, 5478
        MOV     X, 1904
        MOV     X, 5485
        MOV     X, 1893
        MOV     X, 5492
        MOV     Y,0
        MOV     X, 1881
        MOV     X, 5498
        MOV     X, 1870
        MOV     X, 5505
        MOV     X, 1859
        MOV     X, 5512
        MOV     X, 1848
        MOV     X, 5519
        MOV     X, 1837
        MOV     X, 5526
        MOV     X, 1826
        MOV     X, 5533
        MOV     X, 1815
        MOV     X, 5540
        MOV     X, 1804
        MOV     X, 5547
        MOV     X, 1793
        MOV     X, 5554
        MOV     X, 1782
        MOV     X, 5561
        MOV     X, 1771
        MOV     X, 5568
        MOV     X, 1760
        MOV     X, 5575
        MOV     X, 1749
        MOV     X, 5582
        MOV     X, 1738
        MOV     X, 5589
        MOV     X, 1727
        MOV     X, 5596
        MOV     X, 1716
        MOV     X, 5603
        MOV     X, 1705
        MOV     X, 5610
        MOV     X, 1694
        MOV     X, 5617
        MOV     X, 1683
        MOV     X, 5624
        MOV     X, 1672
        MOV     X, 5631
        MOV     X, 1661
        MOV     X, 5638
        MOV     X, 1650
        MOV     X, 5645
        MOV     X, 1639
        MOV     X, 5652
        MOV     X, 1628
        MOV     X, 5659
        MOV     X, 1617
        MOV     X, 5666
        MOV     X, 1606
        MOV     X, 5673
        MOV     X, 1595
        MOV     X, 5680
        MOV     X, 1584
        MOV     X, 5687
        MOV     X, 1573
        MOV     X, 5694
        MOV     X, 1562
        MOV     X, 5701
        MOV     #1,X
BEGIN   MOV     X,@Y
        ADD     #2100,Y
        JMP     BEGIN
X       JMP     0
Y       DAT     #-1