From 899cdcc3f3da2be04801ab79b53ec2264e8b1e4c Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 29 Aug 2021 09:32:40 -0700 Subject: inline SubX translation We can't really translate purely SubX code anyway at the top-level. Stop exposing those scripts. --- translate | 51 +++++++++++++++++++++++++++++++++++++++++++++++++-- 1 file changed, 49 insertions(+), 2 deletions(-) (limited to 'translate') diff --git a/translate b/translate index c5b889d0..22b299bd 100755 --- a/translate +++ b/translate @@ -3,6 +3,53 @@ set -e -cat $* [0-9]*.mu |linux/mu > a.subx +cat $* [0-9]*.mu |linux/mu > a.subx -./translate_subx boot.subx font.subx mu-init.subx [0-9]*.subx a.subx +cat boot.subx font.subx mu-init.subx [0-9]*.subx a.subx |linux/braces > a.braces + +cat a.braces |linux/calls > a.calls + +cat a.calls |linux/sigils > a.sigils + +cat a.sigils |linux/tests > a.tests + +# no assort since baremetal SubX doesn't have segments yet + +cat a.tests |linux/dquotes > a.dquotes + +cat a.dquotes |linux/pack > a.pack + +cat a.pack |linux/survey_baremetal > labels +cat a.pack |linux/labels_baremetal labels > a.survey + +cat a.survey |linux/hex > a.bin + +# Create code.img containing a.bin +dd if=/dev/zero of=code.img count=20160 # 20*16*63 512-byte sectors = almost 10MB +dd if=a.bin of=code.img conv=notrunc + +if [ `stat --printf="%s" 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 [ `stat --printf="%s" 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 + +# Latter half of disk is for debug info. +dd if=labels of=code.img seek=10080 conv=notrunc # keep this sync'd with abort.subx +if [ `stat --printf="%s" 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 -- cgit 1.4.1-2-gfad0