Back to home page

DOS ain't dead

Forum index page

Log in | Register

Search:  
Back to the forum
Board view  Mix view

32-bit MSDOS (Announce)

posted by kerravon E-mail, Ligao, Free World North, 04.07.2021, 05:24

Ok, the main problem was solved by switching
from ldwin to the "ld" that is provided by
FPC. For some reason it is working even though
ld that comes with Cygwin, and my ldwin, come
up with errors and require --no-inhibit to
ignore them. I wonder what those errors mean,
as surely there must be a way of getting
normal "ld" to work? I'm working at the
assembler level here.

Anyway, the revised code is below.

Producing a 100% public domain executable
derived from Pascal source, that works on
a 100% public domain OS, and also works
(or can work) on almost every 80386+
computer and OS in existence.

If that isn't a target environment that is of
interest to FPC, so be it. It's the most
interesting target to me, and I doubt that I
am the only person in the world who is also
interested in such a target.

BFN. Paul.



C:\devel\pascal>type worldpas.pas
(* public domain by Paul Edwards *)

program worldpas;

begin
writeln('Hello, World from Pascal!')
end.



C:\devel\pascal>type pascals.s
# public domain by Paul Edwards

.section .text
.balign 16,0x90

.globl fpc_initializeunits
fpc_initializeunits:
call _fpc_initializeunits
ret

.globl fpc_get_output
fpc_get_output:
call _fpc_get_output
ret


# edx has file handle
# ecx has string to print, first character has length
# eax has a 0, don't know what that is

.globl fpc_write_text_shortstr
fpc_write_text_shortstr:
push %eax
push %ecx
push %edx
call _fpc_write_text_shortstr

# This "add" doesn't seem to work for some reason
# add %esp, 12
pop %edx
pop %ecx
pop %eax
ret

.globl fpc_iocheck
fpc_iocheck:
call _fpc_iocheck
ret

.globl fpc_writeln_end
fpc_writeln_end:
call _fpc_writeln_end
ret

.globl fpc_do_exit
fpc_do_exit:
call _fpc_do_exit
ret

.section .data

.globl INIT$_$SYSTEM
INIT$_$SYSTEM:

.globl INIT$_$FPINTRES
INIT$_$FPINTRES:

.globl THREADVARLIST_$SYSTEM$indirect
THREADVARLIST_$SYSTEM$indirect:




C:\devel\pascal>type pascalc.c
/* public domain by Paul Edwards */

#include <stdio.h>
#include <stdlib.h>

void fpc_initializeunits(void)
{
return;
}

int fpc_get_output(void)
{
return ((int)stdout);
}

void fpc_write_text_shortstr(int handle, unsigned char *str, int unknown)
{
fwrite(str + 1, str[0], 1, (FILE *)handle);
return;
}

void fpc_iocheck(void)
{
return;
}

void fpc_writeln_end(void)
{
printf("\n");
}

void fpc_do_exit(int x)
{
exit(x);
}




C:\devel\pascal>type makefile.w32
# Produce Windows executables
# links with PDPCLIB created by makefile.msv

CC=gccwin
CFLAGS=-O2
LD=ld
LDFLAGS=
AS=aswin
AR=arwin
COPTS=-S $(CFLAGS) -fno-common -ansi -I. -I../pdos/pdpclib -D__WIN32__

all: clean worldpas.exe

worldpas.exe: worldpas.o pascalc.o pascals.o
$(LD) $(LDFLAGS) -s -o worldpas.exe ../pdos/pdpclib/w32start.o worldpas.o pascalc.o pascals.o ../pdos/pdpclib/msvcrt.a


# Without "-s", this produces an executable (but can be ignored)
# With "-s" this produces crap (which can be deleted)
# I choose to delete crap
.pas.o:
fpc -a -s $<
rm -fr link*.res
rm -fr ppas.bat
$(AS) -o $@ $*.s
rm -f $*.s

.c.o:
$(CC) $(COPTS) -o $*.s $<
$(AS) -o $@ $*.s
rm -f $*.s

.s.o:
$(AS) -o $@ $*.s

clean:
rm -f *.o worldpas.exe



C:\devel\pascal>dir worldpas.exe
Volume in drive C is OS
Volume Serial Number is 500F-DBAC

Directory of C:\devel\pascal

2021-07-04 12:37 6,656 worldpas.exe




C:\devel\pascal>worldpas
Hello, World from Pascal!

Post reply
 

Complete thread:

Back to the forum
Board view  Mix view
22632 Postings in 2109 Threads, 402 registered users, 390 users online (1 registered, 389 guests)
DOS ain't dead | Admin contact
RSS Feed
powered by my little forum