⟦18c605eff⟧

TextFile

"--------------------------------------------------------------------
"
"  PROJECT:               AMOS
"
"  MODULE NAME:           CR File System, adaption and initialize module
"  MODULE ID NMB:         CSS/920
"  MODULE VERSION:        0601
"  MODULE TYPE:           MAIN MODULE
"  MODULE FILES:          S
"                         IO.I
"                         CONFIG.S
"                         GENS.D*COMON_IF.I
"  MERGE FILES:           @**PREFIXES.D*MXAMOS.D*SWELL.D*GENERALPARAMS.S
"                         @**PREFIXES.D*MXAMOS.D*SWELL.D*X2GENPARAMS.S
"                         @**PREFIXES.D*MXAMOS.D*SWELL.D*MONITORNAMES.S
"
"  SPECIFICATIONS:        CR80 AMOS, File Management System, SPS,
"                         CSS/920/SPS/0001.
"  AUTHOR/DATE:           GMC/810410
"
"  DELIVERABLE:           YES
"  SOURCE LANGUAGE:       SWELL
"  COMPILE COMPUTER:      CR80
"  TARGET COMPUTER:       CR80
"  OPERATING SYSTEM:      AMOS
"
"--------------------------------------------------------------------
"
"  CHANGE RECORD
"
"  VERSION    AUTHOR/DATE   DESCRIPTION OF CHANGE
"  -------    -----------   ---------------------
"
"    0001     NMJ/800919      Pre-release
"    0101     GMC/801231      First official release.
"    0103     GMC/810223      Check of sectors available introduced.
"    0202     GMC/810401      Minor changes to source text layout.
"    0301     GMC/810706      Minor change to init-dcm parameters.
"    0402     GMC/820210      A new configuration parameter, OC_output,
"                             is introduced, which defines whether or
"                             not INIT should write on the OC.
"    0403     EKH/820501      Process size is fetched from iodata-ref
"                             rather than from bound, for XAMOS
"    0501     GMC/820709      The FMS no longer prints its version number.
"    0601     JAS/830927      The coroutine monitor is accessed via the
"                             coroutine-monitor-interface.
"                             Parameters are given in a record rather
"                             than constant parameters.
"
"--------------------------------------------------------------------
"«ff»


                  MAINMODULE FMS_INIT_0601;
                 "-------------------------"



%XREF  %XREF  %XREF
%SOURCE @**PREFIXES.D*MXAMOS.D*SWELL.D*GENERALPARAMS.S
%SOURCE @**PREFIXES.D*MXAMOS.D*SWELL.D*MONITORNAMES.S
%SOURCE @**PREFIXES.D*MXAMOS.D*SWELL.D*X2GENPARAMS.S
%SOURCE GENS.D*COMON_IF.I

%PRINT
%LIST
%SOURCE GENS.D*INIT_DEFNS.S

import var
  sectors_available : integer;

var
  init_corout     : coroutine_descriptor;
  init_sem        : semaphore;
  init_fms_params : init_fms;


procedure init_sys(r6);  "registers destroyed"

" First the process size of the FMS is checked by calling a procedure in
" all modules giving the accumulated size of the required workspace
" and comparing this to the free workspace.
" Conventions for size_procedure calls
"
"               r5    ptr to a record of type init_fms (kept)
"               r3    updated with the size of the module
"               r6    link
"                     other registers, except r4, may be destroyed
"
" Then all modules in the system are activated by calling their initialize procedures.
" Each module should initialize its own data structures, including coroutines
" and semaphores.
" Workarea may be allocated from the common workarea pool.
" Conventions for initialize procedure calls:
"
"               r5    ptr to a record of type init_fms (kept)
"               r0    top of free workarea pool (kept)
"               r4    call:
"                       first free of workarea when called
"                     return:
"                        first free of workarea;
"                        on return, >> r0 implies workarea is too small
"               r6    link
"                     other registers may be destroyed
"page«ff»
%SOURCE CONFIG.S

