home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / AGUL / PAGE.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-25  |  2.5 KB  |  81 lines
  1. ;        ╔═════════════════════════════════════════════════════════════╗
  2. ;        ║█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█║
  3. ;        ║█                                                           █║
  4. ;        ║█                 Meridian Software Systems                 █║
  5. ;        ║█                                                           █║
  6. ;        ║█                    Copyright (C)  1990                    █║
  7. ;        ║█                                                           █║
  8. ;        ║█                    ALL RIGHTS RESERVED                    █║
  9. ;        ║█                                                           █║
  10. ;        ║█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█║
  11. ;        ╚═════════════════════════════════════════════════════════════╝
  12.  
  13.  
  14.                 TITLE      'COPY_PAGE'
  15.                 NAME       COPY_PAGE
  16.                 PAGE       60,80
  17.  
  18. DGROUP          GROUP      DATASG
  19.  
  20. DATASG          SEGMENT    PARA PUBLIC 'DATA'      
  21.  
  22. PAGE0           DB         00
  23. PAGE1           DB         00
  24.  
  25. DATASG          ENDS
  26.  
  27. ;--------------------------------------------
  28.  
  29. $COPY_PAGE     SEGMENT     PARA PUBLIC 'CODE'
  30.                PUBLIC      COPY_PAGE
  31.  
  32. COPY_PAGE     PROC        FAR
  33.                ASSUME      CS:$COPY_PAGE,DS:DATASG,ES:DATASG
  34.                
  35.                PUSH        BP
  36.                MOV         BP,SP
  37.                PUSH        SI
  38.                PUSH        DI
  39.                PUSH        DS
  40.                PUSH        ES
  41.  
  42.                MOV         AX,0105h
  43.                MOV         DX,3CEh
  44.                OUT         DX,AX
  45.  
  46.                MOV         AX,43008
  47.                MOV         DS,AX
  48.  
  49.                MOV         AX,40960
  50.                MOV         ES,AX
  51.  
  52.                LEA         SI,[PAGE0]
  53.                LEA         DI,[PAGE1]
  54.  
  55.                MOV         CX,6E00H
  56.                REP MOVSB
  57.  
  58.                MOV         AX,0005h
  59.                MOV         DX,03CEh
  60.                OUT         DX,AX
  61.  
  62.                MOV         AX,0000h
  63.                MOV         DX,03CFh
  64.                OUT         DX,AX
  65.  
  66.                POP         ES
  67.                POP         DS
  68.                POP         DI
  69.                POP         SI
  70.                MOV         SP,BP
  71.                POP         BP
  72.  
  73.                RET
  74. COPY_PAGE      ENDP
  75.  
  76. ;--------------------------------------------------
  77.  
  78. $COPY_PAGE    ENDS
  79.  
  80.                END         
  81.