ATTRFILL3
	LD	HL,(BUFF_ADR_A)
	LD	BC,32*23 + 5
	ADD	HL,BC
	CALL	ATTR5
	LD	BC,10
	ADD	HL,BC
	LD	C,#41
	CALL	ATTR6
	LD	BC,8
	ADD	HL,BC
	CALL	ATTR7
	LD	BC,24
	ADD	HL,BC
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A

	LD	HL,(BUFF_ADR_B)
	LD	BC,32*23 + 5
	ADD	HL,BC
	CALL	ATTR5
	LD	BC,10
	ADD	HL,BC
	LD	C,#44
	CALL	ATTR6
	LD	BC,8
	ADD	HL,BC
	CALL	ATTR7
	LD	BC,24
	ADD	HL,BC
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	RET
ATTR5	LD	C,#05
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	DUP	2
	LD	(HL),C
	INC	L
	EDUP
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	LD	(HL),C
	INC	L
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	DUP	8
	LD	(HL),C
	INC	L
	EDUP
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	INC	L
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	DUP	6
	LD	(HL),C
	INC	L
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	EDUP
	RET

ATTR6
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	LD	(HL),C
	INC	L
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	INC	L
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	LD	(HL),C
	INC	L
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	DUP	8
	LD	(HL),C
	INC	L
	EDUP
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	INC	L
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	LD	(HL),C
	INC	L
	LD	(HL),C
	INC	L
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	LD	(HL),C
	INC	L
	LD	(HL),C
	INC	L
	LD	(HL),C
	INC	L
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	INC	L
	RET
ATTR7
	LD	C,#44
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	DUP	2
	LD	(HL),C
	INC	L
	EDUP
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	INC	L
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	LD	(HL),C
	INC	L
	INC	L
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	DUP	6
	LD	(HL),C
	INC	L
	EDUP
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	INC	L
	INC	L
	INC	L
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	INC	L
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	LD	(HL),C
	INC	L
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	LD	(HL),C
	INC	L
	LD	(HL),C
	INC	L
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	INC	L
	RET
	
ATTRFILL2
	LD	HL,(BUFF_ADR_A)
	LD	BC,32*21 + 3
	ADD	HL,BC
	CALL	ATTR3
	LD	BC,10
	ADD	HL,BC
	CALL	ATTR4
	LD	HL,(BUFF_ADR_B)
	LD	BC,32*21 + 3
	ADD	HL,BC
	CALL	ATTR3
	LD	BC,10
	ADD	HL,BC
	CALL	ATTR4
	RET
ATTR3	LD	C,#46
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	DUP	23
	LD	(HL),C
	INC	L
	EDUP
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	INC	L
	RET
ATTR4	LD	C,#44
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	DUP	5
	LD	(HL),C
	INC	L
	EDUP
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	DUP	4
	LD	(HL),C
	INC	L
	EDUP
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	DUP	8
	LD	(HL),C
	INC	L
	EDUP
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	RET
	
ATTRFILL1 ;---------------
	LD	HL,BUFF1A
BUFF_ADR_A	EQU $-2
	LD	BC,32*19 + 2
	ADD	HL,BC
	CALL	ATTR1
	LD	BC,7
	ADD	HL,BC
	CALL	ATTR2
	LD	HL,BUFF1B
BUFF_ADR_B	EQU $-2
	LD	BC,32*19 + 2
	ADD	HL,BC
	CALL	ATTR1
	LD	BC,7
	ADD	HL,BC
ATTR2	;--
	LD	C,#47
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	;-
	DUP	21
	LD	(HL),C
	INC	L
	EDUP
	;-
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	;-
	LD	(HL),C
	INC	L
	;-
	LD	A,(HL)
	AND	#40+8*7
	LD	(HL),A
	INC	L
	RET
ATTR1	LD	C,#40
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	;-
	DUP	22
	LD	(HL),C
	INC	L
	EDUP
	;-
	LD	A,(HL)
	AND	#47
	LD	(HL),A
	INC	L
	;-
	LD	(HL),C
	INC	L
	LD	(HL),C
	INC	L
	;-
	LD	A,(HL)
	AND	#40+7*8
	LD	(HL),A
	RET