%SOURCE IO.I

init
  init_fms_params.nbr_fhs                 = nbr_fhs;
  init_fms_params.nbr_chs                 = nbr_chs;
  init_fms_params.nbr_ths                 = nbr_ths;
  init_fms_params.nbr_local_ports         = nbr_local_ports;
  init_fms_params.dma_port_spec_table_ptr = address (dma_port_spec_table);
  init_fms_params.nbr_dmas                = nbr_dmas;
  init_fms_params.nbr_fd_drvs             = nbr_fd_drvs;
  init_fms_params.fd_name_ptr             = address(fd_names);
  init_fms_params.nbr_cdc_drvs            = nbr_cdc_drvs;
  init_fms_params.cdc_name_ptr            = address(cdc_names);
  init_fms_params.nbr_ucbs                = nbr_ucbs;
  init_fms_params.nbr_dcbs                = nbr_dcbs;
  init_fms_params.nbr_fcbs                = nbr_fcbs;
  init_fms_params.nbr_caps                = nbr_caps;
  init_fms_params.time_update             = time_update;
  init_fms_params.access_time_update      = access_time_update and time_update;
  init_fms_params.nbr_dbcbs               = nbr_dbcbs;
  init_fms_params.cramteststacksize       = cramteststacksize;
  init_fms_params.cram_init_table_ptr     = address(cram_init_table);
  init_fms_params.cache_size              = cache_size;


"Submodule initialisation procedures
"-----------------------------------

import procedure size_ctrl(r5; r3; r6);
import procedure init_ctrl(r5; r0; r4; r6);

import procedure size_dcm (r5; r3; r6);
import procedure init_dcm (r5; r0; r4; r6);

import procedure size_fm  (r5; r3; r6);
import procedure init_fm  (r5; r0; r4; r6);

%WHEN nbr_ths = 0 SKIP
  import procedure init_tqm(nbr_ths : integer;
                            r0; r4; r6);
%COMPILE

%WHEN nbr_chs = 0 SKIP
  import procedure init_cram(cramteststacksize : integer;
                             cram_init_table_ptr : pointer;
                             r0; r4; r6);
%COMPILE



label
  term_small,
  ctrl_small,
  dcm_small,
  fm_small,
  tqm_small,
  cram_small;

%WHEN OC_init = false SKIP
const
  ws_txt = ' workarea size (:0:)';
  es_txt = 'Excessive process space (:0:)';
  ms_txt = ' Missing : (:0:)';
  nl_txt = '(:10:)(:0:)(:0:)';
  is_txt = 'Insufficient space for (:0:)';
%COMPILE

var
  link:integer;

begin "init sys
  r6=> link;

%WHEN OC_init = false SKIP
  init_oc(r1, r6);
  out_text(address('FMS active(:10:)(:0:)')=>r2, r6);
%COMPILE

  address (init_fms_params) => r5;
  0 => r3;
  size_dcm (r5, r3, r6);
%WHEN oc_init = false SKIP
  out_text(address('DCM (:0:)')=>r2, r6);
  out_text(address(ws_txt)=>r2, r6);
  out_hexa(r3=>r2, r6);
  r3 => r4;
%COMPILE
  size_ctrl(r5, r3, r6);
%WHEN oc_init = false SKIP
  r3 => r1 - r4;
  out_text(address('(:10:)CTRL(:0:)')=>r2, r6);
  out_text(address(ws_txt)=>r2, r6);
  out_hexa(r1=>r2, r6);
  r3 => r4;
%COMPILE
  size_fm  (r5, r3, r6);
%WHEN oc_init = false SKIP
  r3 => r1 - r4;
  out_text(address('(:10:)FM  (:0:)')=>r2, r6);
  out_text(address(ws_txt)=>r2, r6);
  out_hexa(r1=>r2, r6);
  out_text(address(nl_txt)=>r2, r6);
