         SYSTEM   SIG7FDP
*
* OBJECT TIME TRACE SUBROUTINE
*    EXPECTS MESSAGE ADDRESS IN P1
*
         DEF      C:TRC,C:TRX
         REF      M:LL
P1       EQU      6
L1       EQU      11
C:TRC    RES      0
         STW,P1   C:TRCPL+2
         CAL1,2   C:TRCPL           M:PRINT
C:TRX    B        *L1               RETURN
C:TRCPL  GEN,8,24 X'01',M:LL        PLIST
         DATA     X'80000000'
         DATA     0                 MESSAGE ADDRESS
         END
