schluss
Posts: 4
Joined: Fri Mar 21, 2014 9:41 am

Where to find dex-basic?

Fri Mar 21, 2014 11:20 am

Hi,

as the dex-os.com page has been suspended , where can I find the latest dex-basic.zip file?
Google was no help.

Any hints?

Thanks
schluss

-rst-
Posts: 1316
Joined: Thu Nov 01, 2012 12:12 pm
Location: Dublin, Ireland

Re: Where to find dex-basic?

Fri Mar 21, 2014 5:20 pm

Maybe you could try a private message to the man himself: http://www.raspberrypi.org/forum/member ... le&u=17803
http://raspberrycompote.blogspot.com/ - Low-level graphics and 'Coding Gold Dust'

schluss
Posts: 4
Joined: Fri Mar 21, 2014 9:41 am

Re: Where to find dex-basic?

Fri Mar 21, 2014 5:25 pm

-rst- wrote:Maybe you could try a private message to the man himself: http://www.raspberrypi.org/forum/member ... le&u=17803
I´ve already done this, but thanks for the hint !

User avatar
DexOS
Posts: 876
Joined: Wed May 16, 2012 6:32 pm
Contact: Website

Re: Where to find dex-basic?

Fri Mar 21, 2014 6:01 pm

schluss wrote:
-rst- wrote:Maybe you could try a private message to the man himself: http://www.raspberrypi.org/forum/member ... le&u=17803
I´ve already done this, but thanks for the hint !
I am in the process of setting a github with the code for dexbasic and dexos.

But in the mean time here's a wav play example
App.asm

Code: Select all

;*                                                 ;
;* Wav player test app                             ;
;* Set to                                          ;
;* 44100hz                                         ;
;* 8bit                                            ;
;* Mono (but modded to stereo in software)         ;
;* repeat plays, the test.wav file                 ;
;*                                                 ;
include 'DexBasic\DexBasic.inc'                    ; set up everything and stores our macros etc
                                                   ;
        pinMode  GPIO40, ALT0                      ; set pins 40 (aka phone jack) to pwm function
        pinMode  GPIO45, ALT0                      ; set pins 45 (aka phone jack) to pwm function
                                                   ;
        print   "Play Wav 44100hz Test"            ; Print start message
        sync                                       ; Dump to screen
                                                   ;
        delayMicroseconds   1000                   ; small deley
                                                   ;
        load_reg r0,0x201010a0                     ; CLOCK_BASE + 4*BCM2835_PWMCLK_CNTL
        load_reg r1,0x5a000020                     ; PM_PASSWORD | BCM2835_PWMCLK_CNTL_KILL
        str      r1,[r0]                           ; store r1 value, to r0 value address
                                                   ;
        load_reg r0,0x2020c000                     ; PWM_BASE + 4*BCM2835_PWM_CONTROL
        mov      r1,0x0                            ;
        str      r1,[r0]                           ; store r1 value, to r0 value address
                                                   ;
        load_reg r0,0x201010a4                     ; CLOCK_BASE + 4*BCM2835_PWMCLK_DIV
        load_reg r1,0x5a003000                     ; PM_PASSWORD | (idiv<<12)
        str      r1,[r0]                           ; store r1 value, to r0 value address
                                                   ;
        load_reg r0,0x201010a0                     ; CLOCK_BASE + 4*BCM2835_PWMCLK_CNTL
        load_reg r1,0x5a000011                     ; PM_PASSWORD | BCM2835_PWMCLK_CNTL_ENABLE | BCM2835_PWMCLK_CNTL_OSCILLATOR
        str      r1,[r0]                           ; store r1 value, to r0 value address
                                                   ;
        delayMicroseconds   1000                   ; small deley
                                                   ;
        load_reg r0,0x2020c010                     ; PWM_BASE + 4*BCM2835_PWM0_RANGE
        load_reg r1,0x91                           ; range (44100hz = $122 Mono)(44100hz = $91 stereo)
        str      r1,[r0]                           ; store r1 value, to r0 value address
                                                   ;
        load_reg r0,0x2020c020                     ; PWM_BASE + 4*BCM2835_PWM1_RANGE
        load_reg r1,0x91                           ; range (44100hz = $122 Mono)(44100hz = $91 stereo)
        str      r1,[r0]                           ; store r1 value, to r0 value address
                                                   ;
        delayMicroseconds   1000                   ; small deley
                                                   ;
        load_reg r0,0x2020c000                     ; PWM_BASE + 4*BCM2835_PWM_CONTROL
        mov      r1,0x40                           ; PWMCTL_CLRF
        str      r1,[r0]                           ;
        delayMicroseconds   10000                  ; small deley
                                                   ;
        load_reg r0,0x2020c000                     ; PWM_BASE + 4*BCM2835_PWM_CONTROL
        load_reg r1,0x2161                         ; BCM2835_PWM1_USEFIFO | BCM2835_PWM1_ENABLE | BCM2835_PWM0_USEFIFO | BCM2835_PWM0_ENABLE | 1<<6);
        str      r1,[r0]                           ;
                                                   ;
        delayMicroseconds   5000                   ; small deley
        load_reg r0,0x2020c000                     ;
