7000  213e71    ld      hl,#713e
7003  cd4270    call    #7042
7006  f3        di      
7007  dd21ffff  ld      ix,#ffff
700b  110040    ld      de,#4000
700e  3e13      ld      a,#13
7010  cd5070    call    #7050
7013  d23970    jp      nc,#7039
7016  01107f    ld      bc,#7f10
7019  3e17      ld      a,#17
701b  ed49      out     (c),c
701d  ed79      out     (c),a
701f  3edd      ld      a,#dd
7021  212300    ld      hl,#0023
7024  32ae70    ld      (#70ae),a
7027  22af70    ld      (#70af),hl
702a  dd21000c  ld      ix,#0c00
702e  117161    ld      de,#6171
7031  3eed      ld      a,#ed
7033  cd5070    call    #7050
7036  da000c    jp      c,#0c00
7039  211071    ld      hl,#7110
703c  cd4270    call    #7042
703f  c318bb    jp      #bb18
7042  7e        ld      a,(hl)
7043  feff      cp      #ff
7045  c8        ret     z

7046  e5        push    hl
7047  cd5abb    call    #bb5a
704a  e1        pop     hl
704b  7e        ld      a,(hl)
704c  23        inc     hl
704d  3c        inc     a
704e  18f2      jr      #7042           ; (-14)
7050  329370    ld      (#7093),a
7053  0110f6    ld      bc,#f610
7056  ed49      out     (c),c
7058  af        xor     a
7059  32fe70    ld      (#70fe),a
705c  cdea70    call    #70ea
705f  30fb      jr      nc,#705c        ; (-5)
7061  2600      ld      h,#00
7063  cdea70    call    #70ea
7066  30f4      jr      nc,#705c        ; (-12)
7068  7c        ld      a,h
7069  fe0d      cp      #0d
706b  38f4      jr      c,#7061         ; (-12)
706d  cdea70    call    #70ea
7070  30ea      jr      nc,#705c        ; (-22)
7072  2e05      ld      l,#05
7074  cde570    call    #70e5
7077  2d        dec     l
7078  20fa      jr      nz,#7074        ; (-6)
707a  0640      ld      b,#40
707c  c5        push    bc
707d  cdcd70    call    #70cd
7080  79        ld      a,c
7081  fe20      cp      #20
7083  c1        pop     bc
7084  20db      jr      nz,#7061        ; (-37)
7086  10f4      djnz    #707c           ; (-12)
7088  cdcd70    call    #70cd
708b  30cf      jr      nc,#705c        ; (-49)
708d  79        ld      a,c
708e  fe20      cp      #20
7090  28f6      jr      z,#7088         ; (-10)
7092  fe13      cp      #13
7094  20cb      jr      nz,#7061        ; (-53)
7096  3e1f      ld      a,#1f
7098  32fe70    ld      (#70fe),a
709b  cdcd70    call    #70cd
709e  59        ld      e,c
709f  cdcd70    call    #70cd
70a2  51        ld      d,c
70a3  cdcd70    call    #70cd
70a6  3016      jr      nc,#70be        ; (22)
70a8  dd7100    ld      (ix+#00),c
70ab  79        ld      a,c
70ac  ad        xor     l
70ad  6f        ld      l,a
70ae  cd0771    call    #7107
70b1  1b        dec     de
70b2  7a        ld      a,d
70b3  b3        or      e
70b4  20ed      jr      nz,#70a3        ; (-19)
70b6  cdcd70    call    #70cd
70b9  79        ld      a,c
70ba  ad        xor     l
70bb  2001      jr      nz,#70be        ; (1)
70bd  3f        ccf     
70be  0100f6    ld      bc,#f600
70c1  ed49      out     (c),c
70c3  01107f    ld      bc,#7f10
70c6  ed49      out     (c),c
70c8  0e5c      ld      c,#5c
70ca  ed49      out     (c),c
70cc  c9        ret     

70cd  2602      ld      h,#02
70cf  cde770    call    #70e7
70d2  0e01      ld      c,#01
70d4  1805      jr      #70db           ; (5)
70d6  c5        push    bc
70d7  cde570    call    #70e5
70da  c1        pop     bc
70db  d0        ret     nc

70dc  3e1a      ld      a,#1a
70de  bc        cp      h
70df  cb11      rl      c
70e1  d2d670    jp      nc,#70d6
70e4  c9        ret     

70e5  2600      ld      h,#00
70e7  cdea70    call    #70ea
70ea  06f5      ld      b,#f5
70ec  ed48      in      c,(c)
70ee  24        inc     h
70ef  c8        ret     z

70f0  ed78      in      a,(c)
70f2  a9        xor     c
70f3  e680      and     #80
70f5  caee70    jp      z,#70ee
70f8  01107f    ld      bc,#7f10
70fb  ed5f      ld      a,r
70fd  e61f      and     #1f
70ff  f640      or      #40
7101  ed49      out     (c),c
7103  ed79      out     (c),a
7105  37        scf     
7106  c9        ret     

7107  dd19      add     ix,de
7109  dd7c      ld      a,ixh
710b  f6c0      or      #c0
710d  dd67      ld      ixh,a
710f  c9        ret     

7110  1f        rra     
7111  02        ld      (bc),a
7112  19        add     hl,de
7113  0e01      ld      c,#01
7115  0f        rrca    
7116  03        inc     bc
7117  2a2a2a    ld      hl,(#2a2a)
711a  2a204c    ld      hl,(#4c20)
711d  6f        ld      l,a
711e  61        ld      h,c
711f  64        ld      h,h
7120  69        ld      l,c
7121  6e        ld      l,(hl)
7122  67        ld      h,a
7123  2065      jr      nz,#718a        ; (101)
7125  72        ld      (hl),d
7126  72        ld      (hl),d
7127  6f        ld      l,a
7128  72        ld      (hl),d
7129  202d      jr      nz,#7158        ; (45)
712b  2050      jr      nz,#717d        ; (80)
712d  6c        ld      l,h
712e  65        ld      h,l
712f  61        ld      h,c
7130  73        ld      (hl),e
7131  65        ld      h,l
7132  2072      jr      nz,#71a6        ; (114)
7134  65        ld      h,l
7135  74        ld      (hl),h
7136  72        ld      (hl),d
7137  79        ld      a,c
7138  202a      jr      nz,#7164        ; (42)
713a  2a2a2a    ld      hl,(#2a2a)
713d  ff        rst     #38
713e  1c        inc     e
713f  00        nop     
7140  00        nop     
7141  00        nop     
7142  1c        inc     e
7143  010606    ld      bc,#0606
7146  1c        inc     e
7147  02        ld      (bc),a
7148  0f        rrca    
7149  0f        rrca    
714a  1c        inc     e
714b  03        inc     bc
714c  19        add     hl,de
714d  19        add     hl,de
714e  1d        dec     e
714f  00        nop     
7150  00        nop     
7151  04        inc     b
7152  011f0a    ld      bc,#0a1f
7155  08        ex      af,af'
7156  0e00      ld      c,#00
7158  0f        rrca    
7159  03        inc     bc
715a  47        ld      b,a
715b  61        ld      h,c
715c  7a        ld      a,d
715d  7a        ld      a,d
715e  61        ld      h,c
715f  2049      jr      nz,#71aa        ; (73)
7161  49        ld      c,c
7162  2028      jr      nz,#718c        ; (40)
7164  63        ld      h,e
7165  29        add     hl,hl
7166  313939    ld      sp,#3939
7169  3020      jr      nc,#718b        ; (32)
716b  45        ld      b,l
716c  6d        ld      l,l
716d  70        ld      (hl),b
716e  69        ld      l,c
716f  72        ld      (hl),d
7170  65        ld      h,l
7171  0f        rrca    
7172  02        ld      (bc),a
7173  1f        rra     
7174  0a        ld      a,(bc)
7175  0d        dec     c
7176  50        ld      d,b
7177  6c        ld      l,h
7178  65        ld      h,l
7179  61        ld      h,c
717a  73        ld      (hl),e
717b  65        ld      h,l
717c  2077      jr      nz,#71f5        ; (119)
717e  61        ld      h,c
717f  69        ld      l,c
7180  74        ld      (hl),h
7181  2077      jr      nz,#71fa        ; (119)
7183  68        ld      l,b
7184  69        ld      l,c
7185  6c        ld      l,h
7186  65        ld      h,l
7187  2049      jr      nz,#71d2        ; (73)
7189  1f        rra     
718a  0a        ld      a,(bc)
718b  0e63      ld      c,#63
718d  6f        ld      l,a
718e  61        ld      h,c
718f  63        ld      h,e
7190  68        ld      l,b
7191  2079      jr      nz,#720c        ; (121)
7193  6f        ld      l,a
7194  75        ld      (hl),l
7195  72        ld      (hl),d
7196  2063      jr      nz,#71fb        ; (99)
7198  6f        ld      l,a
7199  6d        ld      l,l
719a  70        ld      (hl),b
719b  75        ld      (hl),l
719c  74        ld      (hl),h
719d  65        ld      h,l
719e  72        ld      (hl),d
719f  2eff      ld      l,#ff
71a1  00        nop     
