Autore Topic: 64bytes Intro - Raster Scorrevoli  (Letto 7949 volte)

mces

  • Utente
  • **
  • Post: 339
  • Gioco Preferito: fort apocalypse
64bytes Intro - Raster Scorrevoli
« Risposta #15 il: 31 Marzo 2009, 12:22:43 »
 Allora ottimizziamo:

10 ?"Ciao": goto10


Anche io non ho saputo resistere!!!!!  :mattsid:  :lol:  
Non esistono problemi, solo soluzioni.

Freshness79

  • Utente
  • **
  • Post: 128
  • Gioco Preferito: Dizzy collection
64bytes Intro - Raster Scorrevoli
« Risposta #16 il: 31 Marzo 2009, 17:24:54 »
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!
« Ultima modifica: 21 Gennaio 2015, 23:34:33 da eregil »

iAN CooG

  • Utente
  • **
  • Post: 1774
    • http://iancoog.altervista.org
  • Gioco Preferito: Turbo Assembler, ActionReplay Monitor, DiskDemon
64bytes Intro - Raster Scorrevoli
« Risposta #17 il: 31 Marzo 2009, 20:11:12 »
 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.
 
-=[]=--- iAN CooG/HVSC^C64Intros ---=[]=-
- http://hvsc.c64.org - http://intros.c64.org -

LoadError

  • Utente
  • **
  • Post: 67
  • Gioco Preferito: Bruce Lee
64bytes Intro - Raster Scorrevoli
« Risposta #18 il: 01 Aprile 2009, 11:47:41 »
 Versione breve: voleva essere una battuta innocente, mi scuso di avere interrotto il thread.
Commodore 64 n. UK B 1739295, made in UK
Commodore 64C n. HB 4 375276 E, made in Hong Kong
Commodore 1541C disk drive
Commodore 1530 Datassette tape drive
Commodore 1702 monitor
Commodore 6499 modem

Freshness79

  • Utente
  • **
  • Post: 128
  • Gioco Preferito: Dizzy collection
64bytes Intro - Raster Scorrevoli
« Risposta #19 il: 14 Aprile 2010, 01:44:09 »
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.
« Ultima modifica: 21 Gennaio 2015, 23:35:04 da eregil »

antoniomauro

  • Utente
  • **
  • Post: 91
  • Gioco Preferito: IK+
64bytes Intro - Raster Scorrevoli
« Risposta #20 il: 14 Aprile 2010, 10:58:01 »
 Molto interessante!
Provo a studiarmelo un po'

MarC=ello

  • Utente
  • **
  • Post: 337
  • Gioco Preferito: CBM BASIC 2.0
64bytes Intro - Raster Scorrevoli
« Risposta #21 il: 15 Ottobre 2010, 16:27:54 »
Citazione da: "antoniomauro"
Molto interessante!
Provo a studiarmelo un po'
Quoto. Davvero un bellissimo effetto!
-=MarC=ellO=-

Freshness79

  • Utente
  • **
  • Post: 128
  • Gioco Preferito: Dizzy collection
64bytes Intro - Raster Scorrevoli
« Risposta #22 il: 03 Giugno 2011, 19:11:57 »
 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