slope lines by kodera

NYP\x04\x04\x0d\xaf\xcd\x03\x80\xbe(\xf4\x1c\x14\x14\x12 \xf3LC~\xf5
\xb7(

\xb7 \x02> \xf5\x10\xf7\x04\x10\xf0\xf1\x0c \xe9\xf1\xcd\x00\x800\xfav

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

Disassemble:

	ORG	00000H

	LD A,(BC)			;0000	0A 	. 
	LD C,(HL)			;0001	4E 	N 
	LD E,C			;0002	59 	Y 
	LD D,B			;0003	50 	P 
	INC B			;0004	04 	. 
	INC B			;0005	04 	. 
	DEC C			;0006	0D 	. 
	XOR A			;0007	AF 	. 
	CALL 08003H		;0008	CD 03 80 	. . . 
	CP (HL)			;000B	BE 	. 
	JR Z,$-10		;000C	28 F4 	( . 
	INC E			;000E	1C 	. 
	INC D			;000F	14 	. 
	INC D			;0010	14 	. 
	LD (DE),A			;0011	12 	. 
	JR NZ,$-11		;0012	20 F3 	  . 
	LD C,H			;0014	4C 	L 
	LD B,E			;0015	43 	C 
	LD A,(HL)			;0016	7E 	~ 
	PUSH AF			;0017	F5 	. 
	LD A,(BC)			;0018	0A 	. 
	OR A			;0019	B7 	. 
	JR Z,$+12		;001A	28 0A 	( . 
	LD A,(BC)			;001C	0A 	. 
	OR A			;001D	B7 	. 
	JR NZ,$+4		;001E	20 02 	  . 
	LD A,020H		;0020	3E 20 	>   
	PUSH AF			;0022	F5 	. 
	DJNZ $-7		;0023	10 F7 	. . 
	INC B			;0025	04 	. 
	DJNZ $-14		;0026	10 F0 	. . 
	POP AF			;0028	F1 	. 
	INC C			;0029	0C 	. 
	JR NZ,$-21		;002A	20 E9 	  . 
	POP AF			;002C	F1 	. 
	CALL 08000H		;002D	CD 00 80 	. . . 
	JR NC,$-4		;0030	30 FA 	0 . 
	HALT			;0032	76 	V 

download

return top