_0000  ld   sp,$9B00   ; boot-vector
_0003  jp   _0073

_0006  defb $FF,$FF

_0008  add  a,a        ; begin 'rst $08' ... HL:+=2A
_0009  jr   nc,_0010
_000B  inc  h
_000C  jr   _0010

_000E  defb $FF,$FF

_0010  add  a,l        ; begin 'rst $10' ... adds HL:+=A
_0011  ld   l,a
_0012  ret  nc
_0013  inc  h
_0014  ret

_0015  defb $FF,$FF,$FF

_0018  ld   (hl),a     ; begin 'rst $18' ... memset((HL), A, B) ... (HL) is src, A is character to fill with, B is count
_0019  inc  hl
_001A  djnz _0018
_001C  ret

      org  $0066
_0066  ld   a,$01      ; NMI vector
_0068  ld   ($6822),a  ; cpu #3 nmi acknowledge/enable
_006B  xor  a
_006C  ld   ($6822),a
_006F  call _00A9
_0072  ret


_0073  ld   a,$01      ; extension of boot-vector
_0075  ld   ($6822),a
_0078  ld   de,$9101
_007B  ld   a,(de)     ; point to the location to store the checksum
_007C  and  a
_007D  jr   nz,_007B   ; waiting for ($9101) to become 0? an indication from other CPU?
_007F  ld   h,a
_0080  ld   l,a
_0081  ld   bc,$0010
_0084  add  a,(hl)
_0085  inc  hl
_0086  djnz _0084
_0088  dec  c
_0089  jr   nz,_0084
_008B  cp   $FF
_008D  jr   z,_0091
_008F  ld   a,$11      ; when checksum fail!
_0091  ld   (de),a     ; store the checksum indicator...
_0092  ld   a,(de)
_0093  and  a
_0094  jr   nz,_0092   ; ... then hang here until "checksum" is zero
_0096  xor  a
_0097  ld   ($6822),a
_009A  ld   hl,$9A00
_009D  ld   (hl),$00
_009F  ld   de,$9A01
_00A2  ld   bc,$00FF
_00A5  ldir
_00A7  jr   _00A7        ; hang here all day


_00A9  ld   a,($9AB8)    ; task called by NMI vector
_00AC  and  a
_00AD  jp   nz,_067A
_00B0  ld   hl,$9A60
_00B3  ld   (hl),$00
_00B5  ld   de,$9A61
_00B8  ld   bc,$000F
_00BB  ldir
_00BD  ld   a,($9AB7)
_00C0  and  a
_00C1  jp   nz,_033D
_00C4  ld   a,($9A79)
_00C7  and  a
_00C8  jr   z,_00D3
_00CA  ld   hl,$9AA8
_00CD  add  a,(hl)
_00CE  ld   (hl),a
_00CF  xor  a
_00D0  ld   ($9A79),a
_00D3  ld   a,($9AA0)
_00D6  and  a
_00D7  jr   z,_0148
_00D9  ld   a,($9211)
_00DC  ld   hl,$9A80
_00DF  cp   (hl)
_00E0  jr   z,_0102
_00E2  ld   ($9A80),a
_00E5  inc  a
_00E6  jr   z,_00F4
_00E8  ld   hl,$06C3
_00EB  ld   ($9A82),hl
_00EE  xor  a
_00EF  ld   ($9A00),a
_00F2  jr   _00FD

_00F4  ld   hl,$06D3
_00F7  ld   ($9A82),hl
_00FA  ld   ($9A00),a
_00FD  ld   ($9A81),a
_0100  jr   _0114

_0102  ld   hl,$9A00
_0105  inc  (hl)
_0106  ld   a,(hl)
_0107  cp   $22
_0109  jr   nz,_0129
_010B  ld   (hl),$00
_010D  ld   a,($9A81)
_0110  inc  a
_0111  ld   ($9A81),a
_0114  ld   hl,($9A82)
_0117  rst  $08
_0118  ld   e,(hl)
_0119  inc  hl
_011A  ld   d,(hl)
_011B  ld   ($9A84),de
_011F  ld   a,$1F
_0121  rst  $10
_0122  ld   e,(hl)
_0123  inc  hl
_0124  ld   d,(hl)
_0125  ld   ($9A86),de
_0129  ld   hl,($9A86)
_012C  ld   de,($9A84)
_0130  add  hl,de
_0131  ld   ($9A86),hl
_0134  ld   a,h
_0135  ld   ($9A61),a
_0138  rrca
_0139  rrca
_013A  rrca
_013B  rrca
_013C  ld   ($9A62),a
_013F  ld   a,$0A
_0141  ld   ($9A65),a
_0144  xor  a
_0145  ld   ($9A70),a
_0148  ld   hl,$9A74
_014B  ld   (hl),$13
_014D  ld   a,($9AB3)
_0150  and  a
_0151  jr   z,_015C
_0153  xor  a
_0154  ld   ($9AB3),a
_0157  call _03F4
_015A  jr   _0165

_015C  ld   a,($9AD3)
_015F  and  a
_0160  jr   z,_0165
_0162  call _044A
_0165  ld   hl,$9A74
_0168  ld   (hl),$0F
_016A  ld   a,($9AAF)
_016D  and  a
_016E  jr   z,_0179
_0170  xor  a
_0171  ld   ($9AAF),a
_0174  call _03F4
_0177  jr   _0182

_0179  ld   a,($9ACF)
_017C  and  a
_017D  jr   z,_0182
_017F  call _044A
_0182  ld   hl,$9A74
_0185  ld   (hl),$03
_0187  ld   a,($9AA3)
_018A  and  a
_018B  jr   z,_0196
_018D  xor  a
_018E  ld   ($9AA3),a
_0191  call _03F4
_0194  jr   _019F

