   .

;   
PRMAP
        CALL CalcMap ;   
        LD C,SCRHG/2 ;
        LD DE,0      ;D-Y, E-X
PRMLP0  LD B,SCRWD/2 ;
PRMLP1  PUSH DE
        PUSH BC
        LD A,PG_MAP
        CALL PAGE

        LD A,(HL)
;       LD (MLB+1),A
        LD (MLB2+1),HL
        INC HL
        PUSH HL
        LD H,(HL)
        LD L,A
        CALL Anim2   ;    ..
        CALL BLOCK22 ; 
        POP HL
        POP BC
        POP DE
        INC HL
        INC E
        DJNZ PRMLP1
        LD E,B       ;X=0
        INC D        ;Y=Y+1
        LD A,C
        LD C,128-(SCRWD)
        ADD HL,BC
        LD C,A
        DEC C
        JR NZ,PRMLP0

;      ,
;..      ""
;       
        LD B,QGRPS
        LD HL,AnimGrps
ANG     LD (HL),C   ;C=0
        INC HL
        DJNZ ANG
        RET 

;   ,    
;  2*2    
;DE-   2*2  (D-Y, E-X)
;HL-  (0-511)
BLOCK22 LD A,PG_SPR
        CALL PAGE
        LD (BL22SP+1),SP
        LD BC,SPR    ;  
        ADD HL,HL    ;HL=HL*32
        ADD HL,HL
        ADD HL,HL
        ADD HL,HL
        ADD HL,HL
        ADD HL,BC

        LD C,(HL)    ;  ,  
                     ;  
        INC L        ;  BC  
                     ;   2  
        LD B,(HL)
        INC L
        LD SP,HL     ;     
;       SLA D        ;    
                     ;  
;       SLA E

        EX DE,HL
        LD DE,SHADSCR
        ADD HL,HL
        ADD HL,DE
        LD DE,#FF20
;   
        LD (HL),C
        INC L
        LD (HL),B
        INC H
        POP BC
        LD (HL),B
        DEC L
        LD (HL),C
        ADD HL,DE

        DUP 6
        POP BC
        LD (HL),C
        INC L
        LD (HL),B
        INC H
        POP BC
        LD (HL),B
        DEC L
        LD (HL),C
        ADD HL,DE
        EDUP 

        POP BC
        LD (HL),C
        INC L
        LD (HL),B
        INC H
        POP BC
        LD (HL),B
        DEC L
        LD (HL),C
BL22SP  LD SP,0
        RET 

;    
;      #4000
; -    7- .
;   .
;    :
;SCRHG*32*8,    ,
;     SCRWD ()
;     
Move
        LD A,PG_VIEW
        CALL PAGE

OLD_CRD LD DE,0   ;  .
                  ;   
        CALL ARRONS+4
        LD HL,BUSY+1
        PUSH HL
        INC (HL)
        LD HL,SHADSCR ; 
        LD DE,SCR     ; 

        LD C,SCRHG    ;   
PRSHAD0 LD B,4
PRSHAD1 PUSH BC

        DUP SCRWD-1   ;   
        LDI 
        EDUP 

        LD A,(HL)
        LD (DE),A
        INC D
        SET 5,L

        DUP SCRWD-1
        LDD 
        EDUP 

        LD A,(HL)
        LD (DE),A
        INC D

        LD BC,32
        ADD HL,BC

        POP BC
        DJNZ PRSHAD1
        LD A,E
        ADD A,32
        LD E,A
        JR C,$+6
        LD A,D
        SUB 8
        LD D,A
        DEC C
        JR NZ,PRSHAD0
        POP HL
        LD (HL),C  ;C=0
        JP ARROFFS
