![New Micros NMIY-0031 Скачать руководство пользователя страница 186](http://html.mh-extra.com/html/new-micros/nmiy-0031/nmiy-0031_manual_1678002186.webp)
2 / 2 6 / 2 0 0 2 2 : 0 6 P M 2 / 2 6 / 2 0 0 2
1 8 6
N M I L - 9 0 0 3 R E A L T I M E C L O C K
F O R T H S A M P L E C O D E
: RELEASE-CLOCK
0 REG-D C!
;
: HOLD61 ( -- )
RELEASE-CLOCK
( NO-OP: Wait at least 61 uS )
REG-D C@ DROP
( Reassert HOLD before leaving )
5 REG-D C!
;
: HOLD-CLOCK
5 REG-D C! ( TURN ON HOLD BIT )
BEGIN REG-D C@ 2 AND IF HOLD61 0 ELSE 1 THEN UNTIL
( NOW READY TO READ OR WRITE - DON'T TAKE OVER 1 SEC THOUGH! )
;
( HIGH LEVEL READ )
: READ-CLOCK
HOLD-CLOCK
10-SEC-DIG C@ TEN* 1-SEC-DIG C@ + CR-SECOND !
10-MIN-DIG C@ TEN* 1-MIN-DIG C@ + CR-MINUTE !
10-HRS-DIG C@ 4 AND CR-AM/PM !
10-HRS-DIG C@ 3 AND TEN* 1-HRS-DIG C@ + CR-HOUR !
10-DAY-DIG C@ TEN* 1-DAY-DIG C@ + CR-DAY !
10-MON-DIG C@ TEN* 1-MON-DIG C@ + CR-MONTH !
10-YRS-DIG C@ TEN* 1-YRS-DIG C@ + CR-YEAR !
1-DOW-DIG C@ CR-DOW !
RELEASE-CLOCK
;
: SET-12-HR-MODE
REG-F C@ F0 AND 0 = NOT
IF
1 REG-F C!
1 REG-F C!
0 REG-F C!
THEN
;
: SET-24-HR-MODE
REG-F C@ F0 AND 4 = NOT
IF
1 REG-F C!
5 REG-F C!
4 REG-F C!
THEN
;
: 12-HR-MODE?
REG-F C@ 4 AND 0=
;
DECIMAL
: SET-SECOND
0 MAX 59 MIN
TEN/MOD 1-SEC-DIG SWAP 10-SEC-DIG
HOLD-CLOCK
C! C!
RELEASE-CLOCK
;
Содержание NMIY-0031
Страница 1: ...2 2 6 2 0 0 2 2 0 6 P M 1 NMIY 0031 Single Board Computer Covers NMIY 0031 V1 0 4 22 96 ...
Страница 2: ...2 2 6 2 0 0 2 2 0 6 P M 2 ...
Страница 6: ...2 2 6 2 0 0 2 2 0 6 P M 6 ...
Страница 8: ...2 2 6 2 0 0 2 2 0 6 P M 8 ...
Страница 14: ...2 2 6 2 0 0 2 2 0 6 P M 1 4 ...
Страница 30: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 3 0 ...
Страница 32: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 3 2 ...
Страница 50: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 5 0 ...
Страница 52: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 5 2 ...
Страница 54: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 5 4 ...
Страница 56: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 5 6 ...
Страница 58: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 5 8 ...
Страница 60: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 6 0 ...
Страница 62: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 6 2 ...
Страница 68: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 6 8 ...
Страница 70: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 7 0 ...
Страница 72: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 7 2 ...
Страница 76: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 7 6 ...
Страница 82: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 8 2 ...
Страница 84: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 8 4 ...
Страница 86: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 8 6 ...
Страница 88: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 8 8 ...
Страница 90: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 9 0 ...
Страница 102: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 0 2 ...
Страница 108: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 0 8 ...
Страница 110: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 1 0 ...
Страница 114: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 1 4 ...
Страница 118: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 1 8 ...
Страница 126: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 2 6 ...
Страница 128: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 2 8 ...
Страница 134: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 3 4 ...
Страница 148: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 4 8 ...
Страница 150: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 5 0 ...
Страница 152: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 5 2 ...
Страница 154: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 5 4 ...
Страница 156: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 5 6 ...
Страница 168: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 6 8 ...
Страница 170: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 7 0 ...
Страница 172: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 7 2 ...
Страница 174: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 7 4 ...
Страница 178: ...2 2 6 2 0 0 2 2 0 6 P M 2 2 6 2 0 0 2 1 7 8 ...