Раздел З
»III
ДИАЛОГ ПРОГРАММИСТОВ
В ячейке 60023 (#ЕА77) — адрес запуска подпрограммы при-
ема.
В ячейке 60248 (#ЕВ58) — адрес запуска подпрограммы переда-
чи.
Номер порта РУС КР580ВВ55 — 60016.
Номер порта В КР580ВВ55 — 60056, 60077, 60094, 60100.
Номер порта А КР580ВВ55 — 60306, 60321,60377.
Если у вас микросхема КР580ВВ55 имеет другие номера пор-
тов, в данные ячейки необходимо внести изменения. Все измене-
ния производятся с помощью команды РОКЕ. Внеся все измене-
ния, необходимо записать свой вариант на магнитную ленту.
Программа на Бейсике вводится с клавиатуры и сохраняется на
ленте командой SAVE “RTTY” LINE 1.
Блок в маш инны х кодах вводится в пам ять с адреса
60000(#ЕА60) с помощью любого монитора типа MONS3 пли
MONS4 и сохраняется на ленте сразу же за Бенспковоп частью ко-
мандой SAVE “RTTYC” CODE 60000,447.
Блок IN FO записывается за вторым блоком непосредственно
при работе с программой (используются режимы 4 п 6).
Назначение разрядов микросхемы следующее:
ВО — сигнал из модема в компьютер (прием);
В1 — сигнал готовности передатчика (если он не используется,
подайте на В1 логический “0” — корпус);
АО — сигнал из компьютера в модем (передача);
А1 — управление передатчиком (переключение RX-TX).
По адресу 60435 в машинных кодах написана процедура бы -
строй переброски в экранную область заставки меню, подго-
товленной в A RTSTU D ÎO или в другом графическом редакто-
ре. При написании заставки меню в A RTSTUDIO запишите па
ленту полученную заставку меню по адресу 43000. В программу
на Бейсике вставьте строку LOAD “M EN U ” CODE 43000,6912.
Теперь, если нужно быстро получить на экране заставку меню,
достаточно в нужном месте вставить строку R A N D O M IZ E
USR 60435.
Таким образом, используя блок машинных кодов (табл.1) и
зная все входные точки, адреса хранения констант п адреса запус-
ка процедур, возможно написание своей программы (Бейспковой
части), которая удовлетворяет ваши возможности п желания.
Я использовал компьютер “Сантака 002” . В нем прописные
английские символы заменены на заглавные русские. Это позво-
ляет принимать тексты на русском языке. Таким образом, загру-
зив в ваш компьютер знакогенератор подобного типа, вы полу-
чаете возможность принимать тексты на русском языке.
1
РО КЕ 23609, 100: BO R D ER 4
3 LO AD “R T T Y C ” CO DE 60000,447
5 R AN D O M IZE U SR 60003
6 L E T V I =50: L E T V2 = 6
9 PO KE 60244, V I: PO KE 60245, V2: PO KE 60000, V I: PO KE 60001, V2
10 O U T 31.0:CLS : P R IN T “В Ы Б Е Р И Т Е РЕЖ И М ” : PA U SE 0 : L E T
A = PEEK 23560
20 IF A = 49 TH EN GOTO 999
21 IF A = 50 TH EN GOTO 1500
22 IF A = 51 TH EN GOTO 2000
23 IF A = 52 TH EN GOTO 2500
24 IF A = 53 TH EN GOTO 3000
25 IF A = 54 TH EN GOTO 3500
26 IF A = 55 TH EN GOTO 4000
27 PAUSE 0: GOTO 10
999 P R IN T : P R IN T “П ЕРЕД А Ч А С К Л А ВИ А ТУ РЫ ”
1000 O U T 3 1,2 :B E E P 0 .1 .2 0 :B E E P 0.1,1():B EEP 0.1,20:PO KE
60246,3 L P O K E 60247, 31
1003 PAUSE 0
1006 L E T S= PEEK 23560:BEEP 0.1,20:POKE 60243,S:PR IN TC H R $S;:IF
S = 226 TH EN GOTO 10
1007 IF S = 9 TH EN GOTO 1539
1008 RA N D O M IZE U SR 60248
1010 GOTO 1003
1500 C L S : P R IN T : P R IN T “П Е Р Е Д А Ч А ИЗ Б У Ф Е Р А ” , : P R IN T
“НОМ ЕР БУФ ЕРА - ” ;
1510 O U T 31,2:PAUSE 0 :L E T D = P E E K 23560
1511 IF D = 49 TH EN L E T F = 50000: GOTO 1530
1512 IF D = 50 TH EN L E T F = 50500: GOTO 1530
1513 IF D = 51 TH EN L E T F = 51000: GOTO 1530
1514 IF D = 52 TH EN L E T F = 51500: GOTO 1530
1515 IF D = 53 TH EN L E T F = 52000: GOTO 1530
1516 IF D = 54 TH EN L E T F = 52500: GOTO 1530
1517 IF D = 55 TH EN L E T F = 53000: GOTO 1530
1518 IF D = 56 TH EN L E T F = 53500: GOTO 1530
1519 IF D = 57 TH EN L E T F = 54000: GOTO 1530
1520 GOTO 1510
1530 P R IN T CHR$ D: FO R G = 0 TO 500: L E T H = P E E K (G + F ):IF H
= 226 TH EN GOTO 1540
1532 IF H = 35 TH EN GOTO 1000
1538 PR IN T CHR$ H ;:PO KE 60243,H :RA N D O M IZE U SR 60248
1539 PO KE 23692, 200: N E X T G
1540 PR IN T : PR IN T “ МЕНЮ - M, ПРОДОЛЖИТЬ — П РО БЕЛ”
1542 L E T K$ = IN K EYS : IF K$ =“M" TH EN GOTO 10
1544 IF K$ = “ " TH EN GOTO 1500
1545 GOTO 1542
2015 PR IN T : PR IN T “ПРИ ЕМ ”
2020 RAN D O M IZE U SR 60023
2025 PO KE 23692, 200
2030 L E T VS = IN K E Y S
2040 IF V$ = “M" TH EN GOTO 10
2050 GOTO 2020
2500 PR IN T “НОМ ЕР БУФ ЕРА- ” ;
2501 PAUSE 0: L E T G = P E E K 23560
2511 IF G = 49 TH EN L E T H = 50000: GOTO 2530
2512 IF G = 50 TH EN L E T H = 50500: GOTO 2530
2513 IF G = 51 TH EN L E T H = 51000: GOTO 2530
2514 IF G = 52 TH EN L E T H = 51500: GOTO 2530
2515 IF G = 53 TH EN L E T H = 52000: GOTO 2530
2516 IF G = 54 TH EN L E T H = 52500: GOTO 2530
2517 IF G = 55 TH EN L E T H = 53000: GOTO 2530
2518 IF G = 56 TH EN L E T H = 53500: GOTO 2530
2519 IF G = 57 TH EN L E T H = 54000: GOTO 2530
2520 GOTO 2501
2530 PR IN T CHRS G: PAUSE 200
2531 FO R J=0 TO 500:BEEP 0 .1,20:LET K = P E E K 23650:PRINT
CHRS K ;:P O K E H + J, К
2532 IF К = 226 TH EN GOTO 2536
2534 PAUSE 0: N E X T J
2536 PR IN T “Б УФ ЕР ЗАП О ЛН ЕН” : GOTO 10
3000 C LS : PR IN T A T 3, 8; “ЗАП И СЫ ВАЕМ СОДЕРЖ И М О Е
БУФ ЕРО В ИЗ М АГНИ ТО Ф О Н А В П АМ ЯТЬ"
3005 LO A D “IN FO ” CO DE 50000,4500
ЗОЮ GOTO 10
3500 C LS : PR IN T A T 3, 8; “ЗАП И СЫ ВАЕМ СОДЕРЖ И М О Е
БУФ ЕРО В ИЗ П АМ ЯТИ НА М АГНИ ТО Ф О Н”
3505 SAVE “IN FO ” CODE 50000,4500
3510 GOTO 10
4000 RAN DO M IZE U SR 0
Литература
1. Радіолюбитель, 1994 г., N 6.
2. Радіо, 1988 г., NN 10-11.
3. Радиолюбитель, 1992 г., N 5, с.6.
^
А.АРНОЛЬД^
640032, г.Курган,
ул.Тельмана, 4-144.
О ВВОДЕ
НЕСОВМЕСТИМОЙ
ЗАПИСИ
И ногда возникает потребность ввести в компьютер про-
граммы, записанные на ленте на другом компьютере. Данная
короткая программа позволяет считать на Радпо-86РК про-
грамму, записанную в формате “Специалиста”. Запускается
программа с начального адреса после прохождения на ленте
имени файла. П еред запуском программы по директиве М
смените константу воспроизведения в ячейке 762FH с 2А на
20.
После ввода программы п выхода в монитор нужно про-
верить обычным способом контрольную сумму считанной
програм мы.
76d0 ЗЕ FF CD FF FA CD 76 76
ЕВ CD FD FA CD 76 76 EB 2F0F
7670 CD C4 FA C3 6C F8 00 68 61
C9 00 00
00 00 00 00 4A44
,
CS=6553
,
11
Радиолюбитель 10/95
предыдущая страница 12 Радиолюбитель 1995-10 читать онлайн следующая страница 14 Радиолюбитель 1995-10 читать онлайн Домой Выключить/включить текст