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

⟦b3999b39b⟧ TextFile

    Length: 1656 (0x678)
    Types: TextFile
    Names: »DEBUG.I«

Derivation

└─⟦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« 

TextFile


%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»