masaakiNakamura

AlphaGo Playback for IchigoJam Game1-5

Apr 2nd, 2016
658
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ' Igo playback program
  2. ' Requirment: IchigoJam basic V1.1 beta6 or later
  3. '
  4. 10 'igo kifu V3
  5. 20 POKE#700+8*24,60,102,195,129,129,195,102,60,60,126,255,255,255,255,126,60
  6. 100 UART0:L=#90:M=#E8:N=#900:Q=19:CLS:FORY=1TOQ:FORX=1TOQ:LCX,Y:?CHR$(L):NEXT:NEXT:S=#E8A:B=0
  7. 160 X=PEEK(S):IFX<#F0Y=(X&#F)+1:X=(X>>4)+1ELSES=S+1:Y=PEEK(S):X=(X<<3+Y>>5)&#1f+1:Y=Y&#1F+1
  8. 170 IFX>Q?"END":END
  9. 180 C=N+Y*32+X
  10. 610 POKEC,M+B:B=B^1:FORY=1TOQ:C=Y*32+N:FORX=1TOQ:C=C+1:IFPEEK(C)=B|MPOKEC,B|#F8
  11. 660 NEXT:NEXT
  12. 670 D=USR(#E10,B)
  13. 770 FORY=1TOQ:C=Y*32+N:FORX=1TOQ:C=C+1:IFPEEK(C)&#FE=#F8:POKEC,L
  14. 790 NEXT:NEXT:S=S+1:GOTO160
  15. OK
  16.  
  17.  
  18. 'Machine code
  19.  
  20. poke#e10,#70,#b5,#02,#1c,#e8,#32,#1b,#4b,#13,#24,#cd,#18,#00,#20,#2b,#1c
  21. poke#e20,#13,#3b,#01,#33,#1e,#78,#f7,#2e,#20,#d9,#5e,#78,#96,#42,#01,#d0
  22. poke#e30,#90,#2e,#01,#d1,#1a,#70,#01,#20,#5e,#1e,#36,#78,#96,#42,#01,#d0
  23. poke#e40,#90,#2e,#01,#d1,#1a,#70,#01,#20,#1e,#1c,#20,#36,#36,#78,#96,#42
  24. poke#e50,#01,#d0,#90,#2e,#01,#d1,#1a,#70,#01,#20,#1e,#1c,#20,#3e,#36,#78
  25. poke#e60,#96,#42,#01,#d0,#90,#2e,#01,#d1,#1a,#70,#01,#20,#ab,#42,#d8,#d1
  26. poke#e70,#1d,#1c,#01,#3c,#20,#35,#00,#2c,#d1,#d1,#00,#28,#cb,#d1,#70,#bc
  27. poke#e80,#02,#bc,#08,#47,#33,#09,#00,#00
  28.  
  29. 'Source of Machine code
  30. '
  31. '#include <stdint.h>
  32. 'int16_t usr_sample(int16_t B, void *mem)
  33. '{
  34. '    int e;
  35. '    int x;
  36. '    int y;
  37. '    int d;
  38. '    char *c;
  39. '    int f = 1;
  40. '    e = 0xe8 + B;    
  41. '    while(f)
  42. '    {
  43. '      f = 0;
  44. '      for(y=0; y<19; y++)
  45. '      {
  46. '        c=y * 32 + mem + 0x920;
  47. '        for(x=0; x<19; x++)
  48. '        {
  49. '            c++;
  50. '            if (*c >= 0xf8)
  51. '            {
  52. '                d=*(c+1);
  53. '                if((d==e)|(d==0x90)){*c = e; f= 1;}
  54. '                
  55. '                d=*(c-1);
  56. '                if((d==e)|(d==0x90)){*c = e; f= 1;}
  57. '                
  58. '                d=*(c+32);
  59. '                if((d==e)|(d==0x90)){*c = e; f= 1;}
  60. '                d=*(c-32);
  61. '                if((d==e)|(d==0x90)){*c = e; f= 1;}
  62. '            }
  63. '        }
  64. '      }
  65. '    }
  66. ' return 0;
  67. '}
  68. '
  69.  
  70. 'Game1
  71. POKE#E8A,#F2,#03,#33,#F1,#F0,#F0,#6F,#52,#25,#F2,#0B,#E3,#B3,#F2,#02,#F2
  72. POKE#E9A,#22,#F1,#E2,#F2,#24,#E5,#F1,#E6,#E6,#F1,#E7,#83,#B5,#E7,#F1,#E8
  73. POKE#EAA,#B7,#A7,#A4,#B4,#B6,#A6,#A5,#D4,#E4,#92,#82,#93,#84,#94,#95,#85
  74. POKE#EBA,#96,#B8,#C8,#75,#87,#C1,#63,#A8,#C9,#AA,#81,#E1,#CB,#BC,#D2,#D1
  75. POKE#ECA,#A1,#B2,#CC,#BD,#AB,#BB,#BA,#99,#9B,#79,#78,#69,#65,#88,#97,#89
  76. POKE#EDA,#CD,#BE,#CE,#F1,#6F,#F1,#8F,#F1,#70,#F1,#90,#8C,#F2,#0E,#F0,#B0
  77. POKE#EEA,#66,#2D,#3D,#3C,#F0,#AF,#F0,#CF,#F0,#D0,#F0,#B1,#2E,#4D,#3E,#F0
  78. POKE#EFA,#8F,#2C,#3B,#F1,#71,#F1,#51,#F2,#21,#91,#90,#C5,#C7,#D3,#F2,#09
  79. POKE#F0A,#F1,#E9,#F2,#0A,#F1,#EB,#F1,#EA,#EA,#F2,#27,#F2,#2B,#F2,#05,#F2
  80. POKE#F1A,#28,#F2,#25,#F1,#E5,#F2,#04,#F2,#07,#22,#1D,#1C,#1B,#1E,#F2,#26
  81. POKE#F2A,#F1,#91,#F1,#EE,#F1,#31,#F1,#50,#F1,#ED,#EE,#F2,#0F,#ED,#F1,#EF
  82. POKE#F3A,#F1,#CF,#F2,#10,#F1,#D1,#F1,#F1,#F1,#D0,#F1,#E3,#F2,#11,#F2,#31
  83. POKE#F4A,#F1,#F2,#F2,#32,#F2,#2D,#F2,#2E,#F2,#0D,#F2,#4E,#2B,#0D,#F1,#52
  84. POKE#F5A,#EC,#EB,#28,#77,#76,#F0,#71,#39,#F0,#30,#F0,#50,#F0,#51,#F0,#2F
  85. POKE#F6A,#F0,#70,#F0,#31,#F0,#4F,#F0,#0F,#4A,#58,#19,#18,#F1,#E1,#F2,#01
  86. POKE#F7A,#F2,#45,#F2,#23,#08,#07,#09,#17,#68,#59,#5A,#E2,#C2,#29,#0B,#DC
  87. POKE#F8A,#F1,#EC,#F0,#10,#67,#57,#F2,#94
  88.  
  89. 'Game2
  90. POKE#E8A,#F1,#E3,#F0,#6F,#23,#F2,#0F,#F1,#CF,#F1,#D0,#F1,#B0,#F1,#F0,#2D
  91. POKE#E9A,#F0,#B0,#F1,#8F,#F2,#0D,#82,#39,#F1,#EE,#F2,#0E,#F0,#4F,#F0,#50
  92. POKE#EAA,#F0,#30,#2E,#F0,#2F,#1E,#3E,#1D,#F0,#70,#F0,#8F,#F0,#71,#2C,#F1
  93. POKE#EBA,#2F,#26,#43,#F2,#05,#F2,#04,#F1,#E5,#D3,#F1,#E8,#E9,#E8,#D9,#C7
  94. POKE#ECA,#F0,#CF,#F0,#D0,#3D,#3C,#5E,#F0,#EF,#7E,#4E,#4D,#5D,#4C,#4B,#5C
  95. POKE#EDA,#6D,#5B,#6E,#4A,#3A,#3B,#2B,#47,#38,#F1,#E9,#F2,#08,#F2,#25,#F2
  96. POKE#EEA,#26,#A3,#7D,#EC,#F2,#24,#F2,#23,#F2,#45,#58,#6A,#7C,#8D,#7B,#AE
  97. POKE#EFA,#F1,#4F,#62,#35,#83,#92,#64,#36,#25,#27,#17,#37,#18,#73,#74,#63
  98. POKE#F0A,#53,#72,#54,#42,#67,#52,#68,#88,#7A,#8A,#8B,#8C,#89,#9B,#99,#85
  99. POKE#F1A,#AC,#AB,#B9,#BA,#BE,#B8,#A9,#28,#29,#C9,#F1,#B1,#F1,#91,#F1,#70
  100. POKE#F2A,#F1,#6F,#F1,#90,#F1,#AF,#F1,#71,#BC,#A7,#76,#F2,#02,#F2,#03,#F2
  101. POKE#F3A,#22,#F1,#E2,#F2,#43,#66,#24,#13,#F2,#01,#78,#96,#79,#E1,#F1,#E1
  102. POKE#F4A,#F1,#E0,#D1,#34,#44,#69,#77,#49,#D5,#C5,#C4,#F2,#2A,#57,#4B,#D7
  103. POKE#F5A,#D6,#B6,#B7,#C6,#E6,#A6,#D8,#97,#D0,#A8,#C8,#98,#D2,#C1,#E3,#C2
  104. POKE#F6A,#E2,#F1,#51,#F1,#92,#8E,#F1,#0F,#9E,#9D,#F1,#11,#F0,#F1,#F2,#0B
  105. POKE#F7A,#F2,#2B,#F2,#0C,#F2,#2C,#0E,#1C,#BD,#AD,#CE,#14,#04,#05,#03,#C0
  106. POKE#F8A,#B0,#E0,#33,#16,#B1,#F1,#ED,#ED,#F0,#91,#F0,#51,#F0,#AF,#F1,#10
  107. POKE#F9A,#F0,#F0,#F2,#09,#F2,#29,#F2,#94
  108.  
  109. 'Game3
  110. POKE#E8A,#F1,#E3,#F1,#EF,#23,#F0,#6F,#2D,#F0,#B0,#83,#F2,#05,#D2,#F2,#0C
  111. POKE#E9A,#39,#43,#32,#46,#45,#34,#35,#24,#42,#53,#55,#52,#13,#74,#84,#73
  112. POKE#EAA,#82,#76,#85,#66,#97,#28,#36,#38,#48,#16,#17,#14,#18,#29,#37,#3A
  113. POKE#EBA,#49,#2A,#27,#68,#57,#3C,#3D,#56,#47,#5C,#4A,#4B,#6A,#88,#2C,#5E
  114. POKE#ECA,#4D,#5B,#1A,#19,#09,#7C,#79,#78,#69,#98,#8B,#9D,#F0,#4F,#F0,#50
  115. POKE#EDA,#F0,#70,#F0,#71,#F0,#30,#F0,#90,#F1,#EC,#F1,#EB,#F2,#0D,#EC,#F1
  116. POKE#EEA,#ED,#F2,#0B,#EB,#ED,#F2,#2D,#EE,#EA,#F2,#08,#BB,#72,#F2,#10,#F2
  117. POKE#EFA,#0F,#F2,#2F,#F1,#F0,#F2,#30,#F2,#11,#F2,#31,#BD,#F2,#04,#F2,#24
  118. POKE#F0A,#F2,#23,#F1,#E4,#F2,#03,#11,#33,#44,#21,#12,#03,#41,#10,#61,#F2
  119. POKE#F1A,#0A,#F1,#EA,#BE,#CD,#F1,#E9,#F2,#09,#F2,#2B,#F2,#2A,#F2,#2C,#F2
  120. POKE#F2A,#0A,#F0,#51,#F1,#E5,#F1,#10,#F1,#50,#F1,#70,#F1,#30,#9E,#AD,#F0
  121. POKE#F3A,#F1,#F1,#0F,#F0,#EF,#8E,#F1,#31,#F1,#51,#7E,#F0,#D0,#F0,#F0,#8D
  122. POKE#F4A,#5D,#6D,#6E,#F0,#D1,#F0,#D2,#F0,#B2,#F1,#12,#81,#F1,#52,#F1,#71
  123. POKE#F5A,#F0,#70,#7D,#F0,#72,#F0,#50,#F0,#AF,#4E,#3E,#F0,#8F,#F0,#91,#F0
  124. POKE#F6A,#F2,#F2,#07,#F1,#E7,#F0,#D2,#F0,#70,#F0,#31,#F0,#F2,#F1,#E8,#E7
  125. POKE#F7A,#F0,#D2,#F0,#2F,#F0,#F2,#2E,#1E,#1D,#F0,#4F,#F0,#52,#F2,#94,#00
  126.  
  127. 'Game4
  128. POKE#E8A,#F1,#E3,#F0,#6F,#23,#F2,#0F,#F1,#CF,#F1,#D0,#F1,#B0,#F1,#F0,#2D
  129. POKE#E9A,#F0,#B0,#F1,#8F,#F1,#EE,#F1,#10,#42,#73,#26,#43,#29,#32,#F0,#2F
  130. POKE#EAA,#D2,#F2,#08,#F0,#8F,#4E,#3A,#F0,#AF,#2A,#39,#49,#48,#58,#47,#57
  131. POKE#EBA,#19,#5A,#56,#66,#55,#65,#C2,#C3,#B2,#D1,#83,#72,#96,#F1,#E9,#F1
  132. POKE#ECA,#E8,#E9,#E8,#D8,#D7,#C7,#D6,#C6,#C8,#D9,#C5,#B8,#D4,#D3,#C9,#B5
  133. POKE#EDA,#CA,#C4,#D5,#B7,#F2,#09,#AA,#8A,#98,#67,#79,#64,#74,#53,#52,#A8
  134. POKE#EEA,#99,#B9,#A7,#97,#CB,#DA,#EB,#EA,#F1,#EA,#F1,#EB,#F2,#0A,#DB,#A9
  135. POKE#EFA,#88,#F2,#2A,#EC,#F1,#E6,#F2,#0B,#F0,#4F,#2E,#E4,#F2,#2B,#F2,#4A
  136. POKE#F0A,#F2,#29,#76,#89,#AC,#68,#59,#9B,#AB,#6B,#5B,#6C,#27,#44,#41,#16
  137. POKE#F1A,#36,#46,#4D,#5E,#35,#37,#8C,#7A,#1D,#85,#63,#54,#75,#87,#17,#28
  138. POKE#F2A,#7E,#6E,#F1,#D1,#F2,#26,#3D,#F0,#50,#F1,#F1,#F2,#11,#F2,#25,#F2
  139. POKE#F3A,#06,#F2,#05,#92,#F0,#D1,#F2,#45,#F2,#44,#F2,#46,#F2,#23,#1B,#1A
  140. POKE#F4A,#0A,#2B,#7D,#8D,#F0,#EF,#F0,#B1,#F0,#91,#F0,#92,#F0,#72,#07,#08
  141. POKE#F5A,#A3,#84,#A2,#A1,#6A,#81,#F2,#07,#F2,#27,#F2,#12,#F2,#32,#E7,#F2
  142. POKE#F6A,#4B,#E5,#F2,#49,#D8,#D9,#EE,#F1,#2F,#4A,#19,#18,#1A,#37,#59,#4B
  143. POKE#F7A,#4D,#5D,#4C,#5C,#3B,#6A,#57,#F2,#94,#00
  144.  
  145. 'Game5
  146. POKE#E8A,#F2,#03,#33,#F1,#F0,#F0,#6F,#E2,#F1,#EE,#F2,#0E,#F2,#0D,#F2,#0F
  147. POKE#E9A,#F1,#EC,#F1,#B0,#F2,#04,#F1,#E4,#F2,#05,#F2,#23,#F1,#E5,#F2,#0B
  148. POKE#EAA,#E4,#F1,#EB,#EB,#EC,#EA,#DC,#F2,#09,#F2,#2D,#F0,#D0,#25,#52,#13
  149. POKE#EBA,#27,#37,#38,#36,#22,#28,#29,#18,#39,#17,#CB,#CC,#BC,#DB,#DA,#BD
  150. POKE#ECA,#BB,#AD,#CD,#CE,#F2,#2C,#F2,#2B,#F2,#2E,#F2,#4D,#F1,#ED,#EE,#F1
  151. POKE#EDA,#CF,#DE,#F2,#4C,#F1,#EF,#D2,#D1,#E1,#F1,#E1,#E3,#F1,#E2,#C1,#E0
  152. POKE#EEA,#C2,#63,#65,#62,#53,#64,#55,#75,#76,#85,#86,#83,#95,#91,#93,#92
  153. POKE#EFA,#94,#67,#51,#66,#54,#72,#78,#9B,#71,#61,#60,#81,#70,#80,#50,#A0
  154. POKE#F0A,#F1,#10,#88,#77,#79,#68,#69,#2D,#F0,#70,#F0,#50,#F0,#B0,#F0,#90
  155. POKE#F1A,#F0,#AF,#F0,#CF,#3E,#2E,#F0,#8F,#F0,#71,#F0,#91,#F0,#70,#F0,#D1
  156. POKE#F2A,#5E,#4E,#5D,#F0,#F1,#8D,#F1,#11,#F1,#30,#F1,#51,#F1,#31,#F1,#32
  157. POKE#F3A,#F1,#50,#F1,#71,#F1,#70,#F1,#90,#F1,#91,#F1,#B1,#8A,#58,#57,#9A
  158. POKE#F4A,#89,#99,#8B,#9C,#8C,#47,#56,#C9,#B9,#B8,#C8,#BA,#D9,#A9,#48,#1A
  159. POKE#F5A,#19,#09,#F1,#12,#F0,#F2,#F2,#4E,#F2,#2D,#F2,#2A,#F2,#4B,#08,#07
  160. POKE#F6A,#2B,#1B,#1C,#3C,#3D,#2C,#3B,#4C,#4D,#5B,#59,#1D,#0A,#0B,#F0,#B1
  161. POKE#F7A,#C7,#D8,#B6,#F1,#52,#F1,#72,#12,#1E,#F0,#2F,#E6,#C5,#D7,#F1,#E7
  162. POKE#F8A,#24,#CA,#F2,#46,#F2,#26,#6B,#F2,#24,#F2,#44,#F2,#45,#F2,#25,#F2
  163. POKE#F9A,#47,#B3,#C4,#02,#01,#03,#23,#15,#A2,#A1,#E7,#D5,#B2,#11,#21,#00
  164. POKE#FAA,#6A,#7B,#7A,#97,#A6,#B5,#A7,#B7,#B4,#A5,#96,#0E,#B9,#A8,#9D,#AC
  165. POKE#FBA,#F2,#4D,#ED,#F2,#2F,#F2,#30,#F1,#EA,#F2,#0C,#F2,#45,#F2,#43,#C0
  166. POKE#FCA,#D0,#F0,#F0,#F1,#92,#AE,#F1,#6F,#F1,#4F,#BE,#F0,#B2,#F1,#52,#4B
  167. POKE#FDA,#5C,#7C,#0C,#AA,#D4,#E5,#34,#84,#74,#F0,#0F,#44,#43,#A4,#A3,#F1
  168. POKE#FEA,#E3,#F1,#E6,#D6,#F2,#4A,#F2,#2D,#5A,#AB,#6C,#1C,#BA,#2A,#3A,#F2
  169. POKE#FFA,#0A,#F2,#29,#F2,#94,#00
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×