Samuel Devulder a écrit:
Ce principe provient de la page "
Algorithmic synphonies from one line of code" dont le but est de produire des mélodies complexes avec une seule ligne de C. Les résultats obtenus sont très surprenants.
En bonus, voici d'autres exemples de ce que cela peut donner sur Thomson, ce coup ci non pas avec le seul bit du buzzer, mais l'ensemble des 6 bits de l'extension musique et jeux (quel luxe!). Comme le précédent ces programmes affichent le code C produisant le même son sous unix, mais ce coup ci le 1er programme a la particularité d'être re-logeable n'importe où en RAM.
Formule "t*5 & (t>>7) | t*3 & (t>>8)":
Code:
***************************************
* debut : $9E00
* fin : $9EFF
* taille : 256
***************************************
org $9E00
init fcb $33,$8D,$00,$A8,$E6
fcb $C0,$BD,$E8,$03,$C1
fcb $0D,$26,$04,$C6,$0A
fcb $20,$F5,$31,$C4,$31
fcb $3F,$26,$FC,$E6,$C0
fcb $26,$EB,$1A,$50,$8E
fcb $E7,$C0,$EC,$0E,$34
fcb $06,$CA,$04,$E7,$0F
fcb $A6,$0D,$E6,$0F,$C4
fcb $FB,$E7,$0F,$E6,$0D
fcb $34,$06,$86,$3F,$A7
fcb $0D,$CC,$04,$04,$ED
fcb $0E,$6F,$0D,$A6,$01
fcb $A7,$E2,$8A,$30,$84
fcb $F7,$A7,$01,$E6,$05
fcb $86,$13,$A7,$05,$EE
fcb $06,$34,$44,$CE,$00
fcb $7C,$EF,$06,$4A,$A7
fcb $05,$4F,$5F,$34,$06
fcb $34,$06,$A6,$84,$44
fcb $24,$FB,$EC,$06,$A6
fcb $E4,$A4,$62,$A7,$E2
fcb $EC,$63,$58,$49,$A4
fcb $62,$AA,$E0,$44,$44
fcb $A7,$0D,$35,$46,$8B
fcb $05,$CB,$03,$33,$41
fcb $34,$46,$A6,$03,$84
fcb $02,$27,$D7,$32,$64
fcb $35,$42,$EF,$06,$A7
fcb $05,$A6,$0F,$84,$FB
fcb $A7,$0F,$A6,$E0,$A7
fcb $01,$35,$46,$E7,$0D
fcb $E6,$0F,$CA,$04,$E7
fcb $0F,$A7,$0D,$EF,$0E
fcb $3F,$39,$6D,$61,$69
fcb $6E,$28,$74,$29,$7B
fcb $20,$2F,$2F,$20,$53
fcb $61,$6D,$20,$44,$45
fcb $56,$0D,$20,$66,$6F
fcb $72,$28,$74,$3D,$30
fcb $3B,$21,$4C,$50,$49
fcb $4E,$3B,$74,$2B,$2B
fcb $29,$70,$75,$74,$63
fcb $68,$61,$72,$28,$0D
fcb $0D,$1B,$4D,$20,$20
fcb $74,$2A,$35,$26,$28
fcb $74,$3E,$3E,$37,$29
fcb $7C,$74,$2A,$33,$26
fcb $28,$74,$3E,$3E,$38
fcb $29,$1B,$4C,$0D,$20
fcb $29,$3B,$0D,$7D,$0D
fcb $00
end init
Formule "t * ((t>>3|t>>9)&82&t>>9)":
Code:
***************************************
* debut : $9E00
* fin : $9EFF
* taille : 256
***************************************
org $9E00
init fcb $CE,$9E,$A7,$E6,$C0
fcb $BD,$E8,$03,$C1,$0D
fcb $26,$04,$C6,$0A,$20
fcb $F5,$31,$C4,$31,$3F
fcb $26,$FC,$E6,$C0,$26
fcb $EB,$1A,$50,$CE,$E7
fcb $C5,$EC,$49,$34,$06
fcb $CA,$04,$E7,$4A,$A6
fcb $48,$E6,$4A,$C4,$FB
fcb $E7,$4A,$E6,$48,$34
fcb $06,$86,$3F,$A7,$48
fcb $CC,$04,$04,$ED,$49
fcb $6F,$48,$A6,$5C,$A7
fcb $E2,$8A,$30,$84,$F7
fcb $A7,$5C,$6C,$C4,$37
fcb $14,$5A,$34,$14,$C6
fcb $12,$8E,$00,$7F,$36
fcb $14,$4F,$5F,$34,$06
fcb $A6,$5B,$44,$24,$FB
fcb $EC,$41,$EC,$E4,$44
fcb $56,$44,$56,$E7,$E2
fcb $E6,$61,$EA,$E0,$C4
fcb $A4,$E4,$E4,$54,$A6
fcb $61,$3D,$54,$54,$E7
fcb $48,$6C,$61,$26,$02
fcb $6C,$E4,$A6,$5E,$84
fcb $02,$27,$D5,$32,$62
fcb $35,$12,$AF,$41,$A7
fcb $C4,$A6,$4A,$84,$FB
fcb $A7,$4A,$A6,$E0,$A7
fcb $5C,$35,$16,$E7,$48
fcb $E6,$4A,$CA,$04,$E7
fcb $4A,$A7,$48,$AF,$49
fcb $3F,$39,$6D,$61,$69
fcb $6E,$28,$74,$29,$7B
fcb $20,$2F,$2A,$20,$53
fcb $61,$6D,$20,$44,$45
fcb $56,$20,$2A,$2F,$0D
fcb $20,$66,$6F,$72,$28
fcb $74,$3D,$30,$3B,$21
fcb $4C,$50,$49,$4E,$3B
fcb $74,$2B,$2B,$29,$70
fcb $75,$74,$63,$68,$61
fcb $72,$28,$0D,$0D,$1B
fcb $4D,$20,$20,$74,$2A
fcb $28,$28,$74,$3E,$3E
fcb $33,$7C,$74,$3E,$3E
fcb $39,$29,$26,$38,$32
fcb $26,$74,$3E,$3E,$39
fcb $29,$1B,$4C,$0D,$20
fcb $29,$3B,$0D,$7D,$0D
fcb $00
end init
Connexion
M’enregistrer
FAQ
Rechercher
sur n'importe quel ordi de la gamme TO ayant 256 octets de ram en $9000. Pour ceux qui n'ont pas envie de resaisir 1 par 1 les 256 octets du source ci-dessus, il existe une version 
