DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦ac938590a⟧ TextFile

    Length: 23318 (0x5b16)
    Types: TextFile
    Names: »INIT.P«

Derivation

└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!QUATTRO_MUX.D!INIT.P« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!QUATTRO_MUX.D!INIT.P« 
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!FMS.D!QUATTRO_MUX.D!INIT.P« 
    └─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FMS.D!QUATTRO_MUX.D!INIT.P« 

TextFile

Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page:  1     Source: INIT.S



======== INIT.S

00.00001 "--------------------------------------------------------------------
00.00002 "
00.00003 "  PROJECT:               AMOS
00.00004 "
00.00005 "  MODULE NAME:           CR File System, adaption and initialize module
00.00006 "  MODULE ID NMB:         CSS/920
00.00007 "  MODULE VERSION:        0601
00.00008 "  MODULE TYPE:           MAIN MODULE
00.00009 "  MODULE FILES:          S
00.00010 "                         IO.I
00.00011 "                         CONFIG.S
00.00012 "                         GENS.D*COMON_IF.I
00.00013 "  MERGE FILES:           @**PREFIXES.D*MXAMOS.D*SWELL.D*GENERALPARAMS.S
00.00014 "                         @**PREFIXES.D*MXAMOS.D*SWELL.D*X2GENPARAMS.S
00.00015 "                         @**PREFIXES.D*MXAMOS.D*SWELL.D*MONITORNAMES.S
00.00016 "
00.00017 "  SPECIFICATIONS:        CR80 AMOS, File Management System, SPS,
00.00018 "                         CSS/920/SPS/0001.
00.00019 "  AUTHOR/DATE:           GMC/810410
00.00020 "
00.00021 "  DELIVERABLE:           YES
00.00022 "  SOURCE LANGUAGE:       SWELL
00.00023 "  COMPILE COMPUTER:      CR80
00.00024 "  TARGET COMPUTER:       CR80
00.00025 "  OPERATING SYSTEM:      AMOS
00.00026 "
00.00027 "--------------------------------------------------------------------
00.00028 "
00.00029 "  CHANGE RECORD
00.00030 "
00.00031 "  VERSION    AUTHOR/DATE   DESCRIPTION OF CHANGE
00.00032 "  -------    -----------   ---------------------
00.00033 "
00.00034 "    0001     NMJ/800919      Pre-release
00.00035 "    0101     GMC/801231      First official release.
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page:  2     Source: INIT.S

00.00036 "    0103     GMC/810223      Check of sectors available introduced.
00.00037 "    0202     GMC/810401      Minor changes to source text layout.
00.00038 "    0301     GMC/810706      Minor change to init-dcm parameters.
00.00039 "    0402     GMC/820210      A new configuration parameter, OC_output,
00.00040 "                             is introduced, which defines whether or
00.00041 "                             not INIT should write on the OC.
00.00042 "    0403     EKH/820501      Process size is fetched from iodata-ref
00.00043 "                             rather than from bound, for XAMOS
00.00044 "    0501     GMC/820709      The FMS no longer prints its version number.
00.00045 "    0601     JAS/830927      The coroutine monitor is accessed via the
00.00046 "                             coroutine-monitor-interface.
00.00047 "                             Parameters are given in a record rather
00.00048 "                             than constant parameters.
00.00049 "
00.00050 "--------------------------------------------------------------------
00.00051 "
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page:  3     Source: INIT.S

00.00052 
00.00052 
00.00053 
00.00054                   MAINMODULE FMS_INIT_0601;
00.00055                  "-------------------------"
00.00056 
00.00057 
00.00058 
00.00059 %XREF  %XREF  %XREF
00.00060 %SOURCE @**PREFIXES.D*MXAMOS.D*SWELL.D*GENERALPARAMS.S

======== GENERALPARAMS.S


======== INIT.S

00.00061 %SOURCE @**PREFIXES.D*MXAMOS.D*SWELL.D*MONITORNAMES.S

======== MONITORNAMES.S


======== INIT.S

00.00062 %SOURCE @**PREFIXES.D*MXAMOS.D*SWELL.D*X2GENPARAMS.S

======== X2GENPARAMS.S


======== INIT.S

00.00063 %SOURCE GENS.D*COMON_IF.I

======== COMON_IF.I


======== INIT.S

