|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 14266 (0x37ba)
Types: TextFile
Names: »DATA_LOGGER.P«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »GENS.D!DATA_LOGGER.D!DATA_LOGGER.P«
======== 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