diff --git a/th03/music/cmt_back[bss].asm b/th03/music/cmt_back[bss].asm
new file mode 100644
index 00000000..159a4e5f
--- /dev/null
+++ b/th03/music/cmt_back[bss].asm
@@ -0,0 +1,6 @@
+public _cmt_back
+_cmt_back	label dword
+cmt_back_PL_B	dd ?
+cmt_back_PL_R	dd ?
+cmt_back_PL_G	dd ?
+cmt_back_PL_E	dd ?
diff --git a/th03/music/cmt_back_free_put.asm b/th03/music/cmt_back_free_put.asm
new file mode 100644
index 00000000..c2f060d9
--- /dev/null
+++ b/th03/music/cmt_back_free_put.asm
@@ -0,0 +1,138 @@
+; (identical to the already decompiled TH02 version, except for the first two
+; X coordinates)
+
+public CMT_BACK_FREE
+cmt_back_free	proc near
+	push	bp
+	mov	bp, sp
+	call	hmem_free pascal, word ptr cmt_back_PL_B+2
+	call	hmem_free pascal, word ptr cmt_back_PL_R+2
+	call	hmem_free pascal, word ptr cmt_back_PL_G+2
+	call	hmem_free pascal, word ptr cmt_back_PL_E+2
+	pop	bp
+	retn
+cmt_back_free	endp
+
+
+public CMT_BACK_PUT
+cmt_back_put	proc near
+
+@@pd		= word ptr -2
+
+	enter	2, 0
+	push	si
+	push	di
+	xor	cx, cx
+	mov	si, 64
+	jmp	short loc_AB05
+; ---------------------------------------------------------------------------
+
+loc_AA89:
+	mov	di, 304
+	jmp	short loc_AAFE
+; ---------------------------------------------------------------------------
+
+loc_AA8E:
+	mov	ax, di
+	sar	ax, 3
+	mov	dx, si
+	shl	dx, 6
+	add	ax, dx
+	mov	dx, si
+	shl	dx, 4
+	add	ax, dx
+	mov	[bp+@@pd], ax
+	les	bx, cmt_back_PL_B
+	add	bx, cx
+	mov	eax, es:[bx]
+	les	bx, _VRAM_PLANE_B
+	add	bx, [bp+@@pd]
+	mov	es:[bx], eax
+	les	bx, cmt_back_PL_R
+	add	bx, cx
+	mov	eax, es:[bx]
+	les	bx, _VRAM_PLANE_R
+	add	bx, [bp+@@pd]
+	mov	es:[bx], eax
+	les	bx, cmt_back_PL_G
+	add	bx, cx
+	mov	eax, es:[bx]
+	les	bx, _VRAM_PLANE_G
+	add	bx, [bp+@@pd]
+	mov	es:[bx], eax
+	les	bx, cmt_back_PL_E
+	add	bx, cx
+	mov	eax, es:[bx]
+	les	bx, _VRAM_PLANE_E
+	add	bx, [bp+@@pd]
+	mov	es:[bx], eax
+	add	cx, 4
+	add	di, (4 * 8)
+
+loc_AAFE:
+	cmp	di, 624
+	jl	short loc_AA8E
+	inc	si
+
+loc_AB05:
+	cmp	si, 80
+	jl	loc_AA89
+	mov	si, 80
+	jmp	short loc_AB8D
+; ---------------------------------------------------------------------------
+
+loc_AB11:
+	mov	di, 304
+	jmp	short loc_AB86
+; ---------------------------------------------------------------------------
+
+loc_AB16:
+	mov	ax, di
+	sar	ax, 3
+	mov	dx, si
+	shl	dx, 6
+	add	ax, dx
+	mov	dx, si
+	shl	dx, 4
+	add	ax, dx
+	mov	[bp+@@pd], ax
+	les	bx, cmt_back_PL_B
+	add	bx, cx
+	mov	eax, es:[bx]
+	les	bx, _VRAM_PLANE_B
+	add	bx, [bp+@@pd]
+	mov	es:[bx], eax
+	les	bx, cmt_back_PL_R
+	add	bx, cx
+	mov	eax, es:[bx]
+	les	bx, _VRAM_PLANE_R
+	add	bx, [bp+@@pd]
+	mov	es:[bx], eax
+	les	bx, cmt_back_PL_G
+	add	bx, cx
+	mov	eax, es:[bx]
+	les	bx, _VRAM_PLANE_G
+	add	bx, [bp+@@pd]
+	mov	es:[bx], eax
+	les	bx, cmt_back_PL_E
+	add	bx, cx
+	mov	eax, es:[bx]
+	les	bx, _VRAM_PLANE_E
+	add	bx, [bp+@@pd]
+	mov	es:[bx], eax
+	add	cx, 4
+	add	di, (4 * 8)
+
+loc_AB86:
+	cmp	di, 624
+	jl	short loc_AB16
+	inc	si
+
+loc_AB8D:
+	cmp	si, 384
+	jl	loc_AB11
+	pop	di
+	pop	si
+	leave
+	retn
+cmt_back_put	endp
diff --git a/th03/music/cmt_back_snap.asm b/th03/music/cmt_back_snap.asm
new file mode 100644
index 00000000..5d7ee13d
--- /dev/null
+++ b/th03/music/cmt_back_snap.asm
@@ -0,0 +1,135 @@
+; (identical to the already decompiled TH02 version, except for the first two
+; X coordinates)
+
+public CMT_BACK_SNAP
+cmt_back_snap	proc near
+
+@@i 	= word ptr -6
+@@pd	= word ptr -4
+@@x 	= word ptr -2
+
+	enter	6, 0
+	push	si
+	push	di
+	mov	[bp+@@i], 0
+	jmp	short loc_A8F7
+; ---------------------------------------------------------------------------
+
+loc_A8DC:
+	call	hmem_allocbyte pascal, 3200h
+	mov	bx, [bp+@@i]
+	shl	bx, 2
+	mov	word ptr _cmt_back[bx]+2, ax
+	mov	word ptr _cmt_back[bx]+0, 0
+	inc	[bp+@@i]
+
+loc_A8F7:
+	cmp	[bp+@@i], 4
+	jl	short loc_A8DC
+	xor	si, si
+	mov	di, 64
+	jmp	short loc_A97D
+; ---------------------------------------------------------------------------
+
+loc_A904:
+	mov	[bp+@@x], 304
+	jmp	short loc_A975
+; ---------------------------------------------------------------------------
+
+loc_A90B:
+	mov	ax, [bp+@@x]
+	sar	ax, 3
+	mov	dx, di
+	shl	dx, 6
+	add	ax, dx
+	mov	dx, di
+	shl	dx, 4
+	add	ax, dx
+	mov	[bp+@@pd], ax
+	les	bx, _VRAM_PLANE_B
+	assume es:nothing
+	add	bx, [bp+@@pd]
+	mov	eax, es:[bx]
+	les	bx, cmt_back_PL_B
+	mov	es:[bx+si], eax
+	les	bx, _VRAM_PLANE_R
+	add	bx, [bp+@@pd]
+	mov	eax, es:[bx]
+	les	bx, cmt_back_PL_R
+	mov	es:[bx+si], eax
+	les	bx, _VRAM_PLANE_G
+	add	bx, [bp+@@pd]
+	mov	eax, es:[bx]
+	les	bx, cmt_back_PL_G
+	mov	es:[bx+si], eax
+	les	bx, _VRAM_PLANE_E
+	add	bx, [bp+@@pd]
+	mov	eax, es:[bx]
+	les	bx, cmt_back_PL_E
+	mov	es:[bx+si], eax
+	add	si, 4
+	add	[bp+@@x], (4 * 8)
+
+loc_A975:
+	cmp	[bp+@@x], 624
+	jl	short loc_A90B
+	inc	di
+
+loc_A97D:
+	cmp	di, 80
+	jl	short loc_A904
+	mov	di, 80
+	jmp	short loc_AA00
+; ---------------------------------------------------------------------------
+
+loc_A987:
+	mov	[bp+@@x], 304
+	jmp	short loc_A9F8
+; ---------------------------------------------------------------------------
+
+loc_A98E:
+	mov	ax, [bp+@@x]
+	sar	ax, 3
+	mov	dx, di
+	shl	dx, 6
+	add	ax, dx
+	mov	dx, di
+	shl	dx, 4
+	add	ax, dx
+	mov	[bp+@@pd], ax
+	les	bx, _VRAM_PLANE_B
+	add	bx, [bp+@@pd]
+	mov	eax, es:[bx]
+	les	bx, cmt_back_PL_B
+	mov	es:[bx+si], eax
+	les	bx, _VRAM_PLANE_R
+	add	bx, [bp+@@pd]
+	mov	eax, es:[bx]
+	les	bx, cmt_back_PL_R
+	mov	es:[bx+si], eax
+	les	bx, _VRAM_PLANE_G
+	add	bx, [bp+@@pd]
+	mov	eax, es:[bx]
+	les	bx, cmt_back_PL_G
+	mov	es:[bx+si], eax
+	les	bx, _VRAM_PLANE_E
+	add	bx, [bp+@@pd]
+	mov	eax, es:[bx]
+	les	bx, cmt_back_PL_E
+	mov	es:[bx+si], eax
+	add	si, 4
+	add	[bp+@@x], (4 * 8)
+
+loc_A9F8:
+	cmp	[bp+@@x], 624
+	jl	short loc_A98E
+	inc	di
+
+loc_AA00:
+	cmp	di, 384
+	jl	short loc_A987
+	pop	di
+	pop	si
+	leave
+	retn
+cmt_back_snap	endp
diff --git a/th03_op.asm b/th03_op.asm
index a1d6a77c..c8b62406 100644
--- a/th03_op.asm
+++ b/th03_op.asm
@@ -1702,292 +1702,9 @@ loc_A5AD:
 sub_A590	endp
 
 include th02/music/music.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_A8CF	proc near
-
-var_6		= word ptr -6
-var_4		= word ptr -4
-var_2		= word ptr -2
-
-		enter	6, 0
-		push	si
-		push	di
-		mov	[bp+var_6], 0
-		jmp	short loc_A8F7
-; ---------------------------------------------------------------------------
-
-loc_A8DC:
-		push	3200h
-		call	hmem_allocbyte
-		mov	bx, [bp+var_6]
-		shl	bx, 2
-		mov	[bx+203Eh], ax
-		mov	word ptr [bx+203Ch], 0
-		inc	[bp+var_6]
-
-loc_A8F7:
-		cmp	[bp+var_6], 4
-		jl	short loc_A8DC
-		xor	si, si
-		mov	di, 40h
-		jmp	short loc_A97D
-; ---------------------------------------------------------------------------
-
-loc_A904:
-		mov	[bp+var_2], 130h
-		jmp	short loc_A975
-; ---------------------------------------------------------------------------
-
-loc_A90B:
-		mov	ax, [bp+var_2]
-		sar	ax, 3
-		mov	dx, di
-		shl	dx, 6
-		add	ax, dx
-		mov	dx, di
-		shl	dx, 4
-		add	ax, dx
-		mov	[bp+var_4], ax
-		les	bx, _VRAM_PLANE_B
-		assume es:nothing
-		add	bx, [bp+var_4]
-		mov	eax, es:[bx]
-		les	bx, dword ptr unk_F82C
-		mov	es:[bx+si], eax
-		les	bx, _VRAM_PLANE_R
-		add	bx, [bp+var_4]
-		mov	eax, es:[bx]
-		les	bx, dword ptr unk_F830
-		mov	es:[bx+si], eax
-		les	bx, _VRAM_PLANE_G
-		add	bx, [bp+var_4]
-		mov	eax, es:[bx]
-		les	bx, dword ptr unk_F834
-		mov	es:[bx+si], eax
-		les	bx, _VRAM_PLANE_E
-		add	bx, [bp+var_4]
-		mov	eax, es:[bx]
-		les	bx, dword ptr unk_F838
-		mov	es:[bx+si], eax
-		add	si, 4
-		add	[bp+var_2], 20h	; ' '
-
-loc_A975:
-		cmp	[bp+var_2], 270h
-		jl	short loc_A90B
-		inc	di
-
-loc_A97D:
-		cmp	di, 50h	; 'P'
-		jl	short loc_A904
-		mov	di, 50h	; 'P'
-		jmp	short loc_AA00
-; ---------------------------------------------------------------------------
-
-loc_A987:
-		mov	[bp+var_2], 130h
-		jmp	short loc_A9F8
-; ---------------------------------------------------------------------------
-
-loc_A98E:
-		mov	ax, [bp+var_2]
-		sar	ax, 3
-		mov	dx, di
-		shl	dx, 6
-		add	ax, dx
-		mov	dx, di
-		shl	dx, 4
-		add	ax, dx
-		mov	[bp+var_4], ax
-		les	bx, _VRAM_PLANE_B
-		add	bx, [bp+var_4]
-		mov	eax, es:[bx]
-		les	bx, dword ptr unk_F82C
-		mov	es:[bx+si], eax
-		les	bx, _VRAM_PLANE_R
-		add	bx, [bp+var_4]
-		mov	eax, es:[bx]
-		les	bx, dword ptr unk_F830
-		mov	es:[bx+si], eax
-		les	bx, _VRAM_PLANE_G
-		add	bx, [bp+var_4]
-		mov	eax, es:[bx]
-		les	bx, dword ptr unk_F834
-		mov	es:[bx+si], eax
-		les	bx, _VRAM_PLANE_E
-		add	bx, [bp+var_4]
-		mov	eax, es:[bx]
-		les	bx, dword ptr unk_F838
-		mov	es:[bx+si], eax
-		add	si, 4
-		add	[bp+var_2], 20h	; ' '
-
-loc_A9F8:
-		cmp	[bp+var_2], 270h
-		jl	short loc_A98E
-		inc	di
-
-loc_AA00:
-		cmp	di, 180h
-		jl	short loc_A987
-		pop	di
-		pop	si
-		leave
-		retn
-sub_A8CF	endp
-
+include th03/music/cmt_back_snap.asm
 include th02/music/music_cmt_load.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_AA53	proc near
