head     56.3;
access   paws bayes jws quist brad dew jwh;
symbols  ;
locks    ; strict;
comment  @# @;


56.3
date     93.01.27.13.17.48;  author jwh;  state Exp;
branches ;
next     56.2;

56.2
date     93.01.27.11.59.04;  author jwh;  state Exp;
branches ;
next     56.1;

56.1
date     91.11.05.09.54.59;  author jwh;  state Exp;
branches ;
next     55.1;

55.1
date     91.08.25.10.30.25;  author jwh;  state Exp;
branches ;
next     54.3;

54.3
date     91.08.21.10.35.44;  author jwh;  state Exp;
branches ;
next     54.2;

54.2
date     91.08.21.09.40.07;  author jwh;  state Exp;
branches ;
next     54.1;

54.1
date     91.03.18.15.32.10;  author jwh;  state Exp;
branches ;
next     53.1;

53.1
date     91.03.11.19.32.03;  author jwh;  state Exp;
branches ;
next     52.1;

52.1
date     91.02.19.09.16.55;  author jwh;  state Exp;
branches ;
next     51.1;

51.1
date     91.01.30.16.16.29;  author jwh;  state Exp;
branches ;
next     50.1;

50.1
date     90.10.29.16.30.45;  author jwh;  state Exp;
branches ;
next     49.1;

49.1
date     90.08.14.14.14.32;  author jwh;  state Exp;
branches ;
next     48.1;

48.1
date     90.07.26.11.20.52;  author jwh;  state Exp;
branches ;
next     47.1;

47.1
date     90.05.14.11.05.33;  author dew;  state Exp;
branches ;
next     46.1;

46.1
date     90.05.07.08.52.30;  author jwh;  state Exp;
branches ;
next     45.1;

45.1
date     90.04.19.16.00.28;  author jwh;  state Exp;
branches ;
next     44.1;

44.1
date     90.04.01.22.17.37;  author jwh;  state Exp;
branches ;
next     43.1;

43.1
date     90.03.20.14.10.07;  author jwh;  state Exp;
branches ;
next     42.1;

42.1
date     90.01.23.17.54.33;  author jwh;  state Exp;
branches ;
next     41.1;

41.1
date     89.12.22.11.36.46;  author jwh;  state Exp;
branches ;
next     40.1;

40.1
date     89.09.29.11.57.52;  author jwh;  state Exp;
branches ;
next     39.1;

39.1
date     89.09.26.16.42.37;  author dew;  state Exp;
branches ;
next     38.1;

38.1
date     89.08.29.11.34.34;  author jwh;  state Exp;
branches ;
next     37.1;

37.1
date     89.05.12.11.48.19;  author dew;  state Exp;
branches ;
next     36.1;

36.1
date     89.02.06.10.25.58;  author dew;  state Exp;
branches ;
next     35.1;

35.1
date     89.02.02.13.41.26;  author dew;  state Exp;
branches ;
next     34.1;

34.1
date     89.01.23.16.16.40;  author jwh;  state Exp;
branches ;
next     33.1;

33.1
date     89.01.16.11.48.08;  author dew;  state Exp;
branches ;
next     32.1;

32.1
date     89.01.10.11.57.18;  author bayes;  state Exp;
branches ;
next     31.1;

31.1
date     88.12.14.18.18.15;  author bayes;  state Exp;
branches ;
next     30.1;

30.1
date     88.12.09.13.55.15;  author dew;  state Exp;
branches ;
next     29.1;

29.1
date     88.10.31.15.39.53;  author bayes;  state Exp;
branches ;
next     28.1;

28.1
date     88.10.06.11.06.14;  author dew;  state Exp;
branches ;
next     27.1;

27.1
date     88.09.29.11.48.54;  author bayes;  state Exp;
branches ;
next     26.1;

26.1
date     88.09.28.13.34.46;  author bayes;  state Exp;
branches ;
next     25.1;

25.1
date     88.03.02.09.42.41;  author bayes;  state Exp;
branches ;
next     24.1;

24.1
date     87.08.31.10.12.28;  author jws;  state Exp;
branches ;
next     23.1;

23.1
date     87.08.26.10.56.43;  author bayes;  state Exp;
branches ;
next     22.1;

22.1
date     87.08.17.11.37.13;  author bayes;  state Exp;
branches ;
next     21.1;

21.1
date     87.08.12.14.21.25;  author bayes;  state Exp;
branches ;
next     20.1;

20.1
date     87.07.30.11.32.55;  author bayes;  state Exp;
branches ;
next     19.1;

19.1
date     87.06.01.08.45.10;  author jws;  state Exp;
branches ;
next     18.1;

18.1
date     87.05.20.15.52.20;  author bayes;  state Exp;
branches ;
next     17.1;

17.1
date     87.04.30.10.56.41;  author jws;  state Exp;
branches ;
next     16.1;

16.1
date     87.04.26.16.07.09;  author jws;  state Exp;
branches ;
next     15.1;

15.1
date     87.04.13.09.47.13;  author jws;  state Exp;
branches ;
next     14.1;

14.1
date     87.04.01.15.55.55;  author jws;  state Exp;
branches ;
next     13.1;

13.1
date     87.02.28.18.50.38;  author jws;  state Exp;
branches ;
next     12.1;

12.1
date     87.02.02.13.43.38;  author jws;  state Exp;
branches ;
next     11.1;

11.1
date     87.01.19.10.10.04;  author jws;  state Exp;
branches ;
next     10.1;

10.1
date     86.12.24.11.24.52;  author jws;  state Exp;
branches ;
next     9.2;

9.2
date     86.12.16.10.08.50;  author jws;  state Exp;
branches ;
next     9.1;

9.1
date     86.12.12.15.07.59;  author bayes;  state Exp;
branches ;
next     8.1;

8.1
date     86.11.27.12.18.36;  author jws;  state Exp;
branches ;
next     7.1;

7.1
date     86.11.20.14.28.14;  author hal;  state Exp;
branches ;
next     6.1;

6.1
date     86.11.04.18.23.55;  author paws;  state Exp;
branches ;
next     5.1;

5.1
date     86.10.28.17.12.10;  author hal;  state Exp;
branches ;
next     4.1;

4.1
date     86.09.30.20.07.18;  author hal;  state Exp;
branches ;
next     3.1;

3.1
date     86.09.01.12.17.45;  author hal;  state Exp;
branches ;
next     2.7;

2.7
date     86.08.18.11.33.33;  author hal;  state Exp;
branches ;
next     2.6;

2.6
date     86.08.18.09.46.31;  author hal;  state Exp;
branches ;
next     2.5;

2.5
date     86.08.14.11.47.10;  author hal;  state Exp;
branches ;
next     2.4;

2.4
date     86.08.14.10.23.31;  author hal;  state Exp;
branches ;
next     2.3;

2.3
date     86.08.12.10.39.43;  author hal;  state Exp;
branches ;
next     2.2;

2.2
date     86.08.08.15.37.30;  author hal;  state Exp;
branches ;
next     2.1;

2.1
date     86.07.30.15.06.40;  author hal;  state Exp;
branches ;
next     1.3;

1.3
date     86.07.15.18.06.15;  author geli;  state Exp;
branches ;
next     1.2;

1.2
date     86.07.14.09.47.50;  author hal;  state Exp;
branches ;
next     1.1;

1.1
date     86.06.30.16.35.55;  author danm;  state tmp;
branches ;
next     ;


desc
@Base file for PWS 3.2 release.

@


56.3
log
@
pws2rcs automatic delta on Wed Jan 27 13:14:25 MST 1993
@
text
@$modcal, range off, ovflcheck off, debug off, iocheck off, stackcheck off$
$ALLOW_PACKED ON$      { JWS 4/10/85 }
program initload;

$search  'ASM'    $

$include 'GLOBALS'$;
$include 'MINI'   $;
$include 'LOADER' $;
$include 'HFSBOOT'$;
$include 'BOOTDAM'$;

import bootdammodule, sysglobals, asm, loader;

const splen = 20;
type stringsp = string[splen];
const sysprefix = stringsp['/WORKSTATIONS/SYSTEM'];
var sysstart: string[11];

procedure unitioinit;
begin
  sysunit := 0;
  initbootdam;
  newwords(unitable, sizeof(unitentry) div 2);
  with unitable^[0] do begin
      dam := bootdam;
      tm  := boottm;
      sc := 0;
      ba := 0;
      du := 0;
      dv := 0;
      byteoffset := 0;
      devid := 0;
      uvid := '';
      dvrtemp := 0;                     {must always initially be zero!}
      dvrtemp2 := -1;                   {must always initially be -1!}
      letter := chr(0);
      offline := false;                 {always initially assume online}
      uisinteractive := false;
      umediavalid := false;             {assume media invalid until verified}
      uuppercase := false;              {assume case is significant}
      uisfixed := false;                {assume unit not fixed}
      ureportchange := false;           {do not report media changes}
      pad := 0;                         {not used yet}
      uisblkd :=  true;
      umaxbytes := 528 * fblksize;
    end; {with}
  h_unitable := nil;

end;

procedure initfkinds;
var fk: filekind;
begin
  mark(amtable);                {TO AVOID ADDRESSING ERRORS}
  new(efttable);
  for fk := untypedfile to lastfkind do efttable^[fk] := 0;
  efttable^[codefile] := -5582;
end;

procedure go;
var  done: boolean;
     modptr: moddescptr;
begin {GO}
  if entrypoint <> nil then
    try
      modptr := entrypoint;
      repeat
	if modptr^.startaddr<>0 then
	  userprogram(modptr^.startaddr, userstack);
	done := modptr^.lastmodule;
	modptr := modptr^.link;
      until done;
    recover escape(escapecode);
end;  {GO}

procedure add(var s: string; st: string80);
var i: integer;
begin
  for i := 1 to strlen(st) do
    begin setstrlen(s, strlen(s)+1); s[strlen(s)] := st[i]; end;
end;

procedure trysrmboot;
var   s2: string2;
      il: string[40];
begin
 s2 := bootnode;
 if strlen(s2) > 0 then
   begin
   nodestr := sysprefix; add(nodestr, s2); add(nodestr, '/');
   il := nodestr; add(il, sysstart);
   try loadq(il);
   recover if escapecode <> -10 then escape(escapecode);
   if entrypoint = nil then
     begin
     setstrlen(nodestr, splen+1); nodestr[splen+1] := '/';
     il := nodestr; add(il, sysstart);
     try loadq(il);
     recover if escapecode <> -10 then escape(escapecode);
     end;
   end;
end;

procedure tryhfsboot;
var
  suffix: string20;
  il: string[40];
begin
  if hfsbflg then begin
    suffix := bootname('', 0);
    if strlen(suffix) > 0 then begin
      { /WORKSTATIONS/SYSTEMxxxxxxx }
      il := sysprefix;
      add(il, suffix);
      add(il, '/');
      nodestr := il;
      add(il, sysstart);
      try loadq(il);
      recover if escapecode <> -10 then escape(escapecode);
    end;
    if entrypoint = nil then begin
      { /WORKSTATIONS/SYSTEM }
      il := sysprefix;
      add(il, '/');
      nodestr := il;
      add(il, sysstart);
      { keep error if not found, so no try/recover }
      loadq(il);
    end;
  end;
end;



begin
   powerup;                             {SET UP STACK, GLOBAL AREA, ETC.}
   unitioinit;                          {SET UP UNIT TABLE ENTRY FOR BOOTING}
   initfkinds;                          {SET UP MINIMAL FILE TYPE TABLE}
   initloader;                          {SET UP LOADER }

   try
     sysstart := bootname('INITLIB', 4);
     trysrmboot;
     tryhfsboot;
     if entrypoint = nil then
	begin
	nodestr := '';
	loadq(sysstart);
	end;
     cpymsg('');                        {CLEAR SCREEN, PUT UP COPYRIGHT}
     go;                                {EXECUTE ALL PROGRAMS IN SYSSTART}
   recover errmsg;                      {PRINT ERROR MESSAGE }
   while true do;
end.

@


56.2
log
@
pws2rcs automatic delta on Wed Jan 27 11:57:27 MST 1993
@
text
@d1 156
@


56.1
log
@Automatic bump of revision number for PWS version 3.25
@
text
@a0 156
$modcal, range off, ovflcheck off, debug off, iocheck off, stackcheck off$
$ALLOW_PACKED ON$      { JWS 4/10/85 }
program initload;

$search  'ASM'    $

$include 'GLOBALS'$;
$include 'MINI'   $;
$include 'LOADER' $;
$include 'HFSBOOT'$;
$include 'BOOTDAM'$;

import bootdammodule, sysglobals, asm, loader;

const splen = 20;
type stringsp = string[splen];
const sysprefix = stringsp['/WORKSTATIONS/SYSTEM'];
var sysstart: string[11];

procedure unitioinit;
begin
  sysunit := 0;
  initbootdam;
  newwords(unitable, sizeof(unitentry) div 2);
  with unitable^[0] do begin
      dam := bootdam;
      tm  := boottm;
      sc := 0;
      ba := 0;
      du := 0;
      dv := 0;
      byteoffset := 0;
      devid := 0;
      uvid := '';
      dvrtemp := 0;                     {must always initially be zero!}
      dvrtemp2 := -1;                   {must always initially be -1!}
      letter := chr(0);
      offline := false;                 {always initially assume online}
      uisinteractive := false;
      umediavalid := false;             {assume media invalid until verified}
      uuppercase := false;              {assume case is significant}
      uisfixed := false;                {assume unit not fixed}
      ureportchange := false;           {do not report media changes}
      pad := 0;                         {not used yet}
      uisblkd :=  true;
      umaxbytes := 528 * fblksize;
    end; {with}
  h_unitable := nil;

end;

procedure initfkinds;
var fk: filekind;
begin
  mark(amtable);                {TO AVOID ADDRESSING ERRORS}
  new(efttable);
  for fk := untypedfile to lastfkind do efttable^[fk] := 0;
  efttable^[codefile] := -5582;
end;

procedure go;
var  done: boolean;
     modptr: moddescptr;
begin {GO}
  if entrypoint <> nil then
    try
      modptr := entrypoint;
      repeat
	if modptr^.startaddr<>0 then
	  userprogram(modptr^.startaddr, userstack);
	done := modptr^.lastmodule;
	modptr := modptr^.link;
      until done;
    recover escape(escapecode);
end;  {GO}

procedure add(var s: string; st: string80);
var i: integer;
begin
  for i := 1 to strlen(st) do
    begin setstrlen(s, strlen(s)+1); s[strlen(s)] := st[i]; end;
end;

procedure trysrmboot;
var   s2: string2;
      il: string[40];
begin
 s2 := bootnode;
 if strlen(s2) > 0 then
   begin
   nodestr := sysprefix; add(nodestr, s2); add(nodestr, '/');
   il := nodestr; add(il, sysstart);
   try loadq(il);
   recover if escapecode <> -10 then escape(escapecode);
   if entrypoint = nil then
     begin
     setstrlen(nodestr, splen+1); nodestr[splen+1] := '/';
     il := nodestr; add(il, sysstart);
     try loadq(il);
     recover if escapecode <> -10 then escape(escapecode);
     end;
   end;
end;

procedure tryhfsboot;
var
  suffix: string20;
  il: string[40];
begin
  if hfsbflg then begin
    suffix := bootname('', 0);
    if strlen(suffix) > 0 then begin
      { /WORKSTATIONS/SYSTEMxxxxxxx }
      il := sysprefix;
      add(il, suffix);
      add(il, '/');
      nodestr := il;
      add(il, sysstart);
      try loadq(il);
      recover if escapecode <> -10 then escape(escapecode);
    end;
    if entrypoint = nil then begin
      { /WORKSTATIONS/SYSTEM }
      il := sysprefix;
      add(il, '/');
      nodestr := il;
      add(il, sysstart);
      { keep error if not found, so no try/recover }
      loadq(il);
    end;
  end;
end;



begin
   powerup;                             {SET UP STACK, GLOBAL AREA, ETC.}
   unitioinit;                          {SET UP UNIT TABLE ENTRY FOR BOOTING}
   initfkinds;                          {SET UP MINIMAL FILE TYPE TABLE}
   initloader;                          {SET UP LOADER }

   try
     sysstart := bootname('INITLIB', 4);
     trysrmboot;
     tryhfsboot;
     if entrypoint = nil then
	begin
	nodestr := '';
	loadq(sysstart);
	end;
     cpymsg('');                        {CLEAR SCREEN, PUT UP COPYRIGHT}
     go;                                {EXECUTE ALL PROGRAMS IN SYSSTART}
   recover errmsg;                      {PRINT ERROR MESSAGE }
   while true do;
end.

@


55.1
log
@Automatic bump of revision number for PWS version 3.25A
@
text
@@


54.3
log
@
pws2rcs automatic delta on Wed Aug 21 10:27:27 MDT 1991
@
text
@@


54.2
log
@
pws2rcs automatic delta on Wed Aug 21 09:35:48 MDT 1991
@
text
@d1 156
@


54.1
log
@Automatic bump of revision number for PWS version 3.24
@
text
@a0 156
$modcal, range off, ovflcheck off, debug off, iocheck off, stackcheck off$
$ALLOW_PACKED ON$      { JWS 4/10/85 }
program initload;

$search  'ASM'    $

$include 'GLOBALS'$;
$include 'MINI'   $;
$include 'LOADER' $;
$include 'HFSBOOT'$;
$include 'BOOTDAM'$;

import bootdammodule, sysglobals, asm, loader;

const splen = 20;
type stringsp = string[splen];
const sysprefix = stringsp['/WORKSTATIONS/SYSTEM'];
var sysstart: string[11];

procedure unitioinit;
begin
  sysunit := 0;
  initbootdam;
  newwords(unitable, sizeof(unitentry) div 2);
  with unitable^[0] do begin
      dam := bootdam;
      tm  := boottm;
      sc := 0;
      ba := 0;
      du := 0;
      dv := 0;
      byteoffset := 0;
      devid := 0;
      uvid := '';
      dvrtemp := 0;                     {must always initially be zero!}
      dvrtemp2 := -1;                   {must always initially be -1!}
      letter := chr(0);
      offline := false;                 {always initially assume online}
      uisinteractive := false;
      umediavalid := false;             {assume media invalid until verified}
      uuppercase := false;              {assume case is significant}
      uisfixed := false;                {assume unit not fixed}
      ureportchange := false;           {do not report media changes}
      pad := 0;                         {not used yet}
      uisblkd :=  true;
      umaxbytes := 528 * fblksize;
    end; {with}
  h_unitable := nil;

end;

procedure initfkinds;
var fk: filekind;
begin
  mark(amtable);                {TO AVOID ADDRESSING ERRORS}
  new(efttable);
  for fk := untypedfile to lastfkind do efttable^[fk] := 0;
  efttable^[codefile] := -5582;
end;

procedure go;
var  done: boolean;
     modptr: moddescptr;
begin {GO}
  if entrypoint <> nil then
    try
      modptr := entrypoint;
      repeat
	if modptr^.startaddr<>0 then
	  userprogram(modptr^.startaddr, userstack);
	done := modptr^.lastmodule;
	modptr := modptr^.link;
      until done;
    recover escape(escapecode);
end;  {GO}

procedure add(var s: string; st: string80);
var i: integer;
begin
  for i := 1 to strlen(st) do
    begin setstrlen(s, strlen(s)+1); s[strlen(s)] := st[i]; end;
end;

procedure trysrmboot;
var   s2: string2;
      il: string[40];
begin
 s2 := bootnode;
 if strlen(s2) > 0 then
   begin
   nodestr := sysprefix; add(nodestr, s2); add(nodestr, '/');
   il := nodestr; add(il, sysstart);
   try loadq(il);
   recover if escapecode <> -10 then escape(escapecode);
   if entrypoint = nil then
     begin
     setstrlen(nodestr, splen+1); nodestr[splen+1] := '/';
     il := nodestr; add(il, sysstart);
     try loadq(il);
     recover if escapecode <> -10 then escape(escapecode);
     end;
   end;
end;

procedure tryhfsboot;
var
  suffix: string20;
  il: string[40];
begin
  if hfsbflg then begin
    suffix := bootname('', 0);
    if strlen(suffix) > 0 then begin
      { /WORKSTATIONS/SYSTEMxxxxxxx }
      il := sysprefix;
      add(il, suffix);
      add(il, '/');
      nodestr := il;
      add(il, sysstart);
      try loadq(il);
      recover if escapecode <> -10 then escape(escapecode);
    end;
    if entrypoint = nil then begin
      { /WORKSTATIONS/SYSTEM }
      il := sysprefix;
      add(il, '/');
      nodestr := il;
      add(il, sysstart);
      { keep error if not found, so no try/recover }
      loadq(il);
    end;
  end;
