| ; z80dasm 1.1.3 | |
| ; command line: z80dasm -l -a -g 0h original_rom.bin | |
| ; Peripheral mappings | |
| ; YM3514 | |
| ym3514_addr: equ 0e000h | |
| ; YM2142 | |
| ym2142_addr: equ 0e030h | |
| ; ROM mappings | |
| ; RAM mappings | |
| key_states: equ 08000h | |
| key_diffs: equ 08009h | |
| key_state1: equ 08012h | |
| common_c1: equ 08014h ; Some kind of output note array? | |
| kpr_08018h: equ 08018h ; kpr = key-press related | |
| common_c2: equ 0801ch ; Some kind of output note array? | |
| common_c5: equ 08020h ; Some kind of output note array? | |
| common_c3: equ 08024h ; Some kind of output note array? | |
| common_c4: equ 08028h ; Some kind of output note array? | |
| kpr_0802ch: equ 0802ch ; kpr = key-press related | |
| ym2142_source1: equ 08030h | |
| common_b1: equ 08033h | |
| common_b2: equ 08034h | |
| num_keys_ignore: equ 08035h ; "Loop while key_remaining < (num_keys_ignore)" | |
| common_a1: equ 08036h | |
| common_a2: equ 08037h | |
| common_a3: equ 08038h | |
| ym3514_thing1: equ 0804eh | |
| ym3514_thing2: equ 0804fh | |
| common_elsewhere1: equ 080b9h | |
| loaded_thing7: equ 0805dh | |
| loaded_thing8: equ 0805fh | |
| loaded_thing3: equ 08061h | |
| loaded_thing4: equ 08063h | |
| loaded_thing9: equ 08065h | |
| loaded_thing10: equ 08067h | |
| loaded_thing5: equ 08069h | |
| loaded_thing6: equ 0806bh | |
| loaded_thing12: equ 080b5h | |
| loaded_thing11: equ 080b7h | |
| loaded_thing1: equ 080bdh | |
| loaded_thing2: equ 080bbh | |
| flags1: equ 080ceh | |
| ; flags1: | |
| ; - 6: YM2142_DIRTY (???) | |
| flags2: equ 080d1h | |
| flags3: equ 080d2h | |
| common_array1: equ 080d3h | |
| ; common_array1: | |
| ; - ??? | |
| key_result_flags1: equ 080cdh | |
| stack_start_addr: equ 0873fh | |
| ; Constants | |
| ; Start of program | |
| org 00000h | |
| di ;0000 | |
| ld sp,stack_start_addr ;0001 | |
| im 1 ;0004 | |
| jp entry_point ;0006 | |
| rst 0 ;0009 | |
| rst 0 ;000a | |
| rst 0 ;000b | |
| rst 0 ;000c | |
| rst 0 ;000d | |
| rst 0 ;000e | |
| rst 0 ;000f | |
| rst 0 ;0010 | |
| rst 0 ;0011 | |
| rst 0 ;0012 | |
| rst 0 ;0013 | |
| rst 0 ;0014 | |
| rst 0 ;0015 | |
| rst 0 ;0016 | |
| rst 0 ;0017 | |
| rst 0 ;0018 | |
| rst 0 ;0019 | |
| rst 0 ;001a | |
| rst 0 ;001b | |
| rst 0 ;001c | |
| rst 0 ;001d | |
| rst 0 ;001e | |
| rst 0 ;001f | |
| rst 0 ;0020 | |
| rst 0 ;0021 | |
| rst 0 ;0022 | |
| rst 0 ;0023 | |
| rst 0 ;0024 | |
| rst 0 ;0025 | |
| rst 0 ;0026 | |
| rst 0 ;0027 | |
| rst 0 ;0028 | |
| rst 0 ;0029 | |
| rst 0 ;002a | |
| rst 0 ;002b | |
| rst 0 ;002c | |
| rst 0 ;002d | |
| rst 0 ;002e | |
| rst 0 ;002f | |
| rst 0 ;0030 | |
| rst 0 ;0031 | |
| rst 0 ;0032 | |
| rst 0 ;0033 | |
| rst 0 ;0034 | |
| rst 0 ;0035 | |
| rst 0 ;0036 | |
| rst 0 ;0037 | |
| jp interrupt_handler_1 ;0038 | |
| rst 0 ;003b | |
| rst 0 ;003c | |
| rst 0 ;003d | |
| rst 0 ;003e | |
| rst 0 ;003f | |
| rst 0 ;0040 | |
| rst 0 ;0041 | |
| rst 0 ;0042 | |
| rst 0 ;0043 | |
| rst 0 ;0044 | |
| rst 0 ;0045 | |
| rst 0 ;0046 | |
| rst 0 ;0047 | |
| rst 0 ;0048 | |
| rst 0 ;0049 | |
| rst 0 ;004a | |
| rst 0 ;004b | |
| rst 0 ;004c | |
| rst 0 ;004d | |
| rst 0 ;004e | |
| rst 0 ;004f | |
| rst 0 ;0050 | |
| rst 0 ;0051 | |
| rst 0 ;0052 | |
| rst 0 ;0053 | |
| rst 0 ;0054 | |
| rst 0 ;0055 | |
| rst 0 ;0056 | |
| rst 0 ;0057 | |
| rst 0 ;0058 | |
| rst 0 ;0059 | |
| rst 0 ;005a | |
| rst 0 ;005b | |
| rst 0 ;005c | |
| rst 0 ;005d | |
| rst 0 ;005e | |
| rst 0 ;005f | |
| rst 0 ;0060 | |
| rst 0 ;0061 | |
| rst 0 ;0062 | |
| rst 0 ;0063 | |
| rst 0 ;0064 | |
| rst 0 ;0065 | |
| jp interrupt_handler_2 ;0066 | |
| sub_ym3514_write_and_calc_2: | |
| ld a,002h ;0069 | |
| ld (ym3514_addr+01h),a ;006b | |
| xor a ;006e | |
| ld (ym3514_addr+27h),a ;006f | |
| ld a,01eh ;0072 | |
| ld (ym3514_thing2),a ;0074 | |
| ld (ym3514_addr+02h),a ;0077 | |
| xor a ;007a | |
| l007bh: | |
| cp 01eh ;007b | |
| l007dh: | |
| jp z,l0093h ;007d | |
| l0080h: | |
| ld (ym3514_thing1),a ;0080 | |
| ld (ym3514_addr+03h),a ;0083 | |
| push af ;0086 | |
| ld hl,0028h ;0087 | |
| push hl ;008a | |
| call sub_delay_variable_time_1 ;008b | |
| pop af ;008e | |
| inc a ;008f | |
| l0090h: | |
| jp l007bh ;0090 | |
| l0093h: | |
| ld bc,key_states ;0093 | |
| l0096h: | |
| xor a ;0096 | |
| ld (bc),a ;0097 | |
| inc bc ;0098 | |
| ld hl,086dbh ;0099 | |
| sbc hl,bc ;009c | |
| jp nz,l0096h ;009e | |
| ld hl,common_c1 ;00a1 | |
| xor a ;00a4 | |
| l00a5h: | |
| ld (hl),a ;00a5 | |
| inc hl ;00a6 | |
| inc a ;00a7 | |
| cp 004h ;00a8 | |
| jp nz,l00a5h ;00aa | |
| ld a,004h ;00ad | |
| ld (0803eh),a ;00af | |
| ld (common_b2),a ;00b2 | |
| ld a,012h ;00b5 | |
| ld (num_keys_ignore),a ;00b7 | |
| ld a,00fh ;00ba | |
| ld (08043h),a ;00bc | |
| ld (08045h),a ;00bf | |
| call sub_0fc5h_calc_with_b1c1_array1_and_b2 ;00c2 | |
| xor a ;00c5 | |
| ld (ym3514_addr+01h),a ;00c6 | |
| call sub_delay_roughly_5_cycles ;00c9 | |
| ld (ym3514_addr+13h),a ;00cc | |
| ret ;00cf | |
| interrupt_handler_1: | |
| push af ;00d0 | |
| push bc ;00d1 | |
| push de ;00d2 | |
| push hl ;00d3 | |
| push ix ;00d4 | |
| push iy ;00d6 | |
| ld a,(flags2) ;00d8 | |
| bit 1,a ;00db | |
| jp nz,l01a7h ;00dd | |
| ld a,(common_a1) ;00e0 | |
| srl a ;00e3 | |
| ld hl,common_a2 ;00e5 | |
| cp (hl) ;00e8 | |
| jp z,l0172h ;00e9 | |
| ld (hl),a ;00ec | |
| ld d,000h ;00ed | |
| ld e,a ;00ef | |
| ld a,(0803eh) ;00f0 | |
| cp 001h ;00f3 | |
| jp nz,l00feh ;00f5 | |
| ld hl,l0921h ;00f8 | |
| jp l0101h ;00fb | |
| l00feh: | |
| ld hl,l08f1h ;00fe | |
| l0101h: | |
| add hl,de ;0101 | |
| ld a,(common_a3) ;0102 | |
| and 00fh ;0105 | |
| cp (hl) ;0107 | |
| l0108h: | |
| jp z,l010eh ;0108 | |
| call sub_01b2h_calc_and_write_12B_to_ym2142 ;010b | |
| l010eh: | |
| ld a,(flags1) ;010e | |
| and 007h ;0111 | |
| jp z,l0172h ;0113 | |
| ld a,(08054h) ;0116 | |
| or a ;0119 | |
| jp z,l0147h ;011a | |
| dec a ;011d | |
| jp nz,l0132h ;011e | |
| ld hl,0808fh ;0121 | |
| ld a,(hl) ;0124 | |
| and 03fh ;0125 | |
| ld (08054h),a ;0127 | |
| ld hl,080d8h ;012a | |
| set 2,(hl) ;012d | |
| jp l0147h ;012f | |
| l0132h: | |
| ld (08054h),a ;0132 | |
| cp 001h ;0135 | |
| jp nz,l0147h ;0137 | |
| ld hl,080d8h ;013a | |
| bit 6,(hl) ;013d | |
| jp nz,l0147h ;013f | |
| ld hl,flags2 ;0142 | |
| set 1,(hl) ;0145 | |
| l0147h: | |
| ld a,(08053h) ;0147 | |
| or a ;014a | |
| jp z,l0167h ;014b | |
| dec a ;014e | |
| jp nz,l0164h ;014f | |
| ld hl,0808fh ;0152 | |
| inc hl ;0155 | |
| ld a,(hl) ;0156 | |
| and 03fh ;0157 | |
| ld (08053h),a ;0159 | |
| ld hl,080d8h ;015c | |
| set 3,(hl) ;015f | |
| jp l0167h ;0161 | |
| l0164h: | |
| ld (08053h),a ;0164 | |
| l0167h: | |
| ld a,(08050h) ;0167 | |
| or a ;016a | |
| jp z,l0172h ;016b | |
| dec a ;016e | |
| ld (08050h),a ;016f | |
| l0172h: | |
| ld a,(0803eh) ;0172 | |
| or a ;0175 | |
| jp nz,l017eh ;0176 | |
| ld a,047h ;0179 | |
| jp l0180h ;017b | |
| l017eh: | |
| ld a,05fh ;017e | |
| l0180h: | |
| ld hl,common_a1 ;0180 | |
| cp (hl) ;0183 | |
| jp nz,l019dh ;0184 | |
| xor a ;0187 | |
| ld (hl),a ;0188 | |
| ld hl,080d8h ;0189 | |
| set 4,(hl) ;018c | |
| bit 7,(hl) ;018e | |
| jp z,l0198h ;0190 | |
| set 7,(hl) ;0193 | |
| jp l01a7h ;0195 | |
| l0198h: | |
| res 7,(hl) ;0198 | |
| jp l01a7h ;019a | |
| l019dh: | |
| inc (hl) ;019d | |
| cp (hl) ;019e | |
| jp nz,l01a7h ;019f | |
| ld hl,080d8h ;01a2 | |
| set 5,(hl) ;01a5 | |
| l01a7h: | |
| pop iy ;01a7 | |
| pop ix ;01a9 | |
| pop hl ;01ab | |
| pop de ;01ac | |
| pop bc ;01ad | |
| pop af ;01ae | |
| ei ;01af | |
| reti ;01b0 | |
| ; This is called from interrupt_handler_1 if: | |
| ; flags2 & (1<<1) == 0 && | |
| ; common_a2 != 0 && | |
| ; common_a3 & 0x7 != 0 | |
| sub_01b2h_calc_and_write_12B_to_ym2142: | |
| ld a,(hl) ;01b2 | |
| or a ;01b3 | |
| ld a,(common_a3) ;01b4 | |
| jp nz,l01c3h ;01b7 | |
| bit 7,a ;01ba | |
| ld a,(hl) ;01bc | |
| jp nz,l01cbh ;01bd | |
| jp l01c9h ;01c0 | |
| l01c3h: | |
| bit 7,a ;01c3 | |
| ld a,(hl) ;01c5 | |
| jp z,l01cbh ;01c6 | |
| l01c9h: | |
| set 7,a ;01c9 | |
| l01cbh: | |
| ld (common_a3),a ;01cb | |
| ld a,(flags1) ;01ce | |
| and 007h ;01d1 | |
| jp z,l01e1h ;01d3 | |
| ld hl,flags1 ;01d6 | |
| bit 4,(hl) ;01d9 | |
| jp nz,l01f1h ;01db | |
| jp l01feh ;01de | |
| l01e1h: | |
| ld a,(key_result_flags1) ;01e1 | |
| bit 0,a ;01e4 | |
| jp z,l025ah ;01e6 | |
| ld a,01eh ;01e9 | |
| ld (ym3514_thing2),a ;01eb | |
| ld (ym3514_addr+02h),a ;01ee | |
| l01f1h: | |
| ld a,(common_a3) ;01f1 | |
| and 00fh ;01f4 | |
| jp nz,l01feh ;01f6 | |
| ld a,01dh ;01f9 | |
| jp l0200h ;01fb | |
| l01feh: | |
| ld a,01eh ;01fe | |
| l0200h: | |
| ld (ym3514_thing1),a ;0200 | |
| ld (ym3514_addr+03h),a ;0203 | |
| ld a,(key_result_flags1) ;0206 | |
| bit 0,a ;0209 | |
| jp z,l0228h ;020b | |
| ld hl,l0090h ;020e | |
| push hl ;0211 | |
| ld h,000h ;0212 | |
| ld a,(08042h) ;0214 | |
| ld l,a ;0217 | |
| push hl ;0218 | |
| call sub_ym2142_write_2B ;0219 | |
| xor a ;021c | |
| ld (08042h),a ;021d | |
| ld a,(key_result_flags1) ;0220 | |
| bit 1,a ;0223 | |
| jp nz,l0230h ;0225 | |
| l0228h: | |
| ld a,(flags1) ;0228 | |
| and 007h ;022b | |
| jp z,l025ah ;022d | |
| l0230h: | |
| ld a,(common_a3) ;0230 | |
| ld h,000h ;0233 | |
| ld l,a ;0235 | |
| push hl ;0236 | |
| push hl ;0237 | |
| call sub_15fdh_calc ;0238 | |
| pop hl ;023b | |
| ld a,l ;023c | |
| cp 0ffh ;023d | |
| jp z,l0249h ;023f | |
| ld hl,00001h+1 ;0242 | |
| push hl ;0245 | |
| call sub_078dh_maybe_write_many_to_ym2142 ;0246 | |
| l0249h: | |
| call sub_165ch ;0249 | |
| pop hl ;024c | |
| ld a,l ;024d | |
| cp 0ffh ;024e | |
| jp z,l025ah ;0250 | |
| ld hl,00001h+2 ;0253 | |
| push hl ;0256 | |
| call sub_078dh_maybe_write_many_to_ym2142 ;0257 | |
| l025ah: | |
| ret ;025a | |
| interrupt_handler_2: | |
| ld a,01eh ;025b | |
| ld (ym3514_thing2),a ;025d | |
| ld (ym3514_addr+02h),a ;0260 | |
| ld (ym3514_thing1),a ;0263 | |
| ld (ym3514_addr+03h),a ;0266 | |
| call sub_delay_roughly_5_cycles ;0269 | |
| ld (ym3514_addr+26h),a ;026c | |
| ld a,(ym3514_addr+25h) ;026f | |
| and 060h ;0272 | |
| jp nz,l0282h ;0274 | |
| ld hl,flags1 ;0277 | |
| res 5,(hl) ;027a | |
| ld hl,0 ;027c | |
| ld (common_elsewhere1),hl ;027f | |
| l0282h: | |
| cp 020h ;0282 | |
| jp z,l029eh ;0284 | |
| ld (loaded_thing1),hl ;0287 | |
| ld (loaded_thing2),hl ;028a | |
| ld (loaded_thing7),hl ;028d | |
| ld (loaded_thing8),hl ;0290 | |
| ld (loaded_thing9),hl ;0293 | |
| ld (loaded_thing10),hl ;0296 | |
| cp 040h ;0299 | |
| jp z,interrupt_handler_2_jump_table_execute ;029b | |
| l029eh: | |
| ld (loaded_thing3),hl ;029e | |
| ld (loaded_thing4),hl ;02a1 | |
| ld (loaded_thing5),hl ;02a4 | |
| ld (loaded_thing6),hl ;02a7 | |
| ld (loaded_thing11),hl ;02aa | |
| ld (loaded_thing12),hl ;02ad | |
| interrupt_handler_2_jump_table_execute: | |
| ld a,(ym3514_addr+25h) ;02b0 | |
| and 00fh ;02b3 | |
| ; Now: a = i0 = (ym3514_addr+25h) & 0xf | |
| ld c,a ;02b5 | |
| ; Now: c = i0 | |
| rlca ;02b6 | |
| ; Now: a = i0 << 1 | |
| add a,c ;02b7 | |
| ; Now a = (i0 << 1) + i0 = i0 * 3 | |
| ; Set hl = 02c0h + a | |
| ld e,a ;02b8 | |
| ld d,000h ;02b9 | |
| ld hl,l02c0h ;02bb | |
| add hl,de ;02be | |
| ; Jump to the following table | |
| jp (hl) ;02bf | |
| l02c0h: | |
| jp interrupt_handler_2_subpath_default ;02c0 | |
| jp interrupt_handler_2_subpath_1 ;02c3 | |
| jp interrupt_handler_2_subpath_2 ;02c6 | |
| jp interrupt_handler_2_subpath_3 ;02c9 | |
| jp interrupt_handler_2_subpath_4 ;02cc | |
| jp interrupt_handler_2_subpath_5 ;02cf | |
| jp interrupt_handler_2_subpath_6 ;02d2 | |
| jp interrupt_handler_2_jump_table_execute ;02d5 | |
| jp interrupt_handler_2_jump_table_execute ;02d8 | |
| jp interrupt_handler_2_subpath_7 ;02db | |
| jp interrupt_handler_2_subpath_8 ;02de | |
| jp interrupt_handler_2_subpath_9 ;02e1 | |
| jp interrupt_handler_2_subpath_check_loaded_things ;02e4 | |
| jp interrupt_handler_2_subpath_default ;02e7 | |
| jp interrupt_handler_2_subpath_default ;02ea | |
| jp interrupt_handler_2_subpath_default ;02ed | |
| sub_ym3514_21_25_26_do_stuff_1: | |
| ld a,(ym3514_addr+25h) ;02f0 | |
| and 00fh ;02f3 | |
| jp z,l032dh ;02f5 | |
| cp 00dh ;02f8 | |
| jp p,l032dh ;02fa | |
| cp 007h ;02fd | |
| jp z,l0307h ;02ff | |
| cp 008h ;0302 | |
| jp nz,l030bh ;0304 | |
| l0307h: | |
| cp c ;0307 | |
| jp nz,l0329h ;0308 | |
| l030bh: | |
| ld a,(ym3514_addr+21h) ;030b | |
| bit 7,a ;030e | |
| jp z,sub_ym3514_21_25_26_do_stuff_1 ;0310 | |
| ld a,h ;0313 | |
| cp 004h ;0314 | |
| jp z,l032dh ;0316 | |
| l0319h: | |
| ld (ym3514_addr+26h),a ;0319 | |
| call sub_delay_roughly_5_cycles ;031c | |
| ld a,(ym3514_addr+21h) ;031f | |
| bit 7,a ;0322 | |
| jp nz,l0319h ;0324 | |
| or a ;0327 | |
| ret ;0328 | |
| l0329h: | |
| ld a,001h ;0329 | |
| scf ;032b | |
| ret ;032c | |
| l032dh: | |
| ld a,0ffh ;032d | |
| scf ;032f | |
| ret ;0330 | |
| interrupt_handler_2_subpath_1: | |
| ld hl,0 ;0331 | |
| call sub_ym3514_21_25_26_do_stuff_1 ;0334 | |
| jp c,interrupt_handler_2_subpath_default ;0337 | |
| l033ah: | |
| ld a,(ym3514_addr+25h) ;033a | |
| and 00fh ;033d | |
| cp c ;033f | |
| jp z,l033ah ;0340 | |
| jp interrupt_handler_2_jump_table_execute ;0343 | |
| interrupt_handler_2_subpath_2: | |
| ld b,003h ;0346 | |
| ld hl,0802dh ;0348 | |
| l034bh: | |
| call sub_ym3514_21_25_26_do_stuff_1 ;034b | |
| jp c,interrupt_handler_2_subpath_default ;034e | |
| ld a,(ym3514_addr+23h) ;0351 | |
| ld (hl),a ;0354 | |
| inc hl ;0355 | |
| dec b ;0356 | |
| ld a,(ym3514_addr+25h) ;0357 | |
| and 00fh ;035a | |
| cp c ;035c | |
| jp z,l034bh ;035d | |
| ld a,b ;0360 | |
| and a ;0361 | |
| jp nz,interrupt_handler_2_subpath_default ;0362 | |
| jp interrupt_handler_2_jump_table_execute ;0365 | |
| interrupt_handler_2_subpath_3: | |
| ld hl,0 ;0368 | |
| call sub_ym3514_21_25_26_do_stuff_1 ;036b | |
| jp c,interrupt_handler_2_subpath_default ;036e | |
| ld a,(ym3514_addr+23h) ;0371 | |
| and 01fh ;0374 | |
| ld b,a ;0376 | |
| l0377h: | |
| ld a,(ym3514_addr+25h) ;0377 | |
| and 00fh ;037a | |
| cp c ;037c | |
| jp z,l0377h ;037d | |
| jp interrupt_handler_2_jump_table_execute ;0380 | |
| interrupt_handler_2_subpath_4: | |
| ld hl,(common_elsewhere1) ;0383 | |
| ld (loaded_thing1),hl ;0386 | |
| l0389h: | |
| call sub_ym3514_21_25_26_do_stuff_1 ;0389 | |
| jp c,interrupt_handler_2_subpath_default ;038c | |
| ld a,(ym3514_addr+24h) ;038f | |
| ex de,hl ;0392 | |
| ld hl,080dah ;0393 | |
| add hl,de ;0396 | |
| ld (hl),a ;0397 | |
| ex de,hl ;0398 | |
| inc hl ;0399 | |
| dec b ;039a | |
| ld a,(ym3514_addr+25h) ;039b | |
| and 00fh ;039e | |
| cp c ;03a0 | |
| jp z,l0389h ;03a1 | |
| ld a,b ;03a4 | |
| and a ;03a5 | |
| jp nz,interrupt_handler_2_subpath_default ;03a6 | |
| ld (common_elsewhere1),hl ;03a9 | |
| dec hl ;03ac | |
| ld (loaded_thing2),hl ;03ad | |
| jp interrupt_handler_2_jump_table_execute ;03b0 | |
| interrupt_handler_2_subpath_5: | |
| ld hl,(common_elsewhere1) ;03b3 | |
| ld (loaded_thing7),hl ;03b6 | |
| call sub_ym3514_21_25_26_do_stuff_1_with_globals_1 ;03b9 | |
| jp c,interrupt_handler_2_subpath_default ;03bc | |
| ld (loaded_thing9),hl ;03bf | |
| jp interrupt_handler_2_jump_table_execute ;03c2 | |
| interrupt_handler_2_subpath_6: | |
| ld hl,(common_elsewhere1) ;03c5 | |
| ld (loaded_thing8),hl ;03c8 | |
| call sub_ym3514_21_25_26_do_stuff_1_with_globals_1 ;03cb | |
| jp c,interrupt_handler_2_subpath_default ;03ce | |
| ld (loaded_thing10),hl ;03d1 | |
| jp interrupt_handler_2_jump_table_execute ;03d4 | |
| sub_ym3514_21_25_26_do_stuff_1_with_globals_1: | |
| call sub_ym3514_21_25_26_do_stuff_1 ;03d7 | |
| jp nc,l03e3h ;03da | |
| cp 001h ;03dd | |
| jp z,l040dh ;03df | |
| ret ;03e2 | |
| l03e3h: | |
| ld a,(ym3514_addr+21h) ;03e3 | |
| and 01fh ;03e6 | |
| ld d,000h ;03e8 | |
| ld e,a ;03ea | |
| ld ix,(loaded_thing1) ;03eb | |
| add ix,de ;03ef | |
| ld de,080dah ;03f1 | |
| add ix,de ;03f4 | |
| ld a,(ix+000h) ;03f6 | |
| ex de,hl ;03f9 | |
| ld hl,080dah ;03fa | |
| add hl,de ;03fd | |
| ld (hl),a ;03fe | |
| l03ffh: | |
| ex de,hl ;03ff | |
| inc hl ;0400 | |
| ld (ym3514_addr+20h),a ;0401 | |
| ld a,(ym3514_addr+25h) ;0404 | |
| and 00fh ;0407 | |
| cp c ;0409 | |
| jp z,sub_ym3514_21_25_26_do_stuff_1_with_globals_1 ;040a | |
| l040dh: | |
| ld (common_elsewhere1),hl ;040d | |
| dec hl ;0410 | |
| or a ;0411 | |
| ret ;0412 | |
| interrupt_handler_2_subpath_7: | |
| ld hl,(common_elsewhere1) ;0413 | |
| ld (loaded_thing11),hl ;0416 | |
| l0419h: | |
| call sub_ym3514_21_25_26_do_stuff_1 ;0419 | |
| jp c,interrupt_handler_2_subpath_default ;041c | |
| ld a,(ym3514_addr+22h) ;041f | |
| ld d,a ;0422 | |
| ld a,(ym3514_addr+23h) ;0423 | |
| ld b,a ;0426 | |
| or a ;0427 | |
| jp nz,l0431h ;0428 | |
| ld a,d ;042b | |
| and 003h ;042c | |
| jp z,l0443h ;042e | |
| l0431h: | |
| ld a,d ;0431 | |
| ex de,hl ;0432 | |
| ld hl,080dah ;0433 | |
| add hl,de ;0436 | |
| ld (hl),a ;0437 | |
| ex de,hl ;0438 | |
| inc hl ;0439 | |
| ld a,b ;043a | |
| ex de,hl ;043b | |
| ld hl,080dah ;043c | |
| add hl,de ;043f | |
| ld (hl),a ;0440 | |
| ex de,hl ;0441 | |
| inc hl ;0442 | |
| l0443h: | |
| ld a,(ym3514_addr+25h) ;0443 | |
| and 00fh ;0446 | |
| cp c ;0448 | |
| jp z,l0419h ;0449 | |
| ld (common_elsewhere1),hl ;044c | |
| dec hl ;044f | |
| ld (loaded_thing12),hl ;0450 | |
| jp interrupt_handler_2_jump_table_execute ;0453 | |
| interrupt_handler_2_subpath_8: | |
| ld hl,(common_elsewhere1) ;0456 | |
| ld (loaded_thing3),hl ;0459 | |
| call sub_ym3514_21_25_26_do_stuff_1_with_globals_2 ;045c | |
| jp c,interrupt_handler_2_subpath_default ;045f | |
| ld a,h ;0462 | |
| or b ;0463 | |
| ld h,a ;0464 | |
| ld (loaded_thing5),hl ;0465 | |
| jp interrupt_handler_2_jump_table_execute ;0468 | |
| interrupt_handler_2_subpath_9: | |
| ld hl,(common_elsewhere1) ;046b | |
| ld (loaded_thing4),hl ;046e | |
| call sub_ym3514_21_25_26_do_stuff_1_with_globals_2 ;0471 | |
| jp c,interrupt_handler_2_subpath_default ;0474 | |
| ld a,h ;0477 | |
| or b ;0478 | |
| ld h,a ;0479 | |
| ld (loaded_thing6),hl ;047a | |
| jp interrupt_handler_2_jump_table_execute ;047d | |
| sub_ym3514_21_25_26_do_stuff_1_with_globals_2: | |
| ld b,080h ;0480 | |
| l0482h: | |
| call sub_ym3514_21_25_26_do_stuff_1 ;0482 | |
| ; Return if carry is set | |
| ret c ;0485 | |
| ld a,(ym3514_addr+23h) ;0486 | |
| and 00fh ;0489 | |
| bit 7,b ;048b | |
| jp z,l0499h ;048d | |
| rlca ;0490 | |
| rlca ;0491 | |
| rlca ;0492 | |
| rlca ;0493 | |
| res 7,b ;0494 | |
| jp l04a8h ;0496 | |
| l0499h: | |
| dec hl ;0499 | |
| push hl ;049a | |
| pop de ;049b | |
| ld ix,080dah ;049c | |
| add ix,de ;04a0 | |
| ld d,(ix+000h) ;04a2 | |
| or d ;04a5 | |
| set 7,b ;04a6 | |
| l04a8h: | |
| ex de,hl ;04a8 | |
| ld hl,080dah ;04a9 | |
| add hl,de ;04ac | |
| ld (hl),a ;04ad | |
| ex de,hl ;04ae | |
| inc hl ;04af | |
| ld a,(ym3514_addr+25h) ;04b0 | |
| and 00fh ;04b3 | |
| cp c ;04b5 | |
| jp z,l0482h ;04b6 | |
| ld (common_elsewhere1),hl ;04b9 | |
| dec hl ;04bc | |
| or a ;04bd | |
| ret ;04be | |
| interrupt_handler_2_subpath_check_loaded_things: | |
| ; Loop while (ym3514+25) & 0xf == 0 ??? | |
| ld a,(ym3514_addr+25h) ;04bf | |
| and 00fh ;04c2 | |
| ; c is probably 0 here | |
| cp c ;04c4 | |
| jp z,interrupt_handler_2_subpath_check_loaded_things ;04c5 | |
| ; Load ym3514+25 to a and b; mask a with 0x90 | |
| ld a,(ym3514_addr+25h) ;04c8 | |
| ld b,a ;04cb | |
| and 090h ;04cc | |
| ; Skip all if ym3514+25 & 0x90 != 0 | |
| jp nz,interrupt_handler_2_subpath_default ;04ce | |
| ; Skip all if ym3514+25 & 0x60 == 0 | |
| ld a,b ;04d1 | |
| and 060h ;04d2 | |
| ld b,a ;04d4 | |
| jp z,interrupt_handler_2_subpath_default ;04d5 | |
| ; Skip some if ym3514+25 & 0x60 == 0x40 | |
| cp 040h ;04d8 | |
| jp z,l05a1h ;04da | |
| ; Load stuff: | |
| ; hl = (loaded_thing1) | |
| ; de = (loaded_thing2) | |
| ld hl,loaded_thing1 ;04dd | |
| ld a,001h ;04e0 | |
| call sub_load_to_de_or_bc ;04e2 | |
| push de ;04e5 | |
| ld hl,loaded_thing2 ;04e6 | |
| ld a,001h ;04e9 | |
| call sub_load_to_de_or_bc ;04eb | |
| pop hl ;04ee | |
| ; If loaded_thing1 >= loaded_thing2, skip all | |
| call sub_compare_hl_with_de ;04ef | |
| cp 002h ;04f2 | |
| jp nz,interrupt_handler_2_subpath_default ;04f4 | |
| ; Load stuff: | |
| ; hl = (loaded_thing7) | |
| ; de = (loaded_thing9) | |
| ld hl,loaded_thing7 ;04f7 | |
| ld a,001h ;04fa | |
| call sub_load_to_de_or_bc ;04fc | |
| push de ;04ff | |
| ld hl,loaded_thing9 ;0500 | |
| ld a,001h ;0503 | |
| call sub_load_to_de_or_bc ;0505 | |
| pop hl ;0508 | |
| ; If loaded_thing7 >= loaded_thing9, skip all | |
| call sub_compare_hl_with_de ;0509 | |
| cp 002h ;050c | |
| jp nz,interrupt_handler_2_subpath_default ;050e | |
| ld hl,loaded_thing7 ;0511 | |
| inc hl ;0514 | |
| inc hl ;0515 | |
| ld a,001h ;0516 | |
| call sub_load_to_de_or_bc ;0518 | |
| push de ;051b | |
| ld hl,loaded_thing9 ;051c | |
| inc hl ;051f | |
| inc hl ;0520 | |
| ld a,001h ;0521 | |
| call sub_load_to_de_or_bc ;0523 | |
| pop hl ;0526 | |
| call sub_compare_hl_with_de ;0527 | |
| cp 002h ;052a | |
| jp nz,interrupt_handler_2_subpath_default ;052c | |
| ld hl,loaded_thing1 ;052f | |
| ld a,001h ;0532 | |
| call sub_load_to_de_or_bc ;0534 | |
| push de ;0537 | |
| ld hl,loaded_thing7 ;0538 | |
| ld a,001h ;053b | |
| call sub_load_to_de_or_bc ;053d | |
| pop hl ;0540 | |
| call sub_compare_hl_with_de ;0541 | |
| cp 002h ;0544 | |
| jp nz,interrupt_handler_2_subpath_default ;0546 | |
| ld hl,loaded_thing7 ;0549 | |
| ld a,001h ;054c | |
| call sub_load_to_de_or_bc ;054e | |
| push de ;0551 | |
| ld hl,loaded_thing7 ;0552 | |
| inc hl ;0555 | |
| inc hl ;0556 | |
| ld a,001h ;0557 | |
| call sub_load_to_de_or_bc ;0559 | |
| pop hl ;055c | |
| call sub_compare_hl_with_de ;055d | |
| cp 002h ;0560 | |
| jp nz,interrupt_handler_2_subpath_default ;0562 | |
| ld hl,loaded_thing2 ;0565 | |
| ld a,001h ;0568 | |
| call sub_load_to_de_or_bc ;056a | |
| push de ;056d | |
| ld hl,loaded_thing9 ;056e | |
| ld a,001h ;0571 | |
| call sub_load_to_de_or_bc ;0573 | |
| pop hl ;0576 | |
| call sub_compare_hl_with_de ;0577 | |
| cp 002h ;057a | |
| jp nz,interrupt_handler_2_subpath_default ;057c | |
| ld hl,loaded_thing9 ;057f | |
| ld a,001h ;0582 | |
| call sub_load_to_de_or_bc ;0584 | |
| push de ;0587 | |
| ld hl,loaded_thing9 ;0588 | |
| inc hl ;058b | |
| inc hl ;058c | |
| ld a,001h ;058d | |
| call sub_load_to_de_or_bc ;058f | |
| pop hl ;0592 | |
| call sub_compare_hl_with_de ;0593 | |
| cp 002h ;0596 | |
| jp nz,interrupt_handler_2_subpath_default ;0598 | |
| ld a,b ;059b | |
| cp 020h ;059c | |
| jp z,l066ah ;059e | |
| ; if ... { | |
| l05a1h: | |
| ld hl,loaded_thing11 ;05a1 | |
| ld a,001h ;05a4 | |
| call sub_load_to_de_or_bc ;05a6 | |
| push de ;05a9 | |
| ld hl,loaded_thing12 ;05aa | |
| ld a,001h ;05ad | |
| call sub_load_to_de_or_bc ;05af | |
| pop hl ;05b2 | |
| call sub_compare_hl_with_de ;05b3 | |
| cp 002h ;05b6 | |
| jp nz,interrupt_handler_2_subpath_default ;05b8 | |
| ld hl,loaded_thing3 ;05bb | |
| ld a,001h ;05be | |
| call sub_load_to_de_or_bc ;05c0 | |
| push de ;05c3 | |
| ld hl,loaded_thing5 ;05c4 | |
| ld a,001h ;05c7 | |
| call sub_load_to_de_or_bc ;05c9 | |
| res 7,d ;05cc | |
| pop hl ;05ce | |
| call sub_compare_hl_with_de ;05cf | |
| cp 002h ;05d2 | |
| jp nz,interrupt_handler_2_subpath_default ;05d4 | |
| ld hl,loaded_thing3 ;05d7 | |
| inc hl ;05da | |
| inc hl ;05db | |
| ld a,001h ;05dc | |
| call sub_load_to_de_or_bc ;05de | |
| push de ;05e1 | |
| ld hl,loaded_thing5 ;05e2 | |
| inc hl ;05e5 | |
| inc hl ;05e6 | |
| ld a,001h ;05e7 | |
| call sub_load_to_de_or_bc ;05e9 | |
| res 7,d ;05ec | |
| pop hl ;05ee | |
| call sub_compare_hl_with_de ;05ef | |
| cp 002h ;05f2 | |
| jp nz,interrupt_handler_2_subpath_default ;05f4 | |
| ld hl,loaded_thing11 ;05f7 | |
| ld a,001h ;05fa | |
| call sub_load_to_de_or_bc ;05fc | |
| push de ;05ff | |
| ld hl,loaded_thing3 ;0600 | |
| ld a,001h ;0603 | |
| call sub_load_to_de_or_bc ;0605 | |
| pop hl ;0608 | |
| call sub_compare_hl_with_de ;0609 | |
| cp 002h ;060c | |
| jp nz,interrupt_handler_2_subpath_default ;060e | |
| ld hl,loaded_thing3 ;0611 | |
| ld a,001h ;0614 | |
| call sub_load_to_de_or_bc ;0616 | |
| push de ;0619 | |
| ld hl,loaded_thing3 ;061a | |
| inc hl ;061d | |
| inc hl ;061e | |
| ld a,001h ;061f | |
| call sub_load_to_de_or_bc ;0621 | |
| pop hl ;0624 | |
| call sub_compare_hl_with_de ;0625 | |
| cp 002h ;0628 | |
| jp nz,interrupt_handler_2_subpath_default ;062a | |
| ld hl,loaded_thing12 ;062d | |
| ld a,001h ;0630 | |
| call sub_load_to_de_or_bc ;0632 | |
| push de ;0635 | |
| ld hl,loaded_thing5 ;0636 | |
| ld a,001h ;0639 | |
| call sub_load_to_de_or_bc ;063b | |
| res 7,d ;063e | |
| pop hl ;0640 | |
| call sub_compare_hl_with_de ;0641 | |
| cp 002h ;0644 | |
| jp nz,interrupt_handler_2_subpath_default ;0646 | |
| ld hl,loaded_thing5 ;0649 | |
| ld a,001h ;064c | |
| call sub_load_to_de_or_bc ;064e | |
| res 7,d ;0651 | |
| push de ;0653 | |
| ld hl,loaded_thing5 ;0654 | |
| inc hl ;0657 | |
| inc hl ;0658 | |
| ld a,001h ;0659 | |
| call sub_load_to_de_or_bc ;065b | |
| res 7,d ;065e | |
| pop hl ;0660 | |
| call sub_compare_hl_with_de ;0661 | |
| cp 002h ;0664 | |
| jp nz,interrupt_handler_2_subpath_default ;0666 | |
| ld a,b ;0669 | |
| ; } | |
| l066ah: | |
| cp 060h ;066a | |
| jp nz,l06ech ;066c | |
| ld hl,loaded_thing1 ;066f | |
| ld a,001h ;0672 | |
| call sub_load_to_de_or_bc ;0674 | |
| push de ;0677 | |
| ld hl,loaded_thing11 ;0678 | |
| ld a,001h ;067b | |
| call sub_load_to_de_or_bc ;067d | |
| pop hl ;0680 | |
| call sub_compare_hl_with_de ;0681 | |
| cp 001h ;0684 | |
| jp z,interrupt_handler_2_subpath_default ;0686 | |
| ld hl,loaded_thing7 ;0689 | |
| inc hl ;068c | |
| inc hl ;068d | |
| ld a,001h ;068e | |
| call sub_load_to_de_or_bc ;0690 | |
| push de ;0693 | |
| ld hl,loaded_thing3 ;0694 | |
| inc hl ;0697 | |
| inc hl ;0698 | |
| ld a,001h ;0699 | |
| call sub_load_to_de_or_bc ;069b | |
| pop hl ;069e | |
| call sub_compare_hl_with_de ;069f | |
| cp 001h ;06a2 | |
| jp z,interrupt_handler_2_subpath_default ;06a4 | |
| ld hl,loaded_thing7 ;06a7 | |
| inc hl ;06aa | |
| inc hl ;06ab | |
| ld a,001h ;06ac | |
| call sub_load_to_de_or_bc ;06ae | |
| push de ;06b1 | |
| ld hl,loaded_thing11 ;06b2 | |
| ld a,001h ;06b5 | |
| call sub_load_to_de_or_bc ;06b7 | |
| pop hl ;06ba | |
| call sub_compare_hl_with_de ;06bb | |
| cp 001h ;06be | |
| jp z,interrupt_handler_2_subpath_default ;06c0 | |
| ld hl,loaded_thing1 ;06c3 | |
| ld a,001h ;06c6 | |
| call sub_load_to_de_or_bc ;06c8 | |
| push de ;06cb | |
| ld hl,loaded_thing3 ;06cc | |
| inc hl ;06cf | |
| inc hl ;06d0 | |
| ld a,001h ;06d1 | |
| call sub_load_to_de_or_bc ;06d3 | |
| pop hl ;06d6 | |
| call sub_compare_hl_with_de ;06d7 | |
| cp 001h ;06da | |
| jp z,interrupt_handler_2_subpath_default ;06dc | |
| ld hl,flags1 ;06df | |
| res 5,(hl) ;06e2 | |
| ld a,080h ;06e4 | |
| ld (flags2),a ;06e6 | |
| jp l06fdh ;06e9 | |
| l06ech: | |
| ld hl,flags1 ;06ec | |
| set 5,(hl) ;06ef | |
| jp l06f9h ;06f1 | |
| ; Skipped to here if ym3514+25 & 0x90 != 0 | |
| ; Skipped to here if ym3514+25 & 0x60 != 0 | |
| interrupt_handler_2_subpath_default: | |
| ld hl,flags1 ;06f4 | |
| res 5,(hl) ;06f7 | |
| l06f9h: | |
| xor a ;06f9 | |
| ld (flags2),a ;06fa | |
| l06fdh: | |
| ld a,(key_result_flags1) ;06fd | |
| and 0c0h ;0700 | |
| ld (key_result_flags1),a ;0702 | |
| ld a,00fh ;0705 | |
| ld (08043h),a ;0707 | |
| ; flags1 &= 0x28 | |
| ; flags1 |= YM2142_DIRTY | |
| ld a,(flags1) ;070a | |
| and 028h ;070d | |
| set 6,a ;070f | |
| ld (flags1),a ;0711 | |
| ; Initialize ym2142 notes to zero = not playing | |
| ; Send to ym2142: 84h 00h 85h 00h 86h 00h 87h 00h | |
| ld b,004h ;0714 | |
| ld c,084h ;0716 | |
| ym2142_init_loop_1: | |
| ld a,c ;0718 | |
| ld (ym2142_addr),a ;0719 | |
| call sub_delay_roughly_20_cycles ;071c | |
| xor a ;071f | |
| ld (ym2142_addr),a ;0720 | |
| call sub_delay_roughly_20_cycles ;0723 | |
| inc c ;0726 | |
| djnz ym2142_init_loop_1 ;0727 | |
| ; Zero out four bytes, incrementing hl | |
| ld b,004h ;0729 | |
| ld hl,common_array1 ;072b | |
| xor a ;072e | |
| l072fh: | |
| ld (hl),a ;072f | |
| inc hl ;0730 | |
| djnz l072fh ;0731 | |
| ; Zero out some variables | |
| ld (080cfh),a ;0733 | |
| ld (080d7h),a ;0736 | |
| ld (080d0h),a ;0739 | |
| ld (080d8h),a ;073c | |
| ld (080d9h),a ;073f | |
| ; Reset stack pointer ??? why would we do this | |
| ld sp,stack_start_addr ;0742a | |
| ; Reset bit 2 in I | |
| ld a,i ;0745 | |
| res 2,a ;0747 | |
| ld i,a ;0749 | |
| jp entry_point_jump2 ;074b | |
| sub_delay_variable_time_1: | |
| pop hl ;074e | |
| ex (sp),hl ;074f | |
| l0750h: | |
| ld a,h ;0750 | |
| or l ;0751 | |
| jp z,l075ch ;0752 | |
| call sub_delay_roughly_200_cycles ;0755 | |
| dec hl ;0758 | |
| jp l0750h ;0759 | |
| l075ch: | |
| ret ;075c | |
| sub_delay_roughly_200_cycles: | |
| push bc ;075d | |
| ld b,0c5h ;075e | |
| l0760h: | |
| nop ;0760 | |
| nop ;0761 | |
| nop ;0762 | |
| djnz l0760h ;0763 | |
| pop bc ;0765 | |
| ret ;0766 | |
| sub_delay_roughly_5_cycles: | |
| push bc ;0767 | |
| ld b,001h ;0768 | |
| l076ah: | |
| djnz l076ah ;076a | |
| pop bc ;076c | |
| ret ;076d | |
| sub_delay_roughly_10_cycles: | |
| push bc ;076e | |
| ld b,007h ;076f | |
| l0771h: | |
| djnz l0771h ;0771 | |
| pop bc ;0773 | |
| ret ;0774 | |
| sub_delay_roughly_20_cycles: | |
| push bc ;0775 | |
| ld b,00dh ;0776 | |
| l0778h: | |
| djnz l0778h ;0778 | |
| pop bc ;077a | |
| ret ;077b | |
| ; Parameters: | |
| ; st+1: first byte | |
| ; st+0: second byte | |
| sub_ym2142_write_2B: | |
| ; Pop return address | |
| pop hl ;077c | |
| ; Pop second pushed parameter | |
| pop de ;077d | |
| ; Get first pushed parameter | |
| ex (sp),hl ;077e | |
| ; Write to ym2142 | |
| ld a,l ;077f | |
| ld (ym2142_addr),a ;0780 | |
| call sub_delay_roughly_5_cycles ;0783 | |
| ld a,e ;0786 | |
| and 07fh ;0787 | |
| ld (ym2142_addr),a ;0789 | |
| ret ;078c | |
| ; Parameters: | |
| ; st+0: offset1 | |
| sub_078dh_maybe_write_many_to_ym2142: | |
| pop hl ;078d | |
| ex (sp),hl ;078e | |
| ld de,common_c1 ;078f | |
| add hl,de ;0792 | |
| ; Now hl = common_c1 + offset1 | |
| ld l,(hl) ;0793 | |
| ld h,000h ;0794 | |
| ex de,hl ;0796 | |
| ; Now e = (common_c1 + offset1) = index1 | |
| ld hl,common_array1 ;0797 | |
| add hl,de ;079a | |
| ; Now hl = common_array1 + index1 | |
| ld a,(hl) ;079b | |
| bit 0,a ;079c | |
| ; Skip if (common_array1 + index1) bit 0 is zero | |
| jp z,l07b2h ;079e | |
| push de ;07a1 | |
| push hl ;07a2 | |
| ld hl,84h ;07a3 | |
| add hl,de ;07a6 | |
| ; Now hl = 84h + index1 | |
| push hl ;07a7 | |
| ld hl,0 ;07a8 | |
| push hl ;07ab | |
| ; st+1 = 84h + index1 | |
| ; st+0 = 0 | |
| call sub_ym2142_write_2B ;07ac | |
| pop hl ;07af | |
| pop de ;07b0 | |
| ld a,(hl) ;07b1 | |
| l07b2h: | |
| bit 1,a ;07b2 | |
| ; Skip if (common_array1 + index1) bit 1 is zero | |
| jp z,l07cfh ;07b4 | |
| push de ;07b7 | |
| push hl ;07b8 | |
| ld hl,84h ;07b9 | |
| add hl,de ;07bc | |
| ; Now hl = 84h + index1 | |
| push hl ;07bd | |
| ld hl,common_c2 ;07be | |
| add hl,de ;07c1 | |
| ; Now hl = common_c2 + index1 | |
| ld a,(hl) ;07c2 | |
| and 03fh ;07c3 | |
| ld h,000h ;07c5 | |
| ld l,a ;07c7 | |
| ; Now hl = (common_c2 + index1) & 0x3f | |
| push hl ;07c8 | |
| ; st+1 = 84h + index1 | |
| ; st+0 = (common_c2 + index1) & 0x3f | |
| call sub_ym2142_write_2B ;07c9 | |
| pop hl ;07cc | |
| pop de ;07cd | |
| ld a,(hl) ;07ce | |
| l07cfh: | |
| bit 2,a ;07cf | |
| ; Skip if (common_array1 + index1) bit 2 is zero | |
| jp z,l07e9h ;07d1 | |
| push de ;07d4 | |
| push hl ;07d5 | |
| ld hl,00088h ;07d6 | |
| add hl,de ;07d9 | |
| ; Now hl = 88h + index1 | |
| push hl ;07da | |
| ld hl,common_c4 ;07db | |
| add hl,de ;07de | |
| ld l,(hl) ;07df | |
| ld h,000h ;07e0 | |
| ; Now hl = (common_c4 + index1) | |
| push hl ;07e2 | |
| ; st+1 = 88h + index1 | |
| ; st+0 = (common_c4 + index1) | |
| call sub_ym2142_write_2B ;07e3 | |
| pop hl ;07e6 | |
| pop de ;07e7 | |
| ld a,(hl) ;07e8 | |
| l07e9h: | |
| bit 3,a ;07e9 | |
| ; Skip if (common_array1 + index1) bit 3 is zero | |
| jp z,l0803h ;07eb | |
| push de ;07ee | |
| push hl ;07ef | |
| ld hl,0008ch ;07f0 | |
| add hl,de ;07f3 | |
| ; Now hl = 8ch + index1 | |
| push hl ;07f4 | |
| ld hl,common_c3 ;07f5 | |
| add hl,de ;07f8 | |
| ld l,(hl) ;07f9 | |
| ld h,000h ;07fa | |
| ; Now hl = (common_c3 + index1) | |
| push hl ;07fc | |
| ; st+1 = 8ch + index1 | |
| ; st+0 = (common_c3 + index1) | |
| call sub_ym2142_write_2B ;07fd | |
| l0800h: | |
| pop hl ;0800 | |
| l0801h: | |
| pop de ;0801 | |
| ld a,(hl) ;0802 | |
| l0803h: | |
| bit 4,a ;0803 | |
| l0805h: | |
| jp z,l081dh ;0805 | |
| push hl ;0808 | |
| ld hl,84h ;0809 | |
| add hl,de ;080c | |
| ; Now hl = 84h + index1 | |
| push hl ;080d | |
| ld hl,common_c5 ;080e | |
| add hl,de ;0811 | |
| ld a,(hl) ;0812 | |
| or 040h ;0813 | |
| ld h,000h ;0815 | |
| ld l,a ;0817 | |
| ; Now hl = (common_c5 + index) | 0x40 | |
| push hl ;0818 | |
| ; st+1 = 84h + index1 | |
| ; st+0 = (common_c5 + index) | 0x40 | |
| ; Is called when C has been pressed and something should start happening (close to end) | |
| call sub_ym2142_write_2B ;0819 | |
| pop hl ;081c | |
| l081dh: | |
| ld (hl),000h ;081d | |
| ret ;081f | |
| ; Arguments: | |
| ; sp+0: Address to read from (src_addr) | |
| ; sp+1: Address of key_states (&key_states) | |
| ; NOTE: sp+1 is not popped; instead it is replaced by the value of sp+0 | |
| ; ??? | |
| sub_0820h_load_12_things_return_quickly_if_YM2142_DIRTY: | |
| ; Pop sp+0 into hl. | |
| pop hl ;0820 | |
| ; sp+0 = &key_states | |
| ; hl = src_addr | |
| ; Exchange between sp+0 and hl. | |
| ex (sp),hl a ;0821 | |
| ; sp+0 = src_addr | |
| ; hl = &key_states | |
| ; Now proceed to read 16 bytes starting from &key_states | |
| call sub_load_ed_from_hl_incr_check_YM2142_DIRTY ;0822 | |
| jp nz,l08e6h ;0825 | |
| ld (loaded_thing1),de ;0828 | |
| call sub_load_ed_from_hl_incr_check_YM2142_DIRTY ;082c | |
| jp nz,l08e6h ;082f | |
| ld (loaded_thing2),de ;0832 | |
| call sub_load_ed_from_hl_incr_check_YM2142_DIRTY ;0836 | |
| jp nz,l08e6h ;0839 | |
| ld (loaded_thing3),de ;083c | |
| call sub_load_ed_from_hl_incr_check_YM2142_DIRTY ;0840 | |
| jp nz,l08e6h ;0843 | |
| ld (loaded_thing4),de ;0846 | |
| call sub_load_ed_from_hl_incr_check_YM2142_DIRTY ;084a | |
| jp nz,l08e6h ;084d | |
| ld (loaded_thing5),de ;0850 | |
| call sub_load_ed_from_hl_incr_check_YM2142_DIRTY ;0854 | |
| jp nz,l08e6h ;0857 | |
| ld (loaded_thing6),de ;085a | |
| call sub_load_ed_from_hl_incr_check_YM2142_DIRTY ;085e | |
| jp nz,l08e6h ;0861 | |
| ld (loaded_thing7),de ;0864 | |
| call sub_load_ed_from_hl_incr_check_YM2142_DIRTY ;0868 | |
| jp nz,l08e6h ;086b | |
| ld (loaded_thing8),de ;086e | |
| call sub_load_ed_from_hl_incr_check_YM2142_DIRTY ;0872 | |
| jp nz,l08e6h ;0875 | |
| ld (loaded_thing9),de ;0878 | |
| call sub_load_ed_from_hl_incr_check_YM2142_DIRTY ;087c | |
| jp nz,l08e6h ;087f | |
| ld (loaded_thing10),de ;0882 | |
| call sub_load_ed_from_hl_incr_check_YM2142_DIRTY ;0886 | |
| jp nz,l08e6h ;0889 | |
| ld (loaded_thing11),de ;088c | |
| call sub_load_ed_from_hl_incr_check_YM2142_DIRTY ;0890 | |
| jp nz,l08e6h ;0893 | |
| ld (loaded_thing12),de ;0896 | |
| ld bc,00001h+2 ;089a | |
| ld de,0802dh ;089d | |
| l08a0h: | |
| ; If flags1 & YM2142_DIRTY, return | |
| ld a,(flags1) ;08a0 | |
| bit 6,a ;08a3 | |
| jp nz,l08e6h ;08a5 | |
| ldi ;08a8a | |
| ; If overflow is set, loop (???) | |
| jp pe,l08a0h ;08aa | |
| ld c,(hl) ;08ad | |
| inc hl ;08ae | |
| ld b,(hl) ;08af | |
| inc hl ;08b0 | |
| ld de,080dah ;08b1 | |
| l08b4h: | |
| ; If flags1 & YM2142_DIRTY, return | |
| ld a,(flags1) ;08b4 | |
| bit 6,a ;08b7 | |
| jp nz,l08e6h ;08b9 | |
| ldi ;08bc | |
| ; If overflow is set, loop (???) | |
| jp pe,l08b4h ;08be | |
| call sub_1b00h_calc ;08c1 | |
| call sub_2846h ;08c4 | |
| ld de,6+2 ;08c7 | |
| ld hl,key_states ;08ca | |
| add hl,de ;08cd | |
| ld (hl),001h ;08ce | |
| ld hl,key_diffs ;08d0 | |
| add hl,de ;08d3 | |
| ld (hl),001h ;08d4 | |
| ld hl,flags2 ;08d6 | |
| res 5,(hl) ;08d9 | |
| res 7,(hl) ;08db | |
| set 6,(hl) ;08dd | |
| ld hl,flags1 ;08df | |
| res 5,(hl) ;08e2 | |
| set 7,(hl) ;08e4 | |
| l08e6h: | |
| ret ;08e6 | |
| ; Loads (hl++), (hl++) into de and checks YM2142_DIRTY | |
| sub_load_ed_from_hl_incr_check_YM2142_DIRTY: | |
| ld e,(hl) ;08e7 | |
| inc hl ;08e8 | |
| ld d,(hl) ;08e9 | |
| inc hl ;08ea | |
| ld a,(flags1) ;08eb | |
| bit 6,a ;08ee | |
| ret ;08f0 | |
| l08f1h: | |
| nop ;08f1 DATA? | |
| nop ;08f2 DATA? | |
| nop ;08f3 DATA? | |
| ld bc,l0101h ;08f4 DATA? | |
| ld (bc),a ;08f7 DATA? | |
| ld (bc),a ;08f8 DATA? | |
| ld (bc),a ;08f9 DATA? | |
| inc bc ;08fa DATA? | |
| inc bc ;08fb DATA? | |
| inc bc ;08fc DATA? | |
| inc b ;08fd DATA? | |
| inc b ;08fe DATA? | |
| inc b ;08ff DATA? | |
| dec b ;0900 DATA? | |
| dec b ;0901 DATA? | |
| dec b ;0902 DATA? | |
| ld b,006h ;0903 DATA? | |
| ld b,007h ;0905 DATA? | |
| rlca ;0907 DATA? | |
| rlca ;0908 DATA? | |
| ex af,af' ;0909 DATA? | |
| ex af,af' ;090a DATA? | |
| ex af,af' ;090b DATA? | |
| add hl,bc ;090c DATA? | |
| add hl,bc ;090d DATA? | |
| add hl,bc ;090e DATA? | |
| ld a,(bc) ;090f DATA? | |
| ld a,(bc) ;0910 DATA? | |
| ld a,(bc) ;0911 DATA? | |
| dec bc ;0912 DATA? | |
| dec bc ;0913 DATA? | |
| dec bc ;0914 DATA? | |
| inc c ;0915 DATA? | |
| inc c ;0916 DATA? | |
| inc c ;0917 DATA? | |
| dec c ;0918 DATA? | |
| dec c ;0919 DATA? | |
| dec c ;091a DATA? | |
| ld c,00eh ;091b DATA? | |
| ld c,00fh ;091d DATA? | |
| rrca ;091f DATA? | |
| rrca ;0920 DATA? | |
| l0921h: | |
| nop ;0921 DATA? | |
| nop ;0922 DATA? | |
| nop ;0923 DATA? | |
| nop ;0924 DATA? | |
| ld bc,l0101h ;0925 DATA? | |
| ld bc,l0200h+2 ;0928 DATA? | |
| ld (bc),a ;092b DATA? | |
| ld (bc),a ;092c DATA? | |
| inc bc ;092d DATA? | |
| inc bc ;092e DATA? | |
| inc bc ;092f DATA? | |
| inc bc ;0930 DATA? | |
| inc b ;0931 DATA? | |
| inc b ;0932 DATA? | |
| inc b ;0933 DATA? | |
| inc b ;0934 DATA? | |
| dec b ;0935 DATA? | |
| dec b ;0936 DATA? | |
| dec b ;0937 DATA? | |
| dec b ;0938 DATA? | |
| ld b,006h ;0939 DATA? | |
| ld b,006h ;093b DATA? | |
| rlca ;093d DATA? | |
| rlca ;093e DATA? | |
| rlca ;093f DATA? | |
| rlca ;0940 DATA? | |
| ex af,af' ;0941 DATA? | |
| ex af,af' ;0942 DATA? | |
| ex af,af' ;0943 DATA? | |
| ex af,af' ;0944 DATA? | |
| add hl,bc ;0945 DATA? | |
| add hl,bc ;0946 DATA? | |
| add hl,bc ;0947 DATA? | |
| add hl,bc ;0948 DATA? | |
| ld a,(bc) ;0949 DATA? | |
| ld a,(bc) ;094a DATA? | |
| ld a,(bc) ;094b DATA? | |
| ld a,(bc) ;094c DATA? | |
| dec bc ;094d DATA? | |
| dec bc ;094e DATA? | |
| dec bc ;094f DATA? | |
| dec bc ;0950 DATA? | |
| entry_point: | |
| xor a ;0951 | |
| ld (ym3514_addr+27h),a ;0952 | |
| call sub_delay_roughly_10_cycles ;0955 | |
| ld a,01eh ;0958 | |
| ld (ym3514_addr+02h),a ;095a | |
| call sub_delay_roughly_10_cycles ;095d | |
| ld (ym3514_addr+03h),a ;0960 | |
| call sub_delay_roughly_10_cycles ;0963 | |
| ld a,001h ;0966 | |
| ld (ym3514_addr+01h),a ;0968 | |
| call sub_delay_roughly_10_cycles ;096b | |
| ld a,(ym3514_addr+01h) ;096e | |
| cpl ;0971 | |
| and 00fh ;0972 | |
| cp 00fh ;0974 | |
| jp nz,entry_point_jump_1_last ;0976 | |
| xor a ;0979 | |
| ld (ym3514_addr+01h),a ;097a | |
| ld hl,key_states ;097d | |
| l0980h: | |
| ld a,h ;0980 | |
| and 00fh ;0981 | |
| ld (ym3514_addr+02h),a ;0983 | |
| xor a ;0986 | |
| l0987h: | |
| ld (hl),a ;0987 | |
| cp (hl) ;0988 | |
| jp nz,l0a98h ;0989 | |
| inc a ;098c | |
| jp nz,l0987h ;098d | |
| ld (hl),a ;0990 | |
| inc hl ;0991 | |
| ld a,h ;0992 | |
| cp 088h ;0993 | |
| jp nz,l0980h ;0995 | |
| ld sp,stack_start_addr ;0998 | |
| and 00fh ;099b | |
| ld (ym3514_addr+02h),a ;099d | |
| call sub_delay_roughly_10_cycles ;09a0 | |
| ld a,080h ;09a3 | |
| call sub_0a7eh ;09a5 | |
| ld a,009h ;09a8 | |
| ld (ym3514_addr+02h),a ;09aa | |
| call sub_delay_roughly_10_cycles ;09ad | |
| ld a,040h ;09b0 | |
| call sub_0a7eh ;09b2 | |
| ld a,00ah ;09b5 | |
| ld (ym3514_addr+02h),a ;09b7 | |
| call sub_delay_roughly_10_cycles ;09ba | |
| ld a,080h ;09bd | |
| ld (ym3514_addr+00h),a ;09bf | |
| call sub_delay_roughly_10_cycles ;09c2 | |
| ld a,(ym3514_addr+01h) ;09c5 | |
| cpl ;09c8 | |
| bit 6,a ;09c9 | |
| jp nz,l0a98h ;09cb | |
| ld a,00bh ;09ce | |
| ld (ym3514_addr+02h),a ;09d0 | |
| call sub_delay_roughly_10_cycles ;09d3 | |
| ld a,040h ;09d6 | |
| ld (ym3514_addr+00h),a ;09d8 | |
| call sub_delay_roughly_10_cycles ;09db | |
| ld a,(ym3514_addr+01h) ;09de | |
| cpl ;09e1 | |
| bit 6,a ;09e2 | |
| jp nz,l0a98h ;09e4 | |
| ld b,00ch ;09e7 | |
| ld c,001h ;09e9 | |
| l09ebh: | |
| ld a,b ;09eb | |
| ld (ym3514_addr+02h),a ;09ec | |
| call sub_delay_roughly_10_cycles ;09ef | |
| ld a,c ;09f2 | |
| ld (ym3514_addr+00h),a ;09f3 | |
| call sub_delay_roughly_10_cycles ;09f6 | |
| ld a,(ym3514_addr+01h) ;09f9 | |
| cpl ;09fc | |
| and 03fh ;09fd | |
| jp z,l0a11h ;09ff | |
| ld d,0ffh ;0a02 | |
| l0a04h: | |
| inc d ;0a04 | |
| srl a ;0a05 | |
| jp nc,l0a04h ;0a07 | |
| ld a,d ;0a0a | |
| ld (ym3514_addr+03h),a ;0a0b | |
| jp l0a98h ;0a0e | |
| l0a11h: | |
| inc b ;0a11 | |
| sla c ;0a12 | |
| ld a,c ;0a14 | |
| cp 020h ;0a15 | |
| jp nz,l09ebh ;0a17 | |
| ld a,b ;0a1a | |
| ld (ym3514_addr+02h),a ;0a1b | |
| call sub_delay_roughly_10_cycles ;0a1e | |
| ld a,c ;0a21 | |
| ld (ym3514_addr+00h),a ;0a22 | |
| call sub_delay_roughly_10_cycles ;0a25 | |
| ld a,(ym3514_addr+01h) ;0a28 | |
| cpl ;0a2b | |
| and 003h ;0a2c | |
| jp z,l0a40h ;0a2e | |
| ld d,0ffh ;0a31 | |
| l0a33h: | |
| inc d ;0a33 | |
| srl a ;0a34 | |
| jp nc,l0a33h ;0a36 | |
| ld a,d ;0a39 | |
| ld (ym3514_addr+03h),a ;0a3a | |
| jp l0a98h ;0a3d | |
| l0a40h: | |
| xor a ;0a40 | |
| ld (ym3514_addr+00h),a ;0a41 | |
| call sub_delay_roughly_20_cycles ;0a44 | |
| ld a,012h ;0a47 | |
| ld (ym3514_addr+02h),a ;0a49 | |
| call sub_delay_roughly_10_cycles ;0a4c | |
| ld a,001h ;0a4f | |
| ld (ym3514_addr+01h),a ;0a51 | |
| call sub_delay_roughly_10_cycles ;0a54 | |
| ld a,(ym3514_addr+01h) ;0a57 | |
| cpl ;0a5a | |
| and 00fh ;0a5b | |
| jp z,l0a6fh ;0a5d | |
| ld d,0ffh ;0a60 | |
| l0a62h: | |
| inc d ;0a62 | |
| srl a ;0a63 | |
| jp nc,l0a62h ;0a65 | |
| ld a,d ;0a68 | |
| ld (ym3514_addr+03h),a ;0a69 | |
| jp l0a98h ;0a6c | |
| l0a6fh: | |
| xor a ;0a6f | |
| ld (ym3514_addr+01h),a ;0a70 | |
| call sub_delay_roughly_10_cycles ;0a73 | |
| ld a,01eh ;0a76 | |
| ld (ym3514_addr+02h),a ;0a78 | |
| jp entry_point_jump_1_last ;0a7b | |
| sub_0a7eh: | |
| ld (ym3514_addr+00h),a ;0a7e | |
| call sub_delay_roughly_10_cycles ;0a81 | |
| ld a,(ym3514_addr+01h) ;0a84 | |
| cpl ;0a87 | |
| and 03fh ;0a88 | |
| jp z,l0a98h ;0a8a | |
| or a ;0a8d | |
| l0a8eh: | |
| srl a ;0a8e | |
| jp nc,l0a8eh ;0a90 | |
| or a ;0a93 | |
| jp nz,l0a98h ;0a94 | |
| ret ;0a97 | |
| l0a98h: | |
| jp l0a98h ;0a98 | |
| sub_clear_common_a123: | |
| xor a ;0a9b | |
| ld (common_a1),a ;0a9c | |
| ld (common_a2),a ;0a9f | |
| ld (common_a3),a ;0aa2 | |
| ret ;0aa5 | |
| sub_0aa6h: | |
| ld a,(0803eh) ;0aa6 | |
| cp 002h ;0aa9 | |
| jp nz,l0ab4h ;0aab | |
| ld hl,000fh ;0aae | |
| jp l0ab7h ;0ab1 | |
| l0ab4h: | |
| ld hl,0000bh ;0ab4 | |
| l0ab7h: | |
| ex (sp),hl ;0ab7 | |
| jp (hl) ;0ab8 | |
| sub_0ab9h: | |
| call sub_0aa6h ;0ab9 | |
| pop hl ;0abc | |
| ld a,(common_a3) ;0abd | |
| and 00fh ;0ac0 | |
| cp l ;0ac2 | |
| jp nz,l0adah ;0ac3 | |
| ld a,(common_a3) ;0ac6 | |
| bit 7,a ;0ac9 | |
| jp z,l0ad4h ;0acb | |
| ld hl,0 ;0ace | |
| jp l0ae1h ;0ad1 | |
| l0ad4h: | |
| ld hl,l0080h ;0ad4 | |
| jp l0ae1h ;0ad7 | |
| l0adah: | |
| ld hl,common_a3 ;0ada | |
| ld l,(hl) ;0add | |
| ld h,000h ;0ade | |
| inc hl ;0ae0 | |
| l0ae1h: | |
| ex (sp),hl ;0ae1 | |
| jp (hl) ;0ae2 | |
| ; Reads key input from ym3514 to key_states+de | |
| sub_ym3514_read_key_byte: | |
| call sub_delay_roughly_10_cycles ;0ae3 | |
| ; Read ym3514+1 | |
| ld a,(ym3514_addr+01h) ;0ae6 | |
| ; Invert and mask the result | |
| cpl ;0ae9 | |
| and 07fh ;0aea | |
| ld c,a ;0aec | |
| ; Read old value from key_states+de | |
| ld hl,key_states ;0aed | |
| add hl,de ;0af0 | |
| ld b,(hl) ;0af1 | |
| ld a,b ;0af2 | |
| ; Check difference with new value | |
| xor c ;0af3 | |
| ld b,a ;0af4 | |
| ; Save new value to key_states+de | |
| ld (hl),c ;0af5 | |
| ; Save difference to key_diffs+de | |
| ld hl,key_diffs ;0af6 | |
| add hl,de ;0af9 | |
| ld (hl),b ;0afa | |
| ret ;0afb | |
| sub_ym3514_read_keys: | |
| ld a,(key_state1) ;0afc | |
| or a ;0aff | |
| l0b00h: | |
| jp nz,l0b33h ;0b00 | |
| ; if key_state1 != 0 { | |
| ld b,001h ;0b03 | |
| ld de,0 ;0b05 | |
| l0b08h: | |
| ; Write 01h to ym3514+0 | |
| ld a,b ;0b08 | |
| ld (ym3514_addr+00h),a ;0b09 | |
| ; Read result (key_states[de], key_diffs[de]) | |
| push bc ;0b0c | |
| call sub_ym3514_read_key_byte ;0b0d | |
| pop bc ;0b10 | |
| ; Increment to next step: b <<= 1; de++ | |
| sla b ;0b11 | |
| inc de ;0b13 | |
| ; Loop until e == 8 | |
| ld a,e ;0b14 | |
| cp 008h ;0b15 | |
| jp nz,l0b08h ;0b17 | |
| ; Write 00h to ym3514+0 | |
| xor a ;0b1a | |
| ld (ym3514_addr+00h),a ;0b1b | |
| call sub_delay_roughly_10_cycles ;0b1e | |
| ; Ask and read key_*[8] | |
| ld de,6+2 ;0b21 | |
| ld a,001h ;0b24 | |
| ld (ym3514_addr+01h),a ;0b26 | |
| call sub_ym3514_read_key_byte ;0b29 | |
| ; Write 00h to ym3514+1 | |
| xor a ;0b2c | |
| ld (ym3514_addr+01h),a ;0b2d | |
| ; Return | |
| jp l0b50h ;0b30 | |
| ; } | |
| l0b33h: | |
| ; Reset key_diffs[6:7] bit 6 | |
| ld hl,key_diffs ;0b33 | |
| ld de,6 ;0b36 | |
| add hl,de ;0b39 | |
| res 6,(hl) ;0b3a | |
| inc hl ;0b3c | |
| res 6,(hl) ;0b3d | |
| ; key_diffs[8] &= 0xf0; | |
| inc hl ;0b3f | |
| ld a,(hl) ;0b40 | |
| and 0f0h ;0b41 | |
| ld (hl),a ;0b43 | |
| ; key_state1++ | |
| ld hl,key_state1 ;0b44 | |
| inc (hl) ;0b47 | |
| ; Compare key_state with 1 | |
| ld a,001h ;0b48 | |
| cp (hl) ;0b4a | |
| jp nc,l0b50h ;0b4b | |
| ; if key_state1 <= 1 { | |
| ld (hl),000h ;0b4e | |
| ; } | |
| l0b50h: | |
| ret ;0b50 | |
| sub_0b51h_process_maybe_keys_wrap2: | |
| ; key_result_flags1 &= 0xcfh | |
| ld hl,key_result_flags1 ;0b51 | |
| ld a,(hl) ;0b54 | |
| and 0cfh ;0b55 | |
| ld (hl),a ;0b57 | |
| ; If bit 4 of flags2 is zero, | |
| ; reset bit 7 of flags1 and return | |
| ld hl,flags2 ;0b58 | |
| bit 4,(hl) ;0b5b | |
| jp nz,l0b68h ;0b5d | |
| ld hl,flags1 ;0b60 | |
| res 7,(hl) ;0b63 | |
| jp l0b72h ;0b65 | |
| l0b68h: | |
| ; Reset bit 4 of flags2 | |
| res 4,(hl) ;0b68 | |
| ; If bit 5 of flags2 is non-zero, | |
| ; call sub_19a4h_process_maybe_keys_wrap1 | |
| bit 5,(hl) ;0b6a | |
| jp z,l0b72h ;0b6c | |
| call sub_19a4h_process_maybe_keys_wrap1 ;0b6f | |
| l0b72h: | |
| ret ;0b72 | |
| sub_0b73h_main_calc_and_write_ym3514_03: | |
| ; Is called when C has been pressed and something should start happening | |
| call sub_0fdfh_handle_special_keys_maybe ;0b73 | |
| call sub_1374h_ym3514_calc_more_and_write_03_2 ;0b76 | |
| ld a,(flags1) ;0b79 | |
| and 007h ;0b7c | |
| jp nz,l0b84h ;0b7e | |
| ; Is called when C has been pressed and something should start happening | |
| call sub_151ch_adjust_key_result_flags1_based_on_keys ;0b81 | |
| l0b84h: | |
| call sub_1a34h_handle_special_keys_maybe ;0b84 | |
| ret ;0b87 | |
| ; Is NOT called when C has been pressed and something should start happening | |
| sub_0b88h_long_calc_global_1: | |
| ld bc,0 ;0b88 | |
| ld a,(common_b1) ;0b8b | |
| or a ;0b8e | |
| jp z,l0bbeh ;0b8f | |
| l0b92h: | |
| ld a,(common_b1) ;0b92 | |
| ld b,a ;0b95 | |
| ld a,c ;0b96 | |
| cp b ;0b97 | |
| jp nc,l0bbeh ;0b98 | |
| ld b,000h ;0b9b | |
| ld hl,common_c1 ;0b9d | |
| add hl,bc ;0ba0 | |
| ld d,000h ;0ba1 | |
| ld e,(hl) ;0ba3 | |
| ld hl,kpr_08018h ;0ba4 | |
| add hl,de ;0ba7 | |
| ld a,(hl) ;0ba8 | |
| cp 020h ;0ba9 | |
| jp nc,l0bbah ;0bab | |
| push bc ;0bae | |
| ld l,(hl) ;0baf | |
| ld h,000h ;0bb0 | |
| push hl ;0bb2 | |
| call sub_107eh_calc_a_lot ;0bb3 | |
| pop bc ;0bb6 | |
| jp l0b92h ;0bb7 | |
| l0bbah: | |
| inc bc ;0bba | |
| jp l0b92h ;0bbb | |
| l0bbeh: | |
| ld a,(key_result_flags1) ;0bbe | |
| bit 1,a ;0bc1 | |
| jp z,l0bd3h ;0bc3 | |
| ld a,002h ;0bc6 | |
| ld (common_b2),a ;0bc8 | |
| ld a,020h ;0bcb | |
| ld (num_keys_ignore),a ;0bcd | |
| jp l0bf9h ;0bd0 | |
| l0bd3h: | |
| ld a,(flags1) ;0bd3 | |
| bit 0,a ;0bd6 | |
| jp z,l0be2h ;0bd8 | |
| xor a ;0bdb | |
| ld (common_b2),a ;0bdc | |
| jp l0bf4h ;0bdf | |
| l0be2h: | |
| and 006h ;0be2 | |
| jp z,l0befh ;0be4 | |
| ld a,001h ;0be7 | |
| ld (common_b2),a ;0be9 | |
| jp l0bf4h ;0bec | |
| l0befh: | |
| ld a,004h ;0bef | |
| ld (common_b2),a ;0bf1 | |
| l0bf4h: | |
| ld a,012h ;0bf4 | |
| ld (num_keys_ignore),a ;0bf6 | |
| l0bf9h: | |
| ld de,0 ;0bf9 | |
| l0bfch: | |
| ld hl,common_array1 ;0bfc | |
| add hl,de ;0bff | |
| l0c00h: | |
| xor a ;0c00 | |
| ld (hl),a ;0c01 | |
| set 0,(hl) ;0c02 | |
| inc de ;0c04 | |
| ld a,e ;0c05 | |
| cp 004h ;0c06 | |
| jp nz,l0bfch ;0c08 | |
| ld a,(flags1) ;0c0b | |
| and 007h ;0c0e | |
| jp nz,l0c25h ;0c10 | |
| ld de,0 ;0c13 | |
| l0c16h: | |
| ld hl,key_states ;0c16 | |
| add hl,de ;0c19 | |
| ld a,(hl) ;0c1a | |
| and 0c0h ;0c1b | |
| ld (hl),a ;0c1d | |
| inc de ;0c1e | |
| ld a,e ;0c1f | |
| cp 006h ;0c20 | |
| jp nz,l0c16h ;0c22 | |
| l0c25h: | |
| ld a,(common_b1) ;0c25 | |
| ld b,a ;0c28 | |
| ld a,(common_b2) ;0c29 | |
| cp b ;0c2c | |
| jp nc,l0c36h ;0c2d | |
| ld a,(common_b2) ;0c30 | |
| ld (common_b1),a ;0c33 | |
| l0c36h: | |
| ld a,(common_b1) ;0c36 | |
| ld d,000h ;0c39 | |
| ld e,a ;0c3b | |
| l0c3ch: | |
| ld hl,common_c1 ;0c3c | |
| add hl,de ;0c3f | |
| ld b,000h ;0c40 | |
| ld c,(hl) ;0c42 | |
| xor a ;0c43 | |
| ld hl,kpr_08018h ;0c44 | |
| add hl,bc ;0c47 | |
| ld (hl),a ;0c48 | |
| ld hl,common_c5 ;0c49 | |
| add hl,bc ;0c4c | |
| ld (hl),a ;0c4d | |
| ld hl,common_c2 ;0c4e | |
| add hl,bc ;0c51 | |
| ld (hl),a ;0c52 | |
| inc de ;0c53 | |
| ld a,e ;0c54 | |
| cp 004h ;0c55 | |
| jp nz,l0c3ch ;0c57 | |
| call sub_0fc5h_calc_with_b1c1_array1_and_b2 ;0c5a | |
| ld a,00fh ;0c5d | |
| ld (08043h),a ;0c5f | |
| ld (08045h),a ;0c62 | |
| ret ;0c65 | |
| sub_0c66h_ym3514: | |
| ld hl,key_result_flags1 ;0c66 | |
| bit 0,(hl) ;0c69 | |
| jp nz,l0c9ch ;0c6b | |
| ld a,(flags1) ;0c6e | |
| and 007h ;0c71 | |
| jp nz,l0c9ch ;0c73 | |
| ld a,(ym3514_addr+01h) ;0c76 | |
| bit 7,a ;0c79 | |
| jp z,l0c9ch ;0c7b | |
| ld a,(08013h) ;0c7e | |
| or a ;0c81 | |
| jp nz,l0c9ch ;0c82 | |
| ld a,(ym3514_thing1) ;0c85 | |
| ld b,a ;0c88 | |
| ld a,01dh ;0c89 | |
| cp b ;0c8b | |
| jp nc,l0c94h ;0c8c | |
| ld a,01dh ;0c8f | |
| jp l0c96h ;0c91 | |
| l0c94h: | |
| ld a,01eh ;0c94 | |
| l0c96h: | |
| ld (ym3514_thing1),a ;0c96 | |
| ld (ym3514_addr+03h),a ;0c99 | |
| l0c9ch: | |
| ld hl,08013h ;0c9c | |
| inc (hl) ;0c9f | |
| ld a,064h ;0ca0 | |
| cp (hl) ;0ca2 | |
| jp nc,l0ca8h ;0ca3 | |
| ld (hl),000h ;0ca6 | |
| l0ca8h: | |
| ret ;0ca8 | |
| entry_point_jump_1_last: | |
| call sub_ym3514_write_and_calc_2 ;0ca9 | |
| ei ;0cac | |
| entry_point_jump2: | |
| call sub_ym3514_read_keys ;0cad | |
| call sub_0b51h_process_maybe_keys_wrap2 ;0cb0 | |
| ld a,(flags1) ;0cb3 | |
| bit 6,a ;0cb6 | |
| jp z,l0cbeh ;0cb8 | |
| ; Called if flags1 & YM2142_DIRTY | |
| ; Is NOT called when C has been pressed and something should start happening | |
| call sub_ym2142_output_fours_of_things_1 ;0cbb | |
| l0cbeh: | |
| ; Is called when C has been pressed and something should start happening | |
| call sub_0b73h_main_calc_and_write_ym3514_03 ;0cbe | |
| ld a,(key_result_flags1) ;0cc1 | |
| bit 5,a ;0cc4 | |
| jp z,l0ccch ;0cc6 | |
| ; Is NOT called when C has been pressed and something should start happening | |
| call sub_0b88h_long_calc_global_1 ;0cc9 | |
| l0ccch: | |
| ; Is called when C has been pressed and something should start happening | |
| call sub_1027h_loop_key_states_diffs ;0ccc | |
| ld a,(flags3) ;0ccf | |
| bit 4,a ;0cd2 | |
| jp z,l0cdah ;0cd4 | |
| ; Is called when C has been pressed and something should start happening | |
| call sub_123eh_loop_key_states_diffs_twice_if_common_b2_nonzero ;0cd7 | |
| l0cdah: | |
| ld hl,flags1 ;0cda | |
| ld a,(hl) ;0cdd | |
| and 007h ;0cde | |
| jp z,l0cf7h ;0ce0 | |
| bit 7,(hl) ;0ce3 | |
| jp z,l0ceeh ;0ce5 | |
| ; Could be one song mode | |
| ; Is NOT called when C has been pressed and something should start happening | |
| call sub_am3514_write_and_calc_3 ;0ce8 | |
| jp l0cf1h ;0ceb | |
| l0ceeh: | |
| ; Could be another song mode | |
| ; Is NOT called when C has been pressed and something should start happening | |
| call sub_ym3514_do_like_absolutely_everything_1 ;0cee | |
| l0cf1h: | |
| ; Called after both of the former calls | |
| ; Is NOT called when C has been pressed and something should start happening | |
| call sub_177fh_common_highlevel_calc ;0cf1 | |
| jp l0d05h ;0cf4 | |
| l0cf7h: | |
| ld a,(key_result_flags1) ;0cf7 | |
| bit 1,a ;0cfa | |
| jp z,l0d05h ;0cfc | |
| ; if key_result_flags1 & (1<<1) { | |
| call sub_1588h_calc_a_lot ;0cff | |
| call sub_177fh_common_highlevel_calc ;0d02 | |
| ; } | |
| l0d05h: | |
| ld a,(key_result_flags1) ;0d05 | |
| l0d08h: | |
| bit 0,a ;0d08 | |
| jp z,l0d10h ;0d0a | |
| ; if key_result_flags1 & (1<<0) { | |
| call sub_ym2142_do_lots_of_stuff ;0d0d | |
| ; } | |
| l0d10h: | |
| ; Is called when C has been pressed and something should start happening | |
| call sub_124ch_calc_and_maybe_write_many_to_ym2412 ;0d10 | |
| call sub_0c66h_ym3514 ;0d13 | |
| jp entry_point_jump2 ;0d16 | |
| ; Result: hl + b * 2 + (c == 1 ? 1 : 0) | |
| ; Arguments: | |
| ; reg hl: Base value | |
| ; reg b: Multiplier | |
| ; reg c: Choice of addition | |
| ; reg a: | |
| ; If a==1, result is put into hl | |
| ; If a==2, result is put into de | |
| ; If a==3, result is put into bc | |
| ; Else, result is put into af | |
| sub_add_2c_b_to_hl_put_result_in_hl_de_bc_af: | |
| push hl ;0d19 | |
| push bc ;0d1a | |
| push af ;0d1b | |
| ld a,b ;0d1c | |
| ld b,c ;0d1d | |
| ld c,a ;0d1e | |
| ld a,001h ;0d1f | |
| ; Now b = arg_c | |
| ; Now a = 1 -> result goes to hl | |
| ; Now c = arg_b -> result is hl + arg_b * 2 | |
| call sub_add_2c_to_hl_put_result_in_hl_de_bc_af ;0d21 | |
| ; If arg_c == 1, hl++ | |
| dec b ;0d24 | |
| jp nz,l0d29h ;0d25 | |
| inc hl ;0d28 | |
| l0d29h: | |
| pop af ;0d29 | |
| pop bc ;0d2a | |
| ; Put the value of hl on stack | |
| ; (in place of hl which was pushed previously) | |
| ; (hl is invalid after this and is not used) | |
| ex (sp),hl ;0d2b | |
| ; Select result location based on a | |
| dec a ;0d2c | |
| jp z,l0d3ch ;0d2d | |
| dec a ;0d30 | |
| jp z,l0d40h ;0d31 | |
| dec a ;0d34 | |
| jp z,l0d44h ;0d35 | |
| pop af ;0d38 | |
| jp l0d45h ;0d39 | |
| l0d3ch: | |
| pop hl ;0d3c | |
| jp l0d45h ;0d3d | |
| l0d40h: | |
| pop de ;0d40 | |
| jp l0d45h ;0d41 | |
| l0d44h: | |
| pop bc ;0d44 | |
| l0d45h: | |
| ret ;0d45 | |
| sub_0d46h_plain_calculate: | |
| pop hl ;0d46 | |
| ex (sp),hl ;0d47 | |
| ld de,common_c4 ;0d48 | |
| add hl,de ;0d4b | |
| ld a,(hl) ;0d4c | |
| and 060h ;0d4d | |
| jp nz,l0d58h ;0d4f | |
| ld hl,0ffffh ;0d52 | |
| jp l0d5bh ;0d55 | |
| l0d58h: | |
| ld hl,0 ;0d58 | |
| l0d5bh: | |
| ex (sp),hl ;0d5b | |
| jp (hl) ;0d5c | |
| sub_0d5dh_plain_calculate_skip_1: | |
| pop hl ;0d5d | |
| ex (sp),hl ;0d5e | |
| ld a,l ;0d5f | |
| cp 031h ;0d60 | |
| jp nz,l0d6ch ;0d62 | |
| ld b,030h ;0d65 | |
| ld c,00dh ;0d67 | |
| jp l0d9ch ;0d69 | |
| l0d6ch: | |
| ld a,024h ;0d6c | |
| cp l ;0d6e | |
| jp nc,l0d7bh ;0d6f | |
| ld b,030h ;0d72 | |
| ld a,l ;0d74 | |
| sub 024h ;0d75 | |
| ld c,a ;0d77 | |
| jp l0d9ch ;0d78 | |
| l0d7bh: | |
| ld a,018h ;0d7b | |
| cp l ;0d7d | |
| jp nc,l0d8ah ;0d7e | |
| ld b,020h ;0d81 | |
| ld a,l ;0d83 | |
| sub 018h ;0d84 | |
| ld c,a ;0d86 | |
| jp l0d9ch ;0d87 | |
| l0d8ah: | |
| ld a,00ch ;0d8a | |
| cp l ;0d8c | |
| jp nc,l0d99h ;0d8d | |
| ld b,010h ;0d90 | |
| ld a,l ;0d92 | |
| sub 00ch ;0d93 | |
| ld c,a ;0d95 | |
| jp l0d9ch ;0d96 | |
| l0d99h: | |
| ld b,000h ;0d99 | |
| ld c,l ;0d9b | |
| l0d9ch: | |
| ld a,b ;0d9c | |
| add a,c ;0d9d | |
| ld h,000h ;0d9e | |
| ld l,a ;0da0 | |
| ex (sp),hl ;0da1 | |
| jp (hl) ;0da2 | |
| ; Is called when C has been pressed and something should start happening (end half) | |
| sub_0da3h_plain_calculate_skip_2: | |
| pop hl ;0da3 | |
| pop de ;0da4 | |
| ex (sp),hl ;0da5 | |
| push de ;0da6 | |
| ld a,e ;0da7 | |
| ex de,hl ;0da8 | |
| ld hl,kpr_08018h ;0da9 | |
| add hl,de ;0dac | |
| ld (hl),a ;0dad | |
| pop hl ;0dae | |
| push de ;0daf | |
| push hl ;0db0 | |
| ; Is called when C has been pressed and something should start happening | |
| call sub_0d5dh_plain_calculate_skip_1 ;0db1 | |
| pop hl ;0db4 | |
| ld a,l ;0db5 | |
| or 040h ;0db6 | |
| ld hl,common_c5 ;0db8 | |
| pop de ;0dbb | |
| add hl,de ;0dbc | |
| ld (hl),a ;0dbd | |
| ld hl,common_array1 ;0dbe | |
| add hl,de ;0dc1 | |
| set 4,(hl) ;0dc2 | |
| ret ;0dc4 | |
| sub_calc_with_common_array1_1: | |
| pop hl ;0dc5 | |
| ex (sp),hl ;0dc6 | |
| ex de,hl ;0dc7 | |
| ld hl,common_array1 ;0dc8 | |
| add hl,de ;0dcb | |
| bit 1,(hl) ;0dcc | |
| jp nz,l0de6h ;0dce | |
| ld hl,common_c5 ;0dd1 | |
| add hl,de ;0dd4 | |
| push hl ;0dd5 | |
| ld a,(hl) ;0dd6 | |
| ld hl,common_c2 ;0dd7 | |
| add hl,de ;0dda | |
| ld (hl),a ;0ddb | |
| and 03fh ;0ddc | |
| pop hl ;0dde | |
| ld (hl),a ;0ddf | |
| ld hl,common_array1 ;0de0 | |
| add hl,de ;0de3 | |
| set 1,(hl) ;0de4 | |
| l0de6h: | |
| res 4,(hl) ;0de6 | |
| ret ;0de8 | |
| sub_0de9h_handle_special_keys_maybe_sub1: | |
| ld a,(common_b2) ;0de9 | |
| or a ;0dec | |
| jp nz,l0df5h ;0ded | |
| ld b,000h ;0df0 | |
| jp l0df7h ;0df2 | |
| l0df5h: | |
| dec a ;0df5 | |
| ld b,a ;0df6 | |
| l0df7h: | |
| ld hl,0 ;0df7 | |
| l0dfah: | |
| push bc ;0dfa | |
| push hl ;0dfb | |
| ld a,(ym2142_source1) ;0dfc | |
| ld b,a ;0dff | |
| ld c,000h ;0e00 | |
| ld hl,l2cfch_data_for_ym2142_things ;0e02 | |
| ld a,001h ;0e05 | |
| call sub_add_2c_b_to_hl_put_result_in_hl_de_bc_af ;0e07 | |
| ld d,(hl) ;0e0a | |
| ld c,001h ;0e0b | |
| ld hl,l2cfch_data_for_ym2142_things ;0e0d | |
| ld a,001h ;0e10 | |
| call sub_add_2c_b_to_hl_put_result_in_hl_de_bc_af ;0e12 | |
| ld e,(hl) ;0e15 | |
| ld a,(flags1) ;0e16 | |
| and 007h ;0e19 | |
| jp z,l0e30h ;0e1b | |
| ld a,(flags2) ;0e1e | |
| bit 2,a ;0e21 | |
| jp z,l0e28h ;0e23 | |
| set 4,d ;0e26 | |
| l0e28h: | |
| ld a,b ;0e28 | |
| cp 002h ;0e29 | |
| jp nz,l0e30h ;0e2b | |
| set 1,e ;0e2e | |
| l0e30h: | |
| ex de,hl ;0e30 | |
| ex (sp),hl ;0e31 | |
| pop bc ;0e32 | |
| push hl ;0e33 | |
| ex de,hl ;0e34 | |
| ld hl,common_c1 ;0e35 | |
| add hl,de ;0e38 | |
| ld d,000h ;0e39 | |
| ld e,(hl) ;0e3b | |
| ld hl,common_c4 ;0e3c | |
| add hl,de ;0e3f | |
| ld (hl),b ;0e40 | |
| ld hl,common_c3 ;0e41 | |
| add hl,de ;0e44 | |
| ld (hl),c ;0e45 | |
| ld hl,common_array1 ;0e46 | |
| add hl,de ;0e49 | |
| set 2,(hl) ;0e4a | |
| set 3,(hl) ;0e4c | |
| pop hl ;0e4e | |
| pop bc ;0e4f | |
| inc hl ;0e50 | |
| ld a,b ;0e51 | |
| inc a ;0e52 | |
| cp l ;0e53 | |
| jp nz,l0dfah ;0e54 | |
| ld a,(common_b1) ;0e57 | |
| or a ;0e5a | |
| jp z,l0e90h ;0e5b | |
| ld de,0 ;0e5e | |
| l0e61h: | |
| push de ;0e61 | |
| ld hl,common_c1 ;0e62 | |
| add hl,de ;0e65 | |
| ld c,(hl) ;0e66 | |
| ld b,000h ;0e67 | |
| push bc ;0e69 | |
| ld hl,common_array1 ;0e6a | |
| add hl,bc ;0e6d | |
| set 0,(hl) ;0e6e | |
| push bc ;0e70 | |
| call sub_0d46h_plain_calculate ;0e71 | |
| pop hl ;0e74 | |
| pop bc ;0e75 | |
| ld a,l ;0e76 | |
| or a ;0e77 | |
| jp nz,l0e87h ;0e78 | |
| push bc ;0e7b | |
| ld hl,kpr_08018h ;0e7c | |
| add hl,bc ;0e7f | |
| ld l,(hl) ;0e80 | |
| ld h,000h ;0e81 | |
| push hl ;0e83 | |
| call sub_0da3h_plain_calculate_skip_2 ;0e84 | |
| l0e87h: | |
| pop de ;0e87 | |
| inc de ;0e88 | |
| ld a,(common_b1) ;0e89 | |
| cp e ;0e8c | |
| jp nz,l0e61h ;0e8d | |
| l0e90h: | |
| ret ;0e90 | |
| sub_0e91h: | |
| ld a,(key_result_flags1) ;0e91 | |
| bit 0,a ;0e94 | |
| jp nz,l0ea1h ;0e96 | |
| ld a,(flags1) ;0e99 | |
| and 007h ;0e9c | |
| jp z,l0f76h ;0e9e | |
| l0ea1h: | |
| ld a,(0803fh) ;0ea1 | |
| ld d,000h ;0ea4 | |
| ld e,a ;0ea6 | |
| ld a,(080d0h) ;0ea7 | |
| bit 7,a ;0eaa | |
| jp nz,l0ebdh ;0eac | |
| ld a,(flags2) ;0eaf | |
| bit 3,a ;0eb2 | |
| jp nz,l0ebdh ;0eb4 | |
| ld hl,02d12h ;0eb7 | |
| jp l0ec0h ;0eba | |
| l0ebdh: | |
| ld hl,l2d1ch ;0ebd | |
| l0ec0h: | |
| add hl,de ;0ec0 | |
| ld b,(hl) ;0ec1 | |
| ld a,003h ;0ec2 | |
| cp b ;0ec4 | |
| jp nz,l0ecdh ;0ec5 | |
| ld c,010h ;0ec8 | |
| jp l0ecfh ;0eca | |
| l0ecdh: | |
| ld c,000h ;0ecd | |
| l0ecfh: | |
| push bc ;0ecf | |
| ld hl,common_c1 ;0ed0 | |
| ld de,00001h+1 ;0ed3 | |
| add hl,de ;0ed6 | |
| push hl ;0ed7 | |
| ld d,000h ;0ed8 | |
| ld e,(hl) ;0eda | |
| ld hl,common_c4 ;0edb | |
| add hl,de ;0ede | |
| push hl ;0edf | |
| ld c,000h ;0ee0 | |
| ld hl,l2cfch_data_for_ym2142_things ;0ee2 | |
| ld a,001h ;0ee5 | |
| call sub_add_2c_b_to_hl_put_result_in_hl_de_bc_af ;0ee7 | |
| ld a,(hl) ;0eea | |
| pop hl ;0eeb | |
| ld (hl),a ;0eec | |
| ld hl,common_c3 ;0eed | |
| add hl,de ;0ef0 | |
| push hl ;0ef1 | |
| ld c,001h ;0ef2 | |
| ld hl,l2cfch_data_for_ym2142_things ;0ef4 | |
| ld a,001h ;0ef7 | |
| call sub_add_2c_b_to_hl_put_result_in_hl_de_bc_af ;0ef9 | |
| ld a,(hl) ;0efc | |
| pop hl ;0efd | |
| pop de ;0efe | |
| pop bc ;0eff | |
| add a,c ;0f00 | |
| ld (hl),a ;0f01 | |
| inc de ;0f02 | |
| ex de,hl ;0f03 | |
| ld d,000h ;0f04 | |
| ld e,(hl) ;0f06 | |
| ld hl,common_c4 ;0f07 | |
| add hl,de ;0f0a | |
| push hl ;0f0b | |
| ld b,002h ;0f0c | |
| ld c,000h ;0f0e | |
| ld hl,l2cfch_data_for_ym2142_things ;0f10 | |
| ld a,001h ;0f13 | |
| call sub_add_2c_b_to_hl_put_result_in_hl_de_bc_af ;0f15 | |
| ld a,(hl) ;0f18 | |
| pop hl ;0f19 | |
| ld (hl),a ;0f1a | |
| ld hl,common_c3 ;0f1b | |
| add hl,de ;0f1e | |
| push hl ;0f1f | |
| ld c,001h ;0f20 | |
| ld hl,l2cfch_data_for_ym2142_things ;0f22 | |
| ld a,001h ;0f25 | |
| call sub_add_2c_b_to_hl_put_result_in_hl_de_bc_af ;0f27 | |
| ld a,(hl) ;0f2a | |
| pop hl ;0f2b | |
| ld (hl),a ;0f2c | |
| ld a,(flags1) ;0f2d | |
| and 007h ;0f30 | |
| jp z,l0f5dh ;0f32 | |
| ld a,(0803fh) ;0f35 | |
| cp 007h ;0f38 | |
| jp nz,l0f5dh ;0f3a | |
| ld hl,common_c1 ;0f3d | |
| ld de,00001h+1 ;0f40 | |
| add hl,de ;0f43 | |
| push hl ;0f44 | |
| ld d,000h ;0f45 | |
| ld e,(hl) ;0f47 | |
| ld hl,common_c3 ;0f48 | |
| add hl,de ;0f4b | |
| ld a,(hl) ;0f4c | |
| add a,010h ;0f4d | |
| ld (hl),a ;0f4f | |
| pop hl ;0f50 | |
| inc hl ;0f51 | |
| ld d,000h ;0f52 | |
| ld e,(hl) ;0f54 | |
| ld hl,common_c3 ;0f55 | |
| add hl,de ;0f58 | |
| ld a,(hl) ;0f59 | |
| add a,010h ;0f5a | |
| ld (hl),a ;0f5c | |
| l0f5dh: | |
| ld de,00001h+1 ;0f5d | |
| l0f60h: | |
| ld hl,common_c1 ;0f60 | |
| add hl,de ;0f63 | |
| ld b,000h ;0f64 | |
| ld c,(hl) ;0f66 | |
| ld hl,common_array1 ;0f67 | |
| add hl,bc ;0f6a | |
| set 2,(hl) ;0f6b | |
| set 3,(hl) ;0f6d | |
| inc de ;0f6f | |
| ld a,e ;0f70 | |
| cp 004h ;0f71 | |
| jp nz,l0f60h ;0f73 | |
| l0f76h: | |
| ret ;0f76 | |
| sub_0f77h_calc_with_common_c1_array1: | |
| ld a,(08032h) ;0f77 | |
| ld b,a ;0f7a | |
| ld c,001h ;0f7b | |
| ld hl,l2cfch_data_for_ym2142_things ;0f7d | |
| ld a,001h ;0f80 | |
| call sub_add_2c_b_to_hl_put_result_in_hl_de_bc_af ;0f82 | |
| ld c,(hl) ;0f85 | |
| ld a,(08032h) ;0f86 | |
| cp 007h ;0f89 | |
| ld a,c ;0f8b | |
| jp nz,l0f91h ;0f8c | |
| add a,010h ;0f8f | |
| l0f91h: | |
| ld hl,flags2 ;0f91 | |
| bit 0,(hl) ;0f94 | |
| jp z,l0f9bh ;0f96 | |
| add a,010h ;0f99 | |
| l0f9bh: | |
| push af ;0f9b | |
| ld c,000h ;0f9c | |
| ld hl,l2cfch_data_for_ym2142_things ;0f9e | |
| ld a,001h ;0fa1 | |
| call sub_add_2c_b_to_hl_put_result_in_hl_de_bc_af ;0fa3 | |
| ld a,(hl) ;0fa6 | |
| ld hl,common_c1 ;0fa7 | |
| ld de,00001h ;0faa | |
| add hl,de ;0fad | |
| ld d,000h ;0fae | |
| ld e,(hl) ;0fb0 | |
| ld hl,common_c4 ;0fb1 | |
| add hl,de ;0fb4 | |
| ld (hl),a ;0fb5 | |
| ld hl,common_c3 ;0fb6 | |
| add hl,de ;0fb9 | |
| pop af ;0fba | |
| ld (hl),a ;0fbb | |
| ld hl,common_array1 ;0fbc | |
| add hl,de ;0fbf | |
| set 2,(hl) ;0fc0 | |
| set 3,(hl) ;0fc2 | |
| ret ;0fc4 | |
| sub_0fc5h_calc_with_b1c1_array1_and_b2: | |
| call sub_0de9h_handle_special_keys_maybe_sub1 ;0fc5 | |
| ld a,(common_b2) ;0fc8 | |
| cp 004h ;0fcb | |
| jp nc,l0fd3h ;0fcd | |
| call sub_0e91h ;0fd0 | |
| l0fd3h: | |
| ld a,(common_b2) ;0fd3 | |
| cp 002h ;0fd6 | |
| jp nc,l0fdeh ;0fd8 | |
| call sub_0f77h_calc_with_common_c1_array1 ;0fdb | |
| l0fdeh: | |
| ret ;0fde | |
| sub_0fdfh_handle_special_keys_maybe: | |
| ld de,6 ;0fdf | |
| ld hl,key_states ;0fe2 | |
| add hl,de ;0fe5 | |
| ld a,(hl) ;0fe6 | |
| ; Now a = (key_states + 6) | |
| ld hl,key_diffs ;0fe7 | |
| add hl,de ;0fea | |
| and (hl) ;0feb | |
| and 03fh ;0fec | |
| ; Now a = (key_states + 6) & (key_diffs + 6) & 0x3f | |
| ; Return if a == 0 | |
| ; This jump occurs when C has been pressed and something should start happening | |
| jp z,l1026h ;0fee | |
| rra ;0ff1 | |
| jp nc,l0ffah ;0ff2 | |
| ld a,00ah ;0ff5 | |
| jp l1020h ;0ff7 | |
| l0ffah: | |
| rra ;0ffa | |
| jp nc,l1003h ;0ffb | |
| ld a,000h ;0ffe | |
| jp l1020h ;1000 | |
| l1003h: | |
| rra ;1003 | |
| jp nc,l100ch ;1004 | |
| ld a,001h ;1007 | |
| jp l1020h ;1009 | |
| l100ch: | |
| rra ;100c | |
| jp nc,l1015h ;100d | |
| ld a,002h ;1010 | |
| jp l1020h ;1012 | |
| l1015h: | |
| rra ;1015 | |
| jp nc,l101eh ;1016 | |
| ld a,003h ;1019 | |
| jp l1020h ;101b | |
| l101eh: | |
| ld a,006h ;101e | |
| l1020h: | |
| ld (ym2142_source1),a ;1020 | |
| ; Is NOT called when C has been pressed and something should start happening | |
| call sub_0de9h_handle_special_keys_maybe_sub1 ;1023 | |
| l1026h: | |
| ret ;1026 | |
| ; Is called when C has been pressed and something should start happening | |
| sub_1027h_loop_key_states_diffs: | |
| ; flags3 &= 0xcc; | |
| ld a,(flags3) ;1027 | |
| and 0cch ;102a | |
| ld (flags3),a ;102c | |
| ; Loop de = loop_i = 0...5 (inclusive) | |
| ld de,0 ;102f | |
| l1032h_loop: | |
| ld hl,key_states ;1032 | |
| add hl,de ;1035 | |
| ld a,(hl) ;1036 | |
| and 03fh ;1037 | |
| ; Now a = (key_states + de) & 0x3f | |
| ; Skip if a == 0 | |
| jp z,l1054h ;1039 | |
| ; If key_result_flags1 & (1<<1) && loop_i <= 2: | |
| ; flags3 |= (1<<1) | |
| ; Else: | |
| ; flags3 |= (1<<0) | |
| ld hl,flags3 ;103c | |
| ld a,(key_result_flags1) ;103f | |
| bit 1,a ;1042 | |
| jp z,l1052h ;1044 | |
| ld a,002h ;1047 | |
| cp e ;1049 | |
| jp nc,l1052h ;104a | |
| set 1,(hl) ;104d | |
| jp l1054h ;104f | |
| l1052h: | |
| set 0,(hl) ;1052 | |
| l1054h: | |
| ld hl,key_diffs ;1054 | |
| add hl,de ;1057 | |
| ld a,(hl) ;1058 | |
| and 03fh ;1059 | |
| ; Now a = (key_diffs + de) & 0x3f | |
| ; Skip if a == 0 | |
| jp z,l1076h ;105b | |
| ; If key_result_flags1 & (1<<1) && loop_i <= 2: | |
| ; flags3 |= (1<<5) | |
| ; Else: | |
| ; flags3 |= (1<<4) | |
| ld hl,flags3 ;105e | |
| ld a,(key_result_flags1) ;1061 | |
| bit 1,a ;1064 | |
| jp z,l1074h ;1066 | |
| ld a,002h ;1069 | |
| cp e ;106b | |
| jp nc,l1074h ;106c | |
| set 5,(hl) ;106f | |
| jp l1076h ;1071 | |
| l1074h: | |
| set 4,(hl) ;1074 | |
| l1076h: | |
| ; Loop until de=6 | |
| inc de ;1076 | |
| ld a,e ;1077 | |
| cp 006h ;1078 | |
| jp nz,l1032h_loop ;107a | |
| ret ;107d | |
| sub_107eh_calc_a_lot: | |
| pop hl ;107e | |
| ex (sp),hl ;107f | |
| ld b,l ;1080 | |
| ld de,0 ;1081 | |
| ld a,0ffh ;1084 | |
| ld (kpr_0802ch),a ;1086 | |
| l1089h: | |
| ld hl,common_b1 ;1089 | |
| ld a,e ;108c | |
| cp (hl) ;108d | |
| jp nc,l10b5h ;108e | |
| ld a,(kpr_0802ch) ;1091 | |
| cp 0ffh ;1094 | |
| jp nz,l10b5h ;1096 | |
| ld hl,common_c1 ;1099 | |
| add hl,de ;109c | |
| ld c,(hl) ;109d | |
| ld a,b ;109e | |
| ld hl,kpr_08018h ;109f | |
| ld b,000h ;10a2 | |
| add hl,bc ;10a4 | |
| ld b,a ;10a5 | |
| cp (hl) ;10a6 | |
| jp nz,l10b1h ;10a7 | |
| ld hl,kpr_0802ch ;10aa | |
| ld (hl),c ;10ad | |
| jp l1089h ;10ae | |
| l10b1h: | |
| inc de ;10b1 | |
| jp l1089h ;10b2 | |
| l10b5h: | |
| ld a,(kpr_0802ch) ;10b5 | |
| cp 0ffh ;10b8 | |
| jp z,l10eah ;10ba | |
| l10bdh: | |
| ld a,(common_b2) ;10bd | |
| dec a ;10c0 | |
| ld b,a ;10c1 | |
| ld a,e ;10c2 | |
| cp b ;10c3 | |
| jp nc,l10d4h ;10c4 | |
| ld hl,common_c1 ;10c7 | |
| add hl,de ;10ca | |
| push hl ;10cb | |
| inc hl ;10cc | |
| ld a,(hl) ;10cd | |
| pop hl ;10ce | |
| ld (hl),a ;10cf | |
| inc de ;10d0 | |
| jp l10bdh ;10d1 | |
| l10d4h: | |
| ld a,(common_b2) ;10d4 | |
| dec a ;10d7 | |
| ld d,000h ;10d8 | |
| ld e,a ;10da | |
| ld hl,common_c1 ;10db | |
| add hl,de ;10de | |
| ld (hl),c ;10df | |
| ld b,000h ;10e0 | |
| push bc ;10e2 | |
| call sub_calc_with_common_array1_1 ;10e3 | |
| ld hl,common_b1 ;10e6 | |
| dec (hl) ;10e9 | |
| l10eah: | |
| ret ;10ea | |
| sub_10ebh_loop_key_states_diffs_2: | |
| ; Loop in an outer and inner loop: | |
| ; - b = keys_remaining is used in both loops | |
| ; - e is counted by the outer loop to be used here as the key_states index when d is zeroed | |
| ; - d is used by the inner loop, along with the keys_activated bits | |
| ld b,031h ;10eb | |
| ld de,0 ;10ed | |
| l10f0h_loop: | |
| ld hl,key_states ;10f0 | |
| add hl,de ;10f3 | |
| ld a,(hl) ;10f4 | |
| cpl ;10f5 | |
| ; Now a = ~(key_states + de) | |
| ld hl,key_diffs ;10f6 | |
| add hl,de ;10f9 | |
| and (hl) ;10fa | |
| and 03fh ;10fb | |
| ld c,a ;10fd | |
| ld a,e ;10fe | |
| ; Now c = keys_activated = | |
| ; (key_states + de) & (key_diffs + de) & 0x3f | |
| ; Now a = loop_i | |
| ; If loop_i == 5: | |
| ; d = 2 | |
| ; Else: | |
| ; d = 6 | |
| cp 5 ;10ff | |
| jp nz,l1109h ;1101 | |
| ld d,2 ;1104 | |
| jp l110bh_inner_loop ;1106 | |
| l1109h: | |
| ld d,6 ;1109 | |
| l110bh_inner_loop: | |
| ld a,c ;110b | |
| ; Now a = c = keys_activated | |
| ; Skip if keys_activated == 0 | |
| or a ;110c | |
| jp z,l1127h ;110d | |
| ; Skip if !(keys_activated & (1<<0)) | |
| bit 0,a ;1110 | |
| jp z,l1120h ;1112 | |
| push bc ;1115 | |
| push de ;1116 | |
| ld h,000h ;1117 | |
| ld l,b ;1119 | |
| push hl ;111a | |
| ; Is NOT called when C has been pressed and something should start happening | |
| call sub_107eh_calc_a_lot ;111b | |
| pop de ;111e | |
| pop bc ;111f | |
| l1120h: | |
| ; Loop | |
| ; c=keys_activated <<= 1 | |
| srl c ;1120 | |
| ; b-- (counts down from 0x31) | |
| dec b ;1122 | |
| ; d-- (was set to 2 or 6 before inner loop) | |
| dec d ;1123 | |
| jp l110bh_inner_loop ;1124 | |
| l1127h: | |
| ; b=keys_remaining -= d | |
| ld a,b ;1127 | |
| sub d ;1128 | |
| ld b,a ;1129 | |
| ; Clear d and increment e so that de can be used to index stuff at the beginning of l10f0h_loop | |
| ld d,000h ;112a | |
| inc de ;112c | |
| ld a,(num_keys_ignore) ;112d | |
| ld c,a ;1130 | |
| ld a,b ;1131 | |
| ; Now c = (num_keys_ignore) | |
| ; Now a = keys_remaining | |
| ; Loop while key_remaining < (num_keys_ignore) | |
| cp c ;1132 | |
| jp nc,l10f0h_loop ;1133 | |
| ret ;1136 | |
| sub_1137h: | |
| pop hl ;1137 | |
| ex (sp),hl ;1138 | |
| ex de,hl ;1139 | |
| ld b,0ffh ;113a | |
| ld a,(common_b1) ;113c | |
| or a ;113f | |
| jp z,l1163h ;1140 | |
| ld c,000h ;1143 | |
| l1145h: | |
| push bc ;1145 | |
| ld b,000h ;1146 | |
| ld hl,common_c1 ;1148 | |
| add hl,bc ;114b | |
| ld b,000h ;114c | |
| ld c,(hl) ;114e | |
| ld hl,kpr_08018h ;114f | |
| add hl,bc ;1152 | |
| pop bc ;1153 | |
| ld a,(hl) ;1154 | |
| cp e ;1155 | |
| jp nz |