-		push	bp
-		mov	bp, sp
-		push	word_F82E
-		call	hmem_free
-		push	word_F832
-		call	hmem_free
-		push	word_F836
-		call	hmem_free
-		push	word_F83A
-		call	hmem_free
-		pop	bp
-		retn
-sub_AA53	endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_AA7C	proc near
-
-var_2		= word ptr -2
-
-		enter	2, 0
-		push	si
-		push	di
-		xor	cx, cx
-		mov	si, 40h
-		jmp	short loc_AB05
-; ---------------------------------------------------------------------------
-
-loc_AA89:
-		mov	di, 130h
-		jmp	short loc_AAFE
-; ---------------------------------------------------------------------------
-
-loc_AA8E:
-		mov	ax, di
-		sar	ax, 3
-		mov	dx, si
-		shl	dx, 6
-		add	ax, dx
-		mov	dx, si
-		shl	dx, 4
-		add	ax, dx
-		mov	[bp+var_2], ax
-		les	bx, dword ptr unk_F82C
-		add	bx, cx
-		mov	eax, es:[bx]
-		les	bx, _VRAM_PLANE_B
-		add	bx, [bp+var_2]
-		mov	es:[bx], eax
-		les	bx, dword ptr unk_F830
-		add	bx, cx
-		mov	eax, es:[bx]
-		les	bx, _VRAM_PLANE_R
-		add	bx, [bp+var_2]
-		mov	es:[bx], eax
-		les	bx, dword ptr unk_F834
-		add	bx, cx
-		mov	eax, es:[bx]
-		les	bx, _VRAM_PLANE_G
-		add	bx, [bp+var_2]
-		mov	es:[bx], eax
-		les	bx, dword ptr unk_F838
-		add	bx, cx
-		mov	eax, es:[bx]
-		les	bx, _VRAM_PLANE_E
-		add	bx, [bp+var_2]
-		mov	es:[bx], eax
-		add	cx, 4
-		add	di, 20h	; ' '
-
-loc_AAFE:
-		cmp	di, 270h
-		jl	short loc_AA8E
-		inc	si
-
-loc_AB05:
-		cmp	si, 50h	; 'P'
-		jl	loc_AA89
-		mov	si, 50h	; 'P'
-		jmp	short loc_AB8D
-; ---------------------------------------------------------------------------
-
-loc_AB11:
-		mov	di, 130h
-		jmp	short loc_AB86
-; ---------------------------------------------------------------------------
-
-loc_AB16:
-		mov	ax, di
-		sar	ax, 3
-		mov	dx, si
-		shl	dx, 6
-		add	ax, dx
-		mov	dx, si
-		shl	dx, 4
-		add	ax, dx
-		mov	[bp+var_2], ax
-		les	bx, dword ptr unk_F82C
-		add	bx, cx
-		mov	eax, es:[bx]
-		les	bx, _VRAM_PLANE_B
-		add	bx, [bp+var_2]
-		mov	es:[bx], eax
-		les	bx, dword ptr unk_F830
-		add	bx, cx
-		mov	eax, es:[bx]
-		les	bx, _VRAM_PLANE_R
-		add	bx, [bp+var_2]
-		mov	es:[bx], eax
-		les	bx, dword ptr unk_F834
-		add	bx, cx
-		mov	eax, es:[bx]
-		les	bx, _VRAM_PLANE_G
-		add	bx, [bp+var_2]
-		mov	es:[bx], eax
-		les	bx, dword ptr unk_F838
-		add	bx, cx
-		mov	eax, es:[bx]
-		les	bx, _VRAM_PLANE_E
-		add	bx, [bp+var_2]
-		mov	es:[bx], eax
-		add	cx, 4
-		add	di, 20h	; ' '
-
-loc_AB86:
-		cmp	di, 270h
-		jl	short loc_AB16
-		inc	si
-
-loc_AB8D:
-		cmp	si, 180h
-		jl	loc_AB11
-		pop	di
-		pop	si
-		leave
-		retn
-sub_AA7C	endp
-
+include th03/music/cmt_back_free_put.asm
 
 ; =============== S U B	R O U T	I N E =======================================
 
