Радиолюбитель 2/93, стр. 13

ДИАЛОГ ПРОГРАММИСТОВ

МАКСИМ НАУМОВ, 15 лет, СШ  №17, Московская область, г.Коломна, ул.Дев.Поле, 28-12.

Программа очистки экрана для БК-0010(-01)

	MOV	#40000,R4	; 12704,40000
	MOV	#40,R3		; 12703,40
M3:	MOV	#20,R2		; 12702,20
M2:	MOV	R4,R0		; 10400
	MOV	#400,R1		; 12701,400
M1:	ASL	(R0)		; 6310
	ADD	#100,R0		; 62700,100
	SOB	R1,M1		; 77104
	SOB	R2,M2		; 77210
	INC	R4		; 5204
	INC	R4		; 5204
	SOB	R3,M3		; 77315
	RET			; 207

Программа перемещаемая, т.е. ее можно записать в любое место ОЗУ. С помощью БЕЙСИКА ее можно записать, например, с адреса 37000₈.

10 DATA &O12704, &О40000, &О12703, &О40 ....(коды)
20 FOR I%=0% ТО 17%
30 READ С%
40 РОКЕ &О37000+I%,С%
50 NEXT I%
60 DEF USR=&O37000
70 A%=USR(0)

Если код 6310₈ заменить на 6210₈, то в результате получится эффект "разрезания" информации на экране. После запуска этой программы на Бейсике коды программы запишут­ся в память, и ее можно будет запустить командой A%=USR(0%).