Процедура 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





Ответить с цитированием
