Universidade Regional Integrada do Alto Uruguai e das Missões Campus Frederico Westphalen Departamento de Engenharias e Ciência da Computação Algoritmos e Estrutura de Dados I informática I

15.5Funções com Ordinais

Retorna o predecessor do argumento passado

Retorna o sucessor do argumento passado

15.6Unit DOS

Retona a versão do sistema. A parte baixa retorna a versão e a parte baixa a atualização

Retorna o número de bytes livres no drive.

Retorna o total de bytes da unidade de disco

Retorna o número de strings contidas no ambiente DOS

Retorna a string do ambiente DOS correspondente ao índice.

Retorna o conteúdo da string passada como parâmetro relativa ao ambiente DOS.

Executa um comando passado como parâmetro. Deve ser usado em conjunto com SWAPVECTORS.

Exemplo

Program ExecutaProgrDos;

uses Dos;

var

ProgramName, CmdLine: string;

Write('Programa para executar: ');

ReadLn(ProgramName);

Write('Argumento a ser passado para ',ProgramName, ': ');

ReadLn(CmdLine);

WriteLn('Executando...');

SwapVectors;

Exec(ProgramName, CmdLine);

SwapVectors;

WriteLn('...voltando da Execu‡„o');

if DosError <> 0 then { Error? }

WriteLn('DOS error #', DosError)

else

WriteLn('Exec com sucesso. ',

DosExitCode);

end.

DOSEXITCODE : Word ;

Retorna o código de saída de um processo

Retorna uma string contendo o nome de programa passado como parâmetro em sua totalidade.

Procura um determinado arquivo em uma lista de diretórios

Explode o nome do arquivo passando como parâmetro, em três partes o diretório, o nome do arquivo e a extensão.

Procura um determinado arquivo, especificando seu nome e seu atributo

Devolve a próxima entrada, após FINDFIRST.

Retorna o estado da checagem de CTRL-BREAK.

Altera o estado da checagem de CTRL-BREAK.

Retorna o estado do flag de verificação do Sistema Operacional

Altera o estado do flag de verificação do Sistema Operacional

Retorna a data corrente do sistema operacional

Altera a data do sistema operacional

Retorna a hora do sistema operacional

Altera a hora do sistema operacional

Compacta data e hora em 4 bytes. A hora e a data deverão estar em um registro DATETIME predefinido na Unit DOS:

DATETIME = record

year, month, day, hour, min, sec : Word ;

END;

UNPACKTIME (ftime : Longint ; VAR data :DATETIME);

Descompacta um valor de 4 bytes para o registro DATETIME.

Retorna a hora e a data da última atualização de um arquivo.

Estabelece uma nova data e hora de última gravação em um arquivo.

Retorna o atributo de um determinado arquivo:

READONLY = $01; (somente leitura)

HIDDEN = $02; (escondido)

SYSFILE = $04; (arquivo de sistema)

VOLUMEID = $08; (nome de volume)

DIRECTORY = $10; (diretório)

ARQUIVE = $20; (arquivo)

ANYFILE = $3F; (sem definição)

SETFATTR (VAR arquivo; atrib : Word );

Estabelece um novo atributo para um arquivo

Retorna o endereço de memória de um vetor de interrupção específico

Determina um novo endereço de memória de um vetor de interrupção específico

Permite que sejam salvos todos os vetores de interrupção do sistema.

Permite executar uma interrupção do sistema operacional. Deve-se passar como parâmetro o número da interrupção e um registro dos registradores, predefinido na Unid DOS:

REGISTERS = RECORD

case integer of

0: (AX, BX, CX, DX, BP, SI, DI, DS, ES, FLAGS : Word );

1: (AL, AH, BL, BH, CL, CH, DL, DH : Byte );

END;

MSDOS (VAR reg : REGISTERS);

Executa uma chamada na interrupção 21H do sistema operacional.

Termina um programa e mantém residente na memória.

Exemplo de um programa que causa um click cada vez que uma tecla é pressionada:

Program ExemploKeep;

{$M $800,0,0 } { 2K stack, no heap }

uses Crt, Dos;

var

KbdIntVec : Procedure;

procedure Keyclick; interrupt;

begin

if Port[$60] < $80 then

Sound(5000);

Delay(1);

Nosound;

inline ($9C);

KbdIntVec;

end;

begin

SetIntVec($9,Addr(Keyclick));

Keep(0);

end.