/ / /
   Simon

, - Simon (. ""), 1978 Milton Bradley. Ralph H. Baer, Howard J. Morrison Lenny Cope.

, . .

2013 . Pavabor (.: http://mk_152.livejournal.com/50486.html ), .

  • . , .
  • . - .
  • -152 , . , , 149-151.




  simon

"/", "/". "-", "+", "÷" "×".

. , .

. , RX - . "/", "/".




"Simon" .

simon3.mkp - 160 , 22229/19



	
.CHARSET1251
; SIMON
; -----
;     
;  :  -  -  ( 1  Ш)
;   : / /
;  : - / + *
;       
;  Ѩ  2  :)
; PAVABOR

	.OPT 1
	.ORG 0

	SETXY	.EQU 9000
	ATTR	.EQU 9001
	FONT	.EQU 9003
	SCROLL	.EQU 9007
	GRINI	.EQU 9010
	POINT	.EQU 9011
	LINE	.EQU 9012
	FBOX	.EQU 9013
	BOX	.EQU 9014
	DRAW	.EQU 9015
	EMIT	.EQU 9020
	TYPE	.EQU 9021	
	NPRINT	.EQU 9023
	KEY	.EQU 9029
	ADDR	.EQU 9041
	SOUND	.EQU 9052
	TIMER0	.EQU 9050


START:
	PGSB INI

BOXES:	
	GSB PREDRAW  
	RM5 KPRGM KME		; E - EMIT 
	KRM5
	FL0 BOXES

	RMD 1 - MD 		;      
	3 PPM ATTR		;  XOR-

MAIN:
	0 GSB BEEP1	; -
	GSB WAIT
	PGSB RESRND 	;    ר
SAY:			; 
	PGSB RND
	GSB SHOW
	FL1 SAY

	PGSB RESRND	;    ר
LISTEN:			; 
	PPRM KEY
	KNOT
	FX!=0 LISTEN 	;   
	1 + 3 KAND 	;      
	PGSB RND 
	-
	FX=0 STOP
	GSB SHOW
	FL1 LISTEN
	KRM6
	GOTO MAIN

STOP: 
	RM6
	R/S

SHOW:
	GSB PREDRAW
	GSB BEEP	;    
	GSB DRAWB	;     
WAIT: 	PPRM SOUND 	; Ĩ 
	FX=0 WAIT
	K GRPH		;  Ҩ
	RTN

PREDRAW:
	GSB TOXY	;     	
	PPM SETXY
DRAWB:
	RMA RMB		;    
	KMD		;   
	RTN

TOXY:	1 GSB TOX 	;
	2   		;    R0 -    *00 *01 *10 *11
TOX:	RM0 KAND RMA *	;
	RTN		;

BEEP:  	
	RM0 3 + RM9 *	;    
BEEP1:  
	RMB		; 
	PPM SOUND
	KGRPH		;  
	RTN

RND: 	RM7 11 * FPI + KFRAC M7 ;  ( )  -     
	4 * KINT M0
	RTN

RESRND:
	RMC M7 RM6 M1	;    ר 
	RTN

INI: 
	Cx		; :
	1 M6		; ר  
	2 PPM GRINI	; 
	K RAN MC	; 
	9014 MD		;   /
	6 + ME		;   
	32 MA		;  
	2 * MB
	.NUMT CHARS 
	M5		;     
	110 M9		;   
	4 M0		; -    
	RTN	
CHARS:	.DB 45, 179, 176, 43

	.END

  0 1 2 3 4 5 6 7 8 9
000 P 01 22 75 5 K K E K 5 F L0
010 03 D 1 - D 3 PP 90 01 0
020 98 68 P 01 17 P 01 04
030 62 F L1 27 P 01 17 PP 90 29
040 K NOT F x≠0 37 1 + 3 K AND P 01 04
050 - F x=0 60 62 F L1 37 K 6 19
060 6 / 75 93 80 PP 90
070 52 F x=0 68 K / 84 PP 90 00
080 A B K D / 1 88 2 0 K AND
090 A × / 0 3 + 9 × B PP
100 90 52 K / 7 1 1 × F π +
110 K {x} 7 4 × K [x] 0 / C 7 6
120 1 / Cx 1 6 2 PP 90 10 K
130 C 9 0 1 4 D 6 + E 3
140 2 A 2 × B 1 5 6 5 1
150 1 0 9 4 0 / 2Dh B3h B0h 2Bh

"" (383) 271-01-25 ()