; DEBUG = 41440-41900
;
; 41440-414xx = swap CD files (shockn1.dat)



;8006371c : 14400005  BNE     00000000 (v0), 00000000 (r0), 80063734,
;80063720 : 00000000  NOP    
;-->
;80063724 : 0C0123C2  JAL     80048f08, 8006371c (ra),
;80063728 : 34040001  ORI     800a895b (a0), 00000000 (r0), 0001 (1),
;-->
;8006372c : 08018DC5  J       80063714,
;80063730 : 00000000  NOP    


org $80041440


; save ra
addiu sp,sp,$fffc
sw ra,0(sp)



; check \SHOCKN(*).DAT name
lui ra,$8003+1
lbu v0,$f377(ra)
nop


; swap 1/2 names
addiu v0,v0,$ffcf
beq v0,r0,WRITE_SHOCKN
ori v0,r0,$32

ori v0,r0,$31


WRITE_SHOCKN:
sb v0,$f377(ra)


; =====================
; =====================
; =====================
; =====================

lui ra,$8004+1


; zap button press + swap check
;80049098 : 1040000B  BEQ     00000000 (v0), 00000000 (r0), 800490c8,
;800490a8 : 14430007  BNE     00000080 (v0), 00000080 (v1), 800490c8,

sw r0,$9098(ra)
;sw r0,$90a8(ra)



; zap fade-in + full bright
;8004e698 : 14400003  BNE     00000001 (v0), 00000000 (r0), 8004e6a8,
;8004e6a4 : A422CAD4  SH      00000080 (v0), cad4 (800c0000 (at)) [800bcad4]

sw r0,$e698(ra)
;sw r0,$e6a4(ra)


; zap fade-out
;8004e6b4 : 04410008  BGEZ    fffffff8 (v0), 8004e6d8,

;sw r0,$e6b4(ra)


; zap fade-out
;8004e6c8 : 04410003  BGEZ    00000077 (v0), 8004e6d8,

sw r0,$e6c8(ra)

; =====================
; =====================
; =====================
; =====================

; OLD code
jal $80048f08
nop

; =====================
; =====================
; =====================
; =====================

lui ra,$8004+1


; restore old code
; zap button press + swap check
;80049098 : 1040000B  BEQ     00000000 (v0), 00000000 (r0), 800490c8,
;800490a8 : 14430007  BNE     00000080 (v0), 00000080 (v1), 800490c8,

lui v0,$1040
ori v0,v0,$000b
sw v0,$9098(ra)

;lui ra,$1443
;ori ra,ra,$0007
;sw ra,$90a8(ra)
;sw r0,$90a8(ra)



; zap fade-in + full bright
;8004e698 : 14400003  BNE     00000001 (v0), 00000000 (r0), 8004e6a8,
;8004e6a4 : A422CAD4  SH      00000080 (v0), cad4 (800c0000 (at)) [800bcad4]

lui v0,$1440
ori v0,v0,$0003
sw v0,$e698(ra)

;lui ra,$a422
;ori ra,ra,$cad4
;sw ra,$e6a4(ra)
;sw r0,$e6a4(ra)



; zap fade-out
;8004e6b4 : 04410008  BGEZ    fffffff8 (v0), 8004e6d8,

;lui ra,$0441
;ori ra,ra,$0008
;sw ra,$e6b4(ra)
;sw r0,$e6b4(ra)



; zap fade-out
;8004e6c8 : 04410003  BGEZ    00000077 (v0), 8004e6d8,

lui v0,$0441
ori v0,v0,$0003
sw v0,$e6c8(ra)

; =====================
; =====================
; =====================
; =====================

EXIT:

; restore ra
lw ra,0(sp)
addiu sp,sp,$4



jr ra
nop
