- Versión
0.1.1 (ir a última versión)
- Autor
Contenidos
Hola. Primero bajarse el Chipdisk para darse una idea de lo que abarca el cursito:
Listo, empecemos. Tocar un sid en una Commodore 64 es muy sencillo:
setup:
sei ; prohibir interrupciones
lda #<irq_vector ; setear vector IRQ para ser llamado
sta $0314 ; una vez por cada refresh de pantalla
lda #>irq_vector
sta $0315 ; el vector $314/$315 apunta a la rutina raster IRQ
lda #$00
jsr $1000 ; inicializar sid para que toque canción 0
; ya que un sid puede tener más de una canción
cli ; habilitar interrupciones nuevamente
rts
irq_vector:
asl $d019 ; ACK interrupción de raster
jsr $1003 ; llamar a tocar el sid
jmp $ea31 ; salir de la interrupción...y listo. Cada sid sabe tocarse solo, ya que un sid es código + data. La llamada jsr $1003 hace toda la magia, y ese código esta dentro del sid.
Lo complicado de hacer un Chipdisk, no es tocar el sid, sino todo lo demás. Veamos el porqué.
Note
Supongo que ya sabes como usar sprites y modos gráficos. Si aún no lo sabes, ir a Bringing Sprites in good Shape y a Screen Modes Cheaper by the Dozen
Empecemos por lo básico. Hay 64k RAM disponibles, pero cuando prendemos la compu dice que hay 38911 BASIC BYTES FREE. Eso significa que si vamos a usar BASIC, solo hay 38k RAM libres.
Pero como no vamos a usar BASIC, lo apagamos y nos libera 8k RAM. Y si seguimos apagando todo, como el KERNAL y demás, entonces ahí vamos a tener los 64k RAM libres.
Para prender/apagar estas cosas se usa la dirección $01
En el Chipdisk usamos dos configuraciones:
- Todo apagado menos
$d000-$dfff(area reservada para IO: VIC/SID/CIA): se usa siempre, salvo cuando se descomprimen los sids - Todo apagado (64k RAM libres): se usa cuando se descomprimen los sids, ya que el area de
$d000-$dfffes usada por los sids comprimidos
Se usa así:
lda #37 ; valor por defecto de la C64
sta $01 ; 0000-9FFF: RAM
; A000-BFFF: BASIC
; C000-CFFF: RAM
; D000-DFFF: IO (VIC,SID/CIA)
; E000-FFFF: KERNAL
lda #$35 ; usada por el Chipdisk normalmente
sta $01 ; 0000-9FFF: RAM
; A000-BFFF: RAM
; C000-CFFF: RAM
; D000-DFFF: IO (VIC,SID/CIA)
; E000-FFFF: RAM
lda #$34 ; usada por el Chipdisk cuando descomprime
sta $01 ; 0000-9FFF: RAM
; A000-BFFF: RAM
; C000-CFFF: RAM
; D000-DFFF: RAM
; E000-FFFF: RAMHay varias posibles combinaciones. Ir acá para más info
La otra cosa, es que el VIC (la GPU de la compu) necesita de la memoria RAM. Si queremos dibujar un gráfico bitmap, ponemos el gráfico en la memoria RAM y el VIC lo lee de ahí (de la RAM). Así que la RAM se comparte entre la CPU (el 6510) y la GPU (el VIC).
Pero hay un limitación: El VIC solo puede ver 16k a la vez de los 64k RAM. Hay 4 bancos de 16k cada uno (64k / 16k == 4) de los cuales el VIC puede leer la data.
- Banco 0:
$0000 - $3fff - Banco 1:
$4000 - $7fff - Banco 2:
$8000 - $bfff - Banco 3:
$c000 - $ffff
Esto significa que un gráfico bitmap no puede estar mitad en un banco y mitad en otro. Tiene que estar entero en un solo banco.
Pero eso no es todo. No puede estar en cualquier parte del banco. Hay lugares especiales para poner el bitmap, el charset y la screen RAM.
Y a eso se le suman otras limitaciones, pero vamos de poco. Para decirle al VIC que banco usar, se hace a travez del registro $dd00 del CIA 2, así:
lda $dd00 ; CIA 2
and #$%11111100 ; máscara de los 2 primeros bits
ora #2 ; 3 para Banco 0
; 2 para Banco 1
; 1 para Banco 2
; 0 para Banco 3
sta $dd00Y para decirle al VIC donde esta el bitmap, charset y screen+sprite ptr., se hace a travez del registro $d018 del VIC.
Pero eso no es todo. Los bancos 0 y 2 ($0000-$3fff y $8000-$bfff) tienen mapeados entre $1000-$1fff y $9000-$9fff respectivamente al charset default (mayúsculas y minúsculas). Eso significa que no podemos usar esas direcciones para que el VIC vea data... salvo para que vea el charset default.
Y el VIC ve el charset por default en esas direcciones porque el charset tiene que estar en algún lugar. Pero si esta en la RAM va a ocupar memoria RAM, entonces de los 38k libres para el BASIC, habría ahora 4k menos. Y supongo que para que no suceda eso, lo ingenieros de C= decidieron mapearle al VIC el charset en esas direcciones.
Resumiendo:
- Hay 4 bancos posibles donde poner la data para el VIC
- Los valores del VIC son módulo
$4000 - En las direcciones
$1000-$1fffy$9000-$9fff, el VIC ve el charset por default - Se usa $dd00 para cambiar de banco. Y $d018 para decirle al SID de donde sacar la data
¿Cuanta RAM necesitamos para el Chipdisk? Hagamos cuentas. El Chipdisk esta compuesto por 3 módulos:
- Intro: Mitad gráfico multi-color + mitad pantalla PETSCII + charset + código
- Player: 9 canciones (sids) + sonido para ruido blanco + gráfico bitmap + charset + código
- Easter Egg: 1 canción (sid) + gráfico PETSCII + texto scroll + código
Y solo el módulo del Player ocupa:
- Los 9 sids: ~53k
- Gráfico bitmap: 9k (8k bitmap + 1k colores)
- Ruido blanco (usando entre tema y tema): ~1,8k
- Imágenes de botones apretados (bitmap + colores): ~1,7k
- Charset (usado en letras oblicuas): 1k
- Sprites (cursores, rueditas, contador): ~1k
Y nos da un total de: ~65k, sin contar código, ni Intro, ni Easter Egg. ¿Cómo hacemos para meter todo en 64k de memoria y sin acceder al disco?
La respuesta es: Se comprime todo lo que se pueda comprimir, y se descomprime cuando se necesita.
Pero para que un sid se pueda "tocar" un sid hay que descomprimirlo en algún lugar. Para eso se necesita RAM libre. Entonces necesitamos un buffer tan grande como el sid más grande.
En nuestro caso, el sid que más ocupa es Prófugos con 9k. Algo bastante inusual para un sid (generalmente no ocupan más de 4k), pero por los instrumentos y demás, no se puede achicar más que eso sin perder calidad de sonido.
Entonces necesitamos un total de 37k (28k + 9k) para los sids. Algo mucho mejor que los 53k original (¡16k menos!).
El buffer de 9k empieza en la dirección $1000. Puede empezar en cualquier otro lado, pero como los sids por defecto corren en $1000, seguimos usando $1000. Así que de $1000 a $3328 (8952 bytes) están reservados para descomprimir los sids.
Note
¿Y saben por qué casi todos los sids empiezan en
$1000? Vean la sección anterior para saberlo.
Los sids comprimidos están a partir de $7cb0. Cuanto más arriba mejor, así libera lugar para el gráfico bitmap (ver más abajo).
Hasta ahora la memoria esta así:
$0000 - $0fff: Libre (4k)
$1000 - $32f7: Buffer reservado para tocar un sid (~9k)
$32f8 - $7caf: Libre (18k)
$7cb0 - $fbdf: Sids comprimidos (28k)
$fbe0 - $ffff: Libre (1k)Ahora hay que poner al gráfico algún lugar. Un buen lugar es ponerlo en el Banco 1. Usar de $4000-6000 para el bitmap, y de $6000-$6400 para los colores. Y si agregamos los sprites, sid de ruido blanco y demás, queda así:
$0000 - $0fff: Libre (4k)
$1000 - $32f7: Buffer para tocar el sid más grande (~9k)
$32f8 - $3fff: Libre (~3k)
$4000 - $5fff: Gráfico bitmap (8k)
$6000 - $63ff: Gráfico color (Screen RAM) (1k)
$6400 - $68ff: Sprites (~1k)
$6900 - $6cff: Charset (1k)
$6d00 - $73ff: Sid de Ruido blanco (1.7k)
$7400 - $7caf: Imagenes de botones apretados + buffer temporal (~2k)
$7cb0 - $fbdf: Sids comprimidos (28k)
$fbe0 - $ffff: Libre (1k)Sobran 9k para poner el código del Player. Pero recordemos que en esos 9k también tiene que estar el Easter Egg. Eso complica las cosas bastante. Poner la Intro no ocupa lugar en los 9k. Luego explicaré porqué.
El código del player se puede dividir en:
- Sprites: Animar rueditas y demás
- Descomprimir sid, modificarlo para tocarlo en NTSC/Drean
- Actualizar nombre de canción / autor
- Leer eventos: mouse (port #1), joystick (port #2) o teclado
- Animar botones apretados
- Patchear gráfico bitmap con sprites
- Actualizar número de canción
Dentro del player se usan sprites en los distintos lugares:
- Animación de las rueditas: un sprite para cada ruedita
- Puntero: 2 sprites "overlaid"
- Boton de encendido: 1 sprite
- Contador para canciones: 1 sprite
- Arreglar "artifacs" del bitmap: 2 sprites
En total se usan 8 sprites, así que no hay necesidad de multiplexar los sprites.
La animación de las rueditas es trivial. Se cambia el sprite frame cada tantos segundos. Veamos como se hace:
SPRITE_DATA_ADDR = $6400
SPRITE0_POINTER = <((SPRITE_DATA_ADDR .MOD $4000) / 64) ; equivalente a 144
TOTAL_FRAMES = 5
do_anim_cassette:
dec delay
bne end ; fin del delay ?
lda #3
sta delay ; restaura el delay
dec $63f8 + 6 ; $63f8 + 6 es el "sprite pointer" del sprite 6
lda $63f8 + 6 ; lo compara con el primer frame - 1
cmp #(SPRITE0_POINTER - 1)
bne :+
lda #(SPRITE0_POINTER + TOTAL_FRAMES - 1) ; si es así, setea el frame otra vez desde el final
: sta $63f8 + 6 ; actualiza sprite pointer del sprite #6
sta $63f8 + 7 ; y lo mismo para el sprite #7
end:
rts
delay:
.byte 1Y los sprites pointers están desde $63f8 a $63ff ya que se esta usando el Banco 1 ($4000-$7fff) y le dijimos al VIC que la Screen va a estar en $6000.
Un truquito útil para que los sprites se vean mejor es dibujar un sprite standard sobre otro sprite (standard o multi-color).
La idea es esta:
Esta idea se usa mucho. Jueguitos como el Bruce Lee (y cientos de otros) la usan. El único inconveniente es que usa 2 sprites en vez de uno.
Otro truquito que usamos, es arreglar "bugs" del bitmap con sprites. Recuerden que las celdas del bitmap no pueden tener más de 2 colores. Y para solucionar algunos pixeles que se ven mal, los tapamos con sprites.
Y eso es todo respecto a los Sprites del Player.
Los sids están comprimidos con Exomizer. Así que se usa la rutina de descompresión del Exomizer2. Lo interesante de esta rutina, es que es "multi tarea". Es decir, mientras descomprime se pueden hacer otras cosas. En nuestro caso, cuando descomprimimos el sid, lo que hacemos es animar las rueditas del casette:
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; get_crunched_byte()
; Esta subrutina es llamada por el decruncher. X, Y y Carry se tiene que preservar.
; Actualiza el puntero del decruncher y anima las rueditas del casette
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
get_crunched_byte:
lda _crunched_byte_lo ; _crunched_byte_lo & _crunched_byte_hi
bne @byte_skip_hi ; son usados por el decruncher (exomizer)
dec _crunched_byte_hi ; para saber que byte tiene que Descomprimir
; cada vez que se llama a esta rutina
; lo que hay que hacer es decrementar en uno
; al puntero
@byte_skip_hi:
dec delay ; y de paso, lo que hacemos es animar las rueditas
bne @cont ; del casette.
; "delay" es un timer para animar las rueditas
; a la velocidad correcta
lda wheel_delay_counter ; resetea el delay
sta delay
php ; guarda Status (Carry y otros) porque
; el decruncher necesita que estos valores
; no se modifiquen
lda is_rewinding ; si se pasa a la canción anterior, entonces
beq @anim_ff ; animar ruedita para atras, sino para adelante
inc $63f8 + 6 ; $63f8 + 6 y + 7 son guardan los sprite frames
lda $63f8 + 6 ; de los sprites de las rueditas
cmp #(SPRITE0_POINTER + TOTAL_FRAMES)
bne :+
lda #SPRITE0_POINTER
: sta $63f8 + 6 ; actualiza los punteroes del sprite 6
sta $63f8 + 7 ; y del sprite 7
jmp @done_anim
@anim_ff:
dec $63f8 + 6 ; acá es lo mismo, pero con animación
lda $63f8 + 6 ; en "fast forward" (la otra era "rewind")
cmp #(SPRITE0_POINTER - 1)
bne :+
lda #(SPRITE0_POINTER + TOTAL_FRAMES - 1)
: sta $63f8 + 6 ; actualiza los punteros del sprite 6
sta $63f8 + 7 ; y 7
@done_anim:
plp ; restaura Status (Carry y otros)
@cont:
dec _crunched_byte_lo
_crunched_byte_lo = * + 1
_crunched_byte_hi = * + 2
lda $caca ; self-modyfing. tiene que contener el último
; byte + 1 de lo que se quiere descomprimir
; antes de llamar a esta rutina
rts
delay:
.byte 5Una vez descomprimido el sid, hay que modificar la tabla de frecuencias para que suene igual tanto en PAL, NTSC y Drean (PAL-N).
Para eso, no hay que hacer otra cosa que ir sid por sid y fijarse donde esta la tabla de frecuencias de cada uno.
Las tablas de frecuencias generalmente tienen 96 valores:
- 8 octavas
- de 12 semi-tonos cada una
Cada semi-tono ocupa 2 bytes, así que generalmente los sids almacenan las tablas de la siguiente manera:
; PAL freq table
freq_table_lo:
; C C# D D# E F F# G G# A A# B
.byte $17,$27,$39,$4b,$5f,$74,$8a,$a1,$ba,$d4,$f0,$0e ; 1
.byte $2d,$4e,$71,$96,$be,$e8,$14,$43,$74,$a9,$e1,$1c ; 2
.byte $5a,$9c,$e2,$2d,$7c,$cf,$28,$85,$e8,$52,$c1,$37 ; 3
.byte $b4,$39,$c5,$5a,$f7,$9e,$4f,$0a,$d1,$a3,$82,$6e ; 4
.byte $68,$71,$8a,$b3,$ee,$3c,$9e,$15,$a2,$46,$04,$dc ; 5
.byte $d0,$e2,$14,$67,$dd,$79,$3c,$29,$44,$8d,$08,$b8 ; 6
.byte $a1,$c5,$28,$cd,$ba,$f1,$78,$53,$87,$1a,$10,$71 ; 7
.byte $42,$89,$4f,$9b,$74,$e2,$f0,$a6,$0e,$33,$20,$ff ; 8
freq_table_hi:
; C C# D D# E F F# G G# A A# B
.byte $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$02 ; 1
.byte $02,$02,$02,$02,$02,$02,$03,$03,$03,$03,$03,$04 ; 2
.byte $04,$04,$04,$05,$05,$05,$06,$06,$06,$07,$07,$08 ; 3
.byte $08,$09,$09,$0a,$0a,$0b,$0c,$0d,$0d,$0e,$0f,$10 ; 4
.byte $11,$12,$13,$14,$15,$17,$18,$1a,$1b,$1d,$1f,$20 ; 5
.byte $22,$24,$27,$29,$2b,$2e,$31,$34,$37,$3a,$3e,$41 ; 6
.byte $45,$49,$4e,$52,$57,$5c,$62,$68,$6e,$75,$7c,$83 ; 7
.byte $8b,$93,$9c,$a5,$af,$b9,$c4,$d0,$dd,$ea,$f8,$ff ; 8Entonces lo que hay que hacer es buscar esas tablas (o similares) en los sids, y reemplazarlas en runtime por una de NTSC.
Note
No todas las tablas son iguales, pero si son muy parecidas. Por ejemplo, un "La" en la 8va octava puede que aparezca como
$f820, y en otras como$f830, u algún otro valor. Pero el oído humano no las diferenciaría.
Lo mejor es buscar por $01, $01, $01, $01, $02, $02, $02 y ver si tiene pinta de ser la tabla "hi". Y luego ir 96 bytes para arriba o abajo y ver si ahí esta la tabla "low".
Y una vez que se encuentren los valores, se reemplazan por los valores de una NTSC. Acá no hay que hacer más que un simple bucle para copiar las tablas. Ej:
; actualiza tabla de frecuencias
ldx #95
- @l0:
lda ntsc_freq_table_hi,x sta dst_hi,x
lda ntsc_freq_table_lo,x sta dst_lo,x bpl @l0
ntsc_freq_table_lo: .byte $0c,$1c,$2d,$3f,$52,$66,$7b,$92,$aa,$c3,$de,$fa ; 1 .byte $18,$38,$5a,$7e,$a4,$cc,$f7,$24,$54,$86,$bc,$f5 ; 2 .byte $31,$71,$b4,$fc,$48,$98,$ed,$48,$a7,$0c,$78,$e9 ; 3 .byte $62,$e2,$69,$f8,$90,$30,$db,$8f,$4e,$19,$f0,$d3 ; 4 .byte $c4,$c3,$d1,$f0,$1f,$61,$b6,$1e,$9d,$32,$df,$a6 ; 5 .byte $88,$86,$a3,$e0,$3f,$c2,$6b,$3d,$3a,$64,$be,$4c ; 6 .byte $0f,$0c,$46,$bf,$7d,$84,$d6,$7a,$73,$c8,$7d,$97 ; 7 .byte $1e,$18,$8b,$7f,$fb,$07,$ac,$f4,$e7,$8f,$f9,$2f ; 8
ntsc_freq_table_hi: .byte $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01 ; 1 .byte $02,$02,$02,$02,$02,$02,$02,$03,$03,$03,$03,$03 ; 2 .byte $04,$04,$04,$04,$05,$05,$05,$06,$06,$07,$07,$07 ; 3 .byte $08,$08,$09,$09,$0a,$0b,$0b,$0c,$0d,$0e,$0e,$0f ; 4 .byte $10,$11,$12,$13,$15,$16,$17,$19,$1a,$1c,$1d,$1f ; 5 .byte $21,$23,$25,$27,$2a,$2c,$2f,$32,$35,$38,$3b,$3f ; 6 .byte $43,$47,$4b,$4f,$54,$59,$5e,$64,$6a,$70,$77,$7e ; 7 .byte $86,$8e,$96,$9f,$a8,$b3,$bd,$c8,$d4,$e1,$ee,$fd ; 8
La otra cosa a tener en cuenta, es la velocidad con la que se toca el sid. Muchos trackers generan sids que se tocan a 50.125Hz (velocidad PAL). Es lo ideal. Pero no todos son así. Así que hay que doble chequear eso (ej: SidTracker64).
Y para hacer que algo funcione a cierta velocidad en la C64, hay dos maneras:
- Con interrupciones raster
- Y/o con interrupciones de timer
Básicamente las interrupciones son "callbacks" que nos llaman cuando sucede algo. Estos "callbacks" son programables: se puede activar o desactivar.
La interrupción por raster es la más común. Uno le dice a la C64 que lo llame cuando el raster esta en cierto rasterline.
Por ejemplo, si yo quisiera que el borde de la pantalla fuese negro en la parte de arriba, y blanco en la de abajo, se usan dos interrupciones de raster encadenadas. Es así:
setup_irq:
sei
ldx #<raster_top ; dirección de nuestro callback (IRQ)
ldy #>raster_top
stx $0314 ; IRQ vector lo
sty $0315 ; IRQ vector hi
lda #0
sta $d012 ; disparar raster cuando rasterline sea 0
lda #1
sta $d01a ; habilitar interrupción por raster
cli
rts
raster_top:
asl $d019 ; ACK interrupción de raster
lda #0 ; poner borde
sta $d020 ; con color negro (0=negro)
lda #100 ; encadenar 2nd callback
sta $d012 ; que se dispare cuando rasterline sea 100
ldx #<raster_bottom
ldy #>raster_bottom
stx $0314
sty $0315
jmp $ea81 ; salir de la interrupción
raster_bottom:
asl $d019 ; ACK interrupción de raster
lda #1 ; poner borde
sta $d020 ; con color blanco (1=blanco)
lda #0 ; encadenar al primer callback
sta $d012 ; que se dispare cuando rasterline sea 0
ldx #<raster_top
ldy #>raster_top
stx $0314
sty $0315
jmp $ea81 ; salir de la interrupciónY así uno puede encadenar varias interrupciones de raster. Lo importante acá es:
- el vector $0314/$0315 contiene la dirección del callback (IRQ)
- ACK (limpiar/aceptar) $d019 cuando nos llamen en la interrupción
- habilitar interrupción de raster con $d01a
- usar $d012 para decir en que rasterline se tiene que disparar la interrupción
- salir de la interrupción con un
jmpa $ea81 o $ea31 - el color del borde se cambia con $d020. usar $d021 para color de fondo de pantalla
Las interrupciones por timer funcionan muy similar a las del raster. Pero en vez de llamarnos cuando el rasterline tiene cierto valor, nos llaman cuando transcurren cierta cantidad de ciclos de CPU.
La manera de usarlas es muy similar. ej:
setup_irq:
sei
ldx #<timer_top ; dirección de nuestro callback (IRQ)
ldy #>timer_top
stx $0314 ; IRQ vector lo
sty $0315 ; IRQ vector hi
ldx #$c7 ; CIA 1 - Timer A que se dispare
ldy #$4c ; luego de $4cc8 ciclos (se pone uno menos.)
; ej: usar $4cc7 para contar $4cc8 ciclos
stx $dc04
sty $dc05
lda #$81
sta $dc0d ; prender interrupciones del CIA 1
lda #$11
sta $dc0e ; prender timer A
cli
rts
timer_top:
lda $dc0d ; ACK interrupción de Timer
jsr $1003 ; tocar música
jmp $ea81 ; salir de la interrupción- $dc0e se usa para activar el Timer A. Puede ser "single-shot" o "continue"
- $dc0d se usa para habilitar interrupciones del CIA 1
- $dc04 / $dc05 se usa para decirle cuantos ciclos tiene que contar antes de disparar el callback (IRQ)
Y así es como se usan las interrupciones. De hecho se pueden usar interrupciones de raster y de timer a la vez. Ambas comparten el mismo callback. Para diferenciar si es de raster o timer se puede hacer algo así:
irq:
asl $d019 ; ACK interrupción de raster
bcs raster ; y Carry estará prendido si la interrupción
; fue de raster
lda $dc0d ; ACK interrupción de timer
jsr $1003 ; ej: tocar música con el timer interrupt
jmp end
raster:
jsr animar_scroll ; ej: animar scroll con el raster interrupt
end:
jmp $ea81Ahora que ya sabemos usar los timers, veamos como se usan para tocar un sid a la velocidad correcta tanto en las distintas plataformas.
Asumiendo que el sid fue generado para PAL, la formulita para convertir a NTSC es:
((velocidad_del_timer + 1) * 1022727 / 985248) - 1
Y para convertir a Drean es similar:
((velocidad_del_timer + 1) * 1023440 / 985248) - 1
Para saber la velocidad del timer, hay que fijarse en el código del sid y ver si modifica los valores del timer CIA. Por ejemplo, si ven algo así:
ldx #$c7 ; store $4cc7 in Timer A - CIA 1
ldy #$4c ; $4cc7 is on tick per refresh in PAL
stx $dc04 ; Timer A lo
sty $dc05 ; Timer A hiSi el sid esta usando $4cc7 en el timer (un 'tick' por refresco de pantalla en PAL), entonces el nuevo valor del timer para NTSC será:
($4cc7 + 1) * 1022727 / 985248 - 1 = $4fb2
El +1 es porque el timer espera "cantidad de ciclos - 1".
ldx #$b2 ; store $4fb2 in Timer A - CIA 1
ldy #$4f ; $4fb2 sets correct speed for NTSC
stx $dc04 ; Timer A lo
sty $dc05 ; Timer A hiY el valor para Drean es: $4fc1.
Como ven las velocidades de Drean y NTSC son muy parecidas. De hecho las tablas de frecuencias son muy parecidas entre sí también.
En el caso del Player, y dado que no teníamos memoria libre, Drean y NTSC usan las mismas tabla de frecuencias.
La otra cosa importante es como detectar si una máquina es Drean, NTSC o PAL.
El truquito es el siguiente. Cada una de estas máquinas tiene un resolución de pantalla diferente:
- PAL: 312 x 63
- NTSC: 263 x 65
- Drean: 312 x 65
Eso esta medido en ciclos de CPU. En una PAL, refrescar toda la pantalla se tardan 312 x 63 = 19,656 ($4cc8) ciclos. ¿Les suena el número $4cc8?. Es el que usamos en el timer para tocar la música a velocidad PAL ($4cc8 - 1, ya que en los timers hay que restar 1 al valor que uno quiere). Eso significa que si yo pongo un timer a $4cc7, en una PAL va a llamarse una vez por refresco de pantalla.
La otra cosa a saber, es que uno puede saber en que rasterline se encuentra el raster. Por las dudas, el raster es el haz de luz que barre la pantalla de izquierda a derecha, de arriba hacia abajo.
Uniendo estas dos cosas, uno puede saber si la máquina es PAL, Drean o NTSC.
El truquito es así:
- Espero a que el raster este en la linea 0 (hay que leer $d012)
- Una vez que esta ahí, disparo el timer CIA con
$4cc7 - Cuando el timer me llame, habrá dado justo una vuelta entera y $d012 valdrá 0. Al menos en PAL
¿Pero que valor debería tener para una NTSC?
La NTSC tiene una resolución de 263 * 65. O sea, 17095 ciclos se necesitan para recorrerla entera. Si el timer esta seteado para 19656 ciclos, entonces hay un "overflow" de:
- 19656 - 17095 = 2561 ciclos
Y como el NTSC tiene 65 ciclos por linea, si divido ese valor por 65, me da:
- 2561 ciclos / 65 ciclos = 39.4.
O sea, que el raster, luego de 19656 ciclos, habrá dado una vuelta entera y estará en el rasterline 39. Y una cuenta similar hay que hacer para Drean (ejercicio para el lector).
El código que lo detecta PAL/NTSC/Drean es el siguiente:
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; char ut_detect_pal_paln_ntsc(void)
;------------------------------------------------------------------------------;
; Cuenta cuantas rasterlines se dibujan en 312*63 (19656) ciclos
; 312*63-1 es usado en el Timer del CIA, porque es lo que espero el Timer (uno menos)
;
; En PAL, (312 * 63) 19656/63 = 312 -> 312 % 312 (00, $00)
; En PAL-N, (312 * 65) 19656/65 = 302 -> 302 % 312 (46, $2e)
; En NTSC, (263 * 65) 19656/65 = 302 -> 302 % 263 (39, $27)
; En NTSC Old, (262 * 64) 19656/64 = 307 -> 307 % 262 (45, $2d)
;
; Return values:
; $01 --> PAL
; $2F --> PAL-N (Drean)
; $28 --> NTSC
; $2e --> NTSC-OLD
;
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
ut_detect_pal_paln_ntsc:
sei ; inhabilitar interrupciones
lda #0
sta $d011 ; apagar pantalla para inhabilitar badlines
: lda $d012 ; esperar a que el raster llegue a la rasterline 0 (más estable)
: cmp $d012
beq :-
bmi :--
lda #$00
sta $dc0e ; parar Timer A
lda #$00
sta $d01a ; inhabilitar raster IRQ
lda #$7f
sta $dc0d ; inhabilitar Timer en CIA 1
sta $dd0d ; y CIA 2
lda #$00
sta sync
ldx #<(312*63-1) ; poner timer para PAL
ldy #>(312*63-1)
stx $dc04 ; Timer A lo
sty $dc05 ; Timer A hi
lda #%00001001 ; one-shot
sta $dc0e
ldx #<timer_irq
ldy #>timer_irq
stx $fffe ; como el BASIC/KERNAL están apagados
sty $ffff ; se usa $fffe/$ffff en vez de $0314/$0315
asl $d019 ; ACK interrupción de raster
lda $dc0d ; ACK interrupción Timer en CIA 1
lda $dd0d ; y CIA 2
lda #$81
sta $dc0d ; habilitar interrupción timer A
cli ; CIA 1
: lda sync
beq :-
lda #$1b ; habilitar pantalla otra vez
sta $d011
lda ZP_VIC_VIDEO_TYPE ; valor de retorno
rts
timer_irq:
pha ; guardar "A"
lda $dc0d ; ACK interrupción de Timer
lda $d012
sta ZP_VIC_VIDEO_TYPE
inc sync
cli
pla ; restaurar "A"
rti ; restaurar "PC" y "Status"
sync: .byte $00Con esto ya deberíamos poder tocar sids en cualquier máquina de manera correcta.
Quizás la parte las tediosa de todo el Player es actualizar los nombres de la canción y autor. Veamos porque:
El modo bitmap funciona por celdas. La pantalla esta dividida en:
- 40 x 25 celdas
- Cada celda es de 8x8 pixels (8 bytes)
- Cada celda no puede tener más de 2 colores
El gráfico en total usa 16 colores. Pero si prestan atención, cada celda no tiene más de 2 colores a la vez. Este modo gráfico existe para ahorrar memoria. Por ejemplo, si uno pudiera elegir 16 colores (4 bits) por pixel, entonces el gráfico ocuparía:
- (320 * 200 * 4 bits) / 8 = 32000 bytes.
Algo muy caro para una computadora de 64k RAM. Sumado además a que el VIC no puede ver más de 16k a al vez. Sumado a que en si uno usa BASIC solo tiene 38k libres. O sea, este modo gráfico no existe en la C64.
Al usar celdas, el color de "foreground" y "background" se almacena en un buffer de 40 x 25. Cada byte representa el color de la celda: los 4 bits altos son "foreground", y los 4 bits bajos, son el "background". De esta manera, una gráfico bitmap + color ocupa:
- ((320 * 200 * 1 bit) / 8) + (40 * 25) = 9000 bytes.
Y 9000 bytes es algo aceptable para una máquina de 64k RAM.
Para prender un pixel en x,y y ponerle color se hace esto:
// pseudo código
void set_pixel(int x, int y)
{
// x va de 0 a 319
// y va de 0 a 199
// conseguir la celda correspondiente
int cell_offset = 40 * (y / 8) + (x / 8);
// dentro de esa celda, buscar el byte correspondiente
int byte_offset = y % 8;
// dentro de ese byte, buscar el bit correspondiente
int bit_offset = x % 8;
bitmap[cell_offset + byte_offset] |= bit_offset;
}
void set_cell_color(int x, int y, int foreground, int background)
{
// x va de 0 a 39
// y va de 0 a 24
offset = y * 40 + x;
color = (foreground << 4 | background);
screen_ram[offset] = color;
}Ahora que sabemos prender (y apagar) un pixel, lo que tenemos que hacer es que las letras se dibujen en "diagonal". Si vemos el gráfico nuevamente vemos que tiene una inclinación de:
- vertical: de 1 x 1. recta:
Y = -X. Pendiente de -1 - horizontal: de 2 x 1. recta:
Y = X/2. Pendiente de 0.5
Básicamente, lo que queremos lograr es algo así:
El algoritmo a dibujar las letras sería algo así:
//pseudo code
void plot_name(char* name)
{
int offset_pixel_x = 14 * 8; // empezar desde la celda 14 horizontal
int offset_pixel_y = 3 * 8; // empezar desde la celda 3 vertical
int l = strlen(name);
for (int i=0; i<l; ++i)
{
plot_char(name[i], x, y);
x += 8; // siguiente char empieza: 8 pixels a la derecha
y += 4; // y 4 pixels más abajo
}
}Pero lo difícil es implementar plot_char(). Si no tuviésemos que inclinar el char, la solución sería más o menos así:
// pseudo code
void plot_char_normal(char c, int offset_x, int offset_y)
{
char* char_data = charset[c * 8]; // cada char ocupa 8 bytes.
for (int y=0; y<8; y++)
{
for (int x=0; x<8; x++)
{
if (char_data[y] & (1 << (7-x))
set_pixel(offset_x + x, offset_y + y);
else
clear_pixel(offset_x + x, offset_y + y);
}
}
}Pero lo que queremos hacer es imprimirlo inclinado. La solución es similar, pero cada tanto tenemos que bajar e ir a la izquierda:
// pseudo code
void plot_char_inclinado(char c, int offset_x, int offset_y)
{
char* char_data = charset[c * 8]; // cada char ocupa 8 bytes.
// fix_x/fix_y son las que van a dar el efecto de inclinación
int fix_x = 0;
int fix_y = 0;
// iterar por sobre todos los pixels del char
for (int y=0; y<8; y++)
{
for (int x=0; x<8; x++)
{
if (char_data[y] & (1 << (7-x))
set_pixel(offset_x + x + fix_x, offset_y + y + fix_y);
else
clear_pixel(offset_x + x + fix_x, offset_y + y + fix_y);
// bajar un pixel (Y) por cada dos pixels horizontales (X)
fix_y = x/2;
}
// la siguiente fila tiene que empezar un pixel a la izquierda
fix_x--;
}
}Con ese algoritmo podemos imprimir cosas de este estilo:
Pero no es lo que queremos ya que:
- Ocupa mucho lugar de pantalla, no van a entrar los nombres de las canciones
- Hay pixeles vacíos en el medio de las letras, no se ve prolijo
¿Y por qué hay pixeles vacíos? La respuesta esta en ver esta rotación:
El algoritmo hace lo que le dijimos que haga, pero no es lo que queremos. Lo primero a hacer, es usar fonts de 4x8 (y no de 8x8) para que no ocupe tanto espacio de pantalla. Lo segundo es arreglar los pixeles vacíos.
Una posible solución para evitar los pixeles vacíos es que el algoritmo incline los chars de manera horizontal, y no vertical. Algo así como esto:
Y cuatro letras se verían así:
Lo que estamos haciendo, es que los pixeles vacíos estén como "separadores" de los caracteres, y no en el medio de cada caracter. Con esto en mente, el nuevo algoritmo es así:
// pseudo code
void plot_name(char* name)
{
int offset_pixel_x = 14 * 8; // empezar desde la celda 14 horizontal
int offset_pixel_y = 3 * 8; // empezar desde la celda 3 vertical
int l = strlen(name);
for (int i=0; i<l; ++i)
{
plot_char_semi_inclinado(name[i], x, y);
x += 4; // siguiente char empieza: 4 pixels a la derecha
y += 2; // y 2 pixels más abajo
}
}
void plot_char_semi_inclinado(char c, int offset_x, int offset_y)
{
char* char_data = charset[c * 8]; // cada char ocupa 8 bytes.
// fix_x da efecto de inclinación en X
int fix_x = 0;
// iterar por sobre todos los pixels del char
for (int y=0; y<8; y++)
{
// de 0 a 4, ya que el char ahora ocupa la mitad
for (int x=0; x<4; x++)
{
if (char_data[y] & (1 << (7-x))
set_pixel(offset_x + x + fix_x, offset_y + y);
else
clear_pixel(offset_x + x + fix_x, offset_y + y);
}
// la siguiente fila tiene que empezar un pixel a la izquierda
fix_x--;
}
}Lo que hay que hacer ahora, es tener un charset3 que cuando se incline solo horizontalmente, se vea como queremos. Por ejemplo, un charset como este:
Y así se ven algunas de las letras inclinadas:
Pero aún queda por solucionar las letras anchas como m, M, W y w. Eso se soluciona usando dos chars para esas letras y haciendo que las letras ocupen 8x8 y no 4x8. Sería así:
Entonces, el algoritmo final es:
- Se usa un charset de 8x8. Pero la mayoría de las letras son de 4x8. La parte derecha de la mayoría de las letras esta vacía
- Se copian los 8x8 pixels de las letras usando el algoritmo de
semi_inclinación - Ciertas letras como la
mywvan a usar dos caracteres. Ej:mamaes escrito comom&am&a, ya que el char&tendrá la parte que le falta a lam
Entonces, el código queda bastante sencillo, lo cual es bueno (menos bugs), pero se pone más esfuerzo en la data. Pero es 10 veces mejor tener código sencillo y data compleja, que al revés.
Algoritmo final para imprimir la letras inclinadas:
// pseudo code
void plot_name(char* name)
{
int offset_pixel_x = 14 * 8; // empezar desde la celda 14 horizontal
int offset_pixel_y = 3 * 8; // empezar desde la celda 3 vertical
int l = strlen(name);
for (int i=0; i<l; ++i)
{
plot_char_semi_inclinado(name[i], x, y);
x += 4; // siguiente char empieza: 4 pixels a la derecha
y += 2; // y 2 pixels más abajo
}
}
void plot_char_semi_inclinado(char c, int offset_x, int offset_y)
{
char* char_data = charset[c * 8]; // cada char ocupa 8 bytes.
// fix_x da efecto de inclinación en X
int fix_x = 0;
// iterar por sobre todos los pixels del char
for (int y=0; y<8; y++)
{
// de 0 a 8. Se copia el char entero
for (int x=0; x<8; x++)
{
if (char_data[y] & (1 << (7-x))
set_pixel(offset_x + x + fix_x, offset_y + y);
else
clear_pixel(offset_x + x + fix_x, offset_y + y);
}
// la siguiente fila tiene que empezar un pixel a la izquierda
fix_x--;
}
}El algoritmo anterior funciona bien, pero el problema es que usa mucho las multiplicaciones en set_pixel()4, y recordemos que el 6510 no tiene instrucciones de multiplicación.
Entonces el Player usa una versión un tanto más complicada para mejorar la performance. Tiene en cuenta lo siguiente:
- Los caracteres solo pueden empezar en los siguientes offsets relativos a las celdas: (0,0), (4,2), (0,4), (4,6)
- Un caracter necesita dos celdas para imprimirse. Y estas celdas son contiguas.
- El siguiente caracter a imprimir estará, como mucho, a una celda de distancia tanto en X como en Y
- Hay funciones especificas para dibujar los posibles 4 offsets
plot_char_0(), ...,plot_char_3() - Hay funciones especificas para dibujar cada una de las 8 filas:
plot_row_0(), ...,plot_row_7() - Hay tres punteros globales:
$f6/$f7offset del charset que apunta al caracter a imprimir$f8/f9, y$fa/$fbque apuntan a la celda actual, y a la siguiente celda del bitmap
Con eso en mente, no hace falta calcular el offset de los pixeles por cada pixel y eso ahorra CPU ya que no hay multiplicaciones de por medio. Aunque agrega complejidad.
Así es como funciona el algoritmo optimizado (pseudo código):
// pseudo código
// global: apunta al principio del bitmap
#define ORIGIN_CELL_X = 14;
#define ORIGIN_CELL_Y = 3;
// en el código en assembler, estas dos variables están representadas
// por `$f8/$f9` y `$fa/$fb`
int g_bitmap_offset_0, g_bitmap_offset_1;
void plot_name(char* name)
{
int l = strlen(name);
int idx = 0;
// inicializar bitmap offset con el origen de la celda
g_bitmap_offset_0 = ORIGIN_CELL_Y * 40 + ORIGIN_CELL_X * 8;
g_bitmap_offset_1 = ORIGIN_CELL_Y * 40 + (ORIGIN_CELL_X + 1) * 8;
char c;
while (no_se_hayan_impreso_todos_los_chars) {
c = fetch_next_char();
plot_char_0(c); // print first char (offset 0,0)
c = fetch_next_char();
plot_char_1(c); // print second char (offset 4,2)
bitmap_next_x(); // celda_x++ (actualiza g_bitmap_offsets)
c = fetch_next_char();
plot_char_2(c); // print third char (offset 0,4)
c = fetch_next_char();
plot_char_3(c); // imprime cuarto char (offset 4,6)
bitmap_next_x(); // celda_x++ (actualiza g_bitmap_offsets)
bitmap_next_y(); // celda_y++ (actualiza g_bitmap_offsets)
}
}
// prints char at offset 0,0
void plot_char_0(char* char_data)
{
plot_row_0(char_data[0]);
bitmap_prev_x(); // celda_x-- (actualiza g_bitmap_offsets)
plot_row_1(char_data[1]);
plot_row_2(char_data[2]);
plot_row_3(char_data[3]);
plot_row_4(char_data[4]);
plot_row_5(char_data[5]);
plot_row_6(char_data[6]);
plot_row_7(char_data[7]);
// restore pointer
bitmap_next_x();
}
// prints char at offset 4,2
void plot_char_1(char* char_data)
{
plot_row_2(char_data[0]);
plot_row_3(char_data[1]);
plot_row_4(char_data[2]);
plot_row_5(char_data[3]);
plot_row_6(char_data[4]);
bitmap_prev_x(); // celda_x-- (actualiza g_bitmap_offsets)
plot_row_7(char_data[5]);
bitmap_next_y(); // celda_y++ (actualiza g_bitmap_offsets)
plot_row_0(char_data[6]);
plot_row_1(char_data[7]);
// restore pointers
bitmap_next_x();
bitmap_prev_y();
}
void plot_char_2(char* char_data)
{
// y así sucesivamente hasta el plot_char_3()
...
}
void plot_row_0(char c)
{
g_bitmap[g_bitmap_offset_0] = c;
}
void plot_row_1(char c)
{
rotate_left(c, 1); // caracter es rotado un lugar a la izquierda
// actualizo celda izquierda
char value_izq = g_bitmap[g_bitmap_offset_0];
value_izq &= 0b11111110; // apago el 1er bit LSB
value_izq |= (c & 0b00000001); // pongo lo que este en el 1er bit LSB del char
g_bitmap[g_bitmap_offset_0] = value_izq;
// actualizo celda derecha
char value_der = g_bitmap[g_bitmap_offset_1];
value_der &= 0b00000001; // apago los 7 primeros bit MSB
value_der |= (c & 0b11111110); // pongo lo que este en los primeros 7 bit MSB del char
g_bitmap[g_bitmap_offset_1] = value_der;
}
void plot_row_2(char c)
{
rotate_left(c, 2); // caracter es rotado dos lugares a la izquierda
// actualizo celda izquierda
char value_izq = g_bitmap[g_bitmap_offset_0];
value_izq &= 0b11111100; // apago los dos bit LSB
value_izq |= (c & 0b00000011); // pongo lo que este en los dos bit LSB del char
g_bitmap[g_bitmap_offset_0] = value_izq;
// actualizo celda derecha
char value_der = g_bitmap[g_bitmap_offset_1];
value_der &= 0b00000011; // apago los 6 primeros bit MSB
value_der |= (c & 0b11111100); // pongo lo que este en los primeros 6 bit MSB del char
g_bitmap[g_bitmap_offset_1] = value_der;
}
void plot_row_3(char c)
{
// y así sucesivamente hasta el plot_row_7()
...
}Y eso mismo (más/menos algunos cambios) es como esta hecho el Player, pero en assembler. Con esto se logra que no se hagan multiplicaciones.
Para los que quieran ver el código en completo en assembler, esta acá:
Algunos truquitos que usamos en el plotter:
Usamos macros y algunos Pseudo Functions5 como .IDENT, .CONCAT para simplificar el código. Veamos como se usan:
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; Macros
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; entry:
; number_of_rows: cuantas filas a imprimir
; char_y_offset: offset del char a imprimir
; cell_y_offset: offset de la celda Y
; cell_x_offset: offset de la celda X. Usada para llamar a plot_row_xxx
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
.macro PLOT_ROWS number_of_rows, char_y_offset, cell_y_offset, cell_x_offset
.repeat number_of_rows, YY
ldy #char_y_offset + YY
lda ($f6),y ; $f6 apunta a la data del charset
ldy #cell_y_offset + YY
jsr .IDENT(.CONCAT("plot_row_", .STRING(cell_x_offset + YY)))
.endrepeat
.endmacro
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; entry:
; A = byte to plot
; Y = bitmap offset
; MUST NOT modify X
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
.macro PLOT_BYTE addr, mask
.scope
and #mask
sta ora_addr
lda (addr),y
and # <(.BITNOT mask)
ora_addr = *+1
ora #0 ; self modifying
sta (addr),y
.endscope
.endmacro
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; Funciones
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; plot_char_0
; entry:
; $f6,$f7: address of char from charset (8 bytes)
; $f8,$f9: bitmap
; $fa,$fb: bitmap + 8
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
plot_char_0:
PLOT_ROWS 8, 0, 0, 0 ; number_of_rows, char_y_offset, cell_y_offset, cell_x_offset
rts
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; plot_char_1
; entry:
; $f6,$f7: address of char from charset (8 bytes)
; $f8,$f9: bitmap
; $fa,$fb: bitmap + 8
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
plot_char_1:
PLOT_ROWS 4, 0, 2, 4 ; number_of_rows, char_y_offset, cell_y_offset, cell_x_offset
jsr bitmap_prev_x
PLOT_ROWS 2, 4, 6, 0 ; number_of_rows, char_y_offset, cell_y_offset, cell_x_offset
jsr bitmap_next_y
PLOT_ROWS 2, 6, 0, 2 ; number_of_rows, char_y_offset, cell_y_offset, cell_x_offset
jsr bitmap_next_x ; restore
jsr bitmap_prev_y ; restore
rts
plot_char_2:
; y así hasta el plot_char_3
...
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; plot_row_0
; entry:
; A = byte to plot
; Y = bitmap offset
; $f8,$f9: bitmap
; $fa,$fb: bitmap + 8
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
plot_row_0:
sta ($f8),y ; no tiene que rotar nada
rts ; así que lo imprime directamente
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; plot_row_1
; entry:
; A = byte to plot
; Y = bitmap offset
; $f8,$f9: bitmap
; $fa,$fb: bitmap + 8
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
plot_row_2:
.repeat 1 ; rota el caracter 1 posición
asl ; a la izquierda
adc #0
.endrepeat
tax ; save for next value
PLOT_BYTE $f8, %00000001
txa
PLOT_BYTE $fa, %11111110
rts
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; plot_row_2
; entry:
; A = byte to plot
; Y = bitmap offset
; $f8,$f9: bitmap
; $fa,$fb: bitmap + 8
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
plot_row_2:
.repeat 2 ; rota el caracter 2 posiciones
asl ; a la izquierda
adc #0 ; el "adc" pone a la derecha lo que salió
; por la izquierda
.endrepeat
tax ; save for next value
PLOT_BYTE $f8, %00000011
txa
PLOT_BYTE $fa, %11111100
rts
plot_row_3:
; y así hasta el plot_row_7
...El truquito que usamos de rotar "in-place"6 es simpático:
asl ; rota todo un bit a la izquierda. "C" tiene el valor del bit 7.
adc #0 ; y el bit 0 tiene el valor del "C"Los unrolled loops se usan mucho dentro de juegos/demos/intros que quieren lograr velocidad (a cambio de espacio en RAM):
Un loop normal es así:
lda #$20 ; pone un $20 de $0400 a $04ff
ldx #0
- l0: sta $0400,x ; tarda 5 ciclos, ocupa 3 bytes
dex ; tarda 2 ciclos, ocupa 1 byte bne l0 ; tarda 2 ciclos, ocupa 2 bytes
El loop se repite 256 veces, así el loop tarda (5 + 2 + 2) * 256 = 2304 ciclos y ocupa 6 bytes.
Una manera de hacerlo mucho más rápido es con un unrolled loop. Así:
lda #$20 ; pone un $20 de $0400 a $04ff
sta $0400 ; tarda 4 ciclos, ocupa 3 bytes
sta $0401 ; tarda 4 ciclos, ocupa 3 bytes
sta $0402 ; tarda 4 ciclos, ocupa 3 bytes
...
sta $04fe ; tarda 4 ciclos, ocupa 3 bytes
sta $04ff ; tarda 4 ciclos, ocupa 3 bytesDe esta manera el unrolled loop tarda 4 * 256 = 1024 ciclos, pero ocupa 256 * 3 = 768 bytes.
Una manera más mantenible de escribir unrolled loops es, al menos con cc65, es así:
lda #$20
.repeat 256, XX
sta $0400 + XX
.endrepeatY van a ver que dentro del código del Chipdisk se usa mucho. Solo buscar por .repeat para que vean la cantidad de veces que se usa. Pero para ser honestos no estoy seguro que el Chipdisk requiera de tantos unrolled loops.
La otra cosa a rescatar, es como funciona el bitmap_next_y(). Lo que hace es sumar 320 al puntero $f8/$f9. Y como 320 = 256 + 64, lo hace sumando 64 a $f8 e incrementando en uno $f9.
bitmap_next_y:
clc ; limpiar Carry para la suma
lda $f8 ;
adc #64 ; suma 64 a $f8 y guarda el carry
sta $f8 ; guarda el valor en $f8
lda $f9 ; incrementa $f9 en 1 + carry
adc #1
sta $f9 ; guarda en valor en $f9El Player soporta 3 métodos para controlar la "flechita":
- Joystick en el port #2
- Mouse en el port #1
- Teclado
Leer el joystick es relativamente sencillo en la C64. Los valores del joystick 1 están en $dc01 y los del joystick 2 están en $dc00
ldx $dc00 ; "X" tiene el valor del joystick #2
ldy $dc01 ; "Y" tiene el valor del joystick #1Los posibles valores son:
| $dc00/$dc01 | Significado |
|---|---|
| Bit 4 | Joystick Boton: 0 = Activo |
| Bit 3 | Joystick Derecha: 0 = Activo |
| Bit 2 | Joystick Izquierda: 0 = Activo |
| Bit 1 | Joystick Abajo: 0 = Activo |
| Bit 0 | Joystick Arriba: 0 = Activo |
Importante: 0 significa que esta prendido, y 1 apagado. Si uno quiere chequear si el botón del Joystick 2 esta apretado, el código es:
lda $dc00 ; leer estado de Joystick 2
and #%00010000 ; solo me interesa el estado del botón
beq boton_apretado ; si es 0, entonces el botón esta apretadoY algo similar para el Joystick 1, pero con $dc01 en vez de $dc00.
El teclado es un poco más complicado... o no, depende de lo que uno necesite. Hay una función del KERNAL que devuelve la tecla apretada: $ffe4
jsr $ffe4 ; devuelve en A en byte leido del tecladoY usar el KERNAL para esto esta más que bien para la mayoría de los casos. El Player, sin embargo, usa el otra opción que es leyendo el "hardware" directamente, y funciona así:
- El teclado de la Commodore 64 tiene 64 teclas (sin contar RESTORE)
- Y las teclas están ordenadas en una matriz de 8 x 8 (8 * 8 = 64)
- $dc01 contiene los valores de las columnas
- y $dc00 contiene los valores del las filas
O sea, que uno puede saber que teclas están apretadas al leer la siguiente matriz:
+---------------+--------------------------------------------------------------------------------+ $DC01 | | Bit 7 | Bit 6 | Bit 5 | Bit 4 | Bit 3 | Bit 2 | Bit 1 | Bit 0 | +=====+=========+=========+=========+=========+=========+=========+==========+=========+=========+ | RUN/STOP| Q | C= | SPACE | 2 | CTRL | ← | 1 | | +---------+---------+---------+---------+---------+---------+----------+---------+---------+ | / | ↑ | = | SHIFT-R | CLR/HOME| ; | * | £ | | +---------+---------+---------+---------+---------+---------+----------+---------+---------+ | , | @ | : | . | - | L | P | + | | +---------+---------+---------+---------+---------+---------+----------+---------+---------+ Bit 4| N | O | K | M | 0 | J | I | 9 | | +---------+---------+---------+---------+---------+---------+----------+---------+---------+ | V | U | H | B | 8 | G | Y | 7 | | +---------+---------+---------+---------+---------+---------+----------+---------+---------+ | X | T | F | C | 6 | D | R | 5 | | +---------+---------+---------+---------+---------+---------+----------+---------+---------+ | SHIFT-L | E | S | Z | 4 | A | W | 3 | | +---------+---------+---------+---------+---------+---------+----------+---------+---------+ | UP/DOWN | F5 | F3 | F1 | F7 RETURN | INST/DEL| +-----+---------+---------+---------+---------+---------+---------+----------+---------+---------+
Si queremos saber si la tecla Q fue apretada entonces hay que hacer lo siguiente:
lda #%01111111 ; fila 7
sta $dc00
lda $dc01
and #%01000000 ; columna 6
beq tecla_apretada ; si vale 0, entonces fue apretadaAl igual que el joystick, un valor 0 indica que fue apretada, y un 1 que no.
Si queremos saber si el cursor izquierda esta apretado, entonces hay que chequear si las teclas Shift y cursor izquierda/derecha están apretadas. Para detectar eso, en el Player hacemos esto:
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; read_keyboard
;
; chequea si cursor derecha o izquierda fueron apretado
;
; A = 0 nada fue apretado
; A = 1 cursor derecha fue apretado
; A = 2 cursor izquierda fue apretado
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
read_keyboard:
; IMPORTANTE: los bits están invertidos en el CIA (0 = on, 1 = off)
NoKey = 0
LeftKey = 1
RightKey = 2
; Chequear por shift izquierdo
lda #%11111101 ; file 2
sta $dc00
lda CIA1_PRB
and #%10000000 ; col 7
beq :+
; Chequear for shift derecho
lda #%10111111 ; file 6
sta $dc00
lda CIA1_PRB
and #%00010000 ; col 4
beq :+
lda #$ff ; shift no apretados
: sta shift_on
; chequear por cursor izq/derecha
lda #%11111110 ; file 0
sta $dc00
lda CIA1_PRB
and #%00000100 ; col 2
cmp keydown
bne newkey
lda #NoKey ; No se apretó nada
rts
newkey:
sta keydown
lda keydown
beq :+
lda #NoKey ; key up
rts
: lda shift_on
beq left
lda #RightKey
rts
left: lda #LeftKey
rts
keydown:
.byte %00000100
shift_on:
.byte $ff ; $ff = false, $00 = trueEl Player funciona con el mouse también. No es muy común usar mouse en la C64, pero si uno tiene un Commodore 1351, lo puede usar. Controlar el mouse no es tan complicado, pero tiene lo suyo.
Lo primero que hay que hacer, es decirle a la CIA que el puerto 1 (ó 2) se va a usar para el mouse. Y luego se lee el delta x desde $d419 y el delta y desde $d41a (que son registros del chip de sonido).
El mouse se activa con $dc00.
lda #%01000000 ; habilitar mouse
sta $dc00 ; en puerto 1
; luego de usar el mouse, se desactiva de la siguiente manera
lda #%00111111 ; habilitar joystick
sta $dc00 ; en puerto 1Y esta es la rutina que usa el Player: lee los deltas, y chequea si el boton fue apretado
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; read_mouse
; exit x = delta x movement
; y = delta y movement
; C = 0 if button pressed
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
read_mouse:
lda $d419 ; lee delta X (pot x)
ldy opotx
jsr mouse_move_check ; calcular delta
sty opotx
sta ret_x_value
lda $d41a ; leer delta Y (pot y)
ldy opoty
jsr mouse_move_check ; calcular delta
sty opoty
eor #$ff ; delta esta invertido... arreglarlo
tay
iny
sec ; C = 1 (significa botón no apretado)
ret_x_value = * + 1
ldx #00 ; self modifying
lda $dc01 ; leer botón joy #1 : bit 4
asl
asl
asl
asl ; C = 0 (significa botón apretado)
rts
opotx: .byte $00
opoty: .byte $00
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; mouse_move_check
; Taken from here:
; https://github.com/cc65/cc65/blob/master/libsrc/c64/mou/c64-1351.s
;
; entry y = old value of pot register
; a = current value of pot register
; exit y = value to use for old value
; x,a = delta value for position
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
mouse_move_check:
sty old_value
sta new_value
ldx #$00
sec
sbc old_value ; a = mod64 (new - old)
and #%01111111
cmp #%01000000 ; if (a > 0)
bcs @L1 ;
lsr a ; a /= 2;
beq @L2 ; if (a != 0)
ldy new_value ; y = NewValue
rts ; return
@L1: ora #%11000000 ; else or in high order bits
cmp #$ff ; if (a != -1)
beq @L2
sec
ror a ; a /= 2
dex ; high byte = -1 (X = $FF)
ldy new_value
rts
@L2: txa ; A = $00
rts
old_value: .byte 0
new_value: .byte 0Y para entender mejor como se habilita/inhabilita el mouse/joystick así es como funciona el main_loop() del Player:
main_loop:
...
lda #%01000000 ; habilitar mouse
sta $dc00 ; (inhabilita joystick)
jsr read_mouse
jsr process_mouse
jsr read_keyboard
jsr process_keyboard
lda #%00111111 ; habilitar joystick
sta $dc00 ; (inhabilita el mouse)
jsr read_joystick
jsr process_joystick
...
jmp main_loopAcá no estamos haciendo nada raro. Simplemente reemplazamos un pedazo del bitmap por otro.
El algoritmo es más o menos así:
- El botón que esta apretado (si es que hay alguno) se reemplaza por el contenido del buffer temporal
- Se copia al buffer temporal el contenido del boton a apretar
- Se copia el contenido del botón apretado a destino
Lo que se copia es un bloque de 7x7 de cada botón. Se copia tanto el bitmap como el color. Cada botón ocupa:
- bitmap: 7 * 7 * 8 (8 bytes por celda) + color: 7 * 7 = 441 bytes
Son 4 botones lo que animamos: Play, FF, Rew y Stop, y usamos un buffer temporal. Así que en total usamos 441 * 5 (2205) bytes de data para esto.
El código en assembler esta hecho con macros:
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; BUTTON_IMAGE_COPY
;
; Copy button (7x7 block) bitmap and colormap to Screen RAM and Color RAM
; respectively, from source address. Source address must point to the start of
; the bitmap data, and its colormap must follow.
;
; If from_screen is not blank, data from screen is copied to src.
;
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
.macro BUTTON_IMAGE_COPY src, pos_x, pos_y, from_screen
Width = 7
Height = 7
ScreenRAM = $4000
ScreenSrc = src
ScreenDest = ScreenRAM + (pos_y * 40 * 8) + (pos_x * 8)
ColorRAM = $6000
ColorSrc = src + (Width * Height * 8)
ColorDest = ColorRAM + (pos_y * 40) + pos_x
.repeat Height, YY
;; Copy bitmap
ldx #(Width*8-1)
.ifblank from_screen
: lda ScreenSrc + (YY * (Width * 8)), x
sta ScreenDest + (YY * (40 * 8)), x
.else
: lda ScreenDest + (YY * (40 * 8)), x
sta ScreenSrc + (YY * (Width * 8)), x
.endif
dex
bpl :-
;; Copy color attributes
ldx #(Width-1)
.ifblank from_screen
: lda ColorSrc + (YY * Width), x
sta ColorDest + (YY * 40), x
.else
: lda ColorDest + (YY * 40), x
sta ColorSrc + (YY * Width), x
.endif
dex
bpl :-
.endrepeat
rts
.endmacro
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
;; play
button_play_plot:
BUTTON_IMAGE_COPY img_button_play, 0, 14
button_play_save:
BUTTON_IMAGE_COPY tmp_img_button, 0, 14, 1
button_play_restore:
BUTTON_IMAGE_COPY tmp_img_button, 0, 14
;; rew
button_rew_plot:
BUTTON_IMAGE_COPY img_button_rew, 3, 16
button_rew_save:
BUTTON_IMAGE_COPY tmp_img_button, 3, 16, 1
button_rew_restore:
BUTTON_IMAGE_COPY tmp_img_button, 3, 16
;; ff
button_ff_plot:
BUTTON_IMAGE_COPY img_button_ff, 7, 18
button_ff_save:
BUTTON_IMAGE_COPY tmp_img_button, 7, 18, 1
button_ff_restore:
BUTTON_IMAGE_COPY tmp_img_button, 7, 18
;; stop
button_stop_plot:
BUTTON_IMAGE_COPY img_button_stop, 10, 18
button_stop_save:
BUTTON_IMAGE_COPY tmp_img_button, 10, 18, 1
button_stop_restore:
BUTTON_IMAGE_COPY tmp_img_button, 10, 18
El Easter Egg (huevo de pascua) esta hecho con:
- Usa modo texto (PETSCII puro) para el sol y sus animaciones
- 7 sprites extendidos en X e Y para el scroll
- Abre el borde vertical para por los sprites debajo del sol
- Toca un sid que tiene que sonar bien en PAL/NTSC/Drean
Una manera de abrir el borde vertical es más o menos así:
- Se cambia modo 24 filas cuando el VIC esta dibujando la fila 25 (entre los rasterlines
$f2y$fa) - Se cambia a modo 25 filas una vez que el raster pasó la fila 25.
y eso se tiene que hacer en cada frame.
Ejemplo:
loop:
lda #$f9 ; raster line llegó a $f9?
: cmp $d012 ; sino, esperarlo
bne :-
lda $d011 ; cambiar a modo 24-filas
and #%11110111 ;
sta $d011
lda #$fc ; esperar a la rasterline $fc
: cmp $d012
bne :-
lda $d011 ; cambiar a modo 25-filas
ora #%00001000 ; nuevamente
sta $d011
jmp loopEsa es la lógica en general. Pero lo que hay que cambiar es como esperar a la rasterline $f9 sin que se consuma todos los ciclos. La manera más sencilla es con una interrupción de raster... algo así:
setup_irq:
sei
lda #$f9 ; disparar IRQ en rasterline $f9
sta $d012
ldx #<irq_vector
ldy #>irq_vector
stx $fffe ; como BASIC/KERNAL estan apagados se usa
sty $ffff ; $fffe/$ffff en vez de $0314/$0315
cli
rts
irq_vector:
pha ; guarda "A"
asl $d019 ; ACK interrupción raster
lda $d011 ; cambiar a modo 24-filas
and #%11110111 ;
sta $d011
lda #$fc ; esperar a la rasterline $fc
: cmp $d012
bne :-
lda $d011 ; cambiar a modo 25-filas
ora #%00001000 ; nuevamente
sta $d011
pla ; restaura "A"
rti ; restaurar "PC" y "Status"Eso funciona en el 99% de los casos. Pero recordemos que tenemos que tocar el sid para que funcione bien en PAL, NTSC y Drean. Y para el sid tenemos que usar un timer con la velocidad correcta que puede ser que sea distinta la velocidad del raster irq.
Supongamos que estamos corriendo el programita en una NTSC (ver Detectando entre... para más info):
- Vamos a tener un timer que se dispara cada
$4fb3(20403) ciclos para tocar el sid - Y además el raster IRQ se dispara cada
$42c7(263*65 = 17095) ciclos para abrir el borde
Es posible que cada tanto, el borde no se abra porque la interrupción del sid se ejecuta justo cuando se tenía que llamar a la interrupción del raster. En la animación de arriba la barra blanca que "baja" muestra cuando se ejecuta el Timer IRQ y su duración. Y la barrita chiquita de abajo muestra el Raster IRQ. Como se puede ver, a veces "chocan" y no se sabe cual se ejecuta.
Una manera de lograr que el borde se abra siempre, es usar la interrupción NMI (Non-Maskable Interrupt) para disparar el código del borde. La interrupción NMI tiene prioridad sobre las demás interrupciones. Si la interrupción de Raster se esta ejecutando cuando la NMI se tiene que ejecutar, la Interrupción NMI interrumpe la interrupción Raster. Pero nadie puede interrumpir a una interrupción NMI.
La interrupción NMI se puede disparar con los siguientes eventos:
- Apretando la tecla Restore
- Hardware
- Con el Timer A del CIA 2: $dd0d y demás amigos
Y en nuestro caso, vamos a usar el Timer A del CIA 2. Es así:
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; init_nmi
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
init_nmi:
; setup NMI (abrir borde)
ldx #<nmi_openborder
ldy #>nmi_openborder
stx $fffa ; usa el vector de NMI ($fffa/$fffb)
sty $fffb ; y no el de IRQ ($fffe/$ffff)
lda #$0 ; parar timer A CIA 2
sta $dd0e
; PAL, (312 * 63) $4cc8 - 1
; PAL-N, (312 * 65) $4f38 - 1
; NTSC, (263 * 65) $42c7 - 1
; NTSC Old, (262 * 64) $4180 - 1
ldx #<$4cc7 ; default: PAL
ldy #>$4cc7
lda ZP_VIC_VIDEO_TYPE ; $01 --> PAL
; $2F --> PAL-N (Drean)
; $28 --> NTSC
; $2e --> NTSC-Old
cmp #$01
beq @done
cmp #$2f
beq @paln
cmp #$28
beq @ntsc
bne @ntsc_old
@paln:
ldx #<$4f37n ; ciclos para PAL-N (Drean)
ldy #>$4f37
bne @done
@ntsc:
ldx #<$42c6 ; ciclos para NTSC
ldy #>$42c6
bne @done
@ntsc_old:
ldx #<$417f ; ciclos para NTSC-Old
ldy #>$417f ; fall-through
@done:
stx $dd04 ; Timer A: low-cycle-count
sty $dd05 ; Timer A: high-cycle-count
lda #%10000001 ; habilitar interrupción timer A
sta $dd0d ; en CIA 2
: lda $d012 ; esperar a que el rasterline llegue
: cmp $d012 ; a $f9, que es donde queremos abrir
beq :- ; el borde
cmp #$f9
bne :--
lda #%10010001 ; ¡y habilitar el timer A!
sta $dd0e
rts
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; nmi_openborder
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
nmi_openborder:
pha ; guardar "A"
lda $dd0d ; ACK la interrupción del Timer CIA 2
lda $d011 ; abrir borde vertical
and #%11110111 ; cambiando a 24-filas
sta $d011
lda #$fc ; Esperar a que el rasterline llegue a $fc
: cmp $d012
bne :-
lda $d011 ; y cambiar nuevamente a 25-filas
ora #%00001000
sta $d011
pla ; restaurar "A"
rti ; restaurar "PC" y "Status"Y de esa manera el borde siempre se va a abrir, sin importar que la interrupción IRQ este activada.
El Scroll se hace con 7 sprites expandidos tanto en X como Y, abarcando todo el largo de la pantalla. El largo de la pantalla son 320 pixeles. Y con 7 sprites expandidos en X cubrimos: 7 * 24 * 2 = 336 pixeles.
El scroll no se puede hacer con caracteres, porque se hace debajo de la linea 25. Y lo único que se puede por ahí son sprites.
El truquito es muy sencillo:
- Se ponen 7 sprites expandidos en X, uno al lado del otro
- Al principio los sprites están "vacíos"
- Se calcula el
C(carry) para actualizar el sprite de más a la derecha - Se hace
rolde cada fila del sprite. Ycarryse usa para la columna anterior de la misma fila
Es similar un scroll de texto normal, pero en vez de scrollear caracteres, se scrollean bits de sprites. El código es este:
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; animate_scroll
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
animate_scroll:
; usa $fa-$ff como variables temporales
lda #0
sta $fa ; variable temporal
ldx #<CHARSET_ADDR ; dirección donde esta el charset
ldy #>CHARSET_ADDR
stx $fc
sty $fd ; $fc/$fd son los punteros al charset
load_scroll_addr = * + 1
lda SCROLL_TEXT ; self-modifying
cmp #$ff ; si "char == $ff" es fin de scroll
bne next
ldx #0 ; resetear scroll, ya que se vuelve a empezar
stx ZP_BIT_INDEX
ldx #<SCROLL_TEXT
ldy #>SCROLL_TEXT
stx load_scroll_addr
sty load_scroll_addr+1
lda SCROLL_TEXT
next: ; A tiene el char a dibujar
clc ; char_idx * 8, ya que cada char
asl ; ocupa 8 bytes en el charset
rol $fa
asl
rol $fa
asl
rol $fa
tay ; char_def = ($fc),y
clc
lda $fd
adc $fa ; A = charset[char_idx * 8]
sta $fd
; scroll 8 bytes de arriba
; YY = filas del sprite. 8 en total
; SS = numero de sprite. 7 en total
.repeat 8, YY ; "unrolled loop" para que se más rápido
lda ($fc),y
ldx ZP_BIT_INDEX ; Se actualiza el "C" (carry) con el valor
: asl ; necesario para actualizar el sprite
dex ; de más a la derecha
bpl :-
.repeat 7, SS ; cada sprite tiene 3 "columnas". scrollear cada una de las 3
; empezando por la la más a la derecha
rol SPRITE_ADDR + (6 - SS) * 64 + YY * 3 + 2
rol SPRITE_ADDR + (6 - SS) * 64 + YY * 3 + 1
rol SPRITE_ADDR + (6 - SS) * 64 + YY * 3 + 0
.endrepeat
iny ; byte of the char
.endrepeat
ldx ZP_BIT_INDEX ; bit index va de 0 a 7
inx ; se incrementa una vez por "scroll"
cpx #8 ; cuando llega a 8 (overflow)
bne l1 ; se lee el siguiente char del texto
; del scroll
ldx #0
clc
inc load_scroll_addr ; siguiente char a leer del texto
bne l1 ; del scroll
inc load_scroll_addr+1
l1:
stx ZP_BIT_INDEX
rts
Una vez que el Easter Egg se activa hay que descomprimirlo. El problemita acá es que el Easter Egg no entra en un "chunk" continuo. Esta partido en 3 partes:
- código comprimido:
$0118 - $07ff - sid comprimido: En algún lugar cerca de
$e000 - texto de scroll comprimido: En algún lugar cerca de
$f800
Lo interesante acá es el código comprimido que usa parte del stack de la c64. Y para evitar que el stack pise al código comprimido, le decimos al stack que el "tope" del stack es $0117 con las siguientes instrucciones:
ldx #$17 ; solo se usan 24 bytes para el stack
txs ; el resto esta reservado para el easter eggLa memoria del Player con el Easter Egg comprimido queda así:
; Memoria del Player con Easter Egg comprimido
$0000 - $00ff: Zero Page: 256 bytes usados para variables temporales
$0100 - $0117: 24 bytes usados para stack
$0118 - $07ff: Código Easter Egg comprimido
$0800 - $0fff: Código Player (1/3)
$1000 - $32f7: Buffer para tocar el sid más grande (~9k)
$32f8 - $3fff: Código Player (2/3)
$4000 - $5fff: Gráfico bitmap (8k)
$6000 - $63ff: Gráfico color (Screen RAM) (1k)
$6400 - $68ff: Sprites (~1k)
$6900 - $6cff: Charset (1k)
$6d00 - $73ff: Sid de Ruido blanco (1.7k)
$7400 - $7caf: Imagenes de botones apretados + buffer temporal (~2k)
$7cb0 - $fbdf: Sids comprimidos, incluyendo el Sid del Easter Egg (28k)
$7be0 - $7ccf: Código Player (3/3)
$fcd0 - $fff0: Texto Scroll Easter Egg comprimido (~800 bytes)Y cuando se dispara el Easter Egg, se descomprimen los tres pedazos del Easter Egg en el destino correcto.
La intro es bastante simple:
- La parte de arriba usa un gráfico bitmap multi-color
- La parte de abajo usa modo texto + charset custom
- Los textos están coloreados con "rasterbars" invertidas
Quizás lo más interesante es como lograr el "color invertido". Es sencillo:
- Se hace el efecto típico de las rasterbars
- Se pone texto encima
- Se usa un charset invertido. Es decir, los bits que están en 0 pasan a 1, y viceversa
La Intro, una vez que finaliza, descomprime el Player. Para eso hay que tener en cuenta dos cosas:
- El código de descompresión no se tiene que "pisar" mientras descomprime
- La data a descomprimir no se tiene que pisar mientras se descomprime
Para lo primero, lo que se hace, es poner el código de descompresión en una dirección que no se va a usar, como $0400 (dirección de Screen). Y para evitar que sea vea "feo", pintamos todo de negro:
Pero si el fondo no fuese negro, se vería lo siguiente:
Para lo segundo, es sencillo también, pero se complicó en el Chipdisk. El Player + Easter Egg comprimidos ocupan 40585 bytes, y cuando de descomprimen ocupan 63427 bytes. La C64 solo tiene 64k RAM, así que la rutina de descompresión va a pisar la data comprimida en algún momento. La idea es que la pise solo una vez que haya usado la data comprimida.
Y la rutina de descompresión del Exomizer va de "atrás para adelante". Es decir, empieza a descomprimir el último byte primero.
Memoria antes de descomprimir el Player + Easter Egg:
+----+---------------+---------------------------------------------+---------------+
| |$0400-$07ff | $0800 - $afff | $b000 - $fff0 |
| |Descompresor | Código Player+Easter Egg comprimidos | Intro |
+----+---------------+---------------------------------------------+---------------+
Memoria luego de descomprimir:
+---------------------+------------------------------------------------------------+
| | $0820 - $fff0 |
| | Código Player+Easter Egg |
+---------------------+------------------------------------------------------------+Entonces para evitar que pisa data no usada, se hace algo así:
- La dirección del último byte comprimido esta en
$afff, y ese byte descomprimido va a parar a$fff0. Así que no "pisa" la data comprimida. - Y la dirección del primer byte comprimido esta en
$0800, y ese byte descomprimido va a parar a$0820. Pisa la data comprimida, pero una vez que ya fue usada.
Reglita: Tanto la dirección del primer byte de origen como la del último tienen que ser menores que las direcciones del primer y último byte de destino respectivamente: $0800 < $0820 y $afff < $fff0.
Cuando uno usa los interrupciones de raster, el callback no siempre es llamado donde uno quiere. Si uno hace: lda #$80; sta $d012, el raster nos va a llamar cuando el rasterline este en $80, pero ¿en que parte de la rasterline $80? A veces nos llama en la mitad de la linea, y otras veces más adelante o atrás.
Y eso hace que un simple efecto como el rasterbar se vea "inestable"... con una linea de color partida por la mitad, o cosas por el estilo.
Bueno, en la Intro pasa algo similar cuando cambiamos la pantalla de modo bitmap a modo texto. A veces aparece/desaparece una linea negra en el rasterline que las divide.
Y eso se soluciona con un raster IRQ estable. Lo que hace es que el callback siempre es llamado en el mismo ciclo del rasterline. Después uno lo puede ajustar poniendo unos nop s adicionales. Hay distintas técnicas para lograr el raster estable. El Chipdisk usa la técnica llamada "doble IRQ".
El código es así:
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; STABILIZE_RASTER
; Rutina de raster estable usando Doble-IRQ
; Sacada de from: http://codebase64.org/doku.php?id=base:stable_raster_routine
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
.macro STABILIZE_RASTER
; El Raster IRQ es disparado en el ciclo 0 del actual rasterline ($d012)
; Pero la CPU tiene que terminar el opcode que se esta ejecutando antes de llamar a la IRQ
; Así que puede haber un retraso de 0 a 7 ciclos, dependiendo del opcode
; Después hay un retraso de unos 7 ciclos llamando a la "Interrupt Handler" (Push SR/PC to stack++)
; Y luego se consumen otros 13 ciclos más para guardar los registros (pha, txa, pha, tya, pha)
; ciclos consumidos hasta aca: 20~27
lda #<@irq_stable ; +2, 2
ldx #>@irq_stable ; +2, 4
sta $fffe ; +4, 8
stx $ffff ; +4, 12
inc $d012 ; +6, 18
asl $d019 ; +6, 24
tsx ; +2, 26
cli ; +2, 28
.repeat 10
; La próximo IRQ va a ser llamada mientras se ejecutan estos nops
nop ; +2 * 10, 48.
.endrepeat
; cycle count: 68~75. La nueva raster IRQ ya fue llamado en este punto
@irq_stable:
; cycle count: 7~8 .7 cycles for the interrupt handler + 0~1 cycle Jitter for the NOP
txs ; +2, 9~10
; 42 cycles
ldx #$08 ; +2, 11~12
dex ; +2 * 8, 27~28
bne *-1 ; +3 * 7, +2, 50~51
bit $00 ; +3, 53~54
lda $d012 ; +4, 57~58
cmp $d012 ; +4, 61~62
beq *+2 ; +2/+3, 64
.endmacro
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
; raster IRQ que divide la pantalla entre modo bitmap y modo texto
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-;
irq_rasterbar:
pha ; guarda A, X, Y
txa
pha
tya
pha
STABILIZE_RASTER ; llama a la macro "STABILIZE_RASTER"
; que es la que hace toda la magia
sei
ldx #0 ; rutina que genera los "raster bars"
@l0:
lda $d012
@l1: cmp $d012
beq @l1 ; espera a nueva linea de rasterline
lda palette,x ; y cuando pasa eso cambia el color
sta $d021 ; $d021 para generar una nueva linea
inx
cpx #TOTAL_PALETTE
bne @l0
asl $d019 ; ACK la interrupción raster
lda #%00001000 ; no scroll, multi-color apagado, 40-cols
sta $d016
lda #%11101100 ; screen en 0x3800, charset en $3000
sta $d018
lda #%00011011 ; bitmap mode apagado. modo texto.
sta $d011
ldx #<irq_bitmap ; apuntar al raster IRQ que prende
ldy #>irq_bitmap ; el modo bitmap
stx $fffe
sty $ffff
lda #20
sta $d012 ; próximo raster IRQ en la rasterline $20
pla ; restaura A, X, Y
tay
pla
tax
pla
rti ; restaura previo PC, statusLa técnica Doble IRQ funciona bastante bien pero con ciertas limitaciones:
- Consume ciclos adicionales
- No se puede llamar en las bad lines7
El código completo del Chipdisk esta acá:
Para compilarlo se necesita:
- cc65 (probado con v2.15)
- Exomizer (probado con v2.0.9)
- VICE (opcional, usado para generar el .d64)
make
Poner todo en el path, clonar el repositorio, y hacer:
$ git clone https://github.com/c64scene-ar/chipdisk-nac-vol.1.git
$ cd chipdisk-nac-vol.1
$ makeEl código no fue escrito a modo de ejemplo. Es código real escrito para el Chipdisk que presentamos en la Datastorm 2017. Eso significa que tiene todos los problemas de "código real".
- Esta basado en el código del Chipdisk Arriba Las Manos que presentamos en DeCrunch 2016
- Lo requerimientos fueron cambiando. El código también. Puede que haya código que no se use, o código que ya no tenga más sentido tener.
- Se usaron demasiadas macros/unrolled-loops. Quizás hubiera sido mejor usar menos para tener lugar adicional para un posible nuevo tema.
- Hay pocos comentarios
- El Easter Egg tiene algunos bugs en el scroll. Con tiempo los arreglaremos
- Y puede que haya otros bugs también.
¿Tenés preguntas? ¿Querés colaborar con PVM? Estamos acá:
- http://pungas.space
- En IRC. EFnet . Canal #pvm
La herramienta que se usa para comprimir sids es esta: sid_to_exo.py↩
La rutina de descompresión esta en el .zip del Exomizer, pero también la pueden ver acá: exodecrunch.s↩
La gran idea de hacer un charset especial para simplificar el rendereo es de Alakran↩
O como bien recomienda Acid, se podría optimizar solamente
set_pixel()con tablas para evitar la multiplicación.↩Más ca65 Pseudo Functions: https://cc65.github.io/doc/ca65.html#s10↩
Más truquitos de como optimizar el 6502 están acá: 6502 assembly optimisations y acá Synthetic instructions. Y también acá: CodeBase64↩
Para más información sobre Bad Lines ir a Beyond the Screen: Rasters and Cycles↩