|
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: 1656 (0x678)
Types: TextFile
Names: »DEBUG.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!DEBUG.D!V0304.D!SWELL.D!DEBUG.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!DEBUG.D!V03CT.D!SWELL.D!DEBUG.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!DEBUG.D!V0304.D!SWELL.D!DEBUG.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!DEBUG.D!V03CT.D!SWELL.D!DEBUG.I«
%LIST %LIST %LIST
"-----------------------------------------------------------------------
"
" MODULE NAME: DEBUGGER
" MODULE ID NMB: CSS/208
" MODULE VERSION: 3
"
"-----------------------------------------------------------------------
%NOLIST %NOLIST %NOLIST
type
error_ok_exit = ( err_ex, ok_ex );
import procedure init_MON
"======================="
( r0; " C K location of MON program
r1; " C D level (4 lsb's kept)
r4; " C K MON number
r6) " C K link
:error_ok_exit;
" This procedure introduces a new DAMOS monitor procedure
" to the debugger.
" The error exit is chosen in case of a bad MON number or
" if the monitor entry is already initialzed.
" NOTE: this procedure must be called before initialize_debugger.
import procedure initialize_emulator
"=================================="
( r0; " C D EXR register
r6) " C K link
:error_ok_exit;
" This procedure initializes the EXR register
" to the specified values.
" It is further checked that the cur_ptr field of the context
" stack control block is within that part of the data space
" which may be updated by the user.
" The content of the context stack control block must be
" initialized directly by the user.
import procedure init_debugger
"============================"
(r6); "C D link
"This procedure initializes the debugger.
import var dumpfiletype : filetype;
"this is the debug log file. Filetype is defined in UTH.I
import var ins_count : long;
"this variable contains the number of instructions executed by the
"problem modules
"page«ff»