40 lines
1.2 KiB
Plaintext
40 lines
1.2 KiB
Plaintext
|
-- SAMPLE9.ADA Use of DOS_INTERFACE
|
|||
|
|
|
|||
|
|
with DOS_INTERFACE; use DOS_INTERFACE;
|
|||
|
|
|
|||
|
|
procedure SAMPLE9 is
|
|||
|
|
|
|||
|
|
R : REG_8086; -- 8086 registers to use for DOS calls
|
|||
|
|
|
|||
|
|
procedure VERIFY_ON is
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
R . AX := 16#2E01#; -- AH = function call 2E (Set/reset verify switch)
|
|||
|
|
-- AL = 01 verify on, AL = 00 verify off
|
|||
|
|
R . DX := 16#0000#; -- DL must be 0 for this function call
|
|||
|
|
CALL_DOS (R);
|
|||
|
|
if abs R . FLAGS mod 2 = 1 then -- Carry was set, there is some error
|
|||
|
|
null; -- Error handling
|
|||
|
|
end if;
|
|||
|
|
end VERIFY_ON;
|
|||
|
|
|
|||
|
|
procedure DELETE_FILE (F : in STRING) is
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
R . AX := 16#4100#; -- Function call 41 (Delete file)
|
|||
|
|
R . DX := WORD (F'ADDRESS);
|
|||
|
|
CALL_DOS (R);
|
|||
|
|
if abs R . FLAGS mod 2 = 1 then -- Carry set, error
|
|||
|
|
if R . AX = 2 then
|
|||
|
|
null; -- Error handling for file not found
|
|||
|
|
else
|
|||
|
|
null; -- Error handling for access error
|
|||
|
|
end if;
|
|||
|
|
end if;
|
|||
|
|
end DELETE_FILE;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
VERIFY_ON;
|
|||
|
|
DELETE_FILE ("TEMP.TMP" & ASCII.NUL); -- Must be zero-terminated
|
|||
|
|
end SAMPLE9;
|
|||
|
|
|