_
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.
