Итак, вернёмся к нашым атрибутам.

Паскаль:
For attrx:=0 to 23 do begin
attry:=attrx;
asm(ATTR);

end;
Асм:
ATTR
LD B, _ATTRX
LD C, _ATTRY
LD A,B
RRCA
RRCA
RRCA
LD L,A
AND 31
OR 88
LD H,A
LD A,L
AND 252
OR C
LD L,A
LD (HL),0
RET
Теоретически должна появиться диагональная полосочка из квадратиков.
Но ничего так и не появилось. Компилится без ошибок, и сама прога стартует, а вот эта процедура никак себя не проявляет.