FARBEN  ASM;--------------------------------------;
;  FARBEN                         9.96 ;
;          Proben aller Farben (V,H)   ;
;--------------------------------------;
;
	ORG	0BD00H
;
PV1	EQU	0F003H
;
	DEFW	7F7FH
	DEFM	'FARBEN'
	DEFB	01H
	LD	A,(0B7A3H)
	LD	(FARB),A
	LD	A,38H
	LD	(0B7A3H),A
	LD	A,0CH
	CALL	PV1
	DEFB	00H
	LD	HL,0202H
	LD	(0B7A0H),HL
	CALL	PV1
	DEFB	23H
	DEFM	'VORDERGRUND'
	DEFB	0
	LD	HL,0405H
	LD	DE,COD
	CALL	ZIF
	LD	HL,1105H
	CALL	ZIF
	LD	HL,1402H
	LD	(0B7A0H),HL
	CALL	PV1
	DEFB	23H
	DEFM	'HINTERGRUND'
	DEFB	0
	LD	HL,1605H
	LD	DE,COD
	CALL	ZIF
	XOR	A
	LD	(0B7A3H),A
	LD	HL,VOG
	LD	(STR),HL
	LD	HL,0504H
	LD	D,02H
Y3	LD	C,08H
Y2	CALL	UP
	LD	A,(0B7A3H)
	ADD	08H
	LD	(0B7A3H),A
	DEC	C
	JR	NZ,Y2
	LD	HL,0B04H
	DEC	D
	JR	NZ,Y3
	LD	HL,HIG
	LD	(STR),HL
	LD	HL,1704H
	XOR	A
	LD	(0B7A3H),A
	LD	C,08H
Y4	CALL	UP
	LD	A,(0B7A3H)
	INC	A
	LD	(0B7A3H),A
	DEC	C
	JR	NZ,Y4
	LD	A,(FARB)
	LD	(0B7A3H),A
	CALL	PV1
	DEFB	2CH
	RET
	;
ZIF	LD	(0B7A0H),HL
	LD	C,08H
W1	LD	A,(DE)
	CALL	PV1
	DEFB	00H
	LD	B,03H
W2	CALL	PV1
	DEFB	2BH
	DJNZ	W2
	INC	DE
	DEC	C
	JR	NZ,W1
	RET
	;
UP	LD	B,06H
Y1	LD	(0B7A0H),HL
	PUSH	HL
	LD	HL,(STR)
	CALL	PV1
	DEFB	45H
	POP	HL
	INC	H
	DJNZ	Y1
	LD	A,H
	SUB	06H
	LD	H,A
	LD	A,L
	ADD	04H
	LD	L,A
	RET
	;
VOG	DEFM	'[[[['
	DEFB	00H
HIG	DEFM	'    '
	DEFB	00H
STR	DEFW	0000H
FARB	DEFB	00H
COD	DEFM	'0123456789ABCDEF'
А@Аt(Аp6АnTop of Text: End of Text: Start of MC: ASM-Offset : хЫ€ц$У€сЙхЫ€жЫУ€сЙНMА~#НDАH
COD	DEFM	'0123456789ABCDEF'
А@Аt(Аp6АnTop of Text: End of Text: Start of MC: ASM-Offset : хЫ€ц$У€сЙхЫ€жЫУ€сЙНMА~#НDА