нужны игрушки для БК-01

crimson · Гость

Класс! вчера купил БК-01 ,
нужны игрушки!
кто поможет?

JamesON

Поставь эмулятор на PC и скачай с инета что хочешь для нее. А железку прибей гвоздиком к стене.

Rosomaha

Вещ!!
Процессор - КР580ВМ80А на частоте 1,78 МГц
Память - ОЗУ — 64 КБ, из них пользователю доступно 56,25 КБ, ПЗУ — 4 КБ
Один из редких аппаратов на которых можно писать сразу в машинных кодах напрямую!
Вот например - 012737,100,0177662,012737,010000,00004,0104014,0004737,010000,012701,000010,077101... ну и так далее...

Вот тебе две игры:

0 '......ЗМЕЙКА******

1 DIM F(30,20)

2 CLS

3 LINE (7,9)-(248,210),,B

4 DATA 15,11,16,11,8

5 READ X,Y,A,B,F(16,11)

6 С=С+1

7 ? STRING $ (5,7) AT (RND(1)*29+1, RND(1)*19+1)"*"AT(X,Y)CHR$(127) AT(11,22) "ОЧКИ:"; C-l

8 F(X,Y)=PEEK(-78)

9 IF F(X,Y)=25 TH X=X+1 EL IF F(X,Y)=8 TH X=X-1 EL IF F(X,Y)=26 TH Y=Y-1 EL Y=Y+1

10 IF X=0 OR X=31 OR Y=0 OR Y=21 OR POINT (X*8+l, Y*10+l)=l TH END EL IF POINT(X*8+3,Y*10+2)=1 TH 6 EL ?AT(A,B)" "AT(X,Y)CHR$(127)

11 IF TAN(PI) OR F(A,B)=25 TH A=A+1 EL IF F(A,B)=8 TH A=A-1 EL IF F(A,B)=26 TH B=B-1 EL B=B+1

12 GOTO 8

0 ' *.....ЛУЧИ ******

1 CLS

2 READ X,Y,M,N,J .

3 DATA 10,120,244,120,2

4 LINE (0,0)-(255,239),,B

5 IF PEEK(-78)=8 TH X=X-1 EL IF PEEK(-78)=27 TH Y=Y+1 EL IF PEEK(-78)=26 TH Y=Y-1 EL X=X+1

6 IF РЕЕКГ-52) AND J<>PEEK(-52) TH J=PEEK(-52) EL B=J

7 IF B=2 TH M=M-1 EL IF B=l TH M=M+1 EL IF B=4 TH N=N-1 EL N=N+1

8 IF POINT(X,Y)=4 TH PSET(X,Y),2 EL D=l

9 IF POINT(M,N)=4 TH PSET(M,N),3 EL D=2

10 IF SIN(PI) OR D=l TH ?"END1" EL IF D TH ?"END2" EL 5

Наслаждайся! :)

motolight

Цитата:

Один из редких аппаратов на которых можно писать сразу в машинных кодах напрямую!
Вот например - 012737,100,0177662,012737,010000,00004,0104014,0004737,010000,012701,000010,077101... ну и так далее...

"Машинные коды" состоят только из двух знаков - 0 и 1.

Rosomaha

motolight писал(а):

Цитата:

Один из редких аппаратов на которых можно писать сразу в машинных кодах напрямую!
Вот например - 012737,100,0177662,012737,010000,00004,0104014,0004737,010000,012701,000010,077101... ну и так далее...

"Машинные коды" состоят только из двух знаков - 0 и 1.

На продвинутых аппаратах которые уже были не на лампах коды можно было вводить сразу немного больше чем в минимальном разряде и в одном из форматов более продвинутых чем двоичный.
Например - 16ричном или 8ричном. В данном случае на БК-01 можно вводить в 8ричном формате счисления. Он их сам в нули и единицы конвертирует.

motolight

Rosomaha писал(а):

motolight писал(а):

Цитата:

Один из редких аппаратов на которых можно писать сразу в машинных кодах напрямую!
Вот например - 012737,100,0177662,012737,010000,00004,0104014,0004737,010000,012701,000010,077101... ну и так далее...

"Машинные коды" состоят только из двух знаков - 0 и 1.

На продвинутых аппаратах которые уже были не на лампах коды можно было вводить сразу немного больше чем в минимальном разряде и в одном из форматов более продвинутых чем двоичный.
Например - 16ричном или 8ричном. В данном случае на БК-01 можно вводить в 8ричном формате счисления. Он их сам в нули и единицы конвертирует.

Например?

Rosomaha

motolight писал(а):

Rosomaha писал(а):

motolight писал(а):

Цитата:

Один из редких аппаратов на которых можно писать сразу в машинных кодах напрямую!
Вот например - 012737,100,0177662,012737,010000,00004,0104014,0004737,010000,012701,000010,077101... ну и так далее...

"Машинные коды" состоят только из двух знаков - 0 и 1.

На продвинутых аппаратах которые уже были не на лампах коды можно было вводить сразу немного больше чем в минимальном разряде и в одном из форматов более продвинутых чем двоичный.
Например - 16ричном или 8ричном. В данном случае на БК-01 можно вводить в 8ричном формате счисления. Он их сам в нули и единицы конвертирует.

Например?

ээээ... например что?
Например вот:
012701
Этот машинный код работает так:
0 - формат константы (0 - 16ричная)
1 - код операции (тут - MOV)
2 - код адресации источника
7 - номер регистра адресации
0 - код адресации приемника
1 - получатель

В БК размер машинного слова равен 2 байтам.

Или мы об чем вообще?

motolight

ясно. Я имел ввиду _натуральные_ машинные коды

))

Rosomaha

motolight писал(а):

ясно. Я имел ввиду _натуральные_ машинные коды

))

эээ дык куда натуральнее

кому охота в "00101010101" - то не вопрос. Просто пересчитать из 8ричного формата в двоичный и делов. Будет ровно тоже самое.

Будет точно также работать. только уже не один символ за параметр отвечать будет а три.

Вот пожалста, приведенная выше команда в двоичном виде:
000001001111000001

Всег делов

Вася ВМ

Россомаха :shock: тебе скока лет ???? Я сам в HEX нормально соображаю, но чтобы помнить комманды на БК-01, да еще и в 8-ричной системе - это пиздец !!!!! Я тогда еще под стол пешком помещался, когда люди это изучали !!!!!!

Rosomaha

Вася ВМ писал(а):

Россомаха :shock: тебе скока лет ???? Я сам в HEX нормально соображаю, но чтобы помнить комманды на БК-01, да еще и в 8-ричной системе - это пиздец !!!!! Я тогда еще под стол пешком помещался, когда люди это изучали !!!!!!

мне 30

только я уже с бейсика и е-87 начинал причем на компах с гордым лейблом - Yamaha
%)
А коды - это так - издержки обучения

Хотя вру - в школе мы на перфокартах задачки по химии решали.
В том смысле что нам перфокарты вместо бумаги для записи давали

Kirex

биты, байты, а потом СЛОВО

Ща как достану тетрадь с первого курса с вычислением
квадрата корня с плавающей запятой :lol:

Night_Fox

Kirex писал(а):

биты, байты, а потом СЛОВО

Ща как достану тетрадь с первого курса с вычислением
квадрата корня с плавающей запятой :lol:

ТРУДНОЕ детство !!! :!:

camuflage-spb

Rosomaha писал(а):

Вещ!!
Процессор - КР580ВМ80А на частоте 1,78 МГц
Память - ОЗУ — 64 КБ, из них пользователю доступно 56,25 КБ, ПЗУ — 4 КБ
Один из редких аппаратов на которых можно писать сразу в машинных кодах напрямую!
Вот например - 012737,100,0177662,012737,010000,00004,0104014,0004737,010000,012701,000010,077101... ну и так далее...

Вот тебе две игры:

0 '......ЗМЕЙКА******

1 DIM F(30,20)

2 CLS

3 LINE (7,9)-(248,210),,B

4 DATA 15,11,16,11,8

5 READ X,Y,A,B,F(16,11)

6 С=С+1

7 ? STRING $ (5,7) AT (RND(1)*29+1, RND(1)*19+1)"*"AT(X,Y)CHR$(127) AT(11,22) "ОЧКИ:"; C-l

8 F(X,Y)=PEEK(-78)

9 IF F(X,Y)=25 TH X=X+1 EL IF F(X,Y)=8 TH X=X-1 EL IF F(X,Y)=26 TH Y=Y-1 EL Y=Y+1

10 IF X=0 OR X=31 OR Y=0 OR Y=21 OR POINT (X*8+l, Y*10+l)=l TH END EL IF POINT(X*8+3,Y*10+2)=1 TH 6 EL ?AT(A,B)" "AT(X,Y)CHR$(127)

11 IF TAN(PI) OR F(A,B)=25 TH A=A+1 EL IF F(A,B)=8 TH A=A-1 EL IF F(A,B)=26 TH B=B-1 EL B=B+1

12 GOTO 8

0 ' *.....ЛУЧИ ******

1 CLS

2 READ X,Y,M,N,J .

3 DATA 10,120,244,120,2

4 LINE (0,0)-(255,239),,B

5 IF PEEK(-78)=8 TH X=X-1 EL IF PEEK(-78)=27 TH Y=Y+1 EL IF PEEK(-78)=26 TH Y=Y-1 EL X=X+1

6 IF РЕЕКГ-52) AND J<>PEEK(-52) TH J=PEEK(-52) EL B=J

7 IF B=2 TH M=M-1 EL IF B=l TH M=M+1 EL IF B=4 TH N=N-1 EL N=N+1

8 IF POINT(X,Y)=4 TH PSET(X,Y),2 EL D=l

9 IF POINT(M,N)=4 TH PSET(M,N),3 EL D=2

10 IF SIN(PI) OR D=l TH ?"END1" EL IF D TH ?"END2" EL 5

Наслаждайся!

....за одно это Вы Все Росомахе должны пиво поставить)))))
мож как-нить найду тетрадку свою с информатики-перепишу программу для извращений со случайными точками )))

Evgenikk

Слушай, Камуфляж, что у тебя за привычка не появляться туеву хучу времени на форуме, а потом прийти и поднимать старые темы а?

Black D9ITEL

Evgenikk писал(а):

Слушай, Камуфляж, что у тебя за привычка не появляться туеву хучу времени на форуме, а потом прийти и поднимать старые темы а?

его забанят просто на "туеву хучу времени", а потом, када бан заканчивается, он начинает поднимать старые темы...

Rosomaha

Evgenikk писал(а):

Слушай, Камуфляж, что у тебя за привычка не появляться туеву хучу времени на форуме, а потом прийти и поднимать старые темы а?

Семен тоже любит ЭТИМ заниматься

camuflage-spb

...я уж думал никто прог в Basic не помнит...

Тема закрыта?Нет!
Значит-писать можно.

весенний гламур

Rosomaha писал(а):

Семен тоже любит ЭТИМ заниматься

хмм...
это настораживает, по меньшей мере

Dimson

мдя, Семёну однозначно есть над чем задумацца..

весенний гламур

а пока что Сене объявлен карантин))

camuflage-spb

Evgenikk писал(а):

Слушай, Камуфляж, что у тебя за привычка не появляться туеву хучу времени на форуме, а потом прийти и поднимать старые темы а?

Не появлялся потому как непонятно почему был бан а потом я работал на стройке и мне было не до инета!

Ole-Lukoe · Гость

Эх было время , для Синклера проги на ассемблере писал и с парнями контроллер дисковода для него сделали, который потом потом по всей России продавали , а за права не платили:(

camuflage-spb

схему Ф студию!

Ole-Lukoe · Гость

camuflage-spb писал(а):

схему Ф студию!

Нах он тебе нужен ? там микрух штук десять и платы мы на заводе заказывали, сжема у меня на дискетке 5,25 гдето в коробке в гараже лежит