Code: Select all
0000 31ff5f ld sp,5fffh
0003 c30001 jp 0100h
; Векторы прерываний
0040 0010 dw 1000h
0042 0310 dw 1003h
0044 0c10 dw 100ch
0046 8010 dw 1080h
0048 8b10 dw 108bh
004a 8e10 dw 108eh
004c 9710 dw 1097h
004e e610 dw 10e6h
0050 f110 dw 10f1h
0052 f410 dw 10f4h
0054 f710 dw 10f7h
0056 fa10 dw 10fah
; NMI
0066 fb ei
0067 ed4d reti
0100 d370 out (70h),a
0102 3e00 ld a,00h
0104 ed47 ld i,a
0106 fd210a40 ld iy,400ah
010a 210080 ld hl,8000h
010d 223740 ld (4037h),hl
0110 223940 ld (4039h),hl
0113 210042 ld hl,4200h
0116 223b40 ld (403bh),hl
0119 223d40 ld (403dh),hl
011c af xor a
011d 323540 ld (4035h),a
0120 323640 ld (4036h),a
0123 fd7700 ld (iy+00h),a
0126 d300 out (00h),a
0128 db10 in a,(10h)
012a 57 ld d,a
012b 0e42 ld c,42h
012d 3e18 ld a,18h
012f ed79 out (c),a
0131 3e14 ld a,14h
0133 ed79 out (c),a
0135 3e4c ld a,4ch
0137 ed79 out (c),a
0139 3e13 ld a,13h
013b ed79 out (c),a
013d 3ee1 ld a,0e1h
013f ed79 out (c),a
0141 3e15 ld a,15h
0143 ed79 out (c),a
0145 3ee8 ld a,0e8h
0147 ed79 out (c),a
0149 3e11 ld a,11h
014b ed79 out (c),a
014d 3e1c ld a,1ch
014f ed79 out (c),a
0151 0e43 ld c,43h
0153 3e18 ld a,18h
0155 ed79 out (c),a
0157 3e14 ld a,14h
0159 ed79 out (c),a
015b 0644 ld b,44h
015d cb7a bit 7,d
015f c26401 jp nz,0164h
0162 cbd8 set 3,b
0164 7a ld a,d
0165 e630 and 30h
0167 fe30 cp 30h
0169 ca7501 jp z,0175h
016c cbc0 set 0,b
016e cb62 bit 4,d
0170 ca7501 jp z,0175h
0173 cbc8 set 1,b
0175 78 ld a,b
0176 324c40 ld (404ch),a
0179 ed79 out (c),a
017b 3e13 ld a,13h
017d ed79 out (c),a
017f 3e61 ld a,61h
0181 cb5a bit 3,d
0183 c28801 jp nz,0188h
0186 cbff set 7,a
0188 324d40 ld (404dh),a
018b ed79 out (c),a
018d 3e15 ld a,15h
018f ed79 out (c),a
0191 3ee8 ld a,0e8h
0193 ed79 out (c),a
0195 3e12 ld a,12h
0197 ed79 out (c),a
0199 3e40 ld a,40h
019b ed79 out (c),a
019d 3e11 ld a,11h
019f ed79 out (c),a
01a1 3e1c ld a,1ch
01a3 ed79 out (c),a
01a5 d370 out (70h),a
01a7 3e57 ld a,57h
01a9 d332 out (32h),a
01ab 3e80 ld a,80h
01ad d332 out (32h),a
01af 3e27 ld a,27h
01b1 d333 out (33h),a
01b3 3e02 ld a,02h
01b5 d333 out (33h),a
01b7 7a ld a,d
01b8 e607 and 07h
01ba fe00 cp 00h
01bc cae201 jp z,01e2h
01bf fe01 cp 01h
01c1 caed01 jp z,01edh
01c4 fe02 cp 02h
01c6 caf801 jp z,01f8h
01c9 fe03 cp 03h
01cb ca0302 jp z,0203h
01ce fe04 cp 04h
01d0 ca0e02 jp z,020eh
01d3 fe05 cp 05h
01d5 ca1902 jp z,0219h
01d8 fe06 cp 06h
01da ca2402 jp z,0224h
01dd fe07 cp 07h
01df ca2f02 jp z,022fh
01e2 3e57 ld a,57h
01e4 d331 out (31h),a
01e6 3e0d ld a,0dh
01e8 d331 out (31h),a
01ea c33702 jp 0237h
01ed 3e57 ld a,57h
01ef d331 out (31h),a
01f1 3e0d ld a,0dh
01f3 d331 out (31h),a
01f5 c33702 jp 0237h
01f8 3e57 ld a,57h
01fa d331 out (31h),a
01fc 3e1a ld a,1ah
01fe d331 out (31h),a
0200 c33702 jp 0237h
0203 3e57 ld a,57h
0205 d331 out (31h),a
0207 3e34 ld a,34h
0209 d331 out (31h),a
020b c33702 jp 0237h
020e 3e17 ld a,17h
0210 d331 out (31h),a
0212 3e0d ld a,0dh
0214 d331 out (31h),a
0216 c33702 jp 0237h
0219 3e17 ld a,17h
021b d331 out (31h),a
021d 3e1a ld a,1ah
021f d331 out (31h),a
0221 c33702 jp 0237h
0224 3e17 ld a,17h
0226 d331 out (31h),a
0228 3e34 ld a,34h
022a d331 out (31h),a
022c c33702 jp 0237h
022f 3e17 ld a,17h
0231 d331 out (31h),a
0233 3e8e ld a,8eh
0235 d331 out (31h),a
0237 3e57 ld a,57h
0239 d330 out (30h),a
023b 3e0d ld a,0dh
023d d330 out (30h),a
023f db20 in a,(20h)
0241 e6e0 and 0e0h
0243 fe00 cp 00h
0245 c24d02 jp nz,024dh
0248 3ec8 ld a,0c8h
024a c38e02 jp 028eh
024d fe20 cp 20h
024f c25702 jp nz,0257h
0252 3e64 ld a,64h
0254 c38e02 jp 028eh
0257 fe40 cp 40h
0259 c26102 jp nz,0261h
025c 3e32 ld a,32h
025e c38e02 jp 028eh
0261 fe60 cp 60h
0263 c26b02 jp nz,026bh
0266 3e14 ld a,14h
0268 c38e02 jp 028eh
026b fe80 cp 80h
026d c27502 jp nz,0275h
0270 3e0a ld a,0ah
0272 c38e02 jp 028eh
0275 fea0 cp 0a0h
0277 c27f02 jp nz,027fh
027a 3e05 ld a,05h
027c c38e02 jp 028eh
027f fec0 cp 0c0h
0281 c28902 jp nz,0289h
0284 3e02 ld a,02h
0286 c38e02 jp 028eh
0289 3e02 ld a,02h
028b c38e02 jp 028eh
028e 323440 ld (4034h),a
0291 ed5e im 2
0293 fb ei
0294 3eff ld a,0ffh
0296 324740 ld (4047h),a
0299 210000 ld hl,0000h
029c 224a40 ld (404ah),hl
029f af xor a
02a0 324640 ld (4046h),a
02a3 324840 ld (4048h),a
02a6 324940 ld (4049h),a
02a9 3eff ld a,0ffh
02ab 321e40 ld (401eh),a
02ae 321f40 ld (401fh),a
02b1 322040 ld (4020h),a
02b4 322140 ld (4021h),a
02b7 322240 ld (4022h),a
02ba 322840 ld (4028h),a
02bd 322940 ld (4029h),a
02c0 322a40 ld (402ah),a
02c3 322b40 ld (402bh),a
02c6 322c40 ld (402ch),a
02c9 d370 out (70h),a
02cb cdaa03 call 03aah
02ce 3e01 ld a,01h
02d0 d343 out (43h),a
02d2 db43 in a,(43h)
02d4 cb47 bit 0,a
02d6 c28503 jp nz,0385h
02d9 3e01 ld a,01h
02db d342 out (42h),a
02dd db42 in a,(42h)
02df cb47 bit 0,a
02e1 cac902 jp z,02c9h
02e4 3a4840 ld a,(4048h)
02e7 feff cp 0ffh
02e9 cac902 jp z,02c9h
02ec f3 di
02ed 3a3640 ld a,(4036h)
02f0 47 ld b,a
02f1 3a3540 ld a,(4035h)
02f4 b8 cp b
02f5 c20903 jp nz,0309h
02f8 2a3940 ld hl,(4039h)
02fb eb ex de,hl
02fc 2a3740 ld hl,(4037h)
02ff af xor a
0300 ed52 sbc hl,de
0302 c20903 jp nz,0309h
0305 fb ei
0306 c3c902 jp 02c9h
0309 2a3940 ld hl,(4039h)
030c fb ei
030d 3a3440 ld a,(4034h)
0310 57 ld d,a
0311 06ff ld b,0ffh
0313 10fe djnz 0313h
0315 d370 out (70h),a
0317 15 dec d
0318 c21103 jp nz,0311h
031b 7e ld a,(hl)
031c d340 out (40h),a
031e f3 di
031f 23 inc hl
0320 7c ld a,h
0321 fe00 cp 00h
0323 c23b03 jp nz,033bh
0326 210080 ld hl,8000h
0329 3a3640 ld a,(4036h)
032c 3c inc a
032d fe20 cp 20h
032f c23303 jp nz,0333h
0332 af xor a
0333 323640 ld (4036h),a
0336 d300 out (00h),a
0338 fd7700 ld (iy+00h),a
033b 223940 ld (4039h),hl
033e 3a4940 ld a,(4049h)
0341 fe00 cp 00h
0343 283c jr z,0381h
0345 2a3740 ld hl,(4037h)
0348 ed5b3940 ld de,(4039h)
034c 3a3640 ld a,(4036h)
034f 47 ld b,a
0350 3a3540 ld a,(4035h)
0353 3c inc a
0354 3c inc a
0355 e61f and 1fh
0357 90 sub b
0358 2810 jr z,036ah
035a 3025 jr nc,0381h
035c 3a3540 ld a,(4035h)
035f b8 cp b
0360 281f jr z,0381h
0362 3c inc a
0363 e61f and 1fh
0365 b8 cp b
0366 2819 jr z,0381h
0368 1805 jr 036fh
036a af xor a
036b ed52 sbc hl,de
036d 3012 jr nc,0381h
036f 3e05 ld a,05h
0371 d343 out (43h),a
0373 3ee8 ld a,0e8h
0375 d343 out (43h),a
0377 3e11 ld a,11h
0379 324640 ld (4046h),a
037c 3e00 ld a,00h
037e 324940 ld (4049h),a
0381 fb ei
0382 c3c902 jp 02c9h
0385 f3 di
0386 2a3d40 ld hl,(403dh)
0389 eb ex de,hl
038a 2a3b40 ld hl,(403bh)
038d fb ei
038e af xor a
038f ed52 sbc hl,de
0391 cad902 jp z,02d9h
0394 2a3d40 ld hl,(403dh)
0397 7e ld a,(hl)
0398 d341 out (41h),a
039a 23 inc hl
039b 7c ld a,h
039c fe46 cp 46h
039e c2a403 jp nz,03a4h
03a1 210042 ld hl,4200h
03a4 223d40 ld (403dh),hl
03a7 c3d902 jp 02d9h
03aa f5 push af
03ab c5 push bc
03ac d5 push de
03ad e5 push hl
03ae fde5 push iy
03b0 3a4640 ld a,(4046h)
03b3 fe00 cp 00h
03b5 ca0d04 jp z,040dh
03b8 f3 di
03b9 06ff ld b,0ffh
03bb fe11 cp 11h
03bd 2034 jr nz,03f3h
03bf 0e43 ld c,43h
03c1 3e18 ld a,18h
03c3 ed79 out (c),a
03c5 3e14 ld a,14h
03c7 ed79 out (c),a
03c9 3a4c40 ld a,(404ch)
03cc ed79 out (c),a
03ce 3e13 ld a,13h
03d0 ed79 out (c),a
03d2 3a4d40 ld a,(404dh)
03d5 ed79 out (c),a
03d7 3e15 ld a,15h
03d9 ed79 out (c),a
03db 3ee8 ld a,0e8h
03dd ed79 out (c),a
03df 3e12 ld a,12h
03e1 ed79 out (c),a
03e3 3e40 ld a,40h
03e5 ed79 out (c),a
03e7 3e11 ld a,11h
03e9 ed79 out (c),a
03eb 3e1c ld a,1ch
03ed ed79 out (c),a
03ef 3e11 ld a,11h
03f1 0600 ld b,00h
03f3 2a3b40 ld hl,(403bh)
03f6 77 ld (hl),a
03f7 af xor a
03f8 324640 ld (4046h),a
03fb 78 ld a,b
03fc 324940 ld (4049h),a
03ff 23 inc hl
0400 7c ld a,h
0401 fe46 cp 46h
0403 c20904 jp nz,0409h
0406 210042 ld hl,4200h
0409 223b40 ld (403bh),hl
040c fb ei
040d fde1 pop iy
040f e1 pop hl
0410 d1 pop de
0411 c1 pop bc
0412 f1 pop af
0413 c9 ret
0414 f5 push af
0415 3e0a ld a,0ah
0417 cd2a04 call 042ah
041a 3d dec a
041b 20fa jr nz,0417h
041d f1 pop af
041e c9 ret
041f f5 push af
0420 3e05 ld a,05h
0422 cd2a04 call 042ah
0425 3d dec a
0426 20fa jr nz,0422h
0428 f1 pop af
0429 c9 ret
042a c5 push bc
042b 0eb4 ld c,0b4h
042d 06ff ld b,0ffh
042f 10fe djnz 042fh
0431 0d dec c
0432 20f9 jr nz,042dh
0434 c1 pop bc
0435 c9 ret
0436 c5 push bc
0437 0e0a ld c,0ah
0439 06ff ld b,0ffh
043b 10fe djnz 043bh
043d 0d dec c
043e 20f9 jr nz,0439h
0440 c1 pop bc
0441 c9 ret
0442 c5 push bc
0443 0e01 ld c,01h
0445 06ff ld b,0ffh
0447 10fe djnz 0447h
0449 0d dec c
044a 20f9 jr nz,0445h
044c c1 pop bc
044d c9 ret
044e c5 push bc
044f 060a ld b,0ah
0451 10fe djnz 0451h
0453 c1 pop bc
0454 c9 ret
1000 fb ei
1001 ed4d reti
1003 f5 push af
1004 3e10 ld a,10h
1006 d343 out (43h),a
1008 f1 pop af
1009 fb ei
100a ed4d reti
100c f5 push af
100d c5 push bc
100e d5 push de
100f e5 push hl
1010 fde5 push iy
1012 d370 out (70h),a
1014 2a4a40 ld hl,(404ah)
1017 23 inc hl
1018 224a40 ld (404ah),hl
101b 3a3540 ld a,(4035h)
101e d300 out (00h),a
1020 fd7700 ld (iy+00h),a
1023 2a3740 ld hl,(4037h)
1026 db41 in a,(41h)
1028 e67f and 7fh
102a 77 ld (hl),a
102b 23 inc hl
102c 7c ld a,h
102d fe00 cp 00h
102f c24210 jp nz,1042h
1032 210080 ld hl,8000h
1035 3a3540 ld a,(4035h)
1038 3c inc a
1039 fe20 cp 20h
103b c23f10 jp nz,103fh
103e af xor a
103f 323540 ld (4035h),a
1042 223740 ld (4037h),hl
1045 ed5b3940 ld de,(4039h)
1049 3a3640 ld a,(4036h)
104c 47 ld b,a
104d 3a3540 ld a,(4035h)
1050 3c inc a
1051 e61f and 1fh
1053 b8 cp b
1054 2807 jr z,105dh
1056 3a3540 ld a,(4035h)
1059 b8 cp b
105a 2013 jr nz,106fh
105c eb ex de,hl
105d af xor a
105e ed52 sbc hl,de
1060 380d jr c,106fh
1062 3e05 ld a,05h
1064 d343 out (43h),a
1066 3e68 ld a,68h
1068 d343 out (43h),a
106a 3e13 ld a,13h
106c 324640 ld (4046h),a
106f 3a3640 ld a,(4036h)
1072 d300 out (00h),a
1074 fd7700 ld (iy+00h),a
1077 fde1 pop iy
1079 e1 pop hl
107a d1 pop de
107b c1 pop bc
107c f1 pop af
107d fb ei
107e ed4d reti
1080 f5 push af
1081 3e30 ld a,30h
1083 d343 out (43h),a
1085 db41 in a,(41h)
1087 f1 pop af
1088 fb ei
1089 ed4d reti
108b fb ei
108c ed4d reti
108e f5 push af
108f 3e10 ld a,10h
1091 d342 out (42h),a
1093 f1 pop af
1094 fb ei
1095 ed4d reti
1097 f5 push af
1098 c5 push bc
1099 d5 push de
109a e5 push hl
109b fde5 push iy
109d db40 in a,(40h)
109f 47 ld b,a
10a0 fe11 cp 11h
10a2 c2ba10 jp nz,10bah
10a5 af xor a
10a6 324840 ld (4048h),a
10a9 3a4740 ld a,(4047h)
10ac feff cp 0ffh
10ae c2dd10 jp nz,10ddh
10b1 af xor a
10b2 324740 ld (4047h),a
10b5 0611 ld b,11h
10b7 c3cc10 jp 10cch
10ba fe13 cp 13h
10bc c2c710 jp nz,10c7h
10bf 3eff ld a,0ffh
10c1 324840 ld (4048h),a
10c4 c3dd10 jp 10ddh
10c7 3eff ld a,0ffh
10c9 324740 ld (4047h),a
10cc 2a3b40 ld hl,(403bh)
10cf 70 ld (hl),b
10d0 23 inc hl
10d1 7c ld a,h
10d2 fe46 cp 46h
10d4 c2da10 jp nz,10dah
10d7 210042 ld hl,4200h
10da 223b40 ld (403bh),hl
10dd fde1 pop iy
10df e1 pop hl
10e0 d1 pop de
10e1 c1 pop bc
10e2 f1 pop af
10e3 fb ei
10e4 ed4d reti
10e6 f5 push af
10e7 3e30 ld a,30h
10e9 d342 out (42h),a
10eb db40 in a,(40h)
10ed f1 pop af
10ee fb ei
10ef ed4d reti
10f1 fb ei
10f2 ed4d reti
10f4 fb ei
10f5 ed4d reti
10f7 fb ei
10f8 ed4d reti
10fa f5 push af
10fb e5 push hl
10fc 3e33 ld a,33h
10fe d333 out (33h),a
1100 3a1e40 ld a,(401eh)
1103 feff cp 0ffh
1105 ca1b11 jp z,111bh
1108 fe00 cp 00h
110a c21711 jp nz,1117h
110d 3eff ld a,0ffh
110f 322840 ld (4028h),a
1112 321e40 ld (401eh),a
1115 1804 jr 111bh
1117 3d dec a
1118 321e40 ld (401eh),a
111b 3a1f40 ld a,(401fh)
111e feff cp 0ffh
1120 2812 jr z,1134h
1122 fe00 cp 00h
1124 200a jr nz,1130h
1126 3eff ld a,0ffh
1128 322940 ld (4029h),a
112b 321f40 ld (401fh),a
112e 1804 jr 1134h
1130 3d dec a
1131 321f40 ld (401fh),a
1134 3a2040 ld a,(4020h)
1137 feff cp 0ffh
1139 ca5011 jp z,1150h
113c fe00 cp 00h
113e c24c11 jp nz,114ch
1141 3eff ld a,0ffh
1143 322a40 ld (402ah),a
1146 322040 ld (4020h),a
1149 c35011 jp 1150h
114c 3d dec a
114d 322040 ld (4020h),a
1150 3a2140 ld a,(4021h)
1153 feff cp 0ffh
1155 2812 jr z,1169h
1157 fe00 cp 00h
1159 200a jr nz,1165h
115b 3eff ld a,0ffh
115d 322b40 ld (402bh),a
1160 322140 ld (4021h),a
1163 1804 jr 1169h
1165 3d dec a
1166 322140 ld (4021h),a
1169 3a2240 ld a,(4022h)
116c feff cp 0ffh
116e 2810 jr z,1180h
1170 fe00 cp 00h
1172 2008 jr nz,117ch
1174 3eff ld a,0ffh
1176 322c40 ld (402ch),a
1179 322240 ld (4022h),a
117c 3d dec a
117d 322240 ld (4022h),a
1180 3eb7 ld a,0b7h
1182 d333 out (33h),a
1184 3eff ld a,0ffh
1186 d333 out (33h),a
1188 e1 pop hl
1189 f1 pop af
118a fb ei
118b ed4d reti
118d 47 01 50 db 47h,01h,50h
1190 27 01 27 db 27h,01h,27h
1195 02 27 02 db 02h,27h,02h