ЭТЮДЫ

[Destr]

Надо-же, нашёл в загашниках (ещё на дискете, на ZEUS писано было, потом уже под sjasm адаптировал)

Скрытый текст

; Проявлялка экрана
	ORG #8000

	LD SP,#8000
	DI
	
	XOR A:OUT (#FE),A
	CALL WAITKEY
	CALL O_INIT
START	EI:HALT:DI
	CALL POPOLZ
	XOR A:OUT (#FE),A

	LD HL,TAKT:INC (HL)
	
	JR START
POPOLZ	; 6883
	EXX:LD H,#5A,BC,#0358,DE,32:EXX
	XOR A
POP2	LD E,A
	EXA
	LD D,0,HL,O_BUFF
	ADD HL,DE
	LD D,(HL)
	LD A,E:ADD A,#C0:LD L,A,H,#57
	LD A,(TAKT),C,A
	ADD A,D:LD C,A
	LD A,24:SUB C:JR C,POP0,Z,POP0
	LD B,A
	LD C,8
POP1	LD A,L:ADD A,32:LD E,A:SBC A,A:AND C:ADD A,H:LD D,A

	LD A,L:EXX:LD L,A:EXX
	LD A,H:EXX:RRCA:RRCA:RRCA:AND B:OR C:LD H,A
	LD A,(HL),(HL),0
	ADD HL,DE
	LD (HL),A
	EXX

	REPT 8
		LD A,(HL),(DE),A:DEC H,D
	ENDR
	LD A,L:ADD A,-32:LD L,A:SBC A,A:AND C:ADD A,H:LD H,A
	DJNZ POP1

	XOR A
	REPT 8
		INC D:LD (DE),A
	ENDR
	
POP0	EXA
	INC A:CP 32:JR C,POP2
	
	RET
RND_BYTE
	LD A,53
	ADD A,A
	JR NC,$+4
	XOR 57
	LD (RND_BYTE+1),A
	RET
TAKT	DB 0
O_BUFF	DS 32
O_INIT	LD A,R:ADD A,50:LD (RND_BYTE+1),A
	LD HL,O_BUFF,B,32
O_I1	CALL RND_BYTE
	AND 7:NEG
	DEC HL:CP (HL):INC HL:JR Z,O_I1
	LD (HL),A
	INC HL,DE
	DJNZ O_I1
	RET
WAITKEY	XOR A:IN A,(#FE):CPL:AND #1F:JR Z,WAITKEY
WK	XOR A:IN A,(#FE):CPL:AND #1F:JR NZ,WK
	RET

	ORG #4000:INCBIN "1.scr";,0,#1800

[свернуть]

Это в молодости когда DOOM-2 увидел (первого вообще в наших краях никто в глаза не видал) - захотелось на спеке такой-же FADE-OUT - кривенько, но ностальжи (эх какой там год - уже не вспомнить, что-то дремучее 9х )