>>НрНѕНрЙHeы,сЙ>э!нQ"ґ·У€ЂГґ·/и>жяяEDASНєс

>>> KC-Editor/Assembler <<<

!#Л| ~/wѕ/w(у+еНєс;;***************************************;*				       *;*    Virenprogramme harmloser Art     *;*				       *;***************************************;	ORG	3000H;AZ	DEFW	0;	DEFW	7F7FH	DEFM	'DROP'	DEFB	1	AND	A	JR	Z,DROPI	DEC	A	LD	A,L	LD	(ACC+1),A	; Beschl	JR	Z,DROPI	LD	A,E	LD	(VEL+1),A	; SpeedDROPI	LD	HL,INT	LD	(1ECH),HL	LD	HL,(1E6H)	LD	A,M	CP	0CDH	RET Z	INC	HL	LD	(INTK+1),HL	LD	HL,INTK	LD	(1E6H),HL	RET;INTK	CALL	0E000H	EI	RET;INT	CALL	CLOSE	PUSH	AF	PUSH	DE	PUSH	HL	LD	A,(IX+13)	INC	A	SUB	0F8H	JR	C,DROPK	LD	(IX+1),ADROPK	LD	A,3	OUT	8CH	OUT	8DH	LD	A,0C7H	OUT	8EHVEL	LD	A,2	OUT	8EH	LD	HL,(AZ)	LD	A,H	SUB	0B2H	CP	5	JR	C,DROPDROPB	LD	A,R	LD	E,A	LD	D,0	ADD	HL,DE	ADD	HL,DE	ADD	HL,DE	LD	A,H	SUB	0B7H	JR	C,DROPERANGE	ADD	0	LD	H,A	LD	A,(RANGE+1)ACC	ADD	1	CP	0B2H	JR	C,DROPP	LD	A,0B2HDROPP	LD	(RANGE+1),ADROPE	LD	(AZ),HL	POP	HL	POP	DE	POP	AF	RET;DROPZ	LD	A,H	CP	0B7H	JR	Z,DROPB	JR	DROPY;DROPX	BIT	1,(IX+1)	JR	NZ,DROPZ	BIT	2,(IX+1)	JR	Z,DROPB	LD	HL,(0B7ACH)	PUSH	HL	LD	HL,CCTLE-200H	LD	(0B7ACH),HL	EX	DE,HL	LD	A,M	CP	-8	JR	NC,DROPX1	LD	A,-9DROPX1	INC	A	LD	M,A	CALL	NZ,PRNT	BIT	0,(IX+1)	JR	NZ,DROPX2	LD	A,7	OUT	8CH	LD	A,M	ADD	A	ADD	A	ADD	A	OUT	8CHDROPX2	POP	DE	LD	(0B7ACH),DE	JR	DROPE;DROP	LD	A,M	AND	0DFH	JR	Z,DROPBDROPY	EX	DE,HL	LD	HL,40	ADD	HL,DE	LD	A,M	AND	0DFH	JR	NZ,DROPX	LD	A,H	CP	0B7H	JR	Z,DROPX	EX	DE,HL	LD	A,' '	CALL	PRNT	LD	A,M	LD	M,0	EX	DE,HL	LD	M,A	CALL	PRNT	JR	DROPE;PRNT	PUSH	HL	PUSH	DE	PUSH	BC	PUSH	AF	LD	BC,-0B200H	ADD	HL,BC	LD	BC,-40	LD	D,-1PRNT1	ADD	HL,BC	INC	D	JR	C,PRNT1	SBC	HL,BC	LD	E,L	CALL	DISPL	BIT	0,(IX+1)	JR	NZ,PRNT2	LD	A,5	OUT	8CH	LD	A,D	ADD	20H	OUT	8CHPRNT2	POP	AF	POP	BC	POP	DE	POP	HL	RET;CLOSE	EI	RETI;CCTL	DEFB	81H,66H,7EH,3CH	DEFB	3CH,7EH,66H,81H	DEFB	81H,42H,3CH,3CH	DEFB	3CH,3CH,42H,81H	DEFB	0,42H,3CH,3CH	DEFB	3CH,3CH,42H,0	DEFB	0,42H,24H,18H	DEFB	18H,24H,42H,0	DEFB	0,0,0,24H	DEFB	18H,18H,24H,0	DEFB	0,0,0,0,0,18H,18H,0	DEFB	0,0,0,0,10H,8,0,0	DEFB	0,0,0,0,0,0,0,0CCTLE	;;DISPL	LD	HL,0B7A8H	ADD	A	JR	NC,DISP4	LD	L,0ACHDISP4	ADD	A	JP 	PO,DISP5	SUB	80H	DEC	L	DEC	LDISP5	LD	C,M	INC	L	LD	B,M	LD	L,A	LD	H,0	ADD	HL,HL	ADD	HL,BC	PUSH	DE	BIT	5,E	JR	NZ,DISP11	SET	7,D	BIT	0,D	JR	Z,DISPB	RES	0,D	SET	6,EDISPB	CALL	PIX	POP	DE	RET;DISP11	PUSH	AF	LD	A,D	RLCA	RLCA	AND	18H	OR	E	AND	1FH	LD	E,A	LD	A,D	RRCA	JR	NC,DISP12	SET	6,EDISP12	RRCA	AND	6	OR	0A0H	LD	D,A	POP	AF	JR	DISPB;PIX	CALL	PIX1	SET	5,EPIX1	RES	0,D	CALL	PIX2	SET	0,DPIX2	RES	7,E	LD	A,M	INC	HL	LD	(DE),A	SET	7,E	LD	A,M	INC	HL	LD	(DE),A	RET;;*__*__*__*__*__*__*__*__*__*__*__*__*__;; Die sich {ndernde Bildschirmfarbe;	DEFW	7F7FH	DEFM	'NIGHT'	DEFB	1	LD	HL,INTN	LD	(1ECH),HL	RET;INTN	CALL	CLOSE	PUSH	AF	LD	A,3	OUT	8CH	OUT	8DH	LD	A,R	XOR	M	CALL	Z,LIGHT	POP	AF	RET;LIGHT	PUSH	HL	PUSH	DE	PUSH	BC	LD	HL,0B7A3H	LD	A,M	XOR	3FH	LD	M,A	LD	HL,0	LD	D,A	LD	E,A	LD	B,-2	ADD	HL,SP	LD	SP,0B200HLIGHT1	PUSH	DE	PUSH	DE	PUSH	DE	PUSH	DE	PUSH	DE	DJNZ	LIGHT1	DI	LD	B,10LIGHT2	PUSH	DE	DJNZ	LIGHT2	EI	LD	SP,HL	POP	BC	POP	DE	POP	HL	RET;;*__*__*__*__*__*__*__*__*__*__*__*__*__;; Der wandernde Kursor;	DEFW	7F7FH	DEFM	'HELLAU'	DEFB	1	LD	HL,INTT	LD	(1ECH),HL	RET;INTT	CALL	CLOSE	PUSH	AF	LD	A,3	OUT	8CH	OUT	8DH	LD	A,R	CP	9	CALL	Z,INS	POP	AF	RET;INS	LD	(0BA20H),A	XOR	A	LD	(0BA20H+1),A	SET	0,(IX+8)	RET;;*__*__*__*__*__*__*__*__*__*__*__*__*__;; Musik im Hintergrund;; We are the World;MUSIC	DEFB	2CH,2BH,2AH	DEFB	0C8H	DEFB	2CH,2BH,2AH	DEFB	28H,27H,47H,40H	DEFB	2CH,2BH,2AH	DEFB	38H,18H,46H,28H,2AH,29H	DEFB	29H,2AH,2BH	DEFB	29H,28H,27H,47H	DEFB	25H,27H,48H,25H,24H	DEFB	45H,18H,37H,18H,37H	DEFB	26H,25H,45H	DEFB	25H,24H,23H,43H	DEFB	11H,33H,13H,25H,14H	DEFB	23H,23H,42H,83H	DEFB	27H,27H,43H,85H	DEFB	24H,25H,26H,26H	DEFB	27H,27H,45H	DEFB	25H,24H,23H,43H	DEFB	11H,33H,13H,25H,14H	DEFB	23H,23H,42H,83H,0F0H;; Happy Birthday;HAPPY	DEFB	23H,23H,44H,43H	DEFB	46H,45H,10H,23H,23H	DEFB	44H,43H,47H,46H,10H	DEFB	23H,23H,4AH,48H,46H	DEFB	45H,44H,10H,2AH,2AH	DEFB	48H,46H,47H,46H,0;TON	DEFB	256,228,215,192	DEFB	171,161,144,128	DEFB	114,108, 96, 85;PTR	DEFW	MUSIC-1;	DEFW	7F7FH	DEFM	'MUSIC'	DEFB	1	LD	HL,PRGMU	LD	(1ECH),HL	RET;PRGMU	PUSH	HL	PUSH	AF	LD	A,3	OUT	8CH	OUT	8DH	OUT	8EH	LD	HL,(PTR)	INC	HL	LD	A,M	AND	A	JR	NZ,PRG1	LD	A,R	RRCA	LD	HL,MUSIC-1	JR	C,PRG0	LD	HL,HAPPY-1PRG0	XOR	APRG1	LD	(PTR),HL	JR	Z,PRGE	LD	A,0C7H	OUT	8EH	LD	A,M	AND	0F0H	RRCA	OUT	8EH	LD	A,M	AND	0FH	JR	Z,PRGE	LD	HL,TON-1	ADD	L	LD	L,A	LD	A,7	OUT	8CH	LD	A,M	OUT	8CHPRGE	POP	AF	POP	HL	EI	RETI;;*__*__*__*__*__*__*__*__*__*__*__*__*__;; Der h}pfende Ball;	BER	-#%100HROW	BER	200H;TAB	DEFB	3CH,0,7EH,0	DEFB	-1,0,-1,0	DEFB	-1,0,-1,0	DEFB	7EH,0,3CH,0TAB1	BER	8*2*7TABE	;;INIT	LD	HL,ROWINIT1	PUSH	HL	LD	H,L	LD	L,0	CALL	0F003H	DEFB	34H	EX	DE,HL	POP	HL	LD	M,E	INC	H	LD	M,D	DEC	H	INC	L	JR	NZ,INIT1;	LD	HL,TAB	LD	DE,TAB1	LD	B,TABE-TAB1	AND	AINIT2	LD	A,M	RRA	LD	(DE),A	INC	DE	INC	HL	DJNZ	INIT2;	RET;;*__*__*__*__*__*__*__*__*__*__*__*__*__;DISP	LD	A,E	AND	7	ADD	A	ADD	A	ADD	A	ADD	A	DEFB	0FDH	LD	L,A	DEFB	0FDH	LD	H,TAB/100H ;IY=Source	LD	L,D	LD	H,ROW/100H ;HL=Tabelle	LD	A,E	RRCA	RRCA	RRCA	AND	1FH	LD	C,A	LD	B,8	EX	DE,HL;DISP1	LD	A,(DE)	OR	C	LD	L,A	INC	D	LD	A,(DE)	LD	H,A	DEC	D	INC	E	LD	A,(IY)	XOR	M	LD	M,A	INC	L	LD	A,(IY+1)	XOR	M	LD	M,A	INC	IY	INC	IY	DJNZ	DISP1	RET;;POS	BER	2SPEED	BER	2;MODSP	LD	A,R	CP	4	RET NC	LD	HL,(SPEED)	AND	A	JR	NZ,MO1	DEC	LMO1	DEC	A	JR	NZ,MO2	INC	LMO2	DEC	A	JR	NZ,MO3	DEC	HMO3	DEC	A	JR	NZ,MO4	INC	HMO4	LD	A,L	ADD	8	CP	10H	RET NC	LD	A,H	ADD	8	CP	10H	RET NC	LD	(SPEED),HL	RET;TSTPOS	LD	DE,(POS)	LD	HL,(SPEED)	LD	A,D	CP	-8	JR	C,TST1	LD	A,H	NEG	LD	H,ATST1	LD	A,E	CP	-8	JR	C,TST2	LD	A,L	NEG	LD	L,ATST2	LD	(SPEED),HL	RET;MODPOS	CALL	MODSPMODPOS1	LD	HL,(POS)	LD	DE,(SPEED)	LD	A,E	ADD	L	LD	L,A	LD	A,D	ADD	H	LD	H,A	LD	(POS),HL	CP	-8	JR	NC,OVER	LD	A,L	CP	-8	RET COVER	LD	A,7	OUT	8CH	LD	A,30H	OUT	8CH	CALL	TSTPOS	JR	MODPOS1;INTX	CALL	EIRETI	PUSH	HL	PUSH	DE	PUSH	BC	PUSH	AF	PUSH	IY	CALL	ROUT	POP	IY	POP	AF	POP	BC	POP	DE	POP	HL	RET;EIRETI	EI	RETI;ROUT	LD	A,3	OUT	8CH	OUT	8DH	LD	DE,(POS)	CALL	DISP	CALL	MODPOS	LD	DE,(POS)	CALL	DISP	LD	HL,SPEC	LD	(1ECH),HL	LD	A,0C7H	OUT	8EH	LD	A,1	OUT	8EH	RET;SPEC	PUSH	AF	LD	A,INTX%100H	LD	(1ECH),A	LD	A,INTX/100H	LD	(1ECH+1),A	LD	A,0A7H	OUT	8EH	LD	A,111	OUT	8EH	POP	AF	EI	RETI;START	LD	HL,0	LD	(POS),HL	LD	(SPEED),HL	EX	DE,HL	CALL	DISP	LD	HL,INTX	LD	(1ECH),HL	RET;	DEFW	7F7FH	DEFM	'FLASH'	DEFB	1	CALL	INIT	CALL	START	RET;;*__*__*__*__*__*__*__*__*__*__*__*__*__;@He