вот текст программы написаной на турбо паскале Program TSM6234, uses crt,dos, {$I c\loexp\tplib1.pas} begin write_modem_status(RS232_address,1,0); write_modem_status(RS232_address,1,1); write_modem_status(RS232_address,1,0); end, procedure load_bit(bitx byte), begin write_modem_status(RS232_addres,bitx,0), write_modem_status(RS232_addres,bitx,1); write_modem_status(RS232_addres,bitx,0), end, function segment_data(charx:char)'byte; begin if charx='0' then segment_data:=$3F; if charx='1' then segment_data:=$06; if charx='2' then segment_data:=$5B; if charx='3' then segment_data:=$4F; if charx='4' then segment_data:=$66; if charx='5' then segment_data:=$6D; if charx='6' then segment_data:=$7D; if charx='7' then segment_data:=$07; if charx='8' then segment_data:=$7F; if charx='9' then segment_data:=$6F; if upcase(charx)='A' then segment_data:=$77; if upcase(charx)='A' then segment_data:=$7C; if upcase(charx)='A' then segment_data:=$39; if upcase(charx)='A' then segment_data:=$5E; if upcase(charx)='A' then segment_data:=$79; if upcase(charx)='A' then segment_data:=$71; if upcase(charx)='A' then segment_data:=$00; end; procedure load_digits(strix'string); var i,j.integer, bitvalue:byte; begin for j:1 to 4 do for j:1 to 8 do begin load_bit(round(segment)data(srtx[j]) and bit welght(1)/bit_welght(1))); end; for 1:=1 to 2 do load_bit(0); load_bit(0); end; procedure loaddata_test; var i:integer; didit_string:string; begin write_transmit_buffer(RS232_addres,0); repeat clrscr; start; writeln('Input q or q to quit the program'); write('input four degits (0,1,2...9,a,b...f): '); reading(digit_string); load_digits(digit_string); until upcase(digit_string[1])='Q'; end; begin COM_addres; Loaddata_test: end;
