minor changes
This commit is contained in:
ceriel
parent
778948b661
commit
b99a714497
|
|
@ -1,5 +1,6 @@
|
|||
.\" $Header$
|
||||
.TH 6500_AS 6ACK
|
||||
.ad
|
||||
.SH NAME
|
||||
6500_as \- assembler for Mostek 6500
|
||||
.SH SYNOPSIS
|
||||
|
|
|
|||
|
|
@ -2,18 +2,19 @@
|
|||
|
||||
NROFF=nroff
|
||||
MANDIR=/usr/man
|
||||
SUF=opr
|
||||
|
||||
all:
|
||||
for i in *.[1-8] ; do \
|
||||
$(NROFF) -man head $$i > $$i.opr ; \
|
||||
$(NROFF) -man head $$i > $$i.$(SUF) ; \
|
||||
done
|
||||
|
||||
install:
|
||||
for i in *.[1-8] ; do \
|
||||
num=expr $$i : '.*\.\([1-8]\)' ; \
|
||||
if test -f $(MANDIR)/man$$num/$$i ; \
|
||||
then cp $$i $(MANDIR)/man$$num/em_$$i ; \
|
||||
else cp $$i $(MANDIR)/man$$num/$$i ; \
|
||||
then cat head $$i > $(MANDIR)/man$$num/em_$$i ; \
|
||||
else cat head $$i $(MANDIR)/man$$num/$$i ; \
|
||||
fi ; \
|
||||
done
|
||||
|
||||
|
|
@ -26,3 +27,4 @@ pr:
|
|||
|
||||
clean:
|
||||
-rm -f *.opr *.out
|
||||
-rm -f *.$(SUF)
|
||||
|
|
|
|||
169
man/libpc.7
169
man/libpc.7
|
|
@ -5,71 +5,71 @@
|
|||
libpc \- library of external routines for Pascal programs
|
||||
.SH SYNOPSIS
|
||||
.ta 11n
|
||||
const bufsize = ?;
|
||||
const bufsize = ?;
|
||||
.br
|
||||
type br1 = 1..bufsize;
|
||||
type br1 = 1..bufsize;
|
||||
.br
|
||||
br2 = 0..bufsize;
|
||||
br2 = 0..bufsize;
|
||||
.br
|
||||
br3 = -1..bufsize;
|
||||
br3 = -1..bufsize;
|
||||
.br
|
||||
ok = -1..0;
|
||||
ok = -1..0;
|
||||
.br
|
||||
buf = packed array[br1] of char;
|
||||
buf = packed array[br1] of char;
|
||||
.br
|
||||
alfa = packed array[1..8] of char;
|
||||
alfa = packed array[1..8] of char;
|
||||
.br
|
||||
string = ^packed array[1..?] of char;
|
||||
string = ^packed array[1..?] of char;
|
||||
.br
|
||||
filetype = file of ?;
|
||||
filetype = file of ?;
|
||||
.br
|
||||
long = record high,low:integer end;
|
||||
long = record high,low:integer end;
|
||||
|
||||
{all routines must be declared extern}
|
||||
|
||||
function argc:integer;
|
||||
function argc:integer;
|
||||
.br
|
||||
function argv(i:integer):string;
|
||||
function argv(i:integer):string;
|
||||
.br
|
||||
function environ(i:integer):string;
|
||||
function environ(i:integer):string;
|
||||
.br
|
||||
procedure argshift;
|
||||
procedure argshift;
|
||||
|
||||
procedure buff(var f:filetype);
|
||||
procedure buff(var f:filetype);
|
||||
.br
|
||||
procedure nobuff(var f:filetype);
|
||||
procedure nobuff(var f:filetype);
|
||||
.br
|
||||
procedure notext(var f:text);
|
||||
procedure notext(var f:text);
|
||||
.br
|
||||
procedure diag(var f:text);
|
||||
procedure diag(var f:text);
|
||||
.br
|
||||
procedure pcreat(var f:text; s:string);
|
||||
procedure pcreat(var f:text; s:string);
|
||||
.br
|
||||
procedure popen(var f:text; s:string);
|
||||
procedure popen(var f:text; s:string);
|
||||
.br
|
||||
procedure pclose(var f:filetype);
|
||||
procedure pclose(var f:filetype);
|
||||
|
||||
procedure trap(err:integer);
|
||||
procedure trap(err:integer);
|
||||
.br
|
||||
procedure encaps(procedure p; procedure q(n:integer));
|
||||
procedure encaps(procedure p; procedure q(n:integer));
|
||||
|
||||
function perrno:integer;
|
||||
function perrno:integer;
|
||||
.br
|
||||
function uread(fd:integer; var b:buf; len:br1):br3;
|
||||
function uread(fd:integer; var b:buf; len:br1):br3;
|
||||
.br
|
||||
function uwrite(fd:integer; var b:buf; len:br1):br3;
|
||||
function uwrite(fd:integer; var b:buf; len:br1):br3;
|
||||
|
||||
function strbuf(var b:buf):string;
|
||||
function strbuf(var b:buf):string;
|
||||
.br
|
||||
function strtobuf(s:string; var b:buf; len:br1):br2;
|
||||
function strtobuf(s:string; var b:buf; len:br1):br2;
|
||||
.br
|
||||
function strlen(s:string):integer;
|
||||
function strlen(s:string):integer;
|
||||
.br
|
||||
function strfetch(s:string; i:integer):char;
|
||||
function strfetch(s:string; i:integer):char;
|
||||
.br
|
||||
procedure strstore(s:string; i:integer; c:char);
|
||||
procedure strstore(s:string; i:integer; c:char);
|
||||
|
||||
function clock:integer;
|
||||
function clock:integer;
|
||||
.SH DESCRIPTION
|
||||
This library contains some often used external routines for Pascal programs.
|
||||
Two versions exist: one for the EM interpreter and another one
|
||||
|
|
@ -214,71 +214,70 @@ Return the number of ticks of user and system time consumed by the program.
|
|||
The following program presents an example of how these routines can be used.
|
||||
This program is equivalent to the UNIX command cat(1).
|
||||
.nf
|
||||
{$c+}
|
||||
program cat(input,inp,output);
|
||||
var inp:text;
|
||||
s:string;
|
||||
{$c+}
|
||||
program cat(input,inp,output);
|
||||
var inp:text;
|
||||
s:string;
|
||||
|
||||
function argc:integer; extern;
|
||||
function argv(i:integer):string; extern;
|
||||
procedure argshift; extern;
|
||||
function strlen(s:string):integer; extern;
|
||||
function strfetch(s:string; i:integer):char; extern;
|
||||
function argc:integer; extern;
|
||||
function argv(i:integer):string; extern;
|
||||
procedure argshift; extern;
|
||||
function strlen(s:string):integer; extern;
|
||||
function strfetch(s:string; i:integer):char; extern;
|
||||
|
||||
procedure copy(var fi:text);
|
||||
var c:char;
|
||||
begin reset(fi);
|
||||
while not eof(fi) do
|
||||
begin
|
||||
while not eoln(fi) do
|
||||
begin
|
||||
read(fi,c);
|
||||
write(c)
|
||||
end;
|
||||
readln(fi);
|
||||
writeln
|
||||
end
|
||||
end;
|
||||
procedure copy(var fi:text);
|
||||
var c:char;
|
||||
begin reset(fi);
|
||||
while not eof(fi) do
|
||||
begin
|
||||
while not eoln(fi) do
|
||||
begin
|
||||
read(fi,c);
|
||||
write(c)
|
||||
end;
|
||||
readln(fi);
|
||||
writeln
|
||||
end
|
||||
end;
|
||||
|
||||
begin {main}
|
||||
if argc = 1 then
|
||||
copy(input)
|
||||
else
|
||||
repeat
|
||||
s := argv(1);
|
||||
if (strlen(s) = 1) and (strfetch(s,1) = '-')
|
||||
then copy(input)
|
||||
else copy(inp);
|
||||
argshift;
|
||||
until argc <= 1;
|
||||
end.
|
||||
begin {main}
|
||||
if argc = 1 then
|
||||
copy(input)
|
||||
else
|
||||
repeat
|
||||
s := argv(1);
|
||||
if (strlen(s) = 1) and (strfetch(s,1) = '-')
|
||||
then copy(input)
|
||||
else copy(inp);
|
||||
argshift;
|
||||
until argc <= 1;
|
||||
end.
|
||||
.fi
|
||||
.PP
|
||||
Another example gives some idea of the way to manage trap handling:
|
||||
.nf
|
||||
|
||||
program bigreal(output);
|
||||
const EFOVFL=4;
|
||||
var trapped:boolean;
|
||||
program bigreal(output);
|
||||
const EFOVFL=4;
|
||||
var trapped:boolean;
|
||||
|
||||
procedure encaps(procedure p;
|
||||
procedure q(n:integer)); extern;
|
||||
procedure trap(n:integer); extern;
|
||||
procedure encaps(procedure p; procedure q(n:integer)); extern;
|
||||
procedure trap(n:integer); extern;
|
||||
|
||||
procedure traphandler(n:integer);
|
||||
begin if n=EFOVFL then trapped:=true else trap(n) end;
|
||||
procedure traphandler(n:integer);
|
||||
begin if n=EFOVFL then trapped:=true else trap(n) end;
|
||||
|
||||
procedure work;
|
||||
var i,j:real;
|
||||
begin trapped:=false; i:=1;
|
||||
while not trapped do
|
||||
begin j:=i; i:=i*2 end;
|
||||
writeln('bigreal = ',j);
|
||||
end;
|
||||
procedure work;
|
||||
var i,j:real;
|
||||
begin trapped:=false; i:=1;
|
||||
while not trapped do
|
||||
begin j:=i; i:=i*2 end;
|
||||
writeln('bigreal = ',j);
|
||||
end;
|
||||
|
||||
begin
|
||||
encaps(work,traphandler);
|
||||
end.
|
||||
begin
|
||||
encaps(work,traphandler);
|
||||
end.
|
||||
.fi
|
||||
.SH FILES
|
||||
.IP ~em/lib/*/tail_pc 20
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
.\" $Header$
|
||||
.TH NS_ASS 6ACK
|
||||
.TH NS_AS 6ACK
|
||||
.ad
|
||||
.SH NAME
|
||||
ns_as \- National Semiconductor 16032 assembler/linker
|
||||
|
|
|
|||
279
man/pc_prlib.7
279
man/pc_prlib.7
|
|
@ -4,196 +4,117 @@
|
|||
.SH NAME
|
||||
pc_prlib \- library of Pascal runtime routines
|
||||
.SH SYNOPSIS
|
||||
.ta 11n
|
||||
type alpha=packed array[1..8] of char;
|
||||
.br
|
||||
pstring= ^packed array[] of char;
|
||||
.ta 11n 22n 33n 44n 55n
|
||||
.nf
|
||||
type alpha=packed array[1..8] of char;
|
||||
pstring= ^packed array[] of char;
|
||||
|
||||
function _abi(i:integer):integer;
|
||||
.br
|
||||
function _abl(i:long):long;
|
||||
.br
|
||||
function _mdi(j,i:integer):integer;
|
||||
.br
|
||||
function _mdl(j,i:long):long;
|
||||
.br
|
||||
function _abr(r:real):real;
|
||||
.br
|
||||
function _sin(r:real):real;
|
||||
.br
|
||||
function _cos(r:real):real;
|
||||
.br
|
||||
function _atn(r:real):real;
|
||||
.br
|
||||
function _exp(r:real):real;
|
||||
.br
|
||||
function _log(r:real):real;
|
||||
.br
|
||||
function _sqt(r:real):real;
|
||||
.br
|
||||
function _rnd(r:real):real;
|
||||
function _abi(i:integer):integer;
|
||||
function _abl(i:long):long;
|
||||
function _mdi(j,i:integer):integer;
|
||||
function _mdl(j,i:long):long;
|
||||
function _abr(r:real):real;
|
||||
function _sin(r:real):real;
|
||||
function _cos(r:real):real;
|
||||
function _atn(r:real):real;
|
||||
function _exp(r:real):real;
|
||||
function _log(r:real):real;
|
||||
function _sqt(r:real):real;
|
||||
function _rnd(r:real):real;
|
||||
|
||||
type compared=-1..1;
|
||||
.br
|
||||
gotoinfo=record
|
||||
.br
|
||||
pcoffset:^procedure; { procedure id. without static link }
|
||||
.br
|
||||
nlocals: integer;
|
||||
.br
|
||||
end;
|
||||
type compared=-1..1;
|
||||
gotoinfo=record
|
||||
pcoffset:^procedure; { procedure id. without static link }
|
||||
nlocals: integer;
|
||||
end;
|
||||
|
||||
function _bcp(sz:integer; s2,s1:pstring):compared;
|
||||
.br
|
||||
function _bts(size,high,low:integer; base:^set 0..(8*size-1))
|
||||
:set of 0..(8*size-1);
|
||||
.br
|
||||
procedure _gto(lb:^integer; p:^gotoinfo);
|
||||
function _bcp(sz:integer; s2,s1:pstring):compared;
|
||||
function _bts(size,high,low:integer; base:^set 0..(8*size-1))
|
||||
:set of 0..(8*size-1);
|
||||
procedure _gto(lb:^integer; p:^gotoinfo);
|
||||
|
||||
procedure _new(size:integer; var p:^integer);
|
||||
.br
|
||||
procedure _dis(size:integer; var p:^integer);
|
||||
.br
|
||||
procedure _sav(var p:^integer);
|
||||
.br
|
||||
procedure _rst(var p:^integer);
|
||||
procedure _new(size:integer; var p:^integer);
|
||||
procedure _dis(size:integer; var p:^integer);
|
||||
procedure _sav(var p:^integer);
|
||||
procedure _rst(var p:^integer);
|
||||
|
||||
type arrdescr=record
|
||||
.br
|
||||
lowbnd: integer;
|
||||
.br
|
||||
diffbnds:integer;
|
||||
.br
|
||||
elsize: integer;
|
||||
.br
|
||||
end;
|
||||
.br
|
||||
arr1=array[] of ?;
|
||||
.br
|
||||
arr2=packed array[] of ?;
|
||||
type arrdescr=record
|
||||
lowbnd: integer;
|
||||
diffbnds:integer;
|
||||
elsize: integer;
|
||||
end;
|
||||
arr1=array[] of ?;
|
||||
arr2=packed array[] of ?;
|
||||
|
||||
procedure _pac(var ad,zd:arrdescr; var zp:arr2; i:integer;
|
||||
.br
|
||||
var ap:arr1);
|
||||
.br
|
||||
procedure _unp(var ad,zd:arrdescr; i:integer; var ap:arr1;
|
||||
.br
|
||||
var zp:arr2;);
|
||||
.br
|
||||
function _asz(var dp:arrdescr):integer;
|
||||
procedure _pac(var ad,zd:arrdescr; var zp:arr2; i:integer;
|
||||
var ap:arr1);
|
||||
procedure _unp(var ad,zd:arrdescr; i:integer; var ap:arr1;
|
||||
var zp:arr2;);
|
||||
function _asz(var dp:arrdescr):integer;
|
||||
|
||||
procedure _ass(line:integer; b:boolean);
|
||||
.br
|
||||
procedure procentry(var name:alpha);
|
||||
.br
|
||||
procedure procexit(var name:alpha);
|
||||
procedure _ass(line:integer; b:boolean);
|
||||
procedure procentry(var name:alpha);
|
||||
procedure procexit(var name:alpha);
|
||||
|
||||
const lowbyte=[0..7];
|
||||
.br
|
||||
MAGIC =[1,3,5,7];
|
||||
.br
|
||||
WINDOW =[11];
|
||||
.br
|
||||
ELNBIT =[12];
|
||||
.br
|
||||
EOFBIT =[13];
|
||||
.br
|
||||
TXTBIT =[14];
|
||||
.br
|
||||
WRBIT =[15];
|
||||
.br
|
||||
type file=record
|
||||
.br
|
||||
ptr: ^char;
|
||||
.br
|
||||
flags: set of [0..15];
|
||||
.br
|
||||
fname: string;
|
||||
.br
|
||||
ufd: 0..15;
|
||||
.br
|
||||
size: integer;
|
||||
.br
|
||||
count: 0..buflen;
|
||||
.br
|
||||
buflen: max(512,size) div size * size;
|
||||
.br
|
||||
bufadr: packed array[1..max(512,size)]
|
||||
.br
|
||||
of char;
|
||||
.br
|
||||
end;
|
||||
.br
|
||||
filep=^file;
|
||||
.br
|
||||
const NFILES=15;
|
||||
.br
|
||||
_extfl:^array[] of filep;
|
||||
const lowbyte=[0..7];
|
||||
MAGIC =[1,3,5,7];
|
||||
WINDOW =[11];
|
||||
ELNBIT =[12];
|
||||
EOFBIT =[13];
|
||||
TXTBIT =[14];
|
||||
WRBIT =[15];
|
||||
type file=record
|
||||
ptr: ^char;
|
||||
flags: set of [0..15];
|
||||
fname: string;
|
||||
ufd: 0..15;
|
||||
size: integer;
|
||||
count: 0..buflen;
|
||||
buflen: max(512,size) div size * size;
|
||||
bufadr: packed array[1..max(512,size)]
|
||||
of char;
|
||||
end;
|
||||
filep=^file;
|
||||
const NFILES=15;
|
||||
_extfl:^array[] of filep;
|
||||
|
||||
procedure _ini(var args:integer; var hb:integer;
|
||||
var p:array[] of filep; var mainlb:integer);
|
||||
.br
|
||||
procedure _hlt(status:0..255);
|
||||
procedure _ini(var args:integer; var hb:integer;
|
||||
var p:array[] of filep; var mainlb:integer);
|
||||
procedure _hlt(status:0..255);
|
||||
|
||||
procedure _opn(size:integer; f:filep);
|
||||
.br
|
||||
procedure _cre(size:integer; f:filep);
|
||||
.br
|
||||
procedure _cls(f:filep);
|
||||
procedure _opn(size:integer; f:filep);
|
||||
procedure _cre(size:integer; f:filep);
|
||||
procedure _cls(f:filep);
|
||||
|
||||
procedure _get(f:filep);
|
||||
.br
|
||||
procedure _put(f:filep);
|
||||
.br
|
||||
function _wdw(f:filep):^char;
|
||||
.br
|
||||
function _efl(f:filep):boolean;
|
||||
procedure _get(f:filep);
|
||||
procedure _put(f:filep);
|
||||
function _wdw(f:filep):^char;
|
||||
function _efl(f:filep):boolean;
|
||||
|
||||
function _eln(f:filep):boolean;
|
||||
.br
|
||||
function _rdc(f:filep):char;
|
||||
.br
|
||||
function _rdi(f:filep):integer;
|
||||
.br
|
||||
function _rdl(f:filep):long;
|
||||
.br
|
||||
function _rdr(f:filep):real;
|
||||
.br
|
||||
procedure _rln(f:filep);
|
||||
.br
|
||||
procedure _wrc(c:char; f:filep);
|
||||
.br
|
||||
procedure _wsc(w:integer; c:char; f:filep);
|
||||
.br
|
||||
procedure _wri(i:integer; f:filep);
|
||||
.br
|
||||
procedure _wsi(w:integer; i:integer; f:filep);
|
||||
.br
|
||||
procedure _wrl(l:long; f:filep);
|
||||
.br
|
||||
procedure _wsl(w:integer; l:long; f:filep);
|
||||
.br
|
||||
procedure _wrr(r:real; f:filep);
|
||||
.br
|
||||
procedure _wsr(w:integer; r:real; f:filep);
|
||||
.br
|
||||
procedure _wrf(ndigit:integer; w:integer; r:real; f:filep);
|
||||
.br
|
||||
procedure _wrs(l:integer; s:pstring; f:filep);
|
||||
.br
|
||||
procedure _wss(w:integer; l:integer; s:pstring; f:filep);
|
||||
.br
|
||||
procedure _wrb(b:boolean; f:filep);
|
||||
.br
|
||||
procedure _wsb(w:integer; b:boolean; f:filep);
|
||||
.br
|
||||
procedure _wrz(s:string; f:filep);
|
||||
.br
|
||||
procedure _wsz(w:integer; s:string; f:filep);
|
||||
.br
|
||||
procedure _wln(f:filep);
|
||||
.br
|
||||
procedure _pag(f:filep);
|
||||
function _eln(f:filep):boolean;
|
||||
function _rdc(f:filep):char;
|
||||
function _rdi(f:filep):integer;
|
||||
function _rdl(f:filep):long;
|
||||
function _rdr(f:filep):real;
|
||||
procedure _rln(f:filep);
|
||||
procedure _wrc(c:char; f:filep);
|
||||
procedure _wsc(w:integer; c:char; f:filep);
|
||||
procedure _wri(i:integer; f:filep);
|
||||
procedure _wsi(w:integer; i:integer; f:filep);
|
||||
procedure _wrl(l:long; f:filep);
|
||||
procedure _wsl(w:integer; l:long; f:filep);
|
||||
procedure _wrr(r:real; f:filep);
|
||||
procedure _wsr(w:integer; r:real; f:filep);
|
||||
procedure _wrf(ndigit:integer; w:integer; r:real; f:filep);
|
||||
procedure _wrs(l:integer; s:pstring; f:filep);
|
||||
procedure _wss(w:integer; l:integer; s:pstring; f:filep);
|
||||
procedure _wrb(b:boolean; f:filep);
|
||||
procedure _wsb(w:integer; b:boolean; f:filep);
|
||||
procedure _wrz(s:string; f:filep);
|
||||
procedure _wsz(w:integer; s:string; f:filep);
|
||||
procedure _wln(f:filep);
|
||||
procedure _pag(f:filep);
|
||||
.fi
|
||||
.SH DESCRIPTION
|
||||
This library is used by the Pascal to EM compiler and
|
||||
contains all the runtime routines for standard Pascal programs.
|
||||
|
|
@ -428,7 +349,7 @@ the argument list to global memory, mainlb to _m_lb and hb to _hbase.
|
|||
The first contains the local base of the program body, the second
|
||||
contains the address of the hol containing the global variables
|
||||
of the program.
|
||||
A last task of _ini is to set the global variables _argc, _argv and _environ
|
||||
A last task of _ini is to set the global variables _argc, _argv and _environ
|
||||
from args for
|
||||
possible reference later on.
|
||||
Args points to the argument count placed on the stack by the EM runtime system,
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
.\" $Header$
|
||||
.TH z80_AS 6ACK
|
||||
.TH Z80_AS 6ACK
|
||||
.ad
|
||||
.SH NAME
|
||||
z80_as \- assembler for Zilog z80
|
||||
|
|
|
|||
Loading…
Reference in a new issue