This is the code block..
Code:
Selecta moveq #0,d0
move.b $bfec01,d0
cmp.b #$4d,d0
blo.b .quit
cmp.b #$5f,d0
bgt.b .quit
btst #0,d0
beq.b .quit
sub.b #$4d,d0
add.w d0,d0
; jsr P61_End
lea TuneList(pc),a0
add.l d0,a0
move.l (a0),a0
lea $0,a1
moveq #1,d0
jsr P61_Init
.quit rts
TuneList dc.l _m10,_m09,_m08,_m07,_m06,_m05,_m04,_m03,_m02,_m01