Class new title: Process
	subclassof: Object
	fields: 'minsize maxused top restartCode stack'
	declare: ''

current 
	[ProcessFrame new from: self]

eval 
	[user croak] primitive: 26

goBaby 
	[NoteTaker _ true.
	MethodKeeper _ (Vector new: 10) asStream.
	externalViews _ Set new vector: 10.
	[Dorado  [user currentDisplay: (Form new extent: 640  760 bits: (String new: 640 * 760 / 8) offset: nil)]
	DefaultTextStyle NoteTakerize.
	user currentDisplay: (Form new extent: 640  400 bits: (String new: 640 * 400 / 8) offset: nil)].
	while true do
		[self run]]

hash 
	[self asOop]

init 
	[[NoteTaker 
		[minsize _ 128.
		self length < minsize  [user notify: 'Processess too small.']]
	minsize _ 128.
	stack _ Vector new: 1000].
	maxused _ 0.
	top _ 1]

push: t1 | t2 
	[NoteTaker 
		[top _ top + 1.
		t2 _ self length - top.
		self  t2 _ t1]
	top _ top + 1.
	t2 _ stack length - top.
	stack  t2 _ t1]

remoteCopy 
	[user croak] primitive: 25

restart 
	[restartCode eval]

run 
	[self setRestart [nil].
	user restore.
	user run]

send: t1 to: t2 | t3 t4 
	[t4 _ t2 class.
	until (t4 md has: t1) do
		[t4 _ t4 superclass.
		t4  nil  [user notify: 'message not understood:' + t1]].
	self push: t2.
	self push: t4.
	t3 _ t4 method: t1.
	self push: t3.
	self push: 0.
	self push: 0.
	self push: 0.
	self push: [NoteTaker  [t3 initialPC + 1]
	t3  6 - 2].
	self push: 1]

setRestart t1 
	[restartCode _ t1]

topFrame