Шина I2C (А. Торрес, 1997)

if IOResult = 0 then begin

BlockWrite(F, Buf, SizeOf(Buf)); Close(F);

end; end;

mWrite: begin

Reset(F, 1);

if IOResult = 0 then begin

BlockRead(F, Buf, SizeOf(Buf)); Close(F);

for A:= 0 to 2047 do WriteByte(A, Buf[A]); end;

end; mError: begin

WriteLn('24c16 fileName -r|-w'); WriteLn(' -r Read');

WriteLn(' -w Write'); end;

end;

end.

Jbkmghd Ih^dexq_gb_,2&mkljhckl\Z d/37ihjlm

JZamf__lky \ ^Zgghc klZlv_ g_\hafh`gh hibkZlv iheghklvx \k_ gxZgku nmgdpbhgbjh\Zgby rbgu,2&gh ih djZcg_c f_j_ fh`gh ihemqblv h g_c h[s__ ij_^klZ\e_gb_ >ey [he__ ihegh]h bamq_gby fh`gh ihkh- \_lh\Zlv

∙\ bgl_jg_l_

∙hibkZgby we_f_glh\ k rbghc 2& gZijbf_j ^ZlZrblu ,2& ((3520 k_jbb ;;;

OZjvdh\