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@19515
|
41 ;void xmm_driver()
|
pascal@19515
|
42 ;***************************************************************
|
pascal@19515
|
43 global xmm_driver:near
|
pascal@19515
|
44 proc xmm_driver near
|
pascal@19515
|
45
|
pascal@19636
|
46 ifndef NO386
|
pascal@19515
|
47 cmp [xmm_handler],0
|
pascal@19636
|
48 else
|
pascal@19636
|
49 mov ax,[word xmm_handler]
|
pascal@19636
|
50 or ax,[word xmm_handler+2]
|
pascal@19636
|
51 endif
|
pascal@19515
|
52 jne @@gotit
|
pascal@19515
|
53
|
pascal@19515
|
54 xchg ax,cx ; save cmd
|
pascal@19515
|
55 mov ax,4300h
|
pascal@19515
|
56 int 2fh
|
pascal@19515
|
57 mov bx,offset xmm_fail
|
pascal@19515
|
58 push cs
|
pascal@19515
|
59 pop es
|
pascal@19515
|
60 cmp al,80h
|
pascal@19515
|
61 jne @@err
|
pascal@19515
|
62 mov ax,4310h
|
pascal@19515
|
63 int 2fh
|
pascal@19515
|
64 @@err:
|
pascal@19515
|
65 xchg ax,cx ; restore cmd
|
pascal@19515
|
66 push es
|
pascal@19515
|
67 push bx
|
pascal@19515
|
68 pop [xmm_handler]
|
pascal@19515
|
69 @@gotit:
|
pascal@19515
|
70 call [xmm_handler]
|
pascal@19515
|
71 ret
|
pascal@19538
|
72 xmm_fail:
|
pascal@19538
|
73 xor ax,ax
|
pascal@19538
|
74 cwd
|
pascal@19538
|
75 retf
|
pascal@19538
|
76
|
pascal@19515
|
77 endp xmm_driver
|
pascal@19515
|
78
|
pascal@19515
|
79
|
pascal@19515
|
80 ;***************************************************************
|
pascal@19538
|
81 ;void xmm_alloc(struct image_himem *m)
|
pascal@19538
|
82 ;struct image_himem {
|
pascal@19538
|
83 ; 0 int fd;
|
pascal@19538
|
84 ; 2 u32 fallback;
|
pascal@19538
|
85 ; 6 u32 size;
|
pascal@19538
|
86 ;10 u32 remaining;
|
pascal@19538
|
87 ;14 u32 buf;
|
pascal@19538
|
88 ;18 u32 *bufv;
|
pascal@19538
|
89 ;20 char *errmsg;
|
pascal@19538
|
90 ;22 u32 chunk_size;
|
pascal@19538
|
91 ;26 void (*next_chunk)(struct image_himem *);
|
pascal@19538
|
92 ;28 u16 state;
|
pascal@19538
|
93 ;30 u16 fd2close;
|
pascal@19538
|
94 ;};
|
pascal@19515
|
95 ;***************************************************************
|
pascal@19515
|
96 global _xmm_alloc:near
|
pascal@19515
|
97 proc _xmm_alloc near
|
pascal@19515
|
98
|
pascal@19538
|
99 pop ax
|
pascal@19515
|
100 pop bx
|
pascal@19538
|
101 push bx
|
pascal@19538
|
102 push ax
|
pascal@19515
|
103 ifndef NO386
|
pascal@19538
|
104 mov edx,[bx+6] ; m->size
|
pascal@19515
|
105 dec edx
|
pascal@19515
|
106 shr edx,10 ; to Kb
|
pascal@19515
|
107 else
|
pascal@19538
|
108 mov ax,[bx+6] ; lo m->size
|
pascal@19538
|
109 mov dx,[bx+8] ; hi m->size
|
pascal@19515
|
110 sub ax,1
|
pascal@19515
|
111 sbb dx,0
|
pascal@19515
|
112 mov cx,10
|
pascal@19515
|
113 @@tokblp:
|
pascal@19515
|
114 shr dx,1
|
pascal@19515
|
115 rcr ax,1
|
pascal@19515
|
116 loop @@tokblp
|
pascal@19515
|
117 endif
|
pascal@19515
|
118 inc dx
|
pascal@19538
|
119 push bx
|
pascal@19515
|
120 mov ah,09h ;allocate blk
|
pascal@19515
|
121 call xmm_driver ;
|
pascal@19515
|
122 dec ax
|
pascal@19538
|
123 jnz @@goerr
|
pascal@19515
|
124 ;now: dx=handle of the blk
|
pascal@19515
|
125 mov ah,0Ch ;lock blk
|
pascal@19515
|
126 call xmm_driver ;
|
pascal@19515
|
127 dec ax
|
pascal@19515
|
128 ;now: dx:bx=addr of blk
|
pascal@19515
|
129 xchg ax,bx
|
pascal@19538
|
130 @@goerr:
|
pascal@19538
|
131 pop bx
|
pascal@19538
|
132 jnz @@err
|
pascal@19538
|
133 mov [bx+14],ax ; lo m->buf
|
pascal@19538
|
134 mov [bx+16],dx ; hi m->buf
|
pascal@19515
|
135 @@err:
|
pascal@19538
|
136 ret
|
pascal@19538
|
137
|
pascal@19515
|
138 endp _xmm_alloc
|
pascal@19515
|
139
|
pascal@19515
|
140 ends _TEXT
|
pascal@19515
|
141
|
pascal@19515
|
142 end
|
pascal@19515
|
143
|
pascal@19515
|
144 ;###### END OF FILE ############################################
|