         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
    DISAPROC;   <<PSUEDO DISABLE>>                             <<S9488>>03660000
    DISABLE;    <<DISABLE THE INTERUPT>>                       <<S9488>>03702000
         THEN                                                  <<g9165>>03791000
     BEGIN                                                     <<g9165>>03791100
     << ------------------------------------------------ >>    <<g9165>>03792000
     << Check if the father is in mourning first...      >>    <<g9165>>03793000
     << ------------------------------------------------ >>    <<g9165>>03794000
     IF LOGICAL(SYS'PCB(FAPT+WAKEMASKWORDNUM)).MOURNWAITFLAG   <<g9165>>03794100
       THEN AWAKE(FAPT,%4000,0)                                <<S9488>>03794200
     ELSE AWAKE( FAPT,2,0);                                    <<g9165>>03795000
     END;                                                      <<g9165>>03796000
    ENABLE;     <<ENABLE THE INTERUPT>>                        <<S9488>>03797000
        ENAPROC  <<DO NOTHING>>                                <<S9488>>03810000
        ELSE ENAPROC;                                          <<S9488>>03815000
    DISAPROC;                                                  <<S9488>>03820000
    ENAPROC;                                                   <<S9488>>03860000
         WHILE NOT PIINFO.DEADFLAG DO                          <<S9488>>04115000
         WAIT(%4000,0);                                        <<S9488>>04116000
         COMMENT *** The above code is to prevent the case     <<S9488>>04117000
         where the FATHER can be waken up by a different SON   <<S9488>>04118000
         from MOURNING WAIT, then go ahead and BURRY the wrong <<S9488>>04119000
         SON;                                                  <<S9488>>04120000
