blob: 2810df7c40bc72a47c94756f606a761bc083670c (
plain)
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
|
(import (chicken base))
(load "lib.scm")
;; load asm modules
(load "bootstrap.scm")
;; you can just write a raw word
(emit-word #x1234)
;; compile instructions
(ld SP (u16 0))
;; set labels
(def-label 'some-data
(emit-word #xF800)
(emit-word #xF801))
;; set the current emit address
(at-addr #x20)
(def-label 'main
(add R1 R2)
(add R3 (u16 #xFF)))
;; abs jump
(ld PC (label 'main))
;; rel jump
(add PC (i16 10))
;; jump forward to a currently undefined label
(ld PC (label 'forward))
(def-label 'forward
(hlt))
;; copy to register
(mov R0 R1)
;; store string data in memory
(def-label 'data
(emit-packed-string "hölynpöly"))
(at-addr #x50)
;; branch based on an ALU flag
(br flag-carry (label 'branch-true) set: #t)
(def-label 'branch-false
(emit-word 1))
(def-label 'branch-true
(emit-word 2))
;;(print *buffer*)
;; compile to a 128KB image file
(write-image-to "out.bin")
|
