ZX-Ревю 1997 №1-2 - Этюды - программа вывода картинки на экран.

ZX-Ревю 1997 №1-2

1997 г.

Этюды - программа вывода картинки на экран.

Вторая программа выводит на экран картинку, размещенную с адреса BUFF. Она прорисовывается линией атрибутов, закручивающейся по часовой стрелка Процедуру печати линии я взял из книги 'Элементарная графика',изд/'ИНФОРКОМ", немного ее переделав. Все регулируемые параметры показаны в листинге программы. Ее длинна 278 байт, но эффект довольно интересный, и может применяться (с небольшими переделками) в других целях. (С) Program 'Clock' by E.Kulikaev '96.

1	ORG	40000
2	ENT	$
3 BUFF	EQU	30000
4	LD	HL.22528
5	LD	DE.22529
6	LD	BC.767
7	LD	(HL).L
8	LDIR
9	LD	HL.BUFF
10	LD	DE. 16384
11	LD	ВС,6144
12	LDIR
13	LD	DE.O
14	LD	B.31
15 L1	CALL	LINE
16	INC	D
17	CALL	LINE1
18	DJNZ	L1
19	LD	B.23
20 L2	CALL	LINE
21	INC	E
22	CALL	LINE1
23	DJNZ	L2
24	LD	B.31
25 L3	CALL	LINE
26	DEC	D

27	CALL	LINE1	76	LD	E.D
28	DJNZ	L3	77	LD	(SIGN).ВС
29	LD	B,23	78	LD	c.o
30 L4	CALL	LINE	79 CONT 4	LD	H.E
31	DEC	E	80	LD	A.E
32	CALL	LINE1	81	RRA
33	DJNZ	L4	82 REPEAT	ADD	A.L
34	CALL	LINE	83	JR	C,CONT_5
35	RET		84	CP	H
36 LINE	PUSH	DE	85	JR	C.CONT 6
37	PUSH	ВС	86 CONT 5	SUB	H
38	PUSH	DE	87	LD	D.A
39 ZAMP	LD	BC.3000	88	EXX
40 PAU	DEC	ВС	89	LD	DE.(SIGN)
41	LD	A,B	90	JR	CONT 7
42	OR	С	91 CONT 6	LD	D.A
43	JR	NZ.PAU	92	PUSH	ВС
44	LD	DE,# 100C	93	EXX
45	LD	(COORD),DE	94	POP	DE
46	CALL	PLOT	95 CONT 7	LD	HL,(COORD)
47	POP	DE	96	LD	A,E
48	LD	HL,(COORD)	97	ADD	A,L
49	EXX		98	LD	E.A
50	PUSH	HL	99	LD	A.D
51	EXX		100	INC	A
52	LD	ВС,#0101	101	ADD	A,H
53	LD	A,D	102	JR	C.CONT 8
54	SUB	H	103	JR	Z,FINISH
55	JP	NC.CONT 1	104 CONT 9	DEC	A
56	LD	B,#FF	105	LD	D,A
57	NEG		106	LD	(COORD),DE
58CONT 1	LD	D,A	107	CALL	PLOT
59	LD	A,E	108	EXX
60	SUB	L	109	LD	A.D
61	JR	NC.CONT 2	110	DEC	E
62	LD	C,#FF	111	JR	NZ, REPEAT
63	NEG		112	JR	FINISH
64 CONT 2	LD	E,A	113 CONT 8	JR	Z,CONT_9
65	LD	A,D	114 FINISH	EXX
66	CP	E	115	POP	HL
67	JR	NC.CONT 3	116	EXX
68	LD	L.D	117	POP	ВС
69	LD	(SIGN).ВС	118	POP	DE
70	XOR	A	119	RET
71	LD	B.A	120 SIGN	DEFW	0
72	JR	CONT 4	121 COORD	DEFW	0
73 CONT 3	OR	D	122 PLOT	LD	A,E
74	JR	Z,FINISH	123	AND	#18
75	LD	L.E	124	SRL	A

ZX~P<WW >7/1

125	SRL	A
126	SRL	A
127	OR	#58
128	LD	H.A
129	LD	A,E
130	AND	7
131	OR	A
132	RRA
133	RRA
134	RRA
135	RRA
136	ADD	A,D
137	LD	L.A
138	PUSH	HL
139	LD	DE,22528
140	OR	A
141	SBC	HL,DE
142	LD	DE.BUFF +
		6144
143	ADD	HL,DE

ЭТЮДЫ

157

HL.3000

Изменить скорость вывода можно изменив величину паузы.

158 LD (ZAMP+1),HL

159 RET

СОДЕРЖАНИЕ:

Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование