         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$if                                                            << 9569>>11447000
GO AROUND'LOOP'KLUDGE;                                         << 9569>>16380100
LOOPKLUDGE:                                                    << 9569>>16381000
   <<    ***** WARNING ***** WARNING ***** WARNING *****    >> << 9569>>16381010
   << IF WE HAVE JUST LOOPED BACK HERE VIA THE DREADED      >> << 9569>>16381020
   << "LOOPKLUDGE" LABEL, THEN WE HAVE GIVEN UP THE CPU AND >> << 9569>>16381030
   << THUS SOMEONE COULD HAVE DONE SOMETHING NASTY LIKE A   >> << 9569>>16381040
   << STOPCACHE ON OUR DEVICE.  THEREFORE WE MUST NOT ONLY  >> << 9569>>16381050
   << CHECK TO SEE IF THE CDT'DST <> 0, BUT ALSO SUCH THINGS>> << 9569>>16381060
   << AS IF OUR DEVICE IS STILL CACHED, IF THE ENTRY HAS    >> << 9569>>16381070
   << MOVED (VIA A STOPCACHE AND STARTCACHE), IF THE CDT IS >> << 9569>>16381080
   << STILL IN THE SAME PLACE (IF DURING THAT TIME SOMEONE  >> << 9569>>16381090
   << DISABLED AND ENABLED CACHING ON ALL DEVICES, THE CDT  >> << 9569>>16381100
   << WOULD HAVE BEEN DEALLOCATED AND THEN REALLOCATED THUS >> << 9569>>16381110
   << CAUSING IT TO BE A DIFFERENT DST# AND DIFFERENT LOC.  >> << 9569>>16381120
   << IN MEMORY).  THERE MAY BE OTHER NASTY PROBLEMS THAT I >> << 9569>>16381130
   << HAVEN'T THOUGHT OF, JUST BE WARE - THIS IS VERY       >> << 9569>>16381140
   << TRICKY TO RECOVER FROM.                               >> << 9569>>16381150
   <<    ***** WARNING ***** WARNING ***** WARNING *****    >> << 9569>>16381160
                                                               << 9569>>16381170
   IF (LDEV'LINK'PTR := CDT'FIND'DE(LDR'LDEV))=0               << 9569>>16381180
      THEN GO OUT                                              << 9569>>16381190
      ELSE LDEV'LINK'OFFSET := LDEV'LINK'PTR * CDT'ENTRY'SIZE; << 9569>>16381200
AROUND'LOOP'KLUDGE:                                            << 9569>>16386000
$EDIT                                                          << 9569>>16415000
$EDIT                                                          << 9569>>16425000
            ASSEMBLE(DDEL); << REMOVE CDT ADDR FROM TOS >>     << 9569>>16531000
            DELAY(*); << WE WILL ALLOW OTHER PROCESSES TO  >>  << 9569>>16685000
            << RUN, BUT OUR ONLY LOCKING MECHANISM IS THE  >>  << 9569>>16686000
            << PDISABLE.  WARNING - SEE COMMENT ABOVE!!    >>  << 9569>>16687000
$EDIT                                                          << 9569>>16720000
$EDIT                                                          << 9569>>16725000
$EDIT                                                          << 9569>>16730000
$EDIT                                                          << 9569>>23820000
