;        ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ
;        КлппппппппппппппппппппппппппппппппппппппппппппппппппппппппппплК
;        Кл                                                           лК
;        Кл                 Meridian Software Systems                 лК
;        Кл                                                           лК
;        Кл                    Copyright (C)  1990                    лК
;        Кл                                                           лК
;        Кл                    ALL RIGHTS RESERVED                    лК
;        Кл                                                           лК
;        КлмммммммммммммммммммммммммммммммммммммммммммммммммммммммммммлК
;        ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ


                TITLE      'COPY_PAGE'
                NAME       COPY_PAGE
                PAGE       60,80

DGROUP          GROUP      DATASG

DATASG          SEGMENT    PARA PUBLIC 'DATA'      

PAGE0           DB         00
PAGE1           DB         00

DATASG          ENDS

;--------------------------------------------

$COPY_PAGE     SEGMENT     PARA PUBLIC 'CODE'
               PUBLIC      COPY_PAGE

COPY_PAGE     PROC        FAR
               ASSUME      CS:$COPY_PAGE,DS:DATASG,ES:DATASG
               
               PUSH        BP
               MOV         BP,SP
               PUSH        SI
               PUSH        DI
               PUSH        DS
               PUSH        ES

               MOV         AX,0105h
               MOV         DX,3CEh
               OUT         DX,AX

               MOV         AX,43008
               MOV         DS,AX

               MOV         AX,40960
               MOV         ES,AX

               LEA         SI,[PAGE0]
               LEA         DI,[PAGE1]

               MOV         CX,6E00H
               REP MOVSB

               MOV         AX,0005h
               MOV         DX,03CEh
               OUT         DX,AX

               MOV         AX,0000h
               MOV         DX,03CFh
               OUT         DX,AX

               POP         ES
               POP         DS
               POP         DI
               POP         SI
               MOV         SP,BP
               POP         BP

               RET
COPY_PAGE      ENDP

;--------------------------------------------------

$COPY_PAGE    ENDS

               END         
