Магнитные карты и ПК - Гёлль Патрик. Страница 22

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

Принцип синхронизации состоит в том, что через устройство перемещается не одна карта, а две, сложенные «рубашка к рубашке». Одну из них назовем кодируемой, а вторую, более тонкую, — картой синхронизации.

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

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

Рис. 4.9. Получение корты синхронизации с помощью железнодорожного билета

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

Другой способ состоит в кодировании тонкой карты или использованного проездного билета. Для этого можно использовать и самодельную карту, полученную из визитной карточки, приклеив ее к обратной стороне магнитной ленты.

При изготовлении карты синхронизации управлять кодером можно с помощью программы MAKESYNC.PAS, при создании которой для получения требуемой скорости управления записывающей головкой был использован Turbo Pascal.

Если возникли непреодолимые трудности с изготовлением карты синхронизации, процесс записи запускается при помощи простого генератора импульсов, выдающего сигнал TTL-уровней с частотой 500-1000 Гц.

_{program makesync;}

_{uses crt;}

_{var a: integer;}

_begin

_clrscr;

_{writeln ("Вставить карту в считывающее устройство");}

_{writeln ("и перемещать до появления звукового сигнала");}

_{for а:=0 to 10000 do}

_begin,

   _{port[634]:=255;}

   _delay(1);

   _{port(634):=0;}

   _delay(1);

_end;

_{sound(880); delay(500); nosound;}

_end.

_{(* COPYRIGHT 1996 Patrick GUEULLE *)}

Исходному тексту MAKESYNC.PAS соответствует исполняемый файл MAKESYNC.EXE, который можно запускать из командной строки DOS.

Следует обратить внимание, что эта программа была специально написана для подключения кодера к параллельному порту LPT2. Ее надо заменить программой MAKESYNC 1, если возникнет необходимость использовать порт LPT1.

Если необходимо использовать порт LPT1, то предварительно отключается принтер и вместо исполняемого файла MAGWRITE.EXE берется MAGWRITE1.EXE.

Эта программа предназначена строго для кодирования дорожки ISO 2 стандартных карт, следовательно, записывает она с плотностью 75 bpi. Кодирование с плотностью 210 bpi хотя и возможно, но значительно сложнее, а потому рассматриваться не будет.

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

Программа ждет данные, предназначенные для кодирования, в форме файла .CAR, который теоретически мог быть считан с некоторой карты для копирования.

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

Программа CREMAG.BAS выполняет функцию, прямо противоположную функции программы DEC5.BAS в том смысле, что она трансформирует цифровые данные в файл .CAR, готовый к записи и включающий нули запуска и заполнения.

_{10 REM — CREMAG.BAS —}

_{20 KEY OFF: CLS}

_{30 PRINT "Ввести данные, предназначенные для записи,"}

_{40 PRINT "затем нажать ENTER"}

_{50 А$=""}

_{60 INPUT В$}

_{70 IF В$ = "" THEN 100}

_{80 А$=А$+В$}

_{90 GOTO 60}

_{100 C$="0000000000"}

_{110 FOR F=1 ТО LEN(A$)}

_{120 IF MID$(A$,F,1)="0" THEN C$=C$+"00001": GOTO 240}

_{130 IF MID$(A$,F,1)="1" THEN C$=C$+"10000": GOTO 240}

_{140 IF MID$(A$,F,1)="2" THEN C$=C$+"01000": GOTO 240}

_{150 IF MID$(A$,F,1)="3" THEN C$=C$+"11001": GOTO 240}

_{160 IF MID$(A$,F,1)="4" THEN C$=C$+"00100": GOTO 240}

_{170 IF MID$(A$,F,1)="5" THEN C$*C$+"10101": GOTO 240}

_{180 IF MID$(A$,F,1)="6" THEN C$=C$+"01101": GOTO 240}

_{190 IF MID$(A$,F,1)="7" THEN C$=C$+"11100": GOTO 240}

_{200 IF MID$(A$,F,1)="8" THEN C$=C$+"00010": GOTO 240}

_{210 IF MID$(A$,F,1)="9" THEN C$=C$+"10011": GOTO 240}

_{220 IF MID$(A$,F,1)=" {" THEN 370}

_{230 PRINT: PRINT "Данные не действительны (запрещенные СИМВОЛЫ)": ВЕЕР: END}

_{240 NEXT F}

_{250 IF LEN(C$)<=210 THEN 270}

_{260 PRINT: PRINT "Данные слишком длинные (максимум 40 цифровых символов)": END}

_{270 C$="0"+С$}

_{280 IF LEN (C$) =240 THEN 320}

_{290 C$=C$+"0"}

_{300 IF LEN(C$)=240 THEN 320}

_{310 GOTO 270}

_{320 OPEN "carte.car" FOR OUTPUT AS #1}

_{330 FOR F=1 TO LEN(C$)}

_{340 PRINT#1,MID$(C$,F,1)+CHR$(32);}

_{350 NEXT F}

_{360 CLS: PRINT: PRINT "Файл CARTE.CAR готов": BEEP: END}

_{500 IF MID$(A$,F,1)<>T THEN 230}

_{510 GOTO 240}

_{520 REM (c)1996 Patrick GUEULLE}