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.