about summary refs log tree commit diff stats
path: root/translate_emulated
blob: b839209519f8277161666d7c10144496cebe2575 (plain) (blame)
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
#!/bin/sh
# Translate a Mu program to a bootable disk image.
#
# This script uses emulation, so it does not require x86 or Linux. However it
# is slow.

set -e
set -v

# Map of the Mu code disk
export DISK=20160  # 20*16*63 512-byte sectors = almost 10MB
dd if=/dev/zero of=code.img count=$DISK
# code: sectors 0-8999
# font: sectors 9000-10079  (1080 sectors = space enough for 16k glyphs (1080 * 512 / 34 bytes per glyph))
export FONT=9000  # keep this sync'd with boot.subx
# debug: sector 10080 onwards
export DEBUG=10080  # keep this sync'd with abort.subx

## Code

cat $* [0-9]*.mu                                          |linux/bootstrap/bootstrap run linux/mu                         > a.subx

cat boot.subx mu-init.subx [0-9]*.subx a.subx             |linux/bootstrap/bootstrap run linux/braces                     > a.braces

cat a.braces                                              |linux/bootstrap/bootstrap run linux/calls                      > a.calls

cat a.calls                                               |linux/bootstrap/bootstrap run linux/sigils                     > a.sigils

cat a.sigils                                              |linux/bootstrap/bootstrap run linux/tests                      > a.tests

# no assort since baremetal SubX doesn't have segments yet

cat a.tests                                               |linux/bootstrap/bootstrap run linux/dquotes                    > a.dquotes

cat a.dquotes                                             |linux/bootstrap/bootstrap run linux/pack                       > a.pack

cat a.pack                                                |linux/bootstrap/bootstrap run linux/survey_baremetal > labels
cat a.pack                                                |linux/bootstrap/bootstrap run linux/labels_baremetal   labels  > a.survey

cat a.survey                                              |linux/bootstrap/bootstrap run linux/hex                        > a.bin

dd if=a.bin of=code.img conv=notrunc

file_size() {
  stat --printf="%s" $*
  # if you're on Mac OS and haven't installed GNU coreutils (coreutils on
  # Homebrew or Macports), switch this to:
#  stat -f "%z" $*
}

if [ `file_size a.bin` -ge 492544 ]  # 15 tracks * 63 sectors per track * 512 bytes per sector (keep this sync'd with boot.subx)
then
  echo "a.bin won't all be loaded on boot"
  exit 1
fi

if [ `file_size a.bin` -ge 492544 ]  # 15 tracks * 63 sectors per track * 512 bytes per sector
then
  echo "a.bin will overwrite BIOS/Video memory; you'll need to adjust boot.subx to load code to some other non-contiguous area of memory"
  exit 1
fi

if [ `file_size a.bin` -ge $(($FONT*512)) ]
then
  echo "a.bin will overwrite font in disk"
  exit 1
fi

## Latter half of disk is for debug info

if [ `file_size labels` -ge 1048576 ]  # 8 reads * 256 sectors * 512 bytes per sector
then
  echo "labels won't all be loaded on abort"
  exit 1
fi

if [ `wc -l < labels` -gt 20480 ]  # 0x5000 stream capacity in abort.subx
then
  echo "abort will go into infinite regress"
  exit 1
fi

dd if=labels of=code.img seek=$DEBUG conv=notrunc

## Font data at another well-defined location
cat font.subx   |sed 's,/[^ ]*,,'    |linux/bootstrap/bootstrap run linux/hex    > a.font

if [ `file_size a.font` -ge 262144 ]  # 0x200 sectors * 512 bytes per sector (keep this sync'd with boot.subx)
then
  echo "font won't all be loaded on boot"
  exit 1
fi

if [ `file_size a.font` -ge 14680064 ]  # 0x00e00000 = 0x00f00000 - 0x00100000
then
  echo "font is so large it overlaps the ISA memory hole; see https://wiki.osdev.org/Memory_Map_(x86)"
  exit 1
fi

if [ `file_size a.font` -ge $(( ($DEBUG - $FONT) * 512 )) ]
then
  echo "font will overwrite debug info in disk"
  exit 1
fi

dd if=a.font of=code.img seek=$FONT conv=notrunc