Системные часы компьютера

В компьютере имеются системные часы с автономным питанием от дисковой батарейки напряжением 3В. Задающий генератор вырабатывает частоту 18.2 Гц. В качестве счетчика используются четыре 8–разрядные ячейки 46F, 46E, 46D, 46C (Рис.15), которые доступны программисту.

Рис.15

Младшая ячейка 46С обнуляется через 256/18,2 = 14,065 сек. Сигнал передается в ячейку 46D, которая в свою очередь переполнится через 256 х 14,065 = 3600,64 (один час). В ячейки 46E и 46F записываюся сутки, дни, месяцы и годы. Точность счета системных часов составляет 1/18,2 = 0,05 сек.

Программно можно прочитать общее время в секундах системных часов:

10 cls

20 def seg=0

30 a=peek (&h46c) обнуляются через 14 сек.

40 b=peek (&h46d) обнуляется через один час

50 с=peek (&h46e) обнуляется через 256 часов

60 d=peek (&h46f)

70 e=(a+256*b+256*256*c+256*256*256*d)/18,2–общее время в секундах

Оператор e=timer проводит запись в переменную E общее время в секундах.

Игровой порт.

201h – адрес игрового порта. Он доступен по входу и выходу Рис.16. Четыре младших разряда входного порта выполнены по МОП технологии и являются инверсными. К ним подключены конденсаторы емкостью 500 пф и резисторы 500 кОм для позиционирования координат на экране монитора.

Рис.16

Программа опроса порта:

10 out &h201, 0 обнуление по всем битам

20 a=inp (&h201)

30 print a напечатает число 255

Программа оценки числа циклов, необходимых для зарядки конденсатора

10 out &h201,0 разрядка конденсатора

20 for a=0 to 500 начало зарядки конденсатора

30 b=inp (&h201)

40 if b=253 then goto 60 если зарядился конденсатор (D1)

50 next a

60 print a

70 goto 10

Программа для измерения времени зарядки конденсатора

10 out &h 201, 0 разрядка конденсатора

15 to = timer t0 начальное время зарядки конденсатора

20. for a=0 to 20000

30. b=inp (&h2d) опрос порта

40. if b=253 then goto 60 если конденсатор зарядился идти на 60

50. next a

60. t1=timer t1 время окончания зарядки конденсатора

80. print t1–t0 печатать время зарядки конденсатора

Со встроенным конден