_0196  ld   a,($9AC3)
_0199  and  a
_019A  jr   z,_019F
_019C  call _044A
_019F  ld   hl,$9A74
_01A2  ld   (hl),$02
_01A4  ld   a,($9AA2)
_01A7  and  a
_01A8  jr   z,_01B3
_01AA  xor  a
_01AB  ld   ($9AA2),a
_01AE  call _03F4
_01B1  jr   _01BC

_01B3  ld   a,($9AC2)
_01B6  and  a
_01B7  jr   z,_01BC
_01B9  call _044A
_01BC  ld   hl,$9A74
_01BF  ld   (hl),$04
_01C1  ld   a,($9AA4)
_01C4  and  a
_01C5  jr   z,_01D0
_01C7  xor  a
_01C8  ld   ($9AA4),a
_01CB  call _03F4
_01CE  jr   _01D9

_01D0  ld   a,($9AC4)
_01D3  and  a
_01D4  jr   z,_01D9
_01D6  call _044A
_01D9  ld   hl,$9A74
_01DC  ld   (hl),$01
_01DE  ld   a,($9AA1)
_01E1  and  a
_01E2  jr   z,_01ED
_01E4  xor  a
_01E5  ld   ($9AA1),a
_01E8  call _03F4
_01EB  jr   _01F6

_01ED  ld   a,($9AC1)
_01F0  and  a
_01F1  jr   z,_01F6
_01F3  call _044A
_01F6  ld   a,($9AB2)
_01F9  and  a
_01FA  jr   z,_0204
_01FC  ld   hl,$9A74
_01FF  ld   (hl),$12
_0201  call _04A2
_0204  ld   a,($9AA5)
_0207  and  a
_0208  jr   z,_0236
_020A  ld   hl,$9A74
_020D  ld   (hl),$05
_020F  call _0375
_0212  ld   hl,$9A7E
_0215  inc  (hl)
_0216  ld   a,($9A7E)
_0219  cp   $06
_021B  jr   c,_022E
_021D  ld   (hl),$00
_021F  ld   a,($9A7C)
_0222  cp   $04
_0224  jr   c,_0229
_0226  dec  a
_0227  jr   _022B

_0229  ld   a,$0C
_022B  ld   ($9A7C),a
_022E  ld   a,($9A7C)
_0231  ld   ($9A6F),a
_0234  jr   _0239
_0236  ld   ($9AC5),a
_0239  ld   a,($9AA6)
_023C  and  a
_023D  jr   z,_0263
_023F  ld   hl,$9A74
_0242  ld   (hl),$06
_0244  call _0375
_0247  ld   hl,$9A7F
_024A  inc  (hl)
_024B  ld   a,(hl)
_024C  cp   $1C
_024E  jr   nz,_025B
_0250  xor  a
_0251  ld   ($9A7F),a
_0254  ld   a,($9A7D)
_0257  inc  a
_0258  ld   ($9A7D),a
_025B  ld   a,($9A7D)
_025E  ld   ($9A72),a
_0261  jr   _0266
_0263  ld   ($9AC6),a
_0266  ld   a,($9AA9)
_0269  and  a
_026A  jr   z,_0276
_026C  ld   hl,$9A74
_026F  ld   (hl),$09
_0271  call _0375
_0274  jr   _0279

_0276  ld   ($9AC9),a
_0279  ld   a,($9AA7)
_027C  and  a
_027D  jr   z,_0287
_027F  ld   hl,$9A74
_0282  ld   (hl),$07
_0284  call _04A2
_0287  ld   a,($9AB1)
_028A  and  a
_028B  jr   z,_0297
_028D  ld   hl,$9A74
_0290  ld   (hl),$11
_0292  call _0375
_0295  jr   _029A

_0297  ld   ($9AD1),a
_029A  ld   a,($9AAD)
_029D  and  a
_029E  jr   z,_02A8
_02A0  ld   hl,$9A74
_02A3  ld   (hl),$0D
_02A5  call _04A2
_02A8  ld   a,($9AAE)
_02AB  and  a
_02AC  jr   z,_02B6
_02AE  ld   hl,$9A74
_02B1  ld   (hl),$0E
_02B3  call _04A2
_02B6  ld   a,($9AAE)
_02B9  and  a
_02BA  jr   z,_02C6
_02BC  ld   a,$09
_02BE  ld   ($9A6A),a
_02C1  ld   a,$06
_02C3  ld   ($9A6F),a
_02C6  ld   a,($9AB4)
_02C9  and  a
_02CA  jr   z,_02D4
_02CC  ld   hl,$9A74
_02CF  ld   (hl),$14
_02D1  call _04A2
_02D4  ld   a,($9AB5)
_02D7  and  a
_02D8  jr   z,_02E2
_02DA  ld   hl,$9A74
_02DD  ld   (hl),$15
_02DF  call _04A2
_02E2  ld   a,($9AAA)
_02E5  and  a
_02E6  jr   z,_02F0
_02E8  ld   hl,$9A74
_02EB  ld   (hl),$0A
_02ED  call _04A2
_02F0  ld   a,($9AAB)
_02F3  and  a
_02F4  jr   z,_02FE
_02F6  ld   hl,$9A74
_02F9  ld   (hl),$0B
_02FB  call _04A2
_02FE  ld   a,($9AB0)
_0301  and  a
_0302  jr   z,_030E
_0304  ld   hl,$9A74
_0307  ld   (hl),$10
_0309  call _0375
_030C  jr   _0311

