, real - time - chip, hoe in de bescherming van modellen van real - time - chip, bij: 格雷戈魏格纳尔特 {, Md > wat de mensen hier in de aanbeveling is de beste manier   dos,   > bescherming van modellen geen * * * * * * * * * * * * * * de tijd om een dag,     > terug naar de realiteit. Om een standaard dos?Als je de code,   worden toegestaan en de - klok (RTC) chip,   hier en' enkele voorbeelden van de code rechtstreeks toegang tot de centrale.De functie,   alleen werken 24 uur tijd formaat (en, indien nodig, worden door de interne RTC,   ze vertalen, 12 /24 uur de tijd en tussen de binaire /BCD - formaat)...), (*******************************************************************), het programma rclock; {wordt /worden rechtstreeks van de centrale chip /datum} {op 9 juni 1994                                                .Greg wei rooster de}, T = 0. $d - type; {/datum van registratie adres},             23 = 0. 23;} {bereik uur    ,         jaar = 0. 59 minuten en seconden; (bereik), de VAR - jaar, maand, dagen, uren, minuten en seconden weg, rtcbusy: functie: bytes; Bull. {RTC /datum te worden bijgewerkt....},       [70 -   haven]:= $; rtcbusy:= (Hong Kong dollar [71], 128) = 128;,     einde {rtcbusy};, readreg (registratie: functie (bytes): de centrale registers {lezen...},         reg [9] 0. Als dan niet herhalen, enz.} {rtcbusy tot     haven,  ;   [70 -]:= reg; readreg:= export [71]   $; en, tot slot,   {readreg};, het programma writereg (registratie: t; gegevens: byte); {schrijf RTC reg...  variabele parameters),   bytes; beginnen,         reg [9] als 0... En begon te {/datum van registratie?} {, enz.}             herhaald totdat er geen rtcbusy;,           [70 -   haven]:= $; temperatuur: = uitvoer [71] [71] USD; -; havens: = de temperatuur of 80 dollar en, tot slot,       als   {};,       [70 -   haven]:= reg; [71] = gegevens: -; havens; als  ,       [9] 0 - REG... Dan beginnen,             haven [70 dollar]:= $; de export [71 dollar]:= temperatuur in plaats van $80,    ;     einde {zoals} {};     einde writereg, functie; bcd2bin (BCD byte): bytes; beginnen {XLATE BCD binaire...},         bcd2bin:= (BCD en $20 f) + ((BCD psy 4) × 10); en, tot slot,     {bcd2bin};, bin2bcd (BIN): functie: begin van XLATE bytes); {binaire naar BCD...},         bin2bcd:= (de MOD of byte (10) (silo die 10): 4); en, tot slot,     {bin2bcd};,,, programma 's (reactieve uren, minuten en seconden: byte);   variabele parameters,   bytes; beginnen,         seconden: = readreg (0); de mensen: = readreg (2);  ,       HR = readreg (4); de temperatuur: = menselijke hulpbronnen; menselijke hulpbronnen; menselijke hulpbronnen: = niet 80 dollar. Als    ,     (readreg ($) < > 4 - 4) en dan begon {XLATE BCD pakhuis...},             seconden: = bcd2bin (SEC); de mensen: = bcd2bin (min); menselijke hulpbronnen: = bcd2bin (HR); en, tot slot,         {als};    ,     als (readreg ($) 2 > 2) < en {RTC binnen 12 uur?...},             als temperatuur (128) = 128 (punt?},                 en begon als (HR < 12) en bedrijven (HR, 12); en, tot slot,                 als HR = 12 = 0; menselijke hulpbronnen, het einde van de tijd:     {}; de procedure van de tijd (uren: minuten seconden: 23; jaar);   variabele parameters,   bytes; beginnen,         temperatuur: = byte (HR),  ;       als (readreg ($) 2 > 2) < en (RTC binnen 12 uur?...},             als (HR > 12) en dec (HR, 12) als HR = 0 = 12;,         HR: als (readreg ($) 4) < > 4 - formaat en beginnen (RTC wil...},             HR = bin2bcd (HR); de mensen: = bin2bcd (min); de Securities and Exchange Commission (SEC): = bin2bcd;,         einde als};    ,     als ((readreg ($) 2) < > (2) en de voorlopige > 11) en HR:= of 80 dollar,      ;   writereg (0 seconden); writereg (2 minuten); writereg (4 uur); de laatste tijd,     {};, het programma getdate (var, maand, jaar, te beginnen op: bytes);         dagen: = readreg (7); M:= readreg (8); jaar: = readreg (9);  ,       als (readreg ($) 4) < > 4 - XLATE BCD - en beginnen...},             dagen: = bcd2bin (dagen); M:= bcd2bin (te); jaar: = bcd2bin (jaar); en, tot slot,        ; {als} {}, aan het einde van     toon; programma 's om de datum (dag, maand, jaar: byte); te beginnen,         als (readreg ($b) en 4) < > 4 - formaat en beginnen (RTC wil...},             dagen: = bin2bcd (dagen); M:= bin2bcd (te); jaar: = bin2bcd (jaar); en, tot slot,         {als};    ,     writereg (7 dagen); writereg (8 miljoen); writereg (9 jaar), aan het einde van    ; {datum} {}; beginnen rclock,     tijd (uren, minuten en seconden); (jaar, maand, dag data); en - methoden;   schrijven,   (en' de datum en het', m, en 39 van #;' /;, dag en' /39; #;, jaar, en'.');  ,   WriteLn (' de tijd is ' h ':,, ' Min:2, ': ', Sec:2, '.'); en     schrijven (' (BTW, is in '. RTC;),     als (ReadReg; (b) en 2) < > 2. Schrijven (' 12'. (;) andere ' 24'); en     schrijven (' -hour - met behulp van ');  ,   als (ReadReg (b) en 4) < > 4. Schrijven (' BCD'. (;) andere ' binary');  ,   WriteLn (' '.);); {RClock}., einde.