Различия

Здесь показаны различия между двумя версиями данной страницы.

--- msx:basic_dialogue_programming_language:102 [2023-02-11 18:26]
GreyWolf [1.2.4. Примеры]
+++ msx:basic_dialogue_programming_language:102 [2023-06-12 00:03] (текущий)
GreyWolf
@@ Строка 4: / Строка 4: @@
 {{anchor:n1022}}
 ====== 1.2. Использование подпрограмм BIOS ======
-FIXME
-[[msx:bios|]]
+<WRAP group 99%>
-<WRAP group  99%>
 <WRAP half column> \\ </WRAP>
 <WRAP half column><WRAP right>
 Когда книга сталкивается с головой — и при
-//этом раздается  глухой  звук, разве всегда
+//этом раздается глухой звук, разве всегда
 //виновата книга.
 <WRAP rightalign>
@@ Строка 24: / Строка 21: @@
 Подпрограммы BIOS ("Basic Input–Output System") имеют фиксированные адреса ROM, которые называются //входными// точками.
 <WRAP center round important 100%>
-Прежде чем Вы начнете разработку собственных подпрограмм,написанных в машинных кодах,рекомендуем тщательно изучить, что делают подпрограммы BIOS.
+Прежде чем Вы начнете разработку собственных подпрограмм, написанных в машинных кодах,рекомендуем тщательно изучить, что делают подпрограммы
+[[msx:bios|BIOS]].
 </WRAP>
-Достаточно одного взгляда на описание подпрограмм BIOS, чтобы заметить, что некоторые подпрограммы для работы  //не требуют// ввода параметров.
+Достаточно одного взгляда на описание подпрограмм [[msx:bios|BIOS]], чтобы заметить, что некоторые подпрограммы для работы //не требуют// ввода параметров.
 Проиллюстрируем использование таких подпрограмм.
 {{anchor:e10201-01}} __//Пример 1//__. //Инициализация// системы.
 <code>
 DEFUSR=0:A=USR(0)
@@ Строка 40: / Строка 38: @@
 {{anchor:e10201-02}} __//Пример 2//__. \\ {{.examples:10201-02.bas|}} \\ [[+tab|wmsxbpge>10201-02.bas]]
-\\ //Инициализация// значений функциональных клавиш. Если Вам время от времени необходимо  возвращение к стандартному определению значений, присвоенных  функциональным клавишам, то поступите следующим образом:
+\\ //Инициализация// значений функциональных клавиш. Если Вам время от времени необходимо возвращение к стандартному определению значений, присвоенных функциональным клавишам, то поступите следующим образом:
 <code>
 KEY 1,"AAAA":KEY 2,"BBBB"
@@ Строка 49: / Строка 47: @@
 Программа BIOS с именем INIFNK по адресу &H3E переопределяет функциональные клавиши. Однако следует выполнить оператор ''KEY ON,'' чтобы увидеть результат на экране дисплея.
-{{anchor:e10201-03}} __//Пример 3//__. //Включение и выключение экрана.// Если Вы хотите моментально вывести большое количество информации на экран, то можно вначале "выключить" экран, затем  выполнить операторы вывода информации, а только после этого "включить" экран.
+{{anchor:e10201-03}} __//Пример 3//__. //Включение и выключение экрана.// Если Вы хотите моментально вывести большое количество информации на экран, то можно вначале "выключить" экран, затем выполнить операторы вывода информации, а только после этого "включить" экран.
 <WRAP round box>
-Подпрограмма BIOS с именем DISSCR, расположенная по адресу  &H41 , //"выключает"// экран, тогда как подпрограмма  с именем  ENASCR, расположенная по адресу &H44 , //"включает"// его.
+Подпрограмма BIOS с именем DISSCR, расположенная по адресу &H41 , //"выключает"// экран, тогда как подпрограмма с именем ENASCR, расположенная по адресу &H44 , //"включает"// его.
 </WRAP>
@@ Строка 102: / Строка 100: @@
 DEFUSR=&HCC:A=USR(A) </code>
-<WRAP group  99%>
+<WRAP group 99%>
 <WRAP half column> \\ </WRAP>
 <WRAP half column><WRAP right>
-Может ли лакомка  не есть, если стол
+Может ли лакомка не есть, если стол
-\\ перед ним ломится от яств? Пусть  же
+\\ перед ним ломится от яств? Пусть же
 \\ он утолит, наконец, голод и жажду!
 <WRAP rightalign>
@@ Строка 116: / Строка 114: @@
 ===== 1.2.2. Подпрограммы BIOS, требующие параметров =====
-Заметим, что большинство подпрограмм BIOS требуют для своей работы  передачи параметров, значения которых должны быть помещены  в  определенные регистры перед вызовом подпрограмм.
+Заметим, что большинство подпрограмм BIOS требуют для своей работы передачи параметров, значения которых должны быть помещены в определенные регистры перед вызовом подпрограмм.
 Такие подпрограммы обычно запускаются программой,написанной в машинных кодах и состоящей из:
@@ Строка 122: / Строка 120: @@
   * β) вызова нужной подпрограммы BIOS.
-Ознакомим Вас с приемами написания подпрограмм на машинном  языке, требующих для своей работы передачи параметров.
+Ознакомим Вас с приемами написания подпрограмм на машинном языке, требующих для своей работы передачи параметров.
-{{anchor:e10202-01}} __//Пример 1//__. Программа, включающая  и  выключающая  индикатор  CAPS (ввод заглавных букв).\\ {{.examples:10201-01.bas|}} \\ [[+tab|wmsxbpge>10201-02.bas]]
+{{anchor:e10202-01}} __//Пример 1//__. Программа, включающая и выключающая индикатор CAPS (ввод заглавных букв).
 Подпрограмма BIOS с именем CHGCAP,расположенная по адресу &H0132 выключает индикатор "CAPS", если регистр A процессора содержит ненулевое значение, и включает индикатор "CAPS", если этот регистр содержит 0.
@@ Строка 137: / Строка 135: @@
 </code>
 А теперь приведем запись программы на машинном языке (в шестнадцатеричных кодах):
+\\ {{.examples:10202-01.asm|}}
 <code>
 E, 00        LD A,0
@@ Строка 143: / Строка 142: @@
 </code>
 и на языке [[msx:basic:|]]:
+\\ {{.examples:10202-01.bas|}} \\ [[+tab|wmsxbpge>10202-01.bas]]
 <code>
 CLEAR 200,&HD000          ' Резервирование области в RAM
@@ Строка 165: / Строка 165: @@
-Отметим, что использование оператора CLEAR — это  не  единственный способ выделения //защищенной// области в RAM. Может быть также "передвинута" Таблица PIT; тогда все машинные подпрограммы могут быть введены в область, начинающуюся с адреса &Н8000.
+Отметим, что использование оператора ''CLEAR'' — это не единственный способ выделения //защищенной// области в RAM. Может быть также "передвинута" Таблица PIT; тогда все машинные подпрограммы могут быть введены в область, начинающуюся с адреса &Н8000.
-{{anchor:e10202-02}} __//Пример 2//__. Включение и выключение индикатора CAPS в соответствии со значением аргумента функции ''USR''. \\ {{.examples:10202-02.bas|}} \\ [[+tab|wmsxbpge>10202-02.bas]]
+{{anchor:e10202-02}} __//Пример 2//__. Включение и выключение индикатора CAPS в соответствии со значением аргумента функции ''USR''.
 <WRAP round box>
-Для передачи //однобайтного//  аргумента подпрограмме вызовите подпрограмму, размещенную в ROM по адресу &H521F. Аргумент передается в регистр А.
+Для передачи //однобайтного// аргумента подпрограмме вызовите подпрограмму, размещенную в ROM по адресу &H521F. Аргумент передается в регистр А.
 </WRAP>
 На языке ассемблера это пишется следующим образом:
