-
Notifications
You must be signed in to change notification settings - Fork 1
/
arm-dsp.rkt
55 lines (41 loc) · 1.39 KB
/
arm-dsp.rkt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#lang scheme/base
(require scheme/file
scheme/system)
;; ARM Cortex-M4 Assembler
(define (op3 op) (lambda (d a b) (format "\t~a ~a, ~a, ~a\n" op d a b)))
(define qadd (op3 "qadd"))
(define (tmpfile ext)
(path->string
(make-temporary-file
(string-append "arm-dsp-~a." ext))))
(define prefix (make-parameter "arm-none-eabi-"))
(define cflags (make-parameter "-g -fPIC -mcpu=cortex-m4 -mthumb -mfloat-abi=hard"))
(define (tool fmt . args)
(system (apply format (string-append (prefix) fmt) args)))
(define (run-assembler code #:prefix [prefix "arm-none-eabi-"])
(let* ((asm (tmpfile "S"))
(obj (tmpfile "o"))
(bin (tmpfile "bin")))
(with-output-to-file asm
(lambda () (display code))
#:exists 'truncate)
(tool "gcc ~a -c ~a -o ~a\n" (cflags) asm obj)
(tool "objcopy ~a -Obinary ~a" obj bin)
;; (tool "objdump -d ~a" obj)
;; (system (format "hd ~a" bin))
(let ((rv (file->bytes bin)))
(for ((f (list asm obj bin))) (delete-file f))
rv)))
(define-syntax-rule (define-registers regs)
(define-values regs (apply values 'regs)))
(define-registers (r1 r2 r3 r4 r5 r6 r7 r8 r9 r10 r11 r12 sp lr pc))
(define (assembler . args)
(run-assembler (apply string-append args)))
(define (test)
;(start-gdb)
;(connect)
;; (mi> "-target-select remote :3333")
(assembler
(qadd r1 r2 r3)
(qadd r2 r1 r3)))
(test)