_030E  ld   ($9AD0),a
_0311  ld   a,($9AAC)
_0314  and  a
_0315  jr   z,_031F
_0317  ld   hl,$9A74
_031A  ld   (hl),$0C
_031C  call _04A2
_031F  ld   a,($9AB6)
_0322  and  a
_0323  jr   z,_032D
_0325  ld   hl,$9A74
_0328  ld   (hl),$16
_032A  call _04A2
_032D  ld   a,($9AA8)
_0330  and  a
_0331  jr   z,_033B
_0333  ld   hl,$9A74
_0336  ld   (hl),$08
_0338  call _04A2
_033B  jr   _0357

_033D  ld   hl,$9AA0   ; s.a. _00C1
_0340  ld   (hl),$00
_0342  ld   de,$9AA1
_0345  ld   bc,$0015
_0348  ldir
_034A  ld   hl,$9AC0
_034D  ld   (hl),$00
_034F  ld   de,$9AC1
_0352  ld   bc,$0016
_0355  ldir
_0357  ld   hl,$9A60
_035A  ld   de,$6810
_035D  ld   bc,$0010
_0360  ldir
_0362  ld   a,($9A70)
_0365  ld   ($6805),a
_0368  ld   a,($9A71)
_036B  ld   ($680A),a
_036E  ld   a,($9A72)
_0371  ld   ($680F),a
_0374  ret


_0375  ld   hl,$9A74  ; begin 'call _0375'
_0378  ld   a,(hl)
_0379  add  a,a
_037A  add  a,(hl)
_037B  ld   hl,$0703
_037E  rst  $10
_037F  ld   de,$9A75
_0382  ld   bc,$0003
_0385  ldir
_0387  ld   a,($9A74)
_038A  cp   $0E
_038C  jr   nz,_03A6
_038E  ld   a,($9A4C)
_0391  and  a
_0392  jr   z,_03A1
_0394  dec  a
_0395  jr   z,_039D
_0397  ld   a,($9A4D)
_039A  and  a
_039B  jr   nz,_03A6
_039D  ld   a,$02
_039F  jr   _03A3
_03A1  ld   a,$01
_03A3  ld   ($9A76),a
_03A6  ld   hl,$9AC0
_03A9  ld   a,($9A74)
_03AC  add  a,l
_03AD  ld   l,a
_03AE  ld   a,(hl)
_03AF  and  a
_03B0  jr   nz,_03CD
_03B2  inc  (hl)
_03B3  ld   hl,$9A76
_03B6  ld   b,(hl)
_03B7  ld   c,b
_03B8  ld   hl,$9A30
_03BB  ld   a,($9A75)
_03BE  add  a,l
_03BF  ld   l,a
_03C0  xor  a
_03C1  rst  $18
_03C2  ld   b,c
_03C3  ld   hl,$9A00
_03C6  ld   a,($9A75)
_03C9  add  a,l
_03CA  ld   l,a
_03CB  xor  a
_03CC  rst  $18
_03CD  call _0550
_03D0  ld   hl,$9A76
_03D3  dec  (hl)
_03D4  jr   z,_03E0
_03D6  ld   hl,$9A75
_03D9  inc  (hl)
_03DA  ld   hl,$9A77
_03DD  inc  (hl)
_03DE  jr   _03CD
_03E0  ld   a,($9A78)
_03E3  and  a
_03E4  ret  z
_03E5  xor  a
_03E6  ld   ($9A78),a
_03E9  ld   hl,$9AC0
_03EC  ld   a,($9A74)
_03EF  add  a,l
_03F0  ld   l,a
_03F1  ld   (hl),$00
_03F3  ret              ; end 'call _0375'



_03F4  ld   hl,$9AC0
_03F7  ld   a,($9A74)
_03FA  add  a,l
_03FB  ld   l,a
_03FC  inc  (hl)
_03FD  ld   hl,$9A74
_0400  ld   a,(hl)
_0401  add  a,a
_0402  add  a,(hl)
_0403  ld   hl,$0703
_0406  rst  $10
_0407  ld   de,$9A75
_040A  ld   bc,$0003
_040D  ldir
_040F  ld   a,($9A74)
_0412  cp   $0E
_0414  jr   nz,_042E
_0416  ld   a,($9A4C)
_0419  and  a
_041A  jr   z,_0429
_041C  dec  a
_041D  jr   z,_0425
_041F  ld   a,($9A4D)
_0422  and  a
_0423  jr   nz,_042E
_0425  ld   a,$02
_0427  jr   _042B
_0429  ld   a,$01
_042B  ld   ($9A76),a
_042E  ld   hl,$9A76
_0431  ld   b,(hl)
_0432  ld   c,b
_0433  ld   hl,$9A30
_0436  ld   a,($9A75)
_0439  add  a,l
_043A  ld   l,a
_043B  xor  a
_043C  rst  $18
_043D  ld   b,c
_043E  ld   hl,$9A00
_0441  ld   a,($9A75)
_0444  add  a,l
_0445  ld   l,a
_0446  xor  a
_0447  rst  $18
_0448  jr   _047B

_044A  ld   hl,$9A74        ; begin 'call _044A'
_044D  ld   a,(hl)
_044E  add  a,a
_044F  add  a,(hl)
_0450  ld   hl,$0703
_0453  rst  $10
_0454  ld   de,$9A75
_0457  ld   bc,$0003
_045A  ldir
_045C  ld   a,($9A74)
_045F  cp   $0E
_0461  jr   nz,_047B
_0463  ld   a,($9A4C)
_0466  and  a
_0467  jr   z,_0476
_0469  dec  a
_046A  jr   z,_0472
_046C  ld   a,($9A4D)
_046F  and  a
_0470  jr   nz,_047B
_0472  ld   a,$02
_0474  jr   _0478
_0476  ld   a,$01
_0478  ld   ($9A76),a       ; s.a. _0448
_047B  call _0550
_047E  ld   hl,$9A76
_0481  dec  (hl)
_0482  jr   z,_048E
_0484  ld   hl,$9A75
_0487  inc  (hl)
_0488  ld   hl,$9A77
_048B  inc  (hl)
_048C  jr   _047B

