Как записать команду на паскале в Port[$60]или[$61]???

[Colobok]

Ребята, не знаю, может была такае тема на форуме..если что, направьте меня.

Задача в том, чтобы включить светодиод на клавиатуре. Для этого необходимо в порт записать команду, которая состоит из двух байтов: первый - код команды 0Dh, формат второго байта опеределяется

биты
0-1 включить светодиод ScrollLock
1-1 ---------------------NumLock
2-1----------------------CapsLOck
3-7 - не используются.

Я не понимаю как должна выглядеть команда на паскале. Помогите пожалуйста.

[raxp]

...надеюсь под DOS-ом? А то под NT и выше через драйвер giveio можно

Очень просто:

 base:= $60; 
 port[base]:= $ed;
 delay(50);

 // $00- погасить все
 // $01- ScrollLock
 // $02- CapsLock
 // $04- NumLock
 // $07- зажечь все
 port[base]:= $02;

[Colobok]

Простите, а base должна быть типа byte? я запустил, но светодиод не згорелся. У меня стоит семерка, код ввожу в School Pack.

[BDA]

надеюсь под DOS-ом?

У меня стоит семерка

UPD

есть DosBox. Это ни как не поможет?

По-моему, никак. Запустил под досбоксом программу - она "не смогла" переключить capslock.
Досбокс всего лишь эмулятор.
Немного информации о giveio - http://www.kernelchip.ru/pcports/PS003.php

[Colobok]

В этом Packe есть DosBox. Это ни как не поможет?

[Colobok]

простите за неграммотность...разъясните пожалуйста.

[Colobok]

Большое спасибо Вам)

[s-andriano]

Способ управления периферийными устройствами зависит от ОС.
Тот способ, о котором Вы пишете, подходит для DOS, Win95 и Win98.
Для Win NT, Win 2000 и выше он непригоден.

[Colobok]

Сообщение от s-andriano

Способ управления периферийными устройствами зависит от ОС.
Тот способ, о котором Вы пишете, подходит для DOS, Win95 и Win98.
Для Win NT, Win 2000 и выше он непригоден.

Большое спасибо. Задача эта для лабораторной работы по архитектуре. Методички довльно таки старые.