Выбрать главу

130 V=VAL(MID$(A$,F,1))

140 C$=C$+CHR$ (V)

150 NEXT F

160 L=0

170 FOR F=1 TO LEN(C$)

180 L=L XOR ASC(MID$(C$,F, 1))

190 NEXT F

200 PRINT "LRC ="

210 IF L=11 THEN PRINT "{start}": GOTO 280

220 IF L=13 THEN PRINT "{sep)": GOTO 280

230 IF L=15 THEN PRINT "{end}": GOTO 280

240 IF L=10 THEN PRINT "{10}": GOTO 280

250 IF L=12 THEN PRINT "{12}": GOTO 280

260 IF L=14 THEN PRINT "{14}": GOTO 280

270 PRINT L

280 END

300 F=F+1

310 IP MID$(A$,F,1) = "1" THEN 340

320 IF MID$(A$,F,1) = "s" THEN 390

330 IF MID$(A$,F,1)="e" THEN C$=C$+CHR$ (15): F=F+3: GOTO 430

340 F=F+1

350 IF MID$(A$,F, 1) = "0" THEN C$=C$+CHR$(10): F=F+1: GOTO 430

360 IF MID$(A$,F,1) = "2" THEN C$=C$+CHR$(12): F=F+1: GOTO 430

370 IF MID$(A$,F,1) = "4" THEN C$=C$+CHR$(14): F=F+1: GOTO 430

380 GOTO 130

390 F=F+1

400 IF HID$(A$,F,1) = "t" THEN C$=C$+CHR$ (11): F=F+4: GOTO 430

410 IF MID$ (A$,F, 1) ="e" THEN C$=C$+CHR$ (13): F=F+2: GOTO 430

420 CLS: PRINT "Ошибка!": BEEP: END

430 IF MID$(A$,F, 1)<>")" THEN 420

440 GOTO 150

450 REM (c)1996 Patrick GUEULLE

После двойного нажатия на клавишу ENTER программа выдает символ, который надо вставить за флажком end во время ввода данных в программе кодирования CREMAG.

СТИРАНИЕ МАГНИТНЫХ КАРТ

Как и все магнитные носители, карты могут стираться практически неограниченное число раз. Самый простой способ стереть карту — произвести новую запись, которая затрет предыдущие данные.

Однако общее стирание рекомендуется делать в любом случае, поскольку из-за несоответствия стандартам, например минимального несоответствия высоты воздушного зазора или небольшого смещения положения записывающей головки, существует опасность того, что часть старых данных не перекроется новыми.

При этом возможна ситуация, когда карта будет нормально считываться на одних считывающих устройствах и неправильно — на других. Может также возникнуть необходимость убрать некоторые данные, относящиеся к разряду конфиденциальных, например расположенных на дорожках ISO 1 и ISO 3, карты, которая используется повторно и запись на которую будет вестись только на дорожке ISO 2.

Наиболее надежно стирается вся информация с дорожек карты при помощи простого постоянного магнита. По крайней мере, это относится к картам с низкой коэрцитивностью (LoCo). Только очень мощные магниты (например, от громкоговорителей) могут претендовать на эффективное стирание дорожек HiCo на 2750 Э и тем более на 4000 Э.

Оптимальный порядок действий состоит в том, чтобы положить карту на стальной лист (автор данной книги воспользовался корпусом блока питания для кодера) и к нему через карту приставить мощный магнит.

Необходимо один или несколько раз провести магнитом вдоль всей магнитной полосы, но так, чтобы он проходил по всем дорожкам. Если вы боитесь, что магнит может поцарапать карту, то из предосторожности на нее следует положить лист бумаги.

Естественно, проверка с помощью «магнитного разоблачителя» позволит лучше, чем попытка повторного считывания, убедиться в эффективности проведенной операции. Для более специфических случаев, скажем стирания единственной дорожки, можно построить стирающее устройство, которое будет очень похоже на кодер: головка будет питаться постоянным током, полярность которого значения не имеет. В случае головок с сопротивлением 300–500 Ом прямое подключение к напряжению 5-12 В будет достаточным.

5. Приложения

ПОРТЫ ВВОДА-ВЫВОДА IBM РС-СОВМЕСТИМЫХ КОМПЬЮТЕРОВ

Описываемые программы были созданы так, чтобы они могли работать со считывающими устройствами и кодерами, подключенными к свободным портам ввода-вывода любого IBM PC-совместимого ПК.

Допустимо расширить состав портов ввода-вывода компьютера за счет установки дополнительной мультикарты в свободный слот. Таким образом можно добавить параллельный порт LPT2 к существующему LPT1, традиционно зарезервированному для принтера, или снабдить компьютер разъемом для подключения джойстика. Чтобы избежать конфликта адресов и прерываний с уже имеющимися портами, следует сконфигурировать переключатели карты с помощью прилагаемого описания. Если конфликты все же возникают, для их устранения потребуется использование диагностической утилиты MSD, которая позволит точно определить причину конфликтной ситуации и укажет, как исправить положение.

Возможно, некоторые читатели захотят пойти дальше по предложенному пути, например снабдить кодер оптическим датчиком или воспользоваться усилителем считывания, приведенным на рис. 3.15, в качестве детектора присутствия карты. Кое-кто попытается при наличии достаточно быстродействующего ПК построить двухдорожечное считывающее устройство или кодер, работающий с плотностью 210 bpi. В любом случае необходимо хорошее знание технических и программных характеристик используемых портов ввода-вывода.

В данном приложении мы собрали воедино информацию, касающуюся портов, которая часто «разбросана» по документации и, следовательно, труднодоступна. Такая информация поможет тем из наших читателей, кто захочет полностью разобраться в исходных текстах представленных программ.

На самом деле нам нечего скрывать, хотя надо напомнить, что программы и схемы, которыми читатели управляют, должны применяться исключительно в личных или экспериментальных целях. Любое использование программ в профессиональных или коммерческих целях в соответствии с законом требует согласия со стороны автора.

Несколько замаскированных «реперных точек» всегда позволят выявить возможные копии наших программ.

Порт джойстика

Данный разъем, предназначенный для игровой приставки, представлен на рис. 5.1. Он имеет 15 контактов, среди которых четыре входа логических сигналов (для подключения кнопок), четыре аналоговых входа (для потенциометров) и четыре линии питания +5 В.

Рис. 5.1. Назначение контактов разъема джойстика

Опрос этих восьми входов производится простым считыванием порта 201h (или 513 в десятичной системе), назначение его восьми разрядов представлено на рис. 5.2.

Рис. 5.2. Назначение разрядов порта 513

Аналоговые входы, взаимодействие с которыми осуществляется в соответствии с достаточно сложной процедурой, нам не пригодятся, поэтому клетки, соответствующие разрядам Ь0 — Ь3, зачеркнуты.