00.00064 
00.00065 %PRINT
00.00066 %LIST
00.00067 %SOURCE GENS.D*INIT_DEFNS.S

======== INIT_DEFNS.S

«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page:  4     Source: INIT_DEFNS.S

05.00001 "Init record definition, used by all configurable modules of the File System"
05.00002 "---------------------------------------------------------------------------"
05.00003 
05.00004                                "JAS / 84 04 11"
05.00005 
05.00006 
05.00007 
05.00008 type
05.00009   port_priority =               "used by ctrl
05.00010    (low_pri,
05.00011     normal_pri,
05.00012     high_pri);
05.00013 
05.00014 type
05.00015   dma_port_spec =               "used by ctrl
05.00016     record
05.00017       name  : pname;
05.00018       ports : array [port_priority] of integer;
05.00019     end;
05.00020 
05.00021 type
05.00022   init_fms =
05.00023     record
05.00024       nbr_fhs,                  "used by fm & dcm
05.00025       nbr_chs,                  "used by cram
05.00026       nbr_ths,                  "used by tqm & dcm
05.00027       nbr_local_ports,          "used by ctrl
05.00028       nbr_dmas,                 "used by ctrl
05.00029       dma_port_spec_table_ptr,  "used by ctrl
05.00030       nbr_fd_drvs,              "used by fm
05.00031       fd_name_ptr,              "used by fm
05.00032       nbr_cdc_drvs,             "used by fm
05.00033       cdc_name_ptr,             "used by fm
05.00034       nbr_ucbs,                 "used by fm
05.00035       nbr_dcbs,                 "used by fm
05.00036       nbr_fcbs,                 "used by fm
05.00037       nbr_caps,                 "used by fm
05.00038       time_update,              "used by fm
05.00039       access_time_update,       "used by fm
05.00040       nbr_dbcbs,                "used by dcm
05.00041       cramteststacksize,        "used by cram
05.00042       cram_init_table_ptr,      "used by cram
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page:  5     Source: INIT_DEFNS.S

05.00043       cache_size,               "used by fm, dcm & ctrl
05.00044       OC_output                 "used by init
05.00045          : integer;
05.00046       port_group_names          "used by ctrl
05.00047          : array [port_priority] of group_name;
05.00048     end;
05.00049 

======== INIT.S

00.00068 
00.00069 import var
00.00070   sectors_available : integer;
00.00071 
00.00072 var
00.00073   init_corout     : coroutine_descriptor;
00.00074   init_sem        : semaphore;
00.00075   init_fms_params : init_fms;
00.00076 
00.00077 
00.00078 procedure init_sys(r6);  "registers destroyed"
00.00079 
00.00080 " First the process size of the FMS is checked by calling a procedure in
00.00081 " all modules giving the accumulated size of the required workspace
00.00082 " and comparing this to the free workspace.
00.00083 " Conventions for size_procedure calls
00.00084 "
00.00085 "               r5    ptr to a record of type init_fms (kept)
00.00086 "               r3    updated with the size of the module
00.00087 "               r6    link
00.00088 "                     other registers, except r4, may be destroyed
00.00089 "
00.00090 " Then all modules in the system are activated by calling their initialize procedures.
00.00091 " Each module should initialize its own data structures, including coroutines
00.00092 " and semaphores.
00.00093 " Workarea may be allocated from the common workarea pool.
00.00094 " Conventions for initialize procedure calls:
00.00095 "
00.00096 "               r5    ptr to a record of type init_fms (kept)
00.00097 "               r0    top of free workarea pool (kept)
00.00098 "               r4    call:
00.00099 "                       first free of workarea when called
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page:  6     Source: INIT.S

00.00100 "                     return:
00.00101 "                        first free of workarea;
00.00102 "                        on return, >> r0 implies workarea is too small
00.00103 "               r6    link
00.00104 "                     other registers may be destroyed
00.00105 "page
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page:  7     Source: INIT.S

00.00106 
00.00106 %SOURCE CONFIG.S

======== CONFIG.S