end;



begin
   powerup;                             {SET UP STACK, GLOBAL AREA, ETC.}
   unitioinit;                          {SET UP UNIT TABLE ENTRY FOR BOOTING}
   initfkinds;                          {SET UP MINIMAL FILE TYPE TABLE}
   initloader;                          {SET UP LOADER }

   try
     sysstart := bootname('INITLIB', 4);
     trysrmboot;
     tryhfsboot;
     if entrypoint = nil then
	begin
	nodestr := '';
	loadq(sysstart);
	end;
     cpymsg('');                        {CLEAR SCREEN, PUT UP COPYRIGHT}
     go;                                {EXECUTE ALL PROGRAMS IN SYSSTART}
   recover errmsg;                      {PRINT ERROR MESSAGE }
   while true do;
end.

@


53.1
log
@Automatic bump of revision number for PWS version 3.24B
@
text
@@


52.1
log
@Automatic bump of revision number for PWS version 3.24A
@
text
@@


51.1
log
@Automatic bump of revision number for PWS version 3.24d
@
text
@@


50.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@@


49.1
log
@Automatic bump of revision number for PWS version 3.24b
@
text
@@


48.1
log
@Automatic bump of revision number for PWS version 3.24a
@
text
@@


47.1
log
@Automatic bump of revision number for PWS version 3.23
@
text
@@


46.1
log
@Automatic bump of revision number for PWS version 3.23
@
text
@@


45.1
log
@Automatic bump of revision number for PWS version 3.23C
@
text
@@


44.1
log
@Automatic bump of revision number for PWS version 3.23B
@
text
@@


43.1
log
@Automatic bump of revision number for PWS version 3.23aA
@
text
@@


42.1
log
@Automatic bump of revision number for PWS version 3.23e
@
text
@@


41.1
log
@Automatic bump of revision number for PWS version 3.23d
@
text
@@


40.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@@


39.1
log
@Automatic bump of revision number for PWS version 3.23b
@
text
@@


38.1
log
@Automatic bump of revision number for PWS version 3.23a
@
text
@@


37.1
log
@Automatic bump of revision number for PWS version 3.3a
@
text
@@


36.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


35.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


34.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


33.1
log
@Automatic bump of revision number for PWS version 3.22D
@
text
@@


32.1
log
@Automatic bump of revision number for PWS version 3.22C
@
text
@@


31.1
log
@Automatic bump of revision number for PWS version 3.22B
@
text
@@


30.1
log
@Automatic bump of revision number for PWS version 3.22A
@
text
@@


29.1
log
@Automatic bump of revision number for PWS version 3.22b
@
text
@@


28.1
log
@Automatic bump of revision number for PWS version 3.3b
@
text
@@


27.1
log
@Automatic bump of revision number for PWS version 3.3a
@
text
@@


26.1
log
@Automatic bump of revision number for PWS version 3.3 Synch
@
text
@@


25.1
log
@Automatic bump of revision number for PWS version 3.2Y
@
text
@@


24.1
log
@Automatic bump of revision number for PWS version 3.2
@
text
@@


23.1
log
@Automatic bump of revision number for PWS version 3.2P
@
text
@@


22.1
log
@Automatic bump of revision number for PWS version 3.2N
@
text
@@


21.1
log
@Automatic bump of revision number for PWS version 3.2M
@
text
@@


20.1
log
@Automatic bump of revision number for PWS version 3.2L
@
text
@@


19.1
log
@Automatic bump of revision number for PWS version 3.2K
@
text
@@


18.1
log
@Automatic bump of revision number for PWS version 3.2J
@
text
@@


17.1
log
@Automatic bump of revision number for PWS version 3.2I+
@
text
@@


16.1
log
@Automatic bump of revision number for PWS version 3.2I
@
text
@@


15.1
log
@Automatic bump of revision number for PWS version 3.2H
@
text
@@


14.1
log
@Automatic bump of revision number for PWS version 3.2G
@
text
@@


13.1
log
@Automatic bump of revision number for PWS version 3.2F
@
text
@@


12.1
log
@Automatic bump of revision number for PWS version 3.2E
@
text
@@


11.1
log
@Automatic bump of revision number for PWS version 3.2D
@
text
@@


10.1
log
@Automatic bump of revision number for PWS version 3.2C
@
text
@@


9.2
log
@Fixes for FSDat00599
@
text
@@


9.1
log
@Automatic bump of revision number for PWS version 3.2B
@
text
@a83 26
procedure createsysname;
type stringsysp = packed array[1..10] of char;
const sysp      = stringsysp['SYSTEM_P'];
var i,j: shortint;
    c: char;
begin
 { normalize sysname; HFS boot can put nulls in it }
 for i := 1 to 10 do if sysname[i] = #0 then sysname[i] := ' ';
 sysstart := 'INITLIB';
 i := 0;
 repeat i := i + 1; until (i=10) or (sysname[i]<>sysp[i]);
 if i < 10 then
   begin
   setstrlen(sysstart, strmax(sysstart));
   if i < 8 then i := 3 else i := 7;
   j := 4;
   repeat
     i := i + 1;
     c := sysname[i];
     if (c <> ' ') then begin j := j + 1; sysstart[j] := c; end;
   until (i=10) or (c=' ');
   setstrlen(sysstart, j);
   end;
end;

{ trysrmboot applies to SRM or HFS (where bootnode = '') }
d89 1
a89 1
 if (strlen(s2) > 0) or hfsbflg then
d95 1
a95 1
   if (entrypoint = nil) and not hfsbflg then
d105 4
d110 27
d143 1
a143 1
     createsysname;
d145 1
@


8.1
log
@Automatic bump of revision number for PWS version 3.2A
@
text
@@


7.1
log
@Automatic bump of revision number for PWS version 3.2l
@
text
@@


6.1
log
@Automatic bump of revision number for PWS version 3.2k
@
text
@@


5.1
log
@Automatic bump of revision number for PWS version 3.2j
@
text
@@


4.1
log
@Automatic bump of revision number for PWS version 3.2i
@
text
@@


3.1
log
@Automatic bump of revision number for PWS version 3.2h
@
text
@@


2.7
log
@Reorder includes so HFSBOOT can import LOADER.
@
text
@@


2.6
log
@Drop decl of hfsbflg; this now exported from bootdammodule.
$include 'HFSBOOT' so BOOTDAM can import it.  There is no longer
a separate HFS version for SYSTEM_P.
@
text
@d9 1
a11 1
$include 'LOADER' $;
d115 1
a115 1
 if (strlen(s2) > 0) or (hfsbflg <> 0) then
d121 1
a121 1
   if (entrypoint = nil) and (hfsbflg = 0) then
@


2.5
log
@Declare hfsbflg for use by trysrmboot.
@
text
@d9 1
a18 1
var hfsbflg['HFSBFLG']: shortint;
d109 1
a109 1
{ trysrmboot applies to SRM or HFS (where nodestr = '') }
@


2.4
log
@Change trysrmboot to work for HFS (no node #) also.
@
text
@d18 1
@


2.3
log
@Remove previous checks for nulls in sysname.  Instead, normalize sysname
by changing all nulls to blanks initially, so other code
remains unchanged.
@
text
@d108 1
d114 1
a114 1
 if strlen(s2) > 0 then
d120 1
a120 1
   if entrypoint = nil then
@


2.2
log
@Changes for HFS: sysname can end in nulls (#0) as well as blanks.
@
text
@d89 2
d102 2
a103 2
     if (c <> ' ') and (c <> #0) then begin j := j + 1; sysstart[j] := c; end;
   until (i=10) or (c=' ') or (c=#0);
@


2.1
log
@Auto bump rev number to 2.1 for sys 3.2e.
@
text
@d100 2
a101 2
     if c <> ' ' then begin j := j + 1; sysstart[j] := c; end;
   until (i=10) or (c=' ');
@


1.3
log
@Pws2unix automatic delta on Tue Jul 15 16:35:26 MEZ 1986
@
text
@@


1.2
log
@Set h_unitable to nil in unitioinit.
@
text
@d46 1
a46 1
    end {with}
@


1.1
log
@Initial revision
@
text
@d47 1
@