_048E  ld   a,($9A78)
_0491  and  a
_0492  ret  z
_0493  xor  a
_0494  ld   ($9A78),a
_0497  ld   hl,$9AC0
_049A  ld   a,($9A74)
_049D  add  a,l
_049E  ld   l,a
_049F  ld   (hl),$00
_04A1  ret             ; 'end 'call _03F4, call _044A?'


_04A2  ld   hl,$9A74   ; begin 'call _04A2'
_04A5  ld   a,(hl)
_04A6  add  a,a
_04A7  add  a,(hl)
_04A8  ld   hl,$0703
_04AB  rst  $10
_04AC  ld   de,$9A75
_04AF  ld   bc,$0003
_04B2  ldir
_04B4  ld   a,($9A74)
_04B7  cp   $0E
_04B9  jr   nz,_04D3
_04BB  ld   a,($9A4C)
_04BE  and  a
_04BF  jr   z,_04CE
_04C1  dec  a
_04C2  jr   z,_04CA
_04C4  ld   a,($9A4D)
_04C7  and  a
_04C8  jr   nz,_04D3
_04CA  ld   a,$02
_04CC  jr   _04D0

_04CE  ld   a,$01
_04D0  ld   ($9A76),a
_04D3  ld   hl,$9AC0
_04D6  ld   a,($9A74)
_04D9  add  a,l
_04DA  ld   l,a
_04DB  ld   a,(hl)
_04DC  and  a
_04DD  jr   nz,_04FA
_04DF  inc  (hl)
_04E0  ld   hl,$9A76
_04E3  ld   b,(hl)
_04E4  ld   c,b
_04E5  ld   hl,$9A30
_04E8  ld   a,($9A75)
_04EB  add  a,l
_04EC  ld   l,a
_04ED  xor  a
_04EE  rst  $18
_04EF  ld   b,c
_04F0  ld   hl,$9A00
_04F3  ld   a,($9A75)
_04F6  add  a,l
_04F7  ld   l,a
_04F8  xor  a
_04F9  rst  $18
_04FA  call _0550
_04FD  ld   hl,$9A76
_0500  dec  (hl)
_0501  jr   z,_050D
_0503  ld   hl,$9A75
_0506  inc  (hl)
_0507  ld   hl,$9A77
_050A  inc  (hl)
_050B  jr   _04FA

_050D  ld   a,($9A78)
_0510  and  a
_0511  ret  z
_0512  xor  a
_0513  ld   ($9A78),a
_0516  ld   hl,$9AC0
_0519  ld   a,($9A74)
_051C  add  a,l
_051D  ld   l,a
_051E  ld   (hl),$00
_0520  ld   hl,$9AA0
_0523  ld   a,($9A74)
_0526  add  a,l
_0527  ld   l,a
_0528  ld   a,($9A74)
_052B  cp   $08
_052D  jr   z,_053A
_052F  cp   $0C
_0531  jr   z,_053C
_0533  cp   $14
_0535  jr   z,_0548
_0537  ld   (hl),$00
_0539  ret              ; end 'call _04A2'

_053A  dec  (hl)
_053B  ret
_053C  dec  (hl)
_053D  jr   z,_0542
_053F  bit  0,(hl)
_0541  ret  z
_0542  ld   a,$01
_0544  ld   ($9AB6),a
_0547  ret              ; end 'call _04A2'

_0548  ld   (hl),$00
_054A  ld   hl,$9AB3
_054D  ld   (hl),$01
_054F  ret              ; end 'call _04A2'


_0550  ld   hl,$9A00    ; begin 'call _0550'
_0553  ld   a,($9A75)
_0556  add  a,l
_0557  ld   l,a
_0558  inc  (hl)
_0559  ld   a,($9A75)
_055C  ld   hl,$0748
_055F  rst  $08
_0560  ld   e,(hl)
_0561  inc  hl
_0562  ld   d,(hl)
_0563  ex   de,hl
_0564  ld   de,$9A88
_0567  ld   bc,$0003
_056A  ldir
_056C  ex   de,hl
_056D  ld   hl,$9A30
_0570  ld   a,($9A75)
_0573  add  a,l
_0574  ld   l,a
_0575  ld   a,(hl)
_0576  ex   de,hl
_0577  rst  $10
_0578  ld   ($9A7A),hl
_057B  ld   a,(hl)
_057C  inc  a
_057D  jp   z,_068B
_0580  ld   de,$06A9
_0583  ld   hl,($9A7A)
_0586  ld   a,(hl)
_0587  and  $0F
_0589  ex   de,hl
_058A  rst  $08
_058B  ld   c,(hl)
_058C  inc  hl
_058D  ld   b,(hl)
_058E  ex   de,hl
_058F  ld   a,(hl)
_0590  rrca
_0591  rrca
_0592  rrca
_0593  rrca
_0594  and  $0F
_0596  jr   z,_059F
_0598  srl  b
_059A  rr   c
_059C  dec  a
_059D  jr   nz,_0598
_059F  ld   a,($9A77)
_05A2  and  a
_05A3  jr   z,_05B2
_05A5  dec  a
_05A6  jr   z,_05AD
_05A8  ld   hl,$9A6B
_05AB  jr   _05B5
_05AD  ld   hl,$9A66
_05B0  jr   _05B5
_05B2  ld   hl,$9A61
_05B5  ld   (hl),c
_05B6  ld   a,(hl)
_05B7  rrca
_05B8  rrca
_05B9  rrca
_05BA  rrca
_05BB  inc  hl
_05BC  ld   (hl),a
_05BD  inc  hl
_05BE  ld   (hl),b
_05BF  ld   a,(hl)
_05C0  rrca
_05C1  rrca
_05C2  rrca
_05C3  rrca
_05C4  inc  hl
_05C5  ld   (hl),a
_05C6  ld   a,($9A77)
_05C9  and  a
_05CA  jr   z,_05D9
_05CC  dec  a
_05CD  jr   z,_05D4
_05CF  ld   de,$9A6F
_05D2  jr   _05DC
_05D4  ld   de,$9A6A
_05D7  jr   _05DC
_05D9  ld   de,$9A65
_05DC  ld   hl,($9A7A)
_05DF  ld   a,(hl)
_05E0  sub  $0C
_05E2  jr   z,_0628
_05E4  ld   a,($9A88)
_05E7  and  a
_05E8  jr   z,_060D
_05EA  dec  a
_05EB  jr   z,_05FD
_05ED  ld   hl,$9A00
_05F0  ld   a,($9A75)
_05F3  add  a,l
_05F4  ld   l,a
_05F5  ld   a,(hl)
_05F6  cp   $06
_05F8  jr   nc,_060D
_05FA  cpl
_05FB  jr   _062D

_05FD  ld   hl,$9A00
_0600  ld   a,($9A75)
_0603  add  a,l
_0604  ld   l,a
_0605  ld   a,(hl)
_0606  cp   $06
_0608  jr   nc,_060D
_060A  add  a,a
_060B  jr   _062D
_060D  ld   a,($9A89)
_0610  and  a
_0611  jr   z,_062B
_0613  ld   b,a
_0614  ld   hl,$9A00
_0617  ld   a,($9A75)
_061A  add  a,l
_061B  ld   l,a
_061C  ld   a,(hl)
_061D  sub  b
_061E  jr   c,_062B
_0620  sub  $0A
_0622  jr   nc,_0628
_0624  neg
_0626  jr   _062D

_0628  xor  a
_0629  jr   _062D

_062B  ld   a,$0A
_062D  ld   (de),a
_062E  ld   hl,$9A70
_0631  ld   a,($9A77)
_0634  add  a,l
_0635  ld   l,a
_0636  ld   a,($9A8A)
_0639  ld   (hl),a
_063A  ld   hl,$07A6
_063D  ld   a,($9A74)
_0640  rst  $10
_0641  ld   a,(hl)
_0642  ld   hl,($9A7A)
_0645  inc  hl
_0646  ld   e,(hl)
_0647  ld   d,$00
_0649  ld   hl,$0000
_064C  ld   b,$08
_064E  srl  a
_0650  jr   nc,_0653
_0652  add  hl,de
_0653  sla  e
_0655  rl   d
_0657  djnz _064E
_0659  ld   b,l
_065A  ld   hl,$9A00
_065D  ld   a,($9A75)
_0660  add  a,l
_0661  ld   l,a
_0662  ld   a,b
_0663  cp   (hl)
_0664  ret  nz
_0665  ld   hl,$9A30
_0668  ld   a,($9A75)
_066B  add  a,l
_066C  ld   l,a
_066D  inc  (hl)
_066E  inc  (hl)
_066F  ld   hl,$9A00
_0672  ld   a,($9A75)
_0675  add  a,l
_0676  ld   l,a
_0677  ld   (hl),$00
_0679  ret


_067A  ld   hl,$9A00    ;  s.a. 00AD
_067D  ld   (hl),$00
_067F  ld   de,$9A01
_0682  ld   bc,$00FF
_0685  ldir
_0687  ld   sp,$9B00
_068A  ret


_068B  ld   a,($9A77)       ; jp;d here, s.a. 057D
_068E  and  a
_068F  jr   z,_069E
_0691  dec  a
_0692  jr   z,_0699
_0694  ld   hl,$9A6F
_0697  jr   _06A1

_0699  ld   hl,$9A6A
_069C  jr   _06A1

_069E  ld   hl,$9A65
_06A1  ld   (hl),$00
_06A3  ld   a,$01
_06A5  ld   ($9A78),a
_06A8  ret


