Код:
FC80 3180FC ld sp,FC80
FC83 3E02 ld a,02
FC85 32BEFE ld (FEBE),a
FC88 CD54FD call FD54
FC8B 21CAFE ld hl,FECA
FC8E 1600 ld d,00
FC90 0E09 ld c,09
FC92 CDE6FD call FDE6
FC95 3E03 ld a,03
FC97 32BEFE ld (FEBE),a
FC9A CD46FD call FD46
FC9D 3E01 ld a,01
FC9F 210040 ld hl,4000
FCA2 CD8AFD call FD8A
FCA5 3E02 ld a,02
FCA7 21405E ld hl,5E40
FCAA CD8AFD call FD8A
FCAD 3E03 ld a,03
FCAF 21809E ld hl,9E80
FCB2 CD8AFD call FD8A
FCB5 CD3EFD call FD3E
FCB8 3E04 ld a,04
FCBA 210000 ld hl,0000
FCBD CD8AFD call FD8A
FCC0 3E05 ld a,05
FCC2 210040 ld hl,4000
FCC5 CD8AFD call FD8A
FCC8 CD3AFD call FD3A
FCCB 3E06 ld a,06
FCCD 210000 ld hl,0000
FCD0 CD8AFD call FD8A
FCD3 3E07 ld a,07
FCD5 210040 ld hl,4000
FCD8 CD8AFD call FD8A
FCDB 3E08 ld a,08
FCDD 210080 ld hl,8000
FCE0 CD8AFD call FD8A
FCE3 CD46FD call FD46
FCE6 1610 ld d,10
FCE8 21809E ld hl,9E80
FCEB D9 exx
FCEC 312F75 ld sp,752F
FCEF 210058 ld hl,5800
FCF2 110158 ld de,5801
FCF5 01FF02 ld bc,02FF
FCF8 75 ld (hl),l
FCF9 EDB0 ldir
FCFB 2109FD ld hl,FD09
FCFE 11C05D ld de,5DC0
FD01 013100 ld bc,0031
FD04 EDB0 ldir
FD06 C3C05D jp 5DC0
;5dc0
FD09 01FD1F ld bc,1FFD
FD0C 3E04 ld a,04
FD0E ED79 out (c),a
;включаем +3DOS пзу
FD10 01FD7F ld bc,7FFD
FD13 3E13 ld a,13
FD15 ED79 out (c),a
;включаем 3 страницу памяти
FD17 21405E ld hl,5E40
FD1A 1100C0 ld de,C000
FD1D 010040 ld bc,4000
FD20 EDB0 ldir
;копируем данные в 3ю страницу - (видимо 128 музыка)
FD22 21405E ld hl,5E40
FD25 3600 ld (hl),00
FD27 11415E ld de,5E41
FD2A 01F83F ld bc,3FF8
FD2D EDB0 ldir
;чистим место под загрузку уровней
FD2F 215827 ld hl,2758
FD32 D9 exx
FD33 01FD7F ld bc,7FFD
FD36 7A ld a,d
FD37 ED79 out (c),a
;включаем страницу 0
;переходим на #9e80
FD39 E9 jp (hl)
FD3A 3E0F ld a,0F
FD3C 1802 jr FD40
;Включаем мотор дисковода
;включаем конфигурацию 4763
FD3E 3E09 ld a,09
;Выключаем мотор дисковода
;включаем конфигурацию 0123
FD40 01FD1F ld bc,1FFD
FD43 ED79 out (c),a
FD45 C9 ret
FD46 3E13 ld a,13
FD48 01FD7F ld bc,7FFD
FD4B ED79 out (c),a
FD4D 3E0C ld a,0C
FD4F 061F ld b,1F
FD51 ED79 out (c),a
;включаем страницу 3
;включаем мотор
;включаем +3DOS
FD53 C9 ret
FD54 0603 ld b,03
;имеем 3 попытки
FD56 C5 push bc
FD57 210080 ld hl,8000
FD5A E5 push hl
;чтото грузим по адресу 8000
FD5B 1600 ld d,00
FD5D 0E02 ld c,02
FD5F CDE6FD call FDE6
FD62 210085 ld hl,8500
FD65 E5 push hl
;чтото грузим по адресу 8500
FD66 1600 ld d,00
FD68 0E02 ld c,02
FD6A CDE6FD call FDE6
FD6D 010002 ld bc,0200
FD70 E1 pop hl
FD71 D1 pop de
FD72 1A ld a,(de)
FD73 BE cp (hl)
FD74 2012 jr nz,FD88
FD76 23 inc hl
FD77 13 inc de
FD78 0B dec bc
FD79 78 ld a,b
FD7A B1 or c
FD7B 20F5 jr nz,FD72
;вот тут сравниваем #200 байтов загруженного
;если одно и тоже читаем 3 раза подряд
;то видимо косяк
;иначе - выход
FD7D C1 pop bc
FD7E 10D6 djnz FD56
FD80 2188FD ld hl,FD88
FD83 3623 ld (hl),23
FD85 23 inc hl
FD86 18FB jr FD83
;рисуем матрац
FD88 C1 pop bc
FD89 C9 ret
FD8A DD21CAFE ld ix,FECA
FD8E 4F ld c,a
FD8F DD7E00 ld a,(ix+00)
FD92 B9 cp c
FD93 280A jr z,FD9F
FD95 DD23 inc ix
FD97 DD23 inc ix
FD99 DD23 inc ix
FD9B DD23 inc ix
FD9D 18F0 jr FD8F
FD9F DD5601 ld d,(ix+01)
FDA2 DD5E02 ld e,(ix+02)
FDA5 DD4603 ld b,(ix+03)
FDA8 3E06 ld a,06
FDAA 93 sub e
FDAB B8 cp b
FDAC 3807 jr c,FDB5
FDAE 7B ld a,e
FDAF 80 add a,b
FDB0 3D dec a
FDB1 4F ld c,a
FDB2 C3D2FD jp FDD2
FDB5 0E05 ld c,05
FDB7 C5 push bc
FDB8 F5 push af
FDB9 E5 push hl
FDBA D5 push de
FDBB CDD2FD call FDD2
FDBE D1 pop de
FDBF E1 pop hl
FDC0 F1 pop af
FDC1 C1 pop bc
FDC2 5F ld e,a
FDC3 78 ld a,b
FDC4 93 sub e
FDC5 47 ld b,a
FDC6 CB23 sla e
FDC8 CB23 sla e
FDCA 7C ld a,h
FDCB 83 add a,e
FDCC 67 ld h,a
FDCD 1E01 ld e,01
FDCF 14 inc d
FDD0 18D6 jr FDA8
FDD2 7A ld a,d
FDD3 32B2FE ld (FEB2),a
FDD6 32BBFE ld (FEBB),a
FDD9 2213FE ld (FE13),hl
FDDC 7B ld a,e
FDDD 32BDFE ld (FEBD),a
FDE0 79 ld a,c
FDE1 32BFFE ld (FEBF),a
FDE4 1811 jr FDF7
FDE6 7A ld a,d
FDE7 32B2FE ld (FEB2),a
FDEA 32BBFE ld (FEBB),a
FDED 2213FE ld (FE13),hl
FDF0 79 ld a,c
FDF1 32BDFE ld (FEBD),a
FDF4 32BFFE ld (FEBF),a
FDF7 11B5FE ld de,FEB5
FDFA CD2FFE call FE2F
FDFD 3AC2FE ld a,(FEC2)
FE00 B7 or a
FE01 20F4 jr nz,FDF7
FE03 11AFFE ld de,FEAF
FE06 CD19FE call FE19
FE09 11B5FE ld de,FEB5
FE0C CD2FFE call FE2F
FE0F 11B8FE ld de,FEB8
FE12 210000 ld hl,0000
FE15 CD37FE call FE37
FE18 C9 ret
FE19 CD2AFE call FE2A
FE1C 11B3FE ld de,FEB3
FE1F CD2FFE call FE2F
FE22 21C2FE ld hl,FEC2
FE25 CB6E bit 5,(hl)
FE27 28F3 jr z,FE1C
FE29 C9 ret
FE2A 0182FE ld bc,FE82
FE2D 180B jr FE3A
FE2F 0164FE ld bc,FE64
FE32 21C2FE ld hl,FEC2
FE35 1803 jr FE3A
FE37 0159FE ld bc,FE59
FE3A ED4351FE ld (FE51),bc
FE3E 1A ld a,(de)
FE3F 47 ld b,a
FE40 13 inc de
FE41 C5 push bc
FE42 1A ld a,(de)
FE43 13 inc de
FE44 CD88FE call FE88
FE47 C1 pop bc
FE48 10F7 djnz FE41
FE4A 01FD2F ld bc,2FFD
FE4D 111020 ld de,2010
FE50 C359FE jp FE59
FE53 063F ld b,3F
FE55 EDA2 ini
FE57 062F ld b,2F
FE59 ED78 in a,(c)
FE5B F259FE jp p,FE59
FE5E A2 and d
FE5F 20F2 jr nz,FE53
FE61 21C2FE ld hl,FEC2
FE64 ED78 in a,(c)
FE66 FEC0 cp C0
FE68 38FA jr c,FE64
FE6A 063F ld b,3F
FE6C EDA2 ini
FE6E 062F ld b,2F
FE70 3E05 ld a,05
FE72 3D dec a
FE73 20FD jr nz,FE72
FE75 ED78 in a,(c)
FE77 A3 and e
FE78 20EA jr nz,FE64
FE7A 3AC3FE ld a,(FEC3)
FE7D E604 and 04
FE7F C0 ret nz
FE80 37 scf
FE81 C9 ret
FE82 ED78 in a,(c)
FE84 F282FE jp p,FE82
FE87 C9 ret
FE88 01FD2F ld bc,2FFD
FE8B F5 push af
FE8C ED78 in a,(c)
FE8E 87 add a,a
FE8F 30FB jr nc,FE8C
FE91 87 add a,a
FE92 3002 jr nc,FE96
FE94 F1 pop af
FE95 C9 ret
FE96 F1 pop af
FE97 063F ld b,3F
FE99 ED79 out (c),a
FE9B 062F ld b,2F
FE9D 3E05 ld a,05
FE9F 3D dec a
FEA0 00 nop
FEA1 20FC jr nz,FE9F
FEA3 C9 ret
FEA4 210000 ld hl,0000
FEA7 2B dec hl
FEA8 7C ld a,h
FEA9 B5 or l
FEAA 20FB jr nz,FEA7
FEAC 10F9 djnz FEA7
FEAE C9 ret
FEAF 03 0F 00 00 01 08 02 4A 00 09 4C 00 00 00 01 02 09 2A FF
FEC2 00
FEC3 00
FEC4 00
FEC5 00
FEC6 00
FEC7 00
FEC8 00
FEC9 00
FECA 00 nop
FECB 00 nop
FECC 00 nop
FECD 00 nop
FECE 00 nop
FECF 00 nop
FED0 00 nop
Ответить с цитированием
Сообщение от Vadim
