* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

Дополнительное оборудование для компьютеров REDIM bitin(8) AS INTEGER word = 0 ’выбрать АЦП OUT addout, 5 ’по этому такту начинается преобразование OUT addout, 7 OUT addout, 5 ’получить слово из 8 бит FOR a = 7 TO 0 STEP 1 ’установить тактовый сигнал в лог. 1 OUT addout 7 ’бит доступен по окончании заднего фронта OUT addout, 5 ’получить слово состояния bitin(a) = INP(addin) NEXT a ’отключить АЦП OUT addout, 13 ’переформатировать слово старшими разрядами вперед FOR r, = 7 TO 0 STEP 1 IF btin(r) < 128 THEN word = word + (2 ^ r) NEXT r ’рассчитать напряжение voltage = 50 * word/255 ’печатать величину напряжения в заданном формате IF LEN(lastvoltage) > LEN(STR$(INT(voltage * 100)/ 100)) THEN LOCATE 2 69: PRINT " " voltage = INT(voltage * 100)/100 LOCATE 2, 69 PRINT voltage lastvoltage = voltage ’обновить график GET (3, 60) (600, 168) graph PUT (2, 60), graph, PSET PSET (599, (160 (100 * (voltage/50))) LOOP ’нажатие завершает работу программы ’обнулить параллельный порт OUT addout, 0 END 193 ГЕНЕРАТОР СИГНАЛОВ ДЛЯ ПК Эта схема будет генерировать звуковые сигналы под управлением ПК. Здесь вся хитрость состоит в букве U, точнее – в ее коде ASCII (Американский стандартный код для обмена информацией): шестнадцатеричное значение кода для буквы U рав но 055H, что в двоичном исчислении составит 01010101 (при передаче в формате 8 бит без четности или 7 бит с битом проверки на четность). Протокол RS 232