Межгород безплатно
ZXNet echo conference «zx.spectrum»
¥ €€€€€€€€€€€€€€€€€€€€
÷إجةثدؤصغخد ئدز×ءزؤخصج Roman Khroupnin (2:5015/64.3)
éع ـبة RU.HACKER (RU.HACKER)
÷ دزةاةخءجإ دش Maxim Polyanskiy, 2:5020/887.12@Fidonet
لؤزإسد×ءخد آظجد Sergey Sokolov
ًزد يإضادزدؤ آإعذجءشخد
« €€€€€€€€€€€€€€€€€€€€
éشءث, ئدز×ءزؤہ!
¥ €€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€ ¨
Hello, Sergey!
َpؤ وإ× 25 1998, Sergey Sokolov ذةسءج ث Maxim Gilyaev ذد ذد×دؤص "يإضادزدؤ
آإعذجءشخد."
MG>>> هسجة خإ شpصؤخد ذpةغجة!(ة إسجة حدضخد دآكرسخة)
MG>>> ëداؤء شد, ×د ×pإحإخء سذإثشpصحء, ر خءذةسءج ذpداpءحثص ثدشدpءر
MG>>> دآحءخظ×ءإش قصضةإ لïHظ (حدضخد عءسظجءشط جہآدت خدحإp)-ش×دت سذدسدآ
MG>>> ءخءجداةقإخ?
SS> ٌ ثدخإقخد ةع×ةخرہسط قشد ×جءضص, خد ×سإشءثة خإ حدضإغط جة شظ حخإ خءحظجةشط
SS> ـشص ذزداص (ةسبدؤخةث ضإجءشإجطخد).
اظ ;) Hء Pc زإغةج ذإزإجدضةشط? éجة سذإثشزصح خء ذدجثإ إسشط? َزءعص سثءضص -
× ـحصجرشدزإ خإ عءزءآدشءش!
;ذزدازءححء ئدزحةزد×ءخةر آإعةخشإز×ءجطخداد ذءثإشء خء سذإثشزصحإ (AY8910/12)
;
;ُذزء×جإخةإ PSG AY-8910
;
;#BFFD WRITE REG DATA
;#FFFD WRITE REG ADR READ REG DATA
;ٍءسفإش قةسجء قءسشدشظ شدخء ؤجر PSG. Fnum=Ft/(16*Fccit)
;Ft × ءشح= 1 789 750 × ًزدئة=2 000 000
;--------=====ٍإاةسشزظ PSG======--------------
;R0,R1 قءسشدشء شدخء ثءخءجء A (12 آةش)
;R2,R3 قءسشدشء شدخء ثءخءجء B (12 آةش)
;R4,R5 قءسشدشء شدخء ثءخءجء C (12 آةش)
;R6 5 حجءؤغةب آةش-قءسشدشء غصحء
;R7 11CBACBA
; çççççٍََ 1-عءذزإش اإخإزءأةة قءسشدشظ شدخء ؤجر ثءخءجد×
; ççٍََووو 1-عءذزإش اإخإزءأةة قءسشدشظ غصحء ؤجر ثءخءجد×
; çٍوووووو ذدزش B 0-××دؤ 1-×ظ×دؤ
; ٍووووووو ذدزش A 0-××دؤ 1-×ظ×دؤ
;R8 ءحذجةشصؤء × ثءخءجإ A (4 آةش - 1-زءعزإغإخةإ )
;R9 ءحذجةشصؤء × ثءخءجإ B
;RA ءحذجةشصؤء × ثءخءجإ C
;RB,RC داةآءہفرر (16 آةش)
;RD ئدزحء ة زإضةح داةآءہفإت
; آةش0-عءشصبءخةإ 1-×ثج
; آةش1-قإزإؤد×ءخةإ 1-×ثج
; آةش2-خءزءسشءخةإ (ءشءثء) 1-×ثج
; آةش3-ذزدؤدجضإخةإ 1-×ثج
;RE ذدزش A
;RF ذدزش B
;خء ×بدؤإ NMR سدؤإزضةش 7 أةئز خدحإزء × ASCII
;KATEGORY - ثءشإادزةر × ASCII
LD B,7
LD HL,NMR
LD DE,R2086+2
EAA1: LD A,(HL)
INC HL
SUB "0"
LD (DE),A
INC DE
DJNZ EAA1
LD A,(KATEGORY)
SUB "0"
LD (DE),A ;ثءشإادزةر
LD A,#FF
LD (R2086),A
LD IY,R2086+1
LD (IY),#0D ;"_" سةخبزدآءتش
;سؤإسط حظ ةحإإح س.آءتش خدحإز ثءشإادزةر
L5FDB: LD A,(IY)
CP (IY-1)
JR NZ,L5FE7
LD (IY),#0C ;عءحإخرإح ذد×شدزظ
L5FE7: INC IY
LD A,R2086+2+7+1
DEFB #FD
CP L
JR NZ,L5FDB
STP: CALL STOP_AY
CONTP: LD A,#0A
CALL STARTCIF
CALL START_AY
A2W2W: LD HL,R2086+9
A1W1W: LD A,(HL)
DEC HL
CP #FF
JR Z,A2W2W
EI
HALT
HALT
PUSH HL
CALL STARTCIF
POP HL
CALL START_AY
JR A1W1W
R2086: DEFB #FF
DEFB #0D,7,6,5,4,3,2,1,1,#FF,#FF,#FF,#FF
KATEGORY:
DEFB "1"
NMR: DEFM '1234567'
DEFS 3,0
;FOR 2MGZ
F0: EQU 179 ;700
F1: EQU 139 ;900
F2: EQU 114 ;1100
F4: EQU 96 ;1300
F7: EQU 83 ;1500
F11: EQU 74 ;1700
;FOR 1.75 MGZ 109375
FC0: EQU 156
FC1: EQU 122
FC2: EQU 99
FC4: EQU 84
FC7: EQU 73
FC11: EQU 64
CCITTAB2:
DEFW F4,F7
DEFW F0,F1
DEFW F0,F2
DEFW F1,F2
DEFW F0,F4
DEFW F1,F4
DEFW F2,F4
DEFW F0,F7
DEFW F1,F7
DEFW F2,F7
DEFW #FFFF,#FFFF
DEFW F2,F11
DEFW F4,F11
DEFW F2,F11
DEFW F4,F11
DEFW F0,F11
DEFW F4,F11
CCITTAB1:
DEFW FC4,FC7
DEFW FC0,FC1
DEFW FC0,FC2
DEFW FC1,FC2
DEFW FC0,FC4
DEFW FC1,FC4
DEFW FC2,FC4
DEFW FC0,FC7
DEFW FC1,FC7
DEFW FC2,FC7
DEFW #FFFF,#FFFF
DEFW FC2,FC11
DEFW FC4,FC11
DEFW FC2,FC11
DEFW FC4,FC11
DEFW FC0,FC11
DEFW FC4,FC11
STARTCIF:
ADD A,A
ADD A,A
LD HL,CCITTAB2
LD E,A
LD D,0
ADD HL,DE
LD A,(HL)
INC HL
CALL OUTPSG
DEFB 0
LD A,(HL)
INC HL
CALL OUTPSG
DEFB 1
LD A,(HL)
INC HL
CALL OUTPSG
DEFB 4
LD A,(HL)
INC HL
CALL OUTPSG
DEFB 5
RET
START_AY:
LD A,#FA
CALL OUTPSG
DEFB 7
AMP: EQU $+1
LD A,#0F
PUSH AF
CALL OUTPSG ;AMP A
DEFB 8
LD A,#0
CALL OUTPSG ;AMP B
DEFB 9
POP AF
CALL OUTPSG ;AMP C
DEFB #0A
LD A,0
CALL OUTPSG ;O LOW
DEFB #0B
LD A,0
CALL OUTPSG ;O HIGH
DEFB #0C
LD A,#0D
CALL OUTPSG ;O MODE
DEFB #0D
RET
STOP_AY:
LD A,#FF
CALL OUTPSG
DEFB 7
LD A,0
CALL OUTPSG ;AMP A
DEFB 8
LD A,0
CALL OUTPSG ;AMP B
DEFB 9
XOR A
CALL OUTPSG ;AMP C
DEFB #0A
LD A,0
CALL OUTPSG ;O LOW
DEFB #0B
LD A,0
CALL OUTPSG ;O HIGH
DEFB #0C
LD A,#0B
CALL OUTPSG ;O MODE
DEFB #0D
RET
OUTPSG: EX (SP),HL
PUSH BC
LD BC,#FFFD
OUTI
LD BC,#BFFD
OUT (C),A
POP BC
EX (SP),HL
RET
SS> Sincerely your, Sergey
WBR! Maxim Polyanskiy.
... max...@aha.ru
- --- GoldEd 2.51+
+ Origin: Z80 inside - INTEL outside ! (2:5020/887.12)
« €€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€ ®
èءت All!
RomanRom2 [Team يلْنلê - ٍُىهْ] [Team ضإخفةخ - جہآةشط]
- --- GoldED 3.00.Beta1+
Hello Roman !
Monday March 02 1998 02:13, Roman Khroupnin ─── All:
RK> · Про···················· Межгород безплатно
[.....]
Hу и ? Вот "этим" хотят обмануть станционные АОHы ? А как к Спектpуму
телефонную линию в 60 вольт цеплять собpались ? Оптpонами ? Тpансфоpматоpом ?
P.S. Хоть и пpо спектpум, а чушь все это...
Good luck ! Evgeny.
■ Hочь коpоче дня... День убьет меня... Миp иллюзий в нем сгоpает. (С) Аpия.
Приветствую тебя уважаемый Evgeny !
Tuesday March 03 1998 09:10, Evgeny Milun зачем-то писал Roman Khroupnin:
EM> Hello Roman !
EM> Monday March 02 1998 02:13, Roman Khroupnin ─── All:
RK>> · Про···················· Межгород безплатно
EM> [.....]
EM> Hу и ? Вот "этим" хотят обмануть станционные АОHы ? А как к
EM> Спектpуму телефонную линию в 60 вольт цеплять собpались ? Оптpонами ?
EM> Тpансфоpматоpом ?
Почему бы и нет! Ведь на PC(плата модема) для pазвязки компа с линией служит
тpансфоpматоp!
С уважением SP/PoS/PCCC.
Evgeny это ты что-ли?
...зaчем ты рaсскaзывaл Roman Khroupnin про Межгород безплaтно ?
EM> Hу и ? Вот "этим" хотят обмaнуть стaнционные AОHы ? A кaк к Спектpуму
EM> телефонную линию в 60 вольт цеплять собpaлись ? Оптpонaми ?
EM> Тpaнсфоpмaтоpом ?
рaзумеется, нaдо к линии цеплять...
EM> P.S. Хоть и пpо спектpум, a чушь все это...
нa сaмом деле это есть реaльность. Один кореш, ещё дaвным-дaвно,
делaл нa музыкaлке подобные вещи, нaпример из того, что я видел в
действии - это былa кодовaя посылкa с номером (ну, для aонa), плюс
рaзные blue-box фишки... прaвдa большинство этих фишек нa
большинстве стaнций не рaботaют, хотя были случaи...
Good Luck...
... Friends don't let friends use Windows.