dir_HAIGH        equ      &80
       
        org  dir_HAIGH*&100 +  &10

 


        jp  startloader

pilot   push  hl
        exx
        pop  hl  
        ld   d, (hl)
        inc  hl
        ld   e, (hl)
        exx


        ld  a,14
        out  ($a0),a

        ld  bc, $fea2      
        ld  de, $10

pii     xor a

        inc hl ;
        dec hl ;out (c),e    

pi_LOW  inc a
        in  f,(c)
        jp  m, pi_LOW

        inc hl
        dec hl  ;out (c),b   

pi_HIGH inc a
        in  f,(c)
        jp  p, pi_HIGH

SYNC    cp  47    
        rl  d
        cp  34    
        jr  nc, pii

        inc d
        jr  nz , pii

syn_LOW in  f,(c)
        jp  m, syn_LOW

        cp  17      
        ld  a, $f2   ;e ; $ea

        jr  c, no_inv

        xor 8

syn_hi  in  f,(c)
        jp  p, syn_hi
no_inv
        ld  (p1),a    ;,a
        xor 8
        ld  (m1),a    ;,a

        ld  ixl,d

        ex  de,hl

        xor a
        jr  enter
table
       defb $fc,$fc
       defb $fc,$fc,$fc,$fc,$fc
       defb $fd,$fd,$fd,$fd,$fd
       defb $fe,$fe,$fe,$fe,$fe
       defb $ff,$ff,$ff,$ff,$ff
       defb $ff,$ff,$ff
       defb $40,$40,$40,$40,$40
       defb $40,$40

full    and  H
        ld   (de),a
        inc  de
        xor  ixl
        ld   ixl,a
        ld   a, b   ;  b=$fe    
enter
more
HIGH    inc  hl
        in  f , (c)
p1      jp  p , HIGH

        ld h, dir_HAIGH  ;&80
        ld h,(hl)

        ld l, table - (dir_HAIGH  * &100) -4;

        rlca
        rla               

LOW     inc  hl
        in  f,(c)
m1      jp  m, LOW      

        jp  nC, full

        inc hl  ;dec  b
        dec hl  ;set  1,b
        inc hl
        dec hl   ;out (c),b   

        and  H
        jp   m, more                         

fin
        exx
        ld    (hl),e
        dec  hl
        ld    (hl),d
        exx

        ld  a,ixl
        or  a
        ret


startloader
        nop

        di 
        ld    hl,$80fe
        call  pilot
        ei 
        ret