![New Micros NMIY-0031 Скачать руководство пользователя страница 98](http://html.mh-extra.com/html/new-micros/nmiy-0031/nmiy-0031_manual_1678002098.webp)
2 / 2 6 / 2 0 0 2 2 : 0 6 P M 2 / 2 6 / 2 0 0 2
9 8
N M I L - 9 0 0 3 R E A L T I M E C L O C K
B A S I C S A M P L E P R O G R A M
REM Execute Set Clock (also reads and displays time as set)
1200 GOSUB 2000
:REM Set 24/12 mode
1210 GOSUB 10000
:REM Set time
1211 GOSUB 10300
:REM Set date
1212 GOSUB 12000
:REM Read time
1213 GOSUB 12400
:REM Read date
1214 GOSUB 12800
:REM Display clock
1219 GOTO 1000
:REM Loop forever
REM Set 24/12 hour mode
REM Bits 0, 1, and 3 should be 0 during this operation.
2000 TEMP = XBY(0FFEFH)
2010 IF (HR24_12 <> 0) THEN TEMP = TEMP .OR. 005H : GOTO 2030
2020 TEMP = (TEMP .AND. 0FBH)
2030 XBY(0FFEFH) = TEMP
REM Cycle the RESET bit to set the change.
2040 XBY(0FFEFH) = TEMP .OR. 001H
2050 XBY(0FFEFH) = TEMP .AND. 0FEH
2060 RETURN
REM SET CLOCK
REM The clock is set, read, and displayed.
REM Entry point for clock set is 10000. (GOSUB 2000 first!)
REM Entry point for clock read is 12000.
REM Entry point for display is 12800.
REM SET-SECOND
REM Check limits, then get and write tens and ones values.
10000 IF (SECND < 0) THEN SECND = 0
10010 IF (SECND > 59) THEN SECND = 59
10020 TEMP = INT(SECND/10)
10030 SECND = SECND -(TEMP * 10)
10040 GOSUB 100 : XBY(0FFE1H) = TEMP : XBY(0FFEDH) = 0
10050 GOSUB 100 : XBY(0FFE0H) = SECND : XBY(0FFEDH) = 0
REM SET-MINUTE
REM Check limits, then get and write tens and ones values,
10100 IF (MINUTE < 0) THEN MINUTE = 0
10110 IF (MINUTE > 59) THEN MINUTE = 59
10120 TEMP = INT(MINUTE/10)
10130 MINUTE = MINUTE - (TEMP * 10)
10140 GOSUB 100 : XBY(0FFE3H) = TEMP : XBY(0FFEDH) = 0
10150 GOSUB 100 : XBY(0FFE2H) = MINUTE : XBY(0FFEDH) = 0
REM SET-HOUR
REM Check limits, then get and write tens and ones values,
10200 IF (HOUR < 0) THEN HOUR = 0
10210 IF (HOUR > 23) THEN HOUR = 23
10220 TEMP = INT(HOUR/10)
10230 HOUR = HOUR - (TEMP * 10)
REM Set 12 hour clock AM/PM bit
10235 TEMP = TEMP .OR. AM_PM
10240 GOSUB 100 : XBY(0FFE5H) = TEMP : XBY(0FFEDH) = 0
10250 GOSUB 100 : XBY(0FFE4H) = HOUR : XBY(0FFEDH) = 0
10260 RETURN
REM SET-DAY
REM Check limits, then get and write tens and ones values,
10300 IF (DAY < 1) THEN DAY = 1
10310 IF (DAY > 31) THEN DAY = 31
10320 TEMP = INT(DAY/10)
10330 DAY = DAY - (TEMP * 10)
10340 GOSUB 100 : XBY(0FFE7H) = TEMP : XBY(0FFEDH) = 0
10350 GOSUB 100 : XBY(0FFE6H) = DAY : XBY(0FFEDH) = 0
Содержание 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 ...