| |
turtle
Account closed
Registered: Mar 2005
Posts: 44 |
What is the best code rutine. ever ??
|
|
| |
Oswald
Registered: Apr 2002
Posts: 5094 |
check edge of disgrace for a whole bunch of those. |
| |
yago
Registered: May 2002
Posts: 333 |
lda var1
clc
adc var2
sta var3
rts
|
| |
Moloch
Registered: Jan 2002
Posts: 2928 |
*plop*
|
| |
turtle
Account closed
Registered: Mar 2005
Posts: 44 |
i think fli scrolls is mega cool |
| |
Soren
Registered: Dec 2001
Posts: 547 |
DEC $d012 ;-) |
| |
SIDWAVE
Account closed
Registered: Apr 2002
Posts: 2238 |
Rob Hubbard's Monty on the Run player - nothing better than that :) |
| |
Mace
Registered: May 2002
Posts: 1799 |
No, I'd go for Byte Boiler cruncher. |
| |
Zyron
Registered: Jan 2002
Posts: 2381 |
Matrix in 27 Bytes |
| |
GT
Account closed
Registered: Sep 2008
Posts: 308 |
This routine handles arpeggio, fixed-freq.values, calculated slide, vibrato or detune:
;-)
clc
adc note,x
fqfixed and #$7f
tay
lda #0
beq fqcenter+3
finetune and #$7f
beq fqcenter
clc
adc freqadd,x
tay
cmp #$60
bcc nohival
lda fqhi-$60,y
sta zero2+1
nohival lda fqhi,y
fqcenter ldy note,x
sta zero2
lda fqlo,y
bit notebit
bmi bm1
clc
adc zero2
sta $d400,x
lda fqhi,y
adc zero2+1
bcc sethi
bm1 sec
sbc zero2
setfreq sta $d400,x
lda fqhi,y
sbc zero2+1
sethi sta $d401,x
------------------------------------
|
| |
enthusi
Registered: May 2004
Posts: 677 |
$80F5 SEI
$80F6 TXS
$80F7 LDA #$10
$80F9 STA $D3D7,X
$80FC TXA
$80FD JSR $E536
$8100 TSX
$8101 DEX
$8102 BNE $80F5
$8104 kill-opcode $02
Freakin' evil shit code by Roland - he came up with it.
The compo was to write a code to create the same screen as this one (JAM on vice is not like on real thing). I think the best 2nd place was 21 byte by BigUser...
Took place in a german forum (F64) in 2005.
My versions (22 Byte):
*=$0100
!byte $ff
!byte $80,$80,$80,$80,$80,$80,$80
a asl
sta $d020,x
lda #$11
sta $d018
jsr $e536
bcs a
and (same size unfortunately):
*=$2101
!byte $7f,$7f,$7f,$7f,$7f,$7f,$7f
sta $d020
jsr $e536
stx $d021
ldy #$19
sty $d018
!byte $02
BigUsers was:
* = $0100
!by $ff,$80,$80,$80,$80,$80,$80,$80 ; 8
lda #$10 ; 2
loop sta $d3d8,y ; 3
ror ; 1
iny ; 1
bne loop ; 2
jsr $e536 ; 3
!by $02; jam ; 1 / illegal Opcode
----------------------------
damn, I loved that compo :) |
... 6 posts hidden. Click here to view all posts....
|
| Previous - 1 | 2 - Next |
