KrNews #08 05 марта 1999

Программирование

FREAKS - как звонить бесплатно по межгороду через модем.

_

         ZX-phreakers on_line !
_

VTS'99

    Тут меня Maxx уговорил рассказать об
одной проге, может кому пригодиться ;)
    Вообще, у меня под XAS'ом все выгля-
дит  cool'ней  (раскрашено, например), и
сразу  готово  к  употреблению -курсор
стоит на стринге с номером, отредактиро-
вал, ассемблировал, run...
    Ах,  да,  вы  ж еще не в курсе, чего
это я тут загружаю. А загружаю я вас про
бесплатный межгород ;), описанный как-то
давно в питерской газете ZX-News #22.
    Появилися  у нас значит XTR-модемы и
решили мы кульно протащиться, дабы с Пи-
тером  нахаляву коннектиться, потому как
цифры порядка 50...100руб не есть рулез.
    Конечно,  немало мы повозились, но в
конце  концов  выяснили,  что  новые АТС
есть сAкс  и маздай, а старые  (например
55'ая  у  Chip'а) -кул энд рулез. Но и
после  этого, мы, как сознательные и по-
нимающие  проблемы отечественной отрасли
граждане,  не стали перегружать междуго-
родный  траффик  и  звоним  очень редко,
лишь  при острой необходимости (да и не-
фиг лезть на рожон).
    А  в последнее время остался Чип без
Скорпа и, похоже, без момеда. А юзает он
сейчас масдайный пэцэ. И приходиться мне
тащить к нему свою плату кая...

    Вот такая у сей проги history.

    А теперь help 4 easy using.
Где-то  там внизу есть стринг под меткой
TLFNUM.  Пишете  по приведенному образцу
необходимый номер, ассемблите и запуска-
ете.  Бордюр гаснет на 2 сек, потом ста-
новиться  белым -это набирается номер,
потом снова черный - номер набран, одна-
ко  модем держит линию. Теперь поднимаем
трубу  телефона и давим SPACE, чтобы мо-
дем отключился.
    Кстати,  ничего криминального, кроме
вопросика  (?)  в данной проге нету ;) -
это  простой  набиратель номера модемом.
Код #3F(?) соответствует 15 импульсам...
Остальное  уже описано в ZX-News. Кто не
читал, смотрите пример стринга внизу.


ORG     #8000
EI

XOR     A      ;черный border
OUT     (#FE),A

LD      A,#FF  ;заняли линию
OUT     (#B7),A

CALL    WAIT60 ;ждем пару секунд
CALL    WAIT60 ;(вроде так надо)
CALL    WAIT60

LD      A,7     ;белый бордюр -
OUT     (#FE),A ;набираем номер

LD      HL,TLFNUM
LD      BC,TLFNUME-TLFNUM
LOOP    PUSH    BC
LD      A,(HL)

CP      "P"      ;латинское "P"
JR      Z,LPPAUZ ;(pauz 0.6sec)

SUB     48       ;а это нуль
JR      NZ,NZNLOP
ADD     A,10

NZNLOP
LD      B,A
CALL    MAINLP ;набор цифры
LPPAUZ  CALL    WAIT60 ;межциферный pauz
INC     HL
POP     BC
DJNZ    LOOP

XOR     A       ;черный border -
OUT     (#FE),A ;номер набран

SPACE   LD      A,#7F   ;ждем SPACE
IN      A,(#FE)
BIT     0,A
JR      NZ,SPACE

LD      A,#F0   ;отпускаем
OUT     (#B7),A ;линию

RET

;---------------------------------------
TLFNUM  DEFM    "8PPP?86162P53809"
TLFNUME     ;   ... hello, Maxx ;-)
;---------------------------------------

;USERS MANUAL
;0...9   EQU 0...9 ( 0 EQU 10 pulses )
;P       EQU 0.6sec PAUZ
;?(#3F)  EQU 15 pulses ;-)))
;---------------------------------------

MAINLP
LD      A,#F0   ;разрываем линию
OUT     (#B7),A
CALL    WAIT6   ;60 ms

LD      A,#FF   ;снова занимаем
OUT     (#B7),A
CALL    WAIT4   ;40 ms

DJNZ    MAINLP
RET

WAIT6   PUSH    BC      ;60 ms
LD      B,3     ;3 int'a
W6L     HALT
DJNZ    W6L
POP     BC
RET

WAIT4   PUSH    BC      ;40 ms
LD      B,2     ;2 int'a
W4L     HALT
DJNZ    W4L
POP     BC
RET

WAIT60  PUSH    BC      ;0.6 sec
LD      B,30    ;30 int'ов
W6L0    HALT
DJNZ    W6L0
POP     BC
RET


Maxx>  На последок хочу добавить что сия
"вещь", как Виктор уже сказал срабатыва-
ет не на всех АТС, так что перед тем как
сесть  обзванивать  всех  своих родных и
близких советую для начала позвонить ко-
му-нибудь  живущему не за три девять зе-
мель, а "поближе", запомнить номер,время
и дату, дождаться конца месяца, получить
"распечатку"  и  в  случае  отсутствия в
счете  того  звонка  поздравтить  себя с
ПРАЗДНИКОМ :).  Ну  а  в  случае когда у
вас  ничего  не  получилось - Вы ж  не в
Америку  звонили, а значит счет будет не
более  3-5 руб. - считайте что вы проиг-
рали. Зато, черт побери, оно того стоило
попробовать, а ведь чем он не шутит...
 Так как в исходник Виктор вставил номер
моего телефона,  сразу  предупреждаю что
минута разговора от меня до Питера стоит
5.70 руб.,  а у меня  стоит АОН, который
сразу же  "снимает"  трубку...  Да что я
вам рассказываю - не маленькие подиитже.