%COMPILE

  -size(process_head)=> r6;
  r6@process_head.iodata_ref=> r0;  "XAMOS, uses iodata_ref rather than bound"
  r6@process_head.gen_head.word_size=> r4 + r6;

  r0 => r6 - r4;
  if r6 << r3 then
  begin
    r3 - r6;
%WHEN OC_init = false SKIP
    out_text (address('FMS workarea too small.(:0:)')=>r2, r6);
    out_text (address(ms_txt)=>r2, r6);
    out_hexa (r3=>r2, r6);
    out_text (address(nl_txt)=>r2, r6);
%COMPILE
    terminate_me (#333=>r0, r3=>r1, r6);
%WHEN OC_init = false SKIP
  end
  else
  begin
    r3 - r6;  -r3;
    out_text (address(es_txt)=>r2, r6);
    out_text (address('(before CRAM) (:0:)')=>r2, r6);
    out_hexa (r3=>r2, r6);
    out_text (address('(:10:)(:0:)')=>r2, r6);
%COMPILE
  end;

  r0=> r6;
  while r6-1 >>= r4 do clr(r6@integer); "clear workarea"

  init_dcm (r5, r0, r4, r6);
  if r0 << r4 then goto dcm_small;

  init_ctrl(r5, r0, r4, r6);
  if r0 << r4 then goto ctrl_small;

  init_fm  (r5, r0, r4, r6);
  if r0 << r4 then goto fm_small;

%WHEN nbr_ths = 0 SKIP
  init_tqm(nbr_ths, r0, r4, r6);
  if r0 << r4 then goto tqm_small;
%COMPILE

%WHEN nbr_chs = 0 SKIP
  init_cram(cramteststacksize, address(cram_init_table), r0, r4, r6);
  if r0 << r4 then goto cram_small;
%COMPILE

  if sectors_available => r1 < 0 then
    begin
    -r1;
%WHEN OC_init = false SKIP
    out_text(address('Insufficient cache size.(:0:)')=> r2, r6);
    out_text(address(ms_txt)=>r2, r6);
    out_hexa (r1=>r2, r6);
    out_text (address(nl_txt)=>r2, r6);
%COMPILE
    terminate_me (#332 => r0, r1, r6)
    end;

%WHEN OC_output = false SKIP
  if r4 << r0 then
  begin
    out_text (address(es_txt)=>r2, r6);
    out_text (address('(final)       (:0:)')=>r2, r6);
    out_hexa(r0-r4=>r2, r6);
    out_text(address(nl_txt)=>r2, r6);
  end;
%COMPILE

  exit(link);

dcm_small:
%WHEN OC_init = false SKIP
  address('DCM(:10:)(:0:)') => r3;
%COMPILE
  1 => r1;
  goto term_small;
ctrl_small:
%WHEN OC_init = false SKIP
  address('CTRL(:10:)(:0:)') => r3;
%COMPILE
  2 => r1;
  goto term_small;
fm_small:
%WHEN OC_init = false SKIP
  address('FM(:10:)(:0:)') => r3;
%COMPILE
  3 => r1;
  goto term_small;
tqm_small:
%WHEN OC_init = false SKIP
  address('TQM(:10:)(:0:)') => r3;
%COMPILE
  4 => r1;
  goto term_small;
cram_small:
%WHEN OC_init = false SKIP
  address('CRAM(:10:)(:0:)') => r3;
%COMPILE
  5 => r1;
term_small:
%WHEN OC_init = false SKIP
  out_text(address(is_txt)=>r2, r6);
  out_text(r3=>r2, r6);
%COMPILE
  terminate_me (#331=>r0, r1, r6);

end "init_sys";



begin "main program"
  cm_init (address(init_corout)=>r0, r7, r6);
  init_sys(r6);
  sem_init (address(init_sem)=>r5, r7, r6);
  cm_wait (r5, r7, r6);  "wait forever"
end;


ENDMODULE
DataMuseum.dk

CR80 Hard and Floppy Disks

⟦18c605eff⟧ TextFile

Derivation

TextFile
