Amen brother ~ 6 bit audio @ 16.3kHz

pixel · Post by **pixel** » Mon Apr 02, 2018 11:05 am

Drank some window cleaner and out came this:

http://hugbox.org/pixel/external/denial/amenbrother.prg

Untested on real hardware and VICE spoils the show probably due to a missing low-pass filter.

Rock'n rumble!

armypavarmy · Post by **armypavarmy** » Tue Apr 03, 2018 9:22 am

Hello,
Tested on my real vic20 PAL and NTSC

WORK OK....No Problem

Armando

pixel · Post by **pixel** » Wed Apr 04, 2018 2:11 am

armypavarmy wrote:Hello,
Tested on my real vic20 PAL and NTSC

WORK OK....No Problem

Armando

Awesomest!

Thanks a bunch! Video anybody to show off?

armypavarmy · Post by **armypavarmy** » Wed Apr 04, 2018 3:09 am

Hello
as soon as I can I prepare videos.
With vic 20 NTSC raster bar
they are very beautiful and colorful.
The sound is ok ... just the volume a bit 'low.
Armando.

pixel · Post by **pixel** » Wed Apr 04, 2018 3:42 am

Seems to be the trade-off. And it's already boosted with a HF carrier.

pixel · Post by **pixel** » Wed Apr 04, 2018 3:47 am

And here's the code. Don't hate me. I'm an open-source guy and that cannot be fixed.

Code: Select all

restart:                                                                                                                                                                      
    lda #<sample
    sta @(+ 1 +l)
    lda #>sample
    sta @(+ 2 +l)
    ldx #0
l:  ldy sample,x
    nop
    lda vals0,y
    sta $900e
    inx
    beq +n
    nop
    bit $ea
    lda vals3,y
    sta $900e
    cpy #$00
    beq -restart
    nop
    bit $ea
    lda vals1,y
    sta $900e
    inc $900f
    bit $ea
    lda vals2,y
    sta $900e
    jmp -l

n:  nop
    nop
    lda vals3,y
    sta $900e
    cpy #$fe
    beq -restart
    nop
    bit $ea
    lda vals1,y
    sta $900e
    inc @(+ 2 -l)
    bit $ea
    lda vals2,y
    sta $900e
    jmp -l

mkval:
    tya
    beq +r
    cmp #16
    bcs +l
    ldy #0
    rts
l:  sec
    sbc #16
    tay
    lda #15
r:  rts

;    fill @(- 256 (mod *pc* 256))

main:
    sei
    lda #$7f
    sta $912e       ; Disable and acknowledge interrupts.
    sta $912d
    sta $911e       ; Disable restore key NMIs.

    lda #0
    sta $9002

    lda #<generated_code
    sta ptr_code
    lda #>generated_code
    sta @(++ ptr_code)

fast6:
    jsr audio_boost
    ldx #0
l:  txa
    lsr
    lsr
    tay
    jsr mkval
    sta vals0,x
    jsr mkval
    sta vals1,x
    jsr mkval
    sta vals2,x
    jsr mkval
    sta vals3,x
    inx
    bne -l

    jmp -restart

    fill @(- 256 (mod *pc* 256))
sample:
@(@ [? (== 0 _) 1 _] (@ #'char-code (string-list (subseq (fetch-file "amen.wav") 44 (* 26 1024)))))
    $00

    fill @(- 256 (mod *pc* 256))
vals0:  fill 256
vals1:  fill 256
vals2:  fill 256
vals3:  fill 256

groepaz · Post by **groepaz** » Wed Apr 04, 2018 11:31 am

what funky assembler is that?

pixel · Post by **pixel** » Wed Apr 04, 2018 8:41 pm

groepaz wrote:what funky assembler is that?

Well… https://github.com/SvenMichaelKlose/bender It sucks. Not sure why I'm using it.

pixel · Post by **pixel** » Wed Apr 04, 2018 11:03 pm

Dad's dangling at the Fukitol pump. Nothing doesn't matter shite anymore. Am relieved.

tonyrocks · Post by **tonyrocks** » Thu Apr 05, 2018 8:05 am

awe man, can't somebody youtube this for me?

Tom · Post by **Tom** » Thu Apr 05, 2018 4:49 pm

I used it to fix a bug in my emulator; my low-pass filter wasn't actually taking effect due to a two-line error. So this is how it'll sound in the next release, and I think it's probably accurate.

So: Youtube link.

It's very quiet though, as mentioned above. Turn your speakers up.

pixel · Post by **pixel** » Fri Apr 06, 2018 7:08 am

Tom wrote:I used it to fix a bug in my emulator; my low-pass filter wasn't actually taking effect due to a two-line error. So this is how it'll sound in the next release, and I think it's probably accurate.

So: Youtube link.

It's very quiet though, as mentioned above. Turn your speakers up.

Lovely!

pixel · Post by **pixel** » Thu Sep 03, 2020 9:59 pm

Tom wrote:I used it to fix a bug in my emulator; my low-pass filter wasn't actually taking effect due to a two-line error. So this is how it'll sound in the next release, and I think it's probably accurate.

So: Youtube link.

It's very quiet though, as mentioned above. Turn your speakers up.

Which emulator is it, BTW?

Noizer · Post by **Noizer** » Fri Sep 04, 2020 4:54 am

How can it work with 6bit resolution? Volume register 900E has only 4bits available. Please explain the function

pixel · Post by **pixel** » Fri Sep 04, 2020 6:53 am

Noizer wrote: ↑Fri Sep 04, 2020 4:54 am How can it work with 6bit resolution? Volume register 900E has only 4bits available. Please explain the function

Four pulses for each sample which add up. Doesn't give you 6 bits with 64 values really but more like 61 values. Close enough.

Denial

Amen brother ~ 6 bit audio @ 16.3kHz

Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz

Re: Amen brother ~ 6 bit audio @ 16.3kHz