align 4                                            ;
MainLoop:                                          ; Ensure Sufficient Sample Words have been
       imm32    r1,SND_Sample                      ; R1 = Sound Sample
       add      r1,r1,44                           ; jump over wav header
                                                   ;
       ldrb     r2,[r1],1                          ; Write 1 byte to FIFO
       str      r2,[r0,$18]                        ; FIFO address
       str      r2,[r0,$18]                        ; FIFO address
                                                   ;
       ldr      r2,[r0,0x4]                        ;
       tst      r2,1                               ; Test Bit 1 FIFO full
       bne      MainLoop                           ;
                                                   ;
       imm32    r3,SND_SampleEOF                   ; R3 = End of Sound Sample
align 4                                            ;
FIFO_Wait:                                         ;
       ldr      r2,[r0,0x4]                        ;
       tst      r2,$1                              ; Test Bit 1 FIFO full
       bne      FIFO_Wait                          ;
                                                   ;
       cmp      r1,r3                              ; Check End of Sound Sample
       beq      MainLoop                           ;
                                                   ; Write Next Sample Word into FIFO
       ldrb     r2,[r1],1                          ; Write 1 byte to FIFO
       str      r2,[r0,$18]                        ; FIFO address
       str      r2,[r0,$18]                        ; FIFO address
       b        FIFO_Wait                          ; Do another loop
align 4                                            ;
SND_Sample:                                        ; Include 8bit 11025 Hz Signed Sound Sample
       file     'Test.wav'                         ; Our wav file
SND_SampleEOF:                                     ;
align 4                                            ; make sure the next bit aligned on a 4 byte boundary
ProgramSize:                                       ; this label is so we can work out, the size of this program
ScreenBuffer:                                      ; this label is where our off screen buffer is
                                                                                                                         
You will need to add a wav file called Test.wav
that is
44100hz
8bit
Batteries not included, Some assembly required.

schluss
Posts: 4
Joined: Fri Mar 21, 2014 9:41 am

Re: Where to find dex-basic?

Fri Mar 21, 2014 7:04 pm

Hi Dex,

Thanks for the sound app.asm.
Now I will try to combine it with a bmp image.

At the end of the day I hope to get a video pattern generator with a 1 KHz test sound.

And the final optimum would be to have a configurable scroll text in a certain aera of the bmp pic....

regards
schluss

myzinsky
Posts: 9
Joined: Fri Jul 27, 2012 9:52 pm

Re: Where to find dex-basic?

Tue Apr 08, 2014 6:44 pm

Hi Dex,

I'm the developer of this:

http://www.jung.ms/index.php/blog/23-te ... rnsehn-atv

and i wanted to build another test card generator for a colleage of my father. The colleage ordered a new raspary pi and the image doesn't work anymore. Our original raspberry is labled with 2011. The raspi of the colleage is labled with 2011.12

do you know what they changed?

Regards
Matthias

User avatar
DexOS
Posts: 876
Joined: Wed May 16, 2012 6:32 pm
Contact: Website

Re: Where to find dex-basic?

Sun Jun 08, 2014 5:13 pm

Sorry for the delay, but i seem to of lost my backup of my site, but found a backup on archive.org
https://web.archive.org/web/20130930205 ... xBasic.htm

I have a new web site so will up date the site with the latest ver and some tuts etc.
The new site is http://craigbamford.com
Will up date it soon.
Regards Dex.
Batteries not included, Some assembly required.

mans9h1gb
Posts: 1
Joined: Wed Jun 06, 2012 12:07 pm

Re: Where to find dex-basic?

Wed Dec 03, 2014 12:03 pm

Hi Dex,
Any idea of when the site will be up???
regards
Mans

User avatar
DexOS
Posts: 876
Joined: Wed May 16, 2012 6:32 pm
Contact: Website

Re: Where to find dex-basic?

Wed Dec 03, 2014 6:44 pm

mans9h1gb wrote:Hi Dex,
Any idea of when the site will be up???
regards
Mans
Hi mans9h1gb,
I was just waiting to get a good working demo of ESP8266 wifi using DexBasic
http://www.raspberrypi.org/forums/viewt ... 10#p620610
Should have new stuff up, by next week.
Batteries not included, Some assembly required.

Return to “Bare metal, Assembly language”