minimal PostScript interpreter by GreaseMonkey

\xcd\x03\x8082\xfe=(\x0b\x0c>
\xb9 \x1e\x04\x0e\x00\x18\x19x\xb1(\x07y\x0b\xa7 \x02\x0e\x09x\xa7(\x03\xc60\xffy\xc60\xff>
\xff\xcd\x03\x808\x05\xfe  \xf7\xc7v\xc3\x00\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 	. . . 
	JR C,$+52		;0003	38 32 	8 2 
	CP 03DH		;0005	FE 3D 	. = 
	JR Z,$+13		;0007	28 0B 	( . 
	INC C			;0009	0C 	. 
	LD A,00AH		;000A	3E 0A 	> . 
	CP C			;000C	B9 	. 
	JR NZ,$+32		;000D	20 1E 	  . 
	INC B			;000F	04 	. 
	LD C,000H		;0010	0E 00 	. . 
	JR $+27		;0012	18 19 	. . 
	LD A,B			;0014	78 	X 
	OR C			;0015	B1 	. 
	JR Z,$+9		;0016	28 07 	( . 
	LD A,C			;0018	79 	Y 
	DEC BC			;0019	0B 	. 
	AND A			;001A	A7 	. 
	JR NZ,$+4		;001B	20 02 	  . 
	LD C,009H		;001D	0E 09 	. . 
	LD A,B			;001F	78 	X 
	AND A			;0020	A7 	. 
	JR Z,$+5		;0021	28 03 	( . 
	ADD A,030H		;0023	C6 30 	. 0 
	RST 38H			;0025	FF 	. 
	LD A,C			;0026	79 	Y 
	ADD A,030H		;0027	C6 30 	. 0 
	RST 38H			;0029	FF 	. 
	LD A,00AH		;002A	3E 0A 	> . 
	RST 38H			;002C	FF 	. 
	CALL 08003H		;002D	CD 03 80 	. . . 
	JR C,$+7		;0030	38 05 	8 . 
	CP 020H		;0032	FE 20 	.   
	JR NZ,$-7		;0034	20 F7 	  . 
	RST 0			;0036	C7 	. 
	HALT			;0037	76 	V 
	JP 08000H		;0038	C3 00 80 	. . . 

download

return top