Jump to content
Heaven/TQA

new "gigantic megademo"... enjoy!

Recommended Posts

play around with the code... it's fun... ;)

 

;viznut's combination of xpansive's and varjohukka's stuff
;http://pouet.net/topic.php?which=8357&page=4
;(t>>7|t|t>>6)*10+4*(t&t>>13|t>>6)
;in 128 bytes on Atari VCS by Tjoppen

counter1    equ $b0   ;t
counter2    equ $b1   ;t >> 6
counter3    equ $b2   ;t >> 7
counter4    equ $b3   ;t >> 13
temp	    equ $b4
 org $4000
Start
lda #0
sta $d400
sta 559
lda #96
sta 53248
lda #96+32
sta 53249
lda #3
sta 53256
sta 53257

lda #1;1   ; 0=POKEY 64KHz, 1=15KHz
sta $d208  
sta $d01d
lda #4 ;3   ; ~64KHz clock 16 = ~4Khz timer, ~15KHz clock 4 = ~4KHz
sta $d200
sta $d202
lda #$f0   ; test - no polycounters + volume only
sta $d201
sta $d203

SampleLoop
   ;repeat 64 times (counter1)
   ldx #64
OutputLoop
   ;(t>>7|t|t>>6)*10+4*(t&t>>13|t>>6)
   ;(counter1 | counter2 | counter3)*5 + 2*(counter1 & counter4 | counter2) >> 3
   lda counter1
   ora counter2
   ora counter3
   sta temp
   asl
   asl
   clc
   adc temp
   clc
   adc temp
   sta temp
   lda counter1
   and counter4
   ora counter2 ;2
   asl
   clc
   adc temp
   lsr
   lsr
   cmp #$80
   ror ;asr #%11111
   tay
   sta $d40a
   ora #$f0
   sta $d201
;    sta $d018 ;AUDV0	   ;5-bit PCM
   adc #0
;    ora #$f0
   sta $d203
;   sta $d01a ;AUDV1
   tya
   ora #$50
   sta $d012
   sta $d013
   lda PF1Tab,Y
   sta $d00d
   lda PF2Tab,Y
   sta $d00e
   inc counter1
   dex
   bne OutputLoop
   inc counter2    ;t >> 6
   lda counter2
   and #$7F
   bne Counter4OK
   inc counter4
   inc counter4
Counter4OK
   and #$01 ;01
   bne Counter3OK
   inc counter3
Counter3OK
   jmp SampleLoop
PF1Tab
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000001
   .byte %00000011
   .byte %00000111
   .byte %00001111
   .byte %00011111
   .byte %00111111
   .byte %01111111
PF2Tab
   .byte %00000000
   .byte %10000000
   .byte %11000000
   .byte %11100000
   .byte %11110000
   .byte %11111000
   .byte %11111100
   .byte %11111110
   .byte %11111111
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %00000000
   .byte %11111111
   .byte %11111111
   .byte %11111111
   .byte %11111111
   .byte %11111111
   .byte %11111111
   .byte %11111111
 run start

Share this post


Link to post
Share on other sites

It's hard for me ... for 15 years I have one particular demo on place #1 (that is the so called "Flitsdemo" written by Fox-1) ... and now this!!!!!

 

I think we have a new number #1 here!

Share this post


Link to post
Share on other sites

the interesting thing here is the "algo music generator" which was used in some 2600 demo... so the music is generated by some LSR/ADDs etc and that is something what it makes it interesting... and it seems something like 5 bit PCM.... ;) so play around with the code to see if you get something different but nice...

Share this post


Link to post
Share on other sites

http://www.youtube.com/watch?v=VD3g8gb6rms&feature=player_embedded#at=49

Hi Heaven!!! Very cool generative art!!!

 

Can you make Atari XE - RMT palyer version (with simple load disk menu and when music plays with name of song and author etc etc) of it too and bars in babyblue color (as atari basic background is)???

 

Maybe it can be official replayer for Forever Party and become cool RMT player with equalizer!!!

Edited by tinctu

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...