FREAKS - a call for free long distance via modem.

<b>FREAKS</b> - a call for free long distance via modem.

_


         ZX-phreakers on_line!
_

VTS'99


    Here I was persuaded to talk about Maxx
one prog, can someone come in handy;)

    Generally, under my XAS'om everything looks cool'ney 
(colored, for example), and immediately ready for use cursor

stands on the string of number, edited, assembled, run ...

    Ah, yes, you are not yet aware of what
I upload it here. And I'll load about
free long-distance;), described as a
long ago in St. Petersburg newspaper ZX-News # 22.

    We got our means XTR-modems and
we decided Kulnev drag, so free then connect with Peter, because
numbers around 50 ... 100rub not have rulez.

    Of course, we fiddled a lot, but
finally figured out that the new ATC
is sAks and mazday, and old (eg
55'aya have Chip'a) molecules End rulez. But
after that, we, as conscious and understand the problems of the 
domestic industry Citizens do not become overloaded intercity 
traffic and calls are very rare, only when absolutely necessary 
(and nefig look for trouble). 

    And recently left without Chip
Scorpio and it looks like without momeda. And he yuzaet
Now masdayny petse. And I had to
drag him his fee of Kai ...


    Here's a bend in this history.


    And now help four easy using.
Somewhere down there is a string under the label
TLFNUM. Writing given by the model
the desired number, Assemblée and run. Border off for 2 
seconds, then turns white is number is dialed, Then again, 
black - the number dialed, but the modem keeps the line. Now 
lift pipe phone and we press SPACE, so that the modem is 
disconnected. 

    By the way, nothing criminal, but
question for (?) in the prog no;) -
is a simple dialer modem.
Code # 3F (?) Corresponds to 15 pulses ...
The rest is described in the ZX-News. Who does not
read, see example thong bottom.


ORG # 8000
EI

XOR A; black border
OUT (# FE), A

LD A, # FF; took the line
OUT (# B7), A

CALL WAIT60; wait a few seconds
CALL WAIT60; (such as necessary)
CALL WAIT60

LD A, 7; white border -
OUT (# FE), A; dial the number

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

CP "P"; Latin "P"
JR Z, LPPAUZ; (pauz 0.6sec)

SUB 48, which is zero
JR NZ, NZNLOP
ADD A, 10

NZNLOP
LD B, A
CALL MAINLP; set of numbers
LPPAUZ CALL WAIT60; mezhtsiferny pauz
INC HL
POP BC
DJNZ LOOP

XOR A; black border -
OUT (# FE), A; number dialed

SPACE LD A, # 7F; waiting SPACE
IN A, (# FE)
BIT 0, A
JR NZ, SPACE

LD A, # F0; releasing
OUT (# B7), A; line

RET

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

;--------------------------------------
; USERS MANUAL
; EQU 0 ... 9 0 ... 9 (0 EQU 10 pulses)
; P EQU 0.6sec PAUZ
;? (# 3F) EQU 15 pulses ;-)))
;--------------------------------------
MAINLP
LD A, # F0; break the line
OUT (# B7), A
CALL WAIT6; 60 ms

LD A, # FF; again takes
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'ov
W6L0 HALT
DJNZ W6L0
POP BC
RET


Maxx> lastly, I want to add that Sia
"Thing", as Victor has said works not at all exchanges, so that 
before sit down to ring round all their relatives and

close advise for beginning to call someone who lives not three 
nine lands, and "closer", remember the number, time and date, 
wait until the end of the month to get "Printout", and in the 
absence of account of himself to call pozdravtit

Happy Holidays:). But in the case when
you did not work - you are not in
America called, and hence the expense would not
more than 3-5 now. - Consider what you lost. But, dammit, it 
was worth it try, and in fact what he is not kidding ...

 Since the President inserted a number of source
my phone, immediately warn that
minute call from me to Peter is
5.70 rub. And I have is Caller ID, which
immediately "remove" the phone ... Yes I am
telling you - no small podiitzhe.