rev |
line source |
pascal@19515
|
1 ;***************************************************************
|
pascal@19515
|
2 ;****** This file is distributed under GPL
|
pascal@19515
|
3 ;***************************************************************
|
pascal@19515
|
4 ideal
|
pascal@19515
|
5 %crefref
|
pascal@19515
|
6 %noincl
|
pascal@19515
|
7 %nomacs
|
pascal@19636
|
8 ifdef NO386
|
pascal@19636
|
9 p8086
|
pascal@19636
|
10 else
|
pascal@19515
|
11 p386
|
pascal@19636
|
12 endif
|
pascal@19515
|
13
|
pascal@19515
|
14 group DGROUP _TEXT,_BSS
|
pascal@19515
|
15 assume cs:DGROUP,ds:DGROUP
|
pascal@19515
|
16
|
pascal@19515
|
17 segment _BSS byte public use16 'BSS'
|
pascal@19515
|
18
|
pascal@19515
|
19 global xmm_handler:dword
|
pascal@19515
|
20 xmm_handler dd ?
|
pascal@19515
|
21
|
pascal@19515
|
22 ends _BSS
|
pascal@19515
|
23
|
pascal@19515
|
24 segment _TEXT byte public use16 'CODE'
|
pascal@19515
|
25
|
pascal@19515
|
26 ;***************************************************************
|
pascal@19515
|
27 ;void enable_a20_xmm();
|
pascal@19515
|
28 ;***************************************************************
|
pascal@19515
|
29 global _enable_a20_xmm:near
|
pascal@19515
|
30 proc _enable_a20_xmm near
|
pascal@19515
|
31
|
pascal@19515
|
32 mov ah,03h ;global enable a20
|
pascal@19515
|
33 call xmm_driver ;
|
pascal@19515
|
34 mov ah,05h ;local enable a20
|
pascal@19515
|
35 ;jmp xmm_driver ;
|
pascal@19515
|
36
|
pascal@19515
|
37 endp _enable_a20_xmm
|
pascal@19515
|
38
|
pascal@19515
|
39 ;***************************************************************
|
pascal@19515
|
40 ;Call xmm driver addr or 0 if no xmm
|
pascal@20142
|
41 ;void xmm_driver(ah)
|
pascal@19515
|
42 ;***************************************************************
|
pascal@19515
|
43 global xmm_driver:near
|
pascal@19515
|
44 proc xmm_driver near
|
pascal@19515
|
45
|
pascal@19876
|
46 push si
|
pascal@19876
|
47 mov si,offset xmm_handler
|
pascal@19636
|
48 ifndef NO386
|
pascal@20142
|
49 cmp [dword si],0
|
pascal@19636
|
50 else
|
pascal@19876
|
51 mov ax,[word si]
|
pascal@19876
|
52 or ax,[word si+2]
|
pascal@19636
|
53 endif
|
pascal@19515
|
54 jne @@gotit
|
pascal@19515
|
55
|
pascal@19515
|
56 xchg ax,cx ; save cmd
|
pascal@20142
|
57 mov ax,4300h ; installation check in al
|
pascal@19515
|
58 int 2fh
|
pascal@19515
|
59 mov bx,offset xmm_fail
|
pascal@19515
|
60 push cs
|
pascal@19515
|
61 pop es
|
pascal@19515
|
62 cmp al,80h
|
pascal@19515
|
63 jne @@err
|
pascal@20142
|
64 mov ax,4310h ; get driver address in es:bx
|
pascal@19515
|
65 int 2fh
|
pascal@19515
|
66 @@err:
|
pascal@19515
|
67 xchg ax,cx ; restore cmd
|
pascal@19515
|
68 push es
|
pascal@19515
|
69 push bx
|
pascal@19876
|
70 pop [dword si]
|
pascal@19515
|
71 @@gotit:
|
pascal@19876
|
72 call [dword si]
|
pascal@20142
|
73 dec ax ; Z=1=OK
|
pascal@19876
|
74 pop si
|
pascal@19515
|
75 ret
|
pascal@19538
|
76 xmm_fail:
|
pascal@19538
|
77 xor ax,ax
|
pascal@19538
|
78 cwd
|
pascal@19538
|
79 retf
|
pascal@19538
|
80
|
pascal@19515
|
81 endp xmm_driver
|
pascal@19515
|
82
|
pascal@19515
|
83
|
pascal@20142
|
84 struc image_himem ;struct image_himem {
|
pascal@20142
|
85 fd dw ? ; 0 int fd;
|
pascal@20142
|
86 fallback dd ? ; 2 u32 fallback;
|
pascal@20142
|
87 size dd ? ; 6 u32 size;
|
pascal@20142
|
88 remaining dd ? ;10 u32 remaining;
|
pascal@20142
|
89 buf dd ? ;14 u32 buf;
|
pascal@20142
|
90 bufv dw ? ;18 u32 *bufv;
|
pascal@20142
|
91 errmsg dw ? ;20 char *errmsg;
|
pascal@20142
|
92 chunk_size dd ? ;22 u32 chunk_size;
|
pascal@20142
|
93 next_chunk dw ? ;26 void (*next_chunk)(struct image_himem *);
|
pascal@20142
|
94 state dw ? ;28 u16 state;
|
pascal@20142
|
95 fd2close dw ? ;30 u16 fd2close;
|
pascal@20142
|
96 ends ;};
|
pascal@20142
|
97
|
pascal@19515
|
98 ;***************************************************************
|
pascal@19538
|
99 ;void xmm_alloc(struct image_himem *m)
|
pascal@19515
|
100 ;***************************************************************
|
pascal@19515
|
101 global _xmm_alloc:near
|
pascal@19515
|
102 proc _xmm_alloc near
|
pascal@19515
|
103
|
pascal@19538
|
104 pop ax
|
pascal@19515
|
105 pop bx
|
pascal@19538
|
106 push bx
|
pascal@19538
|
107 push ax
|
pascal@19515
|
108 ifndef NO386
|
pascal@20142
|
109 mov edx,[(image_himem bx).size] ; m->size
|
pascal@20142
|
110 ;dec edx
|
pascal@19515
|
111 shr edx,10 ; to Kb
|
pascal@19515
|
112 else
|
pascal@20142
|
113 ;mov ax,-1
|
pascal@20142
|
114 ;cwd
|
pascal@20142
|
115 ;add ax,[word (image_himem bx).size] ; lo m->size
|
pascal@20142
|
116 ;adc dx,[word (image_himem bx+2).size] ; hi m->size
|
pascal@20142
|
117 mov ax,[word (image_himem bx).size] ; lo m->size
|
pascal@20142
|
118 mov dx,[word (image_himem bx+2).size] ; hi m->size
|
pascal@20142
|
119 mov cl,16-10
|
pascal@20142
|
120 extrn N_LXLSH@:near
|
pascal@20142
|
121 call N_LXLSH@
|
pascal@19515
|
122 endif
|
pascal@19515
|
123 inc dx
|
pascal@19538
|
124 push bx
|
pascal@20142
|
125 mov ah,09h ;allocate blk of DX kilobytes
|
pascal@19515
|
126 call xmm_driver ;
|
pascal@19538
|
127 jnz @@goerr
|
pascal@19515
|
128 ;now: dx=handle of the blk
|
pascal@19515
|
129 mov ah,0Ch ;lock blk
|
pascal@19515
|
130 call xmm_driver ;
|
pascal@19515
|
131 ;now: dx:bx=addr of blk
|
pascal@19515
|
132 xchg ax,bx
|
pascal@19538
|
133 @@goerr:
|
pascal@19538
|
134 pop bx
|
pascal@19538
|
135 jnz @@err
|
pascal@20142
|
136 mov [word (image_himem bx).buf],ax ; lo m->buf
|
pascal@20142
|
137 mov [word (image_himem bx+2).buf],dx ; hi m->buf
|
pascal@19515
|
138 @@err:
|
pascal@19538
|
139 ret
|
pascal@19538
|
140
|
pascal@19515
|
141 endp _xmm_alloc
|
pascal@19515
|
142
|
pascal@19515
|
143 ends _TEXT
|
pascal@19515
|
144
|
pascal@19515
|
145 end
|
pascal@19515
|
146
|
pascal@19515
|
147 ;###### END OF FILE ############################################
|