РЛ/37
КОМПЬЮТЕРЫ И ПРОГРАММЫ
*1111
лать и с подпрограммы обработки прерывания) и АОЯОБ
— для вывода индикации через 0,1 с, если это предусмотре-
но.
Часто бывает необходимо использование разных подпрог-
рамм обработки прерываний. Это можно реализовать следу-
ющим образом:
ADRT1
.EQU 21H
.ORG $0000
/Флаг прерывания по
;T1(ADRT1=1 ПП tyme
;=2 ПП XXX
RT:
N0P
;НАЧАЛО
JMP SBR2TIM
.ORG $03
;Обход адресов 03Н,07Н
JMP INT
/Обработка прерывания по
;входу I
NOP
/
NOP
;
.ORG $07
;
JMP T1
/Обработка прерывания по
;входу Т
.ORG 002FH
/ОСНОВНАЯ ПРОГРАММА
.ORG 0074H
/ПП обработки прерываний
/по Т1
T1 :
MOVA>@R0(#ADRAK1)/Сохранение аккумулятора
MOVA<@R0(#ADRT1)
/Флаг прерывания по Т1
XRL A,#01H .
/
JZ TY
;
MOVA<@RO(#ADRTl)
/
XRL A,#02H
;
JZ PR
/
JMP OUTE
/
TY:
CALL TYME
/ПП 1
JMP OUTE
/
PR:
CALL XXX
; ПП 2
OUTE:
MOVA<@R0(#ADRAK1)/Восстановление аккумуляа
RETR
;
В этом случае обе подпрограммы должны заканчиваться
командой RET. А собственно подпрограммой обработки пре-
рываний является подпрограмма Т1.
Фактически, приведенный фрагмент позволяет увеличить
число возможных прерываний. Отличие от обычных прерыва-
ний в том, что подпрограммы TYM E и X X X не могут рабо-
тать одновременно.
Важно заметить, что для флага окончания отсчета нельзя
использовать в данном случае F0, F1, так как команда RETR
восстанавливает флаги после выхода в основную программу.
В заключение остановимся на среде разработки програм-
мных средств для микро-ЭВМ 8048.
В [4] рассматривалась среда разработки для микроконтрол-
леров серии 8052 на основе командного файла. Если использо-
вать в программе возможности программы “be.exe”, входящей
в состав нортоновских утилит, можно будет использовать раз-
личные цвета и окна.
А вт о р предлагает чит ат елям аналогичную програм м н ую сре-
д у для м икроконт роллеров 8 0 4 8 с чут ь более ш ирокими возм ож -
ност ями.
Литература
1. Фрунзе А.В.,ХоркинС.В. Однокристальные ЭВМ//Радио.
— 1995,— N 3 ,— С.30.
2. Фрунзе А.В., Хоркин С.В. Однокристальные ЭВМ.//Радио.
— 1994. — N3, — С.24-25.
3. Фрунзе А.В, Хоркин С.В. Однокристальные ЭВМ//Радио.
— 1994. — N2-7.
4. Ф рунзе А.В. Однокристальные ЭВМ //Радио. — 1996.—
N8.
5. Аверьянов Н .Н ., Березенко А .И ., Борщенко Ю .И. и др./
П од ред. Ш ахнова В. А. М икропроцессоры и микропроцес-
сорные комплекты. — М.: Радио и связь, 1988.
6. Басманов А.С., Широков Ю .Ф ./Под ред. Домрачева В.Г.
М икропроцессоры и микроЭВМ: Номенклатура и функци-
ональные возможности. — М.: Энергоатомиздат, 1988.
В.ПЕТИК,
332608, Украина,
Запорожская обл., г.Энергодар,
ул.Казацкая, 23 — 5.
ЛЕГКО
ЛИ ВЫИГРАТЬ
В ЛОТЕРЕЮ?
Предлагаю вашему вниманию программу, которая мо-
жет заинтересовать азартных людей, увлекающихся иг-
рой в лотереи типа ”5 из 36”, ”6 из 49” и т.п., и, может
быть, несколько остудит их пыл. Программа написана
для Б ресЧ ит-совм естимы х компью теров, производит
расчет и вывод на экран вероятности угадывания 1, 2,.
..,
М номеров из N при заданном количестве заполняемых
вариантов. Следует сказать, что в связи с тем, что емкость
внутренних регистров компьютера имеет предел, а про-
грамма оперирует как очень большими (факторальные
вычисления), так и очень маленькими величинами, это
обстоятельство накладывает определенные ограничения
на величину задаваемых значений М и N .
ч
10 INPUT "Играем "5 из 36"? (1/0)";Q
20 IF Q=1 THEN LET M=5: LET N=36: GOTO 60
30 INPUT "Играем "6 из 49"? (1/0)";Q
40 IF Q=1 THEN LET M=6: LET N=49: GOTO 60
50 INPUT "Играем M из N Введите M ";M;" Введите N
;N
60 INPUT "Введите кол-во заполняемых вариантов ";L
70 LET X=N: LET Y=X-M+1
80 GOSUB 290
90 LET A=F
100 LET Z=M: LET Y=1
110 GOSUB 290
120 LET B=F: LET C=A/F: LET G=0
130 FOR J=M TO 1 STEP -1
140 LET T=C
150 LET X=N-M: LET Y=X-M+J+1
160 GOSUB 290
170 LET D=F
180 LET X=M-J: LET Y=1
190 GOSUB 290
200 LET E=F!2
210 LET X=J
220 GOSUB 290
230 LET G=(B*D/E/F)+G
240 LET X=C-G: LET Y=X-L+1: LET F=1
250 FOR I=Y TO X
260 LET F=I*F/T: LET T=T-1: BEEP.01,12 NEXT I
270 LET P=1-F: PRINT "P";J;"=";P
280 NEXT J: BEEP 1,0: STOP
290 LET F=l: FOR I=Y TO X
300 LET F=F*I: BEEP.01,24
310 NEXT I: RETURN
V
9 !
Радиолюбитель 12/97
предыдущая страница 10 Радиолюбитель 1997-12 читать онлайн следующая страница 12 Радиолюбитель 1997-12 читать онлайн Домой Выключить/включить текст