         SYSTEM   SIG7FDP
*
* OBJECT TIME ERROR SUBROUTINE
*
         DEF      C:ERR
SR3      EQU      10
SR1      EQU      8
L1       EQU      11
C:ERR    LW,SR1   L1                LOAD ERROR ADDRESS
         LI,L1    X'9E00'
         SLS,L1   16                SHIFT WITH CLEAN SUBCODE
         AND,SR3  =X'1FFFF'         SAVE OTHER STUFF
         OR,SR3   L1                PUT IN 9E
         CAL1,1   SPACE1            SKIP A BLANK LINE
         CAL1,2   C:ERRPL           M:MERC
C:ERRPL  DATA     X'10000000'       PLIST
         REF      M:DO
SPACE1   GEN,8,24 X'11',M:DO        M:WRITE M:DO,(BUF,MESSG)
         GEN,4,28 3,0
         GEN,32   MESSG
         GEN,32   2
MESSG    TEXT     '  '              DUMMY SPACE LINE
         END
