Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Igo playback program
- ' Requirment: IchigoJam basic V1.1 beta6 or later
- '
- 10 'igo kifu V3
- 20 POKE#700+8*24,60,102,195,129,129,195,102,60,60,126,255,255,255,255,126,60
- 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
- 160 X=PEEK(S):IFX<#F0Y=(X&#F)+1:X=(X>>4)+1ELSES=S+1:Y=PEEK(S):X=(X<<3+Y>>5)f+1:Y=YF+1
- 170 IFX>Q?"END":END
- 180 C=N+Y*32+X
- 610 POKEC,M+B:B=B^1:FORY=1TOQ:C=Y*32+N:FORX=1TOQ:C=C+1:IFPEEK(C)=B|MPOKEC,B|#F8
- 660 NEXT:NEXT
- 670 D=USR(#E10,B)
- 770 FORY=1TOQ:C=Y*32+N:FORX=1TOQ:C=C+1:IFPEEK(C)&#FE=#F8:POKEC,L
- 790 NEXT:NEXT:S=S+1:GOTO160
- OK
- 'Machine code
- poke#e10,#70,#b5,#02,#1c,#e8,#32,#1b,#4b,#13,#24,#cd,#18,#00,#20,#2b,#1c
- poke#e20,#13,#3b,#01,#33,#1e,#78,#f7,#2e,#20,#d9,#5e,#78,#96,#42,#01,#d0
- poke#e30,#90,#2e,#01,#d1,#1a,#70,#01,#20,#5e,#1e,#36,#78,#96,#42,#01,#d0
- poke#e40,#90,#2e,#01,#d1,#1a,#70,#01,#20,#1e,#1c,#20,#36,#36,#78,#96,#42
- poke#e50,#01,#d0,#90,#2e,#01,#d1,#1a,#70,#01,#20,#1e,#1c,#20,#3e,#36,#78
- poke#e60,#96,#42,#01,#d0,#90,#2e,#01,#d1,#1a,#70,#01,#20,#ab,#42,#d8,#d1
- poke#e70,#1d,#1c,#01,#3c,#20,#35,#00,#2c,#d1,#d1,#00,#28,#cb,#d1,#70,#bc
- poke#e80,#02,#bc,#08,#47,#33,#09,#00,#00
- 'Source of Machine code
- '
- '#include <stdint.h>
- 'int16_t usr_sample(int16_t B, void *mem)
- '{
- ' int e;
- ' int x;
- ' int y;
- ' int d;
- ' char *c;
- ' int f = 1;
- ' e = 0xe8 + B;
- ' while(f)
- ' {
- ' f = 0;
- ' for(y=0; y<19; y++)
- ' {
- ' c=y * 32 + mem + 0x920;
- ' for(x=0; x<19; x++)
- ' {
- ' c++;
- ' if (*c >= 0xf8)
- ' {
- ' d=*(c+1);
- ' if((d==e)|(d==0x90)){*c = e; f= 1;}
- '
- ' d=*(c-1);
- ' if((d==e)|(d==0x90)){*c = e; f= 1;}
- '
- ' d=*(c+32);
- ' if((d==e)|(d==0x90)){*c = e; f= 1;}
- ' d=*(c-32);
- ' if((d==e)|(d==0x90)){*c = e; f= 1;}
- ' }
- ' }
- ' }
- ' }
- ' return 0;
- '}
- '
- 'Game1
- POKE#E8A,#F2,#03,#33,#F1,#F0,#F0,#6F,#52,#25,#F2,#0B,#E3,#B3,#F2,#02,#F2
- POKE#E9A,#22,#F1,#E2,#F2,#24,#E5,#F1,#E6,#E6,#F1,#E7,#83,#B5,#E7,#F1,#E8
- POKE#EAA,#B7,#A7,#A4,#B4,#B6,#A6,#A5,#D4,#E4,#92,#82,#93,#84,#94,#95,#85
- POKE#EBA,#96,#B8,#C8,#75,#87,#C1,#63,#A8,#C9,#AA,#81,#E1,#CB,#BC,#D2,#D1
- POKE#ECA,#A1,#B2,#CC,#BD,#AB,#BB,#BA,#99,#9B,#79,#78,#69,#65,#88,#97,#89
- POKE#EDA,#CD,#BE,#CE,#F1,#6F,#F1,#8F,#F1,#70,#F1,#90,#8C,#F2,#0E,#F0,#B0
- POKE#EEA,#66,#2D,#3D,#3C,#F0,#AF,#F0,#CF,#F0,#D0,#F0,#B1,#2E,#4D,#3E,#F0
- POKE#EFA,#8F,#2C,#3B,#F1,#71,#F1,#51,#F2,#21,#91,#90,#C5,#C7,#D3,#F2,#09
- POKE#F0A,#F1,#E9,#F2,#0A,#F1,#EB,#F1,#EA,#EA,#F2,#27,#F2,#2B,#F2,#05,#F2
- POKE#F1A,#28,#F2,#25,#F1,#E5,#F2,#04,#F2,#07,#22,#1D,#1C,#1B,#1E,#F2,#26
- POKE#F2A,#F1,#91,#F1,#EE,#F1,#31,#F1,#50,#F1,#ED,#EE,#F2,#0F,#ED,#F1,#EF
- POKE#F3A,#F1,#CF,#F2,#10,#F1,#D1,#F1,#F1,#F1,#D0,#F1,#E3,#F2,#11,#F2,#31
- POKE#F4A,#F1,#F2,#F2,#32,#F2,#2D,#F2,#2E,#F2,#0D,#F2,#4E,#2B,#0D,#F1,#52
- POKE#F5A,#EC,#EB,#28,#77,#76,#F0,#71,#39,#F0,#30,#F0,#50,#F0,#51,#F0,#2F
- POKE#F6A,#F0,#70,#F0,#31,#F0,#4F,#F0,#0F,#4A,#58,#19,#18,#F1,#E1,#F2,#01
- POKE#F7A,#F2,#45,#F2,#23,#08,#07,#09,#17,#68,#59,#5A,#E2,#C2,#29,#0B,#DC
- POKE#F8A,#F1,#EC,#F0,#10,#67,#57,#F2,#94
- 'Game2
- POKE#E8A,#F1,#E3,#F0,#6F,#23,#F2,#0F,#F1,#CF,#F1,#D0,#F1,#B0,#F1,#F0,#2D
- POKE#E9A,#F0,#B0,#F1,#8F,#F2,#0D,#82,#39,#F1,#EE,#F2,#0E,#F0,#4F,#F0,#50
- POKE#EAA,#F0,#30,#2E,#F0,#2F,#1E,#3E,#1D,#F0,#70,#F0,#8F,#F0,#71,#2C,#F1
- POKE#EBA,#2F,#26,#43,#F2,#05,#F2,#04,#F1,#E5,#D3,#F1,#E8,#E9,#E8,#D9,#C7
- POKE#ECA,#F0,#CF,#F0,#D0,#3D,#3C,#5E,#F0,#EF,#7E,#4E,#4D,#5D,#4C,#4B,#5C
- POKE#EDA,#6D,#5B,#6E,#4A,#3A,#3B,#2B,#47,#38,#F1,#E9,#F2,#08,#F2,#25,#F2
- POKE#EEA,#26,#A3,#7D,#EC,#F2,#24,#F2,#23,#F2,#45,#58,#6A,#7C,#8D,#7B,#AE
- POKE#EFA,#F1,#4F,#62,#35,#83,#92,#64,#36,#25,#27,#17,#37,#18,#73,#74,#63
- POKE#F0A,#53,#72,#54,#42,#67,#52,#68,#88,#7A,#8A,#8B,#8C,#89,#9B,#99,#85
- POKE#F1A,#AC,#AB,#B9,#BA,#BE,#B8,#A9,#28,#29,#C9,#F1,#B1,#F1,#91,#F1,#70
- POKE#F2A,#F1,#6F,#F1,#90,#F1,#AF,#F1,#71,#BC,#A7,#76,#F2,#02,#F2,#03,#F2
- POKE#F3A,#22,#F1,#E2,#F2,#43,#66,#24,#13,#F2,#01,#78,#96,#79,#E1,#F1,#E1
- POKE#F4A,#F1,#E0,#D1,#34,#44,#69,#77,#49,#D5,#C5,#C4,#F2,#2A,#57,#4B,#D7
- POKE#F5A,#D6,#B6,#B7,#C6,#E6,#A6,#D8,#97,#D0,#A8,#C8,#98,#D2,#C1,#E3,#C2
- POKE#F6A,#E2,#F1,#51,#F1,#92,#8E,#F1,#0F,#9E,#9D,#F1,#11,#F0,#F1,#F2,#0B
- POKE#F7A,#F2,#2B,#F2,#0C,#F2,#2C,#0E,#1C,#BD,#AD,#CE,#14,#04,#05,#03,#C0
- POKE#F8A,#B0,#E0,#33,#16,#B1,#F1,#ED,#ED,#F0,#91,#F0,#51,#F0,#AF,#F1,#10
- POKE#F9A,#F0,#F0,#F2,#09,#F2,#29,#F2,#94
- 'Game3
- POKE#E8A,#F1,#E3,#F1,#EF,#23,#F0,#6F,#2D,#F0,#B0,#83,#F2,#05,#D2,#F2,#0C
- POKE#E9A,#39,#43,#32,#46,#45,#34,#35,#24,#42,#53,#55,#52,#13,#74,#84,#73
- POKE#EAA,#82,#76,#85,#66,#97,#28,#36,#38,#48,#16,#17,#14,#18,#29,#37,#3A
- POKE#EBA,#49,#2A,#27,#68,#57,#3C,#3D,#56,#47,#5C,#4A,#4B,#6A,#88,#2C,#5E
- POKE#ECA,#4D,#5B,#1A,#19,#09,#7C,#79,#78,#69,#98,#8B,#9D,#F0,#4F,#F0,#50
- POKE#EDA,#F0,#70,#F0,#71,#F0,#30,#F0,#90,#F1,#EC,#F1,#EB,#F2,#0D,#EC,#F1
- POKE#EEA,#ED,#F2,#0B,#EB,#ED,#F2,#2D,#EE,#EA,#F2,#08,#BB,#72,#F2,#10,#F2
- POKE#EFA,#0F,#F2,#2F,#F1,#F0,#F2,#30,#F2,#11,#F2,#31,#BD,#F2,#04,#F2,#24
- POKE#F0A,#F2,#23,#F1,#E4,#F2,#03,#11,#33,#44,#21,#12,#03,#41,#10,#61,#F2
- POKE#F1A,#0A,#F1,#EA,#BE,#CD,#F1,#E9,#F2,#09,#F2,#2B,#F2,#2A,#F2,#2C,#F2
- POKE#F2A,#0A,#F0,#51,#F1,#E5,#F1,#10,#F1,#50,#F1,#70,#F1,#30,#9E,#AD,#F0
- POKE#F3A,#F1,#F1,#0F,#F0,#EF,#8E,#F1,#31,#F1,#51,#7E,#F0,#D0,#F0,#F0,#8D
- POKE#F4A,#5D,#6D,#6E,#F0,#D1,#F0,#D2,#F0,#B2,#F1,#12,#81,#F1,#52,#F1,#71
- POKE#F5A,#F0,#70,#7D,#F0,#72,#F0,#50,#F0,#AF,#4E,#3E,#F0,#8F,#F0,#91,#F0
- POKE#F6A,#F2,#F2,#07,#F1,#E7,#F0,#D2,#F0,#70,#F0,#31,#F0,#F2,#F1,#E8,#E7
- POKE#F7A,#F0,#D2,#F0,#2F,#F0,#F2,#2E,#1E,#1D,#F0,#4F,#F0,#52,#F2,#94,#00
- 'Game4
- POKE#E8A,#F1,#E3,#F0,#6F,#23,#F2,#0F,#F1,#CF,#F1,#D0,#F1,#B0,#F1,#F0,#2D
- POKE#E9A,#F0,#B0,#F1,#8F,#F1,#EE,#F1,#10,#42,#73,#26,#43,#29,#32,#F0,#2F
- POKE#EAA,#D2,#F2,#08,#F0,#8F,#4E,#3A,#F0,#AF,#2A,#39,#49,#48,#58,#47,#57
- POKE#EBA,#19,#5A,#56,#66,#55,#65,#C2,#C3,#B2,#D1,#83,#72,#96,#F1,#E9,#F1
- POKE#ECA,#E8,#E9,#E8,#D8,#D7,#C7,#D6,#C6,#C8,#D9,#C5,#B8,#D4,#D3,#C9,#B5
- POKE#EDA,#CA,#C4,#D5,#B7,#F2,#09,#AA,#8A,#98,#67,#79,#64,#74,#53,#52,#A8
- POKE#EEA,#99,#B9,#A7,#97,#CB,#DA,#EB,#EA,#F1,#EA,#F1,#EB,#F2,#0A,#DB,#A9
- POKE#EFA,#88,#F2,#2A,#EC,#F1,#E6,#F2,#0B,#F0,#4F,#2E,#E4,#F2,#2B,#F2,#4A
- POKE#F0A,#F2,#29,#76,#89,#AC,#68,#59,#9B,#AB,#6B,#5B,#6C,#27,#44,#41,#16
- POKE#F1A,#36,#46,#4D,#5E,#35,#37,#8C,#7A,#1D,#85,#63,#54,#75,#87,#17,#28
- POKE#F2A,#7E,#6E,#F1,#D1,#F2,#26,#3D,#F0,#50,#F1,#F1,#F2,#11,#F2,#25,#F2
- POKE#F3A,#06,#F2,#05,#92,#F0,#D1,#F2,#45,#F2,#44,#F2,#46,#F2,#23,#1B,#1A
- POKE#F4A,#0A,#2B,#7D,#8D,#F0,#EF,#F0,#B1,#F0,#91,#F0,#92,#F0,#72,#07,#08
- POKE#F5A,#A3,#84,#A2,#A1,#6A,#81,#F2,#07,#F2,#27,#F2,#12,#F2,#32,#E7,#F2
- POKE#F6A,#4B,#E5,#F2,#49,#D8,#D9,#EE,#F1,#2F,#4A,#19,#18,#1A,#37,#59,#4B
- POKE#F7A,#4D,#5D,#4C,#5C,#3B,#6A,#57,#F2,#94,#00
- 'Game5
- POKE#E8A,#F2,#03,#33,#F1,#F0,#F0,#6F,#E2,#F1,#EE,#F2,#0E,#F2,#0D,#F2,#0F
- POKE#E9A,#F1,#EC,#F1,#B0,#F2,#04,#F1,#E4,#F2,#05,#F2,#23,#F1,#E5,#F2,#0B
- POKE#EAA,#E4,#F1,#EB,#EB,#EC,#EA,#DC,#F2,#09,#F2,#2D,#F0,#D0,#25,#52,#13
- POKE#EBA,#27,#37,#38,#36,#22,#28,#29,#18,#39,#17,#CB,#CC,#BC,#DB,#DA,#BD
- POKE#ECA,#BB,#AD,#CD,#CE,#F2,#2C,#F2,#2B,#F2,#2E,#F2,#4D,#F1,#ED,#EE,#F1
- POKE#EDA,#CF,#DE,#F2,#4C,#F1,#EF,#D2,#D1,#E1,#F1,#E1,#E3,#F1,#E2,#C1,#E0
- POKE#EEA,#C2,#63,#65,#62,#53,#64,#55,#75,#76,#85,#86,#83,#95,#91,#93,#92
- POKE#EFA,#94,#67,#51,#66,#54,#72,#78,#9B,#71,#61,#60,#81,#70,#80,#50,#A0
- POKE#F0A,#F1,#10,#88,#77,#79,#68,#69,#2D,#F0,#70,#F0,#50,#F0,#B0,#F0,#90
- POKE#F1A,#F0,#AF,#F0,#CF,#3E,#2E,#F0,#8F,#F0,#71,#F0,#91,#F0,#70,#F0,#D1
- POKE#F2A,#5E,#4E,#5D,#F0,#F1,#8D,#F1,#11,#F1,#30,#F1,#51,#F1,#31,#F1,#32
- POKE#F3A,#F1,#50,#F1,#71,#F1,#70,#F1,#90,#F1,#91,#F1,#B1,#8A,#58,#57,#9A
- POKE#F4A,#89,#99,#8B,#9C,#8C,#47,#56,#C9,#B9,#B8,#C8,#BA,#D9,#A9,#48,#1A
- POKE#F5A,#19,#09,#F1,#12,#F0,#F2,#F2,#4E,#F2,#2D,#F2,#2A,#F2,#4B,#08,#07
- POKE#F6A,#2B,#1B,#1C,#3C,#3D,#2C,#3B,#4C,#4D,#5B,#59,#1D,#0A,#0B,#F0,#B1
- POKE#F7A,#C7,#D8,#B6,#F1,#52,#F1,#72,#12,#1E,#F0,#2F,#E6,#C5,#D7,#F1,#E7
- POKE#F8A,#24,#CA,#F2,#46,#F2,#26,#6B,#F2,#24,#F2,#44,#F2,#45,#F2,#25,#F2
- POKE#F9A,#47,#B3,#C4,#02,#01,#03,#23,#15,#A2,#A1,#E7,#D5,#B2,#11,#21,#00
- POKE#FAA,#6A,#7B,#7A,#97,#A6,#B5,#A7,#B7,#B4,#A5,#96,#0E,#B9,#A8,#9D,#AC
- POKE#FBA,#F2,#4D,#ED,#F2,#2F,#F2,#30,#F1,#EA,#F2,#0C,#F2,#45,#F2,#43,#C0
- POKE#FCA,#D0,#F0,#F0,#F1,#92,#AE,#F1,#6F,#F1,#4F,#BE,#F0,#B2,#F1,#52,#4B
- POKE#FDA,#5C,#7C,#0C,#AA,#D4,#E5,#34,#84,#74,#F0,#0F,#44,#43,#A4,#A3,#F1
- POKE#FEA,#E3,#F1,#E6,#D6,#F2,#4A,#F2,#2D,#5A,#AB,#6C,#1C,#BA,#2A,#3A,#F2
- POKE#FFA,#0A,#F2,#29,#F2,#94,#00
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement