ЭТЮДЫ

"Есть только один способ - проверить"(с)Семейка Адамс.

Проверил. Сначала залил экран значением #55, атрибуты #07. После выполнения атрибуты поменялись на #28 + появилась атрибутная диагональная полоска.

значит, нечетко.

А известен ли кому-то алгоритм нахождения простых чисел?
Согласно заметке Бейсик просто отдыхает, причем на z80, а не на 6502

Гугл вывел на : http://forum.6502.org/viewtopic.php?p=40575

Может, есть что-то пошустрее и попонятнее?

Это неясно вообще:

Код:

---

10 X=0
20 N=1
100 N=N+1
110 A=N-1
120 A=A-1
130 #=A<2*200
140 B=N/A
150 #=%=0*100
160 #=120
200 ?=N
210 ?=""
220 X=X+1
230 #=X<20*100

---

http://zxpress.ru/book_articles.php?id=209

чиста на правах мозгового штурма:

Цитата:

---

Сообщение от Шынни

Это неясно вообще:

Код:

---

10 X=0
20 N=1

100 N=N+1
110 A=N-1
120 A=A-1
130 #=A<2*200    переход на 200, если меньше двух
140 B=N/A
150 #=%=0*100  переход на 100, если целое
160 #=120    переход на 120

200 ?=N    печать числа
210 ?=""
220 X=X+1
230 #=X<20*100    переход на 100, если меньше 20

---

---

Bedazzle, спасибо

каюсь, я не прочитал тред

Наверное, проще использовать решето Эратосфена?

Код:

---

        ld a,2
        call $1601
        ei
 ld hl,0;$FBFF
 ld de,$0001
 ld b,$10
Loop:
 inc hl
 push hl
 push bc
 inc de

Sieve:
 ld b,$FF
 ld a,b
Loop2:
 add hl,de
; ld (hl),a
        push bc,de,hl
;печать
        ld bc,hl
        call  6683;
        ld a,","
        rst 10h
        pop hl,de,bc
 djnz Loop2

 pop bc
 pop hl
 djnz Loop
 ;ret
        jr $

---

Наверное, если сжать данные, то получится таблика 8КБайт?

Из FaceBook:

Код:

---

; 16-bit xorshift pseudorandom number generator by John Metcalf
; 20 bytes, 86 cycles (excluding ret)

; returns  hl = pseudorandom number
; corrupts  a

; generates 16-bit pseudorandom numbers with a period of 65535
; using the xorshift method:

; hl ^= hl << 7
; hl ^= hl >> 9
; hl ^= hl << 8

; some alternative shift triplets which also perform well are:
; 6, 7, 13; 7, 9, 13; 9, 7, 13.

  org 32768

xrnd:
  ld hl,1      ; seed must not be 0

  ld a,h
  rra
  ld a,l
  rra
  xor h
  ld h,a
  ld a,l
  rra
  ld a,h
  rra
  xor l
  ld l,a
  xor h
  ld h,a

  ld (xrnd+1),hl

  ret

---

Как бы оценить, насколько качественный генератор?

Цитата:

---

Сообщение от Шынни

Как бы оценить, насколько качественный генератор?

---

Сгенерить длинную последовательность, сохраняя куски в файлы.
Потом на пц строить картинки разные. Для начала - первое число Х, второе У, третье - цвет (тут нужна будет поллитра).
Ну и визуально смотреть, насколько прослеживается система в полученной плазме. :)

Также можно в экселях сабтоталы разные сделать по числам - какое число сколько раз выпало, и т.п.

Короче, вот что получилось:

http://i94.fastpic.ru/big/2017/0808/...cafd70adc7.png