METHOD / МКП / Lab_ASCII / port1

program init_Port1;
USES CRT;
VAR

WD                            {„‹€ЌЂ ‘‹Ћ‚Ђ},
STOP                          {—€‘‹Ћ ‘’ЋЏ-Ѓ€’},
PARITY                        {—…’ЌЋ‘’њ},
BD:BYTE;                      {‘ЉЋђЋ‘’њ}


BEGIN

ASM                                                 { ‚бв ўЄ  ­  п§лЄҐ ASSEMBLE}
MOV WD,       00000011B     {8 Ѓ€’}
MOV STOP,     00000100B     {2 ‘’Џ-Ѓ€’}  {ЇҐаҐ¬Ґ­­л¬ ЇаЁбў Ёў овбп §­ зҐ­Ёп}
MOV PARITY,   00011000B     {—…’}        {¤ў®Ёз­ле зЁбҐ«}
MOV BD,       11100000B     {9600 Ў®¤}

XOR AX,AX
OR  AL,WD
OR  AL,STOP
OR  AL,PARITY            {ў ॣЁбва Їа®жҐбб®а  AL ЇҐаҐбл« Ґвбп Ў ©в Ё­ЁжЁ «Ё§ жЁЁ}

MOV AH,0
MOV DX,1                 {Ё­ЁжЁ «Ё§ жЁп Ї®ав  ‘ЋЊ 1}
int 14h                  {Ї®¤Їа®Ја ¬¬  BIOS Ё­ЁжЁ «Ё§ жЁЁ Ї®ав }
END;

END.