PAGE 57,132
TITLE   D S P A C E . A S M     (SUBROUTINE TO FILLDISK.SRC)
;
; DSPACE   DISKSPACE VIA INT 33, FUNCTION 54
;
;    IN    PARM 1, STACK   DRIVE NUMBER
;
;    OUT   PARM 2,   "     AX  SECTORS PER CLUSTER
;          PARM 3,   "     CX  BYTES PER SECTOR
;          PARM 4,   "     BX  NUMBER OF AVAILABLE CLUSTERS
 
PARM STRUC

SAVEBP 	DW	0
RETOFF 	DW	0
RETSEG	DW	0
PARM4	DW	0
PARM3	DW	0
PARM2	DW	0
PARM1 	DW	0

PARM	ENDS

PARMSIZE EQU OFFSET PARM1 - OFFSET RETSEG


CODE	SEGMENT BYTE PUBLIC 'CODE'
	ASSUME CS:CODE

DSPACE          PROC FAR
		PUBLIC DSPACE

	PUSH 	BP
	MOV 	BP, SP
	MOV 	SI, [BP].PARM1
	MOV 	DL, [SI]

     	MOV 	AH, 54
	INT 	33

        MOV 	DI, [BP].PARM2
        MOV 	[DI], AX
        MOV 	DI, [BP].PARM3
        MOV 	[DI], CX
        MOV 	DI, [BP].PARM4
        MOV 	[DI], BX
	
	POP 	BP

	RET 	PARMSIZE
 
DSPACE		ENDP
CODE	ENDS
	END