;--------------------------------------------
SET_RL    LD   HL,(COORD)  ;  HL  .

          LD   A,7         ;  X
          AND  L
          LD   (DX),A
          LD   A,7         ;  Y
          AND  H
          ;LD   (DY),A

          SRL  H
          SRL  H
          SRL  H
          SRL  L
          SRL  L
          SRL  L


          CALL ADR         ;   .

          LD   B,A         ;  Y
S_DY      INC  H           
          DJNZ S_DY

          LD   B,16        ;  B    .
SET_RL1   PUSH HL          ;   .
          


        ;  
          LD   C,4
          LD   HL,BUF
B1        LD   A,(DE)
          LD   (HL),A
          INC  DE
          INC  HL
          DEC  C
          JR   NZ,B1
          
          

        ; 
          CALL ROLBUF
          

          
          POP  HL
          PUSH HL          ;   .


          LD   C,4         ;  C    .
          PUSH DE
SET_RL2   
          LD   DE,BUF

          LD   A,(DE)      ;  .
          LD   (HL),A      ; .
          INC  DE          ;    
          INC  HL          ;    -
                           ;.
          DEC  C           ;  .
          JR   NZ,SET_RL2  ;    0, 
                           ;  .
          POP  DE          ;   .
          POP  HL          ;   .
          CALL DOWN        ;    -
                           ; .

          DJNZ SET_RL1     ;    0, 
                           ;.
          RET

;------------------------------------
ROLBUF  
        LD   A,(DX)
        LD   C,A
ROLBUF1 LD   HL,BUF
        LD   B,4
        AND  A           ;  C.
ROLBUF2 RR   (HL)        ; .
        INC  HL
        DJNZ ROLBUF2
        DEC  C
        JR   NZ,ROLBUF1
        RET


  
BUF       DEFS 4

DX      DEFB 0