Fixed up segments on IIgs.

This commit is contained in:
Scott Duensing 2018-09-18 19:59:40 -05:00
parent e15a7d0df0
commit 878e93d236
8 changed files with 67 additions and 24 deletions

View file

@ -2,13 +2,12 @@
#include <stdarg.h>
#include "joey.h"
#ifdef JOEY_IIGS
segment "ansiterm";
#endif
#include "ansiterm.h"
segment "ansiterm";
// http://ansi-bbs.org/ansi-bbs-core-server.html

View file

@ -1,7 +1,8 @@
#!/bin/bash -e
PROJECT=ifengine
DATA=(8x8thin.sta gamedata.z5)
DATA=(8x8thin.sta output.z8 gamedata.dat)
SOURCE=(*.c *.h)
# --- HERE BE DRAGONS ---
@ -38,7 +39,16 @@ for F in "${DATA[@]}"; do
${AC}/import.sh ${F} BIN
done
if [ -z $1 ]; then
mkdir -p /tmp/IIgs/source
for S in "${SOURCE[@]}"; do
for F in `ls -1 ${S}`; do
tr "\n" "\r" < ${F} > /tmp/IIgs/source/${F}
${AC}/import.sh /tmp/IIgs/source/${F} TXT
rm /tmp/IIgs/source/${F}
done
done
if [ ! -z $1 ]; then
pushd ${JOEY}/sdks/iix/gsplus
./gsplus -config IIgsTest.cfg || true
popd

View file

@ -1,3 +1,5 @@
#include "joey.h"
segment "fileio";
/* $Id: fileio.c,v 1.3 2000/07/05 15:20:34 jholder Exp $
* --------------------------------------------------------------------

View file

@ -3,6 +3,9 @@
#include "ztypes.h"
segment "joeyio";
#define DISPLAY_MIXED_SIZE 5
#define COMMAND_BUFFER_SIZE 32

33
main.c
View file

@ -8,6 +8,9 @@
#include "ztypes.h"
segment "ifengine";
extern int GLOBALVER;
@ -101,6 +104,8 @@ int main(void) {
char game[40];
char text[40];
//asm { brk 0xea }
in = fopen("gamedata.dat", "rt");
if (in != NULL) {
@ -115,28 +120,50 @@ int main(void) {
text[strlen(text) - 1] = 0;
jlUtilStartup(name);
jlStaLoad(font, text);
_jlDebugBorder(BORDER_DEEP_RED);
jlDisplayPresent();
_jlDebugBorder(BORDER_PURPLE);
//jlKeyWaitForAny();
/*
if (!jlStaLoad(font, text)) {
jlUtilDie("Unable to load %s", text);
}
termStart(font, 0, 0, 40, 25);
termPrint("Term started...\n");
termDestruciveBackspace(false);
termMoveCursor(1, 25);
termSaveCursor();
termPrint("Term configured...\n");
termPrint("process_arguments...\n");
process_arguments(game);
termPrint("configure...\n");
configure(V1, V8);
termPrint("initialize_screen...\n");
initialize_screen();
termPrint("load_cache...\n");
load_cache();
termPrint("z_restart...\n");
z_restart();
termPrint("interpret...\n");
(void)interpret();
termPrint("unload_cache...\n");
unload_cache();
termPrint("close_story...\n");
close_story();
termPrint("close_script...\n");
close_script();
termPrint("reset_screen...\n");
reset_screen();
termStop();
jlStaFree(font);
*/
jlUtilShutdown();
}
jlUtilShutdown();
}

Binary file not shown.

View file

@ -1,29 +1,29 @@
# Reset Palette, Clear Screen to White, Draw in Black
# Hacky Border because we can't hit 319 yet.
R
C 0
E
C 15
S 0 0 255 199
C 0
reset
color 0
clear
color 15
fbox 0 0 255 199
color 0
# Horizon
L 0 87 255 87
line 0 87 255 87
# Sun
L 255 64 248 61 240 61 233 62 228 66 223 72 220 78 220 87
line 255 64 248 61 240 61 233 62 228 66 223 72 220 78 220 87
# Beach
L 0 101 87 124 126 128 148 133 160 136 168 141 172 146 171 149 169 153 169 158 176 164 188 168 205 171 227 174 255 174
line 0 101 87 124 126 128 148 133 160 136 168 141 172 146 171 149 169 153 169 158 176 164 188 168 205 171 227 174 255 174
# Fill Sun
C 12
F 242 74
color 12
# fill 242 74
# Fill Beach
C 14
F 105 161
color 14
#fill 105 161
# Fill Ocean
C 1
F 194 106
color 1
#fill 194 106

View file

@ -1,3 +1,5 @@
#include "joey.h"
segment "quetzal";
/* $Id: quetzal.c,v 1.3 2000/07/05 15:20:34 jholder Exp $
* --------------------------------------------------------------------