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

⟦be1ea78f3⟧ TextFile

    Length: 14266 (0x37ba)
    Types: TextFile
    Names: »DATA_LOGGER.P«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »GENS.D!DATA_LOGGER.D!DATA_LOGGER.P« 

TextFile


======== COMPILATION STARTED AT:  81:07:15 16:26



======== DATA_LOGGER.S

00.00001 
00.00002 
00.00003 %LIST     %LIST     %LIST
00.00004 "-----------------------------------------------------------------------
00.00005 "
00.00006 "  MODULE NAME:           DATA_LOGGER
00.00007 "  MODULE ID NBR:         X
00.00008 "  MODULE VERSION:        0
00.00009 "  MODULE RELEASE:        0
00.00010 "  MODULE TYPE:           UTILITY LINK (SUB)MODULE
00.00011 "  SPECIFICATIONS:        X
00.00012 "  AUTHOR/DATE:           LKN/810520
00.00013 "  DELIVERABLE:           NO
00.00014 "  SOURCE LANGUAGE:       SWELL
00.00015 "  COMPILE COMPUTER:      CR80
00.00016 "  TARGET COMPUTER:       CR80
00.00017 "  OPERATING SYSTEM:      AMOS
00.00018 "
00.00019 "-----------------------------------------------------------------------
00.00020 "
00.00021 "  CHANGE RECORD
00.00022 "
00.00023 "  VERSION    RELEASE    AUTHOR/DATE   DESCRIPTION OF CHANGE
00.00024 "  -------    -------    -----------   ---------------------
00.00025 "
00.00026 "-----------------------------------------------------------------------
00.00027 %NOLIST   %NOLIST   %NOLIST
00.00028 
00.00029 submodule data_logger;
00.00030 
00.00031 %NOLIST     %LIST
01.00003 "-----------------------------------------------------------------------
01.00004 "
01.00005 "  MODULE NAME:           GENERAL
01.00006 "  MODULE ID NBR:         CSS/9001
01.00007 "  MODULE VERSION:        00
01.00008 "  MODULE RELEASE:        10
01.00009 "  MODULE TYPE:           PREFIX
01.00010 "  SPECIFICATIONS:        X
01.00011 "  AUTHOR/DATE:           FP/810313
01.00012 "  DELIVERABLE:           NO
01.00013 "  SOURCE LANGUAGE:       SWELL
01.00014 "  COMPILE COMPUTER:      CR80
01.00015 "  TARGET COMPUTER:       CR80
01.00016 "  OPERATING SYSTEM:      DAMOS
01.00017 "
01.00018 "-----------------------------------------------------------------------
01.00019 "
01.00020 "  CHANGE RECORD
01.00021 "
01.00022 "  VERSION    RELEASE    AUTHOR/DATE   DESCRIPTION OF CHANGE
01.00023 "  -------    -------    -----------   ---------------------
01.00024 "
01.00025 "-----------------------------------------------------------------------
01.00026 %NOLIST   %NOLIST     %LIST
02.00003 "-----------------------------------------------------------------------
02.00004 "
02.00005 "  MODULE NAME:           HARDWARE
02.00006 "  MODULE ID NBR:         CSS/9006
02.00007 "  MODULE VERSION:        00
02.00008 "  MODULE RELEASE:        03
02.00009 "  MODULE TYPE:           PREFIX
02.00010 "  SPECIFICATIONS:        X
02.00011 "  AUTHOR/DATE:           FP/810414
02.00012 "  DELIVERABLE:           NO
02.00013 "  SOURCE LANGUAGE:       SWELL
02.00014 "  COMPILE COMPUTER:      CR80
02.00015 "  TARGET COMPUTER:       CR80D
02.00016 "  OPERATING SYSTEM:      DAMOS
02.00017 "
02.00018 "-----------------------------------------------------------------------
02.00019 "
02.00020 "  CHANGE RECORD
02.00021 "
02.00022 "  VERSION    RELEASE    AUTHOR/DATE   DESCRIPTION OF CHANGE
02.00023 "  -------    -------    -----------   ---------------------
02.00024 "    00         03       PHF/810625    interrupt_causes added
02.00025 "    00         04       PHF/810626    phys_page_addr added
02.00026 "
02.00027 "-----------------------------------------------------------------------
02.00028 %NOLIST   %NOLIST     %LIST
03.00003 "-----------------------------------------------------------------------
03.00004 "
03.00005 "  MODULE NAME:           DAMOS GENERAL
03.00006 "  MODULE ID NBR:         CSS/9002
03.00007 "  MODULE VERSION:        00
03.00008 "  MODULE RELEASE:        22
03.00009 "  MODULE TYPE:           PREFIX
03.00010 "  SPECIFICATIONS:        X
03.00011 "  AUTHOR/DATE:           FP/810316
03.00012 "  DELIVERABLE:           NO
03.00013 "  SOURCE LANGUAGE:       SWELL
03.00014 "  COMPILE COMPUTER:      CR80
03.00015 "  TARGET COMPUTER:       CR80
03.00016 "  OPERATING SYSTEM:      DAMOS
03.00017 "
03.00018 "-----------------------------------------------------------------------
03.00019 "
03.00020 "  CHANGE RECORD
03.00021 "
03.00022 "  VERSION    RELEASE    AUTHOR/DATE   DESCRIPTION OF CHANGE
03.00023 "  -------    -------    -----------   ---------------------
03.00024 "       00         12    UKP/810508    device_kind => device_type
03.00025 "
03.00026 "-----------------------------------------------------------------------
03.00027 %NOLIST   %NOLIST     %LIST
04.00003 "-----------------------------------------------------------------------
04.00004 "
04.00005 "  MODULE NAME:           KERNEL_GENERAL.S
04.00006 "  MODULE ID NBR:         CSS/9003
04.00007 "  MODULE VERSION:        00
04.00008 "  MODULE RELEASE:        07
04.00009 "  MODULE TYPE:           PREFIX
04.00010 "  SPECIFICATIONS:        X
04.00011 "  AUTHOR/DATE:           FP/810606
04.00012 "  DELIVERABLE:           NO
04.00013 "  SOURCE LANGUAGE:       SWELL
04.00014 "  COMPILE COMPUTER:      CR80
04.00015 "  TARGET COMPUTER:       CR80
04.00016 "  OPERATING SYSTEM:      DAMOS
04.00017 "
04.00018 "-----------------------------------------------------------------------
04.00019 "
04.00020 "  CHANGE RECORD
04.00021 "
04.00022 "  VERSION    RELEASE    AUTHOR/DATE   DESCRIPTION OF CHANGE
04.00023 "  -------    -------    -----------   ---------------------
04.00024 "
04.00025 "-----------------------------------------------------------------------
04.00026 %NOLIST   %NOLIST     %LIST
05.00003 "-----------------------------------------------------------------------
05.00004 "
05.00005 "  MODULE NAME:           PPP (PROCESS PARAMTER PAGE)
05.00006 "  MODULE ID NBR:         CSS/9005
05.00007 "  MODULE VERSION:        00
05.00008 "  MODULE RELEASE:        11
05.00009 "  MODULE TYPE:           PREFIX
05.00010 "  SPECIFICATIONS:        X
05.00011 "  AUTHOR/DATE:           FP/810313
05.00012 "  DELIVERABLE:           NO
05.00013 "  SOURCE LANGUAGE:       SWELL
05.00014 "  COMPILE COMPUTER:      CR80
05.00015 "  TARGET COMPUTER:       CR80D
05.00016 "  OPERATING SYSTEM:      DAMOS
05.00017 "
05.00018 "-----------------------------------------------------------------------
05.00019 "
05.00020 "  CHANGE RECORD
05.00021 "
05.00022 "  VERSION    RELEASE    AUTHOR/DATE   DESCRIPTION OF CHANGE
05.00023 "  -------    -------    -----------   ---------------------
05.00024 "
05.00025 "-----------------------------------------------------------------------
05.00026 %NOLIST   %NOLIST     %LIST
06.00003 "-----------------------------------------------------------------------
06.00004 "
06.00005 "  MODULE NAME:           TEST LAYOUT OF PPP
06.00006 "  MODULE ID NMB:         CSS/XXXX
06.00007 "  MODULE VERSION:        00
06.00008 "  810511/0816
06.00009 "
06.00010 "-----------------------------------------------------------------------
06.00011 %NOLIST   %NOLIST     %LIST
11.00003 "-----------------------------------------------------------------------
11.00004 "
11.00005 "  MODULE NAME:           DEBUGGER
11.00006 "  MODULE ID NMB:         CSS/208
11.00007 "  MODULE VERSION:        3
11.00008 "
11.00009 "-----------------------------------------------------------------------
11.00010 %NOLIST   %NOLIST
00.00051 
00.00052 const
00.00053   dr = 128;
00.00054   dx = 129;
00.00055   dd = 130;
00.00056   dt = 131;
00.00057 
00.00058   t_outtextb =    'OUTTEXTB(:0:)';
00.00059   t_outhexa =     'OUTHEXA(:0:)';
00.00060   t_flush =       'FLUSH(:0:)';
00.00061 
00.00062 var
00.00063   logfile, out: integer;   "ptr to output file type
00.00064   saveregs: array [0..7] of integer;
00.00065 
00.00066 
00.00067 
00.00068 procedure x_outb
00.00069 "=============="
00.00070    (r3;  " C K  char to print
00.00071     r6); " C D  link
00.00072 begin
00.00073   r6 => saveregs[6];
00.00074   r4 => saveregs[4];
00.00075   logfile => r4;
00.00076   outb(r4, r3, r6);
00.00077   if out => r4 <> nil then outb(r4, r3, r6);
00.00078   saveregs[4] => r4;
00.00079   exit(saveregs[6]);
00.00080 end;
00.00081 
00.00082 
00.00083 
00.00084 procedure x_outhexa
00.00085 "================="
00.00086    (r2;  " C K  value to print
00.00087     r3;  " C K  preceeding character
00.00088     r6); " C K  link
00.00089 begin
00.00090   r7 => saveregs[7];
00.00091   stc(6, address(saveregs[7])=>r7);
00.00092   logfile => r4;
00.00093   r4@filetype.s => r4;
00.00094   switch mon(stream, outhexa, r4, r2, r3, r7): fail_pass to
00.00095     fail: fileerror(logfile=>r4, address(t_outhexa)=>r5, r7, r6);
00.00096   end;
00.00097   if out => r4 <> nil then
00.00098   begin
00.00099     r4@filetype.s => r4;
00.00100     switch mon(stream, outhexa, r4, r2, r3, r7): fail_pass to
00.00101       fail: fileerror(out=>r4, address(t_outhexa)=>r5, r7, r6);
00.00102     end;
00.00103   end;
00.00104   uns(7, address(saveregs)=>r7);
00.00105   exit(r6);
00.00106 end;
00.00107 
00.00108 
00.00109 
00.00110 procedure x_outtextb
00.00111 "=================="
00.00112    (r0;  " C K  ptr to text
00.00113     r6); " C K  link
00.00114 begin
00.00115   r7 => saveregs[7];
00.00116   stc(6, address(saveregs[7])=>r7);
00.00117   logfile => r4;
00.00118   r4@filetype.s => r4;
00.00119   switch mon(stream, outtextb, r4, r0=>r6, r7): fail_pass to
00.00120     fail: fileerror(logfile=>r4, address(t_outtextb)=>r5, r7, r6);
00.00121   end;
00.00122   if out => r4 <> nil then
00.00123   begin
00.00124     r4@filetype.s => r4;
00.00125     switch mon(stream, outtextb, r4, r0=>r6, r7): fail_pass to
00.00126       fail: fileerror(out=>r4, address(t_outtextb)=>r5, r7, r6);
00.00127     end;
00.00128   end;
00.00129   uns(7, address(saveregs)=>r7);
00.00130   exit(r6);
00.00131 end;
00.00132 
00.00133 
00.00134 
00.00135 procedure x_flush
00.00136 "==============="
00.00137    (r6); " C K  link
00.00138 begin
00.00139   r6 => saveregs[6];
00.00140   r4 => saveregs[4];
00.00141   if out => r4 <> nil then
00.00142   begin
00.00143     r4@filetype.s => r4;
00.00144     switch mon(stream, flush, r4, r7): fail_pass to
00.00145       fail: fileerror(out=>r4, address(t_flush)=>r5, r7, r6);
00.00146     end;
00.00147   end;
00.00148   saveregs[4] => r4;
00.00149   exit(saveregs[6]);
00.00150 end;
00.00151 
00.00152 
00.00153 procedure print_it
00.00154 "================"
00.00155    (r0;  " C -  address of text
00.00156     r1;  " C -  address of first word
00.00157     r2;  " C -  labelling address
00.00158     r3;  " C -  word count
00.00159     r4;  " - D
00.00160     r5;  " - D
00.00161     r7;  " - D
00.00162     r6); " C -  link
00.00163 var
00.00164   link, startposition, count: integer;
00.00165 begin
00.00166   r6 => link;
00.00167   r3 => count;
00.00168   x_outb(10=>r3, r6);
00.00169   x_outtextb(r0, r6);
00.00170   x_outb(10=>r3, r6);
00.00171   10=>r5;
00.00172   while r5-1 <> -1 do x_outb(' '=>r3, r6);
00.00173   x_outhexa(r2, ' '=>r3, r6);
00.00174   x_outb(':'=>r3, r6);
00.00175   0 => r0;
00.00176   while r0 < count => r3 do
00.00177   begin
00.00178     if r0 <> 0 logand r0=>r2 extract 3 = 0 then
00.00179     begin
00.00180       x_outb(10=>r3, r6);
00.00181       10=>r5;
00.00182       while r5-1 <> -1 do x_outb(' '=>r3, r6);
00.00183       x_outhexa(r1=>r2, ' '=>r3, r6);
00.00184       x_outb(':'=>r3, r6);
00.00185     end;
00.00186     x_outhexa(r1@integer=>r2, ' '=>r3, r6);
00.00187     incd(r0, r1);
00.00188   end;
00.00189   x_outb(10=>r3, r6);
00.00190   x_flush(r6);
00.00191   exit(link);
00.00192 end;  "print_it"
00.00193 
00.00194 
00.00195 procedure dump_r
00.00196 "=============="
00.00197    (textaddr: integer;
00.00198     r7); " C K  link
00.00199 begin
00.00200   r7@dump_r.textaddr => r0;
00.00201   ppp_addr@ppp.ppb.context_admin.cur_ptr => r1;
00.00202   8 => r3;
00.00203   print_it(r0, r1, 0=>r2, r3, "*" r4, r5, r7, r6);
00.00204   trp(0);
00.00205   rtm(0, size(dump_r));
00.00206 end;  "dump_r"
00.00207 
00.00208 
00.00209 procedure dump_x
00.00210 "=============="
00.00211    (textaddr: integer;
00.00212     regno: integer;
00.00213     count: integer;
00.00214     r7); " C K  link
00.00215 begin
00.00216   r7@dump_x.textaddr=>r0;
00.00217   ppp_addr@ppp.ppb.context_admin.cur_ptr => r1;
00.00218   r7@dump_x.regno => r3;
00.00219   (r1+r3)@integer => r1;
00.00220   r1 => r2;
00.00221   r7@dump_x.count => r3;
00.00222   print_it(r0, r1, r2, r3, "*" r4, r5, r7, r6);
00.00223   trp(0);
00.00224   rtm(0, size(dump_x));
00.00225 end;  "dump_x"
00.00226 
00.00227 
00.00228 procedure dump_d
00.00229 "=============="
00.00230    (textaddr: integer;
00.00231     dataaddr: integer;
00.00232     count: integer;
00.00233     r7); " C K  link
00.00234 begin
00.00235   r7@dump_d.textaddr => r0;
00.00236   r7@dump_d.dataaddr => r1;
00.00237   r1 => r2;
00.00238   r7@dump_d.count => r3;
00.00239   print_it(r0, r1, r2, r3, "*" r4, r5, r7, r6);
00.00240   trp(0);
00.00241   rtm(0, size(dump_d));
00.00242 end;  "dump_d"
00.00243 
00.00244 
00.00245 procedure dump_t
00.00246 "=============="
00.00247    (textaddr: integer;
00.00248     r7); " C K  link
00.00249 begin
00.00250   x_outb(10=>r3, r6);
00.00251   r7@dump_t.textaddr => r0;
00.00252   x_outtextb(r0, r6);
00.00253   x_outb(10=>r3, r6);
00.00254   trp(0);
00.00255   rtm(0, size(dump_t));
00.00256 end;  "dump_t"
00.00257 
00.00258 
00.00259 export procedure init_data_logger
00.00260 "==============================="
00.00261    (r4;  " C K  ptr to output filetype
00.00262     r6); " C K  link
00.00263 var
00.00264   saveregs: array [0..7] of integer;
00.00265 begin
00.00266   r7 => saveregs[7];
00.00267   stc(6, address(saveregs[7])=>r7);
00.00268   r4 => logfile;
00.00269   address(coutfiletype) => r6;
00.00270   if r6 = r4 then nil => r6;
00.00271   r6 => out;
00.00272   init_mon(location(dump_r)=>r0, 1=>r1, dr=>r4, r6);
00.00273   init_mon(location(dump_x)=>r0, 1=>r1, dx=>r4, r6);
00.00274   init_mon(location(dump_d)=>r0, 1=>r1, dd=>r4, r6);
00.00275   init_mon(location(dump_t)=>r0, 1=>r1, dt=>r4, r6);
00.00276   uns(7, address(saveregs)=>r7);
00.00277   exit(r6);
00.00278 end;  "init_data_logger"
00.00279 
00.00280 begin
00.00281 end;  "hideaway"
00.00282 
00.00283 
00.00284 endmodule

LINES:    2143

     06.00021 MESSAGE: NOTE: test layout of PPP is used !


      CODESIZE  VARSIZE  CONSTSIZE  TEMPSIZE
      --------  -------  ---------  --------
       #0103     #0015     #000C     #0000