;; Ms. Pac-Man ;; ;; (c) 1980 NAMCO ;; (c) 1980 Bally/Midway ;; (c) 1981 General Computer Corporation ;; ;; Disassembly started by someone on usenet ;; much work by Scott 'Jerry' Lawrence pacman@absynth.com ;; using information provided by: ;; MAME -debug ;; David Caldwell ;; Marcel "The Sil" Silvius ;; Fred K ;; David Widel ;; ;; Over time, this document will transform from a documented disassembly ;; of the bootleg ms-pacman roms into a re-assemblable source file. ;; ;; My goals with this are to replace every direct address in the asm to ;; names instead, so that this can be easily ported to other machines ;; where the hardware is layed out differently... Pengo hardware for example. ;; == IF YOU KNOW OF ANY BITS OF CODE THAT ARE NOT DOCUMENTED HERE, OR ;; KNOW OF MORE RAM ADDRESSES OR SUCH, PLEASE EMAIL ME SO THAT I MAY ;; INTEGRATE YOUR INFORMATION INTO HERE. ;; 2001-07-13 jerry ; more notes from David Widel. Ram variables, $2a23m $8768 ;; ;; 2001-06-25,26 jerry ;; integrated in some notes from David Widel (THANKS!) ;; ;; 2001-03-06 jerry ;; integrated in Fred K's pacman notes. ;; ;; 2001-03-04 jerry ;; corrected text strings in the lookup table at 36a5 ;; commented some of the text string routines ;; ;; 2001-02-28 jerry ;; added text string lookup tables ;; added indirect lookup at 36a5 ;; added more commenting over from the pacman.asm file ;; ;; 2001-02-27 jerry ;; table data pulled out, and bogus opcodes removed. ;; more score information found as well ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ram: ; $4c02 ; $4c0c current bonus fruit shape ; $4c0d current bonus fruit color ; $4c20 ; $4c22 ; $4c24 ; $4c32 ; $4c34 ; $4c80 ; $4c90 ; $4dd4 current bonus fruit points ; $4e00 ; $4e02 tells what game mode you are in, causes blue maze bug. ; $4e0e number of pellets eaten ; $4eac ; $4ebc ; ; $4e13 current board number ; $4e14 number of lives left ; $4e15 number of lives displayed on the screen ; $4e34 board number as well? ; ; $4e6b coin part of xcoin/xcredit, FP=00 ; $4e6d credit part of xcoin/xcredit, FP=00 ; $4e6e number of credits ; $4e6f number of lives to start ; $4e70 can't read - something about 1coin/1credit ?? ; $4e71 bonus life 10=10k, 15=15k, etc ; $4e72 cocktail=01 upright=00 ; $4e73 68=normal 7d=hard checked at start of game ; ; SCORE AABBCC ; $4e80 P1 CC ; $4e81 P1 BB ; $4e82 P1 AA ; $4e83 ; ; $4e84 P2 CC ; $4e85 P2 BB ; $4e86 P2 AA ; $4e87 ; ; $4e88 TOP CC ; $4e89 TOP BB ; $4e8a TOP AA ; ; $4e8c ; $4ebc ; $4ebf ; $4ecc ; $4ecf ; $4edc ; $4edf ; $4eec ; $4eef ; $4e9f ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; rst 0 - initialization ;; init 0000 f3 di ; Disable interrupts 0001 3e00 ld a,#00 ; 0 -> a 0003 ed47 ld i,a ; Clear interrupt status register 0005 c30b23 jp #230b ; RAM test ;; rst 8 - memset() ;; 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 ;; rst 10 ;; 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 ;; rst 18 ;; 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 0019 87 add 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 ;; rst 20 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) ;; rst 28 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) ;; rst 30 0030 11904c ld de,#4c90 0033 0610 ld b,#10 0035 c35100 jp #0051 ;; rst 38 ;; Interrupt mode 1 handler 0038 c39b1f jp #1f9b ;; patched jump from pacman. 003b 50 ld d,b ;; -- unused? -- 003c 320750 ld (#5007),a 003f c33800 jp #0038 ;; continuation of rst 28 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 ;; rst 30 continuation 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 ;; part of the initialization routine?? ;; continuation of RST 38 partially... 008d f5 push af 008e 32c050 ld (#50c0),a ; kick watchdog 0091 af xor a ; 0 -> a 0092 320050 ld (#5000),a 0095 f3 di ; disable interrupts 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 00a0 115050 ld de,#5050 ; sound voice frequency 00a3 011000 ld bc,#0010 ; bc = 10 00a6 edb0 ldir 00a8 3acc4e ld a,(#4ecc) 00ab a7 and a 00ac 3acf4e ld a,(#4ecf) 00af 2003 jr nz,#00b4 ; (3) 00b1 3a9f4e ld a,(#4e9f) 00b4 324550 ld (#5045),a ; sound voice 1 waveform 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 ; sound voice 2 waveform 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 ; sound voice 3 waveform 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) 0132 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 ; coin lockout 01a7 cdad02 call #02ad ; something with the coin counter 01aa cdfd02 call #02fd ; credits -> player 1 and 2 lights 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 in1 01cf e610 and #10 01d1 ca0000 jp z,#0000 01d4 3e01 ld a,#01 01d6 320050 ld (#5000),a 01d9 fb ei ; enable interrupts 01da f1 pop af 01db c9 ret ; end 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) ; number of current credits 026a fe99 cp #99 ; max coins 026c 17 rla ; then lockout 026d 320650 ld (#5006),a ; coin lockou 0270 1f rra 0271 d0 ret nc ; return if 99 credits 0272 3a0050 ld a,(#5000) ; check IN0 input 0275 47 ld b,a ; b=a 0276 cb00 rlc b ; rotate left 0278 3a664e ld a,(#4e66) ; ? 027b 17 rla ; rotate left with carry 027c e60f and #0f ; and it with 0f 027e 32664e ld (#4e66),a ; put it back 0281 d60c sub #0c ; a=a-$C 0283 ccdf02 call z,#02df ; call $2df if a==0 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 ; increment credits 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) ; increment credits 02b0 a7 and a 02b1 c8 ret z ; if it's zero, return 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 ; coin counter 02ce 1c inc e 02cf 7b ld a,e 02d0 326a4e ld (#4e6a),a ; credit memory = 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 02df 3a6b4e ld a,(#4e6b) 02e2 216c4e ld hl,#4e6c 02e5 34 inc (hl) 02e6 96 sub (hl) 02e7 c0 ret nz 02e8 77 ld (hl),a 02e9 3a6d4e ld a,(#4e6d) 02ec 216e4e ld hl,#4e6e ; number of credits 02ef 86 add a,(hl) 02f0 27 daa 02f1 d2f602 jp nc,#02f6 02f4 3e99 ld a,#99 02f6 77 ld (hl),a 02f7 219c4e ld hl,#4e9c 02fa cbce set 1,(hl) 02fc c9 ret 02fd 21ce4d ld hl,#4dce 0300 34 inc (hl) ; increment whats in $4dce 0301 7e ld a,(hl) ; a = alue in 4cf 0302 e60f and #0f ; and with $0f 0304 201f jr nz,#0325 ; (31) if not 0, jump 0306 7e ld a,(hl) ; shift right 0307 0f rrca 0308 0f rrca 0309 0f rrca 030a 0f rrca 030b 47 ld b,a ; b=a 030c 3ad64d ld a,(#4dd6) 030f 2f cpl ; compliment 0310 b0 or b ; or b 0311 4f ld c,a ; c=a 0312 3a6e4e ld a,(#4e6e) ; a = number of credits 0315 d601 sub #01 ; subtract one from it. 0317 3002 jr nc,#031b ; (2) if carry not 0 then jump 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 ; player 2 start lamp 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) ; draw high score and credits 03a0 d605 sub #05 ; onto the screen 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 ;; this seems to execute oddly. 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 03fe cda12b call #2ba1 0401 3a6e4e ld a,(#4e6e) 0404 a7 and a 0405 280c jr z,#0413 ; (12) 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 c35c3e jp #3e5c 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 ; number of lives left 04fa af xor a 04fb 32704e ld (#4e70),a 04fe 32154e ld (#4e15),a ; number of lives displayed 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 ;; display 1/2 player and check start buttons 061b cda12b call #2ba1 061e 3a6e4e ld a,(#4e6e) ; credits 0621 fe01 cp #01 ; is it 1? 0623 0609 ld b,#09 ; msg #9: 1 OR 2 PLAYERS 0625 2002 jr nz,#0629 ; (2) >2 credits 0627 0608 ld b,#08 ; msg #8: 1 PLAYER ONLY 0629 cd5e2c call #2c5e ; print message 062c 3a6e4e ld a,(#4e6e) 062f fe01 cp #01 ; is it 0 0631 3a4050 ld a,(#5040) ;; check in1 0634 280c jr z,#0642 ; (12) don't check p2 with 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) ; number of credits 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 ; put a in current board level 0693 3a6f4e ld a,(#4e6f) ; number of lives left? 0696 32144e ld (#4e14),a ; number of lives 0699 32154e ld (#4e15),a ; number of lives displayed 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 ;; draw lives displayed onto the screen 06a8 21154e ld hl,#4e15 ; hl=location of lives displayed on screen 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 ;; routine to determine the number of pellets must be eaten 08de 3a0e4e ld a,(#4e0e) ; number of pellets eaten 08e1 c3a194 jp #94a1 ; on pac-man 08e2 is # pellets to eat 08e4 00 nop 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) ; number of lives left 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) ; number of lives left 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 ;; zero some important variables 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 ; flip screen 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 ; flip screen 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 1806 jr #0a3b ; (6) 0a35 32cc4e ld (#4ecc),a 0a38 32dc4e ld (#4edc),a 0a3b 3a134e ld a,(#4e13) ; current board level 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 ;; we're about to start the next board, (it's about to be drawn) 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 ;; current board level 0a93 34 inc (hl) ; increment board level 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 c32495 jp #9524 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 0c5e cd0020 call #2000 0c61 22004d ld (#4d00),hl 0c64 3e03 ld a,#03 0c66 32284d ld (#4d28),a 0c69 322c4d ld (#4d2c),a 0c6c 3a004d ld a,(#4d00) 0c6f fe64 cp #64 0c71 c2900c jp nz,#0c90 0c74 212c2e ld hl,#2e2c 0c77 220a4d ld (#4d0a),hl 0c7a 210001 ld hl,#0100 0c7d 22144d ld (#4d14),hl 0c80 221e4d ld (#4d1e),hl 0c83 3e02 ld a,#02 0c85 32284d ld (#4d28),a 0c88 322c4d ld (#4d2c),a 0c8b 3e01 ld a,#01 0c8d 32a04d ld (#4da0),a 0c90 3aa14d ld a,(#4da1) 0c93 fe01 cp #01 0c95 cafb0c jp z,#0cfb 0c98 fe00 cp #00 0c9a c2c10c jp nz,#0cc1 0c9d 3a024d ld a,(#4d02) 0ca0 fe78 cp #78 0ca2 cc2e1f call z,#1f2e 0ca5 fe80 cp #80 0ca7 cc2e1f call z,#1f2e 0caa 3a2d4d ld a,(#4d2d) 0cad 32294d ld (#4d29),a 0cb0 dd21204d ld ix,#4d20 0cb4 fd21024d ld iy,#4d02 0cb8 cd0020 call #2000 0cbb 22024d ld (#4d02),hl 0cbe c3fb0c jp #0cfb 0cc1 dd210533 ld ix,#3305 0cc5 fd21024d ld iy,#4d02 0cc9 cd0020 call #2000 0ccc 22024d ld (#4d02),hl 0ccf 3e03 ld a,#03 0cd1 322d4d ld (#4d2d),a 0cd4 32294d ld (#4d29),a 0cd7 3a024d ld a,(#4d02) 0cda fe64 cp #64 0cdc c2fb0c jp nz,#0cfb 0cdf 212c2e ld hl,#2e2c 0ce2 220c4d ld (#4d0c),hl 0ce5 210001 ld hl,#0100 0ce8 22164d ld (#4d16),hl 0ceb 22204d ld (#4d20),hl 0cee 3e02 ld a,#02 0cf0 32294d ld (#4d29),a 0cf3 322d4d ld (#4d2d),a 0cf6 3e01 ld a,#01 0cf8 32a14d ld (#4da1),a 0cfb 3aa24d ld a,(#4da2) 0cfe fe01 cp #01 0d00 ca930d jp z,#0d93 0d03 fe00 cp #00 0d05 c22c0d jp nz,#0d2c 0d08 3a044d ld a,(#4d04) 0d0b fe78 cp #78 0d0d cc551f call z,#1f55 0d10 fe80 cp #80 0d12 cc551f call z,#1f55 0d15 3a2e4d ld a,(#4d2e) 0d18 322a4d ld (#4d2a),a 0d1b dd21224d ld ix,#4d22 0d1f fd21044d ld iy,#4d04 0d23 cd0020 call #2000 0d26 22044d ld (#4d04),hl 0d29 c3930d jp #0d93 0d2c 3aa24d ld a,(#4da2) 0d2f fe03 cp #03 0d31 c2590d jp nz,#0d59 0d34 dd21ff32 ld ix,#32ff 0d38 fd21044d ld iy,#4d04 0d3c cd0020 call #2000 0d3f 22044d ld (#4d04),hl 0d42 af xor a 0d43 322a4d ld (#4d2a),a 0d46 322e4d ld (#4d2e),a 0d49 3a054d ld a,(#4d05) 0d4c fe80 cp #80 0d4e c2930d jp nz,#0d93 0d51 3e02 ld a,#02 0d53 32a24d ld (#4da2),a 0d56 c3930d jp #0d93 0d59 dd210533 ld ix,#3305 0d5d fd21044d ld iy,#4d04 0d61 cd0020 call #2000 0d64 22044d ld (#4d04),hl 0d67 3e03 ld a,#03 0d69 322a4d ld (#4d2a),a 0d6c 322e4d ld (#4d2e),a 0d6f 3a044d ld a,(#4d04) 0d72 fe64 cp #64 0d74 c2930d jp nz,#0d93 0d77 212c2e ld hl,#2e2c 0d7a 220e4d ld (#4d0e),hl 0d7d 210001 ld hl,#0100 0d80 22184d ld (#4d18),hl 0d83 22224d ld (#4d22),hl 0d86 3e02 ld a,#02 0d88 322a4d ld (#4d2a),a 0d8b 322e4d ld (#4d2e),a 0d8e 3e01 ld a,#01 0d90 32a24d ld (#4da2),a 0d93 3aa34d ld a,(#4da3) 0d96 fe01 cp #01 0d98 c8 ret z 0d99 fe00 cp #00 0d9b c2c00d jp nz,#0dc0 0d9e 3a064d ld a,(#4d06) 0da1 fe78 cp #78 0da3 cc7c1f call z,#1f7c 0da6 fe80 cp #80 0da8 cc7c1f call z,#1f7c 0dab 3a2f4d ld a,(#4d2f) 0dae 322b4d ld (#4d2b),a 0db1 dd21244d ld ix,#4d24 0db5 fd21064d ld iy,#4d06 0db9 cd0020 call #2000 0dbc 22064d ld (#4d06),hl 0dbf c9 ret 0dc0 3aa34d ld a,(#4da3) 0dc3 fe03 cp #03 0dc5 c2ea0d jp nz,#0dea 0dc8 dd210333 ld ix,#3303 0dcc fd21064d ld iy,#4d06 0dd0 cd0020 call #2000 0dd3 22064d ld (#4d06),hl 0dd6 3e02 ld a,#02 0dd8 322b4d ld (#4d2b),a 0ddb 322f4d ld (#4d2f),a 0dde 3a074d ld a,(#4d07) 0de1 fe80 cp #80 0de3 c0 ret nz 0de4 3e02 ld a,#02 0de6 32a34d ld (#4da3),a 0de9 c9 ret 0dea dd210533 ld ix,#3305 0dee fd21064d ld iy,#4d06 0df2 cd0020 call #2000 0df5 22064d ld (#4d06),hl 0df8 3e03 ld a,#03 0dfa 322b4d ld (#4d2b),a 0dfd 322f4d ld (#4d2f),a 0e00 3a064d ld a,(#4d06) 0e03 fe64 cp #64 0e05 c0 ret nz 0e06 212c2e ld hl,#2e2c 0e09 22104d ld (#4d10),hl 0e0c 210001 ld hl,#0100 0e0f 221a4d ld (#4d1a),hl 0e12 22244d ld (#4d24),hl 0e15 3e02 ld a,#02 0e17 322b4d ld (#4d2b),a 0e1a 322f4d ld (#4d2f),a 0e1d 3e01 ld a,#01 0e1f 32a34d ld (#4da3),a 0e22 c9 ret 0e23 21c44d ld hl,#4dc4 0e26 34 inc (hl) 0e27 3e08 ld a,#08 0e29 be cp (hl) 0e2a c0 ret nz 0e2b 3600 ld (hl),#00 0e2d 3ac04d ld a,(#4dc0) 0e30 ee01 xor #01 0e32 32c04d ld (#4dc0),a 0e35 c9 ret 0e36 3aa64d ld a,(#4da6) 0e39 a7 and a 0e3a c0 ret nz 0e3b 3ac14d ld a,(#4dc1) 0e3e fe07 cp #07 0e40 c8 ret z 0e41 87 add a,a 0e42 2ac24d ld hl,(#4dc2) 0e45 23 inc hl 0e46 22c24d ld (#4dc2),hl 0e49 5f ld e,a 0e4a 1600 ld d,#00 0e4c dd21864d ld ix,#4d86 0e50 dd19 add ix,de 0e52 dd5e00 ld e,(ix+#00) 0e55 dd5601 ld d,(ix+#01) 0e58 a7 and a 0e59 ed52 sbc hl,de 0e5b c0 ret nz 0e5c af xor a 0e5d 00 nop 0e5e 3c inc a 0e5f 32c14d ld (#4dc1),a 0e62 210101 ld hl,#0101 0e65 22b14d ld (#4db1),hl 0e68 22b34d ld (#4db3),hl 0e6b c9 ret 0e6c 3aa54d ld a,(#4da5) 0e6f a7 and a 0e70 2805 jr z,#0e77 ; (5) 0e72 af xor a 0e73 32ac4e ld (#4eac),a 0e76 c9 ret 0e77 21ac4e ld hl,#4eac 0e7a 06e0 ld b,#e0 0e7c 3a0e4e ld a,(#4e0e) 0e7f fee4 cp #e4 0e81 3806 jr c,#0e89 ; (6) 0e83 78 ld a,b 0e84 a6 and (hl) 0e85 cbe7 set 4,a 0e87 77 ld (hl),a 0e88 c9 ret 0e89 fed4 cp #d4 0e8b 3806 jr c,#0e93 ; (6) 0e8d 78 ld a,b 0e8e a6 and (hl) 0e8f cbdf set 3,a 0e91 77 ld (hl),a 0e92 c9 ret 0e93 feb4 cp #b4 0e95 3806 jr c,#0e9d ; (6) 0e97 78 ld a,b 0e98 a6 and (hl) 0e99 cbd7 set 2,a 0e9b 77 ld (hl),a 0e9c c9 ret 0e9d fe74 cp #74 0e9f 3806 jr c,#0ea7 ; (6) 0ea1 78 ld a,b 0ea2 a6 and (hl) 0ea3 cbcf set 1,a 0ea5 77 ld (hl),a 0ea6 c9 ret 0ea7 78 ld a,b 0ea8 a6 and (hl) 0ea9 cbc7 set 0,a 0eab 77 ld (hl),a 0eac c9 ret 0ead c3ee86 jp #86ee 0eb0 a7 and a 0eb1 c0 ret nz 0eb2 3ad44d ld a,(#4dd4) 0eb5 a7 and a 0eb6 c0 ret nz 0eb7 3a0e4e ld a,(#4e0e) 0eba fe46 cp #46 0ebc 280e jr z,#0ecc ; (14) 0ebe feaa cp #aa 0ec0 c0 ret nz 0ec1 3a0d4e ld a,(#4e0d) 0ec4 a7 and a 0ec5 c0 ret nz 0ec6 210d4e ld hl,#4e0d 0ec9 34 inc (hl) 0eca 1809 jr #0ed5 ; (9) 0ecc 3a0c4e ld a,(#4e0c) 0ecf a7 and a 0ed0 c0 ret nz 0ed1 210c4e ld hl,#4e0c 0ed4 34 inc (hl) 0ed5 219480 ld hl,#8094 0ed8 22d24d ld (#4dd2),hl 0edb 21fd0e ld hl,#0efd 0ede 3a134e ld a,(#4e13) ; compare board level with 0ee1 fe14 cp #14 ; 14 0ee3 3802 jr c,#0ee7 ; (2) 0ee5 3e14 ld a,#14 0ee7 47 ld b,a 0ee8 87 add a,a 0ee9 80 add a,b 0eea d7 rst #10 0eeb 320c4c ld (#4c0c),a 0eee 23 inc hl 0eef 7e ld a,(hl) 0ef0 320d4c ld (#4c0d),a 0ef3 23 inc hl 0ef4 7e ld a,(hl) 0ef5 32d44d ld (#4dd4),a 0ef8 f7 rst #30 0ef9 8a adc a,d 0efa 04 inc b 0efb 00 nop 0efc c9 ret ;; $0efd - 0f3b = table for fruit shapes, colors, point value. ;; (the 3 bytes are stored in the above order) offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00000ef0 00 14 06 00000f00 01 0f 07 02 15 08 02 15 08 04 14 09 04 14 09 05 00000f10 17 0a 05 17 0a 06 09 0b 06 09 0b 03 16 0c 03 16 00000f20 0c 07 16 0d 07 16 0d 07 16 0d 07 16 0d 07 16 0d 00000f30 07 16 0d 07 16 0d 07 16 0d 07 16 0d ;; shape 00 color 14 points 06 ;; shape 01 color 0f points 07 ;; etc... 0f3c 00 nop 0f3d 00 nop 0f3e 00 nop 0f3f 00 nop 0f40 00 nop 0f41 00 nop 0f42 00 nop 0f43 00 nop 0f44 00 nop 0f45 00 nop 0f46 00 nop 0f47 00 nop 0f48 00 nop 0f49 00 nop 0f4a 00 nop 0f4b 00 nop 0f4c 00 nop 0f4d 00 nop 0f4e 00 nop 0f4f 00 nop 0f50 00 nop 0f51 00 nop 0f52 00 nop 0f53 00 nop 0f54 00 nop 0f55 00 nop 0f56 00 nop 0f57 00 nop 0f58 00 nop 0f59 00 nop 0f5a 00 nop 0f5b 00 nop 0f5c 00 nop 0f5d 00 nop 0f5e 00 nop 0f5f 00 nop 0f60 00 nop 0f61 00 nop 0f62 00 nop 0f63 00 nop 0f64 00 nop 0f65 00 nop 0f66 00 nop 0f67 00 nop 0f68 00 nop 0f69 00 nop 0f6a 00 nop 0f6b 00 nop 0f6c 00 nop 0f6d 00 nop 0f6e 00 nop 0f6f 00 nop 0f70 00 nop 0f71 00 nop 0f72 00 nop 0f73 00 nop 0f74 00 nop 0f75 00 nop 0f76 00 nop 0f77 00 nop 0f78 00 nop 0f79 00 nop 0f7a 00 nop 0f7b 00 nop 0f7c 00 nop 0f7d 00 nop 0f7e 00 nop 0f7f 00 nop 0f80 00 nop 0f81 00 nop 0f82 00 nop 0f83 00 nop 0f84 00 nop 0f85 00 nop 0f86 00 nop 0f87 00 nop 0f88 00 nop 0f89 00 nop 0f8a 00 nop 0f8b 00 nop 0f8c 00 nop 0f8d 00 nop 0f8e 00 nop 0f8f 00 nop 0f90 00 nop 0f91 00 nop 0f92 00 nop 0f93 00 nop 0f94 00 nop 0f95 00 nop 0f96 00 nop 0f97 00 nop 0f98 00 nop 0f99 00 nop 0f9a 00 nop 0f9b 00 nop 0f9c 00 nop 0f9d 00 nop 0f9e 00 nop 0f9f 00 nop 0fa0 00 nop 0fa1 00 nop 0fa2 00 nop 0fa3 00 nop 0fa4 00 nop 0fa5 00 nop 0fa6 00 nop 0fa7 00 nop 0fa8 00 nop 0fa9 00 nop 0faa 00 nop 0fab 00 nop 0fac 00 nop 0fad 00 nop 0fae 00 nop 0faf 00 nop 0fb0 00 nop 0fb1 00 nop 0fb2 00 nop 0fb3 00 nop 0fb4 00 nop 0fb5 00 nop 0fb6 00 nop 0fb7 00 nop 0fb8 00 nop 0fb9 00 nop 0fba 00 nop 0fbb 00 nop 0fbc 00 nop 0fbd 00 nop 0fbe 00 nop 0fbf 00 nop 0fc0 00 nop 0fc1 00 nop 0fc2 00 nop 0fc3 00 nop 0fc4 00 nop 0fc5 00 nop 0fc6 00 nop 0fc7 00 nop 0fc8 00 nop 0fc9 00 nop 0fca 00 nop 0fcb 00 nop 0fcc 00 nop 0fcd 00 nop 0fce 00 nop 0fcf 00 nop 0fd0 00 nop 0fd1 00 nop 0fd2 00 nop 0fd3 00 nop 0fd4 00 nop 0fd5 00 nop 0fd6 00 nop 0fd7 00 nop 0fd8 00 nop 0fd9 00 nop 0fda 00 nop 0fdb 00 nop 0fdc 00 nop 0fdd 00 nop 0fde 00 nop 0fdf 00 nop 0fe0 00 nop 0fe1 00 nop 0fe2 00 nop 0fe3 00 nop 0fe4 00 nop 0fe5 00 nop 0fe6 00 nop 0fe7 00 nop 0fe8 00 nop 0fe9 00 nop 0fea 00 nop 0feb 00 nop 0fec 00 nop 0fed 00 nop 0fee 00 nop 0fef 00 nop 0ff0 00 nop 0ff1 00 nop 0ff2 00 nop 0ff3 00 nop 0ff4 00 nop 0ff5 00 nop 0ff6 00 nop 0ff7 0a ld a,(bc) 0ff8 ed0c tst c ; Z180 instruction 0ffa 14 inc d 0ffb 0a ld a,(bc) 0ffc 00 nop 0ffd 08 ex af,af' 0ffe 48 ld c,b 0fff 36af ld (hl),#af 1001 32d44d ld (#4dd4),a 1004 c9 ret 1005 00 nop 1006 00 nop 1007 22d24d ld (#4dd2),hl 100a c9 ret 100b c37836 jp #3678 100e 3a004e ld a,(#4e00) 1011 3d dec a 1012 c8 ret z 1013 ef rst #28 1014 1c inc e 1015 a2 and d 1016 c9 ret 1017 cd9112 call #1291 101a 3aa54d ld a,(#4da5) 101d a7 and a 101e c0 ret nz 101f cd6610 call #1066 1022 cd9410 call #1094 1025 cd9e10 call #109e 1028 cda810 call #10a8 102b cdb410 call #10b4 102e 3aa44d ld a,(#4da4) 1031 a7 and a 1032 ca3910 jp z,#1039 1035 cd3512 call #1235 1038 c9 ret 1039 cd1d17 call #171d 103c cd8917 call #1789 ; check for collision with blue ghost 103f 3aa44d ld a,(#4da4) 1042 a7 and a 1043 c0 ret nz 1044 cd0618 call #1806 1047 cd361b call #1b36 104a cd4b1c call #1c4b 104d cd221d call #1d22 1050 cdf91d call #1df9 1053 3a044e ld a,(#4e04) 1056 fe03 cp #03 1058 c0 ret nz 1059 cd7613 call #1376 105c cd6920 call #2069 105f cd8c20 call #208c 1062 cdaf20 call #20af 1065 c9 ret 1066 3aab4d ld a,(#4dab) 1069 a7 and a 106a c8 ret z 106b 3d dec a 106c 2008 jr nz,#1076 ; (8) 106e 32ab4d ld (#4dab),a 1071 3c inc a 1072 32ac4d ld (#4dac),a 1075 c9 ret 1076 3d dec a 1077 2008 jr nz,#1081 ; (8) 1079 32ab4d ld (#4dab),a 107c 3c inc a 107d 32ad4d ld (#4dad),a 1080 c9 ret 1081 3d dec a 1082 2008 jr nz,#108c ; (8) 1084 32ab4d ld (#4dab),a 1087 3c inc a 1088 32ae4d ld (#4dae),a 108b c9 ret 108c 32af4d ld (#4daf),a 108f 3d dec a 1090 32ab4d ld (#4dab),a 1093 c9 ret 1094 3aac4d ld a,(#4dac) 1097 e7 rst #20 1098 0c inc c 1099 00 nop 109a c0 ret nz 109b 10d2 djnz #106f ; (-46) 109d 103a djnz #10d9 ; (58) 109f ad xor l 10a0 4d ld c,l 10a1 e7 rst #20 10a2 0c inc c 10a3 00 nop 10a4 1811 jr #10b7 ; (17) 10a6 2a113a ld hl,(#3a11) 10a9 ae xor (hl) 10aa 4d ld c,l 10ab e7 rst #20 10ac 0c inc c 10ad 00 nop 10ae 5c ld e,h 10af 116e11 ld de,#116e 10b2 8f adc a,a 10b3 113aaf ld de,#af3a 10b6 4d ld c,l 10b7 e7 rst #20 10b8 0c inc c 10b9 00 nop 10ba c9 ret 10bb 11db11 ld de,#11db 10be fc11cd call m,#cd11 10c1 d8 ret c 10c2 1b dec de 10c3 2a004d ld hl,(#4d00) 10c6 116480 ld de,#8064 10c9 a7 and a 10ca ed52 sbc hl,de 10cc c0 ret nz 10cd 21ac4d ld hl,#4dac 10d0 34 inc (hl) 10d1 c9 ret 10d2 dd210133 ld ix,#3301 10d6 fd21004d ld iy,#4d00 10da cd0020 call #2000 10dd 22004d ld (#4d00),hl 10e0 3e01 ld a,#01 10e2 32284d ld (#4d28),a 10e5 322c4d ld (#4d2c),a 10e8 3a004d ld a,(#4d00) 10eb fe80 cp #80 10ed c0 ret nz 10ee 212f2e ld hl,#2e2f 10f1 220a4d ld (#4d0a),hl 10f4 22314d ld (#4d31),hl 10f7 af xor a 10f8 32a04d ld (#4da0),a 10fb 32ac4d ld (#4dac),a 10fe 32a74d ld (#4da7),a 1101 dd21ac4d ld ix,#4dac 1105 ddb600 or (ix+#00) 1108 ddb601 or (ix+#01) 110b ddb602 or (ix+#02) 110e ddb603 or (ix+#03) 1111 c0 ret nz 1112 21ac4e ld hl,#4eac 1115 cbb6 res 6,(hl) 1117 c9 ret 1118 cdaf1c call #1caf 111b 2a024d ld hl,(#4d02) 111e 116480 ld de,#8064 1121 a7 and a 1122 ed52 sbc hl,de 1124 c0 ret nz 1125 21ad4d ld hl,#4dad 1128 34 inc (hl) 1129 c9 ret 112a dd210133 ld ix,#3301 112e fd21024d ld iy,#4d02 1132 cd0020 call #2000 1135 22024d ld (#4d02),hl 1138 3e01 ld a,#01 113a 32294d ld (#4d29),a 113d 322d4d ld (#4d2d),a 1140 3a024d ld a,(#4d02) 1143 fe80 cp #80 1145 c0 ret nz 1146 212f2e ld hl,#2e2f 1149 220c4d ld (#4d0c),hl 114c 22334d ld (#4d33),hl 114f af xor a 1150 32a14d ld (#4da1),a 1153 32ad4d ld (#4dad),a 1156 32a84d ld (#4da8),a 1159 c30111 jp #1101 115c cd861d call #1d86 115f 2a044d ld hl,(#4d04) 1162 116480 ld de,#8064 1165 a7 and a 1166 ed52 sbc hl,de 1168 c0 ret nz 1169 21ae4d ld hl,#4dae 116c 34 inc (hl) 116d c9 ret 116e dd210133 ld ix,#3301 1172 fd21044d ld iy,#4d04 1176 cd0020 call #2000 1179 22044d ld (#4d04),hl 117c 3e01 ld a,#01 117e 322a4d ld (#4d2a),a 1181 322e4d ld (#4d2e),a 1184 3a044d ld a,(#4d04) 1187 fe80 cp #80 1189 c0 ret nz 118a 21ae4d ld hl,#4dae 118d 34 inc (hl) 118e c9 ret 118f dd210333 ld ix,#3303 1193 fd21044d ld iy,#4d04 1197 cd0020 call #2000 119a 22044d ld (#4d04),hl 119d 3e02 ld a,#02 119f 322a4d ld (#4d2a),a 11a2 322e4d ld (#4d2e),a 11a5 3a054d ld a,(#4d05) 11a8 fe90 cp #90 11aa c0 ret nz 11ab 212f30 ld hl,#302f 11ae 220e4d ld (#4d0e),hl 11b1 22354d ld (#4d35),hl 11b4 3e01 ld a,#01 11b6 322a4d ld (#4d2a),a 11b9 322e4d ld (#4d2e),a 11bc af xor a 11bd 32a24d ld (#4da2),a 11c0 32ae4d ld (#4dae),a 11c3 32a94d ld (#4da9),a 11c6 c30111 jp #1101 11c9 cd5d1e call #1e5d 11cc 2a064d ld hl,(#4d06) 11cf 116480 ld de,#8064 11d2 a7 and a 11d3 ed52 sbc hl,de 11d5 c0 ret nz 11d6 21af4d ld hl,#4daf 11d9 34 inc (hl) 11da c9 ret 11db dd210133 ld ix,#3301 11df fd21064d ld iy,#4d06 11e3 cd0020 call #2000 11e6 22064d ld (#4d06),hl 11e9 3e01 ld a,#01 11eb 322b4d ld (#4d2b),a 11ee 322f4d ld (#4d2f),a 11f1 3a064d ld a,(#4d06) 11f4 fe80 cp #80 11f6 c0 ret nz 11f7 21af4d ld hl,#4daf 11fa 34 inc (hl) 11fb c9 ret 11fc dd21ff32 ld ix,#32ff 1200 fd21064d ld iy,#4d06 1204 cd0020 call #2000 1207 22064d ld (#4d06),hl 120a af xor a 120b 322b4d ld (#4d2b),a 120e 322f4d ld (#4d2f),a 1211 3a074d ld a,(#4d07) 1214 fe70 cp #70 1216 c0 ret nz 1217 212f2c ld hl,#2c2f 121a 22104d ld (#4d10),hl 121d 22374d ld (#4d37),hl 1220 3e01 ld a,#01 1222 322b4d ld (#4d2b),a 1225 322f4d ld (#4d2f),a 1228 af xor a 1229 32a34d ld (#4da3),a 122c 32af4d ld (#4daf),a 122f 32aa4d ld (#4daa),a 1232 c30111 jp #1101 1235 3ad14d ld a,(#4dd1) 1238 e7 rst #20 1239 3f ccf 123a 12 ld (de),a 123b 0c inc c 123c 00 nop 123d 3f ccf 123e 12 ld (de),a 123f 21004c ld hl,#4c00 1242 3aa44d ld a,(#4da4) 1245 87 add a,a 1246 5f ld e,a 1247 1600 ld d,#00 1249 19 add hl,de 124a 3ad14d ld a,(#4dd1) 124d a7 and a 124e 2027 jr nz,#1277 ; (39) 1250 3ad04d ld a,(#4dd0) 1253 0627 ld b,#27 1255 80 add a,b 1256 47 ld b,a 1257 3a724e ld a,(#4e72) 125a 4f ld c,a 125b 3a094e ld a,(#4e09) 125e a1 and c 125f 2804 jr z,#1265 ; (4) 1261 cbf0 set 6,b 1263 cbf8 set 7,b 1265 70 ld (hl),b 1266 23 inc hl 1267 3618 ld (hl),#18 1269 3e00 ld a,#00 126b 320b4c ld (#4c0b),a 126e f7 rst #30 126f 4a ld c,d 1270 03 inc bc 1271 00 nop 1272 21d14d ld hl,#4dd1 1275 34 inc (hl) 1276 c9 ret 1277 3620 ld (hl),#20 1279 3e09 ld a,#09 127b 320b4c ld (#4c0b),a 127e 3aa44d ld a,(#4da4) 1281 32ab4d ld (#4dab),a 1284 af xor a 1285 32a44d ld (#4da4),a 1288 32d14d ld (#4dd1),a 128b 21ac4e ld hl,#4eac 128e cbf6 set 6,(hl) 1290 c9 ret 1291 3aa54d ld a,(#4da5) 1294 e7 rst #20 1295 0c inc c 1296 00 nop 1297 b7 or a 1298 12 ld (de),a 1299 b7 or a 129a 12 ld (de),a 129b b7 or a 129c 12 ld (de),a 129d b7 or a 129e 12 ld (de),a 129f cb12 rl d 12a1 f9 ld sp,hl 12a2 12 ld (de),a 12a3 0613 ld b,#13 12a5 0e13 ld c,#13 12a7 1613 ld d,#13 12a9 1e13 ld e,#13 12ab 2613 ld h,#13 12ad 2e13 ld l,#13 12af 3613 ld (hl),#13 12b1 3e13 ld a,#13 12b3 46 ld b,(hl) 12b4 13 inc de 12b5 53 ld d,e 12b6 13 inc de 12b7 2ac54d ld hl,(#4dc5) 12ba 23 inc hl 12bb 22c54d ld (#4dc5),hl 12be 117800 ld de,#0078 12c1 a7 and a 12c2 ed52 sbc hl,de 12c4 c0 ret nz 12c5 3e05 ld a,#05 12c7 32a54d ld (#4da5),a 12ca c9 ret 12cb 210000 ld hl,#0000 12ce cd7e26 call #267e 12d1 3e34 ld a,#34 12d3 11b400 ld de,#00b4 12d6 4f ld c,a 12d7 3a724e ld a,(#4e72) 12da 47 ld b,a 12db 3a094e ld a,(#4e09) 12de a0 and b 12df 2804 jr z,#12e5 ; (4) 12e1 3ec0 ld a,#c0 12e3 b1 or c 12e4 4f ld c,a 12e5 79 ld a,c 12e6 320a4c ld (#4c0a),a 12e9 2ac54d ld hl,(#4dc5) 12ec 23 inc hl 12ed 22c54d ld (#4dc5),hl 12f0 a7 and a 12f1 ed52 sbc hl,de 12f3 c0 ret nz 12f4 21a54d ld hl,#4da5 12f7 34 inc (hl) 12f8 c9 ret 12f9 21bc4e ld hl,#4ebc 12fc cbe6 set 4,(hl) 12fe 3e35 ld a,#35 1300 11c300 ld de,#00c3 1303 c3d612 jp #12d6 1306 3e36 ld a,#36 1308 11d200 ld de,#00d2 130b c3d612 jp #12d6 130e 3e37 ld a,#37 1310 11e100 ld de,#00e1 1313 c3d612 jp #12d6 1316 3e38 ld a,#38 1318 11f000 ld de,#00f0 131b c3d612 jp #12d6 131e 3e39 ld a,#39 1320 11ff00 ld de,#00ff 1323 c3d612 jp #12d6 1326 3e3a ld a,#3a 1328 110e01 ld de,#010e 132b c3d612 jp #12d6 132e 3e3b ld a,#3b 1330 111d01 ld de,#011d 1333 c3d612 jp #12d6 1336 3e3c ld a,#3c 1338 112c01 ld de,#012c 133b c3d612 jp #12d6 133e 3e3d ld a,#3d 1340 113b01 ld de,#013b 1343 c3d612 jp #12d6 1346 21bc4e ld hl,#4ebc 1349 3600 ld (hl),#00 134b 3e3e ld a,#3e 134d 115901 ld de,#0159 1350 c3d612 jp #12d6 1353 3e3f ld a,#3f 1355 320a4c ld (#4c0a),a 1358 2ac54d ld hl,(#4dc5) 135b 23 inc hl 135c 22c54d ld (#4dc5),hl 135f 11b801 ld de,#01b8 1362 a7 and a 1363 ed52 sbc hl,de 1365 c0 ret nz ;; decrement lives ; this gets called after the death animation, but before the ; screen gets redrawn. 1366 21144e ld hl,#4e14 ; hl = number of lives left 1369 35 dec (hl) ; subtract 1 136a 21154e ld hl,#4e15 ; hl = number of lives on screen 136d 35 dec (hl) ; subtract 1 136e cd7526 call #2675 1371 21044e ld hl,#4e04 1374 34 inc (hl) 1375 c9 ret ;; routine to control blue time ;; ret immediately to make ghosts stay blue till eaten 1376 3aa64d ld a,(#4da6) 1379 a7 and a 137a c8 ret z 137b dd21a74d ld ix,#4da7 137f dd7e00 ld a,(ix+#00) 1382 ddb601 or (ix+#01) 1385 ddb602 or (ix+#02) 1388 ddb603 or (ix+#03) 138b ca9813 jp z,#1398 138e 2acb4d ld hl,(#4dcb) 1391 2b dec hl 1392 22cb4d ld (#4dcb),hl 1395 7c ld a,h 1396 b5 or l 1397 c0 ret nz 1398 210b4c ld hl,#4c0b 139b 3609 ld (hl),#09 139d 3aac4d ld a,(#4dac) 13a0 a7 and a 13a1 c2a713 jp nz,#13a7 13a4 32a74d ld (#4da7),a 13a7 3aad4d ld a,(#4dad) 13aa a7 and a 13ab c2b113 jp nz,#13b1 13ae 32a84d ld (#4da8),a 13b1 3aae4d ld a,(#4dae) 13b4 a7 and a 13b5 c2bb13 jp nz,#13bb 13b8 32a94d ld (#4da9),a 13bb 3aaf4d ld a,(#4daf) 13be a7 and a 13bf c2c513 jp nz,#13c5 13c2 32aa4d ld (#4daa),a 13c5 af xor a 13c6 32cb4d ld (#4dcb),a 13c9 32cc4d ld (#4dcc),a 13cc 32a64d ld (#4da6),a 13cf 32c84d ld (#4dc8),a 13d2 32d04d ld (#4dd0),a 13d5 21ac4e ld hl,#4eac 13d8 cbae res 5,(hl) 13da cbbe res 7,(hl) 13dc c9 ret 13dd 219e4d ld hl,#4d9e 13e0 3a0e4e ld a,(#4e0e) 13e3 be cp (hl) 13e4 caee13 jp z,#13ee 13e7 210000 ld hl,#0000 13ea 22974d ld (#4d97),hl 13ed c9 ret 13ee 2a974d ld hl,(#4d97) 13f1 23 inc hl 13f2 22974d ld (#4d97),hl 13f5 ed5b954d ld de,(#4d95) 13f9 a7 and a 13fa ed52 sbc hl,de 13fc c0 ret nz 13fd 210000 ld hl,#0000 1400 22974d ld (#4d97),hl 1403 3aa14d ld a,(#4da1) 1406 a7 and a 1407 f5 push af 1408 cc8620 call z,#2086 140b f1 pop af 140c c8 ret z 140d 3aa24d ld a,(#4da2) 1410 a7 and a 1411 f5 push af 1412 cca920 call z,#20a9 1415 f1 pop af 1416 c8 ret z 1417 3aa34d ld a,(#4da3) 141a a7 and a 141b ccd120 call z,#20d1 141e c9 ret 141f 3a724e ld a,(#4e72) 1422 47 ld b,a 1423 3a094e ld a,(#4e09) 1426 a0 and b 1427 c8 ret z 1428 47 ld b,a 1429 dd21004c ld ix,#4c00 142d 1e08 ld e,#08 142f 0e08 ld c,#08 1431 1607 ld d,#07 ;; this looks to be some kind of data? it's ver repetitions till 1500 1433 3a004d ld a,(#4d00) 1436 83 add a,e 1437 dd7713 ld (ix+#13),a 143a 3a014d ld a,(#4d01) 143d 2f cpl 143e 82 add a,d 143f dd7712 ld (ix+#12),a 1442 3a024d ld a,(#4d02) 1445 83 add a,e 1446 dd7715 ld (ix+#15),a 1449 3a034d ld a,(#4d03) 144c 2f cpl 144d 82 add a,d 144e dd7714 ld (ix+#14),a 1451 3a044d ld a,(#4d04) 1454 83 add a,e 1455 dd7717 ld (ix+#17),a 1458 3a054d ld a,(#4d05) 145b 2f cpl 145c 81 add a,c 145d dd7716 ld (ix+#16),a 1460 3a064d ld a,(#4d06) 1463 83 add a,e 1464 dd7719 ld (ix+#19),a 1467 3a074d ld a,(#4d07) 146a 2f cpl 146b 81 add a,c 146c dd7718 ld (ix+#18),a 146f 3a084d ld a,(#4d08) 1472 83 add a,e 1473 dd771b ld (ix+#1b),a 1476 3a094d ld a,(#4d09) 1479 2f cpl 147a 81 add a,c 147b dd771a ld (ix+#1a),a 147e 3ad24d ld a,(#4dd2) 1481 83 add a,e 1482 dd771d ld (ix+#1d),a 1485 3ad34d ld a,(#4dd3) 1488 2f cpl 1489 81 add a,c 148a dd771c ld (ix+#1c),a 148d c3fe14 jp #14fe 1490 3a724e ld a,(#4e72) 1493 47 ld b,a 1494 3a094e ld a,(#4e09) 1497 a0 and b 1498 c0 ret nz 1499 47 ld b,a 149a 1e09 ld e,#09 149c 0e07 ld c,#07 149e 1606 ld d,#06 14a0 dd21004c ld ix,#4c00 14a4 3a004d ld a,(#4d00) 14a7 2f cpl 14a8 83 add a,e 14a9 dd7713 ld (ix+#13),a 14ac 3a014d ld a,(#4d01) 14af 82 add a,d 14b0 dd7712 ld (ix+#12),a 14b3 3a024d ld a,(#4d02) 14b6 2f cpl 14b7 83 add a,e 14b8 dd7715 ld (ix+#15),a 14bb 3a034d ld a,(#4d03) 14be 82 add a,d 14bf dd7714 ld (ix+#14),a 14c2 3a044d ld a,(#4d04) 14c5 2f cpl 14c6 83 add a,e 14c7 dd7717 ld (ix+#17),a 14ca 3a054d ld a,(#4d05) 14cd 81 add a,c 14ce dd7716 ld (ix+#16),a 14d1 3a064d ld a,(#4d06) 14d4 2f cpl 14d5 83 add a,e 14d6 dd7719 ld (ix+#19),a 14d9 3a074d ld a,(#4d07) 14dc 81 add a,c 14dd dd7718 ld (ix+#18),a 14e0 3a084d ld a,(#4d08) 14e3 2f cpl 14e4 83 add a,e 14e5 dd771b ld (ix+#1b),a 14e8 3a094d ld a,(#4d09) 14eb 81 add a,c 14ec dd771a ld (ix+#1a),a 14ef 3ad24d ld a,(#4dd2) 14f2 2f cpl 14f3 83 add a,e 14f4 dd771d ld (ix+#1d),a 14f7 3ad34d ld a,(#4dd3) 14fa 81 add a,c 14fb dd771c ld (ix+#1c),a 14fe 3aa54d ld a,(#4da5) 1501 a7 and a 1502 c24b15 jp nz,#154b 1505 3aa44d ld a,(#4da4) 1508 a7 and a 1509 c2b415 jp nz,#15b4 150c 211c15 ld hl,#151c 150f e5 push hl 1510 3a304d ld a,(#4d30) 1513 e7 rst #20 1514 8c adc a,h 1515 16b1 ld d,#b1 1517 16d6 ld d,#d6 1519 16f7 ld d,#f7 151b 1678 ld d,#78 151d a7 and a 151e 282b jr z,#154b ; (43) 1520 0ec0 ld c,#c0 1522 3a0a4c ld a,(#4c0a) 1525 57 ld d,a 1526 a1 and c 1527 2005 jr nz,#152e ; (5) 1529 7a ld a,d 152a b1 or c 152b c34815 jp #1548 152e 3a304d ld a,(#4d30) 1531 fe02 cp #02 1533 2009 jr nz,#153e ; (9) 1535 cb7a bit 7,d 1537 2812 jr z,#154b ; (18) 1539 7a ld a,d 153a a9 xor c 153b c34815 jp #1548 153e fe03 cp #03 1540 2009 jr nz,#154b ; (9) 1542 cb72 bit 6,d 1544 2805 jr z,#154b ; (5) 1546 7a ld a,d 1547 a9 xor c 1548 320a4c ld (#4c0a),a 154b 21c04d ld hl,#4dc0 154e 56 ld d,(hl) 154f 3e1c ld a,#1c 1551 82 add a,d 1552 dd7702 ld (ix+#02),a 1555 dd7704 ld (ix+#04),a 1558 dd7706 ld (ix+#06),a 155b dd7708 ld (ix+#08),a 155e 0e20 ld c,#20 1560 3aac4d ld a,(#4dac) 1563 a7 and a 1564 2006 jr nz,#156c ; (6) 1566 3aa74d ld a,(#4da7) 1569 a7 and a 156a 2009 jr nz,#1575 ; (9) 156c 3a2c4d ld a,(#4d2c) 156f 87 add a,a 1570 82 add a,d 1571 81 add a,c 1572 dd7702 ld (ix+#02),a 1575 3aad4d ld a,(#4dad) 1578 a7 and a 1579 2006 jr nz,#1581 ; (6) 157b 3aa84d ld a,(#4da8) 157e a7 and a 157f 2009 jr nz,#158a ; (9) 1581 3a2d4d ld a,(#4d2d) 1584 87 add a,a 1585 82 add a,d 1586 81 add a,c 1587 dd7704 ld (ix+#04),a 158a 3aae4d ld a,(#4dae) 158d a7 and a 158e 2006 jr nz,#1596 ; (6) 1590 3aa94d ld a,(#4da9) 1593 a7 and a 1594 2009 jr nz,#159f ; (9) 1596 3a2e4d ld a,(#4d2e) 1599 87 add a,a 159a 82 add a,d 159b 81 add a,c 159c dd7706 ld (ix+#06),a 159f 3aaf4d ld a,(#4daf) 15a2 a7 and a 15a3 2006 jr nz,#15ab ; (6) 15a5 3aaa4d ld a,(#4daa) 15a8 a7 and a 15a9 2009 jr nz,#15b4 ; (9) 15ab 3a2f4d ld a,(#4d2f) 15ae 87 add a,a 15af 82 add a,d 15b0 81 add a,c 15b1 dd7708 ld (ix+#08),a 15b4 cde615 call #15e6 15b7 cd2d16 call #162d 15ba cd5216 call #1652 15bd 78 ld a,b 15be a7 and a 15bf c8 ret z 15c0 0ec0 ld c,#c0 15c2 3a024c ld a,(#4c02) 15c5 b1 or c 15c6 32024c ld (#4c02),a 15c9 3a044c ld a,(#4c04) 15cc b1 or c 15cd 32044c ld (#4c04),a 15d0 3a064c ld a,(#4c06) 15d3 b1 or c 15d4 32064c ld (#4c06),a 15d7 3a084c ld a,(#4c08) 15da b1 or c 15db 32084c ld (#4c08),a 15de 3a0c4c ld a,(#4c0c) 15e1 b1 or c 15e2 320c4c ld (#4c0c),a 15e5 c9 ret 15e6 3a064e ld a,(#4e06) 15e9 d605 sub #05 15eb d8 ret c 15ec 3a094d ld a,(#4d09) 15ef e60f and #0f 15f1 fe0c cp #0c 15f3 3804 jr c,#15f9 ; (4) 15f5 1618 ld d,#18 15f7 1812 jr #160b ; (18) 15f9 fe08 cp #08 15fb 3804 jr c,#1601 ; (4) 15fd 1614 ld d,#14 15ff 180a jr #160b ; (10) 1601 fe04 cp #04 1603 3804 jr c,#1609 ; (4) 1605 1610 ld d,#10 1607 1802 jr #160b ; (2) 1609 1614 ld d,#14 160b dd7204 ld (ix+#04),d 160e 14 inc d 160f dd7206 ld (ix+#06),d 1612 14 inc d 1613 dd7208 ld (ix+#08),d 1616 14 inc d 1617 dd720c ld (ix+#0c),d 161a dd360a3f ld (ix+#0a),#3f 161e 1616 ld d,#16 1620 dd7205 ld (ix+#05),d 1623 dd7207 ld (ix+#07),d 1626 dd7209 ld (ix+#09),d 1629 dd720d ld (ix+#0d),d 162c c9 ret 162d 3a074e ld a,(#4e07) 1630 a7 and a 1631 c8 ret z 1632 57 ld d,a 1633 3a3a4d ld a,(#4d3a) 1636 d63d sub #3d 1638 2004 jr nz,#163e ; (4) 163a dd360b00 ld (ix+#0b),#00 163e 7a ld a,d 163f fe0a cp #0a 1641 d8 ret c 1642 dd360232 ld (ix+#02),#32 1646 dd36031d ld (ix+#03),#1d 164a fe0c cp #0c 164c d8 ret c 164d dd360233 ld (ix+#02),#33 1651 c9 ret 1652 3a084e ld a,(#4e08) 1655 a7 and a 1656 c8 ret z 1657 57 ld d,a 1658 3a3a4d ld a,(#4d3a) 165b d63d sub #3d 165d 2004 jr nz,#1663 ; (4) 165f dd360b00 ld (ix+#0b),#00 1663 7a ld a,d 1664 fe01 cp #01 1666 d8 ret c 1667 3ac04d ld a,(#4dc0) 166a 1e08 ld e,#08 166c 83 add a,e 166d dd7702 ld (ix+#02),a 1670 7a ld a,d 1671 fe03 cp #03 1673 d8 ret c 1674 3a014d ld a,(#4d01) 1677 e608 and #08 1679 0f rrca 167a 0f rrca 167b 0f rrca 167c 1e0a ld e,#0a 167e 83 add a,e 167f dd770c ld (ix+#0c),a 1682 3c inc a 1683 3c inc a 1684 dd7702 ld (ix+#02),a 1687 dd360d1e ld (ix+#0d),#1e 168b c9 ret 168c c39c86 jp #869c 168f c9 ret 1690 07 rlca 1691 fe06 cp #06 1693 3805 jr c,#169a ; (5) 1695 dd360a30 ld (ix+#0a),#30 1699 c9 ret 169a fe04 cp #04 169c 3805 jr c,#16a3 ; (5) 169e dd360a2e ld (ix+#0a),#2e 16a2 c9 ret 16a3 fe02 cp #02 16a5 3805 jr c,#16ac ; (5) 16a7 dd360a2c ld (ix+#0a),#2c 16ab c9 ret 16ac dd360a2e ld (ix+#0a),#2e 16b0 c9 ret 16b1 c3b186 jp #86b1 16b4 c9 ret 16b5 07 rlca 16b6 fe06 cp #06 16b8 3805 jr c,#16bf ; (5) 16ba dd360a2f ld (ix+#0a),#2f 16be c9 ret 16bf fe04 cp #04 16c1 3805 jr c,#16c8 ; (5) 16c3 dd360a2d ld (ix+#0a),#2d 16c7 c9 ret 16c8 fe02 cp #02 16ca 3805 jr c,#16d1 ; (5) 16cc dd360a2f ld (ix+#0a),#2f 16d0 c9 ret 16d1 dd360a30 ld (ix+#0a),#30 16d5 c9 ret 16d6 3a094d ld a,(#4d09) 16d9 c3c586 jp #86c5 16dc c9 ret 16dd 3808 jr c,#16e7 ; (8) 16df 1e2e ld e,#2e 16e1 cbfb set 7,e 16e3 dd730a ld (ix+#0a),e 16e6 c9 ret 16e7 fe04 cp #04 16e9 3804 jr c,#16ef ; (4) 16eb 1e2c ld e,#2c 16ed 18f2 jr #16e1 ; (-14) 16ef fe02 cp #02 16f1 30ec jr nc,#16df ; (-20) 16f3 1e30 ld e,#30 16f5 18ea jr #16e1 ; (-22) 16f7 3a084d ld a,(#4d08) 16fa c3d986 jp #86d9 16fd c9 ret 16fe 3805 jr c,#1705 ; (5) 1700 dd360a30 ld (ix+#0a),#30 1704 c9 ret 1705 fe04 cp #04 1707 3808 jr c,#1711 ; (8) 1709 1e2f ld e,#2f 170b cbf3 set 6,e 170d dd730a ld (ix+#0a),e 1710 c9 ret 1711 fe02 cp #02 1713 3804 jr c,#1719 ; (4) 1715 1e2d ld e,#2d 1717 18f2 jr #170b ; (-14) 1719 1e2f ld e,#2f 171b 18ee jr #170b ; (-18) ;; normal ghost collision detect 171d 0604 ld b,#04 171f ed5b394d ld de,(#4d39) 1723 3aaf4d ld a,(#4daf) 1726 a7 and a 1727 2009 jr nz,#1732 ; (9) 1729 2a374d ld hl,(#4d37) 172c a7 and a 172d ed52 sbc hl,de 172f ca6317 jp z,#1763 ; check for collision with ghost 1732 05 dec b 1733 3aae4d ld a,(#4dae) 1736 a7 and a 1737 2009 jr nz,#1742 ; (9) 1739 2a354d ld hl,(#4d35) 173c a7 and a 173d ed52 sbc hl,de 173f ca6317 jp z,#1763 1742 05 dec b 1743 3aad4d ld a,(#4dad) 1746 a7 and a 1747 2009 jr nz,#1752 ; (9) 1749 2a334d ld hl,(#4d33) 174c a7 and a 174d ed52 sbc hl,de 174f ca6317 jp z,#1763 1752 05 dec b 1753 3aac4d ld a,(#4dac) 1756 a7 and a 1757 2009 jr nz,#1762 ; (9) 1759 2a314d ld hl,(#4d31) 175c a7 and a 175d ed52 sbc hl,de 175f ca6317 jp z,#1763 1762 05 dec b 1763 78 ld a,b ; collision detection routine 1764 32a44d ld (#4da4),a 1767 32a54d ld (#4da5),a 176a a7 and a 176b c8 ret z 176c 21a64d ld hl,#4da6 176f 5f ld e,a 1770 1600 ld d,#00 1772 19 add hl,de 1773 7e ld a,(hl) 1774 a7 and a 1775 c8 ret z 1776 af xor a 1777 32a54d ld (#4da5),a 177a 21d04d ld hl,#4dd0 177d 34 inc (hl) 177e 46 ld b,(hl) 177f 04 inc b 1780 cd5a2a call #2a5a 1783 21bc4e ld hl,#4ebc 1786 cbde set 3,(hl) 1788 c9 ret ;; end normal ghost collision detect ;; blue ghost collision detect 1789 3aa44d ld a,(#4da4) 178c a7 and a 178d c0 ret nz 178e 3aa64d ld a,(#4da6) 1791 a7 and a 1792 c8 ret z 1793 0e04 ld c,#04 1795 0604 ld b,#04 1797 dd21084d ld ix,#4d08 179b 3aaf4d ld a,(#4daf) 179e a7 and a 179f 2013 jr nz,#17b4 ; (19) 17a1 3a064d ld a,(#4d06) 17a4 dd9600 sub (ix+#00) 17a7 b9 cp c 17a8 300a jr nc,#17b4 ; (10) 17aa 3a074d ld a,(#4d07) 17ad dd9601 sub (ix+#01) 17b0 b9 cp c 17b1 da6317 jp c,#1763 ; collision detection routine 17b4 05 dec b 17b5 3aae4d ld a,(#4dae) 17b8 a7 and a 17b9 2013 jr nz,#17ce ; (19) 17bb 3a044d ld a,(#4d04) 17be dd9600 sub (ix+#00) 17c1 b9 cp c 17c2 300a jr nc,#17ce ; (10) 17c4 3a054d ld a,(#4d05) 17c7 dd9601 sub (ix+#01) 17ca b9 cp c 17cb da6317 jp c,#1763 ; collision detection routine 17ce 05 dec b 17cf 3aad4d ld a,(#4dad) 17d2 a7 and a 17d3 2013 jr nz,#17e8 ; (19) 17d5 3a024d ld a,(#4d02) 17d8 dd9600 sub (ix+#00) 17db b9 cp c 17dc 300a jr nc,#17e8 ; (10) 17de 3a034d ld a,(#4d03) 17e1 dd9601 sub (ix+#01) 17e4 b9 cp c 17e5 da6317 jp c,#1763 ; check for collision with ghost 17e8 05 dec b 17e9 3aac4d ld a,(#4dac) 17ec a7 and a 17ed 2013 jr nz,#1802 ; (19) 17ef 3a004d ld a,(#4d00) 17f2 dd9600 sub (ix+#00) 17f5 b9 cp c 17f6 300a jr nc,#1802 ; (10) 17f8 3a014d ld a,(#4d01) 17fb dd9601 sub (ix+#01) 17fe b9 cp c 17ff da6317 jp c,#1763 ; check for collision with ghost 1802 05 dec b 1803 c36317 jp #1763 ; check for collision with ghost 1806 219d4d ld hl,#4d9d 1809 3eff ld a,#ff 180b be cp (hl) 180c ca1118 jp z,#1811 180f 35 dec (hl) 1810 c9 ret 1811 3aa64d ld a,(#4da6) 1814 a7 and a 1815 ca2f18 jp z,#182f 1818 2a4c4d ld hl,(#4d4c) 181b 29 add hl,hl 181c 224c4d ld (#4d4c),hl 181f 2a4a4d ld hl,(#4d4a) 1822 ed6a adc hl,hl 1824 224a4d ld (#4d4a),hl 1827 d0 ret nc 1828 214c4d ld hl,#4d4c 182b 34 inc (hl) 182c c34318 jp #1843 182f 2a484d ld hl,(#4d48) 1832 29 add hl,hl 1833 22484d ld (#4d48),hl 1836 2a464d ld hl,(#4d46) 1839 ed6a adc hl,hl 183b 22464d ld (#4d46),hl 183e d0 ret nc 183f 21484d ld hl,#4d48 1842 34 inc (hl) 1843 3a0e4e ld a,(#4e0e) 1846 329e4d ld (#4d9e),a 1849 3a724e ld a,(#4e72) 184c 4f ld c,a 184d 3a094e ld a,(#4e09) 1850 a1 and c 1851 4f ld c,a 1852 213a4d ld hl,#4d3a 1855 7e ld a,(hl) 1856 0621 ld b,#21 1858 90 sub b 1859 3809 jr c,#1864 ; (9) 185b 7e ld a,(hl) 185c 063b ld b,#3b 185e 90 sub b 185f 3003 jr nc,#1864 ; (3) 1861 c3ab18 jp #18ab 1864 3e01 ld a,#01 1866 32bf4d ld (#4dbf),a 1869 3a004e ld a,(#4e00) 186c fe01 cp #01 186e ca191a jp z,#1a19 1871 3a044e ld a,(#4e04) 1874 fe10 cp #10 1876 d2191a jp nc,#1a19 1879 79 ld a,c 187a a7 and a 187b 2806 jr z,#1883 ; (6) 187d 3a4050 ld a,(#5040) ;; check in1 1880 c38618 jp #1886 1883 3a0050 ld a,(#5000) 1886 cb4f bit 1,a 1888 c29918 jp nz,#1899 188b 2a0333 ld hl,(#3303) 188e 3e02 ld a,#02 1890 32304d ld (#4d30),a 1893 221c4d ld (#4d1c),hl 1896 c35019 jp #1950 1899 cb57 bit 2,a 189b c25019 jp nz,#1950 189e 2aff32 ld hl,(#32ff) 18a1 af xor a 18a2 32304d ld (#4d30),a 18a5 221c4d ld (#4d1c),hl 18a8 c35019 jp #1950 18ab 3a004e ld a,(#4e00) 18ae fe01 cp #01 18b0 ca191a jp z,#1a19 18b3 3a044e ld a,(#4e04) 18b6 fe10 cp #10 18b8 d2191a jp nc,#1a19 18bb 79 ld a,c 18bc a7 and a 18bd 2806 jr z,#18c5 ; (6) 18bf 3a4050 ld a,(#5040) ;; check in1 18c2 c3c818 jp #18c8 18c5 3a0050 ld a,(#5000) 18c8 cb4f bit 1,a 18ca cac91a jp z,#1ac9 18cd cb57 bit 2,a 18cf cad91a jp z,#1ad9 18d2 cb47 bit 0,a 18d4 cae81a jp z,#1ae8 18d7 cb5f bit 3,a 18d9 caf81a jp z,#1af8 18dc 2a1c4d ld hl,(#4d1c) 18df 22264d ld (#4d26),hl 18e2 0601 ld b,#01 18e4 dd21264d ld ix,#4d26 18e8 fd21394d ld iy,#4d39 18ec cd0f20 call #200f 18ef e6c0 and #c0 18f1 d6c0 sub #c0 18f3 204b jr nz,#1940 ; (75) 18f5 05 dec b 18f6 c21619 jp nz,#1916 18f9 3a304d ld a,(#4d30) 18fc 0f rrca 18fd da0b19 jp c,#190b 1900 3a094d ld a,(#4d09) 1903 e607 and #07 1905 fe04 cp #04 1907 c8 ret z 1908 c34019 jp #1940 190b 3a084d ld a,(#4d08) 190e e607 and #07 1910 fe04 cp #04 1912 c8 ret z 1913 c34019 jp #1940 1916 dd211c4d ld ix,#4d1c 191a cd0f20 call #200f 191d e6c0 and #c0 191f d6c0 sub #c0 1921 202d jr nz,#1950 ; (45) 1923 3a304d ld a,(#4d30) 1926 0f rrca 1927 da3519 jp c,#1935 192a 3a094d ld a,(#4d09) 192d e607 and #07 192f fe04 cp #04 1931 c8 ret z 1932 c35019 jp #1950 1935 3a084d ld a,(#4d08) 1938 e607 and #07 193a fe04 cp #04 193c c8 ret z 193d c35019 jp #1950 1940 2a264d ld hl,(#4d26) 1943 221c4d ld (#4d1c),hl 1946 05 dec b 1947 ca5019 jp z,#1950 194a 3a3c4d ld a,(#4d3c) 194d 32304d ld (#4d30),a 1950 dd211c4d ld ix,#4d1c 1954 fd21084d ld iy,#4d08 1958 cd0020 call #2000 195b 3a304d ld a,(#4d30) 195e 0f rrca 195f da7519 jp c,#1975 1962 7d ld a,l 1963 e607 and #07 1965 fe04 cp #04 1967 ca8519 jp z,#1985 196a da7119 jp c,#1971 196d 2d dec l 196e c38519 jp #1985 1971 2c inc l 1972 c38519 jp #1985 1975 7c ld a,h 1976 e607 and #07 1978 fe04 cp #04 197a ca8519 jp z,#1985 197d da8419 jp c,#1984 1980 25 dec h 1981 c38519 jp #1985 1984 24 inc h 1985 22084d ld (#4d08),hl 1988 cd1820 call #2018 198b 22394d ld (#4d39),hl 198e dd21bf4d ld ix,#4dbf 1992 dd7e00 ld a,(ix+#00) 1995 dd360000 ld (ix+#00),#00 1999 a7 and a 199a c0 ret nz 199b 3ad24d ld a,(#4dd2) 199e a7 and a 199f 282c jr z,#19cd ; (44) 19a1 3ad44d ld a,(#4dd4) 19a4 a7 and a 19a5 2826 jr z,#19cd ; (38) 19a7 2a084d ld hl,(#4d08) 19aa 119480 ld de,#8094 19ad c31888 jp #8818 19b0 201b jr nz,#19cd ; (27) 19b2 0619 ld b,#19 19b4 4f ld c,a 19b5 cd4200 call #0042 19b8 cd0010 call #1000 19bb 1807 jr #19c4 ; (7) 19bd 1c inc e 19be cd4200 call #0042 19c1 cd0410 call #1004 19c4 f7 rst #30 19c5 54 ld d,h 19c6 05 dec b 19c7 00 nop 19c8 21bc4e ld hl,#4ebc 19cb cbd6 set 2,(hl) 19cd 3eff ld a,#ff 19cf 329d4d ld (#4d9d),a 19d2 2a394d ld hl,(#4d39) 19d5 cd6500 call #0065 19d8 7e ld a,(hl) 19d9 fe10 cp #10 19db 2803 jr z,#19e0 ; (3) 19dd fe14 cp #14 19df c0 ret nz 19e0 dd210e4e ld ix,#4e0e 19e4 dd3400 inc (ix+#00) 19e7 e60f and #0f 19e9 cb3f srl a 19eb 0640 ld b,#40 19ed 70 ld (hl),b 19ee 0619 ld b,#19 19f0 4f ld c,a 19f1 cb39 srl c 19f3 cd4200 call #0042 19f6 3c inc a 19f7 fe01 cp #01 19f9 cafd19 jp z,#19fd 19fc 87 add a,a 19fd 329d4d ld (#4d9d),a 1a00 cd081b call #1b08 1a03 cd6a1a call #1a6a 1a06 21bc4e ld hl,#4ebc 1a09 3a0e4e ld a,(#4e0e) 1a0c 0f rrca 1a0d 3805 jr c,#1a14 ; (5) 1a0f cbc6 set 0,(hl) 1a11 cb8e res 1,(hl) 1a13 c9 ret 1a14 cb86 res 0,(hl) 1a16 cbce set 1,(hl) 1a18 c9 ret 1a19 211c4d ld hl,#4d1c 1a1c 7e ld a,(hl) 1a1d a7 and a 1a1e ca2e1a jp z,#1a2e 1a21 3a084d ld a,(#4d08) 1a24 e607 and #07 1a26 fe04 cp #04 1a28 ca381a jp z,#1a38 1a2b c35c1a jp #1a5c 1a2e 3a094d ld a,(#4d09) 1a31 e607 and #07 1a33 fe04 cp #04 1a35 c25c1a jp nz,#1a5c 1a38 3e05 ld a,#05 1a3a cdd01e call #1ed0 1a3d 3803 jr c,#1a42 ; (3) 1a3f ef rst #28 1a40 17 rla 1a41 00 nop 1a42 dd21264d ld ix,#4d26 1a46 fd21124d ld iy,#4d12 1a4a cd0020 call #2000 1a4d 22124d ld (#4d12),hl 1a50 2a264d ld hl,(#4d26) 1a53 221c4d ld (#4d1c),hl 1a56 3a3c4d ld a,(#4d3c) 1a59 32304d ld (#4d30),a 1a5c dd211c4d ld ix,#4d1c 1a60 fd21084d ld iy,#4d08 1a64 cd0020 call #2000 1a67 c38519 jp #1985 1a6a 3a9d4d ld a,(#4d9d) 1a6d fe06 cp #06 1a6f c0 ret nz 1a70 2abd4d ld hl,(#4dbd) 1a73 22cb4d ld (#4dcb),hl 1a76 3e01 ld a,#01 1a78 32a64d ld (#4da6),a 1a7b 32a74d ld (#4da7),a 1a7e 32a84d ld (#4da8),a 1a81 32a94d ld (#4da9),a 1a84 32aa4d ld (#4daa),a 1a87 32b14d ld (#4db1),a 1a8a 32b24d ld (#4db2),a 1a8d 32b34d ld (#4db3),a 1a90 32b44d ld (#4db4),a 1a93 32b54d ld (#4db5),a 1a96 af xor a 1a97 32c84d ld (#4dc8),a 1a9a 32d04d ld (#4dd0),a 1a9d dd21004c ld ix,#4c00 1aa1 dd36021c ld (ix+#02),#1c 1aa5 dd36041c ld (ix+#04),#1c 1aa9 dd36061c ld (ix+#06),#1c 1aad dd36081c ld (ix+#08),#1c 1ab1 dd360311 ld (ix+#03),#11 1ab5 dd360511 ld (ix+#05),#11 1ab9 dd360711 ld (ix+#07),#11 1abd dd360911 ld (ix+#09),#11 1ac1 21ac4e ld hl,#4eac 1ac4 cbee set 5,(hl) 1ac6 cbbe res 7,(hl) 1ac8 c9 ret 1ac9 2a0333 ld hl,(#3303) 1acc 3e02 ld a,#02 1ace 323c4d ld (#4d3c),a 1ad1 22264d ld (#4d26),hl 1ad4 0600 ld b,#00 1ad6 c3e418 jp #18e4 1ad9 2aff32 ld hl,(#32ff) 1adc af xor a 1add 323c4d ld (#4d3c),a 1ae0 22264d ld (#4d26),hl 1ae3 0600 ld b,#00 1ae5 c3e418 jp #18e4 1ae8 2a0533 ld hl,(#3305) 1aeb 3e03 ld a,#03 1aed 323c4d ld (#4d3c),a 1af0 22264d ld (#4d26),hl 1af3 0600 ld b,#00 1af5 c3e418 jp #18e4 1af8 2a0133 ld hl,(#3301) 1afb 3e01 ld a,#01 1afd 323c4d ld (#4d3c),a 1b00 22264d ld (#4d26),hl 1b03 0600 ld b,#00 1b05 c3e418 jp #18e4 1b08 3a124e ld a,(#4e12) 1b0b a7 and a 1b0c ca141b jp z,#1b14 1b0f 219f4d ld hl,#4d9f 1b12 34 inc (hl) 1b13 c9 ret 1b14 3aa34d ld a,(#4da3) 1b17 a7 and a 1b18 c0 ret nz 1b19 3aa24d ld a,(#4da2) 1b1c a7 and a 1b1d ca251b jp z,#1b25 1b20 21114e ld hl,#4e11 1b23 34 inc (hl) 1b24 c9 ret 1b25 3aa14d ld a,(#4da1) 1b28 a7 and a 1b29 ca311b jp z,#1b31 1b2c 21104e ld hl,#4e10 1b2f 34 inc (hl) 1b30 c9 ret 1b31 210f4e ld hl,#4e0f 1b34 34 inc (hl) 1b35 c9 ret 1b36 3aa04d ld a,(#4da0) 1b39 a7 and a 1b3a c8 ret z 1b3b 3aac4d ld a,(#4dac) 1b3e a7 and a 1b3f c0 ret nz 1b40 cdd720 call #20d7 1b43 2a314d ld hl,(#4d31) 1b46 01994d ld bc,#4d99 1b49 cd5a20 call #205a 1b4c 3a994d ld a,(#4d99) 1b4f a7 and a 1b50 ca6a1b jp z,#1b6a 1b53 2a604d ld hl,(#4d60) 1b56 29 add hl,hl 1b57 22604d ld (#4d60),hl 1b5a 2a5e4d ld hl,(#4d5e) 1b5d ed6a adc hl,hl 1b5f 225e4d ld (#4d5e),hl 1b62 d0 ret nc 1b63 21604d ld hl,#4d60 1b66 34 inc (hl) 1b67 c3d81b jp #1bd8 1b6a 3aa74d ld a,(#4da7) 1b6d a7 and a 1b6e ca881b jp z,#1b88 1b71 2a5c4d ld hl,(#4d5c) 1b74 29 add hl,hl 1b75 225c4d ld (#4d5c),hl 1b78 2a5a4d ld hl,(#4d5a) 1b7b ed6a adc hl,hl 1b7d 225a4d ld (#4d5a),hl 1b80 d0 ret nc 1b81 215c4d ld hl,#4d5c 1b84 34 inc (hl) 1b85 c3d81b jp #1bd8 1b88 3ab74d ld a,(#4db7) 1b8b a7 and a 1b8c caa61b jp z,#1ba6 1b8f 2a504d ld hl,(#4d50) 1b92 29 add hl,hl 1b93 22504d ld (#4d50),hl 1b96 2a4e4d ld hl,(#4d4e) 1b99 ed6a adc hl,hl 1b9b 224e4d ld (#4d4e),hl 1b9e d0 ret nc 1b9f 21504d ld hl,#4d50 1ba2 34 inc (hl) 1ba3 c3d81b jp #1bd8 1ba6 3ab64d ld a,(#4db6) 1ba9 a7 and a 1baa cac41b jp z,#1bc4 1bad 2a544d ld hl,(#4d54) 1bb0 29 add hl,hl 1bb1 22544d ld (#4d54),hl 1bb4 2a524d ld hl,(#4d52) 1bb7 ed6a adc hl,hl 1bb9 22524d ld (#4d52),hl 1bbc d0 ret nc 1bbd 21544d ld hl,#4d54 1bc0 34 inc (hl) 1bc1 c3d81b jp #1bd8 1bc4 2a584d ld hl,(#4d58) 1bc7 29 add hl,hl 1bc8 22584d ld (#4d58),hl 1bcb 2a564d ld hl,(#4d56) 1bce ed6a adc hl,hl 1bd0 22564d ld (#4d56),hl 1bd3 d0 ret nc 1bd4 21584d ld hl,#4d58 1bd7 34 inc (hl) 1bd8 21144d ld hl,#4d14 1bdb 7e ld a,(hl) 1bdc a7 and a 1bdd caed1b jp z,#1bed 1be0 3a004d ld a,(#4d00) 1be3 e607 and #07 1be5 fe04 cp #04 1be7 caf71b jp z,#1bf7 1bea c3361c jp #1c36 1bed 3a014d ld a,(#4d01) 1bf0 e607 and #07 1bf2 fe04 cp #04 1bf4 c2361c jp nz,#1c36 1bf7 3e01 ld a,#01 1bf9 cdd01e call #1ed0 1bfc 381b jr c,#1c19 ; (27) 1bfe 3aa74d ld a,(#4da7) 1c01 a7 and a 1c02 ca0b1c jp z,#1c0b 1c05 ef rst #28 1c06 0c inc c 1c07 00 nop 1c08 c3191c jp #1c19 1c0b 2a0a4d ld hl,(#4d0a) 1c0e cd5220 call #2052 1c11 7e ld a,(hl) 1c12 fe1a cp #1a 1c14 2803 jr z,#1c19 ; (3) 1c16 ef rst #28 1c17 08 ex af,af' 1c18 00 nop 1c19 cdfe1e call #1efe 1c1c dd211e4d ld ix,#4d1e 1c20 fd210a4d ld iy,#4d0a 1c24 cd0020 call #2000 1c27 220a4d ld (#4d0a),hl 1c2a 2a1e4d ld hl,(#4d1e) 1c2d 22144d ld (#4d14),hl 1c30 3a2c4d ld a,(#4d2c) 1c33 32284d ld (#4d28),a 1c36 dd21144d ld ix,#4d14 1c3a fd21004d ld iy,#4d00 1c3e cd0020 call #2000 1c41 22004d ld (#4d00),hl 1c44 cd1820 call #2018 1c47 22314d ld (#4d31),hl 1c4a c9 ret 1c4b 3aa14d ld a,(#4da1) 1c4e fe01 cp #01 1c50 c0 ret nz 1c51 3aad4d ld a,(#4dad) 1c54 a7 and a 1c55 c0 ret nz 1c56 2a334d ld hl,(#4d33) 1c59 019a4d ld bc,#4d9a 1c5c cd5a20 call #205a 1c5f 3a9a4d ld a,(#4d9a) 1c62 a7 and a 1c63 ca7d1c jp z,#1c7d 1c66 2a6c4d ld hl,(#4d6c) 1c69 29 add hl,hl 1c6a 226c4d ld (#4d6c),hl 1c6d 2a6a4d ld hl,(#4d6a) 1c70 ed6a adc hl,hl 1c72 226a4d ld (#4d6a),hl 1c75 d0 ret nc 1c76 216c4d ld hl,#4d6c 1c79 34 inc (hl) 1c7a c3af1c jp #1caf 1c7d 3aa84d ld a,(#4da8) 1c80 a7 and a 1c81 ca9b1c jp z,#1c9b 1c84 2a684d ld hl,(#4d68) 1c87 29 add hl,hl 1c88 22684d ld (#4d68),hl 1c8b 2a664d ld hl,(#4d66) 1c8e ed6a adc hl,hl 1c90 22664d ld (#4d66),hl 1c93 d0 ret nc 1c94 21684d ld hl,#4d68 1c97 34 inc (hl) 1c98 c3af1c jp #1caf 1c9b 2a644d ld hl,(#4d64) 1c9e 29 add hl,hl 1c9f 22644d ld (#4d64),hl 1ca2 2a624d ld hl,(#4d62) 1ca5 ed6a adc hl,hl 1ca7 22624d ld (#4d62),hl 1caa d0 ret nc 1cab 21644d ld hl,#4d64 1cae 34 inc (hl) 1caf 21164d ld hl,#4d16 1cb2 7e ld a,(hl) 1cb3 a7 and a 1cb4 cac41c jp z,#1cc4 1cb7 3a024d ld a,(#4d02) 1cba e607 and #07 1cbc fe04 cp #04 1cbe cace1c jp z,#1cce 1cc1 c30d1d jp #1d0d 1cc4 3a034d ld a,(#4d03) 1cc7 e607 and #07 1cc9 fe04 cp #04 1ccb c20d1d jp nz,#1d0d 1cce 3e02 ld a,#02 1cd0 cdd01e call #1ed0 1cd3 381b jr c,#1cf0 ; (27) 1cd5 3aa84d ld a,(#4da8) 1cd8 a7 and a 1cd9 cae21c jp z,#1ce2 1cdc ef rst #28 1cdd 0d dec c 1cde 00 nop 1cdf c3f01c jp #1cf0 1ce2 2a0c4d ld hl,(#4d0c) 1ce5 cd5220 call #2052 1ce8 7e ld a,(hl) 1ce9 fe1a cp #1a 1ceb 2803 jr z,#1cf0 ; (3) 1ced ef rst #28 1cee 09 add hl,bc 1cef 00 nop 1cf0 cd251f call #1f25 1cf3 dd21204d ld ix,#4d20 1cf7 fd210c4d ld iy,#4d0c 1cfb cd0020 call #2000 1cfe 220c4d ld (#4d0c),hl 1d01 2a204d ld hl,(#4d20) 1d04 22164d ld (#4d16),hl 1d07 3a2d4d ld a,(#4d2d) 1d0a 32294d ld (#4d29),a 1d0d dd21164d ld ix,#4d16 1d11 fd21024d ld iy,#4d02 1d15 cd0020 call #2000 1d18 22024d ld (#4d02),hl 1d1b cd1820 call #2018 1d1e 22334d ld (#4d33),hl 1d21 c9 ret 1d22 3aa24d ld a,(#4da2) 1d25 fe01 cp #01 1d27 c0 ret nz 1d28 3aae4d ld a,(#4dae) 1d2b a7 and a 1d2c c0 ret nz 1d2d 2a354d ld hl,(#4d35) 1d30 019b4d ld bc,#4d9b 1d33 cd5a20 call #205a 1d36 3a9b4d ld a,(#4d9b) 1d39 a7 and a 1d3a ca541d jp z,#1d54 1d3d 2a784d ld hl,(#4d78) 1d40 29 add hl,hl 1d41 22784d ld (#4d78),hl 1d44 2a764d ld hl,(#4d76) 1d47 ed6a adc hl,hl 1d49 22764d ld (#4d76),hl 1d4c d0 ret nc 1d4d 21784d ld hl,#4d78 1d50 34 inc (hl) 1d51 c3861d jp #1d86 1d54 3aa94d ld a,(#4da9) 1d57 a7 and a 1d58 ca721d jp z,#1d72 1d5b 2a744d ld hl,(#4d74) 1d5e 29 add hl,hl 1d5f 22744d ld (#4d74),hl 1d62 2a724d ld hl,(#4d72) 1d65 ed6a adc hl,hl 1d67 22724d ld (#4d72),hl 1d6a d0 ret nc 1d6b 21744d ld hl,#4d74 1d6e 34 inc (hl) 1d6f c3861d jp #1d86 1d72 2a704d ld hl,(#4d70) 1d75 29 add hl,hl 1d76 22704d ld (#4d70),hl 1d79 2a6e4d ld hl,(#4d6e) 1d7c ed6a adc hl,hl 1d7e 226e4d ld (#4d6e),hl 1d81 d0 ret nc 1d82 21704d ld hl,#4d70 1d85 34 inc (hl) 1d86 21184d ld hl,#4d18 1d89 7e ld a,(hl) 1d8a a7 and a 1d8b ca9b1d jp z,#1d9b 1d8e 3a044d ld a,(#4d04) 1d91 e607 and #07 1d93 fe04 cp #04 1d95 caa51d jp z,#1da5 1d98 c3e41d jp #1de4 1d9b 3a054d ld a,(#4d05) 1d9e e607 and #07 1da0 fe04 cp #04 1da2 c2e41d jp nz,#1de4 1da5 3e03 ld a,#03 1da7 cdd01e call #1ed0 1daa 381b jr c,#1dc7 ; (27) 1dac 3aa94d ld a,(#4da9) 1daf a7 and a 1db0 cab91d jp z,#1db9 1db3 ef rst #28 1db4 0e00 ld c,#00 1db6 c3c71d jp #1dc7 1db9 2a0e4d ld hl,(#4d0e) 1dbc cd5220 call #2052 1dbf 7e ld a,(hl) 1dc0 fe1a cp #1a 1dc2 2803 jr z,#1dc7 ; (3) 1dc4 ef rst #28 1dc5 0a ld a,(bc) 1dc6 00 nop 1dc7 cd4c1f call #1f4c 1dca dd21224d ld ix,#4d22 1dce fd210e4d ld iy,#4d0e 1dd2 cd0020 call #2000 1dd5 220e4d ld (#4d0e),hl 1dd8 2a224d ld hl,(#4d22) 1ddb 22184d ld (#4d18),hl 1dde 3a2e4d ld a,(#4d2e) 1de1 322a4d ld (#4d2a),a 1de4 dd21184d ld ix,#4d18 1de8 fd21044d ld iy,#4d04 1dec cd0020 call #2000 1def 22044d ld (#4d04),hl 1df2 cd1820 call #2018 1df5 22354d ld (#4d35),hl 1df8 c9 ret 1df9 3aa34d ld a,(#4da3) 1dfc fe01 cp #01 1dfe c0 ret nz 1dff 3aaf4d ld a,(#4daf) 1e02 a7 and a 1e03 c0 ret nz 1e04 2a374d ld hl,(#4d37) 1e07 019c4d ld bc,#4d9c 1e0a cd5a20 call #205a 1e0d 3a9c4d ld a,(#4d9c) 1e10 a7 and a 1e11 ca2b1e jp z,#1e2b 1e14 2a844d ld hl,(#4d84) 1e17 29 add hl,hl 1e18 22844d ld (#4d84),hl 1e1b 2a824d ld hl,(#4d82) 1e1e ed6a adc hl,hl 1e20 22824d ld (#4d82),hl 1e23 d0 ret nc 1e24 21844d ld hl,#4d84 1e27 34 inc (hl) 1e28 c35d1e jp #1e5d 1e2b 3aaa4d ld a,(#4daa) 1e2e a7 and a 1e2f ca491e jp z,#1e49 1e32 2a804d ld hl,(#4d80) 1e35 29 add hl,hl 1e36 22804d ld (#4d80),hl 1e39 2a7e4d ld hl,(#4d7e) 1e3c ed6a adc hl,hl 1e3e 227e4d ld (#4d7e),hl 1e41 d0 ret nc 1e42 21804d ld hl,#4d80 1e45 34 inc (hl) 1e46 c35d1e jp #1e5d 1e49 2a7c4d ld hl,(#4d7c) 1e4c 29 add hl,hl 1e4d 227c4d ld (#4d7c),hl 1e50 2a7a4d ld hl,(#4d7a) 1e53 ed6a adc hl,hl 1e55 227a4d ld (#4d7a),hl 1e58 d0 ret nc 1e59 217c4d ld hl,#4d7c 1e5c 34 inc (hl) 1e5d 211a4d ld hl,#4d1a 1e60 7e ld a,(hl) 1e61 a7 and a 1e62 ca721e jp z,#1e72 1e65 3a064d ld a,(#4d06) 1e68 e607 and #07 1e6a fe04 cp #04 1e6c ca7c1e jp z,#1e7c 1e6f c3bb1e jp #1ebb 1e72 3a074d ld a,(#4d07) 1e75 e607 and #07 1e77 fe04 cp #04 1e79 c2bb1e jp nz,#1ebb 1e7c 3e04 ld a,#04 1e7e cdd01e call #1ed0 1e81 381b jr c,#1e9e ; (27) 1e83 3aaa4d ld a,(#4daa) 1e86 a7 and a 1e87 ca901e jp z,#1e90 1e8a ef rst #28 1e8b 0f rrca 1e8c 00 nop 1e8d c39e1e jp #1e9e 1e90 2a104d ld hl,(#4d10) 1e93 cd5220 call #2052 1e96 7e ld a,(hl) 1e97 fe1a cp #1a 1e99 2803 jr z,#1e9e ; (3) 1e9b ef rst #28 1e9c 0b dec bc 1e9d 00 nop 1e9e cd731f call #1f73 1ea1 dd21244d ld ix,#4d24 1ea5 fd21104d ld iy,#4d10 1ea9 cd0020 call #2000 1eac 22104d ld (#4d10),hl 1eaf 2a244d ld hl,(#4d24) 1eb2 221a4d ld (#4d1a),hl 1eb5 3a2f4d ld a,(#4d2f) 1eb8 322b4d ld (#4d2b),a 1ebb dd211a4d ld ix,#4d1a 1ebf fd21064d ld iy,#4d06 1ec3 cd0020 call #2000 1ec6 22064d ld (#4d06),hl 1ec9 cd1820 call #2018 1ecc 22374d ld (#4d37),hl 1ecf c9 ret 1ed0 87 add a,a 1ed1 4f ld c,a 1ed2 0600 ld b,#00 1ed4 21094d ld hl,#4d09 1ed7 09 add hl,bc 1ed8 7e ld a,(hl) 1ed9 fe1d cp #1d 1edb c2e31e jp nz,#1ee3 1ede 363d ld (hl),#3d 1ee0 c3fc1e jp #1efc 1ee3 fe3e cp #3e 1ee5 c2ed1e jp nz,#1eed 1ee8 361e ld (hl),#1e 1eea c3fc1e jp #1efc 1eed 0621 ld b,#21 1eef 90 sub b 1ef0 dafc1e jp c,#1efc 1ef3 7e ld a,(hl) 1ef4 063b ld b,#3b 1ef6 90 sub b 1ef7 d2fc1e jp nc,#1efc 1efa a7 and a 1efb c9 ret 1efc 37 scf 1efd c9 ret 1efe 3ab14d ld a,(#4db1) 1f01 a7 and a 1f02 c8 ret z 1f03 af xor a 1f04 32b14d ld (#4db1),a 1f07 21ff32 ld hl,#32ff 1f0a 3a284d ld a,(#4d28) 1f0d ee02 xor #02 1f0f 322c4d ld (#4d2c),a 1f12 47 ld b,a 1f13 df rst #18 1f14 221e4d ld (#4d1e),hl 1f17 3a024e ld a,(#4e02) 1f1a fe22 cp #22 1f1c c0 ret nz 1f1d 22144d ld (#4d14),hl 1f20 78 ld a,b 1f21 32284d ld (#4d28),a 1f24 c9 ret 1f25 3ab24d ld a,(#4db2) 1f28 a7 and a 1f29 c8 ret z 1f2a af xor a 1f2b 32b24d ld (#4db2),a 1f2e 21ff32 ld hl,#32ff 1f31 3a294d ld a,(#4d29) 1f34 ee02 xor #02 1f36 322d4d ld (#4d2d),a 1f39 47 ld b,a 1f3a df rst #18 1f3b 22204d ld (#4d20),hl 1f3e 3a024e ld a,(#4e02) 1f41 fe22 cp #22 1f43 c0 ret nz 1f44 22164d ld (#4d16),hl 1f47 78 ld a,b 1f48 32294d ld (#4d29),a 1f4b c9 ret 1f4c 3ab34d ld a,(#4db3) 1f4f a7 and a 1f50 c8 ret z 1f51 af xor a 1f52 32b34d ld (#4db3),a 1f55 21ff32 ld hl,#32ff 1f58 3a2a4d ld a,(#4d2a) 1f5b ee02 xor #02 1f5d 322e4d ld (#4d2e),a 1f60 47 ld b,a 1f61 df rst #18 1f62 22224d ld (#4d22),hl 1f65 3a024e ld a,(#4e02) 1f68 fe22 cp #22 1f6a c0 ret nz 1f6b 22184d ld (#4d18),hl 1f6e 78 ld a,b 1f6f 322a4d ld (#4d2a),a 1f72 c9 ret 1f73 3ab44d ld a,(#4db4) 1f76 a7 and a 1f77 c8 ret z 1f78 af xor a 1f79 32b44d ld (#4db4),a 1f7c 21ff32 ld hl,#32ff 1f7f 3a2b4d ld a,(#4d2b) 1f82 ee02 xor #02 1f84 322f4d ld (#4d2f),a 1f87 47 ld b,a 1f88 df rst #18 1f89 22244d ld (#4d24),hl 1f8c 3a024e ld a,(#4e02) 1f8f fe22 cp #22 1f91 c0 ret nz 1f92 221a4d ld (#4d1a),hl 1f95 78 ld a,b 1f96 322b4d ld (#4d2b),a 1f99 c9 ret 1f9a 21 ;; new for ms-pacman ;; rst 38 continuation 1f9b f5 push af 1f9c ed57 ld a,i 1f9e b7 or a ;;; check to see if we're in test mode 1f9f 2804 jr z,#1fa5 ; (4) 1fa1 f1 pop af 1fa2 c38d00 jp #008d ;; continue the normal handler 1fa5 f1 pop af 1fa6 c30030 jp #3000 ;; we're in init, continue testing 1fa9 00 nop 1faa 00 nop 1fab 00 nop 1fac 00 nop 1fad 00 nop 1fae 00 nop 1faf 00 nop 1fb0 00 nop 1fb1 00 nop 1fb2 00 nop 1fb3 00 nop 1fb4 00 nop 1fb5 00 nop 1fb6 00 nop 1fb7 00 nop 1fb8 00 nop 1fb9 00 nop 1fba 00 nop 1fbb 00 nop 1fbc 00 nop 1fbd 00 nop 1fbe 00 nop 1fbf 00 nop 1fc0 00 nop 1fc1 00 nop 1fc2 00 nop 1fc3 00 nop 1fc4 00 nop 1fc5 00 nop 1fc6 00 nop 1fc7 00 nop 1fc8 00 nop 1fc9 00 nop 1fca 00 nop 1fcb 00 nop 1fcc 00 nop 1fcd 00 nop 1fce 00 nop 1fcf 00 nop 1fd0 00 nop 1fd1 00 nop 1fd2 00 nop 1fd3 00 nop 1fd4 00 nop 1fd5 00 nop 1fd6 00 nop 1fd7 00 nop 1fd8 00 nop 1fd9 00 nop 1fda 00 nop 1fdb 00 nop 1fdc 00 nop 1fdd 00 nop 1fde 00 nop 1fdf 00 nop 1fe0 00 nop 1fe1 00 nop 1fe2 00 nop 1fe3 00 nop 1fe4 00 nop 1fe5 00 nop 1fe6 00 nop 1fe7 00 nop 1fe8 00 nop 1fe9 00 nop 1fea 00 nop 1feb 00 nop 1fec 00 nop 1fed 00 nop 1fee 00 nop 1fef 00 nop 1ff0 00 nop 1ff1 00 nop 1ff2 00 nop 1ff3 00 nop 1ff4 00 nop 1ff5 00 nop 1ff6 00 nop 1ff7 00 nop 1ff8 00 nop 1ff9 00 nop 1ffa 00 nop 1ffb 00 nop 1ffc 00 nop 1ffd 00 nop 1ffe 5d ld e,l 1fff e1 pop hl 2000 fd7e00 ld a,(iy+#00) 2003 dd8600 add a,(ix+#00) 2006 6f ld l,a 2007 fd7e01 ld a,(iy+#01) 200a dd8601 add a,(ix+#01) 200d 67 ld h,a 200e c9 ret 200f cd0020 call #2000 2012 cd6500 call #0065 2015 7e ld a,(hl) 2016 a7 and a 2017 c9 ret 2018 7d ld a,l 2019 cb3f srl a 201b cb3f srl a 201d cb3f srl a 201f c620 add a,#20 2021 6f ld l,a 2022 7c ld a,h 2023 cb3f srl a 2025 cb3f srl a 2027 cb3f srl a 2029 c61e add a,#1e 202b 67 ld h,a 202c c9 ret 202d f5 push af 202e c5 push bc 202f 7d ld a,l 2030 d620 sub #20 2032 6f ld l,a 2033 7c ld a,h 2034 d620 sub #20 2036 67 ld h,a 2037 0600 ld b,#00 2039 cb24 sla h 203b cb24 sla h 203d cb24 sla h 203f cb24 sla h 2041 cb10 rl b 2043 cb24 sla h 2045 cb10 rl b 2047 4c ld c,h 2048 2600 ld h,#00 204a 09 add hl,bc 204b 014040 ld bc,#4040 204e 09 add hl,bc 204f c1 pop bc 2050 f1 pop af 2051 c9 ret 2052 cd6500 call #0065 2055 110004 ld de,#0400 2058 19 add hl,de 2059 c9 ret 205a cd5220 call #2052 205d 7e ld a,(hl) 205e fe1b cp #1b 2060 c36f36 jp #366f 2063 00 nop 2064 02 ld (bc),a 2065 c9 ret 2066 af xor a 2067 02 ld (bc),a 2068 c9 ret 2069 3aa14d ld a,(#4da1) 206c a7 and a 206d c0 ret nz 206e 3a124e ld a,(#4e12) 2071 a7 and a 2072 ca7e20 jp z,#207e 2075 3a9f4d ld a,(#4d9f) 2078 fe07 cp #07 207a c0 ret nz 207b c38620 jp #2086 207e 21b84d ld hl,#4db8 2081 3a0f4e ld a,(#4e0f) 2084 be cp (hl) 2085 d8 ret c 2086 3e02 ld a,#02 2088 32a14d ld (#4da1),a 208b c9 ret 208c 3aa24d ld a,(#4da2) 208f a7 and a 2090 c0 ret nz 2091 3a124e ld a,(#4e12) 2094 a7 and a 2095 caa120 jp z,#20a1 2098 3a9f4d ld a,(#4d9f) 209b fe11 cp #11 209d c0 ret nz 209e c3a920 jp #20a9 20a1 21b94d ld hl,#4db9 20a4 3a104e ld a,(#4e10) 20a7 be cp (hl) 20a8 d8 ret c 20a9 3e03 ld a,#03 20ab 32a24d ld (#4da2),a 20ae c9 ret 20af 3aa34d ld a,(#4da3) 20b2 a7 and a 20b3 c0 ret nz 20b4 3a124e ld a,(#4e12) 20b7 a7 and a 20b8 cac920 jp z,#20c9 20bb 3a9f4d ld a,(#4d9f) 20be fe20 cp #20 20c0 c0 ret nz 20c1 af xor a 20c2 32124e ld (#4e12),a 20c5 329f4d ld (#4d9f),a 20c8 c9 ret 20c9 21ba4d ld hl,#4dba 20cc 3a114e ld a,(#4e11) 20cf be cp (hl) 20d0 d8 ret c 20d1 3e03 ld a,#03 20d3 32a34d ld (#4da3),a 20d6 c9 ret 20d7 3aa34d ld a,(#4da3) 20da a7 and a 20db c8 ret z 20dc 210e4e ld hl,#4e0e 20df 3ab64d ld a,(#4db6) 20e2 a7 and a 20e3 c2f420 jp nz,#20f4 20e6 3ef4 ld a,#f4 20e8 96 sub (hl) 20e9 47 ld b,a 20ea 3abb4d ld a,(#4dbb) 20ed 90 sub b 20ee d8 ret c 20ef 3e01 ld a,#01 20f1 32b64d ld (#4db6),a 20f4 3ab74d ld a,(#4db7) 20f7 a7 and a 20f8 c0 ret nz 20f9 3ef4 ld a,#f4 20fb 96 sub (hl) 20fc 47 ld b,a 20fd 3abc4d ld a,(#4dbc) 2100 90 sub b 2101 d8 ret c 2102 3e01 ld a,#01 2104 32b74d ld (#4db7),a 2107 c9 ret 2108 c33534 jp #3435 210b e7 rst #20 210c 1a ld a,(de) 210d 214021 ld hl,#2140 2110 4b ld c,e 2111 210c00 ld hl,#000c 2114 70 ld (hl),b 2115 217b21 ld hl,#217b 2118 86 add a,(hl) 2119 213a3a ld hl,#3a3a 211c 4d ld c,l 211d d621 sub #21 211f 200f jr nz,#2130 ; (15) 2121 3c inc a 2122 32a04d ld (#4da0),a 2125 32b74d ld (#4db7),a 2128 cd0605 call #0506 212b 21064e ld hl,#4e06 212e 34 inc (hl) 212f c9 ret 2130 cd0618 call #1806 2133 cd0618 call #1806 2136 cd361b call #1b36 2139 cd361b call #1b36 213c cd230e call #0e23 213f c9 ret 2140 3a3a4d ld a,(#4d3a) 2143 d61e sub #1e 2145 c23021 jp nz,#2130 2148 c32b21 jp #212b 214b 3a324d ld a,(#4d32) 214e d61e sub #1e 2150 c23621 jp nz,#2136 2153 cd701a call #1a70 2156 af xor a 2157 32ac4e ld (#4eac),a 215a 32bc4e ld (#4ebc),a 215d cda505 call #05a5 2160 221c4d ld (#4d1c),hl 2163 3a3c4d ld a,(#4d3c) ;; text lookup table? 2166 32304d ld (#4d30),a 2169 f7 rst #30 216a 45 ld b,l 216b 07 rlca 216c 00 nop 216d c32b21 jp #212b 2170 3a324d ld a,(#4d32) 2173 d62f sub #2f 2175 c23621 jp nz,#2136 2178 c32b21 jp #212b 217b 3a324d ld a,(#4d32) 217e d63d sub #3d 2180 c23021 jp nz,#2130 2183 c32b21 jp #212b 2186 cd0618 call #1806 2189 cd0618 call #1806 218c 3a3a4d ld a,(#4d3a) 218f d63d sub #3d 2191 c0 ret nz 2192 32064e ld (#4e06),a 2195 f7 rst #30 2196 45 ld b,l 2197 00 nop 2198 00 nop 2199 21044e ld hl,#4e04 219c 34 inc (hl) 219d c9 ret 219e 3a074e ld a,(#4e07) 21a1 c34f34 jp #344f 21a4 41 ld b,c 21a5 e7 rst #20 21a6 c2210c jp nz,#0c21 21a9 00 nop 21aa e1 pop hl 21ab 21f521 ld hl,#21f5 21ae 0c inc c 21af 221e22 ld (#221e),hl 21b2 44 ld b,h 21b3 225d22 ld (#225d),hl 21b6 0c inc c 21b7 00 nop 21b8 6a ld l,d 21b9 220c00 ld (#000c),hl 21bc 86 add a,(hl) 21bd 220c00 ld (#000c),hl 21c0 8d adc a,l 21c1 223e01 ld (#013e),hl 21c4 32d245 ld (#45d2),a 21c7 32d345 ld (#45d3),a 21ca 32f245 ld (#45f2),a 21cd 32f345 ld (#45f3),a 21d0 cd0605 call #0506 21d3 fd360060 ld (iy+#00),#60 21d7 fd360161 ld (iy+#01),#61 21db f7 rst #30 21dc 43 ld b,e 21dd 08 ex af,af' 21de 00 nop 21df 180f jr #21f0 ; (15) 21e1 3a3a4d ld a,(#4d3a) 21e4 d62c sub #2c 21e6 c23021 jp nz,#2130 21e9 3c inc a 21ea 32a04d ld (#4da0),a 21ed 32b74d ld (#4db7),a 21f0 21074e ld hl,#4e07 21f3 34 inc (hl) 21f4 c9 ret 21f5 3a014d ld a,(#4d01) 21f8 fe77 cp #77 21fa 2805 jr z,#2201 ; (5) 21fc fe78 cp #78 21fe c23021 jp nz,#2130 2201 218420 ld hl,#2084 2204 224e4d ld (#4d4e),hl 2207 22504d ld (#4d50),hl 220a 18e4 jr #21f0 ; (-28) 220c 3a014d ld a,(#4d01) 220f d678 sub #78 2211 c23722 jp nz,#2237 2214 fd360062 ld (iy+#00),#62 2218 fd360163 ld (iy+#01),#63 221c 18d2 jr #21f0 ; (-46) 221e 3a014d ld a,(#4d01) 2221 d67b sub #7b 2223 2012 jr nz,#2237 ; (18) 2225 fd360064 ld (iy+#00),#64 2229 fd360165 ld (iy+#01),#65 222d fd362066 ld (iy+#20),#66 2231 fd362167 ld (iy+#21),#67 2235 18b9 jr #21f0 ; (-71) 2237 cd0618 call #1806 223a cd0618 call #1806 223d cd361b call #1b36 2240 cd230e call #0e23 2243 c9 ret 2244 3a014d ld a,(#4d01) 2247 d67e sub #7e 2249 20ec jr nz,#2237 ; (-20) 224b fd360068 ld (iy+#00),#68 224f fd360169 ld (iy+#01),#69 2253 fd36206a ld (iy+#20),#6a 2257 fd36216b ld (iy+#21),#6b 225b 1893 jr #21f0 ; (-109) 225d 3a014d ld a,(#4d01) 2260 d680 sub #80 2262 20d3 jr nz,#2237 ; (-45) 2264 f7 rst #30 2265 4f ld c,a 2266 08 ex af,af' 2267 00 nop 2268 1886 jr #21f0 ; (-122) 226a 21014d ld hl,#4d01 226d 34 inc (hl) 226e 34 inc (hl) 226f fd36006c ld (iy+#00),#6c 2273 fd36016d ld (iy+#01),#6d 2277 fd362040 ld (iy+#20),#40 227b fd362140 ld (iy+#21),#40 227f f7 rst #30 2280 4a ld c,d 2281 08 ex af,af' 2282 00 nop 2283 c3f021 jp #21f0 2286 f7 rst #30 2287 54 ld d,h 2288 08 ex af,af' 2289 00 nop 228a c3f021 jp #21f0 228d af xor a 228e 32074e ld (#4e07),a 2291 21044e ld hl,#4e04 2294 34 inc (hl) 2295 34 inc (hl) 2296 c9 ret 2297 3a084e ld a,(#4e08) 229a c36934 jp #3469 229d be cp (hl) 229e 220c00 ld (#000c),hl 22a1 dd22f522 ld (#22f5),ix 22a5 fe22 cp #22 22a7 3a3a4d ld a,(#4d3a) 22aa d625 sub #25 22ac c23021 jp nz,#2130 22af 3c inc a 22b0 32a04d ld (#4da0),a 22b3 32b74d ld (#4db7),a 22b6 cd0605 call #0506 22b9 21084e ld hl,#4e08 22bc 34 inc (hl) 22bd c9 ret 22be 3a014d ld a,(#4d01) 22c1 feff cp #ff 22c3 2805 jr z,#22ca ; (5) 22c5 fefe cp #fe 22c7 c23021 jp nz,#2130 22ca 3c inc a 22cb 3c inc a 22cc 32014d ld (#4d01),a 22cf 3e01 ld a,#01 22d1 32b14d ld (#4db1),a 22d4 cdfe1e call #1efe 22d7 f7 rst #30 22d8 4a ld c,d 22d9 09 add hl,bc 22da 00 nop 22db 18dc jr #22b9 ; (-36) 22dd 3a324d ld a,(#4d32) 22e0 d62d sub #2d 22e2 28d5 jr z,#22b9 ; (-43) 22e4 3a004d ld a,(#4d00) 22e7 32d24d ld (#4dd2),a 22ea 3a014d ld a,(#4d01) 22ed d608 sub #08 22ef 32d34d ld (#4dd3),a 22f2 c33021 jp #2130 22f5 3a324d ld a,(#4d32) 22f8 d61e sub #1e 22fa 28bd jr z,#22b9 ; (-67) 22fc 18e6 jr #22e4 ; (-26) 22fe af xor a 22ff 32084e ld (#4e08),a 2302 f7 rst #30 2303 45 ld b,l 2304 00 nop 2305 00 nop 2306 21044e ld hl,#4e04 2309 34 inc (hl) 230a c9 ret ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Main program start (reset) ;; 0 -> 5000 - 5007 (special registers) ;; irq off, sound off, flip off, etc. 230b 210050 ld hl,#5000 230e 0608 ld b,#08 2310 af xor a ; 0 -> a 2311 77 ld (hl),a 2312 2c inc l 2313 10fc djnz #2311 ; (-4) ;; Clear screen ;; 40 -> 4000-43ff (Video RAM) 2315 210040 ld hl,#4000 2318 0604 ld b,#04 231a 32c050 ld (#50c0),a ; kick watchdog 231d 320750 ld (#5007),a ; kick coin counter? 2320 3e40 ld a,#40 2322 77 ld (hl),a 2323 2c inc l 2324 20fc jr nz,#2322 ; loop 2326 24 inc h 2327 10f1 djnz #231a ; loop ;; 0f -> 4400 - 47ff (Color RAM) 2329 0604 ld b,#04 232b 32c050 ld (#50c0),a ; kick watchdog 232e af xor a ; 0 -> a 232f 320750 ld (#5007),a ; kick coin counter? 2332 3e0f ld a,#0f 2334 77 ld (hl),a 2335 2c inc l 2336 20fc jr nz,#2334 ; loop 2338 24 inc h 2339 10f0 djnz #232b ; loop ;; test the interrupt hardware now 233b ed56 im 1 ; set interrupt mode 1 233d 00 nop ; interrupt vector hardware not there 233e 00 nop 233f 00 nop 2340 00 nop 2341 af xor a ; a = 0 2342 320750 ld (#5007),a ; reset coin counter 2345 3c inc a ; a = 1 (a++) 2346 320050 ld (#5000),a ; Enable interrupts (pcb) 2349 fb ei ; Enable interrupts (cpu) 234a 76 halt ; WAIT for interrupt then jump 0x0038 ;; main program init ?? ;; perhaps a contiuation from 3295 234b 32c050 ld (#50c0),a ; kick dog 234e 31c04f ld sp,#4fc0 ; set stack pointer 2351 af xor a 2352 210050 ld hl,#5000 2355 010808 ld bc,#0808 2358 cf rst #8 ;; clear ram 2359 21004c ld hl,#4c00 235c 06be ld b,#be 235e cf rst #8 235f cf rst #8 2360 cf rst #8 2361 cf rst #8 ;; clear sound registers, sprite positions 2362 214050 ld hl,#5040 2365 0640 ld b,#40 2367 cf rst #8 2368 32c050 ld (#50c0),a ; kick dog 236b cd0d24 call #240d ; clear color ram 236e 32c050 ld (#50c0),a ; kick dog 2371 0600 ld b,#00 2373 cded23 call #23ed 2376 32c050 ld (#50c0),a ; kick dog 2379 21c04c ld hl,#4cc0 237c 22804c ld (#4c80),hl 237f 22824c ld (#4c82),hl ;; 0xff -> 4cc0-4cff 2382 3eff ld a,#ff 2384 0640 ld b,#40 2386 cf rst #8 2387 3e01 ld a,#01 2389 320050 ld (#5000),a ; enable interrupts 238c fb ei ; enable interrupts 238d 2a824c ld hl,(#4c82) 2390 7e ld a,(hl) 2391 a7 and a 2392 fa8d23 jp m,#238d 2395 36ff ld (hl),#ff 2397 2c inc l 2398 46 ld b,(hl) 2399 36ff ld (hl),#ff 239b 2c inc l 239c 2002 jr nz,#23a0 ; (2) 239e 2ec0 ld l,#c0 23a0 22824c ld (#4c82),hl 23a3 218d23 ld hl,#238d 23a6 e5 push hl 23a7 e7 rst #20 23a8 ed23 db #ed, #23 ; Undocumented 8 T-State NOP 23aa d7 rst #10 23ab 24 inc h 23ac 19 add hl,de 23ad 24 inc h 23ae 48 ld c,b 23af 24 inc h 23b0 3d dec a 23b1 25 dec h 23b2 8b adc a,e 23b3 260d ld h,#0d 23b5 24 inc h 23b6 98 sbc a,b 23b7 2630 ld h,#30 23b9 27 daa 23ba 6c ld l,h 23bb 27 daa 23bc a9 xor c 23bd 27 daa 23be f1 pop af 23bf 27 daa 23c0 3b dec sp 23c1 2865 jr z,#2428 ; (101) 23c3 288f jr z,#2354 ; (-113) 23c5 28b9 jr z,#2380 ; (-71) 23c7 280d jr z,#23d6 ; (13) 23c9 00 nop 23ca a2 and d 23cb 26c9 ld h,#c9 23cd 24 inc h 23ce 35 dec (hl) 23cf 2ad026 ld hl,(#26d0) 23d2 87 add a,a 23d3 24 inc h 23d4 e8 ret pe ;; subroutine 23d5 23 inc hl 23d6 e3 ex (sp),hl 23d7 28e0 jr z,#23b9 ; (-32) 23d9 2a5a2a ld hl,(#2a5a) 23dc 6a ld l,d 23dd 2b dec hl 23de ea2be3 jp pe,#e32b 23e1 95 sub l 23e2 a1 and c 23e3 2b dec hl 23e4 75 ld (hl),l 23e5 26b2 ld h,#b2 23e7 2621 ld h,#21 23e9 04 inc b 23ea 4e ld c,(hl) 23eb 34 inc (hl) 23ec c9 ret ;; subroutine 23ed 78 ld a,b 23ee e7 rst #20 23ef f3 di ; disable interrupts 23f0 23 inc hl 23f1 00 nop 23f2 24 inc h 23f3 3e40 ld a,#40 23f5 010400 ld bc,#0004 23f8 210040 ld hl,#4000 ; start of video ram 23fb cf rst #8 23fc 0d dec c 23fd 20fc jr nz,#23fb ; (-4) 23ff c9 ret ;; set video ram to 0x40 2400 3e40 ld a,#40 2402 214040 ld hl,#4040 2405 010480 ld bc,#8004 2408 cf rst #8 2409 0d dec c 240a 20fc jr nz,#2408 ; (-4) 240c c9 ret ;; set color ram to 0x00 240d af xor a 240e 010400 ld bc,#0004 2411 210044 ld hl,#4400 ; start of color ram 2414 cf rst #8 2415 0d dec c 2416 20fc jr nz,#2414 ; (-4) 2418 c9 ret ;; subroutine 2419 210040 ld hl,#4000 ; start of video ram 241c cd6a94 call #946a 241f 0a ld a,(bc) 2420 a7 and a 2421 c8 ret z ;; this is probably the routine that draws the power pellets on ;; the screen. It calls 94ec, which probably draws the pellets ;; in the proper locations according to the ms-pac mazes. 2422 fa2c24 jp m,#242c 2425 5f ld e,a 2426 1600 ld d,#00 2428 19 add hl,de 2429 2b dec hl 242a 03 inc bc 242b 0a ld a,(bc) 242c 23 inc hl 242d 77 ld (hl),a 242e f5 push af 242f e5 push hl 2430 11e083 ld de,#83e0 2433 7d ld a,l 2434 e61f and #1f 2436 87 add a,a 2437 2600 ld h,#00 2439 6f ld l,a 243a 19 add hl,de 243b d1 pop de 243c a7 and a 243d ed52 sbc hl,de 243f f1 pop af 2440 ee01 xor #01 2442 77 ld (hl),a 2443 eb ex de,hl 2444 03 inc bc 2445 c31f24 jp #241f 2448 210040 ld hl,#4000 ; start of video ram 244b c37c94 jp #947c 244e 4e ld c,(hl) 244f fd21b535 ld iy,#35b5 2453 1600 ld d,#00 2455 061e ld b,#1e 2457 0e08 ld c,#08 2459 dd7e00 ld a,(ix+#00) 245c fd5e00 ld e,(iy+#00) 245f 19 add hl,de 2460 07 rlca 2461 3002 jr nc,#2465 ; (2) 2463 3610 ld (hl),#10 2465 fd23 inc iy 2467 0d dec c 2468 20f2 jr nz,#245c ; (-14) 246a dd23 inc ix 246c 05 dec b 246d 20e8 jr nz,#2457 ; (-24) 246f 21344e ld hl,#4e34 2472 c3ec94 jp #94ec ;; patched pac-man line???? 2475 eda0 ldi 2477 117840 ld de,#4078 ;; power pellet address 247a eda0 ldi 247c 118443 ld de,#4384 ;; power pellet address 247f eda0 ldi 2481 119843 ld de,#4398 ;; power pellet address 2484 eda0 ldi 2486 c9 ret ;; draw the pellets onto the screen! 2487 210040 ld hl,#4000 ; start of video ram 248a c38194 jp #9481 248d 4e ld c,(hl) 248e fd21b535 ld iy,#35b5 ; start of some data 2492 1600 ld d,#00 2494 061e ld b,#1e 2496 0e08 ld c,#08 2498 fd5e00 ld e,(iy+#00) 249b 19 add hl,de 249c 7e ld a,(hl) 249d fe10 cp #10 249f 37 scf 24a0 2801 jr z,#24a3 ; (1) 24a2 3f ccf 24a3 ddcb0016 rl (ix+#00) 24a7 fd23 inc iy 24a9 0d dec c 24aa 20ec jr nz,#2498 ; (-20) 24ac dd23 inc ix 24ae 05 dec b 24af 20e5 jr nz,#2496 ; (-27) 24b1 216440 ld hl,#4064 ;; power pellet address 24b4 c30495 jp #9504 24b7 eda0 ldi 24b9 217840 ld hl,#4078 ;; power pellet address 24bc eda0 ldi 24be 218443 ld hl,#4384 ;; power pellet address 24c1 eda0 ldi 24c3 219843 ld hl,#4398 ;; power pellet address 24c6 eda0 ldi 24c8 c9 ret 24c9 21164e ld hl,#4e16 24cc 3eff ld a,#ff 24ce 061e ld b,#1e 24d0 cf rst #8 24d1 3e14 ld a,#14 24d3 0604 ld b,#04 24d5 cf rst #8 24d6 c9 ret 24d7 58 ld e,b 24d8 78 ld a,b 24d9 fe02 cp #02 24db 3e1f ld a,#1f 24dd c38095 jp #9580 24e0 1021 djnz #2503 ; (33) 24e2 40 ld b,b 24e3 44 ld b,h 24e4 010480 ld bc,#8004 24e7 cf rst #8 24e8 0d dec c 24e9 20fc jr nz,#24e7 ; (-4) 24eb 3e0f ld a,#0f 24ed 0640 ld b,#40 24ef 21c047 ld hl,#47c0 24f2 cf rst #8 24f3 7b ld a,e 24f4 fe01 cp #01 24f6 c0 ret nz 24f7 3e1a ld a,#1a 24f9 c3c395 jp #95c3 24fc 0606 ld b,#06 24fe dd21a045 ld ix,#45a0 2502 dd770c ld (ix+#0c),a 2505 dd7718 ld (ix+#18),a 2508 dd19 add ix,de 250a 10f6 djnz #2502 ; (-10) 250c 3e1b ld a,#1b 250e 0605 ld b,#05 2510 dd214044 ld ix,#4440 2514 dd770e ld (ix+#0e),a 2517 dd770f ld (ix+#0f),a 251a dd7710 ld (ix+#10),a 251d dd19 add ix,de 251f 10f3 djnz #2514 ; (-13) 2521 0605 ld b,#05 2523 dd212047 ld ix,#4720 2527 dd770e ld (ix+#0e),a 252a dd770f ld (ix+#0f),a 252d dd7710 ld (ix+#10),a 2530 dd19 add ix,de 2532 10f3 djnz #2527 ; (-13) 2534 3e18 ld a,#18 2536 32ed45 ld (#45ed),a 2539 320d46 ld (#460d),a 253c c9 ret ;; this is strange... possibly data of some kind? 253d dd21004c ld ix,#4c00 2541 dd360220 ld (ix+#02),#20 2545 dd360420 ld (ix+#04),#20 2549 dd360620 ld (ix+#06),#20 254d dd360820 ld (ix+#08),#20 2551 dd360a2c ld (ix+#0a),#2c 2555 dd360c3f ld (ix+#0c),#3f 2559 dd360301 ld (ix+#03),#01 255d dd360503 ld (ix+#05),#03 2561 dd360705 ld (ix+#07),#05 2565 dd360907 ld (ix+#09),#07 2569 dd360b09 ld (ix+#0b),#09 256d dd360d00 ld (ix+#0d),#00 2571 78 ld a,b 2572 a7 and a 2573 c20f26 jp nz,#260f 2576 216480 ld hl,#8064 2579 22004d ld (#4d00),hl 257c 217c80 ld hl,#807c 257f 22024d ld (#4d02),hl 2582 217c90 ld hl,#907c 2585 22044d ld (#4d04),hl 2588 217c70 ld hl,#707c 258b 22064d ld (#4d06),hl 258e 21c480 ld hl,#80c4 2591 22084d ld (#4d08),hl 2594 212c2e ld hl,#2e2c 2597 220a4d ld (#4d0a),hl 259a 22314d ld (#4d31),hl 259d 212f2e ld hl,#2e2f 25a0 220c4d ld (#4d0c),hl 25a3 22334d ld (#4d33),hl 25a6 212f30 ld hl,#302f 25a9 220e4d ld (#4d0e),hl 25ac 22354d ld (#4d35),hl 25af 212f2c ld hl,#2c2f 25b2 22104d ld (#4d10),hl 25b5 22374d ld (#4d37),hl 25b8 21382e ld hl,#2e38 25bb 22124d ld (#4d12),hl 25be 22394d ld (#4d39),hl 25c1 210001 ld hl,#0100 25c4 22144d ld (#4d14),hl 25c7 221e4d ld (#4d1e),hl 25ca 210100 ld hl,#0001 25cd 22164d ld (#4d16),hl 25d0 22204d ld (#4d20),hl 25d3 21ff00 ld hl,#00ff 25d6 22184d ld (#4d18),hl 25d9 22224d ld (#4d22),hl 25dc 21ff00 ld hl,#00ff 25df 221a4d ld (#4d1a),hl 25e2 22244d ld (#4d24),hl 25e5 210001 ld hl,#0100 25e8 221c4d ld (#4d1c),hl 25eb 22264d ld (#4d26),hl 25ee 210201 ld hl,#0102 25f1 22284d ld (#4d28),hl 25f4 222c4d ld (#4d2c),hl 25f7 210303 ld hl,#0303 25fa 222a4d ld (#4d2a),hl 25fd 222e4d ld (#4d2e),hl 2600 3e02 ld a,#02 2602 32304d ld (#4d30),a 2605 323c4d ld (#4d3c),a 2608 210000 ld hl,#0000 260b 22d24d ld (#4dd2),hl 260e c9 ret 260f 219400 ld hl,#0094 2612 22004d ld (#4d00),hl 2615 22024d ld (#4d02),hl 2618 22044d ld (#4d04),hl 261b 22064d ld (#4d06),hl 261e 21321e ld hl,#1e32 2621 220a4d ld (#4d0a),hl 2624 220c4d ld (#4d0c),hl 2627 220e4d ld (#4d0e),hl 262a 22104d ld (#4d10),hl 262d 22314d ld (#4d31),hl 2630 22334d ld (#4d33),hl 2633 22354d ld (#4d35),hl 2636 22374d ld (#4d37),hl 2639 210001 ld hl,#0100 263c 22144d ld (#4d14),hl 263f 22164d ld (#4d16),hl 2642 22184d ld (#4d18),hl 2645 221a4d ld (#4d1a),hl 2648 221e4d ld (#4d1e),hl 264b 22204d ld (#4d20),hl 264e 22224d ld (#4d22),hl 2651 22244d ld (#4d24),hl 2654 221c4d ld (#4d1c),hl 2657 22264d ld (#4d26),hl 265a 21284d ld hl,#4d28 265d 3e02 ld a,#02 265f 0609 ld b,#09 2661 cf rst #8 2662 323c4d ld (#4d3c),a 2665 219408 ld hl,#0894 2668 22084d ld (#4d08),hl 266b 21321f ld hl,#1f32 266e 22124d ld (#4d12),hl 2671 22394d ld (#4d39),hl 2674 c9 ret 2675 210000 ld hl,#0000 2678 22d24d ld (#4dd2),hl 267b 22084d ld (#4d08),hl 267e 22004d ld (#4d00),hl 2681 22024d ld (#4d02),hl 2684 22044d ld (#4d04),hl 2687 22064d ld (#4d06),hl 268a c9 ret 268b 3e55 ld a,#55 268d 32944d ld (#4d94),a 2690 05 dec b 2691 c8 ret z 2692 3e01 ld a,#01 2694 32a04d ld (#4da0),a 2697 c9 ret 2698 3e01 ld a,#01 269a 32004e ld (#4e00),a 269d af xor a 269e 32034e ld (#4e03),a 26a1 c9 ret 26a2 af xor a 26a3 11004d ld de,#4d00 26a6 21004e ld hl,#4e00 26a9 12 ld (de),a 26aa 13 inc de 26ab a7 and a 26ac ed52 sbc hl,de 26ae c2a626 jp nz,#26a6 26b1 c9 ret 26b2 dd213641 ld ix,#4136 26b6 3a714e ld a,(#4e71) 26b9 e60f and #0f 26bb c630 add a,#30 26bd dd7700 ld (ix+#00),a 26c0 3a714e ld a,(#4e71) 26c3 0f rrca 26c4 0f rrca 26c5 0f rrca 26c6 0f rrca 26c7 e60f and #0f 26c9 c8 ret z 26ca c630 add a,#30 26cc dd7720 ld (ix+#20),a 26cf c9 ret 26d0 3a8050 ld a,(#5080) ;; check in0 26d3 47 ld b,a 26d4 e603 and #03 ;; up or to the left? 26d6 c2de26 jp nz,#26de 26d9 216e4e ld hl,#4e6e 26dc 36ff ld (hl),#ff 26de 4f ld c,a 26df 1f rra 26e0 ce00 adc a,#00 26e2 326b4e ld (#4e6b),a 26e5 e602 and #02 26e7 a9 xor c 26e8 326d4e ld (#4e6d),a 26eb 78 ld a,b 26ec 0f rrca 26ed 0f rrca 26ee e603 and #03 26f0 3c inc a 26f1 fe04 cp #04 26f3 2001 jr nz,#26f6 ; (1) 26f5 3c inc a 26f6 326f4e ld (#4e6f),a 26f9 78 ld a,b 26fa 0f rrca 26fb 0f rrca 26fc 0f rrca 26fd 0f rrca 26fe e603 and #03 2700 212827 ld hl,#2728 2703 d7 rst #10 2704 32714e ld (#4e71),a 2707 78 ld a,b 2708 07 rlca 2709 2f cpl 270a e601 and #01 270c 32754e ld (#4e75),a 270f 78 ld a,b 2710 07 rlca 2711 07 rlca 2712 2f cpl 2713 e601 and #01 2715 47 ld b,a 2716 212c27 ld hl,#272c 2719 df rst #18 271a 22734e ld (#4e73),hl 271d 3a4050 ld a,(#5040) ;; check in1 2720 07 rlca 2721 2f cpl 2722 e601 and #01 2724 32724e ld (#4e72),a 2727 c9 ret 2728 1015 djnz #273f ; (21) 272a 20ff jr nz,#272b ; (-1) 272c 68 ld l,b 272d 00 nop 272e 7d ld a,l 272f 00 nop 2730 3ac14d ld a,(#4dc1) 2733 cb47 bit 0,a 2735 c25827 jp nz,#2758 2738 3ab64d ld a,(#4db6) 273b a7 and a 273c 201a jr nz,#2758 ; (26) 273e 3a044e ld a,(#4e04) 2741 fe03 cp #03 2743 2013 jr nz,#2758 ; (19) 2745 2a0a4d ld hl,(#4d0a) 2748 3a2c4d ld a,(#4d2c) 274b cd6195 call #9561 274e cd6629 call #2966 2751 221e4d ld (#4d1e),hl 2754 322c4d ld (#4d2c),a 2757 c9 ret 2758 2a0a4d ld hl,(#4d0a) 275b ed5b394d ld de,(#4d39) 275f 3a2c4d ld a,(#4d2c) 2762 cd6629 call #2966 2765 221e4d ld (#4d1e),hl 2768 322c4d ld (#4d2c),a 276b c9 ret 276c 3ac14d ld a,(#4dc1) 276f cb47 bit 0,a 2771 c28e27 jp nz,#278e 2774 3a044e ld a,(#4e04) 2777 fe03 cp #03 2779 2013 jr nz,#278e ; (19) 277b 2a0c4d ld hl,(#4d0c) 277e 3a2d4d ld a,(#4d2d) 2781 cd6195 call #9561 2784 cd6629 call #2966 2787 22204d ld (#4d20),hl 278a 322d4d ld (#4d2d),a 278d c9 ret 278e ed5b394d ld de,(#4d39) 2792 2a1c4d ld hl,(#4d1c) 2795 29 add hl,hl 2796 29 add hl,hl 2797 19 add hl,de 2798 eb ex de,hl 2799 2a0c4d ld hl,(#4d0c) 279c 3a2d4d ld a,(#4d2d) 279f cd6629 call #2966 27a2 22204d ld (#4d20),hl 27a5 322d4d ld (#4d2d),a 27a8 c9 ret 27a9 3ac14d ld a,(#4dc1) 27ac cb47 bit 0,a 27ae c2cb27 jp nz,#27cb 27b1 3a044e ld a,(#4e04) 27b4 fe03 cp #03 27b6 2013 jr nz,#27cb ; (19) 27b8 2a0e4d ld hl,(#4d0e) 27bb cd5995 call #9559 27be 114020 ld de,#2040 27c1 cd6629 call #2966 27c4 22224d ld (#4d22),hl 27c7 322e4d ld (#4d2e),a 27ca c9 ret 27cb ed4b0a4d ld bc,(#4d0a) 27cf ed5b394d ld de,(#4d39) 27d3 2a1c4d ld hl,(#4d1c) 27d6 29 add hl,hl 27d7 19 add hl,de 27d8 7d ld a,l 27d9 87 add a,a 27da 91 sub c 27db 6f ld l,a 27dc 7c ld a,h 27dd 87 add a,a 27de 90 sub b 27df 67 ld h,a 27e0 eb ex de,hl 27e1 2a0e4d ld hl,(#4d0e) 27e4 3a2e4d ld a,(#4d2e) 27e7 cd6629 call #2966 27ea 22224d ld (#4d22),hl 27ed 322e4d ld (#4d2e),a 27f0 c9 ret 27f1 3ac14d ld a,(#4dc1) 27f4 cb47 bit 0,a 27f6 c21328 jp nz,#2813 27f9 3a044e ld a,(#4e04) 27fc fe03 cp #03 27fe 2013 jr nz,#2813 ; (19) 2800 2a104d ld hl,(#4d10) 2803 cd5e95 call #955e 2806 11403b ld de,#3b40 2809 cd6629 call #2966 280c 22244d ld (#4d24),hl 280f 322f4d ld (#4d2f),a 2812 c9 ret 2813 dd21394d ld ix,#4d39 2817 fd21104d ld iy,#4d10 281b cdea29 call #29ea 281e 114000 ld de,#0040 2821 a7 and a 2822 ed52 sbc hl,de 2824 da0028 jp c,#2800 2827 2a104d ld hl,(#4d10) 282a ed5b394d ld de,(#4d39) 282e 3a2f4d ld a,(#4d2f) 2831 cd6629 call #2966 2834 22244d ld (#4d24),hl 2837 322f4d ld (#4d2f),a 283a c9 ret 283b 3aac4d ld a,(#4dac) 283e a7 and a 283f ca5528 jp z,#2855 2842 112c2e ld de,#2e2c 2845 2a0a4d ld hl,(#4d0a) 2848 3a2c4d ld a,(#4d2c) 284b cd6629 call #2966 284e 221e4d ld (#4d1e),hl 2851 322c4d ld (#4d2c),a 2854 c9 ret 2855 2a0a4d ld hl,(#4d0a) 2858 3a2c4d ld a,(#4d2c) 285b cd1e29 call #291e 285e 221e4d ld (#4d1e),hl 2861 322c4d ld (#4d2c),a 2864 c9 ret 2865 3aad4d ld a,(#4dad) 2868 a7 and a 2869 ca7f28 jp z,#287f 286c 112c2e ld de,#2e2c 286f 2a0c4d ld hl,(#4d0c) 2872 3a2d4d ld a,(#4d2d) 2875 cd6629 call #2966 2878 22204d ld (#4d20),hl 287b 322d4d ld (#4d2d),a 287e c9 ret 287f 2a0c4d ld hl,(#4d0c) 2882 3a2d4d ld a,(#4d2d) 2885 cd1e29 call #291e 2888 22204d ld (#4d20),hl 288b 322d4d ld (#4d2d),a 288e c9 ret 288f 3aae4d ld a,(#4dae) 2892 a7 and a 2893 caa928 jp z,#28a9 2896 112c2e ld de,#2e2c 2899 2a0e4d ld hl,(#4d0e) 289c 3a2e4d ld a,(#4d2e) 289f cd6629 call #2966 28a2 22224d ld (#4d22),hl 28a5 322e4d ld (#4d2e),a 28a8 c9 ret 28a9 2a0e4d ld hl,(#4d0e) 28ac 3a2e4d ld a,(#4d2e) 28af cd1e29 call #291e 28b2 22224d ld (#4d22),hl 28b5 322e4d ld (#4d2e),a 28b8 c9 ret 28b9 3aaf4d ld a,(#4daf) 28bc a7 and a 28bd cad328 jp z,#28d3 28c0 112c2e ld de,#2e2c 28c3 2a104d ld hl,(#4d10) 28c6 3a2f4d ld a,(#4d2f) 28c9 cd6629 call #2966 28cc 22244d ld (#4d24),hl 28cf 322f4d ld (#4d2f),a 28d2 c9 ret 28d3 2a104d ld hl,(#4d10) 28d6 3a2f4d ld a,(#4d2f) 28d9 cd1e29 call #291e 28dc 22244d ld (#4d24),hl 28df 322f4d ld (#4d2f),a 28e2 c9 ret 28e3 3aa74d ld a,(#4da7) 28e6 a7 and a 28e7 cafe28 jp z,#28fe 28ea 2a124d ld hl,(#4d12) 28ed ed5b0c4d ld de,(#4d0c) 28f1 3a3c4d ld a,(#4d3c) 28f4 cd6629 call #2966 28f7 22264d ld (#4d26),hl 28fa 323c4d ld (#4d3c),a 28fd c9 ret 28fe 2a394d ld hl,(#4d39) 2901 ed4b0c4d ld bc,(#4d0c) 2905 7d ld a,l 2906 87 add a,a 2907 91 sub c 2908 6f ld l,a 2909 7c ld a,h 290a 87 add a,a 290b 90 sub b 290c 67 ld h,a 290d eb ex de,hl 290e 2a124d ld hl,(#4d12) 2911 3a3c4d ld a,(#4d3c) 2914 cd6629 call #2966 2917 22264d ld (#4d26),hl 291a 323c4d ld (#4d3c),a 291d c9 ret 291e 223e4d ld (#4d3e),hl 2921 ee02 xor #02 2923 323d4d ld (#4d3d),a 2926 cd232a call #2a23 ; get a random number 2929 e603 and #03 292b 213b4d ld hl,#4d3b 292e 77 ld (hl),a 292f 87 add a,a 2930 5f ld e,a 2931 1600 ld d,#00 2933 dd21ff32 ld ix,#32ff 2937 dd19 add ix,de 2939 fd213e4d ld iy,#4d3e 293d 3a3d4d ld a,(#4d3d) 2940 be cp (hl) 2941 ca5729 jp z,#2957 2944 cd0f20 call #200f 2947 e6c0 and #c0 2949 d6c0 sub #c0 294b 280a jr z,#2957 ; (10) 294d dd6e00 ld l,(ix+#00) 2950 dd6601 ld h,(ix+#01) 2953 3a3b4d ld a,(#4d3b) 2956 c9 ret 2957 dd23 inc ix 2959 dd23 inc ix 295b 213b4d ld hl,#4d3b 295e 7e ld a,(hl) 295f 3c inc a 2960 e603 and #03 2962 77 ld (hl),a 2963 c33d29 jp #293d 2966 223e4d ld (#4d3e),hl 2969 ed53404d ld (#4d40),de 296d 323b4d ld (#4d3b),a 2970 ee02 xor #02 2972 323d4d ld (#4d3d),a 2975 21ffff ld hl,#ffff 2978 22444d ld (#4d44),hl 297b dd21ff32 ld ix,#32ff 297f fd213e4d ld iy,#4d3e 2983 21c74d ld hl,#4dc7 2986 3600 ld (hl),#00 2988 3a3d4d ld a,(#4d3d) 298b be cp (hl) 298c cac629 jp z,#29c6 298f cd0020 call #2000 2992 22424d ld (#4d42),hl 2995 cd6500 call #0065 2998 7e ld a,(hl) 2999 e6c0 and #c0 299b d6c0 sub #c0 299d 2827 jr z,#29c6 ; (39) 299f dde5 push ix 29a1 fde5 push iy 29a3 dd21404d ld ix,#4d40 29a7 fd21424d ld iy,#4d42 29ab cdea29 call #29ea 29ae fde1 pop iy 29b0 dde1 pop ix 29b2 eb ex de,hl 29b3 2a444d ld hl,(#4d44) 29b6 a7 and a 29b7 ed52 sbc hl,de 29b9 dac629 jp c,#29c6 29bc ed53444d ld (#4d44),de 29c0 3ac74d ld a,(#4dc7) 29c3 323b4d ld (#4d3b),a 29c6 dd23 inc ix 29c8 dd23 inc ix 29ca 21c74d ld hl,#4dc7 29cd 34 inc (hl) 29ce 3e04 ld a,#04 29d0 be cp (hl) 29d1 c28829 jp nz,#2988 29d4 3a3b4d ld a,(#4d3b) 29d7 87 add a,a 29d8 5f ld e,a 29d9 1600 ld d,#00 29db dd21ff32 ld ix,#32ff 29df dd19 add ix,de 29e1 dd6e00 ld l,(ix+#00) 29e4 dd6601 ld h,(ix+#01) 29e7 cb3f srl a 29e9 c9 ret 29ea dd7e00 ld a,(ix+#00) 29ed fd4600 ld b,(iy+#00) 29f0 90 sub b 29f1 d2f929 jp nc,#29f9 29f4 78 ld a,b 29f5 dd4600 ld b,(ix+#00) 29f8 90 sub b 29f9 cd122a call #2a12 29fc e5 push hl 29fd dd7e01 ld a,(ix+#01) 2a00 fd4601 ld b,(iy+#01) 2a03 90 sub b 2a04 d20c2a jp nc,#2a0c 2a07 78 ld a,b 2a08 dd4601 ld b,(ix+#01) 2a0b 90 sub b 2a0c cd122a call #2a12 2a0f c1 pop bc 2a10 09 add hl,bc 2a11 c9 ret 2a12 67 ld h,a 2a13 5f ld e,a 2a14 2e00 ld l,#00 2a16 55 ld d,l 2a17 0e08 ld c,#08 2a19 29 add hl,hl 2a1a d21e2a jp nc,#2a1e 2a1d 19 add hl,de 2a1e 0d dec c 2a1f c2192a jp nz,#2a19 2a22 c9 ret ;; Random number generator ;; $2a23 random number generator, only active when ghosts are blue. ;; n=(n*5+1)&&$1fff. n is used as an address to read a byte from a rom. ;; $4dc9,$4dca=n and a=rnd number. n is reset to 0 at $26a9 when you die, ;; start of first level, end of every level. Later a is anded with 3. 2a23 2ac94d ld hl,(#4dc9) 2a26 54 ld d,h 2a27 5d ld e,l 2a28 29 add hl,hl 2a29 29 add hl,hl 2a2a 19 add hl,de 2a2b 23 inc hl 2a2c 7c ld a,h 2a2d e61f and #1f 2a2f 67 ld h,a 2a30 7e ld a,(hl) 2a31 22c94d ld (#4dc9),hl 2a34 c9 ret 2a35 114040 ld de,#4040 2a38 21c043 ld hl,#43c0 2a3b a7 and a 2a3c ed52 sbc hl,de 2a3e c8 ret z 2a3f 1a ld a,(de) 2a40 fe10 cp #10 2a42 ca532a jp z,#2a53 2a45 fe12 cp #12 2a47 ca532a jp z,#2a53 2a4a fe14 cp #14 2a4c ca532a jp z,#2a53 2a4f 13 inc de 2a50 c3382a jp #2a38 2a53 3e40 ld a,#40 2a55 12 ld (de),a 2a56 13 inc de 2a57 c3382a jp #2a38 2a5a 3a004e ld a,(#4e00) 2a5d fe01 cp #01 2a5f c8 ret z 2a60 21172b ld hl,#2b17 2a63 df rst #18 2a64 eb ex de,hl 2a65 cd0b2b call #2b0b 2a68 7b ld a,e 2a69 86 add a,(hl) 2a6a 27 daa 2a6b 77 ld (hl),a 2a6c 23 inc hl 2a6d 7a ld a,d 2a6e 8e adc a,(hl) 2a6f 27 daa 2a70 77 ld (hl),a 2a71 5f ld e,a 2a72 23 inc hl 2a73 3e00 ld a,#00 2a75 8e adc a,(hl) 2a76 27 daa 2a77 77 ld (hl),a 2a78 57 ld d,a 2a79 eb ex de,hl 2a7a 29 add hl,hl 2a7b 29 add hl,hl 2a7c 29 add hl,hl 2a7d 29 add hl,hl 2a7e 3a714e ld a,(#4e71) 2a81 3d dec a 2a82 bc cp h 2a83 dc332b call c,#2b33 2a86 cdaf2a call #2aaf 2a89 13 inc de 2a8a 13 inc de 2a8b 13 inc de 2a8c 218a4e ld hl,#4e8a 2a8f 0603 ld b,#03 2a91 1a ld a,(de) 2a92 be cp (hl) 2a93 d8 ret c 2a94 2005 jr nz,#2a9b ; (5) 2a96 1b dec de 2a97 2b dec hl 2a98 10f7 djnz #2a91 ; (-9) 2a9a c9 ret ;; possibly checking the high score? 2a9b cd0b2b call #2b0b 2a9e 11884e ld de,#4e88 2aa1 010300 ld bc,#0003 2aa4 edb0 ldir 2aa6 1b dec de 2aa7 010403 ld bc,#0304 2aaa 21f243 ld hl,#43f2 2aad 180f jr #2abe ; (15) 2aaf 3a094e ld a,(#4e09) 2ab2 010403 ld bc,#0304 2ab5 21fc43 ld hl,#43fc ; screen pos for current score 2ab8 a7 and a 2ab9 2803 jr z,#2abe ; (3) 2abb 21e943 ld hl,#43e9 ; screen pos for high score ;; draw the score to the screen? 2abe 1a ld a,(de) 2abf 0f rrca 2ac0 0f rrca 2ac1 0f rrca 2ac2 0f rrca 2ac3 cdce2a call #2ace 2ac6 1a ld a,(de) 2ac7 cdce2a call #2ace 2aca 1b dec de 2acb 10f1 djnz #2abe ; (-15) 2acd c9 ret 2ace e60f and #0f 2ad0 2804 jr z,#2ad6 ; (4) 2ad2 0e00 ld c,#00 2ad4 1807 jr #2add ; (7) 2ad6 79 ld a,c 2ad7 a7 and a 2ad8 2803 jr z,#2add ; (3) 2ada 3e40 ld a,#40 2adc 0d dec c 2add 77 ld (hl),a 2ade 2b dec hl 2adf c9 ret ;; something with the player 1 score 2ae0 0600 ld b,#00 2ae2 cd5e2c call #2c5e ; print HIGH SCORE 2ae5 af xor a 2ae6 21804e ld hl,#4e80 2ae9 0608 ld b,#08 2aeb cf rst #8 2aec 010403 ld bc,#0304 2aef 11824e ld de,#4e82 ; current score 2af2 21fc43 ld hl,#43fc ; screen pos for current score 2af5 cdbe2a call #2abe 2af8 010403 ld bc,#0304 2afb 11864e ld de,#4e86 ; high score 2afe 21e943 ld hl,#43e9 ; screen pos for high score 2b01 3a704e ld a,(#4e70) 2b04 a7 and a 2b05 20b7 jr nz,#2abe ; (-73) 2b07 0e06 ld c,#06 2b09 18b3 jr #2abe ; (-77) 2b0b 3a094e ld a,(#4e09) 2b0e 21804e ld hl,#4e80 2b11 a7 and a 2b12 c8 ret z 2b13 21844e ld hl,#4e84 2b16 c9 ret ;; score table 2b17 0010 ; dot 2b19 0050 ; pellet 2b1b 0200 ; ghost 1 2b1d 0400 ; ghost 2 2b1f 0800 ; ghost 3 2b21 1600 ; ghost 4 2b23 0100 ; fruit 2b25 0200 ; fruit 2b27 0500 ; fruit 2b29 0700 ; fruit 2b2b 1000 ; fruit 2b2d 2000 ; fruit 2b2f 5000 ; fruit 2b31 5000 ; fruit 2b34 6b ld l,e 2b35 62 ld h,d 2b36 1b dec de 2b37 cb46 bit 0,(hl) 2b39 c0 ret nz 2b3a cbc6 set 0,(hl) 2b3c 219c4e ld hl,#4e9c 2b3f cbc6 set 0,(hl) 2b41 21144e ld hl,#4e14 ; number of lives left 2b44 34 inc (hl) ; inc it 2b45 21154e ld hl,#4e15 ; number of lives on the screen 2b48 34 inc (hl) ; inc int 2b49 46 ld b,(hl) ; number of lives on the screen 2b4a 211a40 ld hl,#401a ; screen location 2b4d 0e05 ld c,#05 2b4f 78 ld a,b 2b50 a7 and a 2b51 280e jr z,#2b61 ; (14) 2b53 fe06 cp #06 2b55 300a jr nc,#2b61 ; (10) ; draw the pacs on the screen (or another 4 character string) 2b57 3e20 ld a,#20 2b59 cd8f2b call #2b8f 2b5c 2b dec hl 2b5d 2b dec hl 2b5e 0d dec c 2b5f 10f6 djnz #2b57 ; (-10) ;; perhaps display the number of lives left on the screen? 2b61 0d dec c 2b62 f8 ret m 2b63 cd7e2b call #2b7e 2b66 2b dec hl 2b67 2b dec hl 2b68 18f7 jr #2b61 ; (-9) 2b6a 3a004e ld a,(#4e00) 2b6d fe01 cp #01 2b6f c8 ret z 2b70 cdcd2b call #2bcd 2b73 12 ld (de),a 2b74 44 ld b,h 2b75 09 add hl,bc 2b76 0a ld a,(bc) 2b77 02 ld (bc),a 2b78 21154e ld hl,#4e15 ; number of lives to display 2b7b 46 ld b,(hl) 2b7c 18cc jr #2b4a ; (-52) 2b7e 3e40 ld a,#40 2b80 e5 push hl 2b81 d5 push de 2b82 77 ld (hl),a 2b83 23 inc hl 2b84 77 ld (hl),a 2b85 111f00 ld de,#001f 2b88 19 add hl,de 2b89 77 ld (hl),a 2b8a 23 inc hl 2b8b 77 ld (hl),a 2b8c d1 pop de 2b8d e1 pop hl 2b8e c9 ret 2b8f e5 push hl 2b90 d5 push de 2b91 111f00 ld de,#001f 2b94 77 ld (hl),a 2b95 3c inc a 2b96 23 inc hl 2b97 77 ld (hl),a 2b98 3c inc a 2b99 19 add hl,de 2b9a 77 ld (hl),a 2b9b 3c inc a 2b9c 23 inc hl 2b9d 77 ld (hl),a 2b9e d1 pop de 2b9f e1 pop hl 2ba0 c9 ret ;; display number of credits 2ba1 3a6e4e ld a,(#4e6e) ; number of credits in ram 2ba4 feff cp #ff ; set for free play? 2ba6 2005 jr nz,#2bad ; (5) no? then jump 2ba8 0602 ld b,#02 2baa c35e2c jp #2c5e ; print FREE PLAY 2bad 0601 ld b,#01 2baf cd5e2c call #2c5e ; print CREDIT 2bb2 3a6e4e ld a,(#4e6e) ; number of credits in ram 2bb5 e6f0 and #f0 ; bigger than 9? 2bb7 2809 jr z,#2bc2 ; (9) yes, only inc 1 position 2bb9 0f rrca 2bba 0f rrca 2bbb 0f rrca ; increment tens 2bbc 0f rrca 2bbd c630 add a,#30 2bbf 323440 ld (#4034),a ; put number of credits on screen 2bc2 3a6e4e ld a,(#4e6e) ; number of credits in ram 2bc5 e60f and #0f 2bc7 c630 add a,#30 2bc9 323340 ld (#4033),a ; put number of credits on screen 2bcc c9 ret 2bcd e1 pop hl 2bce 5e ld e,(hl) 2bcf 23 inc hl 2bd0 56 ld d,(hl) 2bd1 23 inc hl 2bd2 4e ld c,(hl) 2bd3 23 inc hl 2bd4 46 ld b,(hl) 2bd5 23 inc hl 2bd6 7e ld a,(hl) 2bd7 23 inc hl 2bd8 e5 push hl 2bd9 eb ex de,hl 2bda 112000 ld de,#0020 2bdd e5 push hl 2bde c5 push bc 2bdf 71 ld (hl),c 2be0 23 inc hl 2be1 10fc djnz #2bdf ; (-4) 2be3 c1 pop bc 2be4 e1 pop hl 2be5 19 add hl,de 2be6 3d dec a 2be7 20f4 jr nz,#2bdd ; (-12) 2be9 c9 ret 2bea 3a004e ld a,(#4e00) 2bed fe01 cp #01 2bef c8 ret z ;; new board, increment? 2bf0 3a134e ld a,(#4e13) ; current board level 2bf3 3c inc a ; increment it 2bf4 c39387 jp #8793 ; pac compares to 8 here... do 2bf7 2e2c ld l,#2c 2bf9 11083b ld de,#3b08 2bfc 47 ld b,a 2bfd 0e07 ld c,#07 2bff 210440 ld hl,#4004 2c02 1a ld a,(de) 2c03 cd8f2b call #2b8f 2c06 3e04 ld a,#04 2c08 84 add a,h 2c09 67 ld h,a 2c0a 13 inc de 2c0b 1a ld a,(de) 2c0c cd802b call #2b80 2c0f 3efc ld a,#fc 2c11 84 add a,h 2c12 67 ld h,a 2c13 13 inc de 2c14 23 inc hl 2c15 23 inc hl 2c16 0d dec c 2c17 10e9 djnz #2c02 ; (-23) 2c19 0d dec c 2c1a f8 ret m 2c1b cd7e2b call #2b7e 2c1e 3e04 ld a,#04 2c20 84 add a,h 2c21 67 ld h,a 2c22 af xor a 2c23 cd802b call #2b80 2c26 3efc ld a,#fc 2c28 84 add a,h 2c29 67 ld h,a 2c2a 23 inc hl 2c2b 23 inc hl 2c2c 18eb jr #2c19 ; (-21) 2c2e fe13 cp #13 2c30 3802 jr c,#2c34 ; (2) 2c32 3e13 ld a,#13 2c34 d607 sub #07 2c36 4f ld c,a 2c37 0600 ld b,#00 2c39 21083b ld hl,#3b08 2c3c 09 add hl,bc 2c3d 09 add hl,bc 2c3e eb ex de,hl 2c3f 0607 ld b,#07 2c41 c3fd2b jp #2bfd 2c44 47 ld b,a 2c45 e60f and #0f 2c47 c600 add a,#00 2c49 27 daa 2c4a 4f ld c,a 2c4b 78 ld a,b 2c4c e6f0 and #f0 2c4e 280b jr z,#2c5b ; (11) 2c50 0f rrca 2c51 0f rrca 2c52 0f rrca 2c53 0f rrca 2c54 47 ld b,a 2c55 af xor a 2c56 c616 add a,#16 2c58 27 daa 2c59 10fb djnz #2c56 ; (-5) 2c5b 81 add a,c 2c5c 27 daa 2c5d c9 ret ;; Appears to draw messages from a table with ;; coordinates and message data ;; b=message # in table 2c5e 21a536 ld hl,#36a5 ; 36a5 is the text string lookup table 2c61 df rst #18 ; (hl+2*b) -> hl 2c62 5e ld e,(hl) 2c63 23 inc hl 2c64 56 ld d,(hl) 2c65 dd210044 ld ix,#4400 ; start of color RAM 2c69 dd19 add ix,de ; calculate start pos in CRAM 2c6b dde5 push ix ; 4400 + (hl) -> stack 2c6d 1100fc ld de,#fc00 2c70 dd19 add ix,de ; calc start pos in VRAM 2c72 11ffff ld de,#ffff ; offset for normal text 2c75 cb7e bit 7,(hl) 2c77 2003 jr nz,#2c7c ; (3) 2c79 11e0ff ld de,#ffe0 ; offset for top + bot 2 lines 2c7c 23 inc hl 2c7d 78 ld a,b ; b -> a 2c7e 010000 ld bc,#0000 ; 0 -> b,c 2c81 87 add a,a ; 2*a -> a 2c82 3828 jr c,#2cac ; special draw for entries 80+ 2c84 7e ld a,(hl) ; read next char 2c85 fe2f cp #2f ; #2f is end of text 2c87 2809 jr z,#2c92 ; done with VRAM 2c89 dd7700 ld (ix+#00),a ; write char to screen 2c8c 23 inc hl ; next char 2c8d dd19 add ix,de ; calc next VRAM pos 2c8f 04 inc b ; inc char count 2c90 18f2 jr #2c84 ; loop 2c92 23 inc hl 2c93 dde1 pop ix ; get CRAM start pos 2c95 7e ld a,(hl) ; get color 2c96 a7 and a 2c97 faa42c jp m,#2ca4 ; jump if > #80 2c9a 7e ld a,(hl) ; get color 2c9b dd7700 ld (ix+#00),a ; drop in CRAM 2c9e 23 inc hl ; next color 2c9f dd19 add ix,de ; calc next CRAM pos 2ca1 10f7 djnz #2c9a ; loop until b=0 2ca3 c9 ret ;; same as above, but all the same color 2ca4 dd7700 ld (ix+#00),a ; drop in CRAM 2ca7 dd19 add ix,de ; calc next CRAM pos 2ca9 10f9 djnz #2ca4 ; loop until b=0 2cab c9 ret ;; message # > 80 (erase prev message?) use 2nd color code 2cac 7e ld a,(hl) ; read next char 2cad fe2f cp #2f 2caf 280a jr z,#2cbb ; done with vram 2cb1 dd360040 ld (ix+#00),#40 ; write 40 to vram 2cb5 23 inc hl ; next char 2cb6 dd19 add ix,de ; next screen pos 2cb8 04 inc b ; inc char count 2cb9 18f1 jr #2cac ; loop 2cbb 23 inc hl ; next char 2cbc 04 inc b ; inc char count 2cbd edb1 cpir ; loop until [hl] = 2f 2cbf 18d2 jr #2c93 ; do CRAM ;; 2cc1 c39797 jp #9797 2cc4 dd21cc4e ld ix,#4ecc 2cc8 fd218c4e ld iy,#4e8c 2ccc cd442d call #2d44 2ccf 47 ld b,a 2cd0 3acc4e ld a,(#4ecc) 2cd3 a7 and a 2cd4 2804 jr z,#2cda ; (4) 2cd6 78 ld a,b 2cd7 32914e ld (#4e91),a 2cda 217d96 ld hl,#967d 2cdd dd21dc4e ld ix,#4edc 2ce1 fd21924e ld iy,#4e92 2ce5 cd442d call #2d44 2ce8 47 ld b,a 2ce9 3adc4e ld a,(#4edc) 2cec a7 and a 2ced 2804 jr z,#2cf3 ; (4) 2cef 78 ld a,b 2cf0 32964e ld (#4e96),a 2cf3 218d96 ld hl,#968d 2cf6 dd21ec4e ld ix,#4eec 2cfa fd21974e ld iy,#4e97 2cfe cd442d call #2d44 2d01 47 ld b,a 2d02 3aec4e ld a,(#4eec) 2d05 a7 and a 2d06 c8 ret z 2d07 78 ld a,b 2d08 329b4e ld (#4e9b),a 2d0b c9 ret 2d0c 21303b ld hl,#3b30 2d0f dd219c4e ld ix,#4e9c 2d13 fd218c4e ld iy,#4e8c 2d17 cdee2d call #2dee 2d1a 32914e ld (#4e91),a 2d1d 21403b ld hl,#3b40 2d20 dd21ac4e ld ix,#4eac 2d24 fd21924e ld iy,#4e92 2d28 cdee2d call #2dee 2d2b 32964e ld (#4e96),a 2d2e 21803b ld hl,#3b80 2d31 dd21bc4e ld ix,#4ebc 2d35 fd21974e ld iy,#4e97 2d39 cdee2d call #2dee 2d3c 329b4e ld (#4e9b),a 2d3f af xor a 2d40 32904e ld (#4e90),a 2d43 c9 ret 2d44 dd7e00 ld a,(ix+#00) 2d47 a7 and a 2d48 caf42d jp z,#2df4 2d4b 4f ld c,a 2d4c 0608 ld b,#08 2d4e 1e80 ld e,#80 2d50 7b ld a,e 2d51 a1 and c 2d52 2005 jr nz,#2d59 ; (5) 2d54 cb3b srl e 2d56 10f8 djnz #2d50 ; (-8) 2d58 c9 ret 2d59 dd7e02 ld a,(ix+#02) 2d5c a3 and e 2d5d 2007 jr nz,#2d66 ; (7) 2d5f dd7302 ld (ix+#02),e 2d62 c34e36 jp #364e 2d65 0c inc c 2d66 dd350c dec (ix+#0c) 2d69 c2d72d jp nz,#2dd7 2d6c dd6e06 ld l,(ix+#06) 2d6f dd6607 ld h,(ix+#07) 2d72 7e ld a,(hl) 2d73 23 inc hl 2d74 dd7506 ld (ix+#06),l 2d77 dd7407 ld (ix+#07),h 2d7a fef0 cp #f0 2d7c 3827 jr c,#2da5 ; (39) 2d7e 216c2d ld hl,#2d6c 2d81 e5 push hl 2d82 e60f and #0f 2d84 e7 rst #20 2d85 55 ld d,l 2d86 2f cpl 2d87 65 ld h,l 2d88 2f cpl 2d89 77 ld (hl),a 2d8a 2f cpl 2d8b 89 adc a,c 2d8c 2f cpl 2d8d 9b sbc a,e 2d8e 2f cpl 2d8f 0c inc c 2d90 00 nop 2d91 0c inc c 2d92 00 nop 2d93 0c inc c 2d94 00 nop 2d95 0c inc c 2d96 00 nop 2d97 0c inc c 2d98 00 nop 2d99 0c inc c 2d9a 00 nop 2d9b 0c inc c 2d9c 00 nop 2d9d 0c inc c 2d9e 00 nop 2d9f 0c inc c 2da0 00 nop 2da1 0c inc c 2da2 00 nop 2da3 ad xor l 2da4 2f cpl 2da5 47 ld b,a 2da6 e61f and #1f 2da8 2803 jr z,#2dad ; (3) 2daa dd700d ld (ix+#0d),b 2dad dd4e09 ld c,(ix+#09) 2db0 dd7e0b ld a,(ix+#0b) 2db3 e608 and #08 2db5 2802 jr z,#2db9 ; (2) 2db7 0e00 ld c,#00 2db9 dd710f ld (ix+#0f),c 2dbc 78 ld a,b 2dbd 07 rlca 2dbe 07 rlca 2dbf 07 rlca 2dc0 e607 and #07 2dc2 21b03b ld hl,#3bb0 2dc5 d7 rst #10 2dc6 dd770c ld (ix+#0c),a 2dc9 78 ld a,b 2dca e61f and #1f 2dcc 2809 jr z,#2dd7 ; (9) 2dce e60f and #0f 2dd0 21b83b ld hl,#3bb8 2dd3 d7 rst #10 2dd4 dd770e ld (ix+#0e),a 2dd7 dd6e0e ld l,(ix+#0e) 2dda 2600 ld h,#00 2ddc dd7e0d ld a,(ix+#0d) 2ddf e610 and #10 2de1 2802 jr z,#2de5 ; (2) 2de3 3e01 ld a,#01 2de5 dd8604 add a,(ix+#04) 2de8 cae82e jp z,#2ee8 2deb c3e42e jp #2ee4 2dee dd7e00 ld a,(ix+#00) 2df1 a7 and a 2df2 2027 jr nz,#2e1b ; (39) 2df4 dd7e02 ld a,(ix+#02) 2df7 a7 and a 2df8 c8 ret z 2df9 dd360200 ld (ix+#02),#00 ; this is where the score is zeroed? 2dfd dd360d00 ld (ix+#0d),#00 2e01 dd360e00 ld (ix+#0e),#00 2e05 dd360f00 ld (ix+#0f),#00 2e09 fd360000 ld (iy+#00),#00 2e0d fd360100 ld (iy+#01),#00 2e11 fd360200 ld (iy+#02),#00 2e15 fd360300 ld (iy+#03),#00 2e19 af xor a 2e1a c9 ret 2e1b 4f ld c,a 2e1c 0608 ld b,#08 2e1e 1e80 ld e,#80 2e20 7b ld a,e 2e21 a1 and c 2e22 2005 jr nz,#2e29 ; (5) 2e24 cb3b srl e 2e26 10f8 djnz #2e20 ; (-8) 2e28 c9 ret 2e29 dd7e02 ld a,(ix+#02) 2e2c a3 and e 2e2d 203f jr nz,#2e6e ; (63) 2e2f dd7302 ld (ix+#02),e 2e32 05 dec b 2e33 78 ld a,b 2e34 07 rlca 2e35 07 rlca 2e36 07 rlca 2e37 4f ld c,a 2e38 0600 ld b,#00 2e3a e5 push hl 2e3b 09 add hl,bc 2e3c dde5 push ix 2e3e d1 pop de 2e3f 13 inc de 2e40 13 inc de 2e41 13 inc de 2e42 010800 ld bc,#0008 2e45 edb0 ldir 2e47 e1 pop hl 2e48 dd7e06 ld a,(ix+#06) 2e4b e67f and #7f 2e4d dd770c ld (ix+#0c),a 2e50 dd7e04 ld a,(ix+#04) 2e53 dd770e ld (ix+#0e),a 2e56 dd7e09 ld a,(ix+#09) 2e59 47 ld b,a 2e5a 0f rrca 2e5b 0f rrca 2e5c 0f rrca 2e5d 0f rrca 2e5e e60f and #0f 2e60 dd770b ld (ix+#0b),a 2e63 e608 and #08 2e65 2007 jr nz,#2e6e ; (7) 2e67 dd700f ld (ix+#0f),b 2e6a dd360d00 ld (ix+#0d),#00 2e6e dd350c dec (ix+#0c) 2e71 205a jr nz,#2ecd ; (90) 2e73 dd7e08 ld a,(ix+#08) 2e76 a7 and a 2e77 2810 jr z,#2e89 ; (16) 2e79 dd3508 dec (ix+#08) 2e7c 200b jr nz,#2e89 ; (11) 2e7e 7b ld a,e 2e7f 2f cpl 2e80 dda600 and (ix+#00) 2e83 dd7700 ld (ix+#00),a 2e86 c3ee2d jp #2dee 2e89 dd7e06 ld a,(ix+#06) 2e8c e67f and #7f 2e8e dd770c ld (ix+#0c),a 2e91 ddcb067e bit 7,(ix+#06) 2e95 2816 jr z,#2ead ; (22) 2e97 dd7e05 ld a,(ix+#05) 2e9a ed44 neg 2e9c dd7705 ld (ix+#05),a 2e9f ddcb0d46 bit 0,(ix+#0d) 2ea3 ddcb0dc6 set 0,(ix+#0d) 2ea7 2824 jr z,#2ecd ; (36) 2ea9 ddcb0d86 res 0,(ix+#0d) 2ead dd7e04 ld a,(ix+#04) 2eb0 dd8607 add a,(ix+#07) 2eb3 dd7704 ld (ix+#04),a 2eb6 dd770e ld (ix+#0e),a 2eb9 dd7e09 ld a,(ix+#09) 2ebc dd860a add a,(ix+#0a) 2ebf dd7709 ld (ix+#09),a 2ec2 47 ld b,a 2ec3 dd7e0b ld a,(ix+#0b) 2ec6 e608 and #08 2ec8 2003 jr nz,#2ecd ; (3) 2eca dd700f ld (ix+#0f),b 2ecd dd7e0e ld a,(ix+#0e) 2ed0 dd8605 add a,(ix+#05) 2ed3 dd770e ld (ix+#0e),a 2ed6 6f ld l,a 2ed7 2600 ld h,#00 2ed9 dd7e03 ld a,(ix+#03) 2edc e670 and #70 2ede 2808 jr z,#2ee8 ; (8) 2ee0 0f rrca 2ee1 0f rrca 2ee2 0f rrca 2ee3 0f rrca 2ee4 47 ld b,a 2ee5 29 add hl,hl 2ee6 10fd djnz #2ee5 ; (-3) 2ee8 fd7500 ld (iy+#00),l 2eeb 7d ld a,l 2eec 0f rrca 2eed 0f rrca 2eee 0f rrca 2eef 0f rrca 2ef0 fd7701 ld (iy+#01),a 2ef3 fd7402 ld (iy+#02),h 2ef6 7c ld a,h 2ef7 0f rrca 2ef8 0f rrca 2ef9 0f rrca 2efa 0f rrca 2efb fd7703 ld (iy+#03),a 2efe dd7e0b ld a,(ix+#0b) 2f01 e7 rst #20 2f02 222f26 ld (#262f),hl 2f05 2f cpl 2f06 2b dec hl 2f07 2f cpl 2f08 3c inc a 2f09 2f cpl 2f0a 43 ld b,e 2f0b 2f cpl 2f0c 4a ld c,d 2f0d 2f cpl 2f0e 4b ld c,e 2f0f 2f cpl 2f10 4c ld c,h 2f11 2f cpl 2f12 4d ld c,l 2f13 2f cpl 2f14 4e ld c,(hl) 2f15 2f cpl 2f16 4f ld c,a 2f17 2f cpl 2f18 50 ld d,b 2f19 2f cpl 2f1a 51 ld d,c 2f1b 2f cpl 2f1c 52 ld d,d 2f1d 2f cpl 2f1e 53 ld d,e 2f1f 2f cpl 2f20 54 ld d,h 2f21 2f cpl 2f22 dd7e0f ld a,(ix+#0f) 2f25 c9 ret 2f26 dd7e0f ld a,(ix+#0f) 2f29 1809 jr #2f34 ; (9) 2f2b 3a844c ld a,(#4c84) 2f2e e601 and #01 2f30 dd7e0f ld a,(ix+#0f) 2f33 c0 ret nz 2f34 e60f and #0f 2f36 c8 ret z 2f37 3d dec a 2f38 dd770f ld (ix+#0f),a 2f3b c9 ret 2f3c 3a844c ld a,(#4c84) 2f3f e603 and #03 2f41 18ed jr #2f30 ; (-19) 2f43 3a844c ld a,(#4c84) 2f46 e607 and #07 2f48 18e6 jr #2f30 ; (-26) 2f4a c9 ret 2f4b c9 ret 2f4c c9 ret 2f4d c9 ret 2f4e c9 ret 2f4f c9 ret 2f50 c9 ret 2f51 c9 ret 2f52 c9 ret 2f53 c9 ret 2f54 c9 ret 2f55 dd6e06 ld l,(ix+#06) 2f58 dd6607 ld h,(ix+#07) 2f5b 7e ld a,(hl) 2f5c dd7706 ld (ix+#06),a 2f5f 23 inc hl 2f60 7e ld a,(hl) 2f61 dd7707 ld (ix+#07),a 2f64 c9 ret 2f65 dd6e06 ld l,(ix+#06) 2f68 dd6607 ld h,(ix+#07) 2f6b 7e ld a,(hl) 2f6c 23 inc hl 2f6d dd7506 ld (ix+#06),l 2f70 dd7407 ld (ix+#07),h 2f73 dd7703 ld (ix+#03),a 2f76 c9 ret 2f77 dd6e06 ld l,(ix+#06) 2f7a dd6607 ld h,(ix+#07) 2f7d 7e ld a,(hl) 2f7e 23 inc hl 2f7f dd7506 ld (ix+#06),l 2f82 dd7407 ld (ix+#07),h 2f85 dd7704 ld (ix+#04),a 2f88 c9 ret 2f89 dd6e06 ld l,(ix+#06) 2f8c dd6607 ld h,(ix+#07) 2f8f 7e ld a,(hl) 2f90 23 inc hl 2f91 dd7506 ld (ix+#06),l 2f94 dd7407 ld (ix+#07),h 2f97 dd7709 ld (ix+#09),a 2f9a c9 ret 2f9b dd6e06 ld l,(ix+#06) 2f9e dd6607 ld h,(ix+#07) 2fa1 7e ld a,(hl) 2fa2 23 inc hl 2fa3 dd7506 ld (ix+#06),l 2fa6 dd7407 ld (ix+#07),h 2fa9 dd770b ld (ix+#0b),a 2fac c9 ret 2fad dd7e02 ld a,(ix+#02) 2fb0 2f cpl 2fb1 dda600 and (ix+#00) 2fb4 dd7700 ld (ix+#00),a 2fb7 c3f42d jp #2df4 2fba 00 nop 2fbb 00 nop 2fbc 00 nop 2fbd 00 nop 2fbe 00 nop 2fbf 00 nop 2fc0 00 nop 2fc1 00 nop 2fc2 00 nop 2fc3 00 nop 2fc4 00 nop 2fc5 00 nop 2fc6 00 nop 2fc7 00 nop 2fc8 00 nop 2fc9 00 nop 2fca 00 nop 2fcb 00 nop 2fcc 00 nop 2fcd 00 nop 2fce 00 nop 2fcf 00 nop 2fd0 00 nop 2fd1 00 nop 2fd2 00 nop 2fd3 00 nop 2fd4 00 nop 2fd5 00 nop 2fd6 00 nop 2fd7 00 nop 2fd8 00 nop 2fd9 00 nop 2fda 00 nop 2fdb 00 nop 2fdc 00 nop 2fdd 00 nop 2fde 00 nop 2fdf 00 nop 2fe0 00 nop 2fe1 00 nop 2fe2 00 nop 2fe3 00 nop 2fe4 00 nop 2fe5 00 nop 2fe6 00 nop 2fe7 00 nop 2fe8 00 nop 2fe9 00 nop 2fea 00 nop 2feb 00 nop 2fec 00 nop 2fed 00 nop 2fee 00 nop 2fef 00 nop 2ff0 00 nop 2ff1 00 nop 2ff2 00 nop 2ff3 00 nop 2ff4 00 nop 2ff5 00 nop 2ff6 00 nop 2ff7 00 nop 2ff8 00 nop 2ff9 00 nop 2ffa 00 nop 2ffb 00 nop 2ffc 00 nop 2ffd 00 nop 2ffe 83 add a,e 2fff 4c ld c,h ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; 3000 - 3fff ;; this rom is overlayed from U7 on the daughterboard ;; rst 38 continuation ;; the rom checksum routine (for initalization) 3000 210000 ld hl,#0000 3003 010010 ld bc,#1000 3006 32c050 ld (#50c0),a ; kick watchdog 3009 79 ld a,c ; a=0 300a 86 add a,(hl) 300b 4f ld c,a 300c 7d ld a,l 300d c602 add a,#02 300f 6f ld l,a 3010 fe02 cp #02 3012 d20930 jp nc,#3009 3015 24 inc h 3016 10ee djnz #3006 ; (-18) 3018 79 ld a,c 3019 a7 and a 301a 00 nop ;; this is a hack to disregard bad csums 301b 00 nop ;; this is a hack to disregard bad csums 301c 320750 ld (#5007),a ; clear coin 301f 7c ld a,h 3020 fe30 cp #30 3022 c20330 jp nz,#3003 ; continue for other roms 3025 2600 ld h,#00 3027 2c inc l 3028 7d ld a,l 3029 fe02 cp #02 302b da0330 jp c,#3003 302e c34230 jp #3042 ;; bad rom checksum 3031 25 dec h 3032 7c ld a,h 3033 e6f0 and #f0 3035 320750 ld (#5007),a ; clear coin 3038 0f rrca 3039 0f rrca 303a 0f rrca 303b 0f rrca 303c 5f ld e,a ; failed rom -> e 303d 0600 ld b,#00 303f c3bd30 jp #30bd ;; RAM TEST (4c00) 3042 315431 ld sp,#3154 3045 06ff ld b,#ff 3047 e1 pop hl ; 4c00 (first time) 3048 d1 pop de ; 040f (first time) 3049 48 ld c,b ; 0xff -> c ;; write stuff to ram 304a 32c050 ld (#50c0),a ; kick dog 304d 79 ld a,c ; 0xff -> a 304e a3 and e ; e -> a 304f 77 ld (hl),a 3050 c633 add a,#33 3052 4f ld c,a 3053 2c inc l 3054 7d ld a,l 3055 e60f and #0f 3057 c24d30 jp nz,#304d 305a 79 ld a,c 305b 87 add a,a 305c 87 add a,a 305d 81 add a,c 305e c631 add a,#31 3060 4f ld c,a 3061 7d ld a,l 3062 a7 and a 3063 c24d30 jp nz,#304d 3066 24 inc h 3067 15 dec d 3068 c24a30 jp nz,#304a 306b 3b dec sp 306c 3b dec sp 306d 3b dec sp 306e 3b dec sp 306f e1 pop hl 3070 d1 pop de ; 4c00 3071 48 ld c,b ; 040f ;; check ram again 3072 32c050 ld (#50c0),a ; kick the dog 3075 79 ld a,c 3076 a3 and e 3077 4f ld c,a 3078 7e ld a,(hl) 3079 a3 and e 307a b9 cp c 307b c2b530 jp nz,#30b5 ; ram test failed 307e c633 add a,#33 3080 4f ld c,a 3081 2c inc l 3082 7d ld a,l 3083 e60f and #0f 3085 c27530 jp nz,#3075 3088 79 ld a,c 3089 87 add a,a 308a 87 add a,a 308b 81 add a,c 308c c631 add a,#31 308e 4f ld c,a 308f 7d ld a,l 3090 a7 and a 3091 c27530 jp nz,#3075 3094 24 inc h 3095 15 dec d 3096 c27230 jp nz,#3072 3099 3b dec sp 309a 3b dec sp 309b 3b dec sp 309c 3b dec sp 309d 78 ld a,b 309e d610 sub #10 30a0 47 ld b,a 30a1 10a4 djnz #3047 ; (-92) 30a3 f1 pop af ; 4c00 30a4 d1 pop de 30a5 fe44 cp #44 30a7 c24530 jp nz,#3045 ; check if 0x44xx done 30aa 7b ld a,e 30ab eef0 xor #f0 30ad c24530 jp nz,#3045 ; check if totally done 30b0 0601 ld b,#01 30b2 c3bd30 jp #30bd ;; display bad ram 30b5 7b ld a,e 30b6 e601 and #01 30b8 ee01 xor #01 30ba 5f ld e,a 30bb 0600 ld b,#00 ;; display bad rom 30bd 31c04f ld sp,#4fc0 30c0 d9 exx ; swap register pairs ;; clear all program ram 30c1 21004c ld hl,#4c00 30c4 0604 ld b,#04 30c6 32c050 ld (#50c0),a ; kick dog 30c9 3600 ld (hl),#00 30cb 2c inc l 30cc 20fb jr nz,#30c9 ; (-5) 30ce 24 inc h 30cf 10f5 djnz #30c6 ; (-11) ;; set all video ram to 0x40 30d1 210040 ld hl,#4000 30d4 0604 ld b,#04 30d6 32c050 ld (#50c0),a ; kick dog 30d9 3e40 ld a,#40 30db 77 ld (hl),a 30dc 2c inc l 30dd 20fc jr nz,#30db ; (-4) 30df 24 inc h 30e0 10f4 djnz #30d6 ; (-12) ;; set all color ram to 0x0f 30e2 0604 ld b,#04 30e4 32c050 ld (#50c0),a 30e7 3e0f ld a,#0f 30e9 77 ld (hl),a 30ea 2c inc l 30eb 20fc jr nz,#30e9 ; (-4) 30ed 24 inc h 30ee 10f4 djnz #30e4 ; (-12) 30f0 d9 exx ; reswap register pairs 30f1 1008 djnz #30fb ; (8) b=1 -> no errors 30f3 0623 ld b,#23 30f5 cd5e2c call #2c5e ; print MEMORY OK 30f8 c37431 jp #3174 ; run code ???? ; change $30fb to c37431 to skip the checksum test 30fb 7b ld a,e ; bad rom # => a 30fc c630 add a,#30 30fe 328441 ld (#4184),a ; write to screen 3101 c5 push bc ; ff0f 3102 e5 push hl ; 4c00 3103 0624 ld b,#24 3105 cd5e2c call #2c5e ; print BAD ROM 3108 e1 pop hl 3109 7c ld a,h 310a fe40 cp #40 310c 2a6c31 ld hl,(#316c) 310f 3811 jr c,#3122 ; (17) 3111 fe4c cp #4c 3113 2a6e31 ld hl,(#316e) 3116 300a jr nc,#3122 ; (10) 3118 fe44 cp #44 311a 2a7031 ld hl,(#3170) 311d 3803 jr c,#3122 ; (3) 311f 2a7231 ld hl,(#3172) 3122 7d ld a,l 3123 320442 ld (#4204),a 3126 7c ld a,h 3127 326442 ld (#4264),a 312a 3a0050 ld a,(#5000) 312d 47 ld b,a 312e 3a4050 ld a,(#5040) ;; check in1 3131 b0 or b 3132 e601 and #01 3134 2011 jr nz,#3147 ; (17) 3136 c1 pop bc 3137 79 ld a,c 3138 e60f and #0f 313a 47 ld b,a 313b 79 ld a,c 313c e6f0 and #f0 313e 0f rrca 313f 0f rrca 3140 0f rrca 3141 0f rrca 3142 4f ld c,a 3143 ed438541 ld (#4185),bc 3147 32c050 ld (#50c0),a 314a 3a4050 ld a,(#5040) ;; check in1 314d e610 and #10 314f 28f6 jr z,#3147 ; (-10) 3151 c30b23 jp #230b ; stack stuff used in ram test (?) 3154 00 nop 3155 4c ld c,h 3156 0f rrca 3157 04 inc b 3158 00 nop 3159 4c ld c,h 315a f0 ret p 315b 04 inc b 315c 00 nop 315d 40 ld b,b 315e 0f rrca 315f 04 inc b 3160 00 nop 3161 40 ld b,b 3162 f0 ret p 3163 04 inc b 3164 00 nop 3165 44 ld b,h 3166 0f rrca 3167 04 inc b 3168 00 nop 3169 44 ld b,h 316a f0 ret p 316b 04 inc b 316c 4f ld c,a 316d 40 ld b,b 316e 41 ld b,c 316f 57 ld d,a 3170 41 ld b,c 3171 56 ld d,(hl) 3172 41 ld b,c 3173 43 ld b,e ;; start the game ???? 3174 210650 ld hl,#5006 3177 3e01 ld a,#01 3179 77 ld (hl),a ; enable all 317a 2d dec l 317b 20fc jr nz,#3179 ; (-4) 317d af xor a ; 0x00->a 317e 320350 ld (#5003),a ; unflip screen 3181 d604 sub #04 ; 0xfc->a 3183 ed47 ld i,a ; set vector 3185 31c04f ld sp,#4fc0 3188 32c050 ld (#50c0),a ; kick the dog 318b af xor a ; 0x00->a 318c 32004e ld (#4e00),a 318f 3c inc a ; 0x01->a 3190 32014e ld (#4e01),a 3193 320050 ld (#5000),a ; enable interrupts 3196 fb ei ; enable interrupts ;; test mode sound checks ;; this gets called if the test switch is on at bootup 3197 3a0050 ld a,(#5000) 319a 2f cpl 319b 47 ld b,a 319c e6e0 and #e0 ; check coin/credit inputs 319e 2805 jr z,#31a5 ; (5) 31a0 3e02 ld a,#02 31a2 329c4e ld (#4e9c),a ; choose sound 2 31a5 3a4050 ld a,(#5040) ;; check in1 31a8 2f cpl 31a9 4f ld c,a 31aa e660 and #60 ; check p1/p2 start 31ac 2805 jr z,#31b3 ; (5) 31ae 3e01 ld a,#01 31b0 329c4e ld (#4e9c),a ; choose sound 1 31b3 78 ld a,b 31b4 b1 or c 31b5 e601 and #01 ; check up 31b7 2805 jr z,#31be ; (5) 31b9 3e08 ld a,#08 31bb 32bc4e ld (#4ebc),a ; choose sound 8 31be 78 ld a,b 31bf b1 or c 31c0 e602 and #02 ; check left 31c2 2805 jr z,#31c9 ; (5) 31c4 3e04 ld a,#04 31c6 32bc4e ld (#4ebc),a ; choose sound 4 31c9 78 ld a,b 31ca b1 or c 31cb e604 and #04 ; check right 31cd 2805 jr z,#31d4 ; (5) 31cf 3e10 ld a,#10 31d1 32bc4e ld (#4ebc),a ; choose sound 16 31d4 78 ld a,b 31d5 b1 or c 31d6 e608 and #08 ; check down 31d8 2805 jr z,#31df ; (5) 31da 3e20 ld a,#20 31dc 32bc4e ld (#4ebc),a ; choose sound 32 31df 3a8050 ld a,(#5080) ; read dips 31e2 e603 and #03 ; mask coin info 31e4 c625 add a,#25 31e6 47 ld b,a 31e7 cd5e2c call #2c5e ; print FREE PLAY 31ea 3a8050 ld a,(#5080) ;; read dips 31ed 0f rrca 31ee 0f rrca 31ef 0f rrca 31f0 0f rrca 31f1 e603 and #03 ; mask extras 31f3 fe03 cp #03 31f5 2008 jr nz,#31ff ; (8) 31f7 062a ld b,#2a 31f9 cd5e2c call #2c5e ; print BONUS NONE 31fc c31c32 jp #321c 31ff 07 rlca 3200 5f ld e,a 3201 d5 push de 3202 062b ld b,#2b 3204 cd5e2c call #2c5e ; print BONUS 3207 062e ld b,#2e 3209 cd5e2c call #2c5e ; print 000 320c d1 pop de 320d 1600 ld d,#00 320f 21f932 ld hl,#32f9 3212 19 add hl,de 3213 7e ld a,(hl) 3214 322a42 ld (#422a),a 3217 23 inc hl 3218 7e ld a,(hl) 3219 324a42 ld (#424a),a 321c 3a8050 ld a,(#5080) ;; check in0 321f 0f rrca 3220 0f rrca 3221 e603 and #03 3223 c631 add a,#31 3225 fe34 cp #34 3227 2001 jr nz,#322a ; (1) 3229 3c inc a 322a 32ac41 ld (#41ac),a 322d 0629 ld b,#29 322f cd5e2c call #2c5e ; print MS. PAC-MEN 3232 3a4050 ld a,(#5040) ;; check in1 3235 07 rlca 3236 e601 and #01 3238 c62c add a,#2c 323a 47 ld b,a 323b cd5e2c call #2c5e ; print TABLE 323e 3a4050 ld a,(#5040) ;; check in1 3241 e610 and #10 3243 ca8831 jp z,#3188 3246 af xor a 3247 320050 ld (#5000),a 324a f3 di 324b 210750 ld hl,#5007 324e af xor a 324f 77 ld (hl),a 3250 2d dec l 3251 20fc jr nz,#324f ; (-4) 3253 31e23a ld sp,#3ae2 3256 0603 ld b,#03 3258 d9 exx 3259 e1 pop hl 325a d1 pop de 325b 32c050 ld (#50c0),a 325e c1 pop bc 325f 3e3c ld a,#3c 3261 77 ld (hl),a 3262 23 inc hl 3263 72 ld (hl),d 3264 23 inc hl 3265 10f8 djnz #325f ; (-8) 3267 3b dec sp 3268 3b dec sp 3269 c1 pop bc 326a 71 ld (hl),c 326b 23 inc hl 326c 3e3f ld a,#3f 326e 77 ld (hl),a 326f 23 inc hl 3270 10f8 djnz #326a ; (-8) 3272 3b dec sp 3273 3b dec sp 3274 1d dec e 3275 c25b32 jp nz,#325b 3278 f1 pop af 3279 d9 exx 327a 10dc djnz #3258 ; (-36) 327c 31c04f ld sp,#4fc0 327f 0608 ld b,#08 3281 cded32 call #32ed 3284 10fb djnz #3281 ; (-5) 3286 32c050 ld (#50c0),a ; kick the dog 3289 3a4050 ld a,(#5040) ;; check in1 328c e610 and #10 ; check test switch 328e 28f6 jr z,#3286 ; (-10) loop until test switch is off 3290 3a4050 ld a,(#5040) ;; check in1 3293 e660 and #60 3295 c24b23 jp nz,#234b 3298 0608 ld b,#08 329a cded32 call #32ed 329d 10fb djnz #329a ; (-5) 329f 3a4050 ld a,(#5040) ;; check in1 32a2 e610 and #10 32a4 c24b23 jp nz,#234b 32a7 1e01 ld e,#01 32a9 0604 ld b,#04 32ab 32c050 ld (#50c0),a 32ae cded32 call #32ed 32b1 3a0050 ld a,(#5000) 32b4 a3 and e 32b5 20f4 jr nz,#32ab ; (-12) 32b7 cded32 call #32ed 32ba 32c050 ld (#50c0),a 32bd 3a0050 ld a,(#5000) 32c0 eeff xor #ff 32c2 20f3 jr nz,#32b7 ; (-13) 32c4 10e5 djnz #32ab ; (-27) 32c6 cb03 rlc e 32c8 7b ld a,e 32c9 fe10 cp #10 32cb daa932 jp c,#32a9 32ce 210040 ld hl,#4000 32d1 0604 ld b,#04 32d3 3e40 ld a,#40 32d5 77 ld (hl),a 32d6 2c inc l 32d7 20fc jr nz,#32d5 ; (-4) 32d9 24 inc h 32da 10f7 djnz #32d3 ; (-9) 32dc cdf43a call #3af4 32df 32c050 ld (#50c0),a 32e2 3a4050 ld a,(#5040) ;; check in1 32e5 e610 and #10 32e7 cadf32 jp z,#32df 32ea c34b23 jp #234b 32ed 32c050 ld (#50c0),a 32f0 210028 ld hl,#2800 32f3 2b dec hl 32f4 7c ld a,h 32f5 b5 or l 32f6 20fb jr nz,#32f3 ; (-5) 32f8 c9 ret 32f9 3031 jr nc,#332c ; (49) ; data table? 32fb 35 dec (hl) 32fc 313032 ld sp,#3230 32ff 00 nop 3300 ff rst #38 3301 010000 ld bc,#0000 3304 01ff00 ld bc,#00ff 3307 00 nop 3308 ff rst #38 3309 010000 ld bc,#0000 330c 01ff00 ld bc,#00ff 330f 55 ld d,l 3310 2a552a ld hl,(#2a55) 3313 55 ld d,l 3314 55 ld d,l 3315 55 ld d,l 3316 55 ld d,l 3317 55 ld d,l 3318 2a552a ld hl,(#2a55) 331b 52 ld d,d 331c 4a ld c,d 331d a5 and l 331e 94 sub h 331f 25 dec h 3320 25 dec h 3321 25 dec h 3322 25 dec h 3323 222222 ld (#2222),hl 3326 220101 ld (#0101),hl 3329 010158 ld bc,#5801 332c 02 ld (bc),a 332d 08 ex af,af' 332e 07 rlca 332f 60 ld h,b 3330 09 add hl,bc 3331 100e djnz #3341 ; (14) 3333 68 ld l,b 3334 1070 djnz #33a6 ; (112) 3336 17 rla 3337 14 inc d 3338 19 add hl,de 3339 52 ld d,d 333a 4a ld c,d 333b a5 and l 333c 94 sub h 333d aa xor d 333e 2a5555 ld hl,(#5555) 3341 55 ld d,l 3342 2a552a ld hl,(#2a55) 3345 52 ld d,d 3346 4a ld c,d 3347 a5 and l 3348 94 sub h 3349 92 sub d 334a 24 inc h 334b 25 dec h 334c 49 ld c,c 334d 48 ld c,b 334e 24 inc h 334f 229101 ld (#0191),hl 3352 010101 ld bc,#0101 3355 00 nop 3356 00 nop 3357 00 nop 3358 00 nop 3359 00 nop 335a 00 nop 335b 00 nop 335c 00 nop 335d 00 nop 335e 00 nop 335f 00 nop 3360 00 nop 3361 00 nop 3362 00 nop 3363 55 ld d,l 3364 2a552a ld hl,(#2a55) 3367 55 ld d,l 3368 55 ld d,l 3369 55 ld d,l 336a 55 ld d,l 336b aa xor d 336c 2a5555 ld hl,(#5555) 336f 55 ld d,l 3370 2a552a ld hl,(#2a55) 3373 52 ld d,d 3374 4a ld c,d 3375 a5 and l 3376 94 sub h 3377 48 ld c,b 3378 24 inc h 3379 229121 ld (#2191),hl 337c 44 ld b,h 337d 44 ld b,h 337e 08 ex af,af' 337f 58 ld e,b 3380 02 ld (bc),a 3381 34 inc (hl) 3382 08 ex af,af' 3383 d8 ret c 3384 09 add hl,bc 3385 b4 or h 3386 0f rrca 3387 58 ld e,b 3388 110816 ld de,#1608 338b 34 inc (hl) 338c 17 rla ;; speed control table 338d 55 55 55 55 ;; $338d - 3390 = Pacman normal speed for Board 1 3391 d5 6a d5 6a ;; $3391 - 3394 = Pacman Blue speed for Board 1 3395 aa 6a 55 d5 ;; $3395 - 3398 = 2nd alternate speed for red ghost 3399 55 55 55 55 ;; $3399 - 339c = 1st alt. speed for red ghost 339d aa 2a 55 55 ;; $339d - 33a0 = Ghost normal speed for board 1 33a1 92 24 92 24 ;; $33a1 - 33a4 = Ghost blue speed for board 1 33a5 22 22 22 22 ;; $33a5 - 33a8 = Ghost tunnel speed for board 1 33a9 a4 01 54 06 ;; $33a9 - 33b6 = unknown 33ad f8 07 a8 0c ;; ( made changes to this section but noticed 33b1 d4 0d 84 12 ;; no difference in game play) 33b5 b0 13 33b7 d5 6a d5 6a ;; $33b7 - 33ba = Pacman normal speed for Boards 2-4 33bb d6 5a ad b5 ;; $33bb - 33be = Pacman blue speed for boards 2-4 33bf d6 5a ad b5 ;; $33bf - 33c6 = ?? (possible alt. speed for red ghost) 33c3 d5 6a d5 6a 33c7 aa 6a 55 d5 ;; $33c7 - 33ca = Ghost reg speed for boards 2-4 33cb 92 24 25 49 ;; $33cb - 33ce = Ghost blue speed for boards 2-4 33cf 48 ld c,b 33d0 24 inc h 33d1 2291a4 ld (#a491),hl 33d4 015406 ld bc,#0654 33d7 f8 ret m 33d8 07 rlca 33d9 a8 xor b 33da 0c inc c 33db d40dfe call nc,#fe0d 33de ff rst #38 33df ff rst #38 33e0 ff rst #38 33e1 6d ld l,l 33e2 6d ld l,l 33e3 6d ld l,l 33e4 6d ld l,l 33e5 6d ld l,l 33e6 6d ld l,l 33e7 6d ld l,l 33e8 6d ld l,l 33e9 b6 or (hl) 33ea 6d ld l,l 33eb 6d ld l,l 33ec db6d in a,(#6d) 33ee 6d ld l,l 33ef 6d ld l,l 33f0 6d ld l,l 33f1 d65a sub #5a 33f3 ad xor l 33f4 b5 or l 33f5 25 dec h 33f6 25 dec h 33f7 25 dec h 33f8 25 dec h 33f9 92 sub d 33fa 24 inc h 33fb 92 sub d 33fc 24 inc h 33fd 2c inc l 33fe 01dc05 ld bc,#05dc 3401 08 ex af,af' 3402 07 rlca 3403 b8 cp b 3404 0b dec bc 3405 e40cfe call po,#fe0c 3408 ff rst #38 3409 ff rst #38 340a ff rst #38 340b d5 push de 340c 6a ld l,d 340d d5 push de 340e 6a ld l,d 340f d5 push de 3410 6a ld l,d 3411 d5 push de 3412 6a ld l,d 3413 b6 or (hl) 3414 6d ld l,l 3415 6d ld l,l 3416 db6d in a,(#6d) 3418 6d ld l,l 3419 6d ld l,l 341a 6d ld l,l 341b d65a sub #5a 341d ad xor l 341e b5 or l 341f 48 ld c,b 3420 24 inc h 3421 229192 ld (#9291),hl 3424 24 inc h 3425 92 sub d 3426 24 inc h 3427 2c inc l 3428 01dc05 ld bc,#05dc 342b 08 ex af,af' 342c 07 rlca 342d b8 cp b 342e 0b dec bc 342f e40cfe call po,#fe0c 3432 ff rst #38 3433 ff rst #38 3434 ff rst #38 ;; Maze information... 0x3436 (it is for pac-man...) 3435 3a004f ld a,(#4f00) 3438 fe01 cp #01 343a ca9c34 jp z,#349c 343d ef rst #28 343e 1c inc e 343f 323e01 ld (#013e),a 3442 32ac42 ld (#42ac),a 3445 3e16 ld a,#16 3447 32ac46 ld (#46ac),a 344a 0e00 ld c,#00 344c c39c34 jp #349c 344f 3a004f ld a,(#4f00) 3452 fe01 cp #01 3454 ca9c34 jp z,#349c 3457 ef rst #28 3458 1c inc e 3459 17 rla 345a 3e02 ld a,#02 345c 32ac42 ld (#42ac),a 345f 3e16 ld a,#16 3461 32ac46 ld (#46ac),a 3464 0e0c ld c,#0c 3466 c39c34 jp #349c 3469 3a004f ld a,(#4f00) 346c fe01 cp #01 346e ca9c34 jp z,#349c 3471 ef rst #28 3472 1c inc e 3473 15 dec d 3474 3e03 ld a,#03 3476 32ac42 ld (#42ac),a 3479 3e16 ld a,#16 347b 32ac46 ld (#46ac),a 347e 0e18 ld c,#18 3480 c39c34 jp #349c 3483 0e24 ld c,#24 3485 c39c34 jp #349c 3488 0e30 ld c,#30 348a c39c34 jp #349c 348d 0e3c ld c,#3c 348f c39c34 jp #349c 3492 0e48 ld c,#48 3494 c39c34 jp #349c 3497 0e54 ld c,#54 3499 c39c34 jp #349c 349c 3a004f ld a,(#4f00) 349f a7 and a 34a0 cc1136 call z,#3611 34a3 0606 ld b,#06 34a5 dd210c4f ld ix,#4f0c 34a9 dd6e00 ld l,(ix+#00) 34ac dd6601 ld h,(ix+#01) 34af 7e ld a,(hl) 34b0 fef0 cp #f0 34b2 cade34 jp z,#34de 34b5 fef1 cp #f1 34b7 ca6b35 jp z,#356b 34ba fef2 cp #f2 34bc ca9735 jp z,#3597 34bf fef3 cp #f3 34c1 ca7735 jp z,#3577 34c4 fef5 cp #f5 34c6 ca0736 jp z,#3607 34c9 fef6 cp #f6 34cb caa435 jp z,#35a4 34ce fef7 cp #f7 34d0 caf335 jp z,#35f3 34d3 fef8 cp #f8 34d5 cafd35 jp z,#35fd 34d8 feff cp #ff 34da cacb35 jp z,#35cb 34dd 76 halt 34de e5 push hl 34df 3e01 ld a,#01 34e1 d7 rst #10 34e2 4f ld c,a 34e3 212e4f ld hl,#4f2e 34e6 df rst #18 34e7 79 ld a,c 34e8 84 add a,h 34e9 cd5635 call #3556 34ec 12 ld (de),a 34ed cd4136 call #3641 34f0 df rst #18 34f1 7c ld a,h 34f2 81 add a,c 34f3 12 ld (de),a 34f4 e1 pop hl 34f5 e5 push hl 34f6 3e02 ld a,#02 34f8 d7 rst #10 34f9 4f ld c,a 34fa 212e4f ld hl,#4f2e 34fd df rst #18 34fe 79 ld a,c 34ff 85 add a,l 3500 cd5635 call #3556 3503 1b dec de 3504 12 ld (de),a 3505 cd4136 call #3641 3508 df rst #18 3509 7d ld a,l 350a 81 add a,c 350b 1b dec de 350c 12 ld (de),a 350d 210f4f ld hl,#4f0f 3510 78 ld a,b 3511 d7 rst #10 3512 e5 push hl 3513 3c inc a 3514 4f ld c,a 3515 213e4f ld hl,#4f3e 3518 df rst #18 3519 79 ld a,c 351a cb2f sra a 351c d7 rst #10 351d feff cp #ff 351f c22635 jp nz,#3526 3522 0e00 ld c,#00 3524 18ef jr #3515 ; (-17) 3526 e1 pop hl 3527 71 ld (hl),c 3528 5f ld e,a 3529 e1 pop hl 352a 3e03 ld a,#03 352c d7 rst #10 352d 57 ld d,a 352e d5 push de 352f 214e4f ld hl,#4f4e 3532 df rst #18 3533 e1 pop hl 3534 eb ex de,hl 3535 72 ld (hl),d 3536 2b dec hl 3537 3a094e ld a,(#4e09) 353a 4f ld c,a 353b 3a724e ld a,(#4e72) 353e a1 and c 353f 2804 jr z,#3545 ; (4) 3541 3ec0 ld a,#c0 3543 ab xor e 3544 5f ld e,a 3545 73 ld (hl),e 3546 21174f ld hl,#4f17 3549 78 ld a,b 354a d7 rst #10 354b 3d dec a 354c 77 ld (hl),a 354d 110000 ld de,#0000 3550 2062 jr nz,#35b4 ; (98) 3552 1e04 ld e,#04 3554 185e jr #35b4 ; (94) 3556 4f ld c,a 3557 cb29 sra c 3559 cb29 sra c 355b cb29 sra c 355d cb29 sra c 355f a7 and a 3560 f26835 jp p,#3568 3563 f6f0 or #f0 3565 0c inc c 3566 1802 jr #356a ; (2) 3568 e60f and #0f 356a c9 ret 356b eb ex de,hl 356c cd4136 call #3641 356f eb ex de,hl 3570 d5 push de 3571 23 inc hl 3572 56 ld d,(hl) 3573 23 inc hl 3574 5e ld e,(hl) 3575 1813 jr #358a ; (19) 3577 eb ex de,hl 3578 210f4f ld hl,#4f0f 357b 78 ld a,b 357c d7 rst #10 357d 3600 ld (hl),#00 357f eb ex de,hl 3580 113e4f ld de,#4f3e 3583 d5 push de 3584 23 inc hl 3585 5e ld e,(hl) 3586 23 inc hl 3587 56 ld d,(hl) 3588 1800 jr #358a ; (0) 358a e1 pop hl 358b d5 push de 358c df rst #18 358d eb ex de,hl 358e d1 pop de 358f 72 ld (hl),d 3590 2b dec hl 3591 73 ld (hl),e 3592 110300 ld de,#0003 3595 181d jr #35b4 ; (29) 3597 23 inc hl 3598 4e ld c,(hl) 3599 21174f ld hl,#4f17 359c 78 ld a,b 359d d7 rst #10 359e 71 ld (hl),c 359f 110200 ld de,#0002 35a2 1810 jr #35b4 ; (16) 35a4 21174f ld hl,#4f17 35a7 78 ld a,b 35a8 d7 rst #10 35a9 3d dec a 35aa 77 ld (hl),a 35ab 110000 ld de,#0000 35ae 2004 jr nz,#35b4 ; (4) 35b0 1e01 ld e,#01 35b2 1800 jr #35b4 ; (0) ;; 35b5 overlay for pac-man 35b4 dd6e00 ld l,(ix+#00) 35b7 dd6601 ld h,(ix+#01) 35ba 19 add hl,de 35bb dd7500 ld (ix+#00),l 35be dd7401 ld (ix+#01),h 35c1 dd2b dec ix 35c3 dd2b dec ix 35c5 1001 djnz #35c8 ; (1) 35c7 c9 ret 35c8 c3a934 jp #34a9 35cb 211f4f ld hl,#4f1f 35ce 78 ld a,b 35cf d7 rst #10 35d0 3601 ld (hl),#01 35d2 21204f ld hl,#4f20 35d5 7e ld a,(hl) 35d6 23 inc hl 35d7 a6 and (hl) 35d8 23 inc hl 35d9 a6 and (hl) 35da 23 inc hl 35db a6 and (hl) 35dc 23 inc hl 35dd a6 and (hl) 35de 23 inc hl 35df a6 and (hl) 35e0 110000 ld de,#0000 35e3 28cf jr z,#35b4 ; (-49) 35e5 3a024e ld a,(#4e02) 35e8 a7 and a 35e9 ca9521 jp z,#2195 35ec af xor a 35ed 32004f ld (#4f00),a 35f0 c38e05 jp #058e 35f3 78 ld a,b 35f4 ef rst #28 35f5 1c inc e 35f6 3047 jr nc,#363f ; (71) 35f8 110100 ld de,#0001 35fb 18b7 jr #35b4 ; (-73) 35fd 3e40 ld a,#40 35ff 32ac42 ld (#42ac),a 3602 110100 ld de,#0001 3605 18ad jr #35b4 ; (-83) 3607 23 inc hl 3608 7e ld a,(hl) 3609 32bc4e ld (#4ebc),a 360c 110200 ld de,#0002 360f 18a3 jr #35b4 ; (-93) 3611 3a024e ld a,(#4e02) 3614 a7 and a 3615 2008 jr nz,#361f ; (8) 3617 3e02 ld a,#02 3619 32cc4e ld (#4ecc),a 361c 32dc4e ld (#4edc),a 361f 21f081 ld hl,#81f0 3622 0600 ld b,#00 3624 09 add hl,bc 3625 11024f ld de,#4f02 3628 010c00 ld bc,#000c 362b edb0 ldir 362d 3e01 ld a,#01 362f 32004f ld (#4f00),a 3632 32a44d ld (#4da4),a 3635 211f4f ld hl,#4f1f 3638 3e00 ld a,#00 363a 32a54d ld (#4da5),a 363d 0614 ld b,#14 363f cf rst #8 3640 c9 ret 3641 78 ld a,b 3642 fe06 cp #06 3644 2004 jr nz,#364a ; (4) 3646 21c64d ld hl,#4dc6 3649 c9 ret 364a 21fe4c ld hl,#4cfe 364d c9 ret 364e 05 dec b 364f c5 push bc 3650 78 ld a,b 3651 fe01 cp #01 3653 2804 jr z,#3659 ; (4) 3655 0600 ld b,#00 3657 1811 jr #366a ; (17) 3659 3a134e ld a,(#4e13) 365c 0601 ld b,#01 365e fe01 cp #01 3660 2808 jr z,#366a ; (8) 3662 0602 ld b,#02 3664 fe04 cp #04 3666 2802 jr z,#366a ; (2) 3668 0603 ld b,#03 366a df rst #18 366b c1 pop bc 366c c3722d jp #2d72 366f cb77 bit 6,a 3671 ca6620 jp z,#2066 3674 3e01 ld a,#01 3676 02 ld (bc),a 3677 c9 ret 3678 210000 ld hl,#0000 367b 22d24d ld (#4dd2),hl 367e c9 ret 367f 3a084d ld a,(#4d08) 3682 e60f and #0f 3684 cb3f srl a 3686 cb3f srl a 3688 2f cpl 3689 1e1c ld e,#1c 368b 83 add a,e 368c fe18 cp #18 368e 2002 jr nz,#3692 ; (2) 3690 3e36 ld a,#36 3692 320a4c ld (#4c0a),a 3695 c9 ret ;; garbage, leftover from patching pac-man rom. ;; this is the tail end of the pellet table. heh. 3696 03 inc bc 3697 04 inc b 3698 010201 ld bc,#0102 369b 010101 ld bc,#0101 369e 0c inc c 369f 010104 ld bc,#0401 36a2 010101 ld bc,#0101 ;; Indirect Lookup table for 2c5e routine (0x48 entries) ;; not entirely sure how these work yet. ;; the comments on the right half refer to pac-man, not ms-pacman ;; 1337 is the address '3713' 36a5 1337 ; 00 HIGH SCORE 36a7 2337 ; 01 CREDIT 36a9 3237 ; 02 FREE PLAY 36ab 4137 ; 03 PLAYER ONE 36ad 5a37 ; 04 PLAYER TWO 36af 6a37 ; 05 GAME OVER 36b1 7a37 ; 06 READY? 36b3 8637 ; 07 PUSH START BUTTON 36b5 9d37 ; 08 1 PLAYER ONLY 36b7 b137 ; 09 1 OR 2 PLAYERS 36b9 213d ; 0a 36bb 003d ; 0b ADDITIONAL AT 000 36bd fd37 ; 0c "MS PAC-MAN" 36bf 673d ; 0d "BLINKY" 36c1 e33d ; 0e WITH 36c3 863d ; 0f "PINKY" 36c5 023e ; 10 STARRING 36c7 4c38 ; 11 . 10 Pts 36c9 5a38 ; 12 o 50 Pts 36cb 3c3d ; 13 @ MIDWAY MFG.CO. 36cd 573d ; 14 "MAD DOG" 36cf d33d ; 15 JUNIOR 36d1 763d ; 16 "KILLER" 36d3 f23d ; 17 THE CHASE 36d5 0100 ; 18 36d7 0200 ; 19 36d9 0300 ; 1a 36db bc38 ; 1b 100 36dd c438 ; 1c SUPER PAC-MAN 36df ce38 ; 1d MAN 36e1 d838 ; 1e AN 36e3 e238 ; 1f ? (Midway logo?) 36e5 ec38 ; 20 ? (Midway logo?) 36e7 f638 ; 21 ? (Midway logo?) 36e9 0039 ; 22 ? (Midway logo?) 36eb 0a39 ; 23 MEMORY OK 36ed 1a39 ; 24 BAD R M 36ef 6f39 ; 25 FREE PLAY 36f1 2a39 ; 26 1 COIN 1 CREDIT 36f3 5839 ; 27 1 COIN 2 CREDITS 36f5 4139 ; 28 2 COINS 1 CREDIT 36f7 113e ; 29 MS. PAC-MEN 36f8 8639 ; 2a BONUS NONE 36fb 9739 ; 2b BONUS 36fd b039 ; 2c TABLE 36ff bd39 ; 2d UPRIGHT 3701 ca39 ; 2e 000 3703 a53d ; 2f "INKY" 3705 213e ; 30 "FFFFFFFF" 3707 c63d ; 31 "SUE" 3709 403e ; 32 THEY MEET 370b 953d ; 33 MS. PAC-MAN 370d 113e ; 34 MS. PAC-MEN 3711 b43d ; 35 1980,1981 3711 303e ; 36 ACT III ;; there's probably another one of these for the text over at 3D00 ;; text strings 1 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 0123456789abcdef 00003710 d4 83 48 49 47 48 40 53 43 4f 52 45 2f HIGH@SCORE/ 00003720 8f 2f 80 3b 80 43 52 45 44 49 54 40 40 40 2f 8f ./.;.CREDIT@@@/. 00003730 2f 80 3b 80 46 52 45 45 40 50 4c 41 59 2f 8f 2f /.;.FREE@PLAY/./ 00003740 80 8c 02 50 4c 41 59 45 52 40 4f 4e 45 2f 85 2f ...PLAYER@ONE/./ 00003750 10 10 1a 1a 1a 1a 1a 1a 10 10 8c 02 50 4c 41 59 ............PLAY 00003760 45 52 40 54 57 4f 2f 85 2f 80 92 02 47 41 4d 45 ER@TWO/./...GAME 00003770 40 40 4f 56 45 52 2f 81 2f 80 52 02 52 45 41 44 @@OVER/./.R.READ 00003780 59 5b 2f 89 2f 90 ed 02 50 55 53 48 40 53 54 41 Y[/./.í.PUSH@STA 00003790 52 54 40 42 55 54 54 4f 4e 2f 87 2f 80 af 02 31 RT@BUTTON/./.¯.1 000037a0 40 50 4c 41 59 45 52 40 4f 4e 4c 59 40 2f 87 2f @PLAYER@ONLY@/./ 000037b0 80 af 02 31 40 4f 52 40 32 40 50 4c 41 59 45 52 .¯.1@OR@2@PLAYER 000037c0 53 2f 87 00 2f 00 80 00 96 03 42 4f 4e 55 53 40 S/../.....BONUS@ 000037d0 50 55 43 4b 4d 41 4e 40 46 4f 52 40 40 40 30 30 PUCKMAN@FOR@@@00 000037e0 30 40 5d 5e 5f 2f 8e 2f 80 ba 02 5c 40 28 29 2a 0@]^_/./.º.\@()* 000037f0 2b 2c 2d 2e 40 31 39 38 30 2f 83 2f 80 65 03 40 +,-.@1980/./.e.@ offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 0123456789abcdef 00003800 40 40 40 40 40 40 40 26 4d 53 40 50 41 43 3b 4d @@@@@@@&MS@PAC;M 00003810 41 4e 27 40 2f 87 2f 80 01 26 41 4b 41 42 45 49 AN'@/./..&AKABEI 00003820 26 2f 81 2f 80 45 01 26 4d 41 43 4b 59 26 2f 81 &/./.E.&MACKY&/. 00003830 2f 80 48 01 26 50 49 4e 4b 59 26 2f 83 2f 80 48 /.H.&PINKY&/./.H 00003840 01 26 4d 49 43 4b 59 26 2f 83 2f 80 76 02 10 40 .&MICKY&/./.v..@ 00003850 31 30 40 5d 5e 5f 2f 9f 2f 80 78 02 14 40 35 30 10@]^_/./.x..@50 00003860 40 5d 5e 5f 2f 9f 2f 80 5d 02 28 29 2a 2b 2c 2d @]^_/./.].()*+,- 00003870 2e 2f 83 2f 80 c5 02 40 4f 49 4b 41 4b 45 3b 3b ././.Å.@OIKAKE;; 00003880 3b 3b 2f 81 2f 80 c5 02 40 55 52 43 48 49 4e 3b ;;/./.Å.@URCHIN; 00003890 3b 3b 3b 3b 2f 81 2f 80 c8 02 40 4d 41 43 48 49 ;;;;/./.È.@MACHI 000038a0 42 55 53 45 3b 3b 2f 83 2f 80 c8 02 40 52 4f 4d BUSE;;/./.È.@ROM 000038b0 50 3b 3b 3b 3b 3b 3b 3b 2f 83 2f 80 25 80 81 85 P;;;;;;;/./.%... 000038c0 2f 81 2f 90 6e 02 53 55 50 45 52 40 50 41 43 3b /./.n.SUPER@PAC; 000038d0 4d 41 4e 2f 89 2f 80 4d 41 4e 2f 89 2f 80 2f 90 MAN/./.MAN/././. 000038e0 00 00 2e 80 86 8b 8d 8e 2f 8f 2f 90 30 80 40 40 .......././.0.@@ 000038f0 40 40 2f 94 2f 90 32 80 89 8a 8d 8e 2f 89 2f 90 @@/./.2....././. offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 0123456789abcdef 00003900 34 80 89 8a 8d 8e 2f 89 2f 90 04 03 4d 45 4d 4f 4....././...MEMO 00003910 52 59 40 40 4f 4b 2f 8f 2f 80 04 03 42 41 44 40 RY@@OK/./...BAD@ 00003920 40 40 40 52 40 4d 2f 8f 2f 80 08 03 31 40 43 4f @@@R@M/./...1@CO 00003930 49 4e 40 40 31 40 43 52 45 44 49 54 40 2f 8f 2f IN@@1@CREDIT@/./ 00003940 80 08 03 32 40 43 4f 49 4e 53 40 31 40 43 52 45 ...2@COINS@1@CRE 00003950 44 49 54 40 2f 8f 2f 80 08 03 31 40 43 4f 49 4e DIT@/./...1@COIN 00003960 40 40 32 40 43 52 45 44 49 54 53 2f 8f 2f 80 08 @@2@CREDITS/./.. 00003970 03 46 52 45 45 40 40 50 4c 41 59 40 40 40 40 40 .FREE@@PLAY@@@@@ 00003980 40 40 2f 8f 2f 80 0a 03 42 4f 4e 55 53 40 40 4e @@/./...BONUS@@N 00003990 4f 4e 45 2f 8f 2f 80 0a 03 42 4f 4e 55 53 40 2f ONE/./...BONUS@/ 000039a0 8f 2f 80 0c 03 50 55 43 4b 4d 41 4e 2f 8f 2f 80 ./...PUCKMAN/./. 000039b0 0e 03 54 41 42 4c 45 40 40 2f 8f 2f 80 0e 03 55 ..TABLE@@/./...U 000039c0 50 52 49 47 48 54 2f 8f 2f 80 0a 02 30 30 30 2f PRIGHT/./...000/ 000039d0 8f 2f 80 6b 01 26 41 4f 53 55 4b 45 26 2f 85 2f ./.k.&AOSUKE&/./ 000039e0 3d 4f 21 00 4d d7 eb 79 21 f2 39 d7 12 23 13 7e =O!.M×ëy!ò9×.#.~ 000039f0 12 c9 2a da 42 da 5a da 72 da ef 05 01 ef 10 14 .É*ÚBÚZÚrÚï..ï.. offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 0123456789abcdef 00003a00 3e 01 32 14 4e c9 87 2f 80 cb 02 40 4b 49 4d 41 >.2.NÉ./.Ë.@KIMA 00003a10 47 55 52 45 3b 3b 2f 85 2f 80 cb 02 40 53 54 59 GURE;;/./.Ë.@STY 00003a20 4c 49 53 54 3b 3b 3b 3b 2f 85 2f 80 ce 02 40 4f LIST;;;;/./.Î.@O 00003a30 54 4f 42 4f 4b 45 3b 3b 3b 2f 87 2f 80 ce 02 40 TOBOKE;;;/./.Î.@ 00003a40 43 52 59 42 41 42 59 3b 3b 3b 3b 2f 87 2f 80 01 CRYBABY;;;;/./.. ;; old map data? offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 0123456789abcdef 3a4f 010103 ld bc,#0301 3a52 010101 ld bc,#0101 3a55 03 inc bc 3a56 02 ld (bc),a 3a57 02 ld (bc),a 3a58 02 ld (bc),a 3a59 010101 ld bc,#0101 3a5c 010204 ld bc,#0402 3a5f 04 inc b 3a60 04 inc b 3a61 0602 ld b,#02 3a63 02 ld (bc),a 3a64 02 ld (bc),a 3a65 02 ld (bc),a 3a66 04 inc b 3a67 02 ld (bc),a 3a68 04 inc b 3a69 04 inc b 3a6a 04 inc b 3a6b 0602 ld b,#02 3a6d 02 ld (bc),a 3a6e 02 ld (bc),a 3a6f 02 ld (bc),a 3a70 010101 ld bc,#0101 3a73 010204 ld bc,#0402 3a76 04 inc b 3a77 04 inc b 3a78 0602 ld b,#02 3a7a 02 ld (bc),a 3a7b 02 ld (bc),a 3a7c 02 ld (bc),a 3a7d 0604 ld b,#04 3a7f 05 dec b 3a80 010103 ld bc,#0301 3a83 010101 ld bc,#0101 3a86 04 inc b 3a87 010101 ld bc,#0101 3a8a 03 inc bc 3a8b 010104 ld bc,#0401 3a8e 010101 ld bc,#0101 3a91 6c ld l,h 3a92 05 dec b 3a93 010101 ld bc,#0101 3a96 1804 jr #3a9c ; (4) 3a98 04 inc b 3a99 1805 jr #3aa0 ; (5) 3a9b 010101 ld bc,#0101 3a9e 17 rla 3a9f 02 ld (bc),a 3aa0 03 inc bc 3aa1 04 inc b 3aa2 1604 ld d,#04 3aa4 03 inc bc 3aa5 010101 ld bc,#0101 3aa8 76 halt 3aa9 010101 ld bc,#0101 3aac 010301 ld bc,#0103 3aaf 010102 ld bc,#0201 3ab2 04 inc b 3ab3 02 ld (bc),a 3ab4 04 inc b 3ab5 0e02 ld c,#02 3ab7 04 inc b 3ab8 02 ld (bc),a 3ab9 04 inc b 3aba 02 ld (bc),a 3abb 04 inc b 3abc 0b dec bc 3abd 010101 ld bc,#0101 3ac0 02 ld (bc),a 3ac1 04 inc b 3ac2 02 ld (bc),a 3ac3 010101 ld bc,#0101 3ac6 010202 ld bc,#0202 3ac9 02 ld (bc),a 3aca 0e02 ld c,#02 3acc 04 inc b 3acd 02 ld (bc),a 3ace 04 inc b 3acf 02 ld (bc),a 3ad0 010201 ld bc,#0102 3ad3 0a ld a,(bc) 3ad4 010101 ld bc,#0101 3ad7 010301 ld bc,#0103 3ada 010103 ld bc,#0301 3add 010103 ld bc,#0301 3ae0 04 inc b 3ae1 00 nop 3ae2 02 ld (bc),a 3ae3 40 ld b,b 3ae4 013e3d ld bc,#3d3e 3ae7 1040 djnz #3b29 ; (64) 3ae9 40 ld b,b 3aea 0e3d ld c,#3d 3aec 3e10 ld a,#10 3aee c24301 jp nz,#0143 3af1 3e3d ld a,#3d 3af3 1021 djnz #3b16 ; (33) 3af5 a2 and d 3af6 40 ld b,b 3af7 114f3a ld de,#3a4f 3afa 3614 ld (hl),#14 3afc 1a ld a,(de) 3afd a7 and a 3afe c8 ret z 3aff 13 inc de 3b00 85 add a,l 3b01 6f ld l,a 3b02 d2fa3a jp nc,#3afa 3b05 24 inc h 3b06 18f2 jr #3afa ; (-14) 3b08 90 sub b 3b09 14 inc d 3b0a 94 sub h 3b0b 0f rrca 3b0c 98 sbc a,b 3b0d 15 dec d 3b0e 9c sbc a,h 3b0f 07 rlca 3b10 a0 and b 3b11 14 inc d 3b12 a4 and h 3b13 17 rla 3b14 a8 xor b 3b15 16ac ld d,#ac 3b17 1600 ld d,#00 3b19 00 nop 3b1a 00 nop 3b1b 00 nop 3b1c 00 nop 3b1d 00 nop 3b1e 00 nop 3b1f 00 nop 3b20 00 nop 3b21 00 nop 3b22 00 nop 3b23 00 nop 3b24 00 nop 3b25 00 nop 3b26 00 nop 3b27 00 nop 3b28 00 nop 3b29 00 nop 3b2a 9c sbc a,h 3b2b 169c ld d,#9c 3b2d 169c ld d,#9c 3b2f 1673 ld d,#73 3b31 2000 jr nz,#3b33 ; (0) 3b33 0c inc c 3b34 00 nop 3b35 0a ld a,(bc) 3b36 1f rra 3b37 00 nop 3b38 72 ld (hl),d 3b39 20fb jr nz,#3b36 ; (-5) 3b3b 87 add a,a 3b3c 00 nop 3b3d 02 ld (bc),a 3b3e 0f rrca 3b3f 00 nop 3b40 59 ld e,c 3b41 010608 ld bc,#0806 3b44 00 nop 3b45 00 nop 3b46 02 ld (bc),a 3b47 00 nop 3b48 59 ld e,c 3b49 010609 ld bc,#0906 3b4c 00 nop 3b4d 00 nop 3b4e 02 ld (bc),a 3b4f 00 nop 3b50 59 ld e,c 3b51 02 ld (bc),a 3b52 060a ld b,#0a 3b54 00 nop 3b55 00 nop 3b56 02 ld (bc),a 3b57 00 nop 3b58 59 ld e,c 3b59 03 inc bc 3b5a 060b ld b,#0b 3b5c 00 nop 3b5d 00 nop 3b5e 02 ld (bc),a 3b5f 00 nop 3b60 59 ld e,c 3b61 04 inc b 3b62 060c ld b,#0c 3b64 00 nop 3b65 0602 ld b,#02 3b67 00 nop 3b68 24 inc h 3b69 00 nop 3b6a 0608 ld b,#08 3b6c 02 ld (bc),a 3b6d 00 nop 3b6e 0a ld a,(bc) 3b6f 00 nop 3b70 3607 ld (hl),#07 3b72 87 add a,a 3b73 6f ld l,a 3b74 00 nop 3b75 00 nop 3b76 04 inc b 3b77 00 nop 3b78 70 ld (hl),b 3b79 04 inc b 3b7a 00 nop 3b7b 00 nop 3b7c 00 nop 3b7d 00 nop 3b7e 08 ex af,af' 3b7f 00 nop 3b80 1c inc e 3b81 70 ld (hl),b 3b82 8b adc a,e 3b83 08 ex af,af' 3b84 00 nop 3b85 010600 ld bc,#0006 3b88 1c inc e 3b89 70 ld (hl),b 3b8a 8b adc a,e 3b8b 08 ex af,af' 3b8c 00 nop 3b8d 010600 ld bc,#0006 3b90 56 ld d,(hl) 3b91 0c inc c 3b92 ff rst #38 3b93 8c adc a,h 3b94 00 nop 3b95 02 ld (bc),a 3b96 08 ex af,af' 3b97 00 nop 3b98 56 ld d,(hl) 3b99 00 nop 3b9a 02 ld (bc),a 3b9b 0a ld a,(bc) 3b9c 07 rlca 3b9d 03 inc bc 3b9e 0c inc c 3b9f 00 nop 3ba0 3638 ld (hl),#38 3ba2 fe12 cp #12 3ba4 f8 ret m 3ba5 04 inc b 3ba6 0f rrca 3ba7 fc2201 call m,#0122 3baa 010600 ld bc,#0006 3bad 010700 ld bc,#0007 3bb0 010204 ld bc,#0402 3bb3 08 ex af,af' 3bb4 1020 djnz #3bd6 ; (32) 3bb6 40 ld b,b 3bb7 80 add a,b 3bb8 00 nop 3bb9 57 ld d,a 3bba 5c ld e,h 3bbb 61 ld h,c 3bbc 67 ld h,a 3bbd 6d ld l,l 3bbe 74 ld (hl),h 3bbf 7b ld a,e 3bc0 82 add a,d 3bc1 8a adc a,d 3bc2 92 sub d 3bc3 9a sbc a,d 3bc4 a3 and e 3bc5 ad xor l 3bc6 b8 cp b 3bc7 c3d43b jp #3bd4 3bca f3 di 3bcb 3b dec sp 3bcc 58 ld e,b 3bcd 3c inc a 3bce 95 sub l 3bcf 3c inc a 3bd0 de3c sbc a,#3c 3bd2 df rst #18 3bd3 3c inc a 3bd4 f1 pop af 3bd5 03 inc bc 3bd6 f203f3 jp p,#f303 3bd9 0a ld a,(bc) 3bda f40290 call p,#9002 3bdd 7c ld a,h 3bde 7b ld a,e 3bdf 7a ld a,d 3be0 79 ld a,c 3be1 79 ld a,c 3be2 78 ld a,b 3be3 97 sub a 3be4 76 halt 3be5 75 ld (hl),l 3be6 74 ld (hl),h 3be7 73 ld (hl),e 3be8 73 ld (hl),e 3be9 72 ld (hl),d 3bea 91 sub c 3beb a8 xor b 3bec 88 adc a,b 3bed 60 ld h,b 3bee 4a ld c,d 3bef 4c ld c,h 3bf0 91 sub c 3bf1 95 sub l 3bf2 88 adc a,b 3bf3 95 sub l 3bf4 91 sub c 3bf5 95 sub l 3bf6 88 adc a,b 3bf7 95 sub l 3bf8 91 sub c 3bf9 95 sub l 3bfa 88 adc a,b 3bfb 95 sub l 3bfc 95 sub l 3bfd 98 sbc a,b 3bfe 94 sub h 3bff 97 sub a 3c00 93 sub e 3c01 96 sub (hl) 3c02 88 adc a,b 3c03 96 sub (hl) 3c04 93 sub e 3c05 96 sub (hl) 3c06 88 adc a,b 3c07 96 sub (hl) 3c08 93 sub e 3c09 96 sub (hl) 3c0a 88 adc a,b 3c0b 96 sub (hl) 3c0c b6 or (hl) 3c0d b3 or e 3c0e 75 ld (hl),l 3c0f 76 halt 3c10 77 ld (hl),a 3c11 78 ld a,b 3c12 78 ld a,b 3c13 75 ld (hl),l 3c14 73 ld (hl),e 3c15 68 ld l,b 3c16 91 sub c 3c17 95 sub l 3c18 88 adc a,b 3c19 95 sub l 3c1a 91 sub c 3c1b 95 sub l 3c1c 88 adc a,b 3c1d 95 sub l 3c1e 86 add a,(hl) 3c1f 96 sub (hl) 3c20 95 sub l 3c21 92 sub d 3c22 93 sub e 3c23 8c adc a,h 3c24 8a adc a,d 3c25 88 adc a,b 3c26 86 add a,(hl) 3c27 90 sub b 3c28 90 sub b 3c29 96 sub (hl) 3c2a 95 sub l 3c2b 90 sub b 3c2c 90 sub b 3c2d 86 add a,(hl) 3c2e 90 sub b 3c2f 96 sub (hl) 3c30 90 sub b 3c31 96 sub (hl) 3c32 91 sub c 3c33 88 adc a,b 3c34 81 add a,c 3c35 ff rst #38 3c36 47 ld b,a 3c37 304b jr nc,#3c84 ; (75) 3c39 104c djnz #3c87 ; (76) 3c3b 104d djnz #3c8a ; (77) 3c3d 104e djnz #3c8d ; (78) 3c3f 1077 djnz #3cb8 ; (119) 3c41 204e jr nz,#3c91 ; (78) 3c43 104d djnz #3c92 ; (77) 3c45 104c djnz #3c93 ; (76) 3c47 104a djnz #3c93 ; (74) 3c49 1047 djnz #3c92 ; (71) 3c4b 1046 djnz #3c93 ; (70) 3c4d 1065 djnz #3cb4 ; (101) 3c4f 3066 jr nc,#3cb7 ; (102) 3c51 3067 jr nc,#3cba ; (103) 3c53 40 ld b,b 3c54 70 ld (hl),b 3c55 f0 ret p 3c56 fb ei 3c57 3b dec sp 3c58 f1 pop af 3c59 00 nop 3c5a f202f3 jp p,#f302 3c5d 0a ld a,(bc) 3c5e f40088 call p,#8800 3c61 6c ld l,h 3c62 71 ld (hl),c 3c63 72 ld (hl),d 3c64 73 ld (hl),e 3c65 73 ld (hl),e 3c66 71 ld (hl),c 3c67 93 sub e 3c68 6c ld l,h 3c69 73 ld (hl),e 3c6a 75 ld (hl),l 3c6b 76 halt 3c6c 76 halt 3c6d 75 ld (hl),l 3c6e 96 sub (hl) 3c6f 7c ld a,h 3c70 7a ld a,d 3c71 78 ld a,b 3c72 76 halt 3c73 75 ld (hl),l 3c74 96 sub (hl) 3c75 6c ld l,h 3c76 91 sub c 3c77 a0 and b 3c78 88 adc a,b 3c79 75 ld (hl),l 3c7a 76 halt 3c7b 77 ld (hl),a 3c7c 78 ld a,b 3c7d 71 ld (hl),c 3c7e 73 ld (hl),e 3c7f 74 ld (hl),h 3c80 75 ld (hl),l 3c81 71 ld (hl),c 3c82 75 ld (hl),l 3c83 71 ld (hl),c 3c84 68 ld l,b 3c85 68 ld l,b 3c86 65 ld h,l 3c87 66 ld h,(hl) 3c88 67 ld h,a 3c89 a8 xor b 3c8a ab xor e 3c8b ac xor h 3c8c 8c adc a,h 3c8d 86 add a,(hl) 3c8e 76 halt 3c8f 75 ld (hl),l 3c90 6c ld l,h 3c91 71 ld (hl),c 3c92 75 ld (hl),l 3c93 73 ld (hl),e 3c94 6b ld l,e 3c95 6c ld l,h 3c96 73 ld (hl),e 3c97 76 halt 3c98 7a ld a,d 3c99 78 ld a,b 3c9a 78 ld a,b 3c9b 76 halt 3c9c 73 ld (hl),e 3c9d 6c ld l,h 3c9e aa xor d 3c9f a8 xor b 3ca0 71 ld (hl),c 3ca1 73 ld (hl),e 3ca2 74 ld (hl),h 3ca3 75 ld (hl),l 3ca4 6a ld l,d 3ca5 6b ld l,e 3ca6 6c ld l,h 3ca7 73 ld (hl),e 3ca8 75 ld (hl),l 3ca9 76 halt 3caa 77 ld (hl),a 3cab 78 ld a,b 3cac 71 ld (hl),c 3cad 73 ld (hl),e 3cae 74 ld (hl),h 3caf 75 ld (hl),l 3cb0 71 ld (hl),c 3cb1 75 ld (hl),l 3cb2 71 ld (hl),c 3cb3 68 ld l,b 3cb4 48 ld c,b 3cb5 40 ld b,b 3cb6 68 ld l,b 3cb7 67 ld h,a 3cb8 68 ld l,b 3cb9 aa xor d 3cba a9 xor c 3cbb aa xor d 3cbc 6a ld l,d 3cbd 60 ld h,b 3cbe 8a adc a,d 3cbf 76 halt 3cc0 75 ld (hl),l 3cc1 73 ld (hl),e 3cc2 71 ld (hl),c 3cc3 71 ld (hl),c 3cc4 73 ld (hl),e 3cc5 95 sub l 3cc6 75 ld (hl),l 3cc7 73 ld (hl),e 3cc8 71 ld (hl),c 3cc9 68 ld l,b 3cca 68 ld l,b 3ccb 61 ld h,c 3ccc 63 ld h,e 3ccd 6a ld l,d 3cce a8 xor b 3ccf 6c ld l,h 3cd0 76 halt 3cd1 6a ld l,d 3cd2 6c ld l,h 3cd3 91 sub c 3cd4 90 sub b 3cd5 91 sub c 3cd6 ff rst #38 3cd7 40 ld b,b 3cd8 2687 ld h,#87 3cda 70 ld (hl),b 3cdb f0 ret p 3cdc 9d sbc a,l 3cdd 3c inc a 3cde 00 nop 3cdf 00 nop ;; hangly man basic map 3ce0 00 nop 3ce1 00 nop 3ce2 00 nop 3ce3 00 nop 3ce4 00 nop 3ce5 00 nop 3ce6 00 nop 3ce7 00 nop 3ce8 00 nop 3ce9 00 nop 3cea 00 nop 3ceb 00 nop 3cec 00 nop 3ced 00 nop 3cee 00 nop 3cef 00 nop 3cf0 00 nop 3cf1 00 nop 3cf2 00 nop 3cf3 00 nop 3cf4 00 nop 3cf5 00 nop 3cf6 00 nop 3cf7 00 nop 3cf8 00 nop 3cf9 00 nop 3cfa 00 nop 3cfb 00 nop 3cfc 00 nop 3cfd 00 nop 3cfe 00 nop 3cff 00 nop ;; text strings 2 (copyright, ghost names, intermission) offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 0123456789abcdef 00003d00 96 03 40 41 44 44 49 54 49 4f 4e 41 4c 40 40 40 @ADDITIONAL@@@ 00003d10 40 41 54 40 40 40 30 30 30 40 5d 5e 5f 2f 95 2f @AT@@@000@]^_/./ 00003d20 80 5a 02 40 40 40 40 40 40 40 2f 07 07 07 01 01 .Z.@@@@@@@/..... 00003d30 01 01 2f 80 50 40 40 40 2f 87 2f 80 5b 02 5c 40 ../.P@@@/./.[.\@ 00003d40 4d 49 44 57 41 59 40 4d 46 47 40 43 4f 40 40 40 MIDWAY@MFG@CO@@@ 00003d50 40 2f 81 2f 80 2f 80 c5 02 3b 4d 41 44 40 44 4f @/././.Å.;MAD@DO 00003d60 47 40 40 2f 81 2f 80 6e 02 40 40 40 42 4c 49 4e G@@/./.n.@@@BLIN 00003d70 4b 59 2f 81 2f 80 c8 02 3b 4b 49 4c 4c 45 52 40 KY/./.È.;KILLER@ 00003d80 40 40 2f 83 2f 80 6e 02 40 40 40 50 49 4e 4b 59 @@/./.n.@@@PINKY 00003d90 40 2f 83 2f 80 6e 02 4d 53 40 50 41 43 3b 4d 41 @/./.n.MS@PAC;MA 00003da0 4e 2f 89 2f 80 6e 02 40 40 40 49 4e 4b 59 40 40 N/./.n.@@@INKY@@ 00003db0 2f 85 2f 80 3d 02 40 40 31 39 38 30 3a 31 39 38 /./.=.@@1980:198 00003dc0 31 40 2f 81 2f 80 6e 02 40 40 40 40 53 55 45 2f 1@/./.n.@@@@SUE/ 00003dd0 87 2f 80 6b 02 4a 55 4e 49 4f 52 40 40 40 40 2f ./.k.JUNIOR@@@@/ 00003de0 8f 2f 80 6b 02 57 49 54 48 40 40 40 40 40 2f 8f ./.k.WITH@@@@@/. 00003df0 2f 80 6b 02 54 48 45 40 43 48 41 53 45 40 2f 8f /.k.THE@CHASE@/. offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 0123456789abcdef 00003e00 2f 80 6b 02 53 54 41 52 52 49 4e 47 40 2f 8f 2f /.k.STARRING@/./ 00003e10 80 0c 03 4d 53 40 50 41 43 3b 4d 45 4e 2f 8f 2f ...MS@PAC;MEN/./ 00003e20 80 6b 02 40 40 40 40 40 40 40 40 40 2f 85 2f 80 .k.@@@@@@@@@/./. 00003e30 6b 02 41 43 54 40 49 49 49 26 40 40 2f 87 2f 80 k.ACT@III&@@/./. 00003e40 6b 02 54 48 45 59 40 4d 45 45 54 2f 8f 2f 80 0c k.THEY@MEET/./.. 00003e50 03 4f 54 54 4f 4d 45 4e 2f 8f 2f 80 .OTTOMEN/./. ;; new code for ms-pacman 3e5c 3a024e ld a,(#4e02) 3e5f fe10 cp #10 3e61 c4d03e call nz,#3ed0 3e64 3a024e ld a,(#4e02) 3e67 e7 rst #20 3e68 5f ld e,a 3e69 04 inc b 3e6a 96 sub (hl) 3e6b 3e8b ld a,#8b 3e6d 3e0c ld a,#0c 3e6f 00 nop 3e70 bd cp l 3e71 3e9c ld a,#9c 3e73 3e83 ld a,#83 3e75 34 inc (hl) 3e76 a2 and d 3e77 3e88 ld a,#88 3e79 34 inc (hl) 3e7a ab xor e 3e7b 3e8d ld a,#8d 3e7d 34 inc (hl) 3e7e b1 or c 3e7f 3e92 ld a,#92 3e81 34 inc (hl) 3e82 c33eb7 jp #b73e 3e85 3e97 ld a,#97 3e87 34 inc (hl) 3e88 c9 ret 3e89 3ec9 ld a,#c9 3e8b ef rst #28 3e8c 1c inc e 3e8d 0c inc c 3e8e 3e60 ld a,#60 3e90 32014f ld (#4f01),a 3e93 c38e05 jp #058e 3e96 cd4296 call #9642 3e99 c38e05 jp #058e 3e9c ef rst #28 3e9d 1c inc e 3e9e 0d dec c 3e9f c38e05 jp #058e 3ea2 ef rst #28 3ea3 1c inc e 3ea4 30ef jr nc,#3e95 ; (-17) 3ea6 1c inc e 3ea7 0f rrca 3ea8 c38e05 jp #058e 3eab ef rst #28 3eac 1c inc e 3ead 2f cpl 3eae c38e05 jp #058e 3eb1 ef rst #28 3eb2 1c inc e 3eb3 31c38e ld sp,#8ec3 3eb6 05 dec b 3eb7 ef rst #28 3eb8 1c inc e 3eb9 33 inc sp 3eba c38e05 jp #058e 3ebd ef rst #28 3ebe 1c inc e 3ebf 0ec3 ld c,#c3 3ec1 8e adc a,(hl) 3ec2 05 dec b 3ec3 ef rst #28 3ec4 1c inc e 3ec5 10c3 djnz #3e8a ; (-61) 3ec7 8e adc a,(hl) 3ec8 05 dec b 3ec9 af xor a 3eca 32144e ld (#4e14),a 3ecd c37c05 jp #057c 3ed0 3a014f ld a,(#4f01) 3ed3 3c inc a 3ed4 e60f and #0f 3ed6 32014f ld (#4f01),a 3ed9 4f ld c,a 3eda cb81 res 0,c 3edc 0600 ld b,#00 3ede dd21813f ld ix,#3f81 3ee2 cb47 bit 0,a 3ee4 2833 jr z,#3f19 ; (51) 3ee6 dd09 add ix,bc 3ee8 dd6e00 ld l,(ix+#00) 3eeb dd6601 ld h,(ix+#01) 3eee 3687 ld (hl),#87 3ef0 dd6e10 ld l,(ix+#10) 3ef3 dd6611 ld h,(ix+#11) 3ef6 3687 ld (hl),#87 3ef8 dd6e20 ld l,(ix+#20) 3efb dd6621 ld h,(ix+#21) 3efe 368a ld (hl),#8a 3f00 dd6e30 ld l,(ix+#30) 3f03 dd6631 ld h,(ix+#31) 3f06 3681 ld (hl),#81 3f08 dd6e40 ld l,(ix+#40) 3f0b dd6641 ld h,(ix+#41) 3f0e 3681 ld (hl),#81 3f10 dd6e50 ld l,(ix+#50) 3f13 dd6651 ld h,(ix+#51) 3f16 3684 ld (hl),#84 3f18 c9 ret 3f19 0d dec c 3f1a af xor a 3f1b b9 cp c 3f1c fa213f jp m,#3f21 3f1f 06ff ld b,#ff 3f21 0d dec c 3f22 dd09 add ix,bc 3f24 dd6e00 ld l,(ix+#00) 3f27 dd6601 ld h,(ix+#01) 3f2a 35 dec (hl) 3f2b dd6e02 ld l,(ix+#02) 3f2e dd6603 ld h,(ix+#03) 3f31 3688 ld (hl),#88 3f33 dd6e10 ld l,(ix+#10) 3f36 dd6611 ld h,(ix+#11) 3f39 35 dec (hl) 3f3a dd6e12 ld l,(ix+#12) 3f3d dd6613 ld h,(ix+#13) 3f40 3688 ld (hl),#88 3f42 dd6e20 ld l,(ix+#20) 3f45 dd6621 ld h,(ix+#21) 3f48 35 dec (hl) 3f49 dd6e22 ld l,(ix+#22) 3f4c dd6623 ld h,(ix+#23) 3f4f 368b ld (hl),#8b 3f51 dd6e30 ld l,(ix+#30) 3f54 dd6631 ld h,(ix+#31) 3f57 35 dec (hl) 3f58 dd6e32 ld l,(ix+#32) 3f5b dd6633 ld h,(ix+#33) 3f5e 3682 ld (hl),#82 3f60 dd6e40 ld l,(ix+#40) 3f63 dd6641 ld h,(ix+#41) 3f66 35 dec (hl) 3f67 dd6e42 ld l,(ix+#42) 3f6a dd6643 ld h,(ix+#43) 3f6d 3682 ld (hl),#82 3f6f dd6e50 ld l,(ix+#50) 3f72 dd6651 ld h,(ix+#51) 3f75 35 dec (hl) 3f76 dd6e52 ld l,(ix+#52) 3f79 dd6653 ld h,(ix+#53) 3f7c 3683 ld (hl),#83 3f7e c9 ret 3f7f d0 ret nc 3f80 42 ld b,d 3f81 b0 or b 3f82 42 ld b,d 3f83 90 sub b 3f84 42 ld b,d 3f85 70 ld (hl),b 3f86 42 ld b,d 3f87 50 ld d,b 3f88 42 ld b,d 3f89 3042 jr nc,#3fcd ; (66) 3f8b 1042 djnz #3fcf ; (66) 3f8d f0 ret p 3f8e 41 ld b,c 3f8f d0 ret nc 3f90 41 ld b,c 3f91 b0 or b 3f92 41 ld b,c 3f93 90 sub b 3f94 41 ld b,c 3f95 70 ld (hl),b 3f96 41 ld b,c 3f97 50 ld d,b 3f98 41 ld b,c 3f99 3041 jr nc,#3fdc ; (65) 3f9b 1041 djnz #3fde ; (65) 3f9d f0 ret p 3f9e 40 ld b,b 3f9f d0 ret nc 3fa0 40 ld b,b 3fa1 b0 or b 3fa2 40 ld b,b 3fa3 af xor a 3fa4 40 ld b,b 3fa5 ae xor (hl) 3fa6 40 ld b,b 3fa7 ad xor l 3fa8 40 ld b,b 3fa9 ac xor h 3faa 40 ld b,b 3fab ab xor e 3fac 40 ld b,b 3fad aa xor d 3fae 40 ld b,b 3faf a9 xor c 3fb0 40 ld b,b 3fb1 c9 ret 3fb2 40 ld b,b 3fb3 e9 jp (hl) 3fb4 40 ld b,b 3fb5 09 add hl,bc 3fb6 41 ld b,c 3fb7 29 add hl,hl 3fb8 41 ld b,c 3fb9 49 ld c,c 3fba 41 ld b,c 3fbb 69 ld l,c 3fbc 41 ld b,c 3fbd 89 adc a,c 3fbe 41 ld b,c 3fbf a9 xor c 3fc0 41 ld b,c 3fc1 c9 ret 3fc2 41 ld b,c 3fc3 e9 jp (hl) 3fc4 41 ld b,c 3fc5 09 add hl,bc 3fc6 42 ld b,d 3fc7 29 add hl,hl 3fc8 42 ld b,d 3fc9 49 ld c,c 3fca 42 ld b,d 3fcb 69 ld l,c 3fcc 42 ld b,d 3fcd 89 adc a,c 3fce 42 ld b,d 3fcf a9 xor c 3fd0 42 ld b,d 3fd1 c9 ret 3fd2 42 ld b,d 3fd3 ca42cb jp z,#cb42 3fd6 42 ld b,d 3fd7 cc42cd call z,#cd42 3fda 42 ld b,d 3fdb ce42 adc a,#42 3fdd cf rst #8 3fde 42 ld b,d 3fdf d0 ret nc 3fe0 42 ld b,d 3fe1 c9 ret 3fe2 42 ld b,d 3fe3 ca42cb jp z,#cb42 3fe6 42 ld b,d 3fe7 cc42cd call z,#cd42 3fea 42 ld b,d 3feb ce42 adc a,#42 3fed cf rst #8 3fee 42 ld b,d 3fef d0 ret nc 3ff0 42 ld b,d 3ff1 42 ld b,d 3ff2 cf rst #8 3ff3 42 ld b,d 3ff4 d0 ret nc 3ff5 42 ld b,d 3ff6 00 nop 3ff7 4f ld c,a 3ff8 c9 ret 3ff9 00 nop 3ffa 00 nop 3ffb 308d jr nc,#3f8a ; (-115) 3ffd 00 nop 3ffe 75 ld (hl),l 3fff 73 ld (hl),e ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; 8000 through 8800: U5 on the daughtercard ;; ;; 8000 through 8200: U5 on the daughtercard ;; 8 byte chunks from here are overlayed down into the pac-man roms ;; 8000 c9 ret 8001 210040 ld hl,#4000 8004 cd6a94 call #946a 8007 0a ld a,(bc) 8008 4e ld c,(hl) 8009 34 inc (hl) 800a c9 ret 800b c35c3e jp #3e5c 800e e7 rst #20 800f 5f ld e,a 8010 d24dc9 jp nc,#c94d 8013 c37836 jp #3678 8016 3a00c3 ld a,(#c300) 8019 35 dec (hl) 801a 34 inc (hl) 801b e7 rst #20 801c 1a ld a,(de) 801d 214021 ld hl,#2140 8020 af xor a 8021 32d44d ld (#4dd4),a 8024 c9 ret 8025 00 nop 8026 00 nop 8027 222a10 ld (#102a),hl 802a 4d ld c,l 802b cd5e95 call #955e 802e 1140ff ld de,#ff40 8031 ff rst #38 8032 ff rst #38 8033 ff rst #38 8034 ff rst #38 8035 ff rst #38 8036 ff rst #38 8037 ff rst #38 8038 ff rst #38 8039 ff rst #38 803a ff rst #38 803b ff rst #38 803c ff rst #38 803d ff rst #38 803e ff rst #38 803f ff rst #38 8040 ff rst #38 8041 ff rst #38 8042 ff rst #38 8043 ff rst #38 8044 ff rst #38 8045 ff rst #38 8046 ff rst #38 8047 ff rst #38 8048 4e ld c,(hl) 8049 3600 ld (hl),#00 804b 3e3e ld a,#3e 804d 115901 ld de,#0159 8050 3a2c4d ld a,(#4d2c) 8053 cd6195 call #9561 8056 cd6621 call #2166 8059 00 nop 805a 40 ld b,b 805b c37c94 jp #947c 805e 4e ld c,(hl) 805f fdff rst #38 8061 ff rst #38 8062 ff rst #38 8063 ff rst #38 8064 ff rst #38 8065 ff rst #38 8066 ff rst #38 8067 ff rst #38 8068 ff rst #38 8069 ff rst #38 806a ff rst #38 806b ff rst #38 806c ff rst #38 806d ff rst #38 806e ff rst #38 806f ff rst #38 8070 ff rst #38 8071 ff rst #38 8072 ff rst #38 8073 ff rst #38 8074 ff rst #38 8075 ff rst #38 8076 ff rst #38 8077 ff rst #38 8078 ff rst #38 8079 ff rst #38 807a ff rst #38 807b ff rst #38 807c ff rst #38 807d ff rst #38 807e ff rst #38 807f ff rst #38 8080 00 nop 8081 40 ld b,b 8082 c38194 jp #9481 8085 4e ld c,(hl) 8086 fd21360d ld iy,#0d36 808a 1ec9 ld e,#c9 808c c39c86 jp #869c 808f c9 ret 8090 4d ld c,l 8091 cd6195 call #9561 8094 cd6629 call #2966 8097 2232d1 ld (#d132),hl 809a 4d ld c,l 809b 21ac4e ld hl,#4eac 809e cbf6 set 6,(hl) 80a0 08 ex af,af' 80a1 4e ld c,(hl) 80a2 c36934 jp #3469 80a5 be cp (hl) 80a6 220c08 ld (#080c),hl 80a9 4d ld c,l 80aa 119480 ld de,#8094 80ad c31888 jp #8818 80b0 ff rst #38 80b1 ff rst #38 80b2 ff rst #38 80b3 ff rst #38 80b4 ff rst #38 80b5 ff rst #38 80b6 ff rst #38 80b7 ff rst #38 80b8 ff rst #38 80b9 ff rst #38 80ba ff rst #38 80bb ff rst #38 80bc ff rst #38 80bd ff rst #38 80be ff rst #38 80bf ff rst #38 80c0 78 ld a,b 80c1 fe02 cp #02 80c3 3e1f ld a,#1f 80c5 c38095 jp #9580 80c8 4d ld c,l 80c9 c3c586 jp #86c5 80cc c9 ret 80cd 3808 jr c,#80d7 ; (8) 80cf 1ed2 ld e,#d2 80d1 c39797 jp #9797 80d4 dd21cc4e ld ix,#4ecc 80d8 09 add hl,bc 80d9 07 rlca 80da fd3500 dec (iy+#00) 80dd c9 ret 80de 0619 ld b,#19 80e0 91 sub c 80e1 4e ld c,(hl) 80e2 217d96 ld hl,#967d 80e5 dd21dce3 ld ix,#e3dc 80e9 95 sub l 80ea a1 and c 80eb 2b dec hl 80ec 75 ld (hl),l 80ed 26b2 ld h,#b2 80ef 26ff ld h,#ff 80f1 ff rst #38 80f2 ff rst #38 80f3 ff rst #38 80f4 ff rst #38 80f5 ff rst #38 80f6 ff rst #38 80f7 ff rst #38 80f8 ff rst #38 80f9 ff rst #38 80fa ff rst #38 80fb ff rst #38 80fc ff rst #38 80fd ff rst #38 80fe ff rst #38 80ff ff rst #38 8100 08 ex af,af' 8101 00 nop 8102 1600 ld d,#00 8104 010002 ld bc,#0200 8107 00 nop 8108 ff rst #38 8109 ff rst #38 810a ff rst #38 810b ff rst #38 810c ff rst #38 810d ff rst #38 810e ff rst #38 810f ff rst #38 8110 50 ld d,b 8111 00 nop 8112 50 ld d,b 8113 13 inc de 8114 6b ld l,e 8115 62 ld h,d 8116 1b dec de 8117 cb32 sll d 8119 bc cp h 811a 4e ld c,(hl) 811b 1806 jr #8123 ; (6) 811d 32cc4e ld (#4ecc),a 8120 44 ld b,h 8121 c32495 jp #9524 8124 2002 jr nz,#8128 ; (2) 8126 3e00 ld a,#00 8128 ff rst #38 8129 ff rst #38 812a ff rst #38 812b ff rst #38 812c ff rst #38 812d ff rst #38 812e ff rst #38 812f ff rst #38 8130 ff rst #38 8131 ff rst #38 8132 ff rst #38 8133 ff rst #38 8134 ff rst #38 8135 ff rst #38 8136 ff rst #38 8137 ff rst #38 8138 ff rst #38 8139 ff rst #38 813a ff rst #38 813b ff rst #38 813c ff rst #38 813d ff rst #38 813e ff rst #38 813f ff rst #38 8140 34 inc (hl) 8141 4e ld c,(hl) 8142 c3ec94 jp #94ec 8145 eda0 ldi 8147 11c36f ld de,#6fc3 814a 3600 ld (hl),#00 814c 02 ld (bc),a 814d c9 ret 814e af xor a 814f 02 ld (bc),a 8150 ff rst #38 8151 ff rst #38 8152 ff rst #38 8153 ff rst #38 8154 ff rst #38 8155 ff rst #38 8156 ff rst #38 8157 ff rst #38 8158 ff rst #38 8159 ff rst #38 815a ff rst #38 815b ff rst #38 815c ff rst #38 815d ff rst #38 815e ff rst #38 815f ff rst #38 8160 73 ld (hl),e 8161 02 ld (bc),a 8162 c34e36 jp #364e 8165 0c inc c 8166 dd35a7 dec (ix-#59) 8169 ed52 sbc hl,de 816b c0 ret nz 816c af xor a 816d 00 nop 816e 3c inc a 816f 32ffff ld (#ffff),a 8172 ff rst #38 8173 ff rst #38 8174 ff rst #38 8175 ff rst #38 8176 ff rst #38 8177 ff rst #38 8178 ff rst #38 8179 ff rst #38 817a ff rst #38 817b ff rst #38 817c ff rst #38 817d ff rst #38 817e ff rst #38 817f ff rst #38 8180 e5 push hl 8181 216440 ld hl,#4064 8184 c30495 jp #9504 8187 edc9 db #ed, #c9 ; Undocumented 8 T-State NOP 8189 c3b186 jp #86b1 818c c9 ret 818d 07 rlca 818e fe06 cp #06 8190 2a0e4d ld hl,(#4d0e) 8193 cd5995 call #9559 8196 1140a6 ld de,#a640 8199 cbc7 set 0,a 819b 77 ld (hl),a 819c c9 ret 819d c3ee86 jp #86ee 81a0 4e ld c,(hl) 81a1 c34f34 jp #344f 81a4 41 ld b,c 81a5 e7 rst #20 81a6 c221cd jp nz,#cd21 81a9 00 nop 81aa 1018 djnz #81c4 ; (24) 81ac 07 rlca 81ad 1c inc e 81ae cd42ff call #ff42 81b1 ff rst #38 81b2 ff rst #38 81b3 ff rst #38 81b4 ff rst #38 81b5 ff rst #38 81b6 ff rst #38 81b7 ff rst #38 81b8 ff rst #38 81b9 ff rst #38 81ba ff rst #38 81bb ff rst #38 81bc ff rst #38 81bd ff rst #38 81be ff rst #38 81bf ff rst #38 81c0 1a ld a,(de) 81c1 c3c395 jp #95c3 81c4 0606 ld b,#06 81c6 dd21084d ld ix,#4d08 81ca c3d986 jp #86d9 81cd c9 ret 81ce 3805 jr c,#81d5 ; (5) 81d0 3a134e ld a,(#4e13) 81d3 3c inc a 81d4 c39387 jp #8793 81d7 2e4e ld l,#4e 81d9 c3a194 jp #94a1 81dc 00 nop 81dd 21044e ld hl,#4e04 81e0 32964e ld (#4e96),a 81e3 218d96 ld hl,#968d 81e6 dd21ffff ld ix,#ffff 81ea ff rst #38 81eb ff rst #38 81ec ff rst #38 81ed ff rst #38 81ee ff rst #38 81ef ff rst #38 81f0 51 ld d,c 81f1 82 add a,d 81f2 a3 and e 81f3 82 add a,d 81f4 12 ld (de),a 81f5 83 add a,e 81f6 4c ld c,h 81f7 83 add a,e 81f8 69 ld l,c 81f9 85 add a,l 81fa 7c ld a,h 81fb 85 add a,l 81fc 95 sub l 81fd 83 add a,e 81fe f0 ret p 81ff 83 add a,e 8200 2b dec hl 8201 85 add a,l 8202 4a ld c,d 8203 85 add a,l 8204 69 ld l,c 8205 85 add a,l 8206 7c ld a,h 8207 85 add a,l 8208 51 ld d,c 8209 84 add a,h 820a 6d ld l,l 820b 84 add a,h 820c cf rst #8 820d 84 add a,h 820e fd84 add a,iyh 8210 89 adc a,c 8211 84 add a,h 8212 7c ld a,h 8213 85 add a,l 8214 94 sub h 8215 85 add a,l 8216 50 ld d,b 8217 82 add a,d 8218 50 ld d,b 8219 82 add a,d 821a 50 ld d,b 821b 82 add a,d 821c 50 ld d,b 821d 82 add a,d 821e 50 ld d,b 821f 82 add a,d 8220 50 ld d,b 8221 82 add a,d 8222 b0 or b 8223 85 add a,l 8224 50 ld d,b 8225 82 add a,d 8226 50 ld d,b 8227 82 add a,d 8228 50 ld d,b 8229 82 add a,d 822a 50 ld d,b 822b 82 add a,d 822c 50 ld d,b 822d 82 add a,d 822e 50 ld d,b 822f 82 add a,d 8230 cc8550 call z,#5085 8233 82 add a,d 8234 50 ld d,b 8235 82 add a,d 8236 50 ld d,b 8237 82 add a,d 8238 50 ld d,b 8239 82 add a,d 823a 50 ld d,b 823b 82 add a,d 823c 50 ld d,b 823d 82 add a,d 823e e8 ret pe 823f 85 add a,l 8240 50 ld d,b 8241 82 add a,d 8242 50 ld d,b 8243 82 add a,d 8244 50 ld d,b 8245 82 add a,d 8246 50 ld d,b 8247 82 add a,d 8248 50 ld d,b 8249 82 add a,d 824a 50 ld d,b 824b 82 add a,d 824c 04 inc b 824d 86 add a,(hl) 824e 50 ld d,b 824f 82 add a,d 8250 ff rst #38 8251 f1 pop af 8252 00 nop 8253 00 nop 8254 f3 di 8255 75 ld (hl),l 8256 86 add a,(hl) 8257 f201f0 jp p,#f001 825a 00 nop 825b 00 nop 825c 16f1 ld d,#f1 825e bd cp l 825f 52 ld d,d 8260 f228f6 jp p,#f628 8263 f216f0 jp p,#f016 8266 00 nop 8267 00 nop 8268 16f2 ld d,#f2 826a 16f6 ld d,#f6 826c f1 pop af 826d ff rst #38 826e 54 ld d,h 826f f3 di 8270 14 inc d 8271 86 add a,(hl) 8272 f27ff0 jp p,#f07f 8275 f0 ret p 8276 00 nop 8277 09 add hl,bc 8278 f27ff0 jp p,#f07f 827b f0 ret p 827c 00 nop 827d 09 add hl,bc 827e f1 pop af 827f 00 nop 8280 7f ld a,a 8281 f3 di 8282 1d dec e 8283 86 add a,(hl) 8284 f275f0 jp p,#f075 8287 1000 djnz #8289 ; (0) 8289 09 add hl,bc 828a f204f0 jp p,#f004 828d 10f0 djnz #827f ; (-16) 828f 09 add hl,bc 8290 f3 di 8291 2686 ld h,#86 8293 f230f0 jp p,#f030 8296 00 nop 8297 f0 ret p 8298 09 add hl,bc 8299 f3 di 829a 1d dec e 829b 86 add a,(hl) 829c f210f0 jp p,#f010 829f 00 nop 82a0 00 nop 82a1 09 add hl,bc 82a2 ff rst #38 82a3 f1 pop af 82a4 00 nop 82a5 00 nop 82a6 f3 di 82a7 7f ld a,a 82a8 86 add a,(hl) 82a9 f201f0 jp p,#f001 82ac 00 nop 82ad 00 nop 82ae 16f1 ld d,#f1 82b0 ad xor l 82b1 52 ld d,d 82b2 f228f6 jp p,#f628 82b5 f216f0 jp p,#f016 82b8 00 nop 82b9 00 nop 82ba 16f2 ld d,#f2 82bc 16f6 ld d,#f6 82be f1 pop af 82bf ff rst #38 82c0 54 ld d,h 82c1 f3 di 82c2 5c ld e,h 82c3 86 add a,(hl) 82c4 f22ff6 jp p,#f62f 82c7 f270f0 jp p,#f070 82ca ef rst #28 82cb 00 nop 82cc 05 dec b 82cd f274f0 jp p,#f074 82d0 ec0005 call pe,#0500 82d3 f1 pop af 82d4 00 nop 82d5 7f ld a,a 82d6 f3 di 82d7 63 ld h,e 82d8 86 add a,(hl) 82d9 f21cf6 jp p,#f61c 82dc f258f0 jp p,#f058 82df 1600 ld d,#00 82e1 05 dec b 82e2 f5 push af 82e3 10f2 djnz #82d7 ; (-14) 82e5 06f0 ld b,#f0 82e7 f8 ret m 82e8 f8 ret m 82e9 05 dec b 82ea f206f0 jp p,#f006 82ed f8 ret m 82ee 08 ex af,af' 82ef 05 dec b 82f0 f206f0 jp p,#f006 82f3 f8 ret m 82f4 f8 ret m 82f5 05 dec b 82f6 f206f0 jp p,#f006 82f9 f8 ret m 82fa 08 ex af,af' 82fb 05 dec b 82fc f1 pop af 82fd 00 nop 82fe 00 nop 82ff f3 di 8300 73 ld (hl),e 8301 86 add a,(hl) 8302 f201f0 jp p,#f001 8305 00 nop 8306 00 nop 8307 03 inc bc 8308 f1 pop af 8309 7f ld a,a 830a 3af240 ld a,(#40f2) 830d f0 ret p 830e 00 nop 830f 00 nop 8310 03 inc bc 8311 ff rst #38 8312 f25af6 jp p,#f65a 8315 f1 pop af 8316 00 nop 8317 a4 and h 8318 f3 di 8319 41 ld b,c 831a 86 add a,(hl) 831b f27ff0 jp p,#f07f 831e 1000 djnz #8320 ; (0) 8320 09 add hl,bc 8321 f27ff0 jp p,#f07f 8324 1000 djnz #8326 ; (0) 8326 09 add hl,bc 8327 f1 pop af 8328 ff rst #38 8329 7f ld a,a 832a f3 di 832b 3886 jr c,#82b3 ; (-122) 832d f276f0 jp p,#f076 8330 f0 ret p 8331 00 nop 8332 09 add hl,bc 8333 f204f0 jp p,#f004 8336 f0 ret p 8337 f0 ret p 8338 09 add hl,bc 8339 f3 di 833a 4a ld c,d 833b 86 add a,(hl) 833c f230f0 jp p,#f030 833f 00 nop 8340 f0 ret p 8341 09 add hl,bc 8342 f3 di 8343 3886 jr c,#82cb ; (-122) 8345 f210f0 jp p,#f010 8348 00 nop 8349 00 nop 834a 09 add hl,bc 834b ff rst #38 834c f25ff6 jp p,#f65f 834f f1 pop af 8350 01a4f3 ld bc,#f3a4 8353 63 ld h,e 8354 86 add a,(hl) 8355 f22ff6 jp p,#f62f 8358 f270f0 jp p,#f070 835b 110003 ld de,#0300 835e f274f0 jp p,#f074 8361 14 inc d 8362 00 nop 8363 03 inc bc 8364 f1 pop af 8365 ff rst #38 8366 7f ld a,a 8367 f3 di 8368 5c ld e,h 8369 86 add a,(hl) 836a f21cf6 jp p,#f61c 836d f258f0 jp p,#f058 8370 ea0003 jp pe,#0300 8373 f206f0 jp p,#f006 8376 08 ex af,af' 8377 f8 ret m 8378 03 inc bc 8379 f206f0 jp p,#f006 837c 08 ex af,af' 837d 08 ex af,af' 837e 03 inc bc 837f f206f0 jp p,#f006 8382 08 ex af,af' 8383 f8 ret m 8384 03 inc bc 8385 f206f0 jp p,#f006 8388 08 ex af,af' 8389 08 ex af,af' 838a 03 inc bc 838b f3 di 838c 71 ld (hl),c 838d 86 add a,(hl) 838e f210f0 jp p,#f010 8391 00 nop 8392 00 nop 8393 16ff ld d,#ff 8395 f25af6 jp p,#f65a 8398 f1 pop af 8399 ff rst #38 839a 34 inc (hl) 839b f3 di 839c 14 inc d 839d 86 add a,(hl) 839e f27ff6 jp p,#f67f 83a1 f224f6 jp p,#f624 83a4 f268f0 jp p,#f068 83a7 d8 ret c 83a8 00 nop 83a9 09 add hl,bc 83aa f27ff6 jp p,#f67f 83ad f218f6 jp p,#f618 83b0 f1 pop af 83b1 00 nop 83b2 94 sub h 83b3 f3 di 83b4 41 ld b,c 83b5 86 add a,(hl) 83b6 f268f0 jp p,#f068 83b9 2800 jr z,#83bb ; (0) 83bb 09 add hl,bc 83bc f27ff6 jp p,#f67f 83bf f1 pop af 83c0 fc7ff3 call m,#f37f 83c3 14 inc d 83c4 86 add a,(hl) 83c5 f218f6 jp p,#f618 83c8 f268f0 jp p,#f068 83cb d8 ret c 83cc 00 nop 83cd 09 add hl,bc 83ce f27ff6 jp p,#f67f 83d1 f218f6 jp p,#f618 83d4 f1 pop af 83d5 00 nop 83d6 54 ld d,h 83d7 f3 di 83d8 41 ld b,c 83d9 86 add a,(hl) 83da f220f0 jp p,#f020 83dd 70 ld (hl),b 83de 00 nop 83df 09 add hl,bc 83e0 f1 pop af 83e1 ff rst #38 83e2 b4 or h 83e3 f3 di 83e4 14 inc d 83e5 86 add a,(hl) 83e6 f210f6 jp p,#f610 83e9 f224f0 jp p,#f024 83ec 90 sub b 83ed 00 nop 83ee 09 add hl,bc 83ef ff rst #38 83f0 f263f6 jp p,#f663 83f3 f1 pop af 83f4 ff rst #38 83f5 34 inc (hl) 83f6 f3 di 83f7 3886 jr c,#837f ; (-122) 83f9 f224f6 jp p,#f624 83fc f27ff6 jp p,#f67f 83ff f218f6 jp p,#f618 8402 f257f0 jp p,#f057 8405 d0 ret nc 8406 00 nop 8407 09 add hl,bc 8408 f27ff6 jp p,#f67f 840b f228f6 jp p,#f628 840e f1 pop af 840f 00 nop 8410 94 sub h 8411 f3 di 8412 1d dec e 8413 86 add a,(hl) 8414 f258f0 jp p,#f058 8417 3000 jr nc,#8419 ; (0) 8419 09 add hl,bc 841a f27ff6 jp p,#f67f 841d f224f6 jp p,#f624 8420 f1 pop af 8421 ff rst #38 8422 7f ld a,a 8423 f3 di 8424 3886 jr c,#83ac ; (-122) 8426 f258f0 jp p,#f058 8429 d0 ret nc 842a 00 nop 842b 09 add hl,bc 842c f27ff6 jp p,#f67f 842f f220f6 jp p,#f620 8432 f1 pop af 8433 00 nop 8434 54 ld d,h 8435 f3 di 8436 1d dec e 8437 86 add a,(hl) 8438 f220f0 jp p,#f020 843b 70 ld (hl),b 843c 00 nop 843d 09 add hl,bc 843e f1 pop af 843f ff rst #38 8440 b4 or h 8441 f3 di 8442 3886 jr c,#83ca ; (-122) 8444 f210f6 jp p,#f610 8447 f224f0 jp p,#f024 844a 90 sub b 844b 00 nop 844c 09 add hl,bc 844d f27ff6 jp p,#f67f 8450 ff rst #38 8451 f25af6 jp p,#f65a 8454 f1 pop af 8455 00 nop 8456 60 ld h,b 8457 f3 di 8458 8d adc a,l 8459 86 add a,(hl) 845a f27ff0 jp p,#f07f 845d 0a ld a,(bc) 845e 00 nop 845f 16f2 ld d,#f2 8461 7f ld a,a 8462 f0 ret p 8463 1000 djnz #8465 ; (0) 8465 16f2 ld d,#f2 8467 30f0 jr nc,#8459 ; (-16) 8469 1000 djnz #846b ; (0) 846b 16ff ld d,#ff 846d f26ff6 jp p,#f66f 8470 f1 pop af 8471 00 nop 8472 60 ld h,b 8473 f3 di 8474 8f adc a,a 8475 86 add a,(hl) 8476 f26af0 jp p,#f06a 8479 0a ld a,(bc) 847a 00 nop 847b 16f2 ld d,#f2 847d 7f ld a,a 847e f0 ret p 847f 1000 djnz #8481 ; (0) 8481 16f2 ld d,#f2 8483 3af010 ld a,(#10f0) 8486 00 nop 8487 16ff ld d,#ff 8489 f3 di 848a 89 adc a,c 848b 86 add a,(hl) 848c f201f0 jp p,#f001 848f 00 nop 8490 00 nop 8491 16f1 ld d,#f1 8493 bd cp l 8494 62 ld h,d 8495 f25af6 jp p,#f65a 8498 f1 pop af 8499 05 dec b 849a 60 ld h,b 849b f3 di 849c 98 sbc a,b 849d 86 add a,(hl) 849e f27ff0 jp p,#f07f 84a1 0a ld a,(bc) 84a2 00 nop 84a3 16f2 ld d,#f2 84a5 7f ld a,a 84a6 f0 ret p 84a7 060c ld b,#0c 84a9 16f2 ld d,#f2 84ab 06f0 ld b,#f0 84ad 06f0 ld b,#f0 84af 16f2 ld d,#f2 84b1 0c inc c 84b2 f0 ret p 84b3 03 inc bc 84b4 09 add hl,bc 84b5 16f2 ld d,#f2 84b7 05 dec b 84b8 f0 ret p 84b9 05 dec b 84ba f616 or #16 84bc f20af0 jp p,#f00a 84bf 04 inc b 84c0 03 inc bc 84c1 16f3 ld d,#f3 84c3 9a sbc a,d 84c4 86 add a,(hl) 84c5 f201f0 jp p,#f001 84c8 00 nop 84c9 00 nop 84ca 16f2 ld d,#f2 84cc 20f6 jr nz,#84c4 ; (-10) 84ce ff rst #38 84cf f1 pop af 84d0 00 nop 84d1 00 nop 84d2 f3 di 84d3 75 ld (hl),l 84d4 86 add a,(hl) 84d5 f201f0 jp p,#f001 84d8 00 nop 84d9 00 nop 84da 16f1 ld d,#f1 84dc bd cp l 84dd 52 ld d,d 84de f228f6 jp p,#f628 84e1 f216f0 jp p,#f016 84e4 00 nop 84e5 00 nop 84e6 16f2 ld d,#f2 84e8 16f6 ld d,#f6 84ea f1 pop af 84eb 00 nop 84ec 00 nop 84ed f3 di 84ee 3886 jr c,#8476 ; (-122) 84f0 f201f0 jp p,#f001 84f3 00 nop 84f4 00 nop 84f5 09 add hl,bc 84f6 f1 pop af 84f7 c0 ret nz 84f8 c0 ret nz 84f9 f230f6 jp p,#f630 84fc ff rst #38 84fd f1 pop af 84fe 00 nop 84ff 00 nop 8500 f3 di 8501 7f ld a,a 8502 86 add a,(hl) 8503 f201f0 jp p,#f001 8506 00 nop 8507 00 nop 8508 16f1 ld d,#f1 850a ad xor l 850b 52 ld d,d 850c f228f6 jp p,#f628 850f f216f0 jp p,#f016 8512 00 nop 8513 00 nop 8514 16f2 ld d,#f2 8516 16f6 ld d,#f6 8518 f1 pop af 8519 00 nop 851a 00 nop 851b f3 di 851c 14 inc d 851d 86 add a,(hl) 851e f201f0 jp p,#f001 8521 00 nop 8522 00 nop 8523 09 add hl,bc 8524 f1 pop af 8525 d0 ret nc 8526 c0 ret nz 8527 f230f6 jp p,#f630 852a ff rst #38 852b f1 pop af 852c 00 nop 852d 00 nop 852e f3 di 852f 75 ld (hl),l 8530 86 add a,(hl) 8531 f201f0 jp p,#f001 8534 00 nop 8535 00 nop 8536 16f1 ld d,#f1 8538 bd cp l 8539 52 ld d,d 853a f228f6 jp p,#f628 853d f216f0 jp p,#f016 8540 00 nop 8541 00 nop 8542 16f2 ld d,#f2 8544 16f6 ld d,#f6 8546 f1 pop af 8547 00 nop 8548 00 nop 8549 ff rst #38 854a f1 pop af 854b 00 nop 854c 00 nop 854d f3 di 854e 7f ld a,a 854f 86 add a,(hl) 8550 f201f0 jp p,#f001 8553 00 nop 8554 00 nop 8555 16f1 ld d,#f1 8557 ad xor l 8558 52 ld d,d 8559 f228f6 jp p,#f628 855c f216f0 jp p,#f016 855f 00 nop 8560 00 nop 8561 16f2 ld d,#f2 8563 16f6 ld d,#f6 8565 f1 pop af 8566 00 nop 8567 00 nop 8568 ff rst #38 8569 f3 di 856a 89 adc a,c 856b 86 add a,(hl) 856c f201f0 jp p,#f001 856f 00 nop 8570 00 nop 8571 16f1 ld d,#f1 8573 bd cp l 8574 62 ld h,d 8575 f25af6 jp p,#f65a 8578 f1 pop af 8579 00 nop 857a 00 nop 857b ff rst #38 857c f3 di 857d 8b adc a,e 857e 86 add a,(hl) 857f f201f0 jp p,#f001 8582 00 nop 8583 00 nop 8584 16f1 ld d,#f1 8586 ad xor l 8587 62 ld h,d 8588 f239f6 jp p,#f639 858b f7 rst #30 858c f21ef6 jp p,#f61e 858f f8 ret m 8590 f1 pop af 8591 00 nop 8592 00 nop 8593 ff rst #38 8594 f1 pop af 8595 00 nop 8596 94 sub h 8597 f3 di 8598 63 ld h,e 8599 86 add a,(hl) 859a f270f0 jp p,#f070 859d 1000 djnz #859f ; (0) 859f 01f250 ld bc,#50f2 85a2 f0 ret p 85a3 1000 djnz #85a5 ; (0) 85a5 01f36a ld bc,#6af3 85a8 86 add a,(hl) 85a9 f248f0 jp p,#f048 85ac 00 nop 85ad f0 ret p 85ae 01fff1 ld bc,#f1ff 85b1 00 nop 85b2 94 sub h 85b3 f3 di 85b4 63 ld h,e 85b5 86 add a,(hl) 85b6 f270f0 jp p,#f070 85b9 1000 djnz #85bb ; (0) 85bb 03 inc bc 85bc f250f0 jp p,#f050 85bf 1000 djnz #85c1 ; (0) 85c1 03 inc bc 85c2 f3 di 85c3 6a ld l,d 85c4 86 add a,(hl) 85c5 f238f0 jp p,#f038 85c8 00 nop 85c9 f0 ret p 85ca 03 inc bc 85cb ff rst #38 85cc f1 pop af 85cd 00 nop 85ce 94 sub h 85cf f3 di 85d0 63 ld h,e 85d1 86 add a,(hl) 85d2 f270f0 jp p,#f070 85d5 1000 djnz #85d7 ; (0) 85d7 05 dec b 85d8 f250f0 jp p,#f050 85db 1000 djnz #85dd ; (0) 85dd 05 dec b 85de f3 di 85df 6a ld l,d 85e0 86 add a,(hl) 85e1 f228f0 jp p,#f028 85e4 00 nop 85e5 f0 ret p 85e6 05 dec b 85e7 ff rst #38 85e8 f1 pop af 85e9 00 nop 85ea 94 sub h 85eb f3 di 85ec 63 ld h,e 85ed 86 add a,(hl) 85ee f270f0 jp p,#f070 85f1 1000 djnz #85f3 ; (0) 85f3 07 rlca 85f4 f250f0 jp p,#f050 85f7 1000 djnz #85f9 ; (0) 85f9 07 rlca 85fa f3 di 85fb 6a ld l,d 85fc 86 add a,(hl) 85fd f218f0 jp p,#f018 8600 00 nop 8601 f0 ret p 8602 07 rlca 8603 ff rst #38 8604 f1 pop af 8605 00 nop 8606 94 sub h 8607 f3 di 8608 41 ld b,c 8609 86 add a,(hl) 860a f272f0 jp p,#f072 860d 1000 djnz #860f ; (0) 860f 09 add hl,bc 8610 f27ff6 jp p,#f67f 8613 ff rst #38 8614 1b dec de 8615 1b dec de 8616 19 add hl,de 8617 19 add hl,de 8618 1b dec de 8619 1b dec de 861a 3232ff ld (#ff32),a 861d 9b sbc a,e 861e 9b sbc a,e 861f 99 sbc a,c 8620 99 sbc a,c 8621 9b sbc a,e 8622 9b sbc a,e 8623 b2 or d 8624 b2 or d 8625 ff rst #38 8626 6e ld l,(hl) 8627 6e ld l,(hl) 8628 5a ld e,d 8629 5a ld e,d 862a 6e ld l,(hl) 862b 6e ld l,(hl) 862c 72 ld (hl),d 862d 72 ld (hl),d 862e ff rst #38 862f eeee xor #ee 8631 dadaee jp c,#eeda 8634 eef2 xor #f2 8636 f2ff37 jp p,#37ff 8639 37 scf 863a 2d dec l 863b 2d dec l 863c 37 scf 863d 37 scf 863e 2f cpl 863f 2f cpl 8640 ff rst #38 8641 b7 or a 8642 b7 or a 8643 ad xor l 8644 ad xor l 8645 b7 or a 8646 b7 or a 8647 af xor a 8648 af xor a 8649 ff rst #38 864a 3636 ld (hl),#36 864c f1 pop af 864d f1 pop af 864e 3636 ld (hl),#36 8650 f3 di 8651 f3 di 8652 ff rst #38 8653 34 inc (hl) 8654 34 inc (hl) 8655 313134 ld sp,#3431 8658 34 inc (hl) 8659 33 inc sp 865a 33 inc sp 865b ff rst #38 865c a4 and h 865d a4 and h 865e a4 and h 865f a5 and l 8660 a5 and l 8661 a5 and l 8662 ff rst #38 8663 24 inc h 8664 24 inc h 8665 24 inc h 8666 25 dec h 8667 25 dec h 8668 25 dec h 8669 ff rst #38 866a 2626 ld h,#26 866c 2627 ld h,#27 866e 27 daa 866f 27 daa 8670 ff rst #38 8671 1f rra 8672 ff rst #38 8673 1eff ld e,#ff 8675 1010 djnz #8687 ; (16) 8677 1014 djnz #868d ; (20) 8679 14 inc d 867a 14 inc d 867b 1616 ld d,#16 867d 16ff ld d,#ff 867f 111111 ld de,#1111 8682 15 dec d 8683 15 dec d 8684 15 dec d 8685 17 rla 8686 17 rla 8687 17 rla 8688 ff rst #38 8689 12 ld (de),a 868a ff rst #38 868b 13 inc de 868c ff rst #38 868d 30ff jr nc,#868e ; (-1) 868f 1818 jr #86a9 ; (24) 8691 1818 jr #86ab ; (24) 8693 2c inc l 8694 2c inc l 8695 2c inc l 8696 2c inc l 8697 ff rst #38 8698 07 rlca 8699 ff rst #38 869a 0f rrca 869b ff rst #38 869c 3a094d ld a,(#4d09) 869f e607 and #07 86a1 cb3f srl a 86a3 2f cpl 86a4 1e30 ld e,#30 86a6 83 add a,e 86a7 cb47 bit 0,a 86a9 2002 jr nz,#86ad ; (2) 86ab 3e37 ld a,#37 86ad 320a4c ld (#4c0a),a 86b0 c9 ret 86b1 3a084d ld a,(#4d08) 86b4 e607 and #07 86b6 cb3f srl a 86b8 1e30 ld e,#30 86ba 83 add a,e 86bb cb47 bit 0,a 86bd 2002 jr nz,#86c1 ; (2) 86bf 3e34 ld a,#34 86c1 320a4c ld (#4c0a),a 86c4 c9 ret 86c5 3a094d ld a,(#4d09) 86c8 e607 and #07 86ca cb3f srl a 86cc 1eac ld e,#ac 86ce 83 add a,e 86cf cb47 bit 0,a 86d1 2002 jr nz,#86d5 ; (2) 86d3 3e35 ld a,#35 86d5 320a4c ld (#4c0a),a 86d8 c9 ret 86d9 3a084d ld a,(#4d08) 86dc e607 and #07 86de cb3f srl a 86e0 2f cpl 86e1 1ef4 ld e,#f4 86e3 83 add a,e 86e4 cb47 bit 0,a 86e6 2002 jr nz,#86ea ; (2) 86e8 3e36 ld a,#36 86ea 320a4c ld (#4c0a),a 86ed c9 ret 86ee 3aa44d ld a,(#4da4) 86f1 a7 and a 86f2 c0 ret nz 86f3 3ad44d ld a,(#4dd4) 86f6 a7 and a 86f7 ca4787 jp z,#8747 86fa 3ad24d ld a,(#4dd2) 86fd a7 and a 86fe ca4787 jp z,#8747 8701 3a414c ld a,(#4c41) 8704 47 ld b,a 8705 214188 ld hl,#8841 8708 df rst #18 8709 ed5bd24d ld de,(#4dd2) 870d 19 add hl,de 870e 22d24d ld (#4dd2),hl 8711 21414c ld hl,#4c41 8714 34 inc (hl) 8715 7e ld a,(hl) 8716 e60f and #0f 8718 c0 ret nz 8719 21404c ld hl,#4c40 871c 35 dec (hl) 871d fab587 jp m,#87b5 8720 7e ld a,(hl) 8721 57 ld d,a 8722 cb3f srl a 8724 cb3f srl a 8726 21bc4e ld hl,#4ebc 8729 cbee set 5,(hl) 872b 2a424c ld hl,(#4c42) 872e d7 rst #10 872f 4f ld c,a 8730 3e03 ld a,#03 8732 a2 and d 8733 2807 jr z,#873c ; (7) 8735 cb39 srl c 8737 cb39 srl c 8739 3d dec a 873a 20f9 jr nz,#8735 ; (-7) 873c 3e03 ld a,#03 873e a1 and c 873f 07 rlca 8740 07 rlca 8741 07 rlca 8742 07 rlca 8743 32414c ld (#4c41),a 8746 c9 ret 8747 3a0e4e ld a,(#4e0e) 874a fe40 cp #40 874c ca5887 jp z,#8758 874f feb0 cp #b0 8751 c0 ret nz 8752 210d4e ld hl,#4e0d 8755 c35b87 jp #875b 8758 210c4e ld hl,#4e0c 875b 7e ld a,(hl) 875c a7 and a 875d c0 ret nz 875e 34 inc (hl) 875f 3a134e ld a,(#4e13) 8762 fe07 cp #07 8764 380a jr c,#8770 ; (10) 8766 0607 ld b,#07 ;; selector for random fruits ;; uses r register to get a random number 8768 ed5f ld a,r 876a e61f and #1f 876c 90 sub b 876d 30fd jr nc,#876c ; (-3) 876f 80 add a,b 8770 219d87 ld hl,#879d 8773 47 ld b,a 8774 87 add a,a 8775 80 add a,b 8776 d7 rst #10 8777 320c4c ld (#4c0c),a 877a 23 inc hl 877b 7e ld a,(hl) 877c 320d4c ld (#4c0d),a 877f 23 inc hl 8780 7e ld a,(hl) 8781 32d44d ld (#4dd4),a 8784 21f887 ld hl,#87f8 8787 cdcd87 call #87cd 878a 23 inc hl 878b 5e ld e,(hl) 878c 23 inc hl 878d 56 ld d,(hl) 878e ed53d24d ld (#4dd2),de 8792 c9 ret 8793 fe08 cp #08 8795 daf92b jp c,#2bf9 8798 3e07 ld a,#07 879a c3f92b jp #2bf9 ;; fruit shape/color/points table offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008790 00 14 06 000087a0 01 0f 07 02 15 08 03 07 09 04 14 0a 05 15 0b 06 000087b0 16 0c 07 00 0d 87b5 3ad34d ld a,(#4dd3) 87b8 c620 add a,#20 87ba fe40 cp #40 87bc 3852 jr c,#8810 ; (82) 87be 2a424c ld hl,(#4c42) 87c1 110888 ld de,#8808 87c4 37 scf 87c5 3f ccf 87c6 ed52 sbc hl,de 87c8 2023 jr nz,#87ed ; (35) 87ca 210088 ld hl,#8800 87cd cdbd94 call #94bd 87d0 69 ld l,c 87d1 60 ld h,b 87d2 ed5f ld a,r 87d4 e603 and #03 87d6 47 ld b,a 87d7 87 add a,a 87d8 87 add a,a 87d9 80 add a,b 87da d7 rst #10 87db 5f ld e,a 87dc 23 inc hl 87dd 56 ld d,(hl) 87de ed53424c ld (#4c42),de 87e2 23 inc hl 87e3 7e ld a,(hl) 87e4 32404c ld (#4c40),a 87e7 3e1f ld a,#1f 87e9 32414c ld (#4c41),a 87ec c9 ret 87ed 210888 ld hl,#8808 87f0 22424c ld (#4c42),hl 87f3 3e1d ld a,#1d 87f5 c3e487 jp #87e4 87f8 4f ld c,a 87f9 8b adc a,e 87fa 40 ld b,b 87fb 8e adc a,(hl) 87fc 1a ld a,(de) 87fd 91 sub c 87fe 0a ld a,(bc) 87ff 94 sub h 8800 82 add a,d 8801 8b adc a,e 8802 73 ld (hl),e 8803 8e adc a,(hl) 8804 42 ld b,d 8805 91 sub c 8806 3c inc a 8807 94 sub h 8808 faff55 jp m,#55ff 880b 55 ld d,l 880c 0180aa ld bc,#aa80 880f 02 ld (bc),a 8810 3e00 ld a,#00 8812 320d4c ld (#4c0d),a 8815 c30010 jp #1000 8818 f5 push af 8819 ed5bd24d ld de,(#4dd2) 881d 7c ld a,h 881e 92 sub d 881f c603 add a,#03 8821 fe06 cp #06 8823 3018 jr nc,#883d ; (24) 8825 7d ld a,l 8826 93 sub e 8827 c603 add a,#03 8829 fe06 cp #06 882b 3010 jr nc,#883d ; (16) 882d 3e01 ld a,#01 882f 320d4c ld (#4c0d),a 8832 f1 pop af 8833 c602 add a,#02 8835 320c4c ld (#4c0c),a 8838 d602 sub #02 883a c3b219 jp #19b2 883d f1 pop af 883e c3cd19 jp #19cd 8841 ff rst #38 8842 ff rst #38 8843 ff rst #38 8844 ff rst #38 8845 ff rst #38 8846 ff rst #38 8847 ff rst #38 8848 ff rst #38 8849 ff rst #38 884a ff rst #38 884b ff rst #38 884c ff rst #38 884d ff rst #38 884e ff rst #38 884f ff rst #38 8850 ff rst #38 8851 ff rst #38 8852 ff rst #38 8853 00 nop 8854 00 nop 8855 ff rst #38 8856 ff rst #38 8857 00 nop 8858 00 nop 8859 00 nop 885a 00 nop 885b 010000 ld bc,#0000 885e 00 nop 885f 010000 ld bc,#0000 8862 00 nop 8863 ff rst #38 8864 fe00 cp #00 8866 00 nop 8867 00 nop 8868 ff rst #38 8869 00 nop 886a 00 nop 886b ff rst #38 886c fe00 cp #00 886e 00 nop 886f 00 nop 8870 ff rst #38 8871 00 nop 8872 00 nop 8873 00 nop 8874 ff rst #38 8875 00 nop 8876 00 nop 8877 00 nop 8878 ff rst #38 8879 00 nop 887a 00 nop 887b 01ff01 ld bc,#01ff 887e ff rst #38 887f 00 nop 8880 00 nop 8881 00 nop 8882 00 nop 8883 00 nop 8884 00 nop 8885 ff rst #38 8886 00 nop 8887 00 nop 8888 00 nop 8889 00 nop 888a 010000 ld bc,#0000 888d ff rst #38 888e 00 nop 888f 00 nop 8890 00 nop 8891 00 nop 8892 010000 ld bc,#0000 8895 00 nop 8896 010000 ld bc,#0000 8899 00 nop 889a 010000 ld bc,#0000 889d 010101 ld bc,#0101 88a0 010000 ld bc,#0000 88a3 010001 ld bc,#0100 88a6 00 nop 88a7 010001 ld bc,#0100 88aa 00 nop 88ab 010001 ld bc,#0100 88ae 00 nop 88af 010001 ld bc,#0100 88b2 00 nop 88b3 010001 ld bc,#0100 88b6 00 nop 88b7 0100ff ld bc,#ff00 88ba ff rst #38 88bb ff rst #38 88bc ff rst #38 88bd 00 nop 88be 00 nop 88bf ff rst #38 88c0 ff rst #38 ;; Maze Table 1 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 000088c0 40 fc d0 d2 d2 d2 d2 d4 fc da 02 dc fc fc fc 000088d0 fc fc fc da 02 dc fc fc fc d0 d2 d2 d2 d2 d2 d2 000088e0 d2 d4 fc da 05 dc fc da 02 dc fc fc fc fc fc fc 000088f0 da 02 dc fc fc fc da 08 dc fc da 02 e6 ea 02 e7 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008900 d2 eb 02 e7 d2 d2 d2 d2 d2 d2 eb 02 e7 d2 d2 d2 00008910 eb 02 e6 e8 e8 e8 ea 02 dc fc da 02 de e4 15 de 00008920 c0 c0 c0 e4 02 dc fc da 02 de e4 02 e6 e8 e8 e8 00008930 e8 ea 02 e6 e8 e8 e8 ea 02 e6 ea 02 e6 ea 02 de 00008940 c0 c0 c0 e4 02 dc fc da 02 e7 eb 02 e7 e9 e9 e9 00008950 f5 e4 02 de f3 e9 e9 eb 02 de e4 02 de e4 02 e7 00008960 e9 e9 e9 eb 02 dc fc da 09 de e4 02 de e4 05 de 00008970 e4 02 de e4 08 dc fc fa e8 e8 ea 02 e6 e8 ea 02 00008980 de e4 02 de e4 02 e6 e8 e8 f4 e4 02 de e4 02 e6 00008990 e8 e8 e8 ea 02 dc fc fb e9 e9 eb 02 de c0 e4 02 000089a0 e7 eb 02 e7 eb 02 e7 e9 e9 f5 e4 02 e7 eb 02 de 000089b0 f3 e9 e9 eb 02 dc fc da 05 de c0 e4 0b de e4 05 000089c0 de e4 05 dc fc da 02 e6 ea 02 de c0 e4 02 e6 ea 000089d0 02 ec d3 d3 d3 ee 02 de e4 02 e6 ea 02 de e4 02 000089e0 e6 ea 02 dc fc da 02 de e4 02 e7 e9 eb 02 de e4 000089f0 02 dc fc fc fc da 02 e7 eb 02 de e4 02 e7 eb 02 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008a00 de e4 02 dc fc da 02 de e4 06 de e4 02 f0 fc fc 00008a10 fc da 05 de e4 05 de e4 02 dc fc da 02 de e4 02 00008a20 e6 e8 e8 e8 f4 e4 02 ce fc fc fc da 02 e6 e8 e8 00008a30 f4 e4 02 e6 e8 e8 f4 e4 02 dc 00 ;; Pellet table 1 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008a30 62 02 01 13 01 00008a40 01 01 02 01 04 03 13 06 04 03 01 01 01 01 01 01 00008a50 01 01 01 01 01 01 01 01 01 01 01 01 01 06 04 03 00008a60 10 03 06 04 03 10 03 06 04 01 01 01 01 01 01 01 00008a70 0c 03 01 01 01 01 01 01 07 04 0c 03 06 07 04 0c 00008a80 03 06 04 01 01 01 04 0c 01 01 01 03 01 01 01 04 00008a90 03 04 0f 03 03 04 03 04 0f 03 03 04 03 01 01 01 00008aa0 01 0f 01 01 01 03 04 03 19 04 03 19 04 03 01 01 00008ab0 01 01 0f 01 01 01 03 04 03 04 0f 03 03 04 03 04 00008ac0 0f 03 03 04 01 01 01 04 0c 01 01 01 03 01 01 01 00008ad0 07 04 0c 03 06 07 04 0c 03 06 04 01 01 01 01 01 00008ae0 01 01 0c 03 01 01 01 01 01 01 04 03 10 03 06 04 00008af0 03 10 03 06 04 03 01 01 01 01 01 01 01 01 01 01 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008b00 01 01 01 01 01 01 01 01 01 06 04 03 13 06 04 02 00008b10 01 13 01 01 01 02 01 00 00 00 00 00 00 00 00 00 00008b20 00 00 00 00 00 00 00 00 00 00 00 00 ;; number of pellets to eat for map 1 8b2c e0 ;; unknown 8b2d 1d221d39 8b31 4020403b ;; Power Pellet Table 1 (locations) ;; 4063, 407c, 4383, 439c 8b35 63 40 8b37 7c 40 8b39 83 43 8b3b 9c 43 ;; unknown 8b3d 49 ld c,c 8b3e 09 add hl,bc 8b3f 17 rla 8b40 09 add hl,bc 8b41 17 rla 8b42 09 add hl,bc 8b43 0ee0 ld c,#e0 8b45 e0 ret po 8b46 e0 ret po 8b47 29 add hl,hl 8b48 09 add hl,bc 8b49 17 rla 8b4a 09 add hl,bc 8b4b 17 rla 8b4c 09 add hl,bc 8b4d 00 nop 8b4e 00 nop ;; fruit paths for map 1: $8b4f-$8b81 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008b40 63 00008b50 8b 13 94 0c 68 8b 22 94 f4 71 8b 27 4c f4 7b 8b 00008b60 1c 4c 0c 80 aa aa bf aa 80 0a 54 55 55 55 ff 5f 00008b70 55 ea ff 57 55 f5 57 ff 15 40 55 ea af 02 ea ff 00008b80 ff aa ;; unknown 8b82 94 sub h 8b83 8b adc a,e 8b84 14 inc d 8b85 00 nop 8b86 00 nop 8b87 99 sbc a,c 8b88 8b adc a,e 8b89 17 rla 8b8a 00 nop 8b8b 00 nop 8b8c 9f sbc a,a 8b8d 8b adc a,e 8b8e 1a ld a,(de) 8b8f 00 nop 8b90 00 nop 8b91 a6 and (hl) 8b92 8b adc a,e 8b93 1d dec e 8b94 55 ld d,l 8b95 40 ld b,b 8b96 55 ld d,l 8b97 55 ld d,l 8b98 bf cp a 8b99 aa xor d 8b9a 80 add a,b 8b9b aa xor d 8b9c aa xor d 8b9d bf cp a 8b9e aa xor d 8b9f aa xor d 8ba0 80 add a,b 8ba1 aa xor d 8ba2 02 ld (bc),a 8ba3 80 add a,b 8ba4 aa xor d 8ba5 aa xor d 8ba6 55 ld d,l 8ba7 00 nop 8ba8 00 nop 8ba9 00 nop 8baa 55 ld d,l 8bab 55 ld d,l 8bac fdaa xor d ;; Maze Table 2 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008ba0 40 fc 00008bb0 da 02 de d8 d2 d2 d2 d2 d2 d2 d2 d6 d8 d2 d2 d2 00008bc0 d2 d4 fc fc fc fc da 02 de d8 d2 d2 d2 d2 d4 fc 00008bd0 da 02 de e4 08 de e4 05 dc fc fc fc fc da 02 de 00008be0 e4 05 dc fc da 02 de e4 02 e6 e8 e8 e8 ea 02 de 00008bf0 e4 02 e6 ea 02 e7 d2 d2 d2 d2 eb 02 e7 eb 02 e6 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008c00 ea 02 dc fc da 02 de e4 02 de f3 e9 e9 eb 02 de 00008c10 e4 02 de e4 0c de e4 02 dc fc da 02 de e4 02 de 00008c20 e4 05 de e4 02 de f2 e8 e8 e8 ea 02 e6 ea 02 e6 00008c30 e8 e8 f4 e4 02 dc fc da 02 e7 eb 02 de e4 02 e6 00008c40 ea 02 e7 eb 02 e7 e9 e9 e9 e9 eb 02 de e4 02 e7 00008c50 e9 e9 e9 eb 02 dc fc da 05 de e4 02 de e4 0c de 00008c60 e4 08 dc fc fa e8 e8 ea 02 de e4 02 de f2 e8 e8 00008c70 e8 e8 ea 02 e6 e8 e8 ea 02 de f2 e8 e8 ea 02 e6 00008c80 ea 02 dc fc fb e9 e9 eb 02 e7 eb 02 e7 e9 e9 e9 00008c90 e9 e9 eb 02 e7 e9 f5 e4 02 de f3 e9 e9 eb 02 de 00008ca0 e4 02 dc fc da 12 de e4 02 de e4 05 de e4 02 dc 00008cb0 fc da 02 e6 ea 02 e6 e8 e8 e8 e8 ea 02 ec d3 d3 00008cc0 d3 ee 02 e7 eb 02 e7 eb 02 e6 ea 02 de e4 02 dc 00008cd0 fc da 02 de e4 02 e7 e9 e9 e9 f5 e4 02 dc fc fc 00008ce0 fc da 08 de e4 02 e7 eb 02 dc fc da 02 de e4 06 00008cf0 de e4 02 f0 fc fc fc da 02 e6 e8 e8 e8 ea 02 de offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008d00 e4 05 dc fc da 02 de f2 e8 e8 e8 ea 02 de e4 02 00008d10 ce fc fc fc da 02 de c0 c0 c0 e4 02 de f2 e8 e8 00008d20 ea 02 dc 00 00 00 00 66 ;; Pellet table 2 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008d20 01 01 01 01 01 03 01 01 00008d30 01 0b 01 01 07 06 03 03 0a 03 07 06 03 03 01 01 00008d40 01 01 01 01 01 01 01 01 03 07 03 01 01 01 03 07 00008d50 03 06 07 03 03 03 07 03 06 07 03 03 01 01 01 01 00008d60 01 01 01 01 01 01 03 01 01 01 01 01 01 07 03 0d 00008d70 06 03 07 03 0d 06 03 04 01 01 01 01 01 01 0d 03 00008d80 01 01 01 03 04 03 10 03 03 03 04 03 10 01 01 01 00008d90 03 03 04 03 01 01 01 01 12 01 01 01 04 07 15 04 00008da0 07 15 04 03 01 01 01 01 12 01 01 01 04 03 10 01 00008db0 01 01 03 03 04 03 10 03 03 03 04 01 01 01 01 01 00008dc0 01 0d 03 01 01 01 03 07 03 0d 06 03 07 03 0d 06 00008dd0 03 07 03 03 01 01 01 01 01 01 01 01 01 01 03 01 00008de0 01 01 01 01 01 07 03 03 03 07 03 06 07 03 01 01 00008df0 01 03 07 03 06 07 06 03 03 01 01 01 01 01 01 01 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008e00 01 01 01 03 07 06 03 03 0a 03 08 01 01 01 01 01 00008e10 03 01 01 01 0b 01 01 ;; number of pellets to eat for map 2 8e17 f4 ;; unknown 8e18 1d dec e 8e19 221d39 ld (#391d),hl 8e1c 40 ld b,b 8e1d 2040 jr nz,#8e5f ; (64) 8e1f 3b dec sp ;; Power Pellet Table 2 ;; 4065, 407b, 4385, 439b 8e20 65 40 8e22 7b 40 8e24 85 43 8e26 9b 43 ;; unknown 8e28 42 ld b,d 8e29 160a ld d,#0a 8e2b 160a ld d,#0a 8e2d 160a ld d,#0a 8e2f 2020 jr nz,#8e51 ; (32) 8e31 20de jr nz,#8e11 ; (-34) 8e33 e0 ret po ;; fruit paths for map 2: $8E40-8E72 for map2 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008e30 22 20 20 20 20 16 0a 16 0a 16 00 00 00008e40 54 8e 13 c4 0c 59 8e 1e c4 f4 61 8e 26 14 f4 6b 00008e50 8e 1d 14 0c 02 aa aa 80 2a 02 40 55 7f 55 15 50 00008e60 05 ea ff 57 55 f5 ff 57 7f 55 05 ea ff ff ff ea 00008e70 af aa 02 ;; unknown 8e73 87 add a,a 8e74 8e adc a,(hl) 8e75 12 ld (de),a 8e76 00 nop 8e77 00 nop 8e78 8c adc a,h 8e79 8e adc a,(hl) 8e7a 1d dec e 8e7b 00 nop 8e7c 00 nop 8e7d 94 sub h 8e7e 8e adc a,(hl) 8e7f 210000 ld hl,#0000 8e82 9d sbc a,l 8e83 8e adc a,(hl) 8e84 2c inc l 8e85 00 nop 8e86 00 nop 8e87 55 ld d,l 8e88 7f ld a,a 8e89 55 ld d,l 8e8a d5 push de 8e8b ff rst #38 8e8c aa xor d 8e8d bf cp a 8e8e aa xor d 8e8f 2aa0ea ld hl,(#eaa0) 8e92 ff rst #38 8e93 ff rst #38 8e94 aa xor d 8e95 2aa002 ld hl,(#02a0) 8e98 00 nop 8e99 00 nop 8e9a a0 and b 8e9b aa xor d 8e9c 02 ld (bc),a 8e9d 55 ld d,l 8e9e 15 dec d 8e9f a0 and b 8ea0 2a0054 ld hl,(#5400) 8ea3 05 dec b 8ea4 00 nop 8ea5 00 nop 8ea6 55 ld d,l 8ea7 fd ; garbage ;; Maze Table 3 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008ea0 40 fc d0 d2 d2 d2 d2 d2 00008eb0 d2 d6 e4 02 e7 d2 d2 d2 d2 d2 d2 d2 d2 d2 d2 d6 00008ec0 d8 d2 d2 d2 d2 d2 d2 d2 d4 fc da 07 de e4 0d de 00008ed0 e4 08 dc fc da 02 e6 e8 e8 ea 02 de e4 02 e6 e8 00008ee0 e8 ea 02 e6 e8 e8 e8 ea 02 e7 eb 02 e6 ea 02 e6 00008ef0 ea 02 dc fc da 02 de f3 e9 eb 02 e7 eb 02 e7 e9 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00008f00 f5 e4 02 e7 e9 e9 f5 e4 05 de e4 02 de e4 02 dc 00008f10 fc da 02 de e4 09 de e4 05 de e4 02 e6 e8 e8 f4 00008f20 e4 02 de e4 02 dc fc da 02 de e4 02 e6 e8 e8 e8 00008f30 e8 ea 02 e7 eb 02 e6 ea 02 e7 eb 02 e7 e9 e9 e9 00008f40 eb 02 e7 eb 02 dc fc da 02 de e4 02 e7 e9 e9 e9 00008f50 f5 e4 05 de e4 0e dc fc da 02 de e4 06 de e4 02 00008f60 e6 e8 e8 f4 e4 02 e6 e8 e8 e8 ea 02 e6 e8 e8 e8 00008f70 e8 e8 f4 fc da 02 e7 eb 02 e6 e8 ea 02 e7 eb 02 00008f80 e7 e9 e9 e9 eb 02 de f3 e9 e9 eb 02 de f3 e9 e9 00008f90 e9 e9 f5 fc da 05 de c0 e4 0b de e4 05 de e4 05 00008fa0 dc fc fa e8 e8 ea 02 de c0 e4 02 e6 ea 02 ec d3 00008fb0 d3 d3 ee 02 de e4 02 e6 ea 02 de e4 02 e6 ea 02 00008fc0 dc fc fb e9 e9 eb 02 e7 e9 eb 02 de e4 02 dc fc 00008fd0 fc fc da 02 e7 eb 02 de e4 02 e7 eb 02 de e4 02 00008fe0 dc fc da 09 de e4 02 f0 fc fc fc da 05 de e4 05 00008ff0 de e4 02 dc fc da 02 e6 e8 e8 e8 e8 ea 02 de e4 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00009000 02 ce fc fc fc da 02 e6 e8 e8 f4 e4 02 e6 e8 e8 00009010 f4 e4 02 dc 00 00 00 00 ;; Pellet table 3 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00009000 e8 e8 f4 e4 02 e6 e8 e8 00009010 f4 e4 02 dc 00 00 00 00 62 01 02 01 01 03 01 01 00009020 01 01 01 01 01 01 01 01 01 04 01 01 01 01 01 04 00009030 05 03 0b 03 03 03 04 05 03 0b 01 01 01 03 03 04 00009040 03 01 01 01 01 01 0b 06 03 04 03 10 06 03 04 03 00009050 10 01 01 01 01 01 01 01 01 01 04 03 01 01 01 01 00009060 0f 0a 03 04 0f 0a 01 01 01 04 0c 01 01 01 03 01 00009070 01 01 07 04 0c 03 03 03 07 04 0c 03 03 03 04 01 00009080 01 01 01 01 01 01 0c 03 01 01 01 03 04 07 15 04 00009090 07 15 04 01 01 01 01 01 01 01 0c 03 01 01 01 03 000090a0 07 04 0c 03 03 03 07 04 0c 03 03 03 04 01 01 01 000090b0 04 0c 01 01 01 03 01 01 01 04 03 04 0f 0a 03 01 000090c0 01 01 01 0f 0a 03 10 01 01 01 01 01 01 01 01 01 000090d0 04 03 10 06 03 04 03 01 01 01 01 01 0b 06 03 04 000090e0 05 03 0b 01 01 01 03 03 04 05 03 0b 03 03 03 04 000090f0 01 02 01 01 03 01 01 01 01 01 01 01 01 01 01 01 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00009100 04 01 01 01 01 01 00 00 00 ;; number of pellets to eat for map 3 9109 f2 ;; unknown 910a 402d jp p,#2d40 910c 1d dec e 910d 221d39 ld (#391d),hl 9110 4020 ;; Power Pellet Table 3 ;; 4064, 4078, 4384, 4398 9112 64 40 9114 78 40 9116 84 43 9118 98 43 ;; fruit paths for map 3: $911A-9141 for map3 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00009110 2e 91 15 54 0c 34 00009120 91 1e 54 f4 34 91 1e 54 f4 3c 91 15 54 0c ea ff 00009130 ab fa aa aa ea ff 57 55 55 d5 57 55 aa aa bf fa 00009140 bf aa ;; unknown 9142 56 ld d,(hl) 9143 91 sub c 9144 220000 ld (#0000),hl 9147 5f ld e,a 9148 91 sub c 9149 25 dec h 914a 00 nop 914b 00 nop 914c 5f ld e,a 914d 91 sub c 914e 25 dec h 914f 00 nop 9150 00 nop 9151 6f ld l,a 9152 91 sub c 9153 2800 jr z,#9155 ; (0) 9155 00 nop 9156 05 dec b 9157 00 nop 9158 00 nop 9159 54 ld d,h 915a 05 dec b 915b 54 ld d,h 915c 7f ld a,a 915d f5 push af 915e 0b dec bc 915f 0a ld a,(bc) 9160 00 nop 9161 00 nop 9162 a8 xor b 9163 0a ld a,(bc) 9164 a8 xor b 9165 bf cp a 9166 faabaa jp m,#aaab 9169 aa xor d 916a 82 add a,d 916b aa xor d 916c 00 nop 916d a0 and b 916e aa xor d 916f 55 ld d,l 9170 41 ld b,c 9171 55 ld d,l 9172 00 nop 9173 a0 and b 9174 02 ld (bc),a 9175 40 ld b,b 9176 f5 push af 9177 57 ld d,a 9178 bf cp a ;; Maze Table 4 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00009170 40 fc d0 d2 d2 d2 d2 00009180 d2 d2 d2 d2 d4 fc fc da 02 de e4 02 dc fc fc fc 00009190 fc d0 d2 d2 d2 d2 d2 d2 d2 d4 fc da 09 dc fc fc 000091a0 da 02 de e4 02 dc fc fc fc fc da 08 dc fc da 02 000091b0 e6 e8 e8 e8 e8 ea 02 e7 d2 d2 eb 02 de e4 02 e7 000091c0 d2 d2 d2 d2 eb 02 e6 e8 e8 e8 ea 02 dc fc da 02 000091d0 e7 e9 e9 e9 f5 e4 07 de e4 09 de f3 e9 e9 eb 02 000091e0 dc fc da 06 de e4 02 e6 ea 02 e6 e8 f4 f2 e8 ea 000091f0 02 e6 e8 e8 ea 02 de e4 05 dc fc da 02 e6 e8 ea offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00009200 02 e7 eb 02 de e4 02 e7 e9 e9 e9 e9 eb 02 e7 e9 00009210 f5 e4 02 e7 eb 02 e6 ea 02 dc fc da 02 de c0 e4 00009220 05 de e4 0b de e4 05 de e4 02 dc fc da 02 de c0 00009230 e4 02 e6 e8 e8 f4 f2 e8 e8 ea 02 e6 e8 e8 e8 ea 00009240 02 de e4 02 e6 e8 e8 f4 e4 02 dc fc da 02 e7 e9 00009250 eb 02 e7 e9 e9 f5 f3 e9 e9 eb 02 e7 e9 e9 f5 e4 00009260 02 e7 eb 02 e7 e9 e9 f5 e4 02 dc fc da 09 de e4 00009270 08 de e4 08 de e4 02 dc fc da 02 e6 e8 e8 e8 e8 00009280 ea 02 de e4 02 ec d3 d3 d3 ee 02 de e4 02 e6 e8 00009290 e8 e8 ea 02 de e4 02 dc fc da 02 de f3 e9 e9 e9 000092a0 eb 02 e7 eb 02 dc fc fc fc da 02 e7 eb 02 e7 e9 000092b0 e9 f5 e4 02 e7 eb 02 dc fc da 02 de e4 09 f0 fc 000092c0 fc fc da 08 de e4 05 dc fc da 02 de e4 02 e6 e8 000092d0 e8 e8 e8 ea 02 ce fc fc fc da 02 e6 e8 e8 e8 ea 000092e0 02 de e4 02 e6 e8 e8 f4 00 00 00 00 ;; Pellet table 4 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 000092e0 62 01 02 01 000092f0 01 01 01 0f 01 01 01 02 01 04 07 0f 06 04 07 01 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00009300 01 01 07 01 01 01 01 01 06 04 01 01 01 01 03 03 00009310 07 05 03 01 01 01 04 04 03 03 07 05 03 03 04 04 00009320 01 01 01 03 01 01 01 01 01 01 01 01 01 03 01 01 00009330 01 03 04 04 0f 03 06 04 04 0f 03 06 04 01 01 01 00009340 01 01 01 01 0c 01 01 01 01 01 01 03 04 07 12 03 00009350 04 07 12 03 04 03 01 01 01 01 12 01 01 01 04 03 00009360 16 07 03 16 07 03 01 01 01 01 12 01 01 01 04 07 00009370 12 03 04 07 12 03 04 01 01 01 01 01 01 01 0c 01 00009380 01 01 01 01 01 03 04 04 0f 03 06 04 04 0f 03 06 00009390 04 04 01 01 01 03 01 01 01 01 01 01 01 01 01 03 000093a0 01 01 01 03 04 04 03 03 07 05 03 03 04 01 01 01 000093b0 01 03 03 07 05 03 01 01 01 04 07 01 01 01 07 01 000093c0 01 01 01 01 06 04 07 0f 06 04 01 02 01 01 01 01 000093d0 0f 01 01 01 02 01 00 00 00 00 00 00 00 00 00 00 000093e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 000093f0 00 00 00 00 00 00 00 00 00 ;; number of pellets to eat for map 4 93f9 ee ;; Power Pellet Table 4 ;; 4064, 407c, 4384, 439c 93f9 64 40 93fc 7c 40 93fe 84 43 9400 9c 43 ;; unknown 9402 1d dec e 9403 224020 ld (#2040),hl 9406 1d dec e 9407 39 add hl,sp 9408 40 ld b,b 9409 3b dec sp ;; fruit paths for map 4: $940A-943B for map4 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 00009400 1e 94 14 8c 0c 23 00009410 94 1d 8c f4 2b 94 2a 74 f4 36 94 15 74 0c 80 aa 00009420 be fa aa 00 50 fd 55 f5 d5 57 55 ea ff 57 d5 5f 00009430 fd 15 50 01 50 55 ea af fe 2a a8 aa ;; unknown 943c 50 ld d,b 943d 94 sub h 943e 15 dec d 943f 00 nop 9440 00 nop 9441 56 ld d,(hl) 9442 94 sub h 9443 1800 jr #9445 ; (0) 9445 00 nop 9446 5c ld e,h 9447 94 sub h 9448 19 add hl,de 9449 00 nop 944a 00 nop 944b 63 ld h,e 944c 94 sub h 944d 1c inc e 944e 00 nop 944f 00 nop 9450 55 ld d,l 9451 50 ld d,b 9452 41 ld b,c 9453 55 ld d,l 9454 fdaa xor d 9456 aa xor d 9457 a0 and b 9458 82 add a,d 9459 aa xor d 945a feaa cp #aa 945c aa xor d 945d af xor a 945e 02 ld (bc),a 945f 2aa0aa ld hl,(#aaa0) 9462 aa xor d 9463 55 ld d,l 9464 5f ld e,a 9465 010050 ld bc,#5000 9468 55 ld d,l 9469 bf cp a 946a 217494 ld hl,#9474 946d cdbd94 call #94bd 9470 210040 ld hl,#4000 9473 c9 ret 9474 c1 pop bc 9475 88 adc a,b 9476 ae xor (hl) 9477 8b adc a,e 9478 a8 xor b 9479 8e adc a,(hl) 947a 79 ld a,c 947b 91 sub c 947c 215324 ld hl,#2453 947f 1803 jr #9484 ; (3) 9481 219224 ld hl,#2492 9484 e5 push hl 9485 219994 ld hl,#9499 9488 cdbd94 call #94bd 948b fd210000 ld iy,#0000 948f fd09 add iy,bc 9491 210040 ld hl,#4000 9494 dd21164e ld ix,#4e16 9498 c9 ret 9499 3b dec sp 949a 8a adc a,d 949b 27 daa 949c 8d adc a,l 949d 1890 jr #942f ; (-112) 949f ec92c5 call pe,#c592 94a2 21b594 ld hl,#94b5 94a5 cdbd94 call #94bd 94a8 0a ld a,(bc) 94a9 47 ld b,a 94aa 3a0e4e ld a,(#4e0e) 94ad b8 cp b 94ae c1 pop bc 94af c2eb08 jp nz,#08eb 94b2 c3e508 jp #08e5 94b5 2c inc l 94b6 8b adc a,e 94b7 17 rla 94b8 8e adc a,(hl) 94b9 09 add hl,bc 94ba 91 sub c 94bb f9 ld sp,hl 94bc 93 sub e ;; perhaps a routine to calculate variables according ;; to the current ms-pac maze number? 94bd 3a134e ld a,(#4e13) 94c0 e5 push hl 94c1 fe0d cp #0d 94c3 f2d494 jp p,#94d4 94c6 21df94 ld hl,#94df 94c9 d7 rst #10 94ca e1 pop hl 94cb 87 add a,a 94cc 4f ld c,a 94cd 0600 ld b,#00 94cf 09 add hl,bc 94d0 4e ld c,(hl) 94d1 23 inc hl 94d2 46 ld b,(hl) 94d3 c9 ret 94d4 d60d sub #0d 94d6 d608 sub #08 94d8 f2d694 jp p,#94d6 94db c60d add a,#0d 94dd 18e7 jr #94c6 ; (-25) ;; order table... (order that boards are played) offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 000094d0 00 000094e0 00 01 01 01 02 02 02 02 03 03 03 03 ;; draw routine for the ms-pac power pellets? (probably) 94ec 211c95 ld hl,#951c 94ef cdbd94 call #94bd 94f2 11344e ld de,#4e34 94f5 69 ld l,c 94f6 60 ld h,b 94f7 4e ld c,(hl) 94f8 23 inc hl 94f9 46 ld b,(hl) 94fa 23 inc hl 94fb 1a ld a,(de) 94fc 02 ld (bc),a 94fd 13 inc de 94fe 3e03 ld a,#03 9500 a3 and e 9501 20f4 jr nz,#94f7 ; (-12) 9503 c9 ret 9504 211c95 ld hl,#951c 9507 cdbd94 call #94bd 950a 11344e ld de,#4e34 950d 69 ld l,c 950e 60 ld h,b 950f 4e ld c,(hl) 9510 23 inc hl 9511 46 ld b,(hl) 9512 23 inc hl 9513 0a ld a,(bc) 9514 12 ld (de),a 9515 13 inc de 9516 3e03 ld a,#03 9518 a3 and e 9519 20f4 jr nz,#950f ; (-12) 951b c9 ret 951c 35 dec (hl) 951d 8b adc a,e 951e 208e jr nz,#94ae ; (-114) 9520 12 ld (de),a 9521 91 sub c 9522 fa93c5 jp m,#c593 9525 d5 push de 9526 211c95 ld hl,#951c 9529 cdbd94 call #94bd 952c 60 ld h,b 952d 69 ld l,c 952e 5e ld e,(hl) 952f 23 inc hl 9530 56 ld d,(hl) 9531 eb ex de,hl 9532 cbd4 set 2,h 9534 3a7e44 ld a,(#447e) 9537 be cp (hl) 9538 2002 jr nz,#953c ; (2) 953a 3e00 ld a,#00 953c 77 ld (hl),a 953d eb ex de,hl 953e 23 inc hl 953f 5e ld e,(hl) 9540 23 inc hl 9541 56 ld d,(hl) 9542 cbd2 set 2,d 9544 12 ld (de),a 9545 23 inc hl 9546 5e ld e,(hl) 9547 23 inc hl 9548 56 ld d,(hl) 9549 cbd2 set 2,d 954b 12 ld (de),a 954c 23 inc hl 954d 5e ld e,(hl) 954e 23 inc hl 954f 56 ld d,(hl) 9550 cbd2 set 2,d 9552 12 ld (de),a 9553 d1 pop de 9554 c1 pop bc 9555 3e10 ld a,#10 9557 be cp (hl) 9558 c9 ret 9559 3a2e4d ld a,(#4d2e) 955c 1803 jr #9561 ; (3) 955e 3a2f4d ld a,(#4d2f) 9561 f5 push af 9562 c5 push bc 9563 e5 push hl 9564 217895 ld hl,#9578 9567 cdbd94 call #94bd 956a 69 ld l,c 956b 60 ld h,b 956c ed5f ld a,r 956e e606 and #06 9570 d7 rst #10 9571 5f ld e,a 9572 23 inc hl 9573 56 ld d,(hl) 9574 e1 pop hl 9575 c1 pop bc 9576 f1 pop af 9577 c9 ret 9578 2d dec l 9579 8b adc a,e 957a 188e jr #950a ; (-114) 957c 0a ld a,(bc) 957d 91 sub c 957e 02 ld (bc),a 957f 94 sub h 9580 cae124 jp z,#24e1 9583 3a024e ld a,(#4e02) 9586 a7 and a 9587 2807 jr z,#9590 ; (7) 9589 fe10 cp #10 958b 3e01 ld a,#01 958d c2e124 jp nz,#24e1 9590 3a134e ld a,(#4e13) 9593 fe15 cp #15 9595 f2a395 jp p,#95a3 9598 4f ld c,a 9599 0600 ld b,#00 959b 21ae95 ld hl,#95ae 959e 09 add hl,bc 959f 7e ld a,(hl) 95a0 c3e124 jp #24e1 95a3 d615 sub #15 95a5 d610 sub #10 95a7 f2a595 jp p,#95a5 95aa c615 add a,#15 95ac 18ea jr #9598 ; (-22) ;; color palette table for the first 21 mazes offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 000095a0 1d 1d 000095b0 16 16 16 14 14 14 14 07 07 07 07 18 18 18 18 1d 000095c0 1d 1d 1d 95c3 3a134e ld a,(#4e13) 95c6 fe03 cp #03 95c8 f23425 jp p,#2534 95cb 21df95 ld hl,#95df 95ce cdbd94 call #94bd 95d1 210044 ld hl,#4400 95d4 0a ld a,(bc) 95d5 03 inc bc 95d6 a7 and a 95d7 ca3425 jp z,#2534 95da d7 rst #10 95db cbf6 set 6,(hl) 95dd 18f5 jr #95d4 ; (-11) 95df 3d dec a 95e0 8b adc a,e 95e1 288e jr z,#9571 ; (-114) 95e3 78 ld a,b 95e4 fe0a cp #0a 95e6 cc0b96 call z,#960b 95e9 fe0b cp #0b 95eb ccf695 call z,#95f6 95ee fe06 cp #06 95f0 cc3c96 call z,#963c 95f3 c35e2c jp #2c5e ; print 95f6 c5 push bc 95f7 e5 push hl 95f8 cd4296 call #9642 95fb e1 pop hl 95fc c1 pop bc 95fd 3a8050 ld a,(#5080) ;; check in0 9600 e630 and #30 9602 fe30 cp #30 9604 78 ld a,b 9605 c0 ret nz 9606 3e20 ld a,#20 9608 0620 ld b,#20 960a c9 ret 960b c5 push bc 960c e5 push hl 960d 211696 ld hl,#9616 9610 cd2796 call #9627 9613 e1 pop hl 9614 c1 pop bc 9615 c9 ret 9616 09 add hl,bc 9617 20f5 jr nz,#960e ; (-11) 9619 41 ld b,c 961a 09 add hl,bc 961b 211542 ld hl,#4215 961e 09 add hl,bc 961f 22f641 ld (#41f6),hl 9622 09 add hl,bc 9623 23 inc hl 9624 1642 ld d,#42 9626 ff rst #38 9627 7e ld a,(hl) 9628 feff cp #ff 962a 280f jr z,#963b ; (15) 962c 47 ld b,a 962d 23 inc hl 962e 7e ld a,(hl) 962f 23 inc hl 9630 5e ld e,(hl) 9631 23 inc hl 9632 56 ld d,(hl) 9633 12 ld (de),a 9634 78 ld a,b 9635 cbd2 set 2,d 9637 12 ld (de),a 9638 23 inc hl 9639 18ec jr #9627 ; (-20) 963b c9 ret 963c 3e00 ld a,#00 963e 32004f ld (#4f00),a 9641 c9 ret 9642 ef rst #28 9643 1c inc e 9644 13 inc de 9645 ef rst #28 9646 1c inc e 9647 35 dec (hl) 9648 c9 ret 9649 9a sbc a,d 964a 42 ld b,d 964b 3ebf ld a,#bf 964d a7 and a 964e 111d00 ld de,#001d 9651 010004 ld bc,#0400 9654 77 ld (hl),a 9655 09 add hl,bc 9656 3601 ld (hl),#01 9658 ed42 sbc hl,bc 965a 23 inc hl 965b d604 sub #04 965d 77 ld (hl),a 965e 09 add hl,bc 965f 3601 ld (hl),#01 9661 ed42 sbc hl,bc 9663 23 inc hl 9664 d604 sub #04 9666 77 ld (hl),a 9667 09 add hl,bc 9668 3601 ld (hl),#01 966a ed42 sbc hl,bc 966c 23 inc hl 966d d604 sub #04 966f 77 ld (hl),a 9670 09 add hl,bc 9671 3601 ld (hl),#01 9673 ed42 sbc hl,bc 9675 19 add hl,de 9676 c60b add a,#0b 9678 febb cp #bb 967a 20d8 jr nz,#9654 ; (-40) 967c c9 ret 967d 95 sub l 967e 96 sub (hl) 967f d696 sub #96 9681 58 ld e,b 9682 3c inc a 9683 4f ld c,a 9684 97 sub a 9685 b6 or (hl) 9686 96 sub (hl) 9687 19 add hl,de 9688 97 sub a 9689 d43b72 call nc,#723b 968c 97 sub a 968d 96 sub (hl) 968e 97 sub a 968f 96 sub (hl) 9690 97 sub a 9691 96 sub (hl) 9692 97 sub a 9693 96 sub (hl) 9694 97 sub a 9695 f1 pop af 9696 00 nop 9697 f202f3 jp p,#f302 969a 0a ld a,(bc) 969b f40041 call p,#4100 969e 43 ld b,e 969f 45 ld b,l 96a0 86 add a,(hl) 96a1 8a adc a,d 96a2 88 adc a,b 96a3 8b adc a,e 96a4 6a ld l,d 96a5 6b ld l,e 96a6 71 ld (hl),c 96a7 6a ld l,d 96a8 88 adc a,b 96a9 8b adc a,e 96aa 6a ld l,d 96ab 6b ld l,e 96ac 71 ld (hl),c 96ad 6a ld l,d 96ae 6b ld l,e 96af 71 ld (hl),c 96b0 73 ld (hl),e 96b1 75 ld (hl),l 96b2 96 sub (hl) 96b3 95 sub l 96b4 96 sub (hl) 96b5 ff rst #38 96b6 f1 pop af 96b7 02 ld (bc),a 96b8 f203f3 jp p,#f303 96bb 0a ld a,(bc) 96bc f40250 call p,#5002 96bf 70 ld (hl),b 96c0 86 add a,(hl) 96c1 90 sub b 96c2 81 add a,c 96c3 90 sub b 96c4 86 add a,(hl) 96c5 90 sub b 96c6 68 ld l,b 96c7 6a ld l,d 96c8 6b ld l,e 96c9 68 ld l,b 96ca 6a ld l,d 96cb 68 ld l,b 96cc 66 ld h,(hl) 96cd 6a ld l,d 96ce 68 ld l,b 96cf 66 ld h,(hl) 96d0 65 ld h,l 96d1 68 ld l,b 96d2 86 add a,(hl) 96d3 81 add a,c 96d4 86 add a,(hl) 96d5 ff rst #38 96d6 f1 pop af 96d7 00 nop 96d8 f202f3 jp p,#f302 96db 0a ld a,(bc) 96dc f40069 call p,#6900 96df 6b ld l,e 96e0 69 ld l,c 96e1 86 add a,(hl) 96e2 61 ld h,c 96e3 64 ld h,h 96e4 65 ld h,l 96e5 86 add a,(hl) 96e6 86 add a,(hl) 96e7 64 ld h,h 96e8 66 ld h,(hl) 96e9 64 ld h,h 96ea 61 ld h,c 96eb 69 ld l,c 96ec 6b ld l,e 96ed 69 ld l,c 96ee 86 add a,(hl) 96ef 61 ld h,c 96f0 64 ld h,h 96f1 64 ld h,h 96f2 a1 and c 96f3 70 ld (hl),b 96f4 71 ld (hl),c 96f5 74 ld (hl),h 96f6 75 ld (hl),l 96f7 35 dec (hl) 96f8 76 halt 96f9 3050 jr nc,#974b ; (80) 96fb 35 dec (hl) 96fc 76 halt 96fd 3050 jr nc,#974f ; (80) 96ff 54 ld d,h 9700 56 ld d,(hl) 9701 54 ld d,h 9702 51 ld d,c 9703 6b ld l,e 9704 69 ld l,c 9705 6b ld l,e 9706 69 ld l,c 9707 6b ld l,e 9708 91 sub c 9709 6b ld l,e 970a 69 ld l,c 970b 66 ld h,(hl) 970c f20174 jp p,#7401 970f 76 halt 9710 74 ld (hl),h 9711 71 ld (hl),c 9712 74 ld (hl),h 9713 71 ld (hl),c 9714 6b ld l,e 9715 69 ld l,c 9716 a6 and (hl) 9717 a6 and (hl) 9718 ff rst #38 9719 f1 pop af 971a 03 inc bc 971b f203f3 jp p,#f303 971e 0a ld a,(bc) 971f f40270 call p,#7002 9722 66 ld h,(hl) 9723 70 ld (hl),b 9724 46 ld b,(hl) 9725 50 ld d,b 9726 86 add a,(hl) 9727 90 sub b 9728 70 ld (hl),b 9729 66 ld h,(hl) 972a 70 ld (hl),b 972b 46 ld b,(hl) 972c 50 ld d,b 972d 86 add a,(hl) 972e 90 sub b 972f 70 ld (hl),b 9730 66 ld h,(hl) 9731 70 ld (hl),b 9732 46 ld b,(hl) 9733 50 ld d,b 9734 86 add a,(hl) 9735 90 sub b 9736 70 ld (hl),b 9737 61 ld h,c 9738 70 ld (hl),b 9739 41 ld b,c 973a 50 ld d,b 973b 81 add a,c 973c 90 sub b 973d f400a6 call p,#a600 9740 a4 and h 9741 a2 and d 9742 a1 and c 9743 f40186 call p,#8601 9746 89 adc a,c 9747 8b adc a,e 9748 81 add a,c 9749 74 ld (hl),h 974a 71 ld (hl),c 974b 6b ld l,e 974c 69 ld l,c 974d a6 and (hl) 974e ff rst #38 974f f1 pop af 9750 00 nop 9751 f202f3 jp p,#f302 9754 0a ld a,(bc) 9755 f40065 call p,#6500 9758 64 ld h,h 9759 65 ld h,l 975a 88 adc a,b 975b 67 ld h,a 975c 88 adc a,b 975d 61 ld h,c 975e 63 ld h,e 975f 64 ld h,h 9760 85 add a,l 9761 64 ld h,h 9762 85 add a,l 9763 6a ld l,d 9764 69 ld l,c 9765 6a ld l,d 9766 8c adc a,h 9767 75 ld (hl),l 9768 93 sub e 9769 90 sub b 976a 91 sub c 976b 90 sub b 976c 91 sub c 976d 70 ld (hl),b 976e 8a adc a,d 976f 68 ld l,b 9770 71 ld (hl),c 9771 ff rst #38 9772 f1 pop af 9773 02 ld (bc),a 9774 f203f3 jp p,#f303 9777 0a ld a,(bc) 9778 f40265 call p,#6502 977b 90 sub b 977c 68 ld l,b 977d 70 ld (hl),b 977e 68 ld l,b 977f 67 ld h,a 9780 66 ld h,(hl) 9781 65 ld h,l 9782 90 sub b 9783 61 ld h,c 9784 70 ld (hl),b 9785 61 ld h,c 9786 65 ld h,l 9787 68 ld l,b 9788 66 ld h,(hl) 9789 90 sub b 978a 63 ld h,e 978b 90 sub b 978c 86 add a,(hl) 978d 90 sub b 978e 85 add a,l 978f 90 sub b 9790 85 add a,l 9791 70 ld (hl),b 9792 86 add a,(hl) 9793 68 ld l,b 9794 65 ld h,l 9795 ff rst #38 9796 ff rst #38 9797 3a004f ld a,(#4f00) 979a fe00 cp #00 979c 280b jr z,#97a9 ; (11) 979e 11024c ld de,#4c02 97a1 21504f ld hl,#4f50 97a4 010c00 ld bc,#000c 97a7 edb0 ldir 97a9 3a094e ld a,(#4e09) 97ac 21724e ld hl,#4e72 97af a6 and (hl) 97b0 280c jr z,#97be ; (12) 97b2 3a0a4c ld a,(#4c0a) 97b5 fe3f cp #3f 97b7 2005 jr nz,#97be ; (5) 97b9 3eff ld a,#ff 97bb 320a4c ld (#4c0a),a 97be 218596 ld hl,#9685 97c1 c3c42c jp #2cc4 97c4 ff rst #38 97c5 ff rst #38 97c6 ff rst #38 97c7 ff rst #38 97c8 ff rst #38 97c9 ff rst #38 97ca ff rst #38 97cb ff rst #38 97cc ff rst #38 97cd ff rst #38 97ce ff rst #38 97cf ff rst #38 offset 0 1 2 3 4 5 6 7 8 9 a b c d e f 0123456789abcdef 000097d0 47 45 4e 45 52 41 4c 20 43 4f 4d 50 55 54 45 52 GENERAL COMPUTER 000097e0 20 20 43 4f 52 50 4f 52 41 54 49 4f 4e 20 20 20 CORPORATION 000097f0 48 65 6c 6c 6f 2c 20 4e 61 6b 61 6d 75 72 61 21 Hello, Nakamura! ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; 9800 - 9fff is not used see mspac.asm.old for the info stored in there. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;