Пузыри

Главная / ЭКВМ / Программы для ЭКВМ / Демонстрации

	Программа предназначена для демонстрации возможностей ЭКВМ.
	После записи в память и запуска командами "В/О", "С/П" программа выводит на индикатор окружности различного диаметра и перемещает их вверх до удаления с экрана. Для записи на экран используется режим "исключающее ИЛИ" (XOR).
	Скорость вывода объектов можно оценить, запустив программу на реальной ЭКВМ.

Программа "Пузыри"

Файл demo5.mkp (174 байта, КС 14577/195)

	0	1	2	3	4	5	6	7	8	9
000	Cx	П 4	2	PP П	90	10	3	PP П	90	01
010	5	9	PP П	90	42	4	3	П 7	1	1
020	8	П 8	1	0	П 9	K СЧ	ИП 9	×	ИП 7	+
030	K СЧ	ИП 8	×	PP П	90	00	K СЧ	ИП 9	×	PP П
040	92	11	PP П	90	15	K ИП 4	ИП 4	5	-	F x=0
050	25	П 4	K ГРФ	1	PP П	90	07	БП	25	0
060	K x≠0 9	0	K БП 3	0	K БП 7	0	K x≥0 2	0	K x≥0 8	1
070	5	1	÷	1	F x²	1	K ЗН	1	В/О	01h
080	01h	01h	01h	02h	02h	03h	03h	03h	03h	02h
090	05h	02h	04h	04h	06h	09h	09h	06h	05h	05h
100	0Eh	11h	11h	11h	0Eh	06h	06h	0Ch	12h	21h
110	21h	12h	0Ch	07h	07h	1Ch	22h	41h	41h	41h
120	22h	1Ch	08h	08h	3Ch	42h	81h	81h	81h	81h
130	42h	3Ch	09h	09h	38h	00h	44h	00h	82h	00h
140	01h	01h	01h	01h	01h	01h	82h	00h	44h	00h
150	38h	00h	0Ah	0Ah	78h	00h	84h	00h	02h	01h
160	01h	02h	01h	02h	01h	02h	01h	02h	02h	01h
170	84h	00h	78h	00h

Исходный текст для кросс-компилятора

Файл demo5.mkl

.CHARSET 1251

; Файл demo_5
; Пузыри
; НПП "СЕМИКО", 2012, GPL

.ORG 0
	CX
	M4
	2
	PP M 9010
	3
	PP M 9001	; XOR

	.NUML TS
	PP M 9042
	43 M7
	118 M8
	10 M9

A1:	; координата Y
	KRAN RM9 * RM7 +
	; координата X
	KRAN RM8 * 

	PP M 9000

	; координата Z
	KRAN RM9 *

	PP M 9211
	PP M 9015

	KRM4 RM4
	5 -
	F X=0 A1
	M4
	K GRPH
	1 
	PP M 9007
	GOTO A1

TS:	.DA D1
	.DA D2
	.DA D3
	.DA D4
	.DA D5
	.DA D6
	.DA D7
	.DA D8
	.DA D9
	.DA D10

D1:     .DB 1, 1
        .DB 1
        .DB 1

D2:     .DB 2, 2
        .DB 3
        .DB 3

D3:     .DB 3, 3
        .DB 2
        .DB 5
        .DB 2

D4:     .DB 4, 4
        .DB 6
        .DB 9
        .DB 9
        .DB 6

D5:     .DB 5, 5
        .DB 0Eh
        .DB 11h
        .DB 11h
        .DB 11h
        .DB 0Eh

D6:     .DB 6, 6
        .DB 0Ch
        .DB 12h
        .DB 21h
        .DB 21h
        .DB 12h
        .DB 0Ch

D7:     .DB 7, 7
        .DB 1Ch
        .DB 22h
        .DB 41h
        .DB 41h
        .DB 41h
        .DB 22h
        .DB 1Ch

D8:     .DB 8, 8
        .DB 3Ch
        .DB 42h
        .DB 81h
        .DB 81h
        .DB 81h
        .DB 81h
        .DB 42h
        .DB 3Ch

D9:     .DB 9, 9
        .DB 38h, 0
        .DB 44h, 0
        .DB 82h, 0
        .DB 1, 1
        .DB 1, 1
        .DB 1, 1
        .DB 82h, 0
        .DB 44h, 0
        .DB 38h, 0

D10:    .DB 0Ah, 0Ah
        .DB 78h, 0
        .DB 84h, 0
        .DB 2, 1
        .DB 1, 2
        .DB 1, 2
        .DB 1, 2
        .DB 1, 2
        .DB 2, 1
        .DB 84h, 0
        .DB 78h, 0

.END

Файлы программ доступны на странице "Демонстрации"

НПП "СЕМИКО" (383) 271-01-25 (многоканальный)