Tetris by fsystem

\xcd\x03\x80\xcd\x03\x80.s\x1f8\x0e.M\x06\x03\xcd\x03\x80\x10\xfb\x1f0\x02.`\x0c\x16
\x06\x96\xcb\x090\x01+> \xcb\x160\x02>#\xcd\x00\x80\x15 \x06>
\xcd\x00\x80W\x10\xe5v\xf8\xef?\xffN\x01\x00\xc8\xbf\x80\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\xd1R\x03\x01\x04\x00 \x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x004J \x80

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

Disassemble:

	ORG	00000H

	CALL 08003H		;0000	CD 03 80 	. . . 
	CALL 08003H		;0003	CD 03 80 	. . . 
	LD L,073H		;0006	2E 73 	. S 
	RRA			;0008	1F 	. 
	JR C,$+16		;0009	38 0E 	8 . 
	LD L,04DH		;000B	2E 4D 	. M 
	LD B,003H		;000D	06 03 	. . 
	CALL 08003H		;000F	CD 03 80 	. . . 
	DJNZ $-3		;0012	10 FB 	. . 
	RRA			;0014	1F 	. 
	JR NC,$+4		;0015	30 02 	0 . 
	LD L,060H		;0017	2E 60 	. ` 
	INC C			;0019	0C 	. 
	LD D,00AH		;001A	16 0A 	. . 
	LD B,096H		;001C	06 96 	. . 
	RRC C		;001E	CB 09 	. . 
	JR NC,$+3		;0020	30 01 	0 . 
	DEC HL			;0022	2B 	+ 
	LD A,020H		;0023	3E 20 	>   
	RL (HL)		;0025	CB 16 	. . 
	JR NC,$+4		;0027	30 02 	0 . 
	LD A,023H		;0029	3E 23 	> # 
	CALL 08000H		;002B	CD 00 80 	. . . 
	DEC D			;002E	15 	. 
	JR NZ,$+8		;002F	20 06 	  . 
	LD A,00AH		;0031	3E 0A 	> . 
	CALL 08000H		;0033	CD 00 80 	. . . 
	LD D,A			;0036	57 	W 
	DJNZ $-25		;0037	10 E5 	. . 
	HALT			;0039	76 	V 
	RET M			;003A	F8 	. 
	RST 28H			;003B	EF 	. 
	CCF			;003C	3F 	? 
	RST 38H			;003D	FF 	. 
	LD C,(HL)			;003E	4E 	N 
	LD BC,0C800H		;003F	01 00 C8 	. . . 
	CP A			;0042	BF 	. 
	ADD A,B			;0043	80 	. 
	NOP			;0044	00 	. 
	INC B			;0045	04 	. 
	NOP			;0046	00 	. 
	NOP			;0047	00 	. 
	NOP			;0048	00 	. 
	NOP			;0049	00 	. 
	NOP			;004A	00 	. 
	NOP			;004B	00 	. 
	NOP			;004C	00 	. 
	NOP			;004D	00 	. 
	POP DE			;004E	D1 	. 
	LD D,D			;004F	52 	R 
	INC BC			;0050	03 	. 
	LD BC,00004H		;0051	01 04 00 	. . . 
	JR NZ,$+2		;0054	20 00 	  . 
	NOP			;0056	00 	. 
	NOP			;0057	00 	. 
	NOP			;0058	00 	. 
	NOP			;0059	00 	. 
	NOP			;005A	00 	. 
	NOP			;005B	00 	. 
	NOP			;005C	00 	. 
	NOP			;005D	00 	. 
	NOP			;005E	00 	. 
	NOP			;005F	00 	. 
	INC (HL)			;0060	34 	4 
	LD C,D			;0061	4A 	J 
	JR NZ,$-126		;0062	20 80 	  . 

download

return top