ZXNet эхоконференция «code.zx»
тема: Перехват magic'а
от: 500:812/08.00
кому: Kirill Smelkow
дата: 13 Feb 1998
Я тут почитывал CODE.ZX, и заметили письмо
где 10-02-98 в 20:30, Kirill Smelkow начиртал
для All, насчет "Перехват magic'а"...
┬┐ ┬┌┐ ┬┌┌┐┬ ┬ ┌┐
├┴┐││┬ ├┤├ │ │ ││, Kirill!
┴─┘│└┘ ┘┴└┘┴┘┴┘└┘
KS> Люди, подскажите пожалуйста, каким образом
KS> на скорпе можно подвесить свою программу на magic.
Вот тебе программка для перехвата Reset и Magic для
скорпа...:)
Между метками prog и end_prg размещай свою программу!
LD A,16
LD BC,8189
OUT (C),A
LD B,127
OUT (C),A
LD HL,60149
PUSH HL
PUSH HL
LD A,195
LD HL,49152
LD DE,49153
LD BC,16383
LD (HL),243
LDIR
POP HL
DEC HL
DEC HL
DEC HL
LD (HL),A
POP HL
L24613 LD (HL),B
INC HL
DJNZ L24613
LD (HL),B
LD (65533),A
LD (56682),A
LD (65280),A
LD DE,49264
LD (65281),DE
LD HL,L24655
LD BC,16
LDIR
XOR A
LD BC,8189
OUT (C),A
LD B,127
LD A,16
OUT (C),A
RET
prog DI
L24656 LD HL,16384
LD DE,16385
LD BC,6143
LD (HL),A
LDIR
INC A
JR L24656
end_prg
Вот и все... Hадеюсь тут ничего непонятного нет.
С наилудшими пожеланиями,
SPbZXNet (500:812/08.00), Ivan/VSPG.
SysOp of Impart-BBS (812)466-4113, [Team ASpect]
-+- SMM version 1.05
|