(c) Мелинг С., Татарстан, г. Бу-
гульма
Процедура поворота символа на
90 градусов по часовой стрелке
Эту процедуру я сделал для
своего редактора символьного на-
бора.
140.
LD HL,ADR ;Адрес сим-
;вола, который нужно повернуть
LD IX,OBL
PUSH HL
PUSH IX
LD B,8
LP LD (IX+0),0
INC IX
DJNZ LP
POP IX
LD B,8
LP1 PUSH BC
PUSH IX
LD B,8
LD A,(HL)
LP2 RLCA
PUSH AF
AND 1
OR (IX+0)
RRCA
LD (IX+0),A
INC IX
POP AF
DJNZ LP2
POP IX
POP BC
INC HL
DJNZ LP1
PUSH IX
POP HL
POP DE
LD BC,8
LDIR
RET
OBL DEFB 0,0,0,0
DEFB 0,0,0,0
2
* * *
