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.