mirror of
https://github.com/digarok/MiniMemoryTester.git
synced 2024-06-16 02:29:33 +00:00
build of shell p8 app straight from cadius
This commit is contained in:
commit
b3e1059298
60
make_input
Executable file
60
make_input
Executable file
|
@ -0,0 +1,60 @@
|
||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
# Here's our fancy build pipeline. Output = src/mtsystem (binary file)
|
||||||
|
./Merlin32 . src/mt.s
|
||||||
|
|
||||||
|
|
||||||
|
# name of your disk image
|
||||||
|
DISK="MT"
|
||||||
|
|
||||||
|
# set one of the following to true
|
||||||
|
USE_CADIUS=true
|
||||||
|
USE_APPLECOMMANDER=false
|
||||||
|
|
||||||
|
|
||||||
|
SRCFILES=(`ls src/*.s`)
|
||||||
|
SYSFILES=(`ls src/*system`)
|
||||||
|
CADIUS="../tools/Cadius"
|
||||||
|
P8NAME="$DISK"
|
||||||
|
IMGNAME="$DISK.po"
|
||||||
|
DISKSIZE=800KB
|
||||||
|
SRCDIR=src
|
||||||
|
BLDDIR=build/nix
|
||||||
|
|
||||||
|
if [ ! -d $BLDDIR ] ; then
|
||||||
|
echo "Build directory for this platform doesn't exist so I will create it."
|
||||||
|
mkdir -p $BLDDIR
|
||||||
|
echo "Created: $BLDDIR"
|
||||||
|
sleep 1
|
||||||
|
fi
|
||||||
|
|
||||||
|
# need to autogen
|
||||||
|
cp src/_FileInformation.txt $BLDDIR
|
||||||
|
|
||||||
|
$CADIUS createvolume $IMGNAME $P8NAME $DISKSIZE
|
||||||
|
|
||||||
|
#SOURCE FILES
|
||||||
|
for f in ${SRCFILES[@]};
|
||||||
|
do
|
||||||
|
FNAME=${f##*/}
|
||||||
|
echo Processing $FNAME
|
||||||
|
cp $f $BLDDIR/$FNAME
|
||||||
|
$CADIUS sethighbit $BLDDIR/$FNAME
|
||||||
|
$CADIUS addfile $IMGNAME /$P8NAME/ $BLDDIR/$FNAME -V
|
||||||
|
done
|
||||||
|
|
||||||
|
|
||||||
|
#SYSTEM FILES
|
||||||
|
for f in ${SYSFILES[@]};
|
||||||
|
do
|
||||||
|
FNAME=${f##*/}
|
||||||
|
echo Processing $FNAME
|
||||||
|
cp $f $BLDDIR/$FNAME
|
||||||
|
#$CADIUS sethighbit $BLDDIR/$FNAME
|
||||||
|
$CADIUS addfile $IMGNAME /$P8NAME/ $BLDDIR/$FNAME -V
|
||||||
|
done
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
exit
|
||||||
|
|
29
src/mt.s
Normal file
29
src/mt.s
Normal file
|
@ -0,0 +1,29 @@
|
||||||
|
****************************************
|
||||||
|
* Quit8 *
|
||||||
|
* *
|
||||||
|
* Dagen Brock <dagenbrock@gmail.com> *
|
||||||
|
* 2013-06-24 *
|
||||||
|
****************************************
|
||||||
|
|
||||||
|
org $2000 ; start at $2000 (all ProDOS8 system files)
|
||||||
|
typ $ff ; set P8 type ($ff = "SYS") for output file
|
||||||
|
DSK mtsystem ; tell compiler what name for output file
|
||||||
|
|
||||||
|
MLI equ $bf00
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Quit jsr MLI ; first actual command, call ProDOS vector
|
||||||
|
dfb $65 ; with "quit" request ($65)
|
||||||
|
da QuitParm
|
||||||
|
bcs Error
|
||||||
|
brk $00 ; shouldn't ever here!
|
||||||
|
|
||||||
|
QuitParm dfb 4 ; number of parameters
|
||||||
|
dfb 0 ; standard quit type
|
||||||
|
da $0000 ; not needed when using standard quit
|
||||||
|
dfb 0 ; not used
|
||||||
|
da $0000 ; not used
|
||||||
|
|
||||||
|
|
||||||
|
Error brk $00 ; shouldn't be here either
|
Loading…
Reference in New Issue
Block a user