�� InterpreterPrimitives >> primitiveScreenSize "primitive 106"
�� �� �� �� "no arguments(original) ==> DisplayScreen_class>>actualScreenSize ;��returning new Point from ioScreenSIze "
�� �� �� �� "two arguments ==> DisplayScreen_class>>isActualyScreenSizeX;Y: ; returning Boolean of whether X,Y match ioScreenSize"��
| pointWord x y|
pointWord := self ioScreenSize.
x := pointWord >> 16 bitAnd: 65535.
y := pointWord bitAnd: 65535.
argumentCount = 2 ifTrue: [
((x = (self stackValue: 1)) and: [y = (self stackTop)])��
ifTrue: [self pop: 3 thenPush: objectMemory trueObject]��
ifFalse: [self pop: 3 thenPush: objectMemory trueObject].
].
self pop: 1 thenPush: (self makePointwithxValue: x �� ��yValue: y)