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