;        ЩЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЛ
;        КлппппппппппппппппппппппппппппппппппппппппппппппппппппппппппплК
;        Кл                                                           лК
;        Кл                 Meridian Software Systems                 лК
;        Кл                                                           лК
;        Кл                    Copyright (C)  1990                    лК
;        Кл                                                           лК
;        Кл                    ALL RIGHTS RESERVED                    лК
;        Кл                                                           лК
;        КлмммммммммммммммммммммммммммммммммммммммммммммммммммммммммммлК
;        ШЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ

                TITLE      'MOVE_PAGE'
                NAME       MOVE_PAGE
                PAGE       60,80

DGROUP          GROUP      DATASG

DATASG          SEGMENT    PARA PUBLIC 'DATA'      

DATASG          ENDS

;--------------------------------------------

$MOVE_PAGE     SEGMENT     PARA PUBLIC 'CODE'
               PUBLIC      MOVE_PAGE

MOVE_PAGE      PROC        FAR
               ASSUME      CS:$MOVE_PAGE,DS:DATASG,ES:DATASG
               
               PUSH        BP
               MOV         BP,SP
               PUSH        SI
               PUSH        DI
               PUSH        DS
               PUSH        ES
 
               MOV         AX,[BP+6]
               CMP         AL,00h
               JNZ         SET1

               MOV         AX,0A000h
               MOV         DS,AX

               MOV         AX,0A800H
               MOV         ES,AX  
               JMP         START

SET1:
               MOV         AX,0A800H
               MOV         DS,AX
 
               MOV         AX,0A000H
               MOV         ES,AX

START:
               MOV         AX,0105h
               MOV         DX,03CEh
               OUT         DX,AX

               SUB         SI,SI
               SUB         DI,DI 

               MOV         CX,28000
               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         2
MOVE_PAGE      ENDP

;--------------------------------------------------

$MOVE_PAGE     ENDS

               END         