@@ -2003,7 +1720,7 @@ sub_AB99	proc near
 		push	di
 		call	music_cmt_load pascal, [bp+@@track]
 		call	screen_back_B_put
-		call	sub_AA7C
+		call	cmt_back_put
 		push	1300040h
 		push	1Fh
 		push	ds
@@ -2093,7 +1810,7 @@ loc_AC15:
 		graph_accesspage 1
 		graph_showpage 0
 		call	screen_back_B_snap
-		call	sub_A8CF
+		call	cmt_back_snap
 		graph_accesspage 1
 		mov	al, music_track_playing
 		mov	ah, 0
@@ -2211,7 +1928,7 @@ loc_ADB0:
 
 loc_ADC1:
 		call	screen_back_B_free
-		call	sub_AA53
+		call	cmt_back_free
 		graph_showpage 0
 		graph_accesspage al
 		call	graph_clear
@@ -4850,18 +4567,7 @@ include th03/formats/hfliplut[bss].asm
 include th02/music/music[bss].asm
 public _screen_back_B
 _screen_back_B	dw ?
-unk_F82C	db    ?	;
-		db    ?	;
-word_F82E	dw ?
-unk_F830	db    ?	;
-		db    ?	;
-word_F832	dw ?
-unk_F834	db    ?	;
-		db    ?	;
-word_F836	dw ?
-unk_F838	db    ?	;
-		db    ?	;
-word_F83A	dw ?
+include th03/music/cmt_back[bss].asm
 include th02/music/music_cmt[bss].asm
 word_FB84	dw ?
 		dd    ?	;