+\\ {{.examples:10202-02.asm|}}
 <code>
 CD,1F,52    CALL  521F  ; Вызов подпрограммы по адресу 521F
@@ Строка 180: / Строка 181: @@
 </code>
 Приведем окончательную программу:
+\\ {{.examples:10202-02.bas|}} \\ [[+tab|wmsxbpge>10202-02.bas]]
 <code>
 CLEAR 200,&HD000 'Резервирование области в RAM
@@ Строка 193: / Строка 195: @@
 <WRAP round box>
-Для передачи подпрограмме //двухбайтного// значения (например, адреса) используется подпрограмма, размещенная в ROM по  адресу &H2F8A и использующая значение, хранящееся в шестнадцатибитном регистре HL.
+Для передачи подпрограмме //двухбайтного// значения (например, адреса) используется подпрограмма, размещенная в ROM по адресу &H2F8A и использующая значение, хранящееся в шестнадцатибитном регистре HL.
 </WRAP>
@@ Строка 259: / Строка 261: @@
 </code>
-{{anchor:e10202-03}} __//Пример 3//__. Запись в видеопамять. Изменение латинской буквы "A".\\ {{.examples:10201-03.bas|}} \\ [[+tab|wmsxbpge>10201-03.bas]]
+{{anchor:e10202-03}} __//Пример 3//__. Запись в видеопамять. Изменение латинской буквы "A".\\ {{.examples:10202-03.bas|}} \\ [[+tab|wmsxbpge>10202-03.bas]]
 <code>
 CLEAR 200,&H9000:SCREEN 1
@@ Строка 275: / Строка 277: @@
 </code>
-{{anchor:e10202-04}} __//Пример 4//__. Запись данных в регистр видеопроцессора (VDP).\\ {{.examples:10201-04.bas|}} \\ [[+tab|wmsxbpge>10201-04.bas]]
+{{anchor:e10202-04}} __//Пример 4//__. Запись данных в регистр видеопроцессора (VDP).\\ {{.examples:10202-04.bas|}} \\ [[+tab|wmsxbpge>10202-04.bas]]
 <code>
 INPUT C,B:POKE &HA000,C:POKE &HA001,B 'C - регистр, B - значение
@@ Строка 290: / Строка 292: @@
 </code>
-{{anchor:e10202-05}} __//Пример 5//__. Использование подпрограммы расширенного  BIOS  для  построения линии.\\ {{.examples:10201-05.bas|}} \\ [[+tab|wmsxbpge>10201-05.bas]]
+{{anchor:e10202-05}} __//Пример 5//__. Использование подпрограммы расширенного BIOS для построения линии.\\ {{.examples:10202-05.bas|}} \\ [[+tab|wmsxbpge>10202-05.bas]]
 <code>
 DATA 01,10,00            :' LD BC, начальная X-координата
@@ Строка 307: / Строка 309: @@
 </code>
-{{anchor:e10202-06}} __//Пример 6//__. \\ {{.examples:10201-06.bas|}} \\ [[+tab|wmsxbpge>10201-06.bas]]
+{{anchor:e10202-06}} __//Пример 6//__. \\ {{.examples:10202-06.bas|}} \\ [[+tab|wmsxbpge>10202-06.bas]]
 <code>
 'Автор программы: Беленький Г. (9 класс). 05.01.90
 DATA 01,00,00                 :' LD  BC, X начальное
 DATA 11,00,00                 :' LD  DE, ∗∗∗∗  ◀─────────────────┐
@@ Строка 328: / Строка 330: @@
 </code>
-{{anchor:e10202-07}} __//Пример 7//__. Использование подпрограммы расширенного  BIOS  для  построения прямоугольника \\ {{.examples:10201-07.bas|}} \\ [[+tab|wmsxbpge>10201-07.bas]]
+{{anchor:e10202-07}} __//Пример 7//__. Использование подпрограммы расширенного BIOS для построения прямоугольника \\ {{.examples:10202-07.bas|}} \\ [[+tab|wmsxbpge>10202-07.bas]]
 <code>
 DATA 01,10,00     :'LD  BC, X-координата одного угла прямоугольника
@@ Строка 347: / Строка 349: @@
 В заключении пункта приведем более сложный пример.
-{{anchor:e10202-08}} __//Пример 8//__. "Утолщение" символов в режиме SCREEN 1. \\ {{.examples:10201-08.bas|}} \\ [[+tab|wmsxbpge>10201-08.bas]]
+{{anchor:e10202-08}} __//Пример 8//__. "Утолщение" символов в режиме SCREEN 1. \\ {{.examples:10202-08.bas|}} \\ [[+tab|wmsxbpge>10202-08.bas]]
 <code>
 CLEAR 300,&HD000
@@ Строка 363: / Строка 365: @@
 DATA CD,6F,00 :'D00B   CALL 006Fh     ;Установка режима SCREEN 1
 DATA 16,00    :'D00E   LD   D,0       ;
 DATA 06,FF    :'D010   LD   B,FFh     ;255 символов
 DATA 21,00,00 :'D012   LD   HL,0      ;
 DATA 3E,08    :'D015   LD   A,8       ;
@@ Строка 390: / Строка 392: @@
 </code>
-__//Примечание//__. Для написания программ на машинном  языке обычно требуется //программа–монитор//(т.е. программа, позволяющая подключать подпрограммы, написанные на машинном языке).
+__//Примечание//__. Для написания программ на машинном языке обычно требуется //программа–монитор//(т.е. программа, позволяющая подключать подпрограммы, написанные на машинном языке).
-Если Вы не пользуетесь программой-монитором, то приходится вводить данные в операторах DATA, как мы это только  что проделали. Однако  для длинных программ этот метод утомителен. При малейшей ошибке система часто "зависает"; естественный выход при этом - нажать кнопку сброса "RESET",а это означает, что все должно быть начато заново.
+Если Вы не пользуетесь программой-монитором, то приходится вводить данные в операторах DATA, как мы это только что проделали. Однако для длинных программ этот метод утомителен. При малейшей ошибке система часто "зависает"; естественный выход при этом - нажать кнопку сброса "RESET",а это означает, что все должно быть начато заново.
 Перед проверкой таких подпрограмм убедитесь,что они записаны на дискету!
@@ Строка 399: / Строка 401: @@
 ===== 1.2.3. Подпрограммы BIOS, возвращающие параметры =====
-<WRAP group  99%>
+<WRAP group 99%>
 <WRAP half column> \\ </WRAP>
 <WRAP half column><WRAP right>
@@ Строка 409: / Строка 411: @@
 </WRAP></WRAP>
-Многие подпрограммы BIOS возвращают один или несколько параметров. Эти результаты, разумеется, можно передать через ячейки  RAM  с явно заданным адресом непосредственно перед выходом из подпрограммы. В дальнейшем применение функции ''PEEK'' позволит Вам прочитать полученные данные.
+Многие подпрограммы BIOS возвращают один или несколько параметров. Эти результаты, разумеется, можно передать через ячейки RAM с явно заданным адресом непосредственно перед выходом из подпрограммы. В дальнейшем применение функции ''PEEK'' позволит Вам прочитать полученные данные.
-Однако, когда подпрограмма возвращает только одно значение, проще  всего присвоить его результат переменной в операторе:
+Однако, когда подпрограмма возвращает только одно значение, проще всего присвоить его результат переменной в операторе:
 <WRAP group>
 <WRAP half column>
@@ Строка 425: / Строка 427: @@
 где:
   * α) ''USR'' ("USeR"-"пользователь") — служебное слово;
