Compilation of various source - frespace

; Frespace.ASM 10/04/84 gwf
;
;
;
; CALL FRESPACE (AH, AL, BH, BL, CH, CL). CL SHOULD BE 0 for default
; Drive 1 for A, 2 for B, 3 for C, etc. The value of the
; Other variables does not matter. They will come back
; With a meaningful value.
;
; AN EXAMPLE PROGRAM:
;
; 10 defint a-z
; 20 color 7,1: cls
; 30 test1 = 1: ah = 0: al = 0: bh = 0: ch = 0: cl = 1: test2 = 2
; 35 INPUT "DRIVE 0 = DEFAULT, 1 = A, 2 = B, 3 = C"; CL
; 37 PRINT "JUST BEFORE CALL"
; 40 CALL FRESPACE (AH, AL, BH, BL, CH, CL)
; 45 PRINT "JUST AFTER CALL"
; 50 PRINT "AH ="; AH; "AL ="; AL; "BH ="; BH; "BL ="; BL; "CH ="; CH; "CL = "; CL;
; 60 UFREE! = 256 * AH + AL
; 70 UBYTES! = 256 * BH + BL
; 80 USECTOR! = 256 * CH + CL
; 90 PRINT "UFREE! ="; UFREE!; "UBYTES! ="; UBYTES!; "USECTOR! ="; USECTOR!
; 100 FRESPACE! = UFREE! * UBYTES! * USECTOR!
; 110 PRINT "FRESPACE! ="; FRESPACE!
; 120 PRINT "THIS SHOULD BE 1", TEST1
; 130 PRINT "THIS SHOULD BE 2", TEST2
;

get_spa equ 36h; Get disk free space function call
doscall equ 21h; DOS interrupt number

dgroup group datarea
datarea segment para public''DATA''

ah_ret dw?; ah to be sent back
al_ret dw?; al to be sent back
bh_ret dw?; bh to be sent back
bl_ret dw?; bl to be sent back
ch_ret dw?; ch to be sent back
cl_ret dw?; cl to be sent back

datarea ENDS
;
cseg segment''CODE''
assume cs: cseg
public frespace
frespace proc far
push bp; BP from BASIC
mov bp, sp; set base for parm list
push ds; DS from basic work area
push es; ES from basic work area
mov ax, datarea; establish data addressability
mov ds, ax; now DS is local data
assume ds: datarea
;
;
;
;
push bp
sub ax, ax
mov si, ss: [bp +6]; get addr of parameter
mov al, es: [si]; get value of parm
mov dx, ax; dl contains the drive number on call
; Dh will be zero
mov ah, get_spa; get space function number
int doscall; Call DOS

; Move the values into local work area to prepare to send back to basic
xchg dx, ax; must have a word. Want to zero out DH.
sub ax, ax; produce the zero
xchg dx, ax; DX is now zero.
; DH is what we really want as zero.

mov dl, ah; want to send back a byte
mov ah_ret, dx; prepare to return ah

mov dl, al; want to send back a byte
mov al_ret, dx; prepare to return al

mov dl, bh; want to send back a byte
mov bh_ret, dx; prepare to return bh

mov dl, bl; want to send back a byte
mov bl_ret, dx; prepare to return bl

mov dl, ch; want to send back a byte
mov ch_ret, dx; prepare to return ch

mov dl, cl; want to send back a byte
mov cl_ret, dx; prepare to return cl


; Go back
pop bp; get back Basic''s workspace
mov ax, cl_ret
mov si, ss: [bp +6]
mov es: [si], ax; return cl

mov ax, ch_ret
mov si, ss: [bp +8]
mov es: [si], ax; return ch

mov ax, bl_ret
mov si, ss: [bp +10]
mov es: [si], ax; return bl

mov ax, bh_ret
mov si, ss: [bp +12]
mov es: [si], ax; return bh

mov ax, al_ret
mov si, ss: [bp +14]
mov es: [si], ax; return al

mov ax, ah_ret
mov si, ss: [bp +16]
mov es: [si], ax; return ah
;
pop es
pop ds
pop bp
ret 12; return to basic 6 parameters were sent
frespace endp
;------------------------------------------------- ----------------------
cseg ends
end; end for assembler








Recommended links:



My favorite Fax Tools



VC environment created in the symbian build EXE PROJECT questions



Semiconductor India vied with New Deal



Infomation Vertical Market Apps



Hiddink looking like the kind of CEO



weaver Signed a contract in yining city



Landscape engineering COMPANY in Yantai in hand Weaver



3G2 to MOV



MKV To MP4



Full Clean Up Of Floating



Talent On: A New Maxima



My favorite Anti-Virus Tools



Availability Of The Indicator, The User Experience Is The Goal, UCD Is Thought



RMVB to MP4



Lay the foundation for the bug prevention [2]