ЭТЮДЫ

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