Assembler code
ROM:41B3
ROM:41B3 ; =============== S U B R O U T I N E =======================================
ROM:41B3
ROM:41B3
ROM:41B3 sub_41B3:
ROM:41B3 sp = $27FF
ROM:41B5 r1 = $4000
ROM:41B7 r2 = [r1++]
ROM:41B8 jmp loc_41CA
ROM:41B9 ; ---------------------------------------------------------------------------
ROM:41B9
ROM:41B9 loc_41B9: ; CODE XREF: sub_41B3+18↓j
ROM:41B9 push r2, r2 to [sp]
ROM:41BA r3 = [r1++]
ROM:41BB r4 = [r1++]
ROM:41BC r4 = r4 lsl 4
ROM:41BD r4 = r4 lsl 4
ROM:41BE r4 = r4 lsl 2
ROM:41BF sr = r4
ROM:41C0 r4 = [r1++]
ROM:41C1 bp = [r1++]
ROM:41C2 jmp loc_41C6
ROM:41C3 ; ---------------------------------------------------------------------------
ROM:41C3
ROM:41C3 loc_41C3: ; CODE XREF: sub_41B3+14↓j
ROM:41C3 r2 = ds:[r4++]
ROM:41C4 [r3++] = r2
ROM:41C5 bp -= 1
ROM:41C6
ROM:41C6 loc_41C6: ; CODE XREF: sub_41B3+F↑j
ROM:41C6 cmp bp, 0
ROM:41C7 jne loc_41C3
ROM:41C8 pop r2, r2 from [sp]
ROM:41C9 r2 -= 1
ROM:41CA
ROM:41CA loc_41CA: ; CODE XREF: sub_41B3+5↑j
ROM:41CA cmp r2, 0