Адаптер параллельного LPT порта компьютера на ПЛИС

//---------------------------------------------------
#include <vcl.h>
#pragma hdrstop

const unsigned int LPTBase = 0x378;
const unsigned int LPTCR = 0x37A;

const char Strobe=1;
const char Strb=0;
const char AutoFeed=2;
const char SelectIn=8;
const char NoAktive=0;
const char Neitral=0x20;

#pragma package(smart_init)

void OutPortB(Word Paddr, Byte Pdata);
void InitLPT(void);
void WriteByte(int Address,int Info);
int ReadByte(int Address);
//------------------------------------------------------
void wait (int wt) { //задержка
//------------------------------------------------------
while (wt--);
}
//------------------------------------------------------
void InitLPT(void) {
//------------------------------------------------------
asm {
mov dx,LPTCR
mov al,Neitral
out dx,al //порт LPT на ввод
// outportb(LPTCR,Neitral);
mov dx,LPTBase
mov al,0xff
out dx,al //в LPTBase 0xff
}
// outportb(LPTBase, 0xFF);
ReadByte(0x3C); //разблокировка имитатора
}

//------------------------------------------------------
void WriteByte(int Address,int Info) {
//------------------------------------------------------
// Запись байта информации Info по адресу Address
//-------------------------------------------------------
asm mov dx,LPTCR
asm mov al,NoAktive
asm out dx,al //запись в регистр управл. 0x00
// outportb(LPTCR,NoAktive);

asm mov dx,LPTBase
_AX=Address;
//asm mov al, Address
asm out dx,al //запись адреса в LPTBase
// outportb(LPTBase, Address);

asm mov dx,LPTCR
asm mov al,NoAktive
asm or al,SelectIn
asm out dx,al //формирование сигнала записи адреса
//во внешний регистр адреса
// outportb(LPTCR,NoAktive | SelectIn);
wait (5);

asm mov dx,LPTCR
asm mov al,NoAktive
asm out dx,al //сброс сигнала записи адреса
// outportb(LPTCR,NoAktive);

wait (5);

asm mov dx,LPTBase
_AX=Info;
//asm mov al,Info
asm out dx,al //запись байта информации в базовый
//регистр
// outportb(LPTBase, Info);

asm mov dx,LPTCR
asm mov al,NoAktive
asm or al,Strobe
asm out dx,al //формирование сигн.записи во внешние у-ва.
// outportb(LPTCR,NoAktive | Strobe);

asm nop
asm nop
asm nop

asm or al,AutoFeed
asm out dx,al //формирование выбора кристалла внешн.у-в.
// outportb(LPTCR,NoAktive | Strobe | AutoFeed);
wait (10);

asm mov dx,LPTCR
asm mov al,NoAktive
asm or al,Strobe
asm out dx,al //состояние внешнего порта -на передачу
// outportb(LPTCR,NoAktive | Strobe);

wait (3);

asm mov al,NoAktive
asm out dx,al //возвратить внешний порт в исходное сост.
// outportb(LPTCR,NoAktive);

asm mov al,Neitral //LPT_порт в исходное состояние
asm out dx,al
// outportb(LPTCR,Neitral);
}
//------------------------------------------------------
int ReadByte(int Address) {
//------------------------------------------------------
unsigned char Indat;

asm mov dx,LPTCR
asm mov al,NoAktive
asm out dx,al
// outportb(LPTCR,NoAktive);
//порт на запись
asm mov dx,LPTBase
_AX=Address;
//asm mov al,Address
asm out dx,al //в LPTBase Address
// outportb(LPTBase, Address);

asm mov dx,LPTCR
asm mov al,NoAktive
asm or al,SelectIn
asm out dx,al //фронт импульса записи адреса
// outportb(LPTCR,NoAktive | SelectIn);

wait (5);

asm mov dx,LPTCR
asm mov al,NoAktive
asm out dx,al //сброс сигнала записи адреса
// outportb(LPTCR,NoAktive);

wait (3);

asm mov dx,LPTCR
asm mov al,Neitral
asm out dx,al //спад имп.записи.адр.и перевод порта на ввод
// outportb(LPTCR,NoAktive);

asm nop
asm nop
asm nop

asm or al,AutoFeed
asm out dx,al //вывод сигнала CS
// outportb(LPTCR,NoAktive | AutoFeed);

wait (10);

asm mov dx,LPTBase
asm in al,dx //ввод данных из LPTBase в al
Indat = _AL; //передача считанных данных в Indat
// Indat = inportb(LPTBase);

asm mov dx,LPTCR
//asm mov al,NoAktive
//asm out dx,al // outportb(LPTCR,NoAktive);

asm mov al,Neitral
asm out dx,al //подтверждение порта на ввод
// outportb(LPTCR,Neitral);
return Indat; //Indat наружу
}