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

⟦b0a16374f⟧ TextFile

    Length: 2440 (0x988)
    Types: TextFile
    Names: »DEBUG.I«

Derivation

└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP007_V0501.D!CSS7000.D!DEBUG.I« 

TextFile


%LIST     %LIST     %LIST
"-----------------------------------------------------------------------
"
"  MODULE NAME:           TPE Debug Support
"  MODULE ID NMB:         CSS/7000
"  MODULE VERSION:        03
"  MODULE RELEASE:        01
"  RELEASE DATE:          850910
"
"-----------------------------------------------------------------------
%NOLIST   %NOLIST   %NOLIST

«ff»
"----------------------------------------------------------------------
" THIS SUBMODULE CONTAINS SOME PROCEDURES USEFUL IN THE DEBUGGING PHASE
"----------------------------------------------------------------------


TYPE
  DUMP_TYPE =
    ( DATA_DUMP,
      PROGRAM_DUMP );


IMPORT PROCEDURE DUMP
"==================="
   (R0;  " C K  KIND (DATA = 0, PROGRAM = 1)
    R1;  " C K  START ADDRESS (RELATIVE)
    R2;  " C K  LENGTH
    R6); " C K  LINK
"----------------------------------------------------------------------
" THIS PROCEDURE DUMPS MEMORY (DATA OR PROGRAM) FROM THE CURRENT VIEW
"----------------------------------------------------------------------


IMPORT PROCEDURE OUT_SAVED_REGS
"============================="
   (R3;  " C K  REF TO SAVEREGS ARRAY
    R6); " C K  LINK
"----------------------------------------------------------------------
" REGISTER DUMP PROCEDURE.
" IT IS INTENDED TO BE USED AT ENTRY AND EXIT FROM A PROCEDURE
"----------------------------------------------------------------------


IMPORT PROCEDURE OUT_TRACE
"========================"
   (NAMEREF,     "      ADDRESS OF TEXT CONTAINING NAME
    SAVEREGSREF :"      ADDRESS OF 'SAVEREGS' ARRAY
          INTEGER;
    R6);         " C K  LINK
"----------------------------------------------------------------------
" THIS PROCEDURE IS TO BE USED AT ENTRY AND EXIT FROM PROCEDURES
"----------------------------------------------------------------------


IMPORT PROCEDURE DUMP_SAVED_CONTEXT
"================================="
   (R6); " C K  LINK
"----------------------------------------------------------------------
" This procedure prints the saved CPU context to standard output
"----------------------------------------------------------------------


IMPORT PROCEDURE INIT_DEBUG_SUPPORT
"================================="
   (R6); " C D  LINK
"----------------------------------------------------------------------
" THIS PROCEDURE INITIALIZES THE DEBUG SUPPORT MODULE
"----------------------------------------------------------------------

" end of DEBUG.I «a5»