b00daw
Level 27 Renderist
 
Commodore Plus/4
6th/6

 
Uncommonality 
94th Σ3.633

 
Preciousness 
101st Σ3.284

 
Iniminitible 
93rd Σ3.646

 
Masochism 
76th Σ4.175

 
Rarity in Pants 
104th Σ3.168

 
multidimensional dataship
 
  96th/112   Σ17.906   Apr 14th 2019 11:35am
 
/player/EntryPlay/31428/
31428
 
Delay = $CE
Where = $D0

ORG $1001

DW $1001,$100B,0
DB $9E,"4109",0,0,0

SEI
LDA $FF06
AND #$EF
STA $FF06 ;Turn screen off
STA $FF3F ;Switch to RAM

JMP init

main
LDA #$00
STA Delay
LDA #$01
STA Delay+1
JSR play1
LDA #$2F
STA Delay
STA Delay+1
JSR play1
LDA #$00
STA Delay
LDA #$1F
STA Delay+1
JSR play1
JSR done

init
LDA #<sounddata
STA Where
LDA #>sounddata
STA Where+1
LDY #$00
LDA #$FD
STA $FF0E ;Sound #1 low
LDA #$03
STA $FF10 ;Sound #1 high
LDA #$FE
STA $FF0F ;Sound #2 low
LDA $FF12
ORA #$03
STA $FF12 ;Sound #2 high
JMP main

play1
LDA (Where),Y
- DEC Delay
BEQ +
DEC Delay+1
BNE -
NOP
ROL
+ STA $FF11
INC Where
BNE play1
INC Where+1
LDA Where+1
CMP #>endsound ;Check the end of the music
BNE play1
RTS

done
JMP done

sounddata
INCBIN "PCM.bin"
endsound
Creative Commons License
88
7
5
1
21
 


previous entry
Lia - Bouncy Ball & Puppie Panic v0.5 (demo thingy)


nextious entry
funute - kickin' cat
 
109936
Level 13 Chipist
post #109936 :: 2019.04.24 2:03pm :: edit 2019.04.24 2:05pm
  
  b00daw liēkd this
i couldn't believe this actually sounds like that scary radio station from russia that was associated with a nuclear bomb

it's called UVB-76
 
 

LOGIN or REGISTER to add your own comments!