X-Git-Url: https://notaz.gp2x.de/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=cpu%2FDrZ80%2Fdrz80.s;h=5a4801acff9d30e323d40c3de6e92f8aae5b7185;hb=d0ae0cb4bb73e6e2fc10e7b19a5a72a012db6d6a;hp=eba8b955ee9b0ba05ebec1366f946995d2eb2b8f;hpb=e5f426aa2e86d56357b8af2795e73cc0c9b17e8f;p=picodrive.git diff --git a/cpu/DrZ80/drz80.s b/cpu/DrZ80/drz80.s index eba8b95..5a4801a 100644 --- a/cpu/DrZ80/drz80.s +++ b/cpu/DrZ80/drz80.s @@ -111,40 +111,37 @@ DrZ80Ver: .long 0x0001 .if DRZ80_FOR_PICODRIVE .macro YM2612Read_and_ret8 - stmfd sp!,{r3,r12,lr} + stmfd sp!,{r3,r12,lr} .if EXTERNAL_YM2612 ldr r1,=PicoOpt ldr r1,[r1] tst r1,#0x200 - bne 10f - bl YM2612Read_ - ldmfd sp!,{r3,r12,pc} -10: - bl YM2612Read_940 + ldrne r2, =YM2612Read_940 + ldreq r2, =YM2612Read_ + mov lr,pc + bx r2 .else bl YM2612Read_ .endif - ldmfd sp!,{r3,r12,pc} + ldmfd sp!,{r3,r12,pc} .endm .macro YM2612Read_and_ret16 - stmfd sp!,{r3,r12,lr} + stmfd sp!,{r3,r12,lr} .if EXTERNAL_YM2612 ldr r0,=PicoOpt ldr r0,[r0] tst r0,#0x200 - bne 10f - bl YM2612Read_ - orr r0,r0,r0,lsl #8 - ldmfd sp!,{r3,r12,pc} -10: - bl YM2612Read_940 + ldrne r2, =YM2612Read_940 + ldreq r2, =YM2612Read_ + mov lr,pc + bx r2 orr r0,r0,r0,lsl #8 .else bl YM2612Read_ orr r0,r0,r0,lsl #8 .endif - ldmfd sp!,{r3,r12,pc} + ldmfd sp!,{r3,r12,pc} .endm pico_z80_read8: @ addr @@ -173,7 +170,7 @@ pico_z80_read8: @ addr cmp r1,#2 @ YM2612 (0x4000-0x5fff) bne 0f and r0,r0,#3 - YM2612Read_and_ret8 + YM2612Read_and_ret8 0: cmp r0,#0x4000 movge r0,#0xff @@ -1462,7 +1459,6 @@ DoInterrupt: bne DoInterrupt_mode1 tst r1,#2 bne DoInterrupt_mode2 - b DoInterrupt_mode0 DoInterrupt_mode0: ;@ get 3 byte vector @@ -6672,11 +6668,14 @@ opcode_DD_NF: ;@ mov r0,#0xFD00 ;@ orr r0,r0,r1 ;@ b end_loop + opcode_DD_NF2: - mov r0,#0xDD0000 - orr r0,r0,#0xCB00 - orr r0,r0,r1 - b end_loop + fetch 15 +;@ notaz: we don't want to deadlock here +;@ mov r0,#0xDD0000 +;@ orr r0,r0,#0xCB00 +;@ orr r0,r0,r1 +;@ b end_loop ;@ADD IX,BC opcode_DD_09: @@ -8071,8 +8070,8 @@ opcode_ED_BB: ;@from the DD location but the address of the IY reg is passed instead ;@of IX -end_loop: - b end_loop +;@end_loop: +;@ b end_loop