Here is my current code, maybe someone likes some inspiration.
I relocated the function and maps since I needed more space. After moving the code I realized I needed the extp command when calling from different sections of code
;krkte1
extp #0E1h, #1 ;D7 40 E1 00
mov r5, word_381B1A ;F2 F5 1A 9B
cmp r5, #1C2h ;46 F5 C2 01
jmpr cc_c switched ;8D 05
extp #207h, #1 ;D7 40 07 02
mov r5, #0D80h ;F2 F5 80 0D
rets ;DB 00
;switched
extp #229h, #1 ;D7 40 29 02
mov r5, #0DC4h ;F2 F5 C4 0D
rets ;DB 00
;krkte2
extp #0E1h, #1 ;D7 40 E1 00
mov r4, word_381B1A ;F2 F4 1A 9B
cmp r4, #1C2h ;46 F4 C2 01
jmpr cc_c switched ;8D 05
extp #207h, #1 ;D7 40 07 02
mov r4, #0D80h ;F2 F4 80 0D
rets ;DB 00
;switched
extp #229h, #1 ;D7 40 29 02
mov r4, #0DC4h ;F2 F4 C4 0D
rets ;DB 00
;krkte3
extp #0E1h, #1 ;D7 40 E1 00
mov r2, word_381B1A ;F2 F2 1A 9B
cmp r2, #1C2h ;46 F2 C2 01
jmpr cc_c switched ;8D 05
extp #207h, #1 ;D7 40 07 02
mov r2, #0D80h ;F2 F2 80 0D
rets ;DB 00
;switched
extp #229h, #1 ;D7 40 29 02
mov r2, #0DC4h ;F2 F2 C4 0D
rets ;DB 00
;fkkvs
extp #0E1h, #1 ;D7 40 E1 00
mov r5, word_381B1A ;F2 F5 1A 9B
cmp r5, #1C2h ;46 F5 C2 01
jmpr cc_c switched ;8D 03
mov r5, #207h ;E6 F5 07 02
rets ;DB 00
;switched
mov r4, #0B32h ;E6 F4 32 0B
mov r5, #229h ;E6 F5 29 02
rets ;DB 00
;kflbts
extp #0E1h, #1 ;D7 40 E1 00
mov r13, word_81B1A ;F2 FD 1A 9B
cmp r13, #1C2h ;46 FD C2 01
jmpr cc_c switched ;8D 03
mov r13, #206h ;E6 FD 06 02
rets ;DB 00
;switched
mov r12, #0B00h ;E6 FC 00 0B
mov r13, #229h ;E6 FD 29 02
rets ;DB 00
;kfzw1
extp #0E1h, #1 ;D7 40 E1 00
mov r12, word_81B1A ;F2 FC 1A 9B
cmp r12, #1C2h ;46 FC C2 01
jmpr cc_c switched ;8D 03
mov r12, #2390h ;E6 FC 90 23
rets ;DB 00
;switched
mov r12, #2450h ;E6 FC 50 24
rets ;DB 00