_06A9  ; s.a. _0580
; _0703  ; s.a. _037B, _0403, _0450, _04A8
; _0748  ; s.a. _055C
; _07A6  ; s.a. _063A

       defb $50,$81,$00,$89,$26,$91,$C8,$99,$EC,$A2,$9D,$AC,$E0,$B6,$C0,$C1
       defb $45,$CD,$7A,$D9,$69,$E6,$1C,$F4,$00,$00,$30,$01,$68,$01,$36,$01
       defb $A8,$01,$68,$01,$00,$02,$AC,$01,$08,$02,$00,$FE,$58,$FE,$08,$FE
       defb $98,$FE,$58,$FE,$D0,$FE,$98,$FE,$D6,$FE,$00,$5B,$00,$6C,$00,$5B
       defb $00,$7E,$00,$6C,$00,$97,$00,$81,$00,$99,$00,$D9,$00,$B6,$00,$D9
       defb $00,$97,$00,$B6,$00,$7E,$00,$99,$00,$81,$00,$01,$00,$01,$01,$01
       defb $02,$01,$01,$03,$01,$01,$04,$01,$01,$05,$01,$00,$06,$01,$00,$20
       defb $03,$00,$0A,$03,$00,$0D,$03,$00,$07,$03,$00,$13,$03,$00,$16,$03
       defb $00,$19,$03,$00,$1C,$03,$00,$1F,$01,$02,$2C,$03,$00,$10,$03,$00
       defb $23,$01,$00,$24,$01,$00,$25,$03,$00,$28,$01,$00,$29,$03,$00,$BD
       defb $07,$14,$08,$F2,$07,$BE,$07,$5E,$08,$78,$08,$8C,$08,$D2,$09,$E2
       defb $09,$F2,$09,$9C,$09,$AE,$09,$C0,$09,$02,$0A,$46,$0A,$8A,$0A,$B6
       defb $0A,$FA,$0A,$3E,$0B,$A0,$08,$EC,$08,$36,$09,$5C,$0C,$EA,$0C,$38
       defb $0D,$66,$09,$78,$09,$8A,$09,$A0,$08,$A0,$08,$A0,$08,$08,$0C,$6A
       defb $0B,$A0,$0B,$D6,$0B,$F4,$0B,$08,$0C,$6C,$0D,$E0,$0D,$5C,$0E,$5E
       defb $0D,$E0,$0C,$2E,$0D,$54,$0D,$9E,$0E,$DA,$0E,$16,$0F,$04,$02,$02
       defb $02,$02,$04,$04,$0A,$07,$0C,$0B,$04,$0A,$0D,$04,$01,$04,$0C,$02
       defb $06,$05,$02,$0A,$FF,$00,$00,$06,$71,$01,$72,$01,$73,$01,$75,$01
       defb $74,$01,$73,$01,$72,$01,$71,$01,$70,$01,$8B,$01,$8A,$01,$0C,$04
       defb $86,$01,$87,$01,$88,$01,$89,$01,$8A,$01,$89,$01,$88,$01,$87,$01
       defb $86,$01,$85,$01,$84,$01,$83,$01,$FF,$00,$00,$04,$88,$01,$8A,$01
       defb $70,$01,$71,$01,$73,$01,$75,$01,$77,$01,$78,$01,$0C,$06,$74,$01
       defb $73,$01,$72,$01,$71,$01,$70,$01,$8B,$01,$FF,$00,$00,$07,$89,$01
       defb $8A,$01,$8B,$01,$0C,$01,$70,$01,$71,$01,$72,$01,$0C,$01,$73,$01
       defb $74,$01,$75,$01,$0C,$03,$8B,$01,$70,$01,$71,$01,$0C,$01,$72,$01
       defb $73,$01,$74,$01,$0C,$01,$75,$01,$76,$01,$77,$01,$0C,$03,$71,$01
       defb $72,$01,$73,$01,$0C,$01,$74,$01,$75,$01,$76,$01,$0C,$01,$77,$01
       defb $78,$01,$79,$01,$FF,$00,$00,$05,$71,$01,$72,$01,$73,$01,$0C,$01
       defb $74,$01,$75,$01,$76,$01,$0C,$01,$77,$01,$78,$01,$79,$01,$FF,$00
       defb $00,$04,$61,$01,$7A,$01,$60,$01,$78,$01,$7A,$01,$76,$01,$78,$01
       defb $75,$01,$FF,$00,$00,$00,$76,$01,$79,$01,$60,$01,$63,$01,$66,$01
       defb $63,$01,$60,$01,$79,$01,$FF,$00,$00,$07,$81,$08,$81,$01,$86,$03
       defb $88,$09,$8B,$03,$8A,$09,$86,$03,$88,$09,$73,$03,$71,$09,$86,$03
       defb $88,$09,$8B,$03,$8A,$09,$86,$03,$71,$09,$75,$03,$76,$09,$74,$03
       defb $72,$09,$71,$03,$8B,$09,$89,$03,$88,$09,$84,$03,$74,$09,$76,$03
       defb $74,$09,$71,$03,$73,$04,$8B,$04,$88,$04,$71,$04,$8A,$04,$88,$04
       defb $0C,$10,$FF,$00,$00,$06,$8A,$09,$81,$03,$88,$09,$83,$03,$86,$09
       defb $81,$03,$83,$09,$85,$03,$8A,$09,$81,$03,$88,$09,$83,$03,$86,$09
       defb $81,$03,$88,$09,$71,$03,$72,$09,$71,$03,$8B,$09,$89,$03,$88,$09
       defb $86,$03,$84,$09,$88,$03,$89,$09,$8B,$03,$89,$09,$86,$03,$8B,$04
       defb $88,$04,$83,$04,$88,$04,$85,$04,$83,$04,$0C,$10,$FF,$00,$00,$07
       defb $81,$0C,$83,$09,$86,$03,$85,$0C,$81,$0C,$86,$0C,$88,$09,$8B,$03
       defb $8A,$0C,$88,$0C,$89,$0C,$88,$09,$86,$03,$84,$0C,$89,$0C,$74,$0C
       defb $71,$09,$89,$03,$88,$0C,$71,$09,$8A,$03,$0C,$10,$FF,$02,$00,$03
       defb $78,$02,$0C,$01,$78,$01,$79,$01,$7B,$01,$61,$03,$0C,$03,$FF,$02
       defb $00,$03,$73,$02,$0C,$01,$73,$01,$74,$01,$76,$01,$78,$03,$0C,$02
       defb $FF,$02,$00,$03,$70,$02,$0C,$01,$70,$01,$71,$01,$73,$01,$75,$03
       defb $0C,$02,$FF,$01,$00,$04,$78,$01,$7A,$01,$63,$01,$78,$01,$7A,$01
       defb $63,$01,$65,$03,$FF,$01,$00,$05,$73,$01,$78,$01,$7A,$01,$73,$01
       defb $78,$01,$7A,$01,$60,$03,$FF,$01,$00,$07,$8A,$01,$73,$01,$78,$01
       defb $8A,$01,$73,$01,$78,$01,$7A,$03,$FF,$01,$06,$04,$7A,$01,$78,$01
       defb $7A,$01,$61,$01,$65,$01,$68,$03,$FF,$01,$06,$04,$78,$01,$75,$01
       defb $78,$01,$7A,$01,$61,$01,$65,$03,$FF,$01,$06,$04,$75,$01,$71,$01
       defb $75,$01,$78,$01,$7A,$01,$60,$03,$FF,$02,$04,$03,$7A,$01,$76,$01
       defb $78,$01,$75,$01,$76,$01,$73,$01,$75,$01,$72,$01,$73,$01,$8A,$01
       defb $8B,$01,$88,$01,$86,$01,$85,$01,$83,$01,$82,$01,$83,$01,$86,$01
       defb $85,$01,$88,$01,$86,$01,$8A,$01,$88,$01,$8B,$01,$8A,$01,$73,$01
       defb $72,$01,$73,$01,$75,$01,$8A,$01,$70,$01,$72,$01,$FF,$02,$04,$03
       defb $76,$01,$73,$01,$75,$01,$72,$01,$73,$01,$70,$01,$72,$01,$8A,$01
       defb $8B,$01,$86,$01,$88,$01,$85,$01,$83,$01,$82,$01,$80,$01,$9A,$01
       defb $9A,$01,$83,$01,$82,$01,$85,$01,$83,$01,$86,$01,$85,$01,$88,$01
       defb $86,$01,$8A,$01,$88,$01,$8B,$01,$8A,$01,$88,$01,$86,$01,$85,$01
       defb $FF,$02,$10,$03,$93,$02,$9A,$02,$83,$03,$9A,$01,$98,$01,$96,$01
       defb $95,$01,$93,$02,$95,$03,$96,$02,$98,$02,$9A,$02,$9B,$02,$9A,$02
       defb $98,$01,$96,$01,$95,$01,$92,$01,$93,$01,$95,$01,$FF,$02,$04,$03
       defb $7A,$01,$77,$01,$78,$01,$75,$01,$77,$01,$73,$01,$75,$01,$72,$01
       defb $73,$01,$8A,$01,$80,$01,$88,$01,$87,$01,$85,$01,$83,$01,$82,$01
       defb $83,$01,$87,$01,$85,$01,$88,$01,$87,$01,$8A,$01,$88,$01,$80,$01
       defb $8A,$01,$73,$01,$72,$01,$73,$01,$75,$01,$8A,$01,$70,$01,$72,$01
       defb $FF,$02,$04,$03,$77,$01,$73,$01,$75,$01,$72,$01,$73,$01,$70,$01
       defb $72,$01,$8A,$01,$80,$01,$87,$01,$88,$01,$85,$01,$83,$01,$82,$01
       defb $80,$01,$9A,$01,$9A,$01,$83,$01,$82,$01,$85,$01,$83,$01,$87,$01
       defb $85,$01,$88,$01,$87,$01,$8A,$01,$88,$01,$80,$01,$8A,$01,$88,$01
       defb $87,$01,$85,$01,$FF,$02,$10,$03,$93,$02,$9A,$02,$83,$03,$9A,$01
       defb $98,$01,$97,$01,$95,$01,$93,$02,$95,$03,$97,$02,$98,$02,$9A,$02
       defb $90,$02,$9A,$02,$98,$01,$97,$01,$95,$01,$92,$01,$93,$01,$95,$01
       defb $FF,$02,$04,$03,$7A,$01,$76,$01,$78,$01,$75,$01,$76,$01,$73,$01
       defb $75,$01,$72,$01,$73,$01,$8A,$01,$8A,$01,$88,$01,$86,$01,$85,$01
       defb $83,$01,$82,$01,$83,$01,$85,$01,$86,$01,$88,$01,$86,$01,$8A,$01
       defb $70,$01,$72,$01,$73,$04,$FF,$02,$04,$03,$76,$01,$73,$01,$75,$01
       defb $72,$01,$73,$01,$70,$01,$72,$01,$8A,$01,$8A,$01,$86,$01,$86,$01
       defb $85,$01,$83,$01,$82,$01,$80,$01,$9A,$01,$9A,$01,$8B,$01,$80,$01
       defb $82,$01,$83,$01,$85,$01,$86,$01,$88,$01,$8A,$04,$FF,$02,$10,$03
       defb $73,$02,$75,$02,$76,$02,$75,$02,$73,$02,$72,$02,$70,$02,$72,$02
       defb $73,$02,$8B,$02,$8A,$02,$86,$02,$83,$04,$FF,$00,$00,$04,$71,$04
       defb $73,$04,$71,$04,$73,$04,$76,$04,$78,$04,$76,$04,$78,$04,$FF,$00
       defb $00,$06,$56,$01,$55,$01,$54,$01,$53,$01,$52,$01,$51,$01,$50,$01
       defb $6B,$01,$6A,$01,$69,$01,$68,$01,$67,$01,$66,$01,$65,$01,$64,$01
       defb $63,$01,$62,$01,$61,$01,$60,$01,$7B,$01,$7A,$01,$79,$01,$78,$01
       defb $77,$01,$76,$01,$75,$01,$74,$01,$73,$01,$72,$01,$71,$01,$70,$01
       defb $8B,$01,$8A,$01,$89,$01,$88,$01,$87,$01,$86,$01,$85,$01,$84,$01
       defb $83,$01,$FF,$02,$04,$05,$60,$01,$78,$01,$75,$01,$71,$01,$60,$01
       defb $78,$01,$75,$01,$71,$01,$60,$01,$78,$01,$75,$01,$71,$01,$60,$01
       defb $78,$01,$75,$01,$71,$01,$60,$01,$78,$01,$75,$01,$71,$01,$60,$01
       defb $78,$01,$75,$01,$71,$01,$60,$01,$0C,$01,$78,$01,$7A,$01,$75,$01
       defb $78,$01,$73,$01,$75,$01,$61,$01,$7A,$01,$76,$01,$73,$01,$61,$01
       defb $7A,$01,$76,$01,$73,$01,$61,$01,$7A,$01,$76,$01,$73,$01,$61,$01
       defb $7A,$01,$76,$01,$73,$01,$61,$01,$79,$01,$76,$01,$73,$01,$61,$01
       defb $79,$01,$76,$01,$73,$01,$61,$01,$0C,$01,$79,$01,$61,$01,$78,$01
       defb $79,$01,$75,$01,$78,$01,$FF,$02,$02,$05,$60,$01,$60,$01,$60,$01
       defb $FF,$02,$04,$05,$61,$02,$78,$02,$78,$02,$61,$02,$78,$02,$78,$02
       defb $61,$02,$78,$02,$78,$02,$61,$02,$78,$02,$78,$02,$61,$02,$78,$02
       defb $7A,$02,$75,$02,$63,$02,$7A,$02,$7A,$02,$63,$02,$7A,$02,$7A,$02
       defb $63,$02,$7A,$02,$79,$02,$63,$02,$79,$02,$79,$02,$63,$02,$79,$02
       defb $76,$02,$73,$02,$FF,$02,$02,$05,$78,$01,$78,$01,$78,$01,$FF,$02
       defb $10,$05,$85,$06,$85,$06,$85,$06,$85,$06,$85,$04,$85,$04,$86,$06
       defb $86,$06,$86,$06,$86,$06,$86,$04,$86,$04,$FF,$02,$04,$05,$81,$01
       defb $81,$01,$81,$01,$FF,$02,$00,$07,$65,$01,$0C,$01,$61,$01,$0C,$01
       defb $63,$01,$FF,$02,$00,$05,$7A,$05,$0C,$01,$7A,$01,$0C,$01,$7A,$03
       defb $0C,$01,$78,$07,$0C,$01,$78,$07,$0C,$01,$78,$03,$0C,$01,$7B,$05
       defb $0C,$01,$7B,$01,$0C,$01,$7B,$03,$0C,$01,$7A,$07,$0C,$01,$7A,$07
       defb $0C,$01,$7A,$03,$0C,$01,$7B,$01,$0C,$01,$7B,$01,$0C,$03,$7B,$01
       defb $0C,$01,$7B,$03,$0C,$01,$61,$01,$0C,$01,$61,$01,$0C,$03,$61,$01
       defb $0C,$01,$61,$03,$0C,$01,$61,$03,$0C,$01,$61,$03,$0C,$01,$63,$01
       defb $0C,$01,$63,$01,$0C,$03,$63,$01,$0C,$01,$63,$03,$0C,$01,$63,$03
       defb $0C,$01,$63,$03,$0C,$01,$FF,$02,$00,$03,$86,$02,$8A,$02,$71,$02
       defb $76,$02,$86,$02,$8A,$02,$71,$02,$76,$02,$86,$02,$8A,$02,$71,$02
       defb $76,$02,$86,$02,$8A,$02,$71,$02,$76,$02,$86,$02,$8A,$02,$71,$02
       defb $76,$02,$86,$02,$8A,$02,$71,$02,$76,$02,$86,$02,$8A,$02,$71,$02
       defb $76,$02,$86,$02,$8A,$02,$71,$02,$76,$02,$77,$01,$0C,$01,$77,$01
       defb $0C,$03,$77,$01,$0C,$01,$77,$03,$0C,$01,$69,$01,$0C,$01,$69,$01
       defb $0C,$03,$69,$01,$0C,$01,$69,$03,$0C,$01,$69,$03,$0C,$01,$69,$03
       defb $0C,$01,$8B,$02,$73,$02,$76,$02,$7B,$02,$7B,$02,$76,$02,$73,$02
       defb $8B,$02,$FF,$00,$00,$02,$86,$08,$81,$08,$86,$08,$81,$08,$86,$08
       defb $81,$08,$86,$08,$81,$08,$82,$01,$0C,$01,$82,$01,$0C,$03,$82,$01
       defb $0C,$01,$82,$03,$0C,$01,$84,$01,$0C,$01,$84,$01,$0C,$03,$84,$01
       defb $0C,$01,$84,$03,$0C,$01,$84,$03,$0C,$01,$84,$03,$0C,$01,$7B,$08
       defb $76,$04,$8B,$04,$FF,$00,$0C,$05,$75,$0C,$71,$0C,$8A,$0C,$86,$0C
       defb $0C,$09,$75,$03,$71,$09,$8A,$03,$86,$04,$8A,$04,$71,$04,$89,$04
       defb $70,$04,$73,$04,$8B,$0C,$73,$0C,$76,$0C,$78,$0C,$0C,$09,$79,$03
       defb $76,$09,$72,$03,$8B,$04,$89,$04,$86,$04,$72,$04,$89,$04,$76,$04
       defb $FF,$00,$0C,$05,$71,$0C,$8A,$0C,$86,$0C,$85,$0C,$0C,$09,$81,$03
       defb $8A,$09,$86,$03,$85,$04,$86,$04,$8A,$04,$86,$04,$89,$04,$8B,$04
       defb $88,$0C,$8B,$0C,$73,$0C,$76,$0C,$0C,$09,$76,$03,$72,$09,$8B,$03
       defb $8A,$04,$86,$04,$82,$04,$8B,$04,$89,$04,$82,$04,$FF,$00,$00,$03
       defb $75,$18,$75,$18,$75,$18,$71,$0C,$75,$0C,$73,$18,$73,$18,$72,$18
       defb $76,$0C,$78,$0C,$FF,$FA


       org $0FF0
; _0FF0  defb $DE,$AD,$BE,$EF
       org $0FFF
_0FFF  defb $FF ; end of ROM