user/arj/arj_xms.asm

   1 ;*
   2 ;* $Id: arj_xms.asm,v 1.1.1.1 2002/03/28 00:02:01 andrew_belov Exp $
   3 ;* ---------------------------------------------------------------------------
   4 ;* To make FILELIST.C less platform-dependent, its XMS routies are placed into
   5 ;* this file.
   6 ;*
   7
   8 INCLUDE         ASM_INCL.INC
   9
  10 ;*
  11 ;* XMS move structure as proposed by XMS v 2.0
  12 ;*
  13
  14 xms_move        struc
  15   blk_length    dd      ?
  16   src_handle    dw      ?
  17   src_offset    dd      ?
  18   dest_handle   dw      ?
  19   dest_offset   dd      ?
  20 xms_move        ends
  21
  22 ;*
  23 ;* Exported stubs
  24 ;*
  25
  26 public          detect_xms, get_xms_entry, allocate_xms, free_xms, move_xms
  27
  28 .CODE
  29
  30 ;*
  31 ;* Detects XMS presence. Returns 1 if it's present
  32 ;*
  33
  34 detect_xms      proc
  35                 mov     ah, 30h
  36                 int     21h
  37                 cmp     al, 3
  38                 jb      dx_none
  39                 mov     ax, 4300h
  40                 int     2Fh
  41                 cmp     al, 80h
  42                 jne     dx_none
  43                 mov     ax, 1
  44                 jmp     short dx_return
  45 dx_none:
  46                 sub     ax, ax
  47 dx_return:
  48                 ret
  49 detect_xms      endp
  50
  51 ;*
  52 ;* Stores XMS entry point in an internal area
  53 ;*
  54
  55 get_xms_entry   proc    uses es bx
  56                 mov     ax, 4310h
  57                 int     2Fh
  58                 mov     word ptr xms_entry, bx
  59                 mov     word ptr xms_entry+2, es
  60                 ret
  61 get_xms_entry   endp
  62
  63 ;*
  64 ;* Allocates N kilobytes of XMS memory
  65 ;*
  66
  67 allocate_xms    proc    uses bx, kbs:word, hptr:ptr word
  68                 mov     ah, 9
  69                 mov     dx, kbs
  70                 call    dword ptr xms_entry
  71 IF @DataSize
  72                 push    es
  73                 les     bx, hptr
  74                 mov     word ptr es:[bx], dx
  75                 pop     es
  76 ELSE
  77                 mov     bx, hptr
  78                 mov     word ptr ss:[bx], dx
  79 ENDIF
  80                 ret
  81 allocate_xms    endp
  82
  83 ;*
  84 ;* Frees a block of XMS memory
  85 ;*
  86
  87 free_xms        proc    uses bx, handle:word
  88                 mov     ah, 0Ah
  89                 mov     dx, handle
  90                 call    dword ptr xms_entry
  91                 ret
  92 free_xms        endp
  93
  94 ;*
  95 ;* Moves a block
  96 ;*
  97
  98 move_xms        proc    uses bx si ds, xms_mm:ptr xms_move
  99                 mov     ah, 0Bh
 100 IF @DataSize
 101                 lds     si, xms_mm
 102 ELSE
 103                 mov     si, xms_mm
 104                 push    ss
 105                 pop     ds
 106 ENDIF
 107                 call    dword ptr xms_entry
 108                 ret
 109 move_xms        endp
 110
 111 .DATA?
 112
 113 xms_entry       dd      ?
 114
 115                 end