master/image/retroImage

User picture

Commiter: Charles Childers

Author: Charles Childers

Revision: 4de7dc8b06


File Size: 30.7 KB

(May 01, 2010 22:38 UTC) About 2 years ago

update rx-core; add 10.6 vocab

 
Show/hide line numbers
	RETROok 																																							NN				T	jd	,Tw	uT	T	T	T	TT	TNT	

N	N	TT	TT
TNTTT	T	
T			
	,&	$	 	G
O
9	\ 
d 	
x:=	g	8		e|8
3		


		e8	3	8
3				NTTNT 
}N	^TT		)	
2		,=	;		K}K	CNTTN}	"
T	ud	0123456789ABCDEF
		
						0	-		
		4	2	S	i	-	r	aQp	@B,				
			
			 

			__@	

7
6		
CC	9?		;	D			y,	
C

 D	
z		l 
	
1+
1-
swap
drop
and
or
xor
@
!
+
-
*
/mod
<<
>>nip
dup
in&
out0accept8Nhere=T,B^]LcreateQ:Z$later`crvemitf:remap-keysl,typeover2dropnotrot-rottuck2duponoff/modnegexecutew(.)u"comparewait'
,@+3!+;+!D-!'compile3literal,ATtempStringKredrawYdkeepStringCgetLengthtwith-class}.word.macro.datad->classd->xtd->nameboot >numberloklistenCisNumber?ekeyfindDnotfoundtime	
~s"d[
p;
j;; 
=if'
>if.
<if5
!if=
thenG
repeatP
againV
0;^
pushe
pop
[']q(
untilL__&P__+W__-^__@e__!lastcompiler
tibupdatefbfwfh#memheapwhich9whitespace.
basesaveile--kes argument ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
list%{;	=*}D	LC{{	u\---reveal---	r	h	&{}}f	save	hbye	depth	reset	include 
	"
:devector	
:is	
devector	
(
is
	I
8
forget	
O
d'	I
`
afterk
	d
	W
x
remove`
	n

replace	

>lastx

	
exposeO

	

.primitive

T		+
.compiler
		
reclass	
reclass:O
	%immediate
	;compile-only

	_
F`
V	
 	
gstubp
	
ur


	
rdrop

	i	
forN
	l
next




	
fori


	

nexti


	char: 
	++;	--D	83variable:T	JDvariable3	Vconstant	hallot
s;	Ts	_listNh	{element	elements
	copy,3
	AfillNN3
	NaheadTNT	
if
	,
 if;

	>
5;thenj

	_
Felse
	]S=Z		mc<>
j		|r>y		<
		withinrS	decimal
	hex	octal	binary	ppowNN
	
skim		1&xt->d
/		K:.does
I		{
Tdoes>TNT
j
NN:	~uclear	space 	.w	."
~
,	u,	countbufferrestoreel	get	next 		
replace
e
	"eval
	7defined 
	,LevalTib
C"	A]blocke{l{}}Invalid Syntaxn,	TevalBlock]L	ifBlock
	]	ifDefined7	ifNotDefined7	shownhiddenbeforenestdepth%.shown	8.hidden%	-H.before%	=Wafterb	[	NoremoveW	ereplace	zfields%	open8%	MshutH%	:find		open?	toggle
		descend	9ascend	^W.vocab	qgvocabhW
	w((	))o9	>vocab	(.s)	<depth><w>	.s	words,	rx	4W"retro4zW1prefixes%z>prefix111	%WSfilesJ%%:rV:r+\:wc:w+i:ap:a+vfile.io	vfopen	fread	fwrite	fclose	fpos	fseek	fsize	JWnetJJnet.socket	)net.bind	@net.listen	2Wnet.accept	Imnet.close	`net.send	vnet.recv	net.connect	Wcanvas|mouse	click?	setColor	pixel	box	-solidBox	!?vline	6Qhline	Hdcircle	Z|solidCircle	mblack	blue	green	cyan	red	purple	brown	gray	darkgray	brightblue		.brightgreen
	Bbrightcyan	4Ubrightred	Hfmagenta
	[vyellow	lwhite	W10.6ekeye	fast	renderLater
$	Weditor@@
#-blocksoffsetline-endingblkblock	%(block)	6(line)@%	,E(v)	>P(ia)	HXvE	SasX	\md6 @X	h|x% X	wpX	nX	iaP	iX	new 	e%"	ea"	type,
	
rows@@
$	2.block>Block: 6,Kof G,	(Yxn+---:---+---:---],	TybarYYYY	rvby
y	u2	wsnofilter9$9	getline	setup

C	6X	set-blocks	Wdebugaddr'pad
;
D/	 NwrapU( R,$^ )[,	FjnameN,	b{resolve&
j		p.opC,

	
	.word'{	.value	pairT	
skip-pair
	
skip-nop




	$.pair	8.single	-J.lookup\Z$	8	eL	?xtable:^
	:J	n(decompile)noplitdupdropswappushpopcalljump;>jump<jump
!jump=jump@!!'+%--+3*1</mod7Dand@KorHSxorOZ<<Wa>>^h0;eo1+lv1-s}inzoutwait	.paren()	.quote''	.ascii? 
Char: ,	<call>	decompile
	more?	,header?	SI	!Uvector?ll	Jvhere?N	vU,	:see	see