ЭТЮДЫ

[Titus]

Ну чтоб напрямую число2 в DE не загружать, а восстановить его в HL и потом в DE запихать (ex de,hl)

тогда уж add, а не adc, иначе это число будет на 1 больше.

[Advertiser]

[Destr]

тогда уж add, а не adc, иначе это число будет на 1 больше.

Так вроде туда попадаем только в результате "заёма" (флаг С) - значит надо и его учитывать (что и делает команда ADC).
Я уже писал что это не проверялось, это просто голые идеи которые надо тестить (чем топикстартер вроде и занят).

Хотя да, ты прав, вместо ADC надо ADD (ведь OR A сначала сделали).

[Titus]

Так вроде туда попадаем только в результате "заёма" (флаг С) - значит надо и его учитывать (что и делает команда ADC).
Хотя я уже писал что это не проверялось, это просто голые идеи которые надо тестить (чем топикстартер вроде и занят).
Хотя да, ты прав, вместо ADC надо ADD (ведь OR A сначала сделали).

or a мы сделали для младшего бита, чтобы получить HL = HL - DE - 0,
тогда как к моменту условного перехода в бит C попадает заём для старшего бита. Чтобы вернуть HL обратно, нам вообще не важно, был ли заем, или его не было. Мы должны обратно сложить HL = HL + DE.

[goblinish]

пардон, что отвлекаю. никто не постил переход в 48-й с открытым портом(аля usr0)?
что-то у меня в исходниках сомнительный вариант:

ORG #5D40,#6000
DI
LD SP,(#5C3D)
POP HL
LD HL,#1303
PUSH HL
LD HL,#1B76
PUSH HL
LD HL,(#5C45)
LD (#5C42),HL
LD A,(#5C47)
INC A
LD (#5C44),A
LD DE,#15BE
LD A,(#5C3B)
AND #EF
LD (#5C3B),A
LD HL,(#5C4F)
LD BC,15
ADD HL,BC
EX DE,HL
LD C,4
LDIR

[goblinish]

не помню, откуда позаимствовал по старой привычке. интересная вариация для цветов. интересно, как он работает?

[tiboh]

пардон, что отвлекаю. никто не постил переход в 48-й с открытым портом(аля usr0)?
что-то у меня в исходниках сомнительный вариант:

Процедура Robusa:

DI
LD HL,10072
LD IY,23610
EXX
LD A,63
LD I,A
IM 1
LD SP,(23613)
LD A,16
OUT (253),A
RES 4,(IY+1)
CALL 81
CALL 7030
JP 4867

Процедура Wlodek Blacka:

CALL usr0
usr0 DI
LD SP,(23613)
POP HL
LD HL,4867
PUSH HL
LD HL,7030
PUSH HL
RES 4,(IY+1)
LD DE,5566
LD HL,(23631)
LD BC,15
ADD HL,BC
EX DE,HL
LD C,4
LDIR
EI
RET

[jerri]

А зачем делать call из которого нет возврата?

[tiboh]

Подправил...

[goblinish]

А зачем делать call из которого нет возврата?

по идее я в код впихивал. наткнулся, что call не отрабатывает.

[jerri]

tiboh,
оно у тебя куда вернется?
ты же стек переставляешь
можно вообще call убрать