![New Micros NMIY-0031 Скачать руководство пользователя страница 97](http://html.mh-extra.com/html/new-micros/nmiy-0031/nmiy-0031_manual_1678002097.webp)
2 / 2 6 / 2 0 0 2 2 : 0 6 P M 2 / 2 6 / 2 0 0 2
9 7
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
NEW
REM This program demonstrates use of the NMIL-9003 clock board using
REM the NMIY-0031 processor card as host. It allows the user to read
REM (and display) the clock and calendar values as well as set them.
10 BASEADDRESS = 0FFE0H
20 STRING 6,4
REM These address are provided for reference. It is suggested
REM that addresses be coded directly with this BASIC.
REM SEC1ADR = 0FFE0H : SEC10ADR = 0FFE1H SECOND ADDRESS
REM MI1ADR = 0FFE2H : MI10ADR = 0FFE3H MINUTE ADDRESS
REM HR1ADR = 0FFE4H : HR10ADR = 0FFE5H HOUR ADDRESS
REM DAY1ADR = 0FFE6H : DAY10ADR = 0FFE7H DAY ADDRESS
REM MTH1ADR = 0FFE8H : MTH10ADR = 0FFE9H MONTH ADDRESS
REM YR1ADR = 0FFEAH : YR10ADR = 0FFEBH YEAR ADDRESS
REM DYWADR = 0FFECH
Day of the Week ADDRESS
REM REGD = 0FFEDH
Control Registers
REM REGE = 0FFEEH
REM REGF = 0FFEFH
REM Jump to actual program start
99 GOTO 1000
REM The following routine is used extensively in the code.
REM Clock Hold must be asserted before read or write to clock.
REM Processor must clear busy bit before proceeding.
REM HOLD-CLOCK
REM When not busy set HOLD bit and return
REM Set HOLD bit
100 XBY(0FFEDH) = 1
REM Check BUSY bit
110 T1 = XBY(0FFEDH)
REM Mask off bits 2-7
120 T1 = T1 - (INT(T1/4))
REM If busy then wait and reassert HOLD else return.
130 IF (T1 < 2) THEN RETURN
REM Hold is set low for at least 61 uS to clear busy bit.
140 XBY(0FFEDH) = 0
150 FOR I=1 TO 10 : T1 = 1 : NEXT I
160 GOTO 100
REM MENU
REM User is prompted for function choice and necessary data.
REM Data is then processed and the clock is read or set
1000 PRINT : PRINT : PRINT
1010 PRINT : PRINT "
1
Read clock"
1020 PRINT : PRINT "
2
Set clock"
1030 PRINT : INPUT " Please enter the number of your choice: "CHOICE
1050 IF (CHOICE = 1) THEN GOSUB 12000 : GOSUB 12400 : GOSUB 12800 : GOTO 1000
REM GET CLOCK VALUES TO SET
1060 INPUT " Set Day of Week( 0 = SUN, 1 = MON, etc.): "DW
1070 INPUT " Set Year: "YEAR
1080 INPUT " Set Month of Year: "MNTH
1090 INPUT " Set Day of Month: "DAY
1100 INPUT " Set 1 for 24 hour, 0 for 12 hour: "HR24_12
1120 INPUT " Set hours: "HOUR
1130 IF (HR24_12 = 1) THEN AM_PM = 0 : GOTO 1160
1140 INPUT " Set 0 for AM, 1 for PM: "AM_PM
1150 IF (AM_PM <> 0) THEN AM_PM = 04H
1160 INPUT " Set minutes: "MINUTE
1170 INPUT " Set seconds: "SECND
Содержание 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 ...