-  * β)  R — имя переменной-результата работы подпрограммы;
+  * β) R — имя переменной-результата работы подпрограммы;
-  * γ) A — арифметическое выражение, значение которого совпадает со  значением аргумента.
+  * γ) A — арифметическое выражение, значение которого совпадает со значением аргумента.
-{{anchor:e10203-01}} __//Пример 1//__. Проверка состояния джойстиков и передача значений через переменную в программу на [[msx:basic:|]].\\ {{.examples:10203-01.bas|}} \\ [[+tab|wmsxbpge>10203-01.bas]]
+{{anchor:e10203-01}} __//Пример 1//__. Проверка состояния джойстиков и передача значений через переменную в программу на [[msx:basic:|]].
-Подпрограмма с именем GTSTCK позволяет ввести данные с одного из  трех джойстиков. Джойстик при этом выбирается по содержимому регистра  А (0, 1 или 2); прочитанное значение помещается в регистр А.
+Подпрограмма с именем GTSTCK позволяет ввести данные с одного из трех джойстиков. Джойстик при этом выбирается по содержимому регистра А (0, 1 или 2); прочитанное значение помещается в регистр А.
+Если номер джойстика задается посредством аргумента функции ''USR()'', то подпрограмма может быть "запущена" путем обращения к подпрограмме ROM, начинающейся с адреса &H521F. Как только значение аргумента помещено в регистр А, вызывается подпрограмма с именем GTSTCK. Содержимое регистра А (состояние джойстика) затем передается в основную программу через регистр HL.
+<WRAP round box>
+Подпрограмма, размещенная с адреса &H2F99, передает содержимое регистра HL программе, составленной на языке [[msx:basic:|]].
+</WRAP>
+Подпрограмма на языке ассемблера выглядит следующим образом:
+\\ {{.examples:10203-01.asm|}}
 <code>
-Если номер джойстика задается посредством аргумента  функции USR(), то
+D000  CD,1F,52   CALL  521F ; В A помещается однобайтный аргумент
-подпрограмма может быть "запущена" путем обращения к подпрограмме ROM, на-
+D003  CD,D5,00   CALL  00D5 ; A=STICK(A)
-чинающейся с адреса &H521F. Как только значение аргумента помещено  в  ре-
+D006  26,00      LD    H,0  ; В регистр H помещается 0
-гистр А, вызывается подпрограмма с именем GTSTCK. Содержимое  регистра  А
+D008  6F         LD    L,A  ; Содержимое А помещается в L
-(состояние джойстика) затем передается  в  основную  программу  через  ре-
+D00A  C3,99,2F   JP    2F99 ; Содержимое регистра HL передается
-гистр HL.
+                            ; основной программе
-   ┌────────────────────────────────────────────────────────────────┐
+D00D  C9         RET
-   │ Подпрограмма, размещенная с адреса &H2F99, передает содержимое │
+</code>
-   │     регистра  HL программе, составленной на языке MSX-BASIC.   │
+Приведем теперь программу на языке [[msx:basic:|]].
-   └────────────────────────────────────────────────────────────────┘
+\\ {{.examples:10203-01.bas|}} \\ [[+tab|wmsxbpge>10203-01.bas]]
-   Подпрограмма на языке ассемблера выглядит следующим образом:
+<code>
-    D000  CD,1F,52   CALL  521F ; В  A помещается однобайтный аргумент
+CLEAR 200,&HD000 'Резервирование области в RAM
-    D003  CD,D5,00   CALL  00D5 ; A=STICK(A)
+AD=&HD000
-    D006  26,00      LD    H,0  ; В регистр H помещается 0
+READ A$:IF A$="Z" THEN 100
-    D008  6F         LD    L,A  ; Содержимое А помещается в L
+A=VAL("&H"+A$):POKE AD,A:AD=AD+1:GOTO 30
-    D00A  C3,99,2F   JP    2F99 ; Содержимое регистра HL передается
+DEFUSR=&HD000
-                                ; основной программе
+A=USR(0)
-    D00D  C9         RET
+IF A<>0 THEN PRINT A
-   Приведем теперь программу на языке MSX-BASIC.
+GOTO 110
-CLEAR 200,&HD000 'Резервирование области в RAM
+DATA CD,1F,52  :' CALL 521F
-AD=&HD000
+DATA CD,D5,00  :' CALL 00D5
-READ A$:IF A$="Z" THEN 100
+DATA 26,00     :' LD   H,0
-A=VAL("&H"+A$):POKE AD,A:AD=AD+1:GOTO 30
+DATA 6F        :' LD   L,A
-DEFUSR=&HD000
+DATA C3,99,2F  :' JP   2F99
-A=USR(0)
+DATA C9,"Z"    :' RET
-IF A<>0 THEN PRINT A
+</code>
-GOTO 110
-DATA CD,1F,52  :' CALL 521F
-DATA CD,D5,00  :' CALL 00D5
-DATA 26,00     :' LD   H,0
-DATA 6F        :' LD   L,A
-DATA C3,99,2F  :' JP   2F99
-DATA C9,"Z"    :' RET
-   Вы легко убедитесь, что функция USR(0) здесь "работает" точно  так же,
-как функция  STICK(0)!
-   Перечислим теперь некоторые подпрограммы, возвращающие параметры:
-) чтение из видеопамяти
-                       LD    HL,adrVRAM
-                       CALL  004A
-                       LD    H,0
-                       LD    L,A
-                       CALL  2F99
-                       RET
-) начальный адрес атрибутов спрайта
-                       CALL  521F
-                       CALL  004A
-                       CALL  2F99
-                       RET
-) размер спрайта
-                       CALL  008A
-                       LD    H,0
-                       LD    L,A
-                       CALL  2F99
-                       RET
-) чтение числа из звукогенератора
-                       CALL  521F
-                       CALL  0096
-                       LD    H,0
-                       LD    L,A
-                       CALL  2F99
-                       RET
-) задержка до нажатия клавиши и чтение ее кода
-                       CALL  009F
-                       LD    H,0
-                       LD    L,A
-                       CALL  2F99
-                       RET
-) чтение состояния рукоятки джойстика
-                       CALL  521F
-                       CALL  00D5
-                       LD    H,0
-                       LD    L,A
-                       CALL  2F99
-                       RET
-) чтение состояния кнопки джойстика
-                       CALL  521F
-                       CALL  00D8
-                       LD    H,0
-                       LD    L,A
-                       CALL  2F99
-                       RET
-) чтение состояния клавиши на графическом планшете
-                       CALL  521F
-                       CALL  00DB
-                       LD    H,0
-                       LD    L,A
-                       CALL  2F99
-                       RET
-) чтение статуса манипулятора PDL
-                       CALL  521F
-                       CALL  00DE
-                       LD    H,0
-                       LD    L,A
-                       CALL  2F99
-                       RET
+Вы легко убедитесь, что функция ''USR(0)'' здесь "работает" точно так же, как функция ''STICK(0)''!
+Перечислим теперь некоторые подпрограммы, возвращающие параметры:
+  - 1) чтение из видеопамяти <code>
+LD    HL,adrVRAM
+CALL  004A
+LD    H,0
+LD    L,A
+CALL  2F99
+RET
+</code>
+  - 2) начальный адрес атрибутов спрайта <code>
+CALL  521F
+CALL  004A
+CALL  2F99
+RET
+</code>
+  - 3) размер спрайта <code>
+CALL  008A
+LD    H,0
+LD    L,A
+CALL  2F99
+RET
+</code>
+  - 4) чтение числа из звукогенератора <code>
+CALL  521F
+CALL  0096
+LD    H,0
+LD    L,A
+CALL  2F99
+RET
+</code>
+  - 5) задержка до нажатия клавиши и чтение ее кода <code>
+CALL  009F
+LD    H,0
+LD    L,A
+CALL  2F99
+RET
+</code>
+  - 6) чтение состояния рукоятки джойстика <code>
+CALL  521F
+CALL  00D5
+LD    H,0
+LD    L,A
+CALL  2F99
+RET
+</code>
+  - 7) чтение состояния кнопки джойстика <code>
+CALL  521F
+CALL  00D8
+LD    H,0
+LD    L,A
+CALL  2F99
+RET
+</code>
+  - 8) чтение состояния клавиши на графическом планшете <code>
+CALL  521F
+CALL  00DB
+LD    H,0
+LD    L,A
+CALL  2F99
+RET
+</code>
+  - 9) чтение статуса манипулятора PDL <code>
+CALL  521F
+CALL  00DE
+LD    H,0
+LD    L,A
+CALL  2F99
+RET
 </code>
@@ Строка 536: / Строка 547: @@
 ===== 1.2.4. Примеры =====
+{{anchor:e10204-01}} __//Пример 1//__. Чтение символа с заданной позицией из буфера клавиатуры
+\\ {{.examples:10204-01.bas|}} \\ [[+tab|wmsxbpge>10204-01.bas]]
 <code>
-   П р и м е р 1. Чтение символа с заданной позицией из буфера клавиатуры
+CLEAR 200,&HA000:DEFUSR=&HA000:POKE &HA100,2 '◀── Позиция символа
-   ─────────────
+FOR I=0 TO 14:READ R$:POKE &HA000+I,VAL("&h"+R$):NEXT
-CLEAR 200,&HA000:DEFUSR=&HA000:POKE &HA100,2 '◀── Позиция символа
+Z=USR(0)
-FOR I=0 TO 14:READ R$:POKE &HA000+I,VAL("&h"+R$):NEXT
+DATA CD,B4,00       :'  CALL  00B4h
-Z=USR(0)
+DATA 3A,00,A1       :'  LD    A,(A100h)
-DATA CD,B4,00       :'  CALL  00B4h
+DATA 4F             :'  LD    C,A
-DATA 3A,00,A1       :'  LD    A,(A100h)
+DATA 06,00          :'  LD    B,0
-DATA 4F             :'  LD    C,A
+DATA 09             :'  ADD   HL,BC
-DATA 06,00          :'  LD    B,0
+DATA 7E             :'  LD    A,(HL)
-DATA 09             :'  ADD   HL,BC
+DATA CD,A2,00      :'  CALL  00A2h
-DATA 7E             :'  LD    A,(HL)
+DATA C9            :'  RET
-DATA CD,A2,00      :'  CALL  00A2h
+</code>
-DATA C9            :'  RET
-   П р и м е р 2.   Вывод на экран слова "Миша"!
+{{anchor:e10204-02}} __//Пример 2//__. Вывод на экран слова "Миша"!
-   ─────────────
+\\ {{.examples:10204-02.bas|}} \\ [[+tab|wmsxbpge>10204-02.bas]]
-AD=&HD000:DEFUSR=&HD000
+<code>
-READ A$:IF A$="Z" THEN A=USR(0):END
+AD=&HD000:DEFUSR=&HD000
-POKE AD,VAL("&h"+A$)
+READ A$:IF A$="Z" THEN A=USR(0):END
-AD=AD+1:GOTO 20
+POKE AD,VAL("&h"+A$)
-DATA  3E,ED     :' LD   A,ED
+AD=AD+1:GOTO 20
-DATA  CD,A2,00  :' CALL 00A2h;Вывод на экран содержимого регистра А
+DATA  3E,ED     :' LD   A,ED
-DATA  3E,C9     :' LD   A,C9
+DATA  CD,A2,00  :' CALL 00A2h;Вывод на экран содержимого регистра А
-DATA  CD,A2,00  :' CALL 00A2h;Вывод на экран содержимого регистра А
+DATA  3E,C9     :' LD   A,C9
-DATA  3E,DB     :' LD   A,DB
+DATA  CD,A2,00  :' CALL 00A2h;Вывод на экран содержимого регистра А
-DATA CD,A2,00  :' CALL 00A2h;Вывод на экран содержимого регистра А
+DATA  3E,DB     :' LD   A,DB
-DATA 3E,C1     :' LD   A,C1
+DATA CD,A2,00  :' CALL 00A2h;Вывод на экран содержимого регистра А
-DATA CD,A2,00  :' CALL 00A2h;Вывод на экран содержимого регистра А
+DATA 3E,C1     :' LD   A,C1
-DATA C9        :' RET
+DATA CD,A2,00  :' CALL 00A2h;Вывод на экран содержимого регистра А
-DATA "Z"       :' К о н е ц
+DATA C9        :' RET
+DATA "Z"       :' К о н е ц
+</code>
-   П р и м е р  3.    Вывод на экран дисплея  н е п о д в и ж н о г о
+{{anchor:e10204-03}} __//Пример 3//__. Вывод на экран дисплея //неподвижного// спрайта.
-   ──────────────     спрайта.
+\\ {{.examples:10204-03.bas|}} \\ [[+tab|wmsxbpge>10204-03.bas]]
-SCREEN 1
+<code>
-KEY OFF:CLEAR 300,&HD000:I=&HD000
+SCREEN 1
-READ A$:IF A$="z" THEN SCREEN 1:GOTO 50
+KEY OFF:CLEAR 300,&HD000:I=&HD000
-POKE I,VAL("&h"+A$):I=I+1:GOTO 30
+READ A$:IF A$="z" THEN SCREEN 1:GOTO 50
-DEFUSR=&HD00C:A=USR(0)
+POKE I,VAL("&h"+A$):I=I+1:GOTO 30
-  DATA FF,FF,C3,C3:'Д а н н ы е
+DEFUSR=&HD00C:A=USR(0)
-  DATA C3,C3,FF,FF:'Д а н н ы е
+  DATA FF,FF,C3,C3:'Д а н н ы е
-  DATA 64,01,00,0F:'X, Y, Ш а б л о н , Ц в е т
+  DATA C3,C3,FF,FF:'Д а н н ы е
-  DATA 21,00,D0   :'LD   HL,D000
+  DATA 64,01,00,0F:'X, Y, Ш а б л о н , Ц в е т
-DATA 11,00,38   :'LD   DE,3800
+  DATA 21,00,D0   :'LD   HL,D000
-DATA 01,08,00   :'LD   BC,0008
+DATA 11,00,38   :'LD   DE,3800
-DATA CD,5C,00   :'CALL 005C
+DATA 01,08,00   :'LD   BC,0008
-DATA 21,08,D0   :'LD   HL,D008
+DATA CD,5C,00   :'CALL 005C
-DATA 11,00,1B   :'LD   DE,1B00
+DATA 21,08,D0   :'LD   HL,D008
-DATA 01,04,00   :'LD   BC,0004
+DATA 11,00,1B   :'LD   DE,1B00
-DATA CD,5C,00   :'CALL 005C
+DATA 01,04,00   :'LD   BC,0004
-DATA 21,09,D0   :'LD   HL,D009
+DATA CD,5C,00   :'CALL 005C
-DATA 34         :'INC  (HL)
+DATA 21,09,D0   :'LD   HL,D009
-DATA C9         :'RET
+DATA 34         :'INC  (HL)
-DATA"z"         :'К о н е ц
+DATA C9         :'RET
-   П р и м е р  4.   Вывод на экран дисплея  д в и ж у щ е г о с я
+ DATA"z"         :'К о н е ц
-   ──────────────    спрайта
+</code>
-SCREEN 1
-KEY OFF:CLEAR 300,&HD000:I=&HD000
-READ A$:IF A$="z" THEN SCREEN 1:GOTO 50
-POKE I,VAL("&h"+A$):I=I+1:GOTO 30
-DEFUSR=&HD00C:A=USR(0)
-  DATA FF,FF,C3,C3:'Д а н н ы е
-  DATA C3,C3,FF,FF:'Д а н н ы е
-  DATA 64,01,00,0F:'X, Y, Ш а б л о н , Ц в е т
-  DATA 21,00,D0   :'LD   HL,D000
-DATA 11,00,38   :'LD   DE,3800
-DATA 01,08,00   :'LD   BC,0008
-DATA CD,5C,00   :'CALL 005C
-DATA 21,08,D0   :'LD   HL,D008◀┐
-DATA 11,00,1B   :'LD   DE,1B00 │
-DATA 01,04,00   :'LD   BC,0004 │
-DATA CD,5C,00   :'CALL 005C    │
-DATA 21,09,D0   :'LD   HL,D009 │
-DATA 34         :'INC  (HL)    │
- DATA CD,BA,00   :'CALL 00BA    │
-DATA 06,F1,00   :'LD   B,F1◀─┐ │Задержка
-DATA 10,FD      :'DJNZ      ─┘ │Задержка
-DATA C3,17,D0   :'JP   D017 ───┘
-DATA"z"         :'К о н е ц
-П р и м е р  5.  Столкновение спрайтов
-──────────────
-POKE &HD000,0:KEYOFF
-SCREEN 1:SPRITE$(0)="orpolrplor":SPRITE$(1)="orplorlorlo"
-DEFUSR=&H9000:D=&H9000
-READ A$
-IF A$="z" THEN 180
-POKE D,VAL("&h"+A$)
-D=D+1
-GOTO 50
-DATA CD,3E,01   :' CALL 013E
-DATA E6,20      :' AND  20
-DATA FE,00      :' CP   0
-DATA C8         :' RET  Z
-DATA 3E,01      :' LD   A,1
-DATA 32,00,D0   :' LD   (D000),A
- DATA C9         :' RET
- DATA "z"        :' К о н е ц
-FOR I=0 TO 255:PUT SPRITE 1,(I,40),6,0:PUT SPRITE 2,(255-I,40),5,1
-A=USR(0):P=PEEK(&HD000):
-       IF P=1 THEN FOR K=0 TO 10:COLOR 1,15,15:COLOR 15,1,1:NEXT:
-       POKE &HD000,0
-NEXT:GOTO 180
-   П р и м е р  6.  Мгновенное "утолщение" символов!
-   ──────────────
-CLEAR 100,&HA000:AD=&HA000:DEFUSR=&HA000
-READ A$:IF A$="z"THEN 80
-POKE AD,VAL("&h"+A$):AD=AD+1:GOTO 30
-A=USR(0):END
-DATA CD,6F,00  :'  CALL  006Fh
-DATA 21,08,01 :'  LD    HL,0108h
-DATA 11,F8,07 :'  LD    DE,07F8h
-DATA CD,4A,00 :'  CALL  004Ah ◀──┐
-DATA 47       :'  LD    B,A      │
-DATA CB,38    :'  SRL   B        │
-DATA B0       :'  OR    B        │
-DATA CD,4D,00 :'  CALL  004Dh    │
-DATA 7D       :'  LD    A,L      │
-DATA BB       :'  CP    E        │
-DATA CA,1C,A0 :'  JP    Z,A01Ch──│──┐
-DATA 23       :'  INC   HL       │  │
-DATA C3,09,A0 :'  JP    A009  ───┘  │
-DATA 7A       :'  LD    A,D  ◀──────┘
-DATA BC       :'  CP    H
-DATA CA,25,A0 :'  JP    Z,A025h──┐
-DATA 23       :'  INC   HL       │
-DATA C3,09,A0 :'  JP    A009h    │
-DATA C9       :'  RET         ◀──┘
-DATA "z"      :'  К о н е ц
-   П р и м е р  7.  Образование слова-"перевертыша"
+{{anchor:e10204-04}} __//Пример 4//__. Вывод на экран дисплея //движущегося// спрайта
-   ──────────────
+\\ {{.examples:10204-04.bas|}} \\ [[+tab|wmsxbpge>10204-04.bas]]
-CLEAR 400,&HD000:DEFUSR=&HD00F:A=&HD00F
+<code>
- READ A$:IF A$="z" THEN R=USR(R):END ELSE 30
+ SCREEN 1
- POKE A,VAL("&h"+A$):A=A+1:GOTO 20
+KEY OFF:CLEAR 300,&HD000:I=&HD000
-  DATA CD,C3,00 :'  CALL 00C3   ; Очистка экрана
+ READ A$:IF A$="z" THEN SCREEN 1:GOTO 50
-  DATA CD,B4,00 :'  CALL 00B4   ; Ввод строки
+ POKE I,VAL("&h"+A$):I=I+1:GOTO 30
-  DATA 06,11    :'  LD   B,11h  ; Загрузка параметра цикла
+DEFUSR=&HD00C:A=USR(0)
-  DATA 23       :'  INC  HL     ; ◀──────┐
+  DATA FF,FF,C3,C3:'Д а н н ы е
-  DATA 10,FD    :'  DJNZ $-1    ; ───────┘
+  DATA C3,C3,FF,FF:'Д а н н ы е
-  DATA 06,11    :'  LD   B,11h  ; Загрузка параметра цикла
+  DATA 64,01,00,0F:'X, Y, Ш а б л о н , Ц в е т
- DATA 7E       :'  LD   A,(HL) ;
+  DATA 21,00,D0   :'LD   HL,D000
- DATA 2B       :'  DEC  HL     ;
+DATA 11,00,38   :'LD   DE,3800
- DATA CD,A2,00 :'  CALL 00A2   ; Печать символа, код которого содер-
+DATA 01,08,00   :'LD   BC,0008
-                                     ; жится в регистре A
+ DATA CD,5C,00   :'CALL 005C
- DATA 10,F9    :'  DJNZ $-5    ; Цикл,  организованный  для  печати
+DATA 21,08,D0   :'LD   HL,D008◀┐
-                                     ; слова
+ DATA 11,00,1B   :'LD   DE,1B00 │
- DATA C9       :'  RET         ; К о н е ц
+ DATA 01,04,00   :'LD   BC,0004 │
-DATA "z"
+DATA CD,5C,00   :'CALL 005C    │
+ DATA 21,09,D0   :'LD   HL,D009 │
+ DATA 34         :'INC  (HL)    │
+ DATA CD,BA,00   :'CALL 00BA    │
+DATA 06,F1,00   :'LD   B,F1◀─┐ │Задержка
+ DATA 10,FD      :'DJNZ      ─┘ │Задержка
+DATA C3,17,D0   :'JP   D017 ───┘
+ DATA"z"         :'К о н е ц
+</code>
-   П р и м е р  8.  Вычеркивание из слова латинской буквы "А"
+{{anchor:e10204-05}} __//Пример 5//__. Столкновение спрайтов
-   ──────────────
+\\ {{.examples:10204-05.bas|}} \\ [[+tab|wmsxbpge>10204-05.bas]]
-  CLEAR 200,&HD000:DEFUSR=&HD001:A=&HD001
+<code>
-  READ R$:IF R$="z" THEN 40
+ POKE &HD000,0:KEYOFF
-  POKE A,VAL("&h"+R$):A=A+1:GOTO 20
+SCREEN 1:SPRITE$(0)="orpolrplor":SPRITE$(1)="orplorlorlo"
-  P=USR(0)
+ DEFUSR=&H9000:D=&H9000
-  DATA CD,C3,00 :'CALL 00C3   ; Очистка экрана
+ READ A$
-  DATA CD,B4,00 :'CALL 00B4   ; Ввод строки
+ IF A$="z" THEN 180
-  DATA 3E,41    :'LD   A,41   ; Загрузка кода вычеркиваемого символа
+ POKE D,VAL("&h"+A$)
-  DATA 23       :'INC  HL     ;
+D=D+1
-  DATA BE       :'CP   (HL)   ;
+ GOTO 50
-  DATA 28,04    :'JR   Z,$+6  ;
+ DATA CD,3E,01   :' CALL 013E
- DATA 7E       :'LD   A,(HL) ;
+DATA E6,20      :' AND  20
-DATA CD,A2,00 :'CALL 00A2   ; Вывод символа с кодом,содержащимся в
+ DATA FE,00      :' CP   0
-                                   ; регистре А
+DATA C8         :' RET  Z
-DATA 3E,00    :'LD   A,00   ;
+ DATA 3E,01      :' LD   A,1
-DATA BE       :'CP   (HL)   ;
+ DATA 32,00,D0   :' LD   (D000),A
-DATA 28,02    :'JR   Z,$+3  ; Выход из программы по биту Z
+ DATA C9         :' RET
-DATA 18,EF    :'JR   $-15   ;
+ DATA "z"        :' К о н е ц
-DATA C9       :'RET         ;
+FOR I=0 TO 255:PUT SPRITE 1,(I,40),6,0:PUT SPRITE 2,(255-I,40),5,1
-DATA "z"
+A=USR(0):P=PEEK(&HD000):
+    IF P=1 THEN FOR K=0 TO 10:COLOR 1,15,15:COLOR 15,1,1:NEXT:
+    POKE &HD000,0
+NEXT:GOTO 180
+</code>
-   П р и м е р 9.  Подсчет количества символов во введенном слове
+{{anchor:e10204-06}} __//Пример 6//__. Мгновенное "утолщение" символов!
-   ─────────────
+\\ {{.examples:10204-06.bas|}} \\ [[+tab|wmsxbpge>10204-06.bas]]
-  CLEAR 200,&HD000:DEFUSR=&HD001:A=&HD001
+<code>
-  READ R$:IF R$="z" THEN 40
+CLEAR 100,&HA000:AD=&HA000:DEFUSR=&HA000
-  POKE A,VAL("&h"+R$):A=A+1:GOTO 20
+ READ A$:IF A$="z"THEN 80
-  P=USR(0)
+ POKE AD,VAL("&h"+A$):AD=AD+1:GOTO 30
-  DATA CD,C3,00   :' CALL 00C3    ; Очистка экрана
+A=USR(0):END
-  DATA CD,B4,00   :' CALL 00B4    ; Ввод слова
+ DATA CD,6F,00  :'  CALL  006Fh
-  DATA 06,00      :' LD   B,00    ;
+DATA 21,08,01 :'  LD    HL,0108h
-  DATA 3E,00      :' LD   A,00    ;
+DATA 11,F8,07 :'  LD    DE,07F8h
-  DATA 23         :' INC  HL      ;
+ DATA CD,4A,00 :'  CALL  004Ah ◀──┐
-  DATA BE         :' CP   (HL)    ;
+ DATA 47       :'  LD    B,A      │
-  DATA 28,03      :' JR   Z,$+5   ;
+ DATA CB,38    :'  SRL   B        │
- DATA 04         :' INC  B       ;
+DATA B0       :'  OR    B        │
- DATA 18,F7      :' JR   $-7     ;
+DATA CD,4D,00 :'  CALL  004Dh    │
- DATA 78         :' LD   A,B     ;
+ DATA 7D       :'  LD    A,L      │
- DATA 32,00,A0   :' LD   (A000),A;
+ DATA BB       :'  CP    E        │
- DATA C9         :' RET          ;
+ DATA CA,1C,A0 :'  JP    Z,A01Ch──│──┐
- DATA "z"
+ DATA 23       :'  INC   HL       │  │
-PRINT PEEK(&HA000)
+ DATA C3,09,A0 :'  JP    A009  ───┘  │
+ DATA 7A       :'  LD    A,D  ◀──────┘
+ DATA BC       :'  CP    H
+DATA CA,25,A0 :'  JP    Z,A025h──┐
+DATA 23       :'  INC   HL       │
+DATA C3,09,A0 :'  JP    A009h    │
+ DATA C9       :'  RET         ◀──┘
+ DATA "z"      :'  К о н е ц
+</code>
+{{anchor:e10204-07}} __//Пример 7//__. Образование слова-"перевертыша"
+\\ {{.examples:10204-07.bas|}} \\ [[+tab|wmsxbpge>10204-07.bas]]
+<code>
+CLEAR 400,&HD000:DEFUSR=&HD00F:A=&HD00F
+READ A$:IF A$="z" THEN R=USR(R):END ELSE 30
+POKE A,VAL("&h"+A$):A=A+1:GOTO 20
+  DATA CD,C3,00 :'  CALL 00C3   ; Очистка экрана
+  DATA CD,B4,00 :'  CALL 00B4   ; Ввод строки
+  DATA 06,11    :'  LD   B,11h  ; Загрузка параметра цикла
+  DATA 23       :'  INC  HL     ; ◀──────┐
+  DATA 10,FD    :'  DJNZ $-1    ; ───────┘
+  DATA 06,11    :'  LD   B,11h  ; Загрузка параметра цикла
+DATA 7E       :'  LD   A,(HL) ;
+DATA 2B       :'  DEC  HL     ;
+DATA CD,A2,00 :'  CALL 00A2   ; Печать символа, код которого содер-
+                                  ; жится в регистре A
+DATA 10,F9    :'  DJNZ $-5    ; Цикл,  организованный  для  печати
+                                  ; слова
+DATA C9       :'  RET         ; К о н е ц
+DATA "z"
+</code>
+{{anchor:e10204-08}} __//Пример 8//__. Вычеркивание из слова латинской буквы "А"
+\\ {{.examples:10204-08.bas|}} \\ [[+tab|wmsxbpge>10204-08.bas]]
+<code>
+  CLEAR 200,&HD000:DEFUSR=&HD001:A=&HD001
+  READ R$:IF R$="z" THEN 40
+  POKE A,VAL("&h"+R$):A=A+1:GOTO 20
+  P=USR(0)
+  DATA CD,C3,00 :'CALL 00C3   ; Очистка экрана
+  DATA CD,B4,00 :'CALL 00B4   ; Ввод строки
+  DATA 3E,41    :'LD   A,41   ; Загрузка кода вычеркиваемого символа
+  DATA 23       :'INC  HL     ;
+  DATA BE       :'CP   (HL)   ;
+  DATA 28,04    :'JR   Z,$+6  ;
+DATA 7E       :'LD   A,(HL) ;
+DATA CD,A2,00 :'CALL 00A2   ; Вывод символа с кодом,содержащимся в
+                                ; регистре А
+DATA 3E,00    :'LD   A,00   ;
+DATA BE       :'CP   (HL)   ;
+DATA 28,02    :'JR   Z,$+3  ; Выход из программы по биту Z
+DATA 18,EF    :'JR   $-15   ;
+DATA C9       :'RET         ;
+DATA "z"
+</code>
-   П р и м е р  10.  Иллюстрация работы подпрограммы BIOS по адресу 0010h
+{{anchor:e10204-09}} __//Пример 9//__. Подсчет количества символов во введенном слове
-   ───────────────
+\\ {{.examples:10204-09.bas|}} \\ [[+tab|wmsxbpge>10204-09.bas]]
-CLEAR 100,&HD000:DEFUSR=&HD000:AD=&HD000
+<code>
-C$="YAMAHA !!!":C=LEN(C$)
+  CLEAR 200,&HD000:DEFUSR=&HD001:A=&HD001
-FOR I=1 TO LEN(C$)
+  READ R$:IF R$="z" THEN 40
-    POKE &HA000+I,ASC(MID$(C$,I,1))
+  POKE A,VAL("&h"+R$):A=A+1:GOTO 20
-NEXT
+  P=USR(0)
- READ A$:IF A$="z"THEN 120
+  DATA CD,C3,00   :' CALL 00C3    ; Очистка экрана
- POKE AD,VAL("&h"+A$):AD=AD+1:GOTO 80
+  DATA CD,B4,00   :' CALL 00B4    ; Ввод слова
-POKE &HD001,C:A=USR(0):END
+  DATA 06,00      :' LD   B,00    ;
- DATA 06,00    :'  LD    B,0      ;В регистре B уже находится длина
+  DATA 3E,00      :' LD   A,00    ;
-                                        ;слова C$
+  DATA 23         :' INC  HL      ;
- DATA 21,00,A0 :'  LD    HL,A000
+  DATA BE         :' CP   (HL)    ;
- DATA CD,10,00 :'  CALL  0010     ;◀──┐
+  DATA 28,03      :' JR   Z,$+5   ;
- DATA CD,A2,00 :'  CALL  00A2     ;   │
+DATA 04         :' INC  B       ;
- DATA 10,F8    :'  DJNZ  D005     ;───┘
+ DATA 18,F7      :' JR   $-7     ;
- DATA C9       :'  RET
+DATA 78         :' LD   A,B     ;
- DATA "z"
+DATA 32,00,A0   :' LD   (A000),A;
+ DATA C9         :' RET          ;
+ DATA "z"
+PRINT PEEK(&HA000)
+</code>
-   П р и м е р 11.  Использование текстового представления для установки
+{{anchor:e10204-10}} __//Пример 10//__. Иллюстрация работы подпрограммы BIOS по адресу 0010h
-   ──────────────   т о ч к и  на графическом экране.
+\\ {{.examples:10204-10.bas|}} \\ [[+tab|wmsxbpge>10204-10.bas]]
-SCREEN 7
+<code>
-POKE &HA000,&H28  :'Загрузка кода ASCII символа "("
+ CLEAR 100,&HD000:DEFUSR=&HD000:AD=&HD000
-POKE &HA001,&HF   :'Управляющий код. Если координата X двухбайтовая,
+C$="YAMAHA !!!":C=LEN(C$)
-                          то управляющий код равен &H1C, иначе - &h0F
+FOR I=1 TO LEN(C$)
-POKE &HA002,&HFF  :'Координата X
+    POKE &HA000+I,ASC(MID$(C$,I,1))
-POKE &HA003,&H2C  :'Код ASCII символа ","
+NEXT
-POKE &HA004,&HF   :'Управляющий код
+ READ A$:IF A$="z"THEN 120
-POKE &HA005,&H1A  :'Координата Y
+ POKE AD,VAL("&h"+A$):AD=AD+1:GOTO 80
-POKE &HA006,&H29  :'Код ASCII символа ")"
+POKE &HD001,C:A=USR(0):END
-POKE &HA007,&H2C  :'Код ASCII символа ","
+ DATA 06,00    :'  LD    B,0      ;В регистре B уже находится длина
-POKE &HA008,&HF  :'Управляющий код
+                                     ;слова C$
-POKE &HA009,&HF  :'Код цвета  т о ч к и
+ DATA 21,00,A0 :'  LD    HL,A000
-POKE &HA00A,&H0  :'Конец  т е к с т о в о г о  представления
+DATA CD,10,00 :'  CALL  0010     ;◀──┐
- CLEAR 200,&HD000:DEFUSR=&HD000:P=&HD000
+DATA CD,A2,00 :'  CALL  00A2     ;   │
- READ A$
+ DATA 10,F8    :'  DJNZ  D005     ;───┘
- IF A$="z" THEN GOTO 170
+DATA C9       :'  RET
- POKE P,VAL("&h"+A$):P=P+1:GOTO 140
+DATA "z"
- A=USR(0)
+</code>
- DATA 21,00,A0     :'LD HL,A000       Загрузка адреса текстового                                                      представления оператора
- DATA F7,87,6D,00  :'RST 30[87/006D]  Обращение к подпрограмме BIOS
- DATA c9,"z"
-A$=INPUT$(1)
-   П р и м е р 12.  Вывод на экран дисплея числа из регистра B
+{{anchor:e10204-11}} __//Пример 11//__. Использование текстового представления для установки //точки// на графическом экране.
-   ───────────────
+\\ {{.examples:10204-11.bas|}} \\ [[+tab|wmsxbpge>10204-11.bas]]
-DATA  3A,00,E0      :' D000:LD A,(E000) ;Исходное число
+<code>
-DATA  47            :'      LD B,A      ;сохраняем в регистре B
+SCREEN 7
-DATA  CD,12,D0      :'      CALL D012   ;──────────────────────┐
+POKE &HA000,&H28  :'Загрузка кода ASCII символа "("
-DATA  CD,A2,00      :'      CALL 00A2   ;Печатаем символ       │
+POKE &HA001,&HF   :'Управляющий код. Если координата X двухбайтовая,
-DATA  78            :'      LD A,B      ;Восстанавливаем       │
+                       то управляющий код равен &H1C, иначе - &h0F
-DATA  CD,16,D0      :'      CALL D016   ;──────────────────────│┐
+POKE &HA002,&HFF  :'Координата X
-DATA  CD,A2,00      :'      CALL 00A2   ;Печатаем символ       ││
+POKE &HA003,&H2C  :'Код ASCII символа ","
-DATA  C9            :'      RET         ;Возврат в MSX-BASIC   ││
+POKE &HA004,&HF   :'Управляющий код
-DATA  0F            :'D012: RRCA        ;◀─────────────────────┘│
+ POKE &HA005,&H1A  :'Координата Y
-DATA 0F            :'      RRCA        ;Ставим старший полубайт│
+ POKE &HA006,&H29  :'Код ASCII символа ")"
-DATA 0F            :'      RRCA        ;на место младшего      │
+POKE &HA007,&H2C  :'Код ASCII символа ","
-DATA 0F            :'      RRCA        ;                       ▼
+POKE &HA008,&HF  :'Управляющий код
-DATA E6,0F         :'D016: AND 0F      ;Выделяем младший полубайт
+POKE &HA009,&HF  :'Код цвета  т о ч к и
-DATA 0E,0A         :'      LD C,0A     ;Сравниваем с 10
+POKE &HA00A,&H0  :'Конец  т е к с т о в о г о  представления
-DATA B9            :'      CP C        ;···
+ CLEAR 200,&HD000:DEFUSR=&HD000:P=&HD000
-DATA FA,21,D0      :'      JP M,D021   ;Если меньше, то ───────┐
+ READ A$
-DATA C6,37         :'      ADD A,37    ;                       │
+ IF A$="z" THEN GOTO 170
-DATA C9            :'      RET         ;                       │
+POKE P,VAL("&h"+A$):P=P+1:GOTO 140
-DATA C6,30         :'D021: ADD A,30    ;◀──────────────────────┘
+ A=USR(0)
-DATA C9            :'      RET         ;
+ DATA 21,00,A0     :'LD HL,A000       Загрузка адреса текстового
-'                  :'E000: заданное число
+                                         представления оператора
-FOR I=0 TO 35: READ A$
+ DATA F7,87,6D,00  :'RST 30[87/006D]  Обращение к подпрограмме BIOS
-   POKE &HD000+I,VAL("&h"+A$)
+ DATA c9,"z"
-NEXT I
+ A$=INPUT$(1)
-PRINT"Введите целое число, не превышающее 255";
+</code>
-INPUT BYTE: POKE &HE000,BYTE
-PRINT"Ваше число в шестнадцатеричном виде: &h";
-DEFUSR=&HD000:Z=USR(0)
-   run
-   Введите целое число, не превышающее 255? 255
-   Ваше число в шестнадцатеричном виде: &hFF
-   Ok
-   П р и м е р  13.  Ввод в память компьютера числа с клавиатуры при помо-
-   ───────────────   щи подпрограммы BIOS
-' Автор программы: Поляков С.,10-й класс. 14.01.89
- CLEAR 200,&HD000:AD=&HD000
- READ A$:IF A$="z" THEN 60
-A=VAL("&h"+A$):POKE AD,A:AD=AD+1:GOTO 30
-DEFUSR=&HD000
-PRINT"Введите десятичное трехзначное число от 0 до 255:"
- A=USR(0):PRINT"Вы ввели число:"PEEK(&HB000):END
- DATA F7,00,B4,00 :'RST  30[00/00B4];BIOS ввода строки
-DATA 23          :'INC  HL
-DATA 7E          :'LD   A,(HL)     ;В  А - код первого символа
-DATA 06,63       :'LD   B,63h      ;Блок получения числа сотен
-DATA D6,30       :'SUB  30h        ;;; В регистре А - число
-DATA 57          :'LD   D,A        ;;;
-DATA 8A          :'ADC  A,D        ;;;
-DATA 10,FD       :'DJNZ $-1        ;;;
-DATA 5F          :'LD   E,A        ;В регистрах А и Е  - число
-DATA 16,00       :'LD   D,00h      ;сотен, умноженное на 100
-DATA D5          :'PUSH DE         ;Результат - в регистре DE
-DATA 23          :'INC  HL
-DATA 7E          :'LD   A,(HL)     ;В  А - код второго символа
-DATA 06,09       :'LD   B,09h      ;Блок получения числа десятков
-DATA D6,30       :'SUB  30h        ;;; В регистре А - число
- DATA 57          :'LD   D,A        ;;;
-DATA 8A          :'ADC  A,D        ;;;
-DATA 10,FD       :'DJNZ $-1        ;;;
-DATA D1          :'POP  DE         ;
-DATA 8B          :'ADC  A,E        ;
-DATA 5F          :'LD   E,A        ;В регистрах А и Е - сумма со-
-DATA D5          :'PUSH DE         ;тен и десятков
-DATA 23          :'INC  HL         ;
-DATA 7E          :'LD   A,(HL)     ;В  А - код третьего символа
-DATA D6,30       :'SUB  30h        ;В регистре А - число
- DATA D1          :'POP  DE
-DATA 8B          :'ADC  A,E        ;В  А - введенное нами число
-DATA 6F          :'LD   L,A
-DATA 26,00       :'LD   H,00
-DATA 22,00,B0    :'LD   (B000h),HL
-DATA C9          :'RET
-DATA "z"
+{{anchor:e10204-12}} __//Пример 12//__. Вывод на экран дисплея числа из регистра B
+\\ {{.examples:10204-12.bas|}} \\ [[+tab|wmsxbpge>10204-12.bas]]
+<code>
+DATA  3A,00,E0      :' D000:LD A,(E000) ;Исходное число
+DATA  47            :'      LD B,A      ;сохраняем в регистре B
+DATA  CD,12,D0      :'      CALL D012   ;──────────────────────┐
+DATA  CD,A2,00      :'      CALL 00A2   ;Печатаем символ       │
+DATA  78            :'      LD A,B      ;Восстанавливаем       │
+DATA  CD,16,D0      :'      CALL D016   ;──────────────────────│┐
+DATA  CD,A2,00      :'      CALL 00A2   ;Печатаем символ       ││
+DATA  C9            :'      RET         ;Возврат в MSX-BASIC   ││
+DATA  0F            :'D012: RRCA        ;◀─────────────────────┘│
+DATA 0F            :'      RRCA        ;Ставим старший полубайт│
+DATA 0F            :'      RRCA        ;на место младшего      │
+DATA 0F            :'      RRCA        ;                       ▼
+DATA E6,0F         :'D016: AND 0F      ;Выделяем младший полубайт
+DATA 0E,0A         :'      LD C,0A     ;Сравниваем с 10
+DATA B9            :'      CP C        ;···
+DATA FA,21,D0      :'      JP M,D021   ;Если меньше, то ───────┐
+DATA C6,37         :'      ADD A,37    ;                       │
+DATA C9            :'      RET         ;                       │
+DATA C6,30         :'D021: ADD A,30    ;◀──────────────────────┘
+DATA C9            :'      RET         ;
+'                  :'E000: заданное число
+FOR I=0 TO 35: READ A$
+   POKE &HD000+I,VAL("&h"+A$)
+NEXT I
+PRINT"Введите целое число, не превышающее 255";
+INPUT BYTE: POKE &HE000,BYTE
+PRINT"Ваше число в шестнадцатеричном виде: &h";
+DEFUSR=&HD000:Z=USR(0)
+run
+Введите целое число, не превышающее 255? 255
+Ваше число в шестнадцатеричном виде: &hFF
+Ok
+</code>
+{{anchor:e10204-13}} __//Пример 13//__. Ввод в память компьютера числа с клавиатуры при помощи подпрограммы BIOS
+\\ {{.examples:10204-13.bas|}} \\ [[+tab|wmsxbpge>10204-13.bas]]
+<code>
+' Автор программы: Поляков С.,10-й класс. 14.01.89
+CLEAR 200,&HD000:AD=&HD000
+READ A$:IF A$="z" THEN 60
+A=VAL("&h"+A$):POKE AD,A:AD=AD+1:GOTO 30
+DEFUSR=&HD000
+PRINT"Введите десятичное трехзначное число от 0 до 255:"
+A=USR(0):PRINT"Вы ввели число:"PEEK(&HB000):END
+DATA F7,00,B4,00 :'RST  30[00/00B4];BIOS ввода строки
+DATA 23          :'INC  HL
+DATA 7E          :'LD   A,(HL)     ;В  А - код первого символа
+DATA 06,63       :'LD   B,63h      ;Блок получения числа сотен
+DATA D6,30       :'SUB  30h        ;;; В регистре А - число
+DATA 57          :'LD   D,A        ;;;
+DATA 8A          :'ADC  A,D        ;;;
+DATA 10,FD       :'DJNZ $-1        ;;;
+DATA 5F          :'LD   E,A        ;В регистрах А и Е  - число
+DATA 16,00       :'LD   D,00h      ;сотен, умноженное на 100
+DATA D5          :'PUSH DE         ;Результат - в регистре DE
+DATA 23          :'INC  HL
+DATA 7E          :'LD   A,(HL)     ;В  А - код второго символа
+DATA 06,09       :'LD   B,09h      ;Блок получения числа десятков
+DATA D6,30       :'SUB  30h        ;;; В регистре А - число
+DATA 57          :'LD   D,A        ;;;
+DATA 8A          :'ADC  A,D        ;;;
+DATA 10,FD       :'DJNZ $-1        ;;;
+DATA D1          :'POP  DE         ;
+DATA 8B          :'ADC  A,E        ;
+DATA 5F          :'LD   E,A        ;В регистрах А и Е - сумма со-
+DATA D5          :'PUSH DE         ;тен и десятков
+DATA 23          :'INC  HL         ;
+DATA 7E          :'LD   A,(HL)     ;В  А - код третьего символа
+DATA D6,30       :'SUB  30h        ;В регистре А - число
+DATA D1          :'POP  DE
+DATA 8B          :'ADC  A,E        ;В  А - введенное нами число
+DATA 6F          :'LD   L,A
+DATA 26,00       :'LD   H,00
+DATA 22,00,B0    :'LD   (B000h),HL
+DATA C9          :'RET
+DATA "z"
 </code>
@@ Строка 867: / Строка 901: @@
 </WRAP></WRAP>
+{{anchor:e10204-14}} __//Пример 14//__. Инициализация текстово-графического режима SCREEN 1-2 на компьютерах MSX-1.
-Пример 14. Инициализация текстово-графического режима SCREEN 1-2 на компьютерах MSX-1.
+\\ {{.examples:10204-14.bas|}} \\ [[+tab|wmsxbpge>10204-14.bas]]
 <code>
 CLEAR 400,&HD000:DEFUSR=&HD000:K=&HD000

Мозаика системного администрирования

Инструменты пользователя

Инструменты сайта

Различия

Инструменты страницы