Российский производитель и разработчик сертифицированного измерительного оборудования с 1987 года


TTL на L305

Вы не вошли.

 Поиск | Регистрация | Вход 

Novikov Andrey V.
31.08.2004 14:20:52
#1

Гость

TTL на L305

По причинам не связаным с вашей платой приходится работать с Borland Pascal 7.0

Почему-то не работает след. процедура:

procedure TTL_out(wTTL:WORD);
begin
  SendCommand(TtlOutCmd); {TtlOutCmd=7}
  SendData(WTTL and $0F);
end;

Тест процедур SendCommand и SendData я брал из описания к карте L1230 (там же я взял и процедуру TTL_out)


Как должна выглядеть процедура для этой платы?

Константин
01.09.2004 05:35:41
#2

Гость

Re: TTL на L305

для L305 надо просто читать порт по адресу base+4 для чтения ттл входов и писать в него для установки

INPBYTE_305 PROC C FAR
    mov    dx, cs:DigitOut     
    in    ax, dx           
        mov    ah, 0
    ret
ENDP

OUTBYTE_305 PROC C FAR CodeVal : WORD
    mov    dx, cs:DigitOut       
    mov    ax, CodeVal       
    out    dx, ax           
    ret
ENDP

Novikov Andrey V.
02.09.2004 15:00:41
#3

Гость

Re: TTL на L305

О! Спасибо большое! все заработало!

А может вы мне заодно подскажите, как заставаить работать ЦАП на L-1230? Штатные процедуры и команды не помогают. Я уже несколько раз поднимал здесь этот вопрос, но никто ничего толком так и не сказал.

Константин
03.09.2004 05:49:08
#4

Гость

Re: TTL на L305

Если штатные функции (SET_DA_NUMBER и OUTDA из  ассемблерного драйвера lbiosdrv.asm) не помогают, то возможно, что на вашей плате ЦАП отсутствует физически.
Сам я с 1230 не работал, но остальные платы выпускаются Л-КАРДОМ в версиях с установленным ЦАП и без оного...