06.00001 "Configuration parameters"
06.00002 "------------------------"
06.00003 
06.00004 
06.00005 const
06.00006 
06.00007   nbr_fhs = 4;  "number of file handlers, was 3
06.00008   nbr_chs = 0;  "number of CRAM handlers
06.00009   nbr_ths = 0;  "number of transaction handlers
06.00010 
06.00011   nbr_local_ports = 2;
06.00012   nbr_dmas =     3;  "the number of DMA drivers, that the ctrl can
06.00013                      "communicate with;
06.00014                      "the names are specified in the table below.
06.00015 
06.00016   nbr_fd_drvs =  1;  "number of floppy disk drivers that the FMS can use;
06.00017                      "the names are specified in the table below.
06.00018   nbr_cdc_drvs=  1;  "number of CDC disk drivers that the FMS can use;
06.00019                      "the names are specified in the table below.
06.00020 
06.00021   nbr_ucbs    = 40;  "number of user control blocks: represents the
06.00022                      "maximum number of processes that can use the FMS
06.00023                      "at a time
06.00024   nbr_dcbs    =  6;  "number of device control blocks: represents the
06.00025                      "maximum number of devices that may be assigned
06.00026                      "at a time
06.00027   nbr_fcbs    =150;  "number of file control blocks: represents the
06.00028                      "maximum number of files that may be open
06.00029                      "at a time
06.00030   nbr_caps    =225;  "number of capabilities: represents the max nbr of
06.00031                      "connections between files and users that may exist
06.00032                      "at a time (and hence must be >= nbr_fcbs)
06.00033 
06.00034   time_update =true; "should the file manager update the disk_time_stamps?
06.00035   access_time_update =true; "should the acces_time stamp be updated?
06.00036 
06.00037   nbr_dbcbs   =  0;  "number of database control blocks: represents the
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page:  8     Source: CONFIG.S

06.00038                      "maximum number of databases that may be used
06.00039                      "at a time
06.00040 
06.00041   cramteststacksize = 100;
06.00042 
06.00043   cache_size = 64;  "number of sectors in the cache: increasing this
06.00044                     "value should increase efficiency, but it also
06.00045                     "increases the workarea required by the FMS process;
06.00046                     "normally it should be set to a low value to begin
06.00047                     "with (25 for example), then the system should be
06.00048                     "configured to give the FMS as large a process space
06.00049                     "as possible, while still keeping it and the disk
06.00050                     "drivers in the same memory section, then the cache
06.00051                     "size can be increased so that the excessive process
06.00052                     "space is minimal.
06.00053 
06.00054   OC_output   = false;
06.00055   OC_init     = OC_output ior true;
06.00056 
06.00057 var
06.00058   dma_port_spec_table: array [0..size(dma_port_spec)*nbr_dmas] of integer;
06.00059   "Each entry consisting of the dma process name, and the nbr of
06.00060   "ports for low, medium and high priority, respectively.
06.00061 
06.00062 init
06.00063   dma_port_spec_table=
06.00064                        'DMA000', 0 ,14, 0,
06.00065                        'DMA001', 0 ,14, 0,
06.00066                        'DMA002', 0 , 4, 0,
06.00067                        -1;  "table terminator
06.00068 
06.00069 init
06.00070   init_fms_params.port_group_names=
06.00071                        'SLOW',
06.00072                        'FILE',
06.00073                        'FAST';
06.00074 
06.00075 var
06.00076   fd_names : array [0..nbr_fd_drvs*size(pname)] of integer;
06.00077   "Each entry specifies the name of a floppy disk driver process to be used.
06.00078 
06.00079 init
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page:  9     Source: CONFIG.S

06.00080   fd_names=
06.00081             'FDD000',
06.00082             0;      "table terminator
06.00083 
06.00084 var
06.00085   cdc_names : array [0..nbr_cdc_drvs*size(pname)] of integer;
06.00086   "Each entry specifies the name of a cdc disk driver process to be used.
06.00087 
06.00088 init
06.00089   cdc_names=
06.00090             'CDC000',
06.00091             0;      "table terminator
06.00092 
06.00093 var
06.00094   cram_init_table: array [0..nbr_chs+nbr_dbcbs] of integer;
06.00095   "One entry per CRAM handler. An entry consists of the blocksize (in
06.00096   "bytes, 512*n) + no of extra (allocate) buffers, followed by the
06.00097   "identification number of each dbcb that is to be handled by handler.
06.00098 
06.00099 init
06.00100   cram_init_table=
06.00101            -1;  "table terminator
06.00102 
06.00103 

======== INIT.S

