|
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: 1922 (0x782)
Types: TextFile
Names: »DATALOGGER.I«, »DATA_LOGGER.I«
└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!DATALOGGER.D!V0101.D!SWELL.D!DATALOGGER.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!DATALOGGER.D!V01CT.D!SWELL.D!DATALOGGER.I«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »GENS.D!DATA_LOGGER.D!DATA_LOGGER.I«
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!DATALOGGER.D!V0101.D!SWELL.D!DATALOGGER.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!DATALOGGER.D!V01CT.D!SWELL.D!DATALOGGER.I«
%LIST %LIST %LIST
"-----------------------------------------------------------------------
"
" MODULE NAME: DATA_LOGGER
" MODULE ID NMB: X
" MODULE VERSION: 0
" 810520/1040
"
"-----------------------------------------------------------------------
%NOLIST %NOLIST %NOLIST
const
dr = 128;
dx = 129;
dd = 130;
dt = 131;
import procedure init_data_logger
"==============================="
(r4; " C K ptr to output filetype
r6); " C K link
" This module offers three monitor procedures for logging data on
" a log file.
" None of the procedures change any register contents, and as they are
" called by using the CR80D version of the MON instruction all registers
" are left unaffected in the calling module.
"
" This module requires both SWELL DEBUGGER and UTILITYHELP.
"
"
" The monitor procedures are called like this:
"
" - MON (DR, <PTR_TO_STRING_TERMINATED_WITH_NULL> );
"
" e.g. mon(dr, address('AT ENTRY TO PROC_ZZZ(:0:)'));
"
"
" - MON (DX, <PTR_TO_STRING_TERMINATED_WITH_NULL>,
" <INDEX_REGISTER_NO>,
" <NO_OF_WORDS_TO_LOG> );
"
" e.g. mon(dx, address('MY_RECORD(:0:)'), 4, size(my_record));
"
"
" - MON (DD, <PTR_TO_STRING_TERMINATED_WITH_NULL>,
" <PTR_TO_VARIABLE_OR_CONSTANT>,
" <NO_OF_WORDS_TO_DUMP> );
"
" e.g. mon(dd, address('PPP(:0:)'), ppp_addr, size(ppp));
"
"
" - MON (DT, <PTR_TO_STRING_TERMINATED_WITH_NULL> );
"
" e.g. mon(dt, address('*** NEW TEST SEQUENCE ***(:0:)'));
"
"
"
" Before use, the DATA_LOGGER should be initialized by calling
" INIT_DATA_LOGGER.
" At initialization the caller must specify the log file by pointing
" at a FILETYPE record, describing an open file with a stream connected
" to it.
"
" e.g. init_data_logger(address(dumpfiletype)=>r4, r6);
"
" (using the LOG file as opened and exported by the DEBUGGER).
"
" end of data_logger.i«ff»