Category : Utilities for DOS and Windows Machines
Archive   : FILLDISK.ZIP
Filename : DFILL.LST

 Microsoft MACRO Assembler Version 3.00 Page 1-1
D F I L L . A S M (SUBROUTINE TO FILLDISK.SRC) 10-10-86


1 PAGE 57,132
2 TITLE D F I L L . A S M (SUBROUTINE TO FILLDISK.SRC)
3 ;
4 ; DFILL CREATE, WRITE AND CLOSE FILE VIA INT 33, FUNCTIONS 60, 64 AND 62
5 ;
6 ; IN PARM 1, STACK FILE NAME (inclusive drive letter)
7 ; PARM 2, " BLOCK 512 BYTES (already filled)
8 ; PARM 3, " NUMBER OF SECTORS (to be written)
9
10 PARM STRUC
11
12 0000 0000 SAVEBP DW 0
13 0002 0000 RETOFF DW 0
14 0004 0000 RETSEG DW 0
15 0006 0000 PARM3 DW 0
16 0008 0000 PARM2 DW 0
17 000A 0000 PARM1 DW 0
18
19 000C PARM ENDS
20
21 = PARMSIZE EQU OFFSET PARM1 - OFFSET RETSEG
22
23 0000 CODE SEGMENT BYTE PUBLIC 'CODE'
24 ASSUME CS:CODE
25
26 0000 DFILL PROC FAR
27 PUBLIC DFILL
28
29 0000 55 PUSH BP ; SET UP BP FOR PARM ADDRESSING
30 0001 8B EC MOV BP, SP
31
32 0003 8B 5E 0A MOV BX, [BP].PARM1 ; GET PTR(DFNAME$)
33 0006 8B 57 02 MOV DX, [BX+2]
34
35 ; MOV AH, 9 ; TEST FOR STRING TRANSFER OK
36 ; INT 33
37
38 0009 B9 0000 MOV CX, 0 ; FILE ATTRIBUTE
39 000C B4 3C MOV AH, 60 ; DOS FUNCTION CREATE FILE
40 000E CD 21 INT 33 ; ------------------------
41 0010 8B D8 MOV BX, AX ; SAVE FILE HANDLE
42
43 0012 8B 76 08 MOV SI, [BP].PARM2 ; GET BLOCK$
44 0015 8B 54 02 MOV DX, [SI+2]
45 0018 8B 76 06 MOV SI, [BP].PARM3 ; GET RECORDS%
46 001B 8B 3C MOV DI, [SI]
47
48 001D B9 0200 LOOP: MOV CX, 512 ; BLOCK LENGTH
49 0020 B4 40 MOV AH, 64 ; DOS FUNCTION WRITE FILE

50 0022 CD 21 INT 33 ; -----------------------
51 0024 4F DEC DI ; RECORDS%
52 0025 75 F6 JNZ LOOP
53
 Microsoft MACRO Assembler Version 3.00 Page 1-2
D F I L L . A S M (SUBROUTINE TO FILLDISK.SRC) 10-10-86


54 0027 B4 3E MOV AH, 62 ; DOS FUNCTION CLOSE FILE
55 0029 CD 21 INT 33 ; -----------------------
56
57 002B 5D POP BP
58
59 002C CA 0006 RET PARMSIZE
60
61 002F DFILL ENDP
62 002F CODE ENDS
63 END

 Microsoft MACRO Assembler Version 3.00 Page Symbols-1
D F I L L . A S M (SUBROUTINE TO FILLDISK.SRC) 10-10-86


Structures and records:

N a m e Width # fields
Shift Width Mask Initial

PARM . . . . . . . . . . . . . . 000C 0006
SAVEBP . . . . . . . . . . . . . 0000
RETOFF . . . . . . . . . . . . . 0002
RETSEG . . . . . . . . . . . . . 0004
PARM3. . . . . . . . . . . . . . 0006
PARM2. . . . . . . . . . . . . . 0008
PARM1. . . . . . . . . . . . . . 000A

Segments and Groups:

N a m e Size Align Combine Class

CODE . . . . . . . . . . . . . . 002F BYTE PUBLIC 'CODE'

Symbols:

N a m e Type Value Attr

DFILL. . . . . . . . . . . . . . F PROC 0000 CODE Global Length =002F
LOOP . . . . . . . . . . . . . . L NEAR 001D CODE
PARMSIZE . . . . . . . . . . . . Text OFFSET PARM1 - OFFSET RETSEG

49698 Bytes free

Warning Severe
Errors Errors
0 0