Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

textColor(14);

textBackground(3);

write('Slawa');

textAttr:=7;

writeLn;

end;

procedure a31; assembler;

asm

mov ah, 9 {function 9}

mov al, 'a' {char 'a'}

xor bh, bh {video page 0}

mov bl, 16*3+14 {color}

mov cx, 5 {print 5 times}

int 10h {printing}

end;

procedure a32;

const

str: array [0..6] of char ='slawa'+#13+#10;

begin

asm

push bp {push used registers to stack}

push es

mov ax, seg str {es is a segment register of text}

mov es, ax

mov bp, offset str {es:bp is an actual string location}

mov ah, 13h {funtion 13h}

mov al, 1 {only text}

mov bh, 0 {video page}

mov bl, 16*3+14 {color}

mov cx, 7 {chars' counter}