       :
   ,    -  ,    ,    


   < >:  ,
  L=y, E=x,   
(   ) 58(!) -
 . C   
 ('TABLE),  D=C+2.
     LD H,C
     LD A,(DE);x/8
     INC D        +  
     OR (HL);L(y) -
     INC H
     LD H,(HL);H(y)
     LD L,A
     LD A,(DE);byte(x)
    (X)OR (HL);  
     LD (HL),A

        ex de,hl
        ld a,(hl) ;x
        ld c,a
        add a,?xspeed ;/ld c,(hl):inc/dec (hl)
        ld (hl),a
        inc l
        ld a,(hl) ;yspeed
        inc (hl) ;yspeed++ ; inc a:ld (rp),a
        inc l
        add a,(hl) ;y ; hl,  
        ld (hl),a
        inc l
        ex de,hl
     ld l,a ;y
     LD H,ty/256
     LD b,(HL) ;H(y)
     inc h
     ld a,(HL) ;L(y)
     inc h
     ld l,c ;x
     or (hl) ;x/8 ; hl,      
     LD c,A
     inc h
     LD A,(bc)
     XOR (HL) ;byte(x) ; ,      hl
     LD (bc),A
;48+52+10 = 110 t /    call,  220 t/dot
    !   ( E!=0?)

     
dot
;c=color
;a=x
;l=y
srl a ;rra    
jr c,...
rra/srl a
jr c,...
ld h,ty/256
add a,(hl)
inc h
ld h,(hl)
ld l,a
;  res ..,(hl):ret -   ,        ???
;ld a,(hl)
;set ..,(hl)
;inc h
;or (hl)
;ret nz ;no attr
;ld a,h
;rra
;add a,attr/256 - 0x40
;ld (hl),c ;color
;ret
;  xor (    ):
ld a,(hl)
xor ..
ld (hl),a
;  ret
xor .. ;    ,      
inc h
or (hl)
ret nz ;no attr
ld a,h
rra
add a,attr/256 - 0x40
ld h,a
ld (hl),c ;color
ret
;~144 t , 96 t 

       (TODO   ?   ?):
    x,y,xspeed (   xspeed,    ), yspeed, color (   ,   )
    ,         ( ,    )

ex de,hl
ld a,(hl) ;yspeed
inc (hl) ;yspeed++
inc l
add a,(hl) ;y
ld (hl),a
ld e,a ;y
inc l
ld a,(hl) ;x
add a,b ;xspeed
ld (hl),a
inc l
ex de,hl
;l=y
;a=x
call dot ;
;90+144 t

...

inc e
ld a,(de) ;y
ld l,a
inc e
ld a,(de)
inc e
;l=y
;a=x
call redot ;
;47+96 t

; 377 t/dot
;    32  ,  19 dots
