Table of Contents

ITRACE

Table Of Contents

Source Code

ITRACE.txt 
  1. *DECK ITRACE
  2.           IDENT  ITRACE 
  3.           EXT    XTRACE 
  4. *IF DEF,IMS 
  5. *#
  6. *1DC  ITRACE
  7. * 
  8. *     1. PROC NAME           AUTHOR              DATE 
  9. *        ITRACE              P.C.TAM             78/09/11 
  10. * 
  11. *     2. FUNCTIONAL DESCRIPTION.
  12. *        INITIALIZE TRACE BUFFER BPIPBUF
  13. * 
  14. *     3. METHOD USED. 
  15. *        CREATE HEADER ENTRY FOR NIP TRACE FILE IN CIO BUFFER.
  16. * 
  17. *     4. ENTRY PARAMETER. 
  18. *        (A1)                ADDRESS OF THE ADDRESS OF FET
  19. * 
  20. *     5. EXIT PARAMETER.
  21. *        NONE.
  22. * 
  23. *     6. COMMON DECKS CALLED. 
  24. *        CYBERDEFS INPARU MACDEF BPIPBUF
  25. * 
  26. *     7. ROUTINES CALLED. 
  27. *        CLOCK               GET CLOCK TIME MACRO.
  28. *        DATE                GET DATE MACRO.
  29. *        RTIME               GET REAL TIME MACRO. 
  30. *        XTRACE              TRACE CALLER 
  31. * 
  32. *     8. DAYFILE MESSAGES.
  33. *        NONE.
  34. * 
  35. *        W A R N I N G - THIS ROUTINE IS LOADED TOGETHER WITH 
  36. *                        INIP, ISCP, ISUPCB, AND IBUFFS.  THE SUM OF
  37. *                        THEIR SIZES CANNOT EXCEED THE SIZE OF THE
  38. *CALL OSIZE 
  39. * 
  40. * 
  41. *#
  42. *ENDIF
  43. *CALL MACDEF
  44. *CALL CYBERDEFS 
  45. *CALL INPARU
  46.  
  47.  ITR1     IFEQ   ZZDN,1 
  48.           ENTRY  ITRACE 
  49.  
  50.  ITRACE   SUBR   =           ENTRY/EXIT 
  51.  
  52.           SX6    X1          ADDRESS OF FET 
  53.           SA6    TEMP 
  54.           IFEQ   DEBUG,1,4
  55.           SX1    XITRACE
  56.           RJ     XTRACE 
  57.           SA1    TEMP 
  58.           SA2    X1+2              (X2)=IN POINTER
  59.           SA3    BRAND       CREATE HEADER FOR FILE 
  60.           BX6    X3 
  61.           SA6    X2 
  62.           SX7    X2+1 
  63.           RTIME  X7          DEADSTART ELAPSED TIME 
  64.           SX7    X2+2        THIRD WORD OF 4 WORD HEADER
  65.           CLOCK  X7          CLOCK TIME 
  66.           SX7    X2+3        FOURTH WORD OF 4 WORD HEADER 
  67.           DATE   X7          DATE 
  68.           SX7    X7+1        NEXT FREE WORD IN CIO BUFFER 
  69.           SA1    TEMP        WORD CONTAINING FWA OF FET 
  70.           SA2    X1+2        A2 = IN POINTER WORD IN FET
  71.           SA7    A2          RESET IN POINTER IN FET PASS HEADER ENTRY
  72.           EQ     ITRACEX     RETURN 
  73.  
  74.  BRAND    DATA   L*NIP* 
  75.  XITRACE  DATA   L*ITRAC* 
  76.  TEMP     BSS    1
  77.  ITR1     ENDIF 
  78.  
  79.           END