ЭТЮДЫ

[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