Moderator: Shaos
Да вот и нам как-то твой паскаль без надобности... хотя - спасибо за исходники,HardWareMan wrote:Мне? Нет. Я предпочитаю настоящее ИРЛ.Lavr wrote:А тебе типа того - не нужно? Типа, - вы в паскале тут поковыряйтесь, что я в децтве написал?
Значит что я конкретно по проекту сейчас предполагаю: вот такие конструкцииaav8 wrote:И VSM.HPP тип для времени определен как _int64 ...Получается довольно забавная вещь - у нам ВСЕ устройства в одном проекте синхронизируются
от одного источника - это минимальный интервал - 1 пикосекунда!
Code: Select all
Pin1->setstate(time, 1, SLO);
Pin2->setstate(time, 1, SHI);
Pin3->setstate(time, 1, SLO);
Pin4->setstate(time, 1, SHI);Code: Select all
VOID FFDEVICE::simulate (ABSTIME time, DSIMMODES mode)
{
//--- заставим нашу модель читать состояние её входных линий (istate()),
//--- и отображать реакцию на него в симуляции:
Pin3->setstate(time, 1, Pin1->istate());
Pin4->setstate(time, 1, Pin2->istate());
//--- мы читаем значения состояния входов Pin1 и Pin2, и через 1 "тик" часов
//---(1 пикосекунда) относительно текущего времени (time) мы устанавливаем
//--- это же состояние на соответствующих выходах Pin3 и Pin4.
//--- в действительности таких быстрых устройства просто нет, так, что необходимо
//--- назначать большие значения задержек. Ещё лучшее, если величины задержек
//--- назначаются через константу. И ещё лучше, если они передаются в программу
//--- как параметры модели.
}Code: Select all
ckt->setcallback(100000000, this, 0x25);
//--- для этого назначим, что через 1 секунду (время, измеряется в пикосекундах)
//--- после того, как прозойдёт пуск будет вызвана функция возврата (callback)
//--- с кодом события (event) 0x25.
//--- реакцию на событие с кодом 0x25 добавим в FFDEVICE::callback (time, eventid)
//--- в виде: if (eventid == 0x25){ ... };
VOID FFDEVICE::callback (ABSTIME time, EVENTID eventid)
{
if(eventid == 0x25)
{
if(ishigh(Pin3->istate()))
{
Pin3->setstate(time, 1, SLO);
Pin4->setstate(time, 1, SHI);
}
else
{
Pin3->setstate(time, 1, SHI);
Pin4->setstate(time, 1, SLO);
//----- если наш случай вызван, мы изменяем состояние выхода на противоположное,
//----- и запускаем таймер снова на 1 секунду, после чего снова будет вызвана
//----- функция возврата (callback).
}
ckt->setcallback(time + 100000000, this, 0x25);
}
Я примерно так сделал:Значит что я конкретно по проекту сейчас предполагаю: вот такие конструкции
для выводов сделать индексными
Code: Select all
// Выводы
IDSIMPIN* pinCLK; // тактирование
IDSIMPIN* pinData[8]; // данные
IDSIMPIN* pinAddr[16]; // адреса
IDSIMPIN* pinReset; // сброс
IDSIMPIN* pinM1; // M1
IDSIMPIN* pinBusRq; // BusREQ
Code: Select all
{ // *** Подключение к выводам ... ********************************
pinCLK=instance->getdsimpin("CLK",true); // тактирование
char s[100];
int i;
for(i=0;i<8;i++) { // ******************* связать с данными ... *
wsprintf(s,"D%lu",i);
pinData[i] = instance->getdsimpin(s,true);
} // *********************************** ... связать с данными *
for(i=0;i<16;i++) { // ***************** связать с адресами ... *
wsprintf(s,"A%lu",i);
pinAddr[i] = instance->getdsimpin(s,true);
} // ********************************** ... связать с адресами *
pinReset=instance->getdsimpin("$RESET$",true); // Reset
pinM1 =instance->getdsimpin("$M1$", true); // M1
pinBusRq=instance->getdsimpin("$BUSRQ$",true); // BUSQ
} // *** ... Подключение к выводам ********************************
Code: Select all
int i;
unsigned short v=Addr;
for(i=0;i<16;i++) {
if(v & 1) pinAddr[i]->setstate(time,0,SHI);
else pinAddr[i]->setstate(time,0,SLO);
v=v>>1; // след. бит
}
Я думаю достаточно будет привязаться просто к CLK или внутреннему генератору модели - все равно внутри все происходит синхронно.Реагировать на все события согласно точным временным интервалам примерно вот так:
Code:
ckt->setcallback(100000000, this, 0x25);
Приятно, что похоже мыслим в одном направлении...aav8 wrote:Я примерно так сделал:Code: Select all
int i; unsigned short v=Addr; for(i=0;i<16;i++) { if(v & 1) pinAddr[i]->setstate(time,0,SHI); else pinAddr[i]->setstate(time,0,SLO); v=v>>1; // след. бит }
Я думал вот так: получив вызов изменения значения на выводе - мы смотрим,aav8 wrote:Я думаю достаточно будет привязаться просто к CLK или внутреннемуLavr wrote:Реагировать на все события согласно точным временным интервалам...
генератору модели - все равно внутри все происходит синхронно.
Code: Select all
ckt->setcallback(TimeDelay, this, 0x25); Подумаю... с разбегу не осознал плюсы и минусы...aav8 wrote:В самом процессоре есть таблица 256*20. В таблице хранятся
адреса функций для каждой команды и каждого такта.
А проц. чисто тупо перебирает эту таблицу, и вызывает
функции, обеспечивающие каждый такт.
Плюсы такого подхода:
- все наглядно
- при необходимости все это легко подправить/изменить.
- если таблицу сделать трехмерной, модель будет поддерживать и
все остальные подобные процессоры (i8080,8085 ...)
Минусы:
- большой объем и много писанины ~20кБ на проц.
- не совсем точная модель - события привязаны к тикам, хотя
для дерганья ножками можно указать задержку.
Кинь ссылочку... я Z80 CPU - так и не нашел пока...aav8 wrote:УРА! - нашел User Manual на Z80 family
Только в понедельник - все там...Кинь ссылочку... я Z80 CPU - так и не нашел пока...
Я думаю с этим никаких проблем не встанетЕсли делаем Z80, - будем реализовывать регенерацию ОЗУ по адресной шине?
У нас цифровая модель - поэтому можно подавать любоеЕсли делаем i8080, - как будем учитывать, что C1 и C2 амплитудой 12В ?
А также, что у процессора три питания?
Не совсем понятно.я пока ничего не нашел по передаче параметров в модель из текстового скрипта...
Тебе попалось что-нибуть в VSM SDK на этот повод?
И 3-х байтовые - тоже есть...aav8 wrote:Начал вписывать в таблицу кое-какие команды - и столкнулся
с проблемой - что у Z80 есть 2-х байтовые команды...
Сразу после выдачи адреса на шину...aav8 wrote:Теперь у меня вопросы/ответы:
В какой момент увеличивать/увеличивается счетчк косанд?
Это точно написано в мануале, для z80 - я просто не помню...aav8 wrote:Проверка прерываний происходит тамже или где-то
в последнем такте команды?
Асинхронное, но через регистры привязывают к Ф2, а вот когда точно проверяют -aav8 wrote:Захват шины (ПДП) - явление синхронное или несинхронное?
- наверное синхронное, но возможно в любом цикле или такте.
А как ты будешь убеждаться, что они правильно работают?aav8 wrote:Чиркните несколько строчек кода на ассеблере
для i8080 которым можно будет протестировать хотя-бы
часть команд.
Code: Select all
NOP
LXI B,0000H
STAX B
INX B
INR B
DCR B
MVI B,00H
RLC
NOP
DAD B
LDAX B
DCX B
INR C
DCR C
MVI C,00H
RRC
NOP
LXI D,0000H
STAX D
INX D
INR D
DCR D
MVI D,00H
RAL
NOP
DAD D
LDAX D
DCX D
INR E
DCR E
MVI E,00H
RAR
NOP
LXI H,0000H
SHLD 0000H
INX H
INR H
DCR H
MVI H,00H
DAA
NOP
DAD H
LHLD 0000H
DCX H
INR L
DCR L
MVI L,00H
CMA
NOP
LXI SP,0000H
STA 0000H
INX SP
INR M
DCR M
MVI M,00H
STC
NOP
DAD SP
LDA 0000H
DCX SP
INR A
DCR A
MVI A,00H
CMC
MOV B,B
MOV B,C
MOV B,D
MOV B,E
MOV B,H
MOV B,L
MOV B,M
MOV B,A
MOV C,B
MOV C,C
MOV C,D
MOV C,E
MOV C,H
MOV C,L
MOV C,M
MOV C,A
MOV D,B
MOV D,C
MOV D,D
MOV D,E
MOV D,H
MOV D,L
MOV D,M
MOV D,A
MOV E,B
MOV E,C
MOV E,D
MOV E,E
MOV E,H
MOV E,L
MOV E,M
MOV E,A
MOV H,B
MOV H,C
MOV H,D
MOV H,E
MOV H,H
MOV H,L
MOV H,M
MOV H,A
MOV L,B
MOV L,C
MOV L,D
MOV L,E
MOV L,H
MOV L,L
MOV L,M
MOV L,A
MOV M,B
MOV M,C
MOV M,D
MOV M,E
MOV M,H
MOV M,L
HLT
MOV M,A
MOV A,B
MOV A,C
MOV A,D
MOV A,E
MOV A,H
MOV A,L
MOV A,M
MOV A,A
ADD B
ADD C
ADD D
ADD E
ADD H
ADD L
ADD M
ADD A
ADC B
ADC C
ADC D
ADC E
ADC H
ADC L
ADC M
ADC A
SUB B
SUB C
SUB D
SUB E
SUB H
SUB L
SUB M
SUB A
SBB B
SBB C
SBB D
SBB E
SBB H
SBB L
SBB M
SBB A
ANA B
ANA C
ANA D
ANA E
ANA H
ANA L
ANA M
ANA A
XRA B
XRA C
XRA D
XRA E
XRA H
XRA L
XRA M
XRA A
ORA B
ORA C
ORA D
ORA E
ORA H
ORA L
ORA M
ORA A
CMP B
CMP C
CMP D
CMP E
CMP H
CMP L
CMP M
CMP A
RNZ
POP B
JNZ 0000H
JMP 0000H
CNZ 0000H
PUSH B
ADI 00H
RST 0
RZ
RET
JZ 0000H
JMP 0EE11H
CZ 0000H
CALL 0AA55H
ACI 00H
RST 1
RNC
POP D
JNC 0000H
OUT 00H
CNC 0000H
PUSH D
SUI 00H
RST 2
RC
RET
JC 0000H
IN 00H
CC 0000H
CALL 0BB44H
SBI 00H
RST 3
RPO
POP H
JPO 0000H
XTHL
CPO 0000H
PUSH H
ANI 00H
RST 4
RPE
PCHL
JPE 0000H
XCHG
CPE 0000H
CALL 0CC33H
XRI 00H
RST 5
RP
POP PSW
JP 0000H
DI
CP 0000H
PUSH PSW
ORI 00H
RST 6
RM
SPHL
JM 0000H
EI
CM 0000H
CALL 0DD22H
CPI 00H
RST 7
Может я тебе закину куда-нибуть дистрибутив VC++ 5.0?aav8 wrote:Показать к сожалению не могу - все осталось на работе - иногда
удается позанимать этой штукой.
Это уже интересней...И 3-х байтовые - тоже есть...
ПодойдетВ принципе - могу выложить asm-программу, где есть все команды i8080
Пока не знаю. Надо реализовать все команды хотя-бы i8080А как ты будешь убеждаться, что они правильно работают?
Я тебе под "все команды i8080" приготовил достойный корпусок!aav8 wrote:Надо реализовать все команды хотя-бы i8080
а потом попробовать напустить на все это дело тест, про который
говорилось в соседней теме.
но проверял довольно тщательно... Ага - это хорошо! Кстати, я так подгадал там в начале топика - твой пост второй,aav8 wrote:Lavr - для статьи про создание моделей в Proteus -
я нарисовал несколько классов в C++ для дерганья пинами.
В стиле pinX=true; pinY=false; Я думаю они пригодятся.
И в этом-же стиле для чтения состояния.
Есть аналогичное для 8 и 16 - бит шин.
Но к сожалению выложить это смогу только в понедельник.
Круто - и очень здорово.Я тебе под "все команды i8080" приготовил достойный корпусок!
У меня DLL называется x80.DLL - в том смысле, что должна подойтиФайл динамической библиотеки - по умолчанию там: K580BM80.DLL
