Sunday, June 08 2008: Pac Man Source Code
From here:
;; 4e66 last state coin inputs shifted left by 1
;; 4e6b #coins per #credits
;; 4e6c #left over coins (partial credits)
;; 4e6d #credits per #coins
;; 4e6e #credits
;; 4e6f #lives per game
;; 4e80-4e83 P1 score
;; 4e84-4e87 P2 score
;; 4e88-4e8b High score
;; 4370 #players (0=1, 1=2)
Starting address: 0
Ending address: 16383
Output file: (none)
Pass 1 of 1
0000 f3 di ; Disable interrupts
0001 3e3f ld a,#3f
0003 ed47 ld i,a ; Interrupt page = 0x3f
0005 c30b23 jp #230b ; Run startup tests
;; Fill "hl" to "hl+b" with "a"
0008 77 ld (hl),a
0009 23 inc hl
000a 10fc djnz #0008 ; (-4)
000c c9 ret
000d c30e07 jp #070e
;; hl = hl + a, (hl) -> a
0010 85 add a,l
0011 6f ld l,a
0012 3e00 ld a,#00
0014 8c adc a,h
0015 67 ld h,a
0016 7e ld a,(hl)
0017 c9 ret
;; Some sort of table lookup
;; hl = hl + 2*b, (hl) -> e, (++hl) -> d, de -> hl
;; (Used to add up scores!)
0018 78 ld a,b ; b -> a
0019 87 add a,a ; 2*a -> a
001a d7 rst #10
001b 5f ld e,a
001c 23 inc hl
001d 56 ld d,(hl)
001e eb ex de,hl
001f c9 ret
0020 e1 pop hl
0021 87 add a,a
0022 d7 rst #10
0023 5f ld e,a
0024 23 inc hl
0025 56 ld d,(hl)
0026 eb ex de,hl
0027 e9 jp (hl)
0028 e1 pop hl
0029 46 ld b,(hl)
002a 23 inc hl
002b 4e ld c,(hl)
002c 23 inc hl
002d e5 push hl
002e 1812 jr #0042 ; (18)
0030 11904c ld de,#4c90
0033 0610 ld b,#10
0035 c35100 jp #0051
;; Loop waiting for interrupt?
0038 af xor a
0039 320050 ld (#5000),a
003c 320750 ld (#5007),a
003f c33800 jp #0038
;; Weird routine
;; (#4c80) spins through 4cc0 to 4cff
;; bc -> ((#4c80)), (#4c80++)
0042 2a804c ld hl,(#4c80)
0045 70 ld (hl),b
0046 2c inc l
0047 71 ld (hl),c
0048 2c inc l
0049 2002 jr nz,#004d ; (2)
004b 2ec0 ld l,#c0
004d 22804c ld (#4c80),hl
0050 c9 ret
;; Jump from rst 0x30
0051 1a ld a,(de)
0052 a7 and a
0053 2806 jr z,#005b ; (6)
0055 1c inc e
0056 1c inc e
0057 1c inc e
0058 10f7 djnz #0051 ; (-9)
005a c9 ret
005b e1 pop hl
005c 0603 ld b,#03
005e 7e ld a,(hl)
005f 12 ld (de),a
0060 23 inc hl
0061 1c inc e
0062 10fa djnz #005e ; (-6)
0064 e9 jp (hl)
0065 c32d20 jp #202d
0068 00 nop
0069 010203 ld bc,#0302
006c 04 inc b
006d 05 dec b
006e 0607 ld b,#07
0070 08 ex af,af'
0071 09 add hl,bc
0072 0a ld a,(bc)
0073 0b dec bc
0074 0c inc c
0075 0d dec c
0076 0e0f ld c,#0f
0078 1011 djnz #008b ; (17)
007a 12 ld (de),a
007b 13 inc de
007c 14 inc d
007d 010304 ld bc,#0403
0080 0607 ld b,#07
0082 08 ex af,af'
0083 09 add hl,bc
0084 0a ld a,(bc)
0085 0b dec bc
0086 0c inc c
0087 0d dec c
0088 0e0f ld c,#0f
008a 1011 djnz #009d ; (17)
008c 14 inc d
;; Non-test mode interrupt routine
008d f5 push af
008e 32c050 ld (#50c0),a ; Kick watchdog
0091 af xor a
0092 320050 ld (#5000),a ; Disable interrupts (hardware)
0095 f3 di ; Disable interrupts (CPU)
0096 c5 push bc
0097 d5 push de
0098 e5 push hl
0099 dde5 push ix
009b fde5 push iy
009d 218c4e ld hl,#4e8c ; Write freq/volume for sound regs
00a0 115050 ld de,#5050
00a3 011000 ld bc,#0010
00a6 edb0 ldir
00a8 3acc4e ld a,(#4ecc) ; Useless read
00ab a7 and a
;; Write sound waveforms
00ac 3acf4e ld a,(#4ecf)
00af 2003 jr nz,#00b4 ; (3)
00b1 3a9f4e ld a,(#4e9f)
00b4 324550 ld (#5045),a
00b7 3adc4e ld a,(#4edc)
00ba a7 and a
00bb 3adf4e ld a,(#4edf)
00be 2003 jr nz,#00c3 ; (3)
00c0 3aaf4e ld a,(#4eaf)
00c3 324a50 ld (#504a),a
00c6 3aec4e ld a,(#4eec)
00c9 a7 and a
00ca 3aef4e ld a,(#4eef)
00cd 2003 jr nz,#00d2 ; (3)
00cf 3abf4e ld a,(#4ebf)
00d2 324f50 ld (#504f),a
00d5 21024c ld hl,#4c02
00d8 11224c ld de,#4c22
00db 011c00 ld bc,#001c
00de edb0 ldir
00e0 dd21204c ld ix,#4c20
00e4 dd7e02 ld a,(ix+#02)
00e7 07 rlca
00e8 07 rlca
00e9 dd7702 ld (ix+#02),a
00ec dd7e04 ld a,(ix+#04)
00ef 07 rlca
00f0 07 rlca
00f1 dd7704 ld (ix+#04),a
00f4 dd7e06 ld a,(ix+#06)
00f7 07 rlca
00f8 07 rlca
00f9 dd7706 ld (ix+#06),a
00fc dd7e08 ld a,(ix+#08)
00ff 07 rlca
0100 07 rlca
0101 dd7708 ld (ix+#08),a
0104 dd7e0a ld a,(ix+#0a)
0107 07 rlca
0108 07 rlca
0109 dd770a ld (ix+#0a),a
010c dd7e0c ld a,(ix+#0c)
010f 07 rlca
0110 07 rlca
0111 dd770c ld (ix+#0c),a
0114 3ad14d ld a,(#4dd1)
0117 fe01 cp #01
0119 2038 jr nz,#0153 ; (56)
011b dd21204c ld ix,#4c20
011f 3aa44d ld a,(#4da4)
0122 87 add a,a
0123 5f ld e,a
0124 1600 ld d,#00
0126 dd19 add ix,de
0128 2a244c ld hl,(#4c24)
012b ed5b344c ld de,(#4c34)
012f dd7e00 ld a,(ix+#00)
0131 32244c ld (#4c24),a
0135 dd7e01 ld a,(ix+#01)
0138 32254c ld (#4c25),a
013b dd7e10 ld a,(ix+#10)
013e 32344c ld (#4c34),a
0141 dd7e11 ld a,(ix+#11)
0144 32354c ld (#4c35),a
0147 dd7500 ld (ix+#00),l
014a dd7401 ld (ix+#01),h
014d dd7310 ld (ix+#10),e
0150 dd7211 ld (ix+#11),d
0153 3aa64d ld a,(#4da6)
0156 a7 and a
0157 ca7601 jp z,#0176
015a ed4b224c ld bc,(#4c22)
015e ed5b324c ld de,(#4c32)
0162 2a2a4c ld hl,(#4c2a)
0165 22224c ld (#4c22),hl
0168 2a3a4c ld hl,(#4c3a)
016b 22324c ld (#4c32),hl
016e ed432a4c ld (#4c2a),bc
0172 ed533a4c ld (#4c3a),de
0176 21224c ld hl,#4c22
0179 11f24f ld de,#4ff2
017c 010c00 ld bc,#000c
017f edb0 ldir
0181 21324c ld hl,#4c32
0184 116250 ld de,#5062
0187 010c00 ld bc,#000c
018a edb0 ldir
018c cddc01 call #01dc
018f cd2102 call #0221
0192 cdc803 call #03c8
0195 3a004e ld a,(#4e00)
0198 a7 and a
0199 2812 jr z,#01ad ; (18)
019b cd9d03 call #039d
019e cd9014 call #1490
01a1 cd1f14 call #141f
01a4 cd6702 call #0267
01a7 cdad02 call #02ad
01aa cdfd02 call #02fd
01ad 3a004e ld a,(#4e00)
01b0 3d dec a
01b1 2006 jr nz,#01b9 ; (6)
01b3 32ac4e ld (#4eac),a
01b6 32bc4e ld (#4ebc),a
01b9 cd0c2d call #2d0c
01bc cdc12c call #2cc1
01bf fde1 pop iy
01c1 dde1 pop ix
01c3 e1 pop hl
01c4 d1 pop de
01c5 c1 pop bc
01c6 3a004e ld a,(#4e00)
01c9 a7 and a
01ca 2808 jr z,#01d4 ; (8)
01cc 3a4050 ld a,(#5040) ; Check test switch
01cf e610 and #10
01d1 ca0000 jp z,#0000 ; Reset if test
01d4 3e01 ld a,#01 ; Enable interrupts (hardware)
01d6 320050 ld (#5000),a
01d9 fb ei ; Enable interrupts (CPU)
01da f1 pop af
01db c9 ret
01dc 21844c ld hl,#4c84
01df 34 inc (hl)
01e0 23 inc hl
01e1 35 dec (hl)
01e2 23 inc hl
01e3 111902 ld de,#0219
01e6 010104 ld bc,#0401
01e9 34 inc (hl)
01ea 7e ld a,(hl)
01eb e60f and #0f
01ed eb ex de,hl
01ee be cp (hl)
01ef 2013 jr nz,#0204 ; (19)
01f1 0c inc c
01f2 1a ld a,(de)
01f3 c610 add a,#10
01f5 e6f0 and #f0
01f7 12 ld (de),a
01f8 23 inc hl
01f9 be cp (hl)
01fa 2008 jr nz,#0204 ; (8)
01fc 0c inc c
01fd eb ex de,hl
01fe 3600 ld (hl),#00
0200 23 inc hl
0201 13 inc de
0202 10e5 djnz #01e9 ; (-27)
0204 218a4c ld hl,#4c8a
0207 71 ld (hl),c
0208 2c inc l
0209 7e ld a,(hl)
020a 87 add a,a
020b 87 add a,a
020c 86 add a,(hl)
020d 3c inc a
020e 77 ld (hl),a
020f 2c inc l
0210 7e ld a,(hl)
0211 87 add a,a
0212 86 add a,(hl)
0213 87 add a,a
0214 87 add a,a
0215 86 add a,(hl)
0216 3c inc a
0217 77 ld (hl),a
0218 c9 ret
0219 06a0 ld b,#a0
021b 0a ld a,(bc)
021c 60 ld h,b
021d 0a ld a,(bc)
021e 60 ld h,b
021f 0a ld a,(bc)
0220 a0 and b
0221 21904c ld hl,#4c90
0224 3a8a4c ld a,(#4c8a)
0227 4f ld c,a
0228 0610 ld b,#10
022a 7e ld a,(hl)
022b a7 and a
022c 282f jr z,#025d ; (47)
022e e6c0 and #c0
0230 07 rlca
0231 07 rlca
0232 b9 cp c
0233 3028 jr nc,#025d ; (40)
0235 35 dec (hl)
0236 7e ld a,(hl)
0237 e63f and #3f
0239 2022 jr nz,#025d ; (34)
023b 77 ld (hl),a
023c c5 push bc
023d e5 push hl
023e 2c inc l
023f 7e ld a,(hl)
0240 2c inc l
0241 46 ld b,(hl)
0242 215b02 ld hl,#025b
0245 e5 push hl
0246 e7 rst #20
0247 94 sub h
0248 08 ex af,af'
0249 a3 and e
024a 068e ld b,#8e
024c 05 dec b
024d 72 ld (hl),d
024e 12 ld (de),a
024f 00 nop
0250 100b djnz #025d ; (11)
0252 1063 djnz #02b7 ; (99)
0254 02 ld (bc),a
0255 2b dec hl
0256 21f021 ld hl,#21f0
0259 b9 cp c
025a 22e1c1 ld (#c1e1),hl
025d 2c inc l
025e 2c inc l
025f 2c inc l
0260 10c8 djnz #022a ; (-56)
0262 c9 ret
0263 ef rst #28
0264 1c inc e
0265 86 add a,(hl)
0266 c9 ret
0267 3a6e4e ld a,(#4e6e)
026a fe99 cp #99
026c 17 rla
026d 320650 ld (#5006),a
0270 1f rra
0271 d0 ret nc
;; Check/debounce coin inputs
0272 3a0050 ld a,(#5000)
0275 47 ld b,a
0276 cb00 rlc b
0278 3a664e ld a,(#4e66)
027b 17 rla
027c e60f and #0f
027e 32664e ld (#4e66),a
0281 d60c sub #0c
0283 ccdf02 call z,#02df ; Add Coin
0286 cb00 rlc b
0288 3a674e ld a,(#4e67)
028b 17 rla
028c e60f and #0f
028e 32674e ld (#4e67),a
0291 d60c sub #0c
0293 c29a02 jp nz,#029a
0296 21694e ld hl,#4e69
0299 34 inc (hl)
029a cb00 rlc b
029c 3a684e ld a,(#4e68)
029f 17 rla
02a0 e60f and #0f
02a2 32684e ld (#4e68),a
02a5 d60c sub #0c
02a7 c0 ret nz
02a8 21694e ld hl,#4e69
02ab 34 inc (hl)
02ac c9 ret
02ad 3a694e ld a,(#4e69)
02b0 a7 and a
02b1 c8 ret z
02b2 47 ld b,a
02b3 3a6a4e ld a,(#4e6a)
02b6 5f ld e,a
02b7 fe00 cp #00
02b9 c2c402 jp nz,#02c4
02bc 3e01 ld a,#01
02be 320750 ld (#5007),a
02c1 cddf02 call #02df
02c4 7b ld a,e
02c5 fe08 cp #08
02c7 c2ce02 jp nz,#02ce
02ca af xor a
02cb 320750 ld (#5007),a
02ce 1c inc e
02cf 7b ld a,e
02d0 326a4e ld (#4e6a),a
02d3 d610 sub #10
02d5 c0 ret nz
02d6 326a4e ld (#4e6a),a
02d9 05 dec b
02da 78 ld a,b
02db 32694e ld (#4e69),a
02de c9 ret
;; Coins -> credits routine
02df 3a6b4e ld a,(#4e6b) ; #coins per #credits
02e2 216c4e ld hl,#4e6c ; #leftover coins
02e5 34 inc (hl) ; add 1
02e6 96 sub (hl)
02e7 c0 ret nz ; not enough coins for credit
02e8 77 ld (hl),a ; store leftover coins
02e9 3a6d4e ld a,(#4e6d) ; #credits per #coins
02ec 216e4e ld hl,#4e6e ; #credits
02ef 86 add a,(hl) ; add # credits
02f0 27 daa
02f1 d2f602 jp nc,#02f6
02f4 3e99 ld a,#99
02f6 77 ld (hl),a ; store #credits, max 99
02f7 219c4e ld hl,#4e9c
02fa cbce set 1,(hl) ; set bit 1 of 4e9c
02fc c9 ret
02fd 21ce4d ld hl,#4dce
0300 34 inc (hl)
0301 7e ld a,(hl)
0302 e60f and #0f
0304 201f jr nz,#0325 ; (31)
0306 7e ld a,(hl)
0307 0f rrca
0308 0f rrca
0309 0f rrca
030a 0f rrca
030b 47 ld b,a
030c 3ad64d ld a,(#4dd6)
030f 2f cpl
0310 b0 or b
0311 4f ld c,a
0312 3a6e4e ld a,(#4e6e)
0315 d601 sub #01
0317 3002 jr nc,#031b ; (2)
0319 af xor a
031a 4f ld c,a
031b 2801 jr z,#031e ; (1)
031d 79 ld a,c
031e 320550 ld (#5005),a
0321 79 ld a,c
0322 320450 ld (#5004),a
0325 dd21d843 ld ix,#43d8
0329 fd21c543 ld iy,#43c5
032d 3a004e ld a,(#4e00)
0330 fe03 cp #03
0332 ca4403 jp z,#0344
0335 3a034e ld a,(#4e03)
0338 fe02 cp #02
033a d24403 jp nc,#0344
033d cd6903 call #0369
0340 cd7603 call #0376
0343 c9 ret
0344 3a094e ld a,(#4e09)
0347 a7 and a
0348 3ace4d ld a,(#4dce)
034b c25903 jp nz,#0359
034e cb67 bit 4,a
0350 cc6903 call z,#0369
0353 c48303 call nz,#0383
0356 c36103 jp #0361
0359 cb67 bit 4,a
035b cc7603 call z,#0376
035e c49003 call nz,#0390
0361 3a704e ld a,(#4e70)
0364 a7 and a
0365 cc9003 call z,#0390
0368 c9 ret
0369 dd360050 ld (ix+#00),#50
036d dd360155 ld (ix+#01),#55
0371 dd360231 ld (ix+#02),#31
0375 c9 ret
0376 fd360050 ld (iy+#00),#50
037a fd360155 ld (iy+#01),#55
037e fd360232 ld (iy+#02),#32
0382 c9 ret
0383 dd360040 ld (ix+#00),#40
0387 dd360140 ld (ix+#01),#40
038b dd360240 ld (ix+#02),#40
038f c9 ret
0390 fd360040 ld (iy+#00),#40
0394 fd360140 ld (iy+#01),#40
0398 fd360240 ld (iy+#02),#40
039c c9 ret
039d 3a064e ld a,(#4e06)
03a0 d605 sub #05
03a2 d8 ret c
03a3 2a084d ld hl,(#4d08)
03a6 0608 ld b,#08
03a8 0e10 ld c,#10
03aa 7d ld a,l
03ab 32064d ld (#4d06),a
03ae 32d24d ld (#4dd2),a
03b1 91 sub c
03b2 32024d ld (#4d02),a
03b5 32044d ld (#4d04),a
03b8 7c ld a,h
03b9 80 add a,b
03ba 32034d ld (#4d03),a
03bd 32074d ld (#4d07),a
03c0 91 sub c
03c1 32054d ld (#4d05),a
03c4 32d34d ld (#4dd3),a
03c7 c9 ret
03c8 3a004e ld a,(#4e00)
03cb e7 rst #20
03cc d403fe call nc,#fe03
03cf 03 inc bc
03d0 e5 push hl
03d1 05 dec b
03d2 be cp (hl)
03d3 063a ld b,#3a
03d5 014ee7 ld bc,#e74e
03d8 dc030c call c,#0c03
03db 00 nop
03dc ef rst #28
03dd 00 nop
03de 00 nop
03df ef rst #28
03e0 0600 ld b,#00
03e2 ef rst #28
03e3 0100ef ld bc,#ef00
03e6 14 inc d
03e7 00 nop
03e8 ef rst #28
03e9 1800 jr #03eb ; (0)
03eb ef rst #28
03ec 04 inc b
03ed 00 nop
03ee ef rst #28
03ef 1e00 ld e,#00
03f1 ef rst #28
03f2 07 rlca
03f3 00 nop
03f4 21014e ld hl,#4e01
03f7 34 inc (hl)
03f8 210150 ld hl,#5001
03fb 3601 ld (hl),#01
03fd c9 ret
;; Can't find a jump to here?!
03fe cda12b call #2ba1 ; Write # credits on screen
0401 3a6e4e ld a,(#4e6e)
0404 a7 and a
0405 280c jr z,#0413 ; No credits -> 0x13
0407 af xor a
0408 32044e ld (#4e04),a
040b 32024e ld (#4e02),a
040e 21004e ld hl,#4e00
0411 34 inc (hl)
0412 c9 ret
0413 3a024e ld a,(#4e02)
0416 e7 rst #20
0417 5f ld e,a
0418 04 inc b
0419 0c inc c
041a 00 nop
041b 71 ld (hl),c
041c 04 inc b
041d 0c inc c
041e 00 nop
041f 7f ld a,a
0420 04 inc b
0421 0c inc c
0422 00 nop
0423 85 add a,l
0424 04 inc b
0425 0c inc c
0426 00 nop
0427 8b adc a,e
0428 04 inc b
0429 0c inc c
042a 00 nop
042b 99 sbc a,c
042c 04 inc b
042d 0c inc c
042e 00 nop
042f 9f sbc a,a
0430 04 inc b
0431 0c inc c
0432 00 nop
0433 a5 and l
0434 04 inc b
0435 0c inc c
0436 00 nop
0437 b3 or e
0438 04 inc b
0439 0c inc c
043a 00 nop
043b b9 cp c
043c 04 inc b
043d 0c inc c
043e 00 nop
043f bf cp a
0440 04 inc b
0441 0c inc c
0442 00 nop
0443 cd040c call #0c04
0446 00 nop
0447 d304 out (#04),a
0449 0c inc c
044a 00 nop
044b d8 ret c
044c 04 inc b
044d 0c inc c
044e 00 nop
044f e0 ret po
0450 04 inc b
0451 0c inc c
0452 00 nop
0453 1c inc e
0454 05 dec b
0455 4b ld c,e
0456 05 dec b
0457 56 ld d,(hl)
0458 05 dec b
0459 61 ld h,c
045a 05 dec b
045b 6c ld l,h
045c 05 dec b
045d 7c ld a,h
045e 05 dec b
045f ef rst #28
0460 00 nop
0461 01ef01 ld bc,#01ef
0464 00 nop
0465 ef rst #28
0466 04 inc b
0467 00 nop
0468 ef rst #28
0469 1e00 ld e,#00
046b 0e0c ld c,#0c
046d cd8505 call #0585
0470 c9 ret
0471 210443 ld hl,#4304
0474 3e01 ld a,#01
0476 cdbf05 call #05bf
0479 0e0c ld c,#0c
047b cd8505 call #0585
047e c9 ret
047f 0e14 ld c,#14
0481 cd9305 call #0593
0484 c9 ret
0485 0e0d ld c,#0d
0487 cd9305 call #0593
048a c9 ret
048b 210743 ld hl,#4307
048e 3e03 ld a,#03
0490 cdbf05 call #05bf
0493 0e0c ld c,#0c
0495 cd8505 call #0585
0498 c9 ret
0499 0e16 ld c,#16
049b cd9305 call #0593
049e c9 ret
049f 0e0f ld c,#0f
04a1 cd9305 call #0593
04a4 c9 ret
04a5 210a43 ld hl,#430a
04a8 3e05 ld a,#05
04aa cdbf05 call #05bf
04ad 0e0c ld c,#0c
04af cd8505 call #0585
04b2 c9 ret
04b3 0e33 ld c,#33
04b5 cd9305 call #0593
04b8 c9 ret
04b9 0e2f ld c,#2f
04bb cd9305 call #0593
04be c9 ret
04bf 210d43 ld hl,#430d
04c2 3e07 ld a,#07
04c4 cdbf05 call #05bf
04c7 0e0c ld c,#0c
04c9 cd8505 call #0585
04cc c9 ret
04cd 0e35 ld c,#35
04cf cd9305 call #0593
04d2 c9 ret
04d3 0e31 ld c,#31
04d5 c38005 jp #0580
04d8 ef rst #28
04d9 1c inc e
04da 110e12 ld de,#120e
04dd c38505 jp #0585
04e0 0e13 ld c,#13
04e2 cd8505 call #0585
04e5 cd7908 call #0879
04e8 35 dec (hl)
04e9 ef rst #28
04ea 1100ef ld de,#ef00
04ed 05 dec b
04ee 01ef10 ld bc,#10ef
04f1 14 inc d
04f2 ef rst #28
04f3 04 inc b
04f4 013e01 ld bc,#013e
04f7 32144e ld (#4e14),a
04fa af xor a
04fb 32704e ld (#4e70),a
04fe 32154e ld (#4e15),a
0501 213243 ld hl,#4332
0504 3614 ld (hl),#14
0506 3efc ld a,#fc
0508 112000 ld de,#0020
050b 061c ld b,#1c
050d dd214040 ld ix,#4040
0511 dd7711 ld (ix+#11),a
0514 dd7713 ld (ix+#13),a
0517 dd19 add ix,de
0519 10f6 djnz #0511 ; (-10)
051b c9 ret
051c 21a04d ld hl,#4da0
051f 0621 ld b,#21
0521 3a3a4d ld a,(#4d3a)
0524 90 sub b
0525 2005 jr nz,#052c ; (5)
0527 3601 ld (hl),#01
0529 c38e05 jp #058e
052c cd1710 call #1017
052f cd1710 call #1017
0532 cd230e call #0e23
0535 cd0d0c call #0c0d
0538 cdd60b call #0bd6
053b cda505 call #05a5
053e cdfe1e call #1efe
0541 cd251f call #1f25
0544 cd4c1f call #1f4c
0547 cd731f call #1f73
054a c9 ret
054b 21a14d ld hl,#4da1
054e 0620 ld b,#20
0550 3a324d ld a,(#4d32)
0553 c32405 jp #0524
0556 21a24d ld hl,#4da2
0559 0622 ld b,#22
055b 3a324d ld a,(#4d32)
055e c32405 jp #0524
0561 21a34d ld hl,#4da3
0564 0624 ld b,#24
0566 3a324d ld a,(#4d32)
0569 c32405 jp #0524
056c 3ad04d ld a,(#4dd0)
056f 47 ld b,a
0570 3ad14d ld a,(#4dd1)
0573 80 add a,b
0574 fe06 cp #06
0576 ca8e05 jp z,#058e
0579 c32c05 jp #052c
057c cdbe06 call #06be
057f c9 ret
0580 3a754e ld a,(#4e75)
0583 81 add a,c
0584 4f ld c,a
0585 061c ld b,#1c
0587 cd4200 call #0042
058a f7 rst #30
058b 4a ld c,d
058c 02 ld (bc),a
058d 00 nop
058e 21024e ld hl,#4e02
0591 34 inc (hl)
0592 c9 ret
0593 3a754e ld a,(#4e75)
0596 81 add a,c
0597 4f ld c,a
0598 061c ld b,#1c
059a cd4200 call #0042
059d f7 rst #30
059e 45 ld b,l
059f 02 ld (bc),a
05a0 00 nop
05a1 cd8e05 call #058e
05a4 c9 ret
05a5 3ab54d ld a,(#4db5)
05a8 a7 and a
05a9 c8 ret z
05aa af xor a
05ab 32b54d ld (#4db5),a
05ae 3a304d ld a,(#4d30)
05b1 ee02 xor #02
05b3 323c4d ld (#4d3c),a
05b6 47 ld b,a
05b7 21ff32 ld hl,#32ff
05ba df rst #18
05bb 22264d ld (#4d26),hl
05be c9 ret
05bf 36b1 ld (hl),#b1
05c1 2c inc l
05c2 36b3 ld (hl),#b3
05c4 2c inc l
05c5 36b5 ld (hl),#b5
05c7 011e00 ld bc,#001e
05ca 09 add hl,bc
05cb 36b0 ld (hl),#b0
05cd 2c inc l
05ce 36b2 ld (hl),#b2
05d0 2c inc l
05d1 36b4 ld (hl),#b4
05d3 110004 ld de,#0400
05d6 19 add hl,de
05d7 77 ld (hl),a
05d8 2d dec l
05d9 77 ld (hl),a
05da 2d dec l
05db 77 ld (hl),a
05dc a7 and a
05dd ed42 sbc hl,bc
05df 77 ld (hl),a
05e0 2d dec l
05e1 77 ld (hl),a
05e2 2d dec l
05e3 77 ld (hl),a
05e4 c9 ret
05e5 3a034e ld a,(#4e03)
05e8 e7 rst #20
05e9 f3 di
05ea 05 dec b
05eb 1b dec de
05ec 0674 ld b,#74
05ee 060c ld b,#0c
05f0 00 nop
05f1 a8 xor b
05f2 06cd ld b,#cd
05f4 a1 and c
05f5 2b dec hl
05f6 ef rst #28
05f7 00 nop
05f8 01ef01 ld bc,#01ef
05fb 00 nop
05fc ef rst #28
05fd 1c inc e
05fe 07 rlca
05ff ef rst #28
0600 1c inc e
0601 0b dec bc
0602 ef rst #28
0603 1e00 ld e,#00
0605 21034e ld hl,#4e03
0608 34 inc (hl)
0609 3e01 ld a,#01
060b 32d64d ld (#4dd6),a
060e 3a714e ld a,(#4e71)
0611 feff cp #ff
0613 c8 ret z
0614 ef rst #28
0615 1c inc e
0616 0a ld a,(bc)
0617 ef rst #28
0618 1f rra
0619 00 nop
061a c9 ret
;; Can't find a jump to here!
;; Display 1/2 player and check start buttons
061b cda12b call #2ba1
061e 3a6e4e ld a,(#4e6e) ; Credits
0621 fe01 cp #01
0623 0609 ld b,#09 ; MSG #9
0625 2002 jr nz,#0629 ; >2 credits
0627 0608 ld b,#08 ; MSG #8
0629 cd5e2c call #2c5e
062c 3a6e4e ld a,(#4e6e)
062f fe01 cp #01
0631 3a4050 ld a,(#5040)
0634 280c jr z,#0642 ; Don't check P2 w/ 1 credit
0636 cb77 bit 6,a
0638 2008 jr nz,#0642 ; (8)
063a 3e01 ld a,#01
063c 32704e ld (#4e70),a
063f c34906 jp #0649
0642 cb6f bit 5,a
0644 c0 ret nz
0645 af xor a
0646 32704e ld (#4e70),a
0649 3a6b4e ld a,(#4e6b)
064c a7 and a
064d 2815 jr z,#0664 ; (21)
064f 3a704e ld a,(#4e70)
0652 a7 and a
0653 3a6e4e ld a,(#4e6e)
0656 2803 jr z,#065b ; (3)
0658 c699 add a,#99
065a 27 daa
065b c699 add a,#99
065d 27 daa
065e 326e4e ld (#4e6e),a
0661 cda12b call #2ba1
0664 21034e ld hl,#4e03
0667 34 inc (hl)
0668 af xor a
0669 32d64d ld (#4dd6),a
066c 3c inc a
066d 32cc4e ld (#4ecc),a
0670 32dc4e ld (#4edc),a
0673 c9 ret
0674 ef rst #28
0675 00 nop
0676 01ef01 ld bc,#01ef
0679 01ef02 ld bc,#02ef
067c 00 nop
067d ef rst #28
067e 12 ld (de),a
067f 00 nop
0680 ef rst #28
0681 03 inc bc
0682 00 nop
0683 ef rst #28
0684 1c inc e
0685 03 inc bc
0686 ef rst #28
0687 1c inc e
0688 06ef ld b,#ef
068a 1800 jr #068c ; (0)
068c ef rst #28
068d 1b dec de
068e 00 nop
068f af xor a
0690 32134e ld (#4e13),a
0693 3a6f4e ld a,(#4e6f)
0696 32144e ld (#4e14),a
0699 32154e ld (#4e15),a
069c ef rst #28
069d 1a ld a,(de)
069e 00 nop
069f f7 rst #30
06a0 57 ld d,a
06a1 010021 ld bc,#2100
06a4 03 inc bc
06a5 4e ld c,(hl)
06a6 34 inc (hl)
06a7 c9 ret
06a8 21154e ld hl,#4e15
06ab 35 dec (hl)
06ac cd6a2b call #2b6a
06af af xor a
06b0 32034e ld (#4e03),a
06b3 32024e ld (#4e02),a
06b6 32044e ld (#4e04),a
06b9 21004e ld hl,#4e00
06bc 34 inc (hl)
06bd c9 ret
06be 3a044e ld a,(#4e04)
06c1 e7 rst #20
06c2 79 ld a,c
06c3 08 ex af,af'
06c4 99 sbc a,c
06c5 08 ex af,af'
06c6 0c inc c
06c7 00 nop
06c8 cd080d call #0d08
06cb 09 add hl,bc
06cc 0c inc c
06cd 00 nop
06ce 40 ld b,b
06cf 09 add hl,bc
06d0 0c inc c
06d1 00 nop
06d2 72 ld (hl),d
06d3 09 add hl,bc
06d4 88 adc a,b
06d5 09 add hl,bc
06d6 0c inc c
06d7 00 nop
06d8 d209d8 jp nc,#d809
06db 09 add hl,bc
06dc 0c inc c
06dd 00 nop
06de e8 ret pe
06df 09 add hl,bc
06e0 0c inc c
06e1 00 nop
06e2 fe09 cp #09
06e4 0c inc c
06e5 00 nop
06e6 02 ld (bc),a
06e7 0a ld a,(bc)
06e8 0c inc c
06e9 00 nop
06ea 04 inc b
06eb 0a ld a,(bc)
06ec 0c inc c
06ed 00 nop
06ee 060a ld b,#0a
06f0 0c inc c
06f1 00 nop
06f2 08 ex af,af'
06f3 0a ld a,(bc)
06f4 0c inc c
06f5 00 nop
06f6 0a ld a,(bc)
06f7 0a ld a,(bc)
06f8 0c inc c
06f9 00 nop
06fa 0c inc c
06fb 0a ld a,(bc)
06fc 0c inc c
06fd 00 nop
06fe 0e0a ld c,#0a
0700 0c inc c
0701 00 nop
0702 2c inc l
0703 0a ld a,(bc)
0704 0c inc c
0705 00 nop
0706 7c ld a,h
0707 0a ld a,(bc)
0708 a0 and b
0709 0a ld a,(bc)
070a 0c inc c
070b 00 nop
070c a3 and e
070d 0a ld a,(bc)
070e 78 ld a,b
070f a7 and a
0710 2004 jr nz,#0716 ; (4)
0712 2a0a4e ld hl,(#4e0a)
0715 7e ld a,(hl)
0716 dd219607 ld ix,#0796
071a 47 ld b,a
071b 87 add a,a
071c 87 add a,a
071d 80 add a,b
071e 80 add a,b
071f 5f ld e,a
0720 1600 ld d,#00
0722 dd19 add ix,de
0724 dd7e00 ld a,(ix+#00)
0727 87 add a,a
0728 47 ld b,a
0729 87 add a,a
072a 87 add a,a
072b 4f ld c,a
072c 87 add a,a
072d 87 add a,a
072e 81 add a,c
072f 80 add a,b
0730 5f ld e,a
0731 1600 ld d,#00
0733 210f33 ld hl,#330f
0736 19 add hl,de
0737 cd1408 call #0814
073a dd7e01 ld a,(ix+#01)
073d 32b04d ld (#4db0),a
0740 dd7e02 ld a,(ix+#02)
0743 47 ld b,a
0744 87 add a,a
0745 80 add a,b
0746 5f ld e,a
0747 1600 ld d,#00
0749 214308 ld hl,#0843
074c 19 add hl,de
074d cd3a08 call #083a
0750 dd7e03 ld a,(ix+#03)
0753 87 add a,a
0754 5f ld e,a
0755 1600 ld d,#00
0757 fd214f08 ld iy,#084f
075b fd19 add iy,de
075d fd6e00 ld l,(iy+#00)
0760 fd6601 ld h,(iy+#01)
0763 22bb4d ld (#4dbb),hl
0766 dd7e04 ld a,(ix+#04)
0769 87 add a,a
076a 5f ld e,a
076b 1600 ld d,#00
076d fd216108 ld iy,#0861
0771 fd19 add iy,de
0773 fd6e00 ld l,(iy+#00)
0776 fd6601 ld h,(iy+#01)
0779 22bd4d ld (#4dbd),hl
077c dd7e05 ld a,(ix+#05)
077f 87 add a,a
0780 5f ld e,a
0781 1600 ld d,#00
0783 fd217308 ld iy,#0873
0787 fd19 add iy,de
0789 fd6e00 ld l,(iy+#00)
078c fd6601 ld h,(iy+#01)
078f 22954d ld (#4d95),hl
0792 cdea2b call #2bea
0795 c9 ret
0796 03 inc bc
0797 010100 ld bc,#0001
079a 02 ld (bc),a
079b 00 nop
079c 04 inc b
079d 010201 ld bc,#0102
07a0 03 inc bc
07a1 00 nop
07a2 04 inc b
07a3 010302 ld bc,#0203
07a6 04 inc b
07a7 010402 ld bc,#0204
07aa 03 inc bc
07ab 02 ld (bc),a
07ac 05 dec b
07ad 010500 ld bc,#0005
07b0 03 inc bc
07b1 02 ld (bc),a
07b2 0602 ld b,#02
07b4 05 dec b
07b5 010303 ld bc,#0303
07b8 03 inc bc
07b9 02 ld (bc),a
07ba 05 dec b
07bb 02 ld (bc),a
07bc 03 inc bc
07bd 03 inc bc
07be 0602 ld b,#02
07c0 05 dec b
07c1 02 ld (bc),a
07c2 03 inc bc
07c3 03 inc bc
07c4 0602 ld b,#02
07c6 05 dec b
07c7 00 nop
07c8 03 inc bc
07c9 04 inc b
07ca 07 rlca
07cb 02 ld (bc),a
07cc 05 dec b
07cd 010304 ld bc,#0403
07d0 03 inc bc
07d1 02 ld (bc),a
07d2 05 dec b
07d3 02 ld (bc),a
07d4 03 inc bc
07d5 04 inc b
07d6 0602 ld b,#02
07d8 05 dec b
07d9 02 ld (bc),a
07da 03 inc bc
07db 05 dec b
07dc 07 rlca
07dd 02 ld (bc),a
07de 05 dec b
07df 00 nop
07e0 03 inc bc
07e1 05 dec b
07e2 07 rlca
07e3 02 ld (bc),a
07e4 05 dec b
07e5 02 ld (bc),a
07e6 03 inc bc
07e7 05 dec b
07e8 05 dec b
07e9 02 ld (bc),a
07ea 05 dec b
07eb 010306 ld bc,#0603
07ee 07 rlca
07ef 02 ld (bc),a
07f0 05 dec b
07f1 02 ld (bc),a
07f2 03 inc bc
07f3 0607 ld b,#07
07f5 02 ld (bc),a
07f6 05 dec b
07f7 02 ld (bc),a
07f8 03 inc bc
07f9 0608 ld b,#08
07fb 02 ld (bc),a
07fc 05 dec b
07fd 02 ld (bc),a
07fe 03 inc bc
07ff 0607 ld b,#07
0801 02 ld (bc),a
0802 05 dec b
0803 02 ld (bc),a
0804 03 inc bc
0805 07 rlca
0806 08 ex af,af'
0807 02 ld (bc),a
0808 05 dec b
0809 02 ld (bc),a
080a 03 inc bc
080b 07 rlca
080c 08 ex af,af'
080d 02 ld (bc),a
080e 0602 ld b,#02
0810 03 inc bc
0811 07 rlca
0812 08 ex af,af'
0813 02 ld (bc),a
0814 11464d ld de,#4d46
0817 011c00 ld bc,#001c
081a edb0 ldir
081c 010c00 ld bc,#000c
081f a7 and a
0820 ed42 sbc hl,bc
0822 edb0 ldir
0824 010c00 ld bc,#000c
0827 a7 and a
0828 ed42 sbc hl,bc
082a edb0 ldir
082c 010c00 ld bc,#000c
082f a7 and a
0830 ed42 sbc hl,bc
0832 edb0 ldir
0834 010e00 ld bc,#000e
0837 edb0 ldir
0839 c9 ret
083a 11b84d ld de,#4db8
083d 010300 ld bc,#0003
0840 edb0 ldir
0842 c9 ret
0843 14 inc d
0844 1e46 ld e,#46
0846 00 nop
0847 1e3c ld e,#3c
0849 00 nop
084a 00 nop
084b 320000 ld (#0000),a
084e 00 nop
084f 14 inc d
0850 0a ld a,(bc)
0851 1e0f ld e,#0f
0853 2814 jr z,#0869 ; (20)
0855 32193c ld (#3c19),a
0858 1e50 ld e,#50
085a 2864 jr z,#08c0 ; (100)
085c 32783c ld (#3c78),a
085f 8c adc a,h
0860 46 ld b,(hl)
0861 c0 ret nz
0862 03 inc bc
0863 48 ld c,b
0864 03 inc bc
0865 d0 ret nc
0866 02 ld (bc),a
0867 58 ld e,b
0868 02 ld (bc),a
0869 e0 ret po
086a 016801 ld bc,#0168
086d f0 ret p
086e 00 nop
086f 78 ld a,b
0870 00 nop
0871 0100f0 ld bc,#f000
0874 00 nop
0875 f0 ret p
0876 00 nop
0877 b4 or h
0878 00 nop
0879 21094e ld hl,#4e09
087c af xor a
087d 060b ld b,#0b
087f cf rst #8
0880 cdc924 call #24c9
0883 2a734e ld hl,(#4e73)
0886 220a4e ld (#4e0a),hl
0889 210a4e ld hl,#4e0a
088c 11384e ld de,#4e38
088f 012e00 ld bc,#002e
0892 edb0 ldir
0894 21044e ld hl,#4e04
0897 34 inc (hl)
0898 c9 ret
0899 3a004e ld a,(#4e00)
089c 3d dec a
089d 2006 jr nz,#08a5 ; (6)
089f 3e09 ld a,#09
08a1 32044e ld (#4e04),a
08a4 c9 ret
08a5 ef rst #28
08a6 1100ef ld de,#ef00
08a9 1c inc e
08aa 83 add a,e
08ab ef rst #28
08ac 04 inc b
08ad 00 nop
08ae ef rst #28
08af 05 dec b
08b0 00 nop
08b1 ef rst #28
08b2 1000 djnz #08b4 ; (0)
08b4 ef rst #28
08b5 1a ld a,(de)
08b6 00 nop
08b7 f7 rst #30
08b8 54 ld d,h
08b9 00 nop
08ba 00 nop
08bb f7 rst #30
08bc 54 ld d,h
08bd 0600 ld b,#00
08bf 3a724e ld a,(#4e72)
08c2 47 ld b,a
08c3 3a094e ld a,(#4e09)
08c6 a0 and b
08c7 320350 ld (#5003),a
08ca c39408 jp #0894
08cd 3a0050 ld a,(#5000)
08d0 cb67 bit 4,a
08d2 c2de08 jp nz,#08de
08d5 21044e ld hl,#4e04
08d8 360e ld (hl),#0e
08da ef rst #28
08db 13 inc de
08dc 00 nop
08dd c9 ret
08de 3a0e4e ld a,(#4e0e)
08e1 fef4 cp #f4
08e3 2006 jr nz,#08eb ; (6)
08e5 21044e ld hl,#4e04
08e8 360c ld (hl),#0c
08ea c9 ret
08eb cd1710 call #1017
08ee cd1710 call #1017
08f1 cddd13 call #13dd
08f4 cd420c call #0c42
08f7 cd230e call #0e23
08fa cd360e call #0e36
08fd cdc30a call #0ac3
0900 cdd60b call #0bd6
0903 cd0d0c call #0c0d
0906 cd6c0e call #0e6c
0909 cdad0e call #0ead
090c c9 ret
090d 3e01 ld a,#01
090f 32124e ld (#4e12),a
0912 cd8724 call #2487
0915 21044e ld hl,#4e04
0918 34 inc (hl)
0919 3a144e ld a,(#4e14)
091c a7 and a
091d 201f jr nz,#093e ; (31)
091f 3a704e ld a,(#4e70)
0922 a7 and a
0923 2819 jr z,#093e ; (25)
0925 3a424e ld a,(#4e42)
0928 a7 and a
0929 2813 jr z,#093e ; (19)
092b 3a094e ld a,(#4e09)
092e c603 add a,#03
0930 4f ld c,a
0931 061c ld b,#1c
0933 cd4200 call #0042
0936 ef rst #28
0937 1c inc e
0938 05 dec b
0939 f7 rst #30
093a 54 ld d,h
093b 00 nop
093c 00 nop
093d c9 ret
093e 34 inc (hl)
093f c9 ret
0940 3a704e ld a,(#4e70)
0943 a7 and a
0944 2806 jr z,#094c ; (6)
0946 3a424e ld a,(#4e42)
0949 a7 and a
094a 2015 jr nz,#0961 ; (21)
094c 3a144e ld a,(#4e14)
094f a7 and a
0950 201a jr nz,#096c ; (26)
0952 cda12b call #2ba1
0955 ef rst #28
0956 1c inc e
0957 05 dec b
0958 f7 rst #30
0959 54 ld d,h
095a 00 nop
095b 00 nop
095c 21044e ld hl,#4e04
095f 34 inc (hl)
0960 c9 ret
0961 cda60a call #0aa6
0964 3a094e ld a,(#4e09)
0967 ee01 xor #01
0969 32094e ld (#4e09),a
096c 3e09 ld a,#09
096e 32044e ld (#4e04),a
0971 c9 ret
0972 af xor a
0973 32024e ld (#4e02),a
0976 32044e ld (#4e04),a
0979 32704e ld (#4e70),a
097c 32094e ld (#4e09),a
097f 320350 ld (#5003),a
0982 3e01 ld a,#01
0984 32004e ld (#4e00),a
0987 c9 ret
0988 ef rst #28
0989 00 nop
098a 01ef01 ld bc,#01ef
098d 01ef02 ld bc,#02ef
0990 00 nop
0991 ef rst #28
0992 1100ef ld de,#ef00
0995 13 inc de
0996 00 nop
0997 ef rst #28
0998 03 inc bc
0999 00 nop
099a ef rst #28
099b 04 inc b
099c 00 nop
099d ef rst #28
099e 05 dec b
099f 00 nop
09a0 ef rst #28
09a1 1000 djnz #09a3 ; (0)
09a3 ef rst #28
09a4 1a ld a,(de)
09a5 00 nop
09a6 ef rst #28
09a7 1c inc e
09a8 063a ld b,#3a
09aa 00 nop
09ab 4e ld c,(hl)
09ac fe03 cp #03
09ae 2806 jr z,#09b6 ; (6)
09b0 ef rst #28
09b1 1c inc e
09b2 05 dec b
09b3 ef rst #28
09b4 1d dec e
09b5 00 nop
09b6 f7 rst #30
09b7 54 ld d,h
09b8 00 nop
09b9 00 nop
09ba 3a004e ld a,(#4e00)
09bd 3d dec a
09be 2804 jr z,#09c4 ; (4)
09c0 f7 rst #30
09c1 54 ld d,h
09c2 0600 ld b,#00
09c4 3a724e ld a,(#4e72)
09c7 47 ld b,a
09c8 3a094e ld a,(#4e09)
09cb a0 and b
09cc 320350 ld (#5003),a
09cf c39408 jp #0894
09d2 3e03 ld a,#03
09d4 32044e ld (#4e04),a
09d7 c9 ret
09d8 f7 rst #30
09d9 54 ld d,h
09da 00 nop
09db 00 nop
09dc 21044e ld hl,#4e04
09df 34 inc (hl)
09e0 af xor a
09e1 32ac4e ld (#4eac),a
09e4 32bc4e ld (#4ebc),a
09e7 c9 ret
09e8 0e02 ld c,#02
09ea 0601 ld b,#01
09ec cd4200 call #0042
09ef f7 rst #30
09f0 42 ld b,d
09f1 00 nop
09f2 00 nop
09f3 210000 ld hl,#0000
09f6 cd7e26 call #267e
09f9 21044e ld hl,#4e04
09fc 34 inc (hl)
09fd c9 ret
09fe 0e00 ld c,#00
0a00 18e8 jr #09ea ; (-24)
0a02 18e4 jr #09e8 ; (-28)
0a04 18f8 jr #09fe ; (-8)
0a06 18e0 jr #09e8 ; (-32)
0a08 18f4 jr #09fe ; (-12)
0a0a 18dc jr #09e8 ; (-36)
0a0c 18f0 jr #09fe ; (-16)
0a0e ef rst #28
0a0f 00 nop
0a10 01ef06 ld bc,#06ef
0a13 00 nop
0a14 ef rst #28
0a15 1100ef ld de,#ef00
0a18 13 inc de
0a19 00 nop
0a1a ef rst #28
0a1b 04 inc b
0a1c 01ef05 ld bc,#05ef
0a1f 01ef10 ld bc,#10ef
0a22 13 inc de
0a23 f7 rst #30
0a24 43 ld b,e
0a25 00 nop
0a26 00 nop
0a27 21044e ld hl,#4e04
0a2a 34 inc (hl)
0a2b c9 ret
0a2c af xor a
0a2d 32ac4e ld (#4eac),a
0a30 32bc4e ld (#4ebc),a
0a33 3e02 ld a,#02
0a35 32cc4e ld (#4ecc),a
0a38 32dc4e ld (#4edc),a
0a3b 3a134e ld a,(#4e13)
0a3e fe14 cp #14
0a40 3802 jr c,#0a44 ; (2)
0a42 3e14 ld a,#14
0a44 e7 rst #20
0a45 6f ld l,a
0a46 0a ld a,(bc)
0a47 08 ex af,af'
0a48 216f0a ld hl,#0a6f
0a4b 6f ld l,a
0a4c 0a ld a,(bc)
0a4d 9e sbc a,(hl)
0a4e 216f0a ld hl,#0a6f
0a51 6f ld l,a
0a52 0a ld a,(bc)
0a53 6f ld l,a
0a54 0a ld a,(bc)
0a55 97 sub a
0a56 226f0a ld (#0a6f),hl
0a59 6f ld l,a
0a5a 0a ld a,(bc)
0a5b 6f ld l,a
0a5c 0a ld a,(bc)
0a5d 97 sub a
0a5e 226f0a ld (#0a6f),hl
0a61 6f ld l,a
0a62 0a ld a,(bc)
0a63 6f ld l,a
0a64 0a ld a,(bc)
0a65 97 sub a
0a66 226f0a ld (#0a6f),hl
0a69 6f ld l,a
0a6a 0a ld a,(bc)
0a6b 6f ld l,a
0a6c 0a ld a,(bc)
0a6d 6f ld l,a
0a6e 0a ld a,(bc)
0a6f 21044e ld hl,#4e04
0a72 34 inc (hl)
0a73 34 inc (hl)
0a74 af xor a
0a75 32cc4e ld (#4ecc),a
0a78 32dc4e ld (#4edc),a
0a7b c9 ret
0a7c af xor a
0a7d 32cc4e ld (#4ecc),a
0a80 32dc4e ld (#4edc),a
0a83 0607 ld b,#07
0a85 210c4e ld hl,#4e0c
0a88 cf rst #8
0a89 cdc924 call #24c9
0a8c 21044e ld hl,#4e04
0a8f 34 inc (hl)
0a90 21134e ld hl,#4e13
0a93 34 inc (hl)
0a94 2a0a4e ld hl,(#4e0a)
0a97 7e ld a,(hl)
0a98 fe14 cp #14
0a9a c8 ret z
0a9b 23 inc hl
0a9c 220a4e ld (#4e0a),hl
0a9f c9 ret
0aa0 c38809 jp #0988
0aa3 c3d209 jp #09d2
0aa6 062e ld b,#2e
0aa8 dd210a4e ld ix,#4e0a
0aac fd21384e ld iy,#4e38
0ab0 dd5600 ld d,(ix+#00)
0ab3 fd5e00 ld e,(iy+#00)
0ab6 fd7200 ld (iy+#00),d
0ab9 dd7300 ld (ix+#00),e
0abc dd23 inc ix
0abe fd23 inc iy
0ac0 10ee djnz #0ab0 ; (-18)
0ac2 c9 ret
0ac3 3aa44d ld a,(#4da4)
0ac6 a7 and a
0ac7 c0 ret nz
0ac8 dd21004c ld ix,#4c00
0acc fd21c84d ld iy,#4dc8
0ad0 110001 ld de,#0100
0ad3 fdbe00 cp (iy+#00)
0ad6 c2d20b jp nz,#0bd2
0ad9 fd36000e ld (iy+#00),#0e
0add 3aa64d ld a,(#4da6)
0ae0 a7 and a
0ae1 281b jr z,#0afe ; (27)
0ae3 2acb4d ld hl,(#4dcb)
0ae6 a7 and a
0ae7 ed52 sbc hl,de
0ae9 3013 jr nc,#0afe ; (19)
0aeb 21ac4e ld hl,#4eac
0aee cbfe set 7,(hl)
0af0 3e09 ld a,#09
0af2 ddbe0b cp (ix+#0b)
0af5 2004 jr nz,#0afb ; (4)
0af7 cbbe res 7,(hl)
0af9 3e09 ld a,#09
0afb 320b4c ld (#4c0b),a
0afe 3aa74d ld a,(#4da7)
0b01 a7 and a
0b02 281d jr z,#0b21 ; (29)
0b04 2acb4d ld hl,(#4dcb)
0b07 a7 and a
0b08 ed52 sbc hl,de
0b0a 3027 jr nc,#0b33 ; (39)
0b0c 3e11 ld a,#11
0b0e ddbe03 cp (ix+#03)
0b11 2807 jr z,#0b1a ; (7)
0b13 dd360311 ld (ix+#03),#11
0b17 c3330b jp #0b33
0b1a dd360312 ld (ix+#03),#12
0b1e c3330b jp #0b33
0b21 3e01 ld a,#01
0b23 ddbe03 cp (ix+#03)
0b26 2807 jr z,#0b2f ; (7)
0b28 dd360301 ld (ix+#03),#01
0b2c c3330b jp #0b33
0b2f dd360301 ld (ix+#03),#01
0b33 3aa84d ld a,(#4da8)
0b36 a7 and a
0b37 281d jr z,#0b56 ; (29)
0b39 2acb4d ld hl,(#4dcb)
0b3c a7 and a
0b3d ed52 sbc hl,de
0b3f 3027 jr nc,#0b68 ; (39)
0b41 3e11 ld a,#11
0b43 ddbe05 cp (ix+#05)
0b46 2807 jr z,#0b4f ; (7)
0b48 dd360511 ld (ix+#05),#11
0b4c c3680b jp #0b68
0b4f dd360512 ld (ix+#05),#12
0b53 c3680b jp #0b68
0b56 3e03 ld a,#03
0b58 ddbe05 cp (ix+#05)
0b5b 2807 jr z,#0b64 ; (7)
0b5d dd360503 ld (ix+#05),#03
0b61 c3680b jp #0b68
0b64 dd360503 ld (ix+#05),#03
0b68 3aa94d ld a,(#4da9)
0b6b a7 and a
0b6c 281d jr z,#0b8b ; (29)
0b6e 2acb4d ld hl,(#4dcb)
0b71 a7 and a
0b72 ed52 sbc hl,de
0b74 3027 jr nc,#0b9d ; (39)
0b76 3e11 ld a,#11
0b78 ddbe07 cp (ix+#07)
0b7b 2807 jr z,#0b84 ; (7)
0b7d dd360711 ld (ix+#07),#11
0b81 c39d0b jp #0b9d
0b84 dd360712 ld (ix+#07),#12
0b88 c39d0b jp #0b9d
0b8b 3e05 ld a,#05
0b8d ddbe07 cp (ix+#07)
0b90 2807 jr z,#0b99 ; (7)
0b92 dd360705 ld (ix+#07),#05
0b96 c39d0b jp #0b9d
0b99 dd360705 ld (ix+#07),#05
0b9d 3aaa4d ld a,(#4daa)
0ba0 a7 and a
0ba1 281d jr z,#0bc0 ; (29)
0ba3 2acb4d ld hl,(#4dcb)
0ba6 a7 and a
0ba7 ed52 sbc hl,de
0ba9 3027 jr nc,#0bd2 ; (39)
0bab 3e11 ld a,#11
0bad ddbe09 cp (ix+#09)
0bb0 2807 jr z,#0bb9 ; (7)
0bb2 dd360911 ld (ix+#09),#11
0bb6 c3d20b jp #0bd2
0bb9 dd360912 ld (ix+#09),#12
0bbd c3d20b jp #0bd2
0bc0 3e07 ld a,#07
0bc2 ddbe09 cp (ix+#09)
0bc5 2807 jr z,#0bce ; (7)
0bc7 dd360907 ld (ix+#09),#07
0bcb c3d20b jp #0bd2
0bce dd360907 ld (ix+#09),#07
0bd2 fd3500 dec (iy+#00)
0bd5 c9 ret
0bd6 0619 ld b,#19
0bd8 3a024e ld a,(#4e02)
0bdb fe22 cp #22
0bdd c2e20b jp nz,#0be2
0be0 0600 ld b,#00
0be2 dd21004c ld ix,#4c00
0be6 3aac4d ld a,(#4dac)
0be9 a7 and a
0bea caf00b jp z,#0bf0
0bed dd7003 ld (ix+#03),b
0bf0 3aad4d ld a,(#4dad)
0bf3 a7 and a
0bf4 cafa0b jp z,#0bfa
0bf7 dd7005 ld (ix+#05),b
0bfa 3aae4d ld a,(#4dae)
0bfd a7 and a
0bfe ca040c jp z,#0c04
0c01 dd7007 ld (ix+#07),b
0c04 3aaf4d ld a,(#4daf)
0c07 a7 and a
0c08 c8 ret z
0c09 dd7009 ld (ix+#09),b
0c0c c9 ret
0c0d 21cf4d ld hl,#4dcf
0c10 34 inc (hl)
0c11 3e0a ld a,#0a
0c13 be cp (hl)
0c14 c0 ret nz
0c15 3600 ld (hl),#00
0c17 3a044e ld a,(#4e04)
0c1a fe03 cp #03
0c1c 2015 jr nz,#0c33 ; (21)
0c1e 216444 ld hl,#4464
0c21 3e10 ld a,#10
0c23 be cp (hl)
0c24 2002 jr nz,#0c28 ; (2)
0c26 3e00 ld a,#00
0c28 77 ld (hl),a
0c29 327844 ld (#4478),a
0c2c 328447 ld (#4784),a
0c2f 329847 ld (#4798),a
0c32 c9 ret
0c33 213247 ld hl,#4732
0c36 3e10 ld a,#10
0c38 be cp (hl)
0c39 2002 jr nz,#0c3d ; (2)
0c3b 3e00 ld a,#00
0c3d 77 ld (hl),a
0c3e 327846 ld (#4678),a
0c41 c9 ret
0c42 3aa44d ld a,(#4da4)
0c45 a7 and a
0c46 c0 ret nz
0c47 3a944d ld a,(#4d94)
0c4a 07 rlca
0c4b 32944d ld (#4d94),a
0c4e d0 ret nc
0c4f 3aa04d ld a,(#4da0)
0c52 a7 and a
0c53 c2900c jp nz,#0c90
0c56 dd210533 ld ix,#3305
0c5a fd21004d ld iy,#4d00
;; 4e66 last state coin inputs shifted left by 1
;; 4e6b #coins per #credits
;; 4e6c #left over coins (partial credits)
;; 4e6d #credits per #coins
;; 4e6e #credits
;; 4e6f #lives per game
;; 4e80-4e83 P1 score
;; 4e84-4e87 P2 score
;; 4e88-4e8b High score
;; 4370 #players (0=1, 1=2)
Starting address: 0
Ending address: 16383
Output file: (none)
Pass 1 of 1
0000 f3 di ; Disable interrupts
0001 3e3f ld a,#3f
0003 ed47 ld i,a ; Interrupt page = 0x3f
0005 c30b23 jp #230b ; Run startup tests
;; Fill "hl" to "hl+b" with "a"
0008 77 ld (hl),a
0009 23 inc hl
000a 10fc djnz #0008 ; (-4)
000c c9 ret
000d c30e07 jp #070e
;; hl = hl + a, (hl) -> a
0010 85 add a,l
0011 6f ld l,a
0012 3e00 ld a,#00
0014 8c adc a,h
0015 67 ld h,a
0016 7e ld a,(hl)
0017 c9 ret
;; Some sort of table lookup
;; hl = hl + 2*b, (hl) -> e, (++hl) -> d, de -> hl
;; (Used to add up scores!)
0018 78 ld a,b ; b -> a
0019 87 add a,a ; 2*a -> a
001a d7 rst #10
001b 5f ld e,a
001c 23 inc hl
001d 56 ld d,(hl)
001e eb ex de,hl
001f c9 ret
0020 e1 pop hl
0021 87 add a,a
0022 d7 rst #10
0023 5f ld e,a
0024 23 inc hl
0025 56 ld d,(hl)
0026 eb ex de,hl
0027 e9 jp (hl)
0028 e1 pop hl
0029 46 ld b,(hl)
002a 23 inc hl
002b 4e ld c,(hl)
002c 23 inc hl
002d e5 push hl
002e 1812 jr #0042 ; (18)
0030 11904c ld de,#4c90
0033 0610 ld b,#10
0035 c35100 jp #0051
;; Loop waiting for interrupt?
0038 af xor a
0039 320050 ld (#5000),a
003c 320750 ld (#5007),a
003f c33800 jp #0038
;; Weird routine
;; (#4c80) spins through 4cc0 to 4cff
;; bc -> ((#4c80)), (#4c80++)
0042 2a804c ld hl,(#4c80)
0045 70 ld (hl),b
0046 2c inc l
0047 71 ld (hl),c
0048 2c inc l
0049 2002 jr nz,#004d ; (2)
004b 2ec0 ld l,#c0
004d 22804c ld (#4c80),hl
0050 c9 ret
;; Jump from rst 0x30
0051 1a ld a,(de)
0052 a7 and a
0053 2806 jr z,#005b ; (6)
0055 1c inc e
0056 1c inc e
0057 1c inc e
0058 10f7 djnz #0051 ; (-9)
005a c9 ret
005b e1 pop hl
005c 0603 ld b,#03
005e 7e ld a,(hl)
005f 12 ld (de),a
0060 23 inc hl
0061 1c inc e
0062 10fa djnz #005e ; (-6)
0064 e9 jp (hl)
0065 c32d20 jp #202d
0068 00 nop
0069 010203 ld bc,#0302
006c 04 inc b
006d 05 dec b
006e 0607 ld b,#07
0070 08 ex af,af'
0071 09 add hl,bc
0072 0a ld a,(bc)
0073 0b dec bc
0074 0c inc c
0075 0d dec c
0076 0e0f ld c,#0f
0078 1011 djnz #008b ; (17)
007a 12 ld (de),a
007b 13 inc de
007c 14 inc d
007d 010304 ld bc,#0403
0080 0607 ld b,#07
0082 08 ex af,af'
0083 09 add hl,bc
0084 0a ld a,(bc)
0085 0b dec bc
0086 0c inc c
0087 0d dec c
0088 0e0f ld c,#0f
008a 1011 djnz #009d ; (17)
008c 14 inc d
;; Non-test mode interrupt routine
008d f5 push af
008e 32c050 ld (#50c0),a ; Kick watchdog
0091 af xor a
0092 320050 ld (#5000),a ; Disable interrupts (hardware)
0095 f3 di ; Disable interrupts (CPU)
0096 c5 push bc
0097 d5 push de
0098 e5 push hl
0099 dde5 push ix
009b fde5 push iy
009d 218c4e ld hl,#4e8c ; Write freq/volume for sound regs
00a0 115050 ld de,#5050
00a3 011000 ld bc,#0010
00a6 edb0 ldir
00a8 3acc4e ld a,(#4ecc) ; Useless read
00ab a7 and a
;; Write sound waveforms
00ac 3acf4e ld a,(#4ecf)
00af 2003 jr nz,#00b4 ; (3)
00b1 3a9f4e ld a,(#4e9f)
00b4 324550 ld (#5045),a
00b7 3adc4e ld a,(#4edc)
00ba a7 and a
00bb 3adf4e ld a,(#4edf)
00be 2003 jr nz,#00c3 ; (3)
00c0 3aaf4e ld a,(#4eaf)
00c3 324a50 ld (#504a),a
00c6 3aec4e ld a,(#4eec)
00c9 a7 and a
00ca 3aef4e ld a,(#4eef)
00cd 2003 jr nz,#00d2 ; (3)
00cf 3abf4e ld a,(#4ebf)
00d2 324f50 ld (#504f),a
00d5 21024c ld hl,#4c02
00d8 11224c ld de,#4c22
00db 011c00 ld bc,#001c
00de edb0 ldir
00e0 dd21204c ld ix,#4c20
00e4 dd7e02 ld a,(ix+#02)
00e7 07 rlca
00e8 07 rlca
00e9 dd7702 ld (ix+#02),a
00ec dd7e04 ld a,(ix+#04)
00ef 07 rlca
00f0 07 rlca
00f1 dd7704 ld (ix+#04),a
00f4 dd7e06 ld a,(ix+#06)
00f7 07 rlca
00f8 07 rlca
00f9 dd7706 ld (ix+#06),a
00fc dd7e08 ld a,(ix+#08)
00ff 07 rlca
0100 07 rlca
0101 dd7708 ld (ix+#08),a
0104 dd7e0a ld a,(ix+#0a)
0107 07 rlca
0108 07 rlca
0109 dd770a ld (ix+#0a),a
010c dd7e0c ld a,(ix+#0c)
010f 07 rlca
0110 07 rlca
0111 dd770c ld (ix+#0c),a
0114 3ad14d ld a,(#4dd1)
0117 fe01 cp #01
0119 2038 jr nz,#0153 ; (56)
011b dd21204c ld ix,#4c20
011f 3aa44d ld a,(#4da4)
0122 87 add a,a
0123 5f ld e,a
0124 1600 ld d,#00
0126 dd19 add ix,de
0128 2a244c ld hl,(#4c24)
012b ed5b344c ld de,(#4c34)
012f dd7e00 ld a,(ix+#00)
0131 32244c ld (#4c24),a
0135 dd7e01 ld a,(ix+#01)
0138 32254c ld (#4c25),a
013b dd7e10 ld a,(ix+#10)
013e 32344c ld (#4c34),a
0141 dd7e11 ld a,(ix+#11)
0144 32354c ld (#4c35),a
0147 dd7500 ld (ix+#00),l
014a dd7401 ld (ix+#01),h
014d dd7310 ld (ix+#10),e
0150 dd7211 ld (ix+#11),d
0153 3aa64d ld a,(#4da6)
0156 a7 and a
0157 ca7601 jp z,#0176
015a ed4b224c ld bc,(#4c22)
015e ed5b324c ld de,(#4c32)
0162 2a2a4c ld hl,(#4c2a)
0165 22224c ld (#4c22),hl
0168 2a3a4c ld hl,(#4c3a)
016b 22324c ld (#4c32),hl
016e ed432a4c ld (#4c2a),bc
0172 ed533a4c ld (#4c3a),de
0176 21224c ld hl,#4c22
0179 11f24f ld de,#4ff2
017c 010c00 ld bc,#000c
017f edb0 ldir
0181 21324c ld hl,#4c32
0184 116250 ld de,#5062
0187 010c00 ld bc,#000c
018a edb0 ldir
018c cddc01 call #01dc
018f cd2102 call #0221
0192 cdc803 call #03c8
0195 3a004e ld a,(#4e00)
0198 a7 and a
0199 2812 jr z,#01ad ; (18)
019b cd9d03 call #039d
019e cd9014 call #1490
01a1 cd1f14 call #141f
01a4 cd6702 call #0267
01a7 cdad02 call #02ad
01aa cdfd02 call #02fd
01ad 3a004e ld a,(#4e00)
01b0 3d dec a
01b1 2006 jr nz,#01b9 ; (6)
01b3 32ac4e ld (#4eac),a
01b6 32bc4e ld (#4ebc),a
01b9 cd0c2d call #2d0c
01bc cdc12c call #2cc1
01bf fde1 pop iy
01c1 dde1 pop ix
01c3 e1 pop hl
01c4 d1 pop de
01c5 c1 pop bc
01c6 3a004e ld a,(#4e00)
01c9 a7 and a
01ca 2808 jr z,#01d4 ; (8)
01cc 3a4050 ld a,(#5040) ; Check test switch
01cf e610 and #10
01d1 ca0000 jp z,#0000 ; Reset if test
01d4 3e01 ld a,#01 ; Enable interrupts (hardware)
01d6 320050 ld (#5000),a
01d9 fb ei ; Enable interrupts (CPU)
01da f1 pop af
01db c9 ret
01dc 21844c ld hl,#4c84
01df 34 inc (hl)
01e0 23 inc hl
01e1 35 dec (hl)
01e2 23 inc hl
01e3 111902 ld de,#0219
01e6 010104 ld bc,#0401
01e9 34 inc (hl)
01ea 7e ld a,(hl)
01eb e60f and #0f
01ed eb ex de,hl
01ee be cp (hl)
01ef 2013 jr nz,#0204 ; (19)
01f1 0c inc c
01f2 1a ld a,(de)
01f3 c610 add a,#10
01f5 e6f0 and #f0
01f7 12 ld (de),a
01f8 23 inc hl
01f9 be cp (hl)
01fa 2008 jr nz,#0204 ; (8)
01fc 0c inc c
01fd eb ex de,hl
01fe 3600 ld (hl),#00
0200 23 inc hl
0201 13 inc de
0202 10e5 djnz #01e9 ; (-27)
0204 218a4c ld hl,#4c8a
0207 71 ld (hl),c
0208 2c inc l
0209 7e ld a,(hl)
020a 87 add a,a
020b 87 add a,a
020c 86 add a,(hl)
020d 3c inc a
020e 77 ld (hl),a
020f 2c inc l
0210 7e ld a,(hl)
0211 87 add a,a
0212 86 add a,(hl)
0213 87 add a,a
0214 87 add a,a
0215 86 add a,(hl)
0216 3c inc a
0217 77 ld (hl),a
0218 c9 ret
0219 06a0 ld b,#a0
021b 0a ld a,(bc)
021c 60 ld h,b
021d 0a ld a,(bc)
021e 60 ld h,b
021f 0a ld a,(bc)
0220 a0 and b
0221 21904c ld hl,#4c90
0224 3a8a4c ld a,(#4c8a)
0227 4f ld c,a
0228 0610 ld b,#10
022a 7e ld a,(hl)
022b a7 and a
022c 282f jr z,#025d ; (47)
022e e6c0 and #c0
0230 07 rlca
0231 07 rlca
0232 b9 cp c
0233 3028 jr nc,#025d ; (40)
0235 35 dec (hl)
0236 7e ld a,(hl)
0237 e63f and #3f
0239 2022 jr nz,#025d ; (34)
023b 77 ld (hl),a
023c c5 push bc
023d e5 push hl
023e 2c inc l
023f 7e ld a,(hl)
0240 2c inc l
0241 46 ld b,(hl)
0242 215b02 ld hl,#025b
0245 e5 push hl
0246 e7 rst #20
0247 94 sub h
0248 08 ex af,af'
0249 a3 and e
024a 068e ld b,#8e
024c 05 dec b
024d 72 ld (hl),d
024e 12 ld (de),a
024f 00 nop
0250 100b djnz #025d ; (11)
0252 1063 djnz #02b7 ; (99)
0254 02 ld (bc),a
0255 2b dec hl
0256 21f021 ld hl,#21f0
0259 b9 cp c
025a 22e1c1 ld (#c1e1),hl
025d 2c inc l
025e 2c inc l
025f 2c inc l
0260 10c8 djnz #022a ; (-56)
0262 c9 ret
0263 ef rst #28
0264 1c inc e
0265 86 add a,(hl)
0266 c9 ret
0267 3a6e4e ld a,(#4e6e)
026a fe99 cp #99
026c 17 rla
026d 320650 ld (#5006),a
0270 1f rra
0271 d0 ret nc
;; Check/debounce coin inputs
0272 3a0050 ld a,(#5000)
0275 47 ld b,a
0276 cb00 rlc b
0278 3a664e ld a,(#4e66)
027b 17 rla
027c e60f and #0f
027e 32664e ld (#4e66),a
0281 d60c sub #0c
0283 ccdf02 call z,#02df ; Add Coin
0286 cb00 rlc b
0288 3a674e ld a,(#4e67)
028b 17 rla
028c e60f and #0f
028e 32674e ld (#4e67),a
0291 d60c sub #0c
0293 c29a02 jp nz,#029a
0296 21694e ld hl,#4e69
0299 34 inc (hl)
029a cb00 rlc b
029c 3a684e ld a,(#4e68)
029f 17 rla
02a0 e60f and #0f
02a2 32684e ld (#4e68),a
02a5 d60c sub #0c
02a7 c0 ret nz
02a8 21694e ld hl,#4e69
02ab 34 inc (hl)
02ac c9 ret
02ad 3a694e ld a,(#4e69)
02b0 a7 and a
02b1 c8 ret z
02b2 47 ld b,a
02b3 3a6a4e ld a,(#4e6a)
02b6 5f ld e,a
02b7 fe00 cp #00
02b9 c2c402 jp nz,#02c4
02bc 3e01 ld a,#01
02be 320750 ld (#5007),a
02c1 cddf02 call #02df
02c4 7b ld a,e
02c5 fe08 cp #08
02c7 c2ce02 jp nz,#02ce
02ca af xor a
02cb 320750 ld (#5007),a
02ce 1c inc e
02cf 7b ld a,e
02d0 326a4e ld (#4e6a),a
02d3 d610 sub #10
02d5 c0 ret nz
02d6 326a4e ld (#4e6a),a
02d9 05 dec b
02da 78 ld a,b
02db 32694e ld (#4e69),a
02de c9 ret
;; Coins -> credits routine
02df 3a6b4e ld a,(#4e6b) ; #coins per #credits
02e2 216c4e ld hl,#4e6c ; #leftover coins
02e5 34 inc (hl) ; add 1
02e6 96 sub (hl)
02e7 c0 ret nz ; not enough coins for credit
02e8 77 ld (hl),a ; store leftover coins
02e9 3a6d4e ld a,(#4e6d) ; #credits per #coins
02ec 216e4e ld hl,#4e6e ; #credits
02ef 86 add a,(hl) ; add # credits
02f0 27 daa
02f1 d2f602 jp nc,#02f6
02f4 3e99 ld a,#99
02f6 77 ld (hl),a ; store #credits, max 99
02f7 219c4e ld hl,#4e9c
02fa cbce set 1,(hl) ; set bit 1 of 4e9c
02fc c9 ret
02fd 21ce4d ld hl,#4dce
0300 34 inc (hl)
0301 7e ld a,(hl)
0302 e60f and #0f
0304 201f jr nz,#0325 ; (31)
0306 7e ld a,(hl)
0307 0f rrca
0308 0f rrca
0309 0f rrca
030a 0f rrca
030b 47 ld b,a
030c 3ad64d ld a,(#4dd6)
030f 2f cpl
0310 b0 or b
0311 4f ld c,a
0312 3a6e4e ld a,(#4e6e)
0315 d601 sub #01
0317 3002 jr nc,#031b ; (2)
0319 af xor a
031a 4f ld c,a
031b 2801 jr z,#031e ; (1)
031d 79 ld a,c
031e 320550 ld (#5005),a
0321 79 ld a,c
0322 320450 ld (#5004),a
0325 dd21d843 ld ix,#43d8
0329 fd21c543 ld iy,#43c5
032d 3a004e ld a,(#4e00)
0330 fe03 cp #03
0332 ca4403 jp z,#0344
0335 3a034e ld a,(#4e03)
0338 fe02 cp #02
033a d24403 jp nc,#0344
033d cd6903 call #0369
0340 cd7603 call #0376
0343 c9 ret
0344 3a094e ld a,(#4e09)
0347 a7 and a
0348 3ace4d ld a,(#4dce)
034b c25903 jp nz,#0359
034e cb67 bit 4,a
0350 cc6903 call z,#0369
0353 c48303 call nz,#0383
0356 c36103 jp #0361
0359 cb67 bit 4,a
035b cc7603 call z,#0376
035e c49003 call nz,#0390
0361 3a704e ld a,(#4e70)
0364 a7 and a
0365 cc9003 call z,#0390
0368 c9 ret
0369 dd360050 ld (ix+#00),#50
036d dd360155 ld (ix+#01),#55
0371 dd360231 ld (ix+#02),#31
0375 c9 ret
0376 fd360050 ld (iy+#00),#50
037a fd360155 ld (iy+#01),#55
037e fd360232 ld (iy+#02),#32
0382 c9 ret
0383 dd360040 ld (ix+#00),#40
0387 dd360140 ld (ix+#01),#40
038b dd360240 ld (ix+#02),#40
038f c9 ret
0390 fd360040 ld (iy+#00),#40
0394 fd360140 ld (iy+#01),#40
0398 fd360240 ld (iy+#02),#40
039c c9 ret
039d 3a064e ld a,(#4e06)
03a0 d605 sub #05
03a2 d8 ret c
03a3 2a084d ld hl,(#4d08)
03a6 0608 ld b,#08
03a8 0e10 ld c,#10
03aa 7d ld a,l
03ab 32064d ld (#4d06),a
03ae 32d24d ld (#4dd2),a
03b1 91 sub c
03b2 32024d ld (#4d02),a
03b5 32044d ld (#4d04),a
03b8 7c ld a,h
03b9 80 add a,b
03ba 32034d ld (#4d03),a
03bd 32074d ld (#4d07),a
03c0 91 sub c
03c1 32054d ld (#4d05),a
03c4 32d34d ld (#4dd3),a
03c7 c9 ret
03c8 3a004e ld a,(#4e00)
03cb e7 rst #20
03cc d403fe call nc,#fe03
03cf 03 inc bc
03d0 e5 push hl
03d1 05 dec b
03d2 be cp (hl)
03d3 063a ld b,#3a
03d5 014ee7 ld bc,#e74e
03d8 dc030c call c,#0c03
03db 00 nop
03dc ef rst #28
03dd 00 nop
03de 00 nop
03df ef rst #28
03e0 0600 ld b,#00
03e2 ef rst #28
03e3 0100ef ld bc,#ef00
03e6 14 inc d
03e7 00 nop
03e8 ef rst #28
03e9 1800 jr #03eb ; (0)
03eb ef rst #28
03ec 04 inc b
03ed 00 nop
03ee ef rst #28
03ef 1e00 ld e,#00
03f1 ef rst #28
03f2 07 rlca
03f3 00 nop
03f4 21014e ld hl,#4e01
03f7 34 inc (hl)
03f8 210150 ld hl,#5001
03fb 3601 ld (hl),#01
03fd c9 ret
;; Can't find a jump to here?!
03fe cda12b call #2ba1 ; Write # credits on screen
0401 3a6e4e ld a,(#4e6e)
0404 a7 and a
0405 280c jr z,#0413 ; No credits -> 0x13
0407 af xor a
0408 32044e ld (#4e04),a
040b 32024e ld (#4e02),a
040e 21004e ld hl,#4e00
0411 34 inc (hl)
0412 c9 ret
0413 3a024e ld a,(#4e02)
0416 e7 rst #20
0417 5f ld e,a
0418 04 inc b
0419 0c inc c
041a 00 nop
041b 71 ld (hl),c
041c 04 inc b
041d 0c inc c
041e 00 nop
041f 7f ld a,a
0420 04 inc b
0421 0c inc c
0422 00 nop
0423 85 add a,l
0424 04 inc b
0425 0c inc c
0426 00 nop
0427 8b adc a,e
0428 04 inc b
0429 0c inc c
042a 00 nop
042b 99 sbc a,c
042c 04 inc b
042d 0c inc c
042e 00 nop
042f 9f sbc a,a
0430 04 inc b
0431 0c inc c
0432 00 nop
0433 a5 and l
0434 04 inc b
0435 0c inc c
0436 00 nop
0437 b3 or e
0438 04 inc b
0439 0c inc c
043a 00 nop
043b b9 cp c
043c 04 inc b
043d 0c inc c
043e 00 nop
043f bf cp a
0440 04 inc b
0441 0c inc c
0442 00 nop
0443 cd040c call #0c04
0446 00 nop
0447 d304 out (#04),a
0449 0c inc c
044a 00 nop
044b d8 ret c
044c 04 inc b
044d 0c inc c
044e 00 nop
044f e0 ret po
0450 04 inc b
0451 0c inc c
0452 00 nop
0453 1c inc e
0454 05 dec b
0455 4b ld c,e
0456 05 dec b
0457 56 ld d,(hl)
0458 05 dec b
0459 61 ld h,c
045a 05 dec b
045b 6c ld l,h
045c 05 dec b
045d 7c ld a,h
045e 05 dec b
045f ef rst #28
0460 00 nop
0461 01ef01 ld bc,#01ef
0464 00 nop
0465 ef rst #28
0466 04 inc b
0467 00 nop
0468 ef rst #28
0469 1e00 ld e,#00
046b 0e0c ld c,#0c
046d cd8505 call #0585
0470 c9 ret
0471 210443 ld hl,#4304
0474 3e01 ld a,#01
0476 cdbf05 call #05bf
0479 0e0c ld c,#0c
047b cd8505 call #0585
047e c9 ret
047f 0e14 ld c,#14
0481 cd9305 call #0593
0484 c9 ret
0485 0e0d ld c,#0d
0487 cd9305 call #0593
048a c9 ret
048b 210743 ld hl,#4307
048e 3e03 ld a,#03
0490 cdbf05 call #05bf
0493 0e0c ld c,#0c
0495 cd8505 call #0585
0498 c9 ret
0499 0e16 ld c,#16
049b cd9305 call #0593
049e c9 ret
049f 0e0f ld c,#0f
04a1 cd9305 call #0593
04a4 c9 ret
04a5 210a43 ld hl,#430a
04a8 3e05 ld a,#05
04aa cdbf05 call #05bf
04ad 0e0c ld c,#0c
04af cd8505 call #0585
04b2 c9 ret
04b3 0e33 ld c,#33
04b5 cd9305 call #0593
04b8 c9 ret
04b9 0e2f ld c,#2f
04bb cd9305 call #0593
04be c9 ret
04bf 210d43 ld hl,#430d
04c2 3e07 ld a,#07
04c4 cdbf05 call #05bf
04c7 0e0c ld c,#0c
04c9 cd8505 call #0585
04cc c9 ret
04cd 0e35 ld c,#35
04cf cd9305 call #0593
04d2 c9 ret
04d3 0e31 ld c,#31
04d5 c38005 jp #0580
04d8 ef rst #28
04d9 1c inc e
04da 110e12 ld de,#120e
04dd c38505 jp #0585
04e0 0e13 ld c,#13
04e2 cd8505 call #0585
04e5 cd7908 call #0879
04e8 35 dec (hl)
04e9 ef rst #28
04ea 1100ef ld de,#ef00
04ed 05 dec b
04ee 01ef10 ld bc,#10ef
04f1 14 inc d
04f2 ef rst #28
04f3 04 inc b
04f4 013e01 ld bc,#013e
04f7 32144e ld (#4e14),a
04fa af xor a
04fb 32704e ld (#4e70),a
04fe 32154e ld (#4e15),a
0501 213243 ld hl,#4332
0504 3614 ld (hl),#14
0506 3efc ld a,#fc
0508 112000 ld de,#0020
050b 061c ld b,#1c
050d dd214040 ld ix,#4040
0511 dd7711 ld (ix+#11),a
0514 dd7713 ld (ix+#13),a
0517 dd19 add ix,de
0519 10f6 djnz #0511 ; (-10)
051b c9 ret
051c 21a04d ld hl,#4da0
051f 0621 ld b,#21
0521 3a3a4d ld a,(#4d3a)
0524 90 sub b
0525 2005 jr nz,#052c ; (5)
0527 3601 ld (hl),#01
0529 c38e05 jp #058e
052c cd1710 call #1017
052f cd1710 call #1017
0532 cd230e call #0e23
0535 cd0d0c call #0c0d
0538 cdd60b call #0bd6
053b cda505 call #05a5
053e cdfe1e call #1efe
0541 cd251f call #1f25
0544 cd4c1f call #1f4c
0547 cd731f call #1f73
054a c9 ret
054b 21a14d ld hl,#4da1
054e 0620 ld b,#20
0550 3a324d ld a,(#4d32)
0553 c32405 jp #0524
0556 21a24d ld hl,#4da2
0559 0622 ld b,#22
055b 3a324d ld a,(#4d32)
055e c32405 jp #0524
0561 21a34d ld hl,#4da3
0564 0624 ld b,#24
0566 3a324d ld a,(#4d32)
0569 c32405 jp #0524
056c 3ad04d ld a,(#4dd0)
056f 47 ld b,a
0570 3ad14d ld a,(#4dd1)
0573 80 add a,b
0574 fe06 cp #06
0576 ca8e05 jp z,#058e
0579 c32c05 jp #052c
057c cdbe06 call #06be
057f c9 ret
0580 3a754e ld a,(#4e75)
0583 81 add a,c
0584 4f ld c,a
0585 061c ld b,#1c
0587 cd4200 call #0042
058a f7 rst #30
058b 4a ld c,d
058c 02 ld (bc),a
058d 00 nop
058e 21024e ld hl,#4e02
0591 34 inc (hl)
0592 c9 ret
0593 3a754e ld a,(#4e75)
0596 81 add a,c
0597 4f ld c,a
0598 061c ld b,#1c
059a cd4200 call #0042
059d f7 rst #30
059e 45 ld b,l
059f 02 ld (bc),a
05a0 00 nop
05a1 cd8e05 call #058e
05a4 c9 ret
05a5 3ab54d ld a,(#4db5)
05a8 a7 and a
05a9 c8 ret z
05aa af xor a
05ab 32b54d ld (#4db5),a
05ae 3a304d ld a,(#4d30)
05b1 ee02 xor #02
05b3 323c4d ld (#4d3c),a
05b6 47 ld b,a
05b7 21ff32 ld hl,#32ff
05ba df rst #18
05bb 22264d ld (#4d26),hl
05be c9 ret
05bf 36b1 ld (hl),#b1
05c1 2c inc l
05c2 36b3 ld (hl),#b3
05c4 2c inc l
05c5 36b5 ld (hl),#b5
05c7 011e00 ld bc,#001e
05ca 09 add hl,bc
05cb 36b0 ld (hl),#b0
05cd 2c inc l
05ce 36b2 ld (hl),#b2
05d0 2c inc l
05d1 36b4 ld (hl),#b4
05d3 110004 ld de,#0400
05d6 19 add hl,de
05d7 77 ld (hl),a
05d8 2d dec l
05d9 77 ld (hl),a
05da 2d dec l
05db 77 ld (hl),a
05dc a7 and a
05dd ed42 sbc hl,bc
05df 77 ld (hl),a
05e0 2d dec l
05e1 77 ld (hl),a
05e2 2d dec l
05e3 77 ld (hl),a
05e4 c9 ret
05e5 3a034e ld a,(#4e03)
05e8 e7 rst #20
05e9 f3 di
05ea 05 dec b
05eb 1b dec de
05ec 0674 ld b,#74
05ee 060c ld b,#0c
05f0 00 nop
05f1 a8 xor b
05f2 06cd ld b,#cd
05f4 a1 and c
05f5 2b dec hl
05f6 ef rst #28
05f7 00 nop
05f8 01ef01 ld bc,#01ef
05fb 00 nop
05fc ef rst #28
05fd 1c inc e
05fe 07 rlca
05ff ef rst #28
0600 1c inc e
0601 0b dec bc
0602 ef rst #28
0603 1e00 ld e,#00
0605 21034e ld hl,#4e03
0608 34 inc (hl)
0609 3e01 ld a,#01
060b 32d64d ld (#4dd6),a
060e 3a714e ld a,(#4e71)
0611 feff cp #ff
0613 c8 ret z
0614 ef rst #28
0615 1c inc e
0616 0a ld a,(bc)
0617 ef rst #28
0618 1f rra
0619 00 nop
061a c9 ret
;; Can't find a jump to here!
;; Display 1/2 player and check start buttons
061b cda12b call #2ba1
061e 3a6e4e ld a,(#4e6e) ; Credits
0621 fe01 cp #01
0623 0609 ld b,#09 ; MSG #9
0625 2002 jr nz,#0629 ; >2 credits
0627 0608 ld b,#08 ; MSG #8
0629 cd5e2c call #2c5e
062c 3a6e4e ld a,(#4e6e)
062f fe01 cp #01
0631 3a4050 ld a,(#5040)
0634 280c jr z,#0642 ; Don't check P2 w/ 1 credit
0636 cb77 bit 6,a
0638 2008 jr nz,#0642 ; (8)
063a 3e01 ld a,#01
063c 32704e ld (#4e70),a
063f c34906 jp #0649
0642 cb6f bit 5,a
0644 c0 ret nz
0645 af xor a
0646 32704e ld (#4e70),a
0649 3a6b4e ld a,(#4e6b)
064c a7 and a
064d 2815 jr z,#0664 ; (21)
064f 3a704e ld a,(#4e70)
0652 a7 and a
0653 3a6e4e ld a,(#4e6e)
0656 2803 jr z,#065b ; (3)
0658 c699 add a,#99
065a 27 daa
065b c699 add a,#99
065d 27 daa
065e 326e4e ld (#4e6e),a
0661 cda12b call #2ba1
0664 21034e ld hl,#4e03
0667 34 inc (hl)
0668 af xor a
0669 32d64d ld (#4dd6),a
066c 3c inc a
066d 32cc4e ld (#4ecc),a
0670 32dc4e ld (#4edc),a
0673 c9 ret
0674 ef rst #28
0675 00 nop
0676 01ef01 ld bc,#01ef
0679 01ef02 ld bc,#02ef
067c 00 nop
067d ef rst #28
067e 12 ld (de),a
067f 00 nop
0680 ef rst #28
0681 03 inc bc
0682 00 nop
0683 ef rst #28
0684 1c inc e
0685 03 inc bc
0686 ef rst #28
0687 1c inc e
0688 06ef ld b,#ef
068a 1800 jr #068c ; (0)
068c ef rst #28
068d 1b dec de
068e 00 nop
068f af xor a
0690 32134e ld (#4e13),a
0693 3a6f4e ld a,(#4e6f)
0696 32144e ld (#4e14),a
0699 32154e ld (#4e15),a
069c ef rst #28
069d 1a ld a,(de)
069e 00 nop
069f f7 rst #30
06a0 57 ld d,a
06a1 010021 ld bc,#2100
06a4 03 inc bc
06a5 4e ld c,(hl)
06a6 34 inc (hl)
06a7 c9 ret
06a8 21154e ld hl,#4e15
06ab 35 dec (hl)
06ac cd6a2b call #2b6a
06af af xor a
06b0 32034e ld (#4e03),a
06b3 32024e ld (#4e02),a
06b6 32044e ld (#4e04),a
06b9 21004e ld hl,#4e00
06bc 34 inc (hl)
06bd c9 ret
06be 3a044e ld a,(#4e04)
06c1 e7 rst #20
06c2 79 ld a,c
06c3 08 ex af,af'
06c4 99 sbc a,c
06c5 08 ex af,af'
06c6 0c inc c
06c7 00 nop
06c8 cd080d call #0d08
06cb 09 add hl,bc
06cc 0c inc c
06cd 00 nop
06ce 40 ld b,b
06cf 09 add hl,bc
06d0 0c inc c
06d1 00 nop
06d2 72 ld (hl),d
06d3 09 add hl,bc
06d4 88 adc a,b
06d5 09 add hl,bc
06d6 0c inc c
06d7 00 nop
06d8 d209d8 jp nc,#d809
06db 09 add hl,bc
06dc 0c inc c
06dd 00 nop
06de e8 ret pe
06df 09 add hl,bc
06e0 0c inc c
06e1 00 nop
06e2 fe09 cp #09
06e4 0c inc c
06e5 00 nop
06e6 02 ld (bc),a
06e7 0a ld a,(bc)
06e8 0c inc c
06e9 00 nop
06ea 04 inc b
06eb 0a ld a,(bc)
06ec 0c inc c
06ed 00 nop
06ee 060a ld b,#0a
06f0 0c inc c
06f1 00 nop
06f2 08 ex af,af'
06f3 0a ld a,(bc)
06f4 0c inc c
06f5 00 nop
06f6 0a ld a,(bc)
06f7 0a ld a,(bc)
06f8 0c inc c
06f9 00 nop
06fa 0c inc c
06fb 0a ld a,(bc)
06fc 0c inc c
06fd 00 nop
06fe 0e0a ld c,#0a
0700 0c inc c
0701 00 nop
0702 2c inc l
0703 0a ld a,(bc)
0704 0c inc c
0705 00 nop
0706 7c ld a,h
0707 0a ld a,(bc)
0708 a0 and b
0709 0a ld a,(bc)
070a 0c inc c
070b 00 nop
070c a3 and e
070d 0a ld a,(bc)
070e 78 ld a,b
070f a7 and a
0710 2004 jr nz,#0716 ; (4)
0712 2a0a4e ld hl,(#4e0a)
0715 7e ld a,(hl)
0716 dd219607 ld ix,#0796
071a 47 ld b,a
071b 87 add a,a
071c 87 add a,a
071d 80 add a,b
071e 80 add a,b
071f 5f ld e,a
0720 1600 ld d,#00
0722 dd19 add ix,de
0724 dd7e00 ld a,(ix+#00)
0727 87 add a,a
0728 47 ld b,a
0729 87 add a,a
072a 87 add a,a
072b 4f ld c,a
072c 87 add a,a
072d 87 add a,a
072e 81 add a,c
072f 80 add a,b
0730 5f ld e,a
0731 1600 ld d,#00
0733 210f33 ld hl,#330f
0736 19 add hl,de
0737 cd1408 call #0814
073a dd7e01 ld a,(ix+#01)
073d 32b04d ld (#4db0),a
0740 dd7e02 ld a,(ix+#02)
0743 47 ld b,a
0744 87 add a,a
0745 80 add a,b
0746 5f ld e,a
0747 1600 ld d,#00
0749 214308 ld hl,#0843
074c 19 add hl,de
074d cd3a08 call #083a
0750 dd7e03 ld a,(ix+#03)
0753 87 add a,a
0754 5f ld e,a
0755 1600 ld d,#00
0757 fd214f08 ld iy,#084f
075b fd19 add iy,de
075d fd6e00 ld l,(iy+#00)
0760 fd6601 ld h,(iy+#01)
0763 22bb4d ld (#4dbb),hl
0766 dd7e04 ld a,(ix+#04)
0769 87 add a,a
076a 5f ld e,a
076b 1600 ld d,#00
076d fd216108 ld iy,#0861
0771 fd19 add iy,de
0773 fd6e00 ld l,(iy+#00)
0776 fd6601 ld h,(iy+#01)
0779 22bd4d ld (#4dbd),hl
077c dd7e05 ld a,(ix+#05)
077f 87 add a,a
0780 5f ld e,a
0781 1600 ld d,#00
0783 fd217308 ld iy,#0873
0787 fd19 add iy,de
0789 fd6e00 ld l,(iy+#00)
078c fd6601 ld h,(iy+#01)
078f 22954d ld (#4d95),hl
0792 cdea2b call #2bea
0795 c9 ret
0796 03 inc bc
0797 010100 ld bc,#0001
079a 02 ld (bc),a
079b 00 nop
079c 04 inc b
079d 010201 ld bc,#0102
07a0 03 inc bc
07a1 00 nop
07a2 04 inc b
07a3 010302 ld bc,#0203
07a6 04 inc b
07a7 010402 ld bc,#0204
07aa 03 inc bc
07ab 02 ld (bc),a
07ac 05 dec b
07ad 010500 ld bc,#0005
07b0 03 inc bc
07b1 02 ld (bc),a
07b2 0602 ld b,#02
07b4 05 dec b
07b5 010303 ld bc,#0303
07b8 03 inc bc
07b9 02 ld (bc),a
07ba 05 dec b
07bb 02 ld (bc),a
07bc 03 inc bc
07bd 03 inc bc
07be 0602 ld b,#02
07c0 05 dec b
07c1 02 ld (bc),a
07c2 03 inc bc
07c3 03 inc bc
07c4 0602 ld b,#02
07c6 05 dec b
07c7 00 nop
07c8 03 inc bc
07c9 04 inc b
07ca 07 rlca
07cb 02 ld (bc),a
07cc 05 dec b
07cd 010304 ld bc,#0403
07d0 03 inc bc
07d1 02 ld (bc),a
07d2 05 dec b
07d3 02 ld (bc),a
07d4 03 inc bc
07d5 04 inc b
07d6 0602 ld b,#02
07d8 05 dec b
07d9 02 ld (bc),a
07da 03 inc bc
07db 05 dec b
07dc 07 rlca
07dd 02 ld (bc),a
07de 05 dec b
07df 00 nop
07e0 03 inc bc
07e1 05 dec b
07e2 07 rlca
07e3 02 ld (bc),a
07e4 05 dec b
07e5 02 ld (bc),a
07e6 03 inc bc
07e7 05 dec b
07e8 05 dec b
07e9 02 ld (bc),a
07ea 05 dec b
07eb 010306 ld bc,#0603
07ee 07 rlca
07ef 02 ld (bc),a
07f0 05 dec b
07f1 02 ld (bc),a
07f2 03 inc bc
07f3 0607 ld b,#07
07f5 02 ld (bc),a
07f6 05 dec b
07f7 02 ld (bc),a
07f8 03 inc bc
07f9 0608 ld b,#08
07fb 02 ld (bc),a
07fc 05 dec b
07fd 02 ld (bc),a
07fe 03 inc bc
07ff 0607 ld b,#07
0801 02 ld (bc),a
0802 05 dec b
0803 02 ld (bc),a
0804 03 inc bc
0805 07 rlca
0806 08 ex af,af'
0807 02 ld (bc),a
0808 05 dec b
0809 02 ld (bc),a
080a 03 inc bc
080b 07 rlca
080c 08 ex af,af'
080d 02 ld (bc),a
080e 0602 ld b,#02
0810 03 inc bc
0811 07 rlca
0812 08 ex af,af'
0813 02 ld (bc),a
0814 11464d ld de,#4d46
0817 011c00 ld bc,#001c
081a edb0 ldir
081c 010c00 ld bc,#000c
081f a7 and a
0820 ed42 sbc hl,bc
0822 edb0 ldir
0824 010c00 ld bc,#000c
0827 a7 and a
0828 ed42 sbc hl,bc
082a edb0 ldir
082c 010c00 ld bc,#000c
082f a7 and a
0830 ed42 sbc hl,bc
0832 edb0 ldir
0834 010e00 ld bc,#000e
0837 edb0 ldir
0839 c9 ret
083a 11b84d ld de,#4db8
083d 010300 ld bc,#0003
0840 edb0 ldir
0842 c9 ret
0843 14 inc d
0844 1e46 ld e,#46
0846 00 nop
0847 1e3c ld e,#3c
0849 00 nop
084a 00 nop
084b 320000 ld (#0000),a
084e 00 nop
084f 14 inc d
0850 0a ld a,(bc)
0851 1e0f ld e,#0f
0853 2814 jr z,#0869 ; (20)
0855 32193c ld (#3c19),a
0858 1e50 ld e,#50
085a 2864 jr z,#08c0 ; (100)
085c 32783c ld (#3c78),a
085f 8c adc a,h
0860 46 ld b,(hl)
0861 c0 ret nz
0862 03 inc bc
0863 48 ld c,b
0864 03 inc bc
0865 d0 ret nc
0866 02 ld (bc),a
0867 58 ld e,b
0868 02 ld (bc),a
0869 e0 ret po
086a 016801 ld bc,#0168
086d f0 ret p
086e 00 nop
086f 78 ld a,b
0870 00 nop
0871 0100f0 ld bc,#f000
0874 00 nop
0875 f0 ret p
0876 00 nop
0877 b4 or h
0878 00 nop
0879 21094e ld hl,#4e09
087c af xor a
087d 060b ld b,#0b
087f cf rst #8
0880 cdc924 call #24c9
0883 2a734e ld hl,(#4e73)
0886 220a4e ld (#4e0a),hl
0889 210a4e ld hl,#4e0a
088c 11384e ld de,#4e38
088f 012e00 ld bc,#002e
0892 edb0 ldir
0894 21044e ld hl,#4e04
0897 34 inc (hl)
0898 c9 ret
0899 3a004e ld a,(#4e00)
089c 3d dec a
089d 2006 jr nz,#08a5 ; (6)
089f 3e09 ld a,#09
08a1 32044e ld (#4e04),a
08a4 c9 ret
08a5 ef rst #28
08a6 1100ef ld de,#ef00
08a9 1c inc e
08aa 83 add a,e
08ab ef rst #28
08ac 04 inc b
08ad 00 nop
08ae ef rst #28
08af 05 dec b
08b0 00 nop
08b1 ef rst #28
08b2 1000 djnz #08b4 ; (0)
08b4 ef rst #28
08b5 1a ld a,(de)
08b6 00 nop
08b7 f7 rst #30
08b8 54 ld d,h
08b9 00 nop
08ba 00 nop
08bb f7 rst #30
08bc 54 ld d,h
08bd 0600 ld b,#00
08bf 3a724e ld a,(#4e72)
08c2 47 ld b,a
08c3 3a094e ld a,(#4e09)
08c6 a0 and b
08c7 320350 ld (#5003),a
08ca c39408 jp #0894
08cd 3a0050 ld a,(#5000)
08d0 cb67 bit 4,a
08d2 c2de08 jp nz,#08de
08d5 21044e ld hl,#4e04
08d8 360e ld (hl),#0e
08da ef rst #28
08db 13 inc de
08dc 00 nop
08dd c9 ret
08de 3a0e4e ld a,(#4e0e)
08e1 fef4 cp #f4
08e3 2006 jr nz,#08eb ; (6)
08e5 21044e ld hl,#4e04
08e8 360c ld (hl),#0c
08ea c9 ret
08eb cd1710 call #1017
08ee cd1710 call #1017
08f1 cddd13 call #13dd
08f4 cd420c call #0c42
08f7 cd230e call #0e23
08fa cd360e call #0e36
08fd cdc30a call #0ac3
0900 cdd60b call #0bd6
0903 cd0d0c call #0c0d
0906 cd6c0e call #0e6c
0909 cdad0e call #0ead
090c c9 ret
090d 3e01 ld a,#01
090f 32124e ld (#4e12),a
0912 cd8724 call #2487
0915 21044e ld hl,#4e04
0918 34 inc (hl)
0919 3a144e ld a,(#4e14)
091c a7 and a
091d 201f jr nz,#093e ; (31)
091f 3a704e ld a,(#4e70)
0922 a7 and a
0923 2819 jr z,#093e ; (25)
0925 3a424e ld a,(#4e42)
0928 a7 and a
0929 2813 jr z,#093e ; (19)
092b 3a094e ld a,(#4e09)
092e c603 add a,#03
0930 4f ld c,a
0931 061c ld b,#1c
0933 cd4200 call #0042
0936 ef rst #28
0937 1c inc e
0938 05 dec b
0939 f7 rst #30
093a 54 ld d,h
093b 00 nop
093c 00 nop
093d c9 ret
093e 34 inc (hl)
093f c9 ret
0940 3a704e ld a,(#4e70)
0943 a7 and a
0944 2806 jr z,#094c ; (6)
0946 3a424e ld a,(#4e42)
0949 a7 and a
094a 2015 jr nz,#0961 ; (21)
094c 3a144e ld a,(#4e14)
094f a7 and a
0950 201a jr nz,#096c ; (26)
0952 cda12b call #2ba1
0955 ef rst #28
0956 1c inc e
0957 05 dec b
0958 f7 rst #30
0959 54 ld d,h
095a 00 nop
095b 00 nop
095c 21044e ld hl,#4e04
095f 34 inc (hl)
0960 c9 ret
0961 cda60a call #0aa6
0964 3a094e ld a,(#4e09)
0967 ee01 xor #01
0969 32094e ld (#4e09),a
096c 3e09 ld a,#09
096e 32044e ld (#4e04),a
0971 c9 ret
0972 af xor a
0973 32024e ld (#4e02),a
0976 32044e ld (#4e04),a
0979 32704e ld (#4e70),a
097c 32094e ld (#4e09),a
097f 320350 ld (#5003),a
0982 3e01 ld a,#01
0984 32004e ld (#4e00),a
0987 c9 ret
0988 ef rst #28
0989 00 nop
098a 01ef01 ld bc,#01ef
098d 01ef02 ld bc,#02ef
0990 00 nop
0991 ef rst #28
0992 1100ef ld de,#ef00
0995 13 inc de
0996 00 nop
0997 ef rst #28
0998 03 inc bc
0999 00 nop
099a ef rst #28
099b 04 inc b
099c 00 nop
099d ef rst #28
099e 05 dec b
099f 00 nop
09a0 ef rst #28
09a1 1000 djnz #09a3 ; (0)
09a3 ef rst #28
09a4 1a ld a,(de)
09a5 00 nop
09a6 ef rst #28
09a7 1c inc e
09a8 063a ld b,#3a
09aa 00 nop
09ab 4e ld c,(hl)
09ac fe03 cp #03
09ae 2806 jr z,#09b6 ; (6)
09b0 ef rst #28
09b1 1c inc e
09b2 05 dec b
09b3 ef rst #28
09b4 1d dec e
09b5 00 nop
09b6 f7 rst #30
09b7 54 ld d,h
09b8 00 nop
09b9 00 nop
09ba 3a004e ld a,(#4e00)
09bd 3d dec a
09be 2804 jr z,#09c4 ; (4)
09c0 f7 rst #30
09c1 54 ld d,h
09c2 0600 ld b,#00
09c4 3a724e ld a,(#4e72)
09c7 47 ld b,a
09c8 3a094e ld a,(#4e09)
09cb a0 and b
09cc 320350 ld (#5003),a
09cf c39408 jp #0894
09d2 3e03 ld a,#03
09d4 32044e ld (#4e04),a
09d7 c9 ret
09d8 f7 rst #30
09d9 54 ld d,h
09da 00 nop
09db 00 nop
09dc 21044e ld hl,#4e04
09df 34 inc (hl)
09e0 af xor a
09e1 32ac4e ld (#4eac),a
09e4 32bc4e ld (#4ebc),a
09e7 c9 ret
09e8 0e02 ld c,#02
09ea 0601 ld b,#01
09ec cd4200 call #0042
09ef f7 rst #30
09f0 42 ld b,d
09f1 00 nop
09f2 00 nop
09f3 210000 ld hl,#0000
09f6 cd7e26 call #267e
09f9 21044e ld hl,#4e04
09fc 34 inc (hl)
09fd c9 ret
09fe 0e00 ld c,#00
0a00 18e8 jr #09ea ; (-24)
0a02 18e4 jr #09e8 ; (-28)
0a04 18f8 jr #09fe ; (-8)
0a06 18e0 jr #09e8 ; (-32)
0a08 18f4 jr #09fe ; (-12)
0a0a 18dc jr #09e8 ; (-36)
0a0c 18f0 jr #09fe ; (-16)
0a0e ef rst #28
0a0f 00 nop
0a10 01ef06 ld bc,#06ef
0a13 00 nop
0a14 ef rst #28
0a15 1100ef ld de,#ef00
0a18 13 inc de
0a19 00 nop
0a1a ef rst #28
0a1b 04 inc b
0a1c 01ef05 ld bc,#05ef
0a1f 01ef10 ld bc,#10ef
0a22 13 inc de
0a23 f7 rst #30
0a24 43 ld b,e
0a25 00 nop
0a26 00 nop
0a27 21044e ld hl,#4e04
0a2a 34 inc (hl)
0a2b c9 ret
0a2c af xor a
0a2d 32ac4e ld (#4eac),a
0a30 32bc4e ld (#4ebc),a
0a33 3e02 ld a,#02
0a35 32cc4e ld (#4ecc),a
0a38 32dc4e ld (#4edc),a
0a3b 3a134e ld a,(#4e13)
0a3e fe14 cp #14
0a40 3802 jr c,#0a44 ; (2)
0a42 3e14 ld a,#14
0a44 e7 rst #20
0a45 6f ld l,a
0a46 0a ld a,(bc)
0a47 08 ex af,af'
0a48 216f0a ld hl,#0a6f
0a4b 6f ld l,a
0a4c 0a ld a,(bc)
0a4d 9e sbc a,(hl)
0a4e 216f0a ld hl,#0a6f
0a51 6f ld l,a
0a52 0a ld a,(bc)
0a53 6f ld l,a
0a54 0a ld a,(bc)
0a55 97 sub a
0a56 226f0a ld (#0a6f),hl
0a59 6f ld l,a
0a5a 0a ld a,(bc)
0a5b 6f ld l,a
0a5c 0a ld a,(bc)
0a5d 97 sub a
0a5e 226f0a ld (#0a6f),hl
0a61 6f ld l,a
0a62 0a ld a,(bc)
0a63 6f ld l,a
0a64 0a ld a,(bc)
0a65 97 sub a
0a66 226f0a ld (#0a6f),hl
0a69 6f ld l,a
0a6a 0a ld a,(bc)
0a6b 6f ld l,a
0a6c 0a ld a,(bc)
0a6d 6f ld l,a
0a6e 0a ld a,(bc)
0a6f 21044e ld hl,#4e04
0a72 34 inc (hl)
0a73 34 inc (hl)
0a74 af xor a
0a75 32cc4e ld (#4ecc),a
0a78 32dc4e ld (#4edc),a
0a7b c9 ret
0a7c af xor a
0a7d 32cc4e ld (#4ecc),a
0a80 32dc4e ld (#4edc),a
0a83 0607 ld b,#07
0a85 210c4e ld hl,#4e0c
0a88 cf rst #8
0a89 cdc924 call #24c9
0a8c 21044e ld hl,#4e04
0a8f 34 inc (hl)
0a90 21134e ld hl,#4e13
0a93 34 inc (hl)
0a94 2a0a4e ld hl,(#4e0a)
0a97 7e ld a,(hl)
0a98 fe14 cp #14
0a9a c8 ret z
0a9b 23 inc hl
0a9c 220a4e ld (#4e0a),hl
0a9f c9 ret
0aa0 c38809 jp #0988
0aa3 c3d209 jp #09d2
0aa6 062e ld b,#2e
0aa8 dd210a4e ld ix,#4e0a
0aac fd21384e ld iy,#4e38
0ab0 dd5600 ld d,(ix+#00)
0ab3 fd5e00 ld e,(iy+#00)
0ab6 fd7200 ld (iy+#00),d
0ab9 dd7300 ld (ix+#00),e
0abc dd23 inc ix
0abe fd23 inc iy
0ac0 10ee djnz #0ab0 ; (-18)
0ac2 c9 ret
0ac3 3aa44d ld a,(#4da4)
0ac6 a7 and a
0ac7 c0 ret nz
0ac8 dd21004c ld ix,#4c00
0acc fd21c84d ld iy,#4dc8
0ad0 110001 ld de,#0100
0ad3 fdbe00 cp (iy+#00)
0ad6 c2d20b jp nz,#0bd2
0ad9 fd36000e ld (iy+#00),#0e
0add 3aa64d ld a,(#4da6)
0ae0 a7 and a
0ae1 281b jr z,#0afe ; (27)
0ae3 2acb4d ld hl,(#4dcb)
0ae6 a7 and a
0ae7 ed52 sbc hl,de
0ae9 3013 jr nc,#0afe ; (19)
0aeb 21ac4e ld hl,#4eac
0aee cbfe set 7,(hl)
0af0 3e09 ld a,#09
0af2 ddbe0b cp (ix+#0b)
0af5 2004 jr nz,#0afb ; (4)
0af7 cbbe res 7,(hl)
0af9 3e09 ld a,#09
0afb 320b4c ld (#4c0b),a
0afe 3aa74d ld a,(#4da7)
0b01 a7 and a
0b02 281d jr z,#0b21 ; (29)
0b04 2acb4d ld hl,(#4dcb)
0b07 a7 and a
0b08 ed52 sbc hl,de
0b0a 3027 jr nc,#0b33 ; (39)
0b0c 3e11 ld a,#11
0b0e ddbe03 cp (ix+#03)
0b11 2807 jr z,#0b1a ; (7)
0b13 dd360311 ld (ix+#03),#11
0b17 c3330b jp #0b33
0b1a dd360312 ld (ix+#03),#12
0b1e c3330b jp #0b33
0b21 3e01 ld a,#01
0b23 ddbe03 cp (ix+#03)
0b26 2807 jr z,#0b2f ; (7)
0b28 dd360301 ld (ix+#03),#01
0b2c c3330b jp #0b33
0b2f dd360301 ld (ix+#03),#01
0b33 3aa84d ld a,(#4da8)
0b36 a7 and a
0b37 281d jr z,#0b56 ; (29)
0b39 2acb4d ld hl,(#4dcb)
0b3c a7 and a
0b3d ed52 sbc hl,de
0b3f 3027 jr nc,#0b68 ; (39)
0b41 3e11 ld a,#11
0b43 ddbe05 cp (ix+#05)
0b46 2807 jr z,#0b4f ; (7)
0b48 dd360511 ld (ix+#05),#11
0b4c c3680b jp #0b68
0b4f dd360512 ld (ix+#05),#12
0b53 c3680b jp #0b68
0b56 3e03 ld a,#03
0b58 ddbe05 cp (ix+#05)
0b5b 2807 jr z,#0b64 ; (7)
0b5d dd360503 ld (ix+#05),#03
0b61 c3680b jp #0b68
0b64 dd360503 ld (ix+#05),#03
0b68 3aa94d ld a,(#4da9)
0b6b a7 and a
0b6c 281d jr z,#0b8b ; (29)
0b6e 2acb4d ld hl,(#4dcb)
0b71 a7 and a
0b72 ed52 sbc hl,de
0b74 3027 jr nc,#0b9d ; (39)
0b76 3e11 ld a,#11
0b78 ddbe07 cp (ix+#07)
0b7b 2807 jr z,#0b84 ; (7)
0b7d dd360711 ld (ix+#07),#11
0b81 c39d0b jp #0b9d
0b84 dd360712 ld (ix+#07),#12
0b88 c39d0b jp #0b9d
0b8b 3e05 ld a,#05
0b8d ddbe07 cp (ix+#07)
0b90 2807 jr z,#0b99 ; (7)
0b92 dd360705 ld (ix+#07),#05
0b96 c39d0b jp #0b9d
0b99 dd360705 ld (ix+#07),#05
0b9d 3aaa4d ld a,(#4daa)
0ba0 a7 and a
0ba1 281d jr z,#0bc0 ; (29)
0ba3 2acb4d ld hl,(#4dcb)
0ba6 a7 and a
0ba7 ed52 sbc hl,de
0ba9 3027 jr nc,#0bd2 ; (39)
0bab 3e11 ld a,#11
0bad ddbe09 cp (ix+#09)
0bb0 2807 jr z,#0bb9 ; (7)
0bb2 dd360911 ld (ix+#09),#11
0bb6 c3d20b jp #0bd2
0bb9 dd360912 ld (ix+#09),#12
0bbd c3d20b jp #0bd2
0bc0 3e07 ld a,#07
0bc2 ddbe09 cp (ix+#09)
0bc5 2807 jr z,#0bce ; (7)
0bc7 dd360907 ld (ix+#09),#07
0bcb c3d20b jp #0bd2
0bce dd360907 ld (ix+#09),#07
0bd2 fd3500 dec (iy+#00)
0bd5 c9 ret
0bd6 0619 ld b,#19
0bd8 3a024e ld a,(#4e02)
0bdb fe22 cp #22
0bdd c2e20b jp nz,#0be2
0be0 0600 ld b,#00
0be2 dd21004c ld ix,#4c00
0be6 3aac4d ld a,(#4dac)
0be9 a7 and a
0bea caf00b jp z,#0bf0
0bed dd7003 ld (ix+#03),b
0bf0 3aad4d ld a,(#4dad)
0bf3 a7 and a
0bf4 cafa0b jp z,#0bfa
0bf7 dd7005 ld (ix+#05),b
0bfa 3aae4d ld a,(#4dae)
0bfd a7 and a
0bfe ca040c jp z,#0c04
0c01 dd7007 ld (ix+#07),b
0c04 3aaf4d ld a,(#4daf)
0c07 a7 and a
0c08 c8 ret z
0c09 dd7009 ld (ix+#09),b
0c0c c9 ret
0c0d 21cf4d ld hl,#4dcf
0c10 34 inc (hl)
0c11 3e0a ld a,#0a
0c13 be cp (hl)
0c14 c0 ret nz
0c15 3600 ld (hl),#00
0c17 3a044e ld a,(#4e04)
0c1a fe03 cp #03
0c1c 2015 jr nz,#0c33 ; (21)
0c1e 216444 ld hl,#4464
0c21 3e10 ld a,#10
0c23 be cp (hl)
0c24 2002 jr nz,#0c28 ; (2)
0c26 3e00 ld a,#00
0c28 77 ld (hl),a
0c29 327844 ld (#4478),a
0c2c 328447 ld (#4784),a
0c2f 329847 ld (#4798),a
0c32 c9 ret
0c33 213247 ld hl,#4732
0c36 3e10 ld a,#10
0c38 be cp (hl)
0c39 2002 jr nz,#0c3d ; (2)
0c3b 3e00 ld a,#00
0c3d 77 ld (hl),a
0c3e 327846 ld (#4678),a
0c41 c9 ret
0c42 3aa44d ld a,(#4da4)
0c45 a7 and a
0c46 c0 ret nz
0c47 3a944d ld a,(#4d94)
0c4a 07 rlca
0c4b 32944d ld (#4d94),a
0c4e d0 ret nc
0c4f 3aa04d ld a,(#4da0)
0c52 a7 and a
0c53 c2900c jp nz,#0c90
0c56 dd210533 ld ix,#3305
0c5a fd21004d ld iy,#4d00
Comments
beowulf wrote:
It doesn't help that nucleus doesn't allow me to post all of it. There are about 13,000 lines of code that got cut off. Maybe that's the problem.
Sunday, June 08 2008 20:03:55
Add Comment
You must be logged in as a member to add comment to this blog
mustafa wrote: