********************************************************************
* Boot - V09 Boot module
*
* $Id: boot_1773.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $
*
* Ed.    Comments                                       Who YY/MM/DD
* ------------------------------------------------------------------

         nam   Boot
         ttl   v09 Boot module

         ifp1
         use   defsfile
         use   coco.d
         endc

*
*  map extended rom on page 0x40-
*  first two bytes are extra rom module size 

tylg     set   Systm+Objct
atrv     set   ReEnt+rev
rev      set   $01
edition  set   1

         mod   eom,name,tylg,atrv,start,size

size     equ   .

name     fcs   /Boot/
         fcb   edition

start    
         ldx    #Bt.Start+Bt.Size-1
         ldy    #$ff00
         pshs   x,y,u
loop     ldb    #$87
         cmpb   ,x
         bne    notfound
         os9    F$VModul
         bcs    notfound
         ldx    ,s
         ldu    ,u
         ldd    2,u    size of mulde
         leax   d,x
         bra    loop
notfound
         leax   1,x
         stx    ,s
         cmpx   2,s
         blo    loop
last     clra
         clrb
         puls   x,y,u,pc

         emod
eom      equ   *
         end