ЭТЮДЫ

[Shiny]

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

[SaNchez]

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

[Shiny]

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

[Shiny]

А известен ли кому-то алгоритм нахождения простых чисел?
Согласно заметке Бейсик просто отдыхает, причем на 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

[Den1982]

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

[Bedazzle]

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

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

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

[Shiny]

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КБайт?

[Shiny]

Из 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

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

[Bedazzle]

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

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

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

[Shiny]

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