Небольшая демка на ассемблере

[BelaLugoci]

Может тоже кто-то балуется на асме таким, можете сюда в тему выкладывать, если нужны комментарии - спрашивайте
Gif анимация с экрана эмулятора здесь
Код Atasm 106 байт:

.include "atari.asm"
    *= $3000
	lda #48
?copy
	sta screen-1, y
	dey
	bpl ?copy
	iny
?copydl
	lda #$42
	sta dlist2, y
	iny
	lda #<screen
	sta dlist2, y
	iny
	lda #>screen
	sta dlist2, y
	iny
	cpy #72
	bne ?copydl
	lda #>font_data
	sta CHBAS
	lda #$23
	sta SDMCTL
	lda #<dlist
	sta SDLSTL
	lda #>dlist
	sta SDLSTL+1
?main
	ldx #1
?start
	lda RTCLOK+2
?wait
	cmp RTCLOK+2
	beq ?wait
	dex
	bpl ?start
?ring
    lda font_data, x
	asl
	adc #00
	sta font_data, x
	inx
	cpx #08
	bne ?ring
	beq ?main
dlist
	.byte $70, $70, $70
dlist2
	*= dlist2+72
	.byte $41, <dlist, >dlist
screen
	*= $7400
font_data
	.byte ~11000011
	.byte ~10011001
	.byte ~00100100
	.byte ~01000010
	.byte ~01000010
	.byte ~00100100
	.byte ~10011001
	.byte ~11000011

[Advertiser]

[breeze]

Спасибо конечно, но «include "atari.asm"» это как бы не стандартная какая-то либа и её таки лучше тоже приатачить.
В противном случае проект не собираем. Так же было бы не плохо указать каким асмом это собиралось.

Ну и вишенка на торту, где хотя бы тот же XEX? Для тех у кого лапки и он просто хочет посмотреть на реале/емуле?

[BelaLugoci]

но «include "atari.asm"» это как бы не стандартная какая-то либа

да нет, это перечень СТАНДАРТНЫХ переменных карты ОЗУ, валяется во всех компиляторах, можно по названиям в проекте приаттачить ваш. Добавил.

Так же было бы не плохо указать каким асмом это собиралось.

Указано, вы просто не обратили внимание.

где хотя бы тот же XEX?

Исправляюсь, смотрите во вложении.
atari.zip
b128.zip

[atariki]

Мне нравится, можно звёздное небо сделать. Только я не умею)))

[BelaLugoci]

Немного добавил анимации самому узору
b128_2.zip

[atariki]

ещё музыку надо добавить))

[Shiny]

с текстовым режимом баловались давненько:
https://www.pouet.net/prod.php?which=70199

и на сладкое:
https://www.pouet.net/prod.php?which=99257

- - - Добавлено - - -

Немного добавил анимации самому узору
b128_2.zip

Так и просит сократить код(:

[BelaLugoci]

ещё музыку надо добавить))

кто бы её написал? )

- - - Добавлено - - -

Так и просит сократить код(:

сократите, покажите, будет интересно, я на асме не крут, после x86 как с одной рукой и одним глазом

[Shiny]

кто бы её написал? )

RMT в помощь(:

сократите, покажите, будет интересно, я на асме не крут, после x86 как с одной рукой и одним глазом

Формирование Display List явно лишнее.

- - - Добавлено - - -

Как-то так. Курсор лишний, но можно и убрать

;compile xasm.exe gens.a65 /o:gens.xex
	org $8000
start
;	lda #7	  ; open graphics 7 mode (160x96
;	jsr $ef9c ; openmode=$ef9c

; setup font
	lda #$20
	sta 756
istart	ldx #0
; delay
RTCLOK   equ $0012

dl	ldy #0
; roll
rolld	lda font_data,y
	asl @
	adc #0
	sta font_data,y
	iny
	cpy #[spr_e-font_data]
	bne rolld
	ldy #5
sta
	lda RTCLOK+2
wait
	cmp RTCLOK+2
	beq wait
	dey
	bne sta

copyd	lda font_data,x
	sta $2000,y
	iny
	inx
	cpy #8
	bne copyd
	cpx #[spr_e-font_data]
	beq istart
	bne dl
font_data
; sprites 0
	  dta %00001000
	  dta %00001000
	  dta %00001000
	  dta %11111000
	  dta %00011111
	  dta %00010000
	  dta %00010000
	  dta %00010000

; sprites 1
	  dta %00001000
	  dta %00001000
	  dta %00011000
	  dta %11100100
	  dta %00100111
	  dta %00011000
	  dta %00010000
	  dta %00010000

; sprites 2
	  dta %00001000
	  dta %00011000
	  dta %01100100
	  dta %10000010
	  dta %01000001
	  dta %00100110
	  dta %00011000
	  dta %00010000

; sprites 3
	  dta %00011000
	  dta %01100100
	  dta %10000010
	  dta %00000001
	  dta %10000000
	  dta %01000001
	  dta %00100110
	  dta %00011000

; sprites 4
	  dta %01110010
	  dta %10000001
	  dta %00000001
	  dta %00000001
	  dta %10000000
	  dta %10000000
	  dta %10000001
	  dta %01001110

; sprites 5
	  dta %11110001
	  dta %00000001
	  dta %00000001
	  dta %00000001
	  dta %10000000
	  dta %10000000
	  dta %10000000
	  dta %10001111

; sprites 6
	  dta %00010100
	  dta %01100010
	  dta %10000001
	  dta %00000001
	  dta %10000000
	  dta %10000001
	  dta %01000110
	  dta %00101000

; sprites 7
	  dta %00001000
	  dta %00010100
	  dta %01100010
	  dta %10000001
	  dta %10000001
	  dta %01000110
	  dta %00101000
	  dta %00010000
spr_e
;    run start

[BelaLugoci]

RMT в помощь

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

Формирование Display List явно лишнее.

Ну сама демка сделана для того чтобы протестировать определенный способ работы с DL, там же всего 40(48) байт на экран используется
анимация просто стала вытекающим фактом

- - - Добавлено - - -

Shiny, полезно подглядеть у вас в коде некоторые реализации копирования, у меня это громоздко сделано очень, пока голова не начнёт мыслить категориями 6502 это неизбежно.