         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
         SBL   = CON %20104, %12#,                             <<*9385>>00980000
         PMBCFIRMWARE = ABS(%1220).(14:1)#;                    <<*9385>>00981000
IF EN <= %73 THEN SUDDENDEATH(124);  <<TRYING TO REL SYS DST>> <<R9354>>03260000
IF TYPE=CSTB THEN       <<CHECK FOR SEG SIZE, BANK AND BASE>>  <<R9125>>03355000
BEGIN                                                          <<R9125>>03355100
  COMMENT: The purpose of the following code is to cover up    <<R9125>>03355200
           a problem where LOADER tries to UNLOAD a code seg.  <<R9125>>03355300
           which has all zeros in the four words entry. When   <<R9125>>03355400
           this happen, the even will be loged via SOFT'DEATH  <<R9125>>03355500
           then RETURNENTRY will be called to put this entry   <<R9125>>03355600
           into the free list;                                 <<R9125>>03355700
  IF  DSTI'(DESCSTINX).CODESIZEFIELD = 0  OR                   <<R9125>>03356000
  (DSTI'(DESCSTINX+2) = 0 LAND DSTI'(DESCSTINX+3) = 0) THEN    <<R9125>>03357000
  BEGIN SOFT'DEATH(636); GOTO RELENTRY; END;                   <<R9125>>03358000
END;                                                           <<R9125>>03359000
RELENTRY:                                                      <<R9125>>03621000
IF PMBCFIRMWARE THEN                                           <<*9385>>05850000
                                                               <<*9385>>05855000
  BEGIN                                                        <<*9385>>05865000
