ZXNet эхоконференция «code.zx»

+-Привет, |All! +-------- ;условия задачи: ;вызов рестарта с функцией по: ;rst x ;db function ;HО! изменения в правилах: ;нельзя ничего сохранять в ячейках ;памяти, только на стеке! ;т.к. подразумевается возможность в ;любой момент прервать выполнение этой ;программы (по прерыванию) и переклю- ;читься на другую, ;которая, возможно, тоже выполняет этот ;же участок кода. (естественно, у них ;разные стеки :) ;т.е. условие более сильно, чем рекур- ;сивная реентерабельность. ;nb: ;вычисление адреса функции по номеру ;непринципиально. ;1. таблица адресов не может изменяться в процессе ;работы процедуры. ;2. функций 256 штук :) (а то уж больно все хитрые стали). ;интересует не столько скорость (хотя ;и она тоже), сколько красота решения. PUSH HL PUSH DE PUSH AF LD HL,6 ADD HL,SP LD E,(HL) INC HL LD D,(HL);de-return address LD A,(DE);function INC DE; de-new return address LD (HL),D;save to stack DEC HL LD (HL),E ;... ;A-FUNCTION NUMBER -> HL-ADRESS OF FUNCTION ;... POP AF POP DE EX (SP),HL RET +-Всего доброго, All! |С Вами был |Valentin Pimenov aka Valker/Style_Group +---------------

Приветствую Вас, Valentin! В день Valentin Pimenov написали All: VP> ;HО! изменения в правилах: VP> ;нельзя ничего сохранять в ячейках VP> ;памяти, только на стеке! VP> ;т.к. подразумевается возможность в VP> ;любой момент прервать выполнение этой VP> ;программы (по прерыванию) и переклю- VP> ;читься на другую, VP> ;которая, возможно, тоже выполняет этот VP> ;же участок кода. (естественно, у них VP> ;разные стеки :) VP> ;т.е. условие более сильно, чем рекур- VP> ;сивная реентерабельность. EX (SP),HL ; save HL PUSH DE ; save DE PUSH AF ; save A LD A,(HL) INC HL ; A -> HL EX DE,HL LD L,A LD H,TABLE/256 LD A,(HL) INC H LD H,(HL) LD L,A POP AF ; ret A EX (SP),HL ;─┐ ret DE & save function adress EX DE,HL ;─┘ RET ; goto function ; Function EX (SP),HL ; ret HL - 1-st step ot any function ! Вай! Протосы атакуют моих зерлингов! Пора сматываться. Ivan. - Разводись схемка, больша и маленька..