Subversion Repositories Kolibri OS

Rev

Rev 593 | Rev 2455 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 593 Rev 766
Line 3... Line 3...
3 
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
 3 
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
4 
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa      ;;
 4 
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa      ;;
5 
;; Distributed under terms of the GNU General Public License    ;;
 5 
;; Distributed under terms of the GNU General Public License    ;;
6 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 6 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 7... Line 7...
7 
 
 7 
 
Line 8... Line 8...
8 
$Revision: 593 $
 8 
$Revision: 766 $
9 
 
 9 
 
10 
 
 10 
 
11 
iglobal
 11 
iglobal
Line 12... Line 12...
12 
  ;function pointers.
 12 
  ;function pointers.
13 
  fdc_irq_func    dd fdc_null
 13 
  fdc_irq_func	  dd fdc_null
14 
endg
 14 
endg
15 
 
 15 
 
Line 16... Line 16...
16 
uglobal
 16 
uglobal
17 
  dmasize         db 0x0
 17 
  dmasize	  db 0x0
18 
  dmamode         db 0x0
 18 
  dmamode	  db 0x0
19 
endg
 19 
endg
20 
 
 20 
 
21 
fdc_init:                               ;start with clean tracks.
 - 
 
22 
        mov edi,OS_BASE+0xD201
 - 
 
23 
        mov al,0
 - 
 
24 
        mov ecx,160
 - 
 
25 
        rep stosb
 - 
 
26 
ret
 - 
 
27 
 
 - 
 
28 
fdc_filesave:                   ;ebx: cluster to be saved.
 - 
 
29 
        pusha                   ;returns immediately. does not trigger a write.
 - 
 
30 
        mov eax,ebx
 - 
 
31 
        add eax,31
 - 
 
32 
        mov bl,18
 - 
 
33 
        div bl
 21 
fdc_init:				;start with clean tracks.
Line 34... Line 22...
34 
        mov ah,0
 22 
	mov edi,OS_BASE+0xD201
35 
        add eax,OS_BASE+0xD201
 23 
	mov al,0
36 
        mov [eax],byte 1                ;This track is now dirty.
 24 
	mov ecx,160
37 
        popa
 25 
	rep stosb
Line 38... Line 26...
38 
ret
 26 
ret
39 
 
 27