_ 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 руб., а у меня стоит АОН, который сразу же "снимает" трубку... Да что я вам рассказываю - не маленькие подиитже.