     ldldr     headr
     *
     * Load the interphase loader.  No parameters are used.
     *
     )7L       equ  101   Interphase loader load address
     )7J       equ  114   Interphase loader entry address
     )8J       equ  84    1 for cards, N for tape
     *
     * Load the overlay
     *
     )00       bce  )2J,)8J,1       bce  rdcard,cards,1
     )1K       mcw  )3J,)3K         Initialize error counter
     )1L       rtw  1,)7L
               ber  )1M             Tape error?
               b    )7J             No, go to the overlay
     )1M       bsp  1
               a    *-6,)3K
               bwz  )1L,)3K,k       ECOUNT still negative?
               nop  3333
               h                    Too many errors
               b    )1K   
     *
     * Load from cards
     *
     )2J       r    40
     *
     * data
     *
     )3J       dcw  -9               EINIT = initial error count
     )3K       dcw  #1               ECOUNT = current error counter