00.00107 
00.00108 %SOURCE IO.I

======== IO.I

07.00001 "Process termination procedures"
07.00002 "------------------------------"
07.00003 
07.00004 "JAS / 83 11 29"
07.00005 
07.00006 
07.00007 
07.00008 import procedure terminate_me
07.00009              (r0; " C -   completion code
07.00010               r1; " C -   secondary completion code
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page: 10     Source: IO.I

07.00011               r6);" C -   pseudo link
07.00012 
07.00013 
07.00014 
07.00015 "Procedures to handle Input and Output to the Operators Console"
07.00016 "--------------------------------------------------------------"
07.00017 
07.00018 "JAS / 83 12 15"
07.00019 
07.00020 
07.00021 
07.00022 import procedure init_oc(r1;  "destroyed
07.00023                          r6); "link
07.00024 
07.00025 import procedure out_text(r2;  "address of text to be output
07.00026                           r6  "link");
07.00027 
07.00028 import procedure out_line(r1;  "address of text to be output
07.00029                           r2;  "number of bytes to be output
07.00030                           r6  "link");
07.00031 
07.00032 import procedure out_hexa(r2;  "integer to be output
07.00033                           r6  "link");
07.00034 
07.00035 import procedure out_integer(r2;  "integer to be output
07.00036                              r6  "link");
07.00037 
07.00038 import procedure out_long(r12;  "long integer to be output
07.00039                           r6  "link");
07.00040 

======== INIT.S

00.00109 
00.00110 init
00.00111   init_fms_params.nbr_fhs                 = nbr_fhs;
00.00112   init_fms_params.nbr_chs                 = nbr_chs;
00.00113   init_fms_params.nbr_ths                 = nbr_ths;
00.00114   init_fms_params.nbr_local_ports         = nbr_local_ports;
00.00115   init_fms_params.dma_port_spec_table_ptr = address (dma_port_spec_table);
00.00116   init_fms_params.nbr_dmas                = nbr_dmas;
00.00117   init_fms_params.nbr_fd_drvs             = nbr_fd_drvs;
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page: 11     Source: INIT.S

00.00118   init_fms_params.fd_name_ptr             = address(fd_names);
00.00119   init_fms_params.nbr_cdc_drvs            = nbr_cdc_drvs;
00.00120   init_fms_params.cdc_name_ptr            = address(cdc_names);
00.00121   init_fms_params.nbr_ucbs                = nbr_ucbs;
00.00122   init_fms_params.nbr_dcbs                = nbr_dcbs;
00.00123   init_fms_params.nbr_fcbs                = nbr_fcbs;
00.00124   init_fms_params.nbr_caps                = nbr_caps;
00.00125   init_fms_params.time_update             = time_update;
00.00126   init_fms_params.access_time_update      = access_time_update and time_update;
00.00127   init_fms_params.nbr_dbcbs               = nbr_dbcbs;
00.00128   init_fms_params.cramteststacksize       = cramteststacksize;
00.00129   init_fms_params.cram_init_table_ptr     = address(cram_init_table);
00.00130   init_fms_params.cache_size              = cache_size;
00.00131 
00.00132 
00.00133 "Submodule initialisation procedures
00.00134 "-----------------------------------
00.00135 
00.00136 import procedure size_ctrl(r5; r3; r6);
00.00137 import procedure init_ctrl(r5; r0; r4; r6);
00.00138 
00.00139 import procedure size_dcm (r5; r3; r6);
00.00140 import procedure init_dcm (r5; r0; r4; r6);
00.00141 
00.00142 import procedure size_fm  (r5; r3; r6);
00.00143 import procedure init_fm  (r5; r0; r4; r6);
00.00144 
00.00145 %WHEN nbr_ths = 0 SKIP
00.00146"  import procedure init_tqm(nbr_ths : integer;
00.00147"                            r0; r4; r6);
00.00148"%COMPILE
00.00149 
00.00150 %WHEN nbr_chs = 0 SKIP
00.00151"  import procedure init_cram(cramteststacksize : integer;
00.00152"                             cram_init_table_ptr : pointer;
00.00153"                             r0; r4; r6);
00.00154"%COMPILE
00.00155 
00.00156 
00.00157 
00.00158 label
00.00159   term_small,
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page: 12     Source: INIT.S

00.00160   ctrl_small,
00.00161   dcm_small,
00.00162   fm_small,
00.00163   tqm_small,
00.00164   cram_small;
00.00165 
00.00166 %WHEN OC_init = false SKIP
00.00167 const
00.00168   ws_txt = ' workarea size (:0:)';
00.00169   es_txt = 'Excessive process space (:0:)';
00.00170   ms_txt = ' Missing : (:0:)';
00.00171   nl_txt = '(:10:)(:0:)(:0:)';
00.00172   is_txt = 'Insufficient space for (:0:)';
00.00173 %COMPILE
00.00174 
00.00175 var
00.00176   link:integer;
00.00177 
00.00178 begin "init sys
00.00179   r6=> link;
00.00180 
00.00181 %WHEN OC_init = false SKIP
00.00182   init_oc(r1, r6);
00.00183   out_text(address('FMS active(:10:)(:0:)')=>r2, r6);
00.00184 %COMPILE
00.00185 
00.00186   address (init_fms_params) => r5;
00.00187   0 => r3;
00.00188   size_dcm (r5, r3, r6);
00.00189 %WHEN oc_init = false SKIP
00.00190   out_text(address('DCM (:0:)')=>r2, r6);
00.00191   out_text(address(ws_txt)=>r2, r6);
00.00192   out_hexa(r3=>r2, r6);
00.00193   r3 => r4;
00.00194 %COMPILE
00.00195   size_ctrl(r5, r3, r6);
00.00196 %WHEN oc_init = false SKIP
00.00197   r3 => r1 - r4;
00.00198   out_text(address('(:10:)CTRL(:0:)')=>r2, r6);
00.00199   out_text(address(ws_txt)=>r2, r6);
00.00200   out_hexa(r1=>r2, r6);
00.00201   r3 => r4;
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page: 13     Source: INIT.S

00.00202 %COMPILE
00.00203   size_fm  (r5, r3, r6);
00.00204 %WHEN oc_init = false SKIP
00.00205   r3 => r1 - r4;
00.00206   out_text(address('(:10:)FM  (:0:)')=>r2, r6);
00.00207   out_text(address(ws_txt)=>r2, r6);
00.00208   out_hexa(r1=>r2, r6);
00.00209   out_text(address(nl_txt)=>r2, r6);
00.00210 %COMPILE
00.00211 
00.00212   -size(process_head)=> r6;
00.00213   r6@process_head.iodata_ref=> r0;  "XAMOS, uses iodata_ref rather than bound"
00.00214   r6@process_head.gen_head.word_size=> r4 + r6;
00.00215 
00.00216   r0 => r6 - r4;
00.00217   if r6 << r3 then
00.00218   begin
00.00219     r3 - r6;
00.00220 %WHEN OC_init = false SKIP
00.00221     out_text (address('FMS workarea too small.(:0:)')=>r2, r6);
00.00222     out_text (address(ms_txt)=>r2, r6);
00.00223     out_hexa (r3=>r2, r6);
00.00224     out_text (address(nl_txt)=>r2, r6);
00.00225 %COMPILE
00.00226     terminate_me (#333=>r0, r3=>r1, r6);
00.00227 %WHEN OC_init = false SKIP
00.00228   end
00.00229   else
00.00230   begin
00.00231     r3 - r6;  -r3;
00.00232     out_text (address(es_txt)=>r2, r6);
00.00233     out_text (address('(before CRAM) (:0:)')=>r2, r6);
00.00234     out_hexa (r3=>r2, r6);
00.00235     out_text (address('(:10:)(:0:)')=>r2, r6);
00.00236 %COMPILE
00.00237   end;
00.00238 
00.00239   r0=> r6;
00.00240   while r6-1 >>= r4 do clr(r6@integer); "clear workarea"
00.00241 
00.00242   init_dcm (r5, r0, r4, r6);
00.00243   if r0 << r4 then goto dcm_small;
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page: 14     Source: INIT.S

00.00244 
00.00245   init_ctrl(r5, r0, r4, r6);
00.00246   if r0 << r4 then goto ctrl_small;
00.00247 
00.00248   init_fm  (r5, r0, r4, r6);
00.00249   if r0 << r4 then goto fm_small;
00.00250 
00.00251 %WHEN nbr_ths = 0 SKIP
00.00252"  init_tqm(nbr_ths, r0, r4, r6);
00.00253"  if r0 << r4 then goto tqm_small;
00.00254"%COMPILE
00.00255 
00.00256 %WHEN nbr_chs = 0 SKIP
00.00257"  init_cram(cramteststacksize, address(cram_init_table), r0, r4, r6);
00.00258"  if r0 << r4 then goto cram_small;
00.00259"%COMPILE
00.00260 
00.00261   if sectors_available => r1 < 0 then
00.00262     begin
00.00263     -r1;
00.00264 %WHEN OC_init = false SKIP
00.00265     out_text(address('Insufficient cache size.(:0:)')=> r2, r6);
00.00266     out_text(address(ms_txt)=>r2, r6);
00.00267     out_hexa (r1=>r2, r6);
00.00268     out_text (address(nl_txt)=>r2, r6);
00.00269 %COMPILE
00.00270     terminate_me (#332 => r0, r1, r6)
00.00271     end;
00.00272 
00.00273 %WHEN OC_output = false SKIP
00.00274"  if r4 << r0 then
00.00275"  begin
00.00276"    out_text (address(es_txt)=>r2, r6);
00.00277"    out_text (address('(final)       (:0:)')=>r2, r6);
00.00278"    out_hexa(r0-r4=>r2, r6);
00.00279"    out_text(address(nl_txt)=>r2, r6);
00.00280"  end;
00.00281"%COMPILE
00.00282 
00.00283   exit(link);
00.00284 
00.00285 dcm_small:
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page: 15     Source: INIT.S

00.00286 %WHEN OC_init = false SKIP
00.00287   address('DCM(:10:)(:0:)') => r3;
00.00288 %COMPILE
00.00289   1 => r1;
00.00290   goto term_small;
00.00291 ctrl_small:
00.00292 %WHEN OC_init = false SKIP
00.00293   address('CTRL(:10:)(:0:)') => r3;
00.00294 %COMPILE
00.00295   2 => r1;
00.00296   goto term_small;
00.00297 fm_small:
00.00298 %WHEN OC_init = false SKIP
00.00299   address('FM(:10:)(:0:)') => r3;
00.00300 %COMPILE
00.00301   3 => r1;
00.00302   goto term_small;
00.00303 tqm_small:
00.00304 %WHEN OC_init = false SKIP
00.00305   address('TQM(:10:)(:0:)') => r3;
00.00306 %COMPILE
00.00307   4 => r1;
00.00308   goto term_small;
00.00309 cram_small:
00.00310 %WHEN OC_init = false SKIP
00.00311   address('CRAM(:10:)(:0:)') => r3;
00.00312 %COMPILE
00.00313   5 => r1;
00.00314 term_small:
00.00315 %WHEN OC_init = false SKIP
00.00316   out_text(address(is_txt)=>r2, r6);
00.00317   out_text(r3=>r2, r6);
00.00318 %COMPILE
00.00319   terminate_me (#331=>r0, r1, r6);
00.00320 
00.00321 end "init_sys";
00.00322 
00.00323 
00.00324 
00.00325 begin "main program"
00.00326   cm_init (address(init_corout)=>r0, r7, r6);
00.00327   init_sys(r6);
«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page: 16     Source: INIT.S

00.00328   sem_init (address(init_sem)=>r5, r7, r6);
00.00329   cm_wait (r5, r7, r6);  "wait forever"
00.00330 end;
00.00331 
00.00332 
00.00333 ENDMODULE«ff»Swell Compiler Version  0406         6.Jun.1985  11:41:28      Page: 17      Messages


LINES:    1226


      CODESIZE  VARSIZE  CONSTSIZE  TEMPSIZE
      --------  -------  ---------  --------
       #00BA     #0044     #0068     #0000


SWELL VARIABLES:


===========BLOCK: 00.00078 INIT_SYS
 0061 0000 CDC_NAMES
 0065 0000 CRAM_INIT_TABLE
 004A 0000 DMA_PORT_SPEC_TABLE
 005D 0000 FD_NAMES
 0066 0000 LINK

===========BLOCK: 00.00054 FMS_INIT_0601
 0023 0000 INIT_COROUT
 002F 0000 INIT_FMS_PARAMS
 002C 0000 INIT_SEM
 0000 0004 SECTORS_AVAILABLE «a5»