读写coms<br>procedure WriteCMOS(Addr, Data:Byte);<br>begin<br> asm mov al , Addr<br> or al , 80h<br> out 70h, al<br> mov al , Data<br> out 71h, al<br> end;<br>end;<br><br>procedure ReadCMOS(Addr: Byte; var Data: Byte);<br>var<br> readData: Byte;<br>begin<br> asm mov al , Addr<br> or al , 80h<br> out 70h, al<br> in al, 71h<br> mov readData, al<br> end;<br>Data := readData;<br>end;<br>