METHOD / МКП / Lab_ASCII / port2

program init_Port2;
USES CRT;
VAR

BD:BYTE;
ID:INTEGER;


BEGIN

ASM
MOV AX, 25; {ЏҐаҐбл« Ґв (move) зЁб«® 25 ў ॣЁбва AX}
MOV CH, 34; {ЏҐаҐбл« Ґв зЁб«® 34 ў бв аиЁ© Ў ©в ў ॣЁбва  ‘X}
MOV CL, 10; {ЏҐаҐбл« Ґв зЁб«® 10 ў ¬« ¤иЁ© Ў ©в ॣЁбва ‘X}
MOV CX, AX; {ЏҐаҐбл« Ґв ᮤҐа¦Ё¬®Ґ ॣЁбва  ЂX ў ॣЁбва ‘X}
ADD CX, 6120; {„®Ў ў«пҐв 6120 Є ᮤҐа¦Ё¬®¬г ॣЁбва  аҐЈЁбва  ‘X}
SUB AX, CX; {‚лзЁв Ґв Ё§ ᮤҐа¦Ё¬®Ј® ॣЁбва  Ђ• ¤ ­­лҐ ‘•}
MOV BD, AH; {ЏҐаҐбл« Ґв ᮤҐа¦Ё¬®Ґ ॣЁбва  AH ў ЇҐаҐ¬Ґ­­го вЁЇ  "Ў ©в" ‚D}
MOV ID, AX; {ЏҐаҐбл« Ґв ᮤҐа¦Ё¬®Ґ ॣЁбва  AX ў ЇҐаҐ¬Ґ­­го вЁЇ  "integer" ID}


END;
writeln('BD=', BD, ' ID=', ID);


END.