;; eidolon

bb2e 067f      ld      b,$7f
bb30 3e10      ld      a,$10
bb32 ed79      out     (c),a
bb34 3e54      ld      a,$54
bb36 ed79      out     (c),a
bb38 d8        ret     c

bb39 06f6      ld      b,$f6
bb3b af        xor     a
bb3c ed79      out     (c),a
bb3e dd360000  ld      (ix+$00),$00
bb42 dd2b      dec     ix
bb44 18f8      jr      $bb3e            ; (-$08)
bb46 3d        dec     a
bb47 20fd      jr      nz,$bb46         ; (-$03)
bb49 a7        and     a
bb4a 24        inc     h
bb4b c8        ret     z

bb4c 06f5      ld      b,$f5
bb4e ed78      in      a,(c)
bb50 a9        xor     c
bb51 e680      and     $80
bb53 28f5      jr      z,$bb4a          ; (-$0b)
bb55 067f      ld      b,$7f
bb57 3e10      ld      a,$10
bb59 ed79      out     (c),a
bb5b 79        ld      a,c
bb5c 2f        cpl     
bb5d 4f        ld      c,a
bb5e 79        ld      a,c
bb5f 1f        rra     
bb60 3e2a      ld      a,$2a
bb62 17        rla     
bb63 ed79      out     (c),a
bb65 37        scf     
bb66 c9        ret     

bb67 06f6      ld      b,$f6
bb69 3e10      ld      a,$10
bb6b ed79      out     (c),a
bb6d 212ebb    ld      hl,$bb2e
bb70 e5        push    hl
bb71 06f5      ld      b,$f5
bb73 ed78      in      a,(c)
bb75 e680      and     $80
bb77 4f        ld      c,a
bb78 cd46bb    call    $bb46
bb7b 30fb      jr      nc,$bb78         ; (-$05)
bb7d 211504    ld      hl,$0415
bb80 10fe      djnz    $bb80            ; (-$02)
bb82 2b        dec     hl
bb83 7c        ld      a,h
bb84 b5        or      l
bb85 20f9      jr      nz,$bb80         ; (-$07)
bb87 3e0a      ld      a,$0a
bb89 cd46bb    call    $bb46
bb8c 30ea      jr      nc,$bb78         ; (-$16)
bb8e 26c4      ld      h,$c4
bb90 3e1c      ld      a,$1c
bb92 cd46bb    call    $bb46
bb95 30e1      jr      nc,$bb78         ; (-$1f)
bb97 3eda      ld      a,$da
bb99 bc        cp      h
bb9a 38f2      jr      c,$bb8e          ; (-$0e)
bb9c 26c4      ld      h,$c4
bb9e 3e1c      ld      a,$1c
bba0 cd46bb    call    $bb46
bba3 30d3      jr      nc,$bb78         ; (-$2d)
bba5 3eda      ld      a,$da
bba7 bc        cp      h
bba8 38e4      jr      c,$bb8e          ; (-$1c)
bbaa fd21babc  ld      iy,$bcba
bbae fd6e00    ld      l,(iy+$00)
bbb1 26c4      ld      h,$c4
bbb3 3e1c      ld      a,$1c
bbb5 cd46bb    call    $bb46
bbb8 30be      jr      nc,$bb78         ; (-$42)
bbba 3ed7      ld      a,$d7
bbbc bc        cp      h
bbbd 30dd      jr      nc,$bb9c         ; (-$23)
bbbf 2c        inc     l
bbc0 20ef      jr      nz,$bbb1         ; (-$11)
bbc2 2670      ld      h,$70
bbc4 3e1c      ld      a,$1c
bbc6 cd46bb    call    $bb46
bbc9 30ad      jr      nc,$bb78         ; (-$53)
bbcb 3e1c      ld      a,$1c
bbcd cd46bb    call    $bb46
bbd0 30a6      jr      nc,$bb78         ; (-$5a)
bbd2 7c        ld      a,h
bbd3 fecd      cp      $cd
bbd5 300e      jr      nc,$bbe5         ; (+$0e)
bbd7 fe9c      cp      $9c
bbd9 30cf      jr      nc,$bbaa         ; (-$31)
bbdb fd23      inc     iy
bbdd fd7d      ld      a,iyl
bbdf febe      cp      $be
bbe1 20cb      jr      nz,$bbae         ; (-$35)
bbe3 18c5      jr      $bbaa            ; (-$3b)
bbe5 3e0b      ld      a,$0b
bbe7 26b0      ld      h,$b0
bbe9 2e08      ld      l,$08
bbeb 3e0b      ld      a,$0b
bbed 1802      jr      $bbf1            ; (+$02)
bbef 3e0c      ld      a,$0c
bbf1 cd46bb    call    $bb46
bbf4 d0        ret     nc

bbf5 00        nop     
bbf6 00        nop     
bbf7 3e0e      ld      a,$0e
bbf9 cd46bb    call    $bb46
bbfc d0        ret     nc

bbfd 3ec5      ld      a,$c5
bbff bc        cp      h
bc00 cb15      rl      l
bc02 26b0      ld      h,$b0
bc04 d2efbb    jp      nc,$bbef
bc07 3e1d      ld      a,$1d
bc09 bd        cp      l
bc0a c239bb    jp      nz,$bb39
bc0d 00        nop     
bc0e af        xor     a
bc0f 08        ex      af,af'
bc10 26c4      ld      h,$c4
bc12 2e01      ld      l,$01
bc14 3e08      ld      a,$08
bc16 1813      jr      $bc2b            ; (+$13)
bc18 dd7500    ld      (ix+$00),l
bc1b dd23      inc     ix
bc1d 1b        dec     de
bc1e 26c4      ld      h,$c4
bc20 2e01      ld      l,$01
bc22 2e01      ld      l,$01
bc24 00        nop     
bc25 3e05      ld      a,$05
bc27 1802      jr      $bc2b            ; (+$02)
bc29 3e0b      ld      a,$0b
bc2b cd46bb    call    $bb46
bc2e d0        ret     nc

bc2f e5        push    hl
bc30 3e0e      ld      a,$0e
bc32 cd46bb    call    $bb46
bc35 e1        pop     hl
bc36 d0        ret     nc

bc37 3ecd      ld      a,$cd
bc39 bc        cp      h
bc3a cb15      rl      l
bc3c 26c4      ld      h,$c4
bc3e d229bc    jp      nc,$bc29
bc41 08        ex      af,af'
bc42 ad        xor     l
bc43 08        ex      af,af'
bc44 7a        ld      a,d
bc45 b3        or      e
bc46 20d0      jr      nz,$bc18         ; (-$30)
bc48 08        ex      af,af'
bc49 fe01      cp      $01
bc4b c9        ret     

bc4c cd67bb    call    $bb67
bc4f 210080    ld      hl,$8000
bc52 06ff      ld      b,$ff
bc54 c5        push    bc
bc55 1e00      ld      e,$00
bc57 4b        ld      c,e
bc58 16ff      ld      d,$ff
bc5a 06f5      ld      b,$f5
bc5c ed78      in      a,(c)
bc5e e680      and     $80
bc60 a9        xor     c
bc61 2851      jr      z,$bcb4          ; (+$51)
bc63 1c        inc     e
bc64 79        ld      a,c
bc65 2f        cpl     
bc66 e680      and     $80
bc68 4f        ld      c,a
bc69 15        dec     d
bc6a c25abc    jp      nz,$bc5a
bc6d 73        ld      (hl),e
bc6e 23        inc     hl
bc6f c1        pop     bc
bc70 10e2      djnz    $bc54            ; (-$1e)
bc72 210000    ld      hl,$0000
bc75 113280    ld      de,$8032
bc78 0632      ld      b,$32
bc7a c5        push    bc
bc7b 1a        ld      a,(de)
bc7c 0600      ld      b,$00
bc7e 4f        ld      c,a
bc7f 09        add     hl,bc
bc80 13        inc     de
bc81 c1        pop     bc
bc82 10f6      djnz    $bc7a            ; (-$0a)
bc84 e5        push    hl
bc85 210000    ld      hl,$0000
bc88 11cd80    ld      de,$80cd
bc8b 0632      ld      b,$32
bc8d c5        push    bc
bc8e 1a        ld      a,(de)
bc8f 0600      ld      b,$00
bc91 4f        ld      c,a
bc92 09        add     hl,bc
bc93 13        inc     de
bc94 c1        pop     bc
bc95 10f6      djnz    $bc8d            ; (-$0a)
bc97 c1        pop     bc
bc98 7c        ld      a,h
bc99 fe02      cp      $02
bc9b 3013      jr      nc,$bcb0         ; (+$13)
bc9d a7        and     a
bc9e ed42      sbc     hl,bc
bca0 013200    ld      bc,$0032
bca3 a7        and     a
bca4 ed42      sbc     hl,bc
bca6 d8        ret     c

bca7 09        add     hl,bc
bca8 01cdff    ld      bc,$ffcd
bcab a7        and     a
bcac ed42      sbc     hl,bc
bcae d0        ret     nc

bcaf 3c        inc     a
bcb0 32b9bc    ld      ($bcb9),a
bcb3 c9        ret     

bcb4 00        nop     
bcb5 00        nop     
bcb6 c369bc    jp      $bc69
bcb9 00        nop     
bcba 1e22      ld      e,$22
bcbc 24        inc     h
bcbd 2602      ld      h,$02
bcbf dd21bfbc  ld      ix,$bcbf
bcc3 116800    ld      de,$0068
bcc6 cd4cbc    call    $bc4c
bcc9 dd210070  ld      ix,$7000
bccd 11901b    ld      de,$1b90
bcd0 cd67bb    call    $bb67
bcd3 af        xor     a
bcd4 cd1ebd    call    $bd1e
bcd7 067f      ld      b,$7f
bcd9 3e8e      ld      a,$8e
bcdb ed79      out     (c),a
bcdd cd0070    call    $7000
bce0 3e18      ld      a,$18
bce2 cd1ebd    call    $bd1e
bce5 dd210000  ld      ix,$0000
bce9 11581b    ld      de,$1b58
bcec cd67bb    call    $bb67
bcef af        xor     a
bcf0 cd1ebd    call    $bd1e
bcf3 067f      ld      b,$7f
bcf5 3e8c      ld      a,$8c
bcf7 ed79      out     (c),a
bcf9 3e01      ld      a,$01
bcfb ed79      out     (c),a
bcfd 3e4c      ld      a,$4c
bcff ed79      out     (c),a
bd01 cd0000    call    $0000
bd04 3e18      ld      a,$18
bd06 cd1ebd    call    $bd1e
bd09 dd210020  ld      ix,$2000
bd0d 110040    ld      de,$4000
bd10 cd67bb    call    $bb67
bd13 3ab9bc    ld      a,($bcb9)
bd16 fe00      cp      $00
bd18 c239bb    jp      nz,$bb39
bd1b c30020    jp      $2000
bd1e 0106bc    ld      bc,$bc06
bd21 ed49      out     (c),c
bd23 04        inc     b
bd24 ed79      out     (c),a
bd26 c9        ret     

