Процедура очистки, кстати.
На ней можно выиграть тактов в оптимизации?
Код:
CLEARVIRTSCR
		LD HL, 63648; 55296+6144+96+64 начало атрибутной области виртуалки 
		
		LD    BC,320       
CLEARVIRTSCR1             
		ld a,(_CLRCOL)
		ld (hl),a
		inc hl
	   
		DEC   BC        
		LD    A,B        
		OR    C
		JR    NZ,CLEARVIRTSCR1
		ret