64bytes Intro - Raster Scorrevoli

[mces]

 Allora ottimizziamo:

10 ?"Ciao": goto10


Anche io non ho saputo resistere!!!!!    :lol:  

[Freshness79]

Esattamente quanto scritto nel precedente post, ma questa volta in assembly.
Ho commentato un po' per i neofiti, spero sia un incentivo a provare a giochicchiarci.
iAN, se disapprovi o comunque siamo troppo fuori tema, chiedo umilmente perdono ed elimina pure i post.

Codice: [Seleziona]

*=$0801 ; CIAO!
.Byte $0B,$08,$D4,$07,$9E,"2061",$00,$c9,$00

intro
st
   ldx #$00      ; Azzero l'indice
ld
   lda ciao,x    ; Carico l'x-esimo carattere   
   beq st        ; se é uguale a 0 riparto dall'inizio
   jsr $ffd2    ; equivale a "Print chr$(A)": A é l'accumulatore
   inx          ; Incremento l'indice
   bne ld        ; Stringhe di massimo 255 caratteri + il terminatore (0)
   rts          ; Stringa troppo lunga, uscita (Equivale a End)

ciao ; Stringa, $0d é il ritorno a capo, $00 il terminatore (come in C)

.byte "CIAO",$0d,$00

NB1: il codice qua sopra pur fittando 64 byte, non é assolutamente ottimizzato.
NB2: Grazie iAN, molto comodo il DASM col supporto per gli illegal!

[iAN CooG]

 Freshness, continua assolutamente su questa strada, gli esperimenti di programmazione sono sempre apprezzati, da me per lo meno. I disturbatori sono ben altri. :angry:
QUesto thread era interessante al 100%, a parte il tentativo di voler riportare il livello di mediocrita' abituale di questo forum.
A loro posso solo consigliare di andare su edicolac64 se vogliono sentirsi a casa.
 

[LoadError]

 Versione breve: voleva essere una battuta innocente, mi scuso di avere interrotto il thread.

[Freshness79]

Riprendo in mano questo vecchio thread per evitare di aprirne altri.
Stasera ho giochicchiato un po' con l'assembler e coi soliti 64 byte (ok, 61 per la precisione) ho tirato fuori questo, a mio avviso, simpatico effetto:

Codice: [Seleziona]

; Raster expander - Freshness79

*=$0326
.word Start
.word $F6ED

S ldy $fc
  pha
L tsx

; Bande fisse
  and #$38
  cmp #$20
  bne C
  inc $fd
  ldx $fd

C lda $d012
  cmp $d012  
  beq *-3  
  stx $d020    
  asl $d011
  ror
  cmp #$9b
  beq M
  dey  
  bpl L  
  bmi S
Start
  sei      
M inc $fe
  lda $fe
  bpl K  
  eor #$ff
K sta $fc
  tay
  inc $fd
  ldx #$00  
  txs
  beq C

La sola parte (con i dovuti limiti) "configurabile" é il numero, la posizione e la dimensione delle bande fisse.

[antoniomauro]

 Molto interessante!
Provo a studiarmelo un po'

[MarC=ello]

Molto interessante!
Provo a studiarmelo un po'

Quoto. Davvero un bellissimo effetto!

[Freshness79]

 57 (+2) byte e la possibilità di avere barre da 32 colori liberamente selezionabili. Mi dava troppo fastidio veder sprecati i nibble più significativi dell'elenco dei colori.
Per cambiare i colori tener presente che prima viene visualizzato il low nibble e poi l'high nibble.

Codice: [Seleziona]

*=$032c
.word start
 retrst
lsr
lsr
lsr
lsr
start=*+1
lsr $78
bcs waitrst
lda #$0f
inc $78
SBX #$FF
lda table,x
waitrst
cpy $d012
beq waitrst
sta $d020  
iny
cpy #$21
bne retrst
 endframe
asl $d011
bcc retrst  
ldy #$00  
bcs endframe

table=*-1
; Prima barra da 16 colori
.byte $b6,$e4,$d3,$71,$cf,$b4,$09,$00
; Seconda barra da 16 colori
.byte $60,$d5,$17,$11,$d